equal
deleted
inserted
replaced
18 require 5.003_07; |
18 require 5.003_07; |
19 no strict 'vars'; |
19 no strict 'vars'; |
20 use English; |
20 use English; |
21 use FindBin; # for FindBin::Bin |
21 use FindBin; # for FindBin::Bin |
22 |
22 |
23 my $PerlLibPath; # fully qualified pathname of the directory containing our Perl modules |
23 # Version |
24 |
24 my $MajorVersion = 1; |
25 BEGIN { |
25 my $MinorVersion = 1; |
26 # check user has a version of perl that will cope require 5.005_03; |
26 my $PatchVersion = 0; |
27 # establish the path to the Perl libraries: currently the same directory as this script |
|
28 $PerlLibPath = $FindBin::Bin; # X:/epoc32/tools |
|
29 $PerlLibPath =~ s/\//\\/g; # X:\epoc32\tools |
|
30 $PerlLibPath .= "\\"; |
|
31 } |
|
32 |
|
33 use lib $PerlLibPath; |
|
34 use Modload; |
|
35 Load_SetModulePath($PerlLibPath); |
|
36 |
27 |
37 # Globals |
28 # Globals |
38 my $maksym = ""; |
29 my $maksym = ""; |
39 my $rombuild; |
30 my $rombuild; |
40 my $debug = 0; |
31 my $debug = 0; |
349 &help if (!@ARGV); |
340 &help if (!@ARGV); |
350 |
341 |
351 while (@ARGV) { |
342 while (@ARGV) { |
352 $arg = shift @ARGV; |
343 $arg = shift @ARGV; |
353 |
344 |
354 if ($arg=~/^[\-\/](\S*)$/) { |
345 if ($arg=~/^[\-](\S*)$/) { |
355 $flag=$1; |
346 $flag=$1; |
356 |
347 |
357 if ($flag=~/^[\?h]$/i) { |
348 if ($flag=~/^[\?h]$/i) { |
358 &help; |
349 &help; |
359 } elsif ($flag=~/^d$/i) { |
350 } elsif ($flag=~/^d$/i) { |
383 |
374 |
384 sub help () |
375 sub help () |
385 { |
376 { |
386 my $build; |
377 my $build; |
387 |
378 |
388 &Load_ModuleL('E32TPVER'); |
379 print "\nmaksym - Produce symbolic information given a ROM image V${MajorVersion}.${MinorVersion}.${PatchVersion}\n"; |
389 print "\nmaksym - Produce symbolic information given a ROM image (Build ", |
|
390 &E32tpver, ")\n"; |
|
391 &usage; |
380 &usage; |
392 exit 0; |
381 exit 0; |
393 } |
382 } |
394 |
383 |
395 sub usage () |
384 sub usage () |