mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

* script.c (scm_find_executable): Don't test if unix is #defined

Browse source 
here; first, NetBSD doesn't #define it, and second, it's the wrong
way to go about these things.
(dld_find_executable): Delete this MSDOS support code.  This isn't
the way we want to support this; it needs to be rethunk at a
larger scale.
This commit is contained in:
Jim Blandy 1998-10-12 20:11:38 +00:00
parent 4eebd8fcea
commit 94a4095908
1 changed files with 0 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

18
libguile/script.c
View file

@ -131,7 +131,6 @@ scm_sep_init_try (path, sep, initname)
#define X_OK 1 #define X_OK 1
#endif /* ndef X_OK */ #endif /* ndef X_OK */
#ifdef unix
char * char *
scm_find_executable (const char *name) scm_find_executable (const char *name)
{ {
@ -163,23 +162,6 @@ scm_find_executable (const char *name)
fclose (f); fclose (f);
return scm_cat_path (0L, name, 0L); return scm_cat_path (0L, name, 0L);
} }
#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 */
/* Read a \nnn-style escape. We've just read the backslash. */ /* Read a \nnn-style escape. We've just read the backslash. */