mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-28 22:10:29 +02:00
Code Activity

mingw: canonicalize-path: Also canonicalize drive letter and '/'.

Browse source 
* libguile/posix-w32.c (canonicalize_device_name,
slashify_file_name): New static functions.
(canonicalize_file_name_mingw): Use them in new function.
* libguile/posix-w32.h (canonicalize_file_name_mingw): Declare it.
(canonicalize_file_name): New define.
* libguile/filesys.c[__MINGW32__]: Include posix-w32.h to use it.
* libguile/fports.c[__MINGW32__]: Likewise.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2021-12-12 15:48:18 +01:00 • committed by Michael Gran
parent 558fe0113d
commit 2d82b49cf3
4 changed files with 49 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/posix-w32.h
View file

@ -110,4 +110,7 @@ SCM_INTERNAL char *dlerror_w32 (void);
#define RTLD_GLOBAL 4
#define RTLD_LOCAL 8
#define canonicalize_file_name canonicalize_file_name_mingw
char *canonicalize_file_name_mingw (const char *name);
#endif /* SCM_POSIX_W32_H */