|
1268
|
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 } |
