https://bugs.kde.org/show_bug.cgi?id=400345
Bug ID: 400345
Summary: perl syntax highlighting: add labels
Product: frameworks-syntax-highlighting
Version: unspecified
Platform: Other
OS: Linux
Status: REPORTED
Severity: normal
Priority: NOR
Component: syntax
Assignee: [email protected]
Reporter: [email protected]
Target Milestone: ---
Please support definition of perl LABEL.
Definition as LABEL: or label: and call like goto LABEL
Ref http://perldoc.perl.org/functions/goto.html
It looks like this to me.
http://internal.by/i/20181026184338.png
reverse patch over version 7:
----------------------------------
diff --git a/perl.xml b/perl.xml
index 5ecdc47..cd3d3ce 100644
--- a/perl.xml
+++ b/perl.xml
@@ -349,8 +349,6 @@
<RegExpr attribute="Pod" context="pod" String="\=\w+(\s|$)" column="0"
beginRegion="POD"/>
<DetectSpaces />
<DetectChar attribute="Comment" context="comment" char="#" />
- <RegExpr attribute="Label" String="^[A-Z0-9_]+:$" />
- <RegExpr attribute="Label small" String="^[a-z0-9]+:$" />
<!-- Numeric values. Note that we have to allow underscores between
two digits (thus the creepy regular expressions). -->
<RegExpr attribute="Hex"
String="\b\-?0[xX]([0-9a-fA-F]|_[0-9a-fA-F])+" context="slash_safe_escape"/>
@@ -848,8 +846,6 @@
</contexts>
<itemDatas>
<itemData name="Normal Text" defStyleNum="dsNormal" />
- <itemData name="Label" defStyleNum="dsLabel" />
- <itemData name="Label small" defStyleNum="dsLabel small"
/>
<itemData name="Keyword" defStyleNum="dsKeyword" />
<itemData name="Pragma" defStyleNum="dsKeyword" />
<itemData name="Function" defStyleNum="dsFunction" />
----------------------------------
--
You are receiving this mail because:
You are watching all bug changes.
