38 lines
633 B
C
38 lines
633 B
C
/*
|
|
* cat.c --
|
|
*
|
|
* Program used when testing tclWinPipe.c
|
|
*
|
|
* Copyright (c) 1996 by Sun Microsystems, Inc.
|
|
*
|
|
* See the file "license.terms" for information on usage and redistribution
|
|
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
|
*
|
|
* SCCS: @(#) cat.c 1.3 96/09/18 15:15:32
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <io.h>
|
|
#include <string.h>
|
|
|
|
int
|
|
main()
|
|
{
|
|
char buf[1024];
|
|
int n;
|
|
char *err;
|
|
|
|
while (1) {
|
|
n = read(0, buf, sizeof(buf));
|
|
if (n <= 0) {
|
|
break;
|
|
}
|
|
write(1, buf, n);
|
|
}
|
|
err = (sizeof(int) == 2) ? "stderr16" : "stderr32";
|
|
write(2, err, strlen(err));
|
|
|
|
return 0;
|
|
}
|
|
|