| [ << ] | [ < ] | [ Up ] | [ > ] | [ >> ] | [Top] | [Contents] | [Index] | [ ? ] |
11.5.1 Word count
The first example presents a grammar that simulates the Unix program wc.
(let ((*char* 0)
(*word* 0)
(*line* 0))
(regular-grammar ()
((+ #\Newline)
(set! *char* (+ *char* (the-length)))
(set! *line* (+ *line* (the-length)))
(ignore))
((+ (in #\space #\tab))
(set! *char* (+ *char* (the-length)))
(ignore))
((+ (out #\newline #\space #\tab))
(set! *char* (+ *char* (the-length)))
(set! *word* (+ 1 *word*))
(ignore))))
This document was generated on March 31, 2014 using texi2html 5.0.