Added implementations from pdcore

[pdutils] / utils / dirname / dirname.c

diff --git a/utils/dirname/dirname.c b/utils/dirname/dirname.c
new file mode 100644 (file)
index 0000000..c490a56
--- /dev/null
+++ b/utils/dirname/dirname.c
@@ -0,0 +1,52 @@
+/*
+ * dirname.c - return the directory portion of a pathname
+ *
+ * Version: 2008-1.01
+ * Build:   c89 -o dirname dirname.c
+ * Source:  <http://pdcore.sourceforge.net/>
+ * Spec:    <http://www.opengroup.org/onlinepubs/9699919799/utilities/dirname.html>
+ *
+ * This is free and unencumbered software released into the public domain,
+ * provided "as is", without warranty of any kind, express or implied. See the
+ * file UNLICENSE and the website <http://unlicense.org> for further details.
+ */
+
+
+#define _POSIX_SOURCE
+
+#include <locale.h>
+#include <stdio.h>
+
+#define USAGE "usage: dirname string\n"
+
+
+int main(int argc, char **argv)
+{
+    char *head, *tail;
+
+    setlocale (LC_ALL, "");
+
+    if (argc != 2)
+    {
+        fprintf(stderr, USAGE);
+        return(1);
+    }
+
+    head = tail = argv[1];
+    while (*tail)
+        tail++;
+
+    while (tail > head && tail[-1] == '/')
+        tail--;
+    while (tail > head && tail[-1] != '/')
+        tail--;
+    while (tail > head && tail[-1] == '/')
+        tail--;
+
+    if (head == tail)
+        printf(*head == '/' ? "/\n" : ".\n");
+    else
+        printf("%.*s\n", (tail - head), head);
+
+    return(0);
+}