add extra:syntax.terse, for bitwise ops. Addresses #2641.

[factor.git] / misc / fuel / strange-syntax.factor

diff --git a/misc/fuel/strange-syntax.factor b/misc/fuel/strange-syntax.factor
index 82014c99c513069e5c366459cdd5ee597df8afca..ee05308e74350298beee33aed9248b4e80945561 100644 (file)
--- a/misc/fuel/strange-syntax.factor
+++ b/misc/fuel/strange-syntax.factor
@@ -1,5 +1,5 @@
-USING: accessors alien.c-types alien.syntax byte-arrays.hex kernel
-literals logging math ;
+USING: accessors alien.c-types alien.syntax classes.struct
+colors kernel literals logging math ;
 IN: strange
 
 ! FUEL Syntax Demo
@@ -76,6 +76,7 @@ ID-SYNTAX ID-SYNTAX
 
 ! ! Numbers
 { -55 -0x10 100,00 1,000,000 0x2000,0000 0b01 } drop
+{ -0x100_000 100_00 1_000_000 0x2000_0000 0b0_1 } drop
 
 ! ! Containers
 V{ 1 2 3 } drop
@@ -83,10 +84,23 @@ HS{ 9 8 3 } drop
 
 flags{ 10 20 } drop
 
-! TODO: Highlight contents too.
-HEX{ ab cd ef } drop
-
 ! ! Alien functions
-FUNCTION: int futimes ( int id, timeval[2] times )
+STRUCT: timeval
+    { sec long }
+    { usec long } ;
+
+FUNCTION: int futimes ( int id,
+                        timeval[2] times,
+                        int x,
+                        int y )
 FUNCTION: int booyah ( int x )
 FUNCTION-ALIAS: test int bah ( int* ah, int[] eh )
+
+COLOR: #ffffff COLOR: green NAN: 1234 CHAR: m ALIEN: 93
+2drop 2drop drop
+
+PRIMITIVE: one ( a -- b )
+PRIMITIVE: two ( c -- d )
+
+: `word ( -- ) ;
+: word ( -- ) ; ! this isn't strange, just for contrast with the above