Mercurial > repos > tabletprog
view modules/compiler.tp @ 351:04ba2118c5fe
Rename (dict hash) size to (dict hash) length and make it actually work
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 13 Apr 2015 22:41:00 -0700 |
parents | 004946743678 |
children |
line wrap: on
line source
#{ main <- :args { if: (args length) > 1 { file <- os open: (args get: 1) (os O_RDONLY) code <- "" chunksize <- 1024 readsize <- chunksize while: { readsize = chunksize} do: { seg <- os read: file chunksize code <- code . seg readsize <- seg byte_length } res <- parser top: code if: res { methods <- symbols buildMethodTable: (res yield) print: methods } else: { print: "Parse failed!\n" } } else: { print: "Usage compiler FILE\n" } } }