From 0adea30af9fbe40c23d2ef48174a4e59e1c33b94 Mon Sep 17 00:00:00 2001
From: svkalinin <svkalinin@samsonpost.ru>
Date: Wed, 7 Dec 2022 14:21:09 +0300
Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5?=
 =?UTF-8?q?=D0=BD=D0=B0=20=D0=BF=D0=BE=D0=B4=D0=B4=D0=B5=D1=80=D0=B6=D0=BA?=
 =?UTF-8?q?=D0=B0=20INI-=D1=84=D0=B0=D0=B9=D0=BB=D0=BE=D0=B2=20(=D0=BF?=
 =?UTF-8?q?=D0=BE=D0=B4=D1=81=D0=B2=D0=B5=D1=82=D0=BA=D0=B0,=20=D0=BD?=
 =?UTF-8?q?=D0=B0=D0=B2=D0=B8=D0=B3=D0=B0=D1=86=D0=B8=D1=8F=20=D0=BF=D0=BE?=
 =?UTF-8?q?=20=D1=81=D1=82=D1=80=D1=83=D0=BA=D1=82=D1=83=D1=80=D0=B5)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/highlight.tcl | 10 ++++++++++
 lib/lexers.tcl    |  7 +++++++
 projman.tcl       |  2 +-
 3 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/lib/highlight.tcl b/lib/highlight.tcl
index 112cef0..c779928 100644
--- a/lib/highlight.tcl
+++ b/lib/highlight.tcl
@@ -131,4 +131,14 @@ namespace eval Highlight {} {
         ctext::addHighlightClassForRegexp $txt comments #666666 {(#|//)[^\n\r]*}    
         ctext::addHighlightClassForRegexp $txt namespaces #0093ff {->|\+\+|::}
     }
+    proc INI {txt} {
+        ctext::addHighlightClassForRegexp $txt qoute #b84a0c {("|'|`).*?("|'|`)}
+        ctext::addHighlightClassForRegexp $txt flags orange {\s-[a-zA-Z]+}
+        ctext::addHighlightClassForRegexp $txt stackControl #4471ca {^(\s*?)\[[\.a-zA-Z0-9\_\-\[\]]+\]}
+        ctext::addHighlightClassForSpecialChars $txt brackets green {[]{}()}
+        ctext::addHighlightClassForRegexp $txt dog #0082ff {(@)[\.a-zA-Z0-9\_\-\[\]]+}
+        ctext::addHighlightClassForRegexp $txt comments lightblue {(#|//)[^\n\r]*}
+        ctext::addHighlightClassForRegexp $txt keyword #19a2a6 {^(\s*?)[a-zA-Z0-9\_\-]+(\s*?=)}
+        ctext::addHighlightClassForSpecialChars $txt equal #0082ff {=}
+    }
 }
diff --git a/lib/lexers.tcl b/lib/lexers.tcl
index b137e3a..74a179e 100644
--- a/lib/lexers.tcl
+++ b/lib/lexers.tcl
@@ -64,5 +64,12 @@ dict set lexers PL procFindString {(sub )\s*?PROCNAME}
 dict set lexers PL procRegexpCommand {regexp -nocase -all -- {^\s*?(sub)\s([a-zA-Z0-9\-_:]+?)($|\(.+?\))} $line match keyWord procName params}
 dict set lexers PL varRegexpCommand {regexp -nocase -all -- {^(\s*?)\$([a-zA-Z0-9\-_$]+)\s+=\s+(.+?)(\s*;$)} $line match indent varName varValue lineEnd}
 
+#--------------------------------------------------
+# Perl
+dict set lexers INI commentSymbol {#}
+dict set lexers INI tabSize 4
+dict set lexers INI procFindString {(\[)PROCNAME(\])}
+dict set lexers INI procRegexpCommand {regexp -nocase -all -- {^\s*?(\[)([a-zA-Z0-9\-_:]+?)(\])$} $line match keyWord procName}
+
 # -------------------------------------------------
 dict set lexers ALL varDirectory {variables vars group_vars host_vars defaults}
diff --git a/projman.tcl b/projman.tcl
index d571aee..dbb6e5e 100755
--- a/projman.tcl
+++ b/projman.tcl
@@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
 ######################################################
 # Version: 2.0.0
 # Release: alpha
-# Build: 07122022131333
+# Build: 07122022142011
 ######################################################
 
 # определим текущую версию, релиз и т.д.