diff options
Diffstat (limited to '.highlight/langDefs/pl.lang')
| -rw-r--r-- | .highlight/langDefs/pl.lang | 50 |
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= ( ) [ ] { } , ; : & | < > ! = / * + - $ . ^ ~ % + |