aboutsummaryrefslogtreecommitdiff
path: root/src/interp/sockio.lisp.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/sockio.lisp.pamphlet')
-rw-r--r--src/interp/sockio.lisp.pamphlet263
1 files changed, 0 insertions, 263 deletions
diff --git a/src/interp/sockio.lisp.pamphlet b/src/interp/sockio.lisp.pamphlet
deleted file mode 100644
index 2a585267..00000000
--- a/src/interp/sockio.lisp.pamphlet
+++ /dev/null
@@ -1,263 +0,0 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp sockio.lisp}
-\author{Timothy Daly}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
-;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-;; 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.
-
-@
-<<*>>=
-<<license>>
-
-;; load C socket functions
-
-(in-package "BOOT")
-
-#+(and :Lucid (not :ibm/370))
-(progn
- (system:define-foreign-function :c 'open_server :fixnum)
- (system:define-foreign-function :c 'sock_get_int :fixnum)
- (system:define-foreign-function :c 'sock_send_int :fixnum)
- (system:define-foreign-function :c 'sock_get_string_buf :fixnum)
- (system:define-foreign-function :c 'sock_send_string_len :fixnum)
- (system:define-foreign-function :c 'sock_get_float :single)
- (system:define-foreign-function :c 'sock_send_float :fixnum)
- (system:define-foreign-function :c 'sock_send_wakeup :fixnum)
- (system:define-foreign-function :c 'server_switch :fixnum)
- (system:define-foreign-function :c 'flush_stdout :fixnum)
- (system:define-foreign-function :c 'sock_send_signal :fixnum)
- (system:define-foreign-function :c 'print_line :fixnum)
- (system:define-foreign-function :c 'plus_infininty :single)
- (system:define-foreign-function :c 'minus_infinity :single)
- (system:define-foreign-function :c 'NANQ :single)
-)
-
-#+KCL
-(progn
- (clines "extern double plus_infinity(), minus_infinity(), NANQ();")
- (clines "extern double sock_get_float();")
-;; GCL may pass strings by value. 'sock_get_string_buf' should fill
-;; string with data read from connection, therefore needs address of
-;; actual string buffer. We use 'sock_get_string_buf_wrapper' to
-;; resolve the problem
- (clines "int sock_get_string_buf_wrapper(int i, object x, int j)"
- "{ if (type_of(x)!=t_string) FEwrong_type_argument(sLstring,x);"
- " if (x->st.st_fillp<j)"
- " FEerror(\"string too small in sock_get_string_buf_wrapper\",0);"
- " return sock_get_string_buf(i, x->st.st_self, j); }")
- (defentry open_server (string) (int "open_server"))
- (defentry sock_get_int (int) (int "sock_get_int"))
- (defentry sock_send_int (int int) (int "sock_send_int"))
- (defentry sock_get_string_buf (int object int)
- (int "sock_get_string_buf_wrapper"))
- (defentry sock_send_string_len (int string int) (int "sock_send_string_len"))
- (defentry sock_get_float (int) (double "sock_get_float"))
- (defentry sock_send_float (int double) (int "sock_send_float"))
- (defentry sock_send_wakeup (int int) (int "sock_send_wakeup"))
- (defentry server_switch () (int "server_switch"))
- (defentry flush_stdout () (int "flush_stdout"))
- (defentry sock_send_signal (int int) (int "sock_send_signal"))
- (defentry print_line (string) (int "print_line"))
- (defentry plus_infinity () (double "plus_infinity"))
- (defentry minus_infinity () (double "minus_infinity"))
- (defentry NANQ () (double "NANQ"))
- )
-
-(defun open-server (name)
-#+(and :lucid :ibm/370) -2
-#-(and :lucid :ibm/370)
- (open_server name))
-(defun sock-get-int (type)
-#+(and :lucid :ibm/370) ()
-#-(and :lucid :ibm/370)
- (sock_get_int type))
-(defun sock-send-int (type val)
-#+(and :lucid :ibm/370) ()
-#-(and :lucid :ibm/370)
- (sock_send_int type val))
-(defun sock-get-string (type buf buf-len)
-#+(and :lucid :ibm/370) ()
-#-(and :lucid :ibm/370)
- (sock_get_string_buf type buf buf-len))
-(defun sock-send-string (type str)
-#+(and :lucid :ibm/370) ()
-#-(and :lucid :ibm/370)
- (sock_send_string_len type str (length str)))
-(defun sock-get-float (type)
-#+(and :lucid :ibm/370) ()
-#-(and :lucid :ibm/370)
- (sock_get_float type))
-(defun sock-send-float (type val)
-#+(and :lucid :ibm/370) ()
-#-(and :lucid :ibm/370)
- (sock_send_float type val))
-(defun sock-send-wakeup (type)
-#+(and :lucid :ibm/370) ()
-#-(and :lucid :ibm/370)
- (sock_send_wakeup type))
-(defun server-switch ()
-#+(and :lucid :ibm/370) ()
-#-(and :lucid :ibm/370)
- (server_switch))
-(defun sock-send-signal (type signal)
-#+(and :lucid :ibm/370) ()
-#-(and :lucid :ibm/370)
- (sock_send_signal type signal))
-(defun print-line (str)
-#+(and :lucid :ibm/370) ()
-#-(and :lucid :ibm/370)
- (print_line str))
-(defun |plusInfinity| () (plus_infinity))
-(defun |minusInfinity| () (minus_infinity))
-
-;; Macros for use in Boot
-
-(defun |openServer| (name)
- (open_server name))
-(defun |sockGetInt| (type)
- (sock_get_int type))
-(defun |sockSendInt| (type val)
- (sock_send_int type val))
-(defun |sockGetString| (type buf buf-len)
- (sock_get_string_buf type buf buf-len))
-(defun |sockSendString| (type str)
- (sock_send_string_len type str (length str)))
-(defun |sockGetFloat| (type)
- (sock_get_float type))
-(defun |sockSendFloat| (type val)
- (sock_send_float type val))
-(defun |sockSendWakeup| (type)
- (sock_send_wakeup type))
-(defun |serverSwitch| ()
- (server_switch))
-(defun |sockSendSignal| (type signal)
- (sock_send_signal type signal))
-(defun |printLine| (str)
- (print_line str))
-
-;; 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 NAGLinkServer 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 |$NAGLinkServer| NAGLinkServer)
-(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
- )
-
-(setq |$NaNvalue| (NANQ))
-#-:ccl
- (setq |$plusInfinity| (* 1.1 MOST-POSITIVE-LONG-FLOAT))
-#+:ccl
- (setq |$plusInfinity| MOST-POSITIVE-LONG-FLOAT)
-(setq |$minusInfinity| (- |$plusInfinity|))
-
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}