home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / gnu / unixtex-6.1b-src.lha / unixtex-6.1b / web2c / lib / main.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-04-02  |  1.1 KB  |  51 lines
  1. /* main.c -- the usual main program.  */
  2.  
  3. #include "config.h"
  4.  
  5.  
  6. /* ridderbusch.pad@nixdorf.com says this is necessary.  */
  7. #ifdef ATARI_ST
  8. int _stksize = -1L;
  9. #endif
  10.  
  11.  
  12. /* The command line is stored under `gargv', since Pascal has usurped `argv' 
  13.    for a procedure.  These variables are referenced from the Pascal, so
  14.    we can't make them static.  */
  15. char **gargv;
  16. int argc;
  17.  
  18.  
  19. /* The entry point for all the programs except TeX and Metafont, which
  20.    have more to do.  We just have to set up the command line.  Pascal's
  21.    main block is transformed into the procedure `main_body'.  */
  22.  
  23. int
  24. main (ac, av)
  25.     int ac;
  26.     char **av;
  27. {
  28.   argc = ac;
  29.   gargv = av;
  30.   kpse_set_progname(av[0]);
  31.   main_body ();
  32.   return EXIT_SUCCESS;
  33. }
  34.  
  35.  
  36. /* Read the Nth argument from the command line and return it in BUF as a
  37.    Pascal string, i.e., starting at index 1 and ending with a space.  If
  38.    N is beyond the end of the command line, abort.  */
  39.  
  40. void
  41. argv P2C(int, n,  string, buf)
  42. {
  43.   if (n >= argc)
  44.     {
  45.       fprintf (stderr, "%s: Not enough arguments.\n", gargv[0]);
  46.       uexit (1);
  47.     }
  48.   strcpy (buf + 1, gargv[n]);
  49.   strcat (buf + 1, " ");
  50. }
  51.