make swi-yap io interface a structure.

2010-07-21 09:39:49 +01:00
parent 7551f2b12e
commit 90f7504a76
3 changed files with 22 additions and 11 deletions
--- a/packages/PLStream/pl-file.c
+++ b/packages/PLStream/pl-file.c
@@ -4315,7 +4315,14 @@ static pl_Sgetc(IOSTREAM *s)
 static void
 init_yap_extras()
 {
-  PL_YAP_InitSWIIO(FUNCTOR_dstream1, pl_Sgetc, Sputc, Sclose);
+  swi_io_struct swiio;
+  swiio.f = FUNCTOR_dstream1;
+  swiio.get_c = pl_Sgetc;
+  swiio.put_c = Sputc;
+  swiio.get_w = Sgetcode;
+  swiio.put_w = Sputcode;
+  swiio.close_s = Sclose;
+  PL_YAP_InitSWIIO(&swiio);
  initCharTypes();
  initFiles();
  initGlob();