CVS: sml-dist/src/lexgen/src/FrontEnds/ml-lex ml-lex.lex,1.1,1.2 ml-lex.lex.sml,1.1,1.2 ml-lex.yacc,1.1,1.2 ml-lex.yacc.sig,1.1,1.2 ml-lex.yacc.sml,1.1,1.2
Matthias Blume <[email protected]>
| Newsgroups | gmane.comp.lang.sml.smlnj.commits |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/smlnj/sml-dist/src/lexgen/src/FrontEnds/ml-lex
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18303/src/FrontEnds/ml-lex
Modified Files:
ml-lex.lex ml-lex.lex.sml ml-lex.yacc ml-lex.yacc.sig
ml-lex.yacc.sml
Log Message:
bug fix for %full
Index: ml-lex.lex
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/lexgen/src/FrontEnds/ml-lex/ml-lex.lex,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ml-lex.lex 1 Mar 2006 04:44:29 -0000 1.1
--- ml-lex.lex 3 Mar 2006 19:43:47 -0000 1.2
***************
*** 85,88 ****
--- 85,90 ----
<DEFS> "%unicode"
=> (UNICODE(!yylineno, !yylineno));
+ <DEFS> "%full"
+ => (lex());
<DEFS> {id} => (ID(yytext, !yylineno, !yylineno));
<DEFS> "=" => (YYBEGIN RE; EQ(!yylineno, !yylineno));
***************
*** 151,152 ****
--- 153,156 ----
<ACTION> [^;()\"\\]*
=> (updAction yytext; lex());
+
+
Index: ml-lex.lex.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/lexgen/src/FrontEnds/ml-lex/ml-lex.lex.sml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ml-lex.lex.sml 1 Mar 2006 04:44:29 -0000 1.1
--- ml-lex.lex.sml 3 Mar 2006 19:43:47 -0000 1.2
***************
*** 32,35 ****
--- 32,37 ----
end
+ val initPos = 2 (* ml-lex bug compatibility *)
+
fun mkStream inputN = let
val strm = TSIO.mkInstream
***************
*** 52,60 ****
}, "")
[...2736 lines suppressed...]
! else if inp < #"{"
then if inp = #"\\"
! then yyQ26(strm', lastMatch)
! else if inp < #"\\"
! then if inp = #"["
! then yyQ21(strm', lastMatch)
! else yyQ25(strm', lastMatch)
! else yyQ25(strm', lastMatch)
! else if inp = #"}"
! then yyQ25(strm', lastMatch)
! else if inp < #"}"
! then yyQ13(strm', lastMatch)
else if inp <= #"\127"
! then yyQ25(strm', lastMatch)
! else if yyInput.eof(strm)
! then UserDeclarations.eof(yyarg)
else yystuck(lastMatch)
(* end case *))
in
(case (!(yyss))
Index: ml-lex.yacc
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/lexgen/src/FrontEnds/ml-lex/ml-lex.yacc,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ml-lex.yacc 1 Mar 2006 04:44:29 -0000 1.1
--- ml-lex.yacc 3 Mar 2006 19:43:47 -0000 1.2
***************
*** 49,53 ****
| COUNT
| REJECTTOK
! | FULLCHARSET
| UNICODE
| STRUCT
--- 49,53 ----
| COUNT
| REJECTTOK
! | FULL
| UNICODE
| STRUCT
***************
*** 113,116 ****
--- 113,118 ----
| Defs UNICODE
(S.updClamp (Defs, S.NO_CLAMP))
+ | Defs FULL
+ (S.updClamp (Defs, S.CLAMP255))
| Defs COUNT
(Defs)
Index: ml-lex.yacc.sig
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/lexgen/src/FrontEnds/ml-lex/ml-lex.yacc.sig,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ml-lex.yacc.sig 1 Mar 2006 04:44:29 -0000 1.1
--- ml-lex.yacc.sig 3 Mar 2006 19:43:47 -0000 1.2
***************
*** 8,12 ****
val STRUCT: 'a * 'a -> (svalue,'a) token
val UNICODE: 'a * 'a -> (svalue,'a) token
! val FULLCHARSET: 'a * 'a -> (svalue,'a) token
val REJECTTOK: 'a * 'a -> (svalue,'a) token
val COUNT: 'a * 'a -> (svalue,'a) token
--- 8,12 ----
val STRUCT: 'a * 'a -> (svalue,'a) token
val UNICODE: 'a * 'a -> (svalue,'a) token
! val FULL: 'a * 'a -> (svalue,'a) token
val REJECTTOK: 'a * 'a -> (svalue,'a) token
val COUNT: 'a * 'a -> (svalue,'a) token
Index: ml-lex.yacc.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/lexgen/src/FrontEnds/ml-lex/ml-lex.yacc.sml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ml-lex.yacc.sml 1 Mar 2006 04:44:29 -0000 1.1
--- ml-lex.yacc.sml 3 Mar 2006 19:43:47 -0000 1.2
***************
*** 28,67 ****
"\
\\001\000\001\000\000\000\000\000\
! \\001\000\004\000\072\000\030\000\071\000\000\000\
! \\001\000\005\000\032\000\007\000\031\000\020\000\030\000\021\000\029\000\
! \\022\000\028\000\025\000\027\000\000\000\
! \\001\000\006\000\070\000\015\000\043\000\000\000\
! \\001\000\008\000\067\000\009\000\066\000\016\000\065\000\020\000\050\000\
! \\021\000\049\000\000\000\
! \\001\000\008\000\077\000\016\000\065\000\020\000\050\000\021\000\049\000\000\000\
! \\001\000\011\000\045\000\000\000\
! \\001\000\011\000\058\000\030\000\057\000\000\000\
! \\001\000\011\000\080\000\000\000\
! \\001\000\015\000\043\000\026\000\042\000\000\000\
! \\001\000\015\000\043\000\026\000\082\000\000\000\
! \\001\000\015\000\043\000\028\000\073\000\000\000\
! \\001\000\016\000\052\000\019\000\051\000\020\000\050\000\021\000\049\000\000\000\
! \\001\000\016\000\065\000\020\000\050\000\021\000\049\000\000\000\
! \\001\000\019\000\051\000\020\000\050\000\021\000\049\000\000\000\
! \\001\000\020\000\050\000\021\000\049\000\000\000\
! \\001\000\023\000\034\000\000\000\
! \\001\000\024\000\074\000\000\000\
! \\001\000\025\000\015\000\029\000\014\000\031\000\013\000\033\000\012\000\
! \\034\000\011\000\036\000\010\000\037\000\009\000\038\000\008\000\
! \\039\000\007\000\000\000\
! \\001\000\025\000\018\000\000\000\
! \\001\000\027\000\016\000\000\000\
\\001\000\027\000\017\000\000\000\
! \\001\000\027\000\059\000\000\000\
! \\001\000\027\000\083\000\000\000\
! \\001\000\028\000\035\000\000\000\
\\001\000\029\000\005\000\000\000\
! \\001\000\032\000\020\000\000\000\
! \\001\000\032\000\055\000\000\000\
! \\001\000\032\000\078\000\000\000\
! \\085\000\000\000\
\\086\000\000\000\
! \\087\000\002\000\004\000\000\000\
! \\088\000\000\000\
\\089\000\000\000\
\\090\000\000\000\
--- 28,66 ----
"\
\\001\000\001\000\000\000\000\000\
! \\001\000\004\000\073\000\030\000\072\000\000\000\
! \\001\000\005\000\033\000\007\000\032\000\020\000\031\000\021\000\030\000\
! \\022\000\029\000\025\000\028\000\000\000\
! \\001\000\006\000\071\000\015\000\044\000\000\000\
! \\001\000\008\000\068\000\009\000\067\000\016\000\066\000\020\000\051\000\
! \\021\000\050\000\000\000\
! \\001\000\008\000\078\000\016\000\066\000\020\000\051\000\021\000\050\000\000\000\
! \\001\000\011\000\046\000\000\000\
! \\001\000\011\000\059\000\030\000\058\000\000\000\
! \\001\000\011\000\081\000\000\000\
! \\001\000\015\000\044\000\026\000\043\000\000\000\
! \\001\000\015\000\044\000\026\000\083\000\000\000\
! \\001\000\015\000\044\000\028\000\074\000\000\000\
! \\001\000\016\000\053\000\019\000\052\000\020\000\051\000\021\000\050\000\000\000\
! \\001\000\016\000\066\000\020\000\051\000\021\000\050\000\000\000\
! \\001\000\019\000\052\000\020\000\051\000\021\000\050\000\000\000\
! \\001\000\020\000\051\000\021\000\050\000\000\000\
! \\001\000\023\000\035\000\000\000\
! \\001\000\024\000\075\000\000\000\
! \\001\000\025\000\016\000\029\000\015\000\031\000\014\000\033\000\013\000\
! \\034\000\012\000\035\000\011\000\036\000\010\000\037\000\009\000\
! \\038\000\008\000\039\000\007\000\000\000\
! \\001\000\025\000\019\000\000\000\
\\001\000\027\000\017\000\000\000\
! \\001\000\027\000\018\000\000\000\
! \\001\000\027\000\060\000\000\000\
! \\001\000\027\000\084\000\000\000\
! \\001\000\028\000\036\000\000\000\
\\001\000\029\000\005\000\000\000\
! \\001\000\032\000\021\000\000\000\
! \\001\000\032\000\056\000\000\000\
! \\001\000\032\000\079\000\000\000\
\\086\000\000\000\
! \\087\000\000\000\
! \\088\000\002\000\004\000\000\000\
\\089\000\000\000\
\\090\000\000\000\
***************
*** 72,92 ****
\\095\000\000\000\
\\096\000\000\000\
! \\097\000\032\000\020\000\000\000\
\\098\000\000\000\
! \\099\000\003\000\033\000\005\000\032\000\007\000\031\000\020\000\030\000\
! \\021\000\029\000\022\000\028\000\025\000\027\000\000\000\
\\100\000\000\000\
! \\101\000\000\000\
\\102\000\000\000\
\\103\000\000\000\
\\104\000\000\000\
! \\105\000\005\000\032\000\007\000\031\000\020\000\030\000\021\000\029\000\
! \\022\000\028\000\025\000\027\000\000\000\
! \\106\000\005\000\032\000\007\000\031\000\020\000\030\000\021\000\029\000\
! \\022\000\028\000\025\000\027\000\000\000\
! \\107\000\012\000\040\000\013\000\039\000\014\000\038\000\024\000\037\000\000\000\
! \\108\000\012\000\040\000\013\000\039\000\014\000\038\000\024\000\037\000\000\000\
! \\109\000\000\000\
! \\110\000\000\000\
\\111\000\000\000\
\\112\000\000\000\
--- 71,91 ----
\\095\000\000\000\
\\096\000\000\000\
! \\097\000\000\000\
\\098\000\000\000\
! \\099\000\032\000\021\000\000\000\
\\100\000\000\000\
! \\101\000\003\000\034\000\005\000\033\000\007\000\032\000\020\000\031\000\
! \\021\000\030\000\022\000\029\000\025\000\028\000\000\000\
\\102\000\000\000\
\\103\000\000\000\
\\104\000\000\000\
! \\105\000\000\000\
! \\106\000\000\000\
! \\107\000\005\000\033\000\007\000\032\000\020\000\031\000\021\000\030\000\
! \\022\000\029\000\025\000\028\000\000\000\
! \\108\000\005\000\033\000\007\000\032\000\020\000\031\000\021\000\030\000\
! \\022\000\029\000\025\000\028\000\000\000\
! \\109\000\012\000\041\000\013\000\040\000\014\000\039\000\024\000\038\000\000\000\
! \\110\000\012\000\041\000\013\000\040\000\014\000\039\000\024\000\038\000\000\000\
\\111\000\000\000\
\\112\000\000\000\
***************
*** 103,141 ****
\\123\000\000\000\
\\124\000\000\000\
! \\125\000\019\000\061\000\000\000\
\\126\000\000\000\
! \\127\000\000\000\
\\128\000\000\000\
! \\129\000\019\000\076\000\000\000\
\\130\000\000\000\
! \\131\000\000\000\
\\132\000\000\000\
\\133\000\000\000\
\"
val actionRowNumbers =
"\031\000\025\000\030\000\032\000\
\\018\000\020\000\021\000\019\000\
! \\037\000\039\000\038\000\026\000\
! \\043\000\016\000\036\000\034\000\
! \\035\000\024\000\041\000\058\000\
! \\052\000\050\000\009\000\043\000\
! \\029\000\006\000\061\000\060\000\
! \\059\000\012\000\002\000\027\000\
! \\002\000\033\000\042\000\007\000\
! \\055\000\054\000\053\000\051\000\
! \\022\000\002\000\044\000\062\000\
! \\069\000\004\000\065\000\077\000\
! \\076\000\015\000\014\000\003\000\
! \\001\000\047\000\011\000\017\000\
! \\056\000\045\000\049\000\013\000\
! \\075\000\073\000\071\000\074\000\
! \\068\000\066\000\005\000\064\000\
! \\063\000\028\000\002\000\040\000\
! \\008\000\070\000\013\000\067\000\
! \\048\000\010\000\057\000\072\000\
! \\023\000\046\000\000\000"
val gotoT =
"\
! \\001\000\082\000\002\000\001\000\000\000\
\\000\000\
\\000\000\
--- 102,142 ----
\\123\000\000\000\
\\124\000\000\000\
! \\125\000\000\000\
\\126\000\000\000\
! \\127\000\019\000\062\000\000\000\
\\128\000\000\000\
! \\129\000\000\000\
\\130\000\000\000\
! \\131\000\019\000\077\000\000\000\
\\132\000\000\000\
\\133\000\000\000\
+ \\134\000\000\000\
+ \\135\000\000\000\
\"
val actionRowNumbers =
"\031\000\025\000\030\000\032\000\
\\018\000\020\000\021\000\019\000\
! \\037\000\038\000\040\000\039\000\
! \\026\000\044\000\016\000\036\000\
! \\034\000\035\000\024\000\042\000\
! \\059\000\053\000\051\000\009\000\
! \\044\000\029\000\006\000\062\000\
! \\061\000\060\000\012\000\002\000\
! \\027\000\002\000\033\000\043\000\
! \\007\000\056\000\055\000\054\000\
! \\052\000\022\000\002\000\045\000\
! \\063\000\070\000\004\000\066\000\
! \\078\000\077\000\015\000\014\000\
! \\003\000\001\000\048\000\011\000\
! \\017\000\057\000\046\000\050\000\
! \\013\000\076\000\074\000\072\000\
! \\075\000\069\000\067\000\005\000\
! \\065\000\064\000\028\000\002\000\
! \\041\000\008\000\071\000\013\000\
! \\068\000\049\000\010\000\058\000\
! \\073\000\023\000\047\000\000\000"
val gotoT =
"\
! \\001\000\083\000\002\000\001\000\000\000\
\\000\000\
\\000\000\
***************
*** 148,176 ****
\\000\000\
\\000\000\
- \\004\000\017\000\000\000\
- \\005\000\024\000\006\000\023\000\008\000\022\000\009\000\021\000\
- \\010\000\020\000\011\000\019\000\000\000\
\\000\000\
\\000\000\
\\000\000\
\\000\000\
\\000\000\
- \\004\000\034\000\000\000\
\\000\000\
\\000\000\
- \\010\000\039\000\011\000\019\000\000\000\
\\000\000\
! \\005\000\042\000\006\000\023\000\008\000\022\000\009\000\021\000\
! \\010\000\020\000\011\000\019\000\000\000\
\\000\000\
\\000\000\
\\000\000\
\\000\000\
\\000\000\
- \\012\000\046\000\013\000\045\000\016\000\044\000\000\000\
- \\008\000\051\000\009\000\021\000\010\000\020\000\011\000\019\000\000\000\
- \\007\000\052\000\000\000\
- \\008\000\054\000\009\000\021\000\010\000\020\000\011\000\019\000\000\000\
\\000\000\
\\000\000\
\\000\000\
--- 149,177 ----
\\000\000\
\\000\000\
\\000\000\
+ \\004\000\018\000\000\000\
+ \\005\000\025\000\006\000\024\000\008\000\023\000\009\000\022\000\
+ \\010\000\021\000\011\000\020\000\000\000\
\\000\000\
\\000\000\
\\000\000\
\\000\000\
\\000\000\
+ \\004\000\035\000\000\000\
\\000\000\
\\000\000\
! \\010\000\040\000\011\000\020\000\000\000\
\\000\000\
+ \\005\000\043\000\006\000\024\000\008\000\023\000\009\000\022\000\
+ \\010\000\021\000\011\000\020\000\000\000\
\\000\000\
\\000\000\
\\000\000\
\\000\000\
\\000\000\
+ \\012\000\047\000\013\000\046\000\016\000\045\000\000\000\
+ \\008\000\052\000\009\000\022\000\010\000\021\000\011\000\020\000\000\000\
+ \\007\000\053\000\000\000\
+ \\008\000\055\000\009\000\022\000\010\000\021\000\011\000\020\000\000\000\
\\000\000\
\\000\000\
***************
*** 180,194 ****
\\000\000\
\\000\000\
- \\009\000\058\000\010\000\020\000\011\000\019\000\000\000\
\\000\000\
\\000\000\
\\000\000\
- \\014\000\062\000\015\000\061\000\016\000\060\000\000\000\
\\000\000\
\\000\000\
\\000\000\
- \\013\000\066\000\016\000\044\000\000\000\
- \\012\000\067\000\013\000\045\000\016\000\044\000\000\000\
\\000\000\
\\000\000\
\\000\000\
--- 181,195 ----
\\000\000\
\\000\000\
\\000\000\
+ \\009\000\059\000\010\000\021\000\011\000\020\000\000\000\
\\000\000\
\\000\000\
\\000\000\
+ \\014\000\063\000\015\000\062\000\016\000\061\000\000\000\
\\000\000\
\\000\000\
\\000\000\
+ \\013\000\067\000\016\000\045\000\000\000\
+ \\012\000\068\000\013\000\046\000\016\000\045\000\000\000\
\\000\000\
\\000\000\
***************
*** 197,203 ****
\\000\000\
\\000\000\
- \\010\000\039\000\011\000\019\000\000\000\
- \\015\000\073\000\016\000\060\000\000\000\
\\000\000\
\\000\000\
\\000\000\
--- 198,204 ----
\\000\000\
\\000\000\
\\000\000\
+ \\010\000\040\000\011\000\020\000\000\000\
+ \\015\000\074\000\016\000\061\000\000\000\
\\000\000\
\\000\000\
***************
*** 205,217 ****
\\000\000\
\\000\000\
- \\014\000\062\000\015\000\061\000\016\000\060\000\000\000\
\\000\000\
\\000\000\
\\000\000\
- \\008\000\077\000\009\000\021\000\010\000\020\000\011\000\019\000\000\000\
\\000\000\
\\000\000\
\\000\000\
! \\015\000\079\000\016\000\060\000\000\000\
\\000\000\
\\000\000\
--- 206,219 ----
\\000\000\
\\000\000\
\\000\000\
+ \\014\000\063\000\015\000\062\000\016\000\061\000\000\000\
\\000\000\
\\000\000\
\\000\000\
+ \\008\000\078\000\009\000\022\000\010\000\021\000\011\000\020\000\000\000\
\\000\000\
\\000\000\
! \\000\000\
! \\015\000\080\000\016\000\061\000\000\000\
\\000\000\
\\000\000\
***************
*** 223,228 ****
\\000\000\
\"
! val numstates = 83
! val numrules = 49
val s = ref "" and index = ref 0
val string_to_int = fn () =>
--- 225,230 ----
\\000\000\
\"
! val numstates = 84
! val numrules = 50
val s = ref "" and index = ref 0
val string_to_int = fn () =>
***************
*** 349,353 ****
| (T 32) => "COUNT"
| (T 33) => "REJECTTOK"
! | (T 34) => "FULLCHARSET"
| (T 35) => "UNICODE"
| (T 36) => "STRUCT"
--- 351,355 ----
| (T 32) => "COUNT"
| (T 33) => "REJECTTOK"
! | (T 34) => "FULL"
| (T 35) => "UNICODE"
| (T 36) => "STRUCT"
***************
*** 445,449 ****
in ( LrTable.NT 2, ( result, Defs1left, UNICODE1right), rest671)
end
! | ( 9, ( ( _, ( _, _, COUNT1right)) :: ( _, ( MlyValue.Defs Defs1,
Defs1left, _)) :: rest671)) => let val result = MlyValue.Defs (fn _
=> let val (Defs as Defs1) = Defs1 ()
--- 447,458 ----
in ( LrTable.NT 2, ( result, Defs1left, UNICODE1right), rest671)
end
! | ( 9, ( ( _, ( _, _, FULL1right)) :: ( _, ( MlyValue.Defs Defs1,
! Defs1left, _)) :: rest671)) => let val result = MlyValue.Defs (fn _
! => let val (Defs as Defs1) = Defs1 ()
! in (S.updClamp (Defs, S.CLAMP255))
! end)
! in ( LrTable.NT 2, ( result, Defs1left, FULL1right), rest671)
! end
! | ( 10, ( ( _, ( _, _, COUNT1right)) :: ( _, ( MlyValue.Defs Defs1,
Defs1left, _)) :: rest671)) => let val result = MlyValue.Defs (fn _
=> let val (Defs as Defs1) = Defs1 ()
***************
*** 452,456 ****
in ( LrTable.NT 2, ( result, Defs1left, COUNT1right), rest671)
end
! | ( 10, ( ( _, ( _, _, REJECTTOK1right)) :: ( _, ( MlyValue.Defs
Defs1, Defs1left, _)) :: rest671)) => let val result = MlyValue.Defs
(fn _ => let val (Defs as Defs1) = Defs1 ()
--- 461,465 ----
in ( LrTable.NT 2, ( result, Defs1left, COUNT1right), rest671)
end
! | ( 11, ( ( _, ( _, _, REJECTTOK1right)) :: ( _, ( MlyValue.Defs
Defs1, Defs1left, _)) :: rest671)) => let val result = MlyValue.Defs
(fn _ => let val (Defs as Defs1) = Defs1 ()
***************
*** 460,464 ****
end
! | ( 11, ( ( _, ( _, _, SEMI1right)) :: ( _, ( MlyValue.OrExp OrExp1,
_, _)) :: _ :: ( _, ( MlyValue.ID ID1, _, _)) :: ( _, ( MlyValue.Defs
Defs1, Defs1left, _)) :: rest671)) => let val result = MlyValue.Defs
--- 469,473 ----
end
! | ( 12, ( ( _, ( _, _, SEMI1right)) :: ( _, ( MlyValue.OrExp OrExp1,
_, _)) :: _ :: ( _, ( MlyValue.ID ID1, _, _)) :: ( _, ( MlyValue.Defs
Defs1, Defs1left, _)) :: rest671)) => let val result = MlyValue.Defs
***************
*** 474,478 ****
in ( LrTable.NT 2, ( result, Defs1left, SEMI1right), rest671)
end
! | ( 12, ( ( _, ( MlyValue.LEXSTATE LEXSTATE1, LEXSTATE1left,
LEXSTATE1right)) :: rest671)) => let val result =
MlyValue.StartStates (fn _ => let val (LEXSTATE as LEXSTATE1) =
--- 483,487 ----
in ( LrTable.NT 2, ( result, Defs1left, SEMI1right), rest671)
end
! | ( 13, ( ( _, ( MlyValue.LEXSTATE LEXSTATE1, LEXSTATE1left,
LEXSTATE1right)) :: rest671)) => let val result =
MlyValue.StartStates (fn _ => let val (LEXSTATE as LEXSTATE1) =
***************
*** 483,487 ****
end
! | ( 13, ( ( _, ( MlyValue.StartStates StartStates1, _,
StartStates1right)) :: ( _, ( MlyValue.LEXSTATE LEXSTATE1,
LEXSTATE1left, _)) :: rest671)) => let val result =
--- 492,496 ----
end
! | ( 14, ( ( _, ( MlyValue.StartStates StartStates1, _,
StartStates1right)) :: ( _, ( MlyValue.LEXSTATE LEXSTATE1,
LEXSTATE1left, _)) :: rest671)) => let val result =
***************
*** 494,502 ****
rest671)
end
! | ( 14, ( rest671)) => let val result = MlyValue.Rules (fn _ => ([])
)
in ( LrTable.NT 4, ( result, defaultPos, defaultPos), rest671)
end
! | ( 15, ( ( _, ( MlyValue.Rules Rules1, _, Rules1right)) :: ( _, (
MlyValue.Rule Rule1, Rule1left, _)) :: rest671)) => let val result =
MlyValue.Rules (fn _ => let val (Rule as Rule1) = Rule1 ()
--- 503,511 ----
rest671)
end
! | ( 15, ( rest671)) => let val result = MlyValue.Rules (fn _ => ([])
)
in ( LrTable.NT 4, ( result, defaultPos, defaultPos), rest671)
end
! | ( 16, ( ( _, ( MlyValue.Rules Rules1, _, Rules1right)) :: ( _, (
MlyValue.Rule Rule1, Rule1left, _)) :: rest671)) => let val result =
MlyValue.Rules (fn _ => let val (Rule as Rule1) = Rule1 ()
***************
*** 506,510 ****
in ( LrTable.NT 4, ( result, Rule1left, Rules1right), rest671)
end
! | ( 16, ( ( _, ( MlyValue.ACT ACT1, _, ACT1right)) :: _ :: ( _, (
MlyValue.OrExp OrExp1, OrExp1left, _)) :: rest671)) => let val result
= MlyValue.Rule (fn _ => let val (OrExp as OrExp1) = OrExp1 ()
--- 515,519 ----
in ( LrTable.NT 4, ( result, Rule1left, Rules1right), rest671)
end
! | ( 17, ( ( _, ( MlyValue.ACT ACT1, _, ACT1right)) :: _ :: ( _, (
MlyValue.OrExp OrExp1, OrExp1left, _)) :: rest671)) => let val result
= MlyValue.Rule (fn _ => let val (OrExp as OrExp1) = OrExp1 ()
***************
*** 514,518 ****
in ( LrTable.NT 5, ( result, OrExp1left, ACT1right), rest671)
end
! | ( 17, ( ( _, ( MlyValue.ACT ACT1, _, ACT1right)) :: _ :: ( _, (
MlyValue.OrExp OrExp1, _, _)) :: _ :: ( _, ( MlyValue.RuleStates
RuleStates1, _, _)) :: ( _, ( _, LT1left, _)) :: rest671)) => let val
--- 523,527 ----
in ( LrTable.NT 5, ( result, OrExp1left, ACT1right), rest671)
end
! | ( 18, ( ( _, ( MlyValue.ACT ACT1, _, ACT1right)) :: _ :: ( _, (
MlyValue.OrExp OrExp1, _, _)) :: _ :: ( _, ( MlyValue.RuleStates
RuleStates1, _, _)) :: ( _, ( _, LT1left, _)) :: rest671)) => let val
***************
*** 525,529 ****
in ( LrTable.NT 5, ( result, LT1left, ACT1right), rest671)
end
! | ( 18, ( ( _, ( MlyValue.LEXSTATE LEXSTATE1, LEXSTATE1left,
LEXSTATE1right)) :: rest671)) => let val result = MlyValue.RuleStates
(fn _ => let val (LEXSTATE as LEXSTATE1) = LEXSTATE1 ()
--- 534,538 ----
in ( LrTable.NT 5, ( result, LT1left, ACT1right), rest671)
end
! | ( 19, ( ( _, ( MlyValue.LEXSTATE LEXSTATE1, LEXSTATE1left,
LEXSTATE1right)) :: rest671)) => let val result = MlyValue.RuleStates
(fn _ => let val (LEXSTATE as LEXSTATE1) = LEXSTATE1 ()
***************
*** 533,537 ****
end
! | ( 19, ( ( _, ( MlyValue.LEXSTATE LEXSTATE1, _, LEXSTATE1right)) ::
_ :: ( _, ( MlyValue.RuleStates RuleStates1, RuleStates1left, _)) ::
rest671)) => let val result = MlyValue.RuleStates (fn _ => let val (
--- 542,546 ----
end
! | ( 20, ( ( _, ( MlyValue.LEXSTATE LEXSTATE1, _, LEXSTATE1right)) ::
_ :: ( _, ( MlyValue.RuleStates RuleStates1, RuleStates1left, _)) ::
rest671)) => let val result = MlyValue.RuleStates (fn _ => let val (
***************
*** 543,547 ****
rest671)
end
! | ( 20, ( ( _, ( MlyValue.CatExp CatExp1, _, CatExp1right)) :: _ :: (
_, ( MlyValue.OrExp OrExp1, OrExp1left, _)) :: rest671)) => let val
result = MlyValue.OrExp (fn _ => let val (OrExp as OrExp1) = OrExp1
--- 552,556 ----
rest671)
end
! | ( 21, ( ( _, ( MlyValue.CatExp CatExp1, _, CatExp1right)) :: _ :: (
_, ( MlyValue.OrExp OrExp1, OrExp1left, _)) :: rest671)) => let val
result = MlyValue.OrExp (fn _ => let val (OrExp as OrExp1) = OrExp1
***************
*** 552,556 ****
in ( LrTable.NT 7, ( result, OrExp1left, CatExp1right), rest671)
end
! | ( 21, ( ( _, ( MlyValue.CatExp CatExp1, CatExp1left, CatExp1right))
:: rest671)) => let val result = MlyValue.OrExp (fn _ => let val (
CatExp as CatExp1) = CatExp1 ()
--- 561,565 ----
in ( LrTable.NT 7, ( result, OrExp1left, CatExp1right), rest671)
end
! | ( 22, ( ( _, ( MlyValue.CatExp CatExp1, CatExp1left, CatExp1right))
:: rest671)) => let val result = MlyValue.OrExp (fn _ => let val (
CatExp as CatExp1) = CatExp1 ()
***************
*** 559,563 ****
in ( LrTable.NT 7, ( result, CatExp1left, CatExp1right), rest671)
end
! | ( 22, ( ( _, ( MlyValue.Exp Exp1, _, Exp1right)) :: ( _, (
MlyValue.CatExp CatExp1, CatExp1left, _)) :: rest671)) => let val
result = MlyValue.CatExp (fn _ => let val (CatExp as CatExp1) =
--- 568,572 ----
in ( LrTable.NT 7, ( result, CatExp1left, CatExp1right), rest671)
end
! | ( 23, ( ( _, ( MlyValue.Exp Exp1, _, Exp1right)) :: ( _, (
MlyValue.CatExp CatExp1, CatExp1left, _)) :: rest671)) => let val
result = MlyValue.CatExp (fn _ => let val (CatExp as CatExp1) =
***************
*** 568,572 ****
in ( LrTable.NT 8, ( result, CatExp1left, Exp1right), rest671)
end
! | ( 23, ( ( _, ( MlyValue.Exp Exp1, Exp1left, Exp1right)) :: rest671)
) => let val result = MlyValue.CatExp (fn _ => let val (Exp as Exp1)
= Exp1 ()
--- 577,581 ----
in ( LrTable.NT 8, ( result, CatExp1left, Exp1right), rest671)
end
! | ( 24, ( ( _, ( MlyValue.Exp Exp1, Exp1left, Exp1right)) :: rest671)
) => let val result = MlyValue.CatExp (fn _ => let val (Exp as Exp1)
= Exp1 ()
***************
*** 575,579 ****
in ( LrTable.NT 8, ( result, Exp1left, Exp1right), rest671)
end
! | ( 24, ( ( _, ( _, _, QMARK1right)) :: ( _, ( MlyValue.Exp Exp1,
Exp1left, _)) :: rest671)) => let val result = MlyValue.Exp (fn _ =>
let val (Exp as Exp1) = Exp1 ()
--- 584,588 ----
in ( LrTable.NT 8, ( result, Exp1left, Exp1right), rest671)
end
! | ( 25, ( ( _, ( _, _, QMARK1right)) :: ( _, ( MlyValue.Exp Exp1,
Exp1left, _)) :: rest671)) => let val result = MlyValue.Exp (fn _ =>
let val (Exp as Exp1) = Exp1 ()
***************
*** 582,586 ****
in ( LrTable.NT 9, ( result, Exp1left, QMARK1right), rest671)
end
! | ( 25, ( ( _, ( _, _, STAR1right)) :: ( _, ( MlyValue.Exp Exp1,
Exp1left, _)) :: rest671)) => let val result = MlyValue.Exp (fn _ =>
let val (Exp as Exp1) = Exp1 ()
--- 591,595 ----
in ( LrTable.NT 9, ( result, Exp1left, QMARK1right), rest671)
end
! | ( 26, ( ( _, ( _, _, STAR1right)) :: ( _, ( MlyValue.Exp Exp1,
Exp1left, _)) :: rest671)) => let val result = MlyValue.Exp (fn _ =>
let val (Exp as Exp1) = Exp1 ()
***************
*** 589,593 ****
in ( LrTable.NT 9, ( result, Exp1left, STAR1right), rest671)
end
! | ( 26, ( ( _, ( _, _, PLUS1right)) :: ( _, ( MlyValue.Exp Exp1,
Exp1left, _)) :: rest671)) => let val result = MlyValue.Exp (fn _ =>
let val (Exp as Exp1) = Exp1 ()
--- 598,602 ----
in ( LrTable.NT 9, ( result, Exp1left, STAR1right), rest671)
end
! | ( 27, ( ( _, ( _, _, PLUS1right)) :: ( _, ( MlyValue.Exp Exp1,
Exp1left, _)) :: rest671)) => let val result = MlyValue.Exp (fn _ =>
let val (Exp as Exp1) = Exp1 ()
***************
*** 596,600 ****
in ( LrTable.NT 9, ( result, Exp1left, PLUS1right), rest671)
end
! | ( 27, ( ( _, ( _, _, RCB1right)) :: ( _, ( MlyValue.REPS REPS1, _,
_)) :: ( _, ( MlyValue.Exp Exp1, Exp1left, _)) :: rest671)) => let
val result = MlyValue.Exp (fn _ => let val (Exp as Exp1) = Exp1 ()
--- 605,609 ----
in ( LrTable.NT 9, ( result, Exp1left, PLUS1right), rest671)
end
! | ( 28, ( ( _, ( _, _, RCB1right)) :: ( _, ( MlyValue.REPS REPS1, _,
_)) :: ( _, ( MlyValue.Exp Exp1, Exp1left, _)) :: rest671)) => let
val result = MlyValue.Exp (fn _ => let val (Exp as Exp1) = Exp1 ()
***************
*** 604,608 ****
in ( LrTable.NT 9, ( result, Exp1left, RCB1right), rest671)
end
! | ( 28, ( ( _, ( _, _, RCB1right)) :: ( _, ( MlyValue.REPS REPS2, _,
_)) :: _ :: ( _, ( MlyValue.REPS REPS1, _, _)) :: ( _, ( MlyValue.Exp
Exp1, Exp1left, _)) :: rest671)) => let val result = MlyValue.Exp
--- 613,617 ----
in ( LrTable.NT 9, ( result, Exp1left, RCB1right), rest671)
end
! | ( 29, ( ( _, ( _, _, RCB1right)) :: ( _, ( MlyValue.REPS REPS2, _,
_)) :: _ :: ( _, ( MlyValue.REPS REPS1, _, _)) :: ( _, ( MlyValue.Exp
Exp1, Exp1left, _)) :: rest671)) => let val result = MlyValue.Exp
***************
*** 614,618 ****
in ( LrTable.NT 9, ( result, Exp1left, RCB1right), rest671)
end
! | ( 29, ( ( _, ( MlyValue.InExp InExp1, InExp1left, InExp1right)) ::
rest671)) => let val result = MlyValue.Exp (fn _ => let val (InExp
as InExp1) = InExp1 ()
--- 623,627 ----
in ( LrTable.NT 9, ( result, Exp1left, RCB1right), rest671)
end
! | ( 30, ( ( _, ( MlyValue.InExp InExp1, InExp1left, InExp1right)) ::
rest671)) => let val result = MlyValue.Exp (fn _ => let val (InExp
as InExp1) = InExp1 ()
***************
*** 621,625 ****
in ( LrTable.NT 9, ( result, InExp1left, InExp1right), rest671)
end
! | ( 30, ( ( _, ( MlyValue.CHAR CHAR1, CHAR1left, CHAR1right)) ::
rest671)) => let val result = MlyValue.InExp (fn _ => let val (CHAR
as CHAR1) = CHAR1 ()
--- 630,634 ----
in ( LrTable.NT 9, ( result, InExp1left, InExp1right), rest671)
end
! | ( 31, ( ( _, ( MlyValue.CHAR CHAR1, CHAR1left, CHAR1right)) ::
rest671)) => let val result = MlyValue.InExp (fn _ => let val (CHAR
as CHAR1) = CHAR1 ()
***************
*** 628,632 ****
in ( LrTable.NT 10, ( result, CHAR1left, CHAR1right), rest671)
end
! | ( 31, ( ( _, ( MlyValue.UNICHAR UNICHAR1, UNICHAR1left,
UNICHAR1right)) :: rest671)) => let val result = MlyValue.InExp (fn _
=> let val (UNICHAR as UNICHAR1) = UNICHAR1 ()
--- 637,641 ----
in ( LrTable.NT 10, ( result, CHAR1left, CHAR1right), rest671)
end
! | ( 32, ( ( _, ( MlyValue.UNICHAR UNICHAR1, UNICHAR1left,
UNICHAR1right)) :: rest671)) => let val result = MlyValue.InExp (fn _
=> let val (UNICHAR as UNICHAR1) = UNICHAR1 ()
***************
*** 636,644 ****
end
! | ( 32, ( ( _, ( _, DOT1left, DOT1right)) :: rest671)) => let val
result = MlyValue.InExp (fn _ => (RE.mkSymSet wildcard))
in ( LrTable.NT 10, ( result, DOT1left, DOT1right), rest671)
end
! | ( 33, ( ( _, ( _, _, RCB1right)) :: ( _, ( MlyValue.ID ID1, ID1left
, _)) :: rest671)) => let val result = MlyValue.InExp (fn _ => let
val (ID as ID1) = ID1 ()
--- 645,653 ----
end
! | ( 33, ( ( _, ( _, DOT1left, DOT1right)) :: rest671)) => let val
result = MlyValue.InExp (fn _ => (RE.mkSymSet wildcard))
in ( LrTable.NT 10, ( result, DOT1left, DOT1right), rest671)
end
! | ( 34, ( ( _, ( _, _, RCB1right)) :: ( _, ( MlyValue.ID ID1, ID1left
, _)) :: rest671)) => let val result = MlyValue.InExp (fn _ => let
val (ID as ID1) = ID1 ()
***************
*** 651,655 ****
in ( LrTable.NT 10, ( result, ID1left, RCB1right), rest671)
end
! | ( 34, ( ( _, ( _, _, RP1right)) :: ( _, ( MlyValue.OrExp OrExp1, _,
_)) :: ( _, ( _, LP1left, _)) :: rest671)) => let val result =
MlyValue.InExp (fn _ => let val (OrExp as OrExp1) = OrExp1 ()
--- 660,664 ----
in ( LrTable.NT 10, ( result, ID1left, RCB1right), rest671)
end
! | ( 35, ( ( _, ( _, _, RP1right)) :: ( _, ( MlyValue.OrExp OrExp1, _,
_)) :: ( _, ( _, LP1left, _)) :: rest671)) => let val result =
MlyValue.InExp (fn _ => let val (OrExp as OrExp1) = OrExp1 ()
***************
*** 658,662 ****
in ( LrTable.NT 10, ( result, LP1left, RP1right), rest671)
end
! | ( 35, ( ( _, ( MlyValue.CharClass CharClass1, _, CharClass1right))
:: _ :: ( _, ( _, LB1left, _)) :: rest671)) => let val result =
MlyValue.InExp (fn _ => let val (CharClass as CharClass1) =
--- 667,671 ----
in ( LrTable.NT 10, ( result, LP1left, RP1right), rest671)
end
! | ( 36, ( ( _, ( MlyValue.CharClass CharClass1, _, CharClass1right))
:: _ :: ( _, ( _, LB1left, _)) :: rest671)) => let val result =
MlyValue.InExp (fn _ => let val (CharClass as CharClass1) =
***************
*** 666,670 ****
in ( LrTable.NT 10, ( result, LB1left, CharClass1right), rest671)
end
! | ( 36, ( ( _, ( MlyValue.CharClass CharClass1, _, CharClass1right))
:: ( _, ( _, LB1left, _)) :: rest671)) => let val result =
MlyValue.InExp (fn _ => let val (CharClass as CharClass1) =
--- 675,679 ----
in ( LrTable.NT 10, ( result, LB1left, CharClass1right), rest671)
end
! | ( 37, ( ( _, ( MlyValue.CharClass CharClass1, _, CharClass1right))
:: ( _, ( _, LB1left, _)) :: rest671)) => let val result =
MlyValue.InExp (fn _ => let val (CharClass as CharClass1) =
***************
*** 674,678 ****
in ( LrTable.NT 10, ( result, LB1left, CharClass1right), rest671)
end
! | ( 37, ( ( _, ( _, _, RB1right)) :: ( _, ( MlyValue.CharClass'
CharClass'1, CharClass'1left, _)) :: rest671)) => let val result =
MlyValue.CharClass (fn _ => let val (CharClass' as CharClass'1) =
--- 683,687 ----
in ( LrTable.NT 10, ( result, LB1left, CharClass1right), rest671)
end
! | ( 38, ( ( _, ( _, _, RB1right)) :: ( _, ( MlyValue.CharClass'
CharClass'1, CharClass'1left, _)) :: rest671)) => let val result =
MlyValue.CharClass (fn _ => let val (CharClass' as CharClass'1) =
***************
*** 683,687 ****
end
! | ( 38, ( ( _, ( _, _, RB1right)) :: ( _, ( MlyValue.CharClass'
CharClass'1, _, _)) :: ( _, ( _, DASH1left, _)) :: rest671)) => let
val result = MlyValue.CharClass (fn _ => let val (CharClass' as
--- 692,696 ----
end
! | ( 39, ( ( _, ( _, _, RB1right)) :: ( _, ( MlyValue.CharClass'
CharClass'1, _, _)) :: ( _, ( _, DASH1left, _)) :: rest671)) => let
val result = MlyValue.CharClass (fn _ => let val (CharClass' as
***************
*** 691,695 ****
in ( LrTable.NT 11, ( result, DASH1left, RB1right), rest671)
end
! | ( 39, ( ( _, ( _, _, RBD1right)) :: ( _, ( MlyValue.CharClass'
CharClass'1, CharClass'1left, _)) :: rest671)) => let val result =
MlyValue.CharClass (fn _ => let val (CharClass' as CharClass'1) =
--- 700,704 ----
in ( LrTable.NT 11, ( result, DASH1left, RB1right), rest671)
end
! | ( 40, ( ( _, ( _, _, RBD1right)) :: ( _, ( MlyValue.CharClass'
CharClass'1, CharClass'1left, _)) :: rest671)) => let val result =
MlyValue.CharClass (fn _ => let val (CharClass' as CharClass'1) =
***************
*** 700,704 ****
end
! | ( 40, ( ( _, ( MlyValue.NonCarat NonCarat1, NonCarat1left,
NonCarat1right)) :: rest671)) => let val result = MlyValue.CharClass'
(fn _ => let val (NonCarat as NonCarat1) = NonCarat1 ()
--- 709,713 ----
end
! | ( 41, ( ( _, ( MlyValue.NonCarat NonCarat1, NonCarat1left,
NonCarat1right)) :: rest671)) => let val result = MlyValue.CharClass'
(fn _ => let val (NonCarat as NonCarat1) = NonCarat1 ()
***************
*** 708,712 ****
)
end
! | ( 41, ( ( _, ( MlyValue.AChar AChar1, _, AChar1right)) :: _ :: ( _,
( MlyValue.NonCarat NonCarat1, NonCarat1left, _)) :: rest671)) => let
val result = MlyValue.CharClass' (fn _ => let val (NonCarat as
--- 717,721 ----
)
end
! | ( 42, ( ( _, ( MlyValue.AChar AChar1, _, AChar1right)) :: _ :: ( _,
( MlyValue.NonCarat NonCarat1, NonCarat1left, _)) :: rest671)) => let
val result = MlyValue.CharClass' (fn _ => let val (NonCarat as
***************
*** 718,722 ****
end
! | ( 42, ( ( _, ( MlyValue.CharRng CharRng1, _, CharRng1right)) :: ( _
, ( MlyValue.CharClass' CharClass'1, CharClass'1left, _)) :: rest671))
=> let val result = MlyValue.CharClass' (fn _ => let val (
--- 727,731 ----
end
! | ( 43, ( ( _, ( MlyValue.CharRng CharRng1, _, CharRng1right)) :: ( _
, ( MlyValue.CharClass' CharClass'1, CharClass'1left, _)) :: rest671))
=> let val result = MlyValue.CharClass' (fn _ => let val (
***************
*** 728,732 ****
rest671)
end
! | ( 43, ( ( _, ( MlyValue.AChar AChar2, _, AChar2right)) :: _ :: ( _,
( MlyValue.AChar AChar1, AChar1left, _)) :: rest671)) => let val
result = MlyValue.CharRng (fn _ => let val AChar1 = AChar1 ()
--- 737,741 ----
rest671)
end
! | ( 44, ( ( _, ( MlyValue.AChar AChar2, _, AChar2right)) :: _ :: ( _,
( MlyValue.AChar AChar1, AChar1left, _)) :: rest671)) => let val
result = MlyValue.CharRng (fn _ => let val AChar1 = AChar1 ()
***************
*** 736,740 ****
in ( LrTable.NT 13, ( result, AChar1left, AChar2right), rest671)
end
! | ( 44, ( ( _, ( MlyValue.AChar AChar1, AChar1left, AChar1right)) ::
rest671)) => let val result = MlyValue.CharRng (fn _ => let val (
AChar as AChar1) = AChar1 ()
--- 745,749 ----
in ( LrTable.NT 13, ( result, AChar1left, AChar2right), rest671)
end
! | ( 45, ( ( _, ( MlyValue.AChar AChar1, AChar1left, AChar1right)) ::
rest671)) => let val result = MlyValue.CharRng (fn _ => let val (
AChar as AChar1) = AChar1 ()
***************
*** 743,751 ****
in ( LrTable.NT 13, ( result, AChar1left, AChar1right), rest671)
end
! | ( 45, ( ( _, ( _, CARAT1left, CARAT1right)) :: rest671)) => let
val result = MlyValue.AChar (fn _ => (charToSym #"^"))
in ( LrTable.NT 14, ( result, CARAT1left, CARAT1right), rest671)
end
! | ( 46, ( ( _, ( MlyValue.NonCarat NonCarat1, NonCarat1left,
NonCarat1right)) :: rest671)) => let val result = MlyValue.AChar (fn
_ => let val (NonCarat as NonCarat1) = NonCarat1 ()
--- 752,760 ----
in ( LrTable.NT 13, ( result, AChar1left, AChar1right), rest671)
end
! | ( 46, ( ( _, ( _, CARAT1left, CARAT1right)) :: rest671)) => let
val result = MlyValue.AChar (fn _ => (charToSym #"^"))
in ( LrTable.NT 14, ( result, CARAT1left, CARAT1right), rest671)
end
! | ( 47, ( ( _, ( MlyValue.NonCarat NonCarat1, NonCarat1left,
NonCarat1right)) :: rest671)) => let val result = MlyValue.AChar (fn
_ => let val (NonCarat as NonCarat1) = NonCarat1 ()
***************
*** 755,759 ****
)
end
! | ( 47, ( ( _, ( MlyValue.CHAR CHAR1, CHAR1left, CHAR1right)) ::
rest671)) => let val result = MlyValue.NonCarat (fn _ => let val (
CHAR as CHAR1) = CHAR1 ()
--- 764,768 ----
)
end
! | ( 48, ( ( _, ( MlyValue.CHAR CHAR1, CHAR1left, CHAR1right)) ::
rest671)) => let val result = MlyValue.NonCarat (fn _ => let val (
CHAR as CHAR1) = CHAR1 ()
***************
*** 762,766 ****
in ( LrTable.NT 15, ( result, CHAR1left, CHAR1right), rest671)
end
! | ( 48, ( ( _, ( MlyValue.UNICHAR UNICHAR1, UNICHAR1left,
UNICHAR1right)) :: rest671)) => let val result = MlyValue.NonCarat
(fn _ => let val (UNICHAR as UNICHAR1) = UNICHAR1 ()
--- 771,775 ----
in ( LrTable.NT 15, ( result, CHAR1left, CHAR1right), rest671)
end
! | ( 49, ( ( _, ( MlyValue.UNICHAR UNICHAR1, UNICHAR1left,
UNICHAR1right)) :: rest671)) => let val result = MlyValue.NonCarat
(fn _ => let val (UNICHAR as UNICHAR1) = UNICHAR1 ()
***************
*** 850,854 ****
fun REJECTTOK (p1,p2) = Token.TOKEN (ParserData.LrTable.T 33,(
ParserData.MlyValue.VOID,p1,p2))
! fun FULLCHARSET (p1,p2) = Token.TOKEN (ParserData.LrTable.T 34,(
ParserData.MlyValue.VOID,p1,p2))
fun UNICODE (p1,p2) = Token.TOKEN (ParserData.LrTable.T 35,(
--- 859,863 ----
fun REJECTTOK (p1,p2) = Token.TOKEN (ParserData.LrTable.T 33,(
ParserData.MlyValue.VOID,p1,p2))
! fun FULL (p1,p2) = Token.TOKEN (ParserData.LrTable.T 34,(
ParserData.MlyValue.VOID,p1,p2))
fun UNICODE (p1,p2) = Token.TOKEN (ParserData.LrTable.T 35,(
-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642