kdirname: versión Korn Shell de dirname

functions_korn/kdirname

@@ -0,0 +1,12 @@
+# Versión Korn Shell de dirname
+
+function kdirname {
+	# Comprobar argumentos
+	if (($# ==0 || $# > 1)); then
+		print "Uso: ${0##*/} string"
+		exit 1
+	fi
+
+	# Obtener el nombre del directorio
+	print ${1%/*}
+}