|
../../../../../Macaulay2/packages/Parsing.m2:130:13-141:86: --source code:
*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))))