xmerge/source/palmtests/bin/spose

   1 #!/bin/perl
   2 #
   3 # spose - start pose
   4 #
   5
   6 use Getopt::Std;
   7
   8 # Location of needed files
   9 #
  10 $pose2_exe = $ENV{'POSE2_EXE'};
  11 $pose3_exe = $ENV{'POSE3_EXE'};
  12 $pose_prc = $ENV{'POSE_PRC'};
  13
  14
  15 if (getopts('23qmwo:r:d:v') != 1)
  16 {
  17    &usage();
  18 }
  19
  20 $apps_load = "";
  21
  22 if ($opt_q)
  23 {
  24    &add_app("$pose_prc/Quickword.PRC");
  25 }
  26 if ($opt_m)
  27 {
  28    &add_app("$pose_prc/MiniCalc.prc");
  29 }
  30 if ($opt_w)
  31 {
  32    &add_app("$pose_prc/WordSmith.PRC");
  33 }
  34 if ($opt_o)
  35 {
  36    &add_app("$opt_o");
  37 }
  38 if ($opt_r)
  39 {
  40    $run_prog .= "-run_app $opt_r";
  41 }
  42 if ($opt_d)
  43 {
  44    $directory = $opt_d;
  45    @files = `/bin/ls -1 $directory/*.pdb`;
  46
  47    for ($i=0; $i <= $#files; $i++)
  48    {
  49       $add_file = "$files[$i]";
  50       chomp $add_file;
  51       &add_app("$add_file");
  52    }
  53 }
  54
  55 if ($opt_3)
  56 {
  57    $pose_exe = $pose3_exe;
  58 }
  59 else
  60 {
  61    $pose_exe = $pose2_exe;
  62 }
  63 if ($pose_exe eq "")
  64 {
  65     print "\nPose not found: Please set \n       POSE2_EXE\n    or POSE3_EXE\n";
  66     exit 0;
  67 }
  68 if ($opt_v)
  69 {
  70    print ("\n$pose_exe $apps_load $run_prog &\n\n");
  71 }
  72 else
  73 {
  74    system ("$pose_exe $apps_load $run_prog &");
  75 }
  76
  77 exit 0;
  78
  79 sub usage
  80 {
  81    print "\nUsage: getopt [ -m ] [ -q ] [ -w ] [ -o <PrcFile> ] [ -r <RunProg> ]\n";
  82    print " -2            Runs pose version 3.2 [ current default ]\n";
  83    print " -3            Runs pose version 3.3\n";
  84    print " -d            Load all PDB files in specified directory\n";
  85    print " -m            Load MiniCalc PRC file\n";
  86    print " -q            Load QuickWord PRC file\n";
  87    print " -w            Load WordSmith PRC file\n";
  88    print " -o <PrcFile>  Other PRC files to load\n";
  89    print " -r <RunProg>  Program to run on startup\n";
  90    print " -v            Display the command instead of running\n\n";
  91    exit(-1);
  92 }
  93
  94 sub add_app
  95 {
  96    my $new_app = $_[0];
  97
  98    if ($apps_load ne "")
  99    {
 100       $apps_load .= ",";
 101    }
 102    else
 103    {
 104       $apps_load = "-load_apps ";
 105    }
 106
 107    $apps_load .= "$new_app";
 108 }