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