# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1388816014 28800
# Node ID c463a891ccd3d577b2c7095d61352d1ef316e47f
# Parent  cc1260872322159efe7161014b46843d43e64d6e
Support reading files larger than 1024 bytes in parser module

diff -r cc1260872322 -r c463a891ccd3 modules/parser.tp
--- a/modules/parser.tp	Fri Jan 03 19:25:40 2014 -0800
+++ b/modules/parser.tp	Fri Jan 03 22:13:34 2014 -0800
@@ -970,7 +970,14 @@
 		code <- "#{ foo <- 123 > 0x42 && 42 < 104\n bar <- 0xABC + 0b1010101\n baz <- 0b1010 * 5\n qux <- fo: 38 shizzle: bam\n quine <- 123 | [4 5 6 fiddle sticks]\n quizzle <- #[receiver meth: arg]\n blah <- :arg arg2 :arg3 { arg + arg2 + arg3 }}"
 		if: (args length) > 1 {
 			file <- os open: (args get: 1) (os O_RDONLY)
-			code <- os read: file 1024
+			code <- ""
+			chunksize <- 1024
+			readsize <- chunksize
+			while: { readsize = chunksize} do: {
+				seg <- os read: file chunksize
+				code <- code . seg
+				readsize <- seg byte_length
+			}
 		}
 		codem <- top: code
 		if: (codem matched?) {