URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Subversion Repositories or1k
[/] [or1k/] [trunk/] [insight/] [tcl/] [win/] [cat.c] - Rev 1774
Go to most recent revision | Compare with Previous | Blame | View Log
/* * 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. * * RCS: @(#) $Id: cat.c,v 1.1.1.1 2002-01-16 10:25:38 markom Exp $ */ #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; }
Go to most recent revision | Compare with Previous | Blame | View Log