view samples/file.tp @ 347:ff7ea11b4b60

Add length method to executable bytearrays
author Michael Pavone <pavone@retrodev.com>
date Fri, 10 Apr 2015 00:48:12 -0700
parents abe3141caefe
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
	}
}