i1 : (* constParser "abc" : charAnalyzer) "abcabcabc" o1 = (abc, abc, abc) o1 : Sequence |
-- ../../../../Macaulay2/packages/Parsing.m2:124-135
*Parser := p -> (
f := (vals,current) -> new Parser from (c -> (
if c === null then (
if current === null then vals
else if (val := current null) =!= null then append(vals,val)
)
else (
if current === null then (f(vals,p)) c
else (
q := current c;
if q =!= null then return f(vals,q);
if (val = current null) =!= null then (f(append(vals,val),)) c))))