home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / unixtex-6.1b-src.tgz / tar.out / contrib / unixtex / kpathsea / kpsexpand.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-09-28  |  1.3 KB  |  45 lines
  1. /* kpsexpand -- do Kpathsea variable expansion, pretending to be a given
  2.    program.  For example,
  3.      prompt$ kpsexpand latex2e '$TEXINPUTS'
  4.    expands $TEXINPUTS for latex2e.
  5.  
  6.    Based on code from te@informatik.uni-hannover.de.  */
  7.  
  8. /* Not worth chance of collisions to #include anything but this.  */
  9. #include <stdio.h> /* for stderr */
  10.  
  11. #include "tex-file.h"
  12. extern char *kpse_var_expand ();
  13. extern void kpse_set_progname ();
  14. extern char *kpathsea_version_string;
  15.  
  16. int
  17. main (argc, argv)
  18.     int argc;
  19.     char *argv[];
  20. {
  21.   if (argc < 3)
  22.     {
  23.       fprintf (stderr, "Usage: %s progname string [filename]\n", argv[0]);
  24.       fprintf (stderr, "%s\n", kpathsea_version_string);
  25.       fputs ("Sets the program name to `progname',\n", stderr);
  26.       fputs ("then prints the variable expansion of `string'.\n", stderr);
  27.       fputs ("If `filename' is present, does lookups of several types.\n",
  28.              stderr);
  29.       fputs ("Example: kpsexpand latex2e '$TEXFINPUTS'.\n", stderr);
  30.       exit (1);
  31.     }
  32.  
  33.   kpse_set_progname (argv[1]);
  34.   printf ("%s\n", kpse_var_expand (argv[2]));
  35.  
  36.   if (argc == 4)
  37.     {
  38.       printf ("PICT: %s\n", kpse_find_pict (argv[3]));
  39.       printf ("TEX: %s\n", kpse_find_tex (argv[3]));
  40.       printf ("TFM: %s\n", kpse_find_tfm (argv[3]));
  41.       printf ("VF: %s\n", kpse_find_vf (argv[3]));
  42.     }
  43.   return 0;
  44. }
  45.