Mercurial > repos > tabletprog
view modules/compiler.tp @ 339:74cab9b5f2a4
Added parseFloat64 and parseFloat32 along with a sample that exercises number parsing from a string
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 04 Apr 2015 12:34:43 -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" } } }