home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / texmf / source / TeX / tex / init.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-11-01  |  25.6 KB  |  953 lines
  1. #include <limits.h>
  2. #include <stdlib.h>
  3. #include <ctype.h>
  4.  
  5. #define INITEXTERN
  6. #define EXTERN extern
  7.  
  8. #include "texd.h"
  9.  
  10. #undef VERBOSE        /* Debugging */
  11.  
  12. #ifdef atarist
  13. extern long crlfflag;    /* write \n as \r\n in textfiles ? */
  14. #endif
  15.  
  16. #ifdef AMIGA
  17. extern int do_rexx;    /* defined in arexx.c */
  18. int create_info_file = FALSE;
  19. char info_file_name[150] = "TeX:config/dvi.info";
  20. #endif
  21.  
  22. /*
  23.  *  Name des Konfigurationsfiles wird in `read_configfile()' gesetzt!!
  24.  *
  25.  */
  26.  
  27.  
  28. static void read_configfile(void);
  29. static void init_variables(void);
  30. static void debug_print_vals(void);
  31. extern void debug_print_x(void);
  32.  
  33.  
  34. #if defined(INITEX) && defined(STAT) && defined(VERBOSE)
  35. /*
  36.  * Da an einigen Stellen nicht ganz saubere Sachen verwendet werden, sollte
  37.  * hier nachgeprueft werden, ob dies auch auf dieser Maschine funktioniert.
  38.  * (Es reicht, wenn man dies nur beim Testen macht, deshalb nur wenn fuer
  39.  * TripTest STAT und INITEX definiert sind)
  40.  */
  41.  
  42. /* 1. Beim Laden eines Fonts werden nicht einzelne `getc'-Aufrufe verwendet,
  43.  * sondern gleich pack-weise `fread's ausgefuehrt.  Dabei sollte der UNION
  44.  * jedoch so liegen, dass die fourquarters richtig gelesen werden.  Ausserdem
  45.  * sollte er genau 4 Bytes lang sein, da sonst Informationen fehlen.
  46.  */
  47.   void
  48. check_architecture(void)
  49. {
  50.    SMALLmemoryword test;
  51.    int bad = 0;
  52.  
  53.    test.qqqq.b0 = 0x12;
  54.    test.qqqq.b1 = 0x34;
  55.    test.qqqq.b2 = 0x56;
  56.    test.qqqq.b3 = 0x78;
  57.  
  58.    if( test.cint == 0x78563412 )    /* LittleEndian, no BigEndian */
  59.     bad |= 1;
  60.  
  61.    if( test.cint != 0x12345678 )    /* ??? */
  62.     bad |= 2;
  63.  
  64.    if( sizeof(SMALLmemoryword) != 4 )
  65.     bad |= 4;
  66.  
  67.    if( bad ) {
  68.     fprintf(stderr, "check_architecture: Sorry bad=0%o\n", bad);
  69.     exit(1);
  70.    }
  71. }
  72. #endif
  73.  
  74.  
  75. static short alloc_ok;    /* all malloc()-calls ok ? */
  76.  
  77.    static void *
  78. check_malloc(char *name, char *type, size_t size, long len)
  79. {
  80.   void *temp;
  81.   long oldlen = len;
  82.  
  83. #ifdef VERBOSE
  84.   static long gesamt = 0L;
  85.  
  86.   gesamt += (size * len);
  87.   printf("DBG: allocate(%s, %s, %d, %d)  sum = %ld\n",
  88.     name, type, size, len, gesamt);
  89. #endif
  90.  
  91.   if( alloc_ok == 0 ) {
  92.      fprintf(stderr, "\
  93. !! (`%s' requires %ld * %ld bytes of memory [parameter `%s'])\n",
  94.     name, len, size, type);
  95.      return NULL;
  96.   }
  97.  
  98.  
  99.   /* Hat man nicht genug Speicher ist es besser, wenn man einen moeglichen
  100.      Wert angezeigt bekommt, sodass man besser mit den Parametern spielen
  101.      kann.
  102.    */
  103.   while( (temp = malloc(size*len)) == NULL ) {
  104.     len -= len/1024;
  105.     len -= 8L;
  106.     if( len < 0L )
  107.     break;
  108.   }
  109.  
  110.   if( temp == NULL ) {
  111.      fprintf(stderr, "\
  112. !! Can't allocate enough memory for `%s' [parameter `%s'].\n\
  113. !! Please decrease parameters!\n",
  114.     name, type, "", "");
  115.      alloc_ok = 0;
  116.   } else if( len != oldlen ) {
  117.      fprintf(stderr, "\
  118. !! Can't allocate enough memory for `%s' [parameter `%s'].\n\
  119. !! (Using %ld elements instead of %ld (elementsize is %ld))\n\
  120. !! Please decrease parameters for proper run!\n",
  121.     name, type, len, oldlen, size);
  122.      alloc_ok = 0;
  123.   }
  124.   return temp;
  125. }
  126.  
  127.  
  128. /***************************/
  129. /* EXTERN................. */
  130. /***************************/
  131.    void
  132. init_arrays(int debugflag)
  133. {
  134. #if defined(INITEX) && defined(STAT) && defined(VERBOSE)
  135.   check_architecture();
  136. #endif
  137.  
  138.   /* in VirTeX mark, if an extra codepage is given in
  139.    * the configuration file, which should be used instead
  140.    * of the one given in the format file
  141.    */
  142. #ifdef ERW_CODEPAGE
  143.   codepage_given = 0;
  144. #endif
  145.  
  146.   init_variables();
  147.   read_configfile();
  148.  
  149.   if( debugflag ) {
  150. #if defined(NONASCII)
  151.     debug_print_x();
  152. #endif
  153.     debug_print_vals();
  154.   }
  155.  
  156.   alloc_ok = 1;
  157.  
  158. #ifdef EQTB_ALLOC
  159.   zeqtb = (MEDmemoryword *) check_malloc( "Equivalent Table (Internal)",
  160.         "eqtbsize", sizeof(MEDmemoryword), (eqtbsize +1) );
  161.  
  162.   zzzae = (quarterword *) check_malloc( "Equivalent Table Level (Internal)",
  163.         "xeqlevel", sizeof(quarterword), (eqtbsize-intbase+1) );
  164.   /* it's more efficient to "offset" `xeqlevel' at the beginning! */
  165.   zzzae -= (long) intbase;
  166.  
  167.   zzzaf = (twohalves *) check_malloc( "Hash Table (Internal)", "hashbase",
  168.         sizeof(twohalves), (undefinedcontrolsequence - hashbase +1) );
  169.   /* it's more efficient to "offset" `hash' at the beginning! */
  170.   zzzaf -= (long)hashbase;
  171.  
  172.   /* Note: access to locations below xeqlevel[intbase] or hash[hashbase]
  173.    * is forbidden, this is (should be) checked in the code.
  174.    * (This is secure, because the original code substracts these offsets
  175.    * each time it accesses the arrays...)
  176.    */
  177. #endif
  178.  
  179.   buffer = (ASCIIcode *) check_malloc( "input buffer", "bufsize",
  180.             sizeof(ASCIIcode), (bufsize+1) );
  181.   trickbuf = (ASCIIcode *) check_malloc( "trickbuffer", "errorline",
  182.             sizeof(ASCIIcode), (errorline+1) );
  183.   linestack = (integer *) check_malloc( "linestack", "maxinopen",
  184.             sizeof(integer), (maxinopen+1) );
  185.   inputfile = (alphafile *) check_malloc( "inputfiles", "maxinopen",
  186.             sizeof(alphafile), (maxinopen+1) );
  187.   inputstack = (instaterecord *) check_malloc( "inputstack", "stacksize",
  188.             sizeof(instaterecord), (stacksize+1) );
  189.   paramstack = (halfword *) check_malloc( "parameter stack", "paramsize",
  190.             sizeof(halfword), (paramsize+1) );
  191.   nest = (liststaterecord *) check_malloc( "semantic nest", "nestsize",
  192.             sizeof(liststaterecord), (nestsize+1) );
  193.  
  194.   fontinfo = (SMALLmemoryword *) check_malloc( "fontinfo", "fontmemsize",
  195.             sizeof(SMALLmemoryword), (fontmemsize+1) );
  196.  
  197.   fontdsize = (scaled *) check_malloc( "fontdsize", "fontmax",
  198.             sizeof(scaled), (fontmax+1) );
  199.   fontsize = (scaled *) check_malloc( "fontsize", "fontmax",
  200.             sizeof(scaled), (fontmax+1) );
  201.  
  202.   fontarea = (strnumber *) check_malloc( "fontarea", "fontmax",
  203.             sizeof(strnumber), (fontmax+1) );
  204.   fontname = (strnumber *) check_malloc( "fontname", "fontmax",
  205.             sizeof(strnumber), (fontmax+1) );
  206.  
  207.   fontused = (boolean *) check_malloc( "fontused", "fontmax",
  208.             sizeof(boolean), (fontmax+1) );
  209.  
  210. #ifdef FONTSTRUCT
  211.  
  212.   fontdesc = (struct font_desc *) check_malloc( "font", "fontmax",
  213.             sizeof(struct font_desc), (fontmax+1) );
  214.  
  215. #else
  216.  
  217.   fontcheck = (fourquarters *) check_malloc( "fontcheck", "fontmax",
  218.             sizeof(fourquarters), (fontmax+1) );
  219.   fontparams = (SMALLhalfword *) check_malloc( "fontparams", "fontmax",
  220.             sizeof(SMALLhalfword), (fontmax+1) );
  221. #ifdef FONTPTR
  222.   font_bcec = (struct fnt_bcec *) check_malloc( "fontbc/ec", "fontmax",
  223.             sizeof(struct fnt_bcec), (fontmax+1) );
  224. #else
  225.   fontbc = (eightbits *) check_malloc( "fontbc", "fontmax",
  226.             sizeof(eightbits), (fontmax+1) );
  227.   fontec = (eightbits *) check_malloc( "fontec", "fontmax",
  228.             sizeof(eightbits), (fontmax+1) );
  229. #endif
  230.   fontglue = (halfword *) check_malloc( "fontglue", "fontmax",
  231.             sizeof(halfword), (fontmax+1) );
  232.   hyphenchar = (integer *) check_malloc( "hyphenchar", "fontmax",
  233.             sizeof(integer), (fontmax+1) );
  234.   skewchar = (integer *) check_malloc( "skewchar", "fontmax",
  235.             sizeof(integer), (fontmax+1) );
  236.   bcharlabel = (fontindex *) check_malloc( "bcharlabel", "fontmax",
  237.             sizeof(fontindex), (fontmax+1) );
  238.   fontbchar = (short *) check_malloc( "fontbchar", "fontmax",
  239.             sizeof(short), (fontmax+1) );
  240.   fontfalsebchar = (short *) check_malloc( "fontfalsebchar", "fontmax",
  241.             sizeof(short), (fontmax+1) );
  242. #ifdef FONTPTR
  243. # define F_BASE_EL SMALLmemoryword *
  244. #else
  245. # define F_BASE_EL integer
  246. #endif
  247.   charbase = (F_BASE_EL *) check_malloc( "charbase", "fontmax",
  248.             sizeof(F_BASE_EL), (fontmax+1) );
  249.   widthbase = (F_BASE_EL *) check_malloc( "widthbase", "fontmax",
  250.             sizeof(F_BASE_EL), (fontmax+1) );
  251.   heightbase = (F_BASE_EL *) check_malloc( "heightbase", "fontmax",
  252.             sizeof(F_BASE_EL), (fontmax+1) );
  253.   depthbase = (F_BASE_EL *) check_malloc( "depthbase", "fontmax",
  254.             sizeof(F_BASE_EL), (fontmax+1) );
  255.   italicbase = (F_BASE_EL *) check_malloc( "italicbase", "fontmax",
  256.             sizeof(F_BASE_EL), (fontmax+1) );
  257.   ligkernbase = (F_BASE_EL *) check_malloc( "ligkernbase", "fontmax",
  258.             sizeof(F_BASE_EL), (fontmax+1) );
  259.   kernbase = (F_BASE_EL *) check_malloc( "kernbase", "fontmax",
  260.             sizeof(F_BASE_EL), (fontmax+1) );
  261.   extenbase = (integer *) check_malloc( "extenbase", "fontmax",
  262.             sizeof(integer), (fontmax+1) );
  263.   parambase = (integer *) check_malloc( "parambase", "fontmax",
  264.             sizeof(integer), (fontmax+1) );
  265.  
  266. #endif
  267.  
  268.   savestack = (MEDmemoryword *) check_malloc( "savestack", "fontmax",
  269.             sizeof(MEDmemoryword), (savesize+1) );
  270.   strpool = (packedASCIIcode *) check_malloc( "strpool", "fontmax",
  271.             sizeof(packedASCIIcode), (poolsize+1) );
  272.   strstart = (poolpointer *) check_malloc( "strstart", "fontmax",
  273.             sizeof(poolpointer), (maxstrings+1) );
  274.  
  275. #ifdef HYPHSTRUCT
  276.   hyph_op = (struct hyph_op *) check_malloc( "hyphenation operands", "trieopsize",
  277.             sizeof(struct hyph_op), (trieopsize+1) );
  278. #else
  279.   hyfdistance = (smallnumber *) check_malloc( "hyfdistance", "trieopsize",
  280.             sizeof(smallnumber), (trieopsize+1) );
  281.   hyfnum = (smallnumber *) check_malloc( "hyfnum", "trieopsize",
  282.             sizeof(smallnumber), (trieopsize+1) );
  283.   hyfnext = (trieopcode *) check_malloc( "hyfnext", "trieopsize",
  284.             sizeof(trieopcode), (trieopsize+1) );
  285. #endif
  286.  
  287. #ifdef INITEX
  288.   zzzaj = (SMALLhalfword *) check_malloc( "trieophash", "trieopsize",
  289.             sizeof(SMALLhalfword), (2*trieopsize+1) );
  290.   trieoplang = (ASCIIcode *) check_malloc( "trieoplang", "trieopsize",
  291.             sizeof(ASCIIcode), (trieopsize+1) );
  292.   trieopval = (trieopcode *) check_malloc( "trieopval", "trieopsize",
  293.             sizeof(trieopcode), (trieopsize+1) );
  294. #endif
  295.  
  296.   trietrl = (halfword *) check_malloc( "trie_trl", "triesize",
  297.             sizeof(halfword), (triesize+1) );
  298.   trietro = (halfword *) check_malloc( "trie_tro", "triesize",
  299.             sizeof(halfword), (triesize+1) );
  300.   trietrc = (quarterword *) check_malloc( "trie_trc", "triesize",
  301.             sizeof(quarterword), (triesize+1) );
  302.  
  303. #ifdef INITEX
  304.   triec = (packedASCIIcode *) check_malloc( "trie_c", "triesize",
  305.             sizeof(packedASCIIcode), (triesize+1) );
  306. #ifdef ORIGTRIE
  307.   trieo = (trieopcode *) check_malloc( "trie_o", "triesize",
  308.             sizeof(trieopcode), (triesize+1) );
  309.   trietaken = (boolean *) check_malloc( "trie_taken", "triesize",
  310.             sizeof(boolean), (triesize+1) );
  311. #else
  312.   ztrie = (trie_struct *) check_malloc( "trie_o/taken", "triesize",
  313.             sizeof(trie_struct), (triesize+1) );
  314. #endif
  315.   triehash = (triepointer *) check_malloc( "trie_hash", "triesize",
  316.             sizeof(triepointer), (triesize+1) );
  317.   triel = (triepointer *) check_malloc( "trie_l", "triesize",
  318.             sizeof(triepointer), (triesize+1) );
  319.   trier = (triepointer *) check_malloc( "trie_r", "triesize",
  320.             sizeof(triepointer), (triesize+1) );
  321. #endif
  322.  
  323.   dvibuf = (eightbits *) check_malloc( "DVI buffer", "dvibufsize",
  324.             sizeof(eightbits), (dvibufsize+1) );
  325.  
  326. #ifdef DEBUG
  327.   zzzab = (boolean *) check_malloc( "free array (debug)", "memmax",
  328.             sizeof(boolean), (memmax - memmin +1) );
  329.   zzzac = (boolean *) check_malloc( "was free array (debug)", "memmax",
  330.             sizeof(boolean), (memmax - memmin +1) );
  331. #endif
  332.  
  333. #if 0  /* !defined(INITEX) && defined(atarist) */
  334.   /* Fuer `virtex' ist `memmax' der maximal zu holende Speicher.  Falls nicht
  335.    * mehr so viel vorhanden, moeglichst viel holen.
  336.    */
  337. #ifdef VERBOSE
  338.   printf("malloc mem: memmax: %d memtop: %d alloc_ok: %d \n",
  339.      memmax, memtop, alloc_ok);
  340. #endif
  341.   if( alloc_ok != 0 ) {
  342.     size_t len = memmax - memmin + 1;
  343.  
  344.     while( len >= memtop ) {
  345. #ifdef VERBOSE
  346.       printf("malloc mem-loop: len: %d memtop: %d\n", len, memtop);
  347. #endif
  348.       if( (zzzaa = (memoryword *) malloc( sizeof(memoryword) * len )) != NULL )
  349.     break;
  350.       len -= 256;
  351.     }
  352.     /* ... und fuer den Fall, dass der malloc gescheitert ist, benutzen wir
  353.      * die normale Routine, um dem Benutzer den freien Speicher noch
  354.      * anzuzeigen.
  355.      */
  356.     if( len < memtop ) {
  357.       zzzaa = (memoryword *) check_malloc( "TeX's main memory", "memmax",
  358.                 sizeof(memoryword), (memmax - memmin +1) );
  359.     } else {
  360.       /* ... ansonsten `memmax' auf den neuen Wert setzen */
  361.       memmax = len + memmin - 1;
  362.       if( debugflag )
  363.     printf("DEBUG: set memmax = %ld\n", memmax);
  364.     }
  365.   }
  366. #else
  367.   zzzaa = (memoryword *) check_malloc( "TeX's main memory", "memmax",
  368.             sizeof(memoryword), (memmax - memmin +1) );
  369. #endif
  370.  
  371.   /* all malloc()-Calls ok ? */
  372.   if( alloc_ok == 0 )
  373.     exit(2);
  374.  
  375. #ifdef AMIGA
  376.   { char *ptr;
  377.  
  378.     do_rexx = 0;
  379.     if( (ptr = getenv("TEXREXX")) != NULL ) {
  380.       if( !stricmp(ptr, "edit") )
  381.     do_rexx = 2;        /* edit file immediatly */
  382.       else
  383.     do_rexx = 1;
  384.     }
  385.   }
  386. #endif
  387. }
  388.  
  389.  
  390. #  define c_memmax        65530L
  391. #  define c_memtop        c_memmax
  392. #  define c_bufsize        2000 
  393. #  define c_errorline        79 
  394. #  define c_halferrorline    50  
  395. #  define c_maxprintline    79
  396. #  define c_stacksize        200 
  397. #  define c_maxinopen        15 
  398. #  define c_fontmax        120 
  399. #  define c_fontmemsize        36000L
  400. #  define c_maxstrings        4400 
  401. #  define c_stringvacancies    15000
  402. #  define c_poolsize        45000L
  403. #  define c_savesize        2000
  404. #  define c_paramsize        60
  405. #  define c_nestsize        40
  406. #  define c_trieopsize        500
  407. #ifdef INITEX
  408. #  define c_triesize        19000
  409. #else
  410. #  define c_triesize        16000
  411. #endif
  412. #  define c_hyphsize        608
  413. #  define c_dvibufsize        16384
  414.  
  415.  
  416. #if defined(NONASCII)
  417.    void
  418. debug_print_x(void)
  419. { short i;
  420.  
  421.   for( i = 0 ; i <= 255 ; i++ )
  422.      if( xchr[i] != i || xord[i] != i
  423.     || (printable[i] && (i < 32 || i > 126)) )
  424.  
  425.     printf("DEBUG: 0x%x:  xord[]= 0x%x  xchr[]= 0x%x  is%s printable\n",
  426.         i, xord[i], xchr[i], (printable[i] ? "" : " not") );
  427. }
  428. #endif
  429.  
  430.  
  431.    static void
  432. init_variables(void)
  433. { short i;
  434.  
  435.   /* Initialize charset:  xchr: internalASCII -> external
  436.               xord: external      -> internalASCII
  437.    */
  438.  
  439.   /* The ST use an ASCII encoding, so ... (save space) */
  440.   for( i = 0 ; i <= 255 ; i++ ) {
  441.     xchr[i] = chr(i);
  442.     /* ... and the rest is just this: (only for this xchr[] !!) */
  443.     xord[i] = i;    /* xord[xchr[i]] = i;  xord[127] = 127; */
  444.   }
  445.   /* The CodePage is read in init_variables(), it changes both arrays */
  446.  
  447.   /* Initialize printable table */
  448.   for( i = 0 ; i < 32 ; i++ )
  449.     printable[i] = 0;
  450.   for( i = 32 ; i < 127 ; i++ )
  451.     printable[i] = 1;
  452.   for( i = 127 ; i < 256 ; i++ )
  453.     printable[i] = 0;
  454.  
  455.  
  456. #if defined(INITEX) && defined(NONASCII)
  457.  
  458. #if 0
  459.   /* Vielleicht eine gute Idee... als Default nicht 1:1 Umsetzung, sondern
  460.      auch noch andere anbieten...
  461.    */
  462.   /* Setup standard Translation tables: */
  463.   /* 1. Atari ST --> Cork Extended Font Encoding */
  464.   { unsigned char table[128] = {
  465.     0xc7,    0xfc,    0xe9,    0xe2,    0xe4,    0xe0,    0xe5,    0xe7,
  466.     0xea,    0xeb,    0xe8,    0xef,    0xee,    0xec,    0xc4,    0xc5,
  467.     0xc9,    0xe6,    0xc6,    0xf4,    0xf6,    0xf2,    0xfb,    0xf9,
  468.     0xb8,    0xd6,    0xdc,    0,    0xbf,    0,    0xff,    0,
  469.     0xe1,    0xed,    0xf3,    0xfa,    0,    0,    0,    0,
  470.     0xbe,    0,    0,    0,    0,    0x1a,    0x13,    0x14,
  471.     0xe3,    0xf5,    0xd8,    0xf8,    0xf7,    0xd7,    0xc1,    0xc3,
  472.     0xd5,    0x04,    0x01,    0,    0,    0,    0,    0,
  473.     0xbc,    0x9c,    0,    0,    0,    0,    0,    0,
  474.     0,    0,    0,    0,    0,    0,    0,    0,
  475.     0,    0,    0,    0,    0,    0,    0,    0,
  476.     0,    0,    0,    0,    0,    0x9f,    0,    0,
  477.     0,    0,    0,    0,    0,    0,    0,    0,
  478.     0,    0,    0,    0,    0,    0,    0,    0,
  479.     0,    0,    0,    0,    0,    0,    0,    0,
  480.     0x06,    0x0a,    0,    0,    0,    0,    0,    0x09
  481.     }
  482.     if( std_end_flag ) {
  483.       for( i = 0 ; i < 128 ; i++ ) {
  484.     if( table[i] != 0 ) {
  485.       xchr[i+128] = table[i];
  486.       printable[i] = 1;
  487.     }
  488.       }
  489.     }
  490.   }
  491. #endif
  492. #endif
  493.  
  494.    bufsize = c_bufsize;
  495.    errorline = c_errorline;
  496.    halferrorline = c_halferrorline;
  497.    maxprintline = c_maxprintline;
  498.    stacksize = c_stacksize;
  499.    maxinopen = c_maxinopen;
  500.    fontmax = c_fontmax;
  501.    fontmemsize = c_fontmemsize;
  502.    maxstrings = c_maxstrings;
  503.    stringvacancies = c_stringvacancies;
  504.    poolsize = c_poolsize;
  505.    savesize = c_savesize;
  506.    paramsize = c_paramsize;
  507.    nestsize = c_nestsize;
  508.    triesize = c_triesize;
  509.    trieopsize = c_trieopsize;
  510.    memtop = c_memtop;
  511. /*   hyphsize = c_hyphsize; */
  512.    dvibufsize = c_dvibufsize;
  513.  
  514.    /* In INITEX sollte memtop=memmax sein, in VIRTEX kann memax >= memtop
  515.     * sein, dabei wird nur bis memtop aus dem fmt-File gelesen (es steht ja
  516.     * auch nicht mehr drin ;-)
  517.     */
  518. #ifdef INITEX
  519.    memmax = c_memtop;
  520. #else
  521.    memmax = c_memmax;
  522. #endif
  523.    /* FUER MEMBOT: !!!! */
  524.    /* Jetzt sollte man noch memmin = membot fuer IniTeX setzen und
  525.     * memmin = 0 fuer VirTeX.  Jedoch wird dann bei jedem Zugriff auf das
  526.     * `mem' Array vom Index noch `memmin' abgezogen ==> langsamer....
  527.     */
  528. }
  529.  
  530. static long crash_int;        /* temporaer */
  531.  
  532. static struct iname {
  533.     char *name;
  534.     long *value;
  535. } init_var_name[] = {
  536.     "memmax",        &memmax,
  537.     "fontmax",        &fontmax,
  538.     "fontmemsize",        &fontmemsize,
  539.     "stringvacancies",    &stringvacancies,
  540.     "maxstrings",        &maxstrings,
  541.     "poolsize",        &poolsize,
  542.     "savesize",        &savesize,
  543.     "paramsize",        ¶msize,
  544.     "nestsize",        &nestsize,
  545.     "bufsize",        &bufsize,
  546.     "errorline",        &errorline,
  547.     "halferrorline",    &halferrorline,
  548.     "maxprintline",        &maxprintline,
  549.     "maxinopen",        &maxinopen,
  550.     "stacksize",        &stacksize,
  551.     "triesize",        &triesize,
  552.     "trieopsize",        &trieopsize,
  553.     "dvibufsize",        &dvibufsize,
  554.     "memtop",        &memtop,
  555. #ifdef INITEX
  556.     "itriesize",        &triesize,
  557. #else
  558.     "itriesize",        &crash_int,
  559. #endif
  560. #ifdef atarist
  561.     "crlf",            &crlfflag,
  562. #endif
  563.     "language",        &user_language,
  564.     (char *)NULL,        (long *)NULL
  565. };
  566.  
  567.  
  568.    static void
  569. debug_print_vals()
  570. {
  571.   struct iname *ip;
  572.  
  573.   ip = init_var_name;
  574.   while( ip->name != NULL ) {
  575.     if( ip->value != &crash_int )
  576.     printf("DEBUG: %s = %ld\n", ip->name, *(ip->value));
  577.     ip++;
  578.   }
  579. }
  580.  
  581.  
  582.  
  583.    static void
  584. read_cnf(FILE *cf, char *filename)
  585. { 
  586.   unsigned char readbuf[256];
  587.   signed long temp;
  588.   unsigned char *cp, *endp;
  589.   int index;
  590.   struct iname *ip;
  591.   long cnf_line = 0;
  592.  
  593.   while (fgets((char *)readbuf, 255, cf) != NULL) {
  594.     cnf_line++;
  595.  
  596.     if (readbuf[0] == '#')        /* Ende des Files */
  597.     return;
  598.  
  599.  
  600.     /* Search for percent sign */
  601.     cp = readbuf;
  602.     while( *cp && *cp != '%' )
  603.     cp++;
  604.     if (*cp == '%')            /* Kommentarzeile */
  605.     *cp = '\0';    /* ignore rest of line */
  606.  
  607.  
  608.     /* Get first word starting in column 1 */
  609.     cp = readbuf;
  610.     while( *cp && isascii(*cp) && !isspace(*cp) )
  611.     cp++;
  612.     if( *cp == '\0' )    /* Leerzeile ? */
  613.     continue;
  614.     if( cp == readbuf )    /* faengt mit Spaces an... Zeile ignorieren */
  615.     continue;
  616.     *cp++ = '\0';    /* erstes Wort mit \0 abschliessen */
  617.  
  618.  
  619.     /* ... und gleich weiterlesen (schadet nicht) */
  620.     while( *cp && isascii(*cp) && isspace(*cp) )
  621.     cp++;
  622.  
  623.  
  624.     /* Is it an environment variable ? */
  625.     index = get_env_var_index((char *)readbuf);
  626.     if( index >= 0 ) {
  627.     if( *cp == '\0' ) {    /* anscheinend keine Dir-Liste */
  628.       fprintf(stderr,
  629.           "%s (l.%ld): No Directory list for `%s', ignored.\n",
  630.           filename, cnf_line, readbuf);
  631.        continue;
  632.     }
  633.     endp = cp;
  634.     while( *endp && isascii(*endp) && !isspace(*endp) )
  635.        endp++;
  636.     *endp = '\0';
  637.  
  638.     /* Setze Pfad */ 
  639.     do_path(index, (char *)cp);
  640.     continue;
  641.     }
  642.  
  643.  
  644. #ifdef AMIGA
  645.     /* Info-Files fuer DVI-File erzeugen.. ja oder? */
  646.     if( !strcmp("create-info", (char *)readbuf) ) {
  647.       if( !strncmp("on", cp, 2) ) {
  648.         create_info_file = TRUE;
  649.       }
  650.       continue;        /* go to next line */
  651.     }
  652.     if( !strcmp("info-file-name", (char *)readbuf) ) {
  653.       endp = cp;
  654.       while( *endp && isascii(*endp) && !isspace(*endp) )
  655.         endp++;
  656.       *endp = '\0';
  657.       if( strlen(cp) < sizeof(info_file_name) ) {
  658.         strcpy(info_file_name, cp);
  659.       }
  660.       continue;
  661.     }
  662. #endif
  663.  
  664.  
  665. #if 0
  666.     /* Include file ... subfile */
  667.     /* Dies kann zu Rekursion fuehren... aber das merkt man spaetestens
  668.      * dann, wenn keine `file descriptors' mehr vorhanden sind.
  669.      */
  670.     if( !strcmp("include", (char *)readbuf) ) {
  671.     alphafile subfp;
  672.     int flag;
  673.  
  674.     endp = cp;
  675.     while( *endp && isascii(*endp) && !isspace(*endp) )
  676.        endp++;
  677.     *endp = '\0';
  678.  
  679.     sprintf(nameoffile, " %s ", cp);
  680.     namelength = strlen(cp);
  681.     flag = aopenin(subfp, TEXCONFIGPATH);
  682.  
  683.     /* 'cf' hat undefinierten Wert, falls File nicht lesbar, deshalb ganz
  684.      * auf Nummer Sicher ...
  685.      */
  686.     if (!flag || subfp == NULL) {
  687.       fprintf(stderr,
  688.           "%s (l.%ld): Includefile `%s' not found, ignored.\n",
  689.           filename, cnf_line, cp);
  690.     } else {
  691.       read_cnf(subfp, (char *)cp);
  692.       aclose(subfp);
  693.     }
  694.         continue;
  695.     }
  696. #endif /* include */
  697.  
  698.  
  699.     /* Starting a codepage ... ? */
  700.     if( !strcmp("codepage", (char *)readbuf) ) {
  701.  
  702. #if defined(NONASCII)
  703.     short c1, c2, op, tmp;
  704.  
  705. #ifdef ERW_CODEPAGE
  706.     /* codepage for VirTeX is marked with a `*' after `codepage' */
  707.     if( *cp == '*' )
  708.       codepage_given = 1;
  709. #endif
  710.  
  711.     while (fgets((char *)readbuf, 255, cf) != NULL) {
  712.       cnf_line++;
  713.       cp = readbuf;
  714.       op = 0;
  715.  
  716.       /* read over whitespace before first number/operand */
  717.       while( *cp && isascii(*cp) && isspace(*cp) )
  718.         cp++;
  719.  
  720. #define is_hex(c) \
  721.   ( ((c) >= '0' && (c) <= '9') || ((c) >= 'a' && ((c) <= 'f')) )
  722.  
  723.       /* Read number 1 */
  724.       if( *cp == '<' ) {
  725.          op = 3;
  726.          c1 = 1;
  727.       } else if( *cp == '^' && *(cp + 1) == '^'
  728.           && *((unsigned char *)(cp + 2)) < 128 ) {
  729.          cp += 2;
  730.          c1 = *cp;
  731.          tmp = *(cp + 1);
  732.          if( is_hex(c1) && is_hex(tmp) ) {
  733.         c1 = ( (c1 <= '9') ? (c1 - '0') : (c1 - 'a' + 10) ) * 16
  734.             + ((tmp <= '9') ? (tmp - '0') : (tmp - 'a' + 10)) ;
  735.         cp++;
  736.          } else
  737.         c1 += ( c1 < 64 ) ? +64 : -64;
  738.       } else if( *cp == '\0' ) {
  739.          /* \n und \r sollten natuerlich (isspace() == true) sein !! */
  740.          continue;        /* Leerzeile ignorieren */
  741.       } else
  742.          c1 = *((unsigned char *)cp);
  743.       cp++;
  744.  
  745.       /* Read the operand '<<', '<', '<|', '=' or '>' */
  746.       if( op == 3 ) {    /* Read '<' before ? */
  747.          if( *cp == '<' )
  748.         break;        /* while */
  749.          if( *cp == '|' ) {
  750.         op = 4;
  751.         cp++;
  752.          }
  753.       } else {
  754.          /* read over whitespace before operand */
  755.          while( *cp && isascii(*cp) && isspace(*cp) )
  756.         cp++;
  757.  
  758.          if( *cp == '>' ) {
  759.         op = 2;
  760.         cp++;
  761.          } else if( *cp == '=' ) {
  762.         op = 1;
  763.          cp++;
  764.          } else {
  765.         fprintf(stderr,
  766.           "%s (l.%ld): Syntax error in Codepage, false operand.\n",
  767.           filename, cnf_line);
  768.         exit(2);
  769.          }
  770.       }
  771.  
  772.       /* read over whitespace after operand */
  773.       while( *cp && isascii(*cp) && isspace(*cp) )
  774.         cp++;
  775.  
  776.       /* Read number2 */
  777.       if( *cp == '^' && *(cp + 1) == '^'
  778.        && *((unsigned char *)(cp + 2)) < 128 ) {
  779.          cp += 2;
  780.          c2 = *((unsigned char *)cp);
  781.          tmp = *((unsigned char *)(cp + 1));
  782.          if( is_hex(c2) && is_hex(tmp) ) {
  783.         c2 = ( (c2 <= '9') ? (c2 - '0') : (c2 - 'a' + 10) ) * 16
  784.             + ((tmp <= '9') ? (tmp - '0') : (tmp - 'a' + 10)) ;
  785.         cp++;
  786.          } else
  787.         c2 += ( c2 < 64 ) ? +64 : -64;
  788.       } else
  789.          c2 = *((unsigned char *)cp);
  790.  
  791.       /* Now we have read 2 number and an operand */
  792.  
  793.       /* The 2 numbers must < 32 or > 126 and != [0,10,13] */
  794.       if( (c1 >= 32 && c1 <= 126) || c1 == 0 || c1 == 10 || c1 == 13 ) {
  795.         fprintf(stderr,
  796. "%s (l.%ld): Invalid value for %s number (0x%x) in codepage, ignored.\n",
  797.         filename, cnf_line, "first", c2);
  798.         continue;        /* while */
  799.       }
  800.       /* For x>y, y is not restricted */
  801.       if( (op != 2) && ( (c2 >= 32 && c2 <= 126)
  802.                 || c2 == 0 || c2 == 10 || c2 == 13 ) ) {
  803.         fprintf(stderr,
  804. "%s (l.%ld): Invalid value for %s number (0x%x) in codepage, ignored.\n",
  805.         filename, cnf_line, "second", c2);
  806.         continue;        /* while */
  807.       }
  808.  
  809.       switch( op ) {
  810.       case 4:
  811. #ifdef VERBOSE
  812.          printf("DBG: Char %d is set unprintable ( xchr[%d] = %d ).\n",
  813.         c2, c2, c2);
  814. #endif
  815.          xchr[c2] = c2;
  816.          printable[c2] = 0;
  817.          break;
  818.       case 3:
  819. #ifdef VERBOSE
  820.          printf("DBG: Char %d is set printable ( xchr[%d] = %d ).\n",
  821.         c2, c2, c2);
  822. #endif
  823.          xchr[c2] = c2;
  824.          printable[c2] = 1;
  825.          break;
  826.       case 2:
  827. #ifdef VERBOSE
  828.          printf("DBG: read %d as %d ( xord[%d] = %d ).\n",
  829.         c1, c2, c1, c2);
  830. #endif
  831.          xord[c1] = c2;
  832.          break;
  833.       case 1:
  834. #ifdef VERBOSE
  835.          printf(
  836.     "DBG: read %d as %d, write %d as %d ( xord[%d] = %d ; xchr[%d] = %d ).\n",
  837.         c1, c2, c2, c1, c1, c2, c2, c1);
  838. #endif
  839.          xord[c1] = c2;
  840.          xchr[c2] = c1;
  841.          printable[c2] = 1;
  842.          break;
  843.       default:
  844.          /* dies kann nicht sein, da sonst oben exit()-call */
  845.          break;
  846.       }
  847.  
  848.     }    /* end while */
  849. #else
  850.     /* Otherwise (VirTeX): Read until "<<" found */
  851.  
  852.     while (fgets((char *)readbuf, 255, cf) != NULL) {
  853.       cnf_line++;
  854.       cp = readbuf;
  855.       /* read over whitespace before first number/operand */
  856.       while( *cp && isascii(*cp) && isspace(*cp) )
  857.         cp++;
  858.       if( *cp == '<' && *(cp+1) == '<' )
  859.         break;
  860.     }
  861. #endif
  862.     continue;    /* Read next lines in Config-File */
  863.     }
  864.  
  865.     /* ... else look for other parameters. */
  866.     ip = init_var_name;
  867.     while( ip->name != NULL && strcmp(ip->name, (char *)readbuf) )
  868.     ip++;
  869.  
  870.     if( ip->name == NULL ) {
  871.     fprintf(stderr, "%s (l.%ld): Unknown parameter `%s', ignored.\n",
  872.         filename, cnf_line, readbuf);
  873.     continue;
  874.     }
  875.  
  876.     /* 'cp' steht schon am Anfang des Wertes (siehe oben) */
  877.  
  878.     /* Ist der 3.Parameter von 'strtol' 0, kann man -- wie in C --
  879.      * die Basis mit der Zahl angeben, also z.B. 011 ist oktal (dez. = 9)
  880.      * 0xff oder 0Xff ist hexadezimal (dez. = 255).
  881.      */
  882.     temp = strtol((char *)cp, NULL, 0);
  883.  
  884.     /* Bei Overflow ist 'errno' gesetzt und Wert = LONG_MAX/MIN */
  885.     if( temp != LONG_MAX && temp != LONG_MIN ) {
  886.     *(ip->value) = temp;
  887.     } else {
  888.     fprintf(stderr, "%s (l.%ld): Incorrect value for `%s', ignored.\n",
  889.         filename, cnf_line, ip->name);
  890.     }
  891.   }        /* while( fgets(...) ) */
  892. }
  893.  
  894.  
  895.    static void
  896. read_configfile(void)
  897. {
  898.   alphafile cf;
  899.   int flag;
  900.  
  901. #ifdef AMIGA
  902. #ifdef BIG
  903.   char cnfname[] = "BigTeX.cnf";
  904. #else
  905.   char cnfname[] = "TeX.cnf";
  906. #endif
  907. #else
  908.   /* Fuer den ST ist es unter TOS unwichtig, ob Gross- oder Kleinschreibung.
  909.    * Mit MiNT bzw. den GCC-libs kann es jedoch schon Probleme geben, da man
  910.    * hier ein evtl. Mapping hat (ueber File .dir).
  911.    */
  912. #ifdef BIG
  913.   char cnfname[] = "bigtex.cnf";
  914. #else
  915.   char cnfname[] = "tex.cnf";
  916. #endif
  917. #endif
  918.  
  919.   sprintf(nameoffile, " %s ", cnfname);
  920.   namelength = strlen(cnfname);
  921.   flag = aopenin(cf, TEXCONFIGPATH);
  922.  
  923.   /* 'cf' hat undefinierten Wert, falls File nicht lesbar, deshalb ganz
  924.    * auf Nummer Sicher ...
  925.    */
  926.   if (!flag || cf == NULL) {
  927.     fprintf(stderr,
  928.     "Warning: %s not found, using the default values.\n", cnfname);
  929.     return;
  930.   }
  931.  
  932.   read_cnf(cf, cnfname);
  933.  
  934. #ifdef INITEX
  935.   memmax = memtop;    /* fuer INITEX: immer memtop = memmax */
  936.             /* Damit kann memmax & memtop fuer Initex & Virtex */
  937.             /* im gleichen Configfile angegeben werden. */
  938. #endif
  939.  
  940.   if( memtop > memmax ) {
  941.     fprintf(stderr, "Error in Config-File %s: 'mem_top' > 'memmax'!\n",
  942.     cnfname);
  943.     memmax = memtop;    /* memtop <= memmax !! */
  944.     /* Da mindestens 'memtop' Platz benoetigt wird, um das gedumpte
  945.      * Format einzulesen, wird nicht memtop=memmax verwendet.
  946.      */
  947.   }
  948.   /* ... und das ganze auch wieder schliessen ... */
  949.   aclose(cf);
  950. }
  951.  
  952. /* end of init.c */
  953.