1*b1cdbd2cSJim Jagielski#!/usr/local/bin/perl
2*b1cdbd2cSJim Jagielski#########################################################################
3*b1cdbd2cSJim Jagielski
4*b1cdbd2cSJim Jagielski #**************************************************************
5*b1cdbd2cSJim Jagielski#
6*b1cdbd2cSJim Jagielski#  Licensed to the Apache Software Foundation (ASF) under one
7*b1cdbd2cSJim Jagielski#  or more contributor license agreements.  See the NOTICE file
8*b1cdbd2cSJim Jagielski#  distributed with this work for additional information
9*b1cdbd2cSJim Jagielski#  regarding copyright ownership.  The ASF licenses this file
10*b1cdbd2cSJim Jagielski#  to you under the Apache License, Version 2.0 (the
11*b1cdbd2cSJim Jagielski#  "License"); you may not use this file except in compliance
12*b1cdbd2cSJim Jagielski#  with the License.  You may obtain a copy of the License at
13*b1cdbd2cSJim Jagielski#
14*b1cdbd2cSJim Jagielski#    http://www.apache.org/licenses/LICENSE-2.0
15*b1cdbd2cSJim Jagielski#
16*b1cdbd2cSJim Jagielski#  Unless required by applicable law or agreed to in writing,
17*b1cdbd2cSJim Jagielski#  software distributed under the License is distributed on an
18*b1cdbd2cSJim Jagielski#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
19*b1cdbd2cSJim Jagielski#  KIND, either express or implied.  See the License for the
20*b1cdbd2cSJim Jagielski#  specific language governing permissions and limitations
21*b1cdbd2cSJim Jagielski#  under the License.
22*b1cdbd2cSJim Jagielski#
23*b1cdbd2cSJim Jagielski#**************************************************************
24*b1cdbd2cSJim Jagielski
25*b1cdbd2cSJim Jagielski
26*b1cdbd2cSJim Jagielski
27*b1cdbd2cSJim Jagielskiopen(TESTFILE, $ARGV[0]);
28*b1cdbd2cSJim Jagielski
29*b1cdbd2cSJim Jagielskiwhile (<TESTFILE>)
30*b1cdbd2cSJim Jagielski{
31*b1cdbd2cSJim Jagielski    if ($_[1] eq "-q")
32*b1cdbd2cSJim Jagielski    {
33*b1cdbd2cSJim Jagielski	chomp $_;
34*b1cdbd2cSJim Jagielski	@args = split('\|', $_);
35*b1cdbd2cSJim Jagielski	@filestuff = split('\.', @args[0]);
36*b1cdbd2cSJim Jagielski	$filename = @filestuff[0] . ".infile";
37*b1cdbd2cSJim Jagielski	open (TESTCASE, ">$filename") || die "Error opening $filename";
38*b1cdbd2cSJim Jagielski	print TESTCASE "# @args[1]\n# @args[2]\n";
39*b1cdbd2cSJim Jagielski	print TESTCASE "TEST|@args[1]|QUICKWORD|@filestuff[0]\n" ;
40*b1cdbd2cSJim Jagielski	close TESTCASE;
41*b1cdbd2cSJim Jagielski    }
42*b1cdbd2cSJim Jagielski    if ($_[1] eq "-m")
43*b1cdbd2cSJim Jagielski    {
44*b1cdbd2cSJim Jagielski	chomp $_;
45*b1cdbd2cSJim Jagielski	@args = split('\|', $_);
46*b1cdbd2cSJim Jagielski	@filestuff = split('\.', @args[0]);
47*b1cdbd2cSJim Jagielski	$filename = @filestuff[0] . ".infile";
48*b1cdbd2cSJim Jagielski	open (TESTCASE, ">$filename") || die "Error opening $filename";
49*b1cdbd2cSJim Jagielski	print TESTCASE "# @args[1]\n# @args[2]\n";
50*b1cdbd2cSJim Jagielski	print TESTCASE "TEST|@args[1]|MINICALC|@filestuff[0]\n" ;
51*b1cdbd2cSJim Jagielski	close TESTCASE;
52*b1cdbd2cSJim Jagielski    }
53*b1cdbd2cSJim Jagielski
54*b1cdbd2cSJim Jagielski}
55