diff options
| author | Justus Winter <[email protected]> | 2016-01-22 10:15:20 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-06-17 09:38:00 +0000 |
| commit | 55275b8e2b43a3420d85a1a931e02febaa1113e7 (patch) | |
| tree | fdde08017475641963eca6b13d531e2eb42ec0f4 | |
| parent | tests/gpgscm: Nicer error message. (diff) | |
| download | gnupg-55275b8e2b43a3420d85a1a931e02febaa1113e7.tar.gz gnupg-55275b8e2b43a3420d85a1a931e02febaa1113e7.zip | |
tests/gpgscm: Expose function to open streams as Scheme ports.
* tests/gpgscm/scheme.c (vtbl): Add 'port_from_file' to the vtable.
* tests/gpgscm/scheme.h (struct scheme_interface): New field
'mk_port_from_file'.
Signed-off-by: Justus Winter <[email protected]>
Diffstat (limited to '')
| -rw-r--r-- | tests/gpgscm/scheme.c | 3 | ||||
| -rw-r--r-- | tests/gpgscm/scheme.h | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/tests/gpgscm/scheme.c b/tests/gpgscm/scheme.c index fba107131..fd8f294bc 100644 --- a/tests/gpgscm/scheme.c +++ b/tests/gpgscm/scheme.c @@ -4614,7 +4614,8 @@ static struct scheme_interface vtbl ={ setimmutable, scheme_load_file, - scheme_load_string + scheme_load_string, + port_from_file }; #endif diff --git a/tests/gpgscm/scheme.h b/tests/gpgscm/scheme.h index 05ae7feb0..4ba2daa76 100644 --- a/tests/gpgscm/scheme.h +++ b/tests/gpgscm/scheme.h @@ -224,6 +224,7 @@ struct scheme_interface { void (*setimmutable)(pointer p); void (*load_file)(scheme *sc, FILE *fin); void (*load_string)(scheme *sc, const char *input); + pointer (*mk_port_from_file)(scheme *sc, FILE *f, int kind); }; #endif |