Mercurial > repos > tabletprog
view modules/compiler.tp @ 336:2a0463c46913
Add hash method to float types and make hash always return a 32-bit int
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Fri, 03 Apr 2015 23:07:06 -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" } } }