|
|
|---|
|
|
|
|---|
Table of repetition parsing functions.
Definition:
(defconst *defparse-aleo-repetition-table* '(((:repetition (:repeat 0 (:infinity)) (:rulename (:rulename "plain-ws"))) . lex-repetition-*-plain-ws) ((:repetition (:repeat 1 (:infinity)) (:rulename (:rulename "plain-ws"))) . lex-repetition-1*-plain-ws) ((:repetition (:repeat 0 (:infinity)) (:group (((:repetition (:repeat 1 (:infinity)) (:rulename (:rulename "plain-ws")))) ((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "escaped-lf"))))))) . lex-repetition-*-plain-ws-or-escaped-lf) ((:repetition (:repeat 0 (:infinity)) (:group (((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "escaped-lf")))) ((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "not-lf-or-cr"))))))) . lex-repetition-*-escaped-lf/not-lf-or-cr) ((:repetition (:repeat 0 (:infinity)) (:group (((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "comment")))) ((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "ws"))))))) . lex-repetition-*-comment/ws) ((:repetition (:repeat 0 (:infinity)) (:group (((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "letter")))) ((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "digit")))) ((:repetition (:repeat 1 (:finite 1)) (:char-val (:insensitive nil "_"))))))) . lex-repetition-*-letter/digit/_) ((:repetition (:repeat 0 (:infinity)) (:rulename (:rulename "digit"))) . lex-repetition-*-digit) ((:repetition (:repeat 1 (:infinity)) (:rulename (:rulename "digit"))) . lex-repetition-1*-digit) ((:repetition (:repeat 0 (:infinity)) (:group (((:repetition (:repeat 1 (:finite 1)) (:char-val (:insensitive nil "."))) (:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "identifier"))))))) . lex-repetition-*-dot-identifier) ((:repetition (:repeat 0 (:infinity)) (:char-val (:insensitive nil "_"))) . lex-repetition-*-underbar) ((:repetition (:repeat 0 (:infinity)) (:group (((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "digit"))) (:repetition (:repeat 0 (:infinity)) (:char-val (:insensitive nil "_"))))))) . lex-repetition-*-digit-*-underbar) ((:repetition (:repeat 1 (:infinity)) (:group (((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "digit"))) (:repetition (:repeat 0 (:infinity)) (:char-val (:insensitive nil "_"))))))) . lex-repetition-1*-digit-*-underbar) ((:repetition (:repeat 0 (:infinity)) (:group (((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "address-char"))) (:repetition (:repeat 0 (:infinity)) (:char-val (:insensitive nil "_"))))))) . lex-repetition-*-address-char-*-underbar) ((:repetition (:repeat 1 (:infinity)) (:group (((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "address-char"))) (:repetition (:repeat 0 (:infinity)) (:char-val (:insensitive nil "_"))))))) . lex-repetition-1*-address-char-*-underbar) ((:repetition (:repeat 0 (:infinity)) (:rulename (:rulename "hex-digit"))) . lex-repetition-*-hex-digit) ((:repetition (:repeat 1 (:finite 6)) (:rulename (:rulename "hex-digit"))) . lex-repetition-1*6-hex-digit) ((:repetition (:repeat 0 (:infinity)) (:rulename (:rulename "string-element"))) . lex-repetition-*-string-element) ((:repetition (:repeat 0 (:infinity)) (:rulename (:rulename "tuple"))) . lex-repetition-*-tuple) ((:repetition (:repeat 1 (:infinity)) (:rulename (:rulename "tuple"))) . lex-repetition-1*-tuple) ((:repetition (:repeat 0 (:infinity)) (:rulename (:rulename "entry"))) . lex-repetition-*-entry) ((:repetition (:repeat 2 (:finite 2)) (:group (((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "operand"))) (:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "ws"))))))) . lex-repetition-2-operands) ((:repetition (:repeat 3 (:finite 3)) (:group (((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "operand"))) (:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "ws"))))))) . lex-repetition-3-operands) ((:repetition (:repeat 0 (:infinity)) (:group (((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "ws"))) (:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "operand"))))))) . lex-repetition-*-ws-operand) ((:repetition (:repeat 1 (:infinity)) (:group (((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "ws"))) (:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "operand"))))))) . lex-repetition-1*-ws-operand) ((:repetition (:repeat 0 (:infinity)) (:group (((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "ws"))) (:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "register"))))))) . lex-repetition-*-ws-register) ((:repetition (:repeat 1 (:infinity)) (:group (((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "ws"))) (:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "register"))))))) . lex-repetition-1*-ws-register) ((:repetition (:repeat 0 (:infinity)) (:rulename (:rulename "function-input"))) . lex-repetition-*-function-input) ((:repetition (:repeat 0 (:infinity)) (:rulename (:rulename "function-output"))) . lex-repetition-*-function-output) ((:repetition (:repeat 0 (:infinity)) (:rulename (:rulename "instruction"))) . lex-repetition-*-instruction) ((:repetition (:repeat 1 (:infinity)) (:rulename (:rulename "instruction"))) . lex-repetition-1*-instruction) ((:repetition (:repeat 0 (:infinity)) (:rulename (:rulename "finalize-input"))) . lex-repetition-*-finalize-input) ((:repetition (:repeat 0 (:infinity)) (:rulename (:rulename "finalize-output"))) . lex-repetition-*-finalize-output) ((:repetition (:repeat 0 (:infinity)) (:rulename (:rulename "command"))) . lex-repetition-*-command) ((:repetition (:repeat 1 (:infinity)) (:rulename (:rulename "command"))) . lex-repetition-1*-command) ((:repetition (:repeat 0 (:infinity)) (:rulename (:rulename "transition-input"))) . lex-repetition-*-transition-input) ((:repetition (:repeat 0 (:infinity)) (:rulename (:rulename "transition-output"))) . lex-repetition-*-transition-output) ((:repetition (:repeat 0 (:infinity)) (:rulename (:rulename "import"))) . lex-repetition-*-import) ((:repetition (:repeat 0 (:infinity)) (:group (((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "mapping")))) ((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "struct")))) ((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "record")))) ((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "function")))) ((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "transition"))))))) . lex-repetition-*-program-declaration) ((:repetition (:repeat 1 (:infinity)) (:group (((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "mapping")))) ((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "struct")))) ((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "record")))) ((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "function")))) ((:repetition (:repeat 1 (:finite 1)) (:rulename (:rulename "transition"))))))) . lex-repetition-1*-program-declaration)))