b/control-see
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make list productions left-recursive

Browse Source
This commit is contained in:
Brandon Dyck
2025-09-08 15:19:49 -06:00
parent 46f2bbcc9b
commit 70d7d80ce0
4 changed files with 138 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
ldtext/Parser.fsy
View File

@@ -26,24 +26,33 @@ rung:
| steps SEMICOLON EOF { Rung $1 }
steps:
| steps_reversed { List.rev $1 }
steps_reversed:
| { [] }
| instr steps { StepInstr $1 :: $2 }
| branch steps { StepBranch $1 :: $2 }
| steps_reversed instr { StepInstr $2 :: $1 }
| steps_reversed branch { StepBranch $2 :: $1 }
branch:
| LEFT_BRACKET branch_arms RIGHT_BRACKET { Branch $2 }
branch_arms:
| branch_arms_reversed { List.rev $1 }
branch_arms_reversed:
| { [] }
| steps COMMA branch_arms { BranchArm $1 :: $3}
| branch_arms_reversed COMMA steps { BranchArm $3 :: $1}
| steps { [ BranchArm $1 ] }
instr:
| IDENTIFIER LEFT_PAREN operands RIGHT_PAREN { { Op = $1; Args = $3 } }
operands:
| operands_reversed { List.rev $1 }
operands_reversed:
| { [] }
| operand COMMA operands { $1 :: $3 }
| operands_reversed COMMA operand { $3 :: $1 }
| operand { [ $1 ] }
operand: