text-utils/rev.c

   1 /*-
   2  * Copyright (c) 1987, 1992 The Regents of the University of California.
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  * 3. All advertising materials mentioning features or use of this software
  14  *    must display the following acknowledgement:
  15  *      This product includes software developed by the University of
  16  *      California, Berkeley and its contributors.
  17  * 4. Neither the name of the University nor the names of its contributors
  18  *    may be used to endorse or promote products derived from this software
  19  *    without specific prior written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31  * SUCH DAMAGE.
  32  *
  33  * Modified for Linux by Charles Hannum (mycroft@gnu.ai.mit.edu)
  34  *                   and Brian Koehmstedt (bpk@gnu.ai.mit.edu)
  35  *
  36  * Wed Sep 14 22:26:00 1994: Patch from bjdouma <bjdouma@xs4all.nl> to handle
  37  *                           last line that has no newline correctly.
  38  * 3-Jun-1998: Patched by Nicolai Langfeldt to work better on Linux:
  39  *      Handle any-length-lines.  Code copied from util-linux' setpwnam.c
  40  * 1999-02-22 Arkadiusz Mi¶kiewicz <misiek@pld.ORG.PL>
  41  *      added Native Language Support
  42  * 1999-09-19 Bruno Haible <haible@clisp.cons.org>
  43  *      modified to work correctly in multi-byte locales
  44  * July 2010 - Davidlohr Bueso <dave@gnu.org>
  45  *      Fixed memory leaks (including Linux signal handling)
  46  *      Added some memory allocation error handling
  47  *      Lowered the default buffer size to 256, instead of 512 bytes
  48  *      Changed tab indentation to 8 chars for better reading the code
  49  */
  50
  51 #include <stdarg.h>
  52 #include <sys/types.h>
  53 #include <errno.h>
  54 #include <stdio.h>
  55 #include <stdlib.h>
  56 #include <string.h>
  57 #include <unistd.h>
  58 #include <signal.h>
  59
  60 #include "nls.h"
  61 #include "xalloc.h"
  62 #include "widechar.h"
  63 #include "c.h"
  64
  65 wchar_t *buf;
  66
  67 static void sig_handler(int signo)
  68 {
  69         free(buf);
  70         _exit(EXIT_SUCCESS);
  71 }
  72
  73 static void __attribute__((__noreturn__)) usage(FILE *out)
  74 {
  75         fprintf(out, _("Usage: %s [file ...]\n"),
  76                         program_invocation_short_name);
  77
  78         fprintf(out, _("\nFor more information see rev(1).\n"));
  79
  80         exit(out == stderr ? EXIT_FAILURE : EXIT_SUCCESS);
  81 }
  82
  83 int main(int argc, char *argv[])
  84 {
  85         char *filename = "stdin";
  86         wchar_t *t;
  87         size_t len, bufsiz = BUFSIZ;
  88         FILE *fp = stdin;
  89         int ch, rval = EXIT_SUCCESS;
  90
  91         setlocale(LC_ALL, "");
  92         bindtextdomain(PACKAGE, LOCALEDIR);
  93         textdomain(PACKAGE);
  94
  95         signal(SIGINT, sig_handler);
  96         signal(SIGTERM, sig_handler);
  97
  98         while ((ch = getopt(argc, argv, "")) != -1)
  99                 switch(ch) {
 100                 case '?':
 101                 case 'h':
 102                         usage(stdout);
 103                 default:
 104                         usage(stderr);
 105                 }
 106
 107         argc -= optind;
 108         argv += optind;
 109
 110         do {
 111                 if (*argv) {
 112                         if ((fp = fopen(*argv, "r")) == NULL) {
 113                                 warn(_("%s: open failed"), *argv );
 114                                 rval = EXIT_FAILURE;
 115                                 ++argv;
 116                                 continue;
 117                         }
 118                         filename = *argv++;
 119                 }
 120
 121                 buf = xmalloc(bufsiz * sizeof(wchar_t));
 122
 123                 while (fgetws(buf, bufsiz, fp)) {
 124                         len = wcslen(buf);
 125
 126                         /* This is my hack from setpwnam.c -janl */
 127                         while (buf[len-1] != '\n' && !feof(fp)) {
 128                                 wchar_t *x;
 129
 130                                 /* Extend input buffer if it failed getting the whole line */
 131
 132                                 /* So now we double the buffer size */
 133                                 bufsiz *= 2;
 134
 135                                 x = realloc(buf, bufsiz * sizeof(wchar_t));
 136                                 if (!x) {
 137                                         free(buf);
 138                                         err(EXIT_FAILURE, _("realloc failed"));
 139                                 }
 140                                 buf = x;
 141
 142                                 /* And fill the rest of the buffer */
 143                                 if (!fgetws(&buf[len], bufsiz/2, fp))
 144                                         break;
 145
 146                                 len = wcslen(buf);
 147                         }
 148
 149                         t = buf + len - 1 - (*(buf+len-1)=='\r' || *(buf+len-1)=='\n');
 150                         for ( ; t >= buf; --t) {
 151                                 if (*t != 0)
 152                                         putwchar(*t);
 153                         }
 154                         putwchar('\n');
 155                 }
 156
 157                 fflush(fp);
 158                 if (ferror(fp)) {
 159                         warn("%s", filename);
 160                         rval = EXIT_FAILURE;
 161                 }
 162                 if (fclose(fp))
 163                         rval = EXIT_FAILURE;
 164         } while(*argv);
 165
 166         free(buf);
 167         return rval;
 168 }
 169