1           /* INCLUDE FILE lisp_io.incl.pl1   */
 2 
 3           /* data structures used by the lisp i/o system */
 4 
 5 %include lisp_iochan;
 6 
 7           /* masks for checking iochan.flags, seeing if  lisp_io_control_$fix_not_ok_iochan should be called */
 8 
 9 dcl not_ok_to_read bit(36) static init("0100010001"b),      /* mask for checking iochan.flags on input */
10     not_ok_to_write bit(36) static init("0010010001"b);/* mask for checking iochan.flags on output */
11 dcl not_ok_to_read_fixnum bit(36) static init("0100010000"b),
12     not_ok_to_write_fixnum bit(36) static init("0010010000"b);
13 
14 
15           /* miscellaneous global, static variables and atoms used by the I/O system */
16 
17 dcl lisp_static_vars_$read_print_nl_sync bit(36)  ext,
18     read_print_nl_sync bit(36) defined (lisp_static_vars_$read_print_nl_sync),
19     lisp_static_vars_$ibase ext fixed bin(71),
20     ibase fixed bin(71) defined (lisp_static_vars_$ibase),
21 
22     lisp_static_vars_$quote_atom ext fixed bin (71),
23     quote_atom fixed bin(71) defined (lisp_static_vars_$quote_atom),
24 
25     lisp_static_vars_$base ext fixed bin(71),
26     base fixed bin(71) defined ( lisp_static_vars_$base),
27 
28     lisp_static_vars_$stnopoint ext fixed bin(71),
29     stnopoint fixed bin(71) defined (lisp_static_vars_$stnopoint),
30 
31      lisp_static_vars_$tty_atom ext fixed bin(71),
32      tty_atom fixed bin(71) defined (lisp_static_vars_$tty_atom),
33      lisp_static_vars_$status_gctwa ext fixed bin(71),
34      status_gctwa fixed bin(71) defined (lisp_static_vars_$status_gctwa),
35 
36     lisp_static_vars_$s_atom ext fixed bin(71),
37     s_atom fixed bin(71) defined (lisp_static_vars_$s_atom),
38 
39     lisp_static_vars_$readtable ext fixed bin(71),
40     readtable fixed bin(71) defined (lisp_static_vars_$readtable),
41 
42     lisp_static_vars_$plus_status ext fixed bin(71),
43     plus_status fixed bin(71) defined (lisp_static_vars_$plus_status);
44 
45 %include lisp_control_chars;
46           /* END INCLUDE FILE lisp_io.incl.pl1 */
47