|
|
@@ -1,8 +1,6 @@
|
|
|
lexique logoPlayer_lexique {
|
|
|
|
|
|
-#———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
|
|
|
-# Identifiers and keywords *
|
|
|
-#———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
|
|
|
+# Identifiers and keywords
|
|
|
|
|
|
@string tokenString
|
|
|
|
|
|
@@ -12,8 +10,16 @@ $identifier$ ! tokenString error message "an identifier"
|
|
|
|
|
|
#--- This is the keyword list
|
|
|
list keyWordList style keywordsStyle error message "the '%K' keyword" {
|
|
|
- "begin",
|
|
|
- "end"
|
|
|
+ "PROGRAM",
|
|
|
+ "ROUTIN",
|
|
|
+ "BEGIN",
|
|
|
+ "END",
|
|
|
+ "FORWARD",
|
|
|
+ "ROTATE",
|
|
|
+ "PEN",
|
|
|
+ "UP",
|
|
|
+ "DOWN",
|
|
|
+ "CALL"
|
|
|
}
|
|
|
|
|
|
rule 'a'->'z' | 'A'->'Z' {
|
|
|
@@ -24,9 +30,7 @@ rule 'a'->'z' | 'A'->'Z' {
|
|
|
send search tokenString in keyWordList default $identifier$
|
|
|
}
|
|
|
|
|
|
-#———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
|
|
|
-# Literal decimal integers *
|
|
|
-#———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
|
|
|
+# Literal decimal integers
|
|
|
|
|
|
style integerStyle -> "Integer Constants"
|
|
|
@uint uint32value
|
|
|
@@ -46,9 +50,7 @@ rule '0'->'9' {
|
|
|
send $integer$
|
|
|
}
|
|
|
|
|
|
-#———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
|
|
|
-# Literal character strings *
|
|
|
-#———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
|
|
|
+# Literal character strings
|
|
|
|
|
|
style stringStyle -> "String Constants"
|
|
|
$"string"$ ! tokenString style stringStyle %nonAtomicSelection error message "a character string constant \"...\""
|
|
|
@@ -69,9 +71,7 @@ rule '"' {
|
|
|
end
|
|
|
}
|
|
|
|
|
|
-#———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
|
|
|
-# Delimiters *
|
|
|
-#———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
|
|
|
+# Delimiters
|
|
|
|
|
|
style delimitersStyle -> "Delimiters"
|
|
|
list delimitorsList style delimitersStyle error message "the '%K' delimitor" {
|
|
|
@@ -80,9 +80,7 @@ list delimitorsList style delimitersStyle error message "the '%K' delimitor" {
|
|
|
|
|
|
rule list delimitorsList
|
|
|
|
|
|
-#———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
|
|
|
-# Comments *
|
|
|
-#———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
|
|
|
+# Comments
|
|
|
|
|
|
style commentStyle -> "Comments"
|
|
|
$comment$ style commentStyle %nonAtomicSelection error message "a comment"
|
|
|
@@ -93,14 +91,11 @@ rule '#' {
|
|
|
drop $comment$
|
|
|
}
|
|
|
|
|
|
-#———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
|
|
|
-# Separators *
|
|
|
-#———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
|
|
|
+# Separators
|
|
|
|
|
|
rule '\u0001' -> ' ' {
|
|
|
}
|
|
|
|
|
|
-#———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
|
|
|
-
|
|
|
}
|
|
|
|
|
|
+
|
