diff options
| author | Justus Winter <[email protected]> | 2016-10-07 10:53:25 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-10-07 14:25:55 +0000 |
| commit | dff266059813d22d1e2ba7e77279999cd41ceb75 (patch) | |
| tree | 5226b078a4a44b0cfe46c4beebfe7167b93601ed /tests/gpgscm/ffi.c | |
| parent | tools: Fix error handling. (diff) | |
| download | gnupg-dff266059813d22d1e2ba7e77279999cd41ceb75.tar.gz gnupg-dff266059813d22d1e2ba7e77279999cd41ceb75.zip | |
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 <[email protected]>
Diffstat (limited to 'tests/gpgscm/ffi.c')
| -rw-r--r-- | tests/gpgscm/ffi.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/gpgscm/ffi.c b/tests/gpgscm/ffi.c index 44db6bb82..a0fbe2e64 100644 --- a/tests/gpgscm/ffi.c +++ b/tests/gpgscm/ffi.c @@ -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*", |