New version of ProjMan
This commit is contained in:
svkalinin
244
projman.tcl
244
projman.tcl
@@ -2,178 +2,112 @@
|
||||
# Tcl ignores the next line -*- tcl -*- \
|
||||
exec wish "$0" -- "$@"
|
||||
|
||||
###############################################
|
||||
# Tcl/Tk Project Manager #
|
||||
# Distrubuted under GPL #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, #
|
||||
# Home: http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###############################################
|
||||
######################################################
|
||||
# Tcl/Tk Project manager 2.0
|
||||
# Distributed under GNU Public License
|
||||
# Author: Sergey Kalinin svk@nuk-svl.ru
|
||||
# Home page: https://nuk-svk.ru
|
||||
######################################################
|
||||
# Version: 2.0.0
|
||||
# Release: alpha
|
||||
######################################################
|
||||
|
||||
########## VERSION INFORMATION ##########
|
||||
set ver "0.4.6"
|
||||
# определим текущую версию и релиз
|
||||
set f [open [info script] "RDONLY"]
|
||||
while {[gets $f line] >=0} {
|
||||
if [regexp -nocase -all -- {version:\s+([0-9]+?.[0-9]+?.[0-9]+?)} $line match v1] {
|
||||
|
||||
|
||||
package require BWidget
|
||||
set projmanVersion $v1
|
||||
}
|
||||
if [regexp -nocase -all -- {release:\s+([a-z0-9]+?)} $line match v1] {
|
||||
set projmanRelease $v1
|
||||
}
|
||||
}
|
||||
close $f
|
||||
|
||||
puts "Projman version $projmanVersion-$projmanRelease"
|
||||
|
||||
|
||||
if { $::argc > 0 } {
|
||||
foreach arg $::argv {
|
||||
lappend opened $arg
|
||||
}
|
||||
puts $opened
|
||||
}
|
||||
package require msgcat
|
||||
package require base64
|
||||
package require Img
|
||||
package require inifile
|
||||
package require ctext
|
||||
|
||||
set wishOpList [info commands]
|
||||
## DO NOT EDIT THIS LINE! USE install.tcl SCRIPT ##
|
||||
# Устанавливаем текущий каталог
|
||||
set dir(root) /usr/share/projman
|
||||
|
||||
# if {$tcl_platform(platform) == "unix"} {
|
||||
# set initDir "$env(HOME)"
|
||||
# set rootDir "/usr/local"
|
||||
# set tmpDir "$env(HOME)/tmp"
|
||||
# set tclDir "/usr/bin"
|
||||
# } elseif {$tcl_platform(platform) == "windows"} {
|
||||
# set initDir "c:\\"
|
||||
# set rootDir "c:\\Tcl"
|
||||
# set tmpDir "c:\\temp"
|
||||
# set tclDir "C:\\Tcl\\bin"
|
||||
# }
|
||||
set tclDir [file dirname [info nameofexecutable]]
|
||||
puts $tclDir
|
||||
set rootDir [pwd]
|
||||
#set rootDir "/usr"
|
||||
#set tclDir "/usr/bin"
|
||||
set dataDir "[file join $rootDir lib]"
|
||||
set docDir "[file join $rootDir hlp ru]"
|
||||
set imgDir "[file join $rootDir img]"
|
||||
set msgDir "[file join $rootDir msgs]"
|
||||
set binDir $rootDir
|
||||
set hlDir [file join $dataDir highlight]
|
||||
set dir(doc) [file join $dir(root) doc]
|
||||
|
||||
if {$tcl_platform(platform) == "unix"} {
|
||||
set tmpDir "$env(HOME)/tmp"
|
||||
set workDir "[file join $env(HOME) .projman]"
|
||||
} elseif {$tcl_platform(platform) == "windows"} {
|
||||
if [info exists env(TEMP)] {
|
||||
set tmpDir "$env(TEMP)"
|
||||
} else {
|
||||
set tmpDir "c:\\temp"
|
||||
}
|
||||
if {[info exist env(HOMEDRIVE)] && [info exists env(HOMEPATH)]} {
|
||||
set workDir "[file join $env(HOMEDRIVE) $env(HOMEPATH) .projman]"
|
||||
} else {
|
||||
set workDir "[file join $rootDir .projman]"
|
||||
}
|
||||
}
|
||||
if {[file exists $workDir] == 0} {file mkdir $workDir}
|
||||
if {[file exists $tmpDir] == 0} {file mkdir $tmpDir}
|
||||
|
||||
if {[file exists [file join $workDir projman.conf]] == 0} {
|
||||
file copy -force -- projman.conf [file join $workDir projman.conf]
|
||||
}
|
||||
|
||||
#source [file join $workDir projman.conf]
|
||||
# Read the projman.conf file and setting the variable
|
||||
set config [open [file join $workDir projman.conf] RDONLY]
|
||||
while {[gets $config line]>=0} {
|
||||
if [regexp -nocase -all -line -- {(set)\s(.+)\s"(.+|)"} $line match op var data] {
|
||||
regsub -all -- {\$env\(HOME\)} $data "$env(HOME)" data
|
||||
regsub -all -- {\$workDir} $data "$workDir" data
|
||||
set $var $data
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
## CREATE WORK DIR ##
|
||||
if {[file exists $rpmDir] != 1} {file mkdir $rpmDir}
|
||||
if {[file exists $tgzDir] != 1} {file mkdir $tgzDir}
|
||||
if {[file exists $projDir] != 1} {file mkdir $projDir}
|
||||
|
||||
## SETTINGS ENVIRONMENT LANGUAGE ##
|
||||
if [info exists env(LANG)] {
|
||||
set locale $env(LANG)
|
||||
# Устанавливаем рабочий каталог, если его нет то создаём.
|
||||
# Согласно спецификации XDG проверяем наличие переменных и каталогов
|
||||
if [info exists env(XDG_CONFIG_HOME)] {
|
||||
set dir(cfg) [file join $env(XDG_CONFIG_HOME) projman]
|
||||
} elseif [file exists [file join $env(HOME) .config]] {
|
||||
set dir(cfg) [file join $env(HOME) .config projman]
|
||||
} else {
|
||||
set locale $locale
|
||||
set dir(cfg) [file join $env(HOME) .projman]
|
||||
}
|
||||
|
||||
::msgcat::mclocale $locale
|
||||
::msgcat::mcload $msgDir
|
||||
if {[file exists $dir(cfg)] == 0} {
|
||||
file mkdir $dir(cfg)
|
||||
}
|
||||
|
||||
## LOAD FILE ##
|
||||
# Load modules but maain.tcl must last loaded
|
||||
foreach modFile [lsort [glob -nocomplain [file join $dataDir *.tcl]]] {
|
||||
if {[file tail $modFile] ne "main.tcl"} {
|
||||
puts "Config dir is $dir(cfg)"
|
||||
|
||||
# каталог с модулями
|
||||
set dir(lib) /usr/share/projman/lib ;# /usr/share/projman/lib ;# /usr/share/projman/lib ;# /usr/share/projman/lib ;# /usr/share/projman/lib ;# /usr/share/projman/lib ;# /usr/share/projman/lib ;# /usr/share/projman/lib ;# /usr/share/projman/lib ;# /usr/share/projman/lib ;# /usr/share/projman/lib ;# /usr/share/projman/lib ;# /usr/share/projman/lib ;# "[file join $dir(root) lib]"
|
||||
|
||||
source [file join $dir(lib) config.tcl]
|
||||
|
||||
foreach modFile [lsort [glob -nocomplain [file join $dir(lib) *.tcl]]] {
|
||||
if {[file tail $modFile] ne "gui.tcl" && [file tail $modFile] ne "config.tcl"} {
|
||||
source $modFile
|
||||
puts "Loaded module $modFile"
|
||||
puts "Loading module $modFile"
|
||||
}
|
||||
}
|
||||
# load code highlight modules
|
||||
foreach modFile [lsort [glob -nocomplain [file join $hlDir *.tcl]]] {
|
||||
source $modFile
|
||||
puts "Loaded highlight module $modFile"
|
||||
|
||||
# TTK Theme loading
|
||||
set dir(theme) "[file join $dir(root) theme]"
|
||||
foreach modFile [lsort [glob -nocomplain [file join $dir(theme) *]]] {
|
||||
if [file isdirectory $modFile] {
|
||||
source $modFile/[file tail $modFile].tcl
|
||||
puts "Loading theme $modFile.tcl"
|
||||
} elseif {[file extension $modFile] eq ".tcl"} {
|
||||
source $modFile
|
||||
puts "Loading theme $modFile"
|
||||
}
|
||||
}
|
||||
|
||||
source [file join $dataDir main.tcl]
|
||||
|
||||
#option add *tree.foreground red widgetDefault
|
||||
# Set colors for widgets
|
||||
option add *Frame.Background $editor(bg) interactive
|
||||
option add *ScrollableFrame.Background $editor(bg) interactive
|
||||
option add *ScrolledWindow.Background $editor(bg) interactive
|
||||
option add *Button.Foreground $editor(fg) interactive
|
||||
option add *Button.Background $editor(bg) interactive
|
||||
option add *Button.activeBackground $editor(bg) userDefault
|
||||
option add *Button.activeForeground $editor(fg) userDefault
|
||||
# загружаем пользовательский конфиг, если он отсутствует, то копируем дефолтный
|
||||
if {[file exists [file join $dir(cfg) projman.ini]] ==0} {
|
||||
Config::create $dir(cfg)
|
||||
}
|
||||
Config::read $dir(cfg)
|
||||
|
||||
option add *Entry.Foreground $editor(fg) interactive
|
||||
option add *Entry.Background $editor(bg) interactive
|
||||
option add *Label.Foreground $editor(fg) interactive
|
||||
option add *Label.Background $editor(bg) interactive
|
||||
option add *Checkbox.Foreground $editor(fg) interactive
|
||||
option add *Checkbox.Background $editor(bg) interactive
|
||||
option add *Checkbutton.Foreground $editor(fg) interactive
|
||||
option add *Checkbutton.Background $editor(bg) interactive
|
||||
option add *Combobox.Foreground $editor(fg) interactive
|
||||
option add *Combobox.Background $editor(bg) interactive
|
||||
option add *Text.Foreground $editor(fg) interactive
|
||||
option add *Text.Background $editor(bg) interactive
|
||||
option add *Tree.Background $editor(bg) interactive
|
||||
option add *Tree.Foreground $editor(fg) interactive
|
||||
option add *Scrollbar.Background $editor(bg) interactive
|
||||
option add *Canvas.Background $editor(bg) interactive
|
||||
option add *Canvas.Foreground $editor(fg) interactive
|
||||
option add *Node.Foreground $editor(fg) interactive
|
||||
option add *NoteBook.bg $editor(bg) interactive
|
||||
option add *NoteBook.fg $editor(fg) interactive
|
||||
option add *Listbox.Foreground $editor(fg) interactive
|
||||
option add *Listbox.Background $editor(bg) interactive
|
||||
::msgcat::mclocale $cfgVariables(locale)
|
||||
|
||||
#option add *Button.font $guifont userDefault
|
||||
#option add *Label.font $guifont userDefault
|
||||
#option add *Menu.font $guifont userDefault
|
||||
#option add *Menubutton.font $guifont userDefault
|
||||
option add *Dialog.msg.background $editor(bg)
|
||||
|
||||
# option add *Text.Background $textbg userDefault
|
||||
# option add *Entry.Background $textbg userDefault
|
||||
# option add *Text.Foreground $textfg userDefault
|
||||
# option add *Entry.Foreground $textfg userDefault
|
||||
# option add *Button.activeBackground $bg userDefault
|
||||
# option add *Button.activeForeground $fg userDefault
|
||||
# option add *Scrollbar.activeBackground $bg userDefault
|
||||
# option add *Scrollbar.troughColor $shadow userDefault
|
||||
# option add *Canvas.Background $shadow userDefault
|
||||
#
|
||||
# # These menu configs work if you use native menus.
|
||||
# option add *Menu.borderWidth 1 userDefault
|
||||
# option add *Menu.activeForeground $fg userDefault
|
||||
# option add *Menubutton.activeForeground $fg userDefault
|
||||
#
|
||||
# # This draws a thin border around buttons
|
||||
# #option add *highlightBackground $bg userDefault
|
||||
# # Suppress the border
|
||||
# option add *HighlightThickness 0 userDefault
|
||||
# # Add it back for text and entry widgets
|
||||
# option add *Text.highlightBackground $bg userDefault
|
||||
# option add *Entry.highlightBackground $bg userDefault
|
||||
# option add *Text.HighlightThickness 2 userDefault
|
||||
# option add *Entry.HighlightThickness 1 userDefault
|
||||
|
||||
GetSystemCommand
|
||||
if [::msgcat::mcload [file join $dir(lib) msgs]] {
|
||||
puts "Load locale messages... OK"
|
||||
}
|
||||
puts "Setting the locale... [::msgcat::mclocale]"
|
||||
|
||||
source [file join $dir(lib) gui.tcl]
|
||||
|
||||
# Open the PATH if command line argument has been setting
|
||||
if [info exists opened] {
|
||||
puts $opened
|
||||
foreach path $opened {
|
||||
if [file isdirectory $path] {
|
||||
FileOper::ReadFolder $path
|
||||
} elseif [file exists $path] {
|
||||
ResetModifiedFlag [FileOper::Edit $path]
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user