diff options
author | nobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2003-04-10 19:59:37 +0000 |
---|---|---|
committer | nobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2003-04-10 19:59:37 +0000 |
commit | 3df4acfa816441fc28a95dee6d0191a927145d95 (patch) | |
tree | b5ae7ca44662cfd8e5c95f1826e4406021a606f5 /bin/dsp2dsp.pl | |
parent | 60a5612b83d856fc0adc52b9f39fac9960ec9818 (diff) | |
download | ATCD-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-x | bin/dsp2dsp.pl | 29 |
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); |