svk/projman
svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Изменены имена переменных

Browse Source
This commit is contained in:
svkalinin 2022-08-12 15:22:07 +03:00
parent 288cea7290
commit c1e7fa558e
1 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
projman.tcl
View File

@ -5,30 +5,35 @@ exec wish "$0" -- "$@"
###################################################### ######################################################
# Tcl/Tk Project manager 2.0 # Tcl/Tk Project manager 2.0
# Distributed under GNU Public License # Distributed under GNU Public License
# Author: Sergey Kalinin svk@nuk-svl.ru # Author: Sergey Kalinin svk@nuk-svk.ru
# Home page: https://nuk-svk.ru # Home page: https://nuk-svk.ru
###################################################### ######################################################
# Version: 2.0.0 # Version: 2.0.0
# Release: alpha # Release: alpha
# Build: 12082022151702
###################################################### ######################################################
# определим текущую версию и релиз # определим текущую версию, релиз и т.д.
set f [open [info script] "RDONLY"] set f [open [info script] "RDONLY"]
while {[gets $f line] >=0} { while {[gets $f line] >=0} {
if [regexp -nocase -all -- {version:\s+([0-9]+?.[0-9]+?.[0-9]+?)} $line match v1] { if [regexp -nocase -all -- {version:\s+([0-9]+?.[0-9]+?.[0-9]+?)} $line match v1] {
set projman(Version) $v1
set projmanVersion $v1
} }
if [regexp -nocase -all -- {release:\s+([a-z0-9]+?)} $line match v1] { if [regexp -nocase -all -- {release:\s+([a-z0-9]+?)} $line match v1] {
set projmanRelease $v1 set projman(Release) $v1
}
if [regexp -nocase -all -- {build:\s+([a-z0-9]+?)} $line match v1] {
set projman(Build) $v1
}
if [regexp -nocase -all -- {author:\s+(.+?)} $line match v1] {
set projman(Author) $v1
}
if [regexp -nocase -all -- {home page:\s+(.+?)} $line match v1] {
set projman(Homepage) $v1
} }
} }
close $f close $f
puts "Projman version $projmanVersion-$projmanRelease"
if { $::argc > 0 } { if { $::argc > 0 } {
foreach arg $::argv { foreach arg $::argv {
lappend opened $arg lappend opened $arg
@ -40,6 +45,8 @@ package require msgcat
package require inifile package require inifile
package require ctext package require ctext
package require base64 package require base64
package require fileutil
package require Thread
# Устанавливаем текущий каталог # Устанавливаем текущий каталог
set dir(root) [pwd] set dir(root) [pwd]
@ -60,7 +67,7 @@ if {[file exists $dir(cfg)] == 0} {
file mkdir $dir(cfg) file mkdir $dir(cfg)
} }
puts "Config dir is $dir(cfg)" # puts "Config dir is $dir(cfg)"
# каталог с модулями # каталог с модулями
set dir(lib) "[file join $dir(root) lib]" set dir(lib) "[file join $dir(root) lib]"