1 /*        BEGIN INCLUDE FILE comp_fntstk.incl.pl1 */
 2 
 3 /* format: style2,ind2,ll79,dclind4,idind15,comcol41,linecom */
 4 
 5      dcl fntstk_eptr    ptr;            /* font stack entry structure */
 6      dcl 1 fntstk_entry aligned based (fntstk_eptr),
 7            2 bachelor   bit (1),        /* 1= has no members */
 8            2 devfnt     fixed bin,      /* font in the device */
 9            2 fam_name   char (32),      /* family name */
10            2 famndx     fixed bin,      /* family index */
11            2 fntptr     ptr,            /* font table pointer */
12            2 mem_name   char (32),      /* /member name (or null) */
13            2 memndx     fixed bin,      /* member index */
14            2 memptr     ptr,            /* member table pointer */
15            2 name       char (65) var,  /* font name */
16            2 size       fixed bin (31), /* requested point size */
17            2 ps         fixed bin (31), /* effective point size */
18            2 fcs_str    char (8);       /* FCS string */
19 
20 /*        END INCLUDE FILE comp_fntstk.incl.pl1   */