Lines Matching defs:directory
147 * Since directory is a function to be extended by the implementation,
151 * (directory "<pathname-spec>/" :all t)
158 * if-cannot-read => if opendir fails on a directory
160 * (default) :skip => skip search in this directory
165 directory pathname &key all if-cannot-read
173 char name[PATH_MAX + 1], path[PATH_MAX + 2], directory[PATH_MAX + 2];
260 if (snprintf(directory, sizeof(directory), "%s%s%c",
262 LispDestroy("%s: pathname too long %s", STRFUN(builtin), directory);
265 sep = directory;
267 if (sep <= directory + 1)
268 strcpy(directory, sep + 2);
270 for (base = sep - 2; base > directory; base--)
281 sep = directory;
283 if (sep == directory || sep[-1] == PATH_SEP)
290 if (directory[1] == '\0') {
291 directory[1] = PATH_SEP;
292 directory[2] = '\0';
295 base = directory;
301 for (base = directory + 1, sep = strchr(base, PATH_SEP); ;
538 /* directory */
547 /* directory components */
559 LispDestroy("%s: directory name too long %s",
572 /* defaults specify directory and pathname doesn't */
703 make-pathname &key host device directory name type version defaults
711 LispObj *host, *device, *directory, *name, *type, *version, *defaults;
717 directory = ARGUMENT(2);
728 if (directory != UNSPEC) {
731 CHECK_CONS(directory);
732 dir = CAR(directory);
735 LispDestroy("%s: directory type %s unknown",
768 (host == UNSPEC || device == UNSPEC || directory == UNSPEC ||
782 defaults = CDR(defaults); /* directory */
783 if (directory == UNSPEC)
784 directory = CAR(defaults);
798 if (CONSP(directory)) {
799 if (CAR(directory) == Kabsolute)
802 for (cdr = CDR(directory); CONSP(cdr); cdr = CDR(cdr)) {
807 LispDestroy("%s: directory name too long %s",
854 /* directory */
855 if (directory == UNSPEC)
858 cdr = directory;
944 directory-namestring pathname