From: Vince Darley (vince@santafe.edu)
Date: 9 Mar 01, 20:12 EST
From: Vince Darley <vince@santafe.edu>
Subject: Re: installation script problem
What exactly is the error thrown? Can we see the last piece of a stack
trace, perhaps?
-- Vince
<http://www.santafe.edu/~vince>
On Thu, 8 Mar 2001, Craig B Upright wrote:
>
> 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
>
_______________________________________________
AlphaTcl-developers mailing list
AlphaTcl-developers@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/alphatcl-developers