1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
=comments
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:
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]
--run executes this build of perl on CE device with arguments provided
--run=test will display a predefined messagebox that say everything is ok.
--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
location. Typically it is handy to run
perl comp.pl --do cecopy pc:..\lib\Exporter.pm ce:[p]\lib
--copy copies file to CE device
here also [p] will be expanded to corrent PerlCE path, and additionally
when --copy=compact specified then, if filename looks like perl module,
then POD will be stripped away from that file
modules
=cut
use Cwd;
use strict;
# 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 %opts = (
# %known_opts enumerates allowed opts as well as specifies default
# and initial values
my %known_opts = (
'do' => '',
'run' => '',
'copy' => '',
),
#options itself
my %specified_opts = (
(map {/^--([\-_\w]+)=(.*)$/} @ARGV), # --opt=smth
(map {/^no-?(.*)$/i?($1=>0):($_=>1)} map {/^--([\-_\w]+)$/} @ARGV), # --opt --no-opt --noopt
),
);
die "option '$_' is not recognized" for grep {!exists $known_opts{$_}} keys %specified_opts;
@ARGV = grep {!/^--/} @ARGV;
if ($opts{'do'}) {
s/\[p\]/$inst_root/g for @ARGV;
system(@ARGV);
}
elsif ($opts{'run'}) {
if ($opts{'run'} eq 'test') {
system("ceexec","$inst_root\\bin\\perl","-we","Win32::MessageBox(\$].qq(\n).join'','cc'..'dx')");
}
else {
system("ceexec","$inst_root\\bin\\perl", map {/^".*"$/s?$_:"\"$_\""} @ARGV);
}
}
elsif ($opts{'copy'}) {
if ($opts{'copy'} eq 'compact') {
die "todo";
}
s/\[p\]/$inst_root/g for @ARGV;
if ($ARGV[0]=~/^pc:/i) {system("cedel",$ARGV[1])}
system("cecopy",@ARGV);
}
else {
my $cmd = "nmake -f Makefile.ce @defs @ARGV";
print $cmd;
system($cmd);
}
=comments
Author Vadim Konovalov.
=cut
|
