home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / tex / texsrc1 / Src / lib / c / texmf < prev    next >
Text File  |  1993-05-09  |  22KB  |  808 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.  */
  3.  
  4. /* Either `texd.h' or `mfd.h' will include `../common/texmf.h'.  */
  5.  
  6. /* Instantiate data in `texd.h' or `mfd.h' here.  */
  7. #define    EXTERN
  8.  
  9. #ifdef TeX
  10. #include "texd.h"
  11. #define dump_default_var TEXformatdefault
  12. #define dump_default " plain.fmt"
  13. #define dump_format " %s.fmt"
  14. #define dump_ext_length 4
  15. #define dump_default_length formatdefaultlength
  16. #define virgin_program "virtex"
  17. #define main_program texbody
  18. #define edit_value tex_edit_value
  19. #define edit_var "TEXEDIT"
  20. #else /* not TeX */
  21. #include "mfd.h"
  22. #define dump_default_var MFbasedefault
  23. #define dump_default " plain.base"
  24. #define dump_format " %s.base"
  25. #define dump_ext_length 5
  26. #define dump_default_length basedefaultlength
  27. #define virgin_program "virmf"
  28. #define main_program main_body
  29. #define edit_value mf_edit_value
  30. #define edit_var "MFEDIT"
  31. #endif /* not TeX */
  32.  
  33. #include "c-ctype.h"
  34. #include "c-pathch.h"
  35.  
  36. /* For `struct tm'.  */
  37. #include <time.h>
  38. extern struct tm *localtime ();
  39.  
  40. /* Catch interrupts.  */
  41. #include <signal.h>
  42.  
  43. #ifdef FUNNY_CORE_DUMP
  44. void funny_core_dump ();
  45. #endif
  46.  
  47. /* ridderbusch.pad@nixdorf.com says this is necessary.  */
  48. #ifdef ATARI_ST
  49. int _stksize = -1L;
  50. #endif
  51.  
  52. /* The main program, etc.  */
  53.  
  54. /* What we were invoked as and with.  */
  55. static char *program_name = NULL;
  56. static int gargc;
  57. char **gargv;
  58.  
  59.  
  60. /* The entry point: set up for reading the command line, which will
  61.    happen in `topenin', then call the main body.  */
  62.  
  63. int
  64. main (ac, av)
  65.   int ac;
  66.   char *av[];
  67. {
  68.   char custom_default[PATH_MAX];
  69.  
  70.   gargc = ac;
  71.   gargv = av;
  72.  
  73.   dump_default_var = dump_default;
  74.   dump_default_length = strlen (dump_default + 1);
  75.  
  76. #ifndef INI
  77.   if (readyalready != 314159)
  78.     {
  79.       program_name = strrchr (av[0], PATH_SEP);
  80.       if (program_name == NULL)
  81.     program_name = av[0];
  82.       else
  83.     program_name++;
  84.       if (strcmp (program_name, virgin_program) != 0)
  85.         {
  86.           /* TeX or Metafont adds the space at the end of the name.  */
  87.           (void) sprintf (custom_default, dump_format, program_name);
  88.           dump_default_var = custom_default;
  89.           dump_default_length = strlen (program_name) + dump_ext_length;
  90.         }
  91.     }
  92. #endif /* not INI */
  93.  
  94.   main_program ();
  95. } 
  96.  
  97.  
  98. /* This is supposed to ``open the terminal for input'', but what we
  99.    really do is copy command line arguments into TeX's or Metafont's
  100.    buffer, so they can handle them.  If nothing is available, or we've
  101.    been called already (and hence, gargc==0), we return with
  102.    `last=first'.  */
  103.  
  104. void
  105. topenin ()
  106. {
  107.   register int i;
  108.  
  109.   buffer[first] = 0;    /* So the first `strcat' will work.  */
  110.  
  111.   if (gargc > 1)
  112.     { /* We have command line arguments.  */
  113.       for (i = 1; i < gargc; i++)
  114.         {
  115.       (void) strcat ((char *) &buffer[first], gargv[i]);
  116.           (void) strcat ((char *) &buffer[first], " ");
  117.     }
  118.       gargc = 0;    /* Don't do this again.  */
  119.     }
  120.  
  121.   /* Find the end of the buffer.  */
  122.   for (last = first; buffer[last]; ++last)
  123.     ;
  124.  
  125.   /* Make `last' be one past the last non-blank non-formfeed character
  126.      in `buffer'.  */
  127.   for (--last; last >= first
  128.        && ISSPACE (buffer[last]) && buffer[last] != '\f'; --last) 
  129.     ;
  130.   last++;
  131.  
  132.   /* One more time, this time converting to TeX's internal character
  133.      representation.  */
  134. #ifdef NONASCII
  135.   for (i = first; i < last; i++)
  136.     buffer[i] = xord[buffer[i]];
  137. #endif
  138. }
  139.  
  140. /* All our interrupt handler has to do is set TeX's or Metafont's global
  141.    variable `interrupt'; then they will do everything needed.  */
  142.  
  143. #ifdef RISCOS
  144. RETSIGTYPE
  145. catch_interrupt (int s) 
  146. #else
  147. static RETSIGTYPE
  148. catch_interrupt ()
  149. #endif
  150. {
  151.   interrupt = 1;
  152.   (void) signal (SIGINT, catch_interrupt);
  153. }
  154.  
  155.  
  156. /* Besides getting the date and time here, we also set up the interrupt
  157.    handler, for no particularly good reason.  It's just that since the
  158.    `fix_date_and_time' routine is called early on (section 1337 in TeX,
  159.    ``Get the first line of input and prepare to start''), this is as
  160.    good a place as any.  */
  161.  
  162. void
  163. get_date_and_time (minutes, day, month, year)
  164.   integer *minutes, *day, *month, *year;
  165. {
  166.   time_t clock = time ((time_t *) 0);
  167.   struct tm *tmptr = localtime (&clock);
  168.  
  169.   *minutes = tmptr->tm_hour * 60 + tmptr->tm_min;
  170.   *day = tmptr->tm_mday;
  171.   *month = tmptr->tm_mon + 1;
  172.   *year = tmptr->tm_year + 1900;
  173.  
  174.   {
  175.     RETSIGTYPE (*old_handler) ();
  176.  
  177.     if ((old_handler = signal (SIGINT, catch_interrupt)) != SIG_DFL)
  178.       (void) signal (SIGINT, old_handler);
  179.   }
  180. }
  181.  
  182. /* I/O for TeX and Metafont.  */
  183.  
  184. /* Read a line of input as efficiently as possible while still looking
  185.    like Pascal.  We set `last' to `first' and return `false' if we get
  186.    to eof.  Otherwise, we return `true' and set last = first +
  187.    length(line except trailing whitespace).  */
  188.  
  189. boolean
  190. input_line (f)
  191.   FILE *f;
  192. {
  193.   register int i;
  194.  
  195.   last = first;
  196.  
  197.   while (last < bufsize && (i = getc (f)) != EOF && i != '\n')
  198.     buffer[last++] = i;
  199.  
  200.   if (i == EOF && last == first)
  201.       return false;
  202.  
  203.   /* We didn't get the whole line because our buffer was too small.  */
  204.   if (i != EOF && i != '\n')
  205.     {
  206.       (void) fprintf (stderr,
  207.                      "! Unable to read an entire line---bufsize=%d.\n",
  208.                      bufsize);
  209.       (void) fprintf (stderr, "Please ask a wizard to enlarge me.\n");
  210.       uexit (1);
  211.     }
  212.  
  213.   buffer[last] = ' ';
  214.   if (last >= maxbufstack)
  215.     maxbufstack = last;
  216.  
  217.   /* Trim trailing whitespace.  */
  218.   while (last > first
  219.          && isblank (buffer[last - 1]) && buffer[last - 1] != '\r')
  220.     --last;
  221.  
  222.   /* Don't bother using xord if we don't need to.  */
  223. #ifdef NONASCII
  224.   for (i = first; i <= last; i++)
  225.      buffer[i] = xord[buffer[i]];
  226. #endif
  227.  
  228.     return true;
  229. }
  230.  
  231. /* This string specifies what the `e' option does in response to an
  232.    error message.  */ 
  233. static char *edit_value = EDITOR;
  234.  
  235. /* This procedure is due to sjc@s1-c.  TeX (or Metafont) calls it when
  236.    the user types `e' in response to an error, invoking a text editor on
  237.    the erroneous source file.  FNSTART is how far into FILENAME the
  238.    actual filename starts; FNLENGTH is how long the filename is.
  239.    
  240.    See ../site.h for how to set the default, and how to override it.  */
  241.  
  242. void
  243. calledit (filename, fnstart, fnlength, linenumber)
  244.   ASCIIcode *filename;
  245.   poolpointer fnstart;
  246.   integer fnlength, linenumber;
  247. {
  248.   char *temp, *command;
  249.   char c;
  250.   int sdone, ddone, i;
  251.  
  252.   sdone = ddone = 0;
  253.   filename += fnstart;
  254.  
  255.   /* Close any open input files, since we're going to kill the job.  */
  256.   for (i = 1; i <= inopen; i++)
  257.     (void) fclose (inputfile[i]);
  258.  
  259.   /* Replace the default with the value of the appropriate environment
  260.      variable, if it's set.  */
  261.   temp = getenv (edit_var);
  262.   if (temp != NULL)
  263.     edit_value = temp;
  264.  
  265.   /* Construct the command string.  The `11' is the maximum length an
  266.      integer might be.  */
  267.   command = (string) xmalloc (strlen (edit_value) + fnlength + 11);
  268.  
  269.   /* So we can construct it as we go.  */
  270.   temp = command;
  271.  
  272.   while ((c = *edit_value++) != 0)
  273.     {
  274.       if (c == '%')
  275.         {
  276.           switch (c = *edit_value++)
  277.             {
  278.         case 'd':
  279.           if (ddone)
  280.                 {
  281.           (void) fprintf (stderr,
  282.                            "! `%%d' cannot appear twice in editor command.\n");
  283.               uexit (1);
  284.         }
  285.               (void) sprintf (temp, "%d", linenumber);
  286.               while (*temp != '\0')
  287.                 temp++;
  288.               ddone = 1;
  289.               break;
  290.  
  291.         case 's':
  292.               if (sdone)
  293.                 {
  294.               (void) fprintf(stderr,
  295.                            "! `%%s' cannot appear twice in editor command.\n");
  296.           uexit (1);
  297.         }
  298.               for (i =0; i < fnlength; i++)
  299.         *temp++ = Xchr (filename[i]);
  300.               sdone = 1;
  301.               break;
  302.  
  303.         case '\0':
  304.               *temp++ = '%';
  305.               /* Back up to the null to force termination.  */
  306.           edit_value--;
  307.           break;
  308.  
  309.         default:
  310.           *temp++ = '%';
  311.           *temp++ = c;
  312.           break;
  313.         }
  314.     }
  315.       else
  316.     *temp++ = c;
  317.     }
  318.  
  319.   *temp = 0;
  320.  
  321.   /* Execute the command.  */
  322.   if (system (command) != 0)
  323.     fprintf (stderr, "! Trouble executing `%s'.\n", comma