icuSources/test/perf/perldriver/Common.pl

   1 #!/usr/bin/perl
   2 #  ********************************************************************
   3 #  * COPYRIGHT:
   4 #  * Copyright (c) 2010, International Business Machines Corporation and
   5 #  * others. All Rights Reserved.
   6 #  ********************************************************************
   7
   8 # Settings by user
   9 $ICULatestVersion = "";     # Change to respective version number
  10 $ICUPreviousVersion = "";   # Change to respective version number
  11 $ICUPrevious2Version = "";  # Change to respective version number
  12
  13 $PerformanceDataPath = "";          #Change to Performance Data Path
  14
  15 $ICULatest = "";      # Change to path of latest ICU (e.g. /home/user/Desktop/icu-4.0)
  16 $ICUPrevious = "";    # Change to path of previous ICU
  17 $ICUPrevious2 = "";   # Change to path of ICU before previous release
  18
  19 $OnWindows = 0;           # Change to 1 if on Windows
  20 $Windows64 = 0;           # Change to 1 if on Windows and running 64 bit
  21 # End of settings by user
  22
  23 $CollationDataPath = $PerformanceDataPath."/collation";    # Collation Performance Data Path
  24 $ConversionDataPath = $PerformanceDataPath."/conversion";  # Conversion Performance Data Path
  25 $UDHRDataPath = $PerformanceDataPath."/udhr";              # UDHR Performance Data Path
  26
  27 $ICUPathLatest = $ICULatest."/source/test/perf";
  28 $ICUPathPrevious = $ICUPrevious."/source/test/perf";
  29 $ICUPathPrevious2 = $ICUPrevious."/source/test/perf";
  30
  31 $WindowsPlatform = "";
  32 if ($Windows64) {
  33     $WindowsPlatform = "x64";
  34 } else {
  35     $WindowsPlatform = "x86";
  36 }
  37
  38 return 1;