lib-src/test-distrib.c

   1 /* test-distrib.c --- testing distribution of nonprinting chars
   2
   3 Copyright (C) 1987, 1993-1995, 1999, 2001-2012  Free Software Foundation, Inc.
   4
   5 This file is part of GNU Emacs.
   6
   7 GNU Emacs is free software: you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation, either version 3 of the License, or
  10 (at your option) any later version.
  11
  12 GNU Emacs is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
  19
  20
  21 #include <config.h>
  22 #include <stdio.h>
  23 #include <fcntl.h>
  24 #include <unistd.h>
  25
  26 /* Break string in two parts to avoid buggy C compilers that ignore characters
  27    after nulls in strings.  */
  28
  29 static char string1[] = "Testing distribution of nonprinting chars:\n\
  30 Should be 0177: \177 Should be 0377: \377 Should be 0212: \212.\n\
  31 Should be 0000: ";
  32
  33 static char string2[] = ".\n\
  34 This file is read by the `test-distribution' program.\n\
  35 If you change it, you will make that program fail.\n";
  36
  37 /* Like `read' but keeps trying until it gets SIZE bytes or reaches eof.  */
  38 static int
  39 cool_read (int fd, char *buf, size_t size)
  40 {
  41   ssize_t num;
  42   ssize_t sofar = 0;
  43
  44   while (1)
  45     {
  46       if ((num = read (fd, buf + sofar, size - sofar)) == 0)
  47         return sofar;
  48       else if (num < 0)
  49         return num;
  50       sofar += num;
  51     }
  52 }
  53
  54 int
  55 main (int argc, char **argv)
  56 {
  57   int fd;
  58   char buf[300];
  59
  60   if (argc != 2)
  61     {
  62       fprintf (stderr, "Usage: %s testfile\n", argv[0]);
  63       exit (EXIT_FAILURE);
  64     }
  65   fd = open (argv[1], O_RDONLY);
  66   if (fd < 0)
  67     {
  68       perror (argv[1]);
  69       exit (EXIT_FAILURE);
  70     }
  71   if (cool_read (fd, buf, sizeof string1) != sizeof string1 ||
  72       strcmp (buf, string1) ||
  73       cool_read (fd, buf, sizeof string2) != sizeof string2 - 1 ||
  74       strncmp (buf, string2, sizeof string2 - 1))
  75     {
  76       fprintf (stderr, "Data in file `%s' has been damaged.\n\
  77 Most likely this means that many nonprinting characters\n\
  78 have been corrupted in the files of Emacs, and it will not work.\n",
  79                argv[1]);
  80       exit (EXIT_FAILURE);
  81     }
  82   close (fd);
  83   return EXIT_SUCCESS;
  84 }
  85
  86
  87 /* test-distrib.c ends here */