mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2026-09-16 14:21:22 +00:00
Code Issues 1 Releases Wiki Activity

Fix peg RULE_SET op code when at tail of string in some cases.

Browse Source
This commit is contained in:
Calvin Rose
2022-09-05 14:11:03 -05:00
parent 4754fa3902
commit 14657a762c
2 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/suite0013.janet
+11
View File
@@ -27,4 +27,15 @@
(assert (deep= (tabseq [i :in (range 3)] i)
@{}))
(def- sym-prefix-peg
(peg/compile
~{:symchar (+ (range "\x80\xff" "AZ" "az" "09") (set "!$%&*+-./:<?=>@^_"))
:anchor (drop (cmt ($) ,|(= $ 0)))
:cap (* (+ (> -1 (not :symchar)) :anchor) (* ($) '(some :symchar)))
:recur (+ :cap (> -1 :recur))
:main (> -1 :recur)}))
(assert (deep= (peg/match sym-prefix-peg @"123" 3) @[0 "123"]) "peg lookback")
(assert (deep= (peg/match sym-prefix-peg @"1234" 4) @[0 "1234"]) "peg lookback 2")
(end-suite)