DataMuseum.dk

top - metrics - download

    Length: 896 (0x380)
    Types: TextFile
    Names: »CAT.C«

└─⟦23f778bf6⟧ Bits:30005378 BDS C v1.46 & Pascal/MT+ v5.5 (Callan format)
    └─⟦this⟧ »CAT.C« 
└─⟦4ada80662⟧ Bits:30005446 Pascal/MT+ v5.5 & XREF & BDS C v1.46
    └─⟦this⟧ »CAT.C« 

TextFile

/*
	Concatenate text files listed on command line onto the standard
	output, or else  take standard input and send it to standard output.
	For example,

		cat file1 file2 file3 >file4

	creates "file4" consisting of the concatenation of file1,file2, and
	file3 (which must all be text files).

	Link by:
		clink cat -f dio -f wildexp
*/

#include "bdscio.h"
#include "dio.h"

#define STDERR 4

main(argc,argv)
char **argv;
æ
	int c;
	int i;
	char ibufÆBUFSIZÅ;

	wildexp(&argc,&argv);
	dioinit(&argc,argv);

	if (argc == 1)
		while ((c = getchar()) != EOF) putchar(c);
	else
		for (i = 1; i < argc; i++)
		æ
			if (fopen(argvÆiÅ,ibuf) == ERROR)
			æ
				fprintf(STDERR,"Ø7Can't open %sØn",argvÆiÅ);
				continue;
			å
			while ((c = getc(ibuf)) != EOF && c != CPMEOF)
				putchar(c);
		å
	dioflush();
å
«eof»