Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/lexgen/src/FrontEnds/ml-lex/ml-lex.lex.sml
ViewVC logotype

Diff of /sml/trunk/src/lexgen/src/FrontEnds/ml-lex/ml-lex.lex.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1911, Fri Mar 3 03:33:16 2006 UTC revision 1912, Fri Mar 3 19:43:47 2006 UTC
# Line 31  Line 31 
31          fun nextId() = !next before (next := !next + 1)          fun nextId() = !next before (next := !next + 1)
32          end          end
33    
34            val initPos = 2 (* ml-lex bug compatibility *)
35    
36          fun mkStream inputN = let          fun mkStream inputN = let
37                val strm = TSIO.mkInstream                val strm = TSIO.mkInstream
38                             (TPIO.RD {                             (TPIO.RD {
# Line 51  Line 53 
53                                  ioDesc = NONE                                  ioDesc = NONE
54                                }, "")                                }, "")
55                in                in
56                  Stream {strm = strm, id = nextId(), pos = 0, lineNo = 1}                  Stream {strm = strm, id = nextId(), pos = initPos, lineNo = 1}
57                end                end
58    
59          fun fromStream strm = Stream {          fun fromStream strm = Stream {
60                  strm = strm, id = nextId(), pos = 0, lineNo = 1                  strm = strm, id = nextId(), pos = initPos, lineNo = 1
61                }                }
62    
63          fun getc (Stream {strm, pos, id, lineNo}) = (case TSIO.input1 strm          fun getc (Stream {strm, pos, id, lineNo}) = (case TSIO.input1 strm
# Line 177  Line 179 
179        in        in
180          yystrm := strm; (YYBEGIN DEFS; LEXMARK(!yylineno, !yylineno))          yystrm := strm; (YYBEGIN DEFS; LEXMARK(!yylineno, !yylineno))
181        end        end
182  and yyAction1 (strm, lastMatch) = let  fun yyAction1 (strm, lastMatch) = let
183        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
184        val yytext = yymktext(strm)        val yytext = yymktext(strm)
185        in        in
186          yystrm := strm; (DECLS(yytext, !yylineno, !yylineno))          yystrm := strm; (DECLS(yytext, !yylineno, !yylineno))
187        end        end
188  and yyAction2 (strm, lastMatch) = (yystrm := strm; (lex()))  fun yyAction2 (strm, lastMatch) = (yystrm := strm; (lex()))
189  and yyAction3 (strm, lastMatch) = let  fun yyAction3 (strm, lastMatch) = let
190        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
191        in        in
192          yystrm := strm; (YYBEGIN RE; LEXMARK(!yylineno, !yylineno))          yystrm := strm; (YYBEGIN RE; LEXMARK(!yylineno, !yylineno))
193        end        end
194  and yyAction4 (strm, lastMatch) = let  fun yyAction4 (strm, lastMatch) = let
195        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
196        in        in
197          yystrm := strm; (YYBEGIN LEXSTATES; STATES(!yylineno, !yylineno))          yystrm := strm; (YYBEGIN LEXSTATES; STATES(!yylineno, !yylineno))
198        end        end
199  and yyAction5 (strm, lastMatch) = let  fun yyAction5 (strm, lastMatch) = let
200        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
201        in        in
202          yystrm := strm;          yystrm := strm;
# Line 203  Line 205 
205                      afterAction := (fn () => YYBEGIN DEFS);                      afterAction := (fn () => YYBEGIN DEFS);
206                      HEADER(!yylineno, !yylineno))                      HEADER(!yylineno, !yylineno))
207        end        end
208  and yyAction6 (strm, lastMatch) = let  fun yyAction6 (strm, lastMatch) = let
209        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
210        in        in
211          yystrm := strm; (STRUCT(!yylineno, !yylineno))          yystrm := strm; (STRUCT(!yylineno, !yylineno))
212        end        end
213  and yyAction7 (strm, lastMatch) = let  fun yyAction7 (strm, lastMatch) = let
214        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
215        in        in
216          yystrm := strm;          yystrm := strm;
# Line 217  Line 219 
219                      afterAction := (fn () => YYBEGIN DEFS);                      afterAction := (fn () => YYBEGIN DEFS);
220                      ARG(!yylineno, !yylineno))                      ARG(!yylineno, !yylineno))
221        end        end
222  and yyAction8 (strm, lastMatch) = let  fun yyAction8 (strm, lastMatch) = let
223        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
224        in        in
225          yystrm := strm; (COUNT(!yylineno, !yylineno))          yystrm := strm; (COUNT(!yylineno, !yylineno))
226        end        end
227  and yyAction9 (strm, lastMatch) = let  fun yyAction9 (strm, lastMatch) = let
228        val oldStrm = !(yystrm)        val oldStrm = !(yystrm)
229        fun REJECT () = (yystrm := oldStrm; yystuck(lastMatch))        fun REJECT () = (yystrm := oldStrm; yystuck(lastMatch))
230        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
231        in        in
232          yystrm := strm; (REJECTTOK(!yylineno, !yylineno))          yystrm := strm; (REJECTTOK(!yylineno, !yylineno))
233        end        end
234  and yyAction10 (strm, lastMatch) = let  fun yyAction10 (strm, lastMatch) = let
235        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
236        in        in
237          yystrm := strm; (UNICODE(!yylineno, !yylineno))          yystrm := strm; (UNICODE(!yylineno, !yylineno))
238        end        end
239  and yyAction11 (strm, lastMatch) = let  fun yyAction11 (strm, lastMatch) = (yystrm := strm; (lex()))
240    fun yyAction12 (strm, lastMatch) = let
241        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
242        val yytext = yymktext(strm)        val yytext = yymktext(strm)
243        in        in
244          yystrm := strm; (ID(yytext, !yylineno, !yylineno))          yystrm := strm; (ID(yytext, !yylineno, !yylineno))
245        end        end
246  and yyAction12 (strm, lastMatch) = let  fun yyAction13 (strm, lastMatch) = let
247        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
248        in        in
249          yystrm := strm; (YYBEGIN RE; EQ(!yylineno, !yylineno))          yystrm := strm; (YYBEGIN RE; EQ(!yylineno, !yylineno))
250        end        end
251  and yyAction13 (strm, lastMatch) = (yystrm := strm; (lex()))  fun yyAction14 (strm, lastMatch) = (yystrm := strm; (lex()))
252  and yyAction14 (strm, lastMatch) = let  fun yyAction15 (strm, lastMatch) = let
253        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
254        in        in
255          yystrm := strm; (QMARK(!yylineno, !yylineno))          yystrm := strm; (QMARK(!yylineno, !yylineno))
256        end        end
257  and yyAction15 (strm, lastMatch) = let  fun yyAction16 (strm, lastMatch) = let
258        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
259        in        in
260          yystrm := strm; (STAR(!yylineno, !yylineno))          yystrm := strm; (STAR(!yylineno, !yylineno))
261        end        end
262  and yyAction16 (strm, lastMatch) = let  fun yyAction17 (strm, lastMatch) = let
263        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
264        in        in
265          yystrm := strm; (PLUS(!yylineno, !yylineno))          yystrm := strm; (PLUS(!yylineno, !yylineno))
266        end        end
267  and yyAction17 (strm, lastMatch) = let  fun yyAction18 (strm, lastMatch) = let
268        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
269        in        in
270          yystrm := strm; (BAR(!yylineno, !yylineno))          yystrm := strm; (BAR(!yylineno, !yylineno))
271        end        end
272  and yyAction18 (strm, lastMatch) = let  fun yyAction19 (strm, lastMatch) = let
273        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
274        in        in
275          yystrm := strm; (LP(!yylineno, !yylineno))          yystrm := strm; (LP(!yylineno, !yylineno))
276        end        end
277  and yyAction19 (strm, lastMatch) = let  fun yyAction20 (strm, lastMatch) = let
278        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
279        in        in
280          yystrm := strm; (RP(!yylineno, !yylineno))          yystrm := strm; (RP(!yylineno, !yylineno))
281        end        end
282  and yyAction20 (strm, lastMatch) = let  fun yyAction21 (strm, lastMatch) = let
283        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
284        in        in
285          yystrm := strm; (DOLLAR(!yylineno, !yylineno))          yystrm := strm; (DOLLAR(!yylineno, !yylineno))
286        end        end
287  and yyAction21 (strm, lastMatch) = let  fun yyAction22 (strm, lastMatch) = let
288        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
289        in        in
290          yystrm := strm; (SLASH(!yylineno, !yylineno))          yystrm := strm; (SLASH(!yylineno, !yylineno))
291        end        end
292  and yyAction22 (strm, lastMatch) = let  fun yyAction23 (strm, lastMatch) = let
293        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
294        in        in
295          yystrm := strm; (DOT(!yylineno, !yylineno))          yystrm := strm; (DOT(!yylineno, !yylineno))
296        end        end
297  and yyAction23 (strm, lastMatch) = (yystrm := strm; (YYBEGIN RECB; lex()))  fun yyAction24 (strm, lastMatch) = (yystrm := strm; (YYBEGIN RECB; lex()))
298  and yyAction24 (strm, lastMatch) = (yystrm := strm; (YYBEGIN STRING; lex()))  fun yyAction25 (strm, lastMatch) = (yystrm := strm; (YYBEGIN STRING; lex()))
299  and yyAction25 (strm, lastMatch) = let  fun yyAction26 (strm, lastMatch) = let
300        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
301        in        in
302          yystrm := strm; (YYBEGIN CHARCLASS; LB(!yylineno, !yylineno))          yystrm := strm; (YYBEGIN CHARCLASS; LB(!yylineno, !yylineno))
303        end        end
304  and yyAction26 (strm, lastMatch) = let  fun yyAction27 (strm, lastMatch) = let
305        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
306        in        in
307          yystrm := strm; (YYBEGIN LEXSTATES; LT(!yylineno, !yylineno))          yystrm := strm; (YYBEGIN LEXSTATES; LT(!yylineno, !yylineno))
308        end        end
309  and yyAction27 (strm, lastMatch) = let  fun yyAction28 (strm, lastMatch) = let
310        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
311        in        in
312          yystrm := strm; (GT(!yylineno, !yylineno))          yystrm := strm; (GT(!yylineno, !yylineno))
313        end        end
314  and yyAction28 (strm, lastMatch) = let  fun yyAction29 (strm, lastMatch) = let
315        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
316        in        in
317          yystrm := strm;          yystrm := strm;
# Line 317  Line 320 
320                      afterAction := (fn () => YYBEGIN RE);                      afterAction := (fn () => YYBEGIN RE);
321                      ARROW(!yylineno, !yylineno))                      ARROW(!yylineno, !yylineno))
322        end        end
323  and yyAction29 (strm, lastMatch) = let  fun yyAction30 (strm, lastMatch) = let
324        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
325        in        in
326          yystrm := strm; (YYBEGIN DEFS; SEMI(!yylineno, !yylineno))          yystrm := strm; (YYBEGIN DEFS; SEMI(!yylineno, !yylineno))
327        end        end
328  and yyAction30 (strm, lastMatch) = (yystrm := strm; (lex()))  fun yyAction31 (strm, lastMatch) = (yystrm := strm; (lex()))
329  and yyAction31 (strm, lastMatch) = let  fun yyAction32 (strm, lastMatch) = let
330        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
331        val yytext = yymktext(strm)        val yytext = yymktext(strm)
332        in        in
333          yystrm := strm; (ID(yytext, !yylineno, !yylineno))          yystrm := strm; (ID(yytext, !yylineno, !yylineno))
334        end        end
335  and yyAction32 (strm, lastMatch) = let  fun yyAction33 (strm, lastMatch) = let
336        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
337        val yytext = yymktext(strm)        val yytext = yymktext(strm)
338        in        in
339          yystrm := strm;          yystrm := strm;
340          (REPS(valOf (Int.fromString yytext), !yylineno, !yylineno))          (REPS(valOf (Int.fromString yytext), !yylineno, !yylineno))
341        end        end
342  and yyAction33 (strm, lastMatch) = let  fun yyAction34 (strm, lastMatch) = let
343        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
344        in        in
345          yystrm := strm; (COMMA(!yylineno, !yylineno))          yystrm := strm; (COMMA(!yylineno, !yylineno))
346        end        end
347  and yyAction34 (strm, lastMatch) = let  fun yyAction35 (strm, lastMatch) = let
348        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
349        in        in
350          yystrm := strm; (YYBEGIN RE; RCB(!yylineno, !yylineno))          yystrm := strm; (YYBEGIN RE; RCB(!yylineno, !yylineno))
351        end        end
352  and yyAction35 (strm, lastMatch) = let  fun yyAction36 (strm, lastMatch) = let
353        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
354        in        in
355          yystrm := strm; (YYBEGIN RE; RBD(!yylineno, !yylineno))          yystrm := strm; (YYBEGIN RE; RBD(!yylineno, !yylineno))
356        end        end
357  and yyAction36 (strm, lastMatch) = let  fun yyAction37 (strm, lastMatch) = let
358        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
359        in        in
360          yystrm := strm; (YYBEGIN RE; RB(!yylineno, !yylineno))          yystrm := strm; (YYBEGIN RE; RB(!yylineno, !yylineno))
361        end        end
362  and yyAction37 (strm, lastMatch) = let  fun yyAction38 (strm, lastMatch) = let
363        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
364        in        in
365          yystrm := strm; (DASH(!yylineno, !yylineno))          yystrm := strm; (DASH(!yylineno, !yylineno))
366        end        end
367  and yyAction38 (strm, lastMatch) = let  fun yyAction39 (strm, lastMatch) = let
368        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
369        in        in
370          yystrm := strm; (CARAT(!yylineno, !yylineno))          yystrm := strm; (CARAT(!yylineno, !yylineno))
371        end        end
372  and yyAction39 (strm, lastMatch) = (yystrm := strm; (YYBEGIN RE; lex()))  fun yyAction40 (strm, lastMatch) = (yystrm := strm; (YYBEGIN RE; lex()))
373  and yyAction40 (strm, lastMatch) = let  fun yyAction41 (strm, lastMatch) = let
374        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
375        val yytext = yymktext(strm)        val yytext = yymktext(strm)
376        in        in
377          yystrm := strm;          yystrm := strm;
378          (CHAR(valOf (String.fromString yytext), !yylineno, !yylineno))          (CHAR(valOf (String.fromString yytext), !yylineno, !yylineno))
379        end        end
380  and yyAction41 (strm, lastMatch) = let  fun yyAction42 (strm, lastMatch) = let
381        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
382        val yytext = yymktext(strm)        val yytext = yymktext(strm)
383        in        in
384          yystrm := strm; (UNICHAR(uniChar yytext, !yylineno, !yylineno))          yystrm := strm; (UNICHAR(uniChar yytext, !yylineno, !yylineno))
385        end        end
386  and yyAction42 (strm, lastMatch) = let  fun yyAction43 (strm, lastMatch) = let
387        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
388        val yytext = yymktext(strm)        val yytext = yymktext(strm)
389        in        in
390          yystrm := strm;          yystrm := strm;
391          (CHAR(String.substring (yytext, 1, 1), !yylineno, !yylineno))          (CHAR(String.substring (yytext, 1, 1), !yylineno, !yylineno))
392        end        end
393  and yyAction43 (strm, lastMatch) = let  fun yyAction44 (strm, lastMatch) = let
394        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
395        val yytext = yymktext(strm)        val yytext = yymktext(strm)
396        in        in
397          yystrm := strm; (CHAR(yytext, !yylineno, !yylineno))          yystrm := strm; (CHAR(yytext, !yylineno, !yylineno))
398        end        end
399  and yyAction44 (strm, lastMatch) = let  fun yyAction45 (strm, lastMatch) = let
400        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
401        val yytext = yymktext(strm)        val yytext = yymktext(strm)
402        in        in
403          yystrm := strm; (LEXSTATE(yytext, !yylineno, !yylineno))          yystrm := strm; (LEXSTATE(yytext, !yylineno, !yylineno))
404        end        end
405  and yyAction45 (strm, lastMatch) = (yystrm := strm; (lex()))  fun yyAction46 (strm, lastMatch) = (yystrm := strm; (lex()))
406  and yyAction46 (strm, lastMatch) = let  fun yyAction47 (strm, lastMatch) = let
407        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
408        in        in
409          yystrm := strm; (COMMA(!yylineno, !yylineno))          yystrm := strm; (COMMA(!yylineno, !yylineno))
410        end        end
411  and yyAction47 (strm, lastMatch) = let  fun yyAction48 (strm, lastMatch) = let
412        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
413        in        in
414          yystrm := strm; (YYBEGIN RE; GT(!yylineno, !yylineno))          yystrm := strm; (YYBEGIN RE; GT(!yylineno, !yylineno))
415        end        end
416  and yyAction48 (strm, lastMatch) = let  fun yyAction49 (strm, lastMatch) = let
417        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
418        in        in
419          yystrm := strm; (YYBEGIN DEFS; SEMI(!yylineno, !yylineno))          yystrm := strm; (YYBEGIN DEFS; SEMI(!yylineno, !yylineno))
420        end        end
421  and yyAction49 (strm, lastMatch) = let  fun yyAction50 (strm, lastMatch) = let
422        val yylineno = ref(yyInput.getlineNo(!(yystrm)))        val yylineno = ref(yyInput.getlineNo(!(yystrm)))
423        in        in
424          yystrm := strm;          yystrm := strm;
# Line 424  Line 427 
427                            ACT(getAction(), !yylineno, !yylineno))                            ACT(getAction(), !yylineno, !yylineno))
428                      else (updAction ";"; lex()))                      else (updAction ";"; lex()))
429        end        end
430  and yyAction50 (strm, lastMatch) = (yystrm := strm;  fun yyAction51 (strm, lastMatch) = (yystrm := strm;
431        (updAction "("; inc pcount; lex()))        (updAction "("; inc pcount; lex()))
432  and yyAction51 (strm, lastMatch) = (yystrm := strm;  fun yyAction52 (strm, lastMatch) = (yystrm := strm;
433        (updAction ")"; dec pcount; lex()))        (updAction ")"; dec pcount; lex()))
434  and yyAction52 (strm, lastMatch) = (yystrm := strm; (updAction "\\\""; lex()))  fun yyAction53 (strm, lastMatch) = (yystrm := strm; (updAction "\\\""; lex()))
435  and yyAction53 (strm, lastMatch) = (yystrm := strm; (updAction "\\\\"; lex()))  fun yyAction54 (strm, lastMatch) = (yystrm := strm; (updAction "\\\\"; lex()))
436  and yyAction54 (strm, lastMatch) = (yystrm := strm; (updAction "\\"; lex()))  fun yyAction55 (strm, lastMatch) = (yystrm := strm; (updAction "\\"; lex()))
437  and yyAction55 (strm, lastMatch) = (yystrm := strm;  fun yyAction56 (strm, lastMatch) = (yystrm := strm;
438        (updAction "\""; inquote := not (!inquote); lex()))        (updAction "\""; inquote := not (!inquote); lex()))
439  and yyAction56 (strm, lastMatch) = let  fun yyAction57 (strm, lastMatch) = let
440        val yytext = yymktext(strm)        val yytext = yymktext(strm)
441        in        in
442          yystrm := strm; (updAction yytext; lex())          yystrm := strm; (updAction yytext; lex())
443        end        end
444  and yyQ0 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ110 (strm, lastMatch) = (case (yygetc(strm))
445           of NONE => yyAction1(strm, yyNO_MATCH)
446            | SOME(inp, strm') =>
447                if inp = #"&"
448                  then yyQ115(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))
449                else if inp < #"&"
450                  then if inp = #"%"
451                      then yyQ114(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))
452                      else yyQ115(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))
453                else if inp <= #"\127"
454                  then yyQ115(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))
455                  else yyAction1(strm, yyNO_MATCH)
456          (* end case *))
457    and yyQ114 (strm, lastMatch) = (case (yygetc(strm))
458           of NONE => yystuck(lastMatch)
459            | SOME(inp, strm') =>
460                if inp = #"&"
461                  then yyQ113(strm', lastMatch)
462                else if inp < #"&"
463                  then if inp = #"%"
464                      then yystuck(lastMatch)
465                      else yyQ113(strm', lastMatch)
466                else if inp <= #"\127"
467                  then yyQ113(strm', lastMatch)
468                  else yystuck(lastMatch)
469          (* end case *))
470    and yyQ113 (strm, lastMatch) = (case (yygetc(strm))
471           of NONE => yyAction1(strm, yyNO_MATCH)
472            | SOME(inp, strm') =>
473                if inp = #"&"
474                  then yyQ110(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))
475                else if inp < #"&"
476                  then if inp = #"%"
477                      then yyQ114(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))
478                      else yyQ110(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))
479                else if inp <= #"\127"
480                  then yyQ110(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))
481                  else yyAction1(strm, yyNO_MATCH)
482          (* end case *))
483    and yyQ115 (strm, lastMatch) = (case (yygetc(strm))
484           of NONE => yyAction1(strm, yyNO_MATCH)
485            | SOME(inp, strm') =>
486                if inp = #"&"
487                  then yyQ115(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))
488                else if inp < #"&"
489                  then if inp = #"%"
490                      then yyQ114(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))
491                      else yyQ115(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))
492                else if inp <= #"\127"
493                  then yyQ115(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))
494                  else yyAction1(strm, yyNO_MATCH)
495          (* end case *))
496    fun yyQ112 (strm, lastMatch) = yyAction0(strm, yyNO_MATCH)
497    fun yyQ111 (strm, lastMatch) = (case (yygetc(strm))
498           of NONE => yystuck(lastMatch)
499            | SOME(inp, strm') =>
500                if inp = #"&"
501                  then yyQ113(strm', lastMatch)
502                else if inp < #"&"
503                  then if inp = #"%"
504                      then yyQ112(strm', lastMatch)
505                      else yyQ113(strm', lastMatch)
506                else if inp <= #"\127"
507                  then yyQ113(strm', lastMatch)
508                  else yystuck(lastMatch)
509          (* end case *))
510    fun yyQ7 (strm, lastMatch) = (case (yygetc(strm))
511         of NONE =>         of NONE =>
512              if yyInput.eof(strm)              if yyInput.eof(strm)
513                then UserDeclarations.eof(yyarg)                then UserDeclarations.eof(yyarg)
514                else yystuck(lastMatch)                else yyAction1(strm, yyNO_MATCH)
515          | SOME(inp, strm') =>          | SOME(inp, strm') =>
516              if inp = #","              if inp = #"&"
517                then yyQ25(strm', lastMatch)                then yyQ110(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))
518              else if inp < #","              else if inp < #"&"
519                  then if inp = #"%"
520                      then yyQ111(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))
521                      else yyQ110(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))
522                else if inp <= #"\127"
523                  then yyQ110(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))
524                else if yyInput.eof(strm)
525                  then UserDeclarations.eof(yyarg)
526                  else yyAction1(strm, yyNO_MATCH)
527          (* end case *))
528    fun yyQ102 (strm, lastMatch) = yyAction50(strm, yyNO_MATCH)
529    fun yyQ103 (strm, lastMatch) = yyAction51(strm, yyNO_MATCH)
530    fun yyQ104 (strm, lastMatch) = yyAction52(strm, yyNO_MATCH)
531    fun yyQ105 (strm, lastMatch) = yyAction56(strm, yyNO_MATCH)
532    fun yyQ106 (strm, lastMatch) = (case (yygetc(strm))
533           of NONE => yyAction57(strm, yyNO_MATCH)
534            | SOME(inp, strm') =>
535                if inp = #";"
536                  then yyAction57(strm, yyNO_MATCH)
537                else if inp < #";"
538                  then if inp = #"#"
539                      then yyQ106(strm', yyMATCH(strm, yyAction57, yyNO_MATCH))
540                    else if inp < #"#"
541                then if inp = #"\""                then if inp = #"\""
542                    then yyQ20(strm', lastMatch)                        then yyAction57(strm, yyNO_MATCH)
543                  else if inp < #"\""                        else yyQ106(strm', yyMATCH(strm, yyAction57, yyNO_MATCH))
                   then if inp = #"\r"  
                       then yyQ8(strm', lastMatch)  
                     else if inp < #"\r"  
                       then if inp = #"\n"  
                           then yyQ9(strm', lastMatch)  
                         else if inp < #"\n"  
                           then if inp = #"\t"  
                               then yyQ8(strm', lastMatch)  
                               else yyQ25(strm', lastMatch)  
                           else yyQ25(strm', lastMatch)  
                     else if inp = #" "  
                       then yyQ8(strm', lastMatch)  
                       else yyQ25(strm', lastMatch)  
544                  else if inp = #"("                  else if inp = #"("
545                    then yyQ14(strm', lastMatch)                    then yyAction57(strm, yyNO_MATCH)
546                  else if inp < #"("                  else if inp < #"("
547                    then if inp = #"$"                    then yyQ106(strm', yyMATCH(strm, yyAction57, yyNO_MATCH))
548                        then yyQ16(strm', lastMatch)                  else if inp <= #")"
549                        else yyQ25(strm', lastMatch)                    then yyAction57(strm, yyNO_MATCH)
550                  else if inp = #"*"                    else yyQ106(strm', yyMATCH(strm, yyAction57, yyNO_MATCH))
551                    then yyQ11(strm', lastMatch)              else if inp = #"]"
552                  else if inp = #")"                then yyQ106(strm', yyMATCH(strm, yyAction57, yyNO_MATCH))
553                    then yyQ15(strm', lastMatch)              else if inp < #"]"
                   else yyQ12(strm', lastMatch)  
             else if inp = #"?"  
               then yyQ10(strm', lastMatch)  
             else if inp < #"?"  
               then if inp = #";"  
                   then yyQ24(strm', lastMatch)  
                 else if inp < #";"  
                   then if inp = #"/"  
                       then yyQ17(strm', lastMatch)  
                     else if inp < #"/"  
                       then if inp = #"."  
                           then yyQ18(strm', lastMatch)  
                           else yyQ25(strm', lastMatch)  
                       else yyQ25(strm', lastMatch)  
                 else if inp = #"="  
                   then yyQ27(strm', lastMatch)  
                 else if inp = #"<"  
                   then yyQ22(strm', lastMatch)  
                   else yyQ23(strm', lastMatch)  
             else if inp = #"{"  
               then yyQ19(strm', lastMatch)  
             else if inp < #"{"  
554                then if inp = #"\\"                then if inp = #"\\"
555                    then yyQ26(strm', lastMatch)                    then yyAction57(strm, yyNO_MATCH)
556                      else yyQ106(strm', yyMATCH(strm, yyAction57, yyNO_MATCH))
557                else if inp <= #"\127"
558                  then yyQ106(strm', yyMATCH(strm, yyAction57, yyNO_MATCH))
559                  else yyAction57(strm, yyNO_MATCH)
560          (* end case *))
561    fun yyQ108 (strm, lastMatch) = yyAction53(strm, yyNO_MATCH)
562    fun yyQ109 (strm, lastMatch) = yyAction54(strm, yyNO_MATCH)
563    fun yyQ107 (strm, lastMatch) = (case (yygetc(strm))
564           of NONE => yyAction55(strm, yyNO_MATCH)
565            | SOME(inp, strm') =>
566                if inp = #"#"
567                  then yyAction55(strm, yyNO_MATCH)
568                else if inp < #"#"
569                  then if inp = #"\""
570                      then yyQ108(strm', yyMATCH(strm, yyAction55, yyNO_MATCH))
571                      else yyAction55(strm, yyNO_MATCH)
572                else if inp = #"\\"
573                  then yyQ109(strm', yyMATCH(strm, yyAction55, yyNO_MATCH))
574                  else yyAction55(strm, yyNO_MATCH)
575          (* end case *))
576    fun yyQ6 (strm, lastMatch) = (case (yygetc(strm))
577           of NONE =>
578                if yyInput.eof(strm)
579                  then UserDeclarations.eof(yyarg)
580                  else yyAction57(strm, yyNO_MATCH)
581            | SOME(inp, strm') =>
582                if inp = #"*"
583                  then yyQ106(strm', yyMATCH(strm, yyAction57, yyNO_MATCH))
584                else if inp < #"*"
585                  then if inp = #"#"
586                      then yyQ106(strm', yyMATCH(strm, yyAction57, yyNO_MATCH))
587                    else if inp < #"#"
588                      then if inp = #"\""
589                          then yyQ105(strm', yyMATCH(strm, yyAction57, yyNO_MATCH))
590                          else yyQ106(strm', yyMATCH(strm, yyAction57, yyNO_MATCH))
591                    else if inp = #"("
592                      then yyQ103(strm', yyMATCH(strm, yyAction57, yyNO_MATCH))
593                    else if inp = #")"
594                      then yyQ104(strm', yyMATCH(strm, yyAction57, yyNO_MATCH))
595                      else yyQ106(strm', yyMATCH(strm, yyAction57, yyNO_MATCH))
596                else if inp = #"\\"
597                  then yyQ107(strm', yyMATCH(strm, yyAction57, yyNO_MATCH))
598                  else if inp < #"\\"                  else if inp < #"\\"
599                    then if inp = #"["                then if inp = #";"
600                        then yyQ21(strm', lastMatch)                    then yyQ102(strm', yyMATCH(strm, yyAction57, yyNO_MATCH))
601                        else yyQ25(strm', lastMatch)                    else yyQ106(strm', yyMATCH(strm, yyAction57, yyNO_MATCH))
                   else yyQ25(strm', lastMatch)  
             else if inp = #"}"  
               then yyQ25(strm', lastMatch)  
             else if inp < #"}"  
               then yyQ13(strm', lastMatch)  
602              else if inp <= #"\127"              else if inp <= #"\127"
603                then yyQ25(strm', lastMatch)                then yyQ106(strm', yyMATCH(strm, yyAction57, yyNO_MATCH))
604              else if yyInput.eof(strm)              else if yyInput.eof(strm)
605                then UserDeclarations.eof(yyarg)                then UserDeclarations.eof(yyarg)
606                else yystuck(lastMatch)                else yyAction57(strm, yyNO_MATCH)
607        (* end case *))        (* end case *))
608  and yyQ1 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ97 (strm, lastMatch) = yyAction46(strm, yyNO_MATCH)
609         of NONE => yystuck(lastMatch)  fun yyQ98 (strm, lastMatch) = yyAction47(strm, yyNO_MATCH)
610    fun yyQ99 (strm, lastMatch) = yyAction48(strm, yyNO_MATCH)
611    fun yyQ100 (strm, lastMatch) = yyAction49(strm, yyNO_MATCH)
612    fun yyQ101 (strm, lastMatch) = (case (yygetc(strm))
613           of NONE => yyAction45(strm, yyNO_MATCH)
614          | SOME(inp, strm') =>          | SOME(inp, strm') =>
615              if inp = #"%"              if inp = #"A"
616                then yyQ43(strm', lastMatch)                then yyQ101(strm', yyMATCH(strm, yyAction45, yyNO_MATCH))
             else if inp < #"%"  
               then if inp = #"\r"  
                   then yyQ40(strm', lastMatch)  
                 else if inp < #"\r"  
                   then if inp = #"\t"  
                       then yyQ40(strm', lastMatch)  
                     else if inp < #"\t"  
                       then yystuck(lastMatch)  
                     else if inp <= #"\n"  
                       then yyQ40(strm', lastMatch)  
                       else yystuck(lastMatch)  
                 else if inp = #" "  
                   then yyQ40(strm', lastMatch)  
                   else yystuck(lastMatch)  
             else if inp = #"A"  
               then yyQ42(strm', lastMatch)  
617              else if inp < #"A"              else if inp < #"A"
618                then if inp = #"="                then if inp = #"("
619                    then yyQ41(strm', lastMatch)                    then yyAction45(strm, yyNO_MATCH)
620                    else yystuck(lastMatch)                  else if inp < #"("
621              else if inp = #"a"                    then if inp = #"'"
622                then yyQ42(strm', lastMatch)                        then yyQ101(strm', yyMATCH(strm, yyAction45, yyNO_MATCH))
623              else if inp < #"a"                        else yyAction45(strm, yyNO_MATCH)
624                then if inp <= #"Z"                  else if inp = #"0"
625                    then yyQ42(strm', lastMatch)                    then yyQ101(strm', yyMATCH(strm, yyAction45, yyNO_MATCH))
626                    else yystuck(lastMatch)                  else if inp < #"0"
627                      then yyAction45(strm, yyNO_MATCH)
628                    else if inp <= #"9"
629                      then yyQ101(strm', yyMATCH(strm, yyAction45, yyNO_MATCH))
630                      else yyAction45(strm, yyNO_MATCH)
631                else if inp = #"`"
632                  then yyAction45(strm, yyNO_MATCH)
633                else if inp < #"`"
634                  then if inp = #"["
635                      then yyAction45(strm, yyNO_MATCH)
636                    else if inp < #"["
637                      then yyQ101(strm', yyMATCH(strm, yyAction45, yyNO_MATCH))
638                    else if inp = #"_"
639                      then yyQ101(strm', yyMATCH(strm, yyAction45, yyNO_MATCH))
640                      else yyAction45(strm, yyNO_MATCH)
641              else if inp <= #"z"              else if inp <= #"z"
642                then yyQ42(strm', lastMatch)                then yyQ101(strm', yyMATCH(strm, yyAction45, yyNO_MATCH))
643                else yystuck(lastMatch)                else yyAction45(strm, yyNO_MATCH)
644        (* end case *))        (* end case *))
645  and yyQ2 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ5 (strm, lastMatch) = (case (yygetc(strm))
646         of NONE => yystuck(lastMatch)         of NONE =>
647                if yyInput.eof(strm)
648                  then UserDeclarations.eof(yyarg)
649                  else yystuck(lastMatch)
650          | SOME(inp, strm') =>          | SOME(inp, strm') =>
651              if inp = #"-"              if inp = #"-"
652                then yystuck(lastMatch)                then if yyInput.eof(strm)
653                      then UserDeclarations.eof(yyarg)
654                      else yystuck(lastMatch)
655              else if inp < #"-"              else if inp < #"-"
656                then if inp = #"\^N"                then if inp = #"\^N"
657                    then yystuck(lastMatch)                    then if yyInput.eof(strm)
658                          then UserDeclarations.eof(yyarg)
659                          else yystuck(lastMatch)
660                  else if inp < #"\^N"                  else if inp < #"\^N"
661                    then if inp = #"\v"                    then if inp = #"\v"
662                        then yystuck(lastMatch)                        then if yyInput.eof(strm)
663                              then UserDeclarations.eof(yyarg)
664                              else yystuck(lastMatch)
665                      else if inp < #"\v"                      else if inp < #"\v"
666                        then if inp <= #"\b"                        then if inp <= #"\b"
667                            then yystuck(lastMatch)                            then if yyInput.eof(strm)
668                            else yyQ83(strm', lastMatch)                                then UserDeclarations.eof(yyarg)
669                                  else yystuck(lastMatch)
670                              else yyQ97(strm', lastMatch)
671                      else if inp = #"\r"                      else if inp = #"\r"
672                        then yyQ83(strm', lastMatch)                        then yyQ97(strm', lastMatch)
673                        else if yyInput.eof(strm)
674                          then UserDeclarations.eof(yyarg)
675                        else yystuck(lastMatch)                        else yystuck(lastMatch)
676                  else if inp = #"!"                  else if inp = #"!"
677                    then yystuck(lastMatch)                    then if yyInput.eof(strm)
678                          then UserDeclarations.eof(yyarg)
679                          else yystuck(lastMatch)
680                  else if inp < #"!"                  else if inp < #"!"
681                    then if inp = #" "                    then if inp = #" "
682                        then yyQ83(strm', lastMatch)                        then yyQ97(strm', lastMatch)
683                        else if yyInput.eof(strm)
684                          then UserDeclarations.eof(yyarg)
685                        else yystuck(lastMatch)                        else yystuck(lastMatch)
686                  else if inp = #","                  else if inp = #","
687                    then yyQ84(strm', lastMatch)                    then yyQ98(strm', lastMatch)
688                    else if yyInput.eof(strm)
689                      then UserDeclarations.eof(yyarg)
690                      else yystuck(lastMatch)
691                else if inp = #"?"
692                  then if yyInput.eof(strm)
693                      then UserDeclarations.eof(yyarg)
694                      else yystuck(lastMatch)
695                else if inp < #"?"
696                  then if inp = #"<"
697                      then if yyInput.eof(strm)
698                          then UserDeclarations.eof(yyarg)
699                          else yystuck(lastMatch)
700                    else if inp < #"<"
701                      then if inp = #";"
702                          then yyQ100(strm', lastMatch)
703                        else if yyInput.eof(strm)
704                          then UserDeclarations.eof(yyarg)
705                          else yystuck(lastMatch)
706                    else if inp = #">"
707                      then yyQ99(strm', lastMatch)
708                    else if yyInput.eof(strm)
709                      then UserDeclarations.eof(yyarg)
710                    else yystuck(lastMatch)                    else yystuck(lastMatch)
711              else if inp = #"["              else if inp = #"["
712                then yystuck(lastMatch)                then if yyInput.eof(strm)
713                      then UserDeclarations.eof(yyarg)
714                      else yystuck(lastMatch)
715              else if inp < #"["              else if inp < #"["
716                then if inp = #":"                then if inp <= #"@"
717                    then yystuck(lastMatch)                    then if yyInput.eof(strm)
718                  else if inp < #":"                        then UserDeclarations.eof(yyarg)
                   then if inp <= #"/"  
                       then yystuck(lastMatch)  
                       else yyQ86(strm', lastMatch)  
                 else if inp <= #"@"  
                   then yystuck(lastMatch)  
                   else yyQ87(strm', lastMatch)  
             else if inp = #"{"  
               then yystuck(lastMatch)  
             else if inp < #"{"  
               then if inp <= #"`"  
                   then yystuck(lastMatch)  
                   else yyQ87(strm', lastMatch)  
             else if inp = #"}"  
               then yyQ85(strm', lastMatch)  
719                else yystuck(lastMatch)                else yystuck(lastMatch)
720        (* end case *))                    else yyQ101(strm', lastMatch)
 and yyQ3 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yystuck(lastMatch)  
         | SOME(inp, strm') =>  
             if inp = #"#"  
               then yyQ25(strm', lastMatch)  
             else if inp < #"#"  
               then if inp = #"\v"  
                   then yyQ25(strm', lastMatch)  
                 else if inp < #"\v"  
                   then if inp = #"\n"  
                       then yystuck(lastMatch)  
                       else yyQ25(strm', lastMatch)  
                 else if inp = #"\""  
                   then yyQ88(strm', lastMatch)  
                   else yyQ25(strm', lastMatch)  
             else if inp = #"]"  
               then yyQ25(strm', lastMatch)  
             else if inp < #"]"  
               then if inp = #"\\"  
                   then yyQ26(strm', lastMatch)  
                   else yyQ25(strm', lastMatch)  
             else if inp <= #"\127"  
               then yyQ25(strm', lastMatch)  
               else yystuck(lastMatch)  
       (* end case *))  
 and yyQ4 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yystuck(lastMatch)  
         | SOME(inp, strm') =>  
             if inp = #"\\"  
               then yyQ26(strm', lastMatch)  
             else if inp < #"\\"  
               then if inp = #"\v"  
                   then yyQ25(strm', lastMatch)  
                 else if inp < #"\v"  
                   then if inp = #"\n"  
                       then yystuck(lastMatch)  
                       else yyQ25(strm', lastMatch)  
                 else if inp = #"-"  
                   then yyQ91(strm', lastMatch)  
                   else yyQ25(strm', lastMatch)  
             else if inp = #"_"  
               then yyQ25(strm', lastMatch)  
             else if inp < #"_"  
               then if inp = #"]"  
                   then yyQ89(strm', lastMatch)  
                   else yyQ90(strm', lastMatch)  
             else if inp <= #"\127"  
               then yyQ25(strm', lastMatch)  
               else yystuck(lastMatch)  
       (* end case *))  
 and yyQ5 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yystuck(lastMatch)  
         | SOME(inp, strm') =>  
             if inp = #"-"  
               then yystuck(lastMatch)  
             else if inp < #"-"  
               then if inp = #"\^N"  
                   then yystuck(lastMatch)  
                 else if inp < #"\^N"  
                   then if inp = #"\v"  
                       then yystuck(lastMatch)  
                     else if inp < #"\v"  
                       then if inp <= #"\b"  
                           then yystuck(lastMatch)  
                           else yyQ93(strm', lastMatch)  
                     else if inp = #"\r"  
                       then yyQ93(strm', lastMatch)  
                       else yystuck(lastMatch)  
                 else if inp = #"!"  
                   then yystuck(lastMatch)  
                 else if inp < #"!"  
                   then if inp = #" "  
                       then yyQ93(strm', lastMatch)  
                       else yystuck(lastMatch)  
                 else if inp = #","  
                   then yyQ94(strm', lastMatch)  
                   else yystuck(lastMatch)  
             else if inp = #"?"  
               then yystuck(lastMatch)  
             else if inp < #"?"  
               then if inp = #"<"  
                   then yystuck(lastMatch)  
                 else if inp < #"<"  
                   then if inp = #";"  
                       then yyQ96(strm', lastMatch)  
                       else yystuck(lastMatch)  
                 else if inp = #">"  
                   then yyQ95(strm', lastMatch)  
                   else yystuck(lastMatch)  
             else if inp = #"["  
               then yystuck(lastMatch)  
             else if inp < #"["  
               then if inp <= #"@"  
                   then yystuck(lastMatch)  
                   else yyQ97(strm', lastMatch)  
721              else if inp = #"a"              else if inp = #"a"
722                then yyQ97(strm', lastMatch)                then yyQ101(strm', lastMatch)
723              else if inp < #"a"              else if inp < #"a"
724                then yystuck(lastMatch)                then if yyInput.eof(strm)
725              else if inp <= #"z"                    then UserDeclarations.eof(yyarg)
               then yyQ97(strm', lastMatch)  
               else yystuck(lastMatch)  
       (* end case *))  
 and yyQ6 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yyAction56(strm, yyNO_MATCH)  
         | SOME(inp, strm') =>  
             if inp = #"*"  
               then yyQ102(strm', yyMATCH(strm, yyAction56, yyNO_MATCH))  
             else if inp < #"*"  
               then if inp = #"#"  
                   then yyQ102(strm', yyMATCH(strm, yyAction56, yyNO_MATCH))  
                 else if inp < #"#"  
                   then if inp = #"\""  
                       then yyQ101(strm', yyMATCH(strm, yyAction56, yyNO_MATCH))  
                       else yyQ102(strm', yyMATCH(strm, yyAction56, yyNO_MATCH))  
                 else if inp = #"("  
                   then yyQ99(strm', yyMATCH(strm, yyAction56, yyNO_MATCH))  
                 else if inp = #")"  
                   then yyQ100(strm', yyMATCH(strm, yyAction56, yyNO_MATCH))  
                   else yyQ102(strm', yyMATCH(strm, yyAction56, yyNO_MATCH))  
             else if inp = #"\\"  
               then yyQ103(strm', yyMATCH(strm, yyAction56, yyNO_MATCH))  
             else if inp < #"\\"  
               then if inp = #";"  
                   then yyQ98(strm', yyMATCH(strm, yyAction56, yyNO_MATCH))  
                   else yyQ102(strm', yyMATCH(strm, yyAction56, yyNO_MATCH))  
             else if inp <= #"\127"  
               then yyQ102(strm', yyMATCH(strm, yyAction56, yyNO_MATCH))  
               else yyAction56(strm, yyNO_MATCH)  
       (* end case *))  
 and yyQ7 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yyAction1(strm, yyNO_MATCH)  
         | SOME(inp, strm') =>  
             if inp = #"&"  
               then yyQ106(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))  
             else if inp < #"&"  
               then if inp = #"%"  
                   then yyQ107(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))  
                   else yyQ106(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))  
             else if inp <= #"\127"  
               then yyQ106(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))  
               else yyAction1(strm, yyNO_MATCH)  
       (* end case *))  
 and yyQ8 (strm, lastMatch) = yyAction13(strm, yyNO_MATCH)  
 and yyQ9 (strm, lastMatch) = yyAction13(strm, yyNO_MATCH)  
 and yyQ10 (strm, lastMatch) = yyAction14(strm, yyNO_MATCH)  
 and yyQ11 (strm, lastMatch) = yyAction15(strm, yyNO_MATCH)  
 and yyQ12 (strm, lastMatch) = yyAction16(strm, yyNO_MATCH)  
 and yyQ13 (strm, lastMatch) = yyAction17(strm, yyNO_MATCH)  
 and yyQ14 (strm, lastMatch) = yyAction18(strm, yyNO_MATCH)  
 and yyQ15 (strm, lastMatch) = yyAction19(strm, yyNO_MATCH)  
 and yyQ16 (strm, lastMatch) = yyAction20(strm, yyNO_MATCH)  
 and yyQ17 (strm, lastMatch) = yyAction21(strm, yyNO_MATCH)  
 and yyQ18 (strm, lastMatch) = yyAction22(strm, yyNO_MATCH)  
 and yyQ19 (strm, lastMatch) = yyAction23(strm, yyNO_MATCH)  
 and yyQ20 (strm, lastMatch) = yyAction24(strm, yyNO_MATCH)  
 and yyQ21 (strm, lastMatch) = yyAction25(strm, yyNO_MATCH)  
 and yyQ22 (strm, lastMatch) = yyAction26(strm, yyNO_MATCH)  
 and yyQ23 (strm, lastMatch) = yyAction27(strm, yyNO_MATCH)  
 and yyQ24 (strm, lastMatch) = yyAction29(strm, yyNO_MATCH)  
 and yyQ25 (strm, lastMatch) = yyAction43(strm, yyNO_MATCH)  
 and yyQ26 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yyAction43(strm, yyNO_MATCH)  
         | SOME(inp, strm') =>  
             if inp = #"b"  
               then yyQ30(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
             else if inp < #"b"  
               then if inp = #"#"  
                   then yyQ31(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
                 else if inp < #"#"  
                   then if inp = #"\v"  
                       then yyQ31(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
                     else if inp < #"\v"  
                       then if inp = #"\n"  
                           then yyAction43(strm, yyNO_MATCH)  
                           else yyQ31(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
                     else if inp = #"\""  
                       then yyQ30(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
                       else yyQ31(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
                 else if inp = #":"  
                   then yyQ31(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
                 else if inp < #":"  
                   then if inp <= #"/"  
                       then yyQ31(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
                       else yyQ33(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
                 else if inp = #"\\"  
                   then yyQ30(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
                   else yyQ31(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
             else if inp = #"s"  
               then yyQ31(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
             else if inp < #"s"  
               then if inp = #"o"  
                   then yyQ31(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
                 else if inp < #"o"  
                   then if inp = #"n"  
                       then yyQ30(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
                       else yyQ31(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
                 else if inp = #"r"  
                   then yyQ30(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
                   else yyQ31(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
             else if inp = #"v"  
               then yyQ31(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
             else if inp < #"v"  
               then if inp = #"t"  
                   then yyQ30(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
                   else yyQ32(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
             else if inp <= #"\127"  
               then yyQ31(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
               else yyAction43(strm, yyNO_MATCH)  
       (* end case *))  
 and yyQ27 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yyAction43(strm, yyNO_MATCH)  
         | SOME(inp, strm') =>  
             if inp = #">"  
               then yyQ28(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))  
               else yyAction43(strm, yyNO_MATCH)  
       (* end case *))  
 and yyQ28 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yystuck(lastMatch)  
         | SOME(inp, strm') =>  
             if inp = #"\^N"  
               then yystuck(lastMatch)  
             else if inp < #"\^N"  
               then if inp = #"\v"  
                   then yystuck(lastMatch)  
                 else if inp < #"\v"  
                   then if inp <= #"\b"  
                       then yystuck(lastMatch)  
                       else yyQ28(strm', lastMatch)  
                 else if inp = #"\r"  
                   then yyQ28(strm', lastMatch)  
                   else yystuck(lastMatch)  
             else if inp = #"!"  
               then yystuck(lastMatch)  
             else if inp < #"!"  
               then if inp = #" "  
                   then yyQ28(strm', lastMatch)  
                   else yystuck(lastMatch)  
             else if inp = #"("  
               then yyQ29(strm', lastMatch)  
726                else yystuck(lastMatch)                else yystuck(lastMatch)
727        (* end case *))              else if inp <= #"z"
728  and yyQ29 (strm, lastMatch) = yyAction28(strm, yyNO_MATCH)                then yyQ101(strm', lastMatch)
729  and yyQ30 (strm, lastMatch) = yyAction40(strm, yyNO_MATCH)              else if yyInput.eof(strm)
730  and yyQ31 (strm, lastMatch) = yyAction42(strm, yyNO_MATCH)                then UserDeclarations.eof(yyarg)
 and yyQ32 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yyAction42(strm, yyNO_MATCH)  
         | SOME(inp, strm') =>  
             if inp = #"A"  
               then yyQ36(strm', yyMATCH(strm, yyAction42, yyNO_MATCH))  
             else if inp < #"A"  
               then if inp = #"0"  
                   then yyQ36(strm', yyMATCH(strm, yyAction42, yyNO_MATCH))  
                 else if inp < #"0"  
                   then yyAction42(strm, yyNO_MATCH)  
                 else if inp <= #"9"  
                   then yyQ36(strm', yyMATCH(strm, yyAction42, yyNO_MATCH))  
                   else yyAction42(strm, yyNO_MATCH)  
             else if inp = #"a"  
               then yyQ36(strm', yyMATCH(strm, yyAction42, yyNO_MATCH))  
             else if inp < #"a"  
               then if inp <= #"F"  
                   then yyQ36(strm', yyMATCH(strm, yyAction42, yyNO_MATCH))  
                   else yyAction42(strm, yyNO_MATCH)  
             else if inp <= #"f"  
               then yyQ36(strm', yyMATCH(strm, yyAction42, yyNO_MATCH))  
               else yyAction42(strm, yyNO_MATCH)  
       (* end case *))  
 and yyQ33 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yyAction42(strm, yyNO_MATCH)  
         | SOME(inp, strm') =>  
             if inp = #"0"  
               then yyQ34(strm', yyMATCH(strm, yyAction42, yyNO_MATCH))  
             else if inp < #"0"  
               then yyAction42(strm, yyNO_MATCH)  
             else if inp <= #"9"  
               then yyQ34(strm', yyMATCH(strm, yyAction42, yyNO_MATCH))  
               else yyAction42(strm, yyNO_MATCH)  
       (* end case *))  
 and yyQ34 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yystuck(lastMatch)  
         | SOME(inp, strm') =>  
             if inp = #"0"  
               then yyQ35(strm', lastMatch)  
             else if inp < #"0"  
               then yystuck(lastMatch)  
             else if inp <= #"9"  
               then yyQ35(strm', lastMatch)  
731                else yystuck(lastMatch)                else yystuck(lastMatch)
732        (* end case *))        (* end case *))
733  and yyQ35 (strm, lastMatch) = yyAction40(strm, yyNO_MATCH)  fun yyQ93 (strm, lastMatch) = yyAction37(strm, yyNO_MATCH)
734  and yyQ36 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ94 (strm, lastMatch) = yyAction39(strm, yyNO_MATCH)
735    fun yyQ25 (strm, lastMatch) = yyAction44(strm, yyNO_MATCH)
736    fun yyQ30 (strm, lastMatch) = yyAction41(strm, yyNO_MATCH)
737    fun yyQ31 (strm, lastMatch) = yyAction43(strm, yyNO_MATCH)
738    fun yyQ39 (strm, lastMatch) = yyAction42(strm, yyNO_MATCH)
739    fun yyQ38 (strm, lastMatch) = (case (yygetc(strm))
740         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
741          | SOME(inp, strm') =>          | SOME(inp, strm') =>
742              if inp = #"A"              if inp = #"A"
743                then yyQ37(strm', lastMatch)                then yyQ39(strm', lastMatch)
744              else if inp < #"A"              else if inp < #"A"
745                then if inp = #"0"                then if inp = #"0"
746                    then yyQ37(strm', lastMatch)                    then yyQ39(strm', lastMatch)
747                  else if inp < #"0"                  else if inp < #"0"
748                    then yystuck(lastMatch)                    then yystuck(lastMatch)
749                  else if inp <= #"9"                  else if inp <= #"9"
750                    then yyQ37(strm', lastMatch)                    then yyQ39(strm', lastMatch)
751                    else yystuck(lastMatch)                    else yystuck(lastMatch)
752              else if inp = #"a"              else if inp = #"a"
753                then yyQ37(strm', lastMatch)                then yyQ39(strm', lastMatch)
754              else if inp < #"a"              else if inp < #"a"
755                then if inp <= #"F"                then if inp <= #"F"
756                    then yyQ37(strm', lastMatch)                    then yyQ39(strm', lastMatch)
757                    else yystuck(lastMatch)                    else yystuck(lastMatch)
758              else if inp <= #"f"              else if inp <= #"f"
759                then yyQ37(strm', lastMatch)                then yyQ39(strm', lastMatch)
760                else yystuck(lastMatch)                else yystuck(lastMatch)
761        (* end case *))        (* end case *))
762  and yyQ37 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ37 (strm, lastMatch) = (case (yygetc(strm))
763         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
764          | SOME(inp, strm') =>          | SOME(inp, strm') =>
765              if inp = #"A"              if inp = #"A"
# Line 933  Line 782 
782                then yyQ38(strm', lastMatch)                then yyQ38(strm', lastMatch)
783                else yystuck(lastMatch)                else yystuck(lastMatch)
784        (* end case *))        (* end case *))
785  and yyQ38 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ36 (strm, lastMatch) = (case (yygetc(strm))
786         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
787          | SOME(inp, strm') =>          | SOME(inp, strm') =>
788              if inp = #"A"              if inp = #"A"
789                then yyQ39(strm', lastMatch)                then yyQ37(strm', lastMatch)
790              else if inp < #"A"              else if inp < #"A"
791                then if inp = #"0"                then if inp = #"0"
792                    then yyQ39(strm', lastMatch)                    then yyQ37(strm', lastMatch)
793                  else if inp < #"0"                  else if inp < #"0"
794                    then yystuck(lastMatch)                    then yystuck(lastMatch)
795                  else if inp <= #"9"                  else if inp <= #"9"
796                    then yyQ39(strm', lastMatch)                    then yyQ37(strm', lastMatch)
797                    else yystuck(lastMatch)                    else yystuck(lastMatch)
798              else if inp = #"a"              else if inp = #"a"
799                then yyQ39(strm', lastMatch)                then yyQ37(strm', lastMatch)
800              else if inp < #"a"              else if inp < #"a"
801                then if inp <= #"F"                then if inp <= #"F"
802                    then yyQ39(strm', lastMatch)                    then yyQ37(strm', lastMatch)
803                    else yystuck(lastMatch)                    else yystuck(lastMatch)
804              else if inp <= #"f"              else if inp <= #"f"
805                then yyQ39(strm', lastMatch)                then yyQ37(strm', lastMatch)
806                else yystuck(lastMatch)                else yystuck(lastMatch)
807        (* end case *))        (* end case *))
808  and yyQ39 (strm, lastMatch) = yyAction41(strm, yyNO_MATCH)  fun yyQ32 (strm, lastMatch) = (case (yygetc(strm))
809  and yyQ40 (strm, lastMatch) = yyAction2(strm, yyNO_MATCH)         of NONE => yyAction43(strm, yyNO_MATCH)
 and yyQ41 (strm, lastMatch) = yyAction12(strm, yyNO_MATCH)  
 and yyQ42 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yyAction11(strm, yyNO_MATCH)  
810          | SOME(inp, strm') =>          | SOME(inp, strm') =>
811              if inp = #"A"              if inp = #"A"
812                then yyQ42(strm', yyMATCH(strm, yyAction11, yyNO_MATCH))                then yyQ36(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))
813              else if inp < #"A"              else if inp < #"A"
814                then if inp = #"("                then if inp = #"0"
815                    then yyAction11(strm, yyNO_MATCH)                    then yyQ36(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))
                 else if inp < #"("  
                   then if inp = #"'"  
                       then yyQ42(strm', yyMATCH(strm, yyAction11, yyNO_MATCH))  
                       else yyAction11(strm, yyNO_MATCH)  
                 else if inp = #"0"  
                   then yyQ42(strm', yyMATCH(strm, yyAction11, yyNO_MATCH))  
816                  else if inp < #"0"                  else if inp < #"0"
817                    then yyAction11(strm, yyNO_MATCH)                    then yyAction43(strm, yyNO_MATCH)
818                  else if inp <= #"9"                  else if inp <= #"9"
819                    then yyQ42(strm', yyMATCH(strm, yyAction11, yyNO_MATCH))                    then yyQ36(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))
820                    else yyAction11(strm, yyNO_MATCH)                    else yyAction43(strm, yyNO_MATCH)
821              else if inp = #"`"              else if inp = #"a"
822                then yyAction11(strm, yyNO_MATCH)                then yyQ36(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))
823              else if inp < #"`"              else if inp < #"a"
824                then if inp = #"["                then if inp <= #"F"
825                    then yyAction11(strm, yyNO_MATCH)                    then yyQ36(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))
826                  else if inp < #"["                    else yyAction43(strm, yyNO_MATCH)
827                    then yyQ42(strm', yyMATCH(strm, yyAction11, yyNO_MATCH))              else if inp <= #"f"
828                  else if inp = #"_"                then yyQ36(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))
829                    then yyQ42(strm', yyMATCH(strm, yyAction11, yyNO_MATCH))                else yyAction43(strm, yyNO_MATCH)
                   else yyAction11(strm, yyNO_MATCH)  
             else if inp <= #"z"  
               then yyQ42(strm', yyMATCH(strm, yyAction11, yyNO_MATCH))  
               else yyAction11(strm, yyNO_MATCH)  
830        (* end case *))        (* end case *))
831  and yyQ43 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ35 (strm, lastMatch) = yyAction41(strm, yyNO_MATCH)
832    fun yyQ34 (strm, lastMatch) = (case (yygetc(strm))
833         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
834          | SOME(inp, strm') =>          | SOME(inp, strm') =>
835              if inp = #"h"              if inp = #"0"
836                then yyQ50(strm', lastMatch)                then yyQ35(strm', lastMatch)
837              else if inp < #"h"              else if inp < #"0"
               then if inp = #"a"  
                   then yyQ49(strm', lastMatch)  
                 else if inp < #"a"  
                   then if inp = #"%"  
                       then yyQ44(strm', lastMatch)  
                       else yystuck(lastMatch)  
                 else if inp = #"c"  
                   then yyQ48(strm', lastMatch)  
                   else yystuck(lastMatch)  
             else if inp = #"t"  
838                then yystuck(lastMatch)                then yystuck(lastMatch)
839              else if inp < #"t"              else if inp <= #"9"
840                then if inp = #"r"                then yyQ35(strm', lastMatch)
                   then yyQ47(strm', lastMatch)  
                 else if inp = #"s"  
                   then yyQ45(strm', lastMatch)  
                   else yystuck(lastMatch)  
             else if inp = #"u"  
               then yyQ46(strm', lastMatch)  
841                else yystuck(lastMatch)                else yystuck(lastMatch)
842        (* end case *))        (* end case *))
843  and yyQ44 (strm, lastMatch) = yyAction3(strm, yyNO_MATCH)  fun yyQ33 (strm, lastMatch) = (case (yygetc(strm))
844  and yyQ45 (strm, lastMatch) = (case (yygetc(strm))         of NONE => yyAction43(strm, yyNO_MATCH)
        of NONE => yyAction4(strm, yyNO_MATCH)  
845          | SOME(inp, strm') =>          | SOME(inp, strm') =>
846              if inp = #"t"              if inp = #"0"
847                then yyQ75(strm', yyMATCH(strm, yyAction4, yyNO_MATCH))                then yyQ34(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))
848                else yyAction4(strm, yyNO_MATCH)              else if inp < #"0"
849                  then yyAction43(strm, yyNO_MATCH)
850                else if inp <= #"9"
851                  then yyQ34(strm', yyMATCH(strm, yyAction43, yyNO_MATCH))
852                  else yyAction43(strm, yyNO_MATCH)
853        (* end case *))        (* end case *))
854  and yyQ46 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ26 (strm, lastMatch) = (case (yygetc(strm))
855         of NONE => yystuck(lastMatch)         of NONE => yyAction44(strm, yyNO_MATCH)
856          | SOME(inp, strm') =>          | SOME(inp, strm') =>
857              if inp = #"n"              if inp = #"b"
858                then yyQ69(strm', lastMatch)                then yyQ30(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
859                else yystuck(lastMatch)              else if inp < #"b"
860                  then if inp = #"#"
861                      then yyQ31(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
862                    else if inp < #"#"
863                      then if inp = #"\v"
864                          then yyQ31(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
865                        else if inp < #"\v"
866                          then if inp = #"\n"
867                              then yyAction44(strm, yyNO_MATCH)
868                              else yyQ31(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
869                        else if inp = #"\""
870                          then yyQ30(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
871                          else yyQ31(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
872                    else if inp = #":"
873                      then yyQ31(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
874                    else if inp < #":"
875                      then if inp <= #"/"
876                          then yyQ31(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
877                          else yyQ33(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
878                    else if inp = #"\\"
879                      then yyQ30(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
880                      else yyQ31(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
881                else if inp = #"s"
882                  then yyQ31(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
883                else if inp < #"s"
884                  then if inp = #"o"
885                      then yyQ31(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
886                    else if inp < #"o"
887                      then if inp = #"n"
888                          then yyQ30(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
889                          else yyQ31(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
890                    else if inp = #"r"
891                      then yyQ30(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
892                      else yyQ31(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
893                else if inp = #"v"
894                  then yyQ31(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
895                else if inp < #"v"
896                  then if inp = #"t"
897                      then yyQ30(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
898                      else yyQ32(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
899                else if inp <= #"\127"
900                  then yyQ31(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
901                  else yyAction44(strm, yyNO_MATCH)
902        (* end case *))        (* end case *))
903  and yyQ47 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ96 (strm, lastMatch) = yyAction36(strm, yyNO_MATCH)
904         of NONE => yystuck(lastMatch)  fun yyQ95 (strm, lastMatch) = (case (yygetc(strm))
905           of NONE => yyAction38(strm, yyNO_MATCH)
906          | SOME(inp, strm') =>          | SOME(inp, strm') =>
907              if inp = #"e"              if inp = #"]"
908                then yyQ64(strm', lastMatch)                then yyQ96(strm', yyMATCH(strm, yyAction38, yyNO_MATCH))
909                else yystuck(lastMatch)                else yyAction38(strm, yyNO_MATCH)
910        (* end case *))        (* end case *))
911  and yyQ48 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ4 (strm, lastMatch) = (case (yygetc(strm))
912         of NONE => yystuck(lastMatch)         of NONE =>
913          | SOME(inp, strm') =>              if yyInput.eof(strm)
914              if inp = #"o"                then UserDeclarations.eof(yyarg)
               then yyQ60(strm', lastMatch)  
915                else yystuck(lastMatch)                else yystuck(lastMatch)
       (* end case *))  
 and yyQ49 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yystuck(lastMatch)  
916          | SOME(inp, strm') =>          | SOME(inp, strm') =>
917              if inp = #"r"              if inp = #"\\"
918                then yyQ57(strm', lastMatch)                then yyQ26(strm', lastMatch)
919                else if inp < #"\\"
920                  then if inp = #"\v"
921                      then yyQ25(strm', lastMatch)
922                    else if inp < #"\v"
923                      then if inp = #"\n"
924                          then if yyInput.eof(strm)
925                              then UserDeclarations.eof(yyarg)
926                else yystuck(lastMatch)                else yystuck(lastMatch)
927        (* end case *))                        else yyQ25(strm', lastMatch)
928  and yyQ50 (strm, lastMatch) = (case (yygetc(strm))                  else if inp = #"-"
929         of NONE => yystuck(lastMatch)                    then yyQ95(strm', lastMatch)
930          | SOME(inp, strm') =>                    else yyQ25(strm', lastMatch)
931              if inp = #"e"              else if inp = #"_"
932                then yyQ51(strm', lastMatch)                then yyQ25(strm', lastMatch)
933                else if inp < #"_"
934                  then if inp = #"]"
935                      then yyQ93(strm', lastMatch)
936                      else yyQ94(strm', lastMatch)
937                else if inp <= #"\127"
938                  then yyQ25(strm', lastMatch)
939                else if yyInput.eof(strm)
940                  then UserDeclarations.eof(yyarg)
941                else yystuck(lastMatch)                else yystuck(lastMatch)
942        (* end case *))        (* end case *))
943  and yyQ51 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ92 (strm, lastMatch) = yyAction40(strm, yyNO_MATCH)
944         of NONE => yystuck(lastMatch)  fun yyQ3 (strm, lastMatch) = (case (yygetc(strm))
945          | SOME(inp, strm') =>         of NONE =>
946              if inp = #"a"              if yyInput.eof(strm)
947                then yyQ52(strm', lastMatch)                then UserDeclarations.eof(yyarg)
948                else yystuck(lastMatch)                else yystuck(lastMatch)
       (* end case *))  
 and yyQ52 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yystuck(lastMatch)  
949          | SOME(inp, strm') =>          | SOME(inp, strm') =>
950              if inp = #"d"              if inp = #"#"
951                then yyQ53(strm', lastMatch)                then yyQ25(strm', lastMatch)
952                else if inp < #"#"
953                  then if inp = #"\v"
954                      then yyQ25(strm', lastMatch)
955                    else if inp < #"\v"
956                      then if inp = #"\n"
957                          then if yyInput.eof(strm)
958                              then UserDeclarations.eof(yyarg)
959                              else yystuck(lastMatch)
960                          else yyQ25(strm', lastMatch)
961                    else if inp = #"\""
962                      then yyQ92(strm', lastMatch)
963                      else yyQ25(strm', lastMatch)
964                else if inp = #"]"
965                  then yyQ25(strm', lastMatch)
966                else if inp < #"]"
967                  then if inp = #"\\"
968                      then yyQ26(strm', lastMatch)
969                      else yyQ25(strm', lastMatch)
970                else if inp <= #"\127"
971                  then yyQ25(strm', lastMatch)
972                else if yyInput.eof(strm)
973                  then UserDeclarations.eof(yyarg)
974                else yystuck(lastMatch)                else yystuck(lastMatch)
975        (* end case *))        (* end case *))
976  and yyQ53 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ87 (strm, lastMatch) = yyAction31(strm, yyNO_MATCH)
977         of NONE => yystuck(lastMatch)  fun yyQ88 (strm, lastMatch) = yyAction34(strm, yyNO_MATCH)
978    fun yyQ89 (strm, lastMatch) = yyAction35(strm, yyNO_MATCH)
979    fun yyQ90 (strm, lastMatch) = (case (yygetc(strm))
980           of NONE => yyAction33(strm, yyNO_MATCH)
981          | SOME(inp, strm') =>          | SOME(inp, strm') =>
982              if inp = #"e"              if inp = #"0"
983                then yyQ54(strm', lastMatch)                then yyQ90(strm', yyMATCH(strm, yyAction33, yyNO_MATCH))
984                else yystuck(lastMatch)              else if inp < #"0"
985                  then yyAction33(strm, yyNO_MATCH)
986                else if inp <= #"9"
987                  then yyQ90(strm', yyMATCH(strm, yyAction33, yyNO_MATCH))
988                  else yyAction33(strm, yyNO_MATCH)
989        (* end case *))        (* end case *))
990  and yyQ54 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ91 (strm, lastMatch) = (case (yygetc(strm))
991         of NONE => yystuck(lastMatch)         of NONE => yyAction32(strm, yyNO_MATCH)
992          | SOME(inp, strm') =>          | SOME(inp, strm') =>
993              if inp = #"r"              if inp = #"A"
994                then yyQ55(strm', lastMatch)                then yyQ91(strm', yyMATCH(strm, yyAction32, yyNO_MATCH))
995                else yystuck(lastMatch)              else if inp < #"A"
996                  then if inp = #"("
997                      then yyAction32(strm, yyNO_MATCH)
998                    else if inp < #"("
999                      then if inp = #"'"
1000                          then yyQ91(strm', yyMATCH(strm, yyAction32, yyNO_MATCH))
1001                          else yyAction32(strm, yyNO_MATCH)
1002                    else if inp = #"0"
1003                      then yyQ91(strm', yyMATCH(strm, yyAction32, yyNO_MATCH))
1004                    else if inp < #"0"
1005                      then yyAction32(strm, yyNO_MATCH)
1006                    else if inp <= #"9"
1007                      then yyQ91(strm', yyMATCH(strm, yyAction32, yyNO_MATCH))
1008                      else yyAction32(strm, yyNO_MATCH)
1009                else if inp = #"`"
1010                  then yyAction32(strm, yyNO_MATCH)
1011                else if inp < #"`"
1012                  then if inp = #"["
1013                      then yyAction32(strm, yyNO_MATCH)
1014                    else if inp < #"["
1015                      then yyQ91(strm', yyMATCH(strm, yyAction32, yyNO_MATCH))
1016                    else if inp = #"_"
1017                      then yyQ91(strm', yyMATCH(strm, yyAction32, yyNO_MATCH))
1018                      else yyAction32(strm, yyNO_MATCH)
1019                else if inp <= #"z"
1020                  then yyQ91(strm', yyMATCH(strm, yyAction32, yyNO_MATCH))
1021                  else yyAction32(strm, yyNO_MATCH)
1022        (* end case *))        (* end case *))
1023  and yyQ55 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ2 (strm, lastMatch) = (case (yygetc(strm))
1024         of NONE => yystuck(lastMatch)         of NONE =>
1025                if yyInput.eof(strm)
1026                  then UserDeclarations.eof(yyarg)
1027                  else yystuck(lastMatch)
1028          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1029              if inp = #"\^N"              if inp = #"-"
1030                then yystuck(lastMatch)                then if yyInput.eof(strm)
1031                      then UserDeclarations.eof(yyarg)
1032                      else yystuck(lastMatch)
1033                else if inp < #"-"
1034                  then if inp = #"\^N"
1035                      then if yyInput.eof(strm)
1036                          then UserDeclarations.eof(yyarg)
1037                          else yystuck(lastMatch)
1038              else if inp < #"\^N"              else if inp < #"\^N"
1039                then if inp = #"\v"                then if inp = #"\v"
1040                    then yystuck(lastMatch)                        then if yyInput.eof(strm)
1041                              then UserDeclarations.eof(yyarg)
1042                              else yystuck(lastMatch)
1043                  else if inp < #"\v"                  else if inp < #"\v"
1044                    then if inp <= #"\b"                    then if inp <= #"\b"
1045                        then yystuck(lastMatch)                            then if yyInput.eof(strm)
1046                        else yyQ55(strm', lastMatch)                                then UserDeclarations.eof(yyarg)
1047                                  else yystuck(lastMatch)
1048                              else yyQ87(strm', lastMatch)
1049                  else if inp = #"\r"                  else if inp = #"\r"
1050                    then yyQ55(strm', lastMatch)                        then yyQ87(strm', lastMatch)
1051                        else if yyInput.eof(strm)
1052                          then UserDeclarations.eof(yyarg)
1053                    else yystuck(lastMatch)                    else yystuck(lastMatch)
1054              else if inp = #"!"              else if inp = #"!"
1055                then yystuck(lastMatch)                    then if yyInput.eof(strm)
1056                          then UserDeclarations.eof(yyarg)
1057                          else yystuck(lastMatch)
1058              else if inp < #"!"              else if inp < #"!"
1059                then if inp = #" "                then if inp = #" "
1060                    then yyQ55(strm', lastMatch)                        then yyQ87(strm', lastMatch)
1061                        else if yyInput.eof(strm)
1062                          then UserDeclarations.eof(yyarg)
1063                    else yystuck(lastMatch)                    else yystuck(lastMatch)
1064              else if inp = #"("                  else if inp = #","
1065                then yyQ56(strm', lastMatch)                    then yyQ88(strm', lastMatch)
1066                    else if yyInput.eof(strm)
1067                      then UserDeclarations.eof(yyarg)
1068                      else yystuck(lastMatch)
1069                else if inp = #"["
1070                  then if yyInput.eof(strm)
1071                      then UserDeclarations.eof(yyarg)
1072                else yystuck(lastMatch)                else yystuck(lastMatch)
1073                else if inp < #"["
1074                  then if inp = #":"
1075                      then if yyInput.eof(strm)
1076                          then UserDeclarations.eof(yyarg)
1077                          else yystuck(lastMatch)
1078                    else if inp < #":"
1079                      then if inp <= #"/"
1080                          then if yyInput.eof(strm)
1081                              then UserDeclarations.eof(yyarg)
1082                              else yystuck(lastMatch)
1083                          else yyQ90(strm', lastMatch)
1084                    else if inp <= #"@"
1085                      then if yyInput.eof(strm)
1086                          then UserDeclarations.eof(yyarg)
1087                          else yystuck(lastMatch)
1088                      else yyQ91(strm', lastMatch)
1089                else if inp = #"{"
1090                  then if yyInput.eof(strm)
1091                      then UserDeclarations.eof(yyarg)
1092                      else yystuck(lastMatch)
1093                else if inp < #"{"
1094                  then if inp <= #"`"
1095                      then if yyInput.eof(strm)
1096                          then UserDeclarations.eof(yyarg)
1097                          else yystuck(lastMatch)
1098                      else yyQ91(strm', lastMatch)
1099                else if inp = #"}"
1100                  then yyQ89(strm', lastMatch)
1101                else if yyInput.eof(strm)
1102                  then UserDeclarations.eof(yyarg)
1103                  else yystuck(lastMatch)
1104          (* end case *))
1105    fun yyQ40 (strm, lastMatch) = yyAction2(strm, yyNO_MATCH)
1106    fun yyQ41 (strm, lastMatch) = yyAction13(strm, yyNO_MATCH)
1107    fun yyQ42 (strm, lastMatch) = (case (yygetc(strm))
1108           of NONE => yyAction12(strm, yyNO_MATCH)
1109            | SOME(inp, strm') =>
1110                if inp = #"A"
1111                  then yyQ42(strm', yyMATCH(strm, yyAction12, yyNO_MATCH))
1112                else if inp < #"A"
1113                  then if inp = #"("
1114                      then yyAction12(strm, yyNO_MATCH)
1115                    else if inp < #"("
1116                      then if inp = #"'"
1117                          then yyQ42(strm', yyMATCH(strm, yyAction12, yyNO_MATCH))
1118                          else yyAction12(strm, yyNO_MATCH)
1119                    else if inp = #"0"
1120                      then yyQ42(strm', yyMATCH(strm, yyAction12, yyNO_MATCH))
1121                    else if inp < #"0"
1122                      then yyAction12(strm, yyNO_MATCH)
1123                    else if inp <= #"9"
1124                      then yyQ42(strm', yyMATCH(strm, yyAction12, yyNO_MATCH))
1125                      else yyAction12(strm, yyNO_MATCH)
1126                else if inp = #"`"
1127                  then yyAction12(strm, yyNO_MATCH)
1128                else if inp < #"`"
1129                  then if inp = #"["
1130                      then yyAction12(strm, yyNO_MATCH)
1131                    else if inp < #"["
1132                      then yyQ42(strm', yyMATCH(strm, yyAction12, yyNO_MATCH))
1133                    else if inp = #"_"
1134                      then yyQ42(strm', yyMATCH(strm, yyAction12, yyNO_MATCH))
1135                      else yyAction12(strm, yyNO_MATCH)
1136                else if inp <= #"z"
1137                  then yyQ42(strm', yyMATCH(strm, yyAction12, yyNO_MATCH))
1138                  else yyAction12(strm, yyNO_MATCH)
1139        (* end case *))        (* end case *))
1140  and yyQ56 (strm, lastMatch) = yyAction5(strm, yyNO_MATCH)  fun yyQ44 (strm, lastMatch) = yyAction3(strm, yyNO_MATCH)
1141  and yyQ57 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ86 (strm, lastMatch) = yyAction6(strm, yyNO_MATCH)
1142    fun yyQ85 (strm, lastMatch) = (case (yygetc(strm))
1143         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1144          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1145              if inp = #"g"              if inp = #"e"
1146                then yyQ58(strm', lastMatch)                then yyQ86(strm', lastMatch)
1147                else yystuck(lastMatch)                else yystuck(lastMatch)
1148        (* end case *))        (* end case *))
1149  and yyQ58 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ84 (strm, lastMatch) = (case (yygetc(strm))
1150         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1151          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1152              if inp = #"\^N"              if inp = #"r"
1153                then yystuck(lastMatch)                then yyQ85(strm', lastMatch)
             else if inp < #"\^N"  
               then if inp = #"\v"  
                   then yystuck(lastMatch)  
                 else if inp < #"\v"  
                   then if inp <= #"\b"  
                       then yystuck(lastMatch)  
                       else yyQ58(strm', lastMatch)  
                 else if inp = #"\r"  
                   then yyQ58(strm', lastMatch)  
                   else yystuck(lastMatch)  
             else if inp = #"!"  
               then yystuck(lastMatch)  
             else if inp < #"!"  
               then if inp = #" "  
                   then yyQ58(strm', lastMatch)  
                   else yystuck(lastMatch)  
             else if inp = #"("  
               then yyQ59(strm', lastMatch)  
1154                else yystuck(lastMatch)                else yystuck(lastMatch)
1155        (* end case *))        (* end case *))
1156  and yyQ59 (strm, lastMatch) = yyAction7(strm, yyNO_MATCH)  fun yyQ83 (strm, lastMatch) = (case (yygetc(strm))
 and yyQ60 (strm, lastMatch) = (case (yygetc(strm))  
1157         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1158          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1159              if inp = #"u"              if inp = #"u"
1160                then yyQ61(strm', lastMatch)                then yyQ84(strm', lastMatch)
1161                else yystuck(lastMatch)                else yystuck(lastMatch)
1162        (* end case *))        (* end case *))
1163  and yyQ61 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ82 (strm, lastMatch) = (case (yygetc(strm))
1164         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1165          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1166              if inp = #"n"              if inp = #"t"
1167                then yyQ62(strm', lastMatch)                then yyQ83(strm', lastMatch)
1168                  else yystuck(lastMatch)
1169          (* end case *))
1170    fun yyQ81 (strm, lastMatch) = (case (yygetc(strm))
1171           of NONE => yystuck(lastMatch)
1172            | SOME(inp, strm') =>
1173                if inp = #"c"
1174                  then yyQ82(strm', lastMatch)
1175                else yystuck(lastMatch)                else yystuck(lastMatch)
1176        (* end case *))        (* end case *))
1177  and yyQ62 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ80 (strm, lastMatch) = (case (yygetc(strm))
1178         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1179          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1180                if inp = #"u"
1181                  then yyQ81(strm', lastMatch)
1182                  else yystuck(lastMatch)
1183          (* end case *))
1184    fun yyQ79 (strm, lastMatch) = (case (yygetc(strm))
1185           of NONE => yystuck(lastMatch)
1186            | SOME(inp, strm') =>
1187                if inp = #"r"
1188                  then yyQ80(strm', lastMatch)
1189                  else yystuck(lastMatch)
1190          (* end case *))
1191    fun yyQ45 (strm, lastMatch) = (case (yygetc(strm))
1192           of NONE => yyAction4(strm, yyNO_MATCH)
1193            | SOME(inp, strm') =>
1194              if inp = #"t"              if inp = #"t"
1195                then yyQ63(strm', lastMatch)                then yyQ79(strm', yyMATCH(strm, yyAction4, yyNO_MATCH))
1196                  else yyAction4(strm, yyNO_MATCH)
1197          (* end case *))
1198    fun yyQ78 (strm, lastMatch) = yyAction11(strm, yyNO_MATCH)
1199    fun yyQ77 (strm, lastMatch) = (case (yygetc(strm))
1200           of NONE => yystuck(lastMatch)
1201            | SOME(inp, strm') =>
1202                if inp = #"l"
1203                  then yyQ78(strm', lastMatch)
1204                else yystuck(lastMatch)                else yystuck(lastMatch)
1205        (* end case *))        (* end case *))
1206  and yyQ63 (strm, lastMatch) = yyAction8(strm, yyNO_MATCH)  fun yyQ76 (strm, lastMatch) = (case (yygetc(strm))
 and yyQ64 (strm, lastMatch) = (case (yygetc(strm))  
1207         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1208          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1209              if inp = #"j"              if inp = #"l"
1210                then yyQ65(strm', lastMatch)                then yyQ77(strm', lastMatch)
1211                else yystuck(lastMatch)                else yystuck(lastMatch)
1212        (* end case *))        (* end case *))
1213  and yyQ65 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ46 (strm, lastMatch) = (case (yygetc(strm))
1214         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1215          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1216              if inp = #"e"              if inp = #"u"
1217                then yyQ66(strm', lastMatch)                then yyQ76(strm', lastMatch)
1218                else yystuck(lastMatch)                else yystuck(lastMatch)
1219        (* end case *))        (* end case *))
1220  and yyQ66 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ75 (strm, lastMatch) = yyAction10(strm, yyNO_MATCH)
1221    fun yyQ74 (strm, lastMatch) = (case (yygetc(strm))
1222         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1223          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1224              if inp = #"c"              if inp = #"e"
1225                then yyQ67(strm', lastMatch)                then yyQ75(strm', lastMatch)
1226                else yystuck(lastMatch)                else yystuck(lastMatch)
1227        (* end case *))        (* end case *))
1228  and yyQ67 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ73 (strm, lastMatch) = (case (yygetc(strm))
1229         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1230          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1231              if inp = #"t"              if inp = #"d"
1232                then yyQ68(strm', lastMatch)                then yyQ74(strm', lastMatch)
1233                else yystuck(lastMatch)                else yystuck(lastMatch)
1234        (* end case *))        (* end case *))
1235  and yyQ68 (strm, lastMatch) = yyAction9(strm, lastMatch)  fun yyQ72 (strm, lastMatch) = (case (yygetc(strm))
 and yyQ69 (strm, lastMatch) = (case (yygetc(strm))  
1236         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1237          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1238              if inp = #"i"              if inp = #"o"
1239                then yyQ70(strm', lastMatch)                then yyQ73(strm', lastMatch)
1240                else yystuck(lastMatch)                else yystuck(lastMatch)
1241        (* end case *))        (* end case *))
1242  and yyQ70 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ71 (strm, lastMatch) = (case (yygetc(strm))
1243         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1244          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1245              if inp = #"c"              if inp = #"c"
1246                  then yyQ72(strm', lastMatch)
1247                  else yystuck(lastMatch)
1248          (* end case *))
1249    fun yyQ70 (strm, lastMatch) = (case (yygetc(strm))
1250           of NONE => yystuck(lastMatch)
1251            | SOME(inp, strm') =>
1252                if inp = #"i"
1253                then yyQ71(strm', lastMatch)                then yyQ71(strm', lastMatch)
1254                else yystuck(lastMatch)                else yystuck(lastMatch)
1255        (* end case *))        (* end case *))
1256  and yyQ71 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ47 (strm, lastMatch) = (case (yygetc(strm))
1257         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1258          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1259              if inp = #"o"              if inp = #"n"
1260                then yyQ72(strm', lastMatch)                then yyQ70(strm', lastMatch)
1261                else yystuck(lastMatch)                else yystuck(lastMatch)
1262        (* end case *))        (* end case *))
1263  and yyQ72 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ69 (strm, lastMatch) = yyAction9(strm, lastMatch)
1264    fun yyQ68 (strm, lastMatch) = (case (yygetc(strm))
1265         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1266          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1267              if inp = #"d"              if inp = #"t"
1268                then yyQ73(strm', lastMatch)                then yyQ69(strm', lastMatch)
1269                else yystuck(lastMatch)                else yystuck(lastMatch)
1270        (* end case *))        (* end case *))
1271  and yyQ73 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ67 (strm, lastMatch) = (case (yygetc(strm))
1272         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1273          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1274              if inp = #"e"              if inp = #"c"
1275                then yyQ74(strm', lastMatch)                then yyQ68(strm', lastMatch)
1276                else yystuck(lastMatch)                else yystuck(lastMatch)
1277        (* end case *))        (* end case *))
1278  and yyQ74 (strm, lastMatch) = yyAction10(strm, yyNO_MATCH)  fun yyQ66 (strm, lastMatch) = (case (yygetc(strm))
 and yyQ75 (strm, lastMatch) = (case (yygetc(strm))  
1279         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1280          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1281              if inp = #"r"              if inp = #"e"
1282                then yyQ76(strm', lastMatch)                then yyQ67(strm', lastMatch)
1283                else yystuck(lastMatch)                else yystuck(lastMatch)
1284        (* end case *))        (* end case *))
1285  and yyQ76 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ65 (strm, lastMatch) = (case (yygetc(strm))
1286         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1287          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1288              if inp = #"u"              if inp = #"j"
1289                then yyQ77(strm', lastMatch)                then yyQ66(strm', lastMatch)
1290                else yystuck(lastMatch)                else yystuck(lastMatch)
1291        (* end case *))        (* end case *))
1292  and yyQ77 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ48 (strm, lastMatch) = (case (yygetc(strm))
1293         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1294          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1295              if inp = #"c"              if inp = #"e"
1296                then yyQ78(strm', lastMatch)                then yyQ65(strm', lastMatch)
1297                else yystuck(lastMatch)                else yystuck(lastMatch)
1298        (* end case *))        (* end case *))
1299  and yyQ78 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ64 (strm, lastMatch) = yyAction8(strm, yyNO_MATCH)
1300    fun yyQ63 (strm, lastMatch) = (case (yygetc(strm))
1301         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1302          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1303              if inp = #"t"              if inp = #"t"
1304                then yyQ79(strm', lastMatch)                then yyQ64(strm', lastMatch)
1305                else yystuck(lastMatch)                else yystuck(lastMatch)
1306        (* end case *))        (* end case *))
1307  and yyQ79 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ62 (strm, lastMatch) = (case (yygetc(strm))
1308           of NONE => yystuck(lastMatch)
1309            | SOME(inp, strm') =>
1310                if inp = #"n"
1311                  then yyQ63(strm', lastMatch)
1312                  else yystuck(lastMatch)
1313          (* end case *))
1314    fun yyQ61 (strm, lastMatch) = (case (yygetc(strm))
1315         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1316          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1317              if inp = #"u"              if inp = #"u"
1318                then yyQ80(strm', lastMatch)                then yyQ62(strm', lastMatch)
1319                else yystuck(lastMatch)                else yystuck(lastMatch)
1320        (* end case *))        (* end case *))
1321  and yyQ80 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ49 (strm, lastMatch) = (case (yygetc(strm))
1322         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1323          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1324              if inp = #"r"              if inp = #"o"
1325                then yyQ81(strm', lastMatch)                then yyQ61(strm', lastMatch)
1326                else yystuck(lastMatch)                else yystuck(lastMatch)
1327        (* end case *))        (* end case *))
1328  and yyQ81 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ60 (strm, lastMatch) = yyAction7(strm, yyNO_MATCH)
1329    fun yyQ59 (strm, lastMatch) = (case (yygetc(strm))
1330         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1331          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1332              if inp = #"e"              if inp = #"\^N"
1333                then yyQ82(strm', lastMatch)                then yystuck(lastMatch)
1334                else if inp < #"\^N"
1335                  then if inp = #"\v"
1336                      then yystuck(lastMatch)
1337                    else if inp < #"\v"
1338                      then if inp <= #"\b"
1339                          then yystuck(lastMatch)
1340                          else yyQ59(strm', lastMatch)
1341                    else if inp = #"\r"
1342                      then yyQ59(strm', lastMatch)
1343                      else yystuck(lastMatch)
1344                else if inp = #"!"
1345                  then yystuck(lastMatch)
1346                else if inp < #"!"
1347                  then if inp = #" "
1348                      then yyQ59(strm', lastMatch)
1349                      else yystuck(lastMatch)
1350                else if inp = #"("
1351                  then yyQ60(strm', lastMatch)
1352                else yystuck(lastMatch)                else yystuck(lastMatch)
1353        (* end case *))        (* end case *))
1354  and yyQ82 (strm, lastMatch) = yyAction6(strm, yyNO_MATCH)  fun yyQ58 (strm, lastMatch) = (case (yygetc(strm))
1355  and yyQ83 (strm, lastMatch) = yyAction30(strm, yyNO_MATCH)         of NONE => yystuck(lastMatch)
 and yyQ84 (strm, lastMatch) = yyAction33(strm, yyNO_MATCH)  
 and yyQ85 (strm, lastMatch) = yyAction34(strm, yyNO_MATCH)  
 and yyQ86 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yyAction32(strm, yyNO_MATCH)  
1356          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1357              if inp = #"0"              if inp = #"g"
1358                then yyQ86(strm', yyMATCH(strm, yyAction32, yyNO_MATCH))                then yyQ59(strm', lastMatch)
1359              else if inp < #"0"                else yystuck(lastMatch)
               then yyAction32(strm, yyNO_MATCH)  
             else if inp <= #"9"  
               then yyQ86(strm', yyMATCH(strm, yyAction32, yyNO_MATCH))  
               else yyAction32(strm, yyNO_MATCH)  
1360        (* end case *))        (* end case *))
1361  and yyQ87 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ50 (strm, lastMatch) = (case (yygetc(strm))
1362         of NONE => yyAction31(strm, yyNO_MATCH)         of NONE => yystuck(lastMatch)
1363          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1364              if inp = #"A"              if inp = #"r"
1365                then yyQ87(strm', yyMATCH(strm, yyAction31, yyNO_MATCH))                then yyQ58(strm', lastMatch)
1366              else if inp < #"A"                else yystuck(lastMatch)
               then if inp = #"("  
                   then yyAction31(strm, yyNO_MATCH)  
                 else if inp < #"("  
                   then if inp = #"'"  
                       then yyQ87(strm', yyMATCH(strm, yyAction31, yyNO_MATCH))  
                       else yyAction31(strm, yyNO_MATCH)  
                 else if inp = #"0"  
                   then yyQ87(strm', yyMATCH(strm, yyAction31, yyNO_MATCH))  
                 else if inp < #"0"  
                   then yyAction31(strm, yyNO_MATCH)  
                 else if inp <= #"9"  
                   then yyQ87(strm', yyMATCH(strm, yyAction31, yyNO_MATCH))  
                   else yyAction31(strm, yyNO_MATCH)  
             else if inp = #"`"  
               then yyAction31(strm, yyNO_MATCH)  
             else if inp < #"`"  
               then if inp = #"["  
                   then yyAction31(strm, yyNO_MATCH)  
                 else if inp < #"["  
                   then yyQ87(strm', yyMATCH(strm, yyAction31, yyNO_MATCH))  
                 else if inp = #"_"  
                   then yyQ87(strm', yyMATCH(strm, yyAction31, yyNO_MATCH))  
                   else yyAction31(strm, yyNO_MATCH)  
             else if inp <= #"z"  
               then yyQ87(strm', yyMATCH(strm, yyAction31, yyNO_MATCH))  
               else yyAction31(strm, yyNO_MATCH)  
1367        (* end case *))        (* end case *))
1368  and yyQ88 (strm, lastMatch) = yyAction39(strm, yyNO_MATCH)  fun yyQ57 (strm, lastMatch) = yyAction5(strm, yyNO_MATCH)
1369  and yyQ89 (strm, lastMatch) = yyAction36(strm, yyNO_MATCH)  fun yyQ56 (strm, lastMatch) = (case (yygetc(strm))
1370  and yyQ90 (strm, lastMatch) = yyAction38(strm, yyNO_MATCH)         of NONE => yystuck(lastMatch)
 and yyQ91 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yyAction37(strm, yyNO_MATCH)  
1371          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1372              if inp = #"]"              if inp = #"\^N"
1373                then yyQ92(strm', yyMATCH(strm, yyAction37, yyNO_MATCH))                then yystuck(lastMatch)
1374                else yyAction37(strm, yyNO_MATCH)              else if inp < #"\^N"
1375                  then if inp = #"\v"
1376                      then yystuck(lastMatch)
1377                    else if inp < #"\v"
1378                      then if inp <= #"\b"
1379                          then yystuck(lastMatch)
1380                          else yyQ56(strm', lastMatch)
1381                    else if inp = #"\r"
1382                      then yyQ56(strm', lastMatch)
1383                      else yystuck(lastMatch)
1384                else if inp = #"!"
1385                  then yystuck(lastMatch)
1386                else if inp < #"!"
1387                  then if inp = #" "
1388                      then yyQ56(strm', lastMatch)
1389                      else yystuck(lastMatch)
1390                else if inp = #"("
1391                  then yyQ57(strm', lastMatch)
1392                  else yystuck(lastMatch)
1393        (* end case *))        (* end case *))
1394  and yyQ92 (strm, lastMatch) = yyAction35(strm, yyNO_MATCH)  fun yyQ55 (strm, lastMatch) = (case (yygetc(strm))
1395  and yyQ93 (strm, lastMatch) = yyAction45(strm, yyNO_MATCH)         of NONE => yystuck(lastMatch)
 and yyQ94 (strm, lastMatch) = yyAction46(strm, yyNO_MATCH)  
 and yyQ95 (strm, lastMatch) = yyAction47(strm, yyNO_MATCH)  
 and yyQ96 (strm, lastMatch) = yyAction48(strm, yyNO_MATCH)  
 and yyQ97 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yyAction44(strm, yyNO_MATCH)  
1396          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1397              if inp = #"A"              if inp = #"r"
1398                then yyQ97(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))                then yyQ56(strm', lastMatch)
1399              else if inp < #"A"                else yystuck(lastMatch)
               then if inp = #"("  
                   then yyAction44(strm, yyNO_MATCH)  
                 else if inp < #"("  
                   then if inp = #"'"  
                       then yyQ97(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))  
                       else yyAction44(strm, yyNO_MATCH)  
                 else if inp = #"0"  
                   then yyQ97(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))  
                 else if inp < #"0"  
                   then yyAction44(strm, yyNO_MATCH)  
                 else if inp <= #"9"  
                   then yyQ97(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))  
                   else yyAction44(strm, yyNO_MATCH)  
             else if inp = #"`"  
               then yyAction44(strm, yyNO_MATCH)  
             else if inp < #"`"  
               then if inp = #"["  
                   then yyAction44(strm, yyNO_MATCH)  
                 else if inp < #"["  
                   then yyQ97(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))  
                 else if inp = #"_"  
                   then yyQ97(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))  
                   else yyAction44(strm, yyNO_MATCH)  
             else if inp <= #"z"  
               then yyQ97(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))  
               else yyAction44(strm, yyNO_MATCH)  
1400        (* end case *))        (* end case *))
1401  and yyQ98 (strm, lastMatch) = yyAction49(strm, yyNO_MATCH)  fun yyQ54 (strm, lastMatch) = (case (yygetc(strm))
1402  and yyQ99 (strm, lastMatch) = yyAction50(strm, yyNO_MATCH)         of NONE => yystuck(lastMatch)
 and yyQ100 (strm, lastMatch) = yyAction51(strm, yyNO_MATCH)  
 and yyQ101 (strm, lastMatch) = yyAction55(strm, yyNO_MATCH)  
 and yyQ102 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yyAction56(strm, yyNO_MATCH)  
1403          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1404              if inp = #";"              if inp = #"e"
1405                then yyAction56(strm, yyNO_MATCH)                then yyQ55(strm', lastMatch)
1406              else if inp < #";"                else yystuck(lastMatch)
               then if inp = #"#"  
                   then yyQ102(strm', yyMATCH(strm, yyAction56, yyNO_MATCH))  
                 else if inp < #"#"  
                   then if inp = #"\""  
                       then yyAction56(strm, yyNO_MATCH)  
                       else yyQ102(strm', yyMATCH(strm, yyAction56, yyNO_MATCH))  
                 else if inp = #"("  
                   then yyAction56(strm, yyNO_MATCH)  
                 else if inp < #"("  
                   then yyQ102(strm', yyMATCH(strm, yyAction56, yyNO_MATCH))  
                 else if inp <= #")"  
                   then yyAction56(strm, yyNO_MATCH)  
                   else yyQ102(strm', yyMATCH(strm, yyAction56, yyNO_MATCH))  
             else if inp = #"]"  
               then yyQ102(strm', yyMATCH(strm, yyAction56, yyNO_MATCH))  
             else if inp < #"]"  
               then if inp = #"\\"  
                   then yyAction56(strm, yyNO_MATCH)  
                   else yyQ102(strm', yyMATCH(strm, yyAction56, yyNO_MATCH))  
             else if inp <= #"\127"  
               then yyQ102(strm', yyMATCH(strm, yyAction56, yyNO_MATCH))  
               else yyAction56(strm, yyNO_MATCH)  
1407        (* end case *))        (* end case *))
1408  and yyQ103 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ53 (strm, lastMatch) = (case (yygetc(strm))
1409         of NONE => yyAction54(strm, yyNO_MATCH)         of NONE => yystuck(lastMatch)
1410          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1411              if inp = #"#"              if inp = #"d"
1412                then yyAction54(strm, yyNO_MATCH)                then yyQ54(strm', lastMatch)
1413              else if inp < #"#"                else yystuck(lastMatch)
               then if inp = #"\""  
                   then yyQ104(strm', yyMATCH(strm, yyAction54, yyNO_MATCH))  
                   else yyAction54(strm, yyNO_MATCH)  
             else if inp = #"\\"  
               then yyQ105(strm', yyMATCH(strm, yyAction54, yyNO_MATCH))  
               else yyAction54(strm, yyNO_MATCH)  
1414        (* end case *))        (* end case *))
1415  and yyQ104 (strm, lastMatch) = yyAction52(strm, yyNO_MATCH)  fun yyQ52 (strm, lastMatch) = (case (yygetc(strm))
1416  and yyQ105 (strm, lastMatch) = yyAction53(strm, yyNO_MATCH)         of NONE => yystuck(lastMatch)
 and yyQ106 (strm, lastMatch) = (case (yygetc(strm))  
        of NONE => yyAction1(strm, yyNO_MATCH)  
1417          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1418              if inp = #"&"              if inp = #"a"
1419                then yyQ111(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))                then yyQ53(strm', lastMatch)
1420              else if inp < #"&"                else yystuck(lastMatch)
               then if inp = #"%"  
                   then yyQ110(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))  
                   else yyQ111(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))  
             else if inp <= #"\127"  
               then yyQ111(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))  
               else yyAction1(strm, yyNO_MATCH)  
1421        (* end case *))        (* end case *))
1422  and yyQ107 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ51 (strm, lastMatch) = (case (yygetc(strm))
1423         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1424          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1425              if inp = #"&"              if inp = #"e"
1426                then yyQ109(strm', lastMatch)                then yyQ52(strm', lastMatch)
             else if inp < #"&"  
               then if inp = #"%"  
                   then yyQ108(strm', lastMatch)  
                   else yyQ109(strm', lastMatch)  
             else if inp <= #"\127"  
               then yyQ109(strm', lastMatch)  
1427                else yystuck(lastMatch)                else yystuck(lastMatch)
1428        (* end case *))        (* end case *))
1429  and yyQ108 (strm, lastMatch) = yyAction0(strm, yyNO_MATCH)  fun yyQ43 (strm, lastMatch) = (case (yygetc(strm))
1430  and yyQ109 (strm, lastMatch) = (case (yygetc(strm))         of NONE => yystuck(lastMatch)
        of NONE => yyAction1(strm, yyNO_MATCH)  
1431          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1432              if inp = #"&"              if inp = #"g"
1433                then yyQ106(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))                then yystuck(lastMatch)
1434                else if inp < #"g"
1435                  then if inp = #"b"
1436                      then yystuck(lastMatch)
1437                    else if inp < #"b"
1438                      then if inp = #"&"
1439                          then yystuck(lastMatch)
1440              else if inp < #"&"              else if inp < #"&"
1441                then if inp = #"%"                then if inp = #"%"
1442                    then yyQ110(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))                            then yyQ44(strm', lastMatch)
1443                    else yyQ106(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))                            else yystuck(lastMatch)
1444              else if inp <= #"\127"                      else if inp = #"a"
1445                then yyQ106(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))                        then yyQ50(strm', lastMatch)
1446                else yyAction1(strm, yyNO_MATCH)                        else yystuck(lastMatch)
1447                    else if inp = #"d"
1448                      then yystuck(lastMatch)
1449                    else if inp < #"d"
1450                      then yyQ49(strm', lastMatch)
1451                    else if inp = #"f"
1452                      then yyQ46(strm', lastMatch)
1453                      else yystuck(lastMatch)
1454                else if inp = #"s"
1455                  then yyQ45(strm', lastMatch)
1456                else if inp < #"s"
1457                  then if inp = #"i"
1458                      then yystuck(lastMatch)
1459                    else if inp < #"i"
1460                      then yyQ51(strm', lastMatch)
1461                    else if inp = #"r"
1462                      then yyQ48(strm', lastMatch)
1463                      else yystuck(lastMatch)
1464                else if inp = #"u"
1465                  then yyQ47(strm', lastMatch)
1466                  else yystuck(lastMatch)
1467          (* end case *))
1468    fun yyQ1 (strm, lastMatch) = (case (yygetc(strm))
1469           of NONE =>
1470                if yyInput.eof(strm)
1471                  then UserDeclarations.eof(yyarg)
1472                  else yystuck(lastMatch)
1473            | SOME(inp, strm') =>
1474                if inp = #"%"
1475                  then yyQ43(strm', lastMatch)
1476                else if inp < #"%"
1477                  then if inp = #"\r"
1478                      then yyQ40(strm', lastMatch)
1479                    else if inp < #"\r"
1480                      then if inp = #"\t"
1481                          then yyQ40(strm', lastMatch)
1482                        else if inp < #"\t"
1483                          then if yyInput.eof(strm)
1484                              then UserDeclarations.eof(yyarg)
1485                              else yystuck(lastMatch)
1486                        else if inp <= #"\n"
1487                          then yyQ40(strm', lastMatch)
1488                        else if yyInput.eof(strm)
1489                          then UserDeclarations.eof(yyarg)
1490                          else yystuck(lastMatch)
1491                    else if inp = #" "
1492                      then yyQ40(strm', lastMatch)
1493                    else if yyInput.eof(strm)
1494                      then UserDeclarations.eof(yyarg)
1495                      else yystuck(lastMatch)
1496                else if inp = #"A"
1497                  then yyQ42(strm', lastMatch)
1498                else if inp < #"A"
1499                  then if inp = #"="
1500                      then yyQ41(strm', lastMatch)
1501                    else if yyInput.eof(strm)
1502                      then UserDeclarations.eof(yyarg)
1503                      else yystuck(lastMatch)
1504                else if inp = #"a"
1505                  then yyQ42(strm', lastMatch)
1506                else if inp < #"a"
1507                  then if inp <= #"Z"
1508                      then yyQ42(strm', lastMatch)
1509                    else if yyInput.eof(strm)
1510                      then UserDeclarations.eof(yyarg)
1511                      else yystuck(lastMatch)
1512                else if inp <= #"z"
1513                  then yyQ42(strm', lastMatch)
1514                else if yyInput.eof(strm)
1515                  then UserDeclarations.eof(yyarg)
1516                  else yystuck(lastMatch)
1517        (* end case *))        (* end case *))
1518  and yyQ110 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ8 (strm, lastMatch) = yyAction14(strm, yyNO_MATCH)
1519    fun yyQ9 (strm, lastMatch) = yyAction14(strm, yyNO_MATCH)
1520    fun yyQ10 (strm, lastMatch) = yyAction15(strm, yyNO_MATCH)
1521    fun yyQ11 (strm, lastMatch) = yyAction16(strm, yyNO_MATCH)
1522    fun yyQ12 (strm, lastMatch) = yyAction17(strm, yyNO_MATCH)
1523    fun yyQ13 (strm, lastMatch) = yyAction18(strm, yyNO_MATCH)
1524    fun yyQ14 (strm, lastMatch) = yyAction19(strm, yyNO_MATCH)
1525    fun yyQ15 (strm, lastMatch) = yyAction20(strm, yyNO_MATCH)
1526    fun yyQ16 (strm, lastMatch) = yyAction21(strm, yyNO_MATCH)
1527    fun yyQ17 (strm, lastMatch) = yyAction22(strm, yyNO_MATCH)
1528    fun yyQ18 (strm, lastMatch) = yyAction23(strm, yyNO_MATCH)
1529    fun yyQ19 (strm, lastMatch) = yyAction24(strm, yyNO_MATCH)
1530    fun yyQ20 (strm, lastMatch) = yyAction25(strm, yyNO_MATCH)
1531    fun yyQ21 (strm, lastMatch) = yyAction26(strm, yyNO_MATCH)
1532    fun yyQ22 (strm, lastMatch) = yyAction27(strm, yyNO_MATCH)
1533    fun yyQ23 (strm, lastMatch) = yyAction28(strm, yyNO_MATCH)
1534    fun yyQ24 (strm, lastMatch) = yyAction30(strm, yyNO_MATCH)
1535    fun yyQ29 (strm, lastMatch) = yyAction29(strm, yyNO_MATCH)
1536    fun yyQ28 (strm, lastMatch) = (case (yygetc(strm))
1537         of NONE => yystuck(lastMatch)         of NONE => yystuck(lastMatch)
1538          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1539              if inp = #"&"              if inp = #"\^N"
               then yyQ109(strm', lastMatch)  
             else if inp < #"&"  
               then if inp = #"%"  
1540                    then yystuck(lastMatch)                    then yystuck(lastMatch)
1541                    else yyQ109(strm', lastMatch)              else if inp < #"\^N"
1542              else if inp <= #"\127"                then if inp = #"\v"
1543                then yyQ109(strm', lastMatch)                    then yystuck(lastMatch)
1544                    else if inp < #"\v"
1545                      then if inp <= #"\b"
1546                          then yystuck(lastMatch)
1547                          else yyQ28(strm', lastMatch)
1548                    else if inp = #"\r"
1549                      then yyQ28(strm', lastMatch)
1550                      else yystuck(lastMatch)
1551                else if inp = #"!"
1552                  then yystuck(lastMatch)
1553                else if inp < #"!"
1554                  then if inp = #" "
1555                      then yyQ28(strm', lastMatch)
1556                      else yystuck(lastMatch)
1557                else if inp = #"("
1558                  then yyQ29(strm', lastMatch)
1559                else yystuck(lastMatch)                else yystuck(lastMatch)
1560        (* end case *))        (* end case *))
1561  and yyQ111 (strm, lastMatch) = (case (yygetc(strm))  fun yyQ27 (strm, lastMatch) = (case (yygetc(strm))
1562         of NONE => yyAction1(strm, yyNO_MATCH)         of NONE => yyAction44(strm, yyNO_MATCH)
1563          | SOME(inp, strm') =>          | SOME(inp, strm') =>
1564              if inp = #"&"              if inp = #">"
1565                then yyQ111(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))                then yyQ28(strm', yyMATCH(strm, yyAction44, yyNO_MATCH))
1566              else if inp < #"&"                else yyAction44(strm, yyNO_MATCH)
1567                then if inp = #"%"        (* end case *))
1568                    then yyQ110(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))  fun yyQ0 (strm, lastMatch) = (case (yygetc(strm))
1569                    else yyQ111(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))         of NONE =>
1570                if yyInput.eof(strm)
1571                  then UserDeclarations.eof(yyarg)
1572                  else yystuck(lastMatch)
1573            | SOME(inp, strm') =>
1574                if inp = #","
1575                  then yyQ25(strm', lastMatch)
1576                else if inp < #","
1577                  then if inp = #"\""
1578                      then yyQ20(strm', lastMatch)
1579                    else if inp < #"\""
1580                      then if inp = #"\r"
1581                          then yyQ8(strm', lastMatch)
1582                        else if inp < #"\r"
1583                          then if inp = #"\n"
1584                              then yyQ9(strm', lastMatch)
1585                            else if inp < #"\n"
1586                              then if inp = #"\t"
1587                                  then yyQ8(strm', lastMatch)
1588                                  else yyQ25(strm', lastMatch)
1589                              else yyQ25(strm', lastMatch)
1590                        else if inp = #" "
1591                          then yyQ8(strm', lastMatch)
1592                          else yyQ25(strm', lastMatch)
1593                    else if inp = #"("
1594                      then yyQ14(strm', lastMatch)
1595                    else if inp < #"("
1596                      then if inp = #"$"
1597                          then yyQ16(strm', lastMatch)
1598                          else yyQ25(strm', lastMatch)
1599                    else if inp = #"*"
1600                      then yyQ11(strm', lastMatch)
1601                    else if inp = #")"
1602                      then yyQ15(strm', lastMatch)
1603                      else yyQ12(strm', lastMatch)
1604                else if inp = #"?"
1605                  then yyQ10(strm', lastMatch)
1606                else if inp < #"?"
1607                  then if inp = #";"
1608                      then yyQ24(strm', lastMatch)
1609                    else if inp < #";"
1610                      then if inp = #"/"
1611                          then yyQ17(strm', lastMatch)
1612                        else if inp < #"/"
1613                          then if inp = #"."
1614                              then yyQ18(strm', lastMatch)
1615                              else yyQ25(strm', lastMatch)
1616                          else yyQ25(strm', lastMatch)
1617                    else if inp = #"="
1618                      then yyQ27(strm', lastMatch)
1619                    else if inp = #"<"
1620                      then yyQ22(strm', lastMatch)
1621                      else yyQ23(strm', lastMatch)
1622                else if inp = #"{"
1623                  then yyQ19(strm', lastMatch)
1624                else if inp < #"{"
1625                  then if inp = #"\\"
1626                      then yyQ26(strm', lastMatch)
1627                    else if inp < #"\\"
1628                      then if inp = #"["
1629                          then yyQ21(strm', lastMatch)
1630                          else yyQ25(strm', lastMatch)
1631                      else yyQ25(strm', lastMatch)
1632                else if inp = #"}"
1633                  then yyQ25(strm', lastMatch)
1634                else if inp < #"}"
1635                  then yyQ13(strm', lastMatch)
1636              else if inp <= #"\127"              else if inp <= #"\127"
1637                then yyQ111(strm', yyMATCH(strm, yyAction1, yyNO_MATCH))                then yyQ25(strm', lastMatch)
1638                else yyAction1(strm, yyNO_MATCH)              else if yyInput.eof(strm)
1639                  then UserDeclarations.eof(yyarg)
1640                  else yystuck(lastMatch)
1641        (* end case *))        (* end case *))
1642  in  in
1643    (case (!(yyss))    (case (!(yyss))

Legend:
Removed from v.1911  
changed lines
  Added in v.1912

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0