hlibsass-0.1.2.0: libsass/inspect.cpp
#include <cmath>
#include <string>
#include <iostream>
#include <iomanip>
#include <stdint.h>
#include <stdint.h>
#include "ast.hpp"
#include "inspect.hpp"
#include "context.hpp"
#include "utf8/checked.h"
namespace Sass {
using namespace std;
Inspect::Inspect(Emitter emi)
: Emitter(emi)
{ }
Inspect::~Inspect() { }
// statements
void Inspect::operator()(Block* block)
{
if (!block->is_root()) {
add_open_mapping(block);
append_scope_opener();
}
if (output_style() == NESTED) indentation += block->tabs();
for (size_t i = 0, L = block->length(); i < L; ++i) {
(*block)[i]->perform(this);
}
if (output_style() == NESTED) indentation -= block->tabs();
if (!block->is_root()) {
append_scope_closer();
add_close_mapping(block);
}
}
void Inspect::operator()(Ruleset* ruleset)
{
ruleset->selector()->perform(this);
ruleset->block()->perform(this);
}
void Inspect::operator()(Keyframe_Rule* rule)
{
if (rule->selector()) rule->selector()->perform(this);
if (rule->block()) rule->block()->perform(this);
}
void Inspect::operator()(Propset* propset)
{
propset->property_fragment()->perform(this);
append_colon_separator();
propset->block()->perform(this);
}
void Inspect::operator()(Bubble* bubble)
{
append_indentation();
append_token("::BUBBLE", bubble);
append_scope_opener();
bubble->node()->perform(this);
append_scope_closer();
}
void Inspect::operator()(Media_Block* media_block)
{
append_indentation();
append_token("@media", media_block);
append_mandatory_space();
in_media_block = true;
media_block->media_queries()->perform(this);
in_media_block = false;
media_block->block()->perform(this);
}
void Inspect::operator()(Feature_Block* feature_block)
{
append_indentation();
append_token("@supports", feature_block);
append_mandatory_space();
feature_block->feature_queries()->perform(this);
feature_block->block()->perform(this);
}
void Inspect::operator()(At_Root_Block* at_root_block)
{
append_indentation();
append_token("@at-root ", at_root_block);
append_mandatory_space();
if(at_root_block->expression()) at_root_block->expression()->perform(this);
at_root_block->block()->perform(this);
}
void Inspect::operator()(At_Rule* at_rule)
{
append_indentation();
append_token(at_rule->keyword(), at_rule);
if (at_rule->selector()) {
append_mandatory_space();
bool was_wrapped = in_wrapped;
in_wrapped = true;
at_rule->selector()->perform(this);
in_wrapped = was_wrapped;
}
if (at_rule->block()) {
at_rule->block()->perform(this);
}
else {
append_delimiter();
}
}
void Inspect::operator()(Declaration* dec)
{
if (dec->value()->concrete_type() == Expression::NULL_VAL) return;
bool was_decl = in_declaration;
in_declaration = true;
if (output_style() == NESTED)
indentation += dec->tabs();
append_indentation();
dec->property()->perform(this);
append_colon_separator();
dec->value()->perform(this);
if (dec->is_important()) {
append_optional_space();
append_string("!important");
}
append_delimiter();
if (output_style() == NESTED)
indentation -= dec->tabs();
in_declaration = was_decl;
}
void Inspect::operator()(Assignment* assn)
{
append_token(assn->variable(), assn);
append_colon_separator();
assn->value()->perform(this);
if (assn->is_default()) {
append_optional_space();
append_string("!default");
}
append_delimiter();
}
void Inspect::operator()(Import* import)
{
if (!import->urls().empty()) {
append_token("@import", import);
append_mandatory_space();
if (String_Quoted* strq = dynamic_cast<String_Quoted*>(import->urls().front())) {
strq->is_delayed(false);
}
import->urls().front()->perform(this);
append_delimiter();
for (size_t i = 1, S = import->urls().size(); i < S; ++i) {
append_mandatory_linefeed();
append_token("@import", import);
append_mandatory_space();
if (String_Quoted* strq = dynamic_cast<String_Quoted*>(import->urls()[i])) {
strq->is_delayed(false);
}
import->urls()[i]->perform(this);
append_delimiter();
}
}
}
void Inspect::operator()(Import_Stub* import)
{
append_indentation();
append_token("@import", import);
append_mandatory_space();
append_string(import->file_name());
append_delimiter();
}
void Inspect::operator()(Warning* warning)
{
append_indentation();
append_token("@warn", warning);
append_mandatory_space();
warning->message()->perform(this);
append_delimiter();
}
void Inspect::operator()(Error* error)
{
append_indentation();
append_token("@error", error);
append_mandatory_space();
error->message()->perform(this);
append_delimiter();
}
void Inspect::operator()(Debug* debug)
{
append_indentation();
append_token("@debug", debug);
append_mandatory_space();
debug->value()->perform(this);
append_delimiter();
}
void Inspect::operator()(Comment* comment)
{
in_comment = true;
comment->text()->perform(this);
in_comment = false;
}
void Inspect::operator()(If* cond)
{
append_indentation();
append_token("@if", cond);
append_mandatory_space();
cond->predicate()->perform(this);
cond->consequent()->perform(this);
if (cond->alternative()) {
append_optional_linefeed();
append_indentation();
append_string("else");
cond->alternative()->perform(this);
}
}
void Inspect::operator()(For* loop)
{
append_indentation();
append_token("@for", loop);
append_mandatory_space();
append_string(loop->variable());
append_string(" from ");
loop->lower_bound()->perform(this);
append_string(loop->is_inclusive() ? " through " : " to ");
loop->upper_bound()->perform(this);
loop->block()->perform(this);
}
void Inspect::operator()(Each* loop)
{
append_indentation();
append_token("@each", loop);
append_mandatory_space();
append_string(loop->variables()[0]);
for (size_t i = 1, L = loop->variables().size(); i < L; ++i) {
append_comma_separator();
append_string(loop->variables()[i]);
}
append_string(" in ");
loop->list()->perform(this);
loop->block()->perform(this);
}
void Inspect::operator()(While* loop)
{
append_indentation();
append_token("@while", loop);
append_mandatory_space();
loop->predicate()->perform(this);
loop->block()->perform(this);
}
void Inspect::operator()(Return* ret)
{
append_indentation();
append_token("@return", ret);
append_mandatory_space();
ret->value()->perform(this);
append_delimiter();
}
void Inspect::operator()(Extension* extend)
{
append_indentation();
append_token("@extend", extend);
append_mandatory_space();
extend->selector()->perform(this);
append_delimiter();
}
void Inspect::operator()(Definition* def)
{
append_indentation();
if (def->type() == Definition::MIXIN) {
append_token("@mixin", def);
append_mandatory_space();
} else {
append_token("@function", def);
append_mandatory_space();
}
append_string(def->name());
def->parameters()->perform(this);
def->block()->perform(this);
}
void Inspect::operator()(Mixin_Call* call)
{
append_indentation();
append_token("@include", call);
append_mandatory_space();
append_string(call->name());
if (call->arguments()) {
call->arguments()->perform(this);
}
if (call->block()) {
append_optional_space();
call->block()->perform(this);
}
if (!call->block()) append_delimiter();
}
void Inspect::operator()(Content* content)
{
append_indentation();
append_token("@content", content);
append_delimiter();
}
void Inspect::operator()(Map* map)
{
if (map->empty()) return;
if (map->is_invisible()) return;
bool items_output = false;
append_string("(");
for (auto key : map->keys()) {
if (key->is_invisible()) continue;
if (map->at(key)->is_invisible()) continue;
if (items_output) append_comma_separator();
key->perform(this);
append_colon_separator();
map->at(key)->perform(this);
items_output = true;
}
append_string(")");
}
void Inspect::operator()(List* list)
{
string sep(list->separator() == List::SPACE ? " " : ",");
if (output_style() != COMPRESSED && sep == ",") sep += " ";
else if (in_media_block && sep != " ") sep += " "; // verified
if (list->empty()) return;
bool items_output = false;
bool was_space_array = in_space_array;
bool was_comma_array = in_comma_array;
if (!in_declaration && (
(list->separator() == List::SPACE && in_space_array) ||
(list->separator() == List::COMMA && in_comma_array)
)) {
append_string("(");
}
if (list->separator() == List::SPACE) in_space_array = true;
else if (list->separator() == List::COMMA) in_comma_array = true;
for (size_t i = 0, L = list->size(); i < L; ++i) {
Expression* list_item = (*list)[i];
if (list_item->is_invisible()) {
continue;
}
if (items_output) {
append_string(sep);
}
if (items_output && sep != " ")
append_optional_space();
list_item->perform(this);
items_output = true;
}
in_comma_array = was_comma_array;
in_space_array = was_space_array;
if (!in_declaration && (
(list->separator() == List::SPACE && in_space_array) ||
(list->separator() == List::COMMA && in_comma_array)
)) {
append_string(")");
}
}
void Inspect::operator()(Binary_Expression* expr)
{
expr->left()->perform(this);
switch (expr->type()) {
case Binary_Expression::AND: append_string(" and "); break;
case Binary_Expression::OR: append_string(" or "); break;
case Binary_Expression::EQ: append_string(" == "); break;
case Binary_Expression::NEQ: append_string(" != "); break;
case Binary_Expression::GT: append_string(" > "); break;
case Binary_Expression::GTE: append_string(" >= "); break;
case Binary_Expression::LT: append_string(" < "); break;
case Binary_Expression::LTE: append_string(" <= "); break;
case Binary_Expression::ADD: append_string(" + "); break;
case Binary_Expression::SUB: append_string(" - "); break;
case Binary_Expression::MUL: append_string(" * "); break;
case Binary_Expression::DIV: append_string("/"); break;
case Binary_Expression::MOD: append_string(" % "); break;
default: break; // shouldn't get here
}
expr->right()->perform(this);
}
void Inspect::operator()(Unary_Expression* expr)
{
if (expr->type() == Unary_Expression::PLUS) append_string("+");
else append_string("-");
expr->operand()->perform(this);
}
void Inspect::operator()(Function_Call* call)
{
append_token(call->name(), call);
call->arguments()->perform(this);
}
void Inspect::operator()(Function_Call_Schema* call)
{
call->name()->perform(this);
call->arguments()->perform(this);
}
void Inspect::operator()(Variable* var)
{
append_token(var->name(), var);
}
void Inspect::operator()(Textual* txt)
{
append_token(txt->value(), txt);
}
void Inspect::operator()(Number* n)
{
string res;
// init stuff
n->normalize();
int precision = 5;
double value = n->value();
// get option from optional context
if (ctx) precision = ctx->precision;
// check if the fractional part of the value equals to zero
// neat trick from http://stackoverflow.com/a/1521682/1550314
// double int_part; bool is_int = modf(value, &int_part) == 0.0;
// this all cannot be done with one run only, since fixed
// output differs from normal output and regular output
// can contain scientific notation which we do not want!
// first sample
stringstream ss;
ss.precision(12);
ss << value;
// check if we got scientific notation in result
if (ss.str().find_first_of("e") != string::npos) {
ss.clear(); ss.str(string());
ss.precision(max(12, precision));
ss << fixed << value;
}
string tmp = ss.str();
size_t pos_point = tmp.find_first_of(".,");
size_t pos_fract = tmp.find_last_not_of("0");
bool is_int = pos_point == pos_fract ||
pos_point == string::npos;
// reset stream for another run
ss.clear(); ss.str(string());
// take a shortcut for integers
if (is_int)
{
ss.precision(0);
ss << fixed << value;
res = string(ss.str());
}
// process floats
else
{
// do we have have too much precision?
if (pos_fract < precision + pos_point)
{ precision = pos_fract - pos_point; }
// round value again
ss.precision(precision);
ss << fixed << value;
res = string(ss.str());
// maybe we truncated up to decimal point
size_t pos = res.find_last_not_of("0");
bool at_dec_point = res[pos] == '.' ||
res[pos] == ',';
// don't leave a blank point
if (at_dec_point) ++ pos;
res.resize (pos + 1);
}
// some final cosmetics
if (res == "-0.0") res.erase(0, 1);
else if (res == "-0") res.erase(0, 1);
// add unit now
res += n->unit();
// check for a valid unit here
// includes result for reporting
if (n->numerator_units().size() > 1 ||
n->denominator_units().size() > 0 ||
(n->numerator_units().size() && n->numerator_units()[0].find_first_of('/') != string::npos) ||
(n->numerator_units().size() && n->numerator_units()[0].find_first_of('*') != string::npos)
) {
error(res + " isn't a valid CSS value.", n->pstate());
}
// output the final token
append_token(res, n);
}
// helper function for serializing colors
template <size_t range>
static double cap_channel(double c) {
if (c > range) return range;
else if (c < 0) return 0;
else return c;
}
void Inspect::operator()(Color* c)
{
stringstream ss;
// check if we prefer short hex colors
bool want_short = output_style() == COMPRESSED;
// original color name
// maybe an unknown token
string name = c->disp();
// resolved color
string res_name = name;
double r = round(cap_channel<0xff>(c->r()));
double g = round(cap_channel<0xff>(c->g()));
double b = round(cap_channel<0xff>(c->b()));
double a = cap_channel<1> (c->a());
// get color from given name (if one was given at all)
if (name != "" && ctx && ctx->names_to_colors.count(name)) {
Color* n = ctx->names_to_colors[name];
r = round(cap_channel<0xff>(n->r()));
g = round(cap_channel<0xff>(n->g()));
b = round(cap_channel<0xff>(n->b()));
a = cap_channel<1> (n->a());
}
// otherwise get the possible resolved color name
else {
int numval = static_cast<int>(r) * 0x10000 + static_cast<int>(g) * 0x100 + static_cast<int>(b);
if (ctx && ctx->colors_to_names.count(numval))
res_name = ctx->colors_to_names[numval];
}
stringstream hexlet;
hexlet << '#' << setw(1) << setfill('0');
// create a short color hexlet if there is any need for it
if (want_short && is_color_doublet(r, g, b) && a == 1) {
hexlet << hex << setw(1) << (static_cast<unsigned long>(r) >> 4);
hexlet << hex << setw(1) << (static_cast<unsigned long>(g) >> 4);
hexlet << hex << setw(1) << (static_cast<unsigned long>(b) >> 4);
} else {
hexlet << hex << setw(2) << static_cast<unsigned long>(r);
hexlet << hex << setw(2) << static_cast<unsigned long>(g);
hexlet << hex << setw(2) << static_cast<unsigned long>(b);
}
// retain the originally specified color definition if unchanged
if (name != "") {
ss << name;
}
else if (r == 0 && g == 0 && b == 0 && a == 0) {
ss << "transparent";
}
else if (a >= 1) {
if (res_name != "") {
if (want_short && hexlet.str().size() < res_name.size()) {
ss << hexlet.str();
} else {
ss << res_name;
}
}
else {
ss << hexlet.str();
}
}
else {
ss << "rgba(";
ss << static_cast<unsigned long>(r) << ",";
if (output_style() != COMPRESSED) ss << " ";
ss << static_cast<unsigned long>(g) << ",";
if (output_style() != COMPRESSED) ss << " ";
ss << static_cast<unsigned long>(b) << ",";
if (output_style() != COMPRESSED) ss << " ";
ss << a << ')';
}
append_token(ss.str(), c);
}
void Inspect::operator()(Boolean* b)
{
append_token(b->value() ? "true" : "false", b);
}
void Inspect::operator()(String_Schema* ss)
{
// Evaluation should turn these into String_Constants, so this method is
// only for inspection purposes.
for (size_t i = 0, L = ss->length(); i < L; ++i) {
if ((*ss)[i]->is_interpolant()) append_string("#{");
(*ss)[i]->perform(this);
if ((*ss)[i]->is_interpolant()) append_string("}");
}
}
void Inspect::operator()(String_Constant* s)
{
if (String_Quoted* quoted = dynamic_cast<String_Quoted*>(s)) {
return Inspect::operator()(quoted);
}
append_token(s->value(), s);
}
void Inspect::operator()(String_Quoted* s)
{
if (s->quote_mark()) {
append_token(quote(s->value(), s->quote_mark(), true), s);
} else {
append_token(s->value(), s);
}
}
void Inspect::operator()(Feature_Query* fq)
{
size_t i = 0;
(*fq)[i++]->perform(this);
for (size_t L = fq->length(); i < L; ++i) {
(*fq)[i]->perform(this);
}
}
void Inspect::operator()(Feature_Query_Condition* fqc)
{
if (fqc->operand() == Feature_Query_Condition::AND) {
append_mandatory_space();
append_token("and", fqc);
append_mandatory_space();
} else if (fqc->operand() == Feature_Query_Condition::OR) {
append_mandatory_space();
append_token("or", fqc);
append_mandatory_space();
} else if (fqc->operand() == Feature_Query_Condition::NOT) {
append_mandatory_space();
append_token("not", fqc);
append_mandatory_space();
}
if (!fqc->is_root()) append_string("(");
if (!fqc->length()) {
fqc->feature()->perform(this);
append_string(": "); // verified
fqc->value()->perform(this);
}
for (size_t i = 0, L = fqc->length(); i < L; ++i)
(*fqc)[i]->perform(this);
if (!fqc->is_root()) append_string(")");
}
void Inspect::operator()(Media_Query* mq)
{
size_t i = 0;
if (mq->media_type()) {
if (mq->is_negated()) append_string("not ");
else if (mq->is_restricted()) append_string("only ");
mq->media_type()->perform(this);
}
else {
(*mq)[i++]->perform(this);
}
for (size_t L = mq->length(); i < L; ++i) {
append_string(" and ");
(*mq)[i]->perform(this);
}
}
void Inspect::operator()(Media_Query_Expression* mqe)
{
if (mqe->is_interpolated()) {
mqe->feature()->perform(this);
}
else {
append_string("(");
mqe->feature()->perform(this);
if (mqe->value()) {
append_string(": "); // verified
mqe->value()->perform(this);
}
append_string(")");
}
}
void Inspect::operator()(At_Root_Expression* ae)
{
if (ae->is_interpolated()) {
ae->feature()->perform(this);
}
else {
append_string("(");
ae->feature()->perform(this);
if (ae->value()) {
append_colon_separator();
ae->value()->perform(this);
}
append_string(")");
}
}
void Inspect::operator()(Null* n)
{
append_token("null", n);
}
void Inspect::operator()(Parent_Selector* p)
{
if (p->selector()) {
p->selector()->perform(this);
append_delimiter();
}
else {
append_string("&");
}
}
// parameters and arguments
void Inspect::operator()(Parameter* p)
{
append_token(p->name(), p);
if (p->default_value()) {
append_colon_separator();
p->default_value()->perform(this);
}
else if (p->is_rest_parameter()) {
append_string("...");
}
}
void Inspect::operator()(Parameters* p)
{
append_string("(");
if (!p->empty()) {
(*p)[0]->perform(this);
for (size_t i = 1, L = p->length(); i < L; ++i) {
append_comma_separator();
(*p)[i]->perform(this);
}
}
append_string(")");
}
void Inspect::operator()(Argument* a)
{
if (!a->name().empty()) {
append_token(a->name(), a);
append_colon_separator();
}
// Special case: argument nulls can be ignored
if (a->value()->concrete_type() == Expression::NULL_VAL) {
return;
}
if (a->value()->concrete_type() == Expression::STRING) {
String_Constant* s = static_cast<String_Constant*>(a->value());
s->perform(this);
} else a->value()->perform(this);
if (a->is_rest_argument()) {
append_string("...");
}
}
void Inspect::operator()(Arguments* a)
{
append_string("(");
if (!a->empty()) {
(*a)[0]->perform(this);
for (size_t i = 1, L = a->length(); i < L; ++i) {
append_string(", "); // verified
// Sass Bug? append_comma_separator();
(*a)[i]->perform(this);
}
}
append_string(")");
}
void Inspect::operator()(Selector_Schema* s)
{
s->contents()->perform(this);
}
void Inspect::operator()(Selector_Reference* ref)
{
if (ref->selector()) ref->selector()->perform(this);
else append_string("&");
}
void Inspect::operator()(Selector_Placeholder* s)
{
append_token(s->name(), s);
if (s->has_line_break()) append_optional_linefeed();
if (s->has_line_break()) append_indentation();
}
void Inspect::operator()(Type_Selector* s)
{
append_token(s->name(), s);
}
void Inspect::operator()(Selector_Qualifier* s)
{
append_token(s->name(), s);
if (s->has_line_break()) append_optional_linefeed();
if (s->has_line_break()) append_indentation();
}
void Inspect::operator()(Attribute_Selector* s)
{
append_string("[");
add_open_mapping(s);
append_token(s->name(), s);
if (!s->matcher().empty()) {
append_string(s->matcher());
if (s->value()) {
s->value()->perform(this);
}
}
add_close_mapping(s);
append_string("]");
}
void Inspect::operator()(Pseudo_Selector* s)
{
append_token(s->name(), s);
if (s->expression()) {
s->expression()->perform(this);
append_string(")");
}
}
void Inspect::operator()(Wrapped_Selector* s)
{
bool was = in_wrapped;
in_wrapped = true;
append_token(s->name(), s);
s->selector()->perform(this);
append_string(")");
in_wrapped = was;
}
void Inspect::operator()(Compound_Selector* s)
{
for (size_t i = 0, L = s->length(); i < L; ++i) {
(*s)[i]->perform(this);
}
if (s->has_line_break()) {
append_optional_linefeed();
}
}
void Inspect::operator()(Complex_Selector* c)
{
Compound_Selector* head = c->head();
Complex_Selector* tail = c->tail();
Complex_Selector::Combinator comb = c->combinator();
if (head && !head->is_empty_reference()) head->perform(this);
bool is_empty = head && head->is_empty_reference();
bool is_tail = head && !head->is_empty_reference() && tail;
if (output_style() == COMPRESSED && comb != Complex_Selector::ANCESTOR_OF) scheduled_space = 0;
switch (comb) {
case Complex_Selector::ANCESTOR_OF:
if (is_tail) append_mandatory_space();
break;
case Complex_Selector::PARENT_OF:
append_optional_space();
append_string(">");
append_optional_space();
break;
case Complex_Selector::ADJACENT_TO:
append_optional_space();
append_string("+");
append_optional_space();
break;
case Complex_Selector::PRECEDES:
if (is_empty) append_optional_space();
else append_mandatory_space();
append_string("~");
if (tail) append_mandatory_space();
else append_optional_space();
break;
}
if (tail && comb != Complex_Selector::ANCESTOR_OF) {
if (c->has_line_break()) append_optional_linefeed();
}
if (tail) tail->perform(this);
}
void Inspect::operator()(Selector_List* g)
{
if (g->empty()) return;
for (size_t i = 0, L = g->length(); i < L; ++i) {
if (!in_wrapped && i == 0) append_indentation();
(*g)[i]->perform(this);
if (i < L - 1) {
append_comma_separator();
if ((*g)[i]->has_line_feed()) {
append_optional_linefeed();
append_indentation();
}
}
}
}
void Inspect::fallback_impl(AST_Node* n)
{
}
}