diff options
author | Jed Barber <jjbarber@y7mail.com> | 2020-12-04 12:35:50 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2020-12-04 12:35:50 +1100 |
commit | 87667886ee386edb89dc18b0bddcf94675c57a00 (patch) | |
tree | 0cb22989142a02424bbd92847c43dd6e9f498ec7 /src/packrat-parsers.adb | |
parent | cc1795dce90c4a498ddfed155c1f3a6f83a50f1d (diff) |
Added redirects for self-referential combinators
Diffstat (limited to 'src/packrat-parsers.adb')
-rw-r--r-- | src/packrat-parsers.adb | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/src/packrat-parsers.adb b/src/packrat-parsers.adb index f639195..df88e71 100644 --- a/src/packrat-parsers.adb +++ b/src/packrat-parsers.adb @@ -582,6 +582,33 @@ package body Packrat.Parsers is + package body Redirect is + + procedure Set + (Target : in Combinator) is + begin + Combo := Target; + end Set; + + function Call + (Input : in Traits.Element_Array; + Context : in out Parser_Context; + Start : in Positive) + return Combinator_Result is + begin + if Combo = null then + raise Parser_Error; + else + return Combo (Input, Context, Start); + end if; + end Call; + + end Redirect; + + + + + function Sequence (Input : in Traits.Element_Array; Context : in out Parser_Context; |