view samples/http.tp @ 245:3590ecca6bc9

Fix handling of unescaped tabs in string literals in new parser
author Mike Pavone <pavone@retrodev.com>
date Mon, 06 Jan 2014 01:03:18 -0800
parents 55e0dca7d3d7
children
line wrap: on
line source
#{
	main <- :args {
		server <- "rhope.retrodev.com"
		if: (args length) > 1 {
			server <- args get: 1
		}
		cli <- http client: server
		resp <- (cli get: "/")
		print: "Status: " . (resp status) . "\n"
		print: "Code: " . (resp statusCode) . "\n"
		print: "Headers:\n"
		foreach: (resp headers) :key val {
			print: key . " -> " . val . "\n"
		}
		print: "Body:\n" . (resp body) . "\n"
	}
}