static function compile($codestr) { #-- ideally, we want to avoid generating our parser table at every compilation. #-- 2 layers of caching: using an external file, and using static vars. global $def_fun_track; static $lex = NULL; static $parser = NULL; if ($lex == NULL) { $t0 = microtime(1); $path = dirname(__FILE__) . "/js.ly.php"; if (file_exists($path)) { include $path; } else { $path = JS_CACHE_DIR . "/js.ly.php"; if (file_exists($path)) { include $path; } else { require_once dirname(__FILE__) . "/parse/generator.so.php"; $lexp = generate_scanner_from_file(dirname(__FILE__) . "/js.l", 0)->pattern; $dpa = generate_parser_from_file(dirname(__FILE__) . "/js.y"); file_put_contents($path, "<?php\n" . "// This file is dynamically generated from js.l and js.y by metaphp's CFG parser\n" . "// Do not waste your time editing it or reading it. Move along. Thank you.\n" . "\n" . $GLOBALS['func_def'] . "\$lexp = " . var_export($lexp, 1) . ";\n\$dpa = " . var_export($dpa, 1) . ";\n?>"); } } $t1 = microtime(1); $lex = new preg_scanner(0, $lexp); $parser = new easy_parser($dpa); $t2 = microtime(1); #echo "Table loading: ".($t1-$t0)." seconds<br>"; #echo "Pre generation: ".($t2-$t1)." seconds<br>"; } $t3 = microtime(1); $lex->start($codestr); $program = $parser->parse("Program", $lex); $t4 = microtime(1); #echo "Parse time: ".($t4-$t3)." seconds<br>"; # convert into usable php code try { $php = $program->emit(); } catch (Exception $e) { #-- Compilation error. should be pretty rare. usually the parser will barf long before this. echo "Compilation Error: " . $e->value->msg . "<hr>"; } return $php; }
function __construct() { parent::__construct(0); $ocb = mk_action('$context++; $state="code";'); $ccb = mk_action('$context--; if ($context <= 0) $state = "rule";'); $m1 = mk_action('$text = substr($text,1);'); $m11 = mk_action('$text = substr($text,1,strlen($text)-2);'); $go_rule = mk_action("\$state = 'rule';"); $go_regex = mk_action("\$state = 'regex';"); $test_reserved_word = mk_action("if (\$text=='ignore') \$type='ignore';"); $nl = preg_pattern('([\\n\\r]+)', 'newline', 1, $go_regex); $cb = preg_pattern('(})', 'closebrace', 0, $go_rule); $ws = preg_pattern('(\\s+)', 'whitespace', 1, ''); $cm = preg_pattern('(#[^\\n\\r]*)', 'comment', 1, ''); $id = preg_pattern('(\\w+)', 'identifier', 0, $test_reserved_word); $dir = preg_pattern('(%(?:\\w+))', 'directive', 0, $m1); $div = preg_pattern('(%%)', 'divider', 0, $go_regex); $scope_tag = preg_pattern('(\\<(?:\\w+)>)', 'scope_tag', 0, $m11); $ob = preg_pattern('(\\{)', 'openbrace', 0, ''); $regex = preg_pattern('(\\S+)', 'regex', 0, $go_rule); $modifier = preg_pattern('(/(?:[misxU]+))', 'modifier', 0, $m1); $openbrace_rule = preg_pattern('({)', 'openbrace', 0, $ocb); $this->add_state('code', array(preg_pattern('(\'(?:\\.|[^\'])*\')', 'sstring', 0, ''), preg_pattern('("(?:\\.|[^"])*")', 'dstring', 0, ''), preg_pattern('((?m)(?:#|//).*?$)', 'linecomment', 0, ''), preg_pattern('(/\\*.*?\\*/)', 'blockcomment', 0, ''), $openbrace_rule, preg_pattern('(})', 'closebrace', 0, $ccb), preg_pattern('([^\'"#/}{]+|.)', 'php', 0, ''))); $this->add_state('INITIAL', array($dir, $div, $ws, $cm, $id)); $this->add_state('regex', array($nl, $cb, $ws, $cm, $id, $scope_tag, $ob, $regex)); $this->add_state('rule', array($nl, $cb, $ws, $cm, $id, $openbrace_rule, $modifier)); }