hlibsass-0.1.2.0: libsass/functions.cpp
#include "functions.hpp"
#include "ast.hpp"
#include "context.hpp"
#include "backtrace.hpp"
#include "parser.hpp"
#include "constants.hpp"
#include "to_string.hpp"
#include "inspect.hpp"
#include "eval.hpp"
#include "util.hpp"
#include "utf8_string.hpp"
#include "utf8.h"
#include <atomic>
#include <cstdlib>
#include <cmath>
#include <cctype>
#include <sstream>
#include <string>
#include <iomanip>
#include <iostream>
#include <random>
#include <set>
#ifdef __MINGW32__
#include "windows.h"
#include "wincrypt.h"
#endif
#define ARG(argname, argtype) get_arg<argtype>(argname, env, sig, pstate, backtrace)
#define ARGR(argname, argtype, lo, hi) get_arg_r(argname, env, sig, pstate, lo, hi, backtrace)
#define ARGM(argname, argtype, ctx) get_arg_m(argname, env, sig, pstate, backtrace, ctx)
namespace Sass {
using std::stringstream;
using std::endl;
Definition* make_native_function(Signature sig, Native_Function func, Context& ctx)
{
Parser sig_parser = Parser::from_c_str(sig, ctx, ParserState("[built-in function]"));
sig_parser.lex<Prelexer::identifier>();
string name(Util::normalize_underscores(sig_parser.lexed));
Parameters* params = sig_parser.parse_parameters();
return new (ctx.mem) Definition(ParserState("[built-in function]"),
sig,
name,
params,
func,
&ctx,
false);
}
Definition* make_c_function(Sass_Function_Entry c_func, Context& ctx)
{
const char* sig = sass_function_get_signature(c_func);
Parser sig_parser = Parser::from_c_str(sig, ctx, ParserState("[c function]"));
// allow to overload generic callback plus @warn, @error and @debug with custom functions
sig_parser.lex < alternatives < identifier, exactly <'*'>,
exactly < Constants::warn_kwd >,
exactly < Constants::error_kwd >,
exactly < Constants::debug_kwd >
> >();
string name(Util::normalize_underscores(sig_parser.lexed));
Parameters* params = sig_parser.parse_parameters();
return new (ctx.mem) Definition(ParserState("[c function]"),
sig,
name,
params,
c_func,
&ctx,
false, true);
}
namespace Functions {
template <typename T>
T* get_arg(const string& argname, Env& env, Signature sig, ParserState pstate, Backtrace* backtrace)
{
// Minimal error handling -- the expectation is that built-ins will be written correctly!
T* val = dynamic_cast<T*>(env[argname]);
if (!val) {
string msg("argument `");
msg += argname;
msg += "` of `";
msg += sig;
msg += "` must be a ";
msg += T::type_name();
error(msg, pstate, backtrace);
}
return val;
}
Map* get_arg_m(const string& argname, Env& env, Signature sig, ParserState pstate, Backtrace* backtrace, Context& ctx)
{
// Minimal error handling -- the expectation is that built-ins will be written correctly!
Map* val = dynamic_cast<Map*>(env[argname]);
if (val) return val;
List* lval = dynamic_cast<List*>(env[argname]);
if (lval && lval->length() == 0) return new (ctx.mem) Map(pstate, 0);
// fallback on get_arg for error handling
val = get_arg<Map>(argname, env, sig, pstate, backtrace);
return val;
}
Number* get_arg_r(const string& argname, Env& env, Signature sig, ParserState pstate, double lo, double hi, Backtrace* backtrace)
{
// Minimal error handling -- the expectation is that built-ins will be written correctly!
Number* val = get_arg<Number>(argname, env, sig, pstate, backtrace);
double v = val->value();
if (!(lo <= v && v <= hi)) {
stringstream msg;
msg << "argument `" << argname << "` of `" << sig << "` must be between ";
msg << lo << " and " << hi;
error(msg.str(), pstate, backtrace);
}
return val;
}
#ifdef __MINGW32__
uint64_t GetSeed()
{
HCRYPTPROV hp = 0;
BYTE rb[8];
CryptAcquireContext(&hp, 0, 0, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT);
CryptGenRandom(hp, sizeof(rb), rb);
CryptReleaseContext(hp, 0);
uint64_t seed;
memcpy(&seed, &rb[0], sizeof(seed));
return seed;
}
#else
static random_device rd;
uint64_t GetSeed()
{
return rd();
}
#endif
// note: the performance of many implementations of
// random_device degrades sharply once the entropy pool
// is exhausted. For practical use, random_device is
// generally only used to seed a PRNG such as mt19937.
static mt19937 rand(static_cast<unsigned int>(GetSeed()));
// features
static set<string> features {
"global-variable-shadowing",
"at-error",
"units-level-3"
};
////////////////
// RGB FUNCTIONS
////////////////
inline double color_num(Number* n) {
if (n->unit() == "%") {
return std::min(std::max(n->value(), 0.0), 1.0) * 255;
} else {
return std::min(std::max(n->value(), 0.0), 255.0);
}
}
Signature rgb_sig = "rgb($red, $green, $blue)";
BUILT_IN(rgb)
{
return new (ctx.mem) Color(pstate,
color_num(ARGR("$red", Number, 0, 255)),
color_num(ARGR("$green", Number, 0, 255)),
color_num(ARGR("$blue", Number, 0, 255)));
}
Signature rgba_4_sig = "rgba($red, $green, $blue, $alpha)";
BUILT_IN(rgba_4)
{
return new (ctx.mem) Color(pstate,
color_num(ARGR("$red", Number, 0, 255)),
color_num(ARGR("$green", Number, 0, 255)),
color_num(ARGR("$blue", Number, 0, 255)),
ARGR("$alpha", Number, 0, 1)->value());
}
Signature rgba_2_sig = "rgba($color, $alpha)";
BUILT_IN(rgba_2)
{
Color* c_arg = ARG("$color", Color);
Color* new_c = new (ctx.mem) Color(*c_arg);
new_c->a(ARGR("$alpha", Number, 0, 1)->value());
new_c->disp("");
return new_c;
}
Signature red_sig = "red($color)";
BUILT_IN(red)
{ return new (ctx.mem) Number(pstate, ARG("$color", Color)->r()); }
Signature green_sig = "green($color)";
BUILT_IN(green)
{ return new (ctx.mem) Number(pstate, ARG("$color", Color)->g()); }
Signature blue_sig = "blue($color)";
BUILT_IN(blue)
{ return new (ctx.mem) Number(pstate, ARG("$color", Color)->b()); }
Signature mix_sig = "mix($color-1, $color-2, $weight: 50%)";
BUILT_IN(mix)
{
Color* color1 = ARG("$color-1", Color);
Color* color2 = ARG("$color-2", Color);
Number* weight = ARGR("$weight", Number, 0, 100);
double p = weight->value()/100;
double w = 2*p - 1;
double a = color1->a() - color2->a();
double w1 = (((w * a == -1) ? w : (w + a)/(1 + w*a)) + 1)/2.0;
double w2 = 1 - w1;
return new (ctx.mem) Color(pstate,
std::round(w1*color1->r() + w2*color2->r()),
std::round(w1*color1->g() + w2*color2->g()),
std::round(w1*color1->b() + w2*color2->b()),
color1->a()*p + color2->a()*(1-p));
}
////////////////
// HSL FUNCTIONS
////////////////
// RGB to HSL helper function
struct HSL { double h; double s; double l; };
HSL rgb_to_hsl(double r, double g, double b)
{
// Algorithm from http://en.wikipedia.org/wiki/wHSL_and_HSV#Conversion_from_RGB_to_HSL_or_HSV
r /= 255.0; g /= 255.0; b /= 255.0;
double max = std::max(r, std::max(g, b));
double min = std::min(r, std::min(g, b));
double del = max - min;
double h = 0, s = 0, l = (max + min) / 2.0;
if (max == min) {
h = s = 0; // achromatic
}
else {
if (l < 0.5) s = del / (max + min);
else s = del / (2.0 - max - min);
if (r == max) h = (g - b) / del + (g < b ? 6 : 0);
else if (g == max) h = (b - r) / del + 2;
else if (b == max) h = (r - g) / del + 4;
}
HSL hsl_struct;
hsl_struct.h = h / 6 * 360;
hsl_struct.s = s * 100;
hsl_struct.l = l * 100;
return hsl_struct;
}
// hue to RGB helper function
double h_to_rgb(double m1, double m2, double h) {
if (h < 0) h += 1;
if (h > 1) h -= 1;
if (h*6.0 < 1) return m1 + (m2 - m1)*h*6;
if (h*2.0 < 1) return m2;
if (h*3.0 < 2) return m1 + (m2 - m1) * (2.0/3.0 - h)*6;
return m1;
}
Color* hsla_impl(double h, double s, double l, double a, Context& ctx, ParserState pstate)
{
h /= 360.0;
s /= 100.0;
l /= 100.0;
if (l < 0) l = 0;
if (s < 0) s = 0;
if (l > 1) l = 1;
if (s > 1) s = 1;
while (h < 0) h += 1;
while (h > 1) h -= 1;
// Algorithm from the CSS3 spec: http://www.w3.org/TR/css3-color/#hsl-color.
double m2;
if (l <= 0.5) m2 = l*(s+1.0);
else m2 = (l+s)-(l*s);
double m1 = (l*2.0)-m2;
// round the results -- consider moving this into the Color constructor
double r = (h_to_rgb(m1, m2, h+1.0/3.0) * 255.0);
double g = (h_to_rgb(m1, m2, h) * 255.0);
double b = (h_to_rgb(m1, m2, h-1.0/3.0) * 255.0);
return new (ctx.mem) Color(pstate, r, g, b, a);
}
Signature hsl_sig = "hsl($hue, $saturation, $lightness)";
BUILT_IN(hsl)
{
return hsla_impl(ARG("$hue", Number)->value(),
ARGR("$saturation", Number, 0, 100)->value(),
ARGR("$lightness", Number, 0, 100)->value(),
1.0,
ctx,
pstate);
}
Signature hsla_sig = "hsla($hue, $saturation, $lightness, $alpha)";
BUILT_IN(hsla)
{
return hsla_impl(ARG("$hue", Number)->value(),
ARGR("$saturation", Number, 0, 100)->value(),
ARGR("$lightness", Number, 0, 100)->value(),
ARGR("$alpha", Number, 0, 1)->value(),
ctx,
pstate);
}
Signature hue_sig = "hue($color)";
BUILT_IN(hue)
{
Color* rgb_color = ARG("$color", Color);
HSL hsl_color = rgb_to_hsl(rgb_color->r(),
rgb_color->g(),
rgb_color->b());
return new (ctx.mem) Number(pstate, hsl_color.h, "deg");
}
Signature saturation_sig = "saturation($color)";
BUILT_IN(saturation)
{
Color* rgb_color = ARG("$color", Color);
HSL hsl_color = rgb_to_hsl(rgb_color->r(),
rgb_color->g(),
rgb_color->b());
return new (ctx.mem) Number(pstate, hsl_color.s, "%");
}
Signature lightness_sig = "lightness($color)";
BUILT_IN(lightness)
{
Color* rgb_color = ARG("$color", Color);
HSL hsl_color = rgb_to_hsl(rgb_color->r(),
rgb_color->g(),
rgb_color->b());
return new (ctx.mem) Number(pstate, hsl_color.l, "%");
}
Signature adjust_hue_sig = "adjust-hue($color, $degrees)";
BUILT_IN(adjust_hue)
{
Color* rgb_color = ARG("$color", Color);
Number* degrees = ARG("$degrees", Number);
HSL hsl_color = rgb_to_hsl(rgb_color->r(),
rgb_color->g(),
rgb_color->b());
return hsla_impl(hsl_color.h + degrees->value(),
hsl_color.s,
hsl_color.l,
rgb_color->a(),
ctx,
pstate);
}
Signature lighten_sig = "lighten($color, $amount)";
BUILT_IN(lighten)
{
Color* rgb_color = ARG("$color", Color);
Number* amount = ARGR("$amount", Number, 0, 100);
HSL hsl_color = rgb_to_hsl(rgb_color->r(),
rgb_color->g(),
rgb_color->b());
//Check lightness is not negative before lighten it
double hslcolorL = hsl_color.l;
if (hslcolorL < 0) {
hslcolorL = 0;
}
return hsla_impl(hsl_color.h,
hsl_color.s,
hslcolorL + amount->value(),
rgb_color->a(),
ctx,
pstate);
}
Signature darken_sig = "darken($color, $amount)";
BUILT_IN(darken)
{
Color* rgb_color = ARG("$color", Color);
Number* amount = ARGR("$amount", Number, 0, 100);
HSL hsl_color = rgb_to_hsl(rgb_color->r(),
rgb_color->g(),
rgb_color->b());
//Check lightness if not over 100, before darken it
double hslcolorL = hsl_color.l;
if (hslcolorL > 100) {
hslcolorL = 100;
}
return hsla_impl(hsl_color.h,
hsl_color.s,
hslcolorL - amount->value(),
rgb_color->a(),
ctx,
pstate);
}
Signature saturate_sig = "saturate($color, $amount: false)";
BUILT_IN(saturate)
{
// CSS3 filter function overload: pass literal through directly
Number* amount = dynamic_cast<Number*>(env["$amount"]);
if (!amount) {
To_String to_string(&ctx);
return new (ctx.mem) String_Constant(pstate, "saturate(" + env["$color"]->perform(&to_string) + ")");
}
ARGR("$amount", Number, 0, 100);
Color* rgb_color = ARG("$color", Color);
HSL hsl_color = rgb_to_hsl(rgb_color->r(),
rgb_color->g(),
rgb_color->b());
double hslcolorS = hsl_color.s + amount->value();
// Saturation cannot be below 0 or above 100
if (hslcolorS < 0) {
hslcolorS = 0;
}
if (hslcolorS > 100) {
hslcolorS = 100;
}
return hsla_impl(hsl_color.h,
hslcolorS,
hsl_color.l,
rgb_color->a(),
ctx,
pstate);
}
Signature desaturate_sig = "desaturate($color, $amount)";
BUILT_IN(desaturate)
{
Color* rgb_color = ARG("$color", Color);
Number* amount = ARGR("$amount", Number, 0, 100);
HSL hsl_color = rgb_to_hsl(rgb_color->r(),
rgb_color->g(),
rgb_color->b());
double hslcolorS = hsl_color.s - amount->value();
// Saturation cannot be below 0 or above 100
if (hslcolorS <= 0) {
hslcolorS = 0;
}
if (hslcolorS > 100) {
hslcolorS = 100;
}
return hsla_impl(hsl_color.h,
hslcolorS,
hsl_color.l,
rgb_color->a(),
ctx,
pstate);
}
Signature grayscale_sig = "grayscale($color)";
BUILT_IN(grayscale)
{
// CSS3 filter function overload: pass literal through directly
Number* amount = dynamic_cast<Number*>(env["$color"]);
if (amount) {
To_String to_string(&ctx);
return new (ctx.mem) String_Constant(pstate, "grayscale(" + amount->perform(&to_string) + ")");
}
Color* rgb_color = ARG("$color", Color);
HSL hsl_color = rgb_to_hsl(rgb_color->r(),
rgb_color->g(),
rgb_color->b());
return hsla_impl(hsl_color.h,
0.0,
hsl_color.l,
rgb_color->a(),
ctx,
pstate);
}
Signature complement_sig = "complement($color)";
BUILT_IN(complement)
{
Color* rgb_color = ARG("$color", Color);
HSL hsl_color = rgb_to_hsl(rgb_color->r(),
rgb_color->g(),
rgb_color->b());
return hsla_impl(hsl_color.h - 180.0,
hsl_color.s,
hsl_color.l,
rgb_color->a(),
ctx,
pstate);
}
Signature invert_sig = "invert($color)";
BUILT_IN(invert)
{
// CSS3 filter function overload: pass literal through directly
Number* amount = dynamic_cast<Number*>(env["$color"]);
if (amount) {
To_String to_string(&ctx);
return new (ctx.mem) String_Constant(pstate, "invert(" + amount->perform(&to_string) + ")");
}
Color* rgb_color = ARG("$color", Color);
return new (ctx.mem) Color(pstate,
255 - rgb_color->r(),
255 - rgb_color->g(),
255 - rgb_color->b(),
rgb_color->a());
}
////////////////////
// OPACITY FUNCTIONS
////////////////////
Signature alpha_sig = "alpha($color)";
Signature opacity_sig = "opacity($color)";
BUILT_IN(alpha)
{
String_Constant* ie_kwd = dynamic_cast<String_Constant*>(env["$color"]);
if (ie_kwd) {
return new (ctx.mem) String_Constant(pstate, "alpha(" + ie_kwd->value() + ")");
}
// CSS3 filter function overload: pass literal through directly
Number* amount = dynamic_cast<Number*>(env["$color"]);
if (amount) {
To_String to_string(&ctx);
return new (ctx.mem) String_Constant(pstate, "opacity(" + amount->perform(&to_string) + ")");
}
return new (ctx.mem) Number(pstate, ARG("$color", Color)->a());
}
Signature opacify_sig = "opacify($color, $amount)";
Signature fade_in_sig = "fade-in($color, $amount)";
BUILT_IN(opacify)
{
Color* color = ARG("$color", Color);
double amount = ARGR("$amount", Number, 0, 1)->value();
double alpha = std::min(color->a() + amount, 1.0);
return new (ctx.mem) Color(pstate,
color->r(),
color->g(),
color->b(),
alpha);
}
Signature transparentize_sig = "transparentize($color, $amount)";
Signature fade_out_sig = "fade-out($color, $amount)";
BUILT_IN(transparentize)
{
Color* color = ARG("$color", Color);
double amount = ARGR("$amount", Number, 0, 1)->value();
double alpha = std::max(color->a() - amount, 0.0);
return new (ctx.mem) Color(pstate,
color->r(),
color->g(),
color->b(),
alpha);
}
////////////////////////
// OTHER COLOR FUNCTIONS
////////////////////////
Signature adjust_color_sig = "adjust-color($color, $red: false, $green: false, $blue: false, $hue: false, $saturation: false, $lightness: false, $alpha: false)";
BUILT_IN(adjust_color)
{
Color* color = ARG("$color", Color);
Number* r = dynamic_cast<Number*>(env["$red"]);
Number* g = dynamic_cast<Number*>(env["$green"]);
Number* b = dynamic_cast<Number*>(env["$blue"]);
Number* h = dynamic_cast<Number*>(env["$hue"]);
Number* s = dynamic_cast<Number*>(env["$saturation"]);
Number* l = dynamic_cast<Number*>(env["$lightness"]);
Number* a = dynamic_cast<Number*>(env["$alpha"]);
bool rgb = r || g || b;
bool hsl = h || s || l;
if (rgb && hsl) {
error("cannot specify both RGB and HSL values for `adjust-color`", pstate);
}
if (rgb) {
return new (ctx.mem) Color(pstate,
color->r() + (r ? r->value() : 0),
color->g() + (g ? g->value() : 0),
color->b() + (b ? b->value() : 0),
color->a() + (a ? a->value() : 0));
}
if (hsl) {
HSL hsl_struct = rgb_to_hsl(color->r(), color->g(), color->b());
return hsla_impl(hsl_struct.h + (h ? h->value() : 0),
hsl_struct.s + (s ? s->value() : 0),
hsl_struct.l + (l ? l->value() : 0),
color->a() + (a ? a->value() : 0),
ctx,
pstate);
}
if (a) {
return new (ctx.mem) Color(pstate,
color->r(),
color->g(),
color->b(),
color->a() + (a ? a->value() : 0));
}
error("not enough arguments for `adjust-color`", pstate);
// unreachable
return color;
}
Signature scale_color_sig = "scale-color($color, $red: false, $green: false, $blue: false, $hue: false, $saturation: false, $lightness: false, $alpha: false)";
BUILT_IN(scale_color)
{
Color* color = ARG("$color", Color);
Number* r = dynamic_cast<Number*>(env["$red"]);
Number* g = dynamic_cast<Number*>(env["$green"]);
Number* b = dynamic_cast<Number*>(env["$blue"]);
Number* h = dynamic_cast<Number*>(env["$hue"]);
Number* s = dynamic_cast<Number*>(env["$saturation"]);
Number* l = dynamic_cast<Number*>(env["$lightness"]);
Number* a = dynamic_cast<Number*>(env["$alpha"]);
bool rgb = r || g || b;
bool hsl = h || s || l;
if (rgb && hsl) {
error("cannot specify both RGB and HSL values for `scale-color`", pstate);
}
if (rgb) {
double rscale = (r ? ARGR("$red", Number, -100.0, 100.0)->value() : 0.0) / 100.0;
double gscale = (g ? ARGR("$green", Number, -100.0, 100.0)->value() : 0.0) / 100.0;
double bscale = (b ? ARGR("$blue", Number, -100.0, 100.0)->value() : 0.0) / 100.0;
double ascale = (a ? ARGR("$alpha", Number, -100.0, 100.0)->value() : 0.0) / 100.0;
return new (ctx.mem) Color(pstate,
color->r() + rscale * (rscale > 0.0 ? 255 - color->r() : color->r()),
color->g() + gscale * (gscale > 0.0 ? 255 - color->g() : color->g()),
color->b() + bscale * (bscale > 0.0 ? 255 - color->b() : color->b()),
color->a() + ascale * (ascale > 0.0 ? 1.0 - color->a() : color->a()));
}
if (hsl) {
double hscale = (h ? ARGR("$hue", Number, -100.0, 100.0)->value() : 0.0) / 100.0;
double sscale = (s ? ARGR("$saturation", Number, -100.0, 100.0)->value() : 0.0) / 100.0;
double lscale = (l ? ARGR("$lightness", Number, -100.0, 100.0)->value() : 0.0) / 100.0;
double ascale = (a ? ARGR("$alpha", Number, -100.0, 100.0)->value() : 0.0) / 100.0;
HSL hsl_struct = rgb_to_hsl(color->r(), color->g(), color->b());
hsl_struct.h += hscale * (hscale > 0.0 ? 360.0 - hsl_struct.h : hsl_struct.h);
hsl_struct.s += sscale * (sscale > 0.0 ? 100.0 - hsl_struct.s : hsl_struct.s);
hsl_struct.l += lscale * (lscale > 0.0 ? 100.0 - hsl_struct.l : hsl_struct.l);
double alpha = color->a() + ascale * (ascale > 0.0 ? 1.0 - color->a() : color->a());
return hsla_impl(hsl_struct.h, hsl_struct.s, hsl_struct.l, alpha, ctx, pstate);
}
if (a) {
double ascale = (a ? ARGR("$alpha", Number, -100.0, 100.0)->value() : 0.0) / 100.0;
return new (ctx.mem) Color(pstate,
color->r(),
color->g(),
color->b(),
color->a() + ascale * (ascale > 0.0 ? 1.0 - color->a() : color->a()));
}
error("not enough arguments for `scale-color`", pstate);
// unreachable
return color;
}
Signature change_color_sig = "change-color($color, $red: false, $green: false, $blue: false, $hue: false, $saturation: false, $lightness: false, $alpha: false)";
BUILT_IN(change_color)
{
Color* color = ARG("$color", Color);
Number* r = dynamic_cast<Number*>(env["$red"]);
Number* g = dynamic_cast<Number*>(env["$green"]);
Number* b = dynamic_cast<Number*>(env["$blue"]);
Number* h = dynamic_cast<Number*>(env["$hue"]);
Number* s = dynamic_cast<Number*>(env["$saturation"]);
Number* l = dynamic_cast<Number*>(env["$lightness"]);
Number* a = dynamic_cast<Number*>(env["$alpha"]);
bool rgb = r || g || b;
bool hsl = h || s || l;
if (rgb && hsl) {
error("cannot specify both RGB and HSL values for `change-color`", pstate);
}
if (rgb) {
return new (ctx.mem) Color(pstate,
r ? ARGR("$red", Number, 0, 255)->value() : color->r(),
g ? ARGR("$green", Number, 0, 255)->value() : color->g(),
b ? ARGR("$blue", Number, 0, 255)->value() : color->b(),
a ? ARGR("$alpha", Number, 0, 255)->value() : color->a());
}
if (hsl) {
HSL hsl_struct = rgb_to_hsl(color->r(), color->g(), color->b());
if (h) hsl_struct.h = static_cast<double>(((static_cast<int>(h->value()) % 360) + 360) % 360) / 360.0;
if (s) hsl_struct.s = ARGR("$saturation", Number, 0, 100)->value();
if (l) hsl_struct.l = ARGR("$lightness", Number, 0, 100)->value();
double alpha = a ? ARGR("$alpha", Number, 0, 1.0)->value() : color->a();
return hsla_impl(hsl_struct.h, hsl_struct.s, hsl_struct.l, alpha, ctx, pstate);
}
if (a) {
double alpha = a ? ARGR("$alpha", Number, 0, 1.0)->value() : color->a();
return new (ctx.mem) Color(pstate,
color->r(),
color->g(),
color->b(),
alpha);
}
error("not enough arguments for `change-color`", pstate);
// unreachable
return color;
}
template <size_t range>
static double cap_channel(double c) {
if (c > range) return range;
else if (c < 0) return 0;
else return c;
}
Signature ie_hex_str_sig = "ie-hex-str($color)";
BUILT_IN(ie_hex_str)
{
Color* c = ARG("$color", Color);
double r = cap_channel<0xff>(c->r());
double g = cap_channel<0xff>(c->g());
double b = cap_channel<0xff>(c->b());
double a = cap_channel<1> (c->a()) * 255;
stringstream ss;
ss << '#' << std::setw(2) << std::setfill('0');
ss << std::hex << std::setw(2) << static_cast<unsigned long>(std::floor(a+0.5));
ss << std::hex << std::setw(2) << static_cast<unsigned long>(std::floor(r+0.5));
ss << std::hex << std::setw(2) << static_cast<unsigned long>(std::floor(g+0.5));
ss << std::hex << std::setw(2) << static_cast<unsigned long>(std::floor(b+0.5));
string result(ss.str());
for (size_t i = 0, L = result.length(); i < L; ++i) {
result[i] = std::toupper(result[i]);
}
return new (ctx.mem) String_Constant(pstate, result);
}
///////////////////
// STRING FUNCTIONS
///////////////////
Signature unquote_sig = "unquote($string)";
BUILT_IN(sass_unquote)
{
AST_Node* arg = env["$string"];
if (dynamic_cast<Null*>(arg)) {
return new (ctx.mem) Null(pstate);
}
else if (String_Quoted* string_quoted = dynamic_cast<String_Quoted*>(arg)) {
String_Constant* result = new (ctx.mem) String_Constant(pstate, string_quoted->value());
// remember if the string was quoted (color tokens)
result->sass_fix_1291(string_quoted->quote_mark() != 0);
return result;
}
To_String to_string(&ctx);
return new (ctx.mem) String_Constant(pstate, unquote(string(arg->perform(&to_string))));
}
Signature quote_sig = "quote($string)";
BUILT_IN(sass_quote)
{
To_String to_string(&ctx);
AST_Node* arg = env["$string"];
string str(quote(arg->perform(&to_string), String_Constant::double_quote()));
String_Constant* result = new (ctx.mem) String_Constant(pstate, str);
result->is_delayed(true);
return result;
}
Signature str_length_sig = "str-length($string)";
BUILT_IN(str_length)
{
size_t len = string::npos;
try {
String_Constant* s = ARG("$string", String_Constant);
len = UTF_8::code_point_count(s->value(), 0, s->value().size());
}
catch (utf8::invalid_code_point) {
string msg("utf8::invalid_code_point");
error(msg, pstate, backtrace);
}
catch (utf8::not_enough_room) {
string msg("utf8::not_enough_room");
error(msg, pstate, backtrace);
}
catch (utf8::invalid_utf8) {
string msg("utf8::invalid_utf8");
error(msg, pstate, backtrace);
}
catch (...) { throw; }
// return something even if we had an error (-1)
return new (ctx.mem) Number(pstate, len);
}
Signature str_insert_sig = "str-insert($string, $insert, $index)";
BUILT_IN(str_insert)
{
string str;
try {
String_Constant* s = ARG("$string", String_Constant);
str = s->value();
str = unquote(str);
String_Constant* i = ARG("$insert", String_Constant);
string ins = i->value();
ins = unquote(ins);
Number* ind = ARG("$index", Number);
double index = ind->value();
size_t len = UTF_8::code_point_count(str, 0, str.size());
if (index > 0 && index <= len) {
// positive and within string length
str.insert(UTF_8::offset_at_position(str, static_cast<size_t>(index) - 1), ins);
}
else if (index > len) {
// positive and past string length
str += ins;
}
else if (index == 0) {
str = ins + str;
}
else if (std::abs(index) <= len) {
// negative and within string length
index += len + 1;
str.insert(UTF_8::offset_at_position(str, static_cast<size_t>(index)), ins);
}
else {
// negative and past string length
str = ins + str;
}
if (String_Quoted* ss = dynamic_cast<String_Quoted*>(s)) {
if (ss->quote_mark()) str = quote(str);
}
}
catch (utf8::invalid_code_point) {
string msg("utf8::invalid_code_point");
error(msg, pstate, backtrace);
}
catch (utf8::not_enough_room) {
string msg("utf8::not_enough_room");
error(msg, pstate, backtrace);
}
catch (utf8::invalid_utf8) {
string msg("utf8::invalid_utf8");
error(msg, pstate, backtrace);
}
catch (...) { throw; }
return new (ctx.mem) String_Constant(pstate, str);
}
Signature str_index_sig = "str-index($string, $substring)";
BUILT_IN(str_index)
{
size_t index = string::npos;
try {
String_Constant* s = ARG("$string", String_Constant);
String_Constant* t = ARG("$substring", String_Constant);
string str = s->value();
str = unquote(str);
string substr = t->value();
substr = unquote(substr);
size_t c_index = str.find(substr);
if(c_index == string::npos) {
return new (ctx.mem) Null(pstate);
}
index = UTF_8::code_point_count(str, 0, c_index) + 1;
}
catch (utf8::invalid_code_point) {
string msg("utf8::invalid_code_point");
error(msg, pstate, backtrace);
}
catch (utf8::not_enough_room) {
string msg("utf8::not_enough_room");
error(msg, pstate, backtrace);
}
catch (utf8::invalid_utf8) {
string msg("utf8::invalid_utf8");
error(msg, pstate, backtrace);
}
catch (...) { throw; }
// return something even if we had an error (-1)
return new (ctx.mem) Number(pstate, index);
}
Signature str_slice_sig = "str-slice($string, $start-at, $end-at:-1)";
BUILT_IN(str_slice)
{
string newstr;
try {
String_Constant* s = ARG("$string", String_Constant);
double start_at = ARG("$start-at", Number)->value();
double end_at = ARG("$end-at", Number)->value();
string str = unquote(s->value());
size_t size = utf8::distance(str.begin(), str.end());
if (end_at <= size * -1.0) { end_at += size; }
if (end_at < 0) { end_at += size + 1; }
if (end_at > size) { end_at = size; }
if (start_at < 0) { start_at += size + 1; }
else if (start_at == 0) { ++ start_at; }
if (start_at <= end_at)
{
string::iterator start = str.begin();
utf8::advance(start, start_at - 1, str.end());
string::iterator end = start;
utf8::advance(end, end_at - start_at + 1, str.end());
newstr = string(start, end);
}
if (String_Quoted* ss = dynamic_cast<String_Quoted*>(s)) {
if(ss->quote_mark()) newstr = quote(newstr);
}
}
catch (utf8::invalid_code_point) {
string msg("utf8::invalid_code_point");
error(msg, pstate, backtrace);
}
catch (utf8::not_enough_room) {
string msg("utf8::not_enough_room");
error(msg, pstate, backtrace);
}
catch (utf8::invalid_utf8) {
string msg("utf8::invalid_utf8");
error(msg, pstate, backtrace);
}
catch (...) { throw; }
return new (ctx.mem) String_Quoted(pstate, newstr);
}
Signature to_upper_case_sig = "to-upper-case($string)";
BUILT_IN(to_upper_case)
{
String_Constant* s = ARG("$string", String_Constant);
string str = s->value();
for (size_t i = 0, L = str.length(); i < L; ++i) {
if (Sass::Util::isAscii(str[i])) {
str[i] = std::toupper(str[i]);
}
}
if (String_Quoted* ss = dynamic_cast<String_Quoted*>(s)) {
str = ss->quote_mark() ? quote(str) : str;
}
return new (ctx.mem) String_Constant(pstate, str);
}
Signature to_lower_case_sig = "to-lower-case($string)";
BUILT_IN(to_lower_case)
{
String_Constant* s = ARG("$string", String_Constant);
string str = s->value();
for (size_t i = 0, L = str.length(); i < L; ++i) {
if (Sass::Util::isAscii(str[i])) {
str[i] = std::tolower(str[i]);
}
}
if (String_Quoted* ss = dynamic_cast<String_Quoted*>(s)) {
str = ss->quote_mark() ? quote(str, '"') : str;
}
return new (ctx.mem) String_Constant(pstate, str);
}
///////////////////
// NUMBER FUNCTIONS
///////////////////
Signature percentage_sig = "percentage($number)";
BUILT_IN(percentage)
{
Number* n = ARG("$number", Number);
if (!n->is_unitless()) error("argument $number of `" + string(sig) + "` must be unitless", pstate);
return new (ctx.mem) Number(pstate, n->value() * 100, "%");
}
Signature round_sig = "round($number)";
BUILT_IN(round)
{
Number* n = ARG("$number", Number);
Number* r = new (ctx.mem) Number(*n);
r->pstate(pstate);
r->value(std::floor(r->value() + 0.5));
return r;
}
Signature ceil_sig = "ceil($number)";
BUILT_IN(ceil)
{
Number* n = ARG("$number", Number);
Number* r = new (ctx.mem) Number(*n);
r->pstate(pstate);
r->value(std::ceil(r->value()));
return r;
}
Signature floor_sig = "floor($number)";
BUILT_IN(floor)
{
Number* n = ARG("$number", Number);
Number* r = new (ctx.mem) Number(*n);
r->pstate(pstate);
r->value(std::floor(r->value()));
return r;
}
Signature abs_sig = "abs($number)";
BUILT_IN(abs)
{
Number* n = ARG("$number", Number);
Number* r = new (ctx.mem) Number(*n);
r->pstate(pstate);
r->value(std::abs(r->value()));
return r;
}
Signature min_sig = "min($numbers...)";
BUILT_IN(min)
{
List* arglist = ARG("$numbers", List);
Number* least = 0;
for (size_t i = 0, L = arglist->length(); i < L; ++i) {
Number* xi = dynamic_cast<Number*>(arglist->value_at_index(i));
if (least) {
if (!xi) error("`" + string(sig) + "` only takes numeric arguments", pstate);
if (lt(xi, least, ctx)) least = xi;
} else least = xi;
}
return least;
}
Signature max_sig = "max($numbers...)";
BUILT_IN(max)
{
List* arglist = ARG("$numbers", List);
Number* greatest = 0;
for (size_t i = 0, L = arglist->length(); i < L; ++i) {
Number* xi = dynamic_cast<Number*>(arglist->value_at_index(i));
if (greatest) {
if (!xi) error("`" + string(sig) + "` only takes numeric arguments", pstate);
if (lt(greatest, xi, ctx)) greatest = xi;
} else greatest = xi;
}
return greatest;
}
Signature random_sig = "random($limit:false)";
BUILT_IN(random)
{
Number* l = dynamic_cast<Number*>(env["$limit"]);
if (l) {
if (trunc(l->value()) != l->value() || l->value() == 0) error("argument $limit of `" + string(sig) + "` must be a positive integer", pstate);
uniform_real_distribution<> distributor(1, l->value() + 1);
uint_fast32_t distributed = static_cast<uint_fast32_t>(distributor(rand));
return new (ctx.mem) Number(pstate, (double)distributed);
}
else {
uniform_real_distribution<> distributor(0, 1);
double distributed = static_cast<double>(distributor(rand));
return new (ctx.mem) Number(pstate, distributed);
}
}
/////////////////
// LIST FUNCTIONS
/////////////////
Signature length_sig = "length($list)";
BUILT_IN(length)
{
Expression* v = ARG("$list", Expression);
if (v->concrete_type() == Expression::MAP) {
Map* map = dynamic_cast<Map*>(env["$list"]);
return new (ctx.mem) Number(pstate,
map ? map->length() : 1);
}
List* list = dynamic_cast<List*>(env["$list"]);
return new (ctx.mem) Number(pstate,
list ? list->size() : 1);
}
Signature nth_sig = "nth($list, $n)";
BUILT_IN(nth)
{
Map* m = dynamic_cast<Map*>(env["$list"]);
List* l = dynamic_cast<List*>(env["$list"]);
Number* n = ARG("$n", Number);
if (n->value() == 0) error("argument `$n` of `" + string(sig) + "` must be non-zero", pstate);
// if the argument isn't a list, then wrap it in a singleton list
if (!m && !l) {
l = new (ctx.mem) List(pstate, 1);
*l << ARG("$list", Expression);
}
size_t len = m ? m->length() : l->length();
bool empty = m ? m->empty() : l->empty();
if (empty) error("argument `$list` of `" + string(sig) + "` must not be empty", pstate);
double index = std::floor(n->value() < 0 ? len + n->value() : n->value() - 1);
if (index < 0 || index > len - 1) error("index out of bounds for `" + string(sig) + "`", pstate);
if (m) {
l = new (ctx.mem) List(pstate, 1);
*l << m->keys()[static_cast<unsigned int>(index)];
*l << m->at(m->keys()[static_cast<unsigned int>(index)]);
return l;
}
else {
return l->value_at_index(static_cast<int>(index));
}
}
Signature set_nth_sig = "set-nth($list, $n, $value)";
BUILT_IN(set_nth)
{
List* l = dynamic_cast<List*>(env["$list"]);
Number* n = ARG("$n", Number);
Expression* v = ARG("$value", Expression);
if (!l) {
l = new (ctx.mem) List(pstate, 1);
*l << ARG("$list", Expression);
}
if (l->empty()) error("argument `$list` of `" + string(sig) + "` must not be empty", pstate);
double index = std::floor(n->value() < 0 ? l->length() + n->value() : n->value() - 1);
if (index < 0 || index > l->length() - 1) error("index out of bounds for `" + string(sig) + "`", pstate);
List* result = new (ctx.mem) List(pstate, l->length(), l->separator());
for (size_t i = 0, L = l->length(); i < L; ++i) {
*result << ((i == index) ? v : (*l)[i]);
}
return result;
}
Signature index_sig = "index($list, $value)";
BUILT_IN(index)
{
List* l = dynamic_cast<List*>(env["$list"]);
Expression* v = ARG("$value", Expression);
if (!l) {
l = new (ctx.mem) List(pstate, 1);
*l << ARG("$list", Expression);
}
for (size_t i = 0, L = l->length(); i < L; ++i) {
if (eq(l->value_at_index(i), v, ctx)) return new (ctx.mem) Number(pstate, i+1);
}
return new (ctx.mem) Null(pstate);
}
Signature join_sig = "join($list1, $list2, $separator: auto)";
BUILT_IN(join)
{
List* l1 = dynamic_cast<List*>(env["$list1"]);
List* l2 = dynamic_cast<List*>(env["$list2"]);
String_Constant* sep = ARG("$separator", String_Constant);
List::Separator sep_val = (l1 ? l1->separator() : List::SPACE);
if (!l1) {
l1 = new (ctx.mem) List(pstate, 1);
*l1 << ARG("$list1", Expression);
sep_val = (l2 ? l2->separator() : List::SPACE);
}
if (!l2) {
l2 = new (ctx.mem) List(pstate, 1);
*l2 << ARG("$list2", Expression);
}
size_t len = l1->length() + l2->length();
string sep_str = unquote(sep->value());
if (sep_str == "space") sep_val = List::SPACE;
else if (sep_str == "comma") sep_val = List::COMMA;
else if (sep_str != "auto") error("argument `$separator` of `" + string(sig) + "` must be `space`, `comma`, or `auto`", pstate);
List* result = new (ctx.mem) List(pstate, len, sep_val);
*result += l1;
*result += l2;
return result;
}
Signature append_sig = "append($list, $val, $separator: auto)";
BUILT_IN(append)
{
List* l = dynamic_cast<List*>(env["$list"]);
Expression* v = ARG("$val", Expression);
String_Constant* sep = ARG("$separator", String_Constant);
if (!l) {
l = new (ctx.mem) List(pstate, 1);
*l << ARG("$list", Expression);
}
List* result = new (ctx.mem) List(pstate, l->length() + 1, l->separator());
string sep_str(unquote(sep->value()));
if (sep_str == "space") result->separator(List::SPACE);
else if (sep_str == "comma") result->separator(List::COMMA);
else if (sep_str != "auto") error("argument `$separator` of `" + string(sig) + "` must be `space`, `comma`, or `auto`", pstate);
*result += l;
bool is_arglist = l->is_arglist();
result->is_arglist(is_arglist);
if (is_arglist) {
*result << new (ctx.mem) Argument(v->pstate(),
v,
"",
false,
false);
} else {
*result << v;
}
return result;
}
Signature zip_sig = "zip($lists...)";
BUILT_IN(zip)
{
List* arglist = new (ctx.mem) List(*ARG("$lists", List));
size_t shortest = 0;
for (size_t i = 0, L = arglist->length(); i < L; ++i) {
List* ith = dynamic_cast<List*>(arglist->value_at_index(i));
if (!ith) {
ith = new (ctx.mem) List(pstate, 1);
*ith << arglist->value_at_index(i);
if (arglist->is_arglist()) {
((Argument*)(*arglist)[i])->value(ith);
} else {
(*arglist)[i] = ith;
}
}
shortest = (i ? std::min(shortest, ith->length()) : ith->length());
}
List* zippers = new (ctx.mem) List(pstate, shortest, List::COMMA);
size_t L = arglist->length();
for (size_t i = 0; i < shortest; ++i) {
List* zipper = new (ctx.mem) List(pstate, L);
for (size_t j = 0; j < L; ++j) {
*zipper << (*static_cast<List*>(arglist->value_at_index(j)))[i];
}
*zippers << zipper;
}
return zippers;
}
Signature list_separator_sig = "list_separator($list)";
BUILT_IN(list_separator)
{
List* l = dynamic_cast<List*>(env["$list"]);
if (!l) {
l = new (ctx.mem) List(pstate, 1);
*l << ARG("$list", Expression);
}
return new (ctx.mem) String_Constant(pstate,
l->separator() == List::COMMA ? "comma" : "space");
}
/////////////////
// MAP FUNCTIONS
/////////////////
Signature map_get_sig = "map-get($map, $key)";
BUILT_IN(map_get)
{
Map* m = ARGM("$map", Map, ctx);
Expression* v = ARG("$key", Expression);
try {
return m->at(v);
} catch (const std::out_of_range&) {
return new (ctx.mem) Null(pstate);
}
catch (...) { throw; }
}
Signature map_has_key_sig = "map-has-key($map, $key)";
BUILT_IN(map_has_key)
{
Map* m = ARGM("$map", Map, ctx);
Expression* v = ARG("$key", Expression);
return new (ctx.mem) Boolean(pstate, m->has(v));
}
Signature map_keys_sig = "map-keys($map)";
BUILT_IN(map_keys)
{
Map* m = ARGM("$map", Map, ctx);
List* result = new (ctx.mem) List(pstate, m->length(), List::COMMA);
for ( auto key : m->keys()) {
*result << key;
}
return result;
}
Signature map_values_sig = "map-values($map)";
BUILT_IN(map_values)
{
Map* m = ARGM("$map", Map, ctx);
List* result = new (ctx.mem) List(pstate, m->length(), List::COMMA);
for ( auto key : m->keys()) {
*result << m->at(key);
}
return result;
}
Signature map_merge_sig = "map-merge($map1, $map2)";
BUILT_IN(map_merge)
{
Map* m1 = ARGM("$map1", Map, ctx);
Map* m2 = ARGM("$map2", Map, ctx);
size_t len = m1->length() + m2->length();
Map* result = new (ctx.mem) Map(pstate, len);
*result += m1;
*result += m2;
return result;
}
Signature map_remove_sig = "map-remove($map, $keys...)";
BUILT_IN(map_remove)
{
bool remove;
Map* m = ARGM("$map", Map, ctx);
List* arglist = ARG("$keys", List);
Map* result = new (ctx.mem) Map(pstate, 1);
for (auto key : m->keys()) {
remove = false;
for (size_t j = 0, K = arglist->length(); j < K && !remove; ++j) {
remove = eq(key, arglist->value_at_index(j), ctx);
}
if (!remove) *result << make_pair(key, m->at(key));
}
return result;
}
Signature keywords_sig = "keywords($args)";
BUILT_IN(keywords)
{
List* arglist = new (ctx.mem) List(*ARG("$args", List));
Map* result = new (ctx.mem) Map(pstate, 1);
for (size_t i = arglist->size(), L = arglist->length(); i < L; ++i) {
string name = string(((Argument*)(*arglist)[i])->name());
name = name.erase(0, 1); // sanitize name (remove dollar sign)
*result << make_pair(new (ctx.mem) String_Constant(pstate, name),
((Argument*)(*arglist)[i])->value());
}
return result;
}
//////////////////////////
// INTROSPECTION FUNCTIONS
//////////////////////////
Signature type_of_sig = "type-of($value)";
BUILT_IN(type_of)
{
Expression* v = ARG("$value", Expression);
if (v->concrete_type() == Expression::STRING) {
To_String to_string(&ctx);
string str(v->perform(&to_string));
if (ctx.names_to_colors.count(str)) {
return new (ctx.mem) String_Constant(pstate, "color");
}
}
return new (ctx.mem) String_Constant(pstate, ARG("$value", Expression)->type());
}
Signature unit_sig = "unit($number)";
BUILT_IN(unit)
{ return new (ctx.mem) String_Quoted(pstate, quote(ARG("$number", Number)->unit(), '"')); }
Signature unitless_sig = "unitless($number)";
BUILT_IN(unitless)
{ return new (ctx.mem) Boolean(pstate, ARG("$number", Number)->is_unitless()); }
Signature comparable_sig = "comparable($number-1, $number-2)";
BUILT_IN(comparable)
{
Number* n1 = ARG("$number-1", Number);
Number* n2 = ARG("$number-2", Number);
if (n1->is_unitless() || n2->is_unitless()) {
return new (ctx.mem) Boolean(pstate, true);
}
Number tmp_n2(*n2);
tmp_n2.normalize(n1->find_convertible_unit());
return new (ctx.mem) Boolean(pstate, n1->unit() == tmp_n2.unit());
}
Signature variable_exists_sig = "variable-exists($name)";
BUILT_IN(variable_exists)
{
string s = Util::normalize_underscores(unquote(ARG("$name", String_Constant)->value()));
if(d_env.has("$"+s)) {
return new (ctx.mem) Boolean(pstate, true);
}
else {
return new (ctx.mem) Boolean(pstate, false);
}
}
Signature global_variable_exists_sig = "global-variable-exists($name)";
BUILT_IN(global_variable_exists)
{
string s = Util::normalize_underscores(unquote(ARG("$name", String_Constant)->value()));
if(d_env.has_global("$"+s)) {
return new (ctx.mem) Boolean(pstate, true);
}
else {
return new (ctx.mem) Boolean(pstate, false);
}
}
Signature function_exists_sig = "function-exists($name)";
BUILT_IN(function_exists)
{
string s = Util::normalize_underscores(unquote(ARG("$name", String_Constant)->value()));
if(d_env.has_global(s+"[f]")) {
return new (ctx.mem) Boolean(pstate, true);
}
else {
return new (ctx.mem) Boolean(pstate, false);
}
}
Signature mixin_exists_sig = "mixin-exists($name)";
BUILT_IN(mixin_exists)
{
string s = Util::normalize_underscores(unquote(ARG("$name", String_Constant)->value()));
if(d_env.has_global(s+"[m]")) {
return new (ctx.mem) Boolean(pstate, true);
}
else {
return new (ctx.mem) Boolean(pstate, false);
}
}
Signature feature_exists_sig = "feature-exists($name)";
BUILT_IN(feature_exists)
{
string s = unquote(ARG("$name", String_Constant)->value());
if(features.find(s) == features.end()) {
return new (ctx.mem) Boolean(pstate, false);
}
else {
return new (ctx.mem) Boolean(pstate, true);
}
}
Signature call_sig = "call($name, $args...)";
BUILT_IN(call)
{
string name = Util::normalize_underscores(unquote(ARG("$name", String_Constant)->value()));
List* arglist = new (ctx.mem) List(*ARG("$args", List));
Arguments* args = new (ctx.mem) Arguments(pstate);
for (size_t i = 0, L = arglist->length(); i < L; ++i) {
Expression* expr = arglist->value_at_index(i);
if (arglist->is_arglist()) {
Argument* arg = static_cast<Argument*>((*arglist)[i]);
*args << new (ctx.mem) Argument(pstate,
expr,
"",
arg->is_rest_argument(),
arg->is_keyword_argument());
} else {
*args << new (ctx.mem) Argument(pstate, expr);
}
}
Function_Call* func = new (ctx.mem) Function_Call(pstate, name, args);
Contextualize contextualize(ctx, &d_env, backtrace);
Listize listize(ctx);
Eval eval(ctx, &contextualize, &listize, &d_env, backtrace);
return func->perform(&eval);
}
////////////////////
// BOOLEAN FUNCTIONS
////////////////////
Signature not_sig = "not($value)";
BUILT_IN(sass_not)
{ return new (ctx.mem) Boolean(pstate, ARG("$value", Expression)->is_false()); }
Signature if_sig = "if($condition, $if-true, $if-false)";
// BUILT_IN(sass_if)
// { return ARG("$condition", Expression)->is_false() ? ARG("$if-false", Expression) : ARG("$if-true", Expression); }
BUILT_IN(sass_if)
{
Contextualize contextualize(ctx, &d_env, backtrace);
Listize listize(ctx);
Eval eval(ctx, &contextualize, &listize, &d_env, backtrace);
bool is_true = !ARG("$condition", Expression)->perform(&eval)->is_false();
if (is_true) {
return ARG("$if-true", Expression)->perform(&eval);
}
else {
return ARG("$if-false", Expression)->perform(&eval);
}
}
////////////////
// URL FUNCTIONS
////////////////
Signature image_url_sig = "image-url($path, $only-path: false, $cache-buster: false)";
BUILT_IN(image_url)
{
error("`image_url` has been removed from libsass because it's not part of the Sass spec", pstate);
return 0; // suppress warning, error will exit anyway
}
//////////////////////////
// MISCELLANEOUS FUNCTIONS
//////////////////////////
Signature inspect_sig = "inspect($value)";
BUILT_IN(inspect)
{
Expression* v = ARG("$value", Expression);
if (v->concrete_type() == Expression::NULL_VAL) {
return new (ctx.mem) String_Constant(pstate, "null");
} else if (v->concrete_type() == Expression::BOOLEAN && *v == 0) {
return new (ctx.mem) String_Constant(pstate, "false");
} else if (v->concrete_type() == Expression::STRING) {
return v;
} else {
bool parentheses = v->concrete_type() == Expression::MAP ||
v->concrete_type() == Expression::LIST;
Output_Style old_style;
old_style = ctx.output_style;
ctx.output_style = NESTED;
To_String to_string(&ctx, false);
string inspect = v->perform(&to_string);
if (inspect.empty() && parentheses) inspect = "()";
ctx.output_style = old_style;
return new (ctx.mem) String_Constant(pstate, inspect);
}
// return v;
}
Signature is_superselector_sig = "is-superselector($super, $sub)";
BUILT_IN(is_superselector)
{
To_String to_string(&ctx, false);
Expression* ex_sup = ARG("$super", Expression);
Expression* ex_sub = ARG("$sub", Expression);
string sup_src = ex_sup->perform(&to_string) + "{";
string sub_src = ex_sub->perform(&to_string) + "{";
Selector_List* sel_sup = Parser::parse_selector(sup_src.c_str(), ctx);
Selector_List* sel_sub = Parser::parse_selector(sub_src.c_str(), ctx);
bool result = sel_sup->is_superselector_of(sel_sub);
return new (ctx.mem) Boolean(pstate, result);
}
Signature unique_id_sig = "unique-id()";
BUILT_IN(unique_id)
{
std::stringstream ss;
uniform_real_distribution<> distributor(0, 4294967296); // 16^8
uint_fast32_t distributed = static_cast<uint_fast32_t>(distributor(rand));
ss << "u" << setfill('0') << setw(8) << std::hex << distributed;
return new (ctx.mem) String_Constant(pstate, ss.str());
}
}
}