Mercurial > emacs
annotate lib-src/test-distrib.c @ 11123:e0c580dd4251
(win32_mouse_position): New arg `insist'.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 26 Mar 1995 21:12:46 +0000 |
parents | dd3b83e4ceb0 |
children | f65e672e038e |
rev | line source |
---|---|
10 | 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 | |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
2814
diff
changeset
|
35 int |
2814
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
10
diff
changeset
|
36 main (argc, argv) |
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
10
diff
changeset
|
37 int argc; |
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
10
diff
changeset
|
38 char **argv; |
10 | 39 { |
2814
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
10
diff
changeset
|
40 int fd; |
10 | 41 |
2814
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
10
diff
changeset
|
42 if (argc != 2) |
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
10
diff
changeset
|
43 { |
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
10
diff
changeset
|
44 fprintf (stderr, "Usage: %s testfile\n", argv[0]); |
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
10
diff
changeset
|
45 exit (2); |
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
10
diff
changeset
|
46 } |
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
10
diff
changeset
|
47 fd = open (argv[1], 0); |
10 | 48 if (fd < 0) |
49 { | |
2814
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
10
diff
changeset
|
50 perror (argv[1]); |
10 | 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 { | |
2814
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
10
diff
changeset
|
58 fprintf (stderr, "Data in file `%s' has been damaged.\n\ |
10 | 59 Most likely this means that many nonprinting characters\n\ |
2814
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
10
diff
changeset
|
60 have been corrupted in the files of Emacs, and it will not work.\n", |
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
10
diff
changeset
|
61 argv[1]); |
10 | 62 exit (2); |
63 } | |
64 close (fd); | |
65 #ifdef VMS | |
66 exit (1); /* On VMS, success is 1. */ | |
67 #endif | |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
2814
diff
changeset
|
68 return (0); |
10 | 69 } |