1 /* BEGIN INCLUDE FILE -- dfast_edit_info.incl.pl1 2 written 5/75 by S.E.Barr 3 */ 4 dcl 1 dfast_edit_info aligned based (edit_info_ptr), 5 2 flags aligned, 6 3 brief_mode bit (1) unal, /* ON if short messages to be used */ 7 3 build_mode bit (1) unal, /* On if in build mode */ 8 3 source_segment bit (1) unal, /* ON if segment is source */ 9 3 edit_done bit (1) unal, /* ON if current segment has been edited since save */ 10 3 basic_system bit (1) unal, /* ON if basic, OFF if fortran */ 11 3 caps_mode bit (1) unal, /* ON if running in CAPS mode */ 12 3 dbasic bit (1) unal, /* ON if double prec basic */ 13 3 pad bit (29) unal, 14 2 system_info aligned, 15 3 max_seg_size fixed bin (21), /* maximum segment size in characters */ 16 3 user_name char (32) aligned, /* person id */ 17 3 tty_id char (6) unal, /* terminal id of the form "ttynnn" */ 18 3 current_name char (256) var aligned, /* name of current segment */ 19 3 current_length fixed bin (21), /* length in characters of current segment */ 20 3 alter_length fixed bin (21), /* length in characters of the alter segment */ 21 3 current_ptr ptr, /* ptr to current segment */ 22 3 alter_ptr ptr, 23 3 home_dir char (168) var, /* home directory from pit */ 24 3 user_id char (32) var, /* login id */ 25 3 project_id char (32) var, /* login home directory */ 26 3 source_directory char (168) aligned, /* directory of where the source was. For COMPILE. */ 27 3 source_entryname char (32); /* name of the source. For COMPILE. */ 28 29 /* END INCLUDE FILE -- dfast_edit_info.incl.pl1 */