pavone@252: #{
pavone@252: 	main <- :args {
pavone@252: 		if: (args length) > 1 {
pavone@252: 			file <- os open: (args get: 1) (os O_RDONLY)
pavone@252: 
pavone@252: 			code <- ""
pavone@252: 			chunksize <- 1024
pavone@252: 			readsize <- chunksize
pavone@252: 			while: { readsize = chunksize} do: {
pavone@252: 				seg <- os read: file chunksize
pavone@252: 				code <- code . seg
pavone@252: 				readsize <- seg byte_length
pavone@252: 			}
pavone@252: 			res <- parser top: code
pavone@252: 			if: res {
pavone@252: 				methods <- symbols buildMethodTable: (res yield)
pavone@252: 				print: methods
pavone@252: 			} else: {
pavone@252: 				print: "Parse failed!\n"
pavone@252: 			}
pavone@252: 		} else: {
pavone@252: 			print: "Usage compiler FILE\n"
pavone@252: 		}
pavone@252: 	}
pavone@252: }