DataMuseum.dk

top - metrics - download

    Length: 986 (0x3da)
    Types: TextFile
    Names: »main.c«

└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦c6be2784f⟧ »web2c-5.84b.tar.Z« 
        └─⟦5800b1b62⟧ 
            └─⟦this⟧ »src-5.84b/common/main.c« 
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦63303ae94⟧ »unix3.14/TeX3.14.tar.Z« 
        └─⟦c58930e5c⟧ 
            └─⟦this⟧ »TeX3.14/common/main.c« 

TextFile

/* main.c -- the usual main program.  */

#include "extra.h"


/* The command line is stored under `gargv', since Pascal has usurped `argv' 
   for a procedure.  These variables are referenced from the Pascal, so
   not static.  */
char **gargv;
integer argc;


/* The entry point for all the programs except TeX and Metafont, which
   have more to do.  We just have to set up the command line.  Pascal's
   main block is transformed into the procedure `main_body'.  */

void
main (ac, av)
  int ac;
  char **av;
{
  argc = ac;
  gargv = av;
  main_body ();
  exit (0);
}


/* Read the Nth argument from the command line.  BUF is a Pascal
   string, i.e., it starts at index 1 and ends with a space.  If N is
   beyond the end of the command line, abort.  */

void
argv (n, buf)
  int n;
  char buf[];
{
  if (n >= argc)
    {
      fprintf (stderr, "%s: Not enough arguments.\n", gargv[0]);
      exit (1);
    }
  (void) strcpy (buf + 1, gargv[n]);
  (void) strcat (buf + 1, " ");
}