50 lines
826 B
Factor
50 lines
826 B
Factor
|
! FUEL Syntax Demo
|
||
|
|
!
|
||
|
|
! The purpose of this file is to test that corner cases are
|
||
|
|
! highlighted correctly by FUEL. So if you change something in the
|
||
|
|
! syntax highlighting and it breaks, things will be badly hightlighted
|
||
|
|
! here.
|
||
|
|
USING: alien.syntax help.syntax math ;
|
||
|
|
IN: strange-syntax
|
||
|
|
|
||
|
|
TUPLE: a-tuple slot1 slot2 { slot3 integer } ;
|
||
|
|
TUPLE: second-one ;
|
||
|
|
|
||
|
|
USING: tools.test ;
|
||
|
|
|
||
|
|
! ! Symbol names
|
||
|
|
|
||
|
|
! All slashes are symbol constituents.
|
||
|
|
: hack/slash ( -- x ) 10 ;
|
||
|
|
|
||
|
|
: slash\hack ( -- y ) 20 ;
|
||
|
|
|
||
|
|
! As are quotes
|
||
|
|
: don't-do-that ( x -- y ) ;
|
||
|
|
|
||
|
|
! Double quotes aren't right yet.
|
||
|
|
! : do-"that" ( x -- y ) ;
|
||
|
|
|
||
|
|
! ! C-TYPE
|
||
|
|
C-TYPE: cairo_snurface_t
|
||
|
|
|
||
|
|
! ! CHAR
|
||
|
|
: stuff-with-chars ( -- K \n )
|
||
|
|
CHAR: K
|
||
|
|
CHAR: \n ;
|
||
|
|
|
||
|
|
! ! MAIN
|
||
|
|
: majn ( -- ) ;
|
||
|
|
|
||
|
|
MAIN: majn
|
||
|
|
|
||
|
|
! ! SLOT
|
||
|
|
SLOT: komba
|
||
|
|
|
||
|
|
! ! SYNTAX
|
||
|
|
<<
|
||
|
|
SYNTAX: ID-SYNTAX ;
|
||
|
|
>>
|
||
|
|
|
||
|
|
ID-SYNTAX ID-SYNTAX
|