1 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: GLISP; -*-
2 ;;; ---------------------------------------------------------------------------
3 ;;; Title: ACL-4.3 dependent stuff + fixups
4 ;;; Created: 1999-05-25 22:33
5 ;;; Author: Gilbert Baumann <gilbert@base-engineering.com>
6 ;;; License: MIT style (see below)
7 ;;; ---------------------------------------------------------------------------
8 ;;; (c) copyright 1998,1999 by Gilbert Baumann
10 ;;; Permission is hereby granted, free of charge, to any person obtaining
11 ;;; a copy of this software and associated documentation files (the
12 ;;; "Software"), to deal in the Software without restriction, including
13 ;;; without limitation the rights to use, copy, modify, merge, publish,
14 ;;; distribute, sublicense, and/or sell copies of the Software, and to
15 ;;; permit persons to whom the Software is furnished to do so, subject to
16 ;;; the following conditions:
18 ;;; The above copyright notice and this permission notice shall be
19 ;;; included in all copies or substantial portions of the Software.
21 ;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
22 ;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
23 ;;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
24 ;;; IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
25 ;;; CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
26 ;;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
27 ;;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
29 (export 'glisp
::read-byte-sequence
:glisp
)
30 (export 'glisp
::read-char-sequence
:glisp
)
31 (export 'glisp
::run-unix-shell-command
:glisp
)
32 (export 'glisp
::getenv
:glisp
)
34 (defun glisp::read-byte-sequence
(&rest ap
)
35 (apply #'read-sequence ap
))
37 (defun glisp::read-char-sequence
(&rest ap
)
38 (apply #'read-sequence ap
))
40 (defun glisp::open-inet-socket
(hostname port
)
42 (socket:make-socket
:remote-host hostname
47 (defmacro glisp
::with-timeout
((&rest options
) &body body
)
48 `(mp:with-timeout
,options .
,body
))
50 (defun glisp::g
/make-string
(length &rest options
)
51 (apply #'make-array length
:element-type
'base-char options
))
53 (defun glisp:run-unix-shell-command
(cmd)
56 (defun glisp::getenv
(string)