Initial release

2015-10-19 14:27:31 +04:00
commit 32f28094bf
644 changed files with 94529 additions and 0 deletions
--- a/projman.tcl
+++ b/projman.tcl
@@ -0,0 +1,102 @@
+#!/usr/bin/wish                                                                 
+
+###########################################################
+#                Tcl/Tk Project Manager                   #
+#                Distrubuted under GPL                    #
+# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru  #
+# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru       #
+###########################################################
+
+########## VERSION INFORMATION ##########
+set ver "0.3.8"
+
+package require BWidget
+package require msgcat
+
+## DO NOT EDIT THIS LINE! USE install.tcl SCRIPT ##
+set rootDir "/usr"
+set tclDir "/usr/bin"
+
+##
+if {[file exists $env(HOME)/projects/tcl/projman]==1} {
+    set dataDir "[file join $env(HOME) projects tcl projman]"
+    set docDir "[file join $env(HOME) projects tcl projman hlp ru]"
+    set imgDir "[file join $env(HOME) projects tcl projman img]"
+    set msgDir "[file join $env(HOME) projects tcl projman msgs]"
+    set hlDir "[file join $env(HOME) projects tcl projman highlight]"
+} else {
+    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]
+}
+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 -- [file join $dataDir projman.conf] [file join $workDir projman.conf]
+}
+
+source [file join $workDir projman.conf]
+
+## 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)
+} else {
+    set locale $locale
+}
+
+::msgcat::mclocale $locale
+::msgcat::mcload $msgDir
+#set mc_source [open [file join $msgDir $locale.msg] "r"]
+#set mc_source [encoding convertto koi8-r $mc_source]
+#set mc_source [encoding convertfrom [encoding system] $mc_source]
+
+## LOAD FILE ##
+
+
+source [file join $dataDir procedure.tcl]
+source [file join $dataDir supertext.tcl]
+source [file join $dataDir editor.tcl]
+source [file join $dataDir help.tcl]
+source [file join $dataDir settings.tcl]
+source [file join $dataDir baloon.tcl]
+source [file join $dataDir completition.tcl]
+source [file join $dataDir pane.tcl]
+source [file join $dataDir taglist.tcl]
+source [file join $dataDir projects.tcl]
+source [file join $dataDir imgviewer.tcl]
+source [file join $dataDir main.tcl]
+
+
+foreach file [lsort [glob -nocomplain [file join $hlDir *.tcl]]] {
+    source $file
+    puts "Loaded highlight module $file"
+}
+
+set editor(selectBorder) "0"
+
+
+