1 files changed, 0 insertions, 59 deletions
diff --git a/c/src/lib/libbsp/unix/posix/tools/semdump.in b/c/src/lib/libbsp/unix/posix/tools/semdump.in
deleted file mode 100644
index 53710a629e..0000000000
--- a/c/src/lib/libbsp/unix/posix/tools/semdump.in
+++ /dev/null
@@ -1,59 +0,0 @@
-#!@PERL@
-#
-#  $Id$
-#
-eval "exec @PERL@ -S $0 $*"
-    if $running_under_some_shell;
-
-# dump semaphore array values   tony@divnc.com
-
-require 'sys/sem.ph';
-require 'getopts.pl';
-&Getopts("vhi:k:");		# verbose, help, id, key
-
-if ($opt_h || ($opt_i && $opt_k))
-{
-    print STDERR <<NO_MORE_HELP;
-semdump
-
-    Dump info about specified semaphore.
-
-Usage: $0       [-v] { -i semid | -k semkey }
-
-    -v          -- possibly more verbose
-    -i semid    -- semaphore id
-    -k semkey   -- semaphore key
-    -h          -- help
-
-    anything else == this help message
-NO_MORE_HELP
-    exit 1;
-}
-
-$verbose = $opt_v;
-$id = $opt_i;
-$key = $opt_k;
-
-if ($key)
-{
-    $key = oct($key) if $key =~ /^0/;
-    die "Could not convert key to id; $!" unless $id = semget($key, 1, 0);
-}
-
-# I don't know to find out how many sem's are attached to the id
-#  so just keep reading them until we get an error.
-
-printf("KEY: 0x%X (%d)  ", $key, $key) if $key;
-print "ID: $id\n";
-
-semlist: 
-for ($semnum=0; $semnum < 10; $semnum++)
-{
-    $val = semctl($id, $semnum, &GETVAL, 0);
-    $val || ($val = -1);
-
-    last semlist if ($val == -1);
-
-    printf " %d: %d\n", $semnum, $val;
-}
-