[TxMt] [PATCH] perl quote-like operators
Grant Hollingworth
grant at antiflux.org
Sun Nov 19 00:09:16 UTC 2006
* Grant Hollingworth <grant at antiflux.org> [2006-11-18 11:19]:
>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.
I misunderstood the meaning of string.interpolated. qx'' is now string.interpolated.qx.single-quote.perl.
-------------- next part --------------
Index: Perl.plist
===================================================================
--- Perl.plist (revision 6181)
+++ 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>
@@ -1796,6 +1796,37 @@
</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.single-quote.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>
@@ -1831,7 +1862,7 @@
</dict>
<dict>
<key>begin</key>
- <string>\bq([^\(\{\[\w\s])</string>
+ <string>\bqw?([^\(\{\[\w\s])</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