]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/parser.mly
This commit was manufactured by cvs2svn to create branch 'init'.
[helm.git] / helm / DEVEL / pxp / pxp / tools / ucs2_to_utf8 / parser.mly
diff --git a/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/parser.mly b/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/parser.mly
deleted file mode 100644 (file)
index 2fba775..0000000
+++ /dev/null
@@ -1,40 +0,0 @@
-/******************************************************/
-/*    Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>   */
-/*                   14/05/2000                       */
-/******************************************************/
-
-%token <int>CHAR
-%token <string>IDENT
-%token LET
-%token EQ
-%token END_OF_LET
-%token RBRACKET
-%token PIPE
-%token LBRACKET
-%token RANGE
-%token EOF
-%start main
-%type <Types.definition list> main
-
-%%
-
-main:
-   EOF              { [] }
- | declaration main { $1::$2 }
-;
-
-declaration:
-   LET IDENT EQ regexp END_OF_LET
-      { { Types.id = $2 ; Types.rel = $4 } }
-;
-
-regexp:
-   regexptoken PIPE regexp  { $1::$3 }
- | regexptoken              { [$1] }
-;
-
-regexptoken:
-   CHAR                               { Types.Char $1 }
- | LBRACKET CHAR RANGE CHAR RBRACKET  { Types.Interval ($2,$4) }
- | IDENT                              { Types.Identifier $1 }
-;