guard-mthaml 0.1.0

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

@@ -0,0 +1,161 @@
+<?php
+
+namespace CoffeeScript;
+
+class yy_If extends yy_Base
+{
+  public $children = array('condition', 'body', 'else_body');
+
+  function constructor($condition, $body, $options = array())
+  {
+    $this->condition = (isset($options['type']) && $options['type'] === 'unless') ? $condition->invert() : $condition;
+    $this->body = $body;
+    $this->else_body = NULL;
+    $this->is_chain = FALSE;
+    $this->soak = isset($options['soak']) ? $options['soak'] : NULL;
+
+    return $this;
+  }
+
+  function add_else($else_body)
+  {
+    if ($this->is_chain())
+    {
+      $this->else_body_node()->add_else($else_body);
+    }
+    else
+    {
+      $this->is_chain = $else_body instanceof yy_If;
+      $this->else_body = $this->ensure_block($else_body);
+    }
+
+    return $this;
+  }
+
+  function body_node()
+  {
+    return $this->body ? $this->body->unwrap() : NULL;
+  }
+
+  function compile_node($options = array())
+  {
+    return $this->is_statement($options) ? $this->compile_statement($options) : $this->compile_expression($options);
+  }
+
+  function compile_expression($options)
+  {
+    $cond = $this->condition->compile($options, LEVEL_COND);
+    $body = $this->body_node()->compile($options, LEVEL_LIST);
+
+    $alt = ($tmp = $this->else_body_node()) ? $tmp->compile($options, LEVEL_LIST) : 'void 0';
+    $code = "{$cond} ? {$body} : {$alt}";
+
+    return (isset($options['level']) && $options['level'] >= LEVEL_COND) ? "({$code})" : $code;
+  }
+
+  function compile_statement($options)
+  {
+    $child = del($options, 'chainChild');
+    $exeq = del($options, 'isExistentialEquals');
+
+    if ($exeq)
+    {
+      return yy('If', $this->condition->invert(), $this->else_body_node(), array('type' => 'if'))->compile($options);
+    }
+
+    $cond = $this->condition->compile($options, LEVEL_PAREN);
+    $options['indent'] .= TAB;
+    $body = $this->ensure_block($this->body);
+    $if_part = "if ({$cond}) {\n".$body->compile($options)."\n{$this->tab}}";
+
+    if ( ! $child)
+    {
+      $if_part = $this->tab.$if_part;
+    }
+
+    if ( ! $this->else_body)
+    {
+      return $if_part;
+    }
+
+    $ret = $if_part.' else ';
+
+    if ($this->is_chain())
+    {
+      $options['indent'] = $this->tab;
+      $options['chainChild'] = TRUE;
+
+      $ret .= $this->else_body->unwrap()->compile($options, LEVEL_TOP);
+    }
+    else
+    {
+      $ret .= "{\n".$this->else_body->compile($options, LEVEL_TOP)."\n{$this->tab}}";
+    }
+
+    return $ret;
+  }
+
+  function else_body_node()
+  {
+    return (isset($this->else_body) && $this->else_body) ? $this->else_body->unwrap() : NULL;
+  }
+
+  function ensure_block($node)
+  {
+    return $node instanceof yy_Block ? $node : yy('Block', array($node));
+  }
+
+  function is_chain()
+  {
+    return $this->is_chain;
+  }
+
+  function is_statement($options = array())
+  {
+    return (isset($options['level']) && $options['level'] === LEVEL_TOP) ||
+      $this->body_node()->is_statement($options) ||
+      (($tmp = $this->else_body_node()) && $tmp->is_statement($options));
+  }
+
+  function jumps($options = array())
+  {
+    $tmp = $this->body->jumps($options);
+
+    if ( ! $tmp && isset($this->else_body))
+    {
+      $tmp = $this->else_body->jumps($options);
+    }
+
+    return $tmp;
+  }
+
+  function make_return($res = NULL)
+  {
+    if ( ! (isset($this->else_body) && $this->else_body))
+    {
+      if ($res)
+      {
+        $this->else_body = yy('Block', array(yy('Literal', 'void 0')));
+      }
+    }
+
+    if ($this->body)
+    {
+      $this->body = yy('Block', array($this->body->make_return($res)));
+    }
+
+    if ($this->else_body)
+    {
+      $this->else_body = yy('Block', array($this->else_body->make_return($res)));
+    }
+
+    return $this;
+  }
+
+  function unfold_soak($options = NULL)
+  {
+    return $this->soak ? $this : FALSE;
+  }
+}
+
+?>

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

