File: estone_cat.c

package info (click to toggle)
erlang 1%3A19.2.1%2Bdfsg-2%2Bdeb9u3
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 175,856 kB
  • sloc: erlang: 1,414,205; xml: 397,681; ansic: 345,439; cpp: 51,554; makefile: 23,040; java: 11,480; sh: 10,128; lisp: 9,231; python: 4,853; pascal: 3,273; perl: 2,970; asm: 2,900; javascript: 700; tcl: 245; sed: 86
file content (36 lines) | stat: -rw-r--r-- 600 bytes parent folder | download | duplicates (8)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
/*
 * Author:  Bjorn Gustavsson
 * Purpose: Simple portable cat utility for the estone benchmark.
 *
 * Compiling instructions:
 *
 * Unix:    gcc -O2 -o estone_cat estone_cat.c
 * Windows: cl -Ox estone_cat.c
 */

#include <sys/types.h>
#include <fcntl.h>
#include <errno.h>

main(argc, argv)
int argc;
char *argv[];
{
    char buf[16384];
    int n;

#ifdef _O_BINARY
    _setmode(0, _O_BINARY);
    _setmode(1, _O_BINARY);
#endif

    for (;;) {
	n = read(0, buf, sizeof(buf));
	if (n <= 0 && errno == EINTR)
	    continue;
	if (n <= 0)
	    break;
        write(1, buf, n);
    }
    return 0;
}