[TxMt] [PATCH] perl quote-like operators
Grant Hollingworth
grant at antiflux.org
Sat Nov 18 18:18:48 UTC 2006
* Allan Odgaard <throw-away-1 at macromates.com> [2006-11-17 16:58]:
>Thanks, I applied the patch. I changed the string.quoted.single/
>double to string.quoted.other, since the single/double refer to ' and ".
Okay. I changed all the qq// parts to string.quoted.other.qq, and qx// to string.interpolated.qx. The exception is qx'', which is *not* interpolated, so I put it with string.quoted.other.q. qw// is also in string.quoted.other.q.
-------------- next part --------------
Index: Perl.plist
===================================================================
--- Perl.plist (revision 6177)
+++ Perl.plist (working copy)
@@ -1761,7 +1761,7 @@
</dict>
<dict>
<key>begin</key>
- <string>\bq[wx]([^'\(\{\[\w\s])</string>
+ <string>\bqx([^'\(\{\[\w\s])</string>
<key>beginCaptures</key>
<dict>
<key>0</key>
@@ -1781,7 +1781,7 @@
</dict>
</dict>
<key>name</key>
- <string>string.quoted.other.q.perl</string>
+ <string>string.interpolated.qx.perl</string>
<key>patterns</key>
<array>
<dict>
@@ -1831,7 +1831,7 @@
</dict>
<dict>
<key>begin</key>
- <string>\bq([^\(\{\[\w\s])</string>
+ <string>\bqw?([^\(\{\[\w\s])</string>
<key>beginCaptures</key>
<dict>
<key>0</key>
@@ -1862,7 +1862,38 @@
</dict>
<dict>
<key>begin</key>
+ <string>\bqx'</string>
+ <key>beginCaptures</key>
+ <dict>
+ <key>0</key>
+ <dict>
+ <key>name</key>
+ <string>punctuation.definition.string.begin.perl</string>
+ </dict>
+ </dict>
+ <key>end</key>
<string>'</string>
+ <key>endCaptures</key>
+ <dict>
+ <key>0</key>
+ <dict>
+ <key>name</key>
+ <string>punctuation.definition.string.end.perl</string>
+ </dict>
+ </dict>
+ <key>name</key>
+ <string>string.quoted.other.q.perl</string>
+ <key>patterns</key>
+ <array>
+ <dict>
+ <key>include</key>
+ <string>#escaped_char</string>
+ </dict>
+ </array>
+ </dict>
+ <dict>
+ <key>begin</key>
+ <string>'</string>
<key>beginCaptures</key>
<dict>
<key>0</key>
@@ -1930,7 +1961,7 @@
</dict>
<dict>
<key>begin</key>
- <string>\bq[qwx]\(</string>
+ <string>\bqq\(</string>
<key>beginCaptures</key>
<dict>
<key>0</key>
@@ -1950,7 +1981,7 @@
</dict>
</dict>
<key>name</key>
- <string>string.quoted.other.q-paren.perl</string>
+ <string>string.quoted.other.qq-paren.perl</string>
<key>patterns</key>
<array>
<dict>
@@ -1969,7 +2000,7 @@
</dict>
<dict>
<key>begin</key>
- <string>\bq[qwx]\{</string>
+ <string>\bqq\{</string>
<key>beginCaptures</key>
<dict>
<key>0</key>
@@ -1989,7 +2020,7 @@
</dict>
</dict>
<key>name</key>
- <string>string.quoted.other.q-brace.perl</string>
+ <string>string.quoted.other.qq-brace.perl</string>
<key>patterns</key>
<array>
<dict>
@@ -2008,7 +2039,7 @@
</dict>
<dict>
<key>begin</key>
- <string>\bq[qwx]\[</string>
+ <string>\bqq\[</string>
<key>beginCaptures</key>
<dict>
<key>0</key>
@@ -2028,7 +2059,7 @@
</dict>
</dict>
<key>name</key>
- <string>string.quoted.other.q-bracket.perl</string>
+ <string>string.quoted.other.qq-bracket.perl</string>
<key>patterns</key>
<array>
<dict>
@@ -2047,7 +2078,7 @@
</dict>
<dict>
<key>begin</key>
- <string>\bq\(</string>
+ <string>\bqx\(</string>
<key>beginCaptures</key>
<dict>
<key>0</key>
@@ -2067,6 +2098,123 @@
</dict>
</dict>
<key>name</key>
+ <string>string.interpolated.qx-paren.perl</string>
+ <key>patterns</key>
+ <array>
+ <dict>
+ <key>include</key>
+ <string>#escaped_char</string>
+ </dict>
+ <dict>
+ <key>include</key>
+ <string>#nested_parens_interpolated</string>
+ </dict>
+ <dict>
+ <key>include</key>
+ <string>#variable</string>
+ </dict>
+ </array>
+ </dict>
+ <dict>
+ <key>begin</key>
+ <string>\bqx\{</string>
+ <key>beginCaptures</key>
+ <dict>
+ <key>0</key>
+ <dict>
+ <key>name</key>
+ <string>punctuation.definition.string.begin.perl</string>
+ </dict>
+ </dict>
+ <key>end</key>
+ <string>\}</string>
+ <key>endCaptures</key>
+ <dict>
+ <key>0</key>
+ <dict>
+ <key>name</key>
+ <string>punctuation.definition.string.end.perl</string>
+ </dict>
+ </dict>
+ <key>name</key>
+ <string>string.interpolated.qx-brace.perl</string>
+ <key>patterns</key>
+ <array>
+ <dict>
+ <key>include</key>
+ <string>#escaped_char</string>
+ </dict>
+ <dict>
+ <key>include</key>
+ <string>#nested_braces_interpolated</string>
+ </dict>
+ <dict>
+ <key>include</key>
+ <string>#variable</string>
+ </dict>
+ </array>
+ </dict>
+ <dict>
+ <key>begin</key>
+ <string>\bqx\[</string>
+ <key>beginCaptures</key>
+ <dict>
+ <key>0</key>
+ <dict>
+ <key>name</key>
+ <string>punctuation.definition.string.begin.perl</string>
+ </dict>
+ </dict>
+ <key>end</key>
+ <string>\]</string>
+ <key>endCaptures</key>
+ <dict>
+ <key>0</key>
+ <dict>
+ <key>name</key>
+ <string>punctuation.definition.string.end.perl</string>
+ </dict>
+ </dict>
+ <key>name</key>
+ <string>string.interpolated.qx-bracket.perl</string>
+ <key>patterns</key>
+ <array>
+ <dict>
+ <key>include</key>
+ <string>#escaped_char</string>
+ </dict>
+ <dict>
+ <key>include</key>
+ <string>#nested_brackets_interpolated</string>
+ </dict>
+ <dict>
+ <key>include</key>
+ <string>#variable</string>
+ </dict>
+ </array>
+ </dict>
+ <dict>
+ <key>begin</key>
+ <string>\bqw?\(</string>
+ <key>beginCaptures</key>
+ <dict>
+ <key>0</key>
+ <dict>
+ <key>name</key>
+ <string>punctuation.definition.string.begin.perl</string>
+ </dict>
+ </dict>
+ <key>end</key>
+ <string>\)</string>
+ <key>endCaptures</key>
+ <dict>
+ <key>0</key>
+ <dict>
+ <key>name</key>
+ <string>punctuation.definition.string.end.perl</string>
+ </dict>
+ </dict>
+ <key>name</key>
<string>string.quoted.other.q-paren.perl</string>
<key>patterns</key>
<array>
@@ -2082,7 +2230,7 @@
</dict>
<dict>
<key>begin</key>
- <string>\bq\{</string>
+ <string>\bqw?\{</string>
<key>beginCaptures</key>
<dict>
<key>0</key>
@@ -2117,7 +2265,7 @@
</dict>
<dict>
<key>begin</key>
- <string>\bq\[</string>
+ <string>\bqw?\[</string>
<key>beginCaptures</key>
<dict>
<key>0</key>
More information about the textmate
mailing list