1%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 2% 3% File: PXNK:IO-DECLS.SL 4% Description: Declarations of constants and fluids used by I/O. 5% Author: Brian Beach, Hewlett-Packard CRC 6% Created: 22-Mar-84 7% Modified: 22-Mar-84 10:48:25 (Brian Beach) 8% Mode: Lisp 9% Package: 10% Status: Experimental (Do Not Distribute) 11% 12% (c) Copyright 1984, Hewlett-Packard Company, all rights reserved. 13% 14%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 15 16(define-constant channelclosed 0) 17(define-constant channelopenread 1) 18(define-constant channelopenwrite 2) 19(define-constant channelopenspecial 3) 20 21(define-constant maxtokensize 5000) 22 23(define-constant maxchannels 31) 24 25(fluid 26 '( 27 tokenbuffer 28 bufferlength 29 nextposition 30 channeltable 31 maxbuffer 32 channelstatus 33 maxline 34 pageposition 35 lineposition 36 unreadbuffer 37 closefunction 38 writefunction 39 readfunction 40 )) 41 42