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