コード例 #1
0
        public static Errorable <List <TextUnit> > Parse(string raw)
        {
            var res = parse(speechParser, raw);

            return(res.IsFaulted ?
                   Errorable <List <TextUnit> > .Fail(res.Reply.Error.ToString()) :
                   Errorable <List <TextUnit> > .OK(res.Reply.Result));
        }
コード例 #2
0
            private static Errorable <LPU> ResolveUnit(
                Func <string, Errorable <LPU> > argResolve,
                Func <string, List <LPU>, Errorable <LPU> > macroReinvResolve,
                LPU x)
            {
                Errorable <List <LPU> > resolveAcc(IEnumerable <LPU> args) =>
                Acc(args.Select(a => ResolveUnit(argResolve, macroReinvResolve, a)));

                Errorable <LPU> reloc(Errorable <ParseUnit> pu)
                {
                    return(pu.isValid ? new LPU(pu.value, x.location) : Errorable <LPU> .Fail(pu.errors));
                }

                return(x.unit.Match(
                           macroVar: argResolve,
                           macroReinv: macroReinvResolve,
                           paren: ns => reloc(resolveAcc(ns).Map(ParseUnit.Paren)),
                           words: ns => reloc(resolveAcc(ns).Map(ParseUnit.Words)),
                           nswords: ns => reloc(resolveAcc(ns).Map(ParseUnit.NoSpaceWords)),
                           postfix: ns => reloc(resolveAcc(ns).Map(ParseUnit.Postfix)),
                           deflt: () => Errorable <LPU> .OK(x)));
            }