From e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf Mon Sep 17 00:00:00 2001
From: cvs2svn
Date: Mon, 24 Jan 2005 15:46:33 +0000
Subject: This commit was manufactured by cvs2svn to create branch
 'POSTSCRIPT'.

---
 starkit.tcl.in | 203 ---------------------------------------------------------
 1 file changed, 203 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 8ce35bb..0000000
--- a/starkit.tcl.in
+++ /dev/null
@@ -1,203 +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 crossCompile {} {
-    global MAJOR_VERSION MINOR_VERSION PATCHLEVEL
-    global env
-
-    #
-    # Try to find the Tcl/Tk headers and stubs cache
-    set kit [file normalize [file join [pwd] .. .kittmp]]
-    if { ! [file exists $kit] } {
-	puts "Unable to find the Tcl/Tk headers and stubs in $kit, exiting."
-	exit
-    }
-    puts "Using Tcl/Tk headers and stubs in: $kit"
-
-    set sources {
-	libtess/dict.c libtess/geom.c libtess/memalloc.c libtess/mesh.c
-	libtess/normal.c libtess/priorityq.c libtess/render.c
-	libtess/sweep.c libtess/tess.c libtess/tessmono.c
-	generic/Track.c generic/Tabular.c generic/Reticle.c generic/Map.c
-	generic/Rectangle.c generic/Arc.c generic/Curve.c generic/Item.c
-	generic/PostScript.c generic/MapInfo.c generic/Attrs.c
-	generic/Draw.c generic/Geo.c generic/List.c generic/perfos.c
-	generic/Transfo.c generic/Group.c generic/Icon.c generic/Text.c
-	generic/Image.c generic/Color.c generic/Field.c generic/Triangles.c
-	generic/Window.c generic/tkZinc.c generic/OverlapMan.c
-	win/WinPort.c
-    }
-    set cFlags [list -I$kit -I$kit/generic -I$kit/xlib -Igeneric -Ilibtess \
-		    -DUSE_TCL_STUBS=1 -DUSE_TK_STUBS=1 \
-		    -DVERSION=\"$MAJOR_VERSION.$MINOR_VERSION.$PATCHLEVEL\" \
-		    -DGL=1 -DGL_DAMAGE=1 -DOM=1 -O2 -DBUILD_Tkzinc=1 ]
-    set lFlags [list -shared -s -L$kit/Windows-x86 -ltclstub -ltkstub \
-		    -lopengl32 -lgdi32 -lwsock32 -luser32 ]
-    set objs [list]
-
-    set envSave $env(PATH)
-    set env(PATH) $env(HOME)/cross-tools/bin:$env(PATH)
-    set logFile [open starkit.log w]
-
-    foreach f $sources {
-	lappend objs [file rootname [file tail $f]].o
-	set cmdLine "gcc $cFlags -c $f >&@ $logFile"
-	puts $logFile $cmdLine
-	catch {eval exec $cmdLine} result
-	puts $logFile $result
-    }
-    set cmdLine "gcc $objs $lFlags -o Tkzinc$MAJOR_VERSION$MINOR_VERSION$PATCHLEVEL.dll >&@ $logFile"
-    puts $logFile $cmdLine
-    catch {eval exec $cmdLine} result
-    puts $logFile $result
-
-    close $logFile
-    set env(PATH) $envSave
-}
-
-proc updateKit {} {
-    global MAJOR_VERSION MINOR_VERSION PATCHLEVEL
-
-    set zincPath [file join Tkzinc.vfs 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] Tkzinc.vfs
-
-    set zincPath [file join Tkzinc.vfs 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$winVersion.dll] } {
-	set platformPath [file join $zincPath Windows-x86]
-	file mkdir $platformPath
-	file copy -force Tkzinc330.dll [file join $platformPath Tkzinc.dll]
-    }
-
-    exec sdx wrap Tkzinc.kit
-}
-
-
-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 Windows variant
-crossCompile
-
-#
-# Build the linux variant
-catch {exec make clean}
-catch {exec make}
-
-#
-# If the starkit Tkzinc.kit already exist in the top directory
-# simply update it else build a new one according to the layout
-# above. In this later case one need to make sure there is a
-# valid Tkimg.kit in the top directory's parent.
-#
-if { [file exists Tkzinc.kit] } {
-    if { [file exists Tkzinc.vfs] } {
-	file delete -force Tkzinc.vfs
-    }
-    exec sdx unwrap Tkzinc.kit
-    updateKit
-} {
-    if { [file exists Tkzinc.vfs] } {
-	file delete -force Tkzinc.vfs
-    }
-    file mkdir Tkzinc.vfs
-
-    if { [file exists Tkimg.vfs] } {
-	file delete -force Tkimg.vfs
-    }
-    exec sdx unwrap [file join .. Tkimg.kit]
-    file copy [file join Tkimg.vfs lib] Tkzinc.vfs
-
-    updateKit
-}
-
-file delete -force Tkimg.vfs
-file delete -force Tkzinc.vfs
-- 
cgit v1.1