1*cdf0e10cSrcweir#!/usr/local/bin/perl
2*cdf0e10cSrcweir#########################################################################
3*cdf0e10cSrcweir
4*cdf0e10cSrcweir #*************************************************************************
5*cdf0e10cSrcweir #
6*cdf0e10cSrcweir# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
7*cdf0e10cSrcweir#
8*cdf0e10cSrcweir# Copyright 2000, 2010 Oracle and/or its affiliates.
9*cdf0e10cSrcweir#
10*cdf0e10cSrcweir# OpenOffice.org - a multi-platform office productivity suite
11*cdf0e10cSrcweir#
12*cdf0e10cSrcweir# This file is part of OpenOffice.org.
13*cdf0e10cSrcweir#
14*cdf0e10cSrcweir# OpenOffice.org is free software: you can redistribute it and/or modify
15*cdf0e10cSrcweir# it under the terms of the GNU Lesser General Public License version 3
16*cdf0e10cSrcweir# only, as published by the Free Software Foundation.
17*cdf0e10cSrcweir#
18*cdf0e10cSrcweir# OpenOffice.org is distributed in the hope that it will be useful,
19*cdf0e10cSrcweir# but WITHOUT ANY WARRANTY; without even the implied warranty of
20*cdf0e10cSrcweir# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
21*cdf0e10cSrcweir# GNU Lesser General Public License version 3 for more details
22*cdf0e10cSrcweir# (a copy is included in the LICENSE file that accompanied this code).
23*cdf0e10cSrcweir#
24*cdf0e10cSrcweir# You should have received a copy of the GNU Lesser General Public License
25*cdf0e10cSrcweir# version 3 along with OpenOffice.org.  If not, see
26*cdf0e10cSrcweir# <http://www.openoffice.org/license.html>
27*cdf0e10cSrcweir# for a copy of the LGPLv3 License.
28*cdf0e10cSrcweir#
29*cdf0e10cSrcweir #*************************************************************************
30*cdf0e10cSrcweir
31*cdf0e10cSrcweiropen(TESTFILE, $ARGV[0]);
32*cdf0e10cSrcweir
33*cdf0e10cSrcweirwhile (<TESTFILE>)
34*cdf0e10cSrcweir{
35*cdf0e10cSrcweir    if ($_[1] eq "-q")
36*cdf0e10cSrcweir    {
37*cdf0e10cSrcweir	chomp $_;
38*cdf0e10cSrcweir	@args = split('\|', $_);
39*cdf0e10cSrcweir	@filestuff = split('\.', @args[0]);
40*cdf0e10cSrcweir	$filename = @filestuff[0] . ".infile";
41*cdf0e10cSrcweir	open (TESTCASE, ">$filename") || die "Error opening $filename";
42*cdf0e10cSrcweir	print TESTCASE "# @args[1]\n# @args[2]\n";
43*cdf0e10cSrcweir	print TESTCASE "TEST|@args[1]|QUICKWORD|@filestuff[0]\n" ;
44*cdf0e10cSrcweir	close TESTCASE;
45*cdf0e10cSrcweir    }
46*cdf0e10cSrcweir    if ($_[1] eq "-m")
47*cdf0e10cSrcweir    {
48*cdf0e10cSrcweir	chomp $_;
49*cdf0e10cSrcweir	@args = split('\|', $_);
50*cdf0e10cSrcweir	@filestuff = split('\.', @args[0]);
51*cdf0e10cSrcweir	$filename = @filestuff[0] . ".infile";
52*cdf0e10cSrcweir	open (TESTCASE, ">$filename") || die "Error opening $filename";
53*cdf0e10cSrcweir	print TESTCASE "# @args[1]\n# @args[2]\n";
54*cdf0e10cSrcweir	print TESTCASE "TEST|@args[1]|MINICALC|@filestuff[0]\n" ;
55*cdf0e10cSrcweir	close TESTCASE;
56*cdf0e10cSrcweir    }
57*cdf0e10cSrcweir
58*cdf0e10cSrcweir}
59