Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v101/clib/getl.c

@@ -0,0 +1,32 @@
+/**************************************************************************
+*
+*			g e t l   F u n c t i o n
+*			-------------------------
+*	Copyright 1982 by Digital Research Inc.  All rights reserved.
+*
+*	"getl" gets an LONG (4 byte) value from the input stream.
+*	Note that what's written (binary) by a PDP 11 (UNIX: lo byte, hi byte)
+*	system will NOT be compatible with what's written by a
+*	68K (NUXI: hi byte, lo byte) system.
+*
+*	Calling sequence:
+*		l = getl(stream)
+*	Where:
+*		l     = a 32-bit long value
+*		stream-> a (FILE *) input stream
+*
+*****************************************************************************/
+#include <stdio.h>
+LONG getl(sp)
+REG	FILE *sp;				/* the stream to get from   */
+{						/*			    */
+	LONG l;					/* place to get to	    */
+REG	BYTE *p;				/* make ptr to l	    */
+						/****************************/
+	p = (char *)&l;				/* point to l		    */
+	*p++ = getc(sp);			/* no way to distinguish    */
+	*p++ = getc(sp);			/*  twixt EOF & -1	    */
+	*p++ = getc(sp);			/*			    */
+	*p++ = getc(sp);			/*			    */
+	return(l);				/* there it is		    */
+}						/****************************/