diff -r 8fb3b6d3be70 -r 81ee93b87258 solution/cw3/parser.sc --- a/solution/cw3/parser.sc Thu Jan 20 08:58:38 2022 +0000 +++ b/solution/cw3/parser.sc Mon Jan 24 00:00:33 2022 +0000 @@ -132,8 +132,8 @@ (AExp ~ T_OP("!=") ~ AExp) ==> { case x ~ _ ~ z => Bop("!=", x, z): BExp } || (AExp ~ T_OP("<") ~ AExp) ==> { case x ~ _ ~ z => Bop("<", x, z): BExp } || (AExp ~ T_OP(">") ~ AExp) ==> { case x ~ _ ~ z => Bop(">", x, z): BExp } || - (T_PAREN("(") ~ BExp ~ List(T_PAREN(")"), T_OP("&&")) ~ BExp) ==> { case _ ~ y ~ _ ~ v => And(y, v): BExp } || - (T_PAREN("(") ~ BExp ~ List(T_PAREN(")"), T_OP("||")) ~ BExp) ==> { case _ ~ y ~ _ ~ v => Or(y, v): BExp } || + (T_PAREN("(") ~ BExp ~ T_PAREN(")") ~ T_OP("&&") ~ BExp) ==> { case _ ~ y ~ _ ~ _ ~ v => And(y, v): BExp } || + (T_PAREN("(") ~ BExp ~ T_PAREN(")") ~ T_OP("||") ~ BExp) ==> { case _ ~ y ~ _ ~ _ ~ v => Or(y, v): BExp } || (T_KEYWORD("true") ==> (_ => True: BExp )) || (T_KEYWORD("false") ==> (_ => False: BExp )) || (T_PAREN("(") ~ BExp ~ T_PAREN(")")) ==> { case _ ~ x ~ _ => x } @@ -145,7 +145,9 @@ (T_KEYWORD("while") ~ BExp ~ T_KEYWORD("do") ~ Block) ==> { case _ ~ y ~ _ ~ w => While(y, w) : Stmt } || (T_KEYWORD("read") ~ IdParser()) ==> { case _ ~ id => Read(id): Stmt} || (T_KEYWORD("write") ~ IdParser()) ==> { case _ ~ id => WriteId(id): Stmt} || - (T_KEYWORD("write") ~ StringParser()) ==> { case _ ~ s => WriteString(s): Stmt} + (T_KEYWORD("write") ~ StringParser()) ==> { case _ ~ s => WriteString(s): Stmt} || + (T_KEYWORD("write") ~ T_PAREN("(") ~ IdParser() ~ T_PAREN(")")) ==> { case _ ~ _ ~ id ~ _ => WriteId(id): Stmt} || + (T_KEYWORD("write") ~ T_PAREN("(") ~ StringParser() ~ T_PAREN(")")) ==> { case _ ~ _ ~ s ~ _ => WriteString(s): Stmt} lazy val Stmts: Parser[List[Token], Block] = (Stmt ~ T_SEMI ~ Stmts) ==> { case x ~ _ ~ z => x :: z : Block } || @@ -224,6 +226,10 @@ def eval(bl: Block) : Env = eval_bl(bl, Map()) +println("Primes eval") +println(tokenise(os.read(os.pwd / "primes.while"))) +println(eval(Stmts.parse_all(tokenise(os.read(os.pwd / "primes.while"))).head)) + println("Factors eval") println(eval(Stmts.parse_all(tokenise(os.read(os.pwd / "factors.while"))).head))