#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;
}