guard-mthaml 0.1.0

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

@@ -0,0 +1,49 @@
+<?php
+
+namespace CoffeeScript;
+
+class yy_Closure
+{
+  static function wrap($expressions, $statement = NULL, $no_return = FALSE)
+  {
+    if ($expressions->jumps())
+    {
+      return $expressions;
+    }
+
+    $func = yy('Code', array(), yy_Block::wrap(array($expressions)));
+    $args = array();
+
+    if (($mentions_args = $expressions->contains('yy_Closure::literal_args')) ||
+      $expressions->contains('yy_Closure::literal_this'))
+    {
+      $meth = yy('Literal', $mentions_args ? 'apply' : 'call');
+      $args = array(yy('Literal', 'this'));
+
+      if ($mentions_args)
+      {
+        $args[] = yy('Literal', 'arguments');
+      }
+
+      $func = yy('Value', $func, array(yy('Access', $meth)));
+    }
+
+    $func->no_return = $no_return;
+    $call = yy('Call', $func, $args);
+
+    return $statement ? yy_Block::wrap(array($call)) : $call;
+  }
+
+  static function literal_args($node)
+  {
+    return ($node instanceof yy_Literal) && (''.$node->value === 'arguments') && ! $node->as_key;
+  }
+
+  static function literal_this($node)
+  {
+    return (($node instanceof yy_Literal) && (''.$node->value === 'this') && ! $node->as_key) ||
+      ($node instanceof yy_Code && $node->bound);
+  }
+}
+
+?>

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

@@ -0,0 +1,203 @@
+<?php
+
+namespace CoffeeScript;
+
+class yy_Code extends yy_Base
+{
+  public $children = array('params', 'body');
+
+  function constructor($params = NULL, $body = NULL, $tag = NULL)
+  {
+    $this->params = $params ? $params : array();
+    $this->body = $body ? $body : yy('Block');
+    $this->bound = $tag === 'boundfunc';
+    $this->context = $this->bound ? '_this' : NULL;
+
+    return $this;
+  }
+
+  function compile_node($options)
+  {
+    $options['scope'] = new Scope($options['scope'], $this->body, $this);
+    $options['scope']->shared = del($options, 'sharedScope');
+    $options['indent'] .= TAB;
+
+    unset($options['bare']);
+    unset($options['isExistentialEquals']);
+
+    $params = array();
+    $exprs = array();
+
+    foreach ($this->param_names() as $name)
+    {
+      if ( ! $options['scope']->check($name))
+      {
+        $options['scope']->parameter($name);
+      }
+    }
+
+    foreach ($this->params as $param)
+    {
+      if ($param->splat)
+      {
+        foreach ($this->params as $p)
+        {
+          if (isset($p->name->value) && $p->name->value)
+          {
+            $options['scope']->add($p->name->value, 'var', TRUE);
+          }
+        }
+
+        $tmp = array();
+
+        foreach ($this->params as $p)
+        {
+          $tmp[] = $p->as_reference($options);
+        }
+
+        $splats = yy('Assign', yy('Value', yy('Arr', $tmp)), yy('Value', yy('Literal', 'arguments')));
+
+        break;
+      }
+    }
+
+    foreach ($this->params as $param)
+    {
+      if ($param->is_complex())
+      {
+        $val = $ref = $param->as_reference($options);
+
+        if (isset($param->value) && $param->value)
+        {
+          $val = yy('Op', '?', $ref, $param->value);
+        }
+
+        $exprs[] = yy('Assign', yy('Value', $param->name), $val, '=', array('param' => TRUE));
+      }
+      else
+      {
+        $ref = $param;
+
+        if (isset($param->value) && $param->value)
+        {
+          $lit = yy('Literal', $ref->name->value.' == null');
+          $val = yy('Assign', yy('Value', $param->name), $param->value, '=');
+
+          $exprs[] = yy('If', $lit, $val);
+        }
+      }
+
+      if ( ! (isset($splats) && $splats))
+      {
+        $params[] = $ref;
+      }
+    }
+
+    $was_empty = $this->body->is_empty();
+
+    if (isset($splats) && $splats)
+    {
+      array_unshift($exprs, $splats);
+    }
+
+    if ($exprs)
+    {
+      foreach (array_reverse($exprs) as $expr)
+      {
+        array_unshift($this->body->expressions, $expr);
+      }
+    }
+
+    foreach ($params as $i => $p)
+    {
+      $options['scope']->parameter(($params[$i] = $p->compile($options)));
+    }
+
+    $uniqs = array();
+
+    foreach ($this->param_names() as $name)
+    {
+      if (in_array($name, $uniqs))
+      {
+        throw new SyntaxError("multiple parameters named $name");
+      }
+
+      $uniqs[] = $name;
+    }
+
+    if ( ! ($was_empty || $this->no_return))
+    {
+      $this->body->make_return();
+    }
+
+    if ($this->bound)
+    {
+      if (isset($options['scope']->parent->method->bound) && $options['scope']->parent->method->bound)
+      {
+        $this->bound = $this->context = $options['scope']->parent->method->context;
+      }
+      else if ( ! (isset($this->static) && $this->static))
+      {
+        $options['scope']->parent->assign('_this', 'this');
+      }
+    }
+
+    $idt = $options['indent'];
+    $code = 'function';
+
+    if ($this->ctor)
+    {
+      $code .= ' '.$this->name;
+    }
+
+    $code .= '('.implode(', ', $params).') {';
+
+    if ( ! $this->body->is_empty())
+    {
+      $code .= "\n".$this->body->compile_with_declarations($options)."\n{$this->tab}";
+    }
+
+    $code .= '}';
+
+    if ($this->ctor)
+    {
+      return $this->tab.$code;
+    }
+
+    return ($this->front || $options['level'] >= LEVEL_ACCESS) ? "({$code})" : $code;
+  }
+
+  function param_names()
+  {
+    $names = array();
+
+    foreach ($this->params as $param)
+    {
+      $names = array_merge($names, (array) $param->names());
+    }
+
+    return $names;
+  }
+
+  function is_statement($options = NULL)
+  {
+    return !! $this->ctor;
+  }
+
+  function jumps()
+  {
+    return FALSE;
+  }
+
+  function traverse_children($cross_scope, $func)
+  {
+    if ($cross_scope)
+    {
+      return parent::traverse_children($cross_scope, $func);
+    }
+
+    return NULL;
+  }
+}
+
+?>

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

