From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sat, 10 Feb 1996 02:06:58 +0000 (+0000)
Subject: perl 5.002gamma: ext/FileHandle/FileHandle.xs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=80368503fa0e56f42725ce2936d9e73f6d9033b6;p=p5sagit%2Fp5-mst-13.2.git

perl 5.002gamma: ext/FileHandle/FileHandle.xs

Allow compilation even if f[sg]etpos not available.

Allow compilation even if setvbuf() is not available.
---

diff --git a/ext/FileHandle/FileHandle.xs b/ext/FileHandle/FileHandle.xs
index d9c8b68..3a99cf1 100644
--- a/ext/FileHandle/FileHandle.xs
+++ b/ext/FileHandle/FileHandle.xs
@@ -7,6 +7,14 @@ typedef int SysRet;
 typedef FILE * InputStream;
 typedef FILE * OutputStream;
 
+static int
+not_here(s)
+char *s;
+{
+    croak("FileHandle::%s not implemented on this architecture", s);
+    return -1;
+}
+
 static bool
 constant(name, pval)
 char *name;
@@ -57,6 +65,7 @@ SV *
 fgetpos(handle)
 	InputStream	handle
     CODE:
+#ifdef HAS_FGETPOS
 	if (handle) {
 	    Fpos_t pos;
 	    fgetpos(handle, &pos);
@@ -66,18 +75,25 @@ fgetpos(handle)
 	    ST(0) = &sv_undef;
 	    errno = EINVAL;
 	}
+#else
+	ST(0) = (SV *) not_here("fgetpos");
+#endif
 
 SysRet
 fsetpos(handle, pos)
 	InputStream	handle
 	SV *		pos
     CODE:
+#ifdef HAS_FSETPOS
 	if (handle)
 	    RETVAL = fsetpos(handle, (Fpos_t*)SvPVX(pos));
 	else {
 	    RETVAL = -1;
 	    errno = EINVAL;
 	}
+#else
+	    RETVAL = (SysRet) not_here("fsetpos");
+#endif
     OUTPUT:
 	RETVAL
 
@@ -138,7 +154,6 @@ setbuf(handle, buf)
 	    setbuf(handle, buf);
 
 
-#ifdef _IOFBF
 
 SysRet
 setvbuf(handle, buf, type, size)
@@ -147,13 +162,16 @@ setvbuf(handle, buf, type, size)
 	int		type
 	int		size
     CODE:
+#ifdef _IOFBF   /* Should be HAS_SETVBUF once Configure tests for that */
 	if (handle)
 	    RETVAL = setvbuf(handle, buf, type, size);
 	else {
 	    RETVAL = -1;
 	    errno = EINVAL;
 	}
+#else
+	    RETVAL = (SysRet) not_here("setvbuf");
+#endif /* _IOFBF */
     OUTPUT:
 	RETVAL
 
-#endif /* _IOFBF */