home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / tex / tex31 / texsrc.lzh / COMMON.LZH / TEXMF.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-01-13  |  15.6 KB  |  647 lines
  1. /* Hand-coded routines for TeX or Metafont in C.  This code was (mostly)
  2.    written by Tim Morgan, drawing from other Unix ports of TeX.  The
  3.    file-opening routines are also used by BibTeX.  */
  4.  
  5. /* Either `texd.h' or `mfd.h' will include `../common/texmf.h'.  */
  6.  
  7. /* Instantiate data in `texd.h' or `mfd.h' here.  */
  8. #define    EXTERN
  9.  
  10. #ifdef TeX
  11. #include "texd.h"
  12. #define dump_default_var TEXformatdefault
  13. #define dump_default " plain.fmt"
  14. #define dump_format " %s.fmt"
  15. #define dump_ext_length 4
  16. #define dump_default_length formatdefaultlength
  17. #define virgin_program "virtex"
  18. #define main_program texbody
  19. #define edit_value tex_edit_value
  20. #define edit_var "TEXEDIT"
  21. #else /* not TeX */
  22. #include "mfd.h"
  23. #define dump_default_var MFbasedefault
  24. #define dump_default " plain.base"
  25. #define dump_format " %s.base"
  26. #define dump_ext_length 5
  27. #define dump_default_length basedefaultlength
  28. #define virgin_program "virmf"
  29. #define main_program main_body
  30. #define edit_value mf_edit_value
  31. #define edit_var "MFEDIT"
  32. #endif /* not TeX */
  33.  
  34. /* Catch interrupts.  */
  35. #define    HANDLE_INTERRUPTS
  36.  
  37. #ifdef HANDLE_INTERRUPTS
  38. #ifdef _POSIX_SOURCE
  39. #include <sys/types.h>
  40. #endif
  41. #include <signal.h>
  42. #endif
  43.  
  44. #ifdef BSD
  45. void funny_core_dump ();
  46. #include <sys/time.h>
  47. #include <sys/wait.h>
  48. #include <sys/file.h>
  49. #include <fcntl.h>
  50. #else
  51. #include <time.h>
  52. #endif
  53.  
  54. #if defined (BSD) || defined (SYSV)
  55. #include <sgtty.h>
  56. #endif
  57.  
  58. extern long time ();
  59. extern struct tm *localtime ();
  60.  
  61.  
  62.  
  63. #ifdef atarist
  64. int _stksize = -1L;
  65. #endif
  66.  
  67. /* The main program, etc.  */
  68.  
  69. /* What we were invoked as and with.  */
  70. static char *program_name = NULL;
  71. static int gargc;
  72. static char **gargv;
  73.  
  74.  
  75. /* The entry point: set up for reading the command line, which will
  76.    happen in `topenin', then call the main body.  */
  77.  
  78. void
  79. main (ac, av)
  80.   int ac;
  81.   char *av[];
  82. {
  83.   char custom_default[FILENAMESIZE];
  84.  
  85.   gargc = ac;
  86.   gargv = av;
  87.  
  88. #ifdef atarist
  89.   if (!getenv ("UNIXMODE"))
  90.     _set_unixmode ("dr/");
  91.   _binmode (1);            /* Make sure to open all files in */
  92.                 /* binary mode */
  93. #endif
  94.  
  95.   dump_default_var = dump_default;
  96.   dump_default_length = strlen (dump_default + 1);
  97.  
  98. #ifndef INI
  99.   if (readyalready != 314159)
  100.     {
  101.       program_name = rindex (av[0], '/');
  102.       if (program_name == NULL)
  103.     program_name = av[0];
  104.       else
  105.     program_name++;
  106.       if (strcmp (program_name, virgin_program) != 0)
  107.         {
  108.           /* TeX or Metafont adds the space at the end of the name.  */
  109.           (void) sprintf (custom_default, dump_format, program_name);
  110.           dump_default_var = custom_default;
  111.           dump_default_length = strlen (program_name) + dump_ext_length;
  112.         }
  113.     }
  114. #endif /* not INI */
  115.  
  116.   main_program ();
  117.   /*NOTREACHED*/
  118. } 
  119.  
  120.  
  121. /* This is supposed to ``open the terminal for input'', but what we
  122.    really do is copy command line arguments into TeX's or Metafont's
  123.    buffer, so they can handle them.  If nothing is available, or we've
  124.    been called already (and hence, gargc==0), we return with
  125.    `last=first'.  */
  126.  
  127. void
  128. topenin ()
  129. {
  130.   register int i;
  131.  
  132.   buffer[first] = 0;    /* So the first `strcat' will work.  */
  133.  
  134.   if (gargc > 1)
  135.     { /* We have command line arguments.  */
  136.       for (i = 1; i < gargc; i++)
  137.         {
  138.       (void) strcat ((char *) &buffer[first], gargv[i]);
  139.           (void) strcat ((char *) &buffer[first], " ");
  140.     }
  141.       gargc = 0;    /* Don't do this again.  */
  142.     }
  143.  
  144.   /* Make `last' be one past the last non-blank character in `buffer'.  */
  145.   for (last = first; buffer[last]; ++last)
  146.     ;
  147.   for (--last; last >= first && buffer[last] == ' '; --last)
  148.     ;
  149.   last++;
  150. }
  151.  
  152.  
  153.  
  154. #ifdef HANDLE_INTERRUPTS
  155. /* All our interrupt handler has to do is set TeX's or Metafont's global
  156.    variable `interrupt'; then they will do everything needed.  */
  157.  
  158. static void
  159. interrupt_handler ()
  160. {
  161.   interrupt = 1;
  162.   (void) signal (SIGINT, interrupt_handler);
  163. }
  164. #endif /* HANDLE_INTERRUPTS */
  165.  
  166.  
  167. /* Besides getting the date and time here, we also set up the interrupt
  168.    handler, for no particularly good reason.  It's just that since the
  169.    `fix_date_and_time' routine is called early on (section 1337 in TeX,
  170.    ``Get the first line of input and prepare to start''), this is as
  171.    good a place as any.  */
  172.  
  173. void
  174. get_date_and_time (minutes, day, month, year)
  175.   integer *minutes, *day, *month, *year;
  176. {
  177.   long clock;
  178.   struct tm *tmptr;
  179.  
  180.   clock = time ((long *) 0);
  181.   tmptr = localtime (&clock);
  182.  
  183.   *minutes = tmptr->tm_hour * 60 + tmptr->tm_min;
  184.   *day = tmptr->tm_mday;
  185.   *month = tmptr->tm_mon + 1;
  186.   *year = tmptr->tm_year + 1900;
  187.  
  188. #ifdef HANDLE_INTERRUPTS
  189.   {
  190.     SIGNAL_HANDLER_RETURN_TYPE (*old_handler) ();
  191.  
  192.     if ((old_handler = signal (SIGINT, interrupt_handler)) != SIG_DFL)
  193.       (void) signal (SIGINT, old_handler);
  194.   }
  195. #endif
  196. }
  197.  
  198.  
  199.  
  200. /* I/O for TeX and Metafont.  */
  201.  
  202. /* Read a line of input as efficiently as possible while still looking
  203.    like Pascal.  We set `last' to `first' and return `false' if we get
  204.    to eof.  Otherwise, we return `true' and either `last==first' or
  205.    `buffer[last-1]!=' ''; that is, last == first + length(line except
  206.    trailing whitespace).  */
  207.  
  208. boolean
  209. input_line (f)
  210.   FILE *f;
  211. {
  212.   register int i;
  213.  
  214.   last = first;
  215.  
  216. #ifdef BSD
  217.   if (f == stdin) clearerr (stdin);
  218. #endif
  219.  
  220.   while (last < bufsize && (i = getc (f)) != EOF && i != '\n') 
  221.     buffer[last++] = i;
  222.  
  223.   if (i == '\n' && buffer[last-1] == '\r')
  224.     last--;
  225.   if (i == EOF && last == first)
  226.       return false;
  227.  
  228.   /* We didn't get the whole line because our buffer was too small.  */
  229.   if (i != EOF && i != '\n')
  230.     {
  231.       (void) fprintf (stderr, "! Unable to read an entire line---bufsize=%d.\n", bufsize);
  232.       (void) fprintf (stderr, "Please ask a wizard to enlarge me.\n");
  233.       exit (1);
  234.     }
  235.  
  236.   buffer[last] = ' ';
  237.   if (last >= maxbufstack)
  238.     maxbufstack = last;
  239.  
  240.   /* Trim trailing whitespace.  */
  241.   while (last > first && (buffer[last-1] == ' ' || buffer[last-1] == '\t'))
  242.     --last;
  243.  
  244.   /* Now, either `last==first' or `buffer[last-1] != ' '' (or \t). */
  245.  
  246.   /* Don't bother using xord if we don't need to.  */
  247. #ifdef NONASCII
  248.   for (i = first; i <= last; i++)
  249.      buffer[i] = xord[buffer[i]];
  250. #endif
  251.  
  252.     return true;
  253. }
  254.  
  255.  
  256. #ifdef BSD
  257. /* Clear any pending terminal input.  The usual way to do this in Unix
  258.   is to switch the terminal to get the current tty flags, set RAW mode,
  259.   then switch back to the original setting.  If the user isn't in COOKED
  260.   mode, though, this won't work.  At least, it leaves his terminal in
  261.   its original mode.  */
  262.  
  263. void
  264. bsd_clear_terminal ()
  265. {
  266.   int arg = FREAD;
  267.   (void) ioctl (fileno (stdout), TIOCFLUSH, &arg);
  268. }
  269.  
  270.  
  271. /* Cancel any output cancellation (^O) by the user.  */
  272.  
  273. void
  274. bsd_wake_up_terminal ()
  275. {
  276.   int i = LFLUSHO;
  277.   (void) ioctl (fileno (stdout), TIOCLBIC, (struct sgttyb *) &i);
  278. }
  279.  
  280. #endif /* BSD */
  281.  
  282.  
  283.  
  284. /* This string specifies what the `e' option does in response to an
  285.    error message.  */ 
  286. static char *edit_value = EDITOR;
  287.  
  288. /* This procedure is due to sjc@s1-c.  TeX (or Metafont) calls it when
  289.    the user types `e' in response to an error, invoking a text editor on
  290.    the erroneous source file.  FNSTART is how far into FILENAME the
  291.    actual filename starts; FNLENGTH is how long the filename is.
  292.    
  293.    See ../site.h for how to set the default, and how to override it.  */
  294.  
  295. void
  296. calledit (filename, fnstart, fnlength, linenumber)
  297.   ASCIIcode *filename;
  298.   poolpointer fnstart;
  299.   integer fnlength, linenumber;
  300. {
  301.   char *temp, *command;
  302.   char c;
  303.   int sdone, ddone, i;
  304.  
  305.   sdone = ddone = 0;
  306.   filename += fnstart;
  307.  
  308.   /* Close any open input files, since we're going to kill the job.  */
  309.   for (i = 1; i <= inopen; i++)
  310.     (void) fclose (inputfile[i]);
  311.  
  312.   /* Replace the default with the value of the appropriate environment
  313.      variable, if it's set.  */
  314.   temp = getenv (edit_var);
  315.   if (temp != NULL)
  316.     edit_value = temp;
  317.  
  318.   /* Construct the command string.  The `11' is the maximum length an
  319.      integer might be.  */
  320.   command = xmalloc ((unsigned) (strlen (edit_value) + fnlength + 11));
  321.  
  322.   /* So we can construct it as we go.  */
  323.   temp = command;
  324.  
  325.   while ((c = *edit_value++) != 0)
  326.     {
  327.       if (c == '%')
  328.         {
  329.           switch (c = *edit_value++)
  330.             {
  331.         case 'd':
  332.           if (ddone)
  333.                 {
  334.           (void) fprintf (stderr, "! `%%d' cannot appear twice in editor command.\n");
  335.               exit (1);
  336.         }
  337.               (void) sprintf (temp, "%d", linenumber);
  338.               while (*temp != '\0')
  339.                 temp++;
  340.               ddone = 1;
  341.               break;
  342.  
  343.         case 's':
  344.               if (sdone)
  345.                 {
  346.               (void) fprintf(stderr, "! `%%s' cannot appear twice in editor command.\n");
  347.           exit (1);
  348.         }
  349.               for (i =0; i < fnlength; i++)
  350.         *temp++ = Xchr (filename[i]);
  351.               sdone = 1;
  352.               break;
  353.  
  354.         case '\0':
  355.               *temp++ = '%';
  356.               /* Back up to the null to force termination.  */
  357.           edit_value--;
  358.           break;
  359.  
  360.         default:
  361.           *temp++ = '%';
  362.           *temp++ = c;
  363.           break;
  364.         }
  365.     }
  366.       else
  367.     *temp++ = c;
  368.     }
  369.  
  370.   *temp = 0;
  371.  
  372.   /* Execute the command.  */
  373.   if (system (command) != 0)
  374.     (void) fprintf(stderr, "! Trouble executing `%s'.\n", command);
  375.  
  376.   /* Quit, since we found an error.  */
  377.   exit (1);
  378. }
  379.  
  380.  
  381.  
  382. #ifdef BSD
  383. /* This procedure is due to chris@mimsy.umd.edu.  It makes a core dump
  384.    without any sort of error status (abort(2) does give an error status,
  385.    so we don't want to use that).  It is used only when making a preloaded
  386.    TeX from virtex, and is triggered by a magic file name requested as
  387.    input (see `open_input', above).
  388.  
  389.    This is what is known in computing circles as a hack.  */
  390.  
  391. void
  392. funny_core_dump ()
  393. {
  394.   int pid, w;
  395.   union wait status;
  396.  
  397.   switch (pid = vfork ())
  398.     {
  399.     case -1:        /* failed */
  400.       perror ("vfork");
  401.       exit (-1);
  402.       /*NOTREACHED*/
  403.  
  404.     case 0:             /* child */
  405.        (void) signal (SIGQUIT, SIG_DFL);
  406.        (void) kill (getpid (), SIGQUIT);
  407.        (void) write (2, "how did we get here?\n", 21);
  408.        _exit(1);
  409.        /*NOTREACHED*/
  410.  
  411.     default:        /* parent */
  412.       while ((w = wait (&status)) != pid && w != -1)
  413.     ;
  414.       if (status.w_coredump)
  415.     exit (0);
  416.       (void) write (2, "attempt to dump core failed\n", 28);
  417.       exit (1);
  418.     }
  419. }
  420. #endif /* BSD */
  421.  
  422.  
  423.  
  424. #ifndef TeX
  425. /* On-line display routines for Metafont.  Here we use a dispatch table
  426.    indexed by the TERM environment variable to select the graphics
  427.    routines appropriate to the user's terminal.  stdout must be
  428.    connected to a terminal for us to do any graphics.  */
  429.  
  430. /* We don't want any other window routines screwing us up if we're
  431.    trying to do the trap test.  We could have written another device for
  432.    the trap test, but the terminal type conditionals in initscreen argue
  433.    against that.  */
  434.  
  435. #ifdef TRAP
  436. #undef SUNWIN
  437. #undef HP2627WIN
  438. #undef X10WIN
  439. #undef X11WIN
  440. #undef TEKTRONIXWIN
  441. #endif
  442.  
  443.  
  444. #ifdef HP2627WIN
  445. extern mf_hp2627_initscreen (), mf_hp2627_updatescreen ();
  446. extern mf_hp2627_blankrectangle (), mf_hp2627_paintrow ();
  447. #endif
  448.  
  449. #ifdef SUNWIN
  450. extern mf_sun_initscreen (), mf_sun_updatescreen ();
  451. extern mf_sun_blankrectangle (), mf_sun_paintrow ();
  452. #endif
  453.  
  454. #ifdef TEKTRONIXWIN
  455. extern mf_tektronix_initscreen (), mf_tektronix_updatescreen ();
  456. extern mf_tektronix_blankrectangle (), mf_tektronix_paintrow ();
  457. #endif
  458.  
  459. #ifdef UNITERMWIN
  460. extern mf_uniterm_initscreen (), mf_uniterm_updatescreen();
  461. extern mf_uniterm_blankrectangle(), mf_uniterm_paintrow();
  462. #endif
  463.  
  464. #ifdef X10WIN
  465. extern mf_x10_initscreen (), mf_x10_updatescreen ();
  466. extern mf_x10_blankrectangle (), mf_x10_paintrow ();
  467. #endif
  468.  
  469. #ifdef X11WIN
  470. extern mf_x11_initscreen (), mf_x11_updatescreen ();
  471. extern mf_x11_blankrectangle (), mf_x11_paintrow ();
  472. #endif
  473.  
  474.  
  475. /* `mfwsw' contains the dispatch tables for each terminal.  We map the
  476.    Pascal calls to the routines `init_screen', `update_screen',
  477.    `blank_rectangle', and `paint_row' into the appropriate entry point
  478.    for the specific terminal that MF is being run on.  */
  479.  
  480. struct mfwin_sw
  481. {
  482.   char *mfwsw_type;        /* Name of terminal a la TERMCAP.  */
  483.   int (*mfwsw_initscreen) ();
  484.   int (*mfwsw_updatescrn) ();
  485.   int (*mfwsw_blankrect) ();
  486.   int (*mfwsw_paintrow) ();
  487. } mfwsw[] =
  488.  
  489. /* Now we have a long structure which initializes this array of
  490.    ``Metafont window switches''.  */
  491.  
  492. {
  493.  
  494. #ifdef HP2627WIN
  495.   { "hp2627", mf_hp2627_initscreen, mf_hp2627_updatescreen,
  496.     mf_hp2627_blankrectangle, mf_hp2627_paintrow },
  497. #endif
  498.  
  499. #ifdef SUNWIN
  500.   { "sun", mf_sun_initscreen, mf_sun_updatescreen,
  501.     mf_sun_blankrectangle, mf_sun_paintrow },
  502. #endif
  503.  
  504. #ifdef TEKTRONIXWIN
  505.   { "tek", mf_tektronix_initscreen, mf_tektronix_updatescreen,
  506.     mf_tektronix_blankrectangle, mf_tektronix_paintrow },
  507. #endif
  508.  
  509. #ifdef UNITERMWIN
  510.    { "uniterm", mf_uniterm_initscreen, mf_uniterm_updatescreen,
  511.      mf_uniterm_blankrectangle, mf_uniterm_paintrow },
  512. #endif
  513.  
  514. #ifdef X10WIN
  515.   { "xterm", mf_x10_initscreen, mf_x10_updatescreen,
  516.     mf_x10_blankrectangle, mf_x10_paintrow },
  517. #endif
  518.  
  519. #ifdef X11WIN
  520.   { "xterm", mf_x11_initscreen, mf_x11_updatescreen, 
  521.     mf_x11_blankrectangle, mf_x11_paintrow },
  522. #endif
  523.  
  524.   { "Irrelevant", NULL, NULL, NULL, NULL },
  525.  
  526. /* Finally, we must have an entry with a terminal type of NULL.  */
  527.   { NULL, NULL, NULL, NULL, NULL }
  528.  
  529. }; /* End of the array initialization.  */
  530.  
  531.  
  532. /* This is a pointer to current mfwsw[] entry.  */
  533. static struct mfwin_sw *mfwp;
  534.  
  535. /* The following are routines that just jump to the correct
  536.    terminal-specific graphics code. If none of the routines in the
  537.    dispatch table exist, or they fail, we produce trap-compatible
  538.    output, i.e., the same words and punctuation that the unchanged
  539.    mf.web would produce.  */
  540.  
  541.  
  542. /* This returns true if window operations legal, else false.  */
  543.  
  544. boolean
  545. initscreen ()
  546. {
  547. #ifndef TRAP
  548.   register char *ttytype;
  549.  
  550.   if ((ttytype = getenv ("TERM")) == NULL || !(isatty (fileno (stdout))))
  551.     return (0);
  552.   for (mfwp = mfwsw; mfwp->mfwsw_type != NULL; mfwp++)
  553.     if (!strncmp (mfwp->mfwsw_type, ttytype, strlen (mfwp->mfwsw_type))
  554.     || !strcmp (ttytype, "emacs"))
  555.       if (mfwp->mfwsw_initscreen)
  556.     return ((*mfwp->mfwsw_initscreen) ());
  557.       else
  558.     {            /* Test terminal type */
  559.       printf ("Could not init_screen for `%s'.\n", ttytype);
  560.       return 1;
  561.     }
  562.   return 0;
  563.  
  564. #else /* TRAP */
  565.   return 1;
  566. #endif
  567. }
  568.  
  569.  
  570. /* Make sure everything is visible.  */
  571.  
  572. void
  573. updatescreen ()
  574. {
  575. #ifndef TRAP
  576.   if (mfwp->mfwsw_updatescrn)
  577.     ((*mfwp->mfwsw_updatescrn) ());
  578.   else
  579.     {
  580.       printf ("Updatescreen called\n");
  581.     }
  582. #else /* TRAP */
  583.   fprintf (logfile, "Calling UPDATESCREEN\n");
  584. #endif
  585. }
  586.  
  587.  
  588. /* This sets the rectangle bounded by ([left,right], [top,bottom]) to
  589.    the background color.  */
  590.  
  591. void
  592. blankrectangle (left, right, top, bottom)
  593.      screencol left, right;
  594.      screenrow top, bottom;
  595. {
  596. #ifndef TRAP
  597.   if (mfwp->mfwsw_blankrect)
  598.     ((*mfwp->mfwsw_blankrect) (left, right, top, bottom));
  599.   else
  600.     {
  601.       printf ("Blankrectangle l=%d  r=%d  t=%d  b=%d\n",
  602.           left, right, top, bottom);
  603.     }
  604. #else /* TRAP */
  605.   fprintf (logfile, "\nCalling BLANKRECTANGLE(%d,%d,%d,%d)\n", left,
  606.        right, top, bottom);
  607. #endif
  608. }
  609.  
  610.  
  611. /* This paints ROW, starting with the color INIT_COLOR. 
  612.    TRANSITION_VECTOR then specifies the length of the run; then we
  613.    switch colors.  This goes on for VECTOR_SIZE transitions.  */
  614.  
  615. void
  616. paintrow (row, init_color, transition_vector, vector_size)
  617.      screenrow row;
  618.      pixelcolor init_color;
  619.      transspec transition_vector;
  620.      screencol vector_size;
  621. {
  622. #ifndef TRAP
  623.   if (mfwp->mfwsw_paintrow)
  624.     ((*mfwp->mfwsw_paintrow) (row, init_color,
  625.                   transition_vector, vector_size));
  626.   else
  627.     {
  628.       printf ("Paintrow r=%d  c=%d  v=");
  629.       while (vector_size-- > 0)
  630.     printf ("%d  ", transition_vector++);
  631.       printf ("\n");
  632.     }
  633. #else /* TRAP */
  634.   unsigned k;
  635.  
  636.   fprintf (logfile, "Calling PAINTROW(%d,%d;", row, init_color);
  637.   for (k = 0; k <= vector_size; k++)
  638.     {
  639.       fprintf (logfile, "%d", transition_vector[k]);
  640.       if (k != vector_size)
  641.     fprintf (logfile, ",");
  642.     }
  643.   fprintf (logfile, ")\n");
  644. #endif
  645. }
  646. #endif /* not TeX */
  647.