[Pkg-gnupg-commit] [gnupg2] 12/160: tests/gpgscm: Expose function to open streams as Scheme ports.

[Daniel Kahn Gillmor]

This is an automated email from the git hooks/post-receive script.

dkg pushed a commit to branch upstream
in repository gnupg2.

commit 55275b8e2b43a3420d85a1a931e02febaa1113e7
Author: Justus Winter <justus at g10code.com>
Date:   Fri Jan 22 11:15:20 2016 +0100

    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 at g10code.com>
---
 tests/gpgscm/scheme.c | 3 ++-
 tests/gpgscm/scheme.h | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/gpgscm/scheme.c b/tests/gpgscm/scheme.c
index fba1071..fd8f294 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 05ae7fe..4ba2daa 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
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-gnupg/gnupg2.git