mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

* fports.c (local_pclose): New function.

Browse source 
(scm_pipob): Use it in the initializer here.
This commit is contained in:
Jim Blandy 1997-05-14 23:31:00 +00:00
parent 45db98d029
commit 6a2c4c81ae
1 changed files with 15 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

19
libguile/fports.c
View file

@ -363,6 +363,18 @@ local_ffwrite (ptr, size, nitems, fp)
return ffwrite (ptr, size, nitems, fp); return ffwrite (ptr, size, nitems, fp);
} }
/* On SunOS, there's no declaration for pclose in the headers, so
putting it directly in the initializer for scm_pipob doesn't really
fly. We could add an extern declaration for it, but then it'll
mismatch on some systems that do have a declaration. So we just
wrap it up this way. */
static int
local_pclose (fp)
FILE * fp;
{
return pclose (fp);
}
scm_ptobfuns scm_fptob = scm_ptobfuns scm_fptob =
{ {
@ -378,12 +390,11 @@ scm_ptobfuns scm_fptob =
(int (*) SCM_P ((SCM))) local_fclose (int (*) SCM_P ((SCM))) local_fclose
}; };
/* {Pipe ports} /* {Pipe ports} */
*/
scm_ptobfuns scm_pipob = scm_ptobfuns scm_pipob =
{ {
scm_mark0, scm_mark0,
(int (*) SCM_P ((SCM))) pclose, (int (*) SCM_P ((SCM))) local_pclose,
scm_prinport, scm_prinport,
0, 0,
(int (*) SCM_P ((int, SCM))) local_fputc, (int (*) SCM_P ((int, SCM))) local_fputc,
@ -391,7 +402,7 @@ scm_ptobfuns scm_pipob =
(scm_sizet (*) SCM_P ((char *, scm_sizet, scm_sizet, SCM))) local_ffwrite, (scm_sizet (*) SCM_P ((char *, scm_sizet, scm_sizet, SCM))) local_ffwrite,
(int (*) SCM_P ((SCM))) local_fflush, (int (*) SCM_P ((SCM))) local_fflush,
(int (*) SCM_P ((SCM))) scm_fgetc, (int (*) SCM_P ((SCM))) scm_fgetc,
(int (*) SCM_P ((SCM))) pclose (int (*) SCM_P ((SCM))) local_pclose
}; };
void void