conservatory
/
stk
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Commit of 4.0.1 version

This commit is contained in:
Erick Gallesio 1999-09-27 13:20:21 +02:00
parent a6b9113d17
commit 9eaf788564
71 changed files with 10330 additions and 9779 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
CHANGES
View File

@ -1,6 +1,17 @@
09/27/99 Release 4.0.1
----------------------
Mains changes/modifications since 4.0.0 are:
* Small bug fixes
* Integration of SRFI-9 (records)
* Accepts mailto: links in the browser
09/03/99 Release 4.0.0
----------------------
Mains changes/modifications since 4.0 are:
Mains changes/modifications since 3.99.4 are:
* Lot of Win32 fixes

67
ChangeLog
View File

@ -1,3 +1,70 @@
1999-09-27 Erick Gallesio <eg@unice.fr>
* Release 4.0.1
* Doc/Reference/*.tex : Numerous documentation correction provided
by Ben L. Di Vito <bld@air57.larc.nasa.gov>
* Lib/srfi-9.stk: New file which implements (guess what?) SRFI-9
aka records.
* STklos/stklos.stk : Bug correction in find-class
1999-09-16 Erick Gallesio <eg@unice.fr>
* Doc/Reference/Reference2.tex : Added documentation on the
primitive export-al-symbols which was missing.
* Lib/www-mailto:
* Lib/www.stk: New hook "www:hook-mailto" to handle "mailto:"
requests. Furthermore, unknown protocol are properly handled now.
* Lib/www-browser.stklos: Added a mail composer !!! It is used
by the HTML browser when a "mailto:" is encountered.
1999-09-15 Erick Gallesio <eg@unice.fr>
* STklos/Tk/Composite/Hierarchy.stklos (maybe-update-hierarchy):
new function which retain that a update of the hierarchy is
requested. If there is already a request pending nothing is
done. This solves the problem (and enhance redisplay btw)
signalled by Harvey Stein <hjstein@bfr.co.il>
* Lib/www-url.stk : Applied a patch provided by Harvey Stein to
correctly parse URL which use proxies.
* Src/unix.c (STk_setenv): Use of STk_must_malloc instead of
malloc.
1999-09-14 Erick Gallesio <eg@unice.fr>
* Lib/init.stk (dotimes): Corrected incorrect behavior for
negative bounds. Bug signalled by "Ben L. Di Vito"
<bld@air57.larc.nasa.gov>. BTW, if no result is given by the user
in the dotimes, the result is now undetermined.
* Extensions/process.c (run_process): Added the option :fork to
run-process. This allows to simulate the "exec" command of Unix
shells. Not implemented on Win32
* Src/: Minor problems for Alpha compilation (thanks to Jeremie
Petit <Jeremie.Petit@Digital.com>)
1999-09-13 Erick Gallesio <eg@unice.fr>
* Demos/README.html: Modified the applet for allowing the
execution of the examples when STk is installed (bug signalled
by Harvey Stein <hjstein@bfr.co.il>
1999-09-12 Erick Gallesio <eg@unice.fr>
* Demos/server.stk : Bug correction: two xterm were launched and a
GC caused the death of all the demo.
* Doc/Makefile: Added the installation of manual in
$(prefix)/stk-$(version). Manual is also added in RPMS as
requested by Harvey Stein <hjstein@bfr.co.il>
1999-09-05 Erick Gallesio <eg@unice.fr>
* Release 4.0.0

2
Contrib/STk-wtour/lib/wtour.stk Normal file → Executable file
View File

@ -1,5 +1,5 @@
#!/bin/sh
:;exec /usr/local/bin/stk -f
:;exec /usr/local/bin/stk -f "$0" "$@"
;;
;; STk/Scheme widget tour, Version 0.2
;;

9
Demos/Makefile
View File

@ -12,7 +12,7 @@
# This software is provided ``AS IS'' without express or implied
# warranty.
#
# Last file update: 3-Sep-1999 19:20 (eg)
# Last file update: 13-Sep-1999 18:11 (eg)
#
include ../config.make
@ -41,6 +41,13 @@ install:
cp Html-Demos/Images/*.gif $(DEMODIR)/Html-Demos/Images
chmod 0644 $(DEMODIR)/Html-Demos/Images/*
(cd $(DEMODIR)/Html-Demos; ln -s ../amib.stklos ../stklos-widgets .)
-if [ ! -d $(DEMODIR)lib ] ; then mkdir -p $(DEMODIR)/lib; fi
$(CP) ../Contrib/STk-wtour/lib/*.xbm $(DEMODIR)/lib
chmod 0644 $(DEMODIR)/lib/*
-if [ ! -d $(DEMODIR)/lessons ] ; then mkdir -p $(DEMODIR)/lessons; fi
$(CP) ../Contrib/STk-wtour/lessons/*.stk $(DEMODIR)/lessons
$(CP) ../Contrib/STk-wtour/lessons/index $(DEMODIR)/lessons
chmod 0644 $(DEMODIR)/lessons/*
install.libs:

87
Demos/README.html
View File

@ -1,7 +1,7 @@
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title>Demo directory README (Version 4.0 - August 1999)</title>
<title>Demo directory README (Version 4.0)</title>
</head>
<body bgcolor="#FFFFFF">
@ -15,10 +15,14 @@
>
<script language="STk">
(lambda (parent url)
(eval '(define (Run x)
(system (string-append "../Src/test-stk " x "&amp;")))
(global-environment))))
(eval '(begin
(define *interp*
(if (file-exists? "../Src/test-stk") "../Src/test-stk" "stk"))
(define (run x) (system (string-append *interp* " " x " &amp;"))))
(global-environment)))
</script>
@ -62,10 +66,18 @@
</ul>
<h4>Running demonstration programs in the STk web browser</h4>
<ul>
<ul>
<b>Note: </b> In this document the notation
<font color=red>RUN</font> means that you must type either
<i>../Src/test-stk</i> if you have not completed the
installation of <B>STk</b>, either type <i>stk</i>
(provided that the install location is in your path)
</ul>
<p>
<b>STk</b> provides a simple Web browser which can be used to launch
the demo of this directory. If you are not running it now, you can
type the following command:
<pre> ../Src/test-stk -f S-scape README.html</pre>
<pre> <font color=red>RUN</font> -f S-scape README.html</pre>
at the shell prompt.
</ul>
@ -80,14 +92,14 @@
that you can click on.
<BR>
<u>Run with </u>:
<a expr=(run "hello.stk")> ../Src/test-stk -f hello.stk </a>
<a expr=(run "hello.stk")> <font color=red>RUN</font> -f hello.stk </a>
<p><li>
<B><A name=browse>browse.stk</a></B>
<BR>
A simple Unix file browser. The code of this demo is less than a page.
<BR>
<u>Run with</u>:
<A expr=(run "browse.stk")>.../Src/test-stk -f browse.stk </A>
<A expr=(run "browse.stk")>.<font color=red>RUN</font> -f browse.stk </A>
</UL>
<h4>1.2 Basics of STk programming</h4>
@ -102,7 +114,7 @@
<BR>
<u>Run with</u>:
<A expr=(run "wtour.stk ../Contrib/STk-wtour")>
../Src/test-stk -f ./wtour.stk ../Contrib/STk-wtour
<font color=red>RUN</font> -f ./wtour.stk ../Contrib/STk-wtour
</A>
<BR><u>Comment</u>: This code is a contribution of <B>Suresh Srinivas</B>
<tt>&lt;ssriniva@cs.indiana.edu&gt;</tt>
@ -119,7 +131,7 @@
the socket is closed
<br>
<u>Run with</u>:
<A expr=(run "-no -f server.stk")> ../Src/test-stk -no -f server.stk </A>
<A expr=(run "-no -f server.stk")> <font color=red>RUN</font> -no -f server.stk </A>
<p><li>
<b>mc-server.stk</b>
<br>
@ -129,8 +141,8 @@
when you want to exit the demo.
<br>
<u>Run with</u>:
<A expr=(system "xterm -e ../Src/test-stk -load mc-server.stk &")>
../Src/test-stk -load mc-server.stk </A>
<A expr=(system (string-append "xterm -e " *interp* " -load mc-server.stk &"))>
<font color=red>RUN</font> -load mc-server.stk </A>
</ul>
@ -142,14 +154,14 @@
A Logo turtle package + some demo functions.
<br>
<u>Run with</u>:
<A expr=(run "turtle.stk")> ../Src/test-stk -f turtle.stk </A>
<A expr=(run "turtle.stk")> <font color=red>RUN</font> -f turtle.stk </A>
<p><li>
<b>hanoi.stk</b>
<br>
Hanoi towers animation.
<br>
<u>Run with</u>:
<A expr=(run "hanoi.stk")> ../Src/test-stk -f hanoi.stk </A>
<A expr=(run "hanoi.stk")> <font color=red>RUN</font> -f hanoi.stk </A>
<p><li>
<b>queens.stk</b>
<br>
@ -158,7 +170,7 @@
puzzle starting with a given board configuration.
<br>
<u>Run with</u>:
<A expr=(run "queens.stk")> ../Src/test-stk -f queens.stk </A>
<A expr=(run "queens.stk")> <font color=red>RUN</font> -f queens.stk </A>
<br>
<u>Comment</u>: This code is a contribution of <b>Grant
Edwards</b> <tt>&lt;grante@rosemount.com)&gt;</tt>
@ -171,7 +183,7 @@
faster. Have fun.
<br>
<u>Run with</u>:
<A expr=(run "stetris.stk")> ../Src/test-stk -f stetris.stk </A>
<A expr=(run "stetris.stk")> <font color=red>RUN</font> -f stetris.stk </A>
<br>
<u>Comment</u>:
This code is a contribution of <B>Harvey J. Stein</B>
@ -184,7 +196,7 @@
board of four planes with four rows and four columns each.
<br>
<u>Run with</u>:
<A expr=(run "ttt.stk")> ../Src/test-stk -f ttt.stk </A>
<A expr=(run "ttt.stk")> <font color=red>RUN</font> -f ttt.stk </A>
<br>
<u>Comment</u>:
This code is a contribution of <b>Edin "Dino" Hodzic</b>
@ -200,7 +212,7 @@
This is a simple demo showing a repl loop in a console.
<br>
<u>Run with</u>:
<A expr=(run "console-demo.stk")> ../Src/test-stk -f console.stk </A>
<A expr=(run "console-demo.stk")> <font color=red>RUN</font> -f console.stk </A>
<br>
<u>Comment</u>: This demo is useful for Unix users only, since under
Win32 <B>STk</B> is started with such a console.
@ -211,7 +223,7 @@
This is a simple color palette written in STk.
<br>
<u>Run with</u>:
<A expr=(run "colormap.stk")> ../Src/test-stk -f colormap.stk </A>
<A expr=(run "colormap.stk")> <font color=red>RUN</font> -f colormap.stk </A>
<br>
<u>Comment</u>: Note that this program is no more really useful since
<B>STk</B> offers now the function <tt>Tk:choose-color</tt>
@ -223,7 +235,7 @@
This is a simple program which uses the STk font chooser.
<br>
<u>Run with</u>:
<A expr=(run "stkfontsel.stk")> ../Src/test-stk -f stkfontsel.stk </A>
<A expr=(run "stkfontsel.stk")> <font color=red>RUN</font> -f stkfontsel.stk </A>
<p><li>
<b>small-ed.stk</b>
@ -231,7 +243,7 @@
A small editor to create enhanced text
<br>
<u>Run with</u>:
<A expr=(run "small-ed.stk")> ../Src/test-stk -f small-ed.stk </A>
<A expr=(run "small-ed.stk")> <font color=red>RUN</font> -f small-ed.stk </A>
<br>
<u>Comment</u>:
This editor use a <I>ad-hoc</I> format for saving file and was
@ -246,9 +258,10 @@
variables (named a,b and c) Changing the value of one of
these vars (with a <tt><b>set!</b></tt> for instance) will
redisplay its new value immediately.
<br>
<u>Run with</u>:
<A expr=(run "-load showvars.stk")>
../Src/test-stk -load showvars.stk </A>
<A expr=(system (string-append "xterm -e " *interp* " -l showvars.stk &"))>
<font color=red>RUN</font> -load showvars.stk </A>
<br>
<p><li>
@ -257,7 +270,7 @@
A simple demo of the inspector on Tk widgets
<br>
<u>Run with</u>:
<A expr=(run "inspector.stk")> ../Src/test-stk -f inspector.stk </A>
<A expr=(run "inspector.stk")> <font color=red>RUN</font> -f inspector.stk </A>
<br>
<u>Comment</u>:
<STRONG> Does not work with this version of <I>STk</I>
@ -270,7 +283,7 @@
A simple terminal emulator (a kind of xterm, but in a text widget).
<br>
<u>Run with</u>:
<A expr=(run "term.stk")> ../Src/test-stk -f term.stk </A>
<A expr=(run "term.stk")> <font color=red>RUN</font> -f term.stk </A>
<br>
<u>Comment</u>: Users of <b>Glibc2 (aka libc6, or RedHat 5.0
users)</b>: This program has problems with new release of the
@ -314,7 +327,7 @@
demonstration in <b>STklos</b>
<br>
<u>Run with</u>:
<A expr=(run "hello.stklos")> ../Src/test-stk -f hello.stklos </A>
<A expr=(run "hello.stklos")> <font color=red>RUN</font> -f hello.stklos </A>
<p><li>
<b>browse.stklos</b>
@ -323,7 +336,7 @@
demonstration in <b>STklos</b>
<br>
<u>Run with</u>:
<A expr=(run "browse.stklos")> ../Src/test-stk -f browse.stklos </A>
<A expr=(run "browse.stklos")> <font color=red>RUN</font> -f browse.stklos </A>
@ -332,7 +345,7 @@
A simple demo written in STklos.
<br>
<u>Run with</u>:
<A expr=(run "stklos-demo.stklos")>../Src/test-stk -f stklos-demo.stklos</a>
<A expr=(run "stklos-demo.stklos")><font color=red>RUN</font> -f stklos-demo.stklos</a>
<br>
<u>Comment</u>: What is interesting in this demo is not what
it does, nothing specially fancy, but how it is easy to
@ -344,7 +357,7 @@
<br>
<u>Run with</u>:
<A expr=(run "stklos-demo2.stklos")>
../Src/test-stk -f stklos-demo2.stklos</a>
<font color=red>RUN</font> -f stklos-demo2.stklos</a>
<br>
<u>Comment</u>: Here again, what is interesting in this demo is not what
it does, nothing specially fancy, but how it is easy to
@ -355,7 +368,7 @@
<br>
<u>Run with</u>:
<A expr=(run "classbrowse.stklos")>
../Src/test-stk -f classbrowse.stklos</a>
<font color=red>RUN</font> -f classbrowse.stklos</a>
<br>
</ul>
@ -374,7 +387,7 @@
modified version by clicking the button <tt>"Rerun demo"</tt>
<br>
<u>Run with</u>:
<A expr=(run "widget.stk")> ../Src/test-stk -f widget.stk </A>
<A expr=(run "widget.stk")> <font color=red>RUN</font> -f widget.stk </A>
<br>
<u>Comment</u>: This demo illustrate only the simple widgets
(the ones of the Tk library). For a <i>composite widgets</i>
@ -389,7 +402,7 @@
itself a composition of various composite widget classes.
<br>
<u>Run with</u>:
<A expr=(run "filebox.stklos")> ../Src/test-stk -f filebox.stklos </A>
<A expr=(run "filebox.stklos")> <font color=red>RUN</font> -f filebox.stklos </A>
<p><li>
<b>stklos-widgets.stklos</b>
@ -399,7 +412,7 @@
<br>
<u>Run with</u>:
<A expr=(run "stklos-widgets.stklos")>
../Src/test-stk -f stklos-widgets.stklos </A>
<font color=red>RUN</font> -f stklos-widgets.stklos </A>
<br>
<u>Comment</u>: This code is a contribution of <b>Drew Whitehouse</b>
<TT>&lt;Drew.Whitehouse@anu.edu.au&gt</TT>.
@ -414,7 +427,7 @@
This is a simplistic calculator.
<br>
<u>Run with</u>:
<A expr=(run "calc.stklos")>../Src/test-stk -f calc.stklos </A>
<A expr=(run "calc.stklos")><font color=red>RUN</font> -f calc.stklos </A>
<p><li>
<b>tkcolor.stklos</b>
@ -428,7 +441,7 @@
background color.
<br>
<u>Run with</u>:
<A expr=(run "tkcolor.stklos")>../Src/test-stk -f tkcolor.stklos </A>
<A expr=(run "tkcolor.stklos")><font color=red>RUN</font> -f tkcolor.stklos </A>
<p><li>
<b>amib.stklos</b>
@ -436,7 +449,7 @@
<B>A</B> <B>M</B>ini <B>I</B>nterface <B>B</B>uilder.
<br>
<u>Run with</u>:
<A expr=(run "amib.stklos")> ../Src/test-stk -f amib.stklos </A>
<A expr=(run "amib.stklos")> <font color=red>RUN</font> -f amib.stklos </A>
<br>
<u>Comment</u>: The current version of AMIB allow you to:
<ul>
@ -455,7 +468,7 @@
The STk web browser. You are probably using it while seeing these lines.
<br>
<u>Run with</u>:
<A expr=(run "S-scape.stklos")> ../Src/test-stk -f S-scape.stklos </A>
<A expr=(run "S-scape.stklos")> <font color=red>RUN</font> -f S-scape.stklos </A>
</ul>
@ -463,7 +476,7 @@
<address><a href="mailto:eg@unice.fr">Erick Gallesio</a></address>
<!-- Created: Sun Mar 1 15:56:45 CET 1998 -->
<!-- hhmts start -->
Last modified: Sat Sep 4 15:02:13 CEST 1999
Last modified: Mon Sep 13 19:59:47 CEST 1999
<!-- hhmts end -->
</body>
</html>

0
Demos/S-scape.stklos Normal file → Executable file
View File

0
Demos/amib.stklos Normal file → Executable file
View File

0
Demos/browse.stk Normal file → Executable file
View File

0
Demos/browse.stklos Normal file → Executable file
View File

0
Demos/calc.stklos Normal file → Executable file
View File

0
Demos/classbrowse.stklos Normal file → Executable file
View File

0
Demos/colormap.stk Normal file → Executable file
View File

4
Demos/console-demo.stk Normal file → Executable file
View File

@ -1,3 +1,5 @@
#!/bin/sh
:;exec /usr/local/bin/stk -f "$0" "$*"
;;;; console-demo.stk -- A simple demo for the console
;;;;
;;;; Copyright © 1999 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
@ -13,7 +15,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 22-Aug-1999 21:05
;;;; Last file update: 3-Sep-1999 18:56 (eg)
;;;; Last file update: 12-Sep-1999 23:29 (eg)

0
Demos/filebox.stklos Normal file → Executable file
View File

5
Demos/hanoi.stk Normal file → Executable file
View File

@ -1,4 +1,5 @@
#!/usr/local/bin/stk -f
#!/bin/sh
:;exec /usr/local/bin/stk -f "$0" "$@"
;;;;
;;;; Hanoi - Towers of Hanoi diversion
;;;;
@ -13,7 +14,7 @@
;;;; This software is provided ``AS IS'' without express or implied
;;;; warranty.
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Last file update: 3-Sep-1999 19:22 (eg)
;;;; Last file update: 13-Sep-1999 18:00 (eg)
;;;; This program is a rewriting in STk of a program found on the net. Original
;;;; author is Damon A Permezel (probably fubar!dap@natinst.com)

0
Demos/hello.stk Normal file → Executable file
View File

0
Demos/hello.stklos Normal file → Executable file
View File

0
Demos/inspector.stk Normal file → Executable file
View File

5
Demos/mc-server.stk Normal file → Executable file
View File

@ -1,4 +1,5 @@
#!/usr/local/bin/stk -load
#!/bin/sh
:;exec /usr/local/bin/stk -load "$0" "$@"
;;;;
;;;; m c - s e r v e r . s t k -- A simple server which accept
;;;; multiple client connections
@ -16,7 +17,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@kaolin.unice.fr]
;;;; Creation date: 23-Jul-1996 09:00
;;;; Last file update: 3-Sep-1999 18:58 (eg)
;;;; Last file update: 13-Sep-1999 18:01 (eg)
(require "posix")
(require "socket")

5
Demos/queens.stk
View File

@ -1,6 +1,7 @@
#!/usr/local/bin/stk -f
#!/bin/sh
:;exec /usr/local/bin/stk -f "$0" "$@"
; -* Lisp -*-
; -* Scheme -*-
; Yet another "my first STk program" type thing. This one is the "8
; queens" puzzle. You try to figure out how to place 8 queens on a

9
Demos/server.stk Normal file → Executable file
View File

@ -1,4 +1,7 @@
#!/usr/local/bin/stk -f
#!/bin/sh
:; exec /usr/local/bin/stk -f "$0" "$@"
;;;;
;;;;
;;;; s e r v e r . s t k -- A simple sever
;;;;
;;;; Copyright © 1993-1999 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
@ -14,7 +17,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@kaolin.unice.fr]
;;;; Creation date: 4-Feb-1995 18:17
;;;; Last file update: 4-Sep-1999 15:32 (eg)
;;;; Last file update: 12-Sep-1999 23:36 (eg)
(define s (make-server-socket))
(define p (run-process ; define a var to avoid GC problems
@ -24,8 +27,6 @@
(dynamic-wind
;; Init: Launch an xterm with telnet running on the s listening port and connect
(lambda ()
(run-process "xterm" "-e" "telnet" "localhost"
(number->string (socket-port-number s)))
(socket-accept-connection s)
(format (socket-output s) "\nWelcome on the socket REPL.\n\n> ")
(flush (socket-output s)))

5
Demos/showvars.stk
View File

@ -18,7 +18,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 9-Aug-1993 22:06
;;;; Last file update: 3-Sep-1999 19:23 (eg)
;;;; Last file update: 13-Sep-1999 20:01 (eg)
(define (show-vars w . args)
(catch (destroy w))
@ -51,5 +51,6 @@
(define b '(1 2 (a b d) x 1))
(define c "A string")
(show-vars '.test 'a 'b 'c)
(format #t "Try to modify value of displayed variables with set!\n")
(format #t
"\n***\n*** Try to modify value of displayed variables with set!\n***\n\n")

6
Demos/small-ed.stk Normal file → Executable file
View File

@ -1,4 +1,6 @@
#!/usr/local/bin/stk -f
#!/bin/sh
:;exec /usr/local/bin/stk -f "$0" "$@"
;;;; s m a l l - e d . s t k -- A small editor to create enhanced
;;;; text (used for Help page construction)
;;;;
@ -15,7 +17,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@kaolin.unice.fr]
;;;; Creation date: 6-Dec-1993 17:25
;;;; Last file update: 3-Sep-1999 18:58 (eg)
;;;; Last file update: 13-Sep-1999 18:02 (eg)
(require "editor")

6
Demos/stkfontsel.stk Normal file → Executable file
View File

@ -1,3 +1,7 @@
#!/bin/sh
:; exec /usr/local/bin/stk -f "$0" "$@"
;;;;
;;;;
;;;; s t k f o n t s e l . s t k l o s -- A demo of the font chooser
;;;;
;;;; Copyright © 1999 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
@ -13,7 +17,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 25-Apr-1999 19:35
;;;; Last file update: 3-Sep-1999 18:59 (eg)
;;;; Last file update: 12-Sep-1999 23:37 (eg)
(require "font-chooser")

5
Demos/stklos-demo.stklos Normal file → Executable file
View File

@ -1,4 +1,5 @@
#!/usr/local/bin/stk -f
#!/bin/sh
:;exec /usr/local/bin/stk -f "$0" "$@"
;;;;
;;;; s t k l o s - d e m o . s t k -- A demo which use some STklos classes
;;;;
@ -15,7 +16,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 24-Aug-1993 19:55
;;;; Last file update: 3-Sep-1999 19:00 (eg)
;;;; Last file update: 13-Sep-1999 18:03 (eg)
(require "Tk-classes")

6
Demos/stklos-demo2.stklos Normal file → Executable file
View File

@ -1,4 +1,6 @@
#!/usr/local/bin/stk -f
#!/bin/sh
:;exec /usr/local/bin/stk -f "$0" "$@"
;;;;
;;;; s t k l o s - d e m o 2 . s t k -- A demo which use some STklos classes
;;;;
@ -15,7 +17,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 24-Aug-1993 19:55
;;;; Last file update: 3-Sep-1999 19:00 (eg)
;;;; Last file update: 13-Sep-1999 18:03 (eg)
(require "Tk-classes")

0
Demos/term.stk Normal file → Executable file
View File

0
Demos/tkcolor.stklos Normal file → Executable file
View File

0
Demos/turtle.stk Normal file → Executable file
View File

0
Demos/widget.stk Normal file → Executable file
View File

5
Doc/Extension/Makefile
View File

@ -1,6 +1,7 @@
#
# Makefile for Doc/Extension
#
include ../../config.make
SRC = Extending.tex
@ -9,6 +10,10 @@ all: dvi ps
dvi: Extending.dvi
ps: Extending.ps
install: ps
$(CP) Extending.ps $(DOC_DIR)
Extending.dvi: $(SRC)
echo -n > Extending.ind
latex Extending; makeindex Extending; bibtex Extending;

BIN
Doc/Isotas96/Isotas96.dvi
View File

Binary file not shown.

4852
Doc/Isotas96/Isotas96.ps
View File

File diff suppressed because it is too large Load Diff

11
Doc/Makefile
View File

@ -14,17 +14,17 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# Creation date: 21-Oct-1994 11:25
# Last file update: 3-Sep-1999 21:22 (eg)
# Last file update: 12-Sep-1999 20:31 (eg)
include ../config.make
MAN1_DIR=$(mandir)/man1
MANN_DIR=$(mandir)/mann
DOC_DIR=$(prefix)/doc/stk-$(VERSION)
DIRS=Extension Reference STklos+Tk Manual Isotas96
install: install.man
install: install.man install.ps
all: dvi ps
@ -41,6 +41,11 @@ ps:
install.man:
(cd Manual; make install.man)
install.ps:
-if [ ! -d $(DOC_DIR) ] ; then mkdir -p $(DOC_DIR); fi
(cd Extension; make install DOC_DIR=$(DOC_DIR))
(cd Reference; make install DOC_DIR=$(DOC_DIR))
clean:
for i in $(DIRS) ;do \
(cd $$i; $(MAKE) clean); \

4
Doc/Reference/Appendix-A.tex
View File

@ -3,7 +3,7 @@
%
% Author: Erick Gallesio [eg@unice.fr]
% Creation date: ??-Nov-1993 ??:??
% Last file update: 21-Jan-1996 18:29
% Last file update: 27-Sep-1999 14:40 (eg)
%
When {\stk} detects that a \var{tk-command} must be called, parameters are
@ -109,7 +109,7 @@ arrows for example), the scrollbar is updated by calling it's
associated closure. Tk library passes position informations to
scrolling closures. This informations are the parameters of the
closure. Hereafter is an example implementing a text widget with a
scrollbar (see the help pages for details):
scrollbar (see the help pages for details and \ref{help}):
\begin{scheme}
(text '.txt :yscrollcommand (lambda l (apply .scroll 'set l)))
(scrollbar '.scroll :command (lambda l (apply .txt 'yview l)))

8
Doc/Reference/Appendix-B.tex
View File

@ -3,7 +3,7 @@
%
% Author: Erick Gallesio [eg@unice.fr]
% Creation date: ??-Nov-1993 ??:??
% Last file update: 20-Apr-1998 11:54
% Last file update: 27-Sep-1999 14:42 (eg)
%
\newcommand{\schglob}[1]{*#1*}
@ -87,9 +87,9 @@ The following symbols are defined only when Tk is loaded:
\item {\tt\schglob{help-path}}\schindex{help,
getting}\schindex{\schglob{help-path}} must contain a list of
strings. Each string is taken as a directory path name in which
documentation files are searched. This variable can be set
automatically from the {\tt STK\_HELP\_PATH} shell variable. See
{\tt stk(1)} for more details.
documentation files are searched by the command \var{help}\ref{help}.
This variable can be set automatically from the {\tt STK\_HELP\_PATH}
shell variable. See {\tt stk(1)} for more details.
\item {\tt\schglob{image-path}}\schindex{\schglob{image-path}} must contain
a list of strings. Each string is taken as a directory path name in which

10
Doc/Reference/Appendix-C.tex
View File

@ -3,7 +3,7 @@
%
% Author: Erick Gallesio [eg@unice.fr]
% Creation date: 22-May-1994 22:13
% Last file update: 5-Jun-1999 14:48
% Last file update: 18-Sep-1999 15:21 (eg)
%
\section{Introduction}
@ -113,7 +113,7 @@ For instance,
\begin{scheme}
(class-slots A) \lev (a)
(class-slots E) \lev (a e c)
(class-slots F) \lev (d a b c f)
(class-slots F) \lev (b e c d a f)
\end{scheme}
\begin{note}
@ -311,10 +311,10 @@ For instance, the following expression
permits to set the angle of the {\tt c} complex number. This expression
conducts, in fact, to the evaluation of the following expression
\begin{scheme}
((lambda o m)
((lambda (o a)
(let ((m (slot-ref o 'm)))
(slot-set! o 'r (* m (cos a)))
(slot-set! o 'i (* m (sin a))))
(slot-set! o 'i (* m (sin a)))))
c 3)
\end{scheme}
A more complete example is given below:
@ -494,7 +494,7 @@ each parameter can use a specializer. In this case, the parameter list is scanne
from left to right to determine the applicability of a method. Suppose we declare
now
\begin{scheme}
(define-method M ((a <integer>) (b <number>)) 'integer-number)
(define-method M ((a <integer>) (b <integer>)) 'integer-integer)
(define-method M ((a <integer>) (b <real>)) 'integer-real)
(define-method M (a (b <number>)) 'top-number)
\end{scheme}

9
Doc/Reference/Appendix-E.tex
View File

@ -3,7 +3,7 @@
%
% Author: Erick Gallesio [eg@unice.fr]
% Creation date: 21-Dec-1997 20:09
% Last file update: 1-Sep-1999 23:17 (eg)
% Last file update: 27-Sep-1999 15:45 (eg)
%
\section*{Introduction}
@ -16,6 +16,13 @@ the various recent versions of STk. Differences with older versions
as well as implementation changes are described in the CHANGES file
located in the main directory of the STk distribution.
\section*{Release 4.0.1}
\small{\emph{Release date: 09/27/99}}
Mains changes/modifications since 4.0.1:
\begin{itemize}
\item Integration of SFI-9
\end{itemize}
\section*{Release 4.0.0}
\small{\emph{Release date: 09/03/99}}
Mains changes/modifications since 3.99.4:

31
Doc/Reference/Appendix-F.tex
View File

@ -3,7 +3,7 @@
%
% Author: Erick Gallesio [eg@unice.fr]
% Creation date: 21-Dec-1994 12:05
% Last file update: 27-Jun-1998 10:12
% Last file update: 22-Sep-1999 11:50 (eg)
%
\section{Introduction}
@ -230,12 +230,23 @@ document is available at
{\tt file://swiss-ftp.ai.mit.edu/pub/scm/HTML/r4rs\_toc.html}
\end{quote}
\subsection{The Scheme Repository}
\subsection{Web sites}
The main site where you can find (many) informations about Scheme is
located in the University of Indiana. The Scheme repository\index{Scheme
Repository} is maintained by David Eby. The repository currently consists
of the following areas:
The most up to date general site on Scheme is located at
www.schemers.org\index{Schemers.org}. This site contains informations
and links about
\begin{itemize}
\item textbooks on Scheme, tutorials and standards
\item various implementations of the language as well as environments for Scheme
\item SRFI (Scheme Request For Implementation)
\item events related to Scheme programming
\item and much more ...
\end{itemize}
Another important site is the Scheme repository\index{Scheme
Repository}. Hopelessly, this site is no more maintained, but its
content is rich enough to spend some time on it. The repository
consists of the following areas:
\begin{itemize}
\item Lots of scheme code meant for benchmarking, library/support, research, education, and fun.
\item On-line documents: Machine readable standards documents, standards proposals, various Scheme-related tech reports, conference papers, mail archives, etc.
@ -245,7 +256,6 @@ of the following areas:
\item Utilities (e.g., Schemeweb, SLaTeX).
\item Extraneous stuff, extensions, etc.
\end{itemize}
You can access the Scheme repository with
{\tt
\begin{itemize}
@ -253,7 +263,6 @@ You can access the Scheme repository with
\item http://www.cs.indiana.edu/scheme-repository/SRhome.html
\end{itemize}
}
The Scheme Repository is mirrored in Europe:
{\tt
\begin{itemize}
@ -262,6 +271,7 @@ The Scheme Repository is mirrored in Europe:
\item ftp.informatik.uni-muenchen.de:/pub/comp/programming/languages/scheme/scheme-repository
\end{itemize}
}
\subsection{Usenet newsgroup and other addresses}
There is a usenet newsgroup about the Scheme Programming language: {\tt
@ -277,3 +287,8 @@ at MIT
\item {\tt http://www.ai.mit.edu/projects/su/su.html} is the Scheme Underground
web page
\end{itemize}
%%% Local Variables:
%%% mode: latex
%%% TeX-master: "manual"
%%% End:

5
Doc/Reference/Makefile
View File

@ -1,5 +1,7 @@
# Makefile for Manual building
include ../../config.make
TEX= manual.tex commands.tex Reference1.tex Reference2.tex \
Appendix-A.tex Appendix-B.tex Appendix-C.tex Appendix-D.tex
@ -8,6 +10,9 @@ all: dvi ps
dvi: manual.dvi
ps: manual.ps
install: ps
$(CP) manual.ps $(DOC_DIR)
manual.dvi: bibli $(TEX)
echo -n > index.tex
latex manual.tex

50
Doc/Reference/Reference1.tex
View File

@ -3,7 +3,7 @@
%
% Author: Erick Gallesio [eg@unice.fr]
% Creation date: ??-Nov-1993 ??:??
% Last file update: 31-Aug-1999 13:04 (eg)
% Last file update: 18-Sep-1999 15:08 (eg)
%
\section*{Introduction}
@ -104,7 +104,7 @@ This kind of comment extends to the end of the line (as described in \rrrr).
{\tt \sharpsign{\em n}\sharpsign} syntax (see below). The scope of
the label is the expression being read by the outermost \ide{read}.
\item[\tt\sharpsign{\em n}=] is used to reference a some object
\item[\tt\sharpsign{\em n}\sharpsign] is used to reference a some object
labeled by a {\tt \sharpsign{\em n}=} syntax; that is,
{\tt \sharpsign{\em n}\sharpsign} represents a pointer to the object
labeled exactly by {\tt \sharpsign{\em n}=}. For instance, the object
@ -437,7 +437,7 @@ have been deleted. The predicate used to test the presence of \var{obj} in
Returns the last pair of \var{list}\footnote{\ide{Last-pair} was a standard
procedure in {\rthree}.}.
\begin{scheme}
(last-pair '(1 2 3)) \lev 3
(last-pair '(1 2 3)) \lev (3)
(last-pair '(1 2 . 3)) \lev (2 . 3)
\end{scheme}
\end{entry}
@ -1050,12 +1050,12 @@ the port is given by the user).
specifying the command to execute prefixed with the string {\tt
"|~"}. Specification of a pipe port can occur everywhere a file
name is needed.
\item Virtual ports creation needs that the basic I/O functions are
at the port creation time. This functions will be used to simulate
low level accesses a ``virtual device''. This kind of port is
particularly convenient for reading or writing in a graphical window
as if it was a file. Once virtual port is created, it can be accessed
as a normal port with the standard Scheme primitives.
\item Virtual ports are created by supplying basic I/O functions at
port creation time. These functions will be used to simulate low
level accesses to a ``virtual device''. This kind of port is
particularly convenient for reading or writing in a graphical
window as if it was a file. Once a virtual port is created, it can
be accessed as a normal port with the standard Scheme primitives.
\end{itemize}
@ -1281,18 +1281,18 @@ output string \var{port}.
\saut
Returns a virtual port using the \var{getc} procedure to read a
character from the port, \var{readyp} to know if there is to read from
the port, \var{eofp} to know if the end of file is reached on the port
and finally \var{close} to close the port. All theses procedure takes
one parameter which is the port from which the input is done.
\var{Open-input-virtual} accepts also the special value \schfalse{} for
the I/O procedures with the following conventions:
character from the port, \var{readyp} to know if there is any data to
read from the port, \var{eofp} to know if the end of file is reached
on the port and finally \var{close} to close the port. All theses
procedure takes one parameter which is the port from which the input
is done. \var{Open-input-virtual} accepts also the special value
\schfalse{} for the I/O procedures with the following conventions:
\begin{itemize}
\item if \var{getc} or \var{eofp} is \schfalse{} any attempt to read
the virtual port will an eof object;
the virtual port will return an eof object;
\item if \var{readyp} is \schfalse{}, the file will always be ready
for reading;
\item if \var{clos} is \schfalse{}, no action is done when the port is
\item if \var{close} is \schfalse{}, no action is done when the port is
closed.
\end{itemize}
@ -1424,7 +1424,7 @@ returned by \ide{write*} is undefined.
(l2 '(3 4))
(l3 '(5 6)))
(append! l1 l2 l3)
(list l1 l2 l3)) \ev \textit{writes} \verb+((1 2 . #0=(3 4 . #1=(5 6))) #0# #1#)+
(write* (list l1 l2 l3))) \ev \textit{writes} \verb+((1 2 . #0=(3 4 . #1=(5 6))) #0# #1#)+
\end{scheme}
\end{entry}
@ -1604,20 +1604,6 @@ Closes \var{port}. If \var{port} denotes a string port, further
reading or writing on this port is disallowed.
\end{entry}
\begin{entry}{%
\proto{copy-port}{ src dst}{procedure}}
\saut
Copies the content of the input port \var{src} to the output-port \var{dest}.
\begin{scheme}
(define copy-file
(lambda (src dst)
(with-input-from-file src (lambda ()
(with-output-to-file dst (lambda ()
(copy-port (current-input-port)
(current-output-port))))))))
\end{scheme}
\end{entry}
\begin{entry}{%
\proto{port-closed?}{ port}{procedure}}
\saut

50
Doc/Reference/Reference2.tex
View File

@ -3,7 +3,7 @@
%
% Author: Erick Gallesio [eg@unice.fr]
% Creation date: ??-Nov-1993 ??:??
% Last file update: 16-Aug-1999 20:21
% Last file update: 27-Sep-1999 15:24 (eg)
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@ -155,6 +155,37 @@ Returns the widget name of \var{widget} as a symbol.
\end{scheme}
\end{entry}
\begin{entry}{%
\proto{tk-get}{ widget opt}{procedure}}
\saut
Returns the value of the widget option \var{opt} of \var{widget}.
\begin{scheme}
(begin
(label '.lab :text "Hello" :bd 3)
(cons (tk-get .lab :bd) (tk-get .lab :text)))
\lev (3 . "Hello")
\end{scheme}
See the online documentation for all the options provided by the Tk widgets.
(see \ref{help}).
\end{entry}
\begin{entry}{%
\proto{tk-set!}{ widget opt value}{procedure}}
\saut
Sets the value of the widget option \var{opt} of \var{widget} to the
given \var{value}.
\begin{scheme}
(begin
(label '.lab :text "Hello")
(tk-set! .lab :text "Hello, world!")
(tk-get .lab :text))
\lev "Hello, world!"
\end{scheme}
See the online documentation for all the options provided by the Tk widgets.
(see \ref{help}).
\end{entry}
\begin{entry}{
\proto{set-widget-data!}{ widget expr}{procedure}}
\saut
@ -273,6 +304,16 @@ in all the \texttt{export} clauses.
The result of \var{export} is undefined.
\end{entry}
\begin{entry}{%
\proto{export-all-symbols}{ } {procedure}}
\saut
Exports all the symbols defined in the current module.
The result of \var{export-all-symbols} is undefined.
\end{entry}
\begin{entry}{%
\proto{import}{ \hyperi{module} \hyperii{module}\ldots} {syntax}}
@ -1613,6 +1654,13 @@ option uses the external command {\tt rsh}. The shell variable {\tt
PATH} must be correctly set for accessing it without specifying its
abolute path.
\item {\tt :fork} must be followed by a boolean value. This value
specifies if a \emph{fork} system call must be done before running
the process. If the process is run without \emph{fork} the Scheme
program is lost. This feature mimics the ``exec'' primitive of the
Unix shells. By default, the process a fork is executed before
running the process (i.e. {\tt :fork} is \schtrue). This options
works on Unix implementations only.
\end{itemize}
The following example launches a process which execute the
Unix command {\tt ls} with the arguments {\tt -l} and {\tt

26
Doc/Reference/Reference3.tex
View File

@ -3,7 +3,7 @@
%
% Author: Erick Gallesio [eg@unice.fr]
% Creation date: 16-Dec-1997 14:00
% Last file update: 17-May-1999 00:07
% Last file update: 27-Sep-1999 15:30 (eg)
%
@ -770,6 +770,28 @@ of \var{symbol}. Symbols are searched for in the current environment.
\end{scheme}
\end{entry}
\begin{entry}{%
\proto{apropos}{ symbol}{ procedure}}
\saut
\ide{Apropos} returns a list of symbol whose print name contains the characters
of \var{symbol}. Symbols are searched for in the current environment.
\begin{scheme}
(apropos 'cadd) \lev (caddar caddr cadddr)
\end{scheme}
\end{entry}
\begin{entry}{%
\proto{help}{}{ procedure}}
\saut
\label{help}\schindex{help, getting}
\ide{help} pops a graphical help window giving acces to the online
documentation.
\begin{note}
Tk must be initialized to use \ide{inspect}.
\end{note}
\end{entry}
\begin{entry}{%
\proto{inspect}{ obj}{ procedure}}
\saut %
@ -787,7 +809,7 @@ Tk must be initialized to use \ide{inspect}.
\begin{figure}
\centerline{\psfig{figure={Inspector.ps}}}
\caption{A view of the Inspector}
\caption{A View of the Inspector}
\end{figure}
\end{entry}

BIN
Doc/Reference/manual.dvi
View File

Binary file not shown.

14128
Doc/Reference/manual.ps
View File

File diff suppressed because it is too large Load Diff

20
Extensions/hash.c
View File

@ -16,7 +16,7 @@
*
* Author: Erick Gallesio [eg@kaolin.unice.fr]
* Creation date: 17-Jan-1994 17:49
* Last file update: 3-Sep-1999 20:20 (eg)
* Last file update: 14-Sep-1999 14:15 (eg)
*/
#include <stk.h>
@ -95,14 +95,17 @@ unsigned long sxhash(SCM obj)
case tc_integer:
case tc_bignum: return (unsigned long) STk_integer_value_no_overflow(obj);
case tc_flonum: return (unsigned long) FLONM(obj);
case tc_symbol: /* For some reasons
* return (unsigned long) obj;
* which is correct, yiels worse results than the
* following code. Perhaps, we have a better
*repartion by using hashing on the chars. Weird!
case tc_symbol: if (CELLINFO(obj) & CELL_INFO_UNINTERNED)
/* Interned symbol. Work on the interned one
* to have the same hash value
*/
obj = Intern(PNAME(obj));
/* For some reasons, returning just obj as an unsigned
* long, which is correct, yields worse results than
* the following code.
*/
return HASH_WORD(0, (unsigned long) obj);
return HashString(PNAME(obj));
case tc_keyword: return HashString(KEYVAL(obj));
case tc_string: return HashString(CHARS(obj));
case tc_vector: h = 0;
@ -116,8 +119,7 @@ unsigned long sxhash(SCM obj)
* object as a key. Note that returning the type
* works even if we have not COMPACT_SMALL_CST (as far as
* I know, nobody undefine it). In this case SMALL_CSTP
* always return FALSE.
*/
* always return FALSE. */
return (SMALL_CSTP(obj)) ? (unsigned long) obj:
(unsigned long) TYPE(obj);
}

