From fd881ecc898a033e0ca0fb226316cdd4ca27223c Mon Sep 17 00:00:00 2001
From: Justus Winter <justus@g10code.com>
Date: Fri, 22 Jan 2016 11:15:20 +0100
Subject: [PATCH] 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>
---
 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 2cd177449..2c9fd0247 100644
--- a/tests/gpgscm/scheme.c
+++ b/tests/gpgscm/scheme.c
@@ -4610,7 +4610,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