Merge from trunk
[emacs.git] / lib-src / test-distrib.c
blob1487c2bab57f7f50204044b23d9bd9a97c5e649c
1 /* test-distrib.c --- testing distribution of nonprinting chars
3 Copyright (C) 1987, 1993, 1994, 1995, 1999, 2001, 2002, 2003, 2004, 2005,
4 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
6 This file is part of GNU Emacs.
8 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 GNU Emacs is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
22 #ifdef HAVE_CONFIG_H
23 #include <config.h>
24 #endif
26 #include <stdio.h>
28 #ifdef HAVE_FCNTL_H
29 #include <fcntl.h>
30 #endif
32 #ifdef HAVE_UNISTD_H
33 #include <unistd.h>
34 #endif
36 #ifndef O_RDONLY
37 #define O_RDONLY 0
38 #endif
40 /* Break string in two parts to avoid buggy C compilers that ignore characters
41 after nulls in strings. */
43 char string1[] = "Testing distribution of nonprinting chars:\n\
44 Should be 0177: \177 Should be 0377: \377 Should be 0212: \212.\n\
45 Should be 0000: ";
47 char string2[] = ".\n\
48 This file is read by the `test-distribution' program.\n\
49 If you change it, you will make that program fail.\n";
51 char buf[300];
53 /* Like `read' but keeps trying until it gets SIZE bytes or reaches eof. */
54 int
55 cool_read (int fd, char *buf, size_t size)
57 ssize_t num;
58 size_t sofar = 0;
60 while (1)
62 if ((num = read (fd, buf + sofar, size - sofar)) == 0)
63 return sofar;
64 else if (num < 0)
65 return num;
66 sofar += num;
70 int
71 main (int argc, char **argv)
73 int fd;
75 if (argc != 2)
77 fprintf (stderr, "Usage: %s testfile\n", argv[0]);
78 exit (EXIT_FAILURE);
80 fd = open (argv[1], O_RDONLY);
81 if (fd < 0)
83 perror (argv[1]);
84 exit (EXIT_FAILURE);
86 if (cool_read (fd, buf, sizeof string1) != sizeof string1 ||
87 strcmp (buf, string1) ||
88 cool_read (fd, buf, sizeof string2) != sizeof string2 - 1 ||
89 strncmp (buf, string2, sizeof string2 - 1))
91 fprintf (stderr, "Data in file `%s' has been damaged.\n\
92 Most likely this means that many nonprinting characters\n\
93 have been corrupted in the files of Emacs, and it will not work.\n",
94 argv[1]);
95 exit (EXIT_FAILURE);
97 close (fd);
98 return EXIT_SUCCESS;
101 /* arch-tag: 3a89005d-df98-4c32-aa9f-33570e16a26a
102 (do not change this comment) */
104 /* test-distrib.c ends here */