blob: 962127a8f11128bac9561336b70ebc0d98db34e5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
# $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);
|
