view samples/file.tp @ 306:8dbb2d2522a5

Fix a crash in from:withLength when given a negative length. Fix a bug in trim that was causing it to give a negative length to from:withLength
author Michael Pavone <pavone@retrodev.com>
date Sun, 27 Jul 2014 13:01:08 -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
	}
}