3
Extensions/pixmap.c
View File

@ -932,6 +932,9 @@ static void ImgXpmGetPixmapFromData(interp, masterPtr, instancePtr)
instancePtr->tkwin, Tk_GetUid("black"));
}
}
#if defined(STk_CODE) && defined(WIN32)
else colors[i].colorPtr = NULL;
#endif
} else {
colors[i].colorPtr = Tk_GetColor(interp,
instancePtr->tkwin, Tk_GetUid("black"));

20
Extensions/process.c
View File

@ -15,7 +15,7 @@
*
* Author: Erick Gallesio [eg@kaolin.unice.fr]
* Creation date: ??-???-1994 ??:??
* Last file update: 3-Sep-1999 20:22 (eg)
* Last file update: 14-Sep-1999 15:24 (eg)
*
*
* The implementation for Win32 is a contribution of people from Grammatech
@ -101,6 +101,10 @@ static char key_err[] = ":error";
static char key_wit[] = ":wait";
static char key_hst[] = ":host";
static char key_hide[] = ":hide";
#ifndef WIN32
static char key_fork[] = ":fork";
#endif
#if defined(SIGCHLD) && !defined(HPUX)
# define USE_SIGCHLD 1 /* What's the problem with HP? */
@ -635,14 +639,14 @@ static PRIMITIVE run_process(SCM l, int len)
static PRIMITIVE run_process(SCM l, int len)
{
SCM proc, tmp, redirection[3];
int pid, i, argc, waiting, hidden;
int pid, i, argc, waiting, hidden, do_fork;
struct process_info *info;
char host[100], msg[256], **argv, **argv_start;
/* Initializations */
int pipes[3][2];
argc = 0; waiting = FALSE; hidden = FALSE;
argc = 0; waiting = FALSE; hidden = FALSE; do_fork = TRUE;
argv_start = (char**)must_malloc((len+3)*sizeof(char *)); /* 3= NULL+rsh+host */
argv = argv_start + 2;
@ -691,6 +695,13 @@ static PRIMITIVE run_process(SCM l, int len)
hidden = (CAR(l) == Truth);
}
else if (STk_eqv(tmp, STk_makekey(key_fork)) == Truth) {
/* :fork option processing */
if (NBOOLEANP(CAR(l)))
cannot_run(pipes, argv_start, "boolean expected. It was", CAR(l));
do_fork = (CAR(l) == Truth);
}
else {
/* :input, :output, :error option processing */
if (STk_eqv(tmp, STk_makekey(key_inp)) == Truth) i = 0; else
@ -777,9 +788,10 @@ static PRIMITIVE run_process(SCM l, int len)
/* Build a process object */
proc = make_process();
info = PROCESS(proc);
pid = do_fork? fork(): 0;
/* Fork another process */
switch (pid = fork()) {
switch (pid) {
case -1: cannot_run(pipes,argv,"can't create child process", NIL);
case 0: /* Child */
for(i = 0; i < 3; i++) {

7
Lib/init.stk
View File

@ -14,7 +14,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@kaolin.unice.fr]
;;;; Creation date: ??-Sep-1993 ??:??
;;;; Last file update: 3-Sep-1999 19:52 (eg)
;;;; Last file update: 14-Sep-1999 21:50 (eg)
;;;;
;;;==============================================================================
@ -217,13 +217,14 @@
(let ((var #f) (count #f) (result #f))
(case (length binding)
(2 (set! var (car binding))
(set! count (cadr binding)))
(set! count (cadr binding))
(set! result (make-undefined)))
(3 (set! var (car binding))
(set! count (cadr binding))
(set! result (caddr binding)))
(else (error "dotimes: bad binding construct: ~S" binding)))
`(do ((,var 0 (+ ,var 1)))
((= ,var ,count) ,result)
((>= ,var ,count) ,result)
,@body))
;; binding is ill-formed
(error "dotimes: binding is not a list: ~S" binding)))

8
Lib/srfi-0.stk
View File

@ -16,13 +16,13 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 30-Aug-1999 16:26 (eg)
;;;; Last file update: 3-Sep-1999 19:54 (eg)
;;;; Last file update: 27-Sep-1999 14:12 (eg)
(require "defsyntax")
(define-syntax cond-expand
(syntax-rules ( and or not else srfi-0 srfi-2 srfi-6 srfi-8 )
(syntax-rules ( and or not else srfi-0 srfi-2 srfi-6 srfi-8 srfi-9)
((cond-expand) (error "Unfulfilled cond-expand"))
((cond-expand (else body ...))
(begin body ...))
@ -62,6 +62,10 @@
((cond-expand (srfi-8 body ...) more-clauses ...)
(begin body ...))
;; SRFI 9 -- RECORDS
((cond-expand (srfi-9 body ...) more-clauses ...)
(begin body ...))
((cond-expand (feature-id body ...) more-clauses ...)
(cond-expand more-clauses ...))))

96
Lib/srfi-9.stk Normal file
View File

@ -0,0 +1,96 @@
;;;;
;;;; srfi-9.stk -- SRFI-9 (Records)
;;;;
;;;; Copyright © 1999 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;;
;;;;
;;;; Permission to use, copy, modify, distribute,and license this
;;;; software and its documentation for any purpose is hereby granted,
;;;; provided that existing copyright notices are retained in all
;;;; copies and that this notice is included verbatim in any
;;;; distributions. No written agreement, license, or royalty fee is
;;;; required for any of the authorized uses.
;;;; This software is provided ``AS IS'' without express or implied
;;;; warranty.
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 27-Sep-1999 13:06 (eg)
;;;; Last file update: 27-Sep-1999 14:21 (eg)
;;;;
(require "stklos")
(select-module Scheme)
(import STklos)
;;;
;;; Class <record>
;;;
;;; This class is only used for printing records as #[record ...]
;;;
(define-class <record> () ())
(define-method write-object ((x <record>) port)
(format #t "#[record ~A ~A]" (class-name (class-of x)) (address-of x)))
;;;
;;; Implementation of DEFINE-RECORD-TYPE
;;;
(define-macro (define-record-type type-name constructor predicate . fields)
(define (%make-record-fields fields)
(map (lambda (x)
(case (length x)
((2) (list (car x) :getter (cadr x)))
((3) (list (car x) :getter (cadr x) :setter (caddr x)))
(else (error "define-record-type: bad field specification ~S" x))))
fields))
(define (%make-record-constructor constructor class)
(if (not (every symbol? constructor))
(error "define-record-type: bad constructor ~S" constructor))
(let ((name (car constructor))
(fields (cdr constructor)))
`(lambda ,fields
(let ((res (make ,class)))
,@(map (lambda (x) `(slot-set! res ',x ,x)) fields)
res))))
;;;
;;; Body of define-record-type starts here
;;;
(let ((symb(gensym "x")))
`(begin
;; Define a class for the new record
(define-class ,type-name (<record>)
,(%make-record-fields fields))
;; Define the accessor function
(define ,(car constructor)
,(%make-record-constructor constructor type-name))
;; Define the predicate as a pair of methods
(define-method ,predicate ((,symb ,type-name)) #t)
(define-method ,predicate (,symb) #f))))
(provide "srfi-9")
#|
Example of usage
(define-record-type my-pair
(kons x y)
my-pair?
(x kar set-kar!)
(y kdr))
(list
(my-pair? (kons 1 2)) ; => #t
(my-pair? (cons 1 2)) ; => #f
(kar (kons 1 2)) ; => 1
(kdr (kons 1 2)) ; => 2
(let ((k (kons 1 2)))
(set-kar! k 3)
(kar k))) ; => 3
|#

4
Lib/tk-init.stk
View File

@ -20,7 +20,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 17-May-1993 12:35
;;;; Last file update: 3-Sep-1999 19:55 (eg)
;;;; Last file update: 16-Sep-1999 16:48 (eg)
;;;;
(unless (equal? *tk-version* "8.0")
@ -385,7 +385,7 @@
;; Global help functions which are defined when Tk is loaded
(autoload "help" help STk:show-help-file)
(autoload "www-browser" WWW:browser)
(autoload "www-browser" WWW:browser WWW:mailto)
(autoload "class-browser" class-browser))
;;;;

49
Lib/www-browser.stklos
View File

@ -1,5 +1,6 @@
;;;;
;;;; w w w - b r o w s e r . s t k l o s -- A simple WEB browser
;;;; -- (and a very simple mail composer)
;;;;
;;;; Copyright © 1993-1999 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;;
@ -14,7 +15,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 21-Oct-1996 14:02
;;;; Last file update: 3-Sep-1999 19:56 (eg)
;;;; Last file update: 16-Sep-1999 17:37 (eg)
;;;;
(require "Tk-classes")
@ -22,6 +23,10 @@
(import WWW)
;;;;
;;;; W W W : b r o w s e r
;;;;
(define WWW:browser
(let ((browser #f) ;; Id of browser (#f if no browser exists)
(lentry #f)) ;; The labeled entry of the interface
@ -156,9 +161,51 @@
(www:view-url (Id browser) url))
browser))))
(define (www:mailto . to)
(let* ((top (make <Toplevel> :title "STk Mail Composer"))
(to (make <Labeled-entry> :parent top :title "To:"
:title-width 7 :title-anchor 'e
:value (if (null? to) "" (car to))))
(cc (make <Labeled-entry> :parent top :title "Cc:"
:title-width 7 :title-anchor 'e))
(subject (make <Labeled-entry> :parent top :title "Subject:"
:title-width 7 :title-anchor 'e))
(txt (make <Scroll-text> :parent top))
(f (make <Frame> :parent top :border-width 2 :relief 'ridge))
(send (make <Button> :text "Send" :parent f :border-width 1))
(cancel (make <Button> :text "Cancel" :parent f :border-width 1)))
(pack to cc subject :expand #f :fill 'x :padx 5)
(pack txt :expand #t :fill 'both :padx 5 :pady 3)
(pack send cancel :side 'left)
(pack f :expand #f :fill 'x)
;; Set the background of text to white
(set! (background (text-of txt)) "white")
;; Set action of Send and Cancel button
(set! (command Cancel)
(lambda()
(if (eq? 'yes (Tk:message-box :title "Cancel Message"
:icon 'question :type 'yesno
:message "Close and discard message?"))
(destroy top))))
(set! (command send)
(lambda ()
(unless (string=? (value to) "")
(let ((cmd (string-append "| /bin/mail "
"-s '" (value subject) "' "
"-c '" (value cc) "' "
(value to))))
(with-output-to-file cmd (lambda () (display (value txt))))
(Tk:message-box :title "Message Information"
:message "Message sent" :icon 'info)
(destroy top)))))))
;;;
;;; Misc.
;;;
(define STk:web-browser WWW:browser) ; for backward compatibility with 3.x versions
(set! www:hook-mailto www:mailto)
(provide "www-browser")

12
Lib/www-html.stk
View File

@ -19,7 +19,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 1-Sep-1995 09:52
;;;; Last file update: 3-Sep-1999 19:57 (eg)
;;;; Last file update: 16-Sep-1999 17:17 (eg)
;;;;
(require "regexp")
@ -534,15 +534,21 @@
(define (html:href txt url href tag)
(txt 'tag 'configure tag :foreground color-old-link)
(if (and (eq? (url:service url) 'mailto) www:hook-mailto)
;; This is a "mailto:" and we know how tohandle it
(www:hook-mailto (url:filename url))
;; Othewise this is a document that we need to view
(begin
(unless (char=? (string-ref href 0) #\#)
;; It's a hack: when the href is "#xxxx", the reference is in the current
;; page (and we don't need to load it). We can't use the encoded url here
;; since the pathnam is et to / by the url package.
;; since the pathname is set to / by the url package.
(www:view-URL txt url))
(let ((anchor (url:anchor url)))
(when anchor
(let ((index (txt 'index (string-append "tag#" anchor ".first"))))
(txt 'see index)))))
(txt 'see index)))))))
;;;;
;;;; HTML:EVAL a BIG BIG BIG security hole

9
Lib/www-url.stk
View File

@ -6,7 +6,7 @@
;;; heading remains.
;;; slightly modified by Erick Gallesio (changes are noted with [eg])
;;; (Last file update: 15-Aug-1999 20:08)
;;; (Last file update: 16-Sep-1999 15:24 (eg)
;;; Usage:
@ -128,7 +128,12 @@
;;; protocol, the host name, and the file name.
(define (parse-url url . parent)
(proxitize (apply relativize (basic-parse-url url) parent)))
(proxitize (apply relativize (basic-parse-url url)
(cond
((null? parent) '())
((through-proxy? (car parent))
(list (basic-parse-url (apply unparse-url parent))))
(else parent)))))
(define (basic-parse-url url)
(let* ((base (split url-regexp url))

17
Lib/www.stk
View File

@ -17,7 +17,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 4-Oct-1996 16:14
;;;; Last file update: 3-Sep-1999 19:57 (eg)
;;;; Last file update: 16-Sep-1999 17:21 (eg)
;;
;; This module needs a library of protocol getters & file viewers to be
@ -59,6 +59,8 @@
;; (www:hook-start-loading) called when a new page is loaded
;; (www:hook-stop-loading) called when a new page has been loaded
;; (www:hook-formatting) called often when formatting (pulse)
;; (www:hook-mailto . to) tested when a mailto: is encountered
;;
;; These hooks are set by default to #f (no action)
;;
;; The exported variable
@ -77,7 +79,7 @@
(export WWW:view-url WWW:insert-url WWW:add-protocol WWW:add-viewer
WWW:stop-loading
www:hook-title www:hook-location www:hook-start-loading
www:hook-stop-loading www:hook-formatting))
www:hook-stop-loading www:hook-formatting www:hook-mailto))
(select-module WWW)
@ -93,6 +95,7 @@
(define (www:hook-stop-loading) #f) ;; called when a new page has been loaded
(define (www:hook-formatting) #f) ;; called often when formatting (pulse)
(define www:hook-mailto #f) ;; tested when a mailto: is encountered
;=============================================================================
;
@ -155,7 +158,7 @@
(www:hook-start-loading)
(let ((res (apply www:insert-url txt url parent)))
(www:hook-location (url:pretty-url url parent))
(www:hook-location (apply url:pretty-url url parent))
(tk-set! txt :state "disabled") ; make text read-only
(www:hook-stop-loading)
(set! *loading-document* #f)
@ -177,8 +180,9 @@
(apply url:parse-url url parent))))
(let ((p (url->port parsed-url))) ; Return <port, full-url, close-port>
(when p
(vector (car p) parsed-url (cdr p))))))
(if p
(vector (car p) parsed-url (cdr p))
(vector #f parsed-url #f)))))
(define (WWW:insert-url txt url . parent)
@ -199,7 +203,8 @@
'txt)
#f))))
(unless viewer ; again
(error "Don't know how to view the URL ~S" (url:pretty-url url parent))))
(error "Don't know how to handle the URL ~S" (apply url:pretty-url
url parent))))
;; Viewer is known now. Here we go
(let ((res (viewer txt port parsed-url)))

2
README
View File

@ -50,7 +50,7 @@ distribution main directory for more informations.
* New option -console to run STk in a windowed environment
(with indentation and fontification).
* define-syntax
* SRFI-{0,2,6,8}
* SRFI-{0,2,6,8,9}
* New License Policy (request for commercial apps no more needed).
* ...

145
STk.prj
View File

@ -1,11 +1,11 @@
;; -*- prcs -*-
(Created-By-Prcs-Version 1 2 14)
(Project-Description "The STk Scheme Interpreter")
(Project-Version STk 4.0.0 6)
(Parent-Version STk 4.0.0 5)
(Project-Version STk 4.0.1 3)
(Parent-Version STk 4.0.1 2)
(Version-Log "")
(New-Version-Log "")
(Checkin-Time "Sun, 05 Sep 1999 13:30:34 +0200")
(Checkin-Time "Mon, 27 Sep 1999 15:46:35 +0200")
(Checkin-Login eg)
(Populate-Ignore ("\\.o$"
"\\.a$"
@ -37,17 +37,17 @@
(Files
;; Top Level Files
(configure.in (STk/K/29_configure. 1.1.1.21 644))
(configure (STk/K/30_configure 1.1.1.22 755))
(VERSION (STk/K/31_VERSION 1.8 644))
(README (STk/K/32_README 1.8 644))
(configure.in (STk/K/29_configure. 1.1.1.22 644))
(configure (STk/K/30_configure 1.1.1.23 755))
(VERSION (STk/K/31_VERSION 1.9 644))
(README (STk/K/32_README 1.9 644))
(Makefile.in (STk/K/33_Makefile.i 1.3.1.19 644))
(INSTALL (STk/K/35_INSTALL 1.9 644))
(INSTALL.win32 (STk/i/b/46_INSTALL.wi 1.2 644))
(ChangeLog (STk/K/36_ChangeLog 1.20.1.62 644))
(ChangeLog (STk/K/36_ChangeLog 1.20.1.65 644))
(COPYRIGHTS (STk/K/37_COPYRIGHTS 1.2 644))
(COMPILING-HINTS (STk/K/38_COMPILING- 1.1 644))
(CHANGES (STk/K/39_CHANGES 1.11 644))
(CHANGES (STk/K/39_CHANGES 1.12 644))
(BINARY_DISTRIB (STk/K/40_BINARY_DIS 1.2 644))
(paths (STk/e/b/29_paths 1.1 644))
@ -116,7 +116,7 @@
(Contrib/STk-wtour/lessons/tkwait.stk (STk/L/44_tkwait.stk 1.1 644))
(Contrib/STk-wtour/lib/iu.ridge.xbm (STk/L/45_iu.ridge.x 1.1 644))
(Contrib/STk-wtour/lib/iu.seal.small.xbm (STk/L/46_iu.seal.sm 1.1 644))
(Contrib/STk-wtour/lib/wtour.stk (STk/L/47_wtour.stk 1.1 644))
(Contrib/STk-wtour/lib/wtour.stk (STk/L/47_wtour.stk 1.3 755))
(Contrib/STk-wtour/stk-wtour (STk/L/48_stk-wtour 1.1 755))
(Contrib/Socket/socket.c (STk/L/49_socket.c 1.1 644))
(Contrib/Stetris/stetris.stk (STk/L/50_stetris.st 1.3 755))
@ -183,8 +183,8 @@
(Demos/Html-Demos/animate.stk (STk/e/b/2_animate.st 1.2 644))
(Demos/Html-Demos/main-fr.html (STk/e/b/3_main-fr.ht 1.1 644))
(Demos/Html-Demos/main.html (STk/e/b/4_main.html 1.1 644))
(Demos/Makefile (STk/M/0_Makefile 1.5 644))
(Demos/README.html (STk/M/1_README.htm 1.7 644))
(Demos/Makefile (STk/M/0_Makefile 1.6 644))
(Demos/README.html (STk/M/1_README.htm 1.8 644))
(Demos/STk-normal.gif (../Lib/Images/STk-normal.gif) :symlink)
(Demos/Widget/Warrow.stklos (STk/M/2_Warrow.stk 1.1 644))
(Demos/Widget/Wbind.stklos (STk/M/3_Wbind.stkl 1.1 644))
@ -218,34 +218,34 @@
(Demos/Widget/Wtext.stklos (STk/M/28_Wtext.stkl 1.1 644))
(Demos/Widget/Wvscale.stklos (STk/M/29_Wvscale.st 1.1 644))
(Demos/Widget/Wwind.stklos (STk/M/30_Wwind.stkl 1.2 644))
(Demos/amib.stklos (STk/M/31_amib.stklo 1.6 644))
(Demos/browse.stk (STk/M/32_browse.stk 1.5 644))
(Demos/browse.stklos (STk/M/33_browse.stk 1.5 644))
(Demos/calc.stklos (STk/M/34_calc.stklo 1.3 644))
(Demos/classbrowse.stklos (STk/e/b/41_classbrows 1.2 644))
(Demos/colormap.stk (STk/M/35_colormap.s 1.4 644))
(Demos/console-demo.stk (STk/j/b/35_console-de 1.2 644))
(Demos/filebox.stklos (STk/M/37_filebox.st 1.4 644))
(Demos/hanoi.stk (STk/M/38_hanoi.stk 1.4 644))
(Demos/hello.stk (STk/M/39_hello.stk 1.2 644))
(Demos/hello.stklos (STk/M/40_hello.stkl 1.2 644))
(Demos/inspector.stk (STk/M/41_inspector. 1.2 644))
(Demos/mc-server.stk (STk/M/42_mc-server. 1.3 644))
(Demos/queens.stk (STk/M/43_queens.stk 1.1 755))
(Demos/server.stk (STk/M/44_server.stk 1.3 644))
(Demos/showvars.stk (STk/M/45_showvars.s 1.3 755))
(Demos/small-ed.stk (STk/M/46_small-ed.s 1.2 644))
(Demos/amib.stklos (STk/M/31_amib.stklo 1.6 755))
(Demos/browse.stk (STk/M/32_browse.stk 1.5 755))
(Demos/browse.stklos (STk/M/33_browse.stk 1.5 755))
(Demos/calc.stklos (STk/M/34_calc.stklo 1.3 755))
(Demos/classbrowse.stklos (STk/e/b/41_classbrows 1.2 755))
(Demos/colormap.stk (STk/M/35_colormap.s 1.4 755))
(Demos/console-demo.stk (STk/j/b/35_console-de 1.3 755))
(Demos/filebox.stklos (STk/M/37_filebox.st 1.4 755))
(Demos/hanoi.stk (STk/M/38_hanoi.stk 1.5 755))
(Demos/hello.stk (STk/M/39_hello.stk 1.2 755))
(Demos/hello.stklos (STk/M/40_hello.stkl 1.2 755))
(Demos/inspector.stk (STk/M/41_inspector. 1.2 755))
(Demos/mc-server.stk (STk/M/42_mc-server. 1.4 755))
(Demos/queens.stk (STk/M/43_queens.stk 1.2 755))
(Demos/server.stk (STk/M/44_server.stk 1.4 755))
(Demos/showvars.stk (STk/M/45_showvars.s 1.4 755))
(Demos/small-ed.stk (STk/M/46_small-ed.s 1.3 755))
(Demos/stetris.stk (../Contrib/Stetris/stetris.stk) :symlink)
(Demos/stkfontsel.stk (STk/i/b/49_stkfontsel 1.2 644))
(Demos/stklos-demo.stklos (STk/M/47_stklos-dem 1.5 644))
(Demos/stklos-demo2.stklos (STk/M/48_stklos-dem 1.5 644))
(Demos/stkfontsel.stk (STk/i/b/49_stkfontsel 1.3 755))
(Demos/stklos-demo.stklos (STk/M/47_stklos-dem 1.6 755))
(Demos/stklos-demo2.stklos (STk/M/48_stklos-dem 1.6 755))
(Demos/stklos-widgets.stklos (STk/M/49_stklos-wid 1.9 755))
(Demos/term.stk (STk/M/50_term.stk 1.3 644))
(Demos/tkcolor.stklos (STk/M/51_tkcolor.st 1.2 644))
(Demos/term.stk (STk/M/50_term.stk 1.3 755))
(Demos/tkcolor.stklos (STk/M/51_tkcolor.st 1.2 755))
(Demos/ttt.stk (STk/N/0_ttt.stk 1.1 755))
(Demos/turtle.stk (STk/N/1_turtle.stk 1.2 644))
(Demos/S-scape.stklos (STk/d/b/5_S-scape.st 1.2 644))
(Demos/widget.stk (STk/N/3_widget.stk 1.10 644))
(Demos/turtle.stk (STk/N/1_turtle.stk 1.2 777))
(Demos/S-scape.stklos (STk/d/b/5_S-scape.st 1.2 755))
(Demos/widget.stk (STk/N/3_widget.stk 1.10 744))
(Demos/wtour.stk (../Contrib/STk-wtour/lib/wtour.stk) :symlink)
;; Documentation Directory
@ -253,7 +253,7 @@
(Doc/Extension/Extending.dvi (STk/N/5_Extending. 1.8 644) :no-keywords)
(Doc/Extension/Extending.ps (STk/N/6_Extending. 1.8 644))
(Doc/Extension/Extending.tex (STk/N/7_Extending. 1.2 644))
(Doc/Extension/Makefile (STk/N/8_Makefile 1.1 644))
(Doc/Extension/Makefile (STk/N/8_Makefile 1.2 644))
(Doc/Extension/bibliography.bib (../Reference/bibliography.bib) :symlink)
(Doc/Extension/eg-commands.sty (../Reference/eg-commands.sty) :symlink)
(Doc/Extension/hash.c (../../Extensions/hash.c) :symlink)
@ -270,8 +270,8 @@
(Doc/FAQ/FAQ.html (STk/N/16_FAQ.html 1.1 644))
(Doc/FAQ/FAQ.ps (STk/N/17_FAQ.ps 1.1 644))
(Doc/FAQ/FAQ.txt (STk/N/18_FAQ.txt 1.1 644))
(Doc/Isotas96/Isotas96.dvi (STk/N/19_Isotas96.d 1.13 644) :no-keywords)
(Doc/Isotas96/Isotas96.ps (STk/N/20_Isotas96.p 1.13 644))
(Doc/Isotas96/Isotas96.dvi (STk/N/19_Isotas96.d 1.15 644) :no-keywords)
(Doc/Isotas96/Isotas96.ps (STk/N/20_Isotas96.p 1.15 644))
(Doc/Isotas96/Isotas96.tex (STk/N/21_Isotas96.t 1.1 644))
(Doc/Isotas96/Makefile (STk/N/22_Makefile 1.1 644))
(Doc/Isotas96/bibliography.bib (../bibliography.bib) :symlink)
@ -285,7 +285,7 @@
(Doc/LaTeX-packages/a4.sty (STk/N/30_a4.sty 1.1 644))
(Doc/LaTeX-packages/a4wide.sty (STk/N/31_a4wide.sty 1.1 644))
(Doc/LaTeX-packages/moreverb.sty (STk/N/32_moreverb.s 1.1 644))
(Doc/Makefile (STk/N/33_Makefile 1.2 644))
(Doc/Makefile (STk/N/33_Makefile 1.3 644))
(Doc/Manual/Makefile (STk/N/34_Makefile 1.4 644))
(Doc/Manual/STk-man.macros (STk/N/35_STk-man.ma 1.2 644))
(Doc/Manual/after.n (STk/N/36_after.n 1.1 644))
@ -357,18 +357,18 @@
(Doc/Manual/find-image.n (make-image.n) :symlink)
(Doc/Manual/repl-display-result.n (repl-display-prompt.n) :symlink)
(Doc/Manual/repl-display-prompt.n (STk/e/b/19_repl-displ 1.1 644))
(Doc/Reference/Appendix-A.tex (STk/O/44_Appendix-A 1.1 644))
(Doc/Reference/Appendix-B.tex (STk/O/45_Appendix-B 1.2 644))
(Doc/Reference/Appendix-C.tex (STk/O/46_Appendix-C 1.3 644))
(Doc/Reference/Appendix-A.tex (STk/O/44_Appendix-A 1.2 644))
(Doc/Reference/Appendix-B.tex (STk/O/45_Appendix-B 1.3 644))
(Doc/Reference/Appendix-C.tex (STk/O/46_Appendix-C 1.4 644))
(Doc/Reference/Appendix-D.tex (STk/O/47_Appendix-D 1.2 644))
(Doc/Reference/Appendix-E.tex (STk/O/48_Appendix-E 1.7 644))
(Doc/Reference/Appendix-F.tex (STk/e/b/5_Appendix-F 1.2 644))
(Doc/Reference/Appendix-E.tex (STk/O/48_Appendix-E 1.8 644))
(Doc/Reference/Appendix-F.tex (STk/e/b/5_Appendix-F 1.3 644))
(Doc/Reference/Detail.ps (STk/O/49_Detail.ps 1.1 644))
(Doc/Reference/Inspector.ps (STk/O/50_Inspector. 1.1 644))
(Doc/Reference/Makefile (STk/O/51_Makefile 1.2 644))
(Doc/Reference/Reference1.tex (STk/P/0_Reference1 1.5 644))
(Doc/Reference/Reference2.tex (STk/P/1_Reference2 1.4 644))
(Doc/Reference/Reference3.tex (STk/P/2_Reference3 1.3 644))
(Doc/Reference/Makefile (STk/O/51_Makefile 1.3 644))
(Doc/Reference/Reference1.tex (STk/P/0_Reference1 1.6 644))
(Doc/Reference/Reference2.tex (STk/P/1_Reference2 1.6 644))
(Doc/Reference/Reference3.tex (STk/P/2_Reference3 1.4 644))
(Doc/Reference/View.ps (STk/P/3_View.ps 1.1 644))
(Doc/Reference/bibliography.bib (../bibliography.bib) :symlink)
(Doc/Reference/commands.tex (STk/P/4_commands.t 1.1 644))
@ -376,8 +376,8 @@
(Doc/Reference/hierarchy.eps (STk/P/6_hierarchy. 1.1 644))
(Doc/Reference/hierarchy.fig (STk/P/7_hierarchy. 1.1 644))
(Doc/Reference/index.stk (STk/P/8_index.stk 1.1 644))
(Doc/Reference/manual.dvi (STk/P/9_manual.dvi 1.17 644) :no-keywords)
(Doc/Reference/manual.ps (STk/P/10_manual.ps 1.15 644) :no-keywords)
(Doc/Reference/manual.dvi (STk/P/9_manual.dvi 1.20 644) :no-keywords)
(Doc/Reference/manual.ps (STk/P/10_manual.ps 1.18 644) :no-keywords)
(Doc/Reference/manual.tex (STk/P/11_manual.tex 1.7 644))
(Doc/STklos+Tk/Basic-Fig-1.ps (STk/P/12_Basic-Fig- 1.1 644))
(Doc/STklos+Tk/Chap1.tex (STk/P/13_Chap1.tex 1.1 644))
@ -408,13 +408,13 @@
(Extensions/base64.c (STk/e/b/30_base64.c 1.4 644))
(Extensions/configure (STk/P/35_configure 1.2 755))
(Extensions/configure.in (STk/P/36_configure. 1.2 644))
(Extensions/hash.c (STk/P/37_hash.c 1.7 644))
(Extensions/hash.c (STk/P/37_hash.c 1.8 644))
(Extensions/html.c (STk/P/38_html.c 1.5 644))
(Extensions/jpeg.c (STk/P/39_jpeg.c 1.1 644))
(Extensions/locale.c (STk/e/b/42_locale.c 1.2 644))
(Extensions/pixmap.c (STk/P/40_pixmap.c 1.2 644))
(Extensions/pixmap.c (STk/P/40_pixmap.c 1.3 644))
(Extensions/posix.c (STk/P/41_posix.c 1.4 644))
(Extensions/process.c (STk/P/42_process.c 1.9 644))
(Extensions/process.c (STk/P/42_process.c 1.10 644))
(Extensions/socket.c (STk/P/43_socket.c 1.10 644))
(Extensions/sregexp.c (STk/P/44_sregexp.c 1.2 644))
(Extensions/stack.c (STk/P/45_stack.c 1.1 644))
@ -639,7 +639,7 @@
(Lib/help.stk (STk/S/43_help.stk 1.5 644))
(Lib/html.stk (STk/S/44_html.stk 1.1 644))
(Lib/image.stk (STk/S/45_image.stk 1.7 644))
(Lib/init.stk (STk/S/46_init.stk 1.33 644))
(Lib/init.stk (STk/S/46_init.stk 1.34 644))
(Lib/inspect-detail.stk (STk/S/47_inspect-de 1.1 644))
(Lib/inspect-help.stk (STk/S/48_inspect-he 1.1 644))
(Lib/inspect-main.stk (STk/S/49_inspect-ma 1.2 644))
@ -663,26 +663,27 @@
(Lib/security.stk (STk/T/14_security.s 1.2 644))
(Lib/slib.stk (STk/T/15_slib.stk 1.2 644))
(Lib/socket.stk (STk/T/16_socket.stk 1.4 644))
(Lib/srfi-0.stk (STk/j/b/42_srfi-0.stk 1.3 644))
(Lib/srfi-0.stk (STk/j/b/42_srfi-0.stk 1.4 644))
(Lib/srfi-2.stk (STk/j/b/43_srfi-2.stk 1.1 644))
(Lib/srfi-7.stk (STk/j/b/44_srfi-7.stk 1.2 644))
(Lib/srfi-9.stk (STk/j/b/46_srfi-9.stk 1.1 644))
(Lib/sterm.stk (STk/T/17_sterm.stk 1.4 644))
(Lib/text.stk (STk/T/18_text.stk 1.8 644))
(Lib/tk-init.stk (STk/T/19_tk-init.st 1.25 644))
(Lib/tk-init.stk (STk/T/19_tk-init.st 1.26 644))
(Lib/tk-unix.stk (STk/e/b/9_tk-unix.st 1.4 644))
(Lib/trace.stk (STk/T/20_trace.stk 1.5 644))
(Lib/unix.stk (STk/T/21_unix.stk 1.4 644))
(Lib/win32.stk (STk/j/b/27_win32.stk 1.2 644))
(Lib/winsocket.stklos (STk/j/b/36_winsocket. 1.1 644))
(Lib/www-browser.stklos (STk/c/b/29_www-browse 1.10 644))
(Lib/www-browser.stklos (STk/c/b/29_www-browse 1.11 644))
(Lib/www-file.stk (STk/T/23_www-file.s 1.4 644))
(Lib/www-html.stk (STk/T/24_www-html.s 1.5 644))
(Lib/www-html.stk (STk/T/24_www-html.s 1.6 644))
(Lib/www-http.stk (STk/T/25_www-http.s 1.3 644))
(Lib/www-img.stk (STk/T/26_www-img.st 1.7 644))
(Lib/www-snd.stk (STk/T/27_www-snd.st 1.3 644))
(Lib/www-txt.stk (STk/T/28_www-txt.st 1.3 644))
(Lib/www-url.stk (STk/T/29_www-url.st 1.5 644))
(Lib/www.stk (STk/T/30_www.stk 1.5 644))
(Lib/www-url.stk (STk/T/29_www-url.st 1.6 644))
(Lib/www.stk (STk/T/30_www.stk 1.6 644))
;; The Multiple Precision Library (Free and Gnu)
(Mp/Makefile (STk/T/31_Makefile 1.2 644))
@ -845,7 +846,7 @@
(STklos/Tk/Composite/Defbutton.stklos (STk/W/25_Defbutton. 1.4 644))
(STklos/Tk/Composite/Filebox.stklos (STk/W/26_Filebox.st 1.11 644))
(STklos/Tk/Composite/Gauge.stklos (STk/c/b/25_Gauge.stkl 1.3 644))
(STklos/Tk/Composite/Hierarchy.stklos (STk/e/b/35_Hierarchy. 1.7 644))
(STklos/Tk/Composite/Hierarchy.stklos (STk/e/b/35_Hierarchy. 1.8 644))
(STklos/Tk/Composite/Lentry.stklos (STk/W/28_Lentry.stk 1.7 644))
(STklos/Tk/Composite/Lframe.stklos (STk/W/29_Lframe.stk 1.5 644))
(STklos/Tk/Composite/Msgbox.stklos (STk/c/b/20_Msgbox.stk 1.7 644))
@ -882,7 +883,7 @@
(STklos/active-slot.stklos (STk/c/b/21_active-slo 1.2 644))
(STklos/composite-slot.stklos (STk/c/b/22_composite- 1.2 644))
(STklos/describe.stklos (STk/c/b/14_describe.s 1.4 644))
(STklos/stklos.stk (STk/c/b/10_stklos.stk 1.30 644))
(STklos/stklos.stk (STk/c/b/10_stklos.stk 1.31 644))
(STklos/trace-gf.stklos (STk/c/b/11_trace-gf.s 1.2 644))
;; Snow (Stk with NO Window) Directory
@ -967,7 +968,7 @@
(Src/cont.c (STk/X/12_cont.c 1.9 644))
(Src/dummy.c (STk/X/13_dummy.c 1.5 644))
(Src/dump.c (STk/X/14_dump.c 1.4 644))
(Src/dynload.c (STk/X/15_dynload.c 1.17 644))
(Src/dynload.c (STk/X/15_dynload.c 1.18 644))
(Src/env.c (STk/X/16_env.c 1.10 644))
(Src/error.c (STk/X/17_error.c 1.15 644))
(Src/eval.c (STk/X/18_eval.c 1.20 644))
@ -990,7 +991,7 @@
(Src/port.c (STk/X/30_port.c 1.30 644))
(Src/posix.c (../Extensions/posix.c) :symlink)
(Src/primitives.c (STk/X/31_primitives 1.27 644))
(Src/print.c (STk/X/32_print.c 1.13 644))
(Src/print.c (STk/X/32_print.c 1.14 644))
(Src/proc.c (STk/X/33_proc.c 1.6 644))
(Src/process.c (../Extensions/process.c) :symlink)
(Src/promise.c (STk/X/34_promise.c 1.2 644))
@ -999,13 +1000,13 @@
(Src/signal.c (STk/X/37_signal.c 1.14 644))
(Src/slib.c (STk/X/38_slib.c 1.19 644))
(Src/socket.c (../Extensions/socket.c) :symlink)
(Src/sport.c (STk/X/39_sport.c 1.8 644))
(Src/sport.c (STk/X/39_sport.c 1.9 644))
(Src/sport.h (STk/X/40_sport.h 1.4 644))
(Src/sregexp.c (../Extensions/sregexp.c) :symlink)
(Src/stk.c (STk/X/41_stk.c 1.2 644))
; (Src/stk.h.in (STk/j/b/25_stk.h.in 1.1 644))
(Src/stk.h (STk/j/b/28_stk.h 1.9 644)) ; Don't delete it for Windows
(Src/stkvers.h (STk/j/b/29_stkvers.h 1.2 644)) ; Should not be here (for Win32)
(Src/stkvers.h (STk/j/b/29_stkvers.h 1.3 644)) ; Should not be here (for Win32)
(Src/stklos.c (STk/X/43_stklos.c 1.20 644))
(Src/stklos.h (STk/X/44_stklos.h 1.7 644))
(Src/str.c (STk/X/45_str.c 1.5 644))
@ -1023,7 +1024,7 @@
(Src/tk-util.c (STk/Y/5_tk-util.c 1.2 644))
(Src/toplevel.c (STk/Y/6_toplevel.c 1.20 644))
(Src/trace.c (STk/Y/7_trace.c 1.4 644))
(Src/unix.c (STk/Y/8_unix.c 1.12 644))
(Src/unix.c (STk/Y/8_unix.c 1.13 644))
(Src/vport.c (STk/e/b/50_vport.c 1.3 644))
(Src/vport.h (STk/e/b/51_vport.h 1.2 644))
(Src/userinit.c (STk/Y/9_userinit.c 1.8 644))
@ -1134,7 +1135,7 @@
(Tk/generic/tkCanvImg.c (STk/a/b/4_tkCanvImg. 1.3 644))
(Tk/generic/tkCanvLine.c (STk/a/b/5_tkCanvLine 1.2 644))
(Tk/generic/tkCanvPoly.c (STk/a/b/6_tkCanvPoly 1.2 644))
(Tk/generic/tkCanvPs.c (STk/a/b/7_tkCanvPs.c 1.4 644))
(Tk/generic/tkCanvPs.c (STk/a/b/7_tkCanvPs.c 1.5 644))
(Tk/generic/tkCanvText.c (STk/a/b/8_tkCanvText 1.2 644))
(Tk/generic/tkCanvUtil.c (STk/a/b/9_tkCanvUtil 1.2 644))
(Tk/generic/tkCanvWind.c (STk/a/b/10_tkCanvWind 1.2 644))
@ -1243,8 +1244,8 @@
;; Utilities directory
(Utils/install-sh (STk/c/b/9_install-sh 1.1 755))
(Utils/STk.spec.in (STk/e/b/20_STk.spec.i 1.17 644))
(Utils/STk.spec (STk/e/b/21_STk.spec 1.23 644))
(Utils/STk.spec.in (STk/e/b/20_STk.spec.i 1.18 644))
(Utils/STk.spec (STk/e/b/21_STk.spec 1.24 644))
;=============================================================================
;

40
STklos/Tk/Composite/Hierarchy.stklos
View File

@ -14,7 +14,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 19-Aug-1998 14:02
;;;; Last file update: 3-Sep-1999 20:13 (eg)
;;;; Last file update: 15-Sep-1999 23:15 (eg)
(require "Tk-classes")
@ -81,13 +81,13 @@
(slot-set! self 'open #t)
(if (eq? (slot-ref self 'icon) *hierarchy-node*)
(slot-set! self 'icon *hierarchy-open-node*))
(update-hierarchy (slot-ref self 'parent)))
(maybe-update-hierarchy (slot-ref self 'parent)))
(define-method close-item ((self <Hierarchy-item>))
(slot-set! self 'open #f)
(if (eq? (slot-ref self 'icon) *hierarchy-open-node*)
(slot-set! self 'icon *hierarchy-node*))
(update-hierarchy (slot-ref self 'parent)))
(maybe-update-hierarchy (slot-ref self 'parent)))
;=============================================================================
;
@ -96,7 +96,8 @@
;=============================================================================
(define-class <Hierarchy-tree> (<Scroll-Canvas>)
((class :init-keyword :class :init-form "HierarchyTree")
((%redisplay :init-form #f)
(class :init-keyword :class :init-form "HierarchyTree")
(root :init-form #f)
(items-type :init-form <Hierarchy-item> :keyword :items-type)
(selection :init-form #f)))
@ -107,9 +108,7 @@
(unless (member :h-scroll-side initargs) ;; no horiz scrollbar
(set! (h-scroll-side self) #f))
;; Create the root of the hierarchy
(slot-set! self 'root (add-item self #f #f #t)) ; self, ancestor, data, node
;; Refresh the widget (not completly satisfactory)
(after 'idle (lambda() (update-hierarchy self))))
(slot-set! self 'root (add-item self #f #f #t))) ;; self, ancestor, data, node
;;;;
@ -117,10 +116,13 @@
;;;; add-leave and add-node for higher level functions)
;;;;
(define-method add-item ((self <Hierarchy-tree>) ancestor data node? icon)
(let ((ancestor (or ancestor (slot-ref self 'root)))
(class (slot-ref self 'items-type)))
(make class :parent self :ancestor ancestor :data data
(let* ((ancestor (or ancestor (slot-ref self 'root)))
(class (slot-ref self 'items-type))
(res (make class :parent self :ancestor ancestor :data data
:node? node? :icon icon)))
(maybe-update-hierarchy self)
res))
(define-method add-item ((self <Hierarchy-tree>) ancestor data node?)
(add-item self ancestor data node? #f))
@ -140,7 +142,7 @@
(ancestor (slot-ref self 'ancestor))
(children (slot-ref ancestor 'children)))
(slot-set! ancestor 'children (remove self children))
(update-hierarchy parent)))
(maybe-update-hierarchy parent)))
;;;;
;;;; Internal use methods
@ -154,6 +156,22 @@
(item (slot-ref item 'label-id)))
((Id self) 'itemconfigure item :fill bg)))
;;
;; maybe-update-hierarchy -- retain that a hier. must be updated (if necessary)
;;
(define (maybe-update-hierarchy h)
(unless (slot-ref h '%redisplay)
;; No redisplay resquested yet. Add a request
(slot-set! h '%redisplay
(after 'idle (lambda ()
(update-hierarchy h)
(slot-set! h '%redisplay #f))))))
;;
;; update-hierarchy -- display the current hierarchy
;;

4
STklos/stklos.stk
View File

@ -15,7 +15,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 20-Feb-1994 21:09
;;;; Last file update: 3-Sep-1999 20:06 (eg)
;;;; Last file update: 27-Sep-1999 12:05 (eg)
(when (provided? "stklos")
(error "STklos already initialized."))
@ -103,7 +103,7 @@
(car default)))
(if (is-a? name <class>)
name
(error "find-class: bad-class" name))))
(error "find-class: bad-class ~S" name))))
;=============================================================================

2
Src/dynload.c
View File

@ -17,7 +17,7 @@
*
* Author: Erick Gallesio [eg@kaolin.unice.fr]
* Creation date: 23-Jan-1994 19:09
* Last file update: 3-Sep-1999 20:19 (eg)
* Last file update: 14-Sep-1999 09:28 (eg)
*
* Win32 DLL support by Steve Pruitt <steve@pruitt.net>
*

4
Src/print.c
View File

@ -15,7 +15,7 @@
*
* Author: Erick Gallesio [eg@unice.fr]
* Creation date: ??-Oct-1993 ??:??
* Last file update: 3-Sep-1999 20:22 (eg)
* Last file update: 14-Sep-1999 09:23 (eg)
*
*/
@ -68,7 +68,7 @@ static void printstring(SCM s, SCM port, int mode)
if (mode == DSP_MODE) {
if (strlen(p) == len)
/* No null in the string. We can use a Puts, instead of the slow Putc */
Puts(p, port);
Puts((char *) p, port);
else
for (len = STRSIZE(s); len; len--, p++) Putc(*p, port);
} else {

4
Src/sport.c
View File

@ -16,7 +16,7 @@
*
* Author: Erick Gallesio [eg@unice.fr]
* Creation date: 17-Feb-1993 12:27
* Last file update: 3-Sep-1999 20:22 (eg)
* Last file update: 14-Sep-1999 09:26 (eg)
*
*
* This is achieved in a (surely very) dependant way. A string port is implemented
@ -124,7 +124,7 @@ PRIMITIVE STk_get_output_string(SCM port)
Err("get-output-string: string port is closed", port);
return STk_makestrg( ((struct str_iob *)PORT_FILE(port))->cnt,
((struct str_iob *)PORT_FILE(port))->base);
(char*) ((struct str_iob *)PORT_FILE(port))->base);
}
PRIMITIVE STk_input_string_portp(SCM port)

2
Src/stkvers.h
View File

@ -1 +1 @@
#define STK_VERSION "4.0.0"
#define STK_VERSION "4.0.1"

5
Src/unix.c
View File

@ -16,7 +16,7 @@
*
* Author: Erick Gallesio [eg@kaolin.unice.fr]
* Creation date: 29-Mar-1994 10:57
* Last file update: 3-Sep-1999 21:02 (eg)
* Last file update: 15-Sep-1999 18:05 (eg)
*/
#ifndef WIN32
# include <unistd.h>
@ -637,7 +637,8 @@ PRIMITIVE STk_setenv(SCM var, SCM value)
if (strchr(CHARS(var), '=')) Err("setenv!: variable contains a '='", var);
if (NSTRINGP(value)) Err("setenv!: value is not a string", value);
s = malloc(strlen(CHARS(var))+ strlen(CHARS(value)) + 2); /* 2 cause '=' & \0 */
s = STk_must_malloc(strlen(CHARS(var))+
strlen(CHARS(value)) + 2); /* 2 cause '=' & \0 */
sprintf(s, "%s=%s", CHARS(var), CHARS(value));
putenv(s);
return UNDEFINED;

3
Tk/generic/tkCanvPs.c
View File

@ -650,6 +650,9 @@ TkCanvPostscriptCmd(canvasPtr, interp, argc, argv)
if (psInfo.channelName != NULL) {
int mode;
#ifdef SCM_CODE
mode = 0;
#endif
/*
* Check that the channel is found in this interpreter and that it
* is open for writing.

33
Utils/STk.spec
View File

@ -1,10 +1,10 @@
%define release 1
Summary: Scheme Interpreter with access to the Tk toolkit
Name: STk
Version: 4.0.0
Version: 4.0.1
Release: %{release}
Copyright: distributable
Source: STk-4.0.0.tar.gz
Source: STk-4.0.1.tar.gz
Group: Development/Languages
Packager: Erick Gallesio <eg@unice.fr>
BuildRoot: /tmp/STk
@ -12,7 +12,7 @@ BuildRoot: /tmp/STk
%package devel
Summary: Header files and libraries for STk
Group: Development/Libraries
Requires: STk = 4.0.0
Requires: STk = 4.0.1
%description
STk is a R4RS Scheme interpreter which can access the Tk graphical
@ -79,24 +79,25 @@ rm -f /usr/local/lib/stk/include
%files
%doc README INSTALL CHANGES ChangeLog
/usr/local/lib/stk/4.0.0/Demos
/usr/local/lib/stk/4.0.0/Help
/usr/local/lib/stk/4.0.0/Images
/usr/local/lib/stk/4.0.0/%{machine}/stk
/usr/local/lib/stk/4.0.0/%{machine}/snow
/usr/local/lib/stk/4.0.0/%{machine}/*.so
/usr/local/lib/stk/4.0.1/Demos
/usr/local/lib/stk/4.0.1/Help
/usr/local/lib/stk/4.0.1/Images
/usr/local/lib/stk/4.0.1/%{machine}/stk
/usr/local/lib/stk/4.0.1/%{machine}/snow
/usr/local/lib/stk/4.0.1/%{machine}/*.so
/usr/local/lib/stk/4.0.0/STk
/usr/local/lib/stk/4.0.0/include
/usr/local/lib/stk/4.0.0/man
/usr/local/bin/stk-4.0.0
/usr/local/bin/snow-4.0.0
/usr/local/lib/stk/4.0.1/STk
/usr/local/lib/stk/4.0.1/include
/usr/local/lib/stk/4.0.1/man
/usr/local/bin/stk-4.0.1
/usr/local/bin/snow-4.0.1
/usr/local/bin/stk
/usr/local/bin/snow
/usr/local/doc/stk-4.0.1
%files devel
/usr/local/lib/stk/4.0.0/%{machine}/Config
/usr/local/lib/stk/4.0.0/%{machine}/Libs
/usr/local/lib/stk/4.0.1/%{machine}/Config
/usr/local/lib/stk/4.0.1/%{machine}/Libs

1
Utils/STk.spec.in
View File

@ -95,6 +95,7 @@ rm -f @prefix@/lib/stk/include
@prefix@/bin/stk
@prefix@/bin/snow
@prefix@/doc/stk-@VERSION@
%files devel

2
VERSION
View File

@ -1 +1 @@
VERSION=4.0.0
VERSION=4.0.1

132
configure vendored
View File

@ -1,7 +1,7 @@
#! /bin/sh
# Guess values for system-dependent variables and create Makefiles.
# Generated automatically using autoconf version 2.13
# Generated automatically using autoconf version 2.14.1
# Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc.
#
# This configure script is free software; the Free Software Foundation
@ -365,7 +365,7 @@ EOF
verbose=yes ;;
-version | --version | --versio | --versi | --vers)
echo "configure generated by autoconf version 2.13"
echo "configure generated by autoconf version 2.14.1"
exit 0 ;;
-with-* | --with-*)
@ -525,7 +525,7 @@ done
if test -r "$cache_file"; then
echo "loading cache $cache_file"
. $cache_file
test -f "$cache_file" && . $cache_file
else
echo "creating cache $cache_file"
> $cache_file
@ -554,7 +554,7 @@ fi
VERSION=4.0.0
VERSION=4.0.1
echo "VERSION=$VERSION" > VERSION
echo "/* File generated. DO NOT EDIT */" > Src/stkvers.h
echo "#define STK_VERSION \"$VERSION\"" > Src/stkvers.h
@ -639,7 +639,7 @@ fi
set dummy ranlib; ac_word=$2
echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
echo "configure:642: checking for $ac_word" >&5
if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then
if eval "test \"\${ac_cv_prog_RANLIB+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
if test -n "$RANLIB"; then
@ -710,7 +710,7 @@ echo "Assumming OS is $OS"
set dummy gcc; ac_word=$2
echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
echo "configure:713: checking for $ac_word" >&5
if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
if eval "test \"\${ac_cv_prog_CC+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
if test -n "$CC"; then
@ -740,7 +740,7 @@ if test -z "$CC"; then
set dummy cc; ac_word=$2
echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
echo "configure:743: checking for $ac_word" >&5
if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
if eval "test \"\${ac_cv_prog_CC+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
if test -n "$CC"; then
@ -786,12 +786,12 @@ fi
if test -z "$CC"; then
case "`uname -s`" in
*win32* | *WIN32*)
*win32* | *WIN32* | *CYGWIN*)
# Extract the first word of "cl", so it can be a program name with args.
set dummy cl; ac_word=$2
echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
echo "configure:794: checking for $ac_word" >&5
if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
if eval "test \"\${ac_cv_prog_CC+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
if test -n "$CC"; then
@ -821,8 +821,8 @@ fi
test -z "$CC" && { echo "configure: error: no acceptable cc found in \$PATH" 1>&2; exit 1; }
fi
echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works""... $ac_c" 1>&6
echo "configure:826: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works" >&5
echo $ac_n "checking whether the C compiler ($CC $CFLAGS $CPPFLAGS $LDFLAGS) works""... $ac_c" 1>&6
echo "configure:826: checking whether the C compiler ($CC $CFLAGS $CPPFLAGS $LDFLAGS) works" >&5
ac_ext=c
# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
@ -863,14 +863,14 @@ echo "$ac_t""$ac_cv_prog_cc_works" 1>&6
if test $ac_cv_prog_cc_works = no; then
{ echo "configure: error: installation or configuration problem: C compiler cannot create executables." 1>&2; exit 1; }
fi
echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler""... $ac_c" 1>&6
echo "configure:868: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler" >&5
echo $ac_n "checking whether the C compiler ($CC $CFLAGS $CPPFLAGS $LDFLAGS) is a cross-compiler""... $ac_c" 1>&6
echo "configure:868: checking whether the C compiler ($CC $CFLAGS $CPPFLAGS $LDFLAGS) is a cross-compiler" >&5
echo "$ac_t""$ac_cv_prog_cc_cross" 1>&6
cross_compiling=$ac_cv_prog_cc_cross
echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6
echo "configure:873: checking whether we are using GNU C" >&5
if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then
if eval "test \"\${ac_cv_prog_gcc+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.c <<EOF
@ -898,7 +898,7 @@ ac_save_CFLAGS="$CFLAGS"
CFLAGS=
echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6
echo "configure:901: checking whether ${CC-cc} accepts -g" >&5
if eval "test \"`echo '$''{'ac_cv_prog_cc_g'+set}'`\" = set"; then
if eval "test \"\${ac_cv_prog_cc_g+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
echo 'void f(){}' > conftest.c
@ -956,7 +956,7 @@ if test -n "$CPP" && test -d "$CPP"; then
CPP=
fi
if test -z "$CPP"; then
if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then
if eval "test \"\${ac_cv_prog_CPP+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
# This must be in double quotes, not single quotes, because CPP may get
@ -1051,7 +1051,7 @@ else
# Both variables are already set.
have_x=yes
else
if eval "test \"`echo '$''{'ac_cv_have_x'+set}'`\" = set"; then
if eval "test \"\${ac_cv_have_x+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
# One or both of the vars are not set, and there is no cached value.
@ -1350,7 +1350,7 @@ rm -f conftest*
echo $ac_n "checking for dnet_ntoa in -ldnet""... $ac_c" 1>&6
echo "configure:1352: checking for dnet_ntoa in -ldnet" >&5
ac_lib_var=`echo dnet'_'dnet_ntoa | sed 'y%./+-%__p_%'`
if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
if eval "test \"\${ac_cv_lib_$ac_lib_var+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
ac_save_LIBS="$LIBS"
@ -1391,7 +1391,7 @@ fi
echo $ac_n "checking for dnet_ntoa in -ldnet_stub""... $ac_c" 1>&6
echo "configure:1393: checking for dnet_ntoa in -ldnet_stub" >&5
ac_lib_var=`echo dnet_stub'_'dnet_ntoa | sed 'y%./+-%__p_%'`
if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
if eval "test \"\${ac_cv_lib_$ac_lib_var+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
ac_save_LIBS="$LIBS"
@ -1438,7 +1438,7 @@ fi
# on Irix 5.2, according to dickey@clark.net.
echo $ac_n "checking for gethostbyname""... $ac_c" 1>&6
echo "configure:1441: checking for gethostbyname" >&5
if eval "test \"`echo '$''{'ac_cv_func_gethostbyname'+set}'`\" = set"; then
if eval "test \"\${ac_cv_func_gethostbyname+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
@ -1451,6 +1451,7 @@ else
/* We use char because int might match the return type of a gcc2
builtin and then its argument prototype would still apply. */
char gethostbyname();
char (*f)();
int main() {
@ -1460,12 +1461,12 @@ int main() {
#if defined (__stub_gethostbyname) || defined (__stub___gethostbyname)
choke me
#else
gethostbyname();
f = gethostbyname;
#endif
; return 0; }
EOF
if { (eval echo configure:1469: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
if { (eval echo configure:1470: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
rm -rf conftest*
eval "ac_cv_func_gethostbyname=yes"
else
@ -1486,15 +1487,15 @@ fi
if test $ac_cv_func_gethostbyname = no; then
echo $ac_n "checking for gethostbyname in -lnsl""... $ac_c" 1>&6
echo "configure:1490: checking for gethostbyname in -lnsl" >&5
echo "configure:1491: checking for gethostbyname in -lnsl" >&5
ac_lib_var=`echo nsl'_'gethostbyname | sed 'y%./+-%__p_%'`
if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
if eval "test \"\${ac_cv_lib_$ac_lib_var+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
ac_save_LIBS="$LIBS"
LIBS="-lnsl $LIBS"
cat > conftest.$ac_ext <<EOF
#line 1498 "configure"
#line 1499 "configure"
#include "confdefs.h"
/* Override any gcc2 internal prototype to avoid an error. */
/* We use char because int might match the return type of a gcc2
@ -1505,7 +1506,7 @@ int main() {
gethostbyname()
; return 0; }
EOF
if { (eval echo configure:1509: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
if { (eval echo configure:1510: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
rm -rf conftest*
eval "ac_cv_lib_$ac_lib_var=yes"
else
@ -1535,12 +1536,12 @@ fi
# -lsocket must be given before -lnsl if both are needed.
# We assume that if connect needs -lnsl, so does gethostbyname.
echo $ac_n "checking for connect""... $ac_c" 1>&6
echo "configure:1539: checking for connect" >&5
if eval "test \"`echo '$''{'ac_cv_func_connect'+set}'`\" = set"; then
echo "configure:1540: checking for connect" >&5
if eval "test \"\${ac_cv_func_connect+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
#line 1544 "configure"
#line 1545 "configure"
#include "confdefs.h"
/* System header to define __stub macros and hopefully few prototypes,
which can conflict with char connect(); below. */
@ -1549,6 +1550,7 @@ else
/* We use char because int might match the return type of a gcc2
builtin and then its argument prototype would still apply. */
char connect();
char (*f)();
int main() {
@ -1558,12 +1560,12 @@ int main() {
#if defined (__stub_connect) || defined (__stub___connect)
choke me
#else
connect();
f = connect;
#endif
; return 0; }
EOF
if { (eval echo configure:1567: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
if { (eval echo configure:1569: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
rm -rf conftest*
eval "ac_cv_func_connect=yes"
else
@ -1584,15 +1586,15 @@ fi
if test $ac_cv_func_connect = no; then
echo $ac_n "checking for connect in -lsocket""... $ac_c" 1>&6
echo "configure:1588: checking for connect in -lsocket" >&5
echo "configure:1590: checking for connect in -lsocket" >&5
ac_lib_var=`echo socket'_'connect | sed 'y%./+-%__p_%'`
if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
if eval "test \"\${ac_cv_lib_$ac_lib_var+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
ac_save_LIBS="$LIBS"
LIBS="-lsocket $X_EXTRA_LIBS $LIBS"
cat > conftest.$ac_ext <<EOF
#line 1596 "configure"
#line 1598 "configure"
#include "confdefs.h"
/* Override any gcc2 internal prototype to avoid an error. */
/* We use char because int might match the return type of a gcc2
@ -1603,7 +1605,7 @@ int main() {
connect()
; return 0; }
EOF
if { (eval echo configure:1607: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
if { (eval echo configure:1609: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
rm -rf conftest*
eval "ac_cv_lib_$ac_lib_var=yes"
else
@ -1627,12 +1629,12 @@ fi
# gomez@mi.uni-erlangen.de says -lposix is necessary on A/UX.
echo $ac_n "checking for remove""... $ac_c" 1>&6
echo "configure:1631: checking for remove" >&5
if eval "test \"`echo '$''{'ac_cv_func_remove'+set}'`\" = set"; then
echo "configure:1633: checking for remove" >&5
if eval "test \"\${ac_cv_func_remove+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
#line 1636 "configure"
#line 1638 "configure"
#include "confdefs.h"
/* System header to define __stub macros and hopefully few prototypes,
which can conflict with char remove(); below. */
@ -1641,6 +1643,7 @@ else
/* We use char because int might match the return type of a gcc2
builtin and then its argument prototype would still apply. */
char remove();
char (*f)();
int main() {
@ -1650,12 +1653,12 @@ int main() {
#if defined (__stub_remove) || defined (__stub___remove)
choke me
#else
remove();
f = remove;
#endif
; return 0; }
EOF
if { (eval echo configure:1659: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
if { (eval echo configure:1662: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
rm -rf conftest*
eval "ac_cv_func_remove=yes"
else
@ -1676,15 +1679,15 @@ fi
if test $ac_cv_func_remove = no; then
echo $ac_n "checking for remove in -lposix""... $ac_c" 1>&6
echo "configure:1680: checking for remove in -lposix" >&5
echo "configure:1683: checking for remove in -lposix" >&5
ac_lib_var=`echo posix'_'remove | sed 'y%./+-%__p_%'`
if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
if eval "test \"\${ac_cv_lib_$ac_lib_var+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
ac_save_LIBS="$LIBS"
LIBS="-lposix $LIBS"
cat > conftest.$ac_ext <<EOF
#line 1688 "configure"
#line 1691 "configure"
#include "confdefs.h"
/* Override any gcc2 internal prototype to avoid an error. */
/* We use char because int might match the return type of a gcc2
@ -1695,7 +1698,7 @@ int main() {
remove()
; return 0; }
EOF
if { (eval echo configure:1699: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
if { (eval echo configure:1702: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
rm -rf conftest*
eval "ac_cv_lib_$ac_lib_var=yes"
else
@ -1719,12 +1722,12 @@ fi
# BSDI BSD/OS 2.1 needs -lipc for XOpenDisplay.
echo $ac_n "checking for shmat""... $ac_c" 1>&6
echo "configure:1723: checking for shmat" >&5
if eval "test \"`echo '$''{'ac_cv_func_shmat'+set}'`\" = set"; then
echo "configure:1726: checking for shmat" >&5
if eval "test \"\${ac_cv_func_shmat+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
#line 1728 "configure"
#line 1731 "configure"
#include "confdefs.h"
/* System header to define __stub macros and hopefully few prototypes,
which can conflict with char shmat(); below. */
@ -1733,6 +1736,7 @@ else
/* We use char because int might match the return type of a gcc2
builtin and then its argument prototype would still apply. */
char shmat();
char (*f)();
int main() {
@ -1742,12 +1746,12 @@ int main() {
#if defined (__stub_shmat) || defined (__stub___shmat)
choke me
#else
shmat();
f = shmat;
#endif
; return 0; }
EOF
if { (eval echo configure:1751: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
if { (eval echo configure:1755: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
rm -rf conftest*
eval "ac_cv_func_shmat=yes"
else
@ -1768,15 +1772,15 @@ fi
if test $ac_cv_func_shmat = no; then
echo $ac_n "checking for shmat in -lipc""... $ac_c" 1>&6
echo "configure:1772: checking for shmat in -lipc" >&5
echo "configure:1776: checking for shmat in -lipc" >&5
ac_lib_var=`echo ipc'_'shmat | sed 'y%./+-%__p_%'`
if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
if eval "test \"\${ac_cv_lib_$ac_lib_var+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
ac_save_LIBS="$LIBS"
LIBS="-lipc $LIBS"
cat > conftest.$ac_ext <<EOF
#line 1780 "configure"
#line 1784 "configure"
#include "confdefs.h"
/* Override any gcc2 internal prototype to avoid an error. */
/* We use char because int might match the return type of a gcc2
@ -1787,7 +1791,7 @@ int main() {
shmat()
; return 0; }
EOF
if { (eval echo configure:1791: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
if { (eval echo configure:1795: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
rm -rf conftest*
eval "ac_cv_lib_$ac_lib_var=yes"
else
@ -1820,15 +1824,15 @@ fi
# libraries we check for below, so use a different variable.
# --interran@uluru.Stanford.EDU, kb@cs.umb.edu.
echo $ac_n "checking for IceConnectionNumber in -lICE""... $ac_c" 1>&6
echo "configure:1824: checking for IceConnectionNumber in -lICE" >&5
echo "configure:1828: checking for IceConnectionNumber in -lICE" >&5
ac_lib_var=`echo ICE'_'IceConnectionNumber | sed 'y%./+-%__p_%'`
if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
if eval "test \"\${ac_cv_lib_$ac_lib_var+set}\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
ac_save_LIBS="$LIBS"
LIBS="-lICE $X_EXTRA_LIBS $LIBS"
cat > conftest.$ac_ext <<EOF
#line 1832 "configure"
#line 1836 "configure"
#include "confdefs.h"
/* Override any gcc2 internal prototype to avoid an error. */
/* We use char because int might match the return type of a gcc2
@ -1839,7 +1843,7 @@ int main() {
IceConnectionNumber()
; return 0; }
EOF
if { (eval echo configure:1843: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
if { (eval echo configure:1847: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
rm -rf conftest*
eval "ac_cv_lib_$ac_lib_var=yes"
else
@ -1891,16 +1895,16 @@ XLIBSW="$XLIBSW $X_PRE_LIBS -lX11 $X_EXTRA_LIBS"
#--------------------------------------------------------------------
echo $ac_n "checking fd_set and sys/select""... $ac_c" 1>&6
echo "configure:1895: checking fd_set and sys/select" >&5
echo "configure:1899: checking fd_set and sys/select" >&5
cat > conftest.$ac_ext <<EOF
#line 1897 "configure"
#line 1901 "configure"
#include "confdefs.h"
#include <sys/types.h>
int main() {
fd_set readMask, writeMask;
; return 0; }
EOF
if { (eval echo configure:1904: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
if { (eval echo configure:1908: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
rm -rf conftest*
tk_ok=yes
else
@ -1912,7 +1916,7 @@ fi
rm -f conftest*
if test $tk_ok = no; then
cat > conftest.$ac_ext <<EOF
#line 1916 "configure"
#line 1920 "configure"
#include "confdefs.h"
#include <sys/select.h>
EOF
@ -2414,7 +2418,7 @@ trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15
# Protect against shell expansion while executing Makefile rules.
# Protect against Makefile macro expansion.
cat > conftest.defs <<\EOF
s%#define \([A-Za-z_][A-Za-z0-9_]*\) *\(.*\)%-D\1=\2%g
s%#define \([^ ][^ ]*\) *\(.*\)%-D\1=\2%g
s%[ `~#$^&*(){}\\|;'"<>?]%\\&%g
s%\[%\\&%g
s%\]%\\&%g
@ -2449,7 +2453,7 @@ do
echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion"
exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;;
-version | --version | --versio | --versi | --vers | --ver | --ve | --v)
echo "$CONFIG_STATUS generated by autoconf version 2.13"
echo "$CONFIG_STATUS generated by autoconf version 2.14.1"
exit 0 ;;
-help | --help | --hel | --he | --h)
echo "\$ac_cs_usage"; exit 0 ;;
@ -2623,7 +2627,7 @@ exit 0
EOF
chmod +x $CONFIG_STATUS
rm -fr confdefs* $ac_clean_files
test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1
test "$no_create" = yes || $SHELL $CONFIG_STATUS || exit 1

2
configure.in
View File

@ -5,7 +5,7 @@ dnl to configure the system for the local environment.
AC_INIT(README)
VERSION=4.0.0
VERSION=4.0.1
echo "VERSION=$VERSION" > VERSION
echo "/* File generated. DO NOT EDIT */" > Src/stkvers.h
echo "#define STK_VERSION \"$VERSION\"" > Src/stkvers.h