Исправлены процедуры comment/uncomment

2022-08-12 15:24:39 +03:00
parent d2c8cd40c6
commit b4230a8c46
3 changed files with 164 additions and 16 deletions
--- a/lib/readstructure.tcl
+++ b/lib/readstructure.tcl
@@ -0,0 +1,96 @@
+######################################################
+#                ProjMan 2
+#        Distributed under GNU Public License
+# Author: Sergey Kalinin svk@nuk-svk.ru
+# Copyright (c) "", 2022, https://nuk-svk.ru
+######################################################
+# 
+# Module for read files structure into directory
+# 
+######################################################
+package require fileutil
+package require Thread
+
+# TCL procedure
+proc ReadFileStructureTCL {fileFullName} {
+    global procList
+    set f [open "$fileFullName" r]
+    while {[gets $f line] >=0} {
+        if {[regexp -nocase -all -- {^\s*?(proc) (::|)(\w+)(::|:|)(\w+)\s*?(\{|\()(.*)(\}|\)) \{} $line match v1 v2 v3 v4 v5 v6 params v8]} {
+            set procName "$v2$v3$v4$v5"
+            lappend procList($fileFullName) [list $procName $params]
+        }
+    }
+    close $f
+}
+
+ # GO function
+proc ReadFileStructureGO {fileName} {
+    if {[regexp -nocase -all -- {^\s*?func\s*?\((\w+\s*?\*\w+)\)\s*?(\w+)\((.*?)\)\s*?(\(\w+\)|\w+|)\s*?\{} $line match v1 funcName params returns]} {
+        # set procName "$v2$v3$v4$v5"
+        # lappend procList($activeProject) [list $procName [string trim $params]]
+        if {$v1 ne ""} {
+            set linkName [lindex [split $v1 " "] 1]
+            set functionName "\($linkName\).$funcName"
+        }
+
+        # tree parent item type text
+       lappend procList($fuleFullName) [list $functionName $params]
+    }
+    if {[regexp -nocase -all -- {^\s*?func\s*?(\w+)\((.*?)\) (\(\w+\)|\w+|)\s*?\{} $line match funcName params returns]} {
+        lappend procList($fuleFullName) [list $functonName $params]
+    }
+}
+
+proc ReadFilesFromDirectory {directory} {
+    global procList
+    puts $directory
+    foreach fileName [fileutil::findByPattern $directory *.tcl] {
+        puts "Find file: $fileName"
+        ReadFileStructureTCL $fileName
+    }
+        set f [open "/tmp/test" w]
+    foreach name [array names procList] {
+        puts $f "$name: $procList($name)"
+    }
+}
+
+
+# set threadID [thread::create {
+    # proc runCommand {ID command} {
+        # set result [eval $command]
+        # eval [subst {thread::send -async $ID \
+            # {::printResult [list $result]}}]
+    # }
+    # thread::wait
+# }] 
+# 
+proc Accept { dirLib directory } {
+    global dir
+    puts $dir(lib)
+   puts $dirLib
+  # переменная с указанием ваших действия перед порождением потока
+    set threadinit {
+        # если необходимо, загружаем исходный tcl код, расположенный в других файлах
+        foreach { s } { readstructure } {
+          # uplevel #0 source [file join /home/svkalinin/Проекты/projman/lib $s.tcl]
+          uplevel #0 source [file join $dirLib $s.tcl]
+        }
+        # не завершаем поток, ибо будет запущен событийный сокетный обработчик
+        thread::wait
+    }
+
+      # порождаем поток, выполнив предварительные действия, описанные в переменной threadinit
+      set tid [thread::create $threadinit]
+
+      # thread::transfer $tid
+      # запускаем поток в асинхронном режиме
+      thread::send -async $tid [list ReadFilesFromDirectory $directory]
+}
+
+
+# процедура завершения потока
+proc Exit:Thread {  } {
+  # уничтожаем, останавливаем поток
+  thread::release
+}