From dec80c6fde64819c72736bef757de43e80c2e859 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 1 May 2008 23:29:34 +0000 Subject: * interp/sockio.lisp: Remove. --- configure | 18 +++---- configure.ac | 2 +- configure.ac.pamphlet | 2 +- src/ChangeLog | 4 ++ src/interp/Makefile.in | 10 ++-- src/interp/Makefile.pamphlet | 10 ++-- src/interp/patches.lisp | 1 - src/interp/sockio.lisp | 113 ------------------------------------------ src/interp/sys-constants.boot | 29 +++++++++++ src/interp/sys-os.boot | 1 - 10 files changed, 50 insertions(+), 140 deletions(-) delete mode 100644 src/interp/sockio.lisp diff --git a/configure b/configure index 45920745..7077178a 100755 --- a/configure +++ b/configure @@ -1,6 +1,6 @@ #! /bin/sh # Guess values for system-dependent variables and create Makefiles. -# Generated by GNU Autoconf 2.60 for OpenAxiom 1.2.0-2008-04-27. +# Generated by GNU Autoconf 2.60 for OpenAxiom 1.2.0-2008-05-01. # # Report bugs to . # @@ -713,8 +713,8 @@ SHELL=${CONFIG_SHELL-/bin/sh} # Identity of this package. PACKAGE_NAME='OpenAxiom' PACKAGE_TARNAME='openaxiom' -PACKAGE_VERSION='1.2.0-2008-04-27' -PACKAGE_STRING='OpenAxiom 1.2.0-2008-04-27' +PACKAGE_VERSION='1.2.0-2008-05-01' +PACKAGE_STRING='OpenAxiom 1.2.0-2008-05-01' PACKAGE_BUGREPORT='open-axiom-bugs@lists.sf.net' ac_unique_file="src/Makefile.pamphlet" @@ -1402,7 +1402,7 @@ if test "$ac_init_help" = "long"; then # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat <<_ACEOF -\`configure' configures OpenAxiom 1.2.0-2008-04-27 to adapt to many kinds of systems. +\`configure' configures OpenAxiom 1.2.0-2008-05-01 to adapt to many kinds of systems. Usage: $0 [OPTION]... [VAR=VALUE]... @@ -1472,7 +1472,7 @@ fi if test -n "$ac_init_help"; then case $ac_init_help in - short | recursive ) echo "Configuration of OpenAxiom 1.2.0-2008-04-27:";; + short | recursive ) echo "Configuration of OpenAxiom 1.2.0-2008-05-01:";; esac cat <<\_ACEOF @@ -1576,7 +1576,7 @@ fi test -n "$ac_init_help" && exit $ac_status if $ac_init_version; then cat <<\_ACEOF -OpenAxiom configure 1.2.0-2008-04-27 +OpenAxiom configure 1.2.0-2008-05-01 generated by GNU Autoconf 2.60 Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, @@ -1590,7 +1590,7 @@ cat >config.log <<_ACEOF This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. -It was created by OpenAxiom $as_me 1.2.0-2008-04-27, which was +It was created by OpenAxiom $as_me 1.2.0-2008-05-01, which was generated by GNU Autoconf 2.60. Invocation command line was $ $0 $@ @@ -26078,7 +26078,7 @@ exec 6>&1 # report actual input values of CONFIG_FILES etc. instead of their # values after options handling. ac_log=" -This file was extended by OpenAxiom $as_me 1.2.0-2008-04-27, which was +This file was extended by OpenAxiom $as_me 1.2.0-2008-05-01, which was generated by GNU Autoconf 2.60. Invocation command line was CONFIG_FILES = $CONFIG_FILES @@ -26127,7 +26127,7 @@ Report bugs to ." _ACEOF cat >>$CONFIG_STATUS <<_ACEOF ac_cs_version="\\ -OpenAxiom config.status 1.2.0-2008-04-27 +OpenAxiom config.status 1.2.0-2008-05-01 configured by $0, generated by GNU Autoconf 2.60, with options \\"`echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\" diff --git a/configure.ac b/configure.ac index 9cff37bb..b6850ee5 100644 --- a/configure.ac +++ b/configure.ac @@ -1,6 +1,6 @@ sinclude(config/open-axiom.m4) sinclude(config/aclocal.m4) -AC_INIT([OpenAxiom], [1.2.0-2008-04-27], +AC_INIT([OpenAxiom], [1.2.0-2008-05-01], [open-axiom-bugs@lists.sf.net]) AC_CONFIG_AUX_DIR(config) diff --git a/configure.ac.pamphlet b/configure.ac.pamphlet index a42b22ad..4db7a09b 100644 --- a/configure.ac.pamphlet +++ b/configure.ac.pamphlet @@ -1108,7 +1108,7 @@ information: <>= sinclude(config/open-axiom.m4) sinclude(config/aclocal.m4) -AC_INIT([OpenAxiom], [1.2.0-2008-04-27], +AC_INIT([OpenAxiom], [1.2.0-2008-05-01], [open-axiom-bugs@lists.sf.net]) @ diff --git a/src/ChangeLog b/src/ChangeLog index 19fc995e..3420df60 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2008-05-01 Gabriel Dos Reis + + * interp/sockio.lisp: Remove. + 2008-04-29 Gabriel Dos Reis * boot/tokens.boot: Declare tokens as constants. diff --git a/src/interp/Makefile.in b/src/interp/Makefile.in index 51785beb..5b4c985d 100644 --- a/src/interp/Makefile.in +++ b/src/interp/Makefile.in @@ -68,7 +68,7 @@ OBJS= types.$(FASLEXT) sys-os.$(FASLEXT) \ setvars.$(FASLEXT) \ sfsfun-l.$(FASLEXT) sfsfun.$(FASLEXT) \ simpbool.$(FASLEXT) slam.$(FASLEXT) \ - sockio.$(FASLEXT) spad.$(FASLEXT) \ + spad.$(FASLEXT) \ spaderror.$(FASLEXT) \ template.$(FASLEXT) termrw.$(FASLEXT) \ trace.$(FASLEXT) \ @@ -325,7 +325,7 @@ hypertex.$(FASLEXT): hypertex.boot types.$(FASLEXT) ## OpenAxiom's interpreter. -patches.$(FASLEXT): patches.lisp macros.$(FASLEXT) sockio.$(FASLEXT) \ +patches.$(FASLEXT): patches.lisp macros.$(FASLEXT) \ g-timer.$(FASLEXT) sys-driver.$(FASLEXT) $(BOOTSYS) --compile --output=$@ --load-directory=. $< @@ -754,11 +754,7 @@ sys-utility.$(FASLEXT): sys-utility.boot vmlisp.$(FASLEXT) sys-os.$(FASLEXT) vmlisp.$(FASLEXT): vmlisp.lisp types.$(FASLEXT) sys-globals.$(FASLEXT) $(BOOTSYS) --compile --output=$@ --load-directory=. $< -sys-os.$(FASLEXT): sys-os.boot types.$(FASLEXT) \ - cfuns.$(FASLEXT) sockio.$(FASLEXT) - $(BOOTSYS) --compile --output=$@ --load-directory=. $< - -sockio.$(FASLEXT): sockio.lisp boot-pkg.$(FASLEXT) +sys-os.$(FASLEXT): sys-os.boot types.$(FASLEXT) cfuns.$(FASLEXT) $(BOOTSYS) --compile --output=$@ --load-directory=. $< types.$(FASLEXT): types.boot boot-pkg.$(FASLEXT) diff --git a/src/interp/Makefile.pamphlet b/src/interp/Makefile.pamphlet index e58f3b1a..461b0f66 100644 --- a/src/interp/Makefile.pamphlet +++ b/src/interp/Makefile.pamphlet @@ -147,7 +147,7 @@ OBJS= types.$(FASLEXT) sys-os.$(FASLEXT) \ setvars.$(FASLEXT) \ sfsfun-l.$(FASLEXT) sfsfun.$(FASLEXT) \ simpbool.$(FASLEXT) slam.$(FASLEXT) \ - sockio.$(FASLEXT) spad.$(FASLEXT) \ + spad.$(FASLEXT) \ spaderror.$(FASLEXT) \ template.$(FASLEXT) termrw.$(FASLEXT) \ trace.$(FASLEXT) \ @@ -627,7 +627,7 @@ hypertex.$(FASLEXT): hypertex.boot types.$(FASLEXT) ## OpenAxiom's interpreter. -patches.$(FASLEXT): patches.lisp macros.$(FASLEXT) sockio.$(FASLEXT) \ +patches.$(FASLEXT): patches.lisp macros.$(FASLEXT) \ g-timer.$(FASLEXT) sys-driver.$(FASLEXT) $(BOOTSYS) --compile --output=$@ --load-directory=. $< @@ -1056,11 +1056,7 @@ sys-utility.$(FASLEXT): sys-utility.boot vmlisp.$(FASLEXT) sys-os.$(FASLEXT) vmlisp.$(FASLEXT): vmlisp.lisp types.$(FASLEXT) sys-globals.$(FASLEXT) $(BOOTSYS) --compile --output=$@ --load-directory=. $< -sys-os.$(FASLEXT): sys-os.boot types.$(FASLEXT) \ - cfuns.$(FASLEXT) sockio.$(FASLEXT) - $(BOOTSYS) --compile --output=$@ --load-directory=. $< - -sockio.$(FASLEXT): sockio.lisp boot-pkg.$(FASLEXT) +sys-os.$(FASLEXT): sys-os.boot types.$(FASLEXT) cfuns.$(FASLEXT) $(BOOTSYS) --compile --output=$@ --load-directory=. $< types.$(FASLEXT): types.boot boot-pkg.$(FASLEXT) diff --git a/src/interp/patches.lisp b/src/interp/patches.lisp index c1fd5781..315b5649 100644 --- a/src/interp/patches.lisp +++ b/src/interp/patches.lisp @@ -32,7 +32,6 @@ ;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (import-module "macros") -(import-module "sockio") (import-module "g-timer") (import-module "sys-driver") (in-package "BOOT") diff --git a/src/interp/sockio.lisp b/src/interp/sockio.lisp deleted file mode 100644 index 0ed33463..00000000 --- a/src/interp/sockio.lisp +++ /dev/null @@ -1,113 +0,0 @@ -;; Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -;; All rights reserved. -;; Copyright (C) 2007-2008, Gabriel Dos Reis. -;; All rights reserved. -;; -;; Redistribution and use in source and binary forms, with or without -;; modification, are permitted provided that the following conditions are -;; met: -;; -;; - Redistributions of source code must retain the above copyright -;; notice, this list of conditions and the following disclaimer. -;; -;; - Redistributions in binary form must reproduce the above copyright -;; notice, this list of conditions and the following disclaimer in -;; the documentation and/or other materials provided with the -;; distribution. -;; -;; - Neither the name of The Numerical Algorithms Group Ltd. nor the -;; names of its contributors may be used to endorse or promote products -;; derived from this software without specific prior written permission. -;; -;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS -;; IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED -;; TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A -;; PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER -;; OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, -;; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, -;; PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR -;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF -;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING -;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS -;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - - - -(import-module "boot-pkg") -(in-package "BOOT") - -;; Macros for use in Boot - -;; Socket types. This list must be consistent with the one in com.h - -(defconstant SessionManager 1) -(defconstant ViewportServer 2) -(defconstant MenuServer 3) -(defconstant SessionIO 4) -(defconstant MessageServer 5) -(defconstant InterpWindow 6) -(defconstant KillSpad 7) -(defconstant DebugWindow 8) -(defconstant Forker 9) - -;; same constants for use in BOOT -(defconstant |$SessionManager| SessionManager) -(defconstant |$ViewportServer| ViewportServer) -(defconstant |$MenuServer| MenuServer) -(defconstant |$SessionIO| SessionIO) -(defconstant |$MessageServer| MessageServer) -(defconstant |$InterpWindow| InterpWindow) -(defconstant |$KillSpad| KillSpad) -(defconstant |$DebugWindow| DebugWindow) -(defconstant |$Forker| Forker) - -;; Session Manager action requests - -(defconstant CreateFrame 1) -(defconstant SwitchFrames 2) -(defconstant EndOfOutput 3) -(defconstant CallInterp 4) -(defconstant EndSession 5) -(defconstant LispCommand 6) -(defconstant SpadCommand 7) -(defconstant SendXEventToHyperTeX 8) -(defconstant QuietSpadCommand 9) -(defconstant CloseClient 10) -(defconstant QueryClients 11) -(defconstant QuerySpad 12) -(defconstant NonSmanSession 13) -(defconstant KillLispSystem 14) - -(defconstant |$CreateFrame| CreateFrame) -(defconstant |$SwitchFrames| SwitchFrames) -(defconstant |$EndOfOutput| EndOfOutput) -(defconstant |$CallInterp| CallInterp) -(defconstant |$EndSession| EndSession) -(defconstant |$LispCommand| LispCommand) -(defconstant |$SpadCommand| SpadCommand) -(defconstant |$SendXEventToHyperTeX| SendXEventToHyperTeX) -(defconstant |$QuietSpadCommand| QuietSpadCommand) -(defconstant |$CloseClient| CloseClient) -(defconstant |$QueryClients| QueryClients) -(defconstant |$QuerySpad| QuerySpad) -(defconstant |$NonSmanSession| NonSmanSession) -(defconstant |$KillLispSystem| KillLispSystem) - -;; signal types (from /usr/include/sys/signal.h) -#+(and :Lucid (not :ibm/370)) -(progn - (defconstant SIGUSR1 16) ;; user defined signal 1 - (defconstant SIGUSR2 17) ;; user defined signal 2 - ) - -#+:RIOS -(progn - (defconstant SIGUSR1 30) ;; user defined signal 1 - (defconstant SIGUSR2 31) ;; user defined signal 2 - ) - -#+:IBMPS2 -(progn - (defconstant SIGUSR1 30) ;; user defined signal 1 - (defconstant SIGUSR2 31) ;; user defined signal 2 - ) diff --git a/src/interp/sys-constants.boot b/src/interp/sys-constants.boot index 41759124..ee9a1801 100644 --- a/src/interp/sys-constants.boot +++ b/src/interp/sys-constants.boot @@ -634,3 +634,32 @@ $quitTag == )else GENSYM() )endif + +--% Constants for OpenAxiom IPC +--??? These constants should ideally be coming from a single +--??? source used by both the C and the Lisp world. +$SessionManager == 1 +$ViewportServer == 2 +$MenuServer == 3 +$SessionIO == 4 +$MessageServer == 5 +$InterpWindow == 6 +$KillSpad == 7 +$DebugWindow == 8 +$Forker == 9 + +$CreateFrame == 1 +$SwitchFrames == 2 +$EndOfOutput == 3 +$CallInterp == 4 +$EndSession == 5 +$LispCommand == 6 +$SpadCommand == 7 +$SendXEventToHyperTeX == 8 +$QuietSpadCommand == 9 +$CloseClient == 10 +$QueryClients == 11 +$QuerySpad == 12 +$NonSmanSession == 13 +$KillLispSystem == 14 + diff --git a/src/interp/sys-os.boot b/src/interp/sys-os.boot index 1b60ac6d..827ae5b3 100644 --- a/src/interp/sys-os.boot +++ b/src/interp/sys-os.boot @@ -41,7 +41,6 @@ module sys_-os import types import cfuns -import sockio )package "BOOT" )if not %hasFeature KEYWORD::GCL -- cgit v1.2.3