120 lines
4.6 KiB
Tcl
120 lines
4.6 KiB
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 [lsearch -exact -nocase $l $fileName]"
|
||
if {[lsearch -exact $l $fileName] != -1 && [file isdirectory [file join $root $directory $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 [file join $root $directory $fileName];# "[GetVariablesFromFile $fileName]"
|
||
lappend project($root) [file join $root $directory $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
|
||
}
|