1 /* BEGIN INCLUDE FILE ... qedx_buffer_io_info.incl.pl1 */
 2 /* Created:  January 1983 by G. Palter */
 3 
 4 /* Data structure used by qedx_ to invoke the caller's buffer_io procedure to read/write all or part of an editor buffer
 5    to the specified "file" */
 6 
 7 dcl  1 qedx_buffer_io_info aligned based (qbii_ptr),
 8        2 version character (8),
 9        2 editor_name character (72),                        /* for error messages */
10        2 pathname character (256) unaligned,                /* pathname of "file" to be read/written */
11        2 buffer_ptr pointer,                                /* -> the buffer to write/read */
12        2 buffer_max_lth fixed binary (21),                  /* read: maximum size of above buffer; write: ignored */
13        2 buffer_lth fixed binary (21),                      /* read: amount of data read into buffer from the "file";
14                                                                write: amount of data to write into the "file" */
15        2 direction fixed binary,                            /* whether to read/write */
16        2 flags,
17          3 default_pathname bit (1) unaligned,              /* ON => pathname above is the default for this buffer */
18          3 pad bit (35) unaligned;
19 
20 dcl  qbii_ptr pointer;
21 
22 dcl  QEDX_BUFFER_IO_INFO_VERSION_1 character (8) static options (constant) initial ("qbii_001");
23 
24 dcl (QEDX_READ_FILE           initial (1),                  /* read data from the "file" */
25      QEDX_WRITE_FILE          initial (2))                  /* write data into the "file" */
26           fixed binary static options (constant);
27 
28 /* END INCLUDE FILE ... qedx_buffer_io_info.incl.pl1 */