Mercurial > repos > tabletprog
view modules/compiler.tp @ 280:23b52d2d05a0
Don't try to replace self in a macro expansion since it's unlikely to be the desired behavior. A more explicit means of specifying what variables should be replaced in a quote expression is needed.
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 21 Jul 2014 19:30:23 -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" } } }