/*
* 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);
}
