Add "WRITE ALL".

diff --git a/cupl.y b/cupl.y
index e5c15a8d24258fc06b7b4b5a0413445255ea0b0c..e553c3eb66c94d98a472128e429b18fd7d0be89a 100644 (file)
--- a/cupl.y
+++ b/cupl.y
@@ -178,6 +178,7 @@ simple      :    LET IDENTIFIER '=' expr    {$$ = cons(LET, $2, $4);}
        |    GO TO IDENTIFIER           {$$ = cons(GO, $3, NULLNODE);}
        |    GO TO IDENTIFIER END       {$$ = cons(OG, $3, NULLNODE);}
        |    READ readl                 {$$ = $2;}
+       |    WRITE ALL                  {$$ = cons(WRITE, NULLNODE, NULLNODE);}
        |    WRITE writel               {$$ = $2;}
        |    ALLOCATE allocl            {$$ = $2;}
        |    WATCH varlist              {$$ = $2;}