From 960cdf29197bc3f5922110cf26627aa9709ac79b Mon Sep 17 00:00:00 2001
From: cvs2svn
Date: Fri, 10 Jun 2005 10:29:11 +0000
Subject: This commit was manufactured by cvs2svn to create branch 'bogue40'.

---
 starkit.tcl.in | 161 ---------------------------------------------------------
 1 file changed, 161 deletions(-)
 delete mode 100644 starkit.tcl.in

(limited to 'starkit.tcl.in')

diff --git a/starkit.tcl.in b/starkit.tcl.in
deleted file mode 100644
index b070a8d..0000000
--- a/starkit.tcl.in
+++ /dev/null
@@ -1,161 +0,0 @@
-#
-# This script is intended to be run in the top directory
-# with: tclsh starkit.tcl.
-# It needs a tclkit and the sdx command as a starkit in the path.
-#
-
-set MAJOR_VERSION @MAJOR_VERSION@
-set MINOR_VERSION @MINOR_VERSION@
-set PATCHLEVEL @PATCHLEVEL@
-
-
-#
-# Starkit structure
-#
-# demo.tcl
-# lib
-#   tkimg1.3
-#     files from the Tkimg starkit
-#   TkzincX.Y
-#     Copyright
-#     demos
-#       demos files and sub-directories
-#     Linux-x86
-#       Tkzinc.so
-#     pkgIndex.tcl
-#     Windows-x86
-#       Tkzinc.dll
-#     zincGraphics.tcl
-#     zincLogo.tcl
-#     zincText.tcl
-# main.tcl
-#
-
-proc Windows-x86-Compile {} {
-  set cwd [pwd]
-  puts "Compiling for Windows $cwd..."
-  cd win
-  if { [catch { exec tclsh package.tcl clean } result] } {
-    puts $result
-    exit
-  }
-  if { [catch { exec tclsh package.tcl subst } result] } {
-    puts $result
-    exit
-  }
-  if { [catch { exec tclsh package.tcl tcl } result] } {
-    puts $result
-    exit
-  }
-  #
-  # Copy the dll in the root dir for updateKit.
-  file copy -force [glob -directory buildtcl Tkzinc*.dll] [file join $cwd Tkzinc.dll]
-
-  cd $cwd
-}
-
-proc Linux-x86-Compile {} {
-}
-
-proc updateKit { TkzincVfs } {
-  global MAJOR_VERSION MINOR_VERSION PATCHLEVEL
-
-  set zincPath [file join $TkzincVfs lib Tkzinc$MAJOR_VERSION.$MINOR_VERSION]
-  set version $MAJOR_VERSION.$MINOR_VERSION.$PATCHLEVEL
-  set winVersion $MAJOR_VERSION$MINOR_VERSION$PATCHLEVEL
-
-  file copy -force [file join starkit demo.tcl] [file join starkit main.tcl] $TkzincVfs
-
-  set zincPath [file join $TkzincVfs lib Tkzinc$MAJOR_VERSION.$MINOR_VERSION]
-  file mkdir $zincPath
-  file copy -force Copyright \
-	  [file join library zincGraphics.tcl] \
-	  [file join library zincLogo.tcl] \
-	  [file join library zincText.tcl] \
-	  $zincPath
-
-  set demosPath [file join $zincPath demos]
-  file mkdir $demosPath
-  foreach f [glob -directory demos *.tcl] {
-	  file copy -force $f $demosPath
-  }
-  file delete -force [file join $demosPath data] [file join $demosPath images]
-  file copy -force [file join demos zinc-widget] [file join demos data] [file join demos images] $demosPath
-
-  #
-  # Emit a merged pkgIndex.tcl
-  #
-  set fOut [open [file join $zincPath pkgIndex.tcl] w]
-  puts $fOut "proc Platform {} {"
-  puts -nonewline $fOut [info body Platform]
-  puts $fOut "}"
-  set fIn [open [file join library pkgIndex.tcl]]
-  foreach line [split [read $fIn] \n] {
-  	if {![regexp {^\s*$|^#} $line]} {
-	    puts $fOut $line
-	  }
-  }
-  close $fIn
-  puts -nonewline $fOut "package ifneeded Tkzinc $version "
-  puts $fOut {[list load [file join $dir [Platform] Tkzinc[info sharedlibext]]]}
-  close $fOut
-
-  #
-  # Copy the platform dependent libraries
-  #
-  if { [file exists libTkzinc$version.so] } {
-	  set platformPath [file join $zincPath Linux-x86]
-	  file mkdir $platformPath
-	  file copy -force libTkzinc$version.so [file join $platformPath Tkzinc.so]
-  }
-  if { [file exists Tkzinc.dll] } {
-	  set platformPath [file join $zincPath Windows-x86]
-	  file mkdir $platformPath
-	  file copy -force Tkzinc.dll [file join $platformPath Tkzinc.dll]
-  }
-}
-
-
-proc Platform {} {
-  global tcl_platform
-  set plat [lindex $tcl_platform(os) 0]
-  set mach $tcl_platform(machine)
-  switch -glob -- $mach {
-  	sun4* { set mach sparc }
-  	intel -
-	  i*86* { set mach x86 }
-	  "Power Macintosh" { set mach ppc }
-  }
-  switch -- $plat {
-	  AIX   { set mach ppc }
-	  HP-UX { set mach hppa }
-  }
-  return "$plat-$mach"
-}
-
-#
-# Build the current platform variant
-[Platform]-Compile
-
-set TkzincVfs Tkzinc.vfs
-set TkzincKit Tkzinc.kit
-
-set cwd [pwd]
-cd ..
-
-if { ! [file exists $TkzincVfs] } {
-  if { [file exists $TkzincKit] } {
-	  exec sdx unwrap $TkzincKit
-  } else {
-    puts "Unable to find either Tkzinc.kit or Tkzinc.vfs in .. , giving up."
-    exit
-  }
-}
-cd $cwd
-updateKit [file join .. $TkzincVfs]
-
-puts "Now wrapping the starkit"
-
-cd ..
-exec sdx wrap $TkzincKit
-
-- 
cgit v1.1