Func __1ijhk8vfi_InputStream($sInput) Local $t = DllStructCreate("WCHAR input["&StringLen($sInput)&"];LONG length;LONG pos;BOOL eof;") DllStructSetData($t, "input", $sInput) $t.length = StringLen($sInput) $t.pos = 1 Return $t EndFunc Func __1ijhk8vfi_InputStream_Peek(ByRef $t) If $t.eof Then Return Null Return DllStructGetData($t, "input", $t.pos) EndFunc Func __1ijhk8vfi_InputStream_PeekAhead(ByRef $t, $i) If $t.pos + $i > $t.length Then $i = $t.length - $t.pos + 1 If $i = 0 Then Return Null Return DllStructGetData(DllStructCreate("WCHAR["&$i&"]", DllStructGetPtr($t, "input") + ($t.pos - 1) * 2), 1) EndFunc Func __1ijhk8vfi_InputStream_Skip(ByRef $t, $i = 1) $t.pos += $i __1ijhk8vfi_InputStream_CheckEOF($t) EndFunc Func __1ijhk8vfi_InputStream_SkipBackwards(ByRef $t, $i = 1) __1ijhk8vfi_InputStream_Skip($t, -$i) EndFunc Func __1ijhk8vfi_InputStream_Consume(ByRef $t) If $t.eof Then Return Null Local $c = DllStructGetData($t, "input", $t.pos) __1ijhk8vfi_InputStream_Skip($t) Return $c EndFunc Func __1ijhk8vfi_InputStream_GetPosition(ByRef $t) Return $t.pos EndFunc Func __1ijhk8vfi_InputStream_SetPosition(ByRef $t, $i) $t.pos = $i __1ijhk8vfi_InputStream_CheckEOF($t) EndFunc Func __1ijhk8vfi_InputStream_CheckEOF(ByRef $t) $t.eof = $t.pos > $t.length EndFunc Func __1ijhk8vfi_InputStream_GetEOF(ByRef $t) Return $t.eof EndFunc Func __1ijhk8vfi_InputStream_GetSubstring(ByRef $t, $i, $j) Local $l = $t.length + 1 If $j > $l Then $j = $l If $i > $l Then $i = $l If $i > $j Then Local $tmp = $i $i = $j $j = $tmp EndIf If $i = $j Then Return "" Return DllStructGetData(DllStructCreate("WCHAR input["&($j - $i)&"];", DllStructGetPtr($t, "input") + ($i - 1) * 2), 1) EndFunc Func __1ijhk8vfi_Array($v1=Null,$v2=Null,$v3=Null,$v4=Null,$v5=Null,$v6=Null,$v7=Null,$v8=Null,$v9=Null,$v10=Null,$v11=Null,$v12=Null,$v13=Null,$v14=Null,$v15=Null,$v16=Null,$v17=Null,$v18=Null,$v19=Null,$v20=Null,$v21=Null,$v22=Null,$v23=Null,$v24=Null,$v25=Null,$v26=Null,$v27=Null,$v28=Null,$v29=Null,$v30=Null,$v31=Null,$v32=Null,$v33=Null,$v34=Null,$v35=Null,$v36=Null,$v37=Null,$v38=Null,$v39=Null,$v40=Null,$v41=Null,$v42=Null,$v43=Null,$v44=Null,$v45=Null,$v46=Null,$v47=Null,$v48=Null,$v49=Null,$v50=Null,$v51=Null,$v52=Null,$v53=Null,$v54=Null,$v55=Null,$v56=Null,$v57=Null,$v58=Null,$v59=Null,$v60=Null,$v61=Null,$v62=Null,$v63=Null,$v64=Null,$v65=Null,$v66=Null,$v67=Null,$v68=Null,$v69=Null,$v70=Null,$v71=Null,$v72=Null,$v73=Null,$v74=Null,$v75=Null,$v76=Null,$v77=Null,$v78=Null,$v79=Null,$v80=Null,$v81=Null,$v82=Null,$v83=Null,$v84=Null,$v85=Null,$v86=Null,$v87=Null,$v88=Null,$v89=Null,$v90=Null,$v91=Null,$v92=Null,$v93=Null,$v94=Null,$v95=Null,$v96=Null,$v97=Null,$v98=Null,$v99=Null,$v100=Null) Local $a[@NumParams] For $i = 1 To @NumParams $a[$i - 1] = Eval("v"&$i) Next Return $a EndFunc Func __1ijhk8vfi_Parser_Run(ByRef $t, ByRef $a) Local $s = "Call($a[0], $t" For $i = 1 To Ubound($a) - 1 $s &= ", $a[" & $i & "]" Next $s &= ")" Local $r = Execute($s) Return SetError(@error, @extended, $r) EndFunc Func __1ijhk8vfi_Parser_OneOrMore(ByRef $t, ByRef $v) Local $a[16], $i = 0, $p = __1ijhk8vfi_InputStream_GetPosition($t), $e = 0, $s While 1 $s = "Call($v[0], $t" For $j = 1 To Ubound($v) - 1 $s &= ", $v[" & $j & "]" Next $s &= ")" $a[$i] = Execute($s) If @error Then $e = @error ExitLoop EndIf $i += 1 If Ubound($a) = $i Then Redim $a[$i * 2] WEnd If $i = 0 Then Return SetError($e = 0 ? 1 : $e, 0, Null) Redim $a[$i] Return $a EndFunc Func __1ijhk8vfi_Parser_Choice(ByRef $t, ByRef $a) Local $p = __1ijhk8vfi_InputStream_GetPosition($t), $s, $a2, $r, $e = 0 For $i = 0 To Ubound($a) - 1 $a2 = $a[$i] $s = "Call($a2[0], $t" For $j = 1 To Ubound($a2) - 1 $s &= ", $a2[" & $j & "]" Next $s &= ")" $r = Execute($s) If @error = 0 Then Return $r EndIf $e = @error __1ijhk8vfi_InputStream_SetPosition($t, $p) Next Return SetError($e, 0, Null) EndFunc Func __1ijhk8vfi_Parser_Literal(ByRef $t, $v, $b = True) $s = __1ijhk8vfi_InputStream_PeekAhead($t, StringLen($v)) __1ijhk8vfi_InputStream_Skip($t, StringLen($v)) If ($b ? $s = $v : $s == $v) Then Return $s Return SetError(1, 0, Null) EndFunc Func __1ijhk8vfi_Parser_Action(ByRef $t, $f, ByRef $a, $i) Local $p = __1ijhk8vfi_InputStream_GetPosition($t), $e = 0 Local $a2 = __1ijhk8vfi_Parser_Run($t, $a) If @error Then $e = @error __1ijhk8vfi_InputStream_SetPosition($t, $p) Return SetError($e, $p, Null) EndIf Local $s = "Call($f" For $j = 0 To Ubound($i) - 1 $s &= ", $a2[" & $i[$j] & "]" Next If $i = Null Then $s &= ", $a2" $s &= ")" Local $r = Execute($s) $e = @error Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_Parser_Sequence(ByRef $t, ByRef $a) Local $p = __1ijhk8vfi_InputStream_GetPosition($t) For $i = 0 To Ubound($a) - 1 $a[$i] = __1ijhk8vfi_Parser_Run($t, $a[$i]) If @error Then $e = @error __1ijhk8vfi_InputStream_SetPosition($t, $p) Return SetError($e, $p, Null) EndIf Next Return $a EndFunc Func __1ijhk8vfi_Parser_Labeled(ByRef $t, $l, ByRef $a) Local $r = __1ijhk8vfi_Parser_Run($t, $a) Return SetError(@error, @extended, $r) EndFunc Func __1ijhk8vfi_Parser_RuleRef(ByRef $t, $r) Local $v = $r($t) Return SetError(@error, @extended, $v) EndFunc Func __1ijhk8vfi_Parser_ZeroOrMore(ByRef $t, ByRef $v) Local $a[16], $i = 0, $p = __1ijhk8vfi_InputStream_GetPosition($t), $e = 0, $s While 1 Local $p1 = __1ijhk8vfi_InputStream_GetPosition($t) $s = "Call($v[0], $t" For $j = 1 To Ubound($v) - 1 $s &= ", $v[" & $j & "]" Next $s &= ")" $a[$i] = Execute($s) If @error Then $e = @error ExitLoop EndIf $i += 1 If Ubound($a) = $i Then Redim $a[$i * 2] If __1ijhk8vfi_InputStream_GetPosition($t) = $p1 Then ConsoleWrite("Parser_ZeroOrMore infinite loop detected. Please report this to the author and include the grammar."&@CRLF&@TAB&__1ijhk8vfi_InputStream_GetPosition($t)&@CRLF) Exit EndIf WEnd Redim $a[$i] Return $a EndFunc Func __1ijhk8vfi_Parser_Group(ByRef $t, ByRef $a, $i = Null) Local $r = __1ijhk8vfi_Parser_Run($t, $a) Local $e = @error Local $p = @extended If @error = 0 Then If Not ($i = Null) Then If Ubound($i) = 1 Then Return SetError($e, $p, $r[$i[0]]) Local $a2[Ubound($i)] For $j = 0 To Ubound($i) - 1 $a2[$j] = $r[$i[$j]] Next Return SetError($e, $p, $a2) EndIf EndIf Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_Parser_Class(ByRef $t, ByRef $a, $b = True, $inv = False) Local $a2 Local $c = __1ijhk8vfi_InputStream_Peek($t) If $c = Null Then Return SetError(1, 0, Null) Local $c2 = $b ? AscW(StringIsUpper($c) ? StringLower($c) : StringUpper($c)) : Null $c = AscW($c) If $b And $c = $c2 Then $b = False For $i = 0 To Ubound($a) - 1 If IsArray($a[$i]) Then $a2 = $a[$i] If ($a2[0]<=$c And $a2[1]>=$c) Or ($b And $a2[0]<=$c2 And $a2[1]>=$c2) Then If $inv Then Return SetError(1, 0, Null) __1ijhk8vfi_InputStream_Skip($t) Return ChrW($c) EndIf Else If ($c = $a[$i]) Or ($b And $c2 = $a[$i]) Then If $inv Then Return SetError(1, 0, Null) __1ijhk8vfi_InputStream_Skip($t) Return ChrW($c) EndIf EndIf Next If $inv Then __1ijhk8vfi_InputStream_Skip($t) Return ChrW($c) EndIf Return SetError(1, 0, Null) EndFunc Func __1ijhk8vfi_Parser_Named(ByRef $t, $n, ByRef $a) Local $r = __1ijhk8vfi_Parser_Run($t, $a) Return SetError(@error, @extended, $r) EndFunc Func __1ijhk8vfi_Parser_Text(ByRef $t, ByRef $a) Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local $r = __1ijhk8vfi_Parser_Run($t, $a) If @error Then Return SetError(@error, @extended, Null) Return __1ijhk8vfi_InputStream_GetSubstring($t, $p, __1ijhk8vfi_InputStream_GetPosition($t)) EndFunc Func __1ijhk8vfi_Parser_SimpleNot(ByRef $t, ByRef $a) Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local $r = __1ijhk8vfi_Parser_Run($t, $a) Local $e = @error __1ijhk8vfi_InputStream_SetPosition($t, $p) If $e = 0 Then Return SetError(1, $p, Null) EndIf Return SetError(0, $p, $r) EndFunc Func __1ijhk8vfi_Parser_Any(ByRef $t) Local $r = __1ijhk8vfi_InputStream_Consume($t) Return SetError($r = Null ? 1 : 0, 0, $r) EndFunc Func __1ijhk8vfi_Parser_Optional(ByRef $t, ByRef $a) Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local $r = __1ijhk8vfi_Parser_Run($t, $a) If @error Then __1ijhk8vfi_InputStream_SetPosition($t, $p) EndIf Return $r EndFunc Func __1ijhk8vfi_0($program) Execute("") return $program; EndFunc Func __1ijhk8vfi_peg_fStart(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_0, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "program", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fProgram)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_1() Execute("") Local $m[] $m["type"] = "IncludeOnceStatement" $m["location"] = location() Return $m ;return { type: "IncludeOnceStatement", location: location() }; EndFunc Func __1ijhk8vfi_2($body) Execute("") Local $m[] $m["type"] = "PreProcStatement" $m["body"] = $body $m["location"] = location() Return $m ;return { type: "PreProcStatement", body: body, location: location() }; EndFunc Func __1ijhk8vfi_peg_fPreProc(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_1, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "#include-once", 1), __1ijhk8vfi_Array()), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIncludeStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_2, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "#", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCSToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCEToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCommentsStartToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCommentsEndToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIncludeToken)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "body", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_OneOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLineTerminatorSequence)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Any))), __1ijhk8vfi_Array())))))), __1ijhk8vfi_Array(2)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_3($file) Execute("") Local $m[] $m["type"] = "IncludeStatement" $m["library"] = $file[0] $m["file"] = $file[1] $m["location"] = location() Return $m #cs return { type: "IncludeStatement", library: file[0], file: file[1], location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fIncludeStatement(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_3, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "#", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIncludeToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLiteralWhitespace)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "file", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIncludeFileName)))), __1ijhk8vfi_Array(3)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_4($file) Execute("") Local $a = [True, $file] Return $a ;return [true, file]; EndFunc Func __1ijhk8vfi_5($file) Execute("") Local $a = [False, $file] Return $a ;return [false, file]; EndFunc Func __1ijhk8vfi_6($file) Execute("") Local $a = [False, $file] Return $a ;return [false, file]; EndFunc Func __1ijhk8vfi_peg_fIncludeFileName(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_4, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "<", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "file", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(__1ijhk8vfi_Array(97,122),__1ijhk8vfi_Array(65,90)), 0, 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ":", 0))), __1ijhk8vfi_Array())), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_OneOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(58,63,34,60,62), 0, 1)))), __1ijhk8vfi_Array()))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ">", 0))), __1ijhk8vfi_Array(1)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_5, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, """", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "file", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(__1ijhk8vfi_Array(97,122),__1ijhk8vfi_Array(65,90)), 0, 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ":", 0))), __1ijhk8vfi_Array())), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_OneOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(58,63,34,60,62), 0, 1)))), __1ijhk8vfi_Array()))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, """", 0))), __1ijhk8vfi_Array(1)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_6, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "'", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "file", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(__1ijhk8vfi_Array(97,122),__1ijhk8vfi_Array(65,90)), 0, 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ":", 0))), __1ijhk8vfi_Array())), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_OneOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(58,63,34,39,60,62), 0, 1)))), __1ijhk8vfi_Array()))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "'", 0))), __1ijhk8vfi_Array(1)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fLiteralWhitespace(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(9,32), 0, 0) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fWhitespace(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLineContinuation), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLiteralWhitespace)))), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_OneOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLiteralWhitespace)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fOptionalWhitespace(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fWhitespace)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fLineContinuation(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_OneOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLiteralWhitespace)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "_", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLiteralWhitespace)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSingleLineComment)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLineTerminatorSequence))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_7($head, $tail) Execute("") Local $a[Ubound($tail) + 1] $a[0] = $head For $i = 1 To UBound($tail) - 1 $a[$i] = $tail[$i] Next Return $a ;return [head, ...tail]; EndFunc Func __1ijhk8vfi_peg_fConstDeclarationList(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_7, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "head", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fConstDeclaration)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "tail", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ",", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fConstDeclaration)))), __1ijhk8vfi_Array(3)))))), __1ijhk8vfi_Array(0, 1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_8($head, $tail) Execute("") Local $a[Ubound($tail) + 1] $a[0] = $head For $i = 1 To UBound($tail) - 1 $a[$i] = $tail[$i] Next Return $a ;return [head, ...tail]; EndFunc Func __1ijhk8vfi_peg_fEnumDeclarationList(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_8, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "head", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEnumDeclaration)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "tail", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ",", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEnumDeclaration)))), __1ijhk8vfi_Array(3)))))), __1ijhk8vfi_Array(0, 1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_9($head, $tail) Execute("") Local $a[Ubound($tail) + 1] $a[0] = $head For $i = 1 To UBound($tail) - 1 $a[$i] = $tail[$i] Next Return $a ;return [head, ...tail]; EndFunc Func __1ijhk8vfi_peg_fVariableDeclarationList(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_9, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "head", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVariableDeclaration)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "tail", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ",", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVariableDeclaration)))), __1ijhk8vfi_Array(3)))))), __1ijhk8vfi_Array(0, 1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_10($id, $dimensions, $init) Execute("") Local $m[] $m["type"] = "VariableDeclarator" $m["id"] = $id $m["dimensions"] = $dimensions $m["init"] = $init $m["location"] = location() Return $m #cs return { type: "VariableDeclarator", id: id, dimensions: dimensions, init: init, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fVariableDeclaration(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_10, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "id", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVariableIdentifier)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "dimensions", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "[", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "]", 0))), __1ijhk8vfi_Array(3)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "init", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fInitialiser)))), __1ijhk8vfi_Array(1)))))), __1ijhk8vfi_Array(0, 1, 2)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_11($id, $init) Execute("") Local $m[] $m["type"] = "VariableDeclarator" $m["id"] = $id $m["init"] = $init $m["location"] = location() Return $m #cs return { type: "VariableDeclarator", id: id, init: init, location: location(), } #ce EndFunc Func __1ijhk8vfi_peg_fEnumDeclaration(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_11, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "id", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVariableIdentifier)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "init", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "=", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAssignmentExpression)))), __1ijhk8vfi_Array(3)))))), __1ijhk8vfi_Array(0, 1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_12($id, $dimensions, $init) Execute("") Local $m[] $m["type"] = "VariableDeclarator" $m["id"] = $id $m["dimensions"] = $dimensions $m["init"] = $init $m["location"] = location() Return $m #cs return { type: "VariableDeclarator", id: id, dimensions: dimensions, init: init, location: location(), } #ce EndFunc Func __1ijhk8vfi_peg_fConstDeclaration(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_12, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "id", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVariableIdentifier)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "dimensions", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "[", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "]", 0))), __1ijhk8vfi_Array(3)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "=", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "init", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAssignmentExpression), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fArrayDeclaration)))))), __1ijhk8vfi_Array(0, 1, 5)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_13($expression) Execute("") return $expression; EndFunc Func __1ijhk8vfi_peg_fInitialiser(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_13, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "=", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "=", 0)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "expression", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAssignmentExpression), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fArrayDeclaration)))))), __1ijhk8vfi_Array(3)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_14($name) Execute("") Local $m[] $m["type"] = "VariableIdentifier" $m["name"] = $name $m["location"] = location() Return $m #cs return { type: "VariableIdentifier", name: name, location: location(), } #ce EndFunc Func __1ijhk8vfi_peg_fVariableIdentifier(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_14, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "$", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "name", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_OneOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(__1ijhk8vfi_Array(48,57),__1ijhk8vfi_Array(97,122),__1ijhk8vfi_Array(65,90),95), 0, 0)))))), __1ijhk8vfi_Array(1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fNumber(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fHexIntegerLiteral), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fInteger))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fHexDigit(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(__1ijhk8vfi_Array(48,57),__1ijhk8vfi_Array(97,102)), 1, 0) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_15($digits) Execute("") Local $value = $digits == "" ? 0 : Number($digits); Local $m[] $m["type"] = "Literal" $m["value"] = $value $m["location"] = location() Return $m #cs var value = digits === "" ? 0 : parseInt(digits, 16); return { type: "Literal", value: value, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fHexIntegerLiteral(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_15, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "0x", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "digits", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fHexDigit)))))), __1ijhk8vfi_Array(1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fInteger(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_OneOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(__1ijhk8vfi_Array(48,57)), 0, 0)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_16($chars) Execute("") Local $m[] $m["type"] = "Literal" $m["value"] = _ArrayToString($chars, "") $m["location"] = location() Return $m ;return { type: "Literal", value: chars.join(""), location: location(), } EndFunc Func __1ijhk8vfi_17($chars) Execute("") Local $m[] $m["type"] = "Literal" $m["value"] = _ArrayToString($chars, "") $m["location"] = location() Return $m ;return { type: "Literal", value: chars.join(""), location: location(), } EndFunc Func __1ijhk8vfi_peg_fStringLiteral(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Named, "string", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_16, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, """", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "chars", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(34), 0, 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, """""", 0))))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, """", 0))), __1ijhk8vfi_Array(1)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_17, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "'", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "chars", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(39), 0, 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "''", 0))))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "'", 0))), __1ijhk8vfi_Array(1))))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fComment(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSingleLineComment), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fMultiLineComment))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_18($body) Execute("") Local $m[] $m["type"] = "SingleLineComment" $m["body"] = _ArrayToString($body, "") $m["location"] = location() Return $m ;return {type: "SingleLineComment", body: body.join(""), location: location()} EndFunc Func __1ijhk8vfi_peg_fSingleLineComment(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_18, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ";", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "body", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(10,13), 0, 1))))), __1ijhk8vfi_Array(1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fMultiLineCommentStartTag(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "#", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCSToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCommentsStartToken))))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_19($beforeBody, $body, $afterBody) Execute("") Local $m[] $m["type"] = "MultiLineComment" $m["body"] = $beforeBody&$body $m["location"] = location() Return $m #cs return { type: "MultiLineComment", body: beforeBody+body, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fMultiLineComment(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_19, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fMultiLineCommentStartTag), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "beforeBody", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLineTerminatorSequence)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Any))), __1ijhk8vfi_Array())))))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "body", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fMultiLineComment), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLineTerminatorSequence), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fWhitespace)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fMultiLineCommentEndTag))), __1ijhk8vfi_Array())), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Any)))))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLineTerminatorSequence), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fWhitespace)))), __1ijhk8vfi_Array()))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fMultiLineCommentEndTag), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "afterBody", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLineTerminatorSequence)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Any))), __1ijhk8vfi_Array())))))))), __1ijhk8vfi_Array(1, 2, 4)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fMultiLineCommentEndTag(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "#", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCEToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCommentsEndToken))))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_20($elements) Execute("") Local $m[] $m["type"] = "ArrayDeclaration" $m["elements"] = $elements $m["location"] = location() Return $m #cs return { type: "ArrayDeclaration", elements: elements, location: location(), } #ce EndFunc Func __1ijhk8vfi_peg_fArrayDeclaration(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_20, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "[", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "elements", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fArrayDeclarationElementList))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "]", 0))), __1ijhk8vfi_Array(2)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_21($head, $tail) Execute("") Local $a[Ubound($tail) + 1] $a[0] = $head For $i = 1 To UBound($tail) - 1 $a[$i] = $tail[$i] Next Return $a ;return [head, ...tail]; EndFunc Func __1ijhk8vfi_peg_fArrayDeclarationElementList(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_21, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "head", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fArrayDeclaration)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "tail", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ",", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fArrayDeclaration)))))), __1ijhk8vfi_Array(3)))))), __1ijhk8vfi_Array(0, 1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_22($name) Execute("") return $name; EndFunc Func __1ijhk8vfi_peg_fIdentifier(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_22, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fReservedWord)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "name", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierName)))), __1ijhk8vfi_Array(1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_23($head, $tail) Execute("") Local $m[] $m["type"] = "Identifier" $m["name"] = $head & _ArrayToString($tail, "") $m["location"] = location() Return $m #cs return { type: "Identifier", name: head + tail.join(""), location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fIdentifierName(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Named, "identifier", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_23, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "head", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierStart)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "tail", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart))))), __1ijhk8vfi_Array(0, 1))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fIdentifierStart(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLetter), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "_", 0))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fIdentifierPart(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierStart), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDecimalDigit))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_24($value) Execute("") Local $m[] $m["type"] = "Macro" $m["value"] = $value $m["location"] = location() Return $m #cs return { type: "Macro", value: value, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fMacro(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_24, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "value", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "@", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "AppDataCommonDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "AppDataDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "AutoItExe", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "AutoItPID", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "AutoItVersion", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "AutoItX64", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "COM_EventObj", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "CommonFilesDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Compiled", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "ComputerName", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "ComSpec", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "CPUArch", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "CRLF", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "CR", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "DesktopCommonDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "DesktopDepth", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "DesktopDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "DesktopHeight", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "DesktopRefresh", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "DesktopWidth", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "DocumentsCommonDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "error", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "exitCode", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "exitMethod", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "extended", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "FavoritesCommonDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "FavoritesDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "GUI_CtrlHandle", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "GUI_CtrlId", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "GUI_DragFile", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "GUI_DragId", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "GUI_DropId", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "GUI_WinHandle", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "HomeDrive", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "HomePath", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "HomeShare", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "HotKeyPressed", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "HOUR", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "IPAddress", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(__1ijhk8vfi_Array(49,52)), 0, 0))), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "KBLayout", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "LF", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "LocalAppDataDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "LogonDNSDomain", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "LogonDomain", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "LogonServer", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "MDAY", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "MIN", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "MON", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "MSEC", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "MUILang", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "MyDocumentsDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "NumParams", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "OSArch", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "OSBuild", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "OSLang", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "OSServicePack", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "OSType", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "OSVersion", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "ProgramFilesDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "ProgramsCommonDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "ProgramsDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "ScriptDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "ScriptFullPath", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "ScriptLineNumber", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "ScriptName", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "SEC", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "StartMenuCommonDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "StartMenuDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "StartupCommonDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "StartupDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "SW_DISABLE", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "SW_ENABLE", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "SW_HIDE", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "SW_LOCK", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "SW_MAXIMIZE", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "SW_MINIMIZE", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "SW_RESTORE", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "SW_SHOWDEFAULT", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "SW_SHOWMAXIMIZED", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "SW_SHOWMINIMIZED", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "SW_SHOWMINNOACTIVE", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "SW_SHOWNA", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "SW_SHOWNOACTIVATE", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "SW_SHOWNORMAL", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "SW_SHOW", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "SW_UNLOCK", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "SystemDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "TAB", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "TempDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "TRAY_ID", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "TrayIconFlashing", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "TrayIconVisible", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "UserName", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "UserProfileDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "WDAY", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "WindowsDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "WorkingDir", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "YDAY", 1), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "YEAR", 1))))), __1ijhk8vfi_Array()))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))), __1ijhk8vfi_Array(0)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_25() Execute("") Local $m[] $m["type"] = "Literal" $m["value"] = null $m["location"] = location() Return $m ;return { type: "Literal", value: null, location: location(), }; EndFunc Func __1ijhk8vfi_peg_fNullLiteral(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_25, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fNullToken), __1ijhk8vfi_Array()) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fReservedWord(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fKeyword), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fFutureReservedWord), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fNullLiteral), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fBooleanLiteral))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fKeyword(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAndToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fByRefToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCaseToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fConstToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fContinueCaseToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fContinueLoopToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDefaultToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDimToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDoToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fElseToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fElseIfToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEndFuncToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEndIfToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEndSelectToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEndSwitchToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEndWithToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEnumToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExitToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExitLoopToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fForToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fFuncToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fGlobalToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIfToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fInToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLocalToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fNextToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fNotToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fOrToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fRedimToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fReturnToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSelectToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStaticToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStepToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSwitchToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fThenToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fToToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fUntilToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVolatileToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fWEndToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fWhileToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fWithToken))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fFutureReservedWord(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "@RESERVED", 0) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_26($object, $body) Execute("") Local Static $a[0] Local $m[] $m["type"] = "WithStatement" $m["object"] = $object $m["body"] = $body = Null ? $a : $body $m["location"] = location() Return $m #cs return { type: "WithStatement", object: object, body: body??[], location: location() }; #ce EndFunc Func __1ijhk8vfi_peg_fWithStatement(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_26, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fWithToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "object", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)))), __1ijhk8vfi_Array(1))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "body", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStatementList))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEndWithToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(1, 3)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_27($value) Execute("") Local $m[] $m["type"] = "ReturnStatement" $m["value"] = $value $m["location"] = location() Return $m #cs return { type: "ReturnStatement", value: value, location: location() }; #ce EndFunc Func __1ijhk8vfi_peg_fReturnStatement(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_27, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fReturnToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "value", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)))), __1ijhk8vfi_Array(1)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_28($level) Execute("") Local $m[] $m["type"] = "ExitLoopStatement" $m["level"] = $level $m["location"] = location() Return $m #cs return { type: "ExitLoopStatement", level: level, location: location() }; #ce EndFunc Func __1ijhk8vfi_peg_fExitLoopStatement(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_28, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExitLoopToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "level", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)))), __1ijhk8vfi_Array(1)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_29($level) Execute("") Local $m[] $m["type"] = "ContinueLoopStatement" $m["level"] = $level $m["location"] = location() Return $m #cs return { type: "ContinueLoopStatement", level: level, location: location() }; #ce EndFunc Func __1ijhk8vfi_peg_fContinueLoopStatement(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_29, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fContinueLoopToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "level", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)))), __1ijhk8vfi_Array(1)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_30() Execute("") Local $m[] $m["type"] = "ContinueCaseStatement" $m["location"] = location() Return $m #cs return { type: "ContinueCaseStatement", location: location() }; #ce EndFunc Func __1ijhk8vfi_peg_fContinueCaseStatement(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_30, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fContinueCaseToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array()) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_31($cases) Execute("") Local $m[] $m["type"] = "SelectStatement" $m["cases"] = $cases $m["location"] = location() Return $m #cs return { type: "SelectStatement", cases: cases, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fSelectStatement(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_31, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSelectToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEmptyStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSingleLineComment), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS)))))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "cases", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSelectCaseBlock)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEndSelectToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(3)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_32($before, $default_, $after) Execute("") ;//FIXME: verify that other case clauses can come after the default clase in au3 Local $a[Ubound($before) + 1 + Ubound($after)] For $i = 0 To Ubound($before) - 1 $a[$i] = $before[$i] Next $a[$i + 1] = $default_ For $j = 0 To Ubound($after) - 1 $a[$i + 2 + $j] = $after[$j] Next Return $a ;return /** @type {Array[number]|typeof default_|NonNullable[number]>} */([...before??[], default_, ...after??[]]); EndFunc Func __1ijhk8vfi_33($clauses) Execute("") ;//FIXME: verify that "?" CAN be there Local Static $a[0] Return IsArray($clauses) ? $clauses : $a ;return clauses??[]; EndFunc Func __1ijhk8vfi_peg_fSelectCaseBlock(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_32, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "before", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSelectCaseClauses)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(0)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "default_", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDefaultClause)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "after", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSelectCaseClauses)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(0)))))), __1ijhk8vfi_Array(1, 2, 4)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_33, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "clauses", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSelectCaseClauses)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(0)))))), __1ijhk8vfi_Array(1)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_34($head, $tail) Execute("") Local $a[Ubound($tail) + 1] $a[0] = $head For $i = 0 To Ubound($tail) - 1 $a[$i + 1] = $tail[$i] Next Return $a ;return [head, ...tail]; EndFunc Func __1ijhk8vfi_peg_fSelectCaseClauses(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_34, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "head", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSelectCaseClause)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "tail", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSelectCaseClause)))), __1ijhk8vfi_Array(1)))))), __1ijhk8vfi_Array(0, 1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_35($tests, $consequent) Execute("") Local Static $a[0] Local $m[] $m["type"] = "SelectCase" $m["tests"] = $tests $m["consequent"] = $consequent = Null ? $a : $consequent $m["location"] = location() Return $m #cs return { type: "SelectCase", tests: tests, consequent: consequent??[], location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fSelectCaseClause(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_35, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCaseToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "tests", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAssignmentExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "consequent", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStatementList)))), __1ijhk8vfi_Array(1)))))), __1ijhk8vfi_Array(2, 4)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_36() Execute("") Local $m[] $m["type"] = "Literal" $m["value"] = true $m["location"] = location() Return $m ;return { type: "Literal", value: true, location: location(), }; EndFunc Func __1ijhk8vfi_37() Execute("") Local $m[] $m["type"] = "Literal" $m["value"] = false $m["location"] = location() Return $m ;return { type: "Literal", value: false, location: location(), }; EndFunc Func __1ijhk8vfi_peg_fBooleanLiteral(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_36, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fTrueToken), __1ijhk8vfi_Array()), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_37, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fFalseToken), __1ijhk8vfi_Array()))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_38($literal) Execute("") return $literal; EndFunc Func __1ijhk8vfi_39($literal) Execute("") return $literal; EndFunc Func __1ijhk8vfi_peg_fLiteral(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_38, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "literal", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fNullLiteral)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAdditiveOperator)))), __1ijhk8vfi_Array(0)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_39, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "literal", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fBooleanLiteral)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAdditiveOperator)))), __1ijhk8vfi_Array(0)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fNumericLiteral), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStringLiteral))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fAndToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "And", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fByRefToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "ByRef", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fCaseToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Case", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fCEToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "ce", 1) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fCommentsStartToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "comments-start", 1) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fCommentsEndToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "comments-end", 1) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fConstToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Const", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fContinueCaseToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "ContinueCase", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fContinueLoopToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "ContinueLoop", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fCSToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "cs", 1) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fDefaultToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Default", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fDimToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Dim", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fDoToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Do", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fElseToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Else", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fElseIfToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "ElseIf", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fEndFuncToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "EndFunc", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fEndIfToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "EndIf", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fEndSelectToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "EndSelect", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fEndSwitchToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "EndSwitch", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fEndWithToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "EndWith", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fEnumToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Enum", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fExitToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Exit", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fExitLoopToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "ExitLoop", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fFalseToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "False", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fForToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "For", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fFuncToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Func", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fGlobalToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Global", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fIfToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "If", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fIncludeToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Include", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fInToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "In", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fLocalToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Local", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fNextToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Next", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fNullToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Null", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fNotToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Not", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fOrToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Or", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fRedimToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Redim", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fReturnToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Return", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fSelectToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Select", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fStaticToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Static", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fStepToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Step", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fSwitchToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Switch", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fThenToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Then", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fToToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "To", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fUntilToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Until", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fVolatileToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "Volatile", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fTrueToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "True", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fWEndToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "WEnd", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fWhileToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "While", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fWithToken(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "With", 1), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierPart)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fLetter(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(__1ijhk8vfi_Array(97,122)), 1, 0) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_40($literal) Execute("") return $literal; EndFunc Func __1ijhk8vfi_41($literal) Execute("") return $literal; EndFunc Func __1ijhk8vfi_peg_fNumericLiteral(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Named, "number", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_40, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "literal", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fHexIntegerLiteral)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierStart), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDecimalDigit)))))), __1ijhk8vfi_Array(0)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_41, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "literal", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDecimalLiteral)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierStart), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDecimalDigit)))))), __1ijhk8vfi_Array(0))))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fDecimalDigit(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(__1ijhk8vfi_Array(48,57)), 0, 0) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fNonZeroDigit(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(__1ijhk8vfi_Array(49,57)), 0, 0) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_42($n) Execute("") Local $m[] $m["type"] = "Literal" $m["value"] = Number($n, 3) $m["location"] = location() Return $m ;return { type: "Literal", value: parseFloat(text()), location: location(), }; EndFunc Func __1ijhk8vfi_43($n) Execute("") Local $m[] $m["type"] = "Literal" $m["value"] = Number($n, 3) $m["location"] = location() Return $m ;return { type: "Literal", value: parseFloat(text()), location: location(), }; EndFunc Func __1ijhk8vfi_44($n) Execute("") Local $m[] $m["type"] = "Literal" $m["value"] = Number($n, 3) $m["location"] = location() Return $m ;return { type: "Literal", value: parseFloat(text()), location: location(), }; EndFunc Func __1ijhk8vfi_peg_fDecimalLiteral(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_42, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "n", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDecimalIntegerLiteral), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ".", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDecimalDigit)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExponentPart)))), __1ijhk8vfi_Array()))), Null), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_43, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "n", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ".", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_OneOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDecimalDigit)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExponentPart)))), __1ijhk8vfi_Array()))), Null), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_44, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "n", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDecimalIntegerLiteral), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExponentPart)))), __1ijhk8vfi_Array()))), Null))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fDecimalIntegerLiteral(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_OneOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDecimalDigit)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fExponentPart(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExponentIndicator), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSignedInteger))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fExponentIndicator(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "e", 1) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fSignedInteger(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(43,45), 0, 0)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_OneOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDecimalDigit)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_45($head, $tail) Execute("") Local $result = $head For $i = 0 To UBound($tail) - 1 Local $m[] $m["type"] = "MemberExpression" $m["object"] = $result $m["property"] = ($tail[$i])["property"] $m["computed"] = ($tail[$i])["computed"] $m["location"] = location() $result = $m Next Return $result #cs return tail.reduce(function(result, element) { return { type: "MemberExpression", object: result, property: element.property, computed: element.computed, location: location(), }; }, head); #ce EndFunc Func __1ijhk8vfi_46($property) Execute("") Local $m[] $m["property"] = $property $m["computed"] = true Return $m ;return { property: property, computed: true }; EndFunc Func __1ijhk8vfi_47($property) Execute("") Local $m[] $m["property"] = $property $m["computed"] = false Return $m ;return { property: property, computed: false }; EndFunc Func __1ijhk8vfi_peg_fMemberExpression(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_45, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "head", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fPrimaryExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "tail", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_46, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "[", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "property", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "]", 0))), __1ijhk8vfi_Array(3)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_47, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ".", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "property", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierName)))), __1ijhk8vfi_Array(3)))))))), __1ijhk8vfi_Array(0, 1)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fMacro))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_48() Execute("") Local $m[] $m["type"] = "Keyword" $m["value"] = "Default" $m["location"] = location() Return $m ;return { type: "Keyword", value: "Default", location: location() }; EndFunc Func __1ijhk8vfi_peg_fDefaultKeyword(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_48, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDefaultToken), __1ijhk8vfi_Array()) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_49($Keyword) Execute("") return $Keyword; EndFunc Func __1ijhk8vfi_peg_fPrimaryExpression(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifier), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVariableIdentifier), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLiteral), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fParenthesizedExpression), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_49, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "Keyword", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDefaultKeyword)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAdditiveOperator)))), __1ijhk8vfi_Array(0)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_50($expression) Execute("") Local $m[] $m["type"] = "ParenthesizedExpression" $m["expression"] = $expression $m["location"] = location() Return $m ;return {type: "ParenthesizedExpression", expression: expression, location: location() }; EndFunc Func __1ijhk8vfi_peg_fParenthesizedExpression(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_50, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "(", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "expression", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ")", 0))), __1ijhk8vfi_Array(2)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_51($head, $tail) Execute("") Local $result = $head For $i = 0 To UBound($tail) - 1 ($tail[$i])[$TYPES_TO_PROPERTY_NAMES[($tail[$i])["type"]]] = $result $result = ($tail[$i]) Next Return $result #cs return tail.reduce(function(result, element) { element[TYPES_TO_PROPERTY_NAMES[element.type]] = result; return element; }, head); #ce EndFunc Func __1ijhk8vfi_52($callee, $args) Execute("") Local $m[] $m["type"] = "CallExpression" $m["callee"] = $callee $m["arguments"] = $args $m["location"] = location() Return $m ;return { type: "CallExpression", callee: callee, arguments: args, location: location() }; EndFunc Func __1ijhk8vfi_53($args) Execute("") Local $m[] $m["type"] = "CallExpression" $m["arguments"] = $args $m["location"] = location() Return $m ;return { type: "CallExpression", arguments: args, location: location() }; EndFunc Func __1ijhk8vfi_54($property) Execute("") Local $m[] $m["type"] = "MemberExpression" $m["property"] = $property $m["computed"] = true $m["location"] = location() Return $m #cs return { type: "MemberExpression", property: property, computed: true, location: location(), }; #ce EndFunc Func __1ijhk8vfi_55($property) Execute("") Local $m[] $m["type"] = "MemberExpression" $m["property"] = $property $m["computed"] = false $m["location"] = location() Return $m #cs return { type: "MemberExpression", property: property, computed: false, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fCallExpression(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_51, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "head", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_52, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "callee", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fMemberExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "args", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fArguments)))), __1ijhk8vfi_Array(0, 2))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "tail", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_53, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "args", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fArguments)))), __1ijhk8vfi_Array(1)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_54, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "[", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "property", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "]", 0))), __1ijhk8vfi_Array(3)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_55, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ".", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "property", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifierName)))), __1ijhk8vfi_Array(3)))))))), __1ijhk8vfi_Array(0, 1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_56($args) Execute("") Local Static $a[0] Return $args = Null ? $a : $args ;return args??[]; EndFunc Func __1ijhk8vfi_peg_fArguments(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_56, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "(", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "args", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fArgumentList)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(0)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ")", 0))), __1ijhk8vfi_Array(2)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_57($head, $tail) Execute("") Local $a[Ubound($tail) + 1] $a[0] = $head For $i = 0 To UBound($tail) - 1 $a[$i + 1] = $tail[$i] Next Return $a ;return [head, ...tail]; EndFunc Func __1ijhk8vfi_peg_fArgumentList(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_57, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "head", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAssignmentExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "tail", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ",", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAssignmentExpression)))), __1ijhk8vfi_Array(3)))))), __1ijhk8vfi_Array(0, 1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fLeftHandSideExpression(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCallExpression), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fMemberExpression))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_58($left, $right) Execute("") Local $m[] $m["type"] = "AssignmentExpression" $m["operator"] = "=" $m["left"] = $left $m["right"] = $right $m["location"] = location() Return $m #cs return { type: "AssignmentExpression", operator: "=", left: left, right: right, location: location(), }; #ce EndFunc Func __1ijhk8vfi_59($left, $operator, $right) Execute("") Local $m[] $m["type"] = "AssignmentExpression" $m["operator"] = $operator $m["left"] = $left $m["right"] = $right $m["location"] = location() Return $m #cs return { type: "AssignmentExpression", operator: operator, left: left, right: right, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fAssignmentExpression(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_58, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "left", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLeftHandSideExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "=", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "=", 0)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "right", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAssignmentExpression)))), __1ijhk8vfi_Array(0, 5)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_59, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "left", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLeftHandSideExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "operator", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAssignmentOperator)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "right", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAssignmentExpression)))), __1ijhk8vfi_Array(0, 2, 4)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fConditionalExpression))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fAssignmentOperator(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "*=", 0), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "/=", 0), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "+=", 0), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "-=", 0), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "&=", 0))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_60($test, $consequent, $alternate) Execute("") Local $m[] $m["type"] = "ConditionalExpression" $m["test"] = $test $m["consequent"] = $consequent $m["alternate"] = $alternate $m["location"] = location() Return $m #cs return { type: "ConditionalExpression", test: test, consequent: consequent, alternate: alternate, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fConditionalExpression(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_60, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "test", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLogicalORExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "?", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "consequent", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAssignmentExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ":", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "alternate", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAssignmentExpression)))), __1ijhk8vfi_Array(0, 4, 8)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLogicalORExpression))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_61($left, $operator, $right) Execute("") Local $m[] $m["type"] = "LogicalExpression" $m["operator"] = $operator $m["left"] = $left $m["right"] = $right $m["location"] = location() Return $m #cs return { type: "LogicalExpression", operator: operator, left: left, right: right, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fLogicalORExpression(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_61, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "left", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLogicalANDExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "operator", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLogicalOROperator)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "right", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLogicalORExpression)))), __1ijhk8vfi_Array(0, 2, 4)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLogicalANDExpression))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_62($left, $operator, $right) Execute("") Local $m[] $m["type"] = "LogicalExpression" $m["operator"] = $operator $m["left"] = $left $m["right"] = $right $m["location"] = location() Return $m #cs return { type: "LogicalExpression", operator: operator, left: left, right: right, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fLogicalANDExpression(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_62, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "left", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEqualityExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "operator", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLogicalANDOperator)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "right", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLogicalANDExpression)))), __1ijhk8vfi_Array(0, 2, 4)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEqualityExpression))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fLogicalOROperator(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fOrToken)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fLogicalANDOperator(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAndToken)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_63($left, $operator, $right) Execute("") Local $m[] $m["type"] = "BinaryExpression" $m["operator"] = $operator $m["left"] = $left $m["right"] = $right $m["location"] = location() Return $m #cs return { type: "BinaryExpression", operator: operator, left: left, right: right, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fEqualityExpression(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_63, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "left", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fRelationalExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "operator", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEqualityOperator)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "right", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEqualityExpression)))), __1ijhk8vfi_Array(0, 2, 4)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fRelationalExpression))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fEqualityOperator(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "==", 0), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "=", 0))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_64($left, $operator, $right) Execute("") Local $m[] $m["type"] = "BinaryExpression" $m["operator"] = $operator $m["left"] = $left $m["right"] = $right $m["location"] = location() Return $m #cs return { type: "BinaryExpression", operator: operator, left: left, right: right, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fRelationalExpression(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_64, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "left", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAdditiveExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "operator", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fRelationalOperator)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "right", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAdditiveExpression)))), __1ijhk8vfi_Array(0, 2, 4)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAdditiveExpression))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_65($left, $operator, $right) Execute("") Local $m[] $m["type"] = "BinaryExpression" $m["operator"] = $operator $m["left"] = $left $m["right"] = $right $m["location"] = location() Return $m #cs return { type: "BinaryExpression", operator: operator, left: left, right: right, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fAdditiveExpression(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_65, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "left", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fMultiplicativeExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "operator", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAdditiveOperator)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "right", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAdditiveExpression)))), __1ijhk8vfi_Array(0, 2, 4)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fMultiplicativeExpression))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fAdditiveOperator(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "+", 0)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(43,61), 0, 0)))), __1ijhk8vfi_Array(0)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "-", 0)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(45,61), 0, 0)))), __1ijhk8vfi_Array(0)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "&", 0)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(61), 0, 0)))), __1ijhk8vfi_Array(0)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fRelationalOperator(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "<=", 0), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ">=", 0), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "<>", 0), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "<", 0)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "<", 0)))), __1ijhk8vfi_Array(0)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ">", 0)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ">", 0)))), __1ijhk8vfi_Array(0)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_66($left, $operator, $right) Execute("") Local $m[] $m["type"] = "BinaryExpression" $m["operator"] = $operator $m["left"] = $left $m["right"] = $right $m["location"] = location() Return $m #cs return { type: "BinaryExpression", operator: operator, left: left, right: right, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fMultiplicativeExpression(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_66, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "left", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExponentialExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "operator", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fMultiplicativeOperator)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "right", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fMultiplicativeExpression)))), __1ijhk8vfi_Array(0, 2, 4)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExponentialExpression))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fMultiplicativeOperator(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "*", 0)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "=", 0)))), __1ijhk8vfi_Array(0)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "/", 0)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "=", 0)))), __1ijhk8vfi_Array(0)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_67($left, $operator, $right) Execute("") Local $m[] $m["type"] = "BinaryExpression" $m["operator"] = $operator $m["left"] = $left $m["right"] = $right $m["location"] = location() Return $m #cs return { type: "BinaryExpression", operator: operator, left: left, right: right, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fExponentialExpression(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_67, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "left", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fNotExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "operator", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExponentialOperator)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "right", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExponentialExpression)))), __1ijhk8vfi_Array(0, 2, 4)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fNotExpression))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fExponentialOperator(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "^", 0)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "=", 0)))), __1ijhk8vfi_Array(0)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_68($value) Execute("") Local $m[] $m["type"] = "NotExpression" $m["value"] = $value $m["location"] = location() Return $m #cs return { type: "NotExpression", value: value, location: location(), } #ce EndFunc Func __1ijhk8vfi_peg_fNotExpression(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_68, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fNotToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array()), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "value", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fUnaryExpression)))), __1ijhk8vfi_Array(1)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fUnaryExpression))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_69($operator, $argument) Execute("") Local $m[] $m["type"] = "UnaryExpression" $m["operator"] = $operator $m["argument"] = $argument $m["prefix"] = true $m["location"] = location() Return $m #cs return { type: "UnaryExpression", operator: operator, argument: argument, prefix: true, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fUnaryExpression(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLeftHandSideExpression), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_69, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "operator", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fUnaryOperator)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "argument", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fUnaryExpression)))), __1ijhk8vfi_Array(0, 2)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fUnaryOperator(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "+", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "=", 0)))), __1ijhk8vfi_Array())), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "-", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "=", 0)))), __1ijhk8vfi_Array())))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_70($body) Execute("") Local Static $a[0] Local $m[] $m["type"] = "Program" $m["body"] = $body = Null ? $a : $body Return $m #cs return { type: "Program", body: body??[] }; #ce EndFunc Func __1ijhk8vfi_peg_fProgram(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_70, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "body", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSourceElements))), Null) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_71($head, $tail) Execute("") Local $a[Ubound($tail) + 1] $a[0] = $head For $i = 0 To Ubound($tail) - 1 $a[$i + 1] = $tail[$i] Next Return $a ;return [head, ...tail]; EndFunc Func __1ijhk8vfi_peg_fSourceElements(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_71, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "head", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSourceElement)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "tail", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSourceElement)))), __1ijhk8vfi_Array(1)))))), __1ijhk8vfi_Array(0, 1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fSourceElement(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fFunctionDeclaration))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_72($preproc) Execute("") return $preproc; EndFunc Func __1ijhk8vfi_peg_fPreProcStatement(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_72, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "preproc", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fPreProc)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(0)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_73($volatile, $id, $params, $body) Execute("") Local Static $a[0] Local $m[] $m["type"] = "FunctionDeclaration" $m["volatile"] = Not ($volatile = null) $m["id"] = $id $m["params"] = $params = Null ? $a : $params $m["body"] = $body = Null ? $a : $body $m["location"] = location() Return $m #cs return { type: "FunctionDeclaration", volatile: volatile !== null, id: id, params: params??[], body: body??[], location: location() }; #ce EndFunc Func __1ijhk8vfi_peg_fFunctionDeclaration(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_73, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "volatile", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVolatileToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array()))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fFuncToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "id", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIdentifier)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "(", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "params", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fFormalParameterList)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(0)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ")", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "body", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStatementList))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEndFuncToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(0, 3, 7, 12)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_74($head, $tail) Execute("") Local $a[Ubound($tail) + 1] $a[0] = $head For $i = 1 To UBound($tail) - 1 $a[$i] = $tail[$i - 1] Next Return $a ;return [head, ...tail]; EndFunc Func __1ijhk8vfi_peg_fFormalParameterList(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_74, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "head", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fFormalParameter)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "tail", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ",", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fFormalParameter)))), __1ijhk8vfi_Array(3)))))), __1ijhk8vfi_Array(0, 1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_75($_const, $id, $init) Execute("") Local $m[] $m["type"] = "Parameter" $m["const"] = Not ($_const = null) $m["byref"] = true $m["id"] = $id $m["init"] = $init $m["location"] = location() Return $m #cs return { type: "Parameter", "const": !!_const, byref: true, id: id, init: init, location: location(), }; #ce EndFunc Func __1ijhk8vfi_76($byref, $id, $init) Execute("") Local $m[] $m["type"] = "Parameter" $m["byref"] = Not ($byref = null) $m["const"] = true $m["id"] = $id $m["init"] = $init $m["location"] = location() Return $m #cs return { type: "Parameter", byref: !!byref, "const": true, id: id, init: init, location: location(), }; #ce EndFunc Func __1ijhk8vfi_77($id, $init) Execute("") Local $m[] $m["type"] = "Parameter" $m["const"] = false $m["byref"] = false $m["id"] = $id $m["init"] = $init $m["location"] = location() Return $m #cs return { type: "Parameter", "const": false, byref: false, id: id, init: init, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fFormalParameter(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_75, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "_const", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fConstToken)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(0)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fByRefToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "id", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVariableIdentifier)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "init", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "=", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)))), __1ijhk8vfi_Array(2)))))), __1ijhk8vfi_Array(0, 3, 5)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_76, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "byref", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fByRefToken)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(0)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fConstToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "id", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVariableIdentifier)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "init", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "=", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)))), __1ijhk8vfi_Array(2)))))), __1ijhk8vfi_Array(0, 3, 5)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_77, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "id", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVariableIdentifier)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "init", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "=", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)))), __1ijhk8vfi_Array(2)))))), __1ijhk8vfi_Array(0, 2)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_78($slc) Execute("") return $slc; EndFunc Func __1ijhk8vfi_79($mlc) Execute("") return $mlc; EndFunc Func __1ijhk8vfi_peg_fStatement(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVariableStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEmptyStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_78, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "slc", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSingleLineComment)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLineTerminatorSequence), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOF))))), __1ijhk8vfi_Array(0)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpressionStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIfStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIterationStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fContinueLoopStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fContinueCaseStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExitLoopStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fReturnStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fWithStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSwitchStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExitStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fPreProcStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_79, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "mlc", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fMultiLineComment)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(0)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSelectStatement))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_80() Execute("") Local $m[] $m["type"] = "EmptyStatement" $m["location"] = location() Return $m ;return { type: "EmptyStatement", location: location() }; EndFunc Func __1ijhk8vfi_peg_fEmptyStatement(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_80, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLineTerminatorSequence))), __1ijhk8vfi_Array()) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_81($head, $tail) Execute("") Local $a[Ubound($tail) + 1] $a[0] = $head For $i = 1 To UBound($tail) - 1 $a[$i] = $tail[$i - 1] Next Return $a ;return [head, ...tail]; EndFunc Func __1ijhk8vfi_peg_fStatementList(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_81, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "head", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStatement)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "tail", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStatement)))), __1ijhk8vfi_Array(1)))))), __1ijhk8vfi_Array(0, 1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_82($scope, $declarations) Execute("") Local $m[] $m["type"] = "VariableDeclaration" $m["scope"] = $scope $m["constant"] = false $m["static"] = false $m["declarations"] = $declarations $m["location"] = location() Return $m #cs return { scope: scope?.toLocaleLowerCase()??null, constant: false, static_: false, type: "VariableDeclaration", declarations: declarations, location: location(), } #ce EndFunc Func __1ijhk8vfi_83($scope, $declarations) Execute("") Local $m[] $m["type"] = "VariableDeclaration" $m["scope"] = $scope $m["constant"] = true $m["static"] = false $m["declarations"] = $declarations $m["location"] = location() Return $m #cs return { scope: scope?.toLocaleLowerCase()??null, constant: true, static_: false, type: "VariableDeclaration", declarations: declarations, location: location(), } #ce EndFunc Func __1ijhk8vfi_84($scope, $declarations) Execute("") Local $m[] $m["type"] = "VariableDeclaration" $m["scope"] = $scope $m["constant"] = false $m["static"] = true $m["declarations"] = $declarations $m["location"] = location() Return $m #cs return { scope: scope?.toLocaleLowerCase()??null, constant: false, static_: true, type: "VariableDeclaration", declarations: declarations, location: location(), } #ce EndFunc Func __1ijhk8vfi_85($scope, $declarations) Execute("") Local $m[] $m["type"] = "VariableDeclaration" $m["scope"] = $scope $m["constant"] = false $m["static"] = true $m["declarations"] = $declarations $m["location"] = location() Return $m #cs return { scope: scope?.toLocaleLowerCase()??null, constant: false, static_: true, type: "VariableDeclaration", declarations: declarations, location: location(), } #ce EndFunc Func __1ijhk8vfi_86($declaration) Execute("") Local $a = [$declaration] Local $m[] $m["type"] = "VariableDeclaration" $m["scope"] = null $m["constant"] = true $m["static"] = false $m["declarations"] = $a $m["location"] = location() Return $m #cs return { scope: null, constant: false, static_: false, type: "VariableDeclaration", declarations: [declaration], location: location(), } #ce EndFunc Func __1ijhk8vfi_87($head, $tail) Execute("") Local $a[Ubound($tail) + 1] $a[0] = $head For $i = 1 To UBound($tail) - 1 $a[$i] = $tail[$i - 1] Next Local $m[] $m["type"] = "RedimExpression" $m["declarations"] = $a $m["location"] = location() Return $m #cs return { type: "RedimExpression", declarations: [head, ...tail], location: location(), }; #ce EndFunc Func __1ijhk8vfi_88($scope, $constant, $step, $declarations) Execute("") Local $m[] $m["type"] = "EnumDeclaration" $m["scope"] = $scope $m["constant"] = Not ($constant = null) $m["static"] = false $m["declarations"] = $declarations $m["stepoperator"] = (IsArray($step) And (Ubound($step) > 0)) ? $step[0] : "+" $m["stepval"] = Number((IsArray($step) And (Ubound($step) > 1)) ? $step[1] : 1) $m["location"] = location() Return $m #cs return { scope: scope?.toLocaleLowerCase()??null, constant: !!constant, static: false, type: "EnumDeclaration", declarations: declarations, stepoperator: step?.[0] ?? '+', stepval: parseInt(step?.[1] ?? 1), location: location(), } #ce EndFunc Func __1ijhk8vfi_peg_fVariableStatement(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_82, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "scope", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLocalToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fGlobalToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDimToken))))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(0))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "declarations", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVariableDeclarationList)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(0, 1)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_83, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "scope", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLocalToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fGlobalToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDimToken))))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(0)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fConstToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "declarations", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fConstDeclarationList)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(0, 3)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_84, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "scope", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLocalToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fGlobalToken))))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(0)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStaticToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "declarations", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVariableDeclarationList)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(0, 3)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_85, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStaticToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "scope", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLocalToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fGlobalToken))))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(0)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "declarations", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVariableDeclarationList)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(2, 3)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_86, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "declaration", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fConstDeclaration)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(0)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_87, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fRedimToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "head", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fRedimIdentifierExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "tail", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ",", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fRedimIdentifierExpression)))), __1ijhk8vfi_Array(3)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(2, 3)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_88, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "scope", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLocalToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fGlobalToken), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDimToken))))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(0)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "constant", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fConstToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array()))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEnumToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "step", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStepToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fWhitespace), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(43,45,42), 0, 0))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Text, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_OneOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(__1ijhk8vfi_Array(48,57)), 0, 0)))))), __1ijhk8vfi_Array(3, 4)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "declarations", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEnumDeclarationList)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(0, 1, 3, 5)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_89($id) Execute("") ;//FIXME: implement the expressions array as a nested rule. Local $m[] $m["type"] = "RedimIdentifierExpression" $m["id"] = $id $m["location"] = location() Return $m #cs return { type: "RedimIdentifierExpression", id: id, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fRedimIdentifierExpression(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_89, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "id", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVariableIdentifier)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_OneOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "[", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "]", 0))), __1ijhk8vfi_Array())))), __1ijhk8vfi_Array(0)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_90($expression) Execute("") Local $m[] $m["type"] = "ExpressionStatement" $m["expression"] = $expression $m["location"] = location() Return $m #cs return { type: "ExpressionStatement", expression: expression, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fExpressionStatement(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_90, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fFuncToken)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "expression", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_91($test, $consequent, $alternates, $alternate) Execute("") If $alternate = Null Then Local $alternateArray[0] Else Local $alternateArray = [$alternate] EndIf Local $_alternate[Ubound($alternates) + Ubound($alternateArray)] For $i = 0 To Ubound($alternates) - 1 $_alternate[$i] = $alternates[$i] Next For $j = 0 To Ubound($alternateArray) - 1 $_alternate[$i + $j] = $alternateArray[$j] Next Local $m[] $m["type"] = "IfStatement" $m["test"] = $test $m["consequent"] = $consequent $m["alternate"] = $_alternate $m["location"] = location() Return $m #cs const alternateArray = alternate ? [alternate] : []; const _alternate = /** @type {Array[number]|NonNullable[number]>} */ ([...alternates ?? [], ...alternateArray]); return { type: "IfStatement", test: test, consequent: consequent, alternate: _alternate, location: location(), } #ce EndFunc Func __1ijhk8vfi_92($test, $consequent) Execute("") Local $m[] $m["type"] = "IfStatement" $m["test"] = $test $m["consequent"] = $consequent $m["location"] = location() Return $m #cs return { type: "IfStatement", test: test, consequent: consequent, location: location(), } #ce EndFunc Func __1ijhk8vfi_peg_fIfStatement(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_91, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIfToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "test", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fThenToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "consequent", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStatementList)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(1)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "alternates", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fElseIfClauses))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "alternate", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fElseClause))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEndIfToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(2, 7, 9, 12)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_92, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fIfToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "test", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fThenToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEmptyStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fComment)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "consequent", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpressionStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVariableStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fContinueLoopStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fContinueCaseStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExitLoopStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fReturnStatement), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExitStatement)))))), __1ijhk8vfi_Array(2, 7)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_93($head, $tail) Execute("") Local $a[Ubound($tail) + 1] $a[0] = $head For $i = 1 To UBound($tail) - 1 $a[$i] = $tail[$i - 1] Next ;return [head, ...tail]; EndFunc Func __1ijhk8vfi_peg_fElseIfClauses(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_93, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "head", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fElseIfClause)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "tail", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fElseIfClause)))), __1ijhk8vfi_Array(1)))))), __1ijhk8vfi_Array(0, 1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_94($test, $consequent) Execute("") Local $m[] $m["type"] = "ElseIfStatement" $m["test"] = $test $m["consequent"] = $consequent $m["location"] = location() Return $m #cs return { type: "ElseIfStatement", test: test, consequent: consequent, location: location(), } #ce EndFunc Func __1ijhk8vfi_peg_fElseIfClause(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_94, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fElseIfToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "test", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fThenToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "consequent", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStatementList)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(1)))))), __1ijhk8vfi_Array(2, 7)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_95($consequent) Execute("") Local $m[] $m["type"] = "ElseStatement" $m["consequent"] = $consequent $m["location"] = location() Return $m #cs return { type: "ElseStatement", consequent: consequent, location: location(), } #ce EndFunc Func __1ijhk8vfi_peg_fElseClause(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_95, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fElseToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "consequent", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStatementList)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(1)))))), __1ijhk8vfi_Array(3)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_96($id, $init) Execute("") Local $m[] $m["type"] = "VariableDeclarator" $m["id"] = $id $m["init"] = $init $m["location"] = location() Return $m #cs return { type: "VariableDeclarator", id: id, init: init, location: location(), } #ce EndFunc Func __1ijhk8vfi_peg_fForLoopVariableDeclaration(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_96, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "id", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVariableIdentifier)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "=", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "init", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)))), __1ijhk8vfi_Array(0, 4)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_97($id) Execute("") Local $m[] $m["type"] = "VariableDeclarator" $m["id"] = $id $m["init"] = null $m["location"] = location() Return $m #cs return { type: "VariableDeclarator", id: id, init: null, location: location(), } #ce EndFunc Func __1ijhk8vfi_peg_fForInLoopVariableDeclaration(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_97, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "id", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fVariableIdentifier)), Null) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_98($body, $test) Execute("") Local Static $a[0] Local $m[] $m["type"] = "DoWhileStatement" $m["body"] = $body = Null ? $a : $body $m["test"] = $test $m["location"] = location() Return $m ;return { type: "DoWhileStatement", body: body ?? [], test: test, location: location() }; EndFunc Func __1ijhk8vfi_99($test, $body) Execute("") Local Static $a[0] Local $m[] $m["type"] = "WhileStatement" $m["test"] = $test $m["body"] = $body = Null ? $a : $body $m["location"] = location() Return $m ;return { type: "WhileStatement", test: test, body: body ?? [], location: location() }; EndFunc Func __1ijhk8vfi_100($init, $test, $update, $body) Execute("") Local Static $a[0] Local $m[] $m["type"] = "ForStatement" $m["init"] = $init $m["test"] = $test $m["update"] = $update $m["body"] = $body = Null ? $a : $body $m["location"] = location() Return $m ;return { type: "ForStatement", init: init, test: test, update: update, body: body??[], location: location() }; EndFunc Func __1ijhk8vfi_101($left, $right, $body) Execute("") Local $m[] $m["type"] = "ForInStatement" $m["left"] = $left $m["right"] = $right $m["body"] = $body = Null ? $a : $body $m["location"] = location() Return $m ;return { type: "ForInStatement", left: left, right: right, body: body??[], location: location() } EndFunc Func __1ijhk8vfi_peg_fIterationStatement(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_98, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDoToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "body", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStatementList))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fUntilToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "test", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(4, 8)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_99, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fWhileToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "test", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "body", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStatementList))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fWEndToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(2, 6)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_100, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fForToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "init", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fForLoopVariableDeclaration)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fToToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "test", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "update", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStepToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)))), __1ijhk8vfi_Array(2)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "body", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStatementList))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fNextToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(2, 6, 8, 11)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_101, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fForToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "left", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fForInLoopVariableDeclaration)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fInToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "right", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "body", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStatementList))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fNextToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(2, 6, 8)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fEOS(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSingleLineComment)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fLineTerminatorSequence), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOF))))), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOF))))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fEOF(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_SimpleNot, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Any)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_f__(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fWhitespace)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_peg_fLineTerminatorSequence(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Named, "end of line", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, @LF, 0), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ""&@CR&""&@LF&"", 0), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Class, __1ijhk8vfi_Array(13,__1ijhk8vfi_Array(8232,8233)), 0, 0)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_102($head) Execute("") return $head; EndFunc Func __1ijhk8vfi_peg_fExpression(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_102, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "head", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAssignmentExpression)), Null) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_103($argument) Execute("") Local $m[] $m["type"] = "ExitStatement" $m["argument"] = $argument $m["location"] = location() Return $m #cs return { type: "ExitStatement", argument: argument, location: location(), } #ce EndFunc Func __1ijhk8vfi_104() Execute("") return null; EndFunc Func __1ijhk8vfi_peg_fExitStatement(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_103, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExitToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "argument", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fAssignmentExpression)))), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_104, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, "(", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ")", 0))), __1ijhk8vfi_Array()))))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_105($discriminant, $cases) Execute("") Local $m[] $m["type"] = "SwitchStatement" $m["discriminant"] = $discriminant $m["cases"] = $cases $m["location"] = location() Return $m #cs return { type: "SwitchStatement", discriminant: discriminant, cases: cases, location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fSwitchStatement(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_105, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSwitchToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "discriminant", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEmptyStatement)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "cases", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCaseBlock)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEndSwitchToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(2, 6)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_106($before, $default_, $after) Execute("") ;//FIXME: verify that other case clauses can come after the default clase in au3 Local $a[Ubound($before) + 1 + Ubound($after)] For $i = 0 To Ubound($before) - 1 $a[$i] = $before[$i] Next $a[$i] = $default_ For $j = 0 To Ubound($after) - 1 $a[$i + 1 + $j] = $after[$j] Next Return $a ;return /** @type {Array[number]|typeof default_|NonNullable[number]>} */ ([...before??[], default_, ...after??[]]); EndFunc Func __1ijhk8vfi_107($clauses) Execute("") ;//FIXME: verify that "?" CAN be there Local Static $a[0] Return IsArray($clauses) ? $clauses : $a ;return clauses??[]; EndFunc Func __1ijhk8vfi_peg_fCaseBlock(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_106, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "before", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCaseClauses)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(0)))), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "default_", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fDefaultClause)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "after", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCaseClauses)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(0)))))), __1ijhk8vfi_Array(1, 2, 4)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_107, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "clauses", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCaseClauses)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__))), __1ijhk8vfi_Array(0)))))), __1ijhk8vfi_Array(1)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_108($head, $tail) Execute("") Local $a[Ubound($tail) + 1] $a[0] = $head For $i = 1 To UBound($tail) - 1 $a[$i] = $tail[$i - 1] Next Return $a ;return [head, ...tail]; EndFunc Func __1ijhk8vfi_peg_fCaseClauses(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_108, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "head", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCaseClause)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "tail", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCaseClause)))), __1ijhk8vfi_Array(1)))))), __1ijhk8vfi_Array(0, 1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_109($tests, $consequent) Execute("") Local $m[] $m["type"] = "SwitchCase" $m["tests"] = $tests $m["consequent"] = $consequent = Null ? $a : $consequent $m["location"] = location() Return $m #cs return { type: "SwitchCase", tests: tests, consequent: consequent??[], location: location(), }; #ce EndFunc Func __1ijhk8vfi_110($slc) Execute("") return $slc; EndFunc Func __1ijhk8vfi_peg_fCaseClause(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_109, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCaseToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "tests", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCaseValueList)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "consequent", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStatementList)))), __1ijhk8vfi_Array(1)))))), __1ijhk8vfi_Array(2, 4)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_110, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "slc", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSingleLineComment)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS))), __1ijhk8vfi_Array(0)))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_111($consequent) Execute("") Local $m[] $m["type"] = "SwitchCase" $m["tests"] = null $m["consequent"] = $consequent = Null ? $a : $consequent $m["location"] = location() Return $m #cs return { type: "SwitchCase", tests: null, consequent: consequent??[], location: location(), }; #ce EndFunc Func __1ijhk8vfi_peg_fDefaultClause(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_111, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fCaseToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fElseToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fEOS), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "consequent", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Optional, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fStatementList)))), __1ijhk8vfi_Array(1)))))), __1ijhk8vfi_Array(5)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_112($head, $tail) Execute("") Local $a[Ubound($tail) + 1] $a[0] = $head For $i = 1 To UBound($tail) - 1 $a[$i] = $tail[$i] Next Return $a ;return [head, ...tail]; EndFunc Func __1ijhk8vfi_peg_fCaseValueList(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_112, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "head", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSwitchCaseValue)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "tail", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_ZeroOrMore, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Group, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Literal, ",", 0), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, Null, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fSwitchCaseValue)))), __1ijhk8vfi_Array(3)))))), __1ijhk8vfi_Array(0, 1)) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Func __1ijhk8vfi_113($from, $to) Execute("") Local $m[] $m["type"] = "SwitchCaseRange" $m["from"] = $from $m["to"] = $to $m["location"] = location() Return $m #cs return { type: "SwitchCaseRange", from: from, to: to, location: location(), } #ce EndFunc Func __1ijhk8vfi_peg_fSwitchCaseValue(ByRef $t) Execute("") Local Static $cacheId = Null Local $key = String(__1ijhk8vfi_InputStream_GetPosition($t)) Local Static $cached[] If $cacheId = Null Or Not ($cacheId = DllStructGetPtr($t)) Then $cacheId = DllStructGetPtr($t) Local $_cached[] $cached = $_cached EndIf If MapExists($cached, $key) Then __1ijhk8vfi_InputStream_SetPosition($t, ($cached[$key])[3]) Return SetError(($cached[$key])[2], ($cached[$key])[1], ($cached[$key])[0]) EndIf Local $p = __1ijhk8vfi_InputStream_GetPosition($t) Local Static $aR = __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Choice,__1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Action, __1ijhk8vfi_113, __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Sequence, __1ijhk8vfi_Array(__1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "from", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fToToken), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_f__), __1ijhk8vfi_Array(__1ijhk8vfi_Parser_Labeled, "to", __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression)))), __1ijhk8vfi_Array(0, 4)), _ __1ijhk8vfi_Array(__1ijhk8vfi_Parser_RuleRef, _ __1ijhk8vfi_peg_fExpression))) Local $r = __1ijhk8vfi_Parser_Run($t, $aR) Local $e = @error Execute("") Local $a = [$r, $p, $e, __1ijhk8vfi_InputStream_GetPosition($t)] $cached[$key] = $a Return SetError($e, $p, $r) EndFunc Global $TYPES_TO_PROPERTY_NAMES[] $TYPES_TO_PROPERTY_NAMES["CallExpression"] = "callee" $TYPES_TO_PROPERTY_NAMES["MemberExpression"] = "object" #cs var TYPES_TO_PROPERTY_NAMES = { CallExpression: "callee", MemberExpression: "object", }; #ce #include Func location() Return Null EndFunc Func peg_parse($input, $options = Null) Local $t = __1ijhk8vfi_InputStream($input) Local $r = __1ijhk8vfi_peg_fStart($t) Local $e = @error If $e = 0 And Not __1ijhk8vfi_InputStream_GetEOF($t) Then Return SetError(1, 0, $r) Return SetError($e, 0, $r) EndFunc