Commit | Line | Data |
---|---|---|
042c85b8 JB |
1 | #include <stdio.h> |
2 | ||
3 | /* Break string in two parts to avoid buggy C compilers that ignore characters | |
4 | after nulls in strings. */ | |
5 | ||
6 | char string1[] = "Testing distribution of nonprinting chars:\n\ | |
7 | Should be 0177: \177 Should be 0377: \377 Should be 0212: \212.\n\ | |
8 | Should be 0000: "; | |
9 | ||
10 | char string2[] = ".\n\ | |
11 | This file is read by the `test-distribution' program.\n\ | |
12 | If you change it, you will make that program fail.\n"; | |
13 | ||
14 | char buf[300]; | |
15 | ||
16 | /* Like `read' but keeps trying until it gets SIZE bytes or reaches eof. */ | |
17 | int | |
18 | cool_read (fd, buf, size) | |
19 | int fd; | |
20 | char *buf; | |
21 | int size; | |
22 | { | |
23 | int num, sofar = 0; | |
24 | ||
25 | while (1) | |
26 | { | |
27 | if ((num = read (fd, buf + sofar, size - sofar)) == 0) | |
28 | return sofar; | |
29 | else if (num < 0) | |
30 | return num; | |
31 | sofar += num; | |
32 | } | |
33 | } | |
34 | ||
340ff9de | 35 | int |
d2d92f7a JB |
36 | main (argc, argv) |
37 | int argc; | |
38 | char **argv; | |
042c85b8 | 39 | { |
d2d92f7a | 40 | int fd; |
042c85b8 | 41 | |
d2d92f7a JB |
42 | if (argc != 2) |
43 | { | |
44 | fprintf (stderr, "Usage: %s testfile\n", argv[0]); | |
45 | exit (2); | |
46 | } | |
47 | fd = open (argv[1], 0); | |
042c85b8 JB |
48 | if (fd < 0) |
49 | { | |
d2d92f7a | 50 | perror (argv[1]); |
042c85b8 JB |
51 | exit (2); |
52 | } | |
53 | if (cool_read (fd, buf, sizeof string1) != sizeof string1 || | |
54 | strcmp (buf, string1) || | |
55 | cool_read (fd, buf, sizeof string2) != sizeof string2 - 1 || | |
56 | strncmp (buf, string2, sizeof string2 - 1)) | |
57 | { | |
d2d92f7a | 58 | fprintf (stderr, "Data in file `%s' has been damaged.\n\ |
042c85b8 | 59 | Most likely this means that many nonprinting characters\n\ |
d2d92f7a JB |
60 | have been corrupted in the files of Emacs, and it will not work.\n", |
61 | argv[1]); | |
042c85b8 JB |
62 | exit (2); |
63 | } | |
64 | close (fd); | |
65 | #ifdef VMS | |
66 | exit (1); /* On VMS, success is 1. */ | |
042c85b8 | 67 | #endif |
340ff9de | 68 | return (0); |
042c85b8 | 69 | } |