blob: 32fcd3c92828b61b7af15e9b8d6996d2701832cd (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
fun main [fname] =
let
val stream = Stream.streamInit fname
val (tkl, fileList) = Tokenizer.tokenize stream []
in
List.app
(fn (p, x) => (Stream.printPos fileList p; Tokenizer.printToken x)) tkl
end
| main _ = printLn "Expected a signle argument: file name"
val () = main $ CommandLine.arguments ()
|
