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 ###################################################### # определим текущую версию, релиз и т.д.