From: Eric S. Raymond <esr@thyrsus.com>
Date: Fri, 4 Nov 1994 07:19:17 +0000 (+0000)
Subject: Add "WRITE ALL".
X-Git-Tag: 1-2~77
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=5bb4afc12fae4a4e158173b5aa85fc5704a52e0a;p=cupl.git

Add "WRITE ALL".
---

diff --git a/cupl.y b/cupl.y
index e5c15a8..e553c3e 100644
--- 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;}