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
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
#!/usr/bin/perl
#############################################################################
##
## Copyright (C) 2011 Nokia Corporation and/or its subsidiary(-ies).
## All rights reserved.
## Contact: Nokia Corporation (qt-info@nokia.com)
##
## This file is part of the QtQuick3D module of the Qt Toolkit.
##
## $QT_BEGIN_LICENSE:LGPL$
## GNU Lesser General Public License Usage
## This file may be used under the terms of the GNU Lesser General Public
## License version 2.1 as published by the Free Software Foundation and
## appearing in the file LICENSE.LGPL included in the packaging of this
## file. Please review the following information to ensure the GNU Lesser
## General Public License version 2.1 requirements will be met:
## http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.
##
## In addition, as a special exception, Nokia gives you certain additional
## rights. These rights are described in the Nokia Qt LGPL Exception
## version 1.1, included in the file LGPL_EXCEPTION.txt in this package.
##
## GNU General Public License Usage
## Alternatively, this file may be used under the terms of the GNU General
## Public License version 3.0 as published by the Free Software Foundation
## and appearing in the file LICENSE.GPL included in the packaging of this
## file. Please review the following information to ensure the GNU General
## Public License version 3.0 requirements will be met:
## http://www.gnu.org/copyleft/gpl.html.
##
## Other Usage
## Alternatively, this file may be used in accordance with the terms and
## conditions contained in a signed written agreement between you and Nokia.
##
##
##
##
##
## $QT_END_LICENSE$
##
#############################################################################
use File::Find;
sub system_example_dirs {
print "Setting example directories\n";
return ( '../../../examples/qt3d', '../../../examples/quick3d', '../../../demos/qt3d', '../../../demos/quick3d');
}
sub pkg_template_files
{
print "Recording pkg files of QtQuick3D\n";
my @out;
#get all of the pkg files we might want.
my $wanted = sub {
# If the file has _template.pkg in the name, store the file and path to it
my $file = lc $File::Find::name;
if ($file =~ /_template\.pkg/) {
print "Found .pkg file: $file \n";
push(@out, $file);
}
};
# Iterate through the example and demo directories to find pkg files
foreach my $dir (system_example_dirs) {
find($wanted, "${dir}");
}
return @out;
}
sub parse_pkg
{
my $filename = shift;
open FILE, $filename or die "Could not read from $filename, program halting.";
print "Parsing package file: $filename\n";
my $lines ="";
my $line;
# Iterate through each line of the file.
while (defined ($line = <FILE>))
{
# If we find a ;DEPLOYMENT line, get the lines below it up to (and including) a blank line
if ($line =~ /; DEPLOYMENT/ ) {
my $recorded = 0;
$lines .= $line;
while ($recorded == 0) {
#get lines until we find a blank line
my $record_line = <FILE>;
if ($record_line =~ /^$/) {
$recorded = 1;
$lines .= $record_line;
}
else {
$lines .= $record_line;
}
}
}
}
close FILE;
return $lines;
}
open(OUTPUTPKG, ">QtQuick3D_apps_template.pkg") or die "cannot open file for reading: $!";
# Print the pkg file heading for our collective pkg file
print OUTPUTPKG <<PKGHEADER;
; Language
&EN
#{"Qt Quick3D Examples"},(0xA89FAE20),1,0,0
; SIS header: name, uid, version
; Localised Vendor name
%{"Nokia"}
; Unique Vendor name
:"Nokia"
; Default dependency to Qt libraries
(0x2001E61C), 4, 7, 3, {"Qt"}
; Default dependency to QtQuick3D libraries
(0x2002AC89), 1, 0, 0, {"Qt Quick 3D"}
; Default HW/platform dependencies
[0x20022E6D],0,0,0,{"S60ProductID"}
PKGHEADER
# Collect the pkg file path for each test application and library needed for system testing
my @files = pkg_template_files;
my $pkgcontent;
# Parse the collected pkg files and append the parsed result to the content of the collective one
foreach (@files) {
$pkgcontent .= "; $_\n";
$pkgcontent .= parse_pkg $_;
$pkgcontent .= "\n";
}
print OUTPUTPKG $pkgcontent;
|
