Mercurial > repos > tabletprog
diff samples/file.tp @ 297:abe3141caefe
Added file module and sample
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Thu, 24 Jul 2014 23:53:54 -0700 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/samples/file.tp Thu Jul 24 23:53:54 2014 -0700 @@ -0,0 +1,18 @@ +#{ + import: [ + stdin + stdout + ] from: file + main <- { + stdout write: "Hello from the file module!\nWhat's your name?\n" + name <- (stdin nextLine) trim + stdout write: "Nice to meet you " . name . ". Here's my source code:\n\n" + f <- file open: "samples/file.tp" + foreach: (f lines) :num text { + print: (string: num+1) . ": " . text + } + print: "\n" + f close + 0 + } +}