Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added copyright statement and dedication text to each of the Tcl Module files (.tm) being built. Moved package provides to the top of the file. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | trunk |
| Files: | files | file ages | folders |
| SHA3-256: | 1b79317527fda4bf2ae1006b1dd4da89e19eb1dd639bfd86fc92d604891565b1 |
| User & Date: | gwlester 2018-02-10 21:26:06 |
Context
|
2018-02-10
| ||
| 21:26 | Added copyright statement and dedication text to each of the Tcl Module files (.tm) being built. Moved package provides to the top of the file. Leaf check-in: 1b79317527 user: gwlester tags: trunk | |
|
2018-02-09
| ||
| 22:39 | Correction of wide spread typo. check-in: cecb467b84 user: gwlester tags: trunk | |
Changes
Changes to make.tcl.
26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
set outputName [file join $baseDir $tm-]
set version [format {%d.%d} $versionInfo(major) $versionInfo(minor)]
if {[info exists versionInfo(patch)]} {
append version "." $versionInfo(patch)
}
append outputName $version ".tm"
set ofd [open $outputName w]
set ifd [open [file join $dir $tm.tcl] r]
fcopy $ifd $ofd
puts $ofd {}
puts $ofd "package provide $tm $version"
puts $ofd {}
close $ofd
}
return
}
set baseDir [file dirname [info script]]
|
> > > | < < > > > > > > > |
26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
set outputName [file join $baseDir $tm-]
set version [format {%d.%d} $versionInfo(major) $versionInfo(minor)]
if {[info exists versionInfo(patch)]} {
append version "." $versionInfo(patch)
}
append outputName $version ".tm"
set ofd [open $outputName w]
set inFileList [list \
[file join $baseDir copyright.tcl] \
[file join $baseDir Dedication.tcl] \
[file join $dir $tm.tcl] \
]
puts $ofd "package provide $tm $version"
puts $ofd {}
foreach ifn $inFileList {
set ifd [open $ifn r]
fcopy $ifd $ofd
close $ifd
puts $ofd {}
}
close $ofd
}
return
}
set baseDir [file dirname [info script]]
|