/* BEGIN INCLUDE FILE linus_set_fn.incl.pl1 -- jaw 7/13/77 

   81-10-26  Rickie  E.  Brinegar: Modified to have entry variables instead of
   entry  pointers.  This change included the addition of bit switches inorder
   to  be  able  to tell if the entry variable had been set yet.  Also changed
   the  name  of the structure from set_fn to linus_set_fn and the name of the
   variable that it was based on from setf_ptr to linus_set_fn_ptr.
   
   81-11-05 Rickie E.  Brinegar: Changed the entry pointers to entry variables
   and  added bit switches to determine when the entries have or have not been
   set.     Renamed    set_fn   sturcture   to   linus_set_fn,   setf_ptr   to
   linus_set_fn_ptr,            and            nset_fn_init_args            to
   initial_number_of_linus_set_fn_args.
   
*/

dcl 1 linus_set_fn aligned based (linus_set_fn_ptr),	/* internal rep. of set fun. */
    2 fwd_ptr ptr,					/* pointer to next set function to be eval.
						   at this level */
    2 prior_ptr ptr,				/* pointer to head of list of set functions
						   to be evaluated prior to this one */
    2 assign_entry entry variable,			/* pointer to assign entry */
    2 calc_entry entry variable,			/* pointer to calc entry */
    2 init_entry entry variable,			/* pointer to initialization entry */
    2 assign_al_ptr ptr,				/* pointer to assign entry arg list */
    2 calc_al_ptr ptr,                                      /* pointer to calc entry arg list */
    2 rtrv_al_ptr ptr,				/* pointer to arg list for dsl_$retrieve */
    2 flags,
      3 assign_entry_set bit (1) unaligned,                 /* 0 => null, 1 => not null */
      3 calc_entry_set bit (1) unaligned,                   /* 0 => null, 1 => not null */
      3 init_entry_set bit (1) unaligned,                   /* 0 => null, 1 => not null */
      3 pad_bits bit (33) unaligned,
    2 rslt_desc bit (36),				/* descriptor for result */
    2 nargs fixed bin,				/* number of input args to calc entry */
    2 arg (initial_number_of_linus_set_fn_args refer (linus_set_fn.nargs)),
      3 type fixed bin (4) unal,			/* 1 => constant
						   2 => linus variable
						   3 => scalar function
						   4 => set function
						   5 => expression
						   6 => data base item */
      3 must_convert bit (1) unal,			/* on if must convert prior to call */
      3 reserved bit (30) unal,
      3 desc bit (36),				/* descriptor of source data */
      3 assn_ptr ptr,				/* assign_ ptr for source data */
      3 assn_type fixed bin,				/* assign_ type for source data */
      3 assn_len fixed bin (35),			/* assign_ length for source data */
      3 arg_desc bit (36),				/* descriptor for converted arg */
      3 arg_assn_ptr ptr,				/* assign_ ptr for converted arg */
      3 arg_assn_type fixed bin,			/* assign_ type code for converted arg */
      3 arg_assn_len fixed bin (35),			/* assign_ length for converted arg */
      3 ef_ptr ptr;					/* pointer to express. or function structure */

dcl  initial_number_of_linus_set_fn_args fixed bin;
dcl  linus_set_fn_ptr ptr;

/* END INCLUDE FILE linus_set_fn.incl.pl1 */


*/
                                          -----------------------------------------------------------


Historical Background

This edition of the Multics software materials and documentation is provided and donated
to Massachusetts Institute of Technology by Group Bull including Bull HN Information Systems Inc. 
as a contribution to computer science knowledge.  
This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology,
Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell Bull Inc., Groupe Bull
and Bull HN Information Systems Inc. to the development of this operating system. 
Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970),
renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership
of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for 
managing computer hardware properly and for executing programs. Many subsequent operating systems 
incorporated Multics principles.
Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., 
as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. .

                                          -----------------------------------------------------------

Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without
fee is hereby granted,provided that the below copyright notice and historical background appear in all copies
and that both the copyright notice and historical background and this permission notice appear in supporting
documentation, and that the names of MIT, HIS, Bull or Bull HN not be used in advertising or publicity pertaining
to distribution of the programs without specific prior written permission.
    Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc.
    Copyright 2006 by Bull HN Information Systems Inc.
    Copyright 2006 by Bull SAS
    All Rights Reserved

*/