diff -r 3406c99bc375 -r 07b41fa8d1dd stif/TestModuleTemplates/createtestmodule.bat
--- a/stif/TestModuleTemplates/createtestmodule.bat	Thu Jul 15 20:25:38 2010 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,216 +0,0 @@
-::
-:: Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies). 
-:: All rights reserved.
-:: This component and the accompanying materials are made available
-:: under the terms of "Eclipse Public License v1.0"
-:: which accompanies this distribution, and is available
-:: at the URL "http://www.eclipse.org/legal/epl-v10.html".
-::
-:: Initial Contributors:
-:: Nokia Corporation - initial contribution.
-::
-:: Contributors:
-:: 
-:: Description: This file contains capsmodifier implementation.
-::
-
-@perl -x createtestmodule.bat %*
-@goto end
-
-#!perl -w
-use strict;
-use Term::ReadLine;
-
-my $moduletype = "";
-my $modulename = "";
-my $modulepath = "";
-
-my $normal = "normal";
-my $hardcoded = "hardcoded";
-my $testclass = "testclass";
-my $kerneltestclass = "kerneltest";
-my $stifunit = "stifunit";
-my $stifunitvar2 = "stifunitvar2";
-my $capsmodifier = "capsmodifier";
-
-my $normali = "n";
-my $hardcodedi = "h";
-my $testclassi = "t";
-my $kerneltestclassi = "k";
-my $stifuniti = "s";
-my $stifunitvar2i = "d";
-my $capsmodifieri = "c";
-
-my $term = new Term::ReadLine 'Simple Perl calc';
-my $prompttype = "Enter ModuleType (name/short cut): ";
-my $promptname = "Enter ModuleName (or exit): ";  
-my $promptpath = "Enter path [default is drive root] (or exit): ";  
-my $exit = "exit";
-my $exiti = "e";   
-  
-sub PrintHelp();
-
-if ( $#ARGV >= 0 )
-{
-    $moduletype = $ARGV[0];
-    if( $moduletype eq "help" )
-    {
-    PrintHelp();
-    }
-}
-else
-{
-    print "Enter ModuleType :\n";
-	print "\t($normali) $normal = creates an empty test module.\n";
-	print "\t($hardcodedi) $hardcoded = creates test module that uses hardcoded test cases.\n";
-	print "\t($testclassi) $testclass = creates test class which is used with TestScripter.\n";
-	print "\t($kerneltestclassi) $kerneltestclass = creates kernel test class which is used with TestScripter (only for kernel testing!).\n";
-	print "\t($capsmodifieri) $capsmodifier = creates capability modification module\n";
-	print "\t($stifuniti) $stifunit = creates test module using xUnit test pattern\n";
-	print "\t($stifunitvar2i) $stifunitvar2 = adds STIFUnit module to already existing project\n";
-	print "\t($exiti) $exit = Exit.\n";  
-
-
-    $moduletype = $term->readline($prompttype);
-    if( $moduletype eq $exit || $moduletype eq $exiti)
-    {
-        exit;
-    }
-}
-if( $moduletype ne $normal && $moduletype ne $hardcoded && $moduletype ne $testclass && $moduletype ne $kerneltestclass && $moduletype ne $capsmodifier && $moduletype ne $stifunit && $moduletype ne $stifunitvar2 && $moduletype ne $normali && $moduletype ne $hardcodedi && $moduletype ne $testclassi && $moduletype ne $kerneltestclassi && $moduletype ne $capsmodifieri && $moduletype ne $stifuniti && $moduletype ne $stifunitvar2i)
-    {
-        print "\nInvalid module type\n";
-        print "See createtestmodule help\n";
-        exit;
-    }
-    
-if ( $#ARGV >= 1 )
-{
-    $modulename = $ARGV[1];
-}
-else
-{
-    
-	if( $moduletype eq $normal  || $moduletype eq $normali )
-	{   
-    		print "$normal module selected.\n";
-	}
-	elsif( $moduletype eq $hardcoded || $moduletype eq $hardcodedi )
-	{
-   	 	print "$hardcoded module selected.\n";
-	}
-	elsif( $moduletype eq $testclass || $moduletype eq $testclassi )
-	{
-  		print "$testclass module selected.\n";
-	}
-	elsif( $moduletype eq $kerneltestclass || $moduletype eq $kerneltestclassi )
-	{
-  		print "$kerneltestclass module selected.\n";
-	}
-	elsif( $moduletype eq $capsmodifier || $moduletype eq $capsmodifieri )
-	{
- 		print "$capsmodifier module selected.\n";
-	}
-	elsif( $moduletype eq $stifunit || $moduletype eq $stifuniti || $moduletype eq $stifunitvar2 || $moduletype eq $stifunitvar2i )
-	{
-		print "$stifunit module selected.\n";
-	}
-	print "Enter ModuleName which has to be a valid C++ variable name.\n";
-    
-	$modulename = $term->readline($promptname);
-
-    if( $modulename eq $exit || $modulename eq $exiti)
-    {
-        exit;
-    }
-}
-if ( $#ARGV >= 2 )
-{
-    $modulepath = $ARGV[2];
-}
-else
-{
-    $modulepath = $term->readline($promptpath);
-    if( $modulepath eq $exit || $modulepath eq $exiti )
-    {
-        exit;
-    }
-}
-
-$modulepath.= "\\";
-
-print "Create test module of type $moduletype with name $modulename ";
-
-
-if ( $modulepath eq "" )
-{ 
-    print "to current drive root\n";
-}
-else
-{
-    print "to $modulepath\n";
-}
-
-my @args = ("$modulename", "$modulepath");
-
-if( $moduletype eq $normal  || $moduletype eq $normali )
-{   
-    chdir "TestModuleXXX";
-    system("perl -x createmodule.bat @args");
-}
-elsif( $moduletype eq $hardcoded || $moduletype eq $hardcodedi )
-{
-    chdir "HardCodedTestModuleXXX";
-    system("perl -x createhardcodedmodule.bat @args");
-}
-elsif( $moduletype eq $testclass || $moduletype eq $testclassi )
-{
-    chdir "TemplateScriptXXX";
-    system("perl -x CreateTestClass.bat @args");
-}
-elsif( $moduletype eq $kerneltestclass || $moduletype eq $kerneltestclassi )
-{
-    chdir "TemplateKernelScriptXXX";
-    system("perl -x CreateKernelTestClass.bat @args");
-}
-
-elsif( $moduletype eq $capsmodifier || $moduletype eq $capsmodifieri )
-{
-    chdir "CapsModifierXXX";
-    system("perl -x CreateCapsModifier.bat @args");
-}
-
-elsif( $moduletype eq $stifunit || $moduletype eq $stifuniti)
-{
-    chdir "STIFUnitXXX";
-    system("perl -x CreateSTIFUnitModule.bat @args");
-}
-
-elsif( $moduletype eq $stifunitvar2 || $moduletype eq $stifunitvar2i)
-{
-    chdir "STIFUnitXXX";
-    system("perl -x CreateSTIFUnitModuleVar2.bat @args");
-}
-
-exit;
-
-sub PrintHelp()
-{
-	print "CreateTestModule [ModuleType] [ModuleName] [path]\n";
-	print "\n";
-	print "Creates a new test module\n";
-	print "ModuleType defines the type of test module:.\n";
-	print "\tnormal = creates an empty test module.\n";
-	print "\thardcoded = creates test module that uses hardcoded test cases.\n";
-	print "\ttestclass = creates test class which is used with TestScripter.\n";
-	print "\tkerneltestclass = creates kernel test class which is used with TestScripter (only for kernel testing!).\n";
-	print "\tcapsmodifier = creates capability modification module\n";
-	print "\tstifunit = creates test module using xUnit test pattern\n";
-	print "If no arguments are given, they are asked from user.\n";
-	print "If [path] is given, it must contain the final \'\\\' in path name.\n";
-	print "Command must be executed in STIFTestFramework\\TestModuleTemplates directory\n";
-	exit;
-}
-
-__END__
-:end