play around with Scintilla and Lexilla

3rdparty/lexilla532/lexilla/test/examples/r/102Backticks.r

@@ -0,0 +1,10 @@
+# ugly code to demonstrate multiline string.
+`Hello
+World` <- function(x, y, z) {
+	print(x);
+	print(y);
+	print(z);
+}
+`Hello\nWorld`("Hello\nMoon!", "Hello
+Venus", 'Hello\
+Mars');

3rdparty/lexilla532/lexilla/test/examples/r/102Backticks.r.folded

@@ -0,0 +1,11 @@
+ 0 400 400   # ugly code to demonstrate multiline string.
+ 0 400 400   `Hello
+ 2 400 401 + World` <- function(x, y, z) {
+ 0 401 401 | 	print(x);
+ 0 401 401 | 	print(y);
+ 0 401 401 | 	print(z);
+ 0 401 400 | }
+ 0 400 400   `Hello\nWorld`("Hello\nMoon!", "Hello
+ 0 400 400   Venus", 'Hello\
+ 0 400 400   Mars');
+ 0 400   0   

3rdparty/lexilla532/lexilla/test/examples/r/102Backticks.r.styled

@@ -0,0 +1,10 @@
+{1}# ugly code to demonstrate multiline string.{0}
+{12}`Hello
+World`{0} {8}<-{0} {9}function{8}({9}x{0}, {9}y{0}, {9}z{8}){0} {8}{{0}
+	{9}print{8}({9}x{8}){0};
+	{9}print{8}({9}y{8}){0};
+	{9}print{8}({9}z{8}){0};
+{8}}{0}
+{12}`Hello\nWorld`{8}({6}"Hello\nMoon!"{0}, {6}"Hello
+Venus"{0}, {7}'Hello\
+Mars'{8}){0};

3rdparty/lexilla532/lexilla/test/examples/r/AllStyles.r

@@ -0,0 +1,51 @@
+# https://cran.r-project.org/doc/manuals/r-release/R-lang.html#Reserved-words
+if
+
+# base keyword (3)
+abbreviate
+
+# other keyword (4)
+acme
+
+# infix operator
+# https://cran.r-project.org/doc/manuals/r-release/R-lang.html#Special-operators
+%x%
+
+# https://cran.r-project.org/doc/manuals/r-release/R-lang.html#Literal-constants
+# Valid integer constants
+1L, 0x10L, 1000000L, 1e6L
+
+# Valid numeric constants
+1 10 0.1 .2 1e-7 1.2e+7
+1.1L, 1e-3L, 0x1.1p-2
+
+# Valid complex constants
+2i 4.1i 1e-2i
+
+# https://search.r-project.org/R/refmans/base/html/Quotes.html
+# single quotes
+'"It\'s alive!", he screamed.'
+
+# double quotes
+"\"It's alive!\", he screamed."
+
+# escape sequence
+"\n0\r1\t2\b3\a4\f5\\6\'7\"8\`9"
+"\1230\x121\u12342\U000123453\u{1234}4\U{00012345}5\
+6\ 7"
+# issue #206
+"\n"
+"\r\n"
+
+# Backticks
+d$`1st column`
+
+# double quoted raw string
+r"---(\1--)-)---"
+
+# single quoted raw string
+R'---(\1--)-)---'
+
+# infix EOL (11)
+%a
+#back to comment

3rdparty/lexilla532/lexilla/test/examples/r/AllStyles.r.folded

@@ -0,0 +1,52 @@
+ 0 400 400   # https://cran.r-project.org/doc/manuals/r-release/R-lang.html#Reserved-words
+ 0 400 400   if
+ 1 400 400   
+ 0 400 400   # base keyword (3)
+ 0 400 400   abbreviate
+ 1 400 400   
+ 0 400 400   # other keyword (4)
+ 0 400 400   acme
+ 1 400 400   
+ 0 400 400   # infix operator
+ 0 400 400   # https://cran.r-project.org/doc/manuals/r-release/R-lang.html#Special-operators
+ 0 400 400   %x%
+ 1 400 400   
+ 0 400 400   # https://cran.r-project.org/doc/manuals/r-release/R-lang.html#Literal-constants
+ 0 400 400   # Valid integer constants
+ 0 400 400   1L, 0x10L, 1000000L, 1e6L
+ 1 400 400   
+ 0 400 400   # Valid numeric constants
+ 0 400 400   1 10 0.1 .2 1e-7 1.2e+7
+ 0 400 400   1.1L, 1e-3L, 0x1.1p-2
+ 1 400 400   
+ 0 400 400   # Valid complex constants
+ 0 400 400   2i 4.1i 1e-2i
+ 1 400 400   
+ 0 400 400   # https://search.r-project.org/R/refmans/base/html/Quotes.html
+ 0 400 400   # single quotes
+ 0 400 400   '"It\'s alive!", he screamed.'
+ 1 400 400   
+ 0 400 400   # double quotes
+ 0 400 400   "\"It's alive!\", he screamed."
+ 1 400 400   
+ 0 400 400   # escape sequence
+ 0 400 400   "\n0\r1\t2\b3\a4\f5\\6\'7\"8\`9"
+ 0 400 400   "\1230\x121\u12342\U000123453\u{1234}4\U{00012345}5\
+ 0 400 400   6\ 7"
+ 0 400 400   # issue #206
+ 0 400 400   "\n"
+ 0 400 400   "\r\n"
+ 1 400 400   
+ 0 400 400   # Backticks
+ 0 400 400   d$`1st column`
+ 1 400 400   
+ 0 400 400   # double quoted raw string
+ 0 400 400   r"---(\1--)-)---"
+ 1 400 400   
+ 0 400 400   # single quoted raw string
+ 0 400 400   R'---(\1--)-)---'
+ 1 400 400   
+ 0 400 400   # infix EOL (11)
+ 0 400 400   %a
+ 0 400 400   #back to comment
+ 0 400   0   

3rdparty/lexilla532/lexilla/test/examples/r/AllStyles.r.styled

@@ -0,0 +1,51 @@
+{1}# https://cran.r-project.org/doc/manuals/r-release/R-lang.html#Reserved-words{0}
+{2}if{0}
+
+{1}# base keyword (3){0}
+{3}abbreviate{0}
+
+{1}# other keyword (4){0}
+{4}acme{0}
+
+{1}# infix operator{0}
+{1}# https://cran.r-project.org/doc/manuals/r-release/R-lang.html#Special-operators{0}
+{10}%x%{0}
+
+{1}# https://cran.r-project.org/doc/manuals/r-release/R-lang.html#Literal-constants{0}
+{1}# Valid integer constants{0}
+{5}1L{0}, {5}0x10L{0}, {5}1000000L{0}, {5}1e6L{0}
+
+{1}# Valid numeric constants{0}
+{5}1{0} {5}10{0} {5}0.1{0} {5}.2{0} {5}1e-7{0} {5}1.2e+7{0}
+{5}1.1L{0}, {5}1e-3L{0}, {5}0x1.1p-2{0}
+
+{1}# Valid complex constants{0}
+{5}2i{0} {5}4.1i{0} {5}1e-2i{0}
+
+{1}# https://search.r-project.org/R/refmans/base/html/Quotes.html{0}
+{1}# single quotes{0}
+{7}'"It{15}\'{7}s alive!", he screamed.'{0}
+
+{1}# double quotes{0}
+{6}"{15}\"{6}It's alive!{15}\"{6}, he screamed."{0}
+
+{1}# escape sequence{0}
+{6}"{15}\n{6}0{15}\r{6}1{15}\t{6}2{15}\b{6}3{15}\a{6}4{15}\f{6}5{15}\\{6}6{15}\'{6}7{15}\"{6}8{15}\`{6}9"{0}
+{6}"{15}\123{6}0{15}\x12{6}1{15}\u1234{6}2{15}\U00012345{6}3{15}\u{1234}{6}4{15}\U{00012345}{6}5{15}\{6}
+6{15}\ {6}7"{0}
+{1}# issue #206{0}
+{6}"{15}\n{6}"{0}
+{6}"{15}\r\n{6}"{0}
+
+{1}# Backticks{0}
+{9}d{8}${12}`1st column`{0}
+
+{1}# double quoted raw string{0}
+{13}r"---(\1--)-)---"{0}
+
+{1}# single quoted raw string{0}
+{14}R'---(\1--)-)---'{0}
+
+{1}# infix EOL (11){0}
+{11}%a
+{1}#back to comment{0}

3rdparty/lexilla532/lexilla/test/examples/r/SciTE.properties

@@ -0,0 +1,9 @@
+lexer.*.r=r
+keywords.*.r=if
+keywords2.*.r=abbreviate
+keywords3.*.r=acme
+fold=1
+fold.compact=1
+
+match AllStyles.r
+	lexer.r.escape.sequence=1