X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=wince%2Fcomp.pl;h=83f31d09f3e95ecc344722b5fcb96dd6a5a4cfbc;hb=605881df1187f0374622b9de459bb7d803f7d806;hp=8ecc95855d1e93fda720efce84590edd3eba0240;hpb=42165d2726b8a0b9ded4dc56d733154af8784b90;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/wince/comp.pl b/wince/comp.pl
index 8ecc958..83f31d0 100644
--- a/wince/comp.pl
+++ b/wince/comp.pl
@@ -2,21 +2,12 @@
 
 helper script to make life for PerlCE easier.
 
-You need edit values for @defs array to reflect your changes and then do
-
-  perl comp.pl [any-additional-options]
-
-This will call
-  nmake -f Makefile.ce
-with most parameters overrided as you specified and additional options
-(such as build target) will also be prepended to command line to execute.
-
-There are also additional different modes for running this script:
+There are different modes for running this script:
   perl comp.pl --run [any-command-line-arguments]
 and
   perl comp.pl --do [any-command-line-arguments]
 and
-  perl comp.pl --copy-pm pc:[pc-location] ce:[ce-location]
+  perl comp.pl --copy pc:[pc-location] ce:[ce-location]
 
 --run executes this build of perl on CE device with arguments provided
 --run=test will display a predefined messagebox that say everything is ok.
@@ -24,7 +15,7 @@ and
 --do  Executes on local computer command that is presented by arguments
       immediately following after --do
       Most reason why you may want to execute script in this mode is that
-      arguments preprocessed to replace [p] occurences into current perl
+      arguments preprocessed to replace [p] occurrences into current perl
       location. Typically it is handy to run
   perl comp.pl --do cecopy pc:..\lib\Exporter.pm ce:[p]\lib
 
@@ -37,32 +28,16 @@ and
 
 =cut
 
-use Cwd;
 use strict;
+use Cross;
+use Config;
 
 # edit value of $inst_root variable to reflect your desired location of
 # built perl
-my $inst_root = "\\Storage Card\\perl-tests\\perl\@16225";
-my @defs = (
-  "\"PV=\"",
-  "\"INST_VER=\"",
-  "\"INSTALL_ROOT=$inst_root\"",
-  "\"WCEROOT=$ENV{SDKROOT}\"",
-  "NTPERL=$^X", #todo: check version: this must be (almost?) current version
-  "\"CEPATH=$ENV{WCEROOT}\"",
-  "CELIBDLLDIR=d:\\personal\\pocketPC\\celib-palm-3.0",
-  "CECONSOLEDIR=d:\\personal\\pocketPC\\w32console",
-  "YES=/y",
-  "CFG=RELEASE",
-  "MACHINE=wince-mips-pocket-wce300",
-  "PERLCEDIR=".cwd,
-  #NIY "\"CECOPY=\$(NTPERL) \$(PERLCEDIR)\\$0 --copy=compact\"",
-  "\"CECOPY=\$(NTPERL) \$(PERLCEDIR)\\$0 --copy\"",
-);
+my $inst_root = $Config{prefix};
 
 my %opts = (
-  # %known_opts enumerates allowed opts as well as specifies default
-  #   and initial values
+  # %known_opts enumerates allowed opts as well as specifies default and initial values
   my %known_opts = (
      'do' => '',
      'run' => '',
@@ -98,9 +73,7 @@ elsif ($opts{'copy'}) {
   system("cecopy",@ARGV);
 }
 else {
-  my $cmd = "nmake -f Makefile.ce @defs @ARGV";
-  print $cmd;
-  system($cmd);
+  # todo
 }