@@ -0,0 +1,39 @@
+<?php
+
+namespace CoffeeScript;
+
+class yy_Comment extends yy_Base
+{
+  function constructor()
+  {
+    list($comment) = args(func_get_args(), 1);
+
+    $this->comment = $comment;
+
+    return $this;
+  }
+
+  function compile_node($options, $level = NULL)
+  {
+    $code = '/*'.multident($this->comment, $this->tab)."\n{$this->tab}*/\n";
+
+    if ($level === LEVEL_TOP || $options['level'] === LEVEL_TOP)
+    {
+      $code = $options['indent'].$code;
+    }
+
+    return $code;
+  }
+
+  function is_statement($options = NULL)
+  {
+    return TRUE;
+  }
+
+  function make_return($res = NULL)
+  {
+    return $this;
+  }
+}
+
+?>

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

@@ -0,0 +1,42 @@
+<?php
+
+namespace CoffeeScript;
+
+class yy_Existence extends yy_Base
+{
+  public $children = array('expression');
+
+  function constructor($expression)
+  {
+    $this->expression = $expression;
+
+    return $this;
+  }
+
+  function compile_node($options = array())
+  {
+    $this->expression->front = $this->front;
+    $code = $this->expression->compile($options, LEVEL_OP);
+
+    if (preg_match(IDENTIFIER, $code) && ! $options['scope']->check($code))
+    {
+      list($cmp, $cnj) = $this->negated ? array('===', '||') : array('!==', '&&');
+
+      $code = "typeof {$code} {$cmp} \"undefined\" {$cnj} {$code} {$cmp} null";
+    }
+    else
+    {
+      $code = "{$code} ".($this->negated ? '==' : '!=').' null';
+    }
+
+    return (isset($options['level']) && $options['level'] <= LEVEL_COND) ? $code : "({$code})";
+  }
+
+  function invert()
+  {
+    $this->negated = ! $this->negated;
+    return $this;
+  }
+}
+
+?>

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

