diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2021-01-13 18:31:27 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2021-01-13 18:31:27 +1100 |
| commit | 3fa431a2268a11dec6fd82c8f9b59cc2d0af9a93 (patch) | |
| tree | 509228a90b6fba0daf7d9fb2598132fe64d361fa /example | |
| parent | 703a09c135d04b37be34d95915c32d70d730894c (diff) | |
Stamp/Ignore now Stamp/Discard/Ignore
Diffstat (limited to 'example')
| -rw-r--r-- | example/calc.adb | 2 | ||||
| -rw-r--r-- | example/sentence.adb | 2 | ||||
| -rw-r--r-- | example/simple_calc.adb | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/example/calc.adb b/example/calc.adb index 0dd0e71..e94aaf2 100644 --- a/example/calc.adb +++ b/example/calc.adb @@ -58,7 +58,7 @@ procedure Calc is function Sat_Blank is new My_Rat.Lexers.Satisfy (Packrat.Utilities.Is_Whitespace); function Many_Blank is new My_Rat.Lexers.Many (Sat_Blank, 1); - function Whitespace is new My_Rat.Lexers.Ignore (Whitespace, Many_Blank); + function Whitespace is new My_Rat.Lexers.Discard (Whitespace, Many_Blank); package Scanner is new My_Rat.Lexers.Scan_Once ((Whitespace'Access, Decimal'Access, Number'Access, diff --git a/example/sentence.adb b/example/sentence.adb index b6cded9..bd69e5b 100644 --- a/example/sentence.adb +++ b/example/sentence.adb @@ -34,7 +34,7 @@ procedure Sentence is function Sat_Blank is new My_Rat.Lexers.Satisfy (Packrat.Utilities.Is_Whitespace); function Many_Blank is new My_Rat.Lexers.Many (Sat_Blank, 1); - function Whitespace is new My_Rat.Lexers.Ignore (Whitespace, Many_Blank); + function Whitespace is new My_Rat.Lexers.Discard (Whitespace, Many_Blank); package Scanner is new My_Rat.Lexers.Scan_Once ((Word'Access, Whitespace'Access)); diff --git a/example/simple_calc.adb b/example/simple_calc.adb index 4c85887..e1a66c1 100644 --- a/example/simple_calc.adb +++ b/example/simple_calc.adb @@ -47,7 +47,7 @@ procedure Simple_Calc is function Sat_Blank is new My_Rat.Lexers.Satisfy (Packrat.Utilities.Is_Whitespace); function Many_Blank is new My_Rat.Lexers.Many (Sat_Blank, 1); - function Whitespace is new My_Rat.Lexers.Ignore (Whitespace, Many_Blank); + function Whitespace is new My_Rat.Lexers.Discard (Whitespace, Many_Blank); package Scanner is new My_Rat.Lexers.Scan_Once ((Whitespace'Access, Number'Access, Operator'Access)); |