Lines Matching defs:filename
40 load filename &key verbose print if-does-not-exist
43 LispObj *filename, *verbose, *print, *if_does_not_exist;
48 filename = ARGUMENT(0);
50 if (PATHNAMEP(filename))
51 filename = CAR(filename->data.pathname);
53 CHECK_STRING(filename);
56 return (LispLoadFile(filename,
69 char filename[1024], *ext;
95 snprintf(filename, sizeof(filename), "%s", LISPDIR);
97 getcwd(filename, sizeof(filename));
101 filename[0] = '\0';
102 *(filename + sizeof(filename) - 5) = '\0'; /* make sure there is place for ext */
103 len = strlen(filename);
104 if (!len || filename[len - 1] != '/') {
105 strcat(filename, "/");
109 snprintf(filename + len, sizeof(filename) - len - 5, "%s", THESTR(pathname));
111 ext = filename + strlen(filename);
115 if (access(filename, R_OK) == 0) {
128 dlopen(filename, RTLD_LAZY | RTLD_GLOBAL)) == NULL)
156 (void)LispLoadFile(STRING(filename), 0, 0, 0);