@@ -0,0 +1,26 @@
+<?php
+
+namespace CoffeeScript;
+
+class yy_Extends extends yy_Base
+{
+  public $children = array('child', 'parent');
+
+  function constructor($child, $parent)
+  {
+    $this->child = $child;
+    $this->parent = $parent;
+
+    return $this;
+  }
+
+  function compile($options, $level = NULL)
+  {
+    $tmp = yy('Call', yy('Value', yy('Literal', utility('extends'))),
+      array($this->child, $this->parent));
+
+    return $tmp->compile($options);
+  }
+}
+
+?>

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

@@ -0,0 +1,250 @@
+<?php
+
+namespace CoffeeScript;
+
+class yy_For extends yy_While
+{
+  public $children = array('body', 'source', 'guard', 'step');
+
+  function constructor()
+  {
+    list($body, $source) = args(func_get_args(), 2);
+
+    $this->source = $source['source'];
+    $this->guard = isset($source['guard']) ? $source['guard'] : NULL;
+    $this->step = isset($source['step']) ? $source['step'] : NULL;
+    $this->name = isset($source['name']) ? $source['name'] : NULL;
+    $this->index = isset($source['index']) ? $source['index'] : NULL;
+
+    $this->body = yy_Block::wrap(array($body));
+
+    $this->own = (isset($source['own']) && $source['own']);
+    $this->object = (isset($source['object']) && $source['object']);
+
+    if ($this->object)
+    {
+      $tmp = $this->name;
+      $this->name = $this->index;
+      $this->index = $tmp;
+    }
+
+    if ($this->index instanceof yy_Value)
+    {
+      throw SyntaxError('index cannot be a pattern matching expression');
+    }
+
+    $this->range = $this->source instanceof yy_Value && $this->source->base instanceof yy_Range &&
+      ! count($this->source->properties);
+
+    $this->pattern = $this->name instanceof yy_Value;
+
+    if ($this->range && $this->index)
+    {
+      throw SyntaxError('indexes do not apply to range loops');
+    }
+
+    if ($this->range && $this->pattern)
+    {
+      throw SyntaxError('cannot pattern match over range loops');
+    }
+
+    $this->returns = FALSE;
+
+    return $this;
+  }
+
+  function compile_node($options)
+  {
+    $body = yy_Block::wrap(array($this->body));
+
+    $last_jumps = last($body->expressions);
+    $last_jumps = $last_jumps ? $last_jumps->jumps() : FALSE;
+
+    if ($last_jumps && $last_jumps instanceof yy_Return)
+    {
+      $this->returns = FALSE;
+    }
+
+    if ($this->range)
+    {
+      $source = $this->source->base;
+    }
+    else
+    {
+      $source = $this->source;
+    }
+
+    $scope = $options['scope'];
+
+    $name = $this->name ? $this->name->compile($options, LEVEL_LIST) : FALSE;
+    $index = $this->index ? $this->index->compile($options, LEVEL_LIST) : FALSE;
+
+    if ($name && ! $this->pattern)
+    {
+      $scope->find($name, array('immediate' => TRUE));
+    }
+
+    if ($index)
+    {
+      $scope->find($index, array('immediate' => TRUE));
+    }
+
+    if ($this->returns)
+    {
+      $rvar = $scope->free_variable('results');
+    }
+
+    $ivar = $this->object ? $index : $scope->free_variable('i');
+    $kvar = $this->range ? ($name ? $name : ($index ? $index : $ivar)) : ($index ? $index : $ivar);
+    $kvar_assign = $kvar !== $ivar ? "{$kvar} = " : '';
+
+    if ($this->step && ! $this->range)
+    {
+      $stepvar = $scope->free_variable('step');
+    }
+
+    if ($this->pattern)
+    {
+      $name = $ivar;
+    }
+
+    $var_part = '';
+    $guard_part = '';
+    $def_part = '';
+
+    $idt1 = $this->tab.TAB;
+
+    if ($this->range)
+    {
+      $for_part = $source->compile(array_merge($options, array('index' => $ivar, 'name' => $name, 'step' => $this->step)));
+    }
+    else
+    {
+      $svar = $this->source->compile($options, LEVEL_LIST);
+
+      if (($name || $this->own) && ! preg_match(IDENTIFIER, $svar))
+      {
+        $ref = $scope->free_variable('ref');
+        $def_part = "{$this->tab}{$ref} = {$svar};\n";
+        $svar = $ref;
+      }
+
+      if ($name && ! $this->pattern)
+      {
+        $name_part = "{$name} = {$svar}[{$kvar}]";
+      }
+
+      if ( ! $this->object)
+      {
+        $lvar = $scope->free_variable('len');
+        $for_var_part = "{$kvar_assign}{$ivar} = 0, {$lvar} = {$svar}.length";
+
+        if ($this->step)
+        {
+          $for_var_part .= ", {$stepvar} = ".$this->step->compile($options, LEVEL_OP);
+        }
+
+        $step_part = $kvar_assign.($this->step ? "{$ivar} += {$stepvar}" : ($kvar !== $ivar ? "++{$ivar}" : "{$ivar}++"));
+        $for_part = "{$for_var_part}; {$ivar} < {$lvar}; {$step_part}";
+      }
+    }
+
+    if ($this->returns)
+    {
+      $result_part = "{$this->tab}{$rvar} = [];\n";
+      $return_result = "\n{$this->tab}return {$rvar};";
+      $body->make_return($rvar);
+    }
+
+    if ($this->guard)
+    {
+      if (count($body->expressions) > 1)
+      {
+        array_unshift($body->expressions, yy('If', yy('Parens', $this->guard)->invert(), yy('Literal', 'continue')));
+      }
+      else
+      {
+        $body = yy_Block::wrap(array(yy('If', $this->guard, $body)));
+      }
+    }
+
+    if ($this->pattern)
+    {
+      array_unshift($body->expressions, yy('Assign', $this->name, yy('Literal', "{$svar}[{$kvar}]")));
+    }
+
+    $def_part .= $this->pluck_direct_call($options, $body);
+
+    if (isset($name_part) && $name_part)
+    {
+      $var_part = "\n{$idt1}{$name_part};";
+    }
+
+    if ($this->object)
+    {
+      $for_part = "{$kvar} in {$svar}";
+
+      if ($this->own)
+      {
+        $guard_part = "\n{$idt1}if (!".utility('hasProp').".call({$svar}, {$kvar})) continue;";
+      }
+    }
+
+    $body = $body->compile(array_merge($options, array('indent' => $idt1)), LEVEL_TOP);
+
+    if ($body)
+    {
+      $body = "\n{$body}\n";
+    }
+
+    return
+        "{$def_part}"
+      . (isset($result_part) ? $result_part : '')
+      . "{$this->tab}for ({$for_part}) {{$guard_part}{$var_part}{$body}{$this->tab}}"
+      . (isset($return_result) ? $return_result : '');
+  }
+
+  function pluck_direct_call($options, $body)
+  {
+    $defs = '';
+
+    foreach ($body->expressions as $idx => $expr)
+    {
+      $expr = $expr->unwrap_all();
+
+      if ( ! ($expr instanceof yy_Call))
+      {
+        continue;
+      }
+
+      $val = $expr->variable->unwrap_all();
+
+      if ( ! ( ($val instanceof yy_Code) ||
+               ($val instanceof yy_Value) &&
+               (isset($val->base) && $val->base && ($val->base->unwrap_all() instanceof yy_Code) &&
+                count($val->properties) === 1 &&
+                isset($val->properties[0]->name) && 
+                in_array($val->properties[0]->name['value'], array('call', 'apply'), TRUE))))
+      {
+        continue;
+      }
+
+      $fn = (isset($val->base) && $val->base) ? $val->base->unwrap_all() : $val;
+      $ref = yy('Literal', $options['scope']->free_variable('fn'));
+      $base = yy('Value', $ref);
+
+      if (isset($val->base) && $val->base)
+      {
+        list($val->base, $base) = array($base, $val);
+      }
+
+      $body->expressions[$idx] = yy('Call', $base, $expr->args);
+      $tmp = yy('Assign', $ref, $fn);
+      $defs .= $this->tab.$tmp->compile($options, LEVEL_TOP).";\n";
+    }
+
+    return $defs;
+  }
+}
+
+?>