Changeset 510 for trunk/thune/files.c

Timestamp:

02/10/08 23:53:46 (9 months ago)

Author:

krobillard

Message:

'loop is now an opcode and can act as loop.to for integers.
File port! read now handles optional limit.
console.out now handles binary!.
Can now 'make an int! from first 4 bytes of a binary!
Added ur_initDecimal macro.
Added 'fcalc.
Removed word inc/dec.

Files:

• trunk/thune/files.c (modified) (3 diffs)

trunk/thune/files.c

@@ -317 +317 @@
         UPortDevice* dev = _devicePtr( ut, ur_s_prev(tos) );
         if( dev )
-            dev->read( ut, tos /*, part*/ );
+            dev->read( ut, tos, part );
         return;
     }
@@ -1099 +1099 @@
 
 
-// (port buf len -- port buf)
-UR_CALL( _fileRead )
+// (port buf -- port buf)
+void _fileRead( UThread* ut, UCell* tos, int part )
 {
     UBlock* blk;
@@ -1122 +1122 @@
 
 
-        len = READ_BUF_SIZE;
+        len = part ? part : READ_BUF_SIZE;
 
         if( ur_is(tos, UT_BINARY) || ur_is(tos, UT_STRING) )