1 files changed, 98 insertions, 0 deletions
diff --git a/support/xcase.c b/support/xcase.c
new file mode 100644
index 0000000..527840d
--- /dev/null
+++ b/support/xcase.c
@@ -0,0 +1,98 @@
+/* xcase - change uppercase characters to lowercase or vice versa. */
+
+/* Copyright (C) 2008,2009 Free Software Foundation, Inc.
+
+   This file is part of GNU Bash.
+
+   Bash 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.
+
+   Bash 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 Bash.  If not, see <http://www.gnu.org/licenses/>.
+*/
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#include <stdio.h>
+#include <ctype.h>
+
+#if HAVE_UNISTD_H
+#include <unistd.h>
+#endif
+
+#include "bashansi.h"
+#include <errno.h>
+
+#ifndef errno
+extern int errno;
+#endif
+
+extern int optind;
+
+#define LOWER	1
+#define UPPER	2
+
+int
+main(ac, av)
+int	ac;
+char	**av;
+{
+	int	c, x;
+	int	op;
+	FILE	*inf;
+
+	op = 0;
+	while ((c = getopt(ac, av, "lnu")) != EOF) {
+		switch (c) {
+		case 'n':
+			setbuf (stdout, (char *)NULL);
+			break;
+		case 'u':
+			op = UPPER;
+			break;
+		case 'l':
+			op = LOWER;
+			break;
+		default:
+			fprintf(stderr, "casemod: usage: casemod [-lnu] [file]\n");
+			exit(2);
+		}
+	}
+	av += optind;
+	ac -= optind;
+
+	if (av[0] && (av[0][0] != '-' || av[0][1])) {
+		inf = fopen(av[0], "r");
+		if (inf == 0) {
+			fprintf(stderr, "casemod: %s: cannot open: %s\n", av[0], strerror(errno));
+			exit(1);
+		}
+	} else
+		inf = stdin;
+
+	while ((c = getc(inf)) != EOF) {
+		switch (op) {
+		case UPPER:
+			x = islower(c) ? toupper(c) : c;
+			break;
+		case LOWER:
+			x = isupper(c) ? tolower(c) : c;
+			break;
+		default:
+			x = c;
+			break;
+		}
+		putchar(x);
+	}
+			
+	exit(0);
+}