colm/prog.lm


1
2
3
4
5
6
7
8
9
10
11
12
13

include 'colm.lm'

export ColmTree: start
export ColmError: str

A: str = argv->pop()
F: stream = open( A, 'r' )
parse P: start [ F ]

ColmTree = P
ColmError = error