summaryrefslogtreecommitdiff
path: root/src/SemanticMain.hs
blob: c07fc8c70496ab0ae905f62f029312f89fe83387 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
import System.Environment( getArgs )
import Text.Printf
import Library.Parse
import Library.Semantic



main = do
    args <- getArgs
    list <- getLines (head args)
    let result = doSemanticCheck (map (stripReturn) list)
    printf result