From 9323029d51f2012b8193a422ab0180436dd8ce8c Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xssn.at>
Date: Wed, 7 Jul 2010 21:15:01 +0200
Subject: add own langDefs for highlight

Signed-off-by: Florian Pritz <bluewind@xssn.at>
---
 .gitignore                     |  1 +
 .highlight/langDefs/aldor.lang | 31 ++++++++++++++++++++++++++
 .highlight/langDefs/diff.lang  | 27 +++++++++++++++++++++++
 .highlight/langDefs/pl.lang    | 50 ++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 109 insertions(+)
 create mode 100644 .highlight/langDefs/aldor.lang
 create mode 100644 .highlight/langDefs/diff.lang
 create mode 100644 .highlight/langDefs/pl.lang

diff --git a/.gitignore b/.gitignore
index 4021bc0db..a6833fba6 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,5 +1,6 @@
 data/uploads/*
 .*
+!.highlight
 !data/uploads/.htaccess
 !.gitignore
 !system/.htaccess
diff --git a/.highlight/langDefs/aldor.lang b/.highlight/langDefs/aldor.lang
new file mode 100644
index 000000000..e4a6c26f4
--- /dev/null
+++ b/.highlight/langDefs/aldor.lang
@@ -0,0 +1,31 @@
+$DESCRIPTION=Aldor
+
+$STRINGDELIMITERS=" '
+
+
+$ESCCHAR=_
+
+$SL_COMMENT=-- ++
+
+$CONTINUATIONSYMBOL=0
+
+$KEYWORDS(kwa)=add and always assert break but catch default define delay
+do else except export extend fix for fluid free from generate goto has if
+import in inline is isnt iterate let local macro never not of or pretend
+ref repeat return rule select then throw to try where while with yield
+
+$KEYWORDS(kwb)=print stdout newline true false
+
+$DIRECTIVE=#pile #include #assert #unassert #if #endif #library
+
+$KEYWORDS(kwc)=by case mod quo rem # + - +- ~ ^ * ** .. = ~= 
+^= / /\\ < <= << <- \\ \\/ > >= >> ->
+
+$KEYWORDS(kwd)=regex(\b[A-Z][A-Za-z0-9]+\b)
+
+$KEYWORDS(kwd)=regex(([A-Za-z0-9]+)\()
+$SYMBOLS= . , ; : :: :* $ @ | => +-> := == ==> [ ] { } ( ) '
+
+$INGORECASE=false
+
+$DIGIT=regex(^[\d,]*[ac]\d*)
diff --git a/.highlight/langDefs/diff.lang b/.highlight/langDefs/diff.lang
new file mode 100644
index 000000000..b00b50e8c
--- /dev/null
+++ b/.highlight/langDefs/diff.lang
@@ -0,0 +1,27 @@
+# Diff language definition file
+#
+# Author: Andre Simon
+#   Mail: andre.simon1@gmx.de
+#   Date: 02.10.2007
+# ------------------------------------------
+# 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=Diff
+
+$KEYWORDS(kwa)=regex(^diff .*$)
+$KEYWORDS(kwe)=regex(^[+<].*)
+$KEYWORDS(kwb)=regex(^[->].*)
+$KEYWORDS(kwc)=regex(^\.$)
+$KEYWORDS(kwd)=regex(^@@.*@@$)
+$KEYWORDS(kwd)=regex(^@@ -[0-9]*,[0-9]* \+[0-9]*,[0-9]* @@)
+
+$DIGIT=regex(^[\d,]*[ac]\d*)
+$SL_COMMENT=regex(^\-\-\-$)
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= ( ) [ ] { } , ; : & | < > !  = / * + - $ . ^ ~ %
+
-- 
cgit v1.2.3-24-g4f1b