Add thirdparty libs

2026-08-12 19:59:09 +00:00 · 2020-10-22 20:43:01 +03:00
parent 76cfb7b813
commit 940d664def
4391 changed files with 1144864 additions and 0 deletions
@@ -0,0 +1,18 @@
+#!/usr/local/bin/perl
+
+if ($#ARGV < 0) {
+    die "dirname.pl: too few arguments\n";
+} elsif ($#ARGV > 0) {
+    die "dirname.pl: too many arguments\n";
+}
+
+my $d = $ARGV[0];
+
+if ($d =~ m|.*/.*|) {
+    $d =~ s|/[^/]*$||;
+} else {
+    $d = ".";
+}
+
+print $d,"\n";
+exit(0);