4.3BSD/usr/contrib/cpm/src/pip.c

/*	pip.c	1.5	83/05/13	*/

#include <stdio.h>
#include "cpmio.h"
#include "cpmfio.h"

/*
 * Copy unix file to cpm
 */

pip(cmdline, bin)
	char cmdline[];
{

	char	*index(), *i;

	if ((i = index(cmdline,' ')) == NULL) {
		printf("too few arguments: %s\n", cmdline);
		return;
	}
	*i = '\0';
	pipc(cmdline,i+1, bin);
}

pipc(unixfile, cpmfile, bin)
	char cpmfile[], unixfile[];
{

	FILE *ufid;
	char name[9], ext[4];
	C_FILE *cid;
	int flag = 0;

	if ((ufid = fopen(unixfile, "r")) == NULL) {
		printf("can't open %s\n", unixfile);
		return;
	}
	if (!(namesep(cpmfile, name, ext))) 
		return;
	if (bin)
		flag = BINARY;
	if ((cid = c_creat(name, ext, flag)) == NULL)
		return;
	if (bin)
		pipbin(cid, ufid);
	else
		piptext(cid, ufid);
	c_close(cid); 
	fclose(ufid);
}

piptext(cid, ufid)
	FILE *ufid;
	C_FILE *cid;
{
	int c = 0;

	while ((c = getc(ufid)) != EOF) {
		if (c == '\n')  {
			if (c_putc('\r', cid) == EOF) 
				break;
		}
		if (c_putc(c, cid) == EOF) 
			break;
	}
}

pipbin(cid, ufid)
	FILE *ufid;
	C_FILE *cid;
{
	char buf[128];

	while (read(fileno(ufid), buf, 128) != 0) {
		if (c_write(cid, buf, 128) != 128) {
			fprintf(stderr, "pipbin: write error\n");
			return;
		}
	}
}