Annotation of embedaddon/libiconv/tests/uniq-u.c, revision 1.1
1.1 ! misho 1: /* uniq -- remove duplicate lines from a sorted file
! 2: Copyright (C) 86, 91, 1995-1998, 1999 Free Software Foundation, Inc.
! 3:
! 4: This program is free software: you can redistribute it and/or modify
! 5: it under the terms of the GNU General Public License as published by
! 6: the Free Software Foundation; either version 3 of the License, or
! 7: (at your option) any later version.
! 8:
! 9: This program is distributed in the hope that it will be useful,
! 10: but WITHOUT ANY WARRANTY; without even the implied warranty of
! 11: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! 12: GNU General Public License for more details.
! 13:
! 14: You should have received a copy of the GNU General Public License
! 15: along with this program. If not, see <http://www.gnu.org/licenses/>. */
! 16:
! 17: /* Written by Richard Stallman and David MacKenzie. */
! 18: /* 2000-03-22 Trimmed down to the case of "uniq -u" by Bruno Haible. */
! 19:
! 20: #include <stddef.h>
! 21: #include <stdio.h>
! 22: #include <stdlib.h>
! 23: #include <string.h>
! 24:
! 25: /* The name this program was run with. */
! 26: static char *program_name;
! 27:
! 28: static void
! 29: xalloc_fail (void)
! 30: {
! 31: fprintf (stderr, "%s: virtual memory exhausted\n", program_name);
! 32: exit (1);
! 33: }
! 34:
! 35: /* Allocate N bytes of memory dynamically, with error checking. */
! 36:
! 37: void *
! 38: xmalloc (size_t n)
! 39: {
! 40: void *p;
! 41:
! 42: p = malloc (n);
! 43: if (p == 0)
! 44: xalloc_fail ();
! 45: return p;
! 46: }
! 47:
! 48: /* Change the size of an allocated block of memory P to N bytes,
! 49: with error checking.
! 50: If P is NULL, run xmalloc. */
! 51:
! 52: void *
! 53: xrealloc (void *p, size_t n)
! 54: {
! 55: p = realloc (p, n);
! 56: if (p == 0)
! 57: xalloc_fail ();
! 58: return p;
! 59: }
! 60:
! 61: /* A `struct linebuffer' holds a line of text. */
! 62:
! 63: struct linebuffer
! 64: {
! 65: size_t size; /* Allocated. */
! 66: size_t length; /* Used. */
! 67: char *buffer;
! 68: };
! 69:
! 70: /* Initialize linebuffer LINEBUFFER for use. */
! 71:
! 72: static void
! 73: initbuffer (struct linebuffer *linebuffer)
! 74: {
! 75: linebuffer->length = 0;
! 76: linebuffer->size = 200;
! 77: linebuffer->buffer = (char *) xmalloc (linebuffer->size);
! 78: }
! 79:
! 80: /* Read an arbitrarily long line of text from STREAM into LINEBUFFER.
! 81: Keep the newline; append a newline if it's the last line of a file
! 82: that ends in a non-newline character. Do not null terminate.
! 83: Return LINEBUFFER, except at end of file return 0. */
! 84:
! 85: static struct linebuffer *
! 86: readline (struct linebuffer *linebuffer, FILE *stream)
! 87: {
! 88: int c;
! 89: char *buffer = linebuffer->buffer;
! 90: char *p = linebuffer->buffer;
! 91: char *end = buffer + linebuffer->size - 1; /* Sentinel. */
! 92:
! 93: if (feof (stream) || ferror (stream))
! 94: return 0;
! 95:
! 96: do
! 97: {
! 98: c = getc (stream);
! 99: if (c == EOF)
! 100: {
! 101: if (p == buffer)
! 102: return 0;
! 103: if (p[-1] == '\n')
! 104: break;
! 105: c = '\n';
! 106: }
! 107: if (p == end)
! 108: {
! 109: linebuffer->size *= 2;
! 110: buffer = (char *) xrealloc (buffer, linebuffer->size);
! 111: p = p - linebuffer->buffer + buffer;
! 112: linebuffer->buffer = buffer;
! 113: end = buffer + linebuffer->size - 1;
! 114: }
! 115: *p++ = c;
! 116: }
! 117: while (c != '\n');
! 118:
! 119: linebuffer->length = p - buffer;
! 120: return linebuffer;
! 121: }
! 122:
! 123: /* Free linebuffer LINEBUFFER's data. */
! 124:
! 125: static void
! 126: freebuffer (struct linebuffer *linebuffer)
! 127: {
! 128: free (linebuffer->buffer);
! 129: }
! 130:
! 131: /* Undefine, to avoid warning about redefinition on some systems. */
! 132: #undef min
! 133: #define min(x, y) ((x) < (y) ? (x) : (y))
! 134:
! 135: /* Return zero if two strings OLD and NEW match, nonzero if not.
! 136: OLD and NEW point not to the beginnings of the lines
! 137: but rather to the beginnings of the fields to compare.
! 138: OLDLEN and NEWLEN are their lengths. */
! 139:
! 140: static int
! 141: different (const char *old, const char *new, size_t oldlen, size_t newlen)
! 142: {
! 143: int order;
! 144:
! 145: order = memcmp (old, new, min (oldlen, newlen));
! 146:
! 147: if (order == 0)
! 148: return oldlen - newlen;
! 149: return order;
! 150: }
! 151:
! 152: /* Output the line in linebuffer LINE to stream STREAM
! 153: provided that the switches say it should be output.
! 154: If requested, print the number of times it occurred, as well;
! 155: LINECOUNT + 1 is the number of times that the line occurred. */
! 156:
! 157: static void
! 158: writeline (const struct linebuffer *line, FILE *stream, int linecount)
! 159: {
! 160: if (linecount == 0)
! 161: fwrite (line->buffer, 1, line->length, stream);
! 162: }
! 163:
! 164: /* Process input file INFILE with output to OUTFILE.
! 165: If either is "-", use the standard I/O stream for it instead. */
! 166:
! 167: static void
! 168: check_file (const char *infile, const char *outfile)
! 169: {
! 170: FILE *istream;
! 171: FILE *ostream;
! 172: struct linebuffer lb1, lb2;
! 173: struct linebuffer *thisline, *prevline, *exch;
! 174: char *prevfield, *thisfield;
! 175: size_t prevlen, thislen;
! 176: int match_count = 0;
! 177:
! 178: if (!strcmp (infile, "-"))
! 179: istream = stdin;
! 180: else
! 181: istream = fopen (infile, "r");
! 182: if (istream == NULL)
! 183: {
! 184: fprintf (stderr, "%s: error opening %s\n", program_name, infile);
! 185: exit (1);
! 186: }
! 187:
! 188: if (!strcmp (outfile, "-"))
! 189: ostream = stdout;
! 190: else
! 191: ostream = fopen (outfile, "w");
! 192: if (ostream == NULL)
! 193: {
! 194: fprintf (stderr, "%s: error opening %s\n", program_name, outfile);
! 195: exit (1);
! 196: }
! 197:
! 198: thisline = &lb1;
! 199: prevline = &lb2;
! 200:
! 201: initbuffer (thisline);
! 202: initbuffer (prevline);
! 203:
! 204: if (readline (prevline, istream) == 0)
! 205: goto closefiles;
! 206: prevfield = prevline->buffer;
! 207: prevlen = prevline->length;
! 208:
! 209: while (!feof (istream))
! 210: {
! 211: int match;
! 212: if (readline (thisline, istream) == 0)
! 213: break;
! 214: thisfield = thisline->buffer;
! 215: thislen = thisline->length;
! 216: match = !different (thisfield, prevfield, thislen, prevlen);
! 217:
! 218: if (match)
! 219: ++match_count;
! 220:
! 221: if (!match)
! 222: {
! 223: writeline (prevline, ostream, match_count);
! 224: exch = prevline;
! 225: prevline = thisline;
! 226: thisline = exch;
! 227: prevfield = thisfield;
! 228: prevlen = thislen;
! 229: if (!match)
! 230: match_count = 0;
! 231: }
! 232: }
! 233:
! 234: writeline (prevline, ostream, match_count);
! 235:
! 236: closefiles:
! 237: if (ferror (istream) || fclose (istream) == EOF)
! 238: {
! 239: fprintf (stderr, "%s: error reading %s\n", program_name, infile);
! 240: exit (1);
! 241: }
! 242:
! 243: if (ferror (ostream) || fclose (ostream) == EOF)
! 244: {
! 245: fprintf (stderr, "%s: error writing %s\n", program_name, outfile);
! 246: exit (1);
! 247: }
! 248:
! 249: freebuffer (&lb1);
! 250: freebuffer (&lb2);
! 251: }
! 252:
! 253: int
! 254: main (int argc, char **argv)
! 255: {
! 256: const char *infile = "-";
! 257: const char *outfile = "-";
! 258: int optind = 1;
! 259:
! 260: program_name = argv[0];
! 261:
! 262: if (optind < argc)
! 263: infile = argv[optind++];
! 264:
! 265: if (optind < argc)
! 266: outfile = argv[optind++];
! 267:
! 268: if (optind < argc)
! 269: {
! 270: fprintf (stderr, "%s: too many arguments\n", program_name);
! 271: exit (1);
! 272: }
! 273:
! 274: check_file (infile, outfile);
! 275:
! 276: exit (0);
! 277: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to uniq-u.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / libiconv / tests