gnue/geas/src/classdef parse.y scan.l

[Reinhard Mueller]

CVSROOT:        /cvsroot/gnue
Module name:    gnue
Changes by:     Reinhard Mueller <address@hidden>       01/11/15 15:05:55

Modified files:
        geas/src/classdef: parse.y scan.l 

Log message:
        Changed ":" to "WHERE" in REFERENCE and LIST syntax.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue/geas/src/classdef/parse.y.diff?tr1=1.23&tr2=1.24&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue/geas/src/classdef/scan.l.diff?tr1=1.10&tr2=1.11&r1=text&r2=text

Patches:
Index: gnue/geas/src/classdef/parse.y
diff -u gnue/geas/src/classdef/parse.y:1.23 gnue/geas/src/classdef/parse.y:1.24
--- gnue/geas/src/classdef/parse.y:1.23 Wed Nov 14 17:14:24 2001
+++ gnue/geas/src/classdef/parse.y      Thu Nov 15 15:05:55 2001
@@ -19,7 +19,7 @@
    along with GEAS; if not, write to the Free Software Foundation, Inc.,
    59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
-   $Id: parse.y,v 1.23 2001/11/14 22:14:24 reinhard Exp $
+   $Id: parse.y,v 1.24 2001/11/15 20:05:55 reinhard Exp $
 */
 
 %{
@@ -118,7 +118,7 @@
 %token MODULE
 %token CLASS EXTEND TYPE
 %token NOT NUL
-%token REFERENCE LIST
+%token REFERENCE LIST WHERE
 %token UNIQUE INDEX
 %token ORDER BY DESC
 
@@ -282,7 +282,7 @@
                                         }
 ;
 
-reference:  elemname ':' otherfield '=' thisfield
+reference:  elemname WHERE otherfield '=' thisfield
                                         {
                                           gboolean result;
                                           result = _new_reference ($1, $5, $3);
@@ -291,7 +291,7 @@
                                         }
 ;
 
-list:       elemname ':' otherfield '=' thisfield
+list:       elemname WHERE otherfield '=' thisfield
                                         {
                                           gboolean result;
                                           result = _new_list ($1, $5, $3);
Index: gnue/geas/src/classdef/scan.l
diff -u gnue/geas/src/classdef/scan.l:1.10 gnue/geas/src/classdef/scan.l:1.11
--- gnue/geas/src/classdef/scan.l:1.10  Thu Nov  1 14:04:38 2001
+++ gnue/geas/src/classdef/scan.l       Thu Nov 15 15:05:55 2001
@@ -19,7 +19,7 @@
    along with GEAS; if not, write to the Free Software Foundation, Inc.,
    59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
-   $Id: scan.l,v 1.10 2001/11/01 19:04:38 reinhard Exp $
+   $Id: scan.l,v 1.11 2001/11/15 20:05:55 reinhard Exp $
 */
 
 %option case-insensitive
@@ -137,6 +137,7 @@
 
 reference { TTP; return (REFERENCE); }
 list      { TTP; return (LIST);      }
+where     { TTP; return (WHERE);     }
 
 unique    { TTP; return (UNIQUE);    }
 index     { TTP; return (INDEX);     }