summaryrefslogtreecommitdiff
path: root/bin/dsp2dsp.pl
diff options
context:
space:
mode:
Diffstat (limited to 'bin/dsp2dsp.pl')
-rwxr-xr-xbin/dsp2dsp.pl29
1 files changed, 0 insertions, 29 deletions
diff --git a/bin/dsp2dsp.pl b/bin/dsp2dsp.pl
deleted file mode 100755
index 962127a8f11..00000000000
--- a/bin/dsp2dsp.pl
+++ /dev/null
@@ -1,29 +0,0 @@
-# $Id$
-#
-# File: dsp2dsp.pl
-# Description: This perl script is used to "create" new dsp files
-# by modifying an existing dsp file.
-# Requirement: perl for Win32.
-# Usage: perl dsp2dsp.pl Basic_Types_Test Atomic_Op_Test
-# This will create Atomic_Op_Test.dsp by using
-# Basic_Types_Test.dsp as a template.
-#
-# Author: Nanbor Wang <nanbor@cs.wustl.edu>
-
-die "$0 requires two arguments.\n" if $#ARGV < 1;
-$TOFILE="$ARGV[1].dsp" ;
-die "$TOFILE already exists. Remove it first.\n" if -e $TOFILE;
-
-$FROM = $ARGV[0];
-$TO = $ARGV[1];
-
-open (FROM, "<$FROM.dsp");
-open (TO, ">$TO.dsp");
-
-while (<FROM>)
-{
- s/$FROM/$TO/g;
- print TO ;
-}
-
-close (TO);