Libraries and tools for simulation modeling.

PR:		3757
Submitted by:	Ruslan Shevchenko <rssh@cki.ipri.kiev.ua>

12 files changed, 1776 insertions, 0 deletions

diff --git a/math/simpack/files/DIRS-LIB b/math/simpack/files/DIRS-LIB
new file mode 100644
index 000000000000..ba3cdcd666b7
--- /dev/null
+++ b/math/simpack/files/DIRS-LIB
@@ -0,0 +1,4 @@
+	constraint/differential/deq
+	func/slice/sdsmt
+	func/slice/sdsmt/XBM
+	func/slice/sdsmt/bitmaps
diff --git a/math/simpack/files/DIRS-SHARE b/math/simpack/files/DIRS-SHARE
new file mode 100644
index 000000000000..1597fa1fd7bb
--- /dev/null
+++ b/math/simpack/files/DIRS-SHARE
@@ -0,0 +1,23 @@
+	constraint/delaydiff/
+	constraint/difference/
+	constraint/differential/deq/
+	constraint/differential/integrate/
+	func/event/doc/
+	func/event/examples/airport/
+	func/event/examples/block/
+	func/event/examples/cpudisk/
+	func/event/examples/iterate/
+	func/event/examples/logic/
+	func/event/examples/network/
+	func/event/examples/qnet/
+	func/event/examples/route/
+	func/event/examples/ssq/
+	func/event/examples/tiktok/
+	func/event/pkgs/Xsimcode/examples/
+	func/event/pkgs/minigpss/gpdoc/
+	func/event/pkgs/minigpss/gpfiles/
+	func/slice/block/
+	func/slice/pulse/
+	func/slice/sdsmt/
+	multimodel/
+	projects/
diff --git a/math/simpack/files/FILES-BIN b/math/simpack/files/FILES-BIN
new file mode 100644
index 000000000000..a4fcc542e792
--- /dev/null
+++ b/math/simpack/files/FILES-BIN
@@ -0,0 +1,5 @@
+	dec/fsa/fsa
+	dec/markov/markov
+	dec/petri/petri
+	func/event/pkgs/Xsimcode/src/Xsimcode
+	func/event/pkgs/minigpss/gpfiles/gpss
diff --git a/math/simpack/files/FILES-INCLUDE-QUEUING b/math/simpack/files/FILES-INCLUDE-QUEUING
new file mode 100644
index 000000000000..5f2c452555eb
--- /dev/null
+++ b/math/simpack/files/FILES-INCLUDE-QUEUING
@@ -0,0 +1,2 @@
+func/queuing/queuing.h
+func/queuing/mytypes.h
diff --git a/math/simpack/files/FILES-INCLUDE-SIMPP b/math/simpack/files/FILES-INCLUDE-SIMPP
new file mode 100644
index 000000000000..5bb295985da1
--- /dev/null
+++ b/math/simpack/files/FILES-INCLUDE-SIMPP
@@ -0,0 +1,8 @@
+	func/event/include/capi.h
+	func/event/include/facility.h
+	func/event/include/future.h
+	func/event/include/token.h
+	func/event/include/event.h
+	func/event/include/flist.h
+	func/event/include/queuing.h
+	func/event/include/vlist.h
diff --git a/math/simpack/files/FILES-LIB b/math/simpack/files/FILES-LIB
new file mode 100644
index 000000000000..da1f51029643
--- /dev/null
+++ b/math/simpack/files/FILES-LIB
@@ -0,0 +1,48 @@
+	constraint/differential/deq/deq
+	constraint/differential/deq/order1
+	constraint/differential/deq/contsim
+	func/slice/sdsmt/Xdefaults
+	func/slice/sdsmt/display1.tcl
+	func/slice/sdsmt/do.tcl
+	func/slice/sdsmt/draw.tcl
+	func/slice/sdsmt/equ.tcl
+	func/slice/sdsmt/file.tcl
+	func/slice/sdsmt/help.tcl
+	func/slice/sdsmt/plot.tcl
+	func/slice/sdsmt/sdsmt
+	func/slice/sdsmt/set.tcl
+	func/slice/sdsmt/tclIndex
+	func/slice/sdsmt/XBM/author.bmp
+	func/slice/sdsmt/XBM/aux.xbm
+	func/slice/sdsmt/XBM/cancel.bmp
+	func/slice/sdsmt/XBM/celink.xbm
+	func/slice/sdsmt/XBM/const.bmp
+	func/slice/sdsmt/XBM/const.xbm
+	func/slice/sdsmt/XBM/dash.bmp
+	func/slice/sdsmt/XBM/delete.xbm
+	func/slice/sdsmt/XBM/edit.xbm
+	func/slice/sdsmt/XBM/equ.xbm
+	func/slice/sdsmt/XBM/exec.xbm
+	func/slice/sdsmt/XBM/flow.xbm
+	func/slice/sdsmt/XBM/grid.bmp
+	func/slice/sdsmt/XBM/grid.fig
+	func/slice/sdsmt/XBM/grid0.bmp
+	func/slice/sdsmt/XBM/grid0.xbm
+	func/slice/sdsmt/XBM/grid1.bmp
+	func/slice/sdsmt/XBM/grid1.xbm
+	func/slice/sdsmt/XBM/grid2.bmp
+	func/slice/sdsmt/XBM/grid2.xbm
+	func/slice/sdsmt/XBM/gridm.xbm
+	func/slice/sdsmt/XBM/icon.fig
+	func/slice/sdsmt/XBM/level.xbm
+	func/slice/sdsmt/XBM/move.xbm
+	func/slice/sdsmt/XBM/rate.bmp
+	func/slice/sdsmt/XBM/rate.xbm
+	func/slice/sdsmt/XBM/source.bmp
+	func/slice/sdsmt/XBM/source.xbm
+	func/slice/sdsmt/XBM/undo.xbm
+	func/slice/sdsmt/bitmaps/delete.eps
+	func/slice/sdsmt/bitmaps/grey.05
+	func/slice/sdsmt/bitmaps/grey.10
+	func/slice/sdsmt/bitmaps/grey.25
+	func/slice/sdsmt/bitmaps/grey.5
diff --git a/math/simpack/files/FILES-OLB b/math/simpack/files/FILES-OLB
new file mode 100644
index 000000000000..7fed14d6228a
--- /dev/null
+++ b/math/simpack/files/FILES-OLB
@@ -0,0 +1,16 @@
+	func/event/olb/calendar.o
+	func/event/olb/capifac.o
+	func/event/olb/capifut.o
+	func/event/olb/capiran.o
+	func/event/olb/estatus.o
+	func/event/olb/event.o
+	func/event/olb/facility.o
+	func/event/olb/flist.o
+	func/event/olb/future.o
+	func/event/olb/heap.o
+	func/event/olb/leftist.o
+	func/event/olb/linked.o
+	func/event/olb/service.o
+	func/event/olb/token.o
+	func/event/olb/util.o
+	func/event/olb/vlist.o
diff --git a/math/simpack/files/FILES-SHARE b/math/simpack/files/FILES-SHARE
new file mode 100644
index 000000000000..a1383535732b
--- /dev/null
+++ b/math/simpack/files/FILES-SHARE
@@ -0,0 +1,306 @@
+	constraint/delaydiff/haem.time-20.ps
+	constraint/delaydiff/Makefile
+	constraint/delaydiff/delaydiff.c
+	constraint/difference/Makefile
+	constraint/difference/README
+	constraint/difference/bifurc.c
+	constraint/difference/log1a.c
+	constraint/difference/log1b.c
+	constraint/difference/log2.c
+	constraint/differential/deq/README
+	constraint/differential/deq/duff.in
+	constraint/differential/deq/lorenz.in
+	constraint/differential/deq/deq.doc
+	constraint/differential/integrate/README
+	constraint/differential/integrate/predprey1.ps
+	constraint/differential/integrate/predprey2.ps
+	constraint/differential/integrate/predprey3.ps
+	constraint/differential/integrate/silnikov.ps
+	constraint/differential/integrate/conte.c
+	constraint/differential/integrate/contrk.c
+	constraint/differential/integrate/lorenz.c
+	constraint/differential/integrate/lotka.c
+	constraint/differential/integrate/silnikov.c
+	constraint/differential/integrate/vibration.c
+	func/event/doc/simpp.ps
+	func/event/examples/airport/airport1
+	func/event/examples/airport/airport2
+	func/event/examples/airport/readme
+	func/event/examples/airport/translat
+	func/event/examples/airport/makefile
+	func/event/examples/block/readme
+	func/event/examples/block/block0
+	func/event/examples/block/block1
+	func/event/examples/block/block2
+	func/event/examples/block/block3
+	func/event/examples/block/block4
+	func/event/examples/block/output.v0u
+	func/event/examples/block/output.v1d
+	func/event/examples/block/output.v1u
+	func/event/examples/block/output.v2d
+	func/event/examples/block/output.v2u
+	func/event/examples/block/output.v3d
+	func/event/examples/block/output.v3u
+	func/event/examples/block/output.v4d
+	func/event/examples/block/output.v4u
+	func/event/examples/block/translat
+	func/event/examples/block/makefile
+	func/event/examples/cpudisk/readme
+	func/event/examples/cpudisk/cpudisk0
+	func/event/examples/cpudisk/cpudisk1
+	func/event/examples/cpudisk/cpudisk2
+	func/event/examples/cpudisk/cpudisk3
+	func/event/examples/cpudisk/cpudisk4
+	func/event/examples/cpudisk/cpudisk5
+	func/event/examples/cpudisk/cpudisk6
+	func/event/examples/cpudisk/output.v0u
+	func/event/examples/cpudisk/output.v1d
+	func/event/examples/cpudisk/output.v1u
+	func/event/examples/cpudisk/output.v2d
+	func/event/examples/cpudisk/output.v2u
+	func/event/examples/cpudisk/output.v3d
+	func/event/examples/cpudisk/output.v3u
+	func/event/examples/cpudisk/output.v4d
+	func/event/examples/cpudisk/output.v4u
+	func/event/examples/cpudisk/output.v5d
+	func/event/examples/cpudisk/output.v5u
+	func/event/examples/cpudisk/output.v6d
+	func/event/examples/cpudisk/output.v6u
+	func/event/examples/cpudisk/translat
+	func/event/examples/cpudisk/makefile
+	func/event/examples/iterate/iterate1
+	func/event/examples/iterate/iterate2
+	func/event/examples/iterate/makefile
+	func/event/examples/iterate/output.v1u
+	func/event/examples/iterate/output.v2u
+	func/event/examples/iterate/readme
+	func/event/examples/iterate/translat
+	func/event/examples/logic/andor.dat
+	func/event/examples/logic/andor.out
+	func/event/examples/logic/inv.dat
+	func/event/examples/logic/inv.out
+	func/event/examples/logic/logic
+	func/event/examples/logic/logic.C
+	func/event/examples/logic/logic0
+	func/event/examples/logic/logic1
+	func/event/examples/logic/makefile
+	func/event/examples/logic/makefile.simpack
+	func/event/examples/logic/output.v0u
+	func/event/examples/logic/output.v1d
+	func/event/examples/logic/output.v1u
+	func/event/examples/logic/readme
+	func/event/examples/logic/translat
+	func/event/examples/logic/translat.bat
+	func/event/examples/network/makefile
+	func/event/examples/network/makefile.simpack
+	func/event/examples/network/net1.dat
+	func/event/examples/network/net2.dat
+	func/event/examples/network/net3.dat
+	func/event/examples/network/net4.dat
+	func/event/examples/network/net5.dat
+	func/event/examples/network/network0
+	func/event/examples/network/network1
+	func/event/examples/network/output.v0u
+	func/event/examples/network/output.v1d
+	func/event/examples/network/output.v1u
+	func/event/examples/network/readme
+	func/event/examples/network/translat
+	func/event/examples/network/translat.bat
+	func/event/examples/qnet/cpudisk.dat
+	func/event/examples/qnet/makefile
+	func/event/examples/qnet/makefile.orig
+	func/event/examples/qnet/output.v0u
+	func/event/examples/qnet/output.v1d
+	func/event/examples/qnet/output.v1u
+	func/event/examples/qnet/q.dat
+	func/event/examples/qnet/qnet0
+	func/event/examples/qnet/qnet1
+	func/event/examples/qnet/readme
+	func/event/examples/qnet/translat
+	func/event/examples/qnet/translat.bat
+	func/event/examples/route/d1e
+	func/event/examples/route/d1u
+	func/event/examples/route/d2a
+	func/event/examples/route/d2e
+	func/event/examples/route/d2u
+	func/event/examples/route/d3e
+	func/event/examples/route/d3l
+	func/event/examples/route/d3u
+	func/event/examples/route/makefile
+	func/event/examples/route/makefile.simpack
+	func/event/examples/route/output.v0u
+	func/event/examples/route/output.v1d
+	func/event/examples/route/output.v1u
+	func/event/examples/route/readme
+	func/event/examples/route/route0
+	func/event/examples/route/route1
+	func/event/examples/route/translat
+	func/event/examples/route/translat.bat
+	func/event/examples/ssq/makefile
+	func/event/examples/ssq/makefile.simpack
+	func/event/examples/ssq/output.11d
+	func/event/examples/ssq/output.11u
+	func/event/examples/ssq/output.v0u
+	func/event/examples/ssq/output.v1d
+	func/event/examples/ssq/output.v1u
+	func/event/examples/ssq/output.v2d
+	func/event/examples/ssq/output.v2u
+	func/event/examples/ssq/output.v4d
+	func/event/examples/ssq/output.v4u
+	func/event/examples/ssq/output.v5d
+	func/event/examples/ssq/output.v5u
+	func/event/examples/ssq/output.v6d
+	func/event/examples/ssq/output.v6u
+	func/event/examples/ssq/output.v7d
+	func/event/examples/ssq/output.v7u
+	func/event/examples/ssq/output.v8d
+	func/event/examples/ssq/output.v8u
+	func/event/examples/ssq/readme
+	func/event/examples/ssq/ssq0
+	func/event/examples/ssq/ssq1
+	func/event/examples/ssq/ssq10
+	func/event/examples/ssq/ssq11
+	func/event/examples/ssq/ssq12
+	func/event/examples/ssq/ssq13
+	func/event/examples/ssq/ssq2
+	func/event/examples/ssq/ssq3
+	func/event/examples/ssq/ssq4
+	func/event/examples/ssq/ssq5
+	func/event/examples/ssq/ssq6
+	func/event/examples/ssq/ssq7
+	func/event/examples/ssq/ssq8
+	func/event/examples/ssq/ssq9
+	func/event/examples/ssq/translat
+	func/event/examples/tiktok/makefile
+	func/event/examples/tiktok/makefile.orig
+	func/event/examples/tiktok/makefile.simpack
+	func/event/examples/tiktok/output.v0u
+	func/event/examples/tiktok/output.v1d
+	func/event/examples/tiktok/output.v1u
+	func/event/examples/tiktok/output.v2d
+	func/event/examples/tiktok/output.v2u
+	func/event/examples/tiktok/output.v3d
+	func/event/examples/tiktok/output.v3u
+	func/event/examples/tiktok/output.v4d
+	func/event/examples/tiktok/output.v4u
+	func/event/examples/tiktok/readme
+	func/event/examples/tiktok/tiktok
+	func/event/examples/tiktok/tiktok.C
+	func/event/examples/tiktok/tiktok0
+	func/event/examples/tiktok/tiktok1
+	func/event/examples/tiktok/tiktok2
+	func/event/examples/tiktok/tiktok3
+	func/event/examples/tiktok/tiktok4
+	func/event/examples/tiktok/translat
+	func/event/pkgs/Xsimcode/README
+	func/event/pkgs/Xsimcode/examples/Makefile
+	func/event/pkgs/Xsimcode/examples/Readme
+	func/event/pkgs/Xsimcode/examples/big_test.sim
+	func/event/pkgs/Xsimcode/examples/combined1.sim
+	func/event/pkgs/Xsimcode/examples/examp1.sim
+	func/event/pkgs/Xsimcode/examples/examp2.sim
+	func/event/pkgs/Xsimcode/examples/examp3.sim
+	func/event/pkgs/minigpss/gpdoc/README.abstract
+	func/event/pkgs/minigpss/gpdoc/README.dtastruct
+	func/event/pkgs/minigpss/gpdoc/README.intdia
+	func/event/pkgs/minigpss/gpdoc/README.intro
+	func/event/pkgs/minigpss/gpdoc/README.progdesc
+	func/event/pkgs/minigpss/gpdoc/README.ref
+	func/event/pkgs/minigpss/gpdoc/README.syntax
+	func/event/pkgs/minigpss/gpdoc/README.sysdia
+	func/event/pkgs/minigpss/gpdoc/README.system
+	func/event/pkgs/minigpss/gpdoc/README.userman
+	func/event/pkgs/minigpss/gpdoc/barber2.g
+	func/event/pkgs/minigpss/gpdoc/barber2.gps
+	func/event/pkgs/minigpss/gpdoc/docs
+	func/event/pkgs/minigpss/gpdoc/ls
+	func/event/pkgs/minigpss/gpdoc/minidesc.txt
+	func/event/pkgs/minigpss/gpfiles/Makefile
+	func/event/pkgs/minigpss/gpfiles/barber2.g
+	func/event/pkgs/minigpss/gpfiles/barbershop.g
+	func/event/pkgs/minigpss/gpfiles/branch.g
+	func/event/pkgs/minigpss/gpfiles/branch2.g
+	func/event/pkgs/minigpss/gpfiles/branch4.g
+	func/event/pkgs/minigpss/gpfiles/branching.g
+	func/event/pkgs/minigpss/gpfiles/myfig.g
+	func/event/pkgs/minigpss/gpfiles/nofac.g
+	func/event/pkgs/minigpss/gpfiles/nofac2.g
+	func/event/pkgs/minigpss/gpfiles/sample1.g
+	func/event/pkgs/minigpss/gpfiles/sample1.out
+	func/event/pkgs/minigpss/gpfiles/sample2.g
+	func/event/pkgs/minigpss/gpfiles/sample2.out
+	func/event/pkgs/minigpss/gpfiles/sample3.g
+	func/event/pkgs/minigpss/gpfiles/sample3.out
+	func/event/pkgs/minigpss/gpfiles/sample4.g
+	func/event/pkgs/minigpss/gpfiles/sample4.out
+	func/event/pkgs/minigpss/gpfiles/scanners.g
+	func/event/pkgs/minigpss/gpfiles/scanners.out
+	func/event/pkgs/minigpss/gpfiles/scanners2.g
+	func/event/pkgs/minigpss/gpfiles/series.g
+	func/event/pkgs/minigpss/gpfiles/simgen.c
+	func/event/pkgs/minigpss/gpfiles/timed.g
+	func/event/pkgs/minigpss/gpfiles/twice.g
+	func/slice/block/Makefile
+	func/slice/block/README
+	func/slice/block/block.c
+	func/slice/block/block.dat
+	func/slice/block/block.out
+	func/slice/block/block.ps
+	func/slice/block/block2.dat
+	func/slice/block/block2.out
+	func/slice/block/block2.ps
+	func/slice/block/monorail1.c
+	func/slice/block/monorail1.dat
+	func/slice/block/monorail2.c
+	func/slice/block/monorail2.dat
+	func/slice/block/monorail3.c
+	func/slice/block/monorail3.dat
+	func/slice/block/monorail3.out
+	func/slice/block/monorail3.ps
+	func/slice/pulse/Makefile
+	func/slice/pulse/README.PUL
+	func/slice/pulse/herb.dat
+	func/slice/pulse/pulse.c
+	func/slice/sdsmt/ANNOUNCE
+	func/slice/sdsmt/DOC.PS
+	func/slice/sdsmt/README
+	func/slice/sdsmt/buildings.sdg
+	func/slice/sdsmt/coffee.sdg
+	func/slice/sdsmt/coffee.sdg.equ
+	func/slice/sdsmt/coffee.sdg.init
+	func/slice/sdsmt/epidemic.sdg
+	func/slice/sdsmt/epidemic.sdg.equ
+	func/slice/sdsmt/epidemic.sdg.init
+	func/slice/sdsmt/fly.sdg
+	func/slice/sdsmt/fly.sdg.equ
+	func/slice/sdsmt/fly.sdg.init
+	func/slice/sdsmt/larvae2.sdg
+	func/slice/sdsmt/larvae2.sdg.equ
+	func/slice/sdsmt/larvae2.sdg.init
+	func/slice/sdsmt/larve.sdg.equ
+	func/slice/sdsmt/larve.sdg.init
+	func/slice/sdsmt/news.lists
+	func/slice/sdsmt/pop.sdg
+	func/slice/sdsmt/pop.sdg.equ
+	func/slice/sdsmt/pop.sdg.init
+	func/slice/sdsmt/population.sdg
+	func/slice/sdsmt/population.sdg.equ
+	func/slice/sdsmt/population.sdg.init
+	func/slice/sdsmt/population1.sdg.equ
+	func/slice/sdsmt/population1.sdg.init
+	multimodel/Makefile
+	multimodel/README
+	multimodel/bwater
+	multimodel/bwater.c
+	multimodel/bwater.in
+	multimodel/combined
+	multimodel/combined.c
+	projects/README
+	projects/davinci
+	README
+	BOOK
+	COPYRIGHT
+	License
+	License.gnu
+	shipmail.info
+	SimPack.doc
diff --git a/math/simpack/files/FILES-SRC-SIMPP b/math/simpack/files/FILES-SRC-SIMPP
new file mode 100644
index 000000000000..932bbd35cb62
--- /dev/null
+++ b/math/simpack/files/FILES-SRC-SIMPP
@@ -0,0 +1,16 @@
+	calendar.cpp
+	capifac.cpp
+	capifut.cpp
+	capiran.cpp
+	estatus.cpp
+	event.cpp
+	facility.cpp
+	flist.cpp
+	future.cpp
+	heap.cpp
+	leftist.cpp
+	linked.cpp
+	service.cpp
+	token.cpp
+	util.cpp
+	vlist.cpp
diff --git a/math/simpack/files/patch-aa b/math/simpack/files/patch-aa
new file mode 100644
index 000000000000..30e23ca5fa50
--- /dev/null
+++ b/math/simpack/files/patch-aa
@@ -0,0 +1,700 @@
+diff -urd Makefile work/simpack/Makefile
+--- Makefile	Fri Aug 25 00:59:55 1995
++++ work/simpack/Makefile	Mon May 19 15:41:15 1997
+@@ -1,10 +1,10 @@
+ all:	
+ 	@more COPYRIGHT
+-	@Ask License
+-	@Ask License.gnu
++	@./Ask License
++	@./Ask License.gnu
+ 	date
+ 	@echo 'Begin making'
+-	(cd func; Make_all)
++	(cd func; ./Make_all)
+ 	@echo 'Unconditionally make the rest of SimPack3:'
+ 	@echo 'Declarative ...'
+ 	(cd dec; make all)
+@@ -26,7 +26,7 @@
+ 	date
+ 	@echo 'Begin cleaning'
+ 	find . -name '*~' -exec rm {} \;
+-	(cd func; Make_clean)
++	(cd func; ./Make_clean)
+ 	(cd dec; make clean)
+ 	(cd multimodel; make clean)
+ 	(cd constraint; make clean)
+diff -urd constraint/differential/deq/order1.c work/simpack/constraint/differential/deq/order1.c
+--- constraint/differential/deq/order1.c	Fri Aug 25 00:59:58 1995
++++ work/simpack/constraint/differential/deq/order1.c	Mon May 19 16:17:44 1997
+@@ -353,7 +353,7 @@
+             s[++i]='-';
+           }
+ 	  s[++i]=ch;
+-	  while isalnum(s[++i]=lower(getchar()));
++	  while (isalnum(s[++i]=lower(getchar())));
+ 	  ch=s[i];
+ 	  s[i]='\0';
+ 	  switch (lookup(s,&time_present,&dim)) {
+diff -urd dec/petri/petri.c work/simpack/dec/petri/petri.c
+--- dec/petri/petri.c	Fri Aug 25 01:00:03 1995
++++ work/simpack/dec/petri/petri.c	Mon May 19 16:05:38 1997
+@@ -15,6 +15,8 @@
+ #include <stdio.h>
+ #include "../../func/queuing/queuing.h"
+ 
++#define random(x,y) random_int(x,y)
++
+ #define BUSY 1
+ #define FREE 0
+ #define BEGINFIRE 1
+diff -urd func/Make_all work/simpack/func/Make_all
+--- func/Make_all	Fri Aug 25 01:00:06 1995
++++ work/simpack/func/Make_all	Mon May 19 15:40:46 1997
+@@ -10,10 +10,10 @@
+ echo 'Done creating SimPack2.x Queuing Library (or it was already current)'
+ 
+ echo 'About to create Sim++ version 1.0 Event Model Tools ...'
+-(cd event; Make_all)
++(cd event; ./Make_all)
+ 
+ echo 'About to create SimPack3 Time-Slice Functional Model Packages ...'
+-(cd slice; Make_all)
++(cd slice; ./Make_all)
+ 
+ echo 'simpack/func/Make_all is done.'
+ date
+diff -urd func/Make_clean work/simpack/func/Make_clean
+--- func/Make_clean	Fri Aug 25 01:00:07 1995
++++ work/simpack/func/Make_clean	Mon May 19 15:41:49 1997
+@@ -2,8 +2,8 @@
+ echo 'Remove Simpack2.x queuing library object file ...'
+ (cd queuing; rm -f queuing.o)
+ echo 'Remove Sim++ ...'
+-(cd event; Make_clean)
++(cd event; ./Make_clean)
+ echo 'Remove SimPack3 Time-Slice Functional Model Packages ...'
+-(cd slice; Make_clean)
++(cd slice; ./Make_clean)
+ echo 'simpack/func/Make_clean is done.'
+ date
+diff -urd func/event/Make_all work/simpack/func/event/Make_all
+--- func/event/Make_all	Fri Aug 25 01:01:00 1995
++++ work/simpack/func/event/Make_all	Mon May 19 15:43:03 1997
+@@ -4,7 +4,7 @@
+ echo 'copyright (c) 1995; see license in root directory of the distribution,'
+ echo 'which is simpack/func/event.'
+ echo 'The License for Sim++ is separate from the SimPack3 License.'
+-Ask License
++./Ask License
+ if ( [ -f REJECT ] ) then
+   echo 'You cannot proceed with Sim++ because you have rejected the terms and'
+   echo 'conditions of the Sim++ License.'
+@@ -20,7 +20,7 @@
+ echo ' '
+ if ( [ "$ansa" = "y" ] ) then
+   echo 'Creating Sim++ Object Library ...'
+-  Translat 
++  ./Translat 
+   echo 'Done.'
+   fi
+ 
+@@ -29,7 +29,7 @@
+ echo ' '
+ if ( [ "$ansa" = "y" ] ) then
+   echo 'Creating Sim++ Example Code Executables ...'
+-  (cd examples; translat)
++  (cd examples; ./translat)
+   echo 'Done.'
+   fi
+ 
+diff -urd func/event/Translat work/simpack/func/event/Translat
+--- func/event/Translat	Fri Aug 25 01:00:59 1995
++++ work/simpack/func/event/Translat	Mon May 19 15:43:52 1997
+@@ -18,22 +18,22 @@
+ echo 'About to Build Sim++ Object Library ...'
+ date
+ (cd src; chmod 600 *)
+-Trans1 calendar
+-Trans1 capifac
+-Trans1 capifut
+-Trans1 capiran
+-Trans1 event
+-Trans1 estatus
+-Trans1 facility
+-Trans1 flist
+-Trans1 future
+-Trans1 heap
+-Trans1 leftist
+-Trans1 linked
+-Trans1 service
+-Trans1 token
+-Trans1 util
+-Trans1 vlist
++./Trans1 calendar
++./Trans1 capifac
++./Trans1 capifut
++./Trans1 capiran
++./Trans1 event
++./Trans1 estatus
++./Trans1 facility
++./Trans1 flist
++./Trans1 future
++./Trans1 heap
++./Trans1 leftist
++./Trans1 linked
++./Trans1 service
++./Trans1 token
++./Trans1 util
++./Trans1 vlist
+ (cd src; chmod 444 *)
+ 
+ echo ' '
+diff -urd func/event/examples/airport/makefile work/simpack/func/event/examples/airport/makefile
+--- func/event/examples/airport/makefile	Fri Aug 25 01:00:34 1995
++++ work/simpack/func/event/examples/airport/makefile	Mon May 19 15:45:05 1997
+@@ -4,26 +4,26 @@
+ #
+ # makefile for examples/airport
+ 
+-	     PGM = airport
++PGM = airport
+ 
+-	    INCL = ../../include                # where to find sim++ *.h
+-	     OLB = ../../olb                    # where to find sim++ *.o
++INCL = ../../include                # where to find sim++ *.h
++OLB = ../../olb                    # where to find sim++ *.o
+ 
+-	COMPILER = g++ -I$(INCL) -c -o
+-	  LINKER = g++ -o
++COMPILER = g++ -I$(INCL) -c -o
++LINKER = g++ -o
+ 
+ 
+ # enumerate sim++ object modules:
+ 
+-	 MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
+-	 MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
+-	 MAIN_OBJ = $(MAIN_1) $(MAIN_2)
++MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
++MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
++MAIN_OBJ = $(MAIN_1) $(MAIN_2)
+ 
+-	 CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
++CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
+ 
+-	 VLIST_1 = $(OLB)/vlist.o
+-	 VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
+-	 VLIST_OBJ = $(VLIST_1) $(VLIST_2)
++VLIST_1 = $(OLB)/vlist.o
++VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
++VLIST_OBJ = $(VLIST_1) $(VLIST_2)
+ 
+ # link
+ 
+diff -urd func/event/examples/block/makefile work/simpack/func/event/examples/block/makefile
+--- func/event/examples/block/makefile	Fri Aug 25 01:00:15 1995
++++ work/simpack/func/event/examples/block/makefile	Mon May 19 15:45:43 1997
+@@ -4,26 +4,26 @@
+ #
+ # makefile for examples/block (formerly blocking)
+ 
+-	     PGM = block
++PGM = block
+ 
+-	    INCL = ../../include                # where to find sim++ *.h
+-	     OLB = ../../olb                    # where to find sim++ *.o
++INCL = ../../include                # where to find sim++ *.h
++OLB = ../../olb                    # where to find sim++ *.o
+ 
+-	COMPILER = g++ -I$(INCL) -c -o
+-	  LINKER = g++ -o
++COMPILER = g++ -I$(INCL) -c -o
++LINKER = g++ -o
+ 
+ 
+ # enumerate sim++ object modules:
+ 
+-	 MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
+-	 MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
+-	 MAIN_OBJ = $(MAIN_1) $(MAIN_2)
++MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
++MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
++MAIN_OBJ = $(MAIN_1) $(MAIN_2)
+ 
+-	 CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
++CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
+ 
+-	 VLIST_1 = $(OLB)/vlist.o
+-	 VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
+-	 VLIST_OBJ = $(VLIST_1) $(VLIST_2)
++VLIST_1 = $(OLB)/vlist.o
++VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
++VLIST_OBJ = $(VLIST_1) $(VLIST_2)
+ 
+ # link
+ 
+diff -urd func/event/examples/cpudisk/makefile work/simpack/func/event/examples/cpudisk/makefile
+--- func/event/examples/cpudisk/makefile	Fri Aug 25 01:00:11 1995
++++ work/simpack/func/event/examples/cpudisk/makefile	Mon May 19 15:46:27 1997
+@@ -4,23 +4,23 @@
+ #
+ # makefile for examples/cpudisk
+ 
+-	    INCL = ../../include                # where to find sim++ *.h
+-	     OLB = ../../olb                    # where to find sim++ *.o
++INCL = ../../include                # where to find sim++ *.h
++OLB = ../../olb                    # where to find sim++ *.o
+ 
+-	COMPILER = g++ -I$(INCL) -c -o
+-	  LINKER = g++ -o
++COMPILER = g++ -I$(INCL) -c -o
++LINKER = g++ -o
+ 
+ # enumerate sim++ object modules:
+ 
+-	 MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
+-	 MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
+-	 MAIN_OBJ = $(MAIN_1) $(MAIN_2)
++MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
++MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
++MAIN_OBJ = $(MAIN_1) $(MAIN_2)
+ 
+-	 CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
++CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
+ 
+-	 VLIST_1 = $(OLB)/vlist.o
+-	 VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
+-	 VLIST_OBJ = $(VLIST_1) $(VLIST_2)
++VLIST_1 = $(OLB)/vlist.o
++VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
++VLIST_OBJ = $(VLIST_1) $(VLIST_2)
+ 
+ # link cpudisk
+ 
+diff -urd func/event/examples/iterate/makefile work/simpack/func/event/examples/iterate/makefile
+--- func/event/examples/iterate/makefile	Fri Aug 25 01:00:33 1995
++++ work/simpack/func/event/examples/iterate/makefile	Mon May 19 15:47:02 1997
+@@ -4,26 +4,26 @@
+ #
+ # makefile for examples/iterate
+ 
+-	     PGM = iterate
++PGM = iterate
+ 
+-	    INCL = ../../include                # where to find sim++ *.h
+-	     OLB = ../../olb                    # where to find sim++ *.o
++INCL = ../../include                # where to find sim++ *.h
++OLB = ../../olb                    # where to find sim++ *.o
+ 
+-	COMPILER = g++ -I$(INCL) -c -o
+-	  LINKER = g++ -o
++COMPILER = g++ -I$(INCL) -c -o
++LINKER = g++ -o
+ 
+ 
+ # enumerate sim++ object modules:
+ 
+-	 MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
+-	 MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
+-	 MAIN_OBJ = $(MAIN_1) $(MAIN_2)
++MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
++MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
++MAIN_OBJ = $(MAIN_1) $(MAIN_2)
+ 
+-	 CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
++CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
+ 
+-	 VLIST_1 = $(OLB)/vlist.o
+-	 VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
+-	 VLIST_OBJ = $(VLIST_1) $(VLIST_2)
++VLIST_1 = $(OLB)/vlist.o
++VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
++VLIST_OBJ = $(VLIST_1) $(VLIST_2)
+ 
+ # link
+ 
+diff -urd func/event/examples/logic/makefile work/simpack/func/event/examples/logic/makefile
+--- func/event/examples/logic/makefile	Fri Aug 25 01:00:31 1995
++++ work/simpack/func/event/examples/logic/makefile	Mon May 19 15:47:39 1997
+@@ -4,26 +4,26 @@
+ #
+ # makefile for examples/logic
+ 
+-	     PGM = logic
++PGM = logic
+ 
+-	    INCL = ../../include                # where to find sim++ *.h
+-	     OLB = ../../olb                    # where to find sim++ *.o
++INCL = ../../include                # where to find sim++ *.h
++OLB = ../../olb                    # where to find sim++ *.o
+ 
+-	COMPILER = g++ -I$(INCL) -c -o
+-	  LINKER = g++ -o
++COMPILER = g++ -I$(INCL) -c -o
++LINKER = g++ -o
+ 
+ 
+ # enumerate sim++ object modules:
+ 
+-	 MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
+-	 MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
+-	 MAIN_OBJ = $(MAIN_1) $(MAIN_2)
++MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
++MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
++MAIN_OBJ = $(MAIN_1) $(MAIN_2)
+ 
+-	 CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
++CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
+ 
+-	 VLIST_1 = $(OLB)/vlist.o
+-	 VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
+-	 VLIST_OBJ = $(VLIST_1) $(VLIST_2)
++VLIST_1 = $(OLB)/vlist.o
++VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
++VLIST_OBJ = $(VLIST_1) $(VLIST_2)
+ 
+ # link
+ 
+diff -urd func/event/examples/network/makefile work/simpack/func/event/examples/network/makefile
+--- func/event/examples/network/makefile	Fri Aug 25 01:00:27 1995
++++ work/simpack/func/event/examples/network/makefile	Mon May 19 15:48:23 1997
+@@ -4,26 +4,26 @@
+ #
+ # makefile for examples/network
+ 
+-	     PGM = network
++PGM = network
+ 
+-	    INCL = ../../include                # where to find sim++ *.h
+-	     OLB = ../../olb                    # where to find sim++ *.o
++INCL = ../../include                # where to find sim++ *.h
++OLB = ../../olb                    # where to find sim++ *.o
+ 
+-	COMPILER = g++ -I$(INCL) -c -o
+-	  LINKER = g++ -o
++COMPILER = g++ -I$(INCL) -c -o
++LINKER = g++ -o
+ 
+ 
+ # enumerate sim++ object modules:
+ 
+-	 MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
+-	 MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
+-	 MAIN_OBJ = $(MAIN_1) $(MAIN_2)
++MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
++MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
++MAIN_OBJ = $(MAIN_1) $(MAIN_2)
+ 
+-	 CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
++CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
+ 
+-	 VLIST_1 = $(OLB)/vlist.o
+-	 VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
+-	 VLIST_OBJ = $(VLIST_1) $(VLIST_2)
++VLIST_1 = $(OLB)/vlist.o
++VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
++VLIST_OBJ = $(VLIST_1) $(VLIST_2)
+ 
+ # link
+ 
+diff -urd func/event/examples/qnet/makefile work/simpack/func/event/examples/qnet/makefile
+--- func/event/examples/qnet/makefile	Fri Aug 25 01:00:28 1995
++++ work/simpack/func/event/examples/qnet/makefile	Mon May 19 15:49:03 1997
+@@ -4,26 +4,26 @@
+ #
+ # makefile for examples/qnet
+ 
+-	     PGM = qnet
++PGM = qnet
+ 
+-	    INCL = ../../include                # where to find sim++ *.h
+-	     OLB = ../../olb                    # where to find sim++ *.o
++INCL = ../../include                # where to find sim++ *.h
++OLB = ../../olb                    # where to find sim++ *.o
+ 
+-	COMPILER = g++ -I$(INCL) -c -o
+-	  LINKER = g++ -o
++COMPILER = g++ -I$(INCL) -c -o
++LINKER = g++ -o
+ 
+ 
+ # enumerate sim++ object modules:
+ 
+-	 MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
+-	 MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
+-	 MAIN_OBJ = $(MAIN_1) $(MAIN_2)
++MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
++MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
++MAIN_OBJ = $(MAIN_1) $(MAIN_2)
+ 
+-	 CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
++CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
+ 
+-	 VLIST_1 = $(OLB)/vlist.o
+-	 VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
+-	 VLIST_OBJ = $(VLIST_1) $(VLIST_2)
++VLIST_1 = $(OLB)/vlist.o
++VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
++VLIST_OBJ = $(VLIST_1) $(VLIST_2)
+ 
+ # link
+ 
+diff -urd func/event/examples/route/makefile work/simpack/func/event/examples/route/makefile
+--- func/event/examples/route/makefile	Fri Aug 25 01:00:31 1995
++++ work/simpack/func/event/examples/route/makefile	Mon May 19 15:49:39 1997
+@@ -4,26 +4,26 @@
+ #
+ # makefile for examples/route
+ 
+-	     PGM = route
++PGM = route
+ 
+-	    INCL = ../../include                # where to find sim++ *.h
+-	     OLB = ../../olb                    # where to find sim++ *.o
++INCL = ../../include                # where to find sim++ *.h
++OLB = ../../olb                    # where to find sim++ *.o
+ 
+-	COMPILER = g++ -I$(INCL) -c -o
+-	  LINKER = g++ -o
++COMPILER = g++ -I$(INCL) -c -o
++LINKER = g++ -o
+ 
+ 
+ # enumerate sim++ object modules:
+ 
+-	 MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
+-	 MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
+-	 MAIN_OBJ = $(MAIN_1) $(MAIN_2)
++MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
++MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
++MAIN_OBJ = $(MAIN_1) $(MAIN_2)
+ 
+-	 CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
++CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
+ 
+-	 VLIST_1 = $(OLB)/vlist.o
+-	 VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
+-	 VLIST_OBJ = $(VLIST_1) $(VLIST_2)
++VLIST_1 = $(OLB)/vlist.o
++VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
++VLIST_OBJ = $(VLIST_1) $(VLIST_2)
+ 
+ # link
+ 
+diff -urd func/event/examples/ssq/makefile work/simpack/func/event/examples/ssq/makefile
+--- func/event/examples/ssq/makefile	Fri Aug 25 01:00:17 1995
++++ work/simpack/func/event/examples/ssq/makefile	Mon May 19 15:50:34 1997
+@@ -4,26 +4,26 @@
+ #
+ # makefile for examples/ssq (formerly q1 in ssq directory)
+ 
+-	     PGM = ssq
++PGM = ssq
+ 
+-	    INCL = ../../include                # where to find sim++ *.h
+-	     OLB = ../../olb                    # where to find sim++ *.o
++INCL = ../../include                # where to find sim++ *.h
++OLB = ../../olb                    # where to find sim++ *.o
+ 
+-	COMPILER = g++ -I$(INCL) -c -o
+-	  LINKER = g++ -o
++COMPILER = g++ -I$(INCL) -c -o
++LINKER = g++ -o
+ 
+ 
+ # enumerate sim++ object modules:
+ 
+-	 MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
+-	 MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
+-	 MAIN_OBJ = $(MAIN_1) $(MAIN_2)
++MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
++MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
++MAIN_OBJ = $(MAIN_1) $(MAIN_2)
+ 
+-	 CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
++CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
+ 
+-	 VLIST_1 = $(OLB)/vlist.o
+-	 VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
+-	 VLIST_OBJ = $(VLIST_1) $(VLIST_2)
++VLIST_1 = $(OLB)/vlist.o
++VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
++VLIST_OBJ = $(VLIST_1) $(VLIST_2)
+ 
+ # link
+ 
+diff -urd func/event/examples/tiktok/makefile work/simpack/func/event/examples/tiktok/makefile
+--- func/event/examples/tiktok/makefile	Fri Aug 25 01:00:25 1995
++++ work/simpack/func/event/examples/tiktok/makefile	Mon May 19 15:51:13 1997
+@@ -4,26 +4,26 @@
+ #
+ # makefile for examples/tiktok (formerly ticktock in clock directory)
+ 
+-	     PGM = tiktok
++PGM = tiktok
+ 
+-	    INCL = ../../include                # where to find sim++ *.h
+-	     OLB = ../../olb                    # where to find sim++ *.o
++INCL = ../../include                # where to find sim++ *.h
++OLB = ../../olb                    # where to find sim++ *.o
+ 
+-	COMPILER = g++ -I$(INCL) -c -o
+-	  LINKER = g++ -o
++COMPILER = g++ -I$(INCL) -c -o
++LINKER = g++ -o
+ 
+ 
+ # enumerate sim++ object modules:
+ 
+-	 MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
+-	 MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
+-	 MAIN_OBJ = $(MAIN_1) $(MAIN_2)
++MAIN_1 = $(OLB)/event.o $(OLB)/facility.o $(OLB)/flist.o $(OLB)/future.o
++MAIN_2 = $(OLB)/service.o $(OLB)/token.o $(OLB)/util.o $(OLB)/estatus.o
++MAIN_OBJ = $(MAIN_1) $(MAIN_2)
+ 
+-	 CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
++CAPI_OBJ = $(OLB)/capifac.o $(OLB)/capifut.o $(OLB)/capiran.o
+ 
+-	 VLIST_1 = $(OLB)/vlist.o
+-	 VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
+-	 VLIST_OBJ = $(VLIST_1) $(VLIST_2)
++VLIST_1 = $(OLB)/vlist.o
++VLIST_2 = $(OLB)/calendar.o $(OLB)/heap.o $(OLB)/linked.o $(OLB)/leftist.o
++VLIST_OBJ = $(VLIST_1) $(VLIST_2)
+ 
+ # link
+ 
+diff -urd func/event/examples/translat work/simpack/func/event/examples/translat
+--- func/event/examples/translat	Fri Aug 25 01:00:34 1995
++++ work/simpack/func/event/examples/translat	Mon May 19 15:57:52 1997
+@@ -7,18 +7,18 @@
+ 
+ if ( [ "$1" = "rm" -o "$1" = "-rm" ] ) then
+   echo ' '
+-  echo 'Removing all translation byproducts from Sim++ program examples ...'
++  echo 'Removing all ./translation byproducts from Sim++ program examples ...'
+   echo ' '
+-  (cd cpudisk; translat -rm)
+-  (cd block;   translat -rm)
+-  (cd tiktok;  translat -rm)
+-  (cd ssq;     translat -rm)
+-  (cd iterate; translat -rm)
+-  (cd airport; translat -rm)
+-  (cd logic;   translat -rm)
+-  (cd network; translat -rm)
+-  (cd qnet;    translat -rm)
+-  (cd route;   translat -rm)
++  (cd cpudisk; ./translat -rm)
++  (cd block;   ./translat -rm)
++  (cd tiktok;  ./translat -rm)
++  (cd ssq;     ./translat -rm)
++  (cd iterate; ./translat -rm)
++  (cd airport; ./translat -rm)
++  (cd logic;   ./translat -rm)
++  (cd network; ./translat -rm)
++  (cd qnet;    ./translat -rm)
++  (cd route;   ./translat -rm)
+   echo ' '
+   echo 'Done Removing.'
+   echo ' '
+@@ -29,16 +29,16 @@
+ echo 'Build (version 1 of) ALL Sim++ Program Examples ...'
+ echo ' '
+ 
+-  (cd cpudisk; translat 1)
+-  (cd block;   translat 1)
+-  (cd tiktok;  translat 1)
+-  (cd ssq;     translat 1)
+-  (cd iterate; translat 1)
+-  (cd logic;   translat 1)
+-  (cd network; translat 1)
+-  (cd qnet;    translat 1)
+-  (cd route;   translat 1)
++  (cd cpudisk; ./translat 1)
++  (cd block;   ./translat 1)
++  (cd tiktok;  ./translat 1)
++  (cd ssq;     ./translat 1)
++  (cd iterate; ./translat 1)
++  (cd logic;   ./translat 1)
++  (cd network; ./translat 1)
++  (cd qnet;    ./translat 1)
++  (cd route;   ./translat 1)
+ 
+ echo ' '
+-echo 'simpack/func/event/examples/translat is done.'
++echo 'simpack/func/event/examples/./translat is done.'
+ echo ' '
+diff -urd func/event/pkgs/Xsimcode/examples/Makefile work/simpack/func/event/pkgs/Xsimcode/examples/Makefile
+--- func/event/pkgs/Xsimcode/examples/Makefile	Fri Aug 25 01:00:46 1995
++++ work/simpack/func/event/pkgs/Xsimcode/examples/Makefile	Mon May 19 16:15:10 1997
+@@ -7,10 +7,10 @@
+ #  modified 950728 by robert cubert as part of SimPack3 release
+ #  including Sim++ version 1.0: see Readme.
+ 
+-	     INCL= ../../../../queuing                   # to find queuing.h
+-          SOBJECT= ../../../../queuing/queuing.o
+-	COMPILER = cc -I$(INCL) -c -o
+-          LINKER = cc -o 
++INCL= ../../../../queuing                   # to find queuing.h
++SOBJECT= ../../../../queuing/queuing.o
++COMPILER = cc -I$(INCL) -c -o
++LINKER = cc -o 
+ 
+ # Do NOT change compiler to gcc!  It will create code that compiles and links
+ # but runs incorrectly.
+diff -urd func/event/pkgs/minigpss/gpsource/Makefile work/simpack/func/event/pkgs/minigpss/gpsource/Makefile
+--- func/event/pkgs/minigpss/gpsource/Makefile	Fri Aug 25 01:00:54 1995
++++ work/simpack/func/event/pkgs/minigpss/gpsource/Makefile	Mon May 19 16:11:42 1997
+@@ -1,5 +1,5 @@
+ QUEUING = ../../../../queuing/queuing.o
+-   INCL = ../../../../queuing
++INCL = ../../../../queuing
+ 
+ gpss:	   	gen main	
+ gen:		lex.yy.c y.tab.c
+diff -urd func/event/pkgs/minigpss/gpsource/main.c work/simpack/func/event/pkgs/minigpss/gpsource/main.c
+--- func/event/pkgs/minigpss/gpsource/main.c	Fri Aug 25 01:00:53 1995
++++ work/simpack/func/event/pkgs/minigpss/gpsource/main.c	Mon May 19 16:00:51 1997
+@@ -2,6 +2,9 @@
+ #include "y.tab.c"
+ #include "error.c"
+ #include "codgen.c"
++
++#define random(x,y) random_int(x,y)
++
+ #define  Pri  1
+ #define  ARRIVE_  1
+ #define  REQUEST_ 2
+diff -urd func/queuing/queuing.c work/simpack/func/queuing/queuing.c
+--- func/queuing/queuing.c	Fri Aug 25 01:00:07 1995
++++ work/simpack/func/queuing/queuing.c	Mon May 19 16:02:15 1997
+@@ -34,6 +34,9 @@
+ #define UNIXX   0
+ #define TURBOC  0
+ 
++#define random(x,y) random_int(x,y)
++#define cfree  free
++
+ #define NIL 0 
+ #define FREE 0 
+ #define BUSY 1 
+@@ -683,7 +686,7 @@
+   if(current_node == NIL) {
+     printf("PREEMPT: Attempt to preempt a non-existent token\n");
+     printf("Token # %d\n",n);
+-    exit();
++    exit(1);
+   } else {
+     temp = current_node->item;
+     if (previous_node == current_node ) {
+@@ -1422,7 +1425,7 @@
+       endwin();
+ #endif
+       printf("\n");
+-      exit();
++      exit(0);
+     }
+   } /* end if */
+ } /* end if (trace_flag == ON) */
diff --git a/math/simpack/files/patch-ab b/math/simpack/files/patch-ab
new file mode 100644
index 000000000000..028c17b394a4
--- /dev/null
+++ b/math/simpack/files/patch-ab
@@ -0,0 +1,506 @@
+diff -udr func/slice/sdsmt/do.tcl /usr/local/lib/SimPack/func/slice/sdsmt/do.tcl
+--- func/slice/sdsmt/do.tcl	Fri Aug 25 01:01:09 1995
++++ /usr/local/lib/SimPack/func/slice/sdsmt/do.tcl	Mon May 19 13:16:58 1997
+@@ -94,16 +94,19 @@
+ #	Purpose: redraw objects on the canvas.
+ #-------------------------------------------------------
+ proc redraw_object {w type x y text} {
+-  global obj
++  global obj sdsmlib
+ 
+   switch -exact -- $type {
+   	1 {set oid [$w create rectangle [expr $x-25] [expr $y-10] [expr $x+25]\
+         	[expr $y+10] -width 1 ]}
+-	2 {set oid [$w create bitmap $x $y -bitmap @./XBM/rate.bmp ]}
++	2 {set oid [$w create bitmap $x $y \
++                  -bitmap @[file join $sdsmlib XBM rate.bmp] ]}
+ 	3 {set oid [$w create oval [expr $x-20] [expr $y-20] [expr $x+20]\
+ 		[expr $y+20] -width 1 ]}
+-	4 {set oid [$w create bitmap $x $y -bitmap @./XBM/const.bmp]}
+-	5 {set oid [$w create bitmap $x $y -bitmap @./XBM/source.bmp]}
++	4 {set oid [$w create bitmap $x $y \
++                  -bitmap @[file join $sdsmlib XBM const.bmp] ]}
++	5 {set oid [$w create bitmap $x $y \
++                  -bitmap @[file join $sdsmlib XBM source.bmp] ]}
+   }
+   set text_id [show_text $w $type $x $y $text]
+   set obj($oid) [list $oid $type $x $y $text $text_id]
+@@ -116,7 +119,7 @@
+ #	Purpose: redraw the links between objects on the canvas.
+ #-------------------------------------------------------
+ proc redraw_link {w type x y sid tid} {
+-  global obj
++  global obj sdsmlib
+ 
+   puts "object #$sid (source) : $obj($sid)"
+   puts "object #$tid (target) : $obj($tid)"
+@@ -142,7 +145,8 @@
+     }
+   } else {
+     set oid [$w create line $sx $sy $x $y $tx $ty -width 1 -arrow last \
+-      -smooth true -capstyle projecting -stipple @./bitmaps/grey.5 ]
++      -smooth true -capstyle projecting \
++      -stipple @[file join $sdsmlib bitmaps grey.5] ]
+   }
+   set obj($oid) [list $oid $type $x $y $sid $tid]
+   puts "link object $oid: $obj($oid) loaded"
+diff -udr func/slice/sdsmt/draw.tcl /usr/local/lib/SimPack/func/slice/sdsmt/draw.tcl
+--- func/slice/sdsmt/draw.tcl	Fri Aug 25 01:01:09 1995
++++ /usr/local/lib/SimPack/func/slice/sdsmt/draw.tcl	Mon May 19 13:16:58 1997
+@@ -26,7 +26,7 @@
+ #       Purpose: draw a level node object 
+ #-------------------------------------------------------
+ proc draw_level {w x y} {
+-  global mode text_data input_data
++  global mode text_data input_data sdsmlib
+ 
+   set oid [$w create rectangle [expr $x-25] [expr $y-10] [expr $x+25] \
+ 	[expr $y+10] -width 1 ]
+@@ -84,7 +84,7 @@
+ 
+   if {$entry_flg == 1} {
+     entry $w.top.e1 -relief sunken -textvariable input_data\
+-         -scroll "$w.top.s1 set"
++         -xscrollcommand "$w.top.s1 set"
+     scrollbar $w.top.s1 -relief sunken -orient horiz -command \
+             "$w.top.e1 view"
+   }
+@@ -117,9 +117,9 @@
+ #       Purpose: draw a rate node object 
+ #-------------------------------------------------------
+ proc draw_rate {w x y} {
+-  global mode text_data input_data
++  global mode text_data input_data sdsmlib
+ 
+-  set oid [$w create bitmap $x $y -bitmap @./XBM/rate.bmp ]
++  set oid [$w create bitmap $x $y -bitmap @[file join $sdsmlib XBM rate.bmp] ]
+   get_text_input $mode
+   set text_data $input_data
+   add_object $w $oid $mode $x $y $text_data
+@@ -144,9 +144,9 @@
+ #       Purpose: draw an constant node object 
+ #-------------------------------------------------------
+ proc draw_const {w x y} {
+-  global mode text_data input_data
++  global mode text_data input_data sdsmlib
+ 
+-  set oid [$w create bitmap $x $y -bitmap @./XBM/const.bmp]
++  set oid [$w create bitmap $x $y -bitmap @[file join $sdsmlib XBM const.bmp] ]
+   get_text_input $mode
+   set text_data $input_data
+   add_object $w $oid $mode $x $y $text_data
+@@ -157,9 +157,9 @@
+ #       Purpose: draw a source/sink node object 
+ #-------------------------------------------------------
+ proc draw_source {w x y} {
+-  global mode text_data input_data
++  global mode text_data input_data sdsmlib
+ 
+-  set oid [$w create bitmap $x $y -bitmap @./XBM/source.bmp]
++  set oid [$w create bitmap $x $y -bitmap @[file join $sdsmlib XBM source.bmp] ]
+ #  get_text_input $mode
+ #  set text_data $input_data
+   set text_data ""
+@@ -229,6 +229,7 @@
+ proc moving {w x y} {
+   global oldx oldy
+   global obj mode selected_id new_link_id link_flg
++  global sdsmlib
+ 
+   if {$selected_id != -1} {
+     # moving an object 
+@@ -263,7 +264,8 @@
+ 	  }
+         } else {
+           set s_id [$w create line $sx $sy $x $y $tx $ty -width 1 -arrow last \
+-	    -smooth true -capstyle projecting -stipple @./bitmaps/grey.5 ]
++	    -smooth true -capstyle projecting \
++            -stipple @[file join $sdsmlib bitmaps grey.5 ] ]
+         }
+ 	set new_link_id $s_id
+         $w addtag selected withtag $s_id
+@@ -284,7 +286,8 @@
+         set s_id [$w create line $oldx $oldy $x $y -width 1 -arrow last]
+       } else {
+         set s_id [$w create line $oldx $oldy $x $y -width 1 -arrow last \
+-	    -capstyle projecting -stipple @./bitmaps/grey.5 ]
++	    -capstyle projecting \
++            -stipple @[file join $sdsmlib bitmaps grey.5] ]
+       }
+       $w addtag selected withtag $s_id
+     }
+@@ -297,6 +300,7 @@
+ #-------------------------------------------------------
+ proc move_end {w x y} {
+   global selected_id obj mode oldx oldy new_link_id link_flg
++  global sdsmlib
+  
+   if {$selected_id != -1} {
+     puts "move end"
+@@ -348,7 +352,8 @@
+ 	  }
+ 	} else {
+           set oid [$w create line $oldx $oldy $x $y -width 1 -arrow last \
+-	    -capstyle projecting -stipple @./bitmaps/grey.5 ]
++	    -capstyle projecting \
++ 	    -stipple @[file join $sdsmlib bitmaps grey.5] ]
+ 	}
+         add_link $w $oid $mode [expr ($oldx+$x)/2] [expr ($oldy+$y)/2] \
+ 		$selected_id $t_id
+@@ -499,7 +504,7 @@
+ #		 links are moved 
+ #-------------------------------------------------------
+ proc move_asso_links {w} {
+-  global selected_id obj
++  global selected_id obj sdsmlib
+ 
+   $w delete label
+   foreach i [array names obj] {
+@@ -535,7 +540,8 @@
+ 	  }
+         } else {
+           set s_id [$w create line $sx $sy $x $y $tx $ty -width 1 -arrow last \
+-            -smooth true -capstyle projecting -stipple @./bitmaps/grey.5 ]
++            -smooth true -capstyle projecting \
++            -stipple @[file join $sdsmlib bitmaps grey.5] ]
+         }
+         $w addtag object withtag $s_id
+ 	change_link_id $i $s_id
+@@ -602,7 +608,7 @@
+ #		 the user's input
+ #-------------------------------------------------------
+ proc show_grid_selection {{w .grid}} {
+-  global grid_mode
++  global grid_mode sdsmlib
+ 
+     catch {destroy $w}
+     toplevel $w -class Dialog
+@@ -617,13 +623,17 @@
+             -font -Adobe-times-medium-r-normal--*-180*  
+     pack $w.top.msg
+ 
+-    button $w.bot.s0 -bitmap @./XBM/grid0.bmp -command {destroy .grid
++    button $w.bot.s0 -bitmap @[file join $sdsmlib XBM grid0.bmp] \
++                     -command {destroy .grid
+ 				set grid_mode 0}
+-    button $w.bot.s1 -bitmap @./XBM/grid1.bmp -command {destroy .grid
++    button $w.bot.s1 -bitmap @[file join $sdsmlib XBM grid1.bmp] \
++                     -command {destroy .grid
+ 				set grid_mode 1} 
+-    button $w.bot.s2 -bitmap @./XBM/grid2.bmp -command {destroy .grid
++    button $w.bot.s2 -bitmap @[file join $sdsmlib XBM grid2.bmp] \
++                     -command {destroy .grid
+ 				set grid_mode 2} 
+-    button $w.bot.sc -bitmap @./XBM/cancel.bmp -command {destroy .grid
++    button $w.bot.sc -bitmap @[file join $sdsmlib XBM cancel.bmp] \
++                     -command {destroy .grid
+ 				return -1} 
+     pack $w.bot.s0 $w.bot.s1 $w.bot.s2 $w.bot.sc -side left
+ 
+@@ -634,18 +644,21 @@
+ #       Purpose: change grid mode
+ #-------------------------------------------------------
+ proc change_grid_mode {} {
+-  global grid_mode
++  global grid_mode sdsmlib
+ 
+   catch {destroy .plate.left.b14}
+   puts "grid_mode = $grid_mode"
+   switch -exact -- $grid_mode {
+-        0 {button .plate.left.b14 -bitmap @./XBM/grid0.xbm -padx 16 \
++        0 {button .plate.left.b14 \
++                -bitmap @[file join $sdsmlib XBM grid0.xbm] -padx 16 \
+ 		-command "grid_select"
+ 	  }
+-        1 {button .plate.left.b14 -bitmap @./XBM/grid1.xbm -padx 16 \
++        1 {button .plate.left.b14 \
++                -bitmap @[file join $sdsmlib XBM grid1.xbm] -padx 16 \
+ 		-command "grid_select"
+ 	  }
+-        2 {button .plate.left.b14 -bitmap @./XBM/grid2.xbm -padx 16 \
++        2 {button .plate.left.b14 \
++                -bitmap @[file join $sdsmlib XBM grid2.xbm] -padx 16 \
+ 		-command "grid_select"
+ 	  }
+   }
+@@ -691,6 +704,7 @@
+ #       Purpose: show grid on the canvas
+ #-------------------------------------------------------
+ proc show_grid {mode {w .plate.right.board}} {
++  global sdsmlib
+   set max_x 1417
+   set max_y 1417
+   set dp 10
+@@ -704,12 +718,12 @@
+     }
+     for {set x 0} {$x <= $max_x} {set x [expr $x+$step]} {
+        set oid [$w create line $x 0 $x $max_y -width 1 \
+-            -stipple @./bitmaps/grey.05 ]
++            -stipple @[file join $sdsmlib bitmaps grey.05] ]
+        $w addtag grid_tag withtag $oid
+     }
+     for {set y 0} {$y <= $max_y} {set y [expr $y+$step]} {
+        set oid [$w create line 0 $y $max_x $y -width 1 \
+-            -stipple @./bitmaps/grey.05 ]
++            -stipple @[file join $sdsmlib bitmaps grey.05] ]
+        $w addtag grid_tag withtag $oid
+     }
+   }
+diff -udr func/slice/sdsmt/equ.tcl /usr/local/lib/SimPack/func/slice/sdsmt/equ.tcl
+--- func/slice/sdsmt/equ.tcl	Fri Aug 25 01:01:10 1995
++++ /usr/local/lib/SimPack/func/slice/sdsmt/equ.tcl	Mon May 19 13:16:58 1997
+@@ -257,13 +257,13 @@
+   }
+  
+ 
+-  if {[tk colormodel $w] == "color"} {
++#  if {[tk colormodel $w] == "color"} {
+       set bold "-foreground red"
+       set normal "-foreground {}"
+-  } else {
+-      set bold "-foreground white -background black"
+-      set normal "-foreground {} -background {}"
+-  }
++#  } else {
++#      set bold "-foreground white -background black"
++#      set normal "-foreground {} -background {}"
++#  }
+ 
+   if {$complete != 1} {
+     $w.t1.b insert 0.0 { Based on the flow graph, the following\
+@@ -891,3 +891,4 @@
+   }
+   return 1
+ }
++
+diff -udr func/slice/sdsmt/file.tcl /usr/local/lib/SimPack/func/slice/sdsmt/file.tcl
+--- func/slice/sdsmt/file.tcl	Fri Aug 25 01:01:10 1995
++++ /usr/local/lib/SimPack/func/slice/sdsmt/file.tcl	Mon May 19 13:16:58 1997
+@@ -464,10 +464,10 @@
+ proc FSBoxBindSelectOne { fsBoxW fsBoxY} {
+ 
+   set fsBoxNearest [$fsBoxW nearest $fsBoxY]
+-  if {$fsBoxNearest >= 0} {
+-    $fsBoxW select from $fsBoxNearest
+-    $fsBoxW select to $fsBoxNearest
+-  }
++#  if {$fsBoxNearest >= 0} {
++#    $fsBoxW select from $fsBoxNearest
++#    $fsBoxW select to $fsBoxNearest
++#  }
+ }
+ 
+ 
+diff -udr func/slice/sdsmt/help.tcl /usr/local/lib/SimPack/func/slice/sdsmt/help.tcl
+--- func/slice/sdsmt/help.tcl	Fri Aug 25 01:01:02 1995
++++ /usr/local/lib/SimPack/func/slice/sdsmt/help.tcl	Mon May 19 13:16:58 1997
+@@ -15,7 +15,7 @@
+     $w.t tag configure bold -font -Adobe-Courier-Bold-O-Normal-*-120-*
+     $w.t tag configure big -font -Adobe-Courier-Bold-R-Normal-*-140-*
+     $w.t tag configure verybig -font -Adobe-Helvetica-Bold-R-Normal-*-240-*
+-    if {[tk colormodel $w] == "color"} {
++#    if {[tk colormodel $w] == "color"} {
+         $w.t tag configure color1 -background #eed5b7
+         $w.t tag configure color2 -foreground red
+         $w.t tag configure color3 -foreground blue
+@@ -23,14 +23,14 @@
+                 -borderwidth 1
+         $w.t tag configure sunken -background #eed5b7 -relief sunken \
+                 -borderwidth 1
+-    } else {
+-        $w.t tag configure color1 -background black -foreground white
+-        $w.t tag configure color2 -background black -foreground white
+-        $w.t tag configure raised -background white -relief raised \
+-                -borderwidth 1
+-        $w.t tag configure sunken -background white -relief sunken \
+-                -borderwidth 1
+-    }
++#    } else {
++#        $w.t tag configure color1 -background black -foreground white
++#        $w.t tag configure color2 -background black -foreground white
++#        $w.t tag configure raised -background white -relief raised \
++#                -borderwidth 1
++#        $w.t tag configure sunken -background white -relief sunken \
++#                -borderwidth 1
++#    }
+     $w.t tag configure bgstipple -background black -borderwidth 0 \
+             -bgstipple gray25
+     $w.t tag configure fgstipple -fgstipple gray50
+@@ -140,7 +140,7 @@
+     $w1.t tag configure bold -font -Adobe-Courier-Bold-O-Normal-*-120-*
+     $w1.t tag configure big -font -Adobe-Courier-Bold-R-Normal-*-140-*
+     $w1.t tag configure verybig -font -Adobe-Helvetica-Bold-R-Normal-*-240-*
+-    if {[tk colormodel $w1] == "color"} {
++#    if {[tk colormodel $w1] == "color"} {
+         $w1.t tag configure color1 -background #eed5b7
+         $w1.t tag configure color2 -foreground red
+         $w1.t tag configure color3 -foreground blue
+@@ -148,14 +148,14 @@
+                 -borderwidth 1
+         $w1.t tag configure sunken -background #eed5b7 -relief sunken \
+                 -borderwidth 1
+-    } else {
+-        $w1.t tag configure color1 -background black -foreground white
+-        $w1.t tag configure color2 -background black -foreground white
+-        $w1.t tag configure raised -background white -relief raised \
+-                -borderwidth 1
+-        $w1.t tag configure sunken -background white -relief sunken \
+-                -borderwidth 1
+-    }
++#    } else {
++#        $w1.t tag configure color1 -background black -foreground white
++#        $w1.t tag configure color2 -background black -foreground white
++#        $w1.t tag configure raised -background white -relief raised \
++#                -borderwidth 1
++#        $w1.t tag configure sunken -background white -relief sunken \
++#                -borderwidth 1
++#    }
+     $w1.t tag configure bgstipple -background black -borderwidth 0 \
+             -bgstipple gray25
+     $w1.t tag configure fgstipple -fgstipple gray50
+@@ -326,21 +326,21 @@
+     $w.t tag configure bold -font -Adobe-Courier-Bold-O-Normal-*-120-*
+     $w.t tag configure big -font -Adobe-Courier-Bold-R-Normal-*-140-*
+     $w.t tag configure verybig -font -Adobe-Helvetica-Bold-R-Normal-*-240-*
+-    if {[tk colormodel $w] == "color"} {
++#    if {[tk colormodel $w] == "color"} {
+         $w.t tag configure color1 -background #eed5b7
+         $w.t tag configure color2 -foreground red
+         $w.t tag configure raised -background #eed5b7 -relief raised \
+                 -borderwidth 1
+         $w.t tag configure sunken -background #eed5b7 -relief sunken \
+                 -borderwidth 1
+-    } else {
+-        $w.t tag configure color1 -background black -foreground white
+-        $w.t tag configure color2 -background black -foreground white
+-        $w.t tag configure raised -background white -relief raised \
+-                -borderwidth 1
+-        $w.t tag configure sunken -background white -relief sunken \
+-                -borderwidth 1
+-    }
++#    } else {
++#        $w.t tag configure color1 -background black -foreground white
++#        $w.t tag configure color2 -background black -foreground white
++#        $w.t tag configure raised -background white -relief raised \
++#                -borderwidth 1
++#        $w.t tag configure sunken -background white -relief sunken \
++#                -borderwidth 1
++#    }
+     $w.t tag configure bgstipple -background black -borderwidth 0 \
+             -bgstipple gray25
+     $w.t tag configure fgstipple -fgstipple gray50
+@@ -414,7 +414,7 @@
+     $w1.t tag configure bold -font -Adobe-Courier-Bold-O-Normal-*-120-*
+     $w1.t tag configure big -font -Adobe-Courier-Bold-R-Normal-*-140-*
+     $w1.t tag configure verybig -font -Adobe-Helvetica-Bold-R-Normal-*-240-*
+-    if {[tk colormodel $w1] == "color"} {
++#    if {[tk colormodel $w1] == "color"} {
+         $w1.t tag configure color1 -background #eed5b7
+         $w1.t tag configure color2 -foreground red
+         $w1.t tag configure color3 -foreground blue
+@@ -422,14 +422,14 @@
+                 -borderwidth 1
+         $w1.t tag configure sunken -background #eed5b7 -relief sunken \
+                 -borderwidth 1
+-    } else {
+-        $w1.t tag configure color1 -background black -foreground white
+-        $w1.t tag configure color2 -background black -foreground white
+-        $w1.t tag configure raised -background white -relief raised \
+-                -borderwidth 1
+-        $w1.t tag configure sunken -background white -relief sunken \
+-                -borderwidth 1
+-    }
++#    } else {
++#        $w1.t tag configure color1 -background black -foreground white
++#        $w1.t tag configure color2 -background black -foreground white
++#        $w1.t tag configure raised -background white -relief raised \
++#                -borderwidth 1
++#        $w1.t tag configure sunken -background white -relief sunken \
++#                -borderwidth 1
++#    }
+     $w1.t tag configure bgstipple -background black -borderwidth 0 \
+             -bgstipple gray25
+     $w1.t tag configure fgstipple -fgstipple gray50
+@@ -508,6 +508,9 @@
+   bind $w1 <Any-Enter> "focus $w1.t"
+ 
+ 
++}
++
++proc help_about {} {
+ }
+ 
+ proc insertWithTags {w text args} {
+diff -udr func/slice/sdsmt/sdsmt /usr/local/lib/SimPack/func/slice/sdsmt/sdsmt
+--- func/slice/sdsmt/sdsmt	Fri Aug 25 01:01:04 1995
++++ /usr/local/lib/SimPack/func/slice/sdsmt/sdsmt	Mon May 19 13:16:58 1997
+@@ -12,7 +12,9 @@
+ #
+ #=========================================================================
+ 
+-set auto_path "./ $auto_path"
++global sdsmlib
++set sdsmlib $env(SDSMTLIB)
++set auto_path "$sdsmlib $auto_path"
+ wm title . "System Dynamics Simulation Modeling Tools"
+ wm geometry . +50+50
+ 
+@@ -98,30 +100,34 @@
+ frame .plate.right
+ pack .plate.left .plate.right -side left 
+ 
+-radiobutton .plate.left.b1 -bitmap @./XBM/level.xbm \
++radiobutton .plate.left.b1 -bitmap @[file join $sdsmlib XBM level.xbm] \
+             -variable letters -command "set_level $c"
+-radiobutton .plate.left.b2 -bitmap @./XBM/rate.xbm \
++radiobutton .plate.left.b2 -bitmap @[file join $sdsmlib XBM rate.xbm] \
+             -variable letters -command "set_rate $c"
+-radiobutton .plate.left.b3 -bitmap @./XBM/aux.xbm \
++radiobutton .plate.left.b3 -bitmap @[file join $sdsmlib XBM aux.xbm] \
+             -variable letters -command "set_aux $c"
+-radiobutton .plate.left.b4 -bitmap @./XBM/const.xbm \
++radiobutton .plate.left.b4 -bitmap @[file join $sdsmlib XBM const.xbm] \
+             -variable letters -command "set_const $c"
+-radiobutton .plate.left.b5 -bitmap @./XBM/source.xbm \
++radiobutton .plate.left.b5 -bitmap @[file join $sdsmlib XBM source.xbm] \
+             -variable letters -command "set_source $c"
+-radiobutton .plate.left.b6 -bitmap @./XBM/flow.xbm \
++radiobutton .plate.left.b6 -bitmap @[file join $sdsmlib XBM flow.xbm] \
+             -variable letters -command "set_flow $c"
+-radiobutton .plate.left.b7 -bitmap @./XBM/celink.xbm \
++radiobutton .plate.left.b7 -bitmap @[file join $sdsmlib XBM celink.xbm] \
+             -variable letters -command "set_celink $c"
+-radiobutton .plate.left.b8 -bitmap @./XBM/move.xbm \
++radiobutton .plate.left.b8 -bitmap @[file join $sdsmlib XBM move.xbm] \
+             -variable letters -command "set_move $c"
+-radiobutton .plate.left.b9 -bitmap @./XBM/delete.xbm \
++radiobutton .plate.left.b9 -bitmap @[file join $sdsmlib XBM delete.xbm] \
+             -variable letters -command "set_delete $c"
+-radiobutton .plate.left.b10 -bitmap @./XBM/edit.xbm \
++radiobutton .plate.left.b10 -bitmap @[file join $sdsmlib XBM edit.xbm] \
+             -variable letters -command "set_edit $c"
+-button .plate.left.b11 -bitmap @./XBM/undo.xbm -padx 16 -command "puts 11"
+-button .plate.left.b12 -bitmap @./XBM/equ.xbm -padx 16 -command "equ_generation"
+-button .plate.left.b13 -bitmap @./XBM/exec.xbm -padx 16 -command "equ_execution"
+-button .plate.left.b14 -bitmap @./XBM/grid0.xbm -padx 16 -command "grid_select"
++button .plate.left.b11 -bitmap @[file join $sdsmlib XBM/undo.xbm] \
++            -padx 16 -command "puts 11"
++button .plate.left.b12 -bitmap @[file join $sdsmlib XBM equ.xbm] \
++            -padx 16 -command "equ_generation"
++button .plate.left.b13 -bitmap @[file join $sdsmlib XBM exec.xbm] \
++            -padx 16 -command "equ_execution"
++button .plate.left.b14 -bitmap @[file join $sdsmlib XBM grid0.xbm] \
++            -padx 16 -command "grid_select"
+ 
+ pack .plate.left.b1 .plate.left.b2 .plate.left.b3 .plate.left.b4 \
+ 	.plate.left.b5 .plate.left.b6 .plate.left.b7 .plate.left.b8 \
+@@ -130,7 +136,8 @@
+ 
+ canvas .plate.right.board -scrollregion {0c 0c 40c 40c} \
+ 	 -relief raised -width 800 -height 500 \
+-        -xscroll ".plate.right.hscroll set" -yscroll ".plate.right.vscroll set"
++	-xscrollcommand ".plate.right.hscroll set" \
++	-yscrollcommand ".plate.right.vscroll set"
+ scrollbar .plate.right.vscroll  -relief sunken \
+ 	-command ".plate.right.board yview"
+ scrollbar .plate.right.hscroll -orient horiz -relief sunken \
diff --git a/math/simpack/files/patch-ac b/math/simpack/files/patch-ac
new file mode 100644
index 000000000000..44c39508b1ab
--- /dev/null
+++ b/math/simpack/files/patch-ac
@@ -0,0 +1,142 @@
+diff -udr simpack/Ask ../simpack.ac/Ask
+--- Ask	Fri Aug 25 00:59:55 1995
++++ ../simpack.ac/Ask	Sun Jun  8 02:07:36 1997
+@@ -1,29 +1,11 @@
+-
+-while ( [ "$1" != "" ] ) do
+-
+-  echo ' '
+-  echo "About to show you the $1"
+-  echo 'Your options are:'
+-  echo ' '
+-  echo "  A = I have seen $1 and accept its terms and conditions"
+-  echo "  R = I reject $1"
+-  echo "  S = Show me $1 and ask me again after i have read it"
+-  read ansa
+-
+-  if ( [ "$ansa" = "a" -o "$ansa" = "A" ] ) then
+-    echo 'We can proceed with installation of SimPack3'
+-    exit 0
+-    fi
+-
+-  if ( [ "$ansa" = "r" -o "$ansa" = "R" ] ) then
+-    echo 'You cannot use SimPack3'
+-    echo 'Have a nice day'
+-    exit 1
+-    fi
+-  
+-  if ( [ "$ansa" = "s" -o "$ansa" = "S" ] ) then
+-    echo "Here is $1:"
+-    more $1
+-    fi
+-
+-  done # end while
++#!/bin/sh
++if [ "$BATCH" != "" ]
++then
++  exit 0
++fi
++if [ "$PACKAGE_BUILDING" != "" ]
++then
++  exit 0
++fi
++cat $1
++exit 0
+diff -udr func/event/Ask ../simpack.ac/func/event/Ask
+--- func/event/Ask	Fri Aug 25 01:00:59 1995
++++ ../simpack.ac/func/event/Ask	Sun Jun  8 01:40:54 1997
+@@ -1,29 +1,11 @@
+-
+-while ( [ "$1" != "" ] ) do
+-
+-  echo "About to show you the $1"
+-  echo 'Your options are:'
+-  echo ' '
+-  echo "  A = I have seen $1 and accept its terms and conditions"
+-  echo "  R = I reject $1"
+-  echo "  S = Show me $1 and ask me again after i have read it"
+-  read ansa
+-
+-  if ( [ "$ansa" = "a" -o "$ansa" = "A" ] ) then
+-    echo 'We can proceed with installation of SimPack3'
+-    exit 0
+-    fi
+-
+-  if ( [ "$ansa" = "r" -o "$ansa" = "R" ] ) then
+-    echo 'You cannot use SimPack3'
+-    echo 'You cannot use SimPack3' > REJECT
+-    echo 'Have a nice day'
+-    exit 1
+-    fi
+-  
+-  if ( [ "$ansa" = "s" -o "$ansa" = "S" ] ) then
+-    echo "Here is $1:"
+-    more $1
+-    fi
+-
+-  done # end while
++#!/bin/sh
++if [ "$BATCH" = "" ]
++then
++  exit 0
++fi
++if [ "$PACKAGE_BUILDING" = "" ]
++then
++  exit 0
++fi
++cat $1
++exit 0
+diff -udr func/event/Make_all ../simpack.ac/func/event/Make_all
+--- func/event/Make_all	Sun Jun  8 01:30:37 1997
++++ ../simpack.ac/func/event/Make_all	Sun Jun  8 01:40:27 1997
+@@ -15,8 +15,9 @@
+   exit 1
+   fi
+ 
+-echo -n 'Create Sim++ Object Library [y/n]?'
+-read ansa
++#echo -n 'Create Sim++ Object Library [y/n]?'
++#read ansa
++ansa=y
+ echo ' '
+ if ( [ "$ansa" = "y" ] ) then
+   echo 'Creating Sim++ Object Library ...'
+@@ -24,8 +25,9 @@
+   echo 'Done.'
+   fi
+ 
+-echo -n 'Create Sim++ Example Code Executables [y/n] ?'
+-read ansa
++#echo -n 'Create Sim++ Example Code Executables [y/n] ?'
++#read ansa
++ansa=y
+ echo ' '
+ if ( [ "$ansa" = "y" ] ) then
+   echo 'Creating Sim++ Example Code Executables ...'
+@@ -33,8 +35,9 @@
+   echo 'Done.'
+   fi
+ 
+-echo -n 'Create SimPack Event Model Packages [y/n]?'
+-read ansa
++#echo -n 'Create SimPack Event Model Packages [y/n]?'
++#read ansa
++ansa=y
+ echo ' '
+ if ( [ "$ansa" = "y" ] ) then
+   echo 'Creating SimPack Functional Model Packages ...'
+diff -udr func/slice/Make_all ../simpack.ac/func/slice/Make_all
+--- func/slice/Make_all	Fri Aug 25 01:01:23 1995
++++ ../simpack.ac/func/slice/Make_all	Sun Jun  8 01:47:35 1997
+@@ -5,8 +5,9 @@
+ echo 'which is simpack.'
+ echo ' '
+ 
+-echo -n 'Create SimPack Time-Slice Functional Model Packages [y/n]?'
+-read ansa
++#echo -n 'Create SimPack Time-Slice Functional Model Packages [y/n]?'
++#read ansa
++ansa=y
+ echo ' '
+ if ( [ "$ansa" = "y" ] ) then
+   echo 'Creating SimPack Time-Slice Functional Model Packages ...'