|
1 # |
|
2 # Copyright (c) 2005-2009 Nokia Corporation and/or its subsidiary(-ies). |
|
3 # All rights reserved. |
|
4 # This component and the accompanying materials are made available |
|
5 # under the terms of "Eclipse Public License v1.0" |
|
6 # which accompanies this distribution, and is available |
|
7 # at the URL "http://www.eclipse.org/legal/epl-v10.html". |
|
8 # |
|
9 # Initial Contributors: |
|
10 # Nokia Corporation - initial contribution. |
|
11 # |
|
12 # Contributors: |
|
13 # |
|
14 # Description: |
|
15 # |
|
16 |
|
17 use File::Copy; |
|
18 use Getopt::Long; |
|
19 use Cwd; |
|
20 use Archive::Zip; |
|
21 use Archive::Zip::Tree; |
|
22 |
|
23 sub Usage() |
|
24 { |
|
25 print <<USAGE_EOF; |
|
26 Usage |
|
27 perl buildorbiter.pl --in=FileNameIn --out=FileNameOut --help |
|
28 |
|
29 --in=FileNameIn : Input oby file name |
|
30 |
|
31 --out=FileNameOut : Output zip file name |
|
32 |
|
33 --help : This help |
|
34 USAGE_EOF |
|
35 exit( 0 ) |
|
36 } |
|
37 |
|
38 sub main() |
|
39 { |
|
40 my $help=''; |
|
41 my $input=""; |
|
42 my $output=""; |
|
43 |
|
44 GetOptions( |
|
45 'in=s' => \$input, |
|
46 'out=s' => \$output, |
|
47 'help' => \$help |
|
48 ); |
|
49 |
|
50 if($help or ($input eq "") or ($output eq "") ) |
|
51 { |
|
52 Usage(); |
|
53 exit(0); |
|
54 } |
|
55 |
|
56 my $curdir = cwd; |
|
57 $_ = $curdir; |
|
58 s/\//\\/g; |
|
59 $curdir = $_; |
|
60 |
|
61 my $theEpocRoot=$ENV{EPOCROOT}; |
|
62 my @epocdir = "$theEpocRoot.\\epoc32"; |
|
63 |
|
64 open FH, "$input" || die "Couldn't open $input file for Reading: $!\n"; |
|
65 |
|
66 while ( <FH> ) |
|
67 { |
|
68 chomp; # no newline |
|
69 s/#.*//; # no comments |
|
70 s/^\s+//; # no leading white |
|
71 s/\s+$//; # no trailing white |
|
72 next unless length; # anything left? |
|
73 if ( /(^file|^data)\s*=\s*(\S+)\s+(\S+)/ ) |
|
74 { |
|
75 my $inputFile=$2; |
|
76 |
|
77 $inputFile =~ m/(\S*)(\\|\/)(\S+)$/; |
|
78 |
|
79 my $dir=$curdir.$1; |
|
80 unless ( -d $dir ) |
|
81 { |
|
82 system("mkdir $dir"); |
|
83 } |
|
84 printf "Copying: $inputFile\n"; |
|
85 copy($inputFile, $dir) or die "File cannot be copied."; |
|
86 } |
|
87 } |
|
88 close FH; |
|
89 |
|
90 my $zip = Archive::Zip->new(); |
|
91 if ( $input =~ m/(\S*)(\\|\/)(\S+)$/ ) |
|
92 { |
|
93 $zip->addFile("$input", $3); |
|
94 } |
|
95 else |
|
96 { |
|
97 $zip->addFile("$input"); |
|
98 } |
|
99 $zip->addTree("epoc32", "epoc32"); |
|
100 die 'write error' if $zip->writeToFileNamed( "$output" ) != AZ_OK; |
|
101 printf "Completed\n"; |
|
102 } |
|
103 |
|
104 main(); |