1
0
mirror of git://git.gnupg.org/gnupg.git synced 2024-11-09 21:28:51 +01:00

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 <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-01-22 11:15:20 +01:00
parent 13bba13574
commit 55275b8e2b
2 changed files with 3 additions and 1 deletions

View File

@ -4614,7 +4614,8 @@ static struct scheme_interface vtbl ={
setimmutable,
scheme_load_file,
scheme_load_string
scheme_load_string,
port_from_file
};
#endif

View File

@ -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