mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 08:24:18 +00:00
39 lines
1.2 KiB
C
39 lines
1.2 KiB
C
/**************************************************************************
|
||
*
|
||
* 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) /* CLEAR FUNCTION ***********/
|
||
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 */
|
||
} /****************************/
|
||
*/
|
||
} /****************************/
|
||
*/
|
||
} /****************************/
|