summaryrefslogtreecommitdiffstats
path: root/.highlight/langDefs/pl.lang
diff options
context:
space:
mode:
authorFlorian Pritz <bluewind@xssn.at>2010-07-07 21:15:01 +0200
committerFlorian Pritz <bluewind@xssn.at>2010-07-07 21:15:01 +0200
commit9323029d51f2012b8193a422ab0180436dd8ce8c (patch)
tree3b44552b73b0159672fd9beb780fe71df87550f8 /.highlight/langDefs/pl.lang
parent2aec1077aa706bb4ae45e635efa8dd8c16327830 (diff)
add own langDefs for highlight
Signed-off-by: Florian Pritz <bluewind@xssn.at>
Diffstat (limited to '.highlight/langDefs/pl.lang')
-rw-r--r--.highlight/langDefs/pl.lang50
1 files changed, 50 insertions, 0 deletions
diff --git a/.highlight/langDefs/pl.lang b/.highlight/langDefs/pl.lang
new file mode 100644
index 000000000..fff9b791c
--- /dev/null
+++ b/.highlight/langDefs/pl.lang
@@ -0,0 +1,50 @@
+# Perl language definition file
+#
+# Author: Andre Simon
+# Mail: andre.simon1@gmx.de
+# Date: 28.01.2003
+# Update: 11.09.2007 (regex kwb)
+# Update: 11.09.2008 (regex pattern)
+# ------------------------------------------
+# This file is a part of highlight, a free source code converter released under the GPL.
+#
+# The file is used to describe keywords and special symbols of programming languages.
+# See README in the highlight directory for details.
+#
+# New definition files for future releases of highlight are always appreciated ;)
+#
+# ----------
+# andre.simon1@gmx.de
+# http:/www.andre-simon.de/
+
+$DESCRIPTION=Perl
+
+$KEYWORDS(kwa)=and cmp continue else elsif eq for foreach ge goto gt if last
+le lt do ne next not or package return sub switch unless until use while xor
+
+# TODO string functions, array functions etc
+$KEYWORDS(kwc)=my local print
+
+$STRINGDELIMITERS=" ' END
+
+$SL_COMMENT=#
+
+$IGNORECASE=false
+
+$ESCCHAR=regex(\\\d{3}|\\x\p{XDigit}{2}|\\[ntvbrfa\\\?'"])
+
+$ALLOWEXTESCAPE=true
+
+$KEYWORDS(kwb)=regex([$@%]\#?\w+)
+
+#$KEYWORDS(kwc)=regex((\$\{(\w+)\}))
+
+# pattern to highlight regexes (m//, s///, tr ///)
+$KEYWORDS(kwc)=regex(m?\/.*?\/|(s|tr)\/.*?\/.*?\/[cegimosx]*, 0)
+$KEYWORDS(kwc)=regex(m?\!.*?\!|(s|tr)\!.*?\!.*?\![cegimosx]*, 0)
+$KEYWORDS(kwc)=regex(m?\#.*?\#|(s|tr)\#.*?\#.*?\#[cegimosx]*, 0)
+
+$KEYWORDS(kwd)=regex((->)?([a-zA-Z_]+)\s*[\(;])
+
+$SYMBOLS= ( ) [ ] { } , ; : & | < > ! = / * + - $ . ^ ~ %
+