1 /* BEGIN INCLUDE FILE linus_scal_fn.incl.pl1 -- jaw 6/29/77 */ 2 3 dcl 1 scal_fn aligned based (sclf_ptr), /* internal rep. of scalar func. */ 4 2 entry_ptr ptr, /* pointer to entry to be called */ 5 2 arg_list_ptr ptr, /* pointer to arg list for entry call */ 6 2 rslt_desc bit (36), /* descriptor for result */ 7 2 nargs fixed bin, /* number of input args */ 8 2 arg (nsclf_args_init refer (scal_fn.nargs)), 9 3 type fixed bin (4) unal, /* 1 => constant, 10 2 => linus variable 11 3 => scalar function 12 4 => set function 13 5 => expression 14 6 => data base item */ 15 3 must_convert bit (1) unal, /* on if source data must be converted prior to call */ 16 3 reserved bit (30) unal, 17 3 desc bit (36), /* descriptor of source data */ 18 3 assn_ptr ptr, /* pointer to data or result */ 19 3 assn_type fixed bin, /* assign_ type code of source data */ 20 3 assn_len fixed bin (35), /* assign_ length of source data */ 21 3 arg_desc bit (36), /* descriptor for converted arg */ 22 3 arg_assn_ptr ptr, /* assign_ ptr for converted arg */ 23 3 arg_assn_type fixed bin, /* assign_ type code of converted arg */ 24 3 arg_assn_len fixed bin (35), /* assign_ length of converted arg */ 25 3 ef_ptr ptr; /* pointer to expression or function structure */ 26 27 dcl sclf_ptr ptr; 28 dcl nsclf_args_init fixed bin; 29 30 /* END INCLUDE FILE linus_scal_fn.incl.pl1 */