guard-mthaml 0.1.0

data/vendor/coffeescript/coffeescript/src/CoffeeScript/yy/Base.php

@@ -0,0 +1,288 @@
+<?php
+
+namespace CoffeeScript;
+
+Init::init();
+
+abstract class yy_Base
+{
+  public $as_key = FALSE;
+  public $children = array();
+  public $ctor = NULL;
+  public $exclusive = NULL;
+  public $expression = NULL;
+  public $from = NULL;
+  public $front = NULL;
+  public $namespaced = FALSE;
+  public $negated = FALSE;
+  public $no_return = FALSE;
+  public $proto = FALSE;
+  public $soak = FALSE;
+  public $this = NULL;
+  public $to = NULL;
+
+  function __construct() {}
+
+  function __toString()
+  {
+    return ''.$this->to_string();
+  }
+
+  function cache($options, $level = NULL, $reused = NULL)
+  {
+    if ( ! $this->is_complex())
+    {
+      $ref = $level ? $this->compile($options, $level) : $this;
+      return array($ref, $ref);
+    }
+    else
+    {
+      $ref = yy('Literal', $reused ? $reused : $options['scope']->free_variable('ref'));
+      $sub = yy('Assign', $ref, $this);
+
+      if ($level)
+      {
+        return array($sub->compile($options, $level), $ref->value);
+      }
+      else
+      {
+        return array($sub, $ref);
+      }
+    }
+  }
+
+  function compile($options, $level = NULL)
+  {
+    if (isset($level))
+    {
+      $options['level'] = $level;
+    }
+
+    if ( ! ($node = $this->unfold_soak($options)))
+    {
+      $node = $this;
+    }
+
+    $node->tab = $options['indent'];
+
+    if ($options['level'] === LEVEL_TOP || ! $node->is_statement($options))
+    {
+      return $node->compile_node($options);
+    }
+
+    return $node->compile_closure($options);
+  }
+
+  function compile_closure($options)
+  {
+    if ($this->jumps())
+    {
+      throw new SyntaxError('cannot use a pure statement in an expression.');
+    }
+
+    $options['sharedScope'] = TRUE;
+
+    $closure = yy_Closure::wrap($this);
+
+    return $closure->compile_node($options);
+  }
+
+  function compile_loop_reference($options, $name)
+  {
+    $src = $tmp = $this->compile($options, LEVEL_LIST);
+
+    if ( ! ( ($src === 0 || $src === '') || preg_match(IDENTIFIER, $src) && 
+      $options['scope']->check($src, TRUE)))
+    {
+      $src = ($tmp = $options['scope']->free_variable($name)).' = '.$src;
+    }
+
+    return array($src, $tmp);
+  }
+
+  function contains($pred)
+  {
+    $contains = FALSE;
+
+    if (is_string($pred))
+    {
+      $tmp = __NAMESPACE__.'\\'.$pred;
+
+      $pred = function($node) use ($tmp)
+      {
+        return call_user_func($tmp, $node);
+      };
+    }
+
+    $this->traverse_children(FALSE, function($node) use ( & $contains, & $pred)
+    {
+      if ($pred($node))
+      {
+        $contains = TRUE;
+        return FALSE;
+      }
+    });
+
+    return $contains;
+  }
+
+  function contains_type($type)
+  {
+    return ($this instanceof $type) || $this->contains(function($node) use ( & $type)
+    {
+      return $node instanceof $type;
+    });
+  }
+
+  function each_child($func)
+  {
+    if ( ! ($this->children))
+    {
+      return $this;
+    }
+
+    foreach ($this->children as $i => $attr)
+    {
+      if (isset($this->{$attr}) && $this->{$attr})
+      {
+        foreach (flatten(array($this->{$attr})) as $i => $child)
+        {
+          if ($func($child) === FALSE)
+          {
+            break 2;
+          }
+        }
+      }
+    }
+
+    return $this;
+  }
+
+  function invert()
+  {
+    return yy('Op', '!', $this);
+  }
+
+  function is_assignable()
+  {
+    return FALSE;
+  }
+
+  function is_complex()
+  {
+    return TRUE;
+  }
+
+  function is_chainable()
+  {
+    return FALSE;
+  }
+
+  function is_object()
+  {
+    return FALSE;
+  }
+
+  function is_statement($options = NULL)
+  {
+    return FALSE;
+  }
+
+  function is_undefined()
+  {
+    return FALSE;
+  }
+
+  function jumps()
+  {
+    return FALSE;
+  }
+
+  function last_non_comment($list)
+  {
+    $i = count($list);
+
+    while ($i--)
+    {
+      if ( ! ($list[$i] instanceof yy_Comment))
+      {
+        return $list[$i];
+      }
+    }
+
+    return NULL;
+  }
+
+  function make_return($res = NULL)
+  {
+    $me = $this->unwrap_all();
+
+    if ($res)
+    {
+      return yy('Call', yy('Literal', "{$res}.push"), array($me));
+    }
+    else
+    {
+      return yy('Return', $me);
+    }
+  }
+
+  function to_string($idt = '', $name = NULL)
+  {
+    if ($name === NULL)
+    {
+      $name = get_class($this);
+    }
+
+    $tree = "\n{$idt}{$name}";
+
+    if ($this->soak)
+    {
+      $tree .= '?';
+    }
+
+    $this->each_child(function($node) use ($idt, & $tree)
+    {
+      $tree .= $node->to_string($idt.TAB);
+    });
+
+    return $tree;
+  }
+
+  function traverse_children($cross_scope, $func)
+  {
+    $this->each_child(function($child) use ($cross_scope, & $func)
+    {
+      if ($func($child) === FALSE)
+      {
+        return FALSE;
+      }
+
+      return $child->traverse_children($cross_scope, $func);
+    });
+  }
+
+  function unfold_soak($options = NULL)
+  {
+    return FALSE;
+  }
+
+  function unwrap()
+  {
+    return $this;
+  }
+
+  function unwrap_all()
+  {
+    $node = $this;
+
+    while ($node !== ($tmp = $node->unwrap()))
+    {
+      $node = $tmp;
+    }
+
+    return $node;
+  }
+}
+
+?>

