blob: e2ffc2c287db6dd137206be9c603bae54d553dfc (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
fun main [fname] =
let
val stream = Stream.streamInit fname
val tkl = Tokenizer.tokenize stream
val fileInfo = Stream.convert stream
in
Tokenizer.printTokens tkl (#2 fileInfo)
end
| main _ = printLn "Expected a signle argument: file name"
val () = main $ CommandLine.arguments ()
|
