guard-mthaml 0.1.0

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

@@ -0,0 +1,225 @@
+<?php
+
+namespace CoffeeScript;
+
+class yy_Range extends yy_Base
+{
+  public $children = array('from', 'to');
+
+  public $from_num = 0;
+  public $to_num = 0;
+
+  private static function check($num)
+  {
+    // '0' evaluates to FALSE in PHP, but TRUE in JavaScript. Explicit conditions here.
+    return ! in_array($num, array(0, NULL, FALSE, ''), TRUE);
+  }
+
+  function constructor($from, $to, $tag)
+  {
+    $this->from = $from;
+    $this->to = $to;
+    $this->exclusive = $tag === 'exclusive';
+    $this->equals = $this->exclusive ? '' : '=';
+
+    return $this;
+  }
+
+  function compile_array($options)
+  {
+    if (self::check($this->from_num) && self::check($this->to_num) && abs($this->from_num - $this->to_num) <= 20)
+    {
+      $range = range($this->from_num, $this->to_num);
+
+      if ($this->exclusive)
+      {
+        array_pop($range);
+      }
+
+      return '['.implode(', ', $range).']';
+    }
+
+    $idt = $this->tab.TAB;
+    $i = $options['scope']->free_variable('i');
+    $result = $options['scope']->free_variable('results');
+    $pre = "\n{$idt}{$result} = [];";
+
+    if (self::check($this->from_num) && self::check($this->to_num))
+    {
+      $options['index'] = $i;
+      $body = $this->compile_node($options);
+    }
+    else
+    {
+      $vars = "{$i} = {$this->from_c}".($this->to_c !== $this->to_var ? ", {$this->to_c}" : '');
+      $cond = "{$this->from_var} <= {$this->to_var}";
+      $body = "var {$vars}; {$cond} ? {$i} <{$this->equals} {$this->to_var} : {$i} >{$this->equals} {$this->to_var}; {$cond} ? {$i}++ : {$i}--";
+    }
+
+    $post = "{ {$result}.push({$i}); }\n{$idt}return {$result};\n{$options['indent']}";
+
+    $has_args = function($node)
+    {
+      return $node->contains(function($n)
+      {
+        return ($n instanceof yy_Literal) && $n->value === 'arguments' && ! $n->as_key;
+      });
+
+      return FALSE;
+    };
+
+    $args = '';
+
+    if ($has_args($this->from) || $has_args($this->to))
+    {
+      $args = ', arguments';
+    }
+
+    return "(function() {{$pre}\n{$idt}for ({$body}){$post}}).apply(this{$args})";
+  }
+
+  function compile_node($options)
+  {
+    if ( ! (isset($this->from_var) && $this->from_var))
+    {
+      $this->compile_variables($options);
+    }
+
+    if ( ! (isset($options['index']) && $options['index']))
+    {
+      return $this->compile_array($options);
+    }
+
+    $known = self::check($this->from_num) && self::check($this->to_num);
+    $idx = del($options, 'index');
+    $idx_name = del($options, 'name');
+    $named_index = $idx_name && $idx_name !== $idx;
+
+    $var_part = "{$idx} = {$this->from_c}";
+
+    if ($this->to_c !== $this->to_var)
+    {
+      $var_part .= ", {$this->to_c}";
+    }
+
+    if (isset($this->step) && $this->step !== $this->step_var)
+    {
+      $var_part .= ", {$this->step}";
+    }
+
+    list($lt, $gt) = array("{$idx} <{$this->equals}", "{$idx} >{$this->equals}");
+
+    if (isset($this->step_num) && self::check($this->step_num))
+    {
+      $cond_part = intval($this->step_num) > 0 ? "{$lt} {$this->to_var}" : "{$gt} {$this->to_var}";
+    }
+    else if ($known)
+    {
+      list($from, $to) = array(intval($this->from_num), intval($this->to_num));
+      $cond_part = $from <= $to ? "{$lt} {$to}" : "{$gt} {$to}";
+    }
+    else
+    {
+      $cond = "{$this->from_var} <= {$this->to_var}";
+      $cond_part = "{$cond} ? {$lt} {$this->to_var} : {$gt} {$this->to_var}";
+    }
+
+    if (isset($this->step_var) && $this->step_var)
+    {
+      $step_part = "{$idx} += {$this->step_var}";
+    }
+    else if ($known)
+    {
+      if ($named_index)
+      {
+        $step_part = $from <= $to ? "++{$idx}" : "--{$idx}";
+      }
+      else
+      {
+        $step_part = $from <= $to ? "{$idx}++" : "{$idx}--";
+      }
+    }
+    else
+    {
+      if ($named_index)
+      {
+        $step_part = "{$cond} ? ++{$idx} : --{$idx}";
+      }
+      else
+      {
+        $step_part = "{$cond} ? {$idx}++ : {$idx}--";
+      }
+    }
+
+    if ($named_index)
+    {
+      $var_part = "{$idx_name} = {$var_part}";
+      $step_part = "{$idx_name} = {$step_part}";
+    }
+
+    return "{$var_part}; {$cond_part}; {$step_part}";
+  }
+
+  function compile_simple($options)
+  {
+    list($from, $to) = array($this->from_num, $this->to_num);
+
+    $idx = del($options, 'index');
+    $step = del($options, 'step');
+
+    if ($step)
+    {
+      $stepvar = $options['scope']->free_variable('step');
+    }
+
+    $var_part = "{$idx} = {$from}";
+
+    if ($step)
+    {
+      $var_part .= ", {$stepvar} = ".$step->compile($options);
+    }
+
+    $cond_part = $from <= $to ? "{$idx} <{$this->equals} {$to}" : "{$idx} >{$this->equals} {$to}";
+
+    if ($step)
+    {
+      $step_part = "{$idx} += {$stepvar}";
+    }
+    else
+    {
+      $step_part = $from <= $to ? "{$idx}++" : "{$idx}--";
+    }
+
+    return "{$var_part}; {$cond_part}; {$step_part}";
+  }
+
+  function compile_variables($options)
+  {
+    $options = array_merge($options, array('top' => TRUE));
+
+    list($this->from_c, $this->from_var) = $this->from->cache($options, LEVEL_LIST);
+    list($this->to_c, $this->to_var) = $this->to->cache($options, LEVEL_LIST);
+
+    if ($step = del($options, 'step'))
+    {
+      list($this->step, $this->step_var) = $step->cache($options, LEVEL_LIST);
+    }
+
+    if (preg_match(SIMPLENUM, $this->from_var, $m))
+    {
+      $this->from_num = $m[0];
+    }
+
+    if (preg_match(SIMPLENUM, $this->to_var, $m))
+    {
+      $this->to_num = $m[0];
+    }
+
+    if (isset($this->step_var) && $this->step_var && preg_match(SIMPLENUM, $this->step_var, $m))
+    {
+      $this->step_num = $m[0];
+    }
+  }
+}
+
+?>

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