data/vendor/coffeescript/coffeescript/src/CoffeeScript/yy/Block.php

@@ -0,0 +1,294 @@
+<?php
+
+namespace CoffeeScript;
+
+class yy_Block extends yy_Base
+{
+  public $children = array('expressions');
+
+  function constructor($nodes = array())
+  {
+    $this->expressions = compact(flatten($nodes));
+
+    return $this;
+  }
+
+  function compile($options, $level = NULL)
+  {
+    if (isset($options['scope']))
+    {
+      return parent::compile($options, $level);
+    }
+    else
+    {
+      return $this->compile_root($options);
+    }
+  }
+
+  function compile_node($options)
+  {
+    $this->tab = $options['indent'];
+
+    $top = $options['level'] === LEVEL_TOP;
+    $codes = array();
+
+    foreach ($this->expressions as $i => $node)
+    {
+      $node = $node->unwrap_all();
+      $node = ($tmp = $node->unfold_soak($options)) ? $tmp : $node;
+
+      if ($node instanceof yy_Block)
+      {
+        $codes[] = $node->compile_node($options);
+      }
+      else if ($top)
+      {
+        $node->front = TRUE;
+        $code = $node->compile($options);
+
+        if ( ! $node->is_statement($options))
+        {
+          $code = "{$this->tab}{$code};";
+
+          if ($node instanceof yy_Literal)
+          {
+            $code = "{$code}\n";
+          }
+        }
+
+        $codes[] = $code;
+      }
+      else
+      {
+        $codes[] = $node->compile($options, LEVEL_LIST);
+      }
+    }
+
+    if ($top)
+    {
+      if (isset($this->spaced) && $this->spaced)
+      {
+        return "\n".implode("\n\n", $codes)."\n";
+      }
+      else
+      {
+        return implode("\n", $codes);
+      }
+    }
+
+    $code = ($tmp = implode(', ', $codes)) ? $tmp : 'void 0';
+
+    if (count($codes) && $options['level'] >= LEVEL_LIST)
+    {
+      return "({$code})";
+    }
+    else
+    {
+      return $code;
+    }
+  }
+
+  function compile_root($options)
+  {
+    $options['indent'] = isset($options['bare']) && $options['bare'] ? '' : TAB;
+    $options['scope'] = new Scope(NULL, $this, NULL);
+    $options['level'] = LEVEL_TOP;
+
+    $this->spaced = TRUE;
+    $prelude = '';
+
+    if ( ! (isset($options['bare']) && $options['bare']))
+    {
+      $prelude_exps = array();
+
+      foreach ($this->expressions as $i => $exp)
+      {
+        if ( ! ($exp->unwrap() instanceof yy_Comment))
+        {
+          break;
+        }
+
+        $prelude_exps[] = $exp;
+      }
+
+      $rest = array_slice($this->expressions, count($prelude_exps));
+      $this->expressions = $prelude_exps;
+
+      if ($prelude_exps)
+      {
+        $prelude = $this->compile_node(array_merge($options, array('indent' => '')))."\n";
+      }
+
+      $this->expressions = $rest;
+    }
+
+    $code = $this->compile_with_declarations($options);
+
+    if (isset($options['bare']) && $options['bare'])
+    {
+      return $code;
+    }
+
+    return "{$prelude}(function() {\n{$code}\n}).call(this);\n";
+  }
+
+  function compile_with_declarations($options)
+  {
+    $code = $post = '';
+
+    foreach ($this->expressions as $i => & $expr)
+    {
+      $expr = $expr->unwrap();
+
+      if ( ! ($expr instanceof yy_Comment || $expr instanceof yy_Literal))
+      {
+        break;
+      }
+    }
+
+    $options = array_merge($options, array('level' => LEVEL_TOP));
+
+    if ($i)
+    {
+      $rest = array_splice($this->expressions, $i, count($this->expressions));
+
+      list($spaced, $this->spaced) = array(isset($this->spaced) && $this->spaced, FALSE);
+      list($code, $this->spaced) = array($this->compile_node($options), $spaced);
+
+      $this->expressions = $rest;
+    }
+
+    $post = $this->compile_node($options);
+
+    $scope = $options['scope'];
+
+    if ($scope->expressions === $this)
+    {
+      $declars = $scope->has_declarations();
+      $assigns = $scope->has_assignments();
+
+      if ($declars or $assigns)
+      {
+        if ($i)
+        {
+          $code .= "\n";
+        }
+
+        $code .= $this->tab.'var ';
+
+        if ($declars)
+        {
+          $code .= implode(', ', $scope->declared_variables());
+        }
+
+        if ($assigns)
+        {
+          if ($declars)
+          {
+            $code .= ",\n{$this->tab}".TAB;
+          }
+
+          $code .= implode(",\n{$this->tab}".TAB, $scope->assigned_variables());
+        }
+
+        $code .= ";\n";
+      }
+    }
+
+    return $code.$post;
+  }
+
+  function is_empty()
+  {
+    return ! count($this->expressions);
+  }
+
+  function is_statement($options = NULL)
+  {
+    foreach ($this->expressions as $i => $expr)
+    {
+      if ($expr->is_statement($options))
+      {
+        return TRUE;
+      }
+    }
+
+    return FALSE;
+  }
+
+  function jumps($options = array())
+  {
+    foreach ($this->expressions as $i => $expr)
+    {
+      if ($expr->jumps($options))
+      {
+        return $expr;
+      }
+    }
+
+    return FALSE;
+  }
+
+  function make_return($res = NULL)
+  {
+    $len = count($this->expressions);
+
+    while ($len--)
+    {
+      $expr = $this->expressions[$len];
+
+      if ( ! ($expr instanceof yy_Comment))
+      {
+        $this->expressions[$len] = $expr->make_return($res);
+
+        if ($expr instanceof yy_Return && ! (isset($expr->expression) && $expr->expression))
+        {
+          array_splice($this->expressions, $len, 1);
+        }
+
+        break;
+      }
+    }
+
+    return $this;
+  }
+
+  function pop()
+  {
+    return array_pop($this->expressions);
+  }
+
+  function push($node)
+  {
+    $this->expressions[] = $node;
+    return $this;
+  }
+
+  function unshift($node)
+  {
+    array_unshift($this->expressions, $node);
+    return $this;
+  }
+
+  function unwrap()
+  {
+    return count($this->expressions) === 1 ? $this->expressions[0] : $this;
+  }
+
+  static function wrap($nodes)
+  {
+    if ( ! is_array($nodes))
+    {
+      $nodes = array($nodes);
+    }
+
+    if (count($nodes) === 1 && $nodes[0] instanceof yy_Block)
+    {
+      return $nodes[0];
+    }
+
+    return yy('Block', $nodes);
+  }
+}
+
+?>