Mercurial > repos > tabletprog
view 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 source
#{ 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 } }