diff options
Diffstat (limited to 'script.c')
-rw-r--r-- | script.c | 41 |
1 files changed, 13 insertions, 28 deletions
@@ -155,34 +155,6 @@ char *script_find_executable(name) } #endif /* unix */ -#ifdef MSDOS -# define DEFAULT_PATH "C:\\DOS" -# define PATH_DELIMITER ';' -# define ABSOLUTE_FILENAME_P(fname) ((fname[0] == '\\') \ - || (fname[0] && (fname[1] == ':'))) - -char *dld_find_executable(file) - const char *file; -{ - /* fprintf(stderr, "dld_find_executable %s -> %s\n", file, scm_cat_path(0L, file, 0L)); fflush(stderr); */ - return scm_cat_path(0L, file, 0L); -} -#endif /* def MSDOS */ - -#ifdef __IBMC__ -# define PATH_DELIMITER ';' -# define ABSOLUTE_FILENAME_P(fname) ((fname[0] == '/') \ - || (fname[0] == '\\') \ - || (fname[0] && (fname[1] == ':'))) - -char *dld_find_executable(file) - const char *file; -{ - /* fprintf(stderr, "dld_find_executable %s -> %s\n", file, scm_cat_path(0L, file, 0L)); fflush(stderr); */ - return scm_cat_path(0L, file, 0L); -} -#endif /* def __IBMC__ */ - /* Given dld_find_executable()'s best guess for the pathname of this executable, find (and verify the existence of) initname in the implementation-vicinity of this program. Returns a newly allocated @@ -420,3 +392,16 @@ int script_count_argv(argv) while (argv[argc]) argc++; return argc; } + +#ifdef __IBMC__ +# define MSDOS +#endif + +#ifdef MSDOS +char *dld_find_executable(file) + const char *file; +{ + /* fprintf(stderr, "dld_find_executable %s -> %s\n", file, scm_cat_path(0L, file, 0L)); fflush(stderr); */ + return scm_cat_path(0L, file, 0L); +} +#endif /* def MSDOS */ |