magic/tcltk/ext2spice.sh

#!/bin/sh
#
# Standalone script for ext2spice, for Tcl-based magic 8.0
#
# Parse arguments. "--" separates arguments to magic
# from arguments to ext2spice.
#
mgargs=""
esargs=""
for i in $@; do
   case $i in
      --) mgargs="$esargs"
	  esargs="" ;;
      *) esargs="$esargs $i" ;;
   esac
done
#
eval /home/tim/cad/lib/magic/tcl/magicdnull -dnull -noconsole -nowrapper $mgargs <<EOF
drc off
box 0 0 0 0
ext2spice $esargs
quit -noprompt
EOF
Initial commit at Tue Apr 25 08:41:48 EDT 2017 by tim on stravinsky 2017-04-25 14:41:48 +02:00			`#!/bin/sh`
			`#`
			`# Standalone script for ext2spice, for Tcl-based magic 8.0`
			`#`
			`# Parse arguments. "--" separates arguments to magic`
			`# from arguments to ext2spice.`
			`#`
			`mgargs=""`
			`esargs=""`
			`for i in $@; do`
			`case $i in`
			`--) mgargs="$esargs"`
			`esargs="" ;;`
			`*) esargs="$esargs $i" ;;`
			`esac`
			`done`
			`#`
Corrected problems having to do with color (blue and green were swapped) and incorrect call to cairo_set_source_rgba which is in an unused function and has no effect except with versions of Tcl less than 8.6 where "load -lazy" is not available and unknown functions cause immediate exit. Cleaned up remaining references to OpenGL in the Cairo code, and updated the copyright and acknowledged Chuan Chen, who coded the Cairo interface. No attempt yet to deal with memory leaks caused by calling Cairo "create" functions without the accompanying "destroy" functions. 2017-09-12 21:42:08 +02:00			`eval /home/tim/cad/lib/magic/tcl/magicdnull -dnull -noconsole -nowrapper $mgargs <<EOF`
Initial commit at Tue Apr 25 08:41:48 EDT 2017 by tim on stravinsky 2017-04-25 14:41:48 +02:00			`drc off`
			`box 0 0 0 0`
			`ext2spice $esargs`
			`quit -noprompt`
			`EOF`