@@ -0,0 +1,56 @@
+<?php
+
+namespace CoffeeScript;
+
+class yy_Return extends yy_Base
+{
+  public $children = array('expression');
+
+  function constructor($expr = NULL)
+  {
+    if ($expr && ! ($expr->unwrap()->is_undefined()))
+    {
+      $this->expression = $expr;
+    }
+
+    return $this;
+  }
+
+  function compile($options, $level = NULL)
+  {
+    $expr = (isset($this->expression) && $this->expression) ? $this->expression->make_return() : NULL;
+
+    if ($expr && ! ($expr instanceof yy_Return))
+    {
+      $ret = $expr->compile($options, $level);
+    }
+    else
+    {
+      $ret = parent::compile($options, $level);
+    }
+
+    return $ret;
+  }
+
+  function compile_node($options)
+  {
+    return $this->tab.'return'.(isset($this->expression) && $this->expression ? ' '.$this->expression->compile($options, LEVEL_PAREN) : '').';';
+  }
+
+  function is_statement($options = NULL)
+  {
+    return TRUE;
+  }
+
+  function jumps()
+  {
+    return $this;
+  }
+
+  function make_return($res = NULL)
+  {
+    return $this;
+  }
+}
+
+?>

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

@@ -0,0 +1,47 @@
+<?php
+
+namespace CoffeeScript;
+
+class yy_Slice extends yy_Base
+{
+  public $children = array('range');
+
+  function constructor($range)
+  {
+    $this->range = $range;
+
+    return $this;
+  }
+
+  function compile_node($options)
+  {
+    $to = $this->range->to;
+    $from = $this->range->from;
+
+    $from_str = $from ? $from->compile($options, LEVEL_PAREN) : '0';
+    $compiled = $to ? $to->compile($options, LEVEL_PAREN) : '';
+
+    if ($to && ! ( ! $this->range->exclusive && intval($compiled) === -1))
+    {
+      $to_str = ', ';
+
+      if ($this->range->exclusive)
+      {
+        $to_str .= $compiled;
+      }
+      else if (preg_match(SIMPLENUM, $compiled))
+      {
+        $to_str .= (intval($compiled) + 1);
+      }
+      else
+      {
+        $compiled = $to->compile($options, LEVEL_ACCESS);
+        $to_str .= "{$compiled} + 1 || 9e9";
+      }
+    }
+
+    return ".slice({$from_str}".(isset($to_str) ? $to_str : '').')';
+  }
+}
+
+?>

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

