2015-10-19 13:27:31 +03:00
# ########################################################
# Tcl/Tk project Manager
# Distributed under GNU Public License
# Author: Sergey Kalinin banzaj@lrn.ru
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru
# ########################################################
proc NewProjDialog { type } {
global fontNormal tree projDir workDir activeProject fileList noteBook imgDir prjDir prjName
global openProjDir tclDir
set w .newProj
# destroy the find window if it already exists
if { [ winfo exists $w ] } {
2018-01-11 11:04:41 +03:00
2015-10-19 13:27:31 +03:00
destroy $w
}
set typeProjects " T c l J a v a P e r l F o r t r a n O ' C a m l P H P R u b y E r l a n g "
toplevel $w
wm title $w [ : : msgcat : : mc " N e w p r o j e c t " ]
wm resizable $w 0 0
wm transient $w .
frame $w.frmCombo - borderwidth 1
frame $w.frmBtn - borderwidth 1
pack $w.frmCombo $w.frmBtn - side top - fill x
# set combo [entry $w.frmCombo.entFind]
set combo [ ComboBox $w.frmCombo.txtLocale \
-textvariable lang - editable false\
-selectbackground " # 5 5 c 4 d 1 " - selectborderwidth 0 \
-values $typeProjects ]
pack $combo - fill x - padx 2 - pady 2
if { $type == " n e w " } {
button $w.frmBtn.btnFind - text " [ : : m s g c a t : : m c " C r e a t e " ] " \
-font $fontNormal - width 12 - relief groove\
-command {
NewProj add " " $lang
destroy .newProj
}
} elseif { $type == " o p e n " } {
button $w.frmBtn.btnFind - text " [ : : m s g c a t : : m c " O p e n " ] " \
-font $fontNormal - width 12 - relief groove\
-command {
NewProj open " $ p r j N a m e " $lang
destroy .newProj
}
}
button $w.frmBtn.btnCancel - text " [ : : m s g c a t : : m c " C l o s e " ] - E s c " \
-relief groove - width 12 - font $fontNormal \
-command " d e s t r o y $ w "
pack $w.frmBtn.btnFind $w.frmBtn.btnCancel - fill x - padx 2 - pady 2 - side left
if { $type == " o p e n " } {
bind $w < Return> { NewProj open $prjName $lang ; destroy .newProj}
} elseif { $type == " n e w " } {
bind $w < Return> { NewProj add " " $lang ; destroy .newProj}
}
bind $w < Escape> " d e s t r o y $ w "
focus - force $combo
# set findIndex [lsearch -exact $findHistory "$findString"]
$combo setvalue @ 0
}
proc NewProj { type proj l} {
global fontNormal tree projDir workDir activeProject fileList noteBook imgDir prjDir
global openProjDir tclDir frm lang operType
set operType $type
if { $operType == " e d i t " && $proj == " " } {
set answer [ tk_messageBox \
-message " [ : : m s g c a t : : m c " N o t f o u n d a c t i v e p r o j e c t " ] " \
-type ok - icon warning - title [ : : msgcat : : mc " W a r n i n g " ] ]
case $answer {
ok { return 0 }
}
}
set lang $l
set node [ $noteBook page [ $noteBook index newproj] ]
if { $node != " " } {
$noteBook raise newproj
return 0
} else {
set w [ $noteBook insert end newproj - text [ : : msgcat : : mc " N e w p r o j e c t " ] ]
}
set frm [ frame $w.frmProjSettings ]
pack $frm - fill both - expand true
image create photo imgFold - format gif - file [ file join $imgDir folder.gif]
set frm_1 [ frame $frm.frmProjName ]
label $frm_1.lblProjName - text [ : : msgcat : : mc " P r o j e c t n a m e " ] - width 20 - anchor w
entry $frm_1.txtProjName - textvariable txtProjName
pack $frm_1.lblProjName - side left
pack $frm_1.txtProjName - side left - fill x - expand true
set frm_2 [ frame $frm.frmFileName ]
label $frm_2.lblFileName - text [ : : msgcat : : mc " P r o j e c t f i l e " ] - width 20 - anchor w
entry $frm_2.txtFileName - textvariable txtFileName
pack $frm_2.lblFileName - side left
pack $frm_2.txtFileName - side left - fill x - expand true
set frm_8 [ frame $frm.frmDirName ]
label $frm_8.lblDirName - text [ : : msgcat : : mc " P r o j e c t d i r " ] - width 20 - anchor w
entry $frm_8.txtDirName - textvariable txtDirName - state disable
button $frm_8.btnDirName - borderwidth { 1 } - image imgFold\
-command {
$frm.frmDirName.txtDirName configure - state normal
InsertEnt $frm.frmDirName.txtDirName [ tk_chooseDirectory - initialdir $projDir - title " [ : : m s g c a t : : m c " S e l e c t d i r e c t o r y " ] " - parent .]
$frm.frmDirName.txtDirName configure - state disable
}
pack $frm_8.lblDirName - side left
pack $frm_8.txtDirName - side left - fill x - expand true
pack $frm_8.btnDirName - side left
set frm_13 [ frame $frm.frmCompiler ]
label $frm_13.lblCompiler - text [ : : msgcat : : mc " C o m p i l e r " ] \
-width 20 - anchor w
entry $frm_13.txtCompiler - textvariable txtCompiler
button $frm_13.btnCompiler - borderwidth { 1 } - image imgFold\
-command {
InsertEnt $frm.frmCompiler.txtCompiler [ tk_getOpenFile - initialdir $tclDir - parent .]
}
pack $frm_13.lblCompiler - side left
pack $frm_13.txtCompiler - side left - fill x - expand true
pack $frm_13.btnCompiler - side left
set frm_12 [ frame $frm.frmProjInterp ]
label $frm_12.lblProjInterp - text [ : : msgcat : : mc " I n t e r p e t a t o r " ] \
-width 20 - anchor w
entry $frm_12.txtProjInterp - textvariable txtProjInterp
button $frm_12.btnInterp - borderwidth { 1 } - image imgFold\
-command {
InsertEnt $frm.frmProjInterp.txtProjInterp [ tk_getOpenFile - initialdir $tclDir - parent .]
}
pack $frm_12.lblProjInterp - side left
pack $frm_12.txtProjInterp - side left - fill x - expand true
pack $frm_12.btnInterp - side left
set frm_4 [ frame $frm.frmVersion ]
label $frm_4.lblProjVersion - text [ : : msgcat : : mc " V e r s i o n " ] - width 20 - anchor w
entry $frm_4.txtProjVersion - textvariable txtProjVersion
pack $frm_4.lblProjVersion - side left
pack $frm_4.txtProjVersion - side left - fill x - expand true
InsertEnt $frm_4.txtProjVersion " 0 . 0 . 1 "
set frm_11 [ frame $frm.frmRelease ]
label $frm_11.lblProjRelease - text [ : : msgcat : : mc " R e l e a s e " ] - width 20 - anchor w
entry $frm_11.txtProjRelease - textvariable txtProjRelease
pack $frm_11.lblProjRelease - side left
pack $frm_11.txtProjRelease - side left - fill x - expand true
InsertEnt $frm_11.txtProjRelease " 1 "
set frm_3 [ frame $frm.frmProjAuthor ]
label $frm_3.lblProjAuthor - text [ : : msgcat : : mc " A u t h o r " ] - width 20 - anchor w
entry $frm_3.txtProjAuthor - textvariable txtProjAuthor
pack $frm_3.lblProjAuthor - side left
pack $frm_3.txtProjAuthor - side left - fill x - expand true
set frm_9 [ frame $frm.frmProjEmail ]
label $frm_9.lblProjEmail - text [ : : msgcat : : mc " E - m a i l " ] - width 20 - anchor w
entry $frm_9.txtProjEmail - textvariable txtProjEmail
pack $frm_9.lblProjEmail - side left
pack $frm_9.txtProjEmail - side left - fill x - expand true
set frm_5 [ frame $frm.frmProjCompany ]
label $frm_5.lblProjCompany - text [ : : msgcat : : mc " C o m p a n y " ] - width 20 - anchor w
entry $frm_5.txtProjCompany - textvariable txtProjCompany
pack $frm_5.lblProjCompany - side left
pack $frm_5.txtProjCompany - side left - fill x - expand true
set frm_10 [ frame $frm.frmProjHome ]
label $frm_10.lblProjHome - text [ : : msgcat : : mc " H o m e p a g e " ] - width 20 - anchor w
entry $frm_10.txtProjHome - textvariable txtProjHome
pack $frm_10.lblProjHome - side left
pack $frm_10.txtProjHome - side left - fill x - expand true
set frm_7 [ frame $frm.frmWinTitle - border 2 - relief ridge - background grey]
label $frm_7.lblWinTitle - text " [ : : m s g c a t : : m c " C r e a t e n e w p r o j e c t " ] $ l a n g " - foreground yellow \
-background black
pack $frm_7.lblWinTitle - fill x - expand true
set frm_6 [ frame $frm.frmBtn - border 2 - relief ridge]
if { $operType == " e d i t " && $proj != " " } {
$noteBook itemconfigure newproj - text [ : : msgcat : : mc " P r o j e c t s e t t i n g s " ]
button $frm_6.btnProjCreate - text [ : : msgcat : : mc " S a v e " ] - relief groove\
-font $fontNormal - command {
regsub - all { \ \ } $txtProjInterp { \ \ \ \ } $txtProjInterp
SaveProj " $ t x t F i l e N a m e " " $ t x t P r o j N a m e " " $ t x t F i l e N a m e " " $ t x t D i r N a m e " \
" $ t x t C o m p i l e r " " $ t x t P r o j I n t e r p " " $ t x t P r o j V e r s i o n " " $ t x t P r o j R e l e a s e " \
" $ t x t P r o j A u t h o r " " $ t x t P r o j E m a i l " " $ t x t P r o j C o m p a n y " " $ t x t P r o j H o m e "
$noteBook delete newproj
$noteBook raise [ $noteBook page end]
}
} else {
button $frm_6.btnProjCreate - text [ : : msgcat : : mc " C r e a t e " ] - relief groove\
-font $fontNormal - command {
CreateProj $operType $lang " $ t x t F i l e N a m e " " $ t x t P r o j N a m e " " $ t x t F i l e N a m e " " $ t x t D i r N a m e " \
" $ t x t C o m p i l e r " " $ t x t P r o j I n t e r p " " $ t x t P r o j V e r s i o n " " $ t x t P r o j R e l e a s e " \
" $ t x t P r o j A u t h o r " " $ t x t P r o j E m a i l " " $ t x t P r o j C o m p a n y " " $ t x t P r o j H o m e "
$noteBook delete newproj
$noteBook raise [ $noteBook page end]
}
}
button $frm_6.btnClose - text [ : : msgcat : : mc " C a n c e l " ] - relief groove - font $fontNormal - command {
$noteBook delete newproj
$noteBook raise [ $noteBook page end]
}
pack $frm_6.btnProjCreate $frm_6.btnClose - padx 10 - pady 2 - side left - fill x - expand true
pack $frm_7 $frm_1 $frm_2 $frm_8 $frm_13 $frm_12 $frm_4 $frm_11 $frm_3 $frm_9 $frm_5 $frm_10 $frm_6 \
-side top - fill x
pack $frm_6 - side top - fill x - expand true - anchor s
bind $w < Escape> " $ n o t e B o o k d e l e t e n e w p r o j "
$noteBook raise newproj
# # EDIT PROJECT SETTINGS ##
if { $operType == " e d i t " && $proj != " " } {
$frm.frmDirName.txtDirName configure - state normal
$frm_7.lblWinTitle configure - text [ : : msgcat : : mc " P r o j e c t s e t t i n g s " ]
$frm_6.btnProjCreate configure - text " [ : : m s g c a t : : m c " S a v e " ] "
set file [ open [ file join $workDir $proj.proj ] r]
while { [ gets $file line] >= 0 } {
scan $line " % s " keyWord
set string [ string range $line [ string first " \" " $line ] [ string last " \" " $line ] ]
set string [ string trim $string " \" " ]
# regsub -all " " $string "_" project
puts $string
switch $keyWord {
ProjectName { InsertEnt $frm_1.txtProjName " $ s t r i n g " }
ProjectFileName { InsertEnt $frm_2.txtFileName " $ s t r i n g " }
ProjectDirName { InsertEnt $frm_8.txtDirName " $ s t r i n g " }
ProjectCompiler { InsertEnt $frm_13.txtCompiler " $ s t r i n g " }
ProjectInterp { InsertEnt $frm_12.txtProjInterp " $ s t r i n g " }
ProjectVersion { InsertEnt $frm_4.txtProjVersion " $ s t r i n g " }
ProjectRelease { InsertEnt $frm_11.txtProjRelease " $ s t r i n g " }
ProjectAuthor { InsertEnt $frm_3.txtProjAuthor " $ s t r i n g " }
ProjectEmail { InsertEnt $frm_9.txtProjEmail " $ s t r i n g " }
ProjectCompany { InsertEnt $frm_5.txtProjCompany " $ s t r i n g " }
ProjectHome { InsertEnt $frm_10.txtProjHome " $ s t r i n g " }
}
}
close $file
} elseif { $operType == " o p e n " } {
$frm_7.lblWinTitle configure - text " [ : : m s g c a t : : m c " O p e n p r o j e c t " ] $ l a n g "
InsertEnt $frm_1.txtProjName " $ p r o j "
InsertEnt $frm_2.txtFileName " $ p r o j "
InsertEnt $frm_8.txtDirName " $ p r o j "
$frm_8.txtDirName configure - state normal
puts $prjDir
InsertEnt $frm_8.txtDirName " $ p r j D i r "
InsertEnt $frm_13.txtCompiler " "
InsertEnt $frm_12.txtProjInterp " "
InsertEnt $frm_4.txtProjVersion " 0 . 0 . 1 "
InsertEnt $frm_11.txtProjRelease " 1 "
InsertEnt $frm_3.txtProjAuthor " "
InsertEnt $frm_9.txtProjEmail " "
InsertEnt $frm_5.txtProjCompany " "
InsertEnt $frm_10.txtProjHome " "
} else {
InsertEnt $frm_1.txtProjName " "
InsertEnt $frm_2.txtFileName " "
InsertEnt $frm_8.txtDirName " "
InsertEnt $frm_13.txtCompiler " "
InsertEnt $frm_12.txtProjInterp " "
InsertEnt $frm_4.txtProjVersion " 0 . 0 . 1 "
InsertEnt $frm_11.txtProjRelease " 1 "
InsertEnt $frm_3.txtProjAuthor " "
InsertEnt $frm_9.txtProjEmail " "
InsertEnt $frm_5.txtProjCompany " "
InsertEnt $frm_10.txtProjHome " "
}
}
# # CREATING PROJECT PROCEDURE ##
proc CreateProj { type lang txtFileName txtProjName txtFileName txtDirName txtCompiler txtProjInterp txtProjVersion txtProjRelease txtProjAuthor txtProjEmail txtProjCompany txtProjHome} {
global projDir workDir tree fontNormal dataDir tcl_platform
set projShortName [ file tail $txtDirName ]
set projFile [ open [ file join $workDir $projShortName.proj ] w]
puts $projFile " P r o j e c t N a m e \" $ t x t P r o j N a m e \" "
puts $projFile " P r o j e c t F i l e N a m e \" $ t x t F i l e N a m e \" "
puts $projFile " P r o j e c t D i r N a m e \" $ t x t D i r N a m e \" "
puts $projFile " P r o j e c t C o m p i l e r \" $ t x t C o m p i l e r \" "
puts $projFile " P r o j e c t I n t e r p \" $ t x t P r o j I n t e r p \" "
puts $projFile " P r o j e c t V e r s i o n \" $ t x t P r o j V e r s i o n \" "
puts $projFile " P r o j e c t R e l e a s e \" $ t x t P r o j R e l e a s e \" "
puts $projFile " P r o j e c t A u t h o r \" $ t x t P r o j A u t h o r \" "
puts $projFile " P r o j e c t E m a i l \" $ t x t P r o j E m a i l \" "
puts $projFile " P r o j e c t C o m p a n y \" $ t x t P r o j C o m p a n y \" "
puts $projFile " P r o j e c t H o m e \" $ t x t P r o j H o m e \" "
close $projFile
if { $type != " o p e n " } {
set dir [ file join $projDir $txtDirName ]
if { [ file exists " $ d i r " ] != 1 } {
file mkdir " $ d i r "
}
# file header
if { $lang == " T c l " || $lang == " P e r l " } {
set text " # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # \n # \t $ t x t P r o j N a m e \n # \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n # A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n # H o m e p a g e : $ t x t P r o j H o m e \n # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # \n "
} elseif { $lang == " P e r l " } {
set lang pl
set text " # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # \n # \t $ t x t P r o j N a m e \n # \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n # A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n # H o m e p a g e : $ t x t P r o j H o m e \n # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # \n "
} elseif { $lang == " J a v a " } {
set text " / * \n * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \n * \t $ t x t P r o j N a m e \n * \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n * A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n * H o m e p a g e : $ t x t P r o j H o m e \n * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \n * / \n "
} elseif { $lang == " F o r t r a n " } {
set text " \n c * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \n c * \t $ t x t P r o j N a m e \n * c \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n c * A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n c * H o m e p a g e : $ t x t P r o j H o m e \n c * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \n * / \n "
} elseif { $lang == " O ' C a m l " } {
set text " \( * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \n * \t $ t x t P r o j N a m e \n * \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n * A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n * H o m e p a g e : $ t x t P r o j H o m e \n * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \) \n "
set lang ml
} elseif { $lang == " R u b y " } {
set lang rb
set text " # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # \n # \t $ t x t P r o j N a m e \n # \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n # A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n # H o m e p a g e : $ t x t P r o j H o m e \n # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # \n "
} elseif { $lang == " P H P " } {
set text " < ? \n / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / \n / / \t $ t x t P r o j N a m e \n / / \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n / / A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n / / H o m e p a g e : $ t x t P r o j H o m e \n / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / \n ? > "
set lang php
} elseif { $lang == " E r l a n g " } {
set text " \% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \n % \t $ t x t P r o j N a m e \n % \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n % A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n * H o m e p a g e : $ t x t P r o j H o m e \n % * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \) \n "
set lang erl
}
if { [ file exists [ file join $dir $txtFileName. [ string tolower $lang ] ] ] == 0 } {
set file [ open [ file join $dir $txtFileName. [ string tolower $lang ] ] w]
puts $file $text
close $file
}
# spec file generating
if { [ file exists [ file join $dir $txtFileName.spec ] ] == 0 } {
set file [ open [ file join $dir $txtFileName.spec ] w]
puts $file " % d e f i n e n a m e $ t x t F i l e N a m e "
puts $file " % d e f i n e v e r s i o n $ t x t P r o j V e r s i o n "
puts $file " % d e f i n e r e l e a s e $ t x t P r o j R e l e a s e "
puts $file " % d e f i n e i n s t d i r $ d a t a D i r "
puts $file " S u m m a r y : \t $ t x t P r o j N a m e "
puts $file " N a m e : \t \t % \{ n a m e \} "
puts $file " V e r s i o n : \t % \{ v e r s i o n \} "
puts $file " R e l e a s e : \t % \{ r e l e a s e \} "
puts $file " S o u r c e : \t % \{ n a m e \} - % \{ v e r s i o n \} . t a r . g z "
puts $file " C o p y r i g h t : \t G P L "
puts $file " G r o u p : \t \t D e v e l o p m e n t "
puts $file " V e n d o r : \t \t $ t x t P r o j A u t h o r < $ t x t P r o j E m a i l > "
puts $file " B u i l d R o o t : \t % { _ t m p p a t h } / % { n a m e } - b u i l d r o o t "
puts $file " B u i l d A r c h : \t n o a r c h "
puts $file " R e q u i r e s : \t t c l > = 8 . 3 \n "
puts $file " % d e s c r i p t i o n "
puts $file " T h i s p r o j e c t m a d e b y T c l / T k P r o j e c t M a n a g e r "
puts $file " % p r e p \n % s e t u p - n % \{ n a m e \} \n % b u i l d \n "
puts $file " % i n s t a l l "
puts $file " r m - r f \$ R P M _ B U I L D _ R O O T "
puts $file " m k d i r - p \$ R P M _ B U I L D _ R O O T % \{ _ d a t a d i r \} / % \{ n a m e \} "
puts $file " c p - f \* \$ R P M _ B U I L D _ R O O T % \{ _ d a t a d i r \} / % \{ n a m e \} \n "
puts $file " % p o s t \n m k d i r \$ H O M E / . $ t x t D i r N a m e "
puts $file " % c l e a n \n r m - r f \$ R P M _ B U I L D _ R O O T "
puts $file " % f i l e s "
puts $file " % d e f a t t r \( - , r o o t , r o o t \) "
puts $file " % d o c R E A D M E T O D O C H A N G E L O G C O P Y I N G I N S T A L L "
puts $file " % \{ _ d a t a d i r \} / % \{ n a m e \} "
puts $file " % d e f i n e d a t e \t % \( e c h o \` L C _ A L L = \" C \" d a t e + \" % a % b % d % Y \" \` \) "
puts $file " % c h a n g e l o g "
puts $file " \* % \{ d a t e \} \n \n # e n d o f f i l e "
close $file
}
# file attributes "$dir/$txtFileName.tcl" -permissions "777"
# catch {chmod 744 "$dir/$txtFileName.tcl"} mes
foreach f { README TODO CHANGELOG COPYING INSTALL} {
if { [ file exists [ file join $dir $f ] ] != 1 } {
set file [ open [ file join $dir $f ] w]
puts $file " $ t e x t "
if { $f == " C H A N G E L O G " } {
if { $tcl_platform ( platform ) == " w i n d o w s " } {
set d [ clock format [ clock scan " n o w " - base [ clock seconds] ] - format % d/ % m/ % Y]
} elseif { $tcl_platform ( platform ) == " m a c " } {
set d " N e e d e d d a t e c o m m a n d f o r t h i s p l a t f o r m "
} elseif { $tcl_platform ( platform ) == " u n i x " } {
set d [ clock format [ clock scan " n o w " - base [ clock seconds] ] - format % d/ % m/ % Y]
}
puts $file " $ d \n \t - B e g i n n i n g t h e p r o j e c t "
}
close $file
}
}
} else {
# # Insert new project into tree ##
$tree insert end root $projShortName - text " $ t x t P r o j N a m e " - font $fontNormal \
-data " p r j _ $ p r o j S h o r t N a m e " - open 0 - image [ Bitmap : : get folder]
GetFiles $txtDirName $projShortName $tree
}
}
# # SAVING PROJECT SETTINGS ##
proc SaveProj { txtFileName txtProjName txtFileName txtDirName txtCompiler txtProjInterp txtProjVersion txtProjRelease txtProjAuthor txtProjEmail txtProjCompany txtProjHome} {
global projDir workDir tree fontNormal dataDir
set file [ file tail $txtDirName ]
set projFile [ open [ file join $workDir $file.proj ] w]
puts $projFile " P r o j e c t N a m e \" $ t x t P r o j N a m e \" "
puts $projFile " P r o j e c t F i l e N a m e \" $ t x t F i l e N a m e \" "
puts $projFile " P r o j e c t D i r N a m e \" $ t x t D i r N a m e \" "
puts $projFile " P r o j e c t C o m p i l e r \" $ t x t C o m p i l e r \" "
puts $projFile " P r o j e c t I n t e r p \" $ t x t P r o j I n t e r p \" "
puts $projFile " P r o j e c t V e r s i o n \" $ t x t P r o j V e r s i o n \" "
puts $projFile " P r o j e c t R e l e a s e \" $ t x t P r o j R e l e a s e \" "
puts $projFile " P r o j e c t A u t h o r \" $ t x t P r o j A u t h o r \" "
puts $projFile " P r o j e c t E m a i l \" $ t x t P r o j E m a i l \" "
puts $projFile " P r o j e c t C o m p a n y \" $ t x t P r o j C o m p a n y \" "
puts $projFile " P r o j e c t H o m e \" $ t x t P r o j H o m e \" "
close $projFile
}
# # OPEN EXISTING PROJECT AND ADDED INYO PROJMAN TREE ##
proc OpenProj { } {
global projDir workDir openProjDir prjDir prjName
set prjDir [ SelectDir $projDir ]
if { $prjDir != " " } {
set prjName " [ f i l e t a i l $ p r j D i r ] "
NewProjDialog open
# file copy $prjDir $projDir
}
return
}
# # ADD FILE INTO PROJECTS ##
proc AddToProj { fileName mode} {
global projDir workDir activeProject tree noteBook fontNormal imgDir tree
set type [ string trim [ file extension $fileName ] { . } ]
destroy .addtoproj
set node [ $tree selection get]
set fullPath [ $tree itemcget $node - data]
if { [ file isdirectory $fullPath ] == 1 } {
set dir $fullPath
set parentNode $node
} else {
set dir [ file dirname $fullPath ]
set parentNode [ $tree parent $node ]
}
if { $type == " t c l " } {
set img " t c l "
} elseif { $type == " t k " } {
set img " t k "
} elseif { $type == " t x t " } {
set img " f i l e "
} elseif { $type == " h t m l " } {
set img " h t m l "
} elseif { $type == " j a v a " } {
set img " j a v a "
} elseif { $type == " p l " || $type == " p e r l " } {
set img " p e r l "
} elseif { $type == " f o r " } {
set img " f o r t r a n "
} elseif { $type == " m l " || $type == " m l i " } {
set img " c a m l "
} elseif { $type == " p h p " || $type == " p h t m l " } {
set img " p h p "
} elseif { $type == " r b " } {
set img " r u b y "
} elseif { $type == " r b " } {
set img " e r l "
} else {
set img " f i l e "
}
if { $mode == " d i r e c t o r y " } {
set img " f o l d e r "
}
# set dir [file join $projDir $activeProject]
set dot " _ "
set name [ file rootname $fileName ]
set ext [ string range [ file extension $fileName ] 1 end]
set subNode " $ n a m e $ d o t $ e x t "
$tree insert end $parentNode $subNode - text $fileName \
-data [ file join $dir $fileName ] - open 1 \
-image [ Bitmap : : get [ file join $imgDir $img.gif ] ] \
-font $fontNormal
if { [ $tree itemcget $activeProject - open] == 0 } {
$tree itemconfigure $activeProject - open 1
}
set file [ file join $dir $fileName ]
# set f [open $file w]
# close $f
puts $file
if { $mode == " d i r e c t o r y " } {
file mkdir $file
return
}
InsertTitle $file $type
EditFile $subNode [ file join $dir $fileName ]
}
# # ADD FILE INTO PROJECT DIALOG##
proc AddToProjDialog { mode } {
global projDir workDir activeProject imgDir tree mod
set mod $mode
if { $activeProject == " " } {
set answer [ tk_messageBox \
-message " [ : : m s g c a t : : m c " N o t f o u n d a c t i v e p r o j e c t " ] " \
-type ok - icon warning]
case $answer {
ok { return 0 }
}
}
set w .addtoproj
if { [ winfo exists $w ] } {
destroy $w
}
# create the new "goto" window
toplevel $w
wm title $w [ : : msgcat : : mc " C r e a t e n e w $ m o d " ]
wm resizable $w 0 0
wm transient $w .
frame $w.frmCanv - border 1 - relief sunken
frame $w.frmBtn - border 1 - relief sunken
pack $w.frmCanv - side top - fill both - padx 1 - pady 1
pack $w.frmBtn - side top - fill x
label $w.frmCanv.lblImgTcl - text [ : : msgcat : : mc " I n p u t $ m o d n a m e " ]
entry $w.frmCanv.entImgTcl
pack $w.frmCanv.lblImgTcl $w.frmCanv.entImgTcl - expand true - padx 5 - pady 5 - side top
button $w.frmBtn.btnOk - text [ : : msgcat : : mc " C r e a t e " ] - relief groove - command {
AddToProj [ .addtoproj.frmCanv.entImgTcl get] $mod
}
button $w.frmBtn.btnCancel - text [ : : msgcat : : mc " C l o s e " ] - command " d e s t r o y $ w " - relief groove
pack $w.frmBtn.btnOk $w.frmBtn.btnCancel - padx 2 - pady 2 - fill x - side left
bind $w < Escape> " d e s t r o y . a d d t o p r o j "
bind $w.frmCanv.entImgTcl < Return> {
AddToProj [ .addtoproj.frmCanv.entImgTcl get] $mod
}
focus - force $w.frmCanv.entImgTcl
# unset type
}
proc AddToProjDialog_ { } {
global projDir workDir activeProject imgDir tree
if { $activeProject == " " } {
set answer [ tk_messageBox \
-message " [ : : m s g c a t : : m c " N o t f o u n d a c t i v e p r o j e c t " ] " \
-type ok - icon warning]
case $answer {
ok { return 0 }
}
}
set w .addtoproj
if { [ winfo exists $w ] } {
destroy $w
}
# create the new "goto" window
toplevel $w
wm title $w [ : : msgcat : : mc " C r e a t e n e w f i l e " ]
wm resizable $w 0 0
wm transient $w .
frame $w.frmCanv - border 1 - relief sunken
frame $w.frmBtn - border 1 - relief sunken
pack $w.frmCanv - side top - fill both - padx 1 - pady 1
pack $w.frmBtn - side top - fill x
label $w.frmCanv.lblImgTcl - text [ : : msgcat : : mc " I n p u t f i l e n a m e " ]
entry $w.frmCanv.entImgTcl
pack $w.frmCanv.lblImgTcl $w.frmCanv.entImgTcl - expand true - padx 5 - pady 5 - side top
button $w.frmBtn.btnOk - text [ : : msgcat : : mc " C r e a t e " ] - relief groove - command {
AddToProj [ .addtoproj.frmCanv.entImgTcl get]
}
button $w.frmBtn.btnCancel - text [ : : msgcat : : mc " C l o s e " ] - command " d e s t r o y $ w " - relief groove
pack $w.frmBtn.btnOk $w.frmBtn.btnCancel - padx 2 - pady 2 - fill x - side left
bind $w < Escape> " d e s t r o y . a d d t o p r o j "
bind $w.frmCanv.entImgTcl < Return> {
AddToProj [ .addtoproj.frmCanv.entImgTcl get]
}
focus - force $w.frmCanv.entImgTcl
}
# # DELETE FILE FROM PROJECT ##
proc DelFromProj { project } {
global projDir workDir
}
# # DELETEING PROJECT PROCEDURE ##
proc DelProj { } {
global workDir activeProject tree
if { $activeProject == " " } {
set answer [ tk_messageBox \
-message " [ : : m s g c a t : : m c " N o t f o u n d a c t i v e p r o j e c t " ] " \
-type ok - icon warning]
case $answer {
ok { return 0 }
}
}
set file [ open [ file join $workDir $activeProject.proj ] r]
while { [ gets $file line] >= 0 } {
scan $line " % s " keyWord
set string [ string range $line [ string first " \" " $line ] [ string last " \" " $line ] ]
set string [ string trim $string " \" " ]
if { $keyWord == " P r o j e c t D i r N a m e " } {
set projDir " $ s t r i n g "
puts $projDir
}
}
close $file
set answer [ tk_messageBox - message " [ : : m s g c a t : : m c " D e l e t e p r o j e c t " ] \" $ a c t i v e P r o j e c t \" ? " \
-type yesno - icon question - default yes]
case $answer {
yes {
FileDialog close_all
file delete - force $projDir
file delete - force [ file join $workDir $activeProject.proj ]
file delete - force [ file join $workDir $activeProject.tags ]
$tree delete [ $tree selection get]
$tree configure - redraw 1
set activeProject " "
LabelUpdate .frmStatus.frmActive.lblActive " "
}
}
}
proc CompileOption { string } {
global fontNormal cmdCompile editor
set w .cmd
# destroy the find window if it already exists
if { [ winfo exists $w ] } {
destroy $w
}
toplevel $w
wm title $w [ : : msgcat : : mc " C o m m a n d o p t i o n s " ]
wm resizable $w 0 0
wm transient $w .
frame $w.frmCombo - borderwidth 1 - bg $editor ( bg )
frame $w.frmBtn - borderwidth 1 - bg $editor ( bg )
pack $w.frmCombo $w.frmBtn - side top - fill x
# set combo [entry $w.frmCombo.entFind]
label $w.frmCombo.lblModule - text " [ : : m s g c a t : : m c " C o n v e r t t o " ] " - bg $editor ( bg ) - fg $editor ( fg )
label $w.frmCombo.lblFile - text " [ : : m s g c a t : : m c " F i l e " ] " - bg $editor ( bg ) - fg $editor ( fg )
set combo [ entry $w.frmCombo.txtString - text " $ s t r i n g " ]
pack $w.frmCombo.lblModule $w.frmCombo.lblFile $combo - fill x - padx 2 - pady 2 - side top
button $w.frmBtn.btnFind - text [ : : msgcat : : mc " R u n " ] \
-font $fontNormal - width 12 - relief groove - bg $editor ( bg ) - fg $editor ( fg ) \
-command {
return [ .cmd.frmCombo.txtString get]
destroy .cmd
}
button $w.frmBtn.btnCancel - text [ : : msgcat : : mc " C l o s e " ] - bg $editor ( bg ) - fg $editor ( fg ) \
-relief groove - width 12 - font $fontNormal \
-command " d e s t r o y $ w "
pack $w.frmBtn.btnFind $w.frmBtn.btnCancel - fill x - padx 2 - pady 2 - side left
bind $w < Return> {
set cmdCompile [ .cmd.frmCombo.txtString get]
destroy .cmd
}
bind $w < Escape> " d e s t r o y $ w "
$combo insert end " $ s t r i n g "
focus - force $combo
}
# # MAKE PROJ PROCEDURE (RUNNING PROJECT) ##
proc MakeProj { action t} {
global activeProject projDir noteBook fontNormal fontBold workDir tree cmdCompile editor
if { $activeProject == " " } {
set answer [ tk_messageBox \
-message " [ : : m s g c a t : : m c " N o t f o u n d a c t i v e p r o j e c t " ] " \
-type ok - icon warning\
-title [ : : msgcat : : mc " W a r n i n g " ] ]
case $answer {
ok { return 0 }
}
}
FileDialog save_all
set file [ open [ file join $workDir $activeProject.proj ] r]
while { [ gets $file line] >= 0 } {
scan $line " % s " keyWord
set string [ string range $line [ string first " \" " $line ] [ string last " \" " $line ] ]
set string [ string trim $string " \" " ]
if { $keyWord == " P r o j e c t N a m e " } {
set projName " $ s t r i n g "
}
if { $keyWord == " P r o j e c t F i l e N a m e " } {
set projFileName " $ s t r i n g "
}
if { $keyWord == " P r o j e c t D i r N a m e " } {
set projDirName " $ s t r i n g "
}
if { $keyWord == " P r o j e c t C o m p i l e r " } {
set projCompiler " $ s t r i n g "
}
if { $keyWord == " P r o j e c t I n t e r p " } {
set projInterp " $ s t r i n g "
}
}
close $file
if { $action == " c o m p i l e " } {
if { $t == " p r o j " } {
set prog [ file join $projDirName $projFileName.java ]
} elseif { $t == " f i l e " } {
set node [ $tree selection get]
set fullPath [ $tree itemcget $node - data]
set dir [ file dirname $fullPath ]
set file [ file tail $fullPath ]
set prog $fullPath
}
} elseif { $action == " r u n " } {
if { $t == " p r o j " } {
set prog [ file join $projDirName $projFileName.tcl ]
} elseif { $t == " f i l e " } {
set node [ $tree selection get]
set fullPath [ $tree itemcget $node - data]
set dir [ file dirname $fullPath ]
set file [ file tail $fullPath ]
set prog $fullPath
}
}
set node " d e b u g "
if { [ $noteBook index $node ] != -1 } {
$noteBook delete debug
}
set w [ $noteBook insert end $node - text [ : : msgcat : : mc " R u n n i n g p r o j e c t " ] ]
# create array with file names #
frame $w.frame - borderwidth 2 - relief ridge - background $editor ( bg )
pack $w.frame - side top - fill both - expand true
text $w.frame.text - yscrollcommand " $ w . f r a m e . y s c r o l l s e t " \
-bg $editor ( bg ) - fg $editor ( fg ) \
-relief sunken - wrap word - highlightthickness 0 - font $fontNormal \
-selectborderwidth 0 - selectbackground # 55 c4d1 - width 10 - height 10
scrollbar $w.frame.yscroll - relief sunken - borderwidth { 1 } - width { 10 } - takefocus 0 \
-command " $ w . f r a m e . t e x t y v i e w " - background $editor ( bg )
pack $w.frame.text - side left - fill both - expand true
pack $w.frame.yscroll - side left - fill y
frame $w.frmBtn - borderwidth 2 - relief ridge - bg $editor ( bg )
pack $w.frmBtn - side top - fill x
button $w.frmBtn.btnOk - text [ : : msgcat : : mc " C l o s e " ] - borderwidth { 1 } \
-bg $editor ( bg ) - fg $editor ( fg ) - command {
$noteBook delete debug
$noteBook raise [ $noteBook page end]
return 0
}
pack $w.frmBtn.btnOk - pady 2
# key bindings #
bind $w.frmBtn.btnOk < Escape> {
$noteBook delete debug
$noteBook raise [ $noteBook page end]
# return 0
}
bind $w.frmBtn.btnOk < Return> {
$noteBook delete debug
$noteBook raise [ $noteBook page end]
# return 0
}
focus - force $w.frmBtn.btnOk
$noteBook raise $node
# insert debug data into text widget #
$w.frame.text tag configure bold - font $fontBold
$w.frame.text tag configure error - font $fontNormal - foreground red
$w.frame.text tag add bold 0.0 0 .end
if { $action == " c o m p i l e " } {
$w.frame.text insert end " [ : : m s g c a t : : m c " C o m p i l e p r o j e c t " ] - $ a c t i v e P r o j e c t \n "
$w.frame.text insert end " [ : : m s g c a t : : m c " C o m p i l e " ] - $ p r o g \n \n "
} elseif { $action == " r u n " } {
$w.frame.text insert end " [ : : m s g c a t : : m c " R u n n i n g p r o j e c t " ] - $ a c t i v e P r o j e c t \n "
$w.frame.text insert end " [ : : m s g c a t : : m c " R u n " ] - $ p r o g \n \n "
}
set pos [ $w.frame.text index insert]
set lineNum [ lindex [ split $pos " . " ] 0 ]
$w.frame.text insert end " - - - - - - - - - - - - - - - - - [ : : m s g c a t : : m c " P r o g r a m m o u t p u t " ] - - - - - - - - - - - - - - - - - \n "
$w.frame.text tag add bold $lineNum.0 $lineNum.end
# open and manipulate executed program chanel #
if { $action == " c o m p i l e " } {
set cmdCompile " "
CompileOption " $ p r o j C o m p i l e r $ p r o g "
vwait cmdCompile
puts " s t r i n g - $ p r o j C o m p i l e r $ p r o g " ; # debug info
set pipe [ open " | $ c m d C o m p i l e 2 > [ f i l e j o i n $ p r o j D i r N a m e e r r o r s ] " " r " ]
set f [ open [ file join $projDirName errors] " r " ]
} elseif { $action == " r u n " } {
set pipe [ open " | $ p r o j I n t e r p $ p r o g 2 > [ f i l e j o i n $ p r o j D i r N a m e e r r o r s ] " " r " ]
set f [ open [ file join $projDirName errors] " r " ]
}
fileevent $pipe readable [ list DebugInfo $w.frame.text $pipe $f ]
fconfigure $pipe - buffering none - blocking no
# fileevent $f readable [list DebugInfo $w.frame.text $f]
# fconfigure $f -buffering none -blocking no
}
# # INSERT DEBUG INFORMATION INTO TEXT WIDGET ##
proc DebugInfo { widget file f} {
$widget configure - state normal
if { [ eof $file ] } {
catch [ close $file ] msg
if { $msg != " " } {
puts $msg
$widget insert end " [ : : m s g c a t : : m c " P r o g r a m f a i l e d " ] : $ m s g \n " ;
} else {
puts $msg
$widget insert end " \n - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \n "
$widget insert end " [ : : m s g c a t : : m c " P r o g r a m f i n i s h e d s u c c e s s f u l l y " ] \n "
}
} else {
$widget insert end [ read $file ]
}
while { [ gets $f line] >= 0 } {
$widget insert end " $ l i n e \n "
puts $line
}
$widget see end
$widget tag add error 0.0 0 .end
$widget configure - state disabled
}
# # INSERT TITLE INTO NEW FILE ##
proc InsertTitle { newFile type} {
global activeProject projDir workDir ver
puts " $ n e w F i l e $ t y p e "
set year [ clock format [ clock scan " n o w " - base [ clock seconds] ] - format % Y]
if { $activeProject == " " } {
set answer [ tk_messageBox \
-message " [ : : m s g c a t : : m c " N o t f o u n d a c t i v e p r o j e c t " ] " \
-type ok - icon warning\
-title [ : : msgcat : : mc " W a r n i n g " ] ]
case $answer {
ok { return 0 }
}
}
set file [ open [ file join $workDir $activeProject.proj ] r]
while { [ gets $file line] >= 0 } {
scan $line " % s " keyWord
set string [ string range $line [ string first " \" " $line ] [ string last " \" " $line ] ]
set string [ string trim $string " \" " ]
if { $keyWord == " P r o j e c t N a m e " } {
set txtProjName " $ s t r i n g "
}
if { $keyWord == " P r o j e c t F i l e N a m e " } {
set txtProjFileName " $ s t r i n g "
}
if { $keyWord == " P r o j e c t D i r N a m e " } {
set txtProjDirName " $ s t r i n g "
}
if { $keyWord == " P r o j e c t I n t e r p " } {
set txtProjInterp " $ s t r i n g "
}
if { $keyWord == " P r o j e c t V e r s i o n " } {
set txtProjVersion " $ s t r i n g "
}
if { $keyWord == " P r o j e c t R e l e a s e " } {
set txtProjRelease " $ s t r i n g "
}
if { $keyWord == " P r o j e c t A u t h o r " } {
set txtProjAuthor " $ s t r i n g "
}
if { $keyWord == " P r o j e c t E m a i l " } {
set txtProjEmail " $ s t r i n g "
}
if { $keyWord == " P r o j e c t C o m p a n y " } {
set txtProjCompany " $ s t r i n g "
}
if { $keyWord == " P r o j e c t H o m e " } {
set txtProjHome " $ s t r i n g "
}
}
if { $type == " h t m l " } {
set fileTitle " < H T M L > \n < H E A D > \n < M E T A h t t p - e q u i v = C o n t e n t - T y p e c o n t e n t = \" t e x t / h t m l ; c h a r s e t = k o i 8 - r \" > \n < M E T A N A M E = \" A u t h o r \" C O N T E N T = \" $ t x t P r o j A u t h o r \" > \n < M E T A N A M E = \" G E N E R A T O R \" C O N T E N T = \" C r e a t e d b y T c l / T k P r o j e c t M a n a g e r - $ v e r \" > \n < T I T L E > < / T I T L E > \n < / H E A D > \n < B O D Y > \n \n < / B O D Y > \n < / H T M L > "
} elseif { $type == " t c l " } {
set fileTitle " # ! $ t x t P r o j I n t e r p \n # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # \n # \t \t $ t x t P r o j N a m e \n # \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n # A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n # C o p y r i g h t ( c ) \" $ t x t P r o j C o m p a n y \" , $ y e a r , $ t x t P r o j H o m e \n # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # \n "
} elseif { $type == " p e r l " || $type == " p l " } {
set fileTitle " # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # \n # \t \t $ t x t P r o j N a m e \n # \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n # A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n # C o p y r i g h t ( c ) \" $ t x t P r o j C o m p a n y \" , $ y e a r , $ t x t P r o j H o m e \n # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # \n "
} elseif { $type == " t x t " } {
set fileTitle " # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # \n # \t \t $ t x t P r o j N a m e \n # \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n # A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n # C o p y r i g h t ( c ) \" $ t x t P r o j C o m p a n y \" , $ y e a r , $ t x t P r o j H o m e \n # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # \n "
} elseif { $type == " r b " } {
set fileTitle " # ! $ t x t P r o j I n t e r p \n # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # \n # \t \t $ t x t P r o j N a m e \n # \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n # A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n # C o p y r i g h t ( c ) \" $ t x t P r o j C o m p a n y \" , $ y e a r , $ t x t P r o j H o m e \n # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # \n "
} elseif { $type == " j a v a " } {
set fileTitle " / * \n * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \n * \t $ t x t P r o j N a m e \n * \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n * A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n * H o m e p a g e : $ t x t P r o j H o m e \n * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \n * / \n "
} elseif { $type == " f o r " } {
set fileTitle " * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \n * \t $ t x t P r o j N a m e \n * \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n * A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n * H o m e p a g e : $ t x t P r o j H o m e \n * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \n "
} elseif { $type == " m l " || $type == " m l i " } {
set fileTitle " \( * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \n * \t $ t x t P r o j N a m e \n * \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n * A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n * H o m e p a g e : $ t x t P r o j H o m e \n * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \) \n "
} elseif { $type == " p h p " || $type == " p h t m l " } {
set fileTitle " < ? \n / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / \n / / \t $ t x t P r o j N a m e \n / / \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n / / A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n / / H o m e p a g e : $ t x t P r o j H o m e \n / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / \n \n \n \n \n ? > "
} elseif { $type == " t m l " } {
set fileTitle " < ! - - \n # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # \n # \t \t $ t x t P r o j N a m e \n # \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n # A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n # C o p y r i g h t ( c ) \" $ t x t P r o j C o m p a n y \" , $ y e a r , $ t x t P r o j H o m e \n # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # \n - - > \n "
} elseif { $type == " e r l " } {
set fileTitle " % * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \n % \t $ t x t P r o j N a m e \n % \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n % A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n % H o m e p a g e : $ t x t P r o j H o m e \n % * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \n "
} else {
set fileTitle " # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # \n # \t \t $ t x t P r o j N a m e \n # \t D i s t r i b u t e d u n d e r G N U P u b l i c L i c e n s e \n # A u t h o r : $ t x t P r o j A u t h o r $ t x t P r o j E m a i l \n # C o p y r i g h t ( c ) \" $ t x t P r o j C o m p a n y \" , $ y e a r , $ t x t P r o j H o m e \n # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # \n "
}
set pipe [ open $newFile w]
# puts "$newFile\n $fileTitle" ;# debuf info
puts $pipe $fileTitle
close $pipe
}
2018-01-11 11:04:41 +03:00
