view samples/file.tp @ 370:57d78a0af132

Add code to socket module to allow listening for incoming connections
author Michael Pavone <pavone@retrodev.com>
date Wed, 12 Aug 2015 19:13:31 -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
	}
}