From 02d288d89683e99fd18fe9f54d4e731a6c474a4f Mon Sep 17 00:00:00 2001
From: Rich Felker <dalias@aerifal.cx>
Date: Thu, 12 Apr 2012 01:38:35 -0400
Subject: initial check-in

---
 src/ls.c | 80 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 80 insertions(+)
 create mode 100644 src/ls.c

(limited to 'src/ls.c')

diff --git a/src/ls.c b/src/ls.c
new file mode 100644
index 0000000..defee1e
--- /dev/null
+++ b/src/ls.c
@@ -0,0 +1,80 @@
+/*
+ * ls.c
+ * Implementation of SUSv3 XCU ls utility
+ * Copyright © 2007 Rich Felker
+ * Licensed under the terms of the GNU General Public License, v2 or later
+ */
+
+#include <stdlib.h>
+#include <stdint.h>
+#include <string.h>
+#include <stdio.h>
+#include <wchar.h>
+#include <wctype.h>
+#include <unistd.h>
+#include <limits.h>
+#include <locale.h>
+#include <errno.h>
+
+static size_t mbswidth(const char *s)
+{
+	size_t l, w=0;
+	int v;
+	wchar_t wc;
+	mbstate_t mbs = { 0 };
+	for (w=0; *s; s+=l, w+=v)
+		if ((l=mbrtowc(&wc, s, MB_LEN_MAX, &mbs))+2<2
+		 || (v=wcwidth(wc)) < 0)
+			return -1;
+	return w;
+}
+
+static void my_perror(char *prog, char *msg)
+{
+	char *err = strerror(errno);
+	write(2, prog, strlen(prog));
+	write(2, ": ", 2);
+	write(2, msg, strlen(msg));
+	write(2, ": ", 2);
+	write(2, err, strlen(err));
+	write(2, "\n", 1);
+}
+
+static int cmp(const void *a, const void *b)
+{
+	return strcoll(*(const char **)a, *(const char **)b);
+}
+
+int main(int argc, char *argv[])
+{
+	struct stat st;
+	int (*xstat)(const char *, struct stat *) = stat;
+
+	if (!setlocale(LC_ALL, ""))
+		my_perror(argv[0], "setlocale");
+
+	while ((b=getopt(argc,argv,"CFHLRacdfgilmnoprstux1"))!=EOF) switch(b) {
+	default:
+		return 1;
+	}
+
+	if (optind == argc) {
+	}
+
+	for (i=optind; i<argc; ) {
+		if (xstat(argv[i], &st)) {
+			my_perror(argv[0], argv[i]);
+			memmove(&argv[i], &argv[i+1], argc-i-1);
+			argc--;
+		} else if (S_ISDIR(st.st_mode) && !opt_d) {
+			char *tmp = argv[i];
+			argv[i] = argv[--firstdir];
+			argv[fisrtdir] = tmp;
+			if (i == firstdir) break;
+		} else i++;
+	}
+	qsort(argv+optind, firstdir-optind, sizeof(char *), cmp);
+	qsort(argv+firstdir, argc-firstdir, sizeof(char *), cmp);
+}
+
+
-- 
cgit v1.2.1