Date: 20-MAR-1989 17:20:25 GMT From: PHYOKANE@CS8700.UCG.IE To: abbottp@ASTON.AC.UK Subject: file gblvars.h sender: hea"phyokane@cs8700.ucg.ie" /* -*-C-*- gblvars.h */ /*-->gblvars*/ /**********************************************************************/ /****************************** gblvars *******************************/ /**********************************************************************/ /**********************************************************************/ /********************* General Global Variables *********************/ /**********************************************************************/ char curpath[MAXFNAME]; /* current file area */ char curext[MAXFNAME]; /* current file extension */ char curname[MAXFNAME]; /* current file name */ UNSIGN16 debug_code; /* 0 for no debug output */ char dviname[MAXFNAME]; /* DVI filespec */ char dvoname[MAXFNAME]; /* device output filespec */ char fontlist[MAXSTR]; /* FONTLIST environment string */ char fontpath[MAXFNAME]; /* font directory path */ char helpcmd[MAXSTR]; /* where to look for help */ char message[MAXMSG]; /* for formatting error messages */ /*********************************************************************** Magnification table for 144dpi, 200dpi, and 300dpi devices, computed to 20 figures and sorted by magnitude. Column 1 Column 2 Column 3 0.72*sqrt(1.2)**i sqrt(1.2)**I 1.5*sqrt(1.2)**I (I = -16,16) ***********************************************************************/ static float mag_table[] = { 0.16744898601451165028, 0.18343117374303022733, 0.20093878321741398034, 0.22011740849163627280, 0.23256803936137783874, 0.24112653986089677641, 0.25476552262595201888, 0.26414089018996352736, 0.27908164723365340649, 0.28935184783307613169, 0.30571862715114242265, 0.31696906822795623283, 0.33489797668038408779, 0.34722221739969135802, 0.34885205904206675812, 0.36686235258137090718, 0.38036288187354747940, 0.38214828393892802832, 0.40187757201646090535, 0.41666666087962962963, 0.41862247085048010974, 0.44023482309764508862, 0.45643545824825697527, 0.45857794072671363398, 0.48225308641975308642, 0.49999999305555555556, 0.50234696502057613169, 0.52828178771717410634, 0.54772254989790837033, 0.55029352887205636077, 0.57870370370370370370, 0.59999999166666666667, 0.60281635802469135802, 0.63393814526060892761, 0.65726705987749004440, 0.66035223464646763293, 0.69444444444444444444, 0.71999999000000000000, 0.72337962962962962963, 0.76072577431273071313, 0.78872047185298805327, 0.79242268157576115952, 0.83333333333333333333, 0.86399998800000000000, 0.86805555555555555556, 0.91287092917527685576, 0.94646456622358566393, 0.95090721789091339142, 1.00000000000000000000, 1.03679998560000000000, 1.04166666666666666670, 1.09544511501033222690, 1.13575747946830279670, 1.14108866146909606970, 1.20000000000000000000, 1.24415998272000000000, 1.25000000000000000000, 1.31453413801239867230, 1.36290897536196335610, 1.36930639376291528360, 1.44000000000000000000, 1.49299197926400000000, 1.50000000000000000000, 1.57744096561487840680, 1.63549077043435602730, 1.64316767251549834040, 1.72800000000000000000, 1.79159037511680000000, 1.80000000000000000000, 1.89292915873785408810, 1.96258892452122723270, 1.97180120701859800840, 2.07360000000000000000, 2.14990845014016000000, 2.16000000000000000000, 2.27151499048542490570, 2.35510670942547267930, 2.36616144842231761010, 2.48832000000000000000, 2.57989014016819200000, 2.59200000000000000000, 2.72581798858250988690, 2.82612805131056721510, 2.83939373810678113220, 2.98598400000000000000, 3.09586816820183040000, 3.11040000000000000000, 3.27098158629901186430, 3.40727248572813735860, 3.58318080000000000000, 3.73248000000000000000, 3.92517790355881423710, 4.08872698287376483030, 4.29981696000000000000, 4.47897600000000000000, 4.90647237944851779640, 5.37477120000000000000, 5.88776685533822135560, 6.44972544000000000000 }; INT16 mag_index; /* set by actfact */ #define MAGTABSIZE (sizeof(mag_table) / sizeof(float)) int g_errenc = 0; /* has an error been encountered? */ char g_logname[MAXSTR]; /* name of log file, if created */ BOOLEAN g_dolog = TRUE; /* allow log file creation */ FILE *g_logfp = (FILE*)NULL; /* log file pointer (for errors) */ char g_progname[MAXSTR]; /* program name */ FILE *plotfp = (FILE*)NULL; /* plot file pointer */ struct char_entry { /* character entry */ COORDINATE wp, hp; /* width and height in pixels */ COORDINATE xoffp, yoffp; /* x offset and y offset in pixels */ long fontrp; /* font file raster pointer */ UNSIGN32 tfmw; /* TFM width */ INT32 dx, dy; /* character escapements */ UNSIGN16 pxlw; /* pixel width == round(TFM width in */ /* pixels for .PXL files, or */ /* float(char_dx)/65536.0 for .GF and .PK */ /* files) */ INT16 refcount; /* reference count for memory management */ UNSIGN32 *rasters; /* raster description (dynamically loaded) */ #if (HPJETPLUS | POSTSCRIPT | IMPRESS | CANON_A2) BOOLEAN isloaded; /* is the character already downloaded? */ BOOLEAN font_switched; #endif /* (HPJETPLUS | POSTSCRIPT | IMPRESS | CANON_A2) */ #if HPJETPLUS BOOLEAN istoobig; /* Too big (or too odd) to be loaded */ UNSIGN16 lj_char; /* Position in printer font */ UNSIGN16 lj_font ; /* Printer font where loaded */ #endif #if CANON_A2 BOOLEAN isknown; /* Character is known */ BOOLEAN istoobig; /* Too big to be loaded */ #endif #if BBNBITGRAPH BOOLEAN istoobig; /* is the character too big for BitGraph? */ BOOLEAN isloaded; /* is the character loaded in the BitGraph?*/ INT16 bgfont, bgchar; /* BitGraph font and character */ #endif /* BBNBITGRAPH */ }; struct font_entry { struct font_entry *next; /* pointer to next font entry */ void (*charxx)(); /* pointer to chargf(), charpk(), charpxl()*/ FILE *font_file_id; /* file identifier (NULL if none) */ INT32 k; /* font number */ UNSIGN32 c; /* checksum */ UNSIGN32 d; /* design size */ UNSIGN32 s; /* scale factor */ INT32 font_space; /* computed from FNT_DEF s parameter */ UNSIGN32 font_mag; /* computed from FNT_DEF s and d parameters*/ UNSIGN32 magnification; /* magnification read from PXL file */ UNSIGN32 designsize; /* design size read from PXL file */ UNSIGN32 hppp; /* horizontal pixels/point * 2**16 */ UNSIGN32 vppp; /* vertical pixels/point * 2**16 */ INT32 min_m; /* GF bounding box values */ INT32 max_m; INT32 min_n; INT32 max_n; #if (CANON_A2 | HPJETPLUS | IMPRESS | POSTSCRIPT) UNSIGN16 font_number; /* font number (0..32767) */ INT32 used_chars; /* Number of chars used in this font */ INT32 assigned_chars; /* Number of chars assigned to printer font */ #endif /* (CANON_A2 | HPJETPLUS | IMPRESS | POSTSCRIPT) */ #if CANON_A2 COORDINATE cell_w; COORDINATE cell_h; COORDINATE cell_d; UNSIGN16 nloaded; UNSIGN32 storage; #endif /* CANON_A2 */ BYTE font_type; /* GF, PK, or PXL font file */ BYTE a; /* length of font area in n[] */ BYTE l; /* length of font name in n[] */ char n[MAXSTR]; /* font area and name */ char name[MAXSTR]; /* full name of PXL file */ struct char_entry ch[NPXLCHARS];/* character information */ }; struct font_list { FILE *font_id; /* file identifier */ INT16 use_count; /* count of "opens" */ }; struct printer_font { INT16 baseline; INT16 cell_width; INT16 cell_height; BOOLEAN orientation; BOOLEAN prop_spaceing; INT16 symbol_set; INT16 pitch; INT16 height; BOOLEAN style; INT16 typeface; INT32 slots_free; BOOLEAN toutched; struct { INT32 tex_char; /* TeX character for this printer character */ struct font_entry *tex_font; /* TeX font for this character */ } char_slots[190]; } printer_fonts[32]; INT32 cache_size; /* record of how much character raster */ /* is actually used */ float conv; /* converts DVI units to pixels */ UNSIGN16 copies; /* number of copies to print of each page */ INT16 cur_page_number; /* sequential output page number in 1..N */ INT16 cur_index; /* current index in page_ptr[] */ COORDINATE xcp,ycp; /* current position */ UNSIGN32 den; /* denominator specified in preamble */ FILE *dvifp = (FILE*)NULL; /* DVI file pointer */ struct font_entry *fontptr; /* font_entry pointer */ struct font_entry *hfontptr = (struct font_entry *)NULL; /* head font_entry pointer */ #if (CANON_A2 | HPJETPLUS | IMPRESS | POSTSCRIPT) UNSIGN16 font_count; /* used to assign unique font numbers */ struct font_entry *font_table[MAXFONTS]; #endif /* (CANON_A2 | HPJETPLUS | IMPRESS | POSTSCRIPT) */ #if (HPJETPLUS | POSTSCRIPT | IMPRESS | CANON_A2) int pf; /* current printer font */ BOOLEAN font_switched; /* TeX font has changed */ #endif /* (HPJETPLUS | POSTSCRIPT | IMPRESS | CANON_A2) */ INT16 gf_index, pk_index, pxl_index; /* indexes into filelist[] in fontfile(); */ /* they define the search order, and are */ /* in initglob(). */ UNSIGN32 gpower[33]; /* gpower[k] = 2**k-1 (k = 0..32) */ INT32 h; /* current horizontal position */ COORDINATE hh; /* current horizontal position in pixels */ #if HPLASERJET INT16 hpres; /* output resolution (75, 100, 150, 300 dpi) */ #endif /* HPLASERJET */ UNSIGN32 img_mask[32]; /* initialized at run-time so that bit k */ /* (counting from high end) is one */ UNSIGN32 img_row[(MAX_M - MIN_M + 1 + 31) >> 5]; /* current character image row of bits */ INT16 max_m, min_m, max_n, min_n; /* current character matrix extents */ UNSIGN16 img_words; /* number of words in use in img_row[] */ float leftmargin; /* left margin in inches */ COORDINATE lmargin; /* left margin offset in pixels */ INT16 nopen; /* number of open PXL files */ INT16 page_count; /* number of entries in page_ptr[] */ #if HPJETPLUS INT16 page_fonts; /* count of fonts used on current page */ #endif /* HPJETPLUS */ long page_ptr[MAXPAGE+1]; /* byte pointers to pages (reverse order) */ #if POSTSCRIPT long page_loc[MAXPAGE+1]; /* byte pointers to output pages */ INT32 page_tex[MAXPAGE+1]; /* TeX's \count0 page numbers */ #endif /* POSTSCRIPT */ INT16 page_begin[MAXREQUEST+1], page_end[MAXREQUEST+1], page_step[MAXREQUEST+1]; /* explicit page range requests */ INT16 npage; /* number of explicit page range requests */ struct font_list font_files[MAXOPEN+1]; /* list of open PXL file identifiers */ UNSIGN32 power[32]; /* power[k] = 1 << k */ #if POSTSCRIPT BOOLEAN ps_vmbug; /* reload fonts on each page when TRUE */ #endif /* POSTSCRIPT */ UNSIGN32 rightones[HOST_WORD_SIZE];/* bit masks */ #if (APPLEIMAGEWRITER | EPSON | DECLA75 | DECLN03PLUS) BOOLEAN runlengthcode = FALSE; /* this is runtime option '-r' */ #endif /* (APPLEIMAGEWRITER | EPSON | DECLA75 | DECLN03PLUS) */ #if (GOLDENDAWNGL100 | TOSHIBAP1351) BOOLEAN runlengthcode = FALSE; /* this is runtime option '-r' */ #endif /* (GOLDENDAWNGL100 | TOSHIBAP1351) */ UNSIGN32 runmag; /* runtime magnification */ UNSIGN32 mag; /* magnification specified in preamble */ UNSIGN32 num; /* numerator specified in preamble */ struct font_entry *pfontptr = (struct font_entry *)NULL; /* previous font_entry pointer */ BOOLEAN preload = TRUE; /* preload the font descriptions? */ FILE *fontfp = (FILE*)NULL; /* font file pointer */ BOOLEAN quiet = FALSE; /* suppress status display when TRUE */ BOOLEAN backwards = FALSE; /* print in backwards order */ #if (CANON_A2 | HPJETPLUS | IMPRESS | POSTSCRIPT) COORDINATE rule_height; /* parameters of last rule set */ COORDINATE rule_width; COORDINATE str_ycp; /* last string ycp value */ UNSIGN16 size_limit; /* character size limit in pixels -- larger */ /* characters are downloaded each time they */ /* are required to avoid PostScript ROM bugs */ #endif /* (CANON_A2 | HPJETPLUS | IMPRESS | POSTSCRIPT) */ #if (BSD42 | OS_TOPS20) BOOLEAN spool_output = FALSE; /* offer to send output to spooler */ #endif /* (BSD42 | OS_TOPS20) */ char subpath[MAXFNAME]; /* font substitution file path */ char subname[MAXFNAME]; /* font substitution file name field */ char subext[MAXFNAME]; /* font substitution file extension field */ char subfile[MAXFNAME]; /* font substitution filename */ INT32 tex_counter[10]; /* TeX c0..c9 counters on current page */ float topmargin; /* top margin in inches */ COORDINATE tmargin; /* top margin offset in pixels */ INT32 v; /* current vertical position */ #if VIRTUAL_FONTS BOOLEAN virt_font; /* virtual font cache flag */ struct virt_data { int cnt; char *ptr; char *base; }; struct virt_data virt_save[_NFILE];/* space for saving old FILE values */ #endif /* VIRTUAL_FONTS */ COORDINATE vv; /* current vertical position in pixels */ #if BBNBITGRAPH struct char_entry *bgcp[NBGFONTS+(NBGFONTS+2)/3][NPXLCHARS]; /* Pointer to corresponding char_entry for this BitGraph font */ /* and character. These are used to set the char_entry's */ /* status to "not loaded" when we have to reuse the BitGraph */ /* character. The array is cleared initially in devinit(). */ INT16 fullfont = 0; /* full font to load in BitGraph */ BOOLEAN g_interactive=TRUE; /* is the program running interactively */ /* (i.e., standard output not redirected)? */ INT16 partchar = FIRSTBGCHAR; /* partial font character to load in BitGraph*/ INT16 partfont = NBGFONTS; /* partial font to load in BitGraph */ INT16 pbghpos; /* previous BitGraph horizontal position */ INT16 pbgvpos; /* previous BitGraph vertical position */ INT16 pbgf = -1; /* previous BitGraph font */ COORDINATE xdiff; /* x difference */ COORDINATE xscreen; /* x screen adjustment */ COORDINATE ydiff; /* y difference */ COORDINATE yscreen; /* y screen adjustment */ long cpagep; /* pointer to current page in DVI file */ long ppagep; /* pointer to previous page in DVI file */ #if OS_TOPS20 #define jfn_plotfp (jfnof(fileno(plotfp))) int bg_length,bg_width,bg_1ccoc,bg_2ccoc,bg_modeword,bg_sysmsg; #endif /* OS_TOPS20 */ #endif /* BBNBITGRAPH */