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
	}
}