From 4c8a1b79dc52adfdd48d9323ce6d1b71025ab4c0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Mon, 23 May 2016 02:17:27 +0200
Subject: [PATCH] FUEL: syntax debugging file

This file is intended to contain lots of weird syntax. So if you change
something in FUEL, you can open the file to verify it still syntax
highlights correctly.
---
 misc/fuel/strange-syntax.factor | 49 +++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 misc/fuel/strange-syntax.factor

diff --git a/misc/fuel/strange-syntax.factor b/misc/fuel/strange-syntax.factor
new file mode 100644
index 0000000000..7bf266282b
--- /dev/null
+++ b/misc/fuel/strange-syntax.factor
@@ -0,0 +1,49 @@
+! 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