@@ -0,0 +1,100 @@
+<?php
+
+namespace CoffeeScript;
+
+class yy_Splat extends yy_Base
+{
+  public $children = array('name');
+
+  static function compile_splatted_array($options, $list, $apply = FALSE)
+  {
+    $index = -1;
+
+    while (isset($list[++$index]) && ($node = $list[$index]) && ! ($node instanceof yy_Splat))
+    {
+      continue;
+    }
+
+    if ($index >= count($list))
+    {
+      return '';
+    }
+
+    if (count($list) === 1)
+    {
+      $code = $list[0]->compile($options, LEVEL_LIST);
+
+      if ($apply)
+      {
+        return $code;
+      }
+
+      return utility('slice').".call({$code})";
+    }
+
+    $args = array_slice($list, $index);
+
+    foreach ($args as $i => $node)
+    {
+      $code = $node->compile($options, LEVEL_LIST);
+      $args[$i] = ($node instanceof yy_Splat) ? utility('slice').".call({$code})" : "[{$code}]";
+    }
+
+    if ($index === 0)
+    {
+      return $args[0].'.concat('.implode(', ', array_slice($args, 1)).')';
+    }
+
+    $base = array();
+
+    foreach (array_slice($list, 0, $index) as $node)
+    {
+      $base[] = $node->compile($options, LEVEL_LIST);
+    }
+
+    return '['.implode(', ', $base).'].concat('.implode(', ', $args).')';
+  }
+
+  function constructor($name)
+  {
+    if (is_object($name))
+    {
+      $this->name = $name;
+    }
+    else
+    {
+      $this->name = yy('Literal', $name);
+    }
+
+    return $this;
+  }
+
+  function assigns($name)
+  {
+    return $this->name->assigns($name);
+  }
+
+  function compile($options, $level = NULL)
+  {
+    if (isset($this->index) && $this->index)
+    {
+      return $this->compile_param($options);
+    }
+    else
+    {
+      return $this->name->compile($options);
+    }
+  }
+
+  function is_assignable()
+  {
+    return TRUE;
+  }
+
+  function unwrap()
+  {
+    return $this->name;
+  }
+}
+
+?>

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

@@ -0,0 +1,121 @@
+<?php
+
+namespace CoffeeScript;
+
+class yy_Switch extends yy_Base
+{
+  public $children = array('subject', 'cases', 'otherwise');
+
+  function constructor($subject = NULL, $cases = array(), $otherwise = NULL)
+  {
+    $this->subject = $subject;
+    $this->cases = $cases;
+    $this->otherwise = $otherwise;
+
+    return $this;
+  }
+
+  function compile_node($options)
+  {
+    $idt1 = $options['indent'].TAB;
+    $idt2 = $options['indent'] = $idt1.TAB;
+
+    $code = $this->tab.'switch ('
+      .($this->subject ? $this->subject->compile($options, LEVEL_PAREN) : 'false')
+      .") {\n";
+
+    foreach ($this->cases as $i => $case)
+    {
+      list($conditions, $block) = $case;
+
+      foreach (flatten(array($conditions)) as $cond)
+      {
+        if ( ! $this->subject)
+        {
+          $cond = $cond->invert();
+        }
+
+        $code .= $idt1.'case '.$cond->compile($options, LEVEL_PAREN).":\n";
+      }
+
+      if ($body = $block->compile($options, LEVEL_TOP))
+      {
+        $code .= $body."\n";
+      }
+
+      if ($i === (count($this->cases) - 1) && ! $this->otherwise)
+      {
+        break;
+      }
+
+      $expr = $this->last_non_comment($block->expressions);
+
+      if ($expr instanceof yy_Return || 
+         ($expr instanceof yy_Literal && $expr->jumps() && ''.$expr->value !== 'debugger'))
+      {
+        continue;
+      }
+
+      $code .= $idt2."break;\n";
+    }
+
+    if ($this->otherwise && count($this->otherwise->expressions))
+    {
+      $code .= $idt1."default:\n".$this->otherwise->compile($options, LEVEL_TOP)."\n";
+    }
+
+    return $code.$this->tab.'}';
+  }
+
+  function is_statement($options = NULL)
+  {
+    return TRUE;
+  }
+
+  function jumps($options = array())
+  {
+    if ( ! isset($options['block']))
+    {
+      $options['block'] = TRUE;
+    }
+
+    foreach ($this->cases as $case)
+    {
+      list($conds, $block) = $case;
+
+      if ($block->jumps($options))
+      {
+        return $block;
+      }
+    }
+
+    if (isset($this->otherwise) && $this->otherwise)
+    {
+      return $this->otherwise->jumps($options);
+    }
+
+    return FALSE;
+  }
+
+  function make_return($res = NULL)
+  {
+    foreach ($this->cases as $pair)
+    {
+      $pair[1]->make_return($res);
+    }
+
+    if ($res && ! $this->otherwise)
+    {
+      $this->otherwise = yy('Block', array(yy('Literal', 'void 0')));
+    }
+
+    if ($this->otherwise)
+    {
+      $this->otherwise->make_return($res);
+    }
+
+    return $this;
+  }
+}
+
+?>