src/glisp/dep-acl.lisp

   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
   9
  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:
  17 ;;;
  18 ;;;  The above copyright notice and this permission notice shall be
  19 ;;;  included in all copies or substantial portions of the Software.
  20 ;;;
  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.
  28
  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)
  33
  34 (defun glisp::read-byte-sequence (&rest ap)
  35   (apply #'read-sequence ap))
  36
  37 (defun glisp::read-char-sequence (&rest ap)
  38   (apply #'read-sequence ap))
  39
  40 #+ALLEGRO-V5.0
  41 (defun glisp::open-inet-socket (hostname port)
  42   (values
  43    (socket:make-socket :remote-host hostname
  44                        :remote-port port
  45                        :format :binary)
  46    :byte))
  47
  48 #-ALLEGRO-V5.0
  49 (defun glisp::open-inet-socket (hostname port)
  50   (values
  51    (ipc:open-network-stream :host hostname
  52                             :port port
  53                             :element-type '(unsigned-byte 8)
  54                             :class 'EXCL::BIDIRECTIONAL-BINARY-SOCKET-STREAM)
  55    :byte))
  56
  57 #||
  58 (defun glisp::make-server-socket (port &key (element-type '(unsigned-byte 8)))
  59 )
  60 ||#
  61
  62 (defmacro glisp::with-timeout ((&rest options) &body body)
  63   `(mp:with-timeout ,options . ,body))
  64
  65 (defun glisp::g/make-string (length &rest options)
  66   (apply #'make-array length :element-type 'base-char options))
  67
  68 (defun glisp:run-unix-shell-command (cmd)
  69   (excl:shell cmd))
  70
  71 (defun glisp::getenv (string)
  72   (sys:getenv string))