1 /**** format: ind3,ll80,initcol6,indattr,^inddcls,dclind4,idind16 */ 2 /**** format: struclvlind2,^ifthenstmt,^ifthendo,^ifthen,^indnoniterdo */ 3 /**** format: ^inditerdo,^indnoniterend,^indthenelse,case,^indproc,^indend */ 4 /**** format: ^delnl,^insnl,comcol41,^indcom,^indblkcom,linecom,^indcomtxt */ 5 /* BEGIN INCLUDE FILE ..... ted_.incl.pl1 ..... 12/08/77 J Falksen */ 6 /* 08/11/81 jaf Added version number in place of implied pad field */ 7 8 dcl ted_ entry (ptr, fixed bin (35)) options(variable); 9 10 /* call ted_ (ted_data_p,code); */ 11 dcl ted_data_version_1 fixed bin int static options (constant) init (1001); 12 13 dcl 1 ted_data based (ted_data_p), 14 2 tedname char (32) var, /* name which should appear in error */ 15 /* messages */ 16 2 version fixed bin (35), 17 2 ted_com_p ptr, /* string to be initially executed */ 18 2 ted_com_l fixed bin (21), /* length thereof */ 19 2 ted_mode fixed bin, /* ted operating mode */ 20 /* 0 - NORMAL */ 21 /* 1 - SAFE */ 22 /* 2 - COM */ 23 /* 3 - RESTART */ 24 25 2 arg_list_p ptr, /* pointer to the argument list */ 26 2 arg_list_1 fixed bin, /* first argument to be used */ 27 2 arg_list_n fixed bin, /* last argument to be used */ 28 29 /* To avoid forcing the caller to always manufacture an argument list for */ 30 /* arg_list_p to point to, ted_ will accept additional arguments (3...n). */ 31 /* If more than 2 are present, ted_'s argument pointer will be placed in */ 32 /* arg_list_p, 3 into arg_list_1 and the number of args into arg_list_n. */ 33 34 2 return_string_p ptr, /* active function return string */ 35 2 return_string_l fixed bin (21), /* length thereof */ 36 /* b(argn) is copied into this */ 37 /* string if it exists */ 38 2 input_p ptr, /* pointer to data to be edited */ 39 2 input_l fixed bin (21), /* length of data to be edited */ 40 /* if this exists, the the data is */ 41 /* copied into b0 */ 42 2 output_p ptr, /* pointer to output segment */ 43 2 output_l fixed bin (21), /* length of output data (output) */ 44 /* if output_p = null the data is */ 45 /* put back into input area */ 46 2 temp_dir char (168); /* directory to hold work segments */ 47 48 dcl tederror_table_$ted_com_abort fixed bin(35) ext static; 49 50 51 /* END INCLUDE FILE ..... ted_.incl.pl1 ..... */