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 7a13ffd681fdb40b50046aa7d10e893137b4183d..ee05308e74350298beee33aed9248b4e80945561 100644 (file)
--- a/misc/fuel/strange-syntax.factor
+++ b/misc/fuel/strange-syntax.factor
@@ -1,8 +1,7 @@
-USING: accessors ;
+USING: accessors alien.c-types alien.syntax classes.struct
+colors kernel literals logging math ;
 IN: strange
 
-TUPLE: oh\no { and/again initial: "meh" } ;
-
 ! FUEL Syntax Demo
 !
 ! The purpose of this file is to test that corner cases are
@@ -12,11 +11,12 @@ TUPLE: oh\no { and/again initial: "meh" } ;
 USING: alien.syntax kernel math ;
 IN: strange-syntax
 
-TUPLE: a-tuple slot1 slot2 { slot3 integer } ;
+TUPLE: a-tuple slot1 slot2 { slot3 integer } { slot4 initial: "hi" } ;
   TUPLE: second-one ;
 
     USING: tools.test ;
 
+TUPLE: initial-array { slot2 initial: { 123 } } slot3 ;
 
 ! ! Strings
 "containing \"escapes" drop
@@ -37,6 +37,10 @@ TUPLE: tup
 : slash\hack ( m -- y )
     get\it>> dup >>get\it ;
 
+: very-weird[33] ( -- ) ;
+
+LOG: what NOTICE
+
 TUPLE: oh\no { and/again initial: "meh" } ;
 
 ! As are quotes
@@ -51,7 +55,9 @@ C-TYPE: cairo_snurface_t
 ! ! CHAR
 : stuff-with-chars ( -- K \n )
     CHAR: K
-    CHAR: \n ;
+    CHAR: \n
+    CHAR: \"        ! <- \" should be highlighted
+    drop ;
 
 ! ! MAIN
 : majn ( -- ) ;
@@ -70,7 +76,31 @@ 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
 HS{ 9 8 3 } drop
+
+flags{ 10 20 } drop
+
+! ! Alien functions
+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