Mercurial > libguess
comparison guess.scm @ 3:70e2c306231e
- implemented dfa utility functions.
- added dfa.c.
- rewrote guess functions for ar, gr, hw and tr scripts with dfa utilities.
- guess functions for cjk scripts too.
author | Yoshiki Yazawa <yaz@cc.rim.or.jp> |
---|---|
date | Thu, 12 Jun 2008 20:20:43 +0900 |
parents | 754a4550c64e |
children |
comparison
equal
deleted
inserted
replaced
2:754a4550c64e | 3:70e2c306231e |
---|---|
154 (error "usage: ~a <outout-file.c>" (car args))) | 154 (error "usage: ~a <outout-file.c>" (car args))) |
155 (with-output-to-file (cadr args) | 155 (with-output-to-file (cadr args) |
156 (lambda () | 156 (lambda () |
157 (print "/* State transition table for character code guessing */") | 157 (print "/* State transition table for character code guessing */") |
158 (print "/* This file is automatically generated by guess.scm */") | 158 (print "/* This file is automatically generated by guess.scm */") |
159 (print "") | |
160 (print "#include \"dfa.h\"") | |
159 (newline) | 161 (newline) |
160 (for-each emit-dfa-table (all-dfas)))) | 162 (for-each emit-dfa-table (all-dfas)))) |
161 0) | 163 0) |
162 | 164 |
163 ;;;============================================================ | 165 ;;;============================================================ |