Сборка beta4

README.md

@@ -17,6 +17,7 @@ Highlightning and source code navigation:
 * Markdown
 * YAML (Ansible support)
 * Lua
+* C
 
 Highlightning:
 

debian/changelog

@@ -1,3 +1,16 @@
+projman (2.0.0-beta4) stable; urgency=medium
+
+  *  Добавил экранирование '*' в имени функции для поиска.
+  *  Подкрректировал регулярки для работы с С.
+  *  Исиправил закрытие вкладки при отпускании кнопки мыши при нажатии на крестик.
+  *  Добавил иконки для 'c' и 'h'. Добавил сочитание Alt-R в русской раскладке
+  *  Добавил поддержку С подсветка
+  *  Добавил копирование готовых пакетов
+  *  Откорректировал сборку рпм
+  *  Добавил сборку rpm. Исправил changelog-и
+
+ -- svk <svk@nuk-svk.ru>  Fri,  6 Feb 2026 14:07:53 +0300
+
 projman (2.0.0-beta3) stable; urgency=medium
 
   *  changelog-gen: сделал вывод изменения в формате rpm.spec

lib/gui.tcl

@@ -237,7 +237,7 @@ ttk::style layout TNotebook.Tab {
 }
 bind TNotebook <Button-1> "catch {NB::PressTab %W %x %y}\;[bind TNotebook <Button-1>];break"
 # bind <<NotebookTabChanged>> "NB::PressTab %W %x %y"
-bind TNotebook <ButtonRelease-1> "NB::PressTab %W %x %y"
+# bind TNotebook <ButtonRelease-1> "NB::PressTab %W %x %y"
 # bind TNotebook <Control-w> FileOper::Close
 # bind . <Control-Tab> "NB::NextTab $nbEditor"
 bind . <Control-Next> "NB::NextTab $nbEditor 1"

lib/lexers.tcl

@@ -109,22 +109,23 @@ dict set lexers LUA varRegexpCommand {regexp -nocase -all -- {^(\s*?)([a-zA-Z0-9
 dict set lexers C commentSymbol {//}
 dict set lexers C commentMultilineSymbolBegin {/*}
 dict set lexers C commentMultilineSymbolEnd {*/}
-dict set lexers C procFindString {^\s*(?:(\w+)\s+)+(PROCNAME)\s*\((.*?)(,|\))}
-dict set lexers C procRegexpCommand {regexp -nocase -all -line -- {^(?:(\w+)\s+)+(\w+)\s*\((.*?)(,|\))} $line match returns procName params v4}
+dict set lexers C procFindString {(\w+)\s+(PROCNAME)\s*\((.*?)(,|\))(\W|$)}
+dict set lexers C procRegexpCommand {regexp -nocase -all -line -- {^(?:(\w+)\s+)+(\*\w+|\w+)\s*\((.*?)(,|\))} $line match returns procName params v4}
 # dict set lexers C procRegexpCommand {regexp -nocase -all -- {\s*?func\s*?(\(\w+\s*?\**?\w+\)|)\s*?(\w+)\((.*?)\)\s+?([a-zA-Z0-9\{\}\[\]\(\)-_.]*?|)\s*?\{} $line match linkName procName params returns}
 # dict set lexers C varRegexpCommand {regexp -nocase -all -line -- {^\s*?var\s+([a-zA-Z0-9\-_$]+)\s+(.+?)(\s*$)} $line match varName varType lineEnd}
 dict set lexers C commands {auto break case const continue default do else enum extern for goto if inline  int long register restrict return signed sizeof static struct switch typedef typeof typeof_unqual union unsigned void volatile while}
 
 #--------------------------------------------------
 # H
-dict set lexers C commentSymbol {//}
-dict set lexers C commentMultilineSymbolBegin {/*}
-dict set lexers C commentMultilineSymbolEnd {*/}
-dict set lexers C procFindString {^\s*(?:(\w+)\s+)+(PROCNAME)\s*\((.*?)(,|\))}
-dict set lexers C procRegexpCommand {regexp -nocase -all -line -- {^(?:(\w+)\s+)+(\w+)\s*\((.*?)(,|\))} $line match returns procName params v4}
+dict set lexers H commentSymbol {//}
+dict set lexers H commentMultilineSymbolBegin {/*}
+dict set lexers H commentMultilineSymbolEnd {*/}
+# dict set lexers C procFindString {^\s*(?:(\w+)\s+)+(PROCNAME)\s*\((.*?)(,|\))}
+dict set lexers H procFindString {^\s*(?:(\w+)\s+)+(PROCNAME)\s*\((.*?)(,|\))}
+dict set lexers H procRegexpCommand {regexp -nocase -all -line -- {^(?:(\w+)\s+)+(\*\w+|\w+)\s*\((.*?)(,|\))} $line match returns procName params v4}
 # dict set lexers C procRegexpCommand {regexp -nocase -all -- {\s*?func\s*?(\(\w+\s*?\**?\w+\)|)\s*?(\w+)\((.*?)\)\s+?([a-zA-Z0-9\{\}\[\]\(\)-_.]*?|)\s*?\{} $line match linkName procName params returns}
 # dict set lexers C varRegexpCommand {regexp -nocase -all -line -- {^\s*?var\s+([a-zA-Z0-9\-_$]+)\s+(.+?)(\s*$)} $line match varName varType lineEnd}
-dict set lexers C commands {auto break case const continue default do else enum extern for goto if inline  int long register restrict return signed sizeof static struct switch typedef typeof typeof_unqual union unsigned void volatile while}
+dict set lexers H commands {auto break case const continue default do else enum extern for goto if inline  int long register restrict return signed sizeof static struct switch typedef typeof typeof_unqual union unsigned void volatile while}
 
 # -------------------------------------------------
 dict set lexers ALL varDirectory {variables vars group_vars host_vars defaults}

lib/tree.tcl

@@ -132,8 +132,10 @@ namespace eval Tree {
                 $nbEditor select $nbItem
                 set txt $nbItem.frmText.t
                 set findString [dict get $lexers [dict get $editors $txt fileType] procFindString]
+                DebugPuts "Tree::PressItem: $findString\n values: $values"
+                regsub -all {\*} $values {\\*} values
                 regsub -all {PROCNAME} $findString $values str
-
+                DebugPuts "Tree::PressItem: $str"
                 Editor::FindFunction $txt "$str"
             }
         }

projman.tcl

@@ -9,8 +9,8 @@ exec wish8.6 "$0" -- "$@"
 # Home page: https://nuk-svk.ru
 ######################################################
 # Version: 2.0.0
-# Release: beta3
-# Build: 06022026152138
+# Release: beta4
+# Build: 12022026115443
 ######################################################
 
 # определим текущую версию, релиз и т.д.

redhat/projman.spec

@@ -70,6 +70,14 @@ fi
 %{_iconsdir}/hicolor/48x48/apps/projman.png
 
 %changelog
+* Thu Feb 12 2026 svk <svk@nuk-svk.ru> 2.0.0-beta4
+    -  Добавил экранирование '*' в имени функции для поиска.
+    -  Подкрректировал регулярки для работы с С.
+    -  Исправил закрытие вкладки при отпускании кнопки мыши при нажатии на крестик.
+    -  Добавил иконки для 'c' и 'h'. Добавил сочитание Alt-R в русской раскладке
+    -  Добавил поддержку С (подсветка)
+    -  Добавил копирование готовых пакетов
+
 * Fri Feb  6 2026 svk <svk@nuk-svk.ru> 2.0.0-beta3
     -  Откорректировал сборку рпм