If a hash/pound appears within parentheses, the rest
of the line gets highlighted as though it were a comment,
e.g. if ($#ARGV + 1 ne $EXPECTED_ARGS) {
Signed-off-by: Werner Fink <werner@suse.de>
Signed-off-by: James Cloos <cloos@jhcloos.com>
*
* Author: Jim Villani, Logistics Management Institute (jvillani@lmi.org)
* perl_pod mods by Gregor Purdy (gregor@focusresearch.com)
*
* Author: Jim Villani, Logistics Management Institute (jvillani@lmi.org)
* perl_pod mods by Gregor Purdy (gregor@focusresearch.com)
+ * perl_parens by Josh Zenker (josh.zenker@sig.com)
*/
state perl_pod extends Highlight
*/
state perl_pod extends Highlight
+state perl_parens extends Highlight
+{
+ /\\\\./ {
+ language_print ($0);
+ }
+ /\)/ {
+ language_print ($0);
+ return;
+ }
+}
+
+
state perl extends HighlightEntry
{
/* Comments. */
state perl extends HighlightEntry
{
/* Comments. */
language_print ($0);
call (perl_pod);
}
language_print ($0);
call (perl_pod);
}
+
+ /* parentheses */
+ /\(/ {
+ language_print ($0);
+ call (perl_parens);
+ }