Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/alclib/putarhd.c

@@ -0,0 +1,47 @@
+/*
+	Copyright 1983
+	Alcyon Corporation
+	8716 Production Ave.
+	San Diego, CA  92121
+
+	@(#) putarhd.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 "ar68.h"
+#include "iobuf.h"
+
+/*
+ * putarhd - fills the buffer from the archive header structure in
+ *		the byte orientation of the target machine (68000).
+ */
+int
+putarhd(fp,arptr)		/* returns 0 for success, -1 for error */
+FILE *fp;
+struct libhdr *arptr;
+{
+	register int i;
+	register char *p, *lp;
+
+	for (i=0, lp = arptr->lfname; i<LIBNSIZE; i++, lp++)
+		if (putc(*lp,fp) == -1)
+			return(-1);
+	if (lputl(&arptr->lmodti,fp) == -1)
+		return(-1);
+	if (putc(arptr->luserid,fp) == -1)
+		return(-1);
+	if (putc(arptr->lgid,fp) == -1)
+		return(-1);
+	if (lputw(&arptr->lfimode,fp) == -1)
+		return(-1);
+	if (lputl(&arptr->lfsize,fp) == -1)
+		return(-1);
+	return(0);
+}
+