1 /* BEGIN INCLUDE FILE ... qedx_info.incl.pl1 */
 2 /* Created:  January 1983 by G. Palter */
 3 
 4 /* Data structure which supplies input/output arguments to qedx_ subroutine */
 5 
 6 dcl  1 qedx_info aligned based (qedx_info_ptr),
 7        2 header,                                            /* allows use of like to build automatic version */
 8          3 version character (8),
 9          3 editor_name character (72) unaligned,
10          3 buffer_io entry (pointer, bit (1) aligned),      /* procedure invoked to read/write an editor buffer */
11          3 flags,
12            4 no_rw_path bit (1) unaligned,                  /* ON => no r/w may use a pathname and R/W are illegal */
13            4 query_if_modified bit (1) unaligned,           /* ON => query on exit if modified buffers exist */
14            4 caller_does_io bit (1) unaligned,              /* ON => caller does actual work of read/write requests */
15            4 quit_forced bit (1) unaligned,                 /* set ON => user used Q or asked to punt modified buffers */
16            4 buffers_truncated bit (1) unaligned,           /* set ON => some editing lost when written */
17            4 pad bit (29) unaligned,
18          3 n_buffers fixed binary,                          /* # of buffers supplied by caller */
19        2 buffers (qedx_info_n_buffers refer (qedx_info.n_buffers)),
20          3 buffer_name character (16) unaligned,            /* name of the buffer */
21          3 buffer_pathname character (256) unaligned,       /* initial default pathname of buffer */
22          3 region_ptr pointer,                              /* -> caller's optional region */
23          3 region_max_lth fixed binary (21),                /* # of characters which will fit in caller's region */
24          3 region_initial_lth fixed binary (21),            /* # of characters in caller's region for initial read */
25          3 region_final_lth fixed binary (21),              /* set to # of characters placed in caller's region on exit */
26          3 flags,
27            4 read_write_region bit (1) unaligned,           /* ON => use caller's region as default for read/write;
28                                                                OFF => use file specified by pathname as default */
29            4 locked_pathname bit (1) unaligned,             /* ON => read/write will never change default pathname or
30                                                                      prevent qedx from trusting the default path;
31                                                                OFF => read with pathname sets ^trusted and write with
32                                                                       pathname changes the default */
33            4 execute_buffer bit (1) unaligned,              /* ON => execute it's contents before reading from terminal */
34            /*** following switches apply only when read_write_region is ON ... */
35            4 default_read_ok bit (1) unaligned,             /* ON => r without explicit pathname is OK */
36            4 default_write_ok bit (1) unaligned,            /* ON => w without explicit pathname is OK */
37            4 auto_write bit (1) unaligned,                  /* ON => automatically write buffer contents on "q" */
38            4 truncated bit (1) unaligned,                   /* set ON => edited version is too long for caller's region */
39            4 pad bit (29) unaligned;
40 
41 dcl  qedx_info_ptr pointer;
42 dcl  qedx_info_n_buffers fixed binary;                      /* needed to allocate above structure */
43 
44 dcl  QEDX_INFO_VERSION_1 character (8) static options (constant) initial ("qxi_01.1");
45 
46 /* END INCLUDE FILE ... qedx_info.incl.pl1 */