Changeset 510 for trunk/thune/make.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/make.c (modified) (1 diff)

trunk/thune/make.c

@@ -1582 +1582 @@
                         n = ur_stringToInt( spA, spB, 0 );
                     }
+                }
+            }
+            else if( ur_binarySlice(ut, tos, &spA, &spB) )
+            {
+                if( (spB - spA) > 3 )
+                {
+                    // Load 32-bit big-endian number.
+                    uint8_t* bp = (uint8_t*) spA;
+                    n = (bp[0] << 24) | (bp[1] << 16) |
+                        (bp[2] <<  8) | bp[3];
                 }
             }