initial check-in, taken from old libc svn repo with significant additions

1 files changed, 308 insertions, 0 deletions

diff --git a/hello.old b/hello.old
new file mode 100644
index 0000000..b6f057b
--- /dev/null
+++ b/hello.old
@@ -0,0 +1,308 @@
+#include <stdio.h>
+#include <unistd.h>
+#include <errno.h>
+#include <string.h>
+#include <strings.h>
+#include <stdlib.h>
+#include <libgen.h>
+#include <wchar.h>
+#include <arpa/inet.h>
+#include <netinet/in.h>
+#include <sys/socket.h>
+#include <dirent.h>
+#include <fnmatch.h>
+#include <glob.h>
+#include <netdb.h>
+#include <pwd.h>
+#include <grp.h>
+#include <ctype.h>
+#include <time.h>
+#include <regex.h>
+#include <iconv.h>
+#include <ftw.h>
+#include <sys/stat.h>
+#include <limits.h>
+
+extern char **environ;
+
+static char *classes(wchar_t c)
+{
+	int i;
+	static char buf[13];
+	char *p = buf;
+	static const char classname[13][6] = {
+		"alnum", "alpha", "blank", "cntrl",
+		"digit", "graph", "lower", "print",
+		"punct", "space", "upper", "xdigit", ""
+	};
+	static const char flags[] = "nabcdglp!sux";
+	memset(buf, 0, sizeof buf);
+	for (i=0; classname[i][0]; i++)
+		if (iswctype(c, wctype(classname[i])))
+			*p++ = flags[i];
+		else *p++ = '-';
+	return buf;
+}
+
+static int walker(const char *path, const struct stat *st, int type, struct FTW *ftws)
+{
+	char *types[] = { "", "F", "D", "DNR", "NS", "SL", "DP", "SLN" };
+	printf("%d %s: %s: %s\n", ftws->level, path, path+ftws->base, types[type]);
+	return 0;
+}
+
+int main(int argc, char *argv[])
+{
+	int c, i, j, k, l;
+	struct passwd *pw;
+	struct group *gr;
+	struct hostent *he;
+	struct addrinfo *aih, *ai, req = { 0 };
+	struct in_addr addr = { inet_addr("127.0.0.1") };
+	glob_t gl;
+	DIR *dir;
+	struct tm tm;
+	time_t mytime;
+	char foo[256], bar[256];
+	regex_t rx;
+	regmatch_t rm;
+	iconv_t cd;
+
+	while ((c = getopt(argc, argv, ":u:g:h:G:F:f:H46Ct:US:r:ei:w:")) >= 0) switch (c) {
+	case 'e':
+		for (i=0; i<128; i++) {
+			printf("%3d: %s\n", i, strerror(i));
+		}
+		break;
+	case 'r':
+		if ((j = regcomp(&rx, optarg, REG_EXTENDED))) {
+			regerror(j, &rx, foo, sizeof foo);
+			printf("regcomp error %d: %s\n", j, foo);
+			break;
+		}
+		for (;;) {
+			fgets(foo, sizeof foo, stdin);
+			if (feof(stdin)) break;
+			l = strlen(foo);
+			if (foo[l-1] == '\n') foo[l-1] = 0;
+			k = regexec(&rx, foo, 1, &rm, 0);
+			switch (k) {
+			case 0:
+				printf("matched %.*s\n", (int)(rm.rm_eo-rm.rm_so), foo+rm.rm_so);
+				break;
+			default:
+				regerror(k, &rx, foo, sizeof foo);
+				printf("%s\n", foo);
+				break;
+			}
+		}
+		regfree(&rx);
+		break;
+	case 'i':
+		cd = iconv_open("UTF-8", optarg);
+		printf("iconv_open returned %lx\n", (long)cd);
+		if (cd != (iconv_t)-1) for (;;) {
+			char *s=foo, *t=bar;
+			size_t l, k = sizeof bar;
+			fgets(foo, sizeof foo, stdin);
+			if (feof(stdin)) break;
+			l = strlen(foo);
+			if (foo[l-1] == '\n') foo[l-1] = 0;
+			errno = 0;
+			printf("iconv returned %zu\n", iconv(cd, &s, &l, &t, &k));
+			*t = 0;
+			printf("errno=%d (%s), inb=%zu, outb=%zu\nresult=[%s]\n", errno, strerror(errno), l, k, bar);
+		}
+		break;
+	case 'S':
+		printf("sscanf returned %d\n", sscanf(optarg, "%3i%i    %i%[abcdefg] %d", &i, &j, &k, foo, &c));
+		printf("input=[%s] i=%d j=%d k=%d foo=[%s] c=%d\n", optarg, i, j, k, foo, c);
+		break;
+	case 'U':
+		for (;1;) {
+			wchar_t wc;
+			fgets(foo, sizeof foo, stdin);
+			if (feof(stdin)) break;
+			for (i=j=0; foo[i] && foo[i] != '\n'; i++) {
+				if (1 && (l = mbtowc(&wc, foo+i, 4)) < 0) { bar[j++] = '?'; continue; }
+				if (0 && (l = mbrtowc(&wc, foo+i, 1, NULL)) < 0) {
+					if (l == -2) continue;
+					bar[j++] = '?';
+					mbrtowc(NULL, NULL, 0, NULL);
+					if ((l = mbrtowc(&wc, foo+i, 1, NULL)) == -1) {
+						mbrtowc(NULL, NULL, 0, NULL);
+						continue;
+					} else if (l == -2) continue;
+				}
+				if (wc > 126 || wc < 32) bar[j++] = '.';
+				else bar[j++] = wc;
+				i += l-1;
+			}
+			bar[j++] = 0;
+			foo[i++] = 0;
+			puts(bar);
+		}
+		if (1) {
+			unsigned char mbs[4] = { 0, 0, 0, 0 };
+			int l;
+			wchar_t c;
+
+			for (mbs[0]=0x00; mbs[0]<0xf5; mbs[0]++)
+			for (mbs[1]=0x80; mbs[1]<(mbs[0]<0xc0?0x81:0xc0); mbs[1]++)
+			for (mbs[2]=0x80; mbs[2]<(mbs[0]<0xe0?0x81:0xc0); mbs[2]++)
+			for (mbs[3]=0x80; mbs[3]<(mbs[0]<0xf0?0x81:0xc0); mbs[3]++) {
+				l = mbtowc(&c, mbs, 4);
+				//l = mbrtowc(&c, mbs, 4, NULL);
+				//mbrtowc(NULL, NULL, 0, NULL);
+				if (l < 0) c = 0;
+				printf("%02x %02x %02x %02x [%2d %06x %2d %s] %lc\n", mbs[0], mbs[1], mbs[2], mbs[3], l, c, wcwidth(c), classes(c), iscntrl(c) || c<0 ? L' ' : c);
+			}
+			//l = wcrtomb(mbs, i, NULL);
+			//printf("char %06x: %02x %02x %02x %02x [%d]\n", i, mbs[0], mbs[1], mbs[2], mbs[3], l);
+		}
+		for (i=0; i<0; i++) {
+			unsigned char mbs[7] = { 0, 0, 0, 0, 0, 0, 0 };
+			int l;
+			wchar_t c;
+			l = wcrtomb(mbs, i, NULL);
+			//printf("char %06x: %02x %02x %02x %02x [%d]\n", i, mbs[0], mbs[1], mbs[2], mbs[3], l);
+			l = mbrtowc(&c, mbs, 4, NULL);
+			printf("char %06x: %02x %02x %02x %02x [%d %06x]\n", i, mbs[0], mbs[1], mbs[2], mbs[3], l, c);
+		}
+		break;
+	case 't':
+		mytime = atoll(optarg);
+		for (i=0; i<6; i++) {
+			time_t time2 = mytime + 1800*i;
+			tm = *localtime(&time2);
+			strftime(foo, sizeof foo, "%c", &tm);
+			printf("%s [yd=%d dst=%d]\n", foo, tm.tm_yday, tm.tm_isdst);
+		}
+		break;
+	case 'H':
+		printf("hello, world!\n");
+		break;
+	case 'C':
+		req.ai_flags ^= AI_CANONNAME;
+		break;
+	case '4':
+		req.ai_family = AF_INET;
+		break;
+	case '6':
+		req.ai_family = AF_INET6;
+		break;
+	case 'u':
+		if ((pw = getpwnam(optarg)) || (isdigit(optarg[0]) && (pw = getpwuid(atoi(optarg))))) {
+			printf("pw_name   = %s\n", pw->pw_name);
+			printf("pw_passwd = %s\n", pw->pw_passwd);
+			printf("pw_uid    = %d\n", pw->pw_uid);
+			printf("pw_gid    = %d\n", pw->pw_gid);
+			printf("pw_gecos  = %s\n", pw->pw_gecos);
+			printf("pw_dir    = %s\n", pw->pw_dir);
+			printf("pw_shell  = %s\n", pw->pw_shell);
+		}
+		break;
+	case 'g':
+		if ((gr = getgrnam(optarg)) || (isdigit(optarg[0]) && (gr = getgrgid(atoi(optarg))))) {
+			printf("gr_name   = %s\n", gr->gr_name);
+			printf("gr_passwd = %s\n", gr->gr_passwd);
+			printf("gr_gid    = %d\n", gr->gr_gid);
+			for (i=0; gr->gr_mem[i]; i++)
+				printf("gr_mem[%d] = %s\n", i, gr->gr_mem[i]);
+		}
+		break;
+	case 'h':
+		l = getaddrinfo(optarg, NULL, &req, &aih);
+		printf("getaddrinfo returned %d\n", l);
+		if (!l) {
+			char tmp[100];
+			printf("aih: %p\n", aih);
+			if (aih->ai_canonname)
+				printf("canonical name: %s\n", aih->ai_canonname);
+			for (ai=aih; ai; ai=ai->ai_next) {
+				if (!getnameinfo(ai->ai_addr, ai->ai_addrlen, tmp, sizeof tmp, NULL, 0, NI_NUMERICHOST))
+					printf("address = %s\n", tmp);
+				else
+					printf("address = %08x\n", ntohl(((struct sockaddr_in *)ai->ai_addr)->sin_addr.s_addr));
+			}
+			if (!getnameinfo(aih->ai_addr, aih->ai_addrlen, tmp, sizeof tmp, NULL, 0, 0)) {
+				printf("getnameinfo: %s\n", tmp);
+			}
+			freeaddrinfo(aih);
+		}
+		if ((he = gethostbyname(optarg))) {
+			char addr[4];
+			printf("gethostbyname reports:\n");
+			for (j=0; he->h_addr_list[j]; j++)
+				printf("%d.%d.%d.%d\n", (unsigned char)he->h_addr_list[j][0], (unsigned char)he->h_addr_list[j][1], (unsigned char)he->h_addr_list[j][2], (unsigned char)he->h_addr_list[j][3]);
+			for (j=0; he->h_aliases[j]; j++)
+				printf("alias %s\n", he->h_aliases[j]);
+			printf("name %s\n", he->h_name);
+			memcpy(addr, he->h_addr_list[0], 4);
+#if 1
+			if ((he = gethostbyaddr(addr, 4, AF_INET))) {
+				printf("gethostbyaddr reports:\n");
+				for (j=0; he->h_addr_list[j]; j++)
+					printf("%d.%d.%d.%d\n", (unsigned char)he->h_addr_list[j][0], (unsigned char)he->h_addr_list[j][1], (unsigned char)he->h_addr_list[j][2], (unsigned char)he->h_addr_list[j][3]);
+				for (j=0; he->h_aliases && he->h_aliases[j]; j++)
+					printf("alias %s\n", he->h_aliases[j]);
+				printf("name %s\n", he->h_name);
+			}
+#endif
+		}
+		break;
+	case 'G':
+		printf("matching %s\n", optarg);
+		glob(optarg, GLOB_MARK, NULL, &gl);
+		for (j=0; j<gl.gl_pathc; j++)
+			printf(" [%d] [%s]\n", j, gl.gl_pathv[j]);
+		globfree(&gl);
+		break;
+	case 'F':
+		pw = getpwuid(getuid());
+		if (pw && (dir = opendir(pw->pw_dir))) {
+			struct dirent *de;
+			while ((de = readdir(dir)))
+				if (!fnmatch(optarg, de->d_name, 0))
+					printf("%s\n", de->d_name);
+			closedir(dir);
+		}
+		break;
+	case 'f':
+		printf("%s -> [%s]\n", optarg, inet_ntoa(addr));
+		if (addr.s_addr != (unsigned int)-1) {
+			char foo[100];
+			struct sockaddr_in sin = { AF_INET, htons(79), addr };
+			int sock = socket(PF_INET, SOCK_STREAM, 0);
+			connect(sock, (void *)&sin, sizeof sin);
+			write(sock, optarg, strlen(optarg));
+			write(sock, "\n", 1);
+			while ((l = read(sock, foo, sizeof foo)) > 0)
+				fwrite(foo, 1, l, stdout);
+			fflush(stdout);
+			close(sock);
+		}
+		break;
+	case 'w':
+		printf("nftw returned %d\n", nftw(optarg, walker, 1024, 0));
+		printf("errno=%d (%s)\n", errno, strerror(errno));
+		break;
+	case ':':
+		for (;;) {
+			char foo[100], opt[3] = { '-', optopt, 0 };
+			char *newargs[] = { argv[0], opt, foo, NULL };
+			fgets(foo, sizeof foo, stdin);
+			if (feof(stdin)) return 0;
+			i = strlen(foo);
+			if (!i) return 0;
+			if (foo[i-1] == '\n') foo[i-1] = 0;
+			optind = 1;
+			main(3, newargs);
+		}
+		break;
+	case '?':
+		printf("unknown option %lc\n", optopt);
+		return -1;
+	}
+	return 0;
+}