Changeset 6 for trunk/tcl/install

Timestamp:

Mar 23, 2005, 8:19:29 PM (20 years ago)

Author:

mmc

Message:

Fixed the Tcl library to mirror the API developed for XML
libraries on the Python side. The Tcl Rappture::library
now has methods like "children", "element", "put", etc.
One difference: On the Tcl side, the default -flavor for
element/children is "component", since that works better
in Tcl code. In Python, the default is flavor=object.

Also fixed the Tcl install script to install not just
the tcl/scripts library, but also the ../gui and ../lib
directories.

File:

• trunk/tcl/install (modified) (4 diffs)

trunk/tcl/install

@@ -40 +40 @@
 set targetdir [file join $dir $package$version]
 
-mkindex scripts
-
 if {![file exists $targetdir]} {
     puts "making directory $targetdir..."
@@ -47 +45 @@
 }
 
-foreach file [find .] {
+set origdir [pwd]
+foreach context {. ../gui} {
+    cd $context
+
+    foreach file [find .] {
+        set target [file join $targetdir $file]
+        if {[file isdirectory $file]} {
+            puts "making directory $target..."
+            catch {file mkdir $target}
+            file attributes $target -permissions ugo+rx
+        } else {
+            puts "installing $target..."
+            file copy -force $file $target
+            file attributes $target -permissions ugo+r
+        }
+    }
+}
+
+cd ..
+catch {file mkdir [file join $targetdir lib]}
+foreach file [find ./lib] {
     set target [file join $targetdir $file]
     if {[file isdirectory $file]} {
@@ -60 +78 @@
 }
 
+cd $origdir
+
 set fid [open [file join $targetdir pkgIndex.tcl] w]
 puts $fid "# Tcl package index file"
@@ -69 +89 @@
 close $fid
 
+mkindex [file join $targetdir scripts]
+
 puts "== $package-$version INSTALLED"