mirror of
git://git.gnupg.org/gnupg.git
synced 2025-07-02 22:46:30 +02:00
gpgscm: Improve path handling.
* tests/gpgscm/ffi.c (ffi_init): New Scheme variable '*win32*'. * tests/gpgscm/tests.scm (canonical-path): Correctly handle paths with drive letter on Windows. Use 'path-join'. (path-expand): Use 'path-join'. Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
parent
5afbfdfd59
commit
dff2660598
2 changed files with 18 additions and 3 deletions
|
@ -1276,6 +1276,15 @@ ffi_init (scheme *sc, const char *argv0, const char *scriptname,
|
|||
ffi_define (sc, "*pathsep*", sc->vptr->mk_character (sc, ':'));
|
||||
#endif
|
||||
|
||||
ffi_define (sc, "*win32*",
|
||||
#if _WIN32
|
||||
sc->T
|
||||
#else
|
||||
sc->F
|
||||
#endif
|
||||
);
|
||||
|
||||
|
||||
ffi_define (sc, "*stdin*",
|
||||
sc->vptr->mk_port_from_file (sc, stdin, port_input));
|
||||
ffi_define (sc, "*stdout*",
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue