#include "sass.hpp"
#include <iostream>
#include <typeinfo>
#include <vector>
#include "cssize.hpp"
#include "context.hpp"
#include "backtrace.hpp"
namespace Sass {
Cssize::Cssize(Context& ctx, Backtrace* bt)
: ctx(ctx),
block_stack(std::vector<Block_Ptr>()),
p_stack(std::vector<Statement_Ptr>()),
backtrace(bt)
{ }
Statement_Ptr Cssize::parent()
{
return p_stack.size() ? p_stack.back() : block_stack.front();
}
Block_Ptr Cssize::operator()(Block_Ptr b)
{
Block_Ptr bb = SASS_MEMORY_NEW(Block, b->pstate(), b->length(), b->is_root());
// bb->tabs(b->tabs());
block_stack.push_back(bb);
append_block(b, bb);
block_stack.pop_back();
return bb;
}
Statement_Ptr Cssize::operator()(Trace_Ptr t)
{
return t->block()->perform(this);
}
Statement_Ptr Cssize::operator()(Declaration_Ptr d)
{
String_Obj property = Cast<String>(d->property());
if (Declaration_Ptr dd = Cast<Declaration>(parent())) {
String_Obj parent_property = Cast<String>(dd->property());
property = SASS_MEMORY_NEW(String_Constant,
d->property()->pstate(),
parent_property->to_string() + "-" + property->to_string());
if (!dd->value()) {
d->tabs(dd->tabs() + 1);
}
}
Declaration_Obj dd = SASS_MEMORY_NEW(Declaration,
d->pstate(),
property,
d->value(),
d->is_important());
dd->is_indented(d->is_indented());
dd->tabs(d->tabs());
p_stack.push_back(dd);
Block_Obj bb = d->block() ? operator()(d->block()) : NULL;
p_stack.pop_back();
if (bb && bb->length()) {
if (dd->value() && !dd->value()->is_invisible()) {
bb->unshift(dd);
}
return bb.detach();
}
else if (dd->value() && !dd->value()->is_invisible()) {
return dd.detach();
}
return 0;
}
Statement_Ptr Cssize::operator()(Directive_Ptr r)
{
if (!r->block() || !r->block()->length()) return r;
if (parent()->statement_type() == Statement::RULESET)
{
return (r->is_keyframes()) ? SASS_MEMORY_NEW(Bubble, r->pstate(), r) : bubble(r);
}
p_stack.push_back(r);
Directive_Obj rr = SASS_MEMORY_NEW(Directive,
r->pstate(),
r->keyword(),
r->selector(),
r->block() ? operator()(r->block()) : 0);
if (r->value()) rr->value(r->value());
p_stack.pop_back();
bool directive_exists = false;
size_t L = rr->block() ? rr->block()->length() : 0;
for (size_t i = 0; i < L && !directive_exists; ++i) {
Statement_Obj s = r->block()->at(i);
if (s->statement_type() != Statement::BUBBLE) directive_exists = true;
else {
Bubble_Obj s_obj = Cast<Bubble>(s);
s = s_obj->node();
if (s->statement_type() != Statement::DIRECTIVE) directive_exists = false;
else directive_exists = (Cast<Directive>(s)->keyword() == rr->keyword());
}
}
Block_Ptr result = SASS_MEMORY_NEW(Block, rr->pstate());
if (!(directive_exists || rr->is_keyframes()))
{
Directive_Ptr empty_node = Cast<Directive>(rr);
empty_node->block(SASS_MEMORY_NEW(Block, rr->block() ? rr->block()->pstate() : rr->pstate()));
result->append(empty_node);
}
Block_Obj db = rr->block();
if (db.isNull()) db = SASS_MEMORY_NEW(Block, rr->pstate());
Block_Obj ss = debubble(db, rr);
for (size_t i = 0, L = ss->length(); i < L; ++i) {
result->append(ss->at(i));
}
return result;
}
Statement_Ptr Cssize::operator()(Keyframe_Rule_Ptr r)
{
if (!r->block() || !r->block()->length()) return r;
Keyframe_Rule_Obj rr = SASS_MEMORY_NEW(Keyframe_Rule,
r->pstate(),
operator()(r->block()));
if (!r->name().isNull()) rr->name(r->name());
return debubble(rr->block(), rr);
}
Statement_Ptr Cssize::operator()(Ruleset_Ptr r)
{
p_stack.push_back(r);
// this can return a string schema
// string schema is not a statement!
// r->block() is already a string schema
// and that is comming from propset expand
Block_Ptr bb = operator()(r->block());
// this should protect us (at least a bit) from our mess
// fixing this properly is harder that it should be ...
if (Cast<Statement>(bb) == NULL) {
error("Illegal nesting: Only properties may be nested beneath properties.", r->block()->pstate());
}
Ruleset_Obj rr = SASS_MEMORY_NEW(Ruleset,
r->pstate(),
r->selector(),
bb);
rr->is_root(r->is_root());
// rr->tabs(r->block()->tabs());
p_stack.pop_back();
if (!rr->block()) {
error("Illegal nesting: Only properties may be nested beneath properties.", r->block()->pstate());
}
Block_Obj props = SASS_MEMORY_NEW(Block, rr->block()->pstate());
Block_Ptr rules = SASS_MEMORY_NEW(Block, rr->block()->pstate());
for (size_t i = 0, L = rr->block()->length(); i < L; i++)
{
Statement_Ptr s = rr->block()->at(i);
if (bubblable(s)) rules->append(s);
if (!bubblable(s)) props->append(s);
}
if (props->length())
{
Block_Obj pb = SASS_MEMORY_NEW(Block, rr->block()->pstate());
pb->concat(props);
rr->block(pb);
for (size_t i = 0, L = rules->length(); i < L; i++)
{
Statement_Ptr stm = rules->at(i);
stm->tabs(stm->tabs() + 1);
}
rules->unshift(rr);
}
Block_Ptr ptr = rules;
rules = debubble(rules);
void* lp = ptr;
void* rp = rules;
if (lp != rp) {
Block_Obj obj = ptr;
}
if (!(!rules->length() ||
!bubblable(rules->last()) ||
parent()->statement_type() == Statement::RULESET))
{
rules->last()->group_end(true);
}
return rules;
}
Statement_Ptr Cssize::operator()(Null_Ptr m)
{
return 0;
}
Statement_Ptr Cssize::operator()(Media_Block_Ptr m)
{
if (parent()->statement_type() == Statement::RULESET)
{ return bubble(m); }
if (parent()->statement_type() == Statement::MEDIA)
{ return SASS_MEMORY_NEW(Bubble, m->pstate(), m); }
p_stack.push_back(m);
Media_Block_Obj mm = SASS_MEMORY_NEW(Media_Block,
m->pstate(),
m->media_queries(),
operator()(m->block()));
mm->tabs(m->tabs());
p_stack.pop_back();
return debubble(mm->block(), mm);
}
Statement_Ptr Cssize::operator()(Supports_Block_Ptr m)
{
if (!m->block()->length())
{ return m; }
if (parent()->statement_type() == Statement::RULESET)
{ return bubble(m); }
p_stack.push_back(m);
Supports_Block_Obj mm = SASS_MEMORY_NEW(Supports_Block,
m->pstate(),
m->condition(),
operator()(m->block()));
mm->tabs(m->tabs());
p_stack.pop_back();
return debubble(mm->block(), mm);
}
Statement_Ptr Cssize::operator()(At_Root_Block_Ptr m)
{
bool tmp = false;
for (size_t i = 0, L = p_stack.size(); i < L; ++i) {
Statement_Ptr s = p_stack[i];
tmp |= m->exclude_node(s);
}
if (!tmp)
{
Block_Ptr bb = operator()(m->block());
for (size_t i = 0, L = bb->length(); i < L; ++i) {
// (bb->elements())[i]->tabs(m->tabs());
Statement_Obj stm = bb->at(i);
if (bubblable(stm)) stm->tabs(stm->tabs() + m->tabs());
}
if (bb->length() && bubblable(bb->last())) bb->last()->group_end(m->group_end());
return bb;
}
if (m->exclude_node(parent()))
{
return SASS_MEMORY_NEW(Bubble, m->pstate(), m);
}
return bubble(m);
}
Statement_Ptr Cssize::bubble(Directive_Ptr m)
{
Block_Ptr bb = SASS_MEMORY_NEW(Block, this->parent()->pstate());
Has_Block_Obj new_rule = Cast<Has_Block>(SASS_MEMORY_COPY(this->parent()));
new_rule->block(bb);
new_rule->tabs(this->parent()->tabs());
new_rule->block()->concat(m->block());
Block_Obj wrapper_block = SASS_MEMORY_NEW(Block, m->block() ? m->block()->pstate() : m->pstate());
wrapper_block->append(new_rule);
Directive_Obj mm = SASS_MEMORY_NEW(Directive,
m->pstate(),
m->keyword(),
m->selector(),
wrapper_block);
if (m->value()) mm->value(m->value());
Bubble_Ptr bubble = SASS_MEMORY_NEW(Bubble, mm->pstate(), mm);
return bubble;
}
Statement_Ptr Cssize::bubble(At_Root_Block_Ptr m)
{
Block_Ptr bb = SASS_MEMORY_NEW(Block, this->parent()->pstate());
Has_Block_Obj new_rule = Cast<Has_Block>(SASS_MEMORY_COPY(this->parent()));
new_rule->block(bb);
new_rule->tabs(this->parent()->tabs());
new_rule->block()->concat(m->block());
Block_Ptr wrapper_block = SASS_MEMORY_NEW(Block, m->block()->pstate());
wrapper_block->append(new_rule);
At_Root_Block_Ptr mm = SASS_MEMORY_NEW(At_Root_Block,
m->pstate(),
wrapper_block,
m->expression());
Bubble_Ptr bubble = SASS_MEMORY_NEW(Bubble, mm->pstate(), mm);
return bubble;
}
Statement_Ptr Cssize::bubble(Supports_Block_Ptr m)
{
Ruleset_Obj parent = Cast<Ruleset>(SASS_MEMORY_COPY(this->parent()));
Block_Ptr bb = SASS_MEMORY_NEW(Block, parent->block()->pstate());
Ruleset_Ptr new_rule = SASS_MEMORY_NEW(Ruleset,
parent->pstate(),
parent->selector(),
bb);
new_rule->tabs(parent->tabs());
new_rule->block()->concat(m->block());
Block_Ptr wrapper_block = SASS_MEMORY_NEW(Block, m->block()->pstate());
wrapper_block->append(new_rule);
Supports_Block_Ptr mm = SASS_MEMORY_NEW(Supports_Block,
m->pstate(),
m->condition(),
wrapper_block);
mm->tabs(m->tabs());
Bubble_Ptr bubble = SASS_MEMORY_NEW(Bubble, mm->pstate(), mm);
return bubble;
}
Statement_Ptr Cssize::bubble(Media_Block_Ptr m)
{
Ruleset_Obj parent = Cast<Ruleset>(SASS_MEMORY_COPY(this->parent()));
Block_Ptr bb = SASS_MEMORY_NEW(Block, parent->block()->pstate());
Ruleset_Ptr new_rule = SASS_MEMORY_NEW(Ruleset,
parent->pstate(),
parent->selector(),
bb);
new_rule->tabs(parent->tabs());
new_rule->block()->concat(m->block());
Block_Ptr wrapper_block = SASS_MEMORY_NEW(Block, m->block()->pstate());
wrapper_block->append(new_rule);
Media_Block_Obj mm = SASS_MEMORY_NEW(Media_Block,
m->pstate(),
m->media_queries(),
wrapper_block);
mm->tabs(m->tabs());
return SASS_MEMORY_NEW(Bubble, mm->pstate(), mm);
}
bool Cssize::bubblable(Statement_Ptr s)
{
return Cast<Ruleset>(s) || s->bubbles();
}
Block_Ptr Cssize::flatten(Block_Ptr b)
{
Block_Ptr result = SASS_MEMORY_NEW(Block, b->pstate(), 0, b->is_root());
for (size_t i = 0, L = b->length(); i < L; ++i) {
Statement_Ptr ss = b->at(i);
if (Block_Ptr bb = Cast<Block>(ss)) {
Block_Obj bs = flatten(bb);
for (size_t j = 0, K = bs->length(); j < K; ++j) {
result->append(bs->at(j));
}
}
else {
result->append(ss);
}
}
return result;
}
std::vector<std::pair<bool, Block_Obj>> Cssize::slice_by_bubble(Block_Ptr b)
{
std::vector<std::pair<bool, Block_Obj>> results;
for (size_t i = 0, L = b->length(); i < L; ++i) {
Statement_Obj value = b->at(i);
bool key = Cast<Bubble>(value) != NULL;
if (!results.empty() && results.back().first == key)
{
Block_Obj wrapper_block = results.back().second;
wrapper_block->append(value);
}
else
{
Block_Ptr wrapper_block = SASS_MEMORY_NEW(Block, value->pstate());
wrapper_block->append(value);
results.push_back(std::make_pair(key, wrapper_block));
}
}
return results;
}
Block_Ptr Cssize::debubble(Block_Ptr children, Statement_Ptr parent)
{
Has_Block_Obj previous_parent = 0;
std::vector<std::pair<bool, Block_Obj>> baz = slice_by_bubble(children);
Block_Obj result = SASS_MEMORY_NEW(Block, children->pstate());
for (size_t i = 0, L = baz.size(); i < L; ++i) {
bool is_bubble = baz[i].first;
Block_Obj slice = baz[i].second;
if (!is_bubble) {
if (!parent) {
result->append(slice);
}
else if (previous_parent) {
previous_parent->block()->concat(slice);
}
else {
previous_parent = Cast<Has_Block>(SASS_MEMORY_COPY(parent));
previous_parent->block(slice);
previous_parent->tabs(parent->tabs());
result->append(previous_parent);
}
continue;
}
for (size_t j = 0, K = slice->length(); j < K; ++j)
{
Statement_Ptr ss;
Statement_Obj stm = slice->at(j);
// this has to go now here (too bad)
Bubble_Obj node = Cast<Bubble>(stm);
Media_Block_Ptr m1 = NULL;
Media_Block_Ptr m2 = NULL;
if (parent) m1 = Cast<Media_Block>(parent);
if (node) m2 = Cast<Media_Block>(node->node());
if (!parent ||
parent->statement_type() != Statement::MEDIA ||
node->node()->statement_type() != Statement::MEDIA ||
(m1 && m2 && *m1->media_queries() == *m2->media_queries())
)
{
ss = node->node();
}
else
{
List_Obj mq = merge_media_queries(
Cast<Media_Block>(node->node()),
Cast<Media_Block>(parent)
);
if (!mq->length()) continue;
if (Media_Block* b = Cast<Media_Block>(node->node())) {
b->media_queries(mq);
}
ss = node->node();
}
if (!ss) continue;
ss->tabs(ss->tabs() + node->tabs());
ss->group_end(node->group_end());
Block_Obj bb = SASS_MEMORY_NEW(Block,
children->pstate(),
children->length(),
children->is_root());
bb->append(ss->perform(this));
Block_Obj wrapper_block = SASS_MEMORY_NEW(Block,
children->pstate(),
children->length(),
children->is_root());
Block_Ptr wrapper = flatten(bb);
wrapper_block->append(wrapper);
if (wrapper->length()) {
previous_parent = NULL;
}
if (wrapper_block) {
result->append(wrapper_block);
}
}
}
return flatten(result);
}
Statement_Ptr Cssize::fallback_impl(AST_Node_Ptr n)
{
return static_cast<Statement_Ptr>(n);
}
void Cssize::append_block(Block_Ptr b, Block_Ptr cur)
{
for (size_t i = 0, L = b->length(); i < L; ++i) {
Statement_Obj ith = b->at(i)->perform(this);
if (Block_Ptr bb = Cast<Block>(ith)) {
for (size_t j = 0, K = bb->length(); j < K; ++j) {
cur->append(bb->at(j));
}
}
else if (ith) {
cur->append(ith);
}
}
}
List_Ptr Cssize::merge_media_queries(Media_Block_Ptr m1, Media_Block_Ptr m2)
{
List_Ptr qq = SASS_MEMORY_NEW(List,
m1->media_queries()->pstate(),
m1->media_queries()->length(),
SASS_COMMA);
for (size_t i = 0, L = m1->media_queries()->length(); i < L; i++) {
for (size_t j = 0, K = m2->media_queries()->length(); j < K; j++) {
Expression_Obj l1 = m1->media_queries()->at(i);
Expression_Obj l2 = m2->media_queries()->at(j);
Media_Query_Ptr mq1 = Cast<Media_Query>(l1);
Media_Query_Ptr mq2 = Cast<Media_Query>(l2);
Media_Query_Ptr mq = merge_media_query(mq1, mq2);
if (mq) qq->append(mq);
}
}
return qq;
}
Media_Query_Ptr Cssize::merge_media_query(Media_Query_Ptr mq1, Media_Query_Ptr mq2)
{
std::string type;
std::string mod;
std::string m1 = std::string(mq1->is_restricted() ? "only" : mq1->is_negated() ? "not" : "");
std::string t1 = mq1->media_type() ? mq1->media_type()->to_string(ctx.c_options) : "";
std::string m2 = std::string(mq2->is_restricted() ? "only" : mq1->is_negated() ? "not" : "");
std::string t2 = mq2->media_type() ? mq2->media_type()->to_string(ctx.c_options) : "";
if (t1.empty()) t1 = t2;
if (t2.empty()) t2 = t1;
if ((m1 == "not") ^ (m2 == "not")) {
if (t1 == t2) {
return 0;
}
type = m1 == "not" ? t2 : t1;
mod = m1 == "not" ? m2 : m1;
}
else if (m1 == "not" && m2 == "not") {
if (t1 != t2) {
return 0;
}
type = t1;
mod = "not";
}
else if (t1 != t2) {
return 0;
} else {
type = t1;
mod = m1.empty() ? m2 : m1;
}
Media_Query_Ptr mm = SASS_MEMORY_NEW(Media_Query,
mq1->pstate(),
0,
mq1->length() + mq2->length(),
mod == "not",
mod == "only");
if (!type.empty()) {
mm->media_type(SASS_MEMORY_NEW(String_Quoted, mq1->pstate(), type));
}
mm->concat(mq2);
mm->concat(mq1);
return mm;
}
}