2022-07-21 10:56:46 +03:00
# #####################################################
# ProjMan 2
# Distributed under GNU Public License
# Author: Sergey Kalinin svk@nuk-svk.ru
# Copyright (c) "", 2022, https://nuk-svk.ru
# #####################################################
namespace eval Highlight { } {
proc TCL { txt } {
ctext : : addHighlightClass $txt widgets purple [ list ctext button label text frame toplevel scrollbar checkbutton canvas listbox menu menubar menubutton radiobutton scale entry message tk_chooseDir tk_getSaveFile tk_getOpenFile tk_chooseColor tk_optionMenu]
ctext : : addHighlightClassForRegexp $txt flags orange { \ s- [ a-zA-Z ] + }
ctext : : addHighlightClass $txt stackControl # 19 a2a6 [ info commands]
ctext : : addHighlightClassWithOnlyCharStart $txt vars # 4471 ca " \$ "
ctext : : addHighlightClass $txt variable_funcs gold { set global variable unset}
ctext : : addHighlightClassForSpecialChars $txt brackets green { [ ] { } ( ) }
ctext : : addHighlightClassForRegexp $txt paths lightblue { \ . [ a-zA-Z0-9 \ _\ - ] + }
ctext : : addHighlightClassForRegexp $txt comments # 666666 { ( # |//)[^\n\r]*}
ctext : : addHighlightClassForRegexp $txt namespaces # 4 f64ff { : : }
ctext : : addHighlightClassForSpecialChars $txt qoute # b84a0c { " ' ` }
}
proc Default { txt } {
ctext : : addHighlightClassForRegexp $txt flags orange { \ s- [ a-zA-Z \ - _] + }
ctext : : addHighlightClass $txt stackControl # 19 a2a6 [ info commands]
ctext : : addHighlightClassWithOnlyCharStart $txt vars # 4471 ca " \$ "
ctext : : addHighlightClass $txt variable_funcs gold { set global variable unset}
ctext : : addHighlightClassForSpecialChars $txt brackets green { [ ] { } ( ) }
ctext : : addHighlightClassForRegexp $txt paths lightblue { \ . [ a-zA-Z0-9 \ _\ - ] + }
ctext : : addHighlightClassForRegexp $txt comments # 666666 { ( # |//)[^\n\r]*}
ctext : : addHighlightClassForRegexp $txt namespaces # 4 f64ff { : : }
ctext : : addHighlightClassForSpecialChars $txt qoute # b84a0c { " ' ` }
}
proc SH { txt } {
ctext : : addHighlightClassForRegexp $txt flags orange { - + [ a-zA-Z \ - _] + }
2022-07-22 16:01:30 +03:00
ctext : : addHighlightClass $txt stackControl # 19 a2a6 { if fi else elseif then while case esac do in exit source echo package}
2022-07-21 10:56:46 +03:00
ctext : : addHighlightClassWithOnlyCharStart $txt vars # 4471 ca " \$ "
ctext : : addHighlightClassForRegexp $txt vars_extended # 4471 ca { \ $ \ { [ a-zA-Z0-9 \ _\ - : \ ./ \ $ \ { \ } ] + \ } }
ctext : : addHighlightClass $txt variable_funcs gold { set export}
ctext : : addHighlightClassForSpecialChars $txt brackets green { [ ] { } ( ) }
ctext : : addHighlightClassForRegexp $txt paths lightblue { \ . [ a-zA-Z0-9 \ _\ - ] + }
ctext : : addHighlightClassForRegexp $txt comments # 666666 { ( # |//)[^\n\r]*}
ctext : : addHighlightClassForSpecialChars $txt qoute # b84a0c { " ' ` }
}
2022-07-22 16:20:53 +03:00
2022-07-22 16:01:30 +03:00
proc GO { txt } {
ctext : : addHighlightClassForRegexp $txt flags orange { - + [ a-zA-Z \ - _] + }
2022-08-24 15:04:19 +03:00
ctext : : addHighlightClass $txt stackControl # 19 a2a6 { if else for while case switch func import return interface map make break chan fallthrough defer continue go select package}
2022-07-22 16:01:30 +03:00
ctext : : addHighlightClass $txt types # 7187 d5 { string int int16 int32 int64 float bool byte}
ctext : : addHighlightClassWithOnlyCharStart $txt vars # 4471 ca " \& "
2022-07-22 16:20:53 +03:00
ctext : : addHighlightClassWithOnlyCharStart $txt vars # 4471 ca " \* "
2022-07-22 16:01:30 +03:00
# ctext::addHighlightClassForRegexp $txt vars_extended #4471ca {\$\{[a-zA-Z0-9\_\-:\./\$\{\}]+\}}
ctext : : addHighlightClass $txt variable_funcs gold { var type struct}
ctext : : addHighlightClassForSpecialChars $txt brackets green { [ ] { } ( ) }
ctext : : addHighlightClassForRegexp $txt paths lightblue { \ . [ a-zA-Z0-9 \ _\ - ] + }
ctext : : addHighlightClassForRegexp $txt comments # 666666 { ( # |//)[^\n\r]*}
ctext : : addHighlightClassForSpecialChars $txt qoute # b84a0c { " ' ` }
}
2022-07-21 10:56:46 +03:00
}