@@ -0,0 +1,99 @@
+<?php
+
+namespace CoffeeScript;
+
+class yy_In extends yy_Base
+{
+  public $children = array('object', 'array');
+
+  public $negated = NULL;
+
+  function constructor($object = NULL, $array = NULL)
+  {
+    $this->array = $array;
+    $this->object = $object;
+
+    return $this;
+  }
+
+  function compile_node($options = array())
+  {
+    if ($this->array instanceof yy_Value && $this->array->is_array())
+    {
+      $has_splat = FALSE;
+
+      foreach ($this->array->base->objects as $obj)
+      {
+        if ($obj instanceof yy_Splat)
+        {
+          $has_splat = TRUE;
+          break;
+        }
+      }
+
+      if ( ! $has_splat)
+      {
+        return $this->compile_or_test($options);
+      }
+    }
+
+    return $this->compile_loop_test($options);
+  }
+
+  function compile_or_test($options)
+  {
+    if (count($this->array->base->objects) === 0)
+    {
+      return $this->negated ? 'true' : 'false';
+    }
+
+    list($sub, $ref) = $this->object->cache($options, LEVEL_OP);
+    list($cmp, $cnj) = $this->negated ? array(' !== ', ' && ') : array(' === ', ' || ');
+
+    $tests = array();
+
+    foreach ($this->array->base->objects as $i => $item)
+    {
+      $tests[] = ($i ? $ref : $sub).$cmp.$item->compile($options, LEVEL_ACCESS);
+    }
+
+    if ( ! $tests)
+    {
+      // In JavaScript '' + false gives 'false', not so in PHP
+      return 'false';
+    }
+
+    $tests = implode($cnj, $tests);
+
+    return (isset($options['level']) && $options['level'] < LEVEL_OP) ? $tests : "({$tests})";
+  }
+
+  function compile_loop_test($options)
+  {
+    list($sub, $ref) = $this->object->cache($options, LEVEL_LIST);
+
+    $code = utility('indexOf').".call(".$this->array->compile($options, LEVEL_LIST).", {$ref}) "
+      .($this->negated ? '< 0' : '>= 0');
+
+    if ($sub === $ref)
+    {
+      return $code;
+    }
+
+    $code = $sub.', '.$code;
+    return (isset($options['level']) && $options['level'] < LEVEL_LIST) ? $code : "({$code})";
+  }
+
+  function invert()
+  {
+    $this->negated = ! $this->negated;
+    return $this;
+  }
+
+  function to_string($idt = '', $name = __CLASS__)
+  {
+    return parent::to_string($idt, $name.($this->negated ? '!' : ''));
+  }
+}
+
+?>

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

@@ -0,0 +1,27 @@
+<?php
+
+namespace CoffeeScript;
+
+class yy_Index extends yy_Base
+{
+  public $children = array('index');
+
+  function constructor($index)
+  {
+    $this->index = $index;
+
+    return $this;
+  }
+
+  function compile($options, $level = NULL)
+  {
+    return '['.$this->index->compile($options, LEVEL_PAREN).']';
+  }
+
+  function is_complex()
+  {
+    return $this->index->is_complex();
+  }
+}
+
+?>

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

