| @@ -54,282 +54,3 @@ | ||
| 54 | 54 | */ | 
| 55 | 55 | |
| 56 | 56 | const REGEX_PARSE_LINE = <<<'ENDREGEX' | 
| 57 | -  /^(\s*)(?:(?:([a-zA-Z0-9-]*)((?:[\.#!][\w\-\_]+)*)(\[(?:(?:\{\$[^\}]+\})?[^\\\]{]*?(?:\\.)*?(?:{[^\$])*?)+\])?)|([_\/]{1,3})|([\|:\$]\w+)|({?\$[^}]+}?)|)(?: (.*))?$/ | |
| 58 | - ENDREGEX; | |
| 59 | - | |
| 60 | - /** | |
| 61 | - * @var int Current Line Number | |
| 62 | - */ | |
| 63 | - protected $lineNo; | |
| 64 | - /** | |
| 65 | - * @var int Total Lines in File | |
| 66 | - */ | |
| 67 | - protected $lineCount; | |
| 68 | - | |
| 69 | - function __construct() | |
| 70 | -  { | |
| 71 | - $this->init(); | |
| 72 | - } | |
| 73 | - | |
| 74 | - /** | |
| 75 | - * Clear Lines, and Line Number, so if output is | |
| 76 | - * called, no output will be produced | |
| 77 | - */ | |
| 78 | - protected function init() | |
| 79 | -  { | |
| 80 | - $this->lines = []; | |
| 81 | - $this->lineNo = 0; | |
| 82 | - $this->lineCount = 0; | |
| 83 | - $this->root = []; | |
| 84 | - } | |
| 85 | - | |
| 86 | - protected function loadLines($s) | |
| 87 | -  { | |
| 88 | -    $this->lines = explode("\n", str_replace("\r", '', $s)); | |
| 89 | - $this->lineCount = count($this->lines); | |
| 90 | - $this->lineNo = 0; | |
| 91 | - } | |
| 92 | - | |
| 93 | - function parseFilter(ParseFilter $filter) | |
| 94 | -  { | |
| 95 | -    foreach ($this->root as $k => $tag) { | |
| 96 | - $this->root[$k] = $filter->filterTag($tag); | |
| 97 | - } | |
| 98 | - } | |
| 99 | - | |
| 100 | - function parseSnip($s) | |
| 101 | -  { | |
| 102 | - //save root tags | |
| 103 | - /** @var Tag[] $roots */ | |
| 104 | - $roots = $this->root; | |
| 105 | - $this->root = []; | |
| 106 | - $this->loadLines($s); | |
| 107 | - $this->procLines(); | |
| 108 | - $this->root = array_merge($roots, $this->root); | |
| 109 | - } | |
| 110 | - | |
| 111 | - function applySnip() | |
| 112 | -  { | |
| 113 | - /** @var Tag\Snippet[] $fwdSnip */ | |
| 114 | - $fwdSnip = []; | |
| 115 | - /** @var Tag\Snippet[] $revSnip */ | |
| 116 | - $revSnip = []; | |
| 117 | - /** @var Tag[] $roots */ | |
| 118 | - $roots = []; | |
| 119 | -    foreach ($this->root as $snip) { | |
| 120 | -      if ($snip instanceof Tag\Snippet) { | |
| 121 | -        if ($snip->getType() == 'append') { | |
| 122 | - array_unshift($revSnip, $snip); | |
| 123 | -        } else { | |
| 124 | - $fwdSnip[] = $snip; | |
| 125 | - } | |
| 126 | -      } else { | |
| 127 | - $roots[] = $snip; | |
| 128 | - } | |
| 129 | - } | |
| 130 | -    foreach ($fwdSnip as $snip) { | |
| 131 | -      foreach ($roots as $root) { | |
| 132 | - $snip->apply($root); | |
| 133 | - } | |
| 134 | - } | |
| 135 | -    foreach ($revSnip as $snip) { | |
| 136 | -      foreach ($roots as $root) { | |
| 137 | - $snip->apply($root); | |
| 138 | - } | |
| 139 | - } | |
| 140 | - $this->root = $roots; | |
| 141 | - } | |
| 142 | - | |
| 143 | - /** | |
| 144 | - * Parse HAMLE template, from a string | |
| 145 | - * @param string $s String to parse | |
| 146 | - */ | |
| 147 | - function str($s) | |
| 148 | -  { | |
| 149 | - $this->init(); | |
| 150 | - $this->loadLines($s); | |
| 151 | - $this->procLines(); | |
| 152 | - } | |
| 153 | - | |
| 154 | - function procLines() | |
| 155 | -  { | |
| 156 | - /* @var $heir Tag[] Tag Heirachy Array */ | |
| 157 | - $heir = []; | |
| 158 | -    while ($this->lineNo < $this->lineCount) { | |
| 159 | - $line = $this->lines[$this->lineNo]; | |
| 160 | -      if (trim($line)) { | |
| 161 | -        if (preg_match(self::REGEX_PARSE_LINE, $line, $m)) { | |
| 162 | -          if (false !== strpos($m[1], "\t")) { | |
| 163 | - throw new ParseError( | |
| 164 | - 'Tabs are not supported in templates at this time', | |
| 165 | - ); | |
| 166 | - } | |
| 167 | - $indent = strlen($m[1]); | |
| 168 | - $tag = isset($m[2]) ? ($tag = $m[2]) : ''; | |
| 169 | - $classid = isset($m[3]) ? $m[3] : ''; | |
| 170 | - $params = str_replace( | |
| 171 | - ['\[', '\]', '\\&'], | |
| 172 | - ['[', ']', '%26'], | |
| 173 | - isset($m[4]) ? $m[4] : '', | |
| 174 | - ); | |
| 175 | - $textcode = isset($m[5]) ? $m[5] : ''; | |
| 176 | - $text = isset($m[8]) ? $m[8] : ''; | |
| 177 | - $code = isset($m[6]) ? $m[6] : ''; | |
| 178 | - $i = self::indentLevel($indent); | |
| 179 | - unset($m[0]); | |
| 180 | -          switch (strlen($code) ? $code[0] : ($textcode ? $textcode : '')) { | |
| 181 | - case '|': //Control Tag | |
| 182 | -              if ($code == '|snippet') { | |
| 183 | - $hTag = new Tag\Snippet($text); | |
| 184 | -              } elseif ($code == '|form') { | |
| 185 | - $hTag = new Tag\Form($text); | |
| 186 | -              } elseif ($code == '|formhint') { | |
| 187 | - $hTag = new Tag\FormHint(); | |
| 188 | -              } elseif ($code == '|else') { | |
| 189 | - $hTag = new Tag\Control(substr($code, 1), $heir[$i - 1]); | |
| 190 | - $hTag->setVar($text); | |
| 191 | -              } else { | |
| 192 | - $hTag = new Tag\Control(substr($code, 1)); | |
| 193 | - $hTag->setVar($text); | |
| 194 | - } | |
| 195 | - break; | |
| 196 | - case ':': //Filter Tag | |
| 197 | - $hTag = new Tag\Filter(substr($code, 1)); | |
| 198 | - $hTag->addContent($text, Text::TOKEN_CODE); | |
| 199 | -              foreach ($this->consumeBlock($indent) as $l) { | |
| 200 | - $hTag->addContent($l, Text::TOKEN_CODE); | |
| 201 | - } | |
| 202 | - break; | |
| 203 | - case '_': //String Tag | |
| 204 | - case '__': //Unescape String Tag | |
| 205 | - case '___': //Unescape String Tag (with unescaped vars) | |
| 206 | - $hTag = new Tag\Text($textcode); | |
| 207 | - $hTag->addContent($text); | |
| 208 | - break; | |
| 209 | - case '___': //Unescape String Tag | |
| 210 | - $hTag = new Tag\Text($textcode); | |
| 211 | - $hTag->addContent($text); | |
| 212 | - break; | |
| 213 | - case '/': // HTML Comment | |
| 214 | - case '//': // Non Printed Comment | |
| 215 | - $hTag = new Tag\Comment($textcode); | |
| 216 | - $hTag->addContent($text); | |
| 217 | -              foreach ($this->consumeBlock($indent) as $l) { | |
| 218 | - $hTag->addContent($l, Text::TOKEN_CODE); | |
| 219 | - } | |
| 220 | - break; | |
| 221 | - default: | |
| 222 | - $attr = []; | |
| 223 | -              if (isset($params[0]) && $params[0] == '[') { | |
| 224 | - $param = substr($params, 1, -1); | |
| 225 | - $param = str_replace(['+', '\\&'], ['%2B', '%26'], $param); | |
| 226 | - // parse_str($param, $attr); | |
| 227 | - $attr = $this->parseQueryString($param); | |
| 228 | - } | |
| 229 | - $class = []; | |
| 230 | - $id = ''; | |
| 231 | - $ref = ''; | |
| 232 | -              preg_match_all('/[#\.!][a-zA-Z0-9\-\_]+/m', $classid, $cid); | |
| 233 | -              if (isset($cid[0])) { | |
| 234 | -                foreach ($cid[0] as $s) { | |
| 235 | -                  if ($s[0] == '#') { | |
| 236 | - $id = substr($s, 1); | |
| 237 | - } | |
| 238 | -                  if ($s[0] == '.') { | |
| 239 | - $class[] = substr($s, 1); | |
| 240 | - } | |
| 241 | -                  if ($s[0] == '!') { | |
| 242 | - $ref = substr($s, 1); | |
| 243 | - } | |
| 244 | - } | |
| 245 | - } | |
| 246 | -              if ($ref) { | |
| 247 | - $hTag = new Tag\DynHtml($tag, $class, $attr, $id, $ref); | |
| 248 | -              } else { | |
| 249 | - $hTag = new Tag\Html($tag, $class, $attr, $id); | |
| 250 | - } | |
| 251 | - $hTag->addContent($text); | |
| 252 | - break; | |
| 253 | - } | |
| 254 | - $heir[$i] = $hTag; | |
| 255 | -          if ($i > 0) { | |
| 256 | - $heir[$i - 1]->addChild($hTag); | |
| 257 | -          } else { | |
| 258 | - $this->root[] = $hTag; | |
| 259 | - } | |
| 260 | -        } else { | |
| 261 | - throw new ParseError( | |
| 262 | -            "Unable to parse line {$this->lineNo}\n\"$line\"/" . | |
| 263 | - preg_last_error(), | |
| 264 | - ); | |
| 265 | - } | |
| 266 | - } | |
| 267 | - $this->lineNo++; | |
| 268 | - } | |
| 269 | - } | |
| 270 | - | |
| 271 | - function parseQueryString($qs) | |
| 272 | -  { | |
| 273 | - $out = []; | |
| 274 | -    foreach (explode('&', $qs) as $s) { | |
| 275 | -      $kv = explode('=', $s, 2); | |
| 276 | - $out[urldecode($kv[0])] = isset($kv[1]) ? urldecode($kv[1]) : null; | |
| 277 | - } | |
| 278 | - return $out; | |
| 279 | - } | |
| 280 | - | |
| 281 | - function output($minify = false) | |
| 282 | -  { | |
| 283 | - $out = "<?php\nuse Seufert\\Hamle;\n?>"; | |
| 284 | -    foreach ($this->root as $tag) { | |
| 285 | - $out .= $tag->render(0, $minify); | |
| 286 | - } | |
| 287 | - return $out; | |
| 288 | - } | |
| 289 | - | |
| 290 | - function consumeBlock($indent) | |
| 291 | -  { | |
| 292 | - $out = []; | |
| 293 | - $m = []; | |
| 294 | - while ( | |
| 295 | - $this->lineNo + 1 < $this->lineCount && | |
| 296 | - (!trim($this->lines[$this->lineNo + 1]) || | |
| 297 | - preg_match( | |
| 298 | -          '/^(\s){' . $indent . '}((\s)+[^\s].*)$/', | |
| 299 | - $this->lines[$this->lineNo + 1], | |
| 300 | - $m, | |
| 301 | - )) | |
| 302 | -    ) { | |
| 303 | -      if (trim($this->lines[$this->lineNo + 1])) { | |
| 304 | - $out[] = $m[2]; | |
| 305 | - } | |
| 306 | - $this->lineNo++; | |
| 307 | - } | |
| 308 | - return $out; | |
| 309 | - } | |
| 310 | - | |
| 311 | - function indentLevel($indent) | |
| 312 | -  { | |
| 313 | -    if (!isset($this->indents)) { | |
| 314 | - $this->indents = []; | |
| 315 | - } | |
| 316 | -    if (!count($this->indents)) { | |
| 317 | - $this->indents = [0 => $indent]; | |
| 318 | - // Key = indent level, Value = Depth in spaces | |
| 319 | - return 0; | |
| 320 | - } | |
| 321 | -    foreach ($this->indents as $k => $v) { | |
| 322 | -      if ($v == $indent) { | |
| 323 | - $this->indents = array_slice($this->indents, 0, $k + 1); | |
| 324 | - return $k; | |
| 325 | - } | |
| 326 | - } | |
| 327 | - $this->indents[] = $indent; | |
| 328 | - return max(array_keys($this->indents)); | |
| 329 | - } | |
| 330 | - | |
| 331 | - function getLineNo() | |
| 332 | -  { | |
| 333 | - return $this->lineNo; | |
| 334 | - } | |
| 335 | -} | |
| @@ -54,282 +54,3 @@ | ||
| 54 | 54 | */ | 
| 55 | 55 | |
| 56 | 56 | const REGEX_PARSE_LINE = <<<'ENDREGEX' | 
| 57 | -  /^(\s*)(?:(?:([a-zA-Z0-9-]*)((?:[\.#!][\w\-\_]+)*)(\[(?:(?:\{\$[^\}]+\})?[^\\\]{]*?(?:\\.)*?(?:{[^\$])*?)+\])?)|([_\/]{1,3})|([\|:\$]\w+)|({?\$[^}]+}?)|)(?: (.*))?$/ | |
| 58 | - ENDREGEX; | |
| 59 | - | |
| 60 | - /** | |
| 61 | - * @var int Current Line Number | |
| 62 | - */ | |
| 63 | - protected $lineNo; | |
| 64 | - /** | |
| 65 | - * @var int Total Lines in File | |
| 66 | - */ | |
| 67 | - protected $lineCount; | |
| 68 | - | |
| 69 | - function __construct() | |
| 70 | -  { | |
| 71 | - $this->init(); | |
| 72 | - } | |
| 73 | - | |
| 74 | - /** | |
| 75 | - * Clear Lines, and Line Number, so if output is | |
| 76 | - * called, no output will be produced | |
| 77 | - */ | |
| 78 | - protected function init() | |
| 79 | -  { | |
| 80 | - $this->lines = []; | |
| 81 | - $this->lineNo = 0; | |
| 82 | - $this->lineCount = 0; | |
| 83 | - $this->root = []; | |
| 84 | - } | |
| 85 | - | |
| 86 | - protected function loadLines($s) | |
| 87 | -  { | |
| 88 | -    $this->lines = explode("\n", str_replace("\r", '', $s)); | |
| 89 | - $this->lineCount = count($this->lines); | |
| 90 | - $this->lineNo = 0; | |
| 91 | - } | |
| 92 | - | |
| 93 | - function parseFilter(ParseFilter $filter) | |
| 94 | -  { | |
| 95 | -    foreach ($this->root as $k => $tag) { | |
| 96 | - $this->root[$k] = $filter->filterTag($tag); | |
| 97 | - } | |
| 98 | - } | |
| 99 | - | |
| 100 | - function parseSnip($s) | |
| 101 | -  { | |
| 102 | - //save root tags | |
| 103 | - /** @var Tag[] $roots */ | |
| 104 | - $roots = $this->root; | |
| 105 | - $this->root = []; | |
| 106 | - $this->loadLines($s); | |
| 107 | - $this->procLines(); | |
| 108 | - $this->root = array_merge($roots, $this->root); | |
| 109 | - } | |
| 110 | - | |
| 111 | - function applySnip() | |
| 112 | -  { | |
| 113 | - /** @var Tag\Snippet[] $fwdSnip */ | |
| 114 | - $fwdSnip = []; | |
| 115 | - /** @var Tag\Snippet[] $revSnip */ | |
| 116 | - $revSnip = []; | |
| 117 | - /** @var Tag[] $roots */ | |
| 118 | - $roots = []; | |
| 119 | -    foreach ($this->root as $snip) { | |
| 120 | -      if ($snip instanceof Tag\Snippet) { | |
| 121 | -        if ($snip->getType() == 'append') { | |
| 122 | - array_unshift($revSnip, $snip); | |
| 123 | -        } else { | |
| 124 | - $fwdSnip[] = $snip; | |
| 125 | - } | |
| 126 | -      } else { | |
| 127 | - $roots[] = $snip; | |
| 128 | - } | |
| 129 | - } | |
| 130 | -    foreach ($fwdSnip as $snip) { | |
| 131 | -      foreach ($roots as $root) { | |
| 132 | - $snip->apply($root); | |
| 133 | - } | |
| 134 | - } | |
| 135 | -    foreach ($revSnip as $snip) { | |
| 136 | -      foreach ($roots as $root) { | |
| 137 | - $snip->apply($root); | |
| 138 | - } | |
| 139 | - } | |
| 140 | - $this->root = $roots; | |
| 141 | - } | |
| 142 | - | |
| 143 | - /** | |
| 144 | - * Parse HAMLE template, from a string | |
| 145 | - * @param string $s String to parse | |
| 146 | - */ | |
| 147 | - function str($s) | |
| 148 | -  { | |
| 149 | - $this->init(); | |
| 150 | - $this->loadLines($s); | |
| 151 | - $this->procLines(); | |
| 152 | - } | |
| 153 | - | |
| 154 | - function procLines() | |
| 155 | -  { | |
| 156 | - /* @var $heir Tag[] Tag Heirachy Array */ | |
| 157 | - $heir = []; | |
| 158 | -    while ($this->lineNo < $this->lineCount) { | |
| 159 | - $line = $this->lines[$this->lineNo]; | |
| 160 | -      if (trim($line)) { | |
| 161 | -        if (preg_match(self::REGEX_PARSE_LINE, $line, $m)) { | |
| 162 | -          if (false !== strpos($m[1], "\t")) { | |
| 163 | - throw new ParseError( | |
| 164 | - 'Tabs are not supported in templates at this time', | |
| 165 | - ); | |
| 166 | - } | |
| 167 | - $indent = strlen($m[1]); | |
| 168 | - $tag = isset($m[2]) ? ($tag = $m[2]) : ''; | |
| 169 | - $classid = isset($m[3]) ? $m[3] : ''; | |
| 170 | - $params = str_replace( | |
| 171 | - ['\[', '\]', '\\&'], | |
| 172 | - ['[', ']', '%26'], | |
| 173 | - isset($m[4]) ? $m[4] : '', | |
| 174 | - ); | |
| 175 | - $textcode = isset($m[5]) ? $m[5] : ''; | |
| 176 | - $text = isset($m[8]) ? $m[8] : ''; | |
| 177 | - $code = isset($m[6]) ? $m[6] : ''; | |
| 178 | - $i = self::indentLevel($indent); | |
| 179 | - unset($m[0]); | |
| 180 | -          switch (strlen($code) ? $code[0] : ($textcode ? $textcode : '')) { | |
| 181 | - case '|': //Control Tag | |
| 182 | -              if ($code == '|snippet') { | |
| 183 | - $hTag = new Tag\Snippet($text); | |
| 184 | -              } elseif ($code == '|form') { | |
| 185 | - $hTag = new Tag\Form($text); | |
| 186 | -              } elseif ($code == '|formhint') { | |
| 187 | - $hTag = new Tag\FormHint(); | |
| 188 | -              } elseif ($code == '|else') { | |
| 189 | - $hTag = new Tag\Control(substr($code, 1), $heir[$i - 1]); | |
| 190 | - $hTag->setVar($text); | |
| 191 | -              } else { | |
| 192 | - $hTag = new Tag\Control(substr($code, 1)); | |
| 193 | - $hTag->setVar($text); | |
| 194 | - } | |
| 195 | - break; | |
| 196 | - case ':': //Filter Tag | |
| 197 | - $hTag = new Tag\Filter(substr($code, 1)); | |
| 198 | - $hTag->addContent($text, Text::TOKEN_CODE); | |
| 199 | -              foreach ($this->consumeBlock($indent) as $l) { | |
| 200 | - $hTag->addContent($l, Text::TOKEN_CODE); | |
| 201 | - } | |
| 202 | - break; | |
| 203 | - case '_': //String Tag | |
| 204 | - case '__': //Unescape String Tag | |
| 205 | - case '___': //Unescape String Tag (with unescaped vars) | |
| 206 | - $hTag = new Tag\Text($textcode); | |
| 207 | - $hTag->addContent($text); | |
| 208 | - break; | |
| 209 | - case '___': //Unescape String Tag | |
| 210 | - $hTag = new Tag\Text($textcode); | |
| 211 | - $hTag->addContent($text); | |
| 212 | - break; | |
| 213 | - case '/': // HTML Comment | |
| 214 | - case '//': // Non Printed Comment | |
| 215 | - $hTag = new Tag\Comment($textcode); | |
| 216 | - $hTag->addContent($text); | |
| 217 | -              foreach ($this->consumeBlock($indent) as $l) { | |
| 218 | - $hTag->addContent($l, Text::TOKEN_CODE); | |
| 219 | - } | |
| 220 | - break; | |
| 221 | - default: | |
| 222 | - $attr = []; | |
| 223 | -              if (isset($params[0]) && $params[0] == '[') { | |
| 224 | - $param = substr($params, 1, -1); | |
| 225 | - $param = str_replace(['+', '\\&'], ['%2B', '%26'], $param); | |
| 226 | - // parse_str($param, $attr); | |
| 227 | - $attr = $this->parseQueryString($param); | |
| 228 | - } | |
| 229 | - $class = []; | |
| 230 | - $id = ''; | |
| 231 | - $ref = ''; | |
| 232 | -              preg_match_all('/[#\.!][a-zA-Z0-9\-\_]+/m', $classid, $cid); | |
| 233 | -              if (isset($cid[0])) { | |
| 234 | -                foreach ($cid[0] as $s) { | |
| 235 | -                  if ($s[0] == '#') { | |
| 236 | - $id = substr($s, 1); | |
| 237 | - } | |
| 238 | -                  if ($s[0] == '.') { | |
| 239 | - $class[] = substr($s, 1); | |
| 240 | - } | |
| 241 | -                  if ($s[0] == '!') { | |
| 242 | - $ref = substr($s, 1); | |
| 243 | - } | |
| 244 | - } | |
| 245 | - } | |
| 246 | -              if ($ref) { | |
| 247 | - $hTag = new Tag\DynHtml($tag, $class, $attr, $id, $ref); | |
| 248 | -              } else { | |
| 249 | - $hTag = new Tag\Html($tag, $class, $attr, $id); | |
| 250 | - } | |
| 251 | - $hTag->addContent($text); | |
| 252 | - break; | |
| 253 | - } | |
| 254 | - $heir[$i] = $hTag; | |
| 255 | -          if ($i > 0) { | |
| 256 | - $heir[$i - 1]->addChild($hTag); | |
| 257 | -          } else { | |
| 258 | - $this->root[] = $hTag; | |
| 259 | - } | |
| 260 | -        } else { | |
| 261 | - throw new ParseError( | |
| 262 | -            "Unable to parse line {$this->lineNo}\n\"$line\"/" . | |
| 263 | - preg_last_error(), | |
| 264 | - ); | |
| 265 | - } | |
| 266 | - } | |
| 267 | - $this->lineNo++; | |
| 268 | - } | |
| 269 | - } | |
| 270 | - | |
| 271 | - function parseQueryString($qs) | |
| 272 | -  { | |
| 273 | - $out = []; | |
| 274 | -    foreach (explode('&', $qs) as $s) { | |
| 275 | -      $kv = explode('=', $s, 2); | |
| 276 | - $out[urldecode($kv[0])] = isset($kv[1]) ? urldecode($kv[1]) : null; | |
| 277 | - } | |
| 278 | - return $out; | |
| 279 | - } | |
| 280 | - | |
| 281 | - function output($minify = false) | |
| 282 | -  { | |
| 283 | - $out = "<?php\nuse Seufert\\Hamle;\n?>"; | |
| 284 | -    foreach ($this->root as $tag) { | |
| 285 | - $out .= $tag->render(0, $minify); | |
| 286 | - } | |
| 287 | - return $out; | |
| 288 | - } | |
| 289 | - | |
| 290 | - function consumeBlock($indent) | |
| 291 | -  { | |
| 292 | - $out = []; | |
| 293 | - $m = []; | |
| 294 | - while ( | |
| 295 | - $this->lineNo + 1 < $this->lineCount && | |
| 296 | - (!trim($this->lines[$this->lineNo + 1]) || | |
| 297 | - preg_match( | |
| 298 | -          '/^(\s){' . $indent . '}((\s)+[^\s].*)$/', | |
| 299 | - $this->lines[$this->lineNo + 1], | |
| 300 | - $m, | |
| 301 | - )) | |
| 302 | -    ) { | |
| 303 | -      if (trim($this->lines[$this->lineNo + 1])) { | |
| 304 | - $out[] = $m[2]; | |
| 305 | - } | |
| 306 | - $this->lineNo++; | |
| 307 | - } | |
| 308 | - return $out; | |
| 309 | - } | |
| 310 | - | |
| 311 | - function indentLevel($indent) | |
| 312 | -  { | |
| 313 | -    if (!isset($this->indents)) { | |
| 314 | - $this->indents = []; | |
| 315 | - } | |
| 316 | -    if (!count($this->indents)) { | |
| 317 | - $this->indents = [0 => $indent]; | |
| 318 | - // Key = indent level, Value = Depth in spaces | |
| 319 | - return 0; | |
| 320 | - } | |
| 321 | -    foreach ($this->indents as $k => $v) { | |
| 322 | -      if ($v == $indent) { | |
| 323 | - $this->indents = array_slice($this->indents, 0, $k + 1); | |
| 324 | - return $k; | |
| 325 | - } | |
| 326 | - } | |
| 327 | - $this->indents[] = $indent; | |
| 328 | - return max(array_keys($this->indents)); | |
| 329 | - } | |
| 330 | - | |
| 331 | - function getLineNo() | |
| 332 | -  { | |
| 333 | - return $this->lineNo; | |
| 334 | - } | |
| 335 | -} | |
| @@ -301,14 +301,14 @@ discard block | ||
| 301 | 301 |      private function peg_f1($i) { $return = array(); | 
| 302 | 302 |                                                    array_walk_recursive($i, function($a) use (&$return) { $return[] = $a; }); | 
| 303 | 303 | return $return; | 
| 304 | - } | |
| 304 | + } | |
| 305 | 305 |      private function peg_f2($text) { return new \Seufert\Hamle\TextNode\StringLit(join('',$text)); } | 
| 306 | 306 |      private function peg_f3($body) { return $body; } | 
| 307 | 307 |      private function peg_f4($name) { | 
| 308 | 308 | return new \Seufert\Hamle\TextNode\ScopeId(null, null, new \Seufert\Hamle\TextNode\ModelParam($name)); } | 
| 309 | 309 |      private function peg_f5($expr, $chain) { if(!$chain) return $expr; | 
| 310 | - $top = array_pop($chain); | |
| 311 | -                           while($chain) { $top = array_pop($chain)->withChain($top); } return $expr->withChain($top); } | |
| 310 | + $top = array_pop($chain); | |
| 311 | +                            while($chain) { $top = array_pop($chain)->withChain($top); } return $expr->withChain($top); } | |
| 312 | 312 |      private function peg_f6($sub) { return $sub; } | 
| 313 | 313 |      private function peg_f7($filter) { return $filter; } | 
| 314 | 314 |      private function peg_f8($name) { return new \Seufert\Hamle\TextNode\ModelParam($name, null); } | 
| @@ -347,13 +347,13 @@ discard block | ||
| 347 | 347 | } | 
| 348 | 348 |      private function peg_f35($s) { return new \Seufert\Hamle\TextNode\StringLit(join('',$s)); } | 
| 349 | 349 |      private function peg_f36($s, $e, $post) { | 
| 350 | - $o = []; | |
| 351 | -                               if($s) $o[] = new \Seufert\Hamle\TextNode\StringLit(join('',$s)); | |
| 352 | - if($e) $o[] = $e; | |
| 353 | - if($post) foreach($post as $p) $o[] = $p; | |
| 354 | -                               if(!$o) return new \Seufert\Hamle\TextNode\StringLit(''); | |
| 355 | - return \Seufert\Hamle\TextNode\StringConcat::fromList($o); | |
| 356 | - } | |
| 350 | + $o = []; | |
| 351 | +                                if($s) $o[] = new \Seufert\Hamle\TextNode\StringLit(join('',$s)); | |
| 352 | + if($e) $o[] = $e; | |
| 353 | + if($post) foreach($post as $p) $o[] = $p; | |
| 354 | +                                if(!$o) return new \Seufert\Hamle\TextNode\StringLit(''); | |
| 355 | + return \Seufert\Hamle\TextNode\StringConcat::fromList($o); | |
| 356 | + } | |
| 357 | 357 |      private function peg_f37($parts) { return new \Seufert\Hamle\TextNode\StringLit($parts[1]); } | 
| 358 | 358 |      private function peg_f38($chars) { return join('', $chars); } | 
| 359 | 359 |      private function peg_f39($c) { return $c; } | 
| @@ -306,7 +306,9 @@ discard block | ||
| 306 | 306 |      private function peg_f3($body) { return $body; } | 
| 307 | 307 |      private function peg_f4($name) { | 
| 308 | 308 | return new \Seufert\Hamle\TextNode\ScopeId(null, null, new \Seufert\Hamle\TextNode\ModelParam($name)); } | 
| 309 | -    private function peg_f5($expr, $chain) { if(!$chain) return $expr; | |
| 309 | +    private function peg_f5($expr, $chain) { if(!$chain) { | |
| 310 | + return $expr; | |
| 311 | + } | |
| 310 | 312 | $top = array_pop($chain); | 
| 311 | 313 |                             while($chain) { $top = array_pop($chain)->withChain($top); } return $expr->withChain($top); } | 
| 312 | 314 |      private function peg_f6($sub) { return $sub; } | 
| @@ -339,19 +341,35 @@ discard block | ||
| 339 | 341 |      private function peg_f33($parts) { return $parts[1]; } | 
| 340 | 342 |      private function peg_f34($s, $e, $post) { | 
| 341 | 343 | $o = []; | 
| 342 | -            if($s) $o[] = new \Seufert\Hamle\TextNode\StringLit(join('',$s)); | |
| 343 | - if($e) $o[] = $e; | |
| 344 | - if($post) foreach($post as $p) $o[] = $p; | |
| 345 | -            if(!$o) return new \Seufert\Hamle\TextNode\StringLit(''); | |
| 344 | +            if($s) { | |
| 345 | +              $o[] = new \Seufert\Hamle\TextNode\StringLit(join('',$s)); | |
| 346 | + } | |
| 347 | +            if($e) { | |
| 348 | + $o[] = $e; | |
| 349 | + } | |
| 350 | +            if($post) { | |
| 351 | + foreach($post as $p) $o[] = $p; | |
| 352 | + } | |
| 353 | +            if(!$o) { | |
| 354 | +              return new \Seufert\Hamle\TextNode\StringLit(''); | |
| 355 | + } | |
| 346 | 356 | return \Seufert\Hamle\TextNode\StringConcat::fromList($o); | 
| 347 | 357 | } | 
| 348 | 358 |      private function peg_f35($s) { return new \Seufert\Hamle\TextNode\StringLit(join('',$s)); } | 
| 349 | 359 |      private function peg_f36($s, $e, $post) { | 
| 350 | 360 | $o = []; | 
| 351 | -                               if($s) $o[] = new \Seufert\Hamle\TextNode\StringLit(join('',$s)); | |
| 352 | - if($e) $o[] = $e; | |
| 353 | - if($post) foreach($post as $p) $o[] = $p; | |
| 354 | -                               if(!$o) return new \Seufert\Hamle\TextNode\StringLit(''); | |
| 361 | +                               if($s) { | |
| 362 | +                                 $o[] = new \Seufert\Hamle\TextNode\StringLit(join('',$s)); | |
| 363 | + } | |
| 364 | +                               if($e) { | |
| 365 | + $o[] = $e; | |
| 366 | + } | |
| 367 | +                               if($post) { | |
| 368 | + foreach($post as $p) $o[] = $p; | |
| 369 | + } | |
| 370 | +                               if(!$o) { | |
| 371 | +                                 return new \Seufert\Hamle\TextNode\StringLit(''); | |
| 372 | + } | |
| 355 | 373 | return \Seufert\Hamle\TextNode\StringConcat::fromList($o); | 
| 356 | 374 | } | 
| 357 | 375 |      private function peg_f37($parts) { return new \Seufert\Hamle\TextNode\StringLit($parts[1]); } |