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  *
  45  */
  46
  47 #include <stdarg.h>
  48 #include <sys/types.h>
  49 #include <errno.h>
  50 #include <stdio.h>
  51 #include <stdlib.h>
  52 #include <string.h>
  53 #include <unistd.h>
  54 #include "nls.h"
  55
  56 #include "widechar.h"
  57
  58 void usage(void);
  59 void warn(const char *, ...);
  60
  61 int
  62 main(int argc, char *argv[])
  63 {
  64   register char *filename;
  65   register wchar_t *t;
  66   size_t buflen = 512;
  67   wchar_t *p = malloc(buflen*sizeof(wchar_t));
  68   size_t len;
  69   FILE *fp;
  70   int ch, rval;
  71
  72   setlocale(LC_ALL, "");
  73   bindtextdomain(PACKAGE, LOCALEDIR);
  74   textdomain(PACKAGE);
  75
  76   while ((ch = getopt(argc, argv, "")) != -1)
  77     switch(ch) {
  78     case '?':
  79     default:
  80       usage();
  81     }
  82
  83   argc -= optind;
  84   argv += optind;
  85
  86   fp = stdin;
  87   filename = "stdin";
  88   rval = 0;
  89   do {
  90     if (*argv) {
  91       if ((fp = fopen(*argv, "r")) == NULL) {
  92         warn("%s: %s", *argv, strerror(errno));
  93         rval = 1;
  94         ++argv;
  95         continue;
  96       }
  97       filename = *argv++;
  98     }
  99
 100     while (fgetws(p, buflen, fp)) {
 101
 102       len = wcslen(p);
 103
 104       /* This is my hack from setpwnam.c -janl */
 105       while (p[len-1] != '\n' && !feof(fp)) {
 106         /* Extend input buffer if it failed getting the whole line */
 107
 108         /* So now we double the buffer size */
 109         buflen *= 2;
 110
 111         p = realloc(p, buflen*sizeof(wchar_t));
 112         if (p == NULL) {
 113           fprintf(stderr,_("Unable to allocate bufferspace\n"));
 114           exit(1);
 115         }
 116
 117         /* And fill the rest of the buffer */
 118         if (fgetws(&p[len], buflen/2, fp) == NULL) break;
 119
 120         len = wcslen(p);
 121
 122         /* That was a lot of work for nothing.  Gimme perl! */
 123       }
 124
 125       t = p + len - 1 - (*(p+len-1)=='\r' || *(p+len-1)=='\n');
 126       for ( ; t >= p; --t)
 127         if (*t != 0)
 128           putwchar(*t);
 129       putwchar('\n');
 130     }
 131     fflush(fp);
 132     if (ferror(fp)) {
 133       warn("%s: %s", filename, strerror(errno));
 134       rval = 1;
 135     }
 136     if (fclose(fp))
 137       rval = 1;
 138   } while(*argv);
 139   exit(rval);
 140 }
 141
 142 void
 143 warn(const char *fmt, ...)
 144 {
 145         va_list ap;
 146         va_start(ap, fmt);
 147         (void)fprintf(stderr, "rev: ");
 148         (void)vfprintf(stderr, fmt, ap);
 149         va_end(ap);
 150         (void)fprintf(stderr, "\n");
 151 }
 152
 153 void
 154 usage(void)
 155 {
 156         (void)fprintf(stderr, _("usage: rev [file ...]\n"));
 157         exit(1);
 158 }