Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/nofib/real/parser/parser.stdout

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution. 




Succeeded, with:
   Size env = 21
   Next token = (99997,99997,Leof,"")

   Result = MkModule "Parser" [MkTopV (MkValBind 12 (LhsPat (PatVar "panic")) (ExprVar "error")),MkTopV (MkValBind 16 (LhsPat (PatVar "paLiteral")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprApp (ExprVar ".") (ExprCon "LiteralInt")) (ExprVar "leStringToInt"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lintlit")),ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprApp (ExprVar ".") (ExprCon "LiteralChar")) (ExprVar "head"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lcharlit")),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "LiteralString")) (ExprApp (ExprVar "pgItem") (ExprCon "Lstringlit"))]))),MkTopV (MkValBind 24 (LhsPat (PatVar "paExpr")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprVar "paCaseExpr",ExprVar "paLetExpr",ExprVar "paLamExpr",ExprVar "paIfExpr",ExprVar "paUnaryMinusExpr",ExprApp (ExprVar "hsDoExpr") (ExprList [])]))),MkTopV (MkValBind 35 (LhsPat (PatVar "paUnaryMinusExpr")) (ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "minus",PatTuple [PatWild,PatVar "aexpr",PatWild]] (ExprApp (ExprApp (ExprCon "ExprApp") (ExprApp (ExprApp (ExprCon "ExprApp") (ExprApp (ExprCon "ExprVar") (ExprLiteral (LiteralString "-")))) (ExprApp (ExprCon "ExprLiteral") (ExprApp (ExprCon "LiteralInt") (ExprLiteral (LiteralInt 0)))))) (ExprVar "aexpr")))) (ExprVar "paMinus")) (ExprVar "paAExpr"))),MkTopV (MkValBind 42 (LhsPat (PatVar "paCaseExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "casee",PatVar "expr",PatVar "off",PatVar "alts"] (ExprApp (ExprApp (ExprCon "ExprCase") (ExprVar "expr")) (ExprVar "alts")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lcase"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lof"))) (ExprApp (ExprVar "pgDeclList") (ExprVar "paAlt")))),MkTopV (MkValBind 50 (LhsPat (PatVar "paAlt")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "pat",PatVar "arrow",PatVar "expr",PatVar "wheres"] (ExprApp (ExprApp (ExprCon "MkExprCaseAlt") (ExprVar "pat")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprVar "expr")) (ExprVar "wheres"))))) (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "pat",PatVar "agrdrhss",PatVar "wheres"] (ExprApp (ExprApp (ExprCon "MkExprCaseAlt") (ExprVar "pat")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprApp (ExprCon "ExprGuards") (ExprVar "agrdrhss"))) (ExprVar "wheres"))))) (ExprVar "paPat")) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paGalt"))) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause"))]))),MkTopV (MkValBind 69 (LhsPat (PatVar "paGalt")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "bar",PatVar "guard",PatVar "arrow",PatVar "expr"] (ExprTuple [ExprVar "guard",ExprVar "expr"]))) (ExprApp (ExprVar "pgItem") (ExprCon "Lbar"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paExpr"))),MkTopV (MkValBind 77 (LhsPat (PatVar "paLamExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "lam",PatVar "patterns",PatVar "arrow",PatVar "rhs"] (ExprApp (ExprApp (ExprCon "ExprLam") (ExprVar "patterns")) (ExprVar "rhs")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lslash"))) (ExprApp (ExprVar "pgZeroOrMore") (ExprVar "paAPat"))) (ExprApp (ExprVar "pgItem") (ExprCon "Larrow"))) (ExprVar "paExpr"))),MkTopV (MkValBind 85 (LhsPat (PatVar "paLetExpr")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "lett",PatVar "decls",PatVar "inn",PatVar "rhs"] (ExprApp (ExprApp (ExprCon "ExprLetrec") (ExprVar "decls")) (ExprVar "rhs")))) (ExprApp (ExprVar "pgItem") (ExprCon "Llet"))) (ExprVar "paValdefs")) (ExprApp (ExprVar "pgItem") (ExprCon "Lin"))) (ExprVar "paExpr"))),MkTopV (MkValBind 93 (LhsPat (PatVar "paValdefs")) (ExprApp (ExprApp (ExprVar "pgApply") (ExprVar "pa_MergeValdefs")) (ExprApp (ExprVar "pgDeclList") (ExprVar "paValdef")))),MkTopV (MkValBind 96 (LhsPat (PatVar "pa_MergeValdefs")) (ExprVar "id")),MkTopV (MkValBind 99 (LhsPat (PatVar "paLhs")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "v",PatVar "ps"] (ExprApp (ExprApp (ExprCon "LhsVar") (ExprVar "v")) (ExprVar "ps")))) (ExprVar "paVar")) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paPat")),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "LhsPat")) (ExprVar "paPat")]))),MkTopV (MkValBind 106 (LhsPat (PatVar "paValdef")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatTuple [PatVar "line",PatVar "lhs"],PatVar "eq",PatVar "rhs",PatVar "wheres"] (ExprApp (ExprApp (ExprApp (ExprCon "MkValBind") (ExprVar "line")) (ExprVar "lhs")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprVar "rhs")) (ExprVar "wheres"))))) (ExprApp (ExprVar "pgGetLineNumber") (ExprVar "paLhs"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lequals"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause")),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatTuple [PatVar "line",PatVar "lhs"],PatVar "grdrhss",PatVar "wheres"] (ExprApp (ExprApp (ExprApp (ExprCon "MkValBind") (ExprVar "line")) (ExprVar "lhs")) (ExprApp (ExprApp (ExprVar "pa_MakeWhereExpr") (ExprApp (ExprCon "ExprGuards") (ExprVar "grdrhss"))) (ExprVar "wheres"))))) (ExprApp (ExprVar "pgGetLineNumber") (ExprVar "paLhs"))) (ExprApp (ExprVar "pgOneOrMore") (ExprVar "paGrhs"))) (ExprApp (ExprVar "pgOptional") (ExprVar "paWhereClause"))]))),MkTopV (MkValBind 125 (LhsVar "pa_MakeWhereExpr" [PatVar "expr",PatCon "Nothing" []]) (ExprVar "expr")),MkTopV (MkValBind 127 (LhsVar "pa_MakeWhereExpr" [PatVar "expr",PatCon "Just" [PatVar "whereClauses"]]) (ExprApp (ExprApp (ExprCon "ExprWhere") (ExprVar "expr")) (ExprVar "whereClauses"))),MkTopV (MkValBind 130 (LhsPat (PatVar "paWhereClause")) (ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [PatVar "x",PatVar "y"] (ExprVar "y"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lwhere"))) (ExprVar "paValdefs"))),MkTopV (MkValBind 132 (LhsPat (PatVar "paGrhs")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen4") (ExprLam [PatVar "bar",PatVar "guard",PatVar "equals",PatVar "expr"] (ExprTuple [ExprVar "guard",ExprVar "expr"]))) (ExprApp (ExprVar "pgItem") (ExprCon "Lbar"))) (ExprVar "paExpr")) (ExprApp (ExprVar "pgItem") (ExprCon "Lequals"))) (ExprVar "paExpr"))),MkTopV (MkValBind 141 (LhsPat (PatVar "paAPat")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "PatVar")) (ExprVar "paVar"),ExprApp (ExprApp (ExprVar "pgApply") (ExprLam [PatVar "id"] (ExprApp (ExprApp (ExprCon "PatCon") (ExprVar "id")) (ExprList [])))) (ExprVar "paCon"),ExprApp (ExprApp (ExprVar "pgApply") (ExprApp (ExprVar "const") (ExprCon "PatWild"))) (ExprApp (ExprVar "pgItem") (ExprCon "Lunder")),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "PatTuple")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "es",PatVar "r"] (ExprVar "es"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprApp (ExprApp (ExprVar "pgTwoOrMoreWithSep") (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen"))),ExprApp (ExprApp (ExprVar "pgApply") (ExprCon "PatList")) (ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "es",PatVar "r"] (ExprVar "es"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llbrack"))) (ExprApp (ExprApp (ExprVar "pgZeroOrMoreWithSep") (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Lcomma")))) (ExprApp (ExprVar "pgItem") (ExprCon "Lrbrack"))),ExprApp (ExprApp (ExprApp (ExprApp (ExprVar "pgThen3") (ExprLam [PatVar "l",PatVar "p",PatVar "r"] (ExprVar "p"))) (ExprApp (ExprVar "pgItem") (ExprCon "Llparen"))) (ExprVar "paPat")) (ExprApp (ExprVar "pgItem") (ExprCon "Lrparen"))]))),MkTopV (MkValBind 163 (LhsPat (PatVar "paPat")) (ExprApp (ExprVar "pgAlts") (ExprList [ExprApp (ExprApp (ExprApp (ExprVar "pgThen2") (ExprLam [P

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].