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,
|
setimmutable,
|
||||||
|
|
||||||
scheme_load_file,
|
scheme_load_file,
|
||||||
scheme_load_string
|
scheme_load_string,
|
||||||
|
port_from_file
|
||||||
};
|
};
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
@ -224,6 +224,7 @@ struct scheme_interface {
|
|||||||
void (*setimmutable)(pointer p);
|
void (*setimmutable)(pointer p);
|
||||||
void (*load_file)(scheme *sc, FILE *fin);
|
void (*load_file)(scheme *sc, FILE *fin);
|
||||||
void (*load_string)(scheme *sc, const char *input);
|
void (*load_string)(scheme *sc, const char *input);
|
||||||
|
pointer (*mk_port_from_file)(scheme *sc, FILE *f, int kind);
|
||||||
};
|
};
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user