diff options
Diffstat (limited to 'xmerge/java/org/openoffice/xmerge/converter/palm/palmtests/bin/spose')
-rwxr-xr-x | xmerge/java/org/openoffice/xmerge/converter/palm/palmtests/bin/spose | 108 |
1 files changed, 0 insertions, 108 deletions
diff --git a/xmerge/java/org/openoffice/xmerge/converter/palm/palmtests/bin/spose b/xmerge/java/org/openoffice/xmerge/converter/palm/palmtests/bin/spose deleted file mode 100755 index 29f6a9fe5218..000000000000 --- a/xmerge/java/org/openoffice/xmerge/converter/palm/palmtests/bin/spose +++ /dev/null @@ -1,108 +0,0 @@ -#!/bin/perl -# -# spose - start pose -# - -use Getopt::Std; - -# Location of needed files -# -$pose2_exe = $ENV{'POSE2_EXE'}; -$pose3_exe = $ENV{'POSE3_EXE'}; -$pose_prc = $ENV{'POSE_PRC'}; - - -if (getopts('23qmwo:r:d:v') != 1) -{ - &usage(); -} - -$apps_load = ""; - -if ($opt_q) -{ - &add_app("$pose_prc/Quickword.PRC"); -} -if ($opt_m) -{ - &add_app("$pose_prc/MiniCalc.prc"); -} -if ($opt_w) -{ - &add_app("$pose_prc/WordSmith.PRC"); -} -if ($opt_o) -{ - &add_app("$opt_o"); -} -if ($opt_r) -{ - $run_prog .= "-run_app $opt_r"; -} -if ($opt_d) -{ - $directory = $opt_d; - @files = `/bin/ls -1 $directory/*.pdb`; - - for ($i=0; $i <= $#files; $i++) - { - $add_file = "$files[$i]"; - chomp $add_file; - &add_app("$add_file"); - } -} - -if ($opt_3) -{ - $pose_exe = $pose3_exe; -} -else -{ - $pose_exe = $pose2_exe; -} -if ($pose_exe eq "") -{ - print "\nPose not found: Please set \n POSE2_EXE\n or POSE3_EXE\n"; - exit 0; -} -if ($opt_v) -{ - print ("\n$pose_exe $apps_load $run_prog &\n\n"); -} -else -{ - system ("$pose_exe $apps_load $run_prog &"); -} - -exit 0; - -sub usage -{ - print "\nUsage: getopt [ -m ] [ -q ] [ -w ] [ -o <PrcFile> ] [ -r <RunProg> ]\n"; - print " -2 Runs pose version 3.2 [ current default ]\n"; - print " -3 Runs pose version 3.3\n"; - print " -d Load all PDB files in specified directory\n"; - print " -m Load MiniCalc PRC file\n"; - print " -q Load QuickWord PRC file\n"; - print " -w Load WordSmith PRC file\n"; - print " -o <PrcFile> Other PRC files to load\n"; - print " -r <RunProg> Program to run on startup\n"; - print " -v Display the command instead of running\n\n"; - exit(-1); -} - -sub add_app -{ - my $new_app = $_[0]; - - if ($apps_load ne "") - { - $apps_load .= ","; - } - else - { - $apps_load = "-load_apps "; - } - - $apps_load .= "$new_app"; -} |