summaryrefslogtreecommitdiff
path: root/bin/dsp2dsp.pl
diff options
context:
space:
mode:
authornobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>2003-04-10 19:59:37 +0000
committernobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>2003-04-10 19:59:37 +0000
commit3df4acfa816441fc28a95dee6d0191a927145d95 (patch)
treeb5ae7ca44662cfd8e5c95f1826e4406021a606f5 /bin/dsp2dsp.pl
parent60a5612b83d856fc0adc52b9f39fac9960ec9818 (diff)
downloadATCD-pre-subset.tar.gz
This commit was manufactured by cvs2svn to create tag 'pre-subset'.pre-subset
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);