www.aleph1.co.uk Git - yaffs-website/blob - node_modules/node-sass/src/libsass/src/debugger.hpp

   1 #ifndef SASS_DEBUGGER_H
   2 #define SASS_DEBUGGER_H
   3
   4 #include <string>
   5 #include <sstream>
   6 #include "node.hpp"
   7 #include "ast_fwd_decl.hpp"
   8
   9 using namespace Sass;
  10
  11 inline void debug_ast(AST_Node_Ptr node, std::string ind = "", Env* env = 0);
  12
  13 inline void debug_ast(const AST_Node* node, std::string ind = "", Env* env = 0) {
  14   debug_ast(const_cast<AST_Node*>(node), ind, env);
  15 }
  16
  17 inline void debug_sources_set(ComplexSelectorSet& set, std::string ind = "")
  18 {
  19   if (ind == "") std::cerr << "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n";
  20   for(auto const &pair : set) {
  21     debug_ast(pair, ind + "");
  22     // debug_ast(set[pair], ind + "first: ");
  23   }
  24   if (ind == "") std::cerr << "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n";
  25 }
  26
  27 inline std::string str_replace(std::string str, const std::string& oldStr, const std::string& newStr)
  28 {
  29   size_t pos = 0;
  30   while((pos = str.find(oldStr, pos)) != std::string::npos)
  31   {
  32      str.replace(pos, oldStr.length(), newStr);
  33      pos += newStr.length();
  34   }
  35   return str;
  36 }
  37
  38 inline std::string prettyprint(const std::string& str) {
  39   std::string clean = str_replace(str, "\n", "\\n");
  40   clean = str_replace(clean, "  ", "\\t");
  41   clean = str_replace(clean, "\r", "\\r");
  42   return clean;
  43 }
  44
  45 inline std::string longToHex(long long t) {
  46   std::stringstream is;
  47   is << std::hex << t;
  48   return is.str();
  49 }
  50
  51 inline std::string pstate_source_position(AST_Node_Ptr node)
  52 {
  53   std::stringstream str;
  54   Position start(node->pstate());
  55   Position end(start + node->pstate().offset);
  56   str << (start.file == std::string::npos ? -1 : start.file)
  57     << "@[" << start.line << ":" << start.column << "]"
  58     << "-[" << end.line << ":" << end.column << "]";
  59 #ifdef DEBUG_SHARED_PTR
  60       str << "x" << node->getRefCount() << ""
  61       << " " << node->getDbgFile()
  62       << "@" << node->getDbgLine();
  63 #endif
  64   return str.str();
  65 }
  66
  67 inline void debug_ast(AST_Node_Ptr node, std::string ind, Env* env)
  68 {
  69   if (node == 0) return;
  70   if (ind == "") std::cerr << "####################################################################\n";
  71   if (Cast<Bubble>(node)) {
  72     Bubble_Ptr bubble = Cast<Bubble>(node);
  73     std::cerr << ind << "Bubble " << bubble;
  74     std::cerr << " (" << pstate_source_position(node) << ")";
  75     std::cerr << " " << bubble->tabs();
  76     std::cerr << std::endl;
  77     debug_ast(bubble->node(), ind + " ", env);
  78   } else if (Cast<Trace>(node)) {
  79     Trace_Ptr trace = Cast<Trace>(node);
  80     std::cerr << ind << "Trace " << trace;
  81     std::cerr << " (" << pstate_source_position(node) << ")"
  82     << " [name:" << trace->name() << "]"
  83     << std::endl;
  84     debug_ast(trace->block(), ind + " ", env);
  85   } else if (Cast<At_Root_Block>(node)) {
  86     At_Root_Block_Ptr root_block = Cast<At_Root_Block>(node);
  87     std::cerr << ind << "At_Root_Block " << root_block;
  88     std::cerr << " (" << pstate_source_position(node) << ")";
  89     std::cerr << " " << root_block->tabs();
  90     std::cerr << std::endl;
  91     debug_ast(root_block->expression(), ind + ":", env);
  92     debug_ast(root_block->block(), ind + " ", env);
  93   } else if (Cast<Selector_List>(node)) {
  94     Selector_List_Ptr selector = Cast<Selector_List>(node);
  95     std::cerr << ind << "Selector_List " << selector;
  96     std::cerr << " (" << pstate_source_position(node) << ")";
  97     std::cerr << " <" << selector->hash() << ">";
  98     std::cerr << " [@media:" << selector->media_block() << "]";
  99     std::cerr << (selector->is_invisible() ? " [INVISIBLE]": " -");
 100     std::cerr << (selector->has_placeholder() ? " [PLACEHOLDER]": " -");
 101     std::cerr << (selector->is_optional() ? " [is_optional]": " -");
 102     std::cerr << (selector->has_parent_ref() ? " [has-parent]": " -");
 103     std::cerr << (selector->has_line_break() ? " [line-break]": " -");
 104     std::cerr << (selector->has_line_feed() ? " [line-feed]": " -");
 105     std::cerr << std::endl;
 106     debug_ast(selector->schema(), "#{} ");
 107
 108     for(const Complex_Selector_Obj& i : selector->elements()) { debug_ast(i, ind + " ", env); }
 109
 110 //  } else if (Cast<Expression>(node)) {
 111 //    Expression_Ptr expression = Cast<Expression>(node);
 112 //    std::cerr << ind << "Expression " << expression << " " << expression->concrete_type() << std::endl;
 113
 114   } else if (Cast<Parent_Selector>(node)) {
 115     Parent_Selector_Ptr selector = Cast<Parent_Selector>(node);
 116     std::cerr << ind << "Parent_Selector " << selector;
 117 //    if (selector->not_selector()) cerr << " [in_declaration]";
 118     std::cerr << " (" << pstate_source_position(node) << ")";
 119     std::cerr << " <" << selector->hash() << ">";
 120     std::cerr << " [" << (selector->is_real_parent_ref() ? "REAL" : "FAKE") << "]";
 121     std::cerr << " <" << prettyprint(selector->pstate().token.ws_before()) << ">" << std::endl;
 122 //    debug_ast(selector->selector(), ind + "->", env);
 123
 124   } else if (Cast<Complex_Selector>(node)) {
 125     Complex_Selector_Ptr selector = Cast<Complex_Selector>(node);
 126     std::cerr << ind << "Complex_Selector " << selector
 127       << " (" << pstate_source_position(node) << ")"
 128       << " <" << selector->hash() << ">"
 129       << " [length:" << longToHex(selector->length()) << "]"
 130       << " [weight:" << longToHex(selector->specificity()) << "]"
 131       << " [@media:" << selector->media_block() << "]"
 132       << (selector->is_invisible() ? " [INVISIBLE]": " -")
 133       << (selector->has_placeholder() ? " [PLACEHOLDER]": " -")
 134       << (selector->is_optional() ? " [is_optional]": " -")
 135       << (selector->has_parent_ref() ? " [has parent]": " -")
 136       << (selector->has_line_feed() ? " [line-feed]": " -")
 137       << (selector->has_line_break() ? " [line-break]": " -")
 138       << " -- ";
 139       std::string del;
 140       switch (selector->combinator()) {
 141         case Complex_Selector::PARENT_OF:   del = ">"; break;
 142         case Complex_Selector::PRECEDES:    del = "~"; break;
 143         case Complex_Selector::ADJACENT_TO: del = "+"; break;
 144         case Complex_Selector::ANCESTOR_OF: del = " "; break;
 145         case Complex_Selector::REFERENCE:   del = "//"; break;
 146       }
 147       // if (del = "/") del += selector->reference()->perform(&to_string) + "/";
 148     std::cerr << " <" << prettyprint(selector->pstate().token.ws_before()) << ">" << std::endl;
 149     debug_ast(selector->head(), ind + " " /* + "[" + del + "]" */, env);
 150     if (selector->tail()) {
 151       debug_ast(selector->tail(), ind + "{" + del + "}", env);
 152     } else if(del != " ") {
 153       std::cerr << ind << " |" << del << "| {trailing op}" << std::endl;
 154     }
 155     ComplexSelectorSet set = selector->sources();
 156     // debug_sources_set(set, ind + "  @--> ");
 157   } else if (Cast<Compound_Selector>(node)) {
 158     Compound_Selector_Ptr selector = Cast<Compound_Selector>(node);
 159     std::cerr << ind << "Compound_Selector " << selector;
 160     std::cerr << " (" << pstate_source_position(node) << ")";
 161     std::cerr << " <" << selector->hash() << ">";
 162     std::cerr << " [weight:" << longToHex(selector->specificity()) << "]";
 163     std::cerr << " [@media:" << selector->media_block() << "]";
 164     std::cerr << (selector->extended() ? " [extended]": " -");
 165     std::cerr << (selector->is_optional() ? " [is_optional]": " -");
 166     std::cerr << (selector->has_parent_ref() ? " [has-parent]": " -");
 167     std::cerr << (selector->has_line_break() ? " [line-break]": " -");
 168     std::cerr << (selector->has_line_feed() ? " [line-feed]": " -");
 169     std::cerr << " <" << prettyprint(selector->pstate().token.ws_before()) << ">" << std::endl;
 170     for(const Simple_Selector_Obj& i : selector->elements()) { debug_ast(i, ind + " ", env); }
 171   } else if (Cast<Wrapped_Selector>(node)) {
 172     Wrapped_Selector_Ptr selector = Cast<Wrapped_Selector>(node);
 173     std::cerr << ind << "Wrapped_Selector " << selector;
 174     std::cerr << " (" << pstate_source_position(node) << ")";
 175     std::cerr << " <" << selector->hash() << ">";
 176     std::cerr << " <<" << selector->ns_name() << ">>";
 177     std::cerr << (selector->is_optional() ? " [is_optional]": " -");
 178     std::cerr << (selector->has_parent_ref() ? " [has-parent]": " -");
 179     std::cerr << (selector->has_line_break() ? " [line-break]": " -");
 180     std::cerr << (selector->has_line_feed() ? " [line-feed]": " -");
 181     std::cerr << std::endl;
 182     debug_ast(selector->selector(), ind + " () ", env);
 183   } else if (Cast<Pseudo_Selector>(node)) {
 184     Pseudo_Selector_Ptr selector = Cast<Pseudo_Selector>(node);
 185     std::cerr << ind << "Pseudo_Selector " << selector;
 186     std::cerr << " (" << pstate_source_position(node) << ")";
 187     std::cerr << " <" << selector->hash() << ">";
 188     std::cerr << " <<" << selector->ns_name() << ">>";
 189     std::cerr << (selector->is_optional() ? " [is_optional]": " -");
 190     std::cerr << (selector->has_parent_ref() ? " [has-parent]": " -");
 191     std::cerr << (selector->has_line_break() ? " [line-break]": " -");
 192     std::cerr << (selector->has_line_feed() ? " [line-feed]": " -");
 193     std::cerr << std::endl;
 194     debug_ast(selector->expression(), ind + " <= ", env);
 195   } else if (Cast<Attribute_Selector>(node)) {
 196     Attribute_Selector_Ptr selector = Cast<Attribute_Selector>(node);
 197     std::cerr << ind << "Attribute_Selector " << selector;
 198     std::cerr << " (" << pstate_source_position(node) << ")";
 199     std::cerr << " <" << selector->hash() << ">";
 200     std::cerr << " <<" << selector->ns_name() << ">>";
 201     std::cerr << (selector->is_optional() ? " [is_optional]": " -");
 202     std::cerr << (selector->has_parent_ref() ? " [has-parent]": " -");
 203     std::cerr << (selector->has_line_break() ? " [line-break]": " -");
 204     std::cerr << (selector->has_line_feed() ? " [line-feed]": " -");
 205     std::cerr << std::endl;
 206     debug_ast(selector->value(), ind + "[" + selector->matcher() + "] ", env);
 207   } else if (Cast<Class_Selector>(node)) {
 208     Class_Selector_Ptr selector = Cast<Class_Selector>(node);
 209     std::cerr << ind << "Class_Selector " << selector;
 210     std::cerr << " (" << pstate_source_position(node) << ")";
 211     std::cerr << " <" << selector->hash() << ">";
 212     std::cerr << " <<" << selector->ns_name() << ">>";
 213     std::cerr << (selector->is_optional() ? " [is_optional]": " -");
 214     std::cerr << (selector->has_parent_ref() ? " [has-parent]": " -");
 215     std::cerr << (selector->has_line_break() ? " [line-break]": " -");
 216     std::cerr << (selector->has_line_feed() ? " [line-feed]": " -");
 217     std::cerr << std::endl;
 218   } else if (Cast<Id_Selector>(node)) {
 219     Id_Selector_Ptr selector = Cast<Id_Selector>(node);
 220     std::cerr << ind << "Id_Selector " << selector;
 221     std::cerr << " (" << pstate_source_position(node) << ")";
 222     std::cerr << " <" << selector->hash() << ">";
 223     std::cerr << " <<" << selector->ns_name() << ">>";
 224     std::cerr << (selector->is_optional() ? " [is_optional]": " -");
 225     std::cerr << (selector->has_parent_ref() ? " [has-parent]": " -");
 226     std::cerr << (selector->has_line_break() ? " [line-break]": " -");
 227     std::cerr << (selector->has_line_feed() ? " [line-feed]": " -");
 228     std::cerr << std::endl;
 229   } else if (Cast<Element_Selector>(node)) {
 230     Element_Selector_Ptr selector = Cast<Element_Selector>(node);
 231     std::cerr << ind << "Element_Selector " << selector;
 232     std::cerr << " (" << pstate_source_position(node) << ")";
 233     std::cerr << " <" << selector->hash() << ">";
 234     std::cerr << " <<" << selector->ns_name() << ">>";
 235     std::cerr << (selector->is_optional() ? " [is_optional]": " -");
 236     std::cerr << (selector->has_parent_ref() ? " [has-parent]": " -");
 237     std::cerr << (selector->has_line_break() ? " [line-break]": " -");
 238     std::cerr << (selector->has_line_feed() ? " [line-feed]": " -");
 239     std::cerr << " <" << prettyprint(selector->pstate().token.ws_before()) << ">";
 240     std::cerr << std::endl;
 241   } else if (Cast<Placeholder_Selector>(node)) {
 242
 243     Placeholder_Selector_Ptr selector = Cast<Placeholder_Selector>(node);
 244     std::cerr << ind << "Placeholder_Selector [" << selector->ns_name() << "] " << selector;
 245     std::cerr << " (" << pstate_source_position(selector) << ")"
 246       << " <" << selector->hash() << ">"
 247       << " [@media:" << selector->media_block() << "]"
 248       << (selector->is_optional() ? " [is_optional]": " -")
 249       << (selector->has_line_break() ? " [line-break]": " -")
 250       << (selector->has_line_feed() ? " [line-feed]": " -")
 251     << std::endl;
 252
 253   } else if (Cast<Simple_Selector>(node)) {
 254     Simple_Selector* selector = Cast<Simple_Selector>(node);
 255     std::cerr << ind << "Simple_Selector " << selector;
 256     std::cerr << " (" << pstate_source_position(node) << ")";
 257     std::cerr << (selector->has_line_break() ? " [line-break]": " -") << (selector->has_line_feed() ? " [line-feed]": " -") << std::endl;
 258
 259   } else if (Cast<Selector_Schema>(node)) {
 260     Selector_Schema_Ptr selector = Cast<Selector_Schema>(node);
 261     std::cerr << ind << "Selector_Schema " << selector;
 262     std::cerr << " (" << pstate_source_position(node) << ")"
 263       << " [@media:" << selector->media_block() << "]"
 264       << (selector->connect_parent() ? " [connect-parent]": " -")
 265     << std::endl;
 266
 267     debug_ast(selector->contents(), ind + " ");
 268     // for(auto i : selector->elements()) { debug_ast(i, ind + " ", env); }
 269
 270   } else if (Cast<Selector>(node)) {
 271     Selector_Ptr selector = Cast<Selector>(node);
 272     std::cerr << ind << "Selector " << selector;
 273     std::cerr << " (" << pstate_source_position(node) << ")";
 274     std::cerr << (selector->has_line_break() ? " [line-break]": " -")
 275       << (selector->has_line_feed() ? " [line-feed]": " -")
 276     << std::endl;
 277
 278   } else if (Cast<Media_Query_Expression>(node)) {
 279     Media_Query_Expression_Ptr block = Cast<Media_Query_Expression>(node);
 280     std::cerr << ind << "Media_Query_Expression " << block;
 281     std::cerr << " (" << pstate_source_position(node) << ")";
 282     std::cerr << (block->is_interpolated() ? " [is_interpolated]": " -")
 283     << std::endl;
 284     debug_ast(block->feature(), ind + " feature) ");
 285     debug_ast(block->value(), ind + " value) ");
 286
 287   } else if (Cast<Media_Query>(node)) {
 288     Media_Query_Ptr block = Cast<Media_Query>(node);
 289     std::cerr << ind << "Media_Query " << block;
 290     std::cerr << " (" << pstate_source_position(node) << ")";
 291     std::cerr << (block->is_negated() ? " [is_negated]": " -")
 292       << (block->is_restricted() ? " [is_restricted]": " -")
 293     << std::endl;
 294     debug_ast(block->media_type(), ind + " ");
 295     for(const auto& i : block->elements()) { debug_ast(i, ind + " ", env); }
 296
 297   } else if (Cast<Media_Block>(node)) {
 298     Media_Block_Ptr block = Cast<Media_Block>(node);
 299     std::cerr << ind << "Media_Block " << block;
 300     std::cerr << " (" << pstate_source_position(node) << ")";
 301     std::cerr << " " << block->tabs() << std::endl;
 302     debug_ast(block->media_queries(), ind + " =@ ");
 303     if (block->block()) for(const Statement_Obj& i : block->block()->elements()) { debug_ast(i, ind + " ", env); }
 304   } else if (Cast<Supports_Block>(node)) {
 305     Supports_Block_Ptr block = Cast<Supports_Block>(node);
 306     std::cerr << ind << "Supports_Block " << block;
 307     std::cerr << " (" << pstate_source_position(node) << ")";
 308     std::cerr << " " << block->tabs() << std::endl;
 309     debug_ast(block->condition(), ind + " =@ ");
 310     debug_ast(block->block(), ind + " <>");
 311   } else if (Cast<Supports_Operator>(node)) {
 312     Supports_Operator_Ptr block = Cast<Supports_Operator>(node);
 313     std::cerr << ind << "Supports_Operator " << block;
 314     std::cerr << " (" << pstate_source_position(node) << ")"
 315     << std::endl;
 316     debug_ast(block->left(), ind + " left) ");
 317     debug_ast(block->right(), ind + " right) ");
 318   } else if (Cast<Supports_Negation>(node)) {
 319     Supports_Negation_Ptr block = Cast<Supports_Negation>(node);
 320     std::cerr << ind << "Supports_Negation " << block;
 321     std::cerr << " (" << pstate_source_position(node) << ")"
 322     << std::endl;
 323     debug_ast(block->condition(), ind + " condition) ");
 324   } else if (Cast<At_Root_Query>(node)) {
 325     At_Root_Query_Ptr block = Cast<At_Root_Query>(node);
 326     std::cerr << ind << "At_Root_Query " << block;
 327     std::cerr << " (" << pstate_source_position(node) << ")"
 328     << std::endl;
 329     debug_ast(block->feature(), ind + " feature) ");
 330     debug_ast(block->value(), ind + " value) ");
 331   } else if (Cast<Supports_Declaration>(node)) {
 332     Supports_Declaration_Ptr block = Cast<Supports_Declaration>(node);
 333     std::cerr << ind << "Supports_Declaration " << block;
 334     std::cerr << " (" << pstate_source_position(node) << ")"
 335     << std::endl;
 336     debug_ast(block->feature(), ind + " feature) ");
 337     debug_ast(block->value(), ind + " value) ");
 338   } else if (Cast<Block>(node)) {
 339     Block_Ptr root_block = Cast<Block>(node);
 340     std::cerr << ind << "Block " << root_block;
 341     std::cerr << " (" << pstate_source_position(node) << ")";
 342     if (root_block->is_root()) std::cerr << " [root]";
 343     std::cerr << " " << root_block->tabs() << std::endl;
 344     for(const Statement_Obj& i : root_block->elements()) { debug_ast(i, ind + " ", env); }
 345   } else if (Cast<Warning>(node)) {
 346     Warning_Ptr block = Cast<Warning>(node);
 347     std::cerr << ind << "Warning " << block;
 348     std::cerr << " (" << pstate_source_position(node) << ")";
 349     std::cerr << " " << block->tabs() << std::endl;
 350     debug_ast(block->message(), ind + " : ");
 351   } else if (Cast<Error>(node)) {
 352     Error_Ptr block = Cast<Error>(node);
 353     std::cerr << ind << "Error " << block;
 354     std::cerr << " (" << pstate_source_position(node) << ")";
 355     std::cerr << " " << block->tabs() << std::endl;
 356   } else if (Cast<Debug>(node)) {
 357     Debug_Ptr block = Cast<Debug>(node);
 358     std::cerr << ind << "Debug " << block;
 359     std::cerr << " (" << pstate_source_position(node) << ")";
 360     std::cerr << " " << block->tabs() << std::endl;
 361     debug_ast(block->value(), ind + " ");
 362   } else if (Cast<Comment>(node)) {
 363     Comment_Ptr block = Cast<Comment>(node);
 364     std::cerr << ind << "Comment " << block;
 365     std::cerr << " (" << pstate_source_position(node) << ")";
 366     std::cerr << " " << block->tabs() <<
 367       " <" << prettyprint(block->pstate().token.ws_before()) << ">" << std::endl;
 368     debug_ast(block->text(), ind + "// ", env);
 369   } else if (Cast<If>(node)) {
 370     If_Ptr block = Cast<If>(node);
 371     std::cerr << ind << "If " << block;
 372     std::cerr << " (" << pstate_source_position(node) << ")";
 373     std::cerr << " " << block->tabs() << std::endl;
 374     debug_ast(block->predicate(), ind + " = ");
 375     debug_ast(block->block(), ind + " <>");
 376     debug_ast(block->alternative(), ind + " ><");
 377   } else if (Cast<Return>(node)) {
 378     Return_Ptr block = Cast<Return>(node);
 379     std::cerr << ind << "Return " << block;
 380     std::cerr << " (" << pstate_source_position(node) << ")";
 381     std::cerr << " " << block->tabs() << std::endl;
 382   } else if (Cast<Extension>(node)) {
 383     Extension_Ptr block = Cast<Extension>(node);
 384     std::cerr << ind << "Extension " << block;
 385     std::cerr << " (" << pstate_source_position(node) << ")";
 386     std::cerr << " " << block->tabs() << std::endl;
 387     debug_ast(block->selector(), ind + "-> ", env);
 388   } else if (Cast<Content>(node)) {
 389     Content_Ptr block = Cast<Content>(node);
 390     std::cerr << ind << "Content " << block;
 391     std::cerr << " (" << pstate_source_position(node) << ")";
 392     std::cerr << " [@media:" << block->media_block() << "]";
 393     std::cerr << " " << block->tabs() << std::endl;
 394   } else if (Cast<Import_Stub>(node)) {
 395     Import_Stub_Ptr block = Cast<Import_Stub>(node);
 396     std::cerr << ind << "Import_Stub " << block;
 397     std::cerr << " (" << pstate_source_position(node) << ")";
 398     std::cerr << " [" << block->imp_path() << "] ";
 399     std::cerr << " " << block->tabs() << std::endl;
 400   } else if (Cast<Import>(node)) {
 401     Import_Ptr block = Cast<Import>(node);
 402     std::cerr << ind << "Import " << block;
 403     std::cerr << " (" << pstate_source_position(node) << ")";
 404     std::cerr << " " << block->tabs() << std::endl;
 405     // std::vector<std::string>         files_;
 406     for (auto imp : block->urls()) debug_ast(imp, ind + "@: ", env);
 407     debug_ast(block->import_queries(), ind + "@@ ");
 408   } else if (Cast<Assignment>(node)) {
 409     Assignment_Ptr block = Cast<Assignment>(node);
 410     std::cerr << ind << "Assignment " << block;
 411     std::cerr << " (" << pstate_source_position(node) << ")";
 412     std::cerr << " <<" << block->variable() << ">> " << block->tabs() << std::endl;
 413     debug_ast(block->value(), ind + "=", env);
 414   } else if (Cast<Declaration>(node)) {
 415     Declaration_Ptr block = Cast<Declaration>(node);
 416     std::cerr << ind << "Declaration " << block;
 417     std::cerr << " (" << pstate_source_position(node) << ")";
 418     std::cerr << " " << block->tabs() << std::endl;
 419     debug_ast(block->property(), ind + " prop: ", env);
 420     debug_ast(block->value(), ind + " value: ", env);
 421     debug_ast(block->block(), ind + " ", env);
 422   } else if (Cast<Keyframe_Rule>(node)) {
 423     Keyframe_Rule_Ptr has_block = Cast<Keyframe_Rule>(node);
 424     std::cerr << ind << "Keyframe_Rule " << has_block;
 425     std::cerr << " (" << pstate_source_position(node) << ")";
 426     std::cerr << " " << has_block->tabs() << std::endl;
 427     if (has_block->name()) debug_ast(has_block->name(), ind + "@");
 428     if (has_block->block()) for(const Statement_Obj& i : has_block->block()->elements()) { debug_ast(i, ind + " ", env); }
 429   } else if (Cast<Directive>(node)) {
 430     Directive_Ptr block = Cast<Directive>(node);
 431     std::cerr << ind << "Directive " << block;
 432     std::cerr << " (" << pstate_source_position(node) << ")";
 433     std::cerr << " [" << block->keyword() << "] " << block->tabs() << std::endl;
 434     debug_ast(block->selector(), ind + "~", env);
 435     debug_ast(block->value(), ind + "+", env);
 436     if (block->block()) for(const Statement_Obj& i : block->block()->elements()) { debug_ast(i, ind + " ", env); }
 437   } else if (Cast<Each>(node)) {
 438     Each_Ptr block = Cast<Each>(node);
 439     std::cerr << ind << "Each " << block;
 440     std::cerr << " (" << pstate_source_position(node) << ")";
 441     std::cerr << " " << block->tabs() << std::endl;
 442     if (block->block()) for(const Statement_Obj& i : block->block()->elements()) { debug_ast(i, ind + " ", env); }
 443   } else if (Cast<For>(node)) {
 444     For_Ptr block = Cast<For>(node);
 445     std::cerr << ind << "For " << block;
 446     std::cerr << " (" << pstate_source_position(node) << ")";
 447     std::cerr << " " << block->tabs() << std::endl;
 448     if (block->block()) for(const Statement_Obj& i : block->block()->elements()) { debug_ast(i, ind + " ", env); }
 449   } else if (Cast<While>(node)) {
 450     While_Ptr block = Cast<While>(node);
 451     std::cerr << ind << "While " << block;
 452     std::cerr << " (" << pstate_source_position(node) << ")";
 453     std::cerr << " " << block->tabs() << std::endl;
 454     if (block->block()) for(const Statement_Obj& i : block->block()->elements()) { debug_ast(i, ind + " ", env); }
 455   } else if (Cast<Definition>(node)) {
 456     Definition_Ptr block = Cast<Definition>(node);
 457     std::cerr << ind << "Definition " << block;
 458     std::cerr << " (" << pstate_source_position(node) << ")";
 459     std::cerr << " [name: " << block->name() << "] ";
 460     std::cerr << " [type: " << (block->type() == Sass::Definition::Type::MIXIN ? "Mixin " : "Function ") << "] ";
 461     // this seems to lead to segfaults some times?
 462     // std::cerr << " [signature: " << block->signature() << "] ";
 463     std::cerr << " [native: " << block->native_function() << "] ";
 464     std::cerr << " " << block->tabs() << std::endl;
 465     debug_ast(block->parameters(), ind + " params: ", env);
 466     if (block->block()) debug_ast(block->block(), ind + " ", env);
 467   } else if (Cast<Mixin_Call>(node)) {
 468     Mixin_Call_Ptr block = Cast<Mixin_Call>(node);
 469     std::cerr << ind << "Mixin_Call " << block << " " << block->tabs();
 470     std::cerr << " (" << pstate_source_position(block) << ")";
 471     std::cerr << " [" <<  block->name() << "]";
 472     std::cerr << " [has_content: " << block->has_content() << "] " << std::endl;
 473     debug_ast(block->arguments(), ind + " args: ");
 474     if (block->block()) debug_ast(block->block(), ind + " ", env);
 475   } else if (Ruleset_Ptr ruleset = Cast<Ruleset>(node)) {
 476     std::cerr << ind << "Ruleset " << ruleset;
 477     std::cerr << " (" << pstate_source_position(node) << ")";
 478     std::cerr << " [indent: " << ruleset->tabs() << "]";
 479     std::cerr << (ruleset->is_invisible() ? " [INVISIBLE]" : "");
 480     std::cerr << (ruleset->is_root() ? " [root]" : "");
 481     std::cerr << std::endl;
 482     debug_ast(ruleset->selector(), ind + ">");
 483     debug_ast(ruleset->block(), ind + " ");
 484   } else if (Cast<Block>(node)) {
 485     Block_Ptr block = Cast<Block>(node);
 486     std::cerr << ind << "Block " << block;
 487     std::cerr << " (" << pstate_source_position(node) << ")";
 488     std::cerr << (block->is_invisible() ? " [INVISIBLE]" : "");
 489     std::cerr << " [indent: " << block->tabs() << "]" << std::endl;
 490     for(const Statement_Obj& i : block->elements()) { debug_ast(i, ind + " ", env); }
 491   } else if (Cast<Textual>(node)) {
 492     Textual_Ptr expression = Cast<Textual>(node);
 493     std::cerr << ind << "Textual " << expression;
 494     std::cerr << " (" << pstate_source_position(node) << ")";
 495     if (expression->type() == Textual::NUMBER) std::cerr << " [NUMBER]";
 496     else if (expression->type() == Textual::PERCENTAGE) std::cerr << " [PERCENTAGE]";
 497     else if (expression->type() == Textual::DIMENSION) std::cerr << " [DIMENSION]";
 498     else if (expression->type() == Textual::HEX) std::cerr << " [HEX]";
 499     std::cerr << " [" << expression->value() << "]";
 500     std::cerr << " [interpolant: " << expression->is_interpolant() << "] ";
 501     if (expression->is_delayed()) std::cerr << " [delayed]";
 502     std::cerr << std::endl;
 503   } else if (Cast<Variable>(node)) {
 504     Variable_Ptr expression = Cast<Variable>(node);
 505     std::cerr << ind << "Variable " << expression;
 506     std::cerr << " [interpolant: " << expression->is_interpolant() << "] ";
 507     std::cerr << " (" << pstate_source_position(node) << ")";
 508     std::cerr << " [" << expression->name() << "]" << std::endl;
 509     std::string name(expression->name());
 510     if (env && env->has(name)) debug_ast(Cast<Expression>((*env)[name]), ind + " -> ", env);
 511   } else if (Cast<Function_Call_Schema>(node)) {
 512     Function_Call_Schema_Ptr expression = Cast<Function_Call_Schema>(node);
 513     std::cerr << ind << "Function_Call_Schema " << expression;
 514     std::cerr << " [interpolant: " << expression->is_interpolant() << "] ";
 515     std::cerr << " (" << pstate_source_position(node) << ")";
 516     std::cerr << "" << std::endl;
 517     debug_ast(expression->name(), ind + "name: ", env);
 518     debug_ast(expression->arguments(), ind + " args: ", env);
 519   } else if (Cast<Function_Call>(node)) {
 520     Function_Call_Ptr expression = Cast<Function_Call>(node);
 521     std::cerr << ind << "Function_Call " << expression;
 522     std::cerr << " [interpolant: " << expression->is_interpolant() << "] ";
 523     std::cerr << " (" << pstate_source_position(node) << ")";
 524     std::cerr << " [" << expression->name() << "]";
 525     if (expression->is_delayed()) std::cerr << " [delayed]";
 526     if (expression->is_interpolant()) std::cerr << " [interpolant]";
 527     std::cerr << std::endl;
 528     debug_ast(expression->arguments(), ind + " args: ", env);
 529   } else if (Cast<Arguments>(node)) {
 530     Arguments_Ptr expression = Cast<Arguments>(node);
 531     std::cerr << ind << "Arguments " << expression;
 532     if (expression->is_delayed()) std::cerr << " [delayed]";
 533     std::cerr << " (" << pstate_source_position(node) << ")";
 534     if (expression->has_named_arguments()) std::cerr << " [has_named_arguments]";
 535     if (expression->has_rest_argument()) std::cerr << " [has_rest_argument]";
 536     if (expression->has_keyword_argument()) std::cerr << " [has_keyword_argument]";
 537     std::cerr << std::endl;
 538     for(const Argument_Obj& i : expression->elements()) { debug_ast(i, ind + " ", env); }
 539   } else if (Cast<Argument>(node)) {
 540     Argument_Ptr expression = Cast<Argument>(node);
 541     std::cerr << ind << "Argument " << expression;
 542     std::cerr << " (" << pstate_source_position(node) << ")";
 543     std::cerr << " [" << expression->value().ptr() << "]";
 544     std::cerr << " [name: " << expression->name() << "] ";
 545     std::cerr << " [rest: " << expression->is_rest_argument() << "] ";
 546     std::cerr << " [keyword: " << expression->is_keyword_argument() << "] " << std::endl;
 547     debug_ast(expression->value(), ind + " value: ", env);
 548   } else if (Cast<Parameters>(node)) {
 549     Parameters_Ptr expression = Cast<Parameters>(node);
 550     std::cerr << ind << "Parameters " << expression;
 551     std::cerr << " (" << pstate_source_position(node) << ")";
 552     std::cerr << " [has_optional: " << expression->has_optional_parameters() << "] ";
 553     std::cerr << " [has_rest: " << expression->has_rest_parameter() << "] ";
 554     std::cerr << std::endl;
 555     for(const Parameter_Obj& i : expression->elements()) { debug_ast(i, ind + " ", env); }
 556   } else if (Cast<Parameter>(node)) {
 557     Parameter_Ptr expression = Cast<Parameter>(node);
 558     std::cerr << ind << "Parameter " << expression;
 559     std::cerr << " (" << pstate_source_position(node) << ")";
 560     std::cerr << " [name: " << expression->name() << "] ";
 561     std::cerr << " [default: " << expression->default_value().ptr() << "] ";
 562     std::cerr << " [rest: " << expression->is_rest_parameter() << "] " << std::endl;
 563   } else if (Cast<Unary_Expression>(node)) {
 564     Unary_Expression_Ptr expression = Cast<Unary_Expression>(node);
 565     std::cerr << ind << "Unary_Expression " << expression;
 566     std::cerr << " [interpolant: " << expression->is_interpolant() << "] ";
 567     std::cerr << " [delayed: " << expression->is_delayed() << "] ";
 568     std::cerr << " (" << pstate_source_position(node) << ")";
 569     std::cerr << " [" << expression->type() << "]" << std::endl;
 570     debug_ast(expression->operand(), ind + " operand: ", env);
 571   } else if (Cast<Binary_Expression>(node)) {
 572     Binary_Expression_Ptr expression = Cast<Binary_Expression>(node);
 573     std::cerr << ind << "Binary_Expression " << expression;
 574     if (expression->is_interpolant()) std::cerr << " [is interpolant] ";
 575     if (expression->is_left_interpolant()) std::cerr << " [left interpolant] ";
 576     if (expression->is_right_interpolant()) std::cerr << " [right interpolant] ";
 577     std::cerr << " [delayed: " << expression->is_delayed() << "] ";
 578     std::cerr << " [ws_before: " << expression->op().ws_before << "] ";
 579     std::cerr << " [ws_after: " << expression->op().ws_after << "] ";
 580     std::cerr << " (" << pstate_source_position(node) << ")";
 581     std::cerr << " [" << expression->type_name() << "]" << std::endl;
 582     debug_ast(expression->left(), ind + " left:  ", env);
 583     debug_ast(expression->right(), ind + " right: ", env);
 584   } else if (Cast<Map>(node)) {
 585     Map_Ptr expression = Cast<Map>(node);
 586     std::cerr << ind << "Map " << expression;
 587     std::cerr << " [interpolant: " << expression->is_interpolant() << "] ";
 588     std::cerr << " (" << pstate_source_position(node) << ")";
 589     std::cerr << " [Hashed]" << std::endl;
 590     for (const auto& i : expression->elements()) {
 591       debug_ast(i.first, ind + " key: ");
 592       debug_ast(i.second, ind + " val: ");
 593     }
 594   } else if (Cast<List>(node)) {
 595     List_Ptr expression = Cast<List>(node);
 596     std::cerr << ind << "List " << expression;
 597     std::cerr << " (" << pstate_source_position(node) << ")";
 598     std::cerr << " (" << expression->length() << ") " <<
 599       (expression->separator() == SASS_COMMA ? "Comma " : expression->separator() == SASS_HASH ? "Map " : "Space ") <<
 600       " [delayed: " << expression->is_delayed() << "] " <<
 601       " [interpolant: " << expression->is_interpolant() << "] " <<
 602       " [listized: " << expression->from_selector() << "] " <<
 603       " [arglist: " << expression->is_arglist() << "] " <<
 604       " [bracketed: " << expression->is_bracketed() << "] " <<
 605       " [expanded: " << expression->is_expanded() << "] " <<
 606       " [hash: " << expression->hash() << "] " <<
 607       std::endl;
 608     for(const auto& i : expression->elements()) { debug_ast(i, ind + " ", env); }
 609   } else if (Cast<Content>(node)) {
 610     Content_Ptr expression = Cast<Content>(node);
 611     std::cerr << ind << "Content " << expression;
 612     std::cerr << " (" << pstate_source_position(node) << ")";
 613     std::cerr << " [@media:" << expression->media_block() << "]";
 614     std::cerr << " [Statement]" << std::endl;
 615   } else if (Cast<Boolean>(node)) {
 616     Boolean_Ptr expression = Cast<Boolean>(node);
 617     std::cerr << ind << "Boolean " << expression;
 618     std::cerr << " (" << pstate_source_position(node) << ")";
 619     std::cerr << " [interpolant: " << expression->is_interpolant() << "] ";
 620     std::cerr << " [" << expression->value() << "]" << std::endl;
 621   } else if (Cast<Color>(node)) {
 622     Color_Ptr expression = Cast<Color>(node);
 623     std::cerr << ind << "Color " << expression;
 624     std::cerr << " (" << pstate_source_position(node) << ")";
 625     std::cerr << " [delayed: " << expression->is_delayed() << "] ";
 626     std::cerr << " [interpolant: " << expression->is_interpolant() << "] ";
 627     std::cerr << " [" << expression->r() << ":"  << expression->g() << ":" << expression->b() << "@" << expression->a() << "]" << std::endl;
 628   } else if (Cast<Number>(node)) {
 629     Number_Ptr expression = Cast<Number>(node);
 630     std::cerr << ind << "Number " << expression;
 631     std::cerr << " (" << pstate_source_position(node) << ")";
 632     std::cerr << " [interpolant: " << expression->is_interpolant() << "] ";
 633     std::cerr << " [" << expression->value() << expression->unit() << "]" <<
 634       " [hash: " << expression->hash() << "] " <<
 635       std::endl;
 636   } else if (Cast<Null>(node)) {
 637     Null_Ptr expression = Cast<Null>(node);
 638     std::cerr << ind << "Null " << expression;
 639     std::cerr << " (" << pstate_source_position(node) << ")";
 640     std::cerr << " [interpolant: " << expression->is_interpolant() << "] "
 641       // " [hash: " << expression->hash() << "] "
 642       << std::endl;
 643   } else if (Cast<String_Quoted>(node)) {
 644     String_Quoted_Ptr expression = Cast<String_Quoted>(node);
 645     std::cerr << ind << "String_Quoted " << expression;
 646     std::cerr << " (" << pstate_source_position(node) << ")";
 647     std::cerr << " [" << prettyprint(expression->value()) << "]";
 648     if (expression->is_delayed()) std::cerr << " [delayed]";
 649     if (expression->is_interpolant()) std::cerr << " [interpolant]";
 650     if (expression->quote_mark()) std::cerr << " [quote_mark: " << expression->quote_mark() << "]";
 651     std::cerr << " <" << prettyprint(expression->pstate().token.ws_before()) << ">" << std::endl;
 652   } else if (Cast<String_Constant>(node)) {
 653     String_Constant_Ptr expression = Cast<String_Constant>(node);
 654     std::cerr << ind << "String_Constant " << expression;
 655     if (expression->concrete_type()) {
 656       std::cerr << " " << expression->concrete_type();
 657     }
 658     std::cerr << " (" << pstate_source_position(node) << ")";
 659     std::cerr << " [" << prettyprint(expression->value()) << "]";
 660     if (expression->is_delayed()) std::cerr << " [delayed]";
 661     if (expression->is_interpolant()) std::cerr << " [interpolant]";
 662     std::cerr << " <" << prettyprint(expression->pstate().token.ws_before()) << ">" << std::endl;
 663   } else if (Cast<String_Schema>(node)) {
 664     String_Schema_Ptr expression = Cast<String_Schema>(node);
 665     std::cerr << ind << "String_Schema " << expression;
 666     std::cerr << " (" << pstate_source_position(expression) << ")";
 667     std::cerr << " " << expression->concrete_type();
 668     std::cerr << " (" << pstate_source_position(node) << ")";
 669     if (expression->is_delayed()) std::cerr << " [delayed]";
 670     if (expression->is_interpolant()) std::cerr << " [is interpolant]";
 671     if (expression->has_interpolant()) std::cerr << " [has interpolant]";
 672     if (expression->is_left_interpolant()) std::cerr << " [left interpolant] ";
 673     if (expression->is_right_interpolant()) std::cerr << " [right interpolant] ";
 674     std::cerr << " <" << prettyprint(expression->pstate().token.ws_before()) << ">" << std::endl;
 675     for(const auto& i : expression->elements()) { debug_ast(i, ind + " ", env); }
 676   } else if (Cast<String>(node)) {
 677     String_Ptr expression = Cast<String>(node);
 678     std::cerr << ind << "String " << expression;
 679     std::cerr << " " << expression->concrete_type();
 680     std::cerr << " (" << pstate_source_position(node) << ")";
 681     if (expression->is_interpolant()) std::cerr << " [interpolant]";
 682     std::cerr << " <" << prettyprint(expression->pstate().token.ws_before()) << ">" << std::endl;
 683   } else if (Cast<Expression>(node)) {
 684     Expression_Ptr expression = Cast<Expression>(node);
 685     std::cerr << ind << "Expression " << expression;
 686     std::cerr << " (" << pstate_source_position(node) << ")";
 687     switch (expression->concrete_type()) {
 688       case Expression::Concrete_Type::NONE: std::cerr << " [NONE]"; break;
 689       case Expression::Concrete_Type::BOOLEAN: std::cerr << " [BOOLEAN]"; break;
 690       case Expression::Concrete_Type::NUMBER: std::cerr << " [NUMBER]"; break;
 691       case Expression::Concrete_Type::COLOR: std::cerr << " [COLOR]"; break;
 692       case Expression::Concrete_Type::STRING: std::cerr << " [STRING]"; break;
 693       case Expression::Concrete_Type::LIST: std::cerr << " [LIST]"; break;
 694       case Expression::Concrete_Type::MAP: std::cerr << " [MAP]"; break;
 695       case Expression::Concrete_Type::SELECTOR: std::cerr << " [SELECTOR]"; break;
 696       case Expression::Concrete_Type::NULL_VAL: std::cerr << " [NULL_VAL]"; break;
 697       case Expression::Concrete_Type::C_WARNING: std::cerr << " [C_WARNING]"; break;
 698       case Expression::Concrete_Type::C_ERROR: std::cerr << " [C_ERROR]"; break;
 699       case Expression::Concrete_Type::FUNCTION: std::cerr << " [FUNCTION]"; break;
 700       case Expression::Concrete_Type::NUM_TYPES: std::cerr << " [NUM_TYPES]"; break;
 701     }
 702     std::cerr << std::endl;
 703   } else if (Cast<Has_Block>(node)) {
 704     Has_Block_Ptr has_block = Cast<Has_Block>(node);
 705     std::cerr << ind << "Has_Block " << has_block;
 706     std::cerr << " (" << pstate_source_position(node) << ")";
 707     std::cerr << " " << has_block->tabs() << std::endl;
 708     if (has_block->block()) for(const Statement_Obj& i : has_block->block()->elements()) { debug_ast(i, ind + " ", env); }
 709   } else if (Cast<Statement>(node)) {
 710     Statement_Ptr statement = Cast<Statement>(node);
 711     std::cerr << ind << "Statement " << statement;
 712     std::cerr << " (" << pstate_source_position(node) << ")";
 713     std::cerr << " " << statement->tabs() << std::endl;
 714   }
 715
 716   if (ind == "") std::cerr << "####################################################################\n";
 717 }
 718
 719 inline void debug_node(Node* node, std::string ind = "")
 720 {
 721   if (ind == "") std::cerr << "#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\n";
 722   if (node->isCombinator()) {
 723     std::cerr << ind;
 724     std::cerr << "Combinator ";
 725     std::cerr << node << " ";
 726     if (node->got_line_feed) std::cerr << "[LF] ";
 727     switch (node->combinator()) {
 728       case Complex_Selector::ADJACENT_TO: std::cerr << "{+} "; break;
 729       case Complex_Selector::PARENT_OF:   std::cerr << "{>} "; break;
 730       case Complex_Selector::PRECEDES:    std::cerr << "{~} "; break;
 731       case Complex_Selector::REFERENCE:   std::cerr << "{@} "; break;
 732       case Complex_Selector::ANCESTOR_OF: std::cerr << "{ } "; break;
 733     }
 734     std::cerr << std::endl;
 735     // debug_ast(node->combinator(), ind + "  ");
 736   } else if (node->isSelector()) {
 737     std::cerr << ind;
 738     std::cerr << "Selector ";
 739     std::cerr << node << " ";
 740     if (node->got_line_feed) std::cerr << "[LF] ";
 741     std::cerr << std::endl;
 742     debug_ast(node->selector(), ind + "  ");
 743   } else if (node->isCollection()) {
 744     std::cerr << ind;
 745     std::cerr << "Collection ";
 746     std::cerr << node << " ";
 747     if (node->got_line_feed) std::cerr << "[LF] ";
 748     std::cerr << std::endl;
 749     for(auto n : (*node->collection())) {
 750       debug_node(&n, ind + "  ");
 751     }
 752   } else if (node->isNil()) {
 753     std::cerr << ind;
 754     std::cerr << "Nil ";
 755     std::cerr << node << " ";
 756     if (node->got_line_feed) std::cerr << "[LF] ";
 757     std::cerr << std::endl;
 758   } else {
 759     std::cerr << ind;
 760     std::cerr << "OTHER ";
 761     std::cerr << node << " ";
 762     if (node->got_line_feed) std::cerr << "[LF] ";
 763     std::cerr << std::endl;
 764   }
 765   if (ind == "") std::cerr << "#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\n";
 766 }
 767
 768 /*
 769 inline void debug_ast(const AST_Node_Ptr node, std::string ind = "", Env* env = 0)
 770 {
 771   debug_ast(const_cast<AST_Node_Ptr>(node), ind, env);
 772 }
 773 */
 774 inline void debug_node(const Node* node, std::string ind = "")
 775 {
 776   debug_node(const_cast<Node*>(node), ind);
 777 }
 778
 779 inline void debug_subset_map(Sass::Subset_Map& map, std::string ind = "")
 780 {
 781   if (ind == "") std::cerr << "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n";
 782   for(auto const &it : map.values()) {
 783     debug_ast(it.first, ind + "first: ");
 784     debug_ast(it.second, ind + "second: ");
 785   }
 786   if (ind == "") std::cerr << "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n";
 787 }
 788
 789 inline void debug_subset_entries(SubSetMapPairs* entries, std::string ind = "")
 790 {
 791   if (ind == "") std::cerr << "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n";
 792   for(auto const &pair : *entries) {
 793     debug_ast(pair.first, ind + "first: ");
 794     debug_ast(pair.second, ind + "second: ");
 795   }
 796   if (ind == "") std::cerr << "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n";
 797 }
 798
 799 #endif // SASS_DEBUGGER