home *** CD-ROM | disk | FTP | other *** search
- /* ourpaths.c: path searching. */
-
- #include "config.h"
-
- #include "fontmap.h"
- #include "paths.h"
- #include "pathsrch.h"
-
-
- /* `path_dirs' is initialized in `setpaths', to a null-terminated array
- of directories to search for. */
- static string *path_dirs[LAST_PATH];
-
-
- /* This sets up the paths, by either copying from an environment variable
- or using the default path, which is defined as a preprocessor symbol
- (with the same name as the environment variable) in `site.h'. The
- parameter PATH_BITS is a logical or of the paths we need to set. */
-
- extern void
- setpaths (path_bits)
- int path_bits;
- {
- if (path_bits & BIBINPUTPATHBIT)
- path_dirs[BIBINPUTPATH] = initialize_path_list ("BIBINPUTS", BIBINPUTS);
-
- if (path_bits & BSTINPUTPATHBIT)
- {
- string bst_var = getenv ("BSTINPUTS") ? "BSTINPUTS" : "TEXINPUTS";
- path_dirs[BSTINPUTPATH] = initialize_path_list (bst_var, BSTINPUTS);
- }
-
- if (path_bits & GFFILEPATHBIT)
- {
- string gf_var = getenv ("GFFONTS") ? "GFFONTS" : "TEXFONTS";
- path_dirs[GFFILEPATH] = initialize_path_list (gf_var, GFFONTS);
- }
-
- if (path_bits & MFBASEPATHBIT)
- path_dirs[MFBASEPATH] = initialize_path_list ("MFBASES", MFBASES);
-
- if (path_bits & MFINPUTPATHBIT)
- path_dirs[MFINPUTPATH] = initialize_path_list ("MFINPUTS", MFINPUTS);
-
- if (path_bits & MFPOOLPATHBIT)
- path_dirs[MFPOOLPATH] = initialize_path_list ("MFPOOL", MFPOOL);
-
- if (path_bits & PKFILEPATHBIT)
- {
- string pk_var = getenv ("PKFONTS") ? "PKFONTS"
- : getenv ("TEXPKS") ? "TEXPKS" : "TEXFONTS";
- path_dirs[PKFILEPATH] = initialize_path_list (pk_var, PKFONTS);
- }
-
- if (path_bits & TEXFORMATPATHBIT)
- path_dirs[TEXFORMATPATH]
- = initialize_path_list ("TEXFORMATS", TEXFORMATS);
-
- if (path_bits & TEXINPUTPATHBIT)
- path_dirs[TEXINPUTPATH]
- = initialize_path_list ("TEXINPUTS", TEXINPUTS);
-
- if (path_bits & TEXPOOLPATHBIT)
- path_dirs[TEXPOOLPATH] = initialize_path_list ("TEXPOOL", TEXPOOL);
-
- if (path_bits & TFMFILEPATHBIT)
- path_dirs[TFMFILEPATH] = initialize_path_list ("TEXFONTS", TEXFONTS);
-
- if (path_bits & VFFILEPATHBIT)
- {
- string vf_var = getenv ("VFFONTS") ? "VFFONTS" : "TEXFONTS";
- path_dirs[VFFILEPATH] = initialize_path_list (vf_var, VFFONTS);
- }
- }
-
- /* Look for NAME, a Pascal string, in the colon-separated list of
- directories given by `path_dirs[PATH_INDEX]'. If the search is
- successful, leave the full pathname in NAME (which therefore must
- have enough room for such a pathname), padded with blanks.
- Otherwise, or if NAME is an absolute or relative pathname, just leave
- it alone. */
-
- boolean
- testreadaccess (name, path_index)
- char *name;
- int path_index;
- {
- string found;
-
- make_c_string (&name);
-
- #ifdef RISCOS_DEBUG
- fprintf(stderr, "testreadaccess('%s', %d)\n", name, path_index);
- #endif
-
- /* Look for it. */
- found = find_path_filename (name, path_dirs[path_index]);
-
- /* If we didn't find it, and we're looking for a font, maybe it's
- an alias defined in a mapping file. */
- if (!found && path_index == TFMFILEPATH)
- {
- char *mapped_name;
- static map_type fontmap = NULL;
-
- /* Fault in the mapping if necessary. */
- if (fontmap == NULL)
- fontmap = map_create (path_dirs[path_index]);
-
- /* Now look for our filename in the mapping. */
- mapped_name = map_lookup (fontmap, name);
- if (mapped_name)
- {
- /* Found a possibility. Look for the new name. */
- found = find_path_filename (mapped_name, path_dirs[path_index]);
- }
- }
-
- /* If we found it somewhere, save it. */
- if (found)
- strcpy (name, found);
-
- make_pascal_string (&name);
-
- return found != NULL;
- }
-