mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 16:34:07 +00:00
41 lines
759 B
C
41 lines
759 B
C
/*
|
|
Copyright 1983
|
|
Alcyon Corporation
|
|
8716 Production Ave.
|
|
San Diego, CA 92121
|
|
|
|
@(#) libput.c - Sep 12, 1983 REGULUS 4.1
|
|
*/
|
|
|
|
/*
|
|
I/O independent mapping routine. Machine specific. Independent
|
|
of structure padding. Buffer must contain at least as many
|
|
characters as is required for structure.
|
|
*/
|
|
|
|
#include "order.h"
|
|
#include "iobuf.h"
|
|
|
|
#define doputc(byte,fp) if(putc(byte,fp) == -1) return(ERROR)
|
|
|
|
lputl(lp,f) /* returns 0 for success, -1 for failure */
|
|
long *lp; /* 32 bits */
|
|
FILE *f;
|
|
{
|
|
doputc(lp->b1,f);
|
|
doputc(lp->b2,f);
|
|
doputc(lp->b3,f);
|
|
doputc(lp->b4,f);
|
|
return(SUCCESS);
|
|
}
|
|
|
|
lputw(lp,f) /* returns 0 for success, -1 for failure */
|
|
short *lp; /* 16 bits */
|
|
FILE *f;
|
|
{
|
|
doputc(lp->wb1,f);
|
|
doputc(lp->wb2,f);
|
|
return(SUCCESS);
|
|
}
|
|
|