From d7bc2dea4049b93d4eb14f26969badc19ac3394a Mon Sep 17 00:00:00 2001
From: Steven <stevencohn@users.noreply.github.com>
Date: Sat, 26 Oct 2024 18:46:51 -0400
Subject: [PATCH] Add R and Pascal language defs (#1634)

#1633
---
 OneMore/Colorizer/Languages/pascal.json |  55 ++++++++++++++++++++++++
 OneMore/Colorizer/Languages/pascal.png  | Bin 0 -> 722 bytes
 OneMore/Colorizer/Languages/r.json      |  38 ++++++++++++++++
 OneMore/Colorizer/Languages/r.png       | Bin 0 -> 696 bytes
 OneMore/OneMore.csproj                  |  12 ++++++
 5 files changed, 105 insertions(+)
 create mode 100644 OneMore/Colorizer/Languages/pascal.json
 create mode 100644 OneMore/Colorizer/Languages/pascal.png
 create mode 100644 OneMore/Colorizer/Languages/r.json
 create mode 100644 OneMore/Colorizer/Languages/r.png

diff --git a/OneMore/Colorizer/Languages/pascal.json b/OneMore/Colorizer/Languages/pascal.json
new file mode 100644
index 0000000000..5d850eb01b
--- /dev/null
+++ b/OneMore/Colorizer/Languages/pascal.json
@@ -0,0 +1,55 @@
+{
+  "name": "Pascal",
+  "rules": [
+    {
+      "pattern": "({(?:[^}]|[\\r\\n]|(?:{+(?:[^}]|[\\r\\n])))*})",
+      "captures": [
+        "Comment"
+      ]
+    },
+    {
+      "pattern": "({[^\\r\\n]*)$",
+      "scope": "Comment",
+      "captures": [
+        "Comment"
+      ]
+    },
+    {
+      "pattern": "^([^{\\r\\n]*})\\s*$",
+      "scope": "",
+      "captures": [
+        "Comment"
+      ]
+    },
+    {
+      "pattern": "(//.*?)\\r?$",
+      "captures": [
+        "Comment"
+      ]
+    },
+    {
+      "pattern": "('[^\\n]*?(?<!\\\\)')",
+      "captures": [
+        "String"
+      ]
+    },
+    {
+      "pattern": "\\b((?i:absolute|and|array|asm|begin|case|const|constructor|destructor|div|do|downto|else|end|file|for|function|goto|if|implementation|in|inherited|inline|interface|label|mod|nil|not|object|of|operator|or|packed|procedure|program|record|reintroduce|repeat|self|set|shl|shr|string|then|to|type|unit|until|uses|var|while|with|xor))\\b",
+      "captures": [
+        "Keyword"
+      ]
+    },
+    {
+      "pattern": "\\b(\\w+\\()",
+      "captures": [
+        "Predefined"
+      ]
+    },
+    {
+      "pattern": "\\b([0-9]{1,})\\b",
+      "captures": [
+        "Number"
+      ]
+    }
+  ]
+}
diff --git a/OneMore/Colorizer/Languages/pascal.png b/OneMore/Colorizer/Languages/pascal.png
new file mode 100644
index 0000000000000000000000000000000000000000..7e339d1d8cd9bd606c0ba498f49da38a190e670a
GIT binary patch
literal 722
zcmV;@0xkWCP)<h;3K|Lk000e1NJLTq000mG000mO1^@s6AM^iV00001b5ch_0Itp)
z=>Px#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>D0%u7?K~y+TeN#<n
z6HyTU_9wgfF|BD+6KTbtRHaa8sRgB;6yj0Ai-I1^O)I_VNd(2KnBp;>;-Mh;0~Rp^
zD)>Wft1UuXRI2gdK`gC}7L(d!ck`TiyREiVzcAT(Gw+)>Z)To?b%>w7wx2#{NDh)D
z*hct7@{;8C?7-Dm(&Aw?01*T9=_ff`qd!N8KTd)|Kg~5{NG?#IU%Zeek32|{<n?UT
zCXY&*;HCR<D6CaOL)d_+C_`jA#zAy<hdkLOFIDll?<hLjcEKT%LPv<2faN%tnEr^~
zJI_%OB55cJbIvK=oyVA5qKz%4j^T748Y6WObdBXo6#>7=Zi&0O7dUY%k9eJ*mj^h{
z6l;u<<={{vhWc<wt{>!wvG4p1^k*N+K#Wex45|vQ6CuR`xY{n3ZFKG423^-+*$#4J
zZ}GlR#KlJwD3xW++(4A6SKuBFu+l2&XiGFp)v_#X-?AB(k9T48$|*z}>ZN_0>cH><
zv~mrWNC{NwzCS3h&*@&YY;AJg>oEG}9gd{$!AETB1e;_Rcu3ldb`2+YHm#oYb#4KR
zKg+U^^TkDsOn$(nCsXiiD#BC)ufYWlz!TPvijD3)&G4IsB;6dy;d*`=2>E3HVQ7d3
zeRR6ALS~F`4YE?DO`UspNR>~1I`aiuG>F(H6Y)p@@sI(1Et!#3dA7-zfvLf!VVPU_
zj@Oej82?sAl+yKzwGlGRm3|&&QU>Q8k+dm&?naDK{ttPGM2@n?tJ2gnJJNCZz6Q}4
zRF&?qu7dCO5Ab73t$9p;!y9d$&K{Chwh;;>8$4&=H&FTJZLx(HzW@LL07*qoM6N<$
Eg6kYd$p8QV

literal 0
HcmV?d00001

diff --git a/OneMore/Colorizer/Languages/r.json b/OneMore/Colorizer/Languages/r.json
new file mode 100644
index 0000000000..b51c657be6
--- /dev/null
+++ b/OneMore/Colorizer/Languages/r.json
@@ -0,0 +1,38 @@
+{
+  "name": "R",
+  "aliases": [
+    "R"
+  ],
+  "rules": [
+    {
+      "pattern": "(\\#.*?)\\r?$",
+      "captures": [
+        "Comment"
+      ]
+    },
+    {
+      "pattern": "(?s)(\"[^\\n]*?(?<!\\\\)\")",
+      "captures": [
+        "String"
+      ]
+    },
+    {
+      "pattern": "\\b(break|else|FALSE|for|function|if|in|Inf|NA|NA_integer_|NA_real_|NA_complex_|NA_character_|next|NULL|repeat|TRUE|while)\\b",
+      "captures": [
+        "Keyword"
+      ]
+    },
+    {
+      "pattern": "\\b(\\w+\\()",
+      "captures": [
+        "Predefined"
+      ]
+    },
+    {
+      "pattern": "\\b([0-9]{1,})\\b",
+      "captures": [
+        "Number"
+      ]
+    }
+  ]
+}
diff --git a/OneMore/Colorizer/Languages/r.png b/OneMore/Colorizer/Languages/r.png
new file mode 100644
index 0000000000000000000000000000000000000000..dc2eccafa7657d14e3522588399a5211abc24afd
GIT binary patch
literal 696
zcmV;p0!RIcP)<h;3K|Lk000e1NJLTq000mG000mO1^@s6AM^iV00009a7bBm000XU
z000XU0RWnu7ytkQYDq*vR5;6}lS^oncNE3X_gM{5i%F#@*4m;H6a(6gmK3d6S{J6G
z3rA2Rq84TFff6AL3vKDrjgLZ?4PB%atSz<(LPP~2M27(pTv%&_v5fB2_?Y?MbB>D{
zM?rU9xQn|uzk9e3;4LG2wHO(_IuXcvgRz#uPe{&)2uH9Q5hVuyN-3Q!Y*@$F0HdYy
zS0sO8a2`nn2}U4-h=@j}Km>1)EcR_FTx<bGOXb}pPms(R1WAax9prhEw<1M7B05q^
zi&8y(ks>CO-0{uMt-ofYrShkwE{S|6NQk^+WB<U}i6i4R%rp$Uk+86!W4zw`(f#d_
zVy~oS*~pdB83xyo1f{Vo%X(HW@2M`_cX_YHqp<N3BDfJl`?|*-KzuJ3^*PnB4g2uQ
z<vmpZ&5kXxY_kc;EN%MZzxOL7SL7tyNP#3sU2UzTB^Cf|w%B32Xc@9l8J{#wRF+dJ
zzZhIZbhY$oS%#!8*-LFLmIYhrm{fZ#@p>-u7)daQdcFR`=|BIO(lDUb@GO20dsxyg
zTQGdBcUGlc_VGNWG$d&-NJNSyDbn!JZ>PFniUq@Z(b>S|zK`$x(mo;D1_lnC$ya~5
z%A$6P`jKQkQY=j=l~;W5px+W?p}X_Zk?ziif7^n^&xWhh*NEzW?Ua8%d3t_IshCpw
zdgN}~+;d~^X11_)&OLuPdHm+jH)c<(5i@K*HL|Y%2iM)rUj=L|tp9h*=EA|JPo8yM
zs7yWNrtNc;&cdPoJqv2gzH6?s-R8FdkiY4}ip3qS1!}g!79K}d0{~|jv|VjNw$1E2
eHUDkD8P5Sg;UnQnT}|`=0000<MNUMnLSTY;=|Kqq

literal 0
HcmV?d00001

diff --git a/OneMore/OneMore.csproj b/OneMore/OneMore.csproj
index 3d878de021..35f9e95590 100644
--- a/OneMore/OneMore.csproj
+++ b/OneMore/OneMore.csproj
@@ -1115,6 +1115,9 @@
     <Content Include="Colorizer\Languages\javascript.png">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
+    <Content Include="Colorizer\Languages\pascal.png">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
     <Content Include="Colorizer\Languages\php.png">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
@@ -1127,6 +1130,9 @@
     <Content Include="Colorizer\Languages\python.png">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
+    <Content Include="Colorizer\Languages\r.png">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
     <Content Include="Colorizer\Languages\registry.png">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
@@ -1179,12 +1185,18 @@
     <None Include="Colorizer\Languages\bash.json">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </None>
+    <None Include="Colorizer\Languages\pascal.json">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </None>
     <None Include="Colorizer\Languages\php.json">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </None>
     <None Include="Colorizer\Languages\plantuml.json">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </None>
+    <None Include="Colorizer\Languages\r.json">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </None>
     <None Include="Colorizer\Languages\registry.json">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </None>