mirror of
git://git.gnupg.org/gnupg.git
synced 2024-12-22 10:19:57 +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:
parent
13bba13574
commit
55275b8e2b
@ -4614,7 +4614,8 @@ static struct scheme_interface vtbl ={
|
||||
setimmutable,
|
||||
|
||||
scheme_load_file,
|
||||
scheme_load_string
|
||||
scheme_load_string,
|
||||
port_from_file
|
||||
};
|
||||
#endif
|
||||
|
||||
|
@ -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
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user