@@ -0,0 +1,96 @@
+<?php
+
+namespace CoffeeScript;
+
+class yy_Literal extends yy_Base
+{
+  public $is_undefined = FALSE;
+
+  function constructor($value)
+  {
+    $this->value = $value;
+
+    return $this;
+  }
+
+  function assigns($name)
+  {
+    return $name === $this->value;
+  }
+
+  function compile_node($options)
+  {
+    if ($this->is_undefined())
+    {
+      $code = $options['level'] >= LEVEL_ACCESS ? '(void 0)' : 'void 0';
+    }
+    else if ($this->value === 'this')
+    {
+      if ( (isset($options['scope']->method->bound) && $options['scope']->method->bound) )
+      {
+        $code = $options['scope']->method->context;
+      }
+      else
+      {
+        $code = $this->value;
+      }
+    }
+    else if (isset($this->value->reserved) && $this->value->reserved)
+    {
+      $code = '"'.$this->value.'"';
+    }
+    else
+    {
+      $code = ''.$this->value;
+    }
+
+    return $this->is_statement() ? "{$this->tab}{$code};" : $code;
+  }
+
+  function is_assignable()
+  {
+    return preg_match(IDENTIFIER, ''.$this->value);
+  }
+
+  function is_complex()
+  {
+    return FALSE;
+  }
+
+  function is_statement($options = NULL)
+  {
+    return in_array(''.$this->value, array('break', 'continue', 'debugger'), TRUE);
+  }
+
+  function is_undefined()
+  {
+    return $this->is_undefined;
+  }
+
+  function jumps($options = array())
+  {
+    if ($this->value === 'break' && ! ( (isset($options['loop']) && $options['loop']) || (isset($options['block']) && $options['block']) ))
+    {
+      return $this;
+    }
+
+    if ($this->value === 'continue' && ! (isset($options['loop']) && $options['loop']))
+    {
+      return $this;
+    }
+
+    return FALSE;
+  }
+
+  function make_return($res = NULL)
+  {
+    return $this->is_statement() ? $this : parent::make_return($res);
+  }
+
+  function to_string($idt = '', $name = __CLASS__)
+  {
+    return ' "'.$this->value.'"';
+  }
+}
+
+?>

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

@@ -0,0 +1,126 @@
+<?php
+
+namespace CoffeeScript;
+
+class yy_Obj extends yy_Base
+{
+  public $children = array('properties');
+
+  function constructor($props, $generated = FALSE)
+  {
+    $this->generated = $generated;
+
+    $this->properties = $props ? $props : array();
+    $this->objects = $this->properties;
+
+    return $this;
+  }
+
+  function assigns($name)
+  {
+    foreach ($this->properties as $prop)
+    {
+      if ($prop->assigns($name))
+      {
+        return TRUE;
+      }
+    }
+
+    return FALSE;
+  }
+
+  function compile_node($options)
+  {
+    $props = $this->properties;
+    $prop_names = array();
+
+    foreach ($this->properties as $prop)
+    {
+      if ($prop->is_complex())
+      {
+        $prop = isset($prop->variable) ? $prop->variable : NULL;
+      }
+
+      if ($prop)
+      {
+        $prop_name = $prop->unwrap_all();
+        $prop_name = isset($prop_name->value) ? $prop_name->value.'' : NULL;
+
+        if (in_array($prop_name, $prop_names))
+        {
+          throw new SyntaxError('multiple object literal properties named "'.$prop_name.'"');
+        }
+
+        $prop_names[] = $prop_name;
+      }
+    }
+
+    if ( ! count($props))
+    {
+      return ($this->front ? '({})' : '{}');
+    }
+
+    if ($this->generated)
+    {
+      foreach ($props as $node)
+      {
+        if ($node instanceof yy_Value)
+        {
+          throw new Error('cannot have an implicit value in an implicit object');
+        }
+      }
+    }
+
+    $idt = $options['indent'] .= TAB;
+    $last_non_com = $this->last_non_comment($this->properties);
+
+    foreach ($props as $i => $prop)
+    {
+      if ($i === count($props) - 1)
+      {
+        $join = '';
+      }
+      else if ($prop === $last_non_com || $prop instanceof yy_Comment)
+      {
+        $join = "\n";
+      }
+      else
+      {
+        $join = ",\n";
+      }
+
+      $indent = $prop instanceof yy_Comment ? '' : $idt;
+
+      if ($prop instanceof yy_Value && (isset($prop->this) && $prop->this))
+      {
+        $prop = yy('Assign', $prop->properties[0]->name, $prop, 'object');
+      }
+
+      if ( ! ($prop instanceof yy_Comment))
+      {
+        if ( ! ($prop instanceof yy_Assign))
+        {
+          $prop = yy('Assign', $prop, $prop, 'object');
+        }
+
+        if (isset($prop->variable->base))
+        {
+          $prop->variable->base->as_key = TRUE;
+        }
+        else
+        {
+          $prop->variable->as_key = TRUE;
+        }
+      }
+
+      $props[$i] = $indent.$prop->compile($options, LEVEL_TOP).$join;
+    }
+
+    $props = implode('', $props);
+    $obj = '{'.($props ? "\n{$props}\n{$this->tab}" : '').'}';
+
+    return ($this->front ? "({$obj})" : $obj);
+  }
+}
+
+?>