← Index
NYTProf Performance Profile   « block view • line view • sub view »
For C:/lo/libo-master/solenv/bin/make_installer.pl
  Run on Mon Sep 24 00:52:54 2012
Reported on Mon Sep 24 07:34:53 2012

Filename/cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/assembly.pm
StatementsExecuted 480967 statements in 1.30s
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
5337921706ms706msinstaller::windows::assembly::::CORE:matchinstaller::windows::assembly::CORE:match (opcode)
111585ms1.33sinstaller::windows::assembly::::add_assembly_condition_into_component_tableinstaller::windows::assembly::add_assembly_condition_into_component_table
11118.0ms18.7msinstaller::windows::assembly::::BEGIN@33installer::windows::assembly::BEGIN@33
111449µs168msinstaller::windows::assembly::::create_msiassembly_tableinstaller::windows::assembly::create_msiassembly_table
111405µs409µsinstaller::windows::assembly::::BEGIN@30installer::windows::assembly::BEGIN@30
111313µs1.06msinstaller::windows::assembly::::create_msiassemblyname_tableinstaller::windows::assembly::create_msiassemblyname_table
3031224µs224µsinstaller::windows::assembly::::get_msiassembly_componentinstaller::windows::assembly::get_msiassembly_component
1011158µs554µsinstaller::windows::assembly::::get_msiassembly_featureinstaller::windows::assembly::get_msiassembly_feature
101158µs58µsinstaller::windows::assembly::::get_msiassembly_attributesinstaller::windows::assembly::get_msiassembly_attributes
101155µs55µsinstaller::windows::assembly::::get_msiassembly_filemanifestinstaller::windows::assembly::get_msiassembly_filemanifest
101140µs40µsinstaller::windows::assembly::::get_msiassembly_fileapplicationinstaller::windows::assembly::get_msiassembly_fileapplication
11116µs18µsinstaller::windows::assembly::::BEGIN@31installer::windows::assembly::BEGIN@31
11115µs16µsinstaller::windows::assembly::::BEGIN@32installer::windows::assembly::BEGIN@32
0000s0sinstaller::windows::assembly::::get_msiassembly_fileinstaller::windows::assembly::get_msiassembly_file
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1#*************************************************************************
2#
3# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4#
5# Copyright 2000, 2010 Oracle and/or its affiliates.
6#
7# OpenOffice.org - a multi-platform office productivity suite
8#
9# This file is part of OpenOffice.org.
10#
11# OpenOffice.org is free software: you can redistribute it and/or modify
12# it under the terms of the GNU Lesser General Public License version 3
13# only, as published by the Free Software Foundation.
14#
15# OpenOffice.org is distributed in the hope that it will be useful,
16# but WITHOUT ANY WARRANTY; without even the implied warranty of
17# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18# GNU Lesser General Public License version 3 for more details
19# (a copy is included in the LICENSE file that accompanied this code).
20#
21# You should have received a copy of the GNU Lesser General Public License
22# version 3 along with OpenOffice.org. If not, see
23# <http://www.openoffice.org/license.html>
24# for a copy of the LGPLv3 License.
25#
26#*************************************************************************
27
28package installer::windows::assembly;
29
30268µs2413µs
# spent 409µs (405+4) within installer::windows::assembly::BEGIN@30 which was called: # once (405µs+4µs) by installer::BEGIN@61 at line 30
use installer::files;
# spent 409µs making 1 call to installer::windows::assembly::BEGIN@30 # spent 4µs making 1 call to UNIVERSAL::import
31259µs220µs
# spent 18µs (16+2) within installer::windows::assembly::BEGIN@31 which was called: # once (16µs+2µs) by installer::BEGIN@61 at line 31
use installer::globals;
# spent 18µs making 1 call to installer::windows::assembly::BEGIN@31 # spent 2µs making 1 call to UNIVERSAL::import
32253µs218µs
# spent 16µs (15+1) within installer::windows::assembly::BEGIN@32 which was called: # once (15µs+1µs) by installer::BEGIN@61 at line 32
use installer::worker;
# spent 16µs making 1 call to installer::windows::assembly::BEGIN@32 # spent 2µs making 1 call to UNIVERSAL::import
3323.49ms218.7ms
# spent 18.7ms (18.0+689µs) within installer::windows::assembly::BEGIN@33 which was called: # once (18.0ms+689µs) by installer::BEGIN@61 at line 33
use installer::windows::idtglobal;
# spent 18.7ms making 1 call to installer::windows::assembly::BEGIN@33 # spent 8µs making 1 call to UNIVERSAL::import
34
35##############################################################
36# Returning the first module of a file from the
37# comma separated list of modules.
38##############################################################
39
40sub get_msiassembly_feature
41
# spent 554µs (158+396) within installer::windows::assembly::get_msiassembly_feature which was called 10 times, avg 55µs/call: # 10 times (158µs+396µs) by installer::windows::assembly::create_msiassembly_table at line 173, avg 55µs/call
{
42108µs my ( $onefile ) = @_;
43
44108µs my $module = "";
45
461021µs if ( $onefile->{'modules'} ) { $module = $onefile->{'modules'}; }
47
48 # If modules contains a list of modules, only taking the first one.
49
501052µs1011µs if ( $module =~ /^\s*(.*?)\,/ ) { $module = $1; }
# spent 11µs making 10 calls to installer::windows::assembly::CORE:match, avg 1µs/call
51
52 # Attention: Maximum feature length is 38!
531027µs10385µs installer::windows::idtglobal::shorten_feature_gid(\$module);
# spent 385µs making 10 calls to installer::windows::idtglobal::shorten_feature_gid, avg 38µs/call
54
551051µs return $module;
56}
57
58##############################################################
59# Returning the component of a file.
60##############################################################
61
62sub get_msiassembly_component
63
# spent 224µs within installer::windows::assembly::get_msiassembly_component which was called 30 times, avg 7µs/call: # 10 times (118µs+0s) by installer::windows::assembly::add_assembly_condition_into_component_table at line 276, avg 12µs/call # 10 times (57µs+0s) by installer::windows::assembly::create_msiassembly_table at line 172, avg 6µs/call # 10 times (49µs+0s) by installer::windows::assembly::create_msiassemblyname_table at line 213, avg 5µs/call
{
643029µs my ( $onefile ) = @_;
65
663022µs my $component = "";
67
683047µs $component = $onefile->{'componentname'};
69
7030187µs return $component;
71}
72
73##############################################################
74# Returning the file name as manifest file
75##############################################################
76
77sub get_msiassembly_filemanifest
78
# spent 55µs within installer::windows::assembly::get_msiassembly_filemanifest which was called 10 times, avg 5µs/call: # 10 times (55µs+0s) by installer::windows::assembly::create_msiassembly_table at line 174, avg 5µs/call
{
79108µs my ( $onefile ) = @_;
80
81106µs my $filemanifest = "";
82
831015µs $filemanifest = $onefile->{'uniquename'};
84
851049µs return $filemanifest;
86}
87
88
89##############################################################
90# Returning the file application
91##############################################################
92
93sub get_msiassembly_fileapplication
94
# spent 40µs within installer::windows::assembly::get_msiassembly_fileapplication which was called 10 times, avg 4µs/call: # 10 times (40µs+0s) by installer::windows::assembly::create_msiassembly_table at line 175, avg 4µs/call
{
95108µs my ( $onefile ) = @_;
96
97104µs my $fileapplication = "";
98
991051µs return $fileapplication;
100}
101
102##############################################################
103# Returning the file attributes
104##############################################################
105
106sub get_msiassembly_attributes
107
# spent 58µs within installer::windows::assembly::get_msiassembly_attributes which was called 10 times, avg 6µs/call: # 10 times (58µs+0s) by installer::windows::assembly::create_msiassembly_table at line 176, avg 6µs/call
{
108107µs my ( $onefile ) = @_;
109
110106µs my $fileattributes = "";
111
1121018µs if ( $onefile->{'Attributes'} ne "" ) { $fileattributes = $onefile->{'Attributes'}; }
113
1141050µs return $fileattributes;
115}
116
117##############################################################
118# Returning the file object for the msiassembly table.
119##############################################################
120
121sub get_msiassembly_file
122{
123 my ( $filesref, $filename ) = @_;
124
125 my $foundfile = 0;
126 my $onefile;
127
128 for ( my $i = 0; $i <= $#{$filesref}; $i++ )
129 {
130 $onefile = ${$filesref}[$i];
131 my $name = $onefile->{'Name'};
132
133 if ( $name eq $filename )
134 {
135 $foundfile = 1;
136 last;
137 }
138 }
139
140 # It does not need to exist. For example products that do not contain the libraries.
141 if (! $foundfile ) { $onefile = ""; }
142
143 return $onefile;
144}
145
146####################################################################################
147# Creating the file MsiAssembly.idt dynamically
148# Content:
149# Component_ Feature_ File_Manifest File_Application Attributes
150# s72 s38 S72 S72 I2
151# MsiAssembly Component_
152####################################################################################
153
154sub create_msiassembly_table
155
# spent 168ms (449µs+167) within installer::windows::assembly::create_msiassembly_table which was called: # once (449µs+167ms) by installer::run at line 1534 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer.pm
{
15612µs my ($filesref, $basedir) = @_;
157
158110µs1165ms $installer::globals::msiassemblyfiles = installer::worker::collect_all_items_with_special_flag($filesref, "ASSEMBLY");
# spent 165ms making 1 call to installer::worker::collect_all_items_with_special_flag
159
16012µs my @msiassemblytable = ();
161
162110µs132µs installer::windows::idtglobal::write_idt_header(\@msiassemblytable, "msiassembly");
# spent 32µs making 1 call to installer::windows::idtglobal::write_idt_header
163
164 # Registering all libraries listed in $installer::globals::msiassemblyfiles
165
166118µs for ( my $i = 0; $i <= $#{$installer::globals::msiassemblyfiles}; $i++ )
167 {
168108µs my $onefile = ${$installer::globals::msiassemblyfiles}[$i];
169
170107µs my %msiassembly = ();
171
1721034µs1057µs $msiassembly{'Component_'} = get_msiassembly_component($onefile);
# spent 57µs making 10 calls to installer::windows::assembly::get_msiassembly_component, avg 6µs/call
1731031µs10554µs $msiassembly{'Feature_'} = get_msiassembly_feature($onefile);
# spent 554µs making 10 calls to installer::windows::assembly::get_msiassembly_feature, avg 55µs/call
1741032µs1055µs $msiassembly{'File_Manifest'} = get_msiassembly_filemanifest($onefile);
# spent 55µs making 10 calls to installer::windows::assembly::get_msiassembly_filemanifest, avg 5µs/call
1751031µs1040µs $msiassembly{'File_Application'} = get_msiassembly_fileapplication($onefile);
# spent 40µs making 10 calls to installer::windows::assembly::get_msiassembly_fileapplication, avg 4µs/call
1761030µs1058µs $msiassembly{'Attributes'} = get_msiassembly_attributes($onefile);
# spent 58µs making 10 calls to installer::windows::assembly::get_msiassembly_attributes, avg 6µs/call
177
1781030µs my $oneline = $msiassembly{'Component_'} . "\t" . $msiassembly{'Feature_'} . "\t" .
179 $msiassembly{'File_Manifest'} . "\t" . $msiassembly{'File_Application'} . "\t" .
180 $msiassembly{'Attributes'} . "\n";
181
1821038µs push(@msiassemblytable, $oneline);
183 }
184
185 # Saving the file
186
18714µs my $msiassemblytablename = $basedir . $installer::globals::separator . "MsiAssem.idt";
18816µs11.15ms installer::files::save_file($msiassemblytablename ,\@msiassemblytable);
# spent 1.15ms making 1 call to installer::files::save_file
18914µs my $infoline = "Created idt file: $msiassemblytablename\n";
190115µs push(@installer::globals::logfileinfo, $infoline);
191}
192
193####################################################################################
194# Creating the file MsiAssemblyName.idt dynamically
195# Content:
196# Component_ Name Value
197# s72 s255 s255
198# MsiAssemblyName Component_ Name
199####################################################################################
200
201sub create_msiassemblyname_table
202
# spent 1.06ms (313µs+751µs) within installer::windows::assembly::create_msiassemblyname_table which was called: # once (313µs+751µs) by installer::run at line 1535 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer.pm
{
20312µs my ($filesref, $basedir) = @_;
204
20511µs my @msiassemblynametable = ();
206
20714µs118µs installer::windows::idtglobal::write_idt_header(\@msiassemblynametable, "msiassemblyname");
# spent 18µs making 1 call to installer::windows::idtglobal::write_idt_header
208
209115µs for ( my $i = 0; $i <= $#{$installer::globals::msiassemblyfiles}; $i++ )
210 {
211106µs my $onefile = ${$installer::globals::msiassemblyfiles}[$i];
212
2131028µs1049µs my $component = get_msiassembly_component($onefile);
# spent 49µs making 10 calls to installer::windows::assembly::get_msiassembly_component, avg 5µs/call
214106µs my $oneline = "";
215
216 # Order: (Assembly)name, publicKeyToken, version, culture.
217
2181011µs if ( $onefile->{'Assemblyname'} )
219 {
2201014µs $oneline = $component . "\t" . "name" . "\t" . $onefile->{'Assemblyname'} . "\n";
2211013µs push(@msiassemblynametable, $oneline);
222 }
223
2241012µs if ( $onefile->{'PublicKeyToken'} )
225 {
2261015µs $oneline = $component . "\t" . "publicKeyToken" . "\t" . $onefile->{'PublicKeyToken'} . "\n";
2271011µs push(@msiassemblynametable, $oneline);
228 }
229
2301011µs if ( $onefile->{'Version'} )
231 {
2321013µs $oneline = $component . "\t" . "version" . "\t" . $onefile->{'Version'} . "\n";
2331012µs push(@msiassemblynametable, $oneline);
234 }
235
2361010µs if ( $onefile->{'Culture'} )
237 {
2381013µs $oneline = $component . "\t" . "culture" . "\t" . $onefile->{'Culture'} . "\n";
2391011µs push(@msiassemblynametable, $oneline);
240 }
241
2421012µs if ( $onefile->{'ProcessorArchitecture'} )
243 {
2441014µs $oneline = $component . "\t" . "processorArchitecture" . "\t" . $onefile->{'ProcessorArchitecture'} . "\n";
2451012µs push(@msiassemblynametable, $oneline);
246 }
247 }
248
249 # Saving the file
250
25114µs my $msiassemblynametablename = $basedir . $installer::globals::separator . "MsiAsseN.idt";
25214µs1684µs installer::files::save_file($msiassemblynametablename ,\@msiassemblynametable);
# spent 684µs making 1 call to installer::files::save_file
25313µs my $infoline = "Created idt file: $msiassemblynametablename\n";
254125µs push(@installer::globals::logfileinfo, $infoline);
255
256}
257
258####################################################################################
259# setting an installation condition for the assembly libraries saved in
260# @installer::globals::msiassemblynamecontent
261####################################################################################
262
263sub add_assembly_condition_into_component_table
264
# spent 1.33s (585ms+749ms) within installer::windows::assembly::add_assembly_condition_into_component_table which was called: # once (585ms+749ms) by installer::run at line 1536 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer.pm
{
26512µs my ($filesref, $basedir) = @_;
266
26713µs my $componenttablename = $basedir . $installer::globals::separator . "Componen.idt";
26816µs139.7ms my $componenttable = installer::files::read_file($componenttablename);
# spent 39.7ms making 1 call to installer::files::read_file
2691500ns my $changed = 0;
27012µs my $infoline = "";
271
272132µs for ( my $i = 0; $i <= $#{$installer::globals::msiassemblyfiles}; $i++ )
273 {
2741015µs my $onefile = ${$installer::globals::msiassemblyfiles}[$i];
275
2761065µs10118µs my $filecomponent = get_msiassembly_component($onefile);
# spent 118µs making 10 calls to installer::windows::assembly::get_msiassembly_component, avg 12µs/call
277
2781073.6ms for ( my $j = 0; $j <= $#{$componenttable}; $j++ )
279 {
2805336939.3ms my $oneline = ${$componenttable}[$j];
281
28253369920ms53369706ms if ( $oneline =~ /(.*)\t(.*)\t(.*)\t(.*)\t(.*)\t(.*)/ )
# spent 706ms making 53369 calls to installer::windows::assembly::CORE:match, avg 13µs/call
283 {
2845335948.9ms my $component = $1;
2855335935.3ms my $componentid = $2;
2865335935.4ms my $directory = $3;
2875335934.1ms my $attributes = $4;
2885335934.1ms my $condition = $5;
2895335935.6ms my $keypath = $6;
290
2915335929.8ms if ( $component eq $filecomponent )
292 {
293 # setting the condition
294
295109µs $condition = "DOTNET_SUFFICIENT=1";
2961030µs $oneline = $component . "\t" . $componentid . "\t" . $directory . "\t" . $attributes . "\t" . $condition . "\t" . $keypath . "\n";
2971018µs ${$componenttable}[$j] = $oneline;
298105µs $changed = 1;
2991016µs $infoline = "Changing $componenttablename :\n";
3001025µs push(@installer::globals::logfileinfo, $infoline);
301105µs $infoline = $oneline;
3021011µs push(@installer::globals::logfileinfo, $infoline);
3031024µs last;
304 }
305 }
306 }
307 }
308
30914.05ms if ( $changed )
310 {
311 # Saving the file
31217µs14.00ms installer::files::save_file($componenttablename ,$componenttable);
# spent 4.00ms making 1 call to installer::files::save_file
31315µs $infoline = "Saved idt file: $componenttablename\n";
31414µs push(@installer::globals::logfileinfo, $infoline);
315 }
316}
317
31817µs1;
 
# spent 706ms within installer::windows::assembly::CORE:match which was called 53379 times, avg 13µs/call: # 53369 times (706ms+0s) by installer::windows::assembly::add_assembly_condition_into_component_table at line 282, avg 13µs/call # 10 times (11µs+0s) by installer::windows::assembly::get_msiassembly_feature at line 50, avg 1µs/call
sub installer::windows::assembly::CORE:match; # opcode
Report produced by the NYTProf 4.09 Perl profiler, developed by Tim Bunce and Adam Kaplan.