Bump version of File::Copy
[perl.git] / symbian / config.pl
1 #!/usr/bin/perl -w
2
3 # Copyright (c) 2004-2005 Nokia.  All rights reserved.
4 # This utility is licensed under the same terms as Perl itself.
5
6 use strict;
7 use lib "symbian";
8
9 print "Configuring...\n";
10 print "Configuring with: Perl version $] ($^X)\n";
11
12 do "sanity.pl" or die $@;
13
14 my %VERSION = %{ do "version.pl" or die $@ };
15
16 printf "Configuring for:  Perl version $VERSION{REVISION}.%03d%03d\n",
17   $VERSION{VERSION}, $VERSION{SUBVERSION};
18
19 my $VERSION = "$VERSION{REVISION}$VERSION{VERSION}$VERSION{SUBVERSION}";
20 my $R_V_SV  = "$VERSION{REVISION}.$VERSION{VERSION}.$VERSION{SUBVERSION}";
21
22 my ($SYMBIAN_ROOT, $SYMBIAN_VERSION, $SDK_NAME, $SDK_VARIANT, $SDK_VERSION) =
23     @{ do "sdk.pl" or die $@ };
24 my %PORT = %{ do "port.pl" or die $@ };
25
26 if ($SYMBIAN_ROOT eq 'C:\Symbian\Series60_1_2_CW') {
27     ( $SYMBIAN_VERSION, $SDK_VERSION ) = qw(6.1 1.2);
28 }
29
30 my $WIN = $ENV{WIN} ; # 'wins', 'winscw' (from sdk.pl)
31 my $ARM = 'thumb';    # 'thumb', 'armv5'
32 my $S60SDK = $ENV{S60SDK}; # qw(1.2 2.0 2.1 2.6) (from sdk.pl)
33 my $S80SDK = $ENV{S80SDK}; # qw(2.0) (from sdk.pl)
34 my $S90SDK = $ENV{S90SDK}; # qw(1.1) (from sdk.pl)
35 my $UIQSDK = $ENV{UIQSDK}; # qw(2.0 2.1) (from sdk.pl)
36
37 my $UREL = $ENV{UREL}; # from sdk.pl
38 $UREL =~ s/-ARM-/$ARM/;
39 my $UARM = $ENV{UARM}; # from sdk.pl
40
41 die "$0: SDK not recognized\n"
42   if !defined($SYMBIAN_VERSION) ||
43      !defined($SDK_VERSION) ||
44      (!defined($S60SDK) && !defined($S80SDK) && !defined($S90SDK) && !defined($UIQSDK));
45
46 die "$0: does not know which Windows compiler to use\n"
47     unless defined $WIN;
48
49 print "Symbian $SYMBIAN_VERSION SDK $SDK_VARIANT $SDK_VERSION ($WIN) installed at $SYMBIAN_ROOT\n";
50
51 my $CWD = do "cwd.pl" or die $@;
52 print "Build directory $CWD\n";
53
54 die "$0: '+' in cwd does not work with Series 60 SDK 1.2\n"
55     if defined $S60SDK && $S60SDK eq '1.2' && $CWD =~ /\+/;
56
57 my @unclean;
58 my @mmp;
59
60 sub create_mmp {
61     my ( $target, $type, @x ) = @_;
62     my $miniperl = $target eq 'miniperl';
63     my $perl     = $target eq 'perl';
64     my $mmp        = "$target.mmp";
65     my $targetpath = $miniperl
66       || $perl ? "TARGETPATH\t\\System\\Apps\\Perl" : "";
67     if ( open( my $fh, ">$mmp" ) ) {
68         print "\t$mmp\n";
69         push @mmp,     $mmp;
70         push @unclean, $mmp;
71         print $fh <<__EOF__;
72 TARGET          $target.$type
73 TARGETTYPE      $type
74 $targetpath
75 EPOCHEAPSIZE    1024 8388608
76 EPOCSTACKSIZE   65536
77 EXPORTUNFROZEN
78 SRCDBG
79 __EOF__
80         if ($SDK_VARIANT eq 'S60') {
81             print $fh "MACRO\t__SERIES60__\n";
82             print $fh "MACRO\t__SERIES60_1X__\n" if $S60SDK =~ /^1\./;
83             print $fh "MACRO\t__SERIES60_2X__\n" if $S60SDK =~ /^2\./;
84         }
85         if ($SDK_VARIANT eq 'S80') {
86             print $fh "MACRO\t__SERIES80__\n";
87             print $fh "MACRO\t__SERIES80_1X__\n" if $S80SDK =~ /^1\./;
88             print $fh "MACRO\t__SERIES80_2X__\n" if $S80SDK =~ /^2\./;
89         }
90         if ($SDK_VARIANT eq 'S90') {
91             print $fh "MACRO\t__SERIES90__\n";
92         }
93         if ($SDK_VARIANT eq 'UIQ') {
94             print $fh "MACRO\t__UIQ__\n";
95             print $fh "MACRO\t__UIQ_1X__\n" if $UIQSDK =~ /^1\./;
96             print $fh "MACRO\t__UIQ_2X__\n" if $UIQSDK =~ /^2\./;
97         }
98         my ( @c, %c );
99         @c = map  { glob } qw(*.c);       # Find the .c files.
100         @c = map  { lc } @c;              # Lowercase the names.
101         @c = grep { !/malloc\.c/ } @c;    # Use the system malloc.
102         @c = grep { !/madly\.c/ } @c;     # mad is undef.
103         @c = grep { !/main\.c/ } @c;      # main.c must be explicit.
104         push @c, map { lc } @x;
105         @c = map { s:^\.\./::; $_ } @c;    # Remove the leading ../
106         @c = map { $c{$_}++ } @c;          # Uniquefy.
107         @c = sort keys %c;                 # Beautify.
108
109         for (@c) {
110             print $fh "SOURCE\t\t$_\n";
111         }
112         print $fh <<__EOF__;
113 SOURCEPATH      $CWD
114 USERINCLUDE     $CWD
115 USERINCLUDE     $CWD\\ext\\DynaLoader
116 USERINCLUDE     $CWD\\symbian
117 SYSTEMINCLUDE   \\epoc32\\include\\libc
118 SYSTEMINCLUDE   \\epoc32\\include
119 LIBRARY         euser.lib
120 LIBRARY         estlib.lib
121 LIBRARY         eikcore.lib
122 LIBRARY         cone.lib
123 LIBRARY         efsrv.lib
124 __EOF__
125         if ( $miniperl || $perl || $type eq 'dll' ) {
126             print $fh <<__EOF__;
127 LIBRARY         charconv.lib
128 LIBRARY         hal.lib
129 LIBRARY         estor.lib
130 __EOF__
131         }
132         if ($SDK_VARIANT =~ /^S[689]0$/) {
133             print $fh <<__EOF__;
134 LIBRARY         commonengine.lib
135 __EOF__
136         }
137         if (defined $S60SDK) {
138             print $fh <<__EOF__;
139 LIBRARY         avkon.lib
140 LIBRARY         commondialogs.lib 
141 __EOF__
142         }
143         if ((defined $S80SDK) or (defined $S90SDK)) {
144             print $fh <<__EOF__;
145 LIBRARY         eikctl.lib
146 LIBRARY         eikcoctl.lib
147 LIBRARY         eikdlg.lib
148 LIBRARY         ckndlg.lib
149 __EOF__
150         }
151         if (defined $UIQSDK) {
152             print $fh <<__EOF__;
153 LIBRARY         eikctl.lib
154 LIBRARY         eikcoctl.lib
155 LIBRARY         eikdlg.lib
156 LIBRARY         qikctl.lib
157 __EOF__
158         }
159         if ( $type eq 'exe' ) {
160             print $fh <<__EOF__;
161 STATICLIBRARY   ecrt0.lib
162 __EOF__
163         }
164         if ($miniperl) {
165             print $fh <<__EOF__;
166 MACRO           PERL_MINIPERL
167 __EOF__
168         }
169         if ($perl) {
170             print $fh <<__EOF__;
171 MACRO           PERL_PERL
172 __EOF__
173         }
174         print $fh <<__EOF__;
175 MACRO           PERL_CORE
176 MACRO           MULTIPLICITY
177 MACRO           PERL_IMPLICIT_CONTEXT
178 __EOF__
179         unless ( $miniperl || $perl ) {
180             print $fh <<__EOF__;
181 MACRO           PERL_GLOBAL_STRUCT
182 MACRO           PERL_GLOBAL_STRUCT_PRIVATE
183 RESOURCE        symbian\\PerlUi.rss
184 __EOF__
185         }
186         close $fh;
187     }
188     else {
189         warn "$0: failed to open $mmp for writing: $!\n";
190     }
191 }
192
193 sub create_bld_inf {
194     if ( open( BLD_INF, ">bld.inf" ) ) {
195         print "\tbld.inf\n";
196         push @unclean, "bld.inf";
197         print BLD_INF <<__EOF__;
198 PRJ_PLATFORMS
199 ${WIN} ${ARM}
200 PRJ_MMPFILES
201 __EOF__
202         for (@mmp) { print BLD_INF $_, "\n" }
203         close BLD_INF;
204     }
205     else {
206         warn "$0: failed to open bld.inf for writing: $!\n";
207     }
208 }
209
210 my %config;
211
212 sub load_config_sh {
213     if ( open( CONFIG_SH, "symbian/config.sh" ) ) {
214         while (<CONFIG_SH>) {
215             if (/^(\w+)=['"]?(.*?)["']?$/) {
216                 my ( $var, $val ) = ( $1, $2 );
217                 $val =~ s/x.y.z/$R_V_SV/gi;
218                 $val =~ s/thumb/$ARM/gi;
219                 $val = "C:$val" if (defined($S90SDK) and ($val =~ /^(\/|\\\\)system[\/\\]/i));
220                 $val = "'$SYMBIAN_VERSION'" if $var eq 'osvers';
221                 $val = "'$SDK_VERSION'"     if $var eq 'sdkvers';
222                 $config{$var} = $val;
223             }
224         }
225         close CONFIG_SH;
226     }
227     else {
228         warn "$0: failed to open symbian\\config.sh for reading: $!\n";
229     }
230 }
231
232 sub create_config_h {
233     load_config_sh();
234     if ( open( CONFIG_H, ">config.h" ) ) {
235         print "\tconfig.h\n";
236         push @unclean, "config.h";
237         if ( open( CONFIG_H_SH, "config_h.SH" ) ) {
238             while (<CONFIG_H_SH>) {
239                 last if /\#ifndef _config_h_/;
240             }
241             print CONFIG_H <<__EOF__;
242 /*
243  * Package name      : perl
244  * Source directory  : .
245  * Configuration time: 
246  * Configured by     : 
247  * Target system     : symbian
248  */
249
250 #ifndef _config_h_
251 __EOF__
252             while (<CONFIG_H_SH>) {
253                 last if /!GROK!THIS/;
254                 s/\$(\w+)/exists $config{$1} ? $config{$1} : (warn "$0: config.sh missing '$1'\n", "")/eg;
255                 s/^#undef\s+(\S+).+/#undef $1/g;
256                 s:\Q/**/::;
257                 print CONFIG_H;
258             }
259             close CONFIG_H_SH;
260         }
261         else {
262             warn "$0: failed to open ../config_h.SH for reading: $!\n";
263         }
264         close CONFIG_H;
265     }
266     else {
267         warn "$0: failed to open config.h for writing: $!\n";
268     }
269 }
270
271 sub create_DynaLoader_cpp {
272     print "\text\\DynaLoader\\DynaLoader.cpp\n";
273     system(
274 q[xsubpp ext\DynaLoader\dl_symbian.xs >ext\DynaLoader\DynaLoader.cpp]
275       ) == 0
276       or die "$0: creating DynaLoader.cpp failed: $!\n";
277     push @unclean, 'ext\DynaLoader\DynaLoader.cpp';
278
279 }
280
281 sub create_symbian_port_h {
282     print "\tsymbian\\symbian_port.h\n";
283     if ( open( SYMBIAN_PORT_H, ">symbian/symbian_port.h" ) ) {
284         my ($sdkmajor, $sdkminor);
285         if ($SDK_VARIANT eq 'S60') {
286             $S60SDK =~ /^(\d+)\.(\d+)$/;
287             ($sdkmajor, $sdkminor) = ($1, $2);
288         }
289         if ($SDK_VARIANT eq 'S80') {
290             $S80SDK =~ /^(\d+)\.(\d+)$/;
291             ($sdkmajor, $sdkminor) = ($1, $2);
292         }
293         if ($SDK_VARIANT eq 'S90') {
294             $S90SDK =~ /^(\d+)\.(\d+)$/;
295             ($sdkmajor, $sdkminor) = ($1, $2);
296         }
297         if ($SDK_VARIANT eq 'UIQ') {
298             $UIQSDK =~ /^(\d+)\.(\d+)$/;
299             ($sdkmajor, $sdkminor) = ($1, $2);
300         }
301         print SYMBIAN_PORT_H <<__EOF__;
302 /* Copyright (c) 2004-2005, Nokia.  All rights reserved. */
303
304 #ifndef __symbian_port_h__
305 #define __symbian_port_h__
306
307 #define PERL_SYMBIANPORT_MAJOR $PORT{dll}->{MAJOR}
308 #define PERL_SYMBIANPORT_MINOR $PORT{dll}->{MINOR}
309 #define PERL_SYMBIANPORT_PATCH $PORT{dll}->{PATCH}
310
311 #define PERL_SYMBIANSDK_FLAVOR  L"$SDK_VARIANT"
312 #define PERL_SYMBIANSDK_MAJOR   $sdkmajor
313 #define PERL_SYMBIANSDK_MINOR   $sdkminor
314
315 #endif /* #ifndef __symbian_port_h__ */
316 __EOF__
317         close(SYMBIAN_PORT_H);
318         push @unclean, 'symbian\symbian_port.h';
319     }
320     else {
321         warn "$0: failed to open symbian/symbian_port.h for writing: $!\n";
322     }
323 }
324
325 sub create_perlmain_c {
326     print "\tperlmain.c\n";
327     system(
328 q[perl -ne "print qq[    char *file = __FILE__;\n] if /dXSUB_SYS/;print unless /PERL_UNUSED_CONTEXT/;print qq[    newXS(\"DynaLoader::boot_DynaLoader\", boot_DynaLoader, file);\n] if /dXSUB_SYS/;print qq[EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);\n] if /Do not delete this line/" miniperlmain.c > perlmain.c]
329       ) == 0
330       or die "$0: Creating perlmain.c failed: $!\n";
331     push @unclean, 'perlmain.c';
332 }
333
334 sub create_PerlApp_pkg {
335     print "\tsymbian\\PerlApp.pkg\n";
336     if ( open( PERLAPP_PKG, ">symbian\\PerlApp.pkg" ) ) {
337         my $ProductId =
338             defined $S60SDK ?
339 qq[;Supports Series 60 v0.9\n(0x101F6F88), 0, 0, 0, {"Series60ProductID"}\n] :
340             defined $S80SDK ?
341 qq[;Supports Series 80 v2.0\n(0x101F8ED2), 0, 0, 0, {"Series80ProductID"}\n] :
342             defined $S90SDK ?
343 qq[;Supports Series 90 v1.1\n(0x101FBE05), 0, 0, 0, {"Series90ProductID"}\n] :
344             defined $UIQSDK && $SDK_VERSION =~  /^(\d)\.(\d)$/ ?
345 qq[;Supports UIQ v2.1\n(0x101F617B), $1, $2, 0, {"UIQ21ProductID"}\n] :
346             ";Supports Series NN";
347         my $APPS = $UREL;
348         if (($SDK_VARIANT eq 'S60' && $SDK_VERSION ne '1.2' || $WIN eq 'winscw') || defined $S80SDK || defined $S90SDK) { # Do only if not in S60 1.2 VC.
349             $APPS =~ s!\\epoc32\\release\\(.+)\\$UARM$!\\epoc32\\data\\z\\system\\apps\\PerlApp!i;
350         }
351         # TODO: in S60 3.0 there will be no more recognizers.
352         my $mdl = qq["$UREL\\PerlRecog.mdl"-"!:\\system\\recogs\\PerlRecog.mdl";];
353         my $AIF = $SDK_VARIANT =~ /^S[689]0/ ? qq["$APPS\\PerlApp.aif"-"!:\\system\\apps\\PerlApp\\PerlApp.aif"] : "";
354         print PERLAPP_PKG <<__EOF__;
355 ; !!!!!!   DO NOT EDIT THIS FILE   !!!!!!
356 ; This file is built by symbian\\config.pl.
357 ; Any changes made here will be lost!
358 ;
359 ; PerlApp.pkg
360 ;
361 ; Note that the demo_pl needs to be run to create the demo .pl scripts.
362 ;
363 ; Languages
364 &EN;
365
366 ; Standard SIS file header
367 #{"PerlApp"},(0x102015F6),0,2,0
368
369 $ProductId
370
371 ; Files
372 "$UREL\\PerlApp.APP"-"!:\\system\\apps\\PerlApp\\PerlApp.app"
373 $mdl
374 "$APPS\\PerlApp.rsc"-"!:\\system\\apps\\PerlApp\\PerlApp.rsc"
375 $AIF
376 __EOF__
377         if ( open( DEMOS, "perl symbian\\demo_pl list |" ) ) {
378             while (<DEMOS>) {
379                 chomp;
380                 if (defined $S90SDK) {
381                     print PERLAPP_PKG qq["$_"-"!:\\Mydocs\\Perl\\$_"\n];
382                 } else {
383                     print PERLAPP_PKG qq["$_"-"!:\\Perl\\$_"\n];
384                 }
385             }
386             close(DEMOS);
387         }
388         close(PERLAPP_PKG);
389     }
390     else {
391         die "$0: symbian\\PerlApp.pkg: $!\n";
392     }
393     push @unclean, 'symbian\PerlApp.pkg';
394 }
395
396 print "Creating...\n";
397 create_mmp(
398     'miniperl',             'exe',
399     'miniperlmain.c',       'symbian\symbian_stubs.c',
400     'symbian\PerlBase.cpp',
401     'symbian\PerlUi.cpp',
402     'symbian\PerlUtil.cpp',
403     'symbian\symbian_utils.cpp',
404 );
405 create_mmp(
406     "perl",                      'exe',
407     'perlmain.c',                'symbian\symbian_stubs.c',
408     'symbian\symbian_utils.cpp',
409     'symbian\PerlBase.cpp',
410     'symbian\PerlUi.cpp',
411     'symbian\PerlUtil.cpp',
412     'ext\DynaLoader\DynaLoader.cpp',
413 );
414
415 create_mmp(
416     "perl$VERSION",              'dll',
417     'symbian\symbian_dll.cpp',   'symbian\symbian_stubs.c',
418     'symbian\symbian_utils.cpp',
419     'symbian\PerlBase.cpp',
420     'symbian\PerlUi.cpp',
421     'symbian\PerlUtil.cpp',
422     'ext\DynaLoader\DynaLoader.cpp',
423 );
424
425 create_bld_inf();
426 create_config_h();
427 create_perlmain_c();
428 create_symbian_port_h();
429 create_DynaLoader_cpp();
430 create_PerlApp_pkg();
431
432 if ( open( PERLAPP_MMP, ">symbian/PerlApp.mmp" ) ) {
433     my @MACRO;
434     my @LIB;
435     push @MACRO, 'PERL_IMPLICIT_CONTEXT';
436     push @MACRO, 'MULTIPLICITY';
437     if (defined $S60SDK) {
438         push @MACRO, '__SERIES60__';
439         push @MACRO, '__SERIES60_1X__' if $S60SDK =~ /^1\./;
440         push @MACRO, '__SERIES60_2X__' if $S60SDK =~ /^2\./;
441         push @LIB, <<__EOF__;
442 LIBRARY         avkon.lib
443 LIBRARY         commondialogs.lib 
444 __EOF__
445     }
446     if (defined $S80SDK) {
447         push @MACRO, '__SERIES80__';
448         push @MACRO, '__SERIES80_1X__' if $S80SDK =~ /^1\./;
449         push @MACRO, '__SERIES80_2X__' if $S80SDK =~ /^2\./;
450         push @LIB, <<__EOF__;
451 LIBRARY         eikctl.lib
452 LIBRARY         eikcoctl.lib
453 LIBRARY         eikdlg.lib
454 LIBRARY         ckndlg.lib
455 __EOF__
456     }
457     if (defined $S90SDK) {
458         push @MACRO, '__SERIES90__';
459         push @LIB, <<__EOF__;
460 LIBRARY         eikctl.lib
461 LIBRARY         eikcoctl.lib
462 LIBRARY         eikdlg.lib
463 LIBRARY         ckndlg.lib
464 __EOF__
465     }
466     if (defined $UIQSDK) {
467         push @MACRO, '__UIQ__';
468         push @MACRO, '__UIQ_1X__' if $UIQSDK =~ /^1\./;
469         push @MACRO, '__UIQ_2X__' if $UIQSDK =~ /^2\./;
470         push @LIB, <<__EOF__;
471 LIBRARY         eikctl.lib
472 LIBRARY         eikcoctl.lib
473 LIBRARY         eikdlg.lib
474 LIBRARY         qikctl.lib
475 __EOF__
476     }
477     print PERLAPP_MMP <<__EOF__;
478 // !!!!!!   DO NOT EDIT THIS FILE   !!!!!!
479 // This file is built by symbian\\config.pl.
480 // Any changes made here will be lost!
481 TARGET            PerlApp.app
482 TARGETTYPE        app
483 UID               0x100039CE 0x102015F6
484 TARGETPATH        \\system\\apps\\PerlApp
485 SRCDBG
486 EXPORTUNFROZEN
487 SOURCEPATH        .
488 SOURCE            PerlApp.cpp 
489
490 USERINCLUDE       .
491 USERINCLUDE       ..
492 USERINCLUDE       \\symbian\\perl\\$R_V_SV\\include
493
494 SYSTEMINCLUDE     \\epoc32\\include
495 SYSTEMINCLUDE     \\epoc32\\include\\libc
496
497 LIBRARY           apparc.lib
498 LIBRARY           bafl.lib
499 LIBRARY           charconv.lib 
500 LIBRARY           cone.lib
501 LIBRARY           efsrv.lib
502 LIBRARY           eikcore.lib
503 LIBRARY           estlib.lib 
504 LIBRARY           euser.lib
505 LIBRARY           perl$VERSION.lib
506 @LIB
507 RESOURCE          perlapp.rss
508 __EOF__
509     if (@MACRO) {
510         for my $macro (@MACRO) {
511             print PERLAPP_MMP <<__EOF__;
512 MACRO             $macro
513 __EOF__
514         }
515     }
516     if ($SDK_VARIANT =~ /^S[689]0$/) {
517         print PERLAPP_MMP <<__EOF__;
518 AIF               PerlApp.aif . PerlAppAif.rss 
519 __EOF__
520     }
521     close(PERLAPP_MMP);
522     push @unclean, 'symbian\PerlApp.mmp';
523 }
524 else {
525     warn "$0: failed to create symbian\\PerlApp.mmp";
526 }
527
528 if ( open( MAKEFILE, ">Makefile" ) ) {
529     my $perl = "perl$VERSION";
530     my $windef1 = "$SYMBIAN_ROOT\\Epoc32\\Build$CWD\\$perl\\$WIN\\$perl.def";
531     my $windef2 = "..\\BWINS\\${perl}u.def";
532     my $armdef1 = "$SYMBIAN_ROOT\\Epoc32\\Build$CWD\\$perl\\$ARM\\$perl.def";
533     my $armdef2 = "..\\BMARM\\${perl}u.def";
534     my $MF = $WIN eq 'wins' ? 'vc6' : $WIN eq 'winscw' ? 'cw_ide' : "UNKNOWN";
535     print "\tMakefile\n";
536     print MAKEFILE <<__EOF__;
537 help:
538         \@echo === Perl for Symbian ===
539         \@echo Useful targets:
540         \@echo all win arm clean
541         \@echo perldll.sis perlext.sis perlsdk.zip
542
543 WIN     = ${WIN}
544 ARM     = ${ARM}
545
546 all:    build
547
548 build:  rename_makedef build_${WIN} build_arm
549
550 @unclean: symbian\\config.pl
551         perl symbian\\config.pl
552
553 build_${WIN}:   abld.bat perldll_${WIN}
554
555 build_vc6:      abld.bat perldll_wins
556
557 build_vc7:      abld.bat perldll_wins
558
559 build_cw:       abld.bat perldll_winscw
560
561 build_arm:      abld.bat perl_arm miniperl_arm perldll_arm
562
563 miniperl_win miniperl_${WIN}:   miniperl.mmp abld.bat rename_makedef
564         abld build ${WIN} udeb miniperl
565
566 miniperl_arm:   miniperl.mmp abld.bat rename_makedef
567         abld build \$(ARM) $UARM miniperl
568
569 miniperl:       miniperl_${WIN} miniperl_arm
570
571 perl:   perl_${WIN} perl_arm
572
573 perl_win perl_${WIN}:   perl.mmp abld.bat rename_makedef
574         abld build ${WIN} perl
575
576 perl_arm:       perl.mmp abld.bat rename_makedef
577         abld build \$(ARM) $UARM perl
578
579 perldll_win perldll_${WIN}: perl${VERSION}_${WIN} freeze_${WIN} perl${VERSION}_${WIN}
580
581 perl${VERSION}_win perl${VERSION}_${WIN}:       perl$VERSION.mmp abld.bat rename_makedef
582         abld build ${WIN} perl$VERSION
583
584 perldll_arm: perl${VERSION}_arm freeze_arm perl${VERSION}_arm
585
586 perl${VERSION}_arm:     perl$VERSION.mmp abld.bat rename_makedef
587         abld build \$(ARM) $UARM perl$VERSION
588
589 perldll perl$VERSION:   perldll_${WIN} perldll_arm
590
591 win ${WIN}:     miniperl_${WIN} perl_${WIN} perldll_${WIN}
592
593 thumb arm:      miniperl_arm perl_arm perldll_arm
594
595 rename_makedef:
596         -ren makedef.pl nomakedef.pl
597
598 # Symbian SDK has a makedef.pl of its own,
599 # and we don't need Perl's.
600 rerename_makedef:
601         -ren nomakedef.pl makedef.pl
602
603 symbian\\PerlUi.rss: symbian\\PerlUi$SDK_VARIANT.rss
604         copy symbian\\PerlUi$SDK_VARIANT.rss symbian\\PerlUi.rss
605
606 abld.bat abld: bld.inf symbian\\PerlUi.rss
607         bldmake bldfiles
608
609 vc6:    win.mf vc6.mf build_vc6
610
611 vc7:    win.mf vc7.mf build_vc7
612
613 cw:     win.mf cw.mf build_cw
614
615 ${WIN}_miniperl.mf: abld.bat symbian\\config.pl
616         abld makefile ${MF} miniperl
617         echo > ${WIN}_miniperl.mf
618
619 ${WIN}_perl.mf: abld.bat symbian\\config.pl
620         abld makefile ${MF} perl
621         echo > ${WIN}_perl.mf
622
623 ${WIN}_${VERSION}.mf: abld.bat symbian\\config.pl
624         abld makefile ${MF} perl${VERSION}
625         echo > ${WIN}_${VERSION}.mf
626
627 symbian\\${WIN}.mf:
628         cd symbian; make ${WIN}.mf
629
630 ${WIN}.mf: ${WIN}_miniperl.mf ${WIN}_perl.mf ${WIN}_${VERSION}.mf symbian\\${WIN}.mf
631
632 arm_miniperl.mf: abld.bat symbian\\config.pl
633         echo > arm_miniperl.mf
634
635 arm_perl.mf: abld.bat symbian\\config.pl
636         echo > arm_perl.mf
637
638 arm_${VERSION}.mf: abld.bat symbian\\config.pl
639         echo > arm_${VERSION}.mf
640
641 arm.mf: arm_miniperl.mf arm_perl.mf arm_${VERSION}.mf
642
643 win.mf:  vc6.mf cw.mf
644         echo > win.mf
645
646 vc6.mf: abld.bat symbian\\config.pl
647         abld makefile vc6
648         echo > vc6.mf
649
650 vc7.mf: abld.bat symbian\\config.pl
651         abld makefile vc7
652         echo > vc7.mf
653
654 cw.mf: abld.bat symbian\\config.pl
655         abld makefile cw_ide
656         echo > cw.mf
657
658 PM  = lib\\Config.pm lib\\Cross.pm lib\\lib.pm ext\\DynaLoader\\DynaLoader.pm ext\\DynaLoader\\XSLoader.pm ext\\Errno\\Errno.pm
659 POD = lib\\Config.pod
660
661 pm:     \$(PM)
662
663 XLIB    = -Ixlib\\symbian
664
665 XSBOPT  = --win=\$(WIN) --arm=\$(ARM)
666
667 lib\\Config.pm:
668         copy symbian\\config.sh config.sh
669 __EOF__
670     if (defined $S90SDK) {
671         print MAKEFILE <<__EOF__;
672         perl -pi.bak -e "s:x\\.y\\.z+:$R_V_SV:g; s!='(\\\\\\\\system)!='C:\\1!" config.sh
673 __EOF__
674     } else {
675         print MAKEFILE <<__EOF__;
676         perl -pi.bak -e "s:x\\.y\\.z+:$R_V_SV:g" config.sh
677 __EOF__
678     };
679     print MAKEFILE <<__EOF__;
680         perl \$(XLIB) configpm --cross=symbian
681         copy xlib\\symbian\\Config.pm lib\\Config.pm
682         perl -pi.bak -e "s:x\\.y\\.z:$R_V_SV:g" lib\\Config.pm
683         perl -pi.bak -e "s:5\\.\\d+\\.\\d+:$R_V_SV:g" lib\\Config.pm
684         -perl -pi.bak -e "s:x\\.y\\.z:$R_V_SV:g" xlib\\symbian\\Config_heavy.pl
685
686 lib\\lib.pm:
687         perl lib\\lib_pm.PL
688
689 ext\\DynaLoader\\DynaLoader.pm:
690         -del /f ext\\DynaLoader\\DynaLoader.pm
691         perl -Ixlib\\symbian ext\\DynaLoader\\DynaLoader_pm.PL
692         perl -pi.bak -e "s/__END__//" DynaLoader.pm
693         copy /y DynaLoader.pm ext\\DynaLoader\\DynaLoader.pm
694         -del /f DynaLoader.pm DynaLoader.pm.bak
695
696 ext\\DynaLoader\\XSLoader.pm:
697         perl \$(XLIB) symbian\\xsbuild.pl \$(XSBOPT) XSLoader
698
699 ext\\Errno\\Errno.pm:
700         perl \$(XLIB) symbian\\xsbuild.pl \$(XSBOPT) Errno
701
702 miniperlexe.sis:        miniperl_arm symbian\\makesis.pl
703         perl \$(XLIB) symbian\\makesis.pl miniperl
704
705 perlexe.sis:    perl_arm symbian\\makesis.pl
706         perl \$(XLIB) symbian\\makesis.pl perl
707
708
709 allsis: all miniperlexe.sis perlexe.sis perldll.sis perllib.sis perlext.sis perlapp.sis
710
711 perldll.sis perl$VERSION.sis:   perldll_arm pm symbian\\makesis.pl
712         perl \$(XLIB) symbian\\makesis.pl perl${VERSION}dll
713
714 perl${VERSION}lib.sis perllib.sis:      \$(PM)
715         perl \$(XLIB) symbian\\makesis.pl perl${VERSION}lib
716
717 perl${VERSION}ext.sis perlext.sis:      perldll_arm buildext_sis
718         perl symbian\\makesis.pl perl${VERSION}ext
719
720 EXT =   Compress::Raw::Zlib Cwd Data::Dumper Devel::Peek Digest::MD5 Errno Fcntl File::Glob Filter::Util::Call IO List::Util MIME::Base64 PerlIO::scalar PerlIO::via SDBM_File Socket Storable Time::HiRes XSLoader attributes
721
722 buildext: perldll symbian\\xsbuild.pl lib\\Config.pm
723         perl \$(XLIB) symbian\\xsbuild.pl \$(XSBOPT) \$(EXT)
724
725 buildextcpp: perldll symbian\\xsbuild.pl lib\\Config.pm
726         perl \$(XLIB) symbian\\xsbuild.pl --csuffix .cpp \$(XSBOPT) \$(EXT)
727
728 buildext_sis: perldll.sis symbian\\xsbuild.pl lib\\Config.pm
729         perl \$(XLIB) symbian\\xsbuild.pl \$(XSBOPT) --sis \$(EXT)
730
731 buildextcpp_sis: perldll.sis symbian\\xsbuild.pl lib\\Config.pm
732         perl \$(XLIB) symbian\\xsbuild.pl --csuffix .cpp \$(XSBOPT) --sis \$(EXT)
733
734 cleanext: symbian\\xsbuild.pl
735         perl \$(XLIB) symbian\\xsbuild.pl \$(XSBOPT) --clean \$(EXT)
736
737 distcleanext: symbian\\xsbuild.pl
738         perl \$(XLIB) symbian\\xsbuild.pl \$(XSBOPT) --distclean \$(EXT)
739
740 sis makesis:    miniperl perl perldll pm buildext perlapp.sis
741         perl \$(XLIB) symbian\\makesis.pl
742
743 APIDIR = \\Symbian\\perl\\$R_V_SV
744
745 sdkinstall:
746         -mkdir \\Symbian\\perl
747         -mkdir \\Symbian\\perl\\$R_V_SV
748         -mkdir \$(APIDIR)\\include
749         -mkdir \$(APIDIR)\\include\\symbian
750         -mkdir \$(APIDIR)\\lib
751         -mkdir \$(APIDIR)\\lib\\ExtUtils
752         -mkdir \$(APIDIR)\\pod
753         -mkdir \$(APIDIR)\\bin
754         -mkdir \$(BINDIR)
755         copy /y *.h   \$(APIDIR)\\include
756         -copy /y *.inc \$(APIDIR)\\include
757         copy /y lib\\ExtUtils\\xsubpp  \$(APIDIR)\\lib\\ExtUtils
758         copy /y lib\\ExtUtils\\typemap \$(APIDIR)\\lib\\ExtUtils
759         copy /y lib\\ExtUtils\\ParseXS.pm \$(APIDIR)\\lib\\ExtUtils
760         copy /y symbian\\xsbuild.pl    \$(APIDIR)\\bin
761         copy /y symbian\\sisify.pl     \$(APIDIR)\\bin
762         copy /y symbian\\PerlBase.h    \$(APIDIR)\\include
763         copy /y symbian\\PerlUi.h      \$(APIDIR)\\include
764         copy /y symbian\\PerlUtil.h    \$(APIDIR)\\include
765         copy /y symbian\\symbian*.h    \$(APIDIR)\\include\\symbian
766         copy /y symbian\\PerlBase.pod  \$(APIDIR)\\pod
767         copy /y symbian\\PerlUtil.pod  \$(APIDIR)\\pod
768
769 RELDIR  = $SYMBIAN_ROOT\\epoc32\\release
770 RELWIN = \$(RELDIR)\\\$(WIN)\\udeb
771 RELARM = \$(RELDIR)\\\$(ARM)\\$UARM
772 SDKZIP = perl${VERSION}sdk.zip
773
774
775 \$(SDKZIP) perlsdk.zip: perldll sdkinstall
776         -del /f perl${VERSION}sdk.zip
777         zip -r perl${VERSION}sdk.zip \$(RELWIN)\\perl$VERSION.* \$(RELARM)\\perl$VERSION.* \$(APIDIR)
778         \@echo perl${VERSION}sdk.zip created.
779
780 PERLSIS = perl${VERSION}.SIS perl${VERSION}lib.SIS perl${VERSION}ext.SIS
781 ALLSIS  = \$(PERLSIS) perlapp.sis
782 ETC     = README.symbian symbian\\PerlBase.pod symbian\\PerlUtil.pod symbian\\sisify.pl symbian\\TODO
783
784 perl${VERSION}dist.zip perldist.zip: \$(ALLSIS) \$(SDKZIP) \$(ETC)
785         -del /f perl${VERSION}dist.zip
786         zip -r perl${VERSION}dist.zip \$(ALLSIS) \$(SDKZIP) \$(ETC)
787
788 perlapp:        sdkinstall perlapp_${WIN} perlapp_arm
789
790 perlapp_arm_minimal sisify_hex perlappmin.hex perlrscmin.hex:   sdkinstall config.h
791         cd symbian; make perlapp_arm USERDEFS=-DCreatePerlAppMinimal
792         perl symbian\\hexdump.pl
793
794 perlapp_win perlapp_${WIN}: config.h
795         cd symbian; make perlapp_${WIN}
796
797 perlapp_arm: config.h
798         cd symbian; make perlapp_arm
799
800 perlapp_arm_clean:
801         cd symbian; make clean
802
803 perlapp_demo_extract:
804         cd symbian; make perlapp_demo_extract
805
806 perlapp.sis: perlapp_arm
807         cd symbian; make perlapp.sis
808
809 perlapp.zip:
810         cd symbian; zip perlapp.zip PerlApp.* PerlRecog.* PerlBase.* PerlUtil.* demo_pl
811
812 zip:    perlsdk.zip perlapp.zip
813
814 freeze: freeze_${WIN} freeze_arm
815
816 freeze_${WIN}:
817         abld freeze ${WIN} perl$VERSION
818
819 freeze_arm:
820         abld freeze \$(ARM) perl$VERSION
821
822 defrost:        defrost_${WIN} defrost_arm
823
824 defrost_${WIN}:
825         -del /f $windef1
826         -del /f $windef2
827
828 defrost_arm:
829         -del /f $armdef1
830         -del /f $armdef2
831
832 clean_${WIN}: abld.bat
833         abld clean ${WIN}
834
835 clean_arm: abld.bat
836         abld clean \$(ARM)
837
838 clean:  clean_${WIN} clean_arm rerename_makedef
839         -del /f \$(PM)
840         -del /f \$(POD)
841         -del /f lib\\Config.pm.bak
842         -del /f xlib\\symbian\\Config_heavy.pl
843         -rmdir /s /q xlib
844         -del /f config.sh
845         -del /f DynaLoader.pm ext\\DynaLoader\\DynaLoader.pm
846         -del /f ext\\DynaLoader\\Makefile
847         -del /f ext\\SDBM_File\\sdbm\\Makefile
848         -del /f symbian\\*.lst
849         -del /f abld.bat @unclean *.pkg *.sis *.zip
850         -del /f symbian\\abld.bat symbian\\*.sis symbian\\*.zip
851         -del /f symbian\\perl5*.pkg symbian\\miniperl.pkg
852         -del arm_*.mf ${WIN}_*.mf vc*.mf cw*.mf
853         -del symbian\\Makefile
854         -del symbian\\PerlUi.rss symbian\\PerlApp.rss
855         -del perlappmin.hex perlrscmin.hex
856         -perl symbian\\xsbuild.pl \$(XSBOPT) --clean \$(EXT)
857         -rmdir /s /q perl${VERSION}_Data
858         -cd symbian; make clean
859
860 reallyclean: abld.bat
861         abld reallyclean
862
863 distclean: defrost reallyclean clean
864         -perl symbian\\xsbuild.pl \$(XSBOPT) --distclean \$(EXT)
865         -del /f config.h config.sh.bak symbian\\symbian_port.h
866         -del /f Makefile symbian\\PerlApp.mmp
867         -del /f BMARM\\*.def
868         -del /f *.cwlink *.resources *.pref
869         -del /f perl${VERSION}.xml perl${VERSION}.mcp uid.cpp
870         -rmdir /s /q BMARM
871         cd symbian; make distclean
872         -del /f symbian\\Makefile
873 __EOF__
874     close MAKEFILE;
875 }
876 else {
877     warn "$0: failed to create Makefile: $!\n";
878 }
879
880 if ( open( MAKEFILE, ">symbian/Makefile")) {
881     my $wrap = defined $S60SDK && $S60SDK eq '1.2' && $WIN ne '${WIN}cw';
882     my $ABLD = $wrap ? 'perl b.pl': 'abld';
883     print "\tsymbian/Makefile\n";
884     my $MF = $WIN eq 'wins' ? 'vc6' : $WIN eq 'winscw' ? 'cw_ide' : "UNKNOWN";
885     print MAKEFILE <<__EOF__;
886 WIN = $WIN
887 ARM = $ARM
888 ABLD = $ABLD
889 MF = $MF
890
891 abld.bat:
892         bldmake bldfiles
893
894 perlapp_${WIN}: abld.bat ..\\config.h PerlApp.h PerlApp.cpp
895         copy PerlUi$SDK_VARIANT.rss PerlApp.rss
896         bldmake bldfiles
897         \$(ABLD) build ${WIN} udeb
898
899 perlapp_arm: ..\\config.h PerlApp.h PerlApp.cpp
900         copy PerlUi$SDK_VARIANT.rss PerlApp.rss
901         bldmake bldfiles
902         \$(ABLD) build ${ARM} $UARM
903
904 $MF:
905         abld makefile $MF
906
907 win.mf:
908         bldmake bldfiles
909         abld makefile $MF
910
911 perlapp_demo_extract:
912         perl demo_pl extract
913
914 perlapp.sis: perlapp_arm perlapp_demo_extract
915         -del /f perlapp.SIS
916         makesis perlapp.pkg
917         copy /y perlapp.SIS ..\\perlapp.SIS
918
919 clean:
920         -perl demo_pl cleanup
921         -del /f perlapp.sis
922         -del /f b.pl
923         -del PerlApp.rss
924         abld clean $WIN
925         abld clean thumb
926         -del Makefile
927
928 distclean: clean
929         -del /f *.cwlink *.resources *.pref
930         -del /f PerlApp.xml PerlApp.mcp uid.cpp
931         -rmdir /s /q PerlApp_Data
932         -del /f abld.bat
933 __EOF__
934     close(MAKEFILE);
935     if ($wrap) {
936         if ( open( B_PL, ">symbian/b.pl")) {
937             print B_PL <<'__EOF__';
938 # abld.pl wrapper.
939
940 # nmake doesn't like MFLAGS and MAKEFLAGS being set to -w and w.
941 delete $ENV{MFLAGS};
942 delete $ENV{MAKEFLAGS};
943
944 system("abld @ARGV");
945 __EOF__
946             close(B_PL);
947         } else {
948             warn "$0: failed to create symbian/b.pl: $!\n";
949         }
950     }
951 } else {
952     warn "$0: failed to create symbian/Makefile: $!\n";
953 }
954
955 print "Deleting...\n";
956 for my $config (
957                 # Do not delete config.h here.
958                 "config.sh",
959                 "lib\\Config.pm",
960                 "xlib\\symbian\\Config.pm",
961                 "xlib\\symbian\\Config_heavy.pl",
962                 "symbian\\PerlUi.rss",
963                 "symbian\\PerlApp.rss",
964                 ) {
965     print "\t$config\n";
966     unlink($config);
967 }
968
969 print <<__EOM__;
970 Configuring done.
971 Now you can run:
972     make all
973     make allsis
974 __EOM__
975
976 1;    # Happy End.