From: Craig B Upright (cupright@Princeton.EDU)
Date: 9 Mar 01, 06:45 EST
From: Craig B Upright <cupright@Princeton.EDU>
Subject: Re: installation script problem
Tried some more experiments. In all cases, I first removed the file
"Statistical Modes Help" from my help directory, so I know that trying
to install a folder where there is currently a file is NOT the problem.
(1) The directory "Help:Some Help", with no files, throws an error.
(2) The directory "Help:Some Help", with files, throws an error.
(3) The directory "Help:Some Folder" with no files, properly installs
an empty "Some Folder" directory in my help directory.
(4) The directory "Help:Some Folder" with several files, does this:
-- creates the "Help:Some Folder" directory,
-- installs any file whose name ends in "Help" into the main Help dir,
-- installs all remaining files into the "Help:Some Folder" dir.
So, if I want to place all of the individual stat mode help files in a
single directory, I must
(a) Not name that dir "... Help"
(b) Not name any of those files "... Help"
which means that I won't be able to easily and automatically create
hyperlinks to anything in any help file ...
So, now my question is ... a bug, or am I trying to be too fancy?
Since we improved the Help menu to allow for help folders, it would be
nice if adding them wasn't so restrictive.
In the meantime, I'm just going to distribute the olde version of the
help file.
--------
Here's the errorInfo that results from trying to install a folder whose
name ends with "Help" into the Help folder.
<<Alpha>> set errorInfo
Can't copy directory.
while executing
"copyFile {Macintosh HD:Download
Folder:Program-Menu-2.5.4:Install:Help:Statistical Modes Help}
{Macintosh HD:Applications:Alpha :Help:Statistical Mod ..."
("eval" body line 1)
invoked from within
"eval copyFile $args"
("copy" arm line 1)
invoked from within
"switch -- $cmd {
"join" {
regsub -all "::" [join $args ":"] ":" res
return $res
}
"copy" {eval copyFile $args}
"rename" ..."
(procedure "file" line 2)
invoked from within
"file copy $a $b"
invoked from within
"if {[file exists $b]} {
if {[file::secondIsOlder $a $b]} {
file::remove [file dirname $b] [list [file tail $b]] $backup
file copy $a $b
..."
(procedure "file::replaceSecondIfOlder" line 3)
invoked from within
"file::replaceSecondIfOlder "$ff" [file join ${to} $f] 0 $backup"
invoked from within
"if {${install::force_overwrite}} {
if {[file exists "$ff" ]} {
file::remove $to [list $f] $backup
file copy "$ff" [file join $to $f]
..."
("foreach" body line 11)
invoked from within
"foreach ff $files {
foreach suffix ${install::_ignore} {
if {[string match *${suffix} $file]} { continue }
}
set f [file tail $ff]
..."
invoked from within
"if {[info exists install::noreplace] && ${install::noreplace}} {
foreach ff $files {
foreach suffix ${install::_ignore} {
if {[string match *$ ..."
(procedure "install::_file_to" line 22)
invoked from within
"install::_file_to $file [file join $HOME Help] $backup"
invoked from within
"if {[regexp -nocase {tutorial$} [file tail $file]]} {
global HOME
install::_file_to $file [file join $HOME Tcl Completions]
} elseif {[regexp -n ..."
(procedure "install::file_to" line 3)
invoked from within
"install::file_to $f $to $backup"
("foreach" body line 2)
invoked from within
"foreach f $flist {
install::file_to $f $to $backup
} "
("Help" arm line 3)
invoked from within
"switch -- $type {
Tests -
Tools {
set to [file join ${HOME} $type]
foreach f $flist {
install::file_to $f $to $backup
}
}
rem ..."
(procedure "install::files" line 7)
invoked from within
"install::files $type $currD $name $make_backup"
("foreach" body line 7)
invoked from within
"foreach o $options {
incr i
if {!$easy_install && ![lindex $res $i]} { continue }
set type [lindex $o 0]
set name [lindex $o 1]
message "Installi ..."
(procedure "install::_packageInstallationDialog" line 191)
invoked from within
"install::_packageInstallationDialog {Program Menu 2.5.4} { Easy
installation will install the Program Menu for Alpha, and several mode
updates includ ..."
("eval" body line 1)
invoked from within
"eval [list install::_packageInstallationDialog $pkgname $description
$currD $items] $args"
invoked from within
"if {[file extension ${win::Current}] == ".tcl"} {
# single file to install
set pkgname [file root [file tail ${win::Current}]]
set description "I'l ..."
(procedure "install::packageInstallationDialog" line 4)
invoked from within
"install::packageInstallationDialog "Program Menu 2.5.4" "\
Easy installation will install the Program Menu for Alpha, \
and several mode updates inclu ..."
(file "Macintosh HD:Download Folder:Program-Menu-2.5.4:Install:OPEN
TO INSTALL" line 92)
invoked from within
"source {Macintosh HD:Download Folder:Program-Menu-2.5.4:Install:OPEN TO
INSTALL}"
("uplevel" body line 1)
invoked from within
"uplevel \#0 source $installer"
invoked from within
"if {[llength $installer] == 1} {
global installation_dir
set installation_dir $currD
# installer is a one-item list, so no need to wrap ..."
invoked from within
"if {[file extension [set name [install::name]]] == ".tcl"} {
install::packageInstallationDialog "Package"
} else {
set currD [file dirname $na ..."
(procedure "install::installThisPackage" line 3)
invoked from within
"install::installThisPackage"
-- Craig
______________________________________________________________
Craig Barton Upright email: cupright@princeton.edu
Department of Sociology phone: (609) 258.4539
Princeton University fax: (609) 258.2180
Princeton, New Jersey 08544 http://www.princeton.edu/~cupright/
______________________________________________________________
_______________________________________________
AlphaTcl-developers mailing list
AlphaTcl-developers@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/alphatcl-developers