Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added a scripts directory to distribute helper scripts for Makefiles |
|---|---|
| Timelines: | family | ancestors | descendants | both | autosetup |
| Files: | files | file ages | folders |
| SHA1: |
47ed8c915ef4abe9e6f218f7307b4daa |
| User & Date: | hypnotoad 2015-03-30 18:50:44 |
Context
|
2015-03-31
| ||
| 22:20 | Ultimate fix for X11 on Macosx check-in: b303ef6ccc user: hypnotoad tags: autosetup | |
|
2015-03-30
| ||
| 18:50 | Added a scripts directory to distribute helper scripts for Makefiles check-in: 47ed8c915e user: hypnotoad tags: autosetup | |
| 18:19 | Adding a helper install script to Odie's autosetup check-in: 571ce26bd6 user: hypnotoad tags: autosetup | |
Changes
Changes to autosetup/lib/fileutil.tcl.
| ︙ | ︙ | |||
437 438 439 440 441 442 443 | # Arguments: # prefix prefix to strip from the path. # path path to modify # # Results: # path The (possibly) modified path. | | | 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 |
# Arguments:
# prefix prefix to strip from the path.
# path path to modify
#
# Results:
# path The (possibly) modified path.
if {[string equal $::tcl_platform(platform) windows]} {
# Windows. While paths are stored with letter-case preserved al
# comparisons have to be done case-insensitive. For reference see
# SF Tcllib Bug 2499641.
proc fileutil_stripPath {prefix path} {
# [file split] is used to generate a canonical form for both
|
| ︙ | ︙ |
Changes to autosetup/lib/install.tcl.
| ︙ | ︙ | |||
54 55 56 57 58 59 60 61 62 63 64 65 66 67 |
autosetup_install_file $file autosetup
}
# Install support files
foreach file {config.guess config.sub jimsh0.c find-tclsh test-tclsh LICENSE} {
autosetup_install_file $::autosetup(dir)/$file autosetup
}
exec chmod 755 autosetup/config.sub autosetup/config.guess autosetup/find-tclsh
writefile autosetup/README.autosetup \
"This is [autosetup_version]. See http://msteveb.github.com/autosetup/\n"
} error]} {
user-error "Failed to install autosetup: $error"
| > > > | 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 |
autosetup_install_file $file autosetup
}
# Install support files
foreach file {config.guess config.sub jimsh0.c find-tclsh test-tclsh LICENSE} {
autosetup_install_file $::autosetup(dir)/$file autosetup
}
foreach file [glob -nocomplain $::autosetup(dir)/scripts/*] {
autosetup_install_file $::autosetup(dir)/scripts/[file tail $file] autosetup
}
exec chmod 755 autosetup/config.sub autosetup/config.guess autosetup/find-tclsh
writefile autosetup/README.autosetup \
"This is [autosetup_version]. See http://msteveb.github.com/autosetup/\n"
} error]} {
user-error "Failed to install autosetup: $error"
|
| ︙ | ︙ |
Name change from autosetup/lib/install-script.tcl to autosetup/scripts/install.tcl.
1 | # | > | | > > > > > > > | > > > | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
# @synopsis:
#
# Helper script for Makefiles
#
proc use args {
foreach pkg $args {
if {[file exists $::here/${pkg}.tcl]} {
source $::here/${pkg}.tcl
} elseif {[file exists $::here/../lib/${pkg}.tcl]} {
source $::here/../lib/${pkg}.tcl
} else {
error "Could not find package $args"
}
}
}
set ::here [file dirname [file normalize [info script]]]
use fileutil
proc file-normalize args {
return [file normalize {*}$args]
}
proc _istcl name {
return [string match *.tcl $name]
}
|
| ︙ | ︙ |