projman/install.tcl

396 lines
13 KiB
Tcl
Raw Normal View History

2015-10-19 13:27:31 +03:00
#!/usr/bin/wish
###########################################################
# Tcl/Tk Project Manager #
# install script #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
###########################################################
## SETTING VARIABLES AND DIRECTORYES ##
set ver "0.4.5"
2015-10-19 13:27:31 +03:00
set imgDir img
set msgDir msgs
set docDir hlp
set hlDir highlight
set fontNormal "helvetica 12 normal roman"
package require msgcat
package require BWidget
::msgcat::mclocale en
::msgcat::mcload msgs
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"
}
proc InsertEnt {entry text} {
$entry delete 0 end
$entry insert end $text
}
proc SelectDir {dir} {
set dirName [tk_chooseDirectory -initialdir $dir\
-title "[::msgcat::mc "Select directory"]"\
-parent .]
return $dirName
}
## GET HELP DIRECTORYES ##
proc GetHelp {} {
global docDir localeList
set localeList ""
if {[catch {cd $docDir}] != 0} {
return ""
}
foreach file [lsort [glob -nocomplain *]] {
if {[file isdirectory $file] == 1 && $file != "CVS"} {
lappend localeList [list [file rootname $file]]
}
}
catch {cd ..}
return $localeList
}
proc GetLocale {} {
global msgDir locList
set locList ""
if {[catch {cd $msgDir}] != 0} {
return ""
}
foreach file [lsort [glob -nocomplain *.msg]] {
puts $file
if {[file isdirectory $file] == 0} {
puts [file rootname $file]
lappend locList [list [file rootname $file]]
}
}
catch {cd ..}
return $locList
}
set w .
wm title $w "Install Tcl/Tk Project Manager"
#wm resizable $w 0 0
#wm geometry $w 400x350
set top [frame .frmTop -relief groove -borderwidth 1 -background white]
pack $top -fill x
image create photo imgAbout -format gif -file [file join img projman.gif]
label $top.lblImg -image imgAbout -background white
pack $top.lblImg -side top -pady 5 -padx 5
set frm [frame .frmMain -relief groove -borderwidth 1]
pack $frm -expand 1 -fill both
set btn [frame .frmButton -relief groove -borderwidth 1]
pack $btn -fill x
image create photo imgFold -format gif -file [file join img folder.gif]
set frm1 [frame $frm.frmRootDir]
pack $frm1 -fill x -pady 2
label $frm1.lblRootDir -text "Install dir" -width 23 -anchor w
entry $frm1.txtRootDir
button $frm1.btnRootDir -borderwidth {1} -image imgFold\
-command {
$frm1.txtRootDir delete 0 end
$frm1.txtRootDir insert end [SelectDir $initDir]
}
pack $frm1.lblRootDir -side left
pack $frm1.txtRootDir -side left -fill x -expand true
pack $frm1.btnRootDir -side left
set frm4 [frame $frm.frmTclDir]
pack $frm4 -fill x -pady 2
label $frm4.lblTclDir -text "Tcl bin dir" -width 23 -anchor w
entry $frm4.txtTclDir
button $frm4.btnTclDir -borderwidth {1} -image imgFold\
-command {
$frm4.txtTclDir delete 0 end
$frm4.txtTclDir insert end [SelectDir $initDir]
}
pack $frm4.lblTclDir -side left
pack $frm4.txtTclDir -side left -fill x -expand true
pack $frm4.btnTclDir -side left
set frm6 [frame $frm.frmDocLang]
pack $frm6 -fill x -pady 2
label $frm6.lblLang -text [::msgcat::mc "Documentation language"]\
-width 23 -anchor w
set combo [ComboBox $frm6.txtLang\
-textvariable langDoc -command "puts 123"\
-selectbackground "#55c4d1" -selectborderwidth 0\
-values [GetHelp]]
pack $frm6.lblLang -side left
pack $frm6.txtLang -side left -fill x -expand true
set frm7 [frame $frm.frmLocale]
pack $frm7 -fill x -pady 2
label $frm7.lblLocale -text [::msgcat::mc "Interface language"]\
-width 23 -anchor w
set comboLocale [ComboBox $frm7.txtLocale\
-textvariable localeSet -command "puts 123"\
-selectbackground "#55c4d1" -selectborderwidth 0\
-values [GetLocale]]
pack $frm7.lblLocale -side left
pack $frm7.txtLocale -side left -fill x -expand true
button $btn.btnOk -text "Next" -width 10 -borderwidth {1}\
-command {
CopyFiles [$frm1.txtRootDir get] [$frm4.txtTclDir get] $langDoc $localeSet
}
button $btn.btnCancel -text "Exit" -width 10 -borderwidth {1}\
-command {exit}
pack $btn.btnOk $btn.btnCancel -side left -padx 2 -pady 2 -expand 1
bind $w <Escape> "exit"
InsertEnt $frm1.txtRootDir $rootDir
InsertEnt $frm4.txtTclDir $tclDir
$combo setvalue @0
$comboLocale setvalue @0
proc CopyFiles {rootDir tclDir langDoc locale} {
global ver tcl_platform binDir hlDir
set exeName projman
set modules {
editor.tcl help.tcl html_lib.tcl procedure.tcl
main.tcl settings.tcl projects.tcl imgviewer.tcl
baloon.tcl completition.tcl taglist.tcl supertext.tcl
pane.tcl highlight/html.tcl highlight/spec.tcl highlight/tcl.tcl highlight/tex.tcl
highlight/caml.tcl highlight/fortran.tcl highlight/java.tcl
highlight/perl.tcl highlight/php.tcl highlight/rivet.tcl highlight/ruby.tcl
}
set docFiles {TODO README INSTALL CHANGELOG COPYING THANKS}
set confFiles {projman.spec projman.conf}
if {[string length [string trim $rootDir]]} {
regsub -all {\\} $rootDir {\\\\} rootDir_
set rootDir $rootDir_
}
if {[string length [string trim $tclDir]]} {
regsub -all {\\} $tclDir {\\\\} tclDir_
set tclDir $tclDir_
}
destroy .frmMain.frmRootDir
destroy .frmMain.frmTclDir
destroy .frmMain.frmLocale
destroy .frmMain.frmDocLang
set frm ".frmMain"
pack $frm -expand 1 -fill both
set text [text $frm.text -yscrollcommand "$frm.yscroll set" \
-relief sunken -wrap word -highlightthickness 0\
-selectborderwidth 0 -selectbackground #55c4d1 -height 15 -width 30]
scrollbar $frm.yscroll -relief sunken -borderwidth {1} -width {10} -takefocus 0 \
-command "$frm.text yview"
pack $frm.text -side left -fill both -expand true
pack $frm.yscroll -side left -fill y
$text insert end "Root dir - $rootDir\nTcl dir - $tclDir"
$text insert end "\n-- Copying files --\n"
set binDir [file join $rootDir bin ]
set dataDir [file join $rootDir share projman ]
set docDir [file join $rootDir share doc projman-$ver]
set imgDir [file join $dataDir img ]
set msgDir [file join $dataDir msgs ]
set hlDir [file join $dataDir highlight ]
## CREATE DIRECTORYES ##
if {[file exists $rootDir] != 1} {file mkdir $rootDir}
if {[file exists $binDir ] != 1} {file mkdir $binDir }
if {[file exists $dataDir] != 1} {file mkdir $dataDir}
if {[file exists $docDir ] != 1} {file mkdir $docDir }
if {[file exists $imgDir ] != 1} {file mkdir $imgDir }
if {[file exists $msgDir ] != 1} {file mkdir $msgDir }
if {[file exists $hlDir ] != 1} {file mkdir $hlDir }
## CREATE EXECUTION FILE ##
puts [pwd]
set source [open "projman.tcl" "r"]
set exe [open [file join $binDir $exeName] "w"]
while {[gets $source line]>=0} {
if {[string match "set rootDir \"/usr\"" [string trim $line]] == 1} {
puts $exe "set rootDir \"$rootDir_\""
} elseif {[string match "set tclDir \"/usr/bin\"" [string trim $line]] == 1} {
puts $exe "set tclDir \"$tclDir_\""
} else {
puts $exe $line
}
}
close $source
close $exe
## SET PERMISSIONS ON FILE FOR UNIX OR CREATE start.bat FILE FOR WINDOWS ##
if {$tcl_platform(platform) == "unix"} {
file attributes [file join $binDir $exeName] -permissions 00755
} elseif {$tcl_platform(platform) == "windows"} {
set bat [open [file join $binDir projman.bat] "w"]
set progPath "[file join $binDir $exeName.tcl]"
file rename -force [file join $binDir $exeName] $progPath
regsub -all {/} $progPath "\\" progPath
set tclPath "[file join $tclDir wish.exe]"
regsub -all {/} $tclPath "\\" tclPath
puts $bat "\"$tclPath\" \"$progPath\""
close $bat
}
## COPYING MODULES FILES (*.tcl) ##
foreach file $modules {
lappend rList [list [file join . $file]]
set fileName [file join $file]
$text insert end "$fileName\n"
$text mark set insert end
$text see insert
file copy -force -- $fileName [file join $dataDir $fileName]
}
## COPYING CONFIG FILE ##
foreach fileName $confFiles {
$text insert end "$fileName\n"
$text mark set insert end
$text see insert
file copy -force -- $fileName [file join $dataDir $fileName]
}
## COPYING DOCUMENTATION (HELP) FILES ##
foreach fileName $docFiles {
$text insert end "$fileName\n"
$text mark set insert end
$text see insert
file copy -force -- $fileName [file join $docDir $fileName]
}
if {$locale == ""} {
set locale "en"
}
if {$langDoc == ""} {
set langDoc "en"
}
puts "Locale - $locale LangDoc - $langDoc"
if {[catch {cd [file join hlp $langDoc]}] != 0} {
return ""
}
foreach dir [lsort [glob -nocomplain *]] {
if {[file isdirectory $dir] == 1 && $dir != "CVS"} {
if {[file exists [file join $docDir $dir]] != 1} {
file mkdir [file join $docDir $dir]
#puts [file join $docDir $dir]
}
foreach file [lsort [glob -nocomplain [file join $dir *.*]]] {
#puts $file
lappend rList [list [file join . $file]]
set fileName [file join $file]
$text insert end "$fileName\n"
$text mark set insert end
$text see insert
file copy -force -- $fileName [file join $docDir $fileName]
}
}
}
## COPYING IMAGE FILES ##
if {[catch {cd [file join .. .. img]}] != 0} {
return ""
}
foreach file [lsort [glob -nocomplain *.gif]] {
lappend rList [list [file join . $file]]
set fileName [file join $file]
$text insert end "$fileName\n"
$text mark set insert end
$text see insert
file copy -force -- $fileName [file join $imgDir $fileName]
}
foreach file [lsort [glob -nocomplain *.png]] {
lappend rList [list [file join . $file]]
set fileName [file join $file]
$text insert end "$fileName\n"
$text mark set insert end
$text see insert
file copy -force -- $fileName [file join $imgDir $fileName]
}
## COPYING MESSAGES FILES ##
if {[catch {cd [file join .. msgs]}] != 0} {
return ""
}
foreach file [lsort [glob -nocomplain *.msg]] {
lappend rList [list [file join . $file]]
set fileName [file join $file]
$text insert end "$fileName\n"
$text mark set insert end
$text see insert
file copy -force -- $fileName [file join $msgDir $fileName]
}
## COPYING HIGHLIGHT FILES ##
if {[catch {cd [file join .. highlight]}] != 0} {
return ""
}
foreach file [lsort [glob -nocomplain *.tcl]] {
lappend rList [list [file join . $file]]
set fileName [file join $file]
$text insert end "$fileName\n"
$text mark set insert end
$text see insert
file copy -force -- $fileName [file join $hlDir $fileName]
}
$text insert end "-- Copying file complite --"
$text mark set insert end
$text see insert
destroy .frmButton.btnOk
.frmButton.btnCancel configure -text "Finish" -command {exit}
SetVarLang $locale
}
#Michel SALVAGNIAC 7 avril 2002
#positionne la variable d'environnement LANG
#n?cessaire pour msgcat
#version de tcl/tk :8.3
#test? avec Windows 95,Windows NT4,Windows 2000, Windows XP pro
proc SetVarLang {lang} {
global tcl_platform rootDir
set language $lang
if {$tcl_platform(platform) == "windows"} {
#Windows NT,2000,XP PRO
if {$tcl_platform(os) == "Windows NT"} {
package require registry
tk_messageBox -type ok -icon warning \
-message "Modifying the Registry..."
set clebase "HKEY_LOCAL_MACHINE\\System\\CurrentControlSet\\Control\\Session Manager\\Environment"
registry set $clebase LANG $language sz
#Windows 95
} elseif {$tcl_platform(os) == "Windows 95"} {
tk_messageBox -type ok -icon warning \
-message "Modifying the C:\\Autoexec.bat"
file copy -force c:/Autoexec.bat c:/autoexec.sav
set ficsys [open "c:/autoexec.bat" a+]
puts $ficsys "SET LANG=$language "
puts $ficsys "SET HOMEDRIVE=C:\\"
set workDir [file join $rootDir work]
regsub -all {/} $workDir {\\} home
puts $ficsys "SET HOMEPATH=$home"
close $ficsys
}
}
}