text: /*
   * Copyright (c) 2014 Jonas 'Sortie' Termansen.
   * Copyright (c) 2016 Liuxiaofeng.
   *
   * Permission to use, copy, modify, and distribute this software for any
   * purpose with or without fee is hereby granted, provided that the above
   * copyright notice and this permission notice appear in all copies.
   *
   * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
   * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
   * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
   * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
   * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
   * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
   * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
   *
   * dirname.c
   * Strip last component from file name.
   */
  
  #include <stdio.h>
  #include <stdlib.h>
  #include <stdbool.h>
  #include <string.h>
  #include <libgen.h>
  
  void do_dirname(char* path, bool zero)
  {
  	const char* name = dirname(path);
  	fputs(name, stdout);
  	fputc(zero ? '\0' : '\n', stdout);
  }
  
  static void compact_arguments(int* argc, char*** argv)
  {
  	for (int i = 0; i < *argc; i++) {
  		while (i < *argc && !(*argv)[i]) {
  			for (int n = i; n < *argc; n++)
  				(*argv)[n] = (*argv)[n + 1];
  			(*argc)--;
  		}
  	}
  }
  
  static void help(FILE* fp, const char* argv0)
  {
  	fprintf(fp, "Usage: %s [OPTION] NAME...\n", argv0);
  	fprintf(fp,
  			"Output each NAME with its last non-slash component and trailing slashes\n");
  	fprintf(fp,
  			"removed; if NAME contains no /'s, output '.' (meaning the current directory).\n");
  	fprintf(fp, "\n");
  	fprintf(fp,
  			"  -z, --zero           separate output with NUL rather than newline\n");
  	fprintf(fp, "      --help           display this help and exit\n");
  	fprintf(fp,
  			"      --version        output version information and exit\n");
  	fprintf(fp, "\n");
  	fprintf(fp, "Examples:\n");
  	fprintf(fp, "  %s /usr/bin/          -> \"/usr\"\n", argv0);
  	fprintf(fp,
  			"  %s dir1/str dir2/str  -> \"dir1\" followed by \"dir2\"\n",
  			argv0);
  	fprintf(fp, "  %s stdio.h            -> \".\"\n", argv0);
  }
  
  static void version(FILE* fp, const char* argv0)
  {
  	fprintf(fp, "%s (FireKylin) %s\n", argv0, 0.1);
  }
  
  int main(int argc, char* argv[])
  {
  	bool zero = false;
  
  	const char* argv0 = argv[0];
  	for (int i = 1; i < argc; i++) {
  		const char* arg = argv[i];
  		if (arg[0] != '-' || !arg[1])
  			continue;
  		argv[i] = NULL;
  		if (!strcmp(arg, "--"))
  			break;
  		if (arg[1] != '-') {
  			char c;
  			while ((c = *++arg))
  				switch (c) {
  				case 'z':
  					zero = true;
  					break;
  				default:
  					fprintf(stderr,
  							"%s: unknown option -- '%c'\n",
  							argv0, c);
  					help(stderr, argv0);
  					exit(1);
  				}
  		} else if (!strcmp(arg, "--help"))
  			help(stdout, argv0), exit(0);
  		else if (!strcmp(arg, "--version"))
  			version(stdout, argv0), exit(0);
  		else if (!strcmp(arg, "--zero"))
  			zero = true;
  		else {
  			fprintf(stderr, "%s: unknown option: %s\n", argv0, arg);
  			help(stderr, argv0);
  			exit(1);
  		}
  	}
  
  	compact_arguments(&argc, &argv);
  
  	if (argc <= 1) {
  		fprintf(stderr, "missing operand");
  		fprintf(stderr, "Try `%s --help' for more information.\n",
  				argv[0]);
  		exit(1);
  	}
  
  	for (int i = 1; i < argc; i++)
  		do_dirname(argv[i], zero);
  
  	if (fflush(stdout) == EOF)
  		return 1;
  	if (ferror(stdout))
  		return 1;
  
  	return 0;
  }
  