/*	BEGIN INCLUDE FILE comp_shared.incl.pl1	*/

/* format: style2,ind2,ll79,dclind4,idind15,comcol41,linecom */

     dcl shared_version fixed bin (35) static options (constant) init (17);

     dcl 1 shared	    aligned based (const.shared_ptr),
	 2 version    fixed bin (35), /* version of this structure */
	 2 chars,
	 ( 3 sym_delim,		/* delimiter for symbols */
	   3 ttl_delim,		/* delimiter for title parts */
	   3 wrd_brkr		/* word break character */
	   )	    char (1) unal,
	   3 PAD	    char (1) unal,
	 2 cbar_type  char (4) var,	/* change bar type */
	 2 dot_add_letter		/* dot page add letter */
		    char (1) var,
	 2 EN_width   fixed bin (31), /* width of EN in current font */
	 2 eqn_refct  fixed bin,	/* equation reference counter */
	 2 footref_fcs		/* footnote ref FCS string */
		    char (8) aligned,
	 2 ftn_reset  char (8) var,	/* footnote reset mode */
	 2 ftnrefct   fixed bin,	/* footnote ref counter */
	 2 hyph_size  fixed bin (31), /* least word part size for hyphing */
	 2 if_nest,		/* if/then/else logic control */
	   3 ndx	    fixed bin,	/* depth of logic nest */
	   3 e	    (25),		/* nest entries */
				/* .if control switch */
	     4 sw	    fixed bin,	/* 0=off, 1=(then), -1=(else) */
	     4 info   aligned like text_entry.info,
	     4 line   char (256) var, /* the control line */
	 2 indctl,		/* indent ctls stack */
	   3 ndx	    fixed bin,	/* current level */
				/* switch bits */
	   3 stk	    (0:35) bit (1) unal,
	 2 input_dirname
		    char (168) var, /* dir containing current input file */
	 2 input_filename
		    char (200) var, /* current input file name */
	 2 lead	    fixed bin (31), /* current linespacing value */
	 2 lit_count  fixed bin (35), /* count of literal lines */
	 2 next_pagenmbr
		    char (32) var,	/* next page number / */
	 2 output_file
		    char (32) var,	/* output file identifier */
	 2 pagecount  fixed bin,	/* number of pages produced */
	 2 pagenum,		/* page number structure */
	   3 index    fixed bin,	/* level currently counting */
	   (
	   3 sep	    char (1) unal,	/* separator chars */
	   3 nmbr	    fixed bin (31), /* the counters */
	   3 mode			/* display modes */
		    fixed bin (8) unal
	   )	    dimension (20),
	 2 parameter  char (254) var, /* command line parameter */
	 2 param_pres bit (1),	/* passed parameter flag */
	 2 pass_counter
		    fixed bin,	/* pass counter */
	 2 picture,		/* picture blocks */
	   3 count    fixed bin,	/* number of them */
	   3 space    fixed bin (31), /* total picture space */
	   3 blk	    (10),		/* picture blocks */
	     4 type   char (4),	/* type = page/col */
	     4 place  char (4),	/* place = top/cen/bot */
	     4 ptr    ptr,		/* pointer to block */
	     4 size   fixed bin (31), /* size of the picture */
	 2 ptrs,
	 ( 3 aux_file_data_ptr,	/* -> auxiliary file data */
	   3 blank_footer_ptr,	/* -> blank page footer */
	   3 blank_header_ptr,	/* -> blank page header */
	   3 blank_text_ptr,	/* -> blank page text */
	   3 blkptr,		/* -> active text */
	   3 colptr,		/* current column */
	   3 compout_ptr,		/* iocb pointer for output */
	   3 compx_ptr,		/* iocb pointer for compx file */
	   3 ctb_ptr,		/* current line artwork table */
	   3 epftrptr,		/* even page footer block */
	   3 ephdrptr,		/* even page header block */
	   3 fcb_ptr,		/* input file control block pointer */
	   3 ftnblk_data_ptr,	/* footnote block data pointer */
	   3 footnote_header_ptr,	/* footnote header "title" */
	   3 graphic_page_ptr,	/* graphic output page */
	   3 hit_data_ptr,		/* hit data pointer */
	   3 htab_ptr,		/* horizontal tab tables */
	   3 hwrd_data_ptr,		/* local hyphenation table */
	   3 insert_ptr,		/* data entry for current input file */
	   3 opftrptr,		/* odd page footer block */
	   3 ophdrptr,		/* odd page header block */
	   3 ptb_ptr,		/* previous line artwork table */
	   3 spcl_blkptr,		/* "special" block pointer */
	   3 tbldata_ptr,		/* table column data structure */
	   3 tblkdata_ptr,		/* text block data array */
	   3 text_header_ptr	/* empty text header structure */
	   )	    ptr,
	 2 scale,			/* space conversion scale factors */
	   3 horz	    fixed bin (31), /* horizontal */
	   3 vert	    fixed bin (31), /* vertical */
	 2 source_filename
		    char (200) var, /* current source file name */
	 2 sws,			/* switch bits */
	 ( 3 bug_mode,		/* debug mode */
	   3 compout_not_headed,	/* compout is not headed */
	   3 end_input,		/* EOF for current input file */
	   3 end_output,		/* no more output is wanted */
	   3 firstpass,		/* first pass over input */
	   3 ftn_mode,		/* in footnote mode */
	   3 hyph_mode,		/* hyphenating mode */
	   3 inserting_hfc,		/* inserting hdr, ftr, or cap */
	   3 literal_mode,		/* literal line mode flag */
	   3 pageblock,		/* blocks belong to page */
	   3 picture_mode,		/* building a picture */
	   3 print_flag,		/* producing output */
	   3 purge_ftns,		/* purging footnotes */
	   3 suppress_footref,	/* suppress next footnote ref */
	   3 table_mode		/* table mode */
	   )	    bit (1) unal,
	   3 MBZ	    bit (21) unal,
	 2 trans,			/* trans table for .tr */
	   3 in	    char (128) var, /* input chars */
	   3 out	    char (128) var, /* output chars */
	 2 widow_size fixed bin (31), /* widow size */
	 2 widow_foot fixed bin (31); /* widow for footnotes */
				/* to save shared data between files/passes */
     dcl 1 save_shared  aligned like shared based (const.save_shared_ptr);

     dcl dot_addltr_symb_index
		    fixed bin static options (constant) init (12);
     dcl max_text_lines fixed bin static options (constant) init (1000);
     dcl mode_string    char (16) static options (constant)
		    init ("arbihxocalaurlru");
				/* value overlays */
     dcl flag_value	    bit (1) based;
     dcl num_value	    fixed bin (31) based;

/*	END INCLUDE FILE comp_shared.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

*/