X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/05abbc425e545f18690dbdca415a96a524e7d9a6..6f2cdcd11202a6976a399bed4c071b9ac9ce254f:/lib-src/test-distrib.c
diff --git a/lib-src/test-distrib.c b/lib-src/test-distrib.c
index 01897b83a7..880bd11588 100644
--- a/lib-src/test-distrib.c
+++ b/lib-src/test-distrib.c
@@ -1,20 +1,42 @@
+/* test-distrib.c --- testing distribution of nonprinting chars
+
+Copyright (C) 1987, 1993, 1994, 1995, 1999, 2001, 2002, 2003, 2004, 2005,
+ 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+
+This file is part of GNU Emacs.
+
+GNU Emacs is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
+
+GNU Emacs is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU Emacs. If not, see . */
+
+
#ifdef HAVE_CONFIG_H
#include
#endif
-/* Cancel substitutions made by config.h for Emacs. */
-#undef open
-#undef read
-#undef write
-#undef close
-
#include
+#ifdef HAVE_FCNTL_H
+#include
+#endif
+
+#ifdef HAVE_UNISTD_H
+#include
+#endif
+
#ifndef O_RDONLY
#define O_RDONLY 0
#endif
-
/* Break string in two parts to avoid buggy C compilers that ignore characters
after nulls in strings. */
@@ -27,13 +49,10 @@ This file is read by the `test-distribution' program.\n\
If you change it, you will make that program fail.\n";
char buf[300];
-
+
/* Like `read' but keeps trying until it gets SIZE bytes or reaches eof. */
int
-cool_read (fd, buf, size)
- int fd;
- char *buf;
- int size;
+cool_read (int fd, char *buf, int size)
{
int num, sofar = 0;
@@ -48,22 +67,20 @@ cool_read (fd, buf, size)
}
int
-main (argc, argv)
- int argc;
- char **argv;
+main (int argc, char **argv)
{
int fd;
if (argc != 2)
{
fprintf (stderr, "Usage: %s testfile\n", argv[0]);
- exit (2);
+ exit (EXIT_FAILURE);
}
fd = open (argv[1], O_RDONLY);
if (fd < 0)
{
perror (argv[1]);
- exit (2);
+ exit (EXIT_FAILURE);
}
if (cool_read (fd, buf, sizeof string1) != sizeof string1 ||
strcmp (buf, string1) ||
@@ -74,11 +91,13 @@ main (argc, argv)
Most likely this means that many nonprinting characters\n\
have been corrupted in the files of Emacs, and it will not work.\n",
argv[1]);
- exit (2);
+ exit (EXIT_FAILURE);
}
close (fd);
-#ifdef VMS
- exit (1); /* On VMS, success is 1. */
-#endif
- return (0);
+ return EXIT_SUCCESS;
}
+
+/* arch-tag: 3a89005d-df98-4c32-aa9f-33570e16a26a
+ (do not change this comment) */
+
+/* test-distrib.c ends here */