1 USING: accessors alien.c-types alien.syntax byte-arrays.hex
2 classes.struct colors.constants colors.hex kernel literals logging
8 ! The purpose of this file is to test that corner cases are
9 ! highlighted correctly by FUEL. So if you change something in the
10 ! syntax highlighting and it breaks, things will be badly hightlighted
12 USING: alien.syntax kernel math ;
15 TUPLE: a-tuple slot1 slot2 { slot3 integer } { slot4 initial: "hi" } ;
20 TUPLE: initial-array { slot2 initial: { 123 } } slot3 ;
23 "containing \"escapes" drop
33 ! All slashes are symbol constituents.
34 : hack/slash ( t -- x ) ko>> ;
36 : um ( x y -- ) get\it<< ;
38 : slash\hack ( m -- y )
39 get\it>> dup >>get\it ;
41 : very-weird[33] ( -- ) ;
45 TUPLE: oh\no { and/again initial: "meh" } ;
48 : don't-do-that ( x -- y ) ;
50 ! Double quotes aren't right yet.
51 ! : do-"that" ( x -- y ) ;
54 C-TYPE: cairo_snurface_t
57 : stuff-with-chars ( -- K \n )
60 CHAR: \" ! <- \" should be highlighted
79 { -55 -0x10 100,00 1,000,000 0x2000,0000 0b01 } drop
87 ! TODO: Highlight contents too.
95 FUNCTION: int futimes ( int id, timeval[2] times )
96 FUNCTION: int booyah ( int x )
97 FUNCTION-ALIAS: test int bah ( int* ah, int[] eh )
99 HEXCOLOR: ffffff COLOR: green NAN: 1234 CHAR: m ALIEN: 93