projman/lib/readstructure.tcl

######################################################
#                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 GetVariablesFromFile {fileName} {
    global tree nbEditor editors lexers project
    set fileType [string toupper [string trimleft [file extension $fileName] "."]]
    set procList ""
    set varList ""
    set params ""
    set f [open "$fileName" r]
    if {[dict exists $lexers $fileType] == 0} {return}
    while {[gets $f line] >=0 } {
        # Выбираем процедуры (функции, классы и т.д.)
        # if {[dict exists $lexers $fileType procRegexpCommand] != 0 } {
            # if {[eval [dict get $lexers $fileType procRegexpCommand]]} {
                # set procName_ [string trim $procName]
                # # puts [Tree::InsertItem $tree $treeItemName $procName_  "procedure" "$procName_ ($params)"]
                # lappend procList [list $procName_ $params]
                # unset procName_
            # }
        # }
        # Выбираем переменные
        if {[dict exists $lexers $fileType varRegexpCommand] != 0 } {
            if {[eval [dict get $lexers $fileType varRegexpCommand]]} {
                set varName [string trim $varName]
                set varValue [string trim $varValue]
                # puts "variable: $varName, value: $varValue"
                lappend varList [list $varName $varValue]
            }
        }
    }
    # puts $procList
    # puts $varList
    close $f
    return $varList
}


proc ReadFilesFromDirectory {directory root {type ""}} {
    global procList project lexers variables
    foreach i [split [dict get $lexers ALL varDirectory] " "] {
        lappend l [string trim $i]
        # puts $i
    }
    if {[catch {cd $directory}] != 0} {
        return ""
    }
    foreach fileName [glob -nocomplain *] {
        puts "Find file: $fileName"
        if {[lsearch $l [file tail $fileName]] != -1 && [file isdirectory $fileName] == 1} {
            # puts "--- $root $fileName"
            ReadFilesFromDirectory [file join $directory $fileName] $root "var"
        } elseif {[file isdirectory $fileName] == 1} {
            # set type ""
            ReadFilesFromDirectory [file join $directory $fileName] $root
        }   
        if {$type eq "var"} {
            # puts ">>>>>$root $fileName"
            # puts "[GetVariablesFromFile $fileName]"
            dict set project $root $fileName "[GetVariablesFromFile $fileName]"
            set variables([file join $root $directory $fileName]) [GetVariablesFromFile $fileName]
            puts "[file join $root $directory $fileName]---$variables([file join $root $directory $fileName])"
        }
    }
}


# 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
}