SCM Repository
Diff of /sml/branches/SMLNJ/src/ml-yacc/src/yacc.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 501, Tue Dec 7 15:59:36 1999 UTC | revision 502, Tue Dec 7 17:56:19 1999 UTC | |
|---|---|---|
| # | Line 1 | Line 1 |
| 1 | (* ML-Yacc Parser Generator (c) 1989, 1990 Andrew W. Appel, David R. Tarditi | (* ML-Yacc Parser Generator (c) 1989, 1990 Andrew W. Appel, David R. Tarditi |
| 2 | * | * |
| 3 | * $Log$ | * $Log$ |
| 4 | * Revision 1.1.1.11 1999/12/07 15:40:30 monnier | * Revision 1.1.1.12 1999/12/07 17:56:19 monnier |
| 5 | * version 110.25 | * version 110.25.1 |
| 6 | * | |
| 7 | * Revision 1.3 1999/12/07 14:24:18 george | |
| 8 | * *** empty log message *** | |
| 9 | * | |
| 10 | * Revision 1.2 1999/12/02 17:26:11 george | |
| 11 | * *** empty log message *** | |
| 12 | * | * |
| 13 | * Revision 1.1.1.1 1999/07/15 17:52:56 george | * Revision 1.1.1.1 1999/07/15 17:52:56 george |
| 14 | * Version 110.20 | * Version 110.20 |
| # | Line 241 | Line 247 |
| 247 | ||
| 248 | ||
| 249 | fun printChange () = | fun printChange () = |
| 250 | (sayln "val preferred_change = "; | (sayln "val preferred_change : (term list * term list) list = "; |
| 251 | app (fn (d,i) => | app (fn (d,i) => |
| 252 | (say"("; printTermList d; say ","; printTermList i; | (say"("; printTermList d; say ","; printTermList i; |
| 253 | sayln ")::" | sayln ")::" |
| # | Line 300 | Line 306 |
| 306 | printBoolCase noshift; | printBoolCase noshift; |
| 307 | printNames (); | printNames (); |
| 308 | printErrValues value; | printErrValues value; |
| 309 | say "val terms = "; | say "val terms : term list = "; |
| 310 | printTermList ecTerms; | printTermList ecTerms; |
| 311 | sayln "end" | sayln "end" |
| 312 | end | end |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
