← 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/idtglobal.pm
StatementsExecuted 2673947550 statements in 6494s
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
58752323373s4070sinstaller::windows::idtglobal::::get_language_block_from_language_fileinstaller::windows::idtglobal::get_language_block_from_language_file
105730312196s2196sinstaller::windows::idtglobal::::get_next_free_numberinstaller::windows::idtglobal::get_next_free_number
48511031471385s385sinstaller::windows::idtglobal::::CORE:regcompinstaller::windows::idtglobal::CORE:regcomp (opcode)
492176334231321s321sinstaller::windows::idtglobal::::CORE:matchinstaller::windows::idtglobal::CORE:match (opcode)
436011115s115sinstaller::windows::idtglobal::::set_custom_actioninstaller::windows::idtglobal::set_custom_action
1091129.1s65.0sinstaller::windows::idtglobal::::setencodinginstaller::windows::idtglobal::setencoding
587523224.0s29.1sinstaller::windows::idtglobal::::get_language_string_from_language_blockinstaller::windows::idtglobal::get_language_string_from_language_block
37061112.5s12.8sinstaller::windows::idtglobal::::add_custom_action_to_install_tableinstaller::windows::idtglobal::add_custom_action_to_install_table
3759616410.7s13.5sinstaller::windows::idtglobal::::shorten_feature_gidinstaller::windows::idtglobal::shorten_feature_gid
99883974317.65s7.65sinstaller::windows::idtglobal::::CORE:substinstaller::windows::idtglobal::CORE:subst (opcode)
14217616.78s6.78sinstaller::windows::idtglobal::::get_next_free_number_with_hashinstaller::windows::idtglobal::get_next_free_number_with_hash
872115.04s4106sinstaller::windows::idtglobal::::translate_idtfileinstaller::windows::idtglobal::translate_idtfile
202522424.44s2201sinstaller::windows::idtglobal::::make_eight_three_conforminstaller::windows::idtglobal::make_eight_three_conform
2943111.02s1.34sinstaller::windows::idtglobal::::get_customaction_positioninstaller::windows::idtglobal::get_customaction_position
1588811610ms7.57sinstaller::windows::idtglobal::::make_eight_three_conform_with_hashinstaller::windows::idtglobal::make_eight_three_conform_with_hash
425141461ms716msinstaller::windows::idtglobal::::fill_assignment_hashinstaller::windows::idtglobal::fill_assignment_hash
10911447ms132sinstaller::windows::idtglobal::::addcustomactionsinstaller::windows::idtglobal::addcustomactions
32731423ms2.04sinstaller::windows::idtglobal::::set_positions_in_tableinstaller::windows::idtglobal::set_positions_in_table
10911164ms358msinstaller::windows::idtglobal::::set_multilanguageonly_conditioninstaller::windows::idtglobal::set_multilanguageonly_condition
32711129ms170msinstaller::windows::idtglobal::::get_last_position_in_sequencetableinstaller::windows::idtglobal::get_last_position_in_sequencetable
425111121ms923msinstaller::windows::idtglobal::::create_customaction_assignment_hashinstaller::windows::idtglobal::create_customaction_assignment_hash
1091131.7ms26.6sinstaller::windows::idtglobal::::prepare_language_idt_directoryinstaller::windows::idtglobal::prepare_language_idt_directory
2182127.0ms27.0msinstaller::windows::idtglobal::::CORE:ftdirinstaller::windows::idtglobal::CORE:ftdir (opcode)
41125.8ms43.9msinstaller::windows::idtglobal::::setbidiattributesinstaller::windows::idtglobal::setbidiattributes
8721116.7ms22.6msinstaller::windows::idtglobal::::get_languagefilenameinstaller::windows::idtglobal::get_languagefilename
449171412.4ms12.4msinstaller::windows::idtglobal::::write_idt_headerinstaller::windows::idtglobal::write_idt_header
5451110.5ms20.3msinstaller::windows::idtglobal::::connect_custom_action_to_controlinstaller::windows::idtglobal::connect_custom_action_to_control
218219.35ms9.35msinstaller::windows::idtglobal::::CORE:sortinstaller::windows::idtglobal::CORE:sort (opcode)
111417µs516µsinstaller::windows::idtglobal::::BEGIN@30installer::windows::idtglobal::BEGIN@30
11119µs21µsinstaller::windows::idtglobal::::BEGIN@34installer::windows::idtglobal::BEGIN@34
11118µs20µsinstaller::windows::idtglobal::::BEGIN@37installer::windows::idtglobal::BEGIN@37
11117µs20µsinstaller::windows::idtglobal::::BEGIN@31installer::windows::idtglobal::BEGIN@31
11117µs19µsinstaller::windows::idtglobal::::BEGIN@36installer::windows::idtglobal::BEGIN@36
11117µs19µsinstaller::windows::idtglobal::::BEGIN@39installer::windows::idtglobal::BEGIN@39
11115µs18µsinstaller::windows::idtglobal::::BEGIN@35installer::windows::idtglobal::BEGIN@35
11115µs17µsinstaller::windows::idtglobal::::BEGIN@38installer::windows::idtglobal::BEGIN@38
11114µs16µsinstaller::windows::idtglobal::::BEGIN@32installer::windows::idtglobal::BEGIN@32
11113µs15µsinstaller::windows::idtglobal::::BEGIN@33installer::windows::idtglobal::BEGIN@33
0000s0sinstaller::windows::idtglobal::::add_licensefile_to_databaseinstaller::windows::idtglobal::add_licensefile_to_database
0000s0sinstaller::windows::idtglobal::::connect_condition_to_controlinstaller::windows::idtglobal::connect_condition_to_control
0000s0sinstaller::windows::idtglobal::::get_code_from_code_blockinstaller::windows::idtglobal::get_code_from_code_block
0000s0sinstaller::windows::idtglobal::::get_free_number_in_uisequence_tableinstaller::windows::idtglobal::get_free_number_in_uisequence_table
0000s0sinstaller::windows::idtglobal::::get_position_in_sequencetableinstaller::windows::idtglobal::get_position_in_sequencetable
0000s0sinstaller::windows::idtglobal::::get_rtflicensefilesourceinstaller::windows::idtglobal::get_rtflicensefilesource
0000s0sinstaller::windows::idtglobal::::include_subdir_into_componenttableinstaller::windows::idtglobal::include_subdir_into_componenttable
0000s0sinstaller::windows::idtglobal::::include_subdirname_into_directory_tableinstaller::windows::idtglobal::include_subdirname_into_directory_table
0000s0sinstaller::windows::idtglobal::::make_string_licensetextinstaller::windows::idtglobal::make_string_licensetext
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::idtglobal;
29
30264µs2615µs
# spent 516µs (417+99) within installer::windows::idtglobal::BEGIN@30 which was called: # once (417µs+99µs) by installer::windows::assembly::BEGIN@33 at line 30
use Cwd;
# spent 516µs making 1 call to installer::windows::idtglobal::BEGIN@30 # spent 99µs making 1 call to Exporter::import
31256µs223µs
# spent 20µs (17+3) within installer::windows::idtglobal::BEGIN@31 which was called: # once (17µs+3µs) by installer::windows::assembly::BEGIN@33 at line 31
use installer::converter;
# spent 20µs making 1 call to installer::windows::idtglobal::BEGIN@31 # spent 3µs making 1 call to UNIVERSAL::import
32253µs218µs
# spent 16µs (14+2) within installer::windows::idtglobal::BEGIN@32 which was called: # once (14µs+2µs) by installer::windows::assembly::BEGIN@33 at line 32
use installer::exiter;
# spent 16µs making 1 call to installer::windows::idtglobal::BEGIN@32 # spent 2µs making 1 call to UNIVERSAL::import
33254µs217µs
# spent 15µs (13+2) within installer::windows::idtglobal::BEGIN@33 which was called: # once (13µs+2µs) by installer::windows::assembly::BEGIN@33 at line 33
use installer::files;
# spent 15µs making 1 call to installer::windows::idtglobal::BEGIN@33 # spent 2µs making 1 call to UNIVERSAL::import
34253µs223µs
# spent 21µs (19+2) within installer::windows::idtglobal::BEGIN@34 which was called: # once (19µs+2µs) by installer::windows::assembly::BEGIN@33 at line 34
use installer::globals;
# spent 21µs making 1 call to installer::windows::idtglobal::BEGIN@34 # spent 2µs making 1 call to UNIVERSAL::import
35253µs220µs
# spent 18µs (15+3) within installer::windows::idtglobal::BEGIN@35 which was called: # once (15µs+3µs) by installer::windows::assembly::BEGIN@33 at line 35
use installer::pathanalyzer;
# spent 18µs making 1 call to installer::windows::idtglobal::BEGIN@35 # spent 2µs making 1 call to UNIVERSAL::import
36255µs221µs
# spent 19µs (17+2) within installer::windows::idtglobal::BEGIN@36 which was called: # once (17µs+2µs) by installer::windows::assembly::BEGIN@33 at line 36
use installer::remover;
# spent 19µs making 1 call to installer::windows::idtglobal::BEGIN@36 # spent 2µs making 1 call to UNIVERSAL::import
37258µs222µs
# spent 20µs (18+2) within installer::windows::idtglobal::BEGIN@37 which was called: # once (18µs+2µs) by installer::windows::assembly::BEGIN@33 at line 37
use installer::scriptitems;
# spent 20µs making 1 call to installer::windows::idtglobal::BEGIN@37 # spent 2µs making 1 call to UNIVERSAL::import
38252µs220µs
# spent 17µs (15+3) within installer::windows::idtglobal::BEGIN@38 which was called: # once (15µs+3µs) by installer::windows::assembly::BEGIN@33 at line 38
use installer::systemactions;
# spent 17µs making 1 call to installer::windows::idtglobal::BEGIN@38 # spent 3µs making 1 call to UNIVERSAL::import
39216.9ms221µs
# spent 19µs (17+2) within installer::windows::idtglobal::BEGIN@39 which was called: # once (17µs+2µs) by installer::windows::assembly::BEGIN@33 at line 39
use installer::windows::language;
# spent 19µs making 1 call to installer::windows::idtglobal::BEGIN@39 # spent 2µs making 1 call to UNIVERSAL::import
40
41##############################################################
42# Shorten the gid for a feature.
43# Attention: Maximum length is 38
44##############################################################
45
46sub shorten_feature_gid
47
# spent 13.5s (10.7+2.72) within installer::windows::idtglobal::shorten_feature_gid which was called 375961 times, avg 36µs/call: # 169277 times (4.86s+1.20s) by installer::windows::feature::get_feature_gid at line 51 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/feature.pm, avg 36µs/call # 169277 times (4.73s+1.22s) by installer::windows::feature::get_feature_parent at line 76 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/feature.pm, avg 35µs/call # 17801 times (520ms+139ms) by installer::windows::featurecomponent::create_featurecomponent_table_from_registry_collector at line 120 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/featurecomponent.pm, avg 37µs/call # 15890 times (457ms+110ms) by installer::windows::featurecomponent::create_featurecomponent_table_from_files_collector at line 74 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/featurecomponent.pm, avg 36µs/call # 3706 times (164ms+59.8ms) by installer::windows::idtglobal::add_custom_action_to_install_table at line 1135, avg 60µs/call # 10 times (291µs+94µs) by installer::windows::assembly::get_msiassembly_feature at line 53 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/assembly.pm, avg 38µs/call
{
48375961239ms my ($stringref) = @_;
49
503759612.28s375961928ms $$stringref =~ s/gid_Module_/gm_/;
# spent 928ms making 375961 calls to installer::windows::idtglobal::CORE:subst, avg 2µs/call
513759611.29s375961208ms $$stringref =~ s/_Extension_/_ex_/;
# spent 208ms making 375961 calls to installer::windows::idtglobal::CORE:subst, avg 554ns/call
523759611.48s375961402ms $$stringref =~ s/_Root_/_r_/;
# spent 402ms making 375961 calls to installer::windows::idtglobal::CORE:subst, avg 1µs/call
533759611.28s375961225ms $$stringref =~ s/_Prg_/_p_/;
# spent 225ms making 375961 calls to installer::windows::idtglobal::CORE:subst, avg 599ns/call
543759611.25s375961204ms $$stringref =~ s/_Optional_/_o_/;
# spent 204ms making 375961 calls to installer::windows::idtglobal::CORE:subst, avg 541ns/call
553759611.24s375961193ms $$stringref =~ s/_Tools_/_tl_/;
# spent 193ms making 375961 calls to installer::windows::idtglobal::CORE:subst, avg 513ns/call
563759611.24s375961187ms $$stringref =~ s/_Wrt_Flt_/_w_f_/;
# spent 187ms making 375961 calls to installer::windows::idtglobal::CORE:subst, avg 498ns/call
573759611.24s375961192ms $$stringref =~ s/_Javafilter_/_jf_/;
# spent 192ms making 375961 calls to installer::windows::idtglobal::CORE:subst, avg 512ns/call
583759612.59s375961183ms $$stringref =~ s/_Productivity_/_pr_/;
# spent 183ms making 375961 calls to installer::windows::idtglobal::CORE:subst, avg 487ns/call
59}
60
61############################################
62# Getting the next free number, that
63# can be added.
64# Sample: 01-44-~1.DAT, 01-44-~2.DAT, ...
65############################################
66
67sub get_next_free_number
68
# spent 2196s within installer::windows::idtglobal::get_next_free_number which was called 105730 times, avg 20.8ms/call: # 45889 times (61.9s+0s) by installer::windows::idtglobal::make_eight_three_conform at line 224, avg 1.35ms/call # 35643 times (701s+0s) by installer::windows::idtglobal::make_eight_three_conform at line 233, avg 19.7ms/call # 24198 times (1433s+0s) by installer::windows::idtglobal::make_eight_three_conform at line 240, avg 59.2ms/call
{
69105730129ms my ($name, $shortnamesref) = @_;
70
7110573048.6ms my $counter = 0;
7210573040.2ms my $dontsave = 0;
7310573036.7ms my $alreadyexists;
7410573047.5ms my ($newname, $shortname);
75
76 do
771057305.81s {
7860442682.16s $alreadyexists = 0;
7960442682.41s $counter++;
8060442683.88s $newname = $name . $counter;
81
8260442681081s for ( my $i = 0; $i <= $#{$shortnamesref}; $i++ )
83 {
841004218090544s $shortname = ${$shortnamesref}[$i];
85
861004218090550s if ( uc($shortname) eq uc($newname) ) # case insensitive
87 {
8859385382.38s $alreadyexists = 1;
8959385383.17s last;
90 }
91 }
92 }
93 until (!($alreadyexists));
94
9510573094.5ms if (( $counter > 9 ) && ( length($name) > 6 )) { $dontsave = 1; }
9610573055.1ms if (( $counter > 99 ) && ( length($name) > 5 )) { $dontsave = 1; }
97
98105730137ms if (!($dontsave))
99 {
100 push(@{$shortnamesref}, $newname); # adding the new shortname to the array of shortnames
101 }
102
103105730968ms return $counter
104}
105
106############################################
107# Getting the next free number, that
108# can be added.
109# Sample: 01-44-~1.DAT, 01-44-~2.DAT, ...
110############################################
111
112sub get_next_free_number_with_hash
113
# spent 6.78s within installer::windows::idtglobal::get_next_free_number_with_hash which was called 14217 times, avg 477µs/call: # 6229 times (237ms+0s) by installer::windows::idtglobal::make_eight_three_conform_with_hash at line 303, avg 38µs/call # 4612 times (1.23s+0s) by installer::windows::idtglobal::make_eight_three_conform_with_hash at line 312, avg 267µs/call # 2496 times (5.11s+0s) by installer::windows::idtglobal::make_eight_three_conform_with_hash at line 321, avg 2.05ms/call # 337 times (15.1ms+0s) by installer::windows::idtglobal::make_eight_three_conform_with_hash at line 350, avg 45µs/call # 321 times (95.1ms+0s) by installer::windows::idtglobal::make_eight_three_conform_with_hash at line 359, avg 296µs/call # 222 times (84.2ms+0s) by installer::windows::idtglobal::make_eight_three_conform_with_hash at line 368, avg 379µs/call
{
1141421717.0ms my ($name, $shortnamesref, $ext) = @_;
115
116142176.30ms my $counter = 0;
117142175.28ms my $dontsave = 0;
118142175.14ms my $saved = 0;
119142175.07ms my $alreadyexists;
120142176.64ms my ($newname, $shortname);
121
122 do
123142171.77s {
1241958319703ms $alreadyexists = 0;
1251958319690ms $counter++;
12619583191.17s $newname = $name . $counter;
1271958319943ms $newname = uc($newname); # case insensitive, always upper case
12819583191.36s if ( exists($shortnamesref->{$newname}) ||
129 exists($installer::globals::savedrev83mapping{$newname.$ext}) )
130 {
131 $alreadyexists = 1;
132 }
133 }
134 until (!($alreadyexists));
135
136142179.74ms if (( $counter > 9 ) && ( length($name) > 6 )) { $dontsave = 1; }
137142176.60ms if (( $counter > 99 ) && ( length($name) > 5 )) { $dontsave = 1; }
138
139142178.02ms if (!($dontsave))
140 {
141656612.8ms $shortnamesref->{$newname} = 1; # adding the new shortname to the array of shortnames, always uppercase
14265663.09ms $saved = 1;
143 }
144
1451421783.4ms return ( $counter, $saved )
146}
147
148#########################################
149# 8.3 for filenames and directories
150#########################################
151
152sub make_eight_three_conform
153
# spent 2201s (4.44+2197) within installer::windows::idtglobal::make_eight_three_conform which was called 202522 times, avg 10.9ms/call: # 201432 times (4.41s+2197s) by installer::windows::directory::create_defaultdir_directorynames at line 345 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/directory.pm, avg 10.9ms/call # 872 times (22.7ms+53.1ms) by installer::windows::shortcut::get_shortcut_name at line 102 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/shortcut.pm, avg 87µs/call # 109 times (3.97ms+3.76ms) by installer::windows::directory::add_root_directories at line 441 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/directory.pm, avg 71µs/call # 109 times (3.05ms+2.11ms) by installer::windows::directory::add_root_directories at line 489 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/directory.pm, avg 47µs/call
{
154202522217ms my ($inputstring, $pattern, $shortnamesref) = @_;
155
156 # all shortnames are collected in $shortnamesref, because of uniqueness
157
15820252298.9ms my ($name, $namelength, $number);
15920252292.3ms my $conformstring = "";
16020252281.3ms my $changed = 0;
161
1622025221.10s202522278ms if (( $inputstring =~ /^\s*(.*?)\.(.*?)\s*$/ ) && ( $pattern eq "file" )) # files with a dot
# spent 278ms making 202522 calls to installer::windows::idtglobal::CORE:match, avg 1µs/call
163 {
164 $name = $1;
165 my $extension = $2;
166
167 $namelength = length($name);
168 my $extensionlength = length($extension);
169
170 if ( $extensionlength > 3 )
171 {
172 # simply taking the first three letters
173 $extension = substr($extension, 0, 3); # name, offset, length
174 }
175
176 # Attention: readme.html -> README~1.HTM
177
178 if (( $namelength > 8 ) || ( $extensionlength > 3 ))
179 {
180 # taking the first six letters
181 $name = substr($name, 0, 6); # name, offset, length
182 $name =~ s/\s*$//; # removing ending whitespaces
183 $name = $name . "\~";
184 $number = get_next_free_number($name, $shortnamesref);
185
186 # if $number>9 the new name would be "abcdef~10.xyz", which is 9+3, and therefore not allowed
187
188 if ( $number > 9 )
189 {
190 $name = substr($name, 0, 5); # name, offset, length
191 $name =~ s/\s*$//; # removing ending whitespaces
192 $name = $name . "\~";
193 $number = get_next_free_number($name, $shortnamesref);
194
195 if ( $number > 99 )
196 {
197 $name = substr($name, 0, 4); # name, offset, length
198 $name =~ s/\s*$//; # removing ending whitespaces
199 $name = $name . "\~";
200 $number = get_next_free_number($name, $shortnamesref);
201 }
202 }
203
204 $name = $name . "$number";
205
206 $changed = 1;
207 }
208
209 $conformstring = $name . "\." . $extension;
210
211 if ( $changed ) { $conformstring= uc($conformstring); }
212 }
213 else # no dot in filename or directory (also used for shortcuts)
214 {
215202522101ms $name = $inputstring;
21620252290.1ms $namelength = length($name);
217
218202522124ms if ( $namelength > 8 )
219 {
220 # taking the first six letters
2214588969.5ms $name = substr($name, 0, 6); # name, offset, length
22245889340ms45889167ms $name =~ s/\s*$//; # removing ending whitespaces
# spent 167ms making 45889 calls to installer::windows::idtglobal::CORE:subst, avg 4µs/call
2234588927.8ms $name = $name . "\~";
22445889143ms4588961.9s $number = get_next_free_number($name, $shortnamesref);
# spent 61.9s making 45889 calls to installer::windows::idtglobal::get_next_free_number, avg 1.35ms/call
225
226 # if $number>9 the new name would be "abcdef~10.xyz", which is 9+3, and therefore not allowed
227
2284588944.3ms if ( $number > 9 )
229 {
2303564340.0ms $name = substr($name, 0, 5); # name, offset, length
23135643273ms35643131ms $name =~ s/\s*$//; # removing ending whitespaces
# spent 131ms making 35643 calls to installer::windows::idtglobal::CORE:subst, avg 4µs/call
2323564320.1ms $name = $name . "\~";
23335643122ms35643701s $number = get_next_free_number($name, $shortnamesref);
# spent 701s making 35643 calls to installer::windows::idtglobal::get_next_free_number, avg 19.7ms/call
234
2353564344.3ms if ( $number > 99 )
236 {
2372419842.1ms $name = substr($name, 0, 4); # name, offset, length
23824198273ms24198151ms $name =~ s/\s*$//; # removing ending whitespaces
# spent 151ms making 24198 calls to installer::windows::idtglobal::CORE:subst, avg 6µs/call
2392419815.3ms $name = $name . "\~";
24024198116ms241981433s $number = get_next_free_number($name, $shortnamesref);
# spent 1433s making 24198 calls to installer::windows::idtglobal::get_next_free_number, avg 59.2ms/call
241 }
242 }
243
2444588938.5ms $name = $name . "$number";
2454588923.9ms $changed = 1;
24690906418ms45017151ms if ( $pattern eq "dir" ) { $name =~ s/\./\_/g; } # in directories replacing "." with "_"
# spent 151ms making 45017 calls to installer::windows::idtglobal::CORE:subst, avg 3µs/call
247 }
248
24920252297.8ms $conformstring = $name;
250
251202522105ms if ( $changed ) { $conformstring = uc($name); }
252 }
253
2542025221.03s return $conformstring;
255}
256
257#########################################
258# 8.3 for filenames and directories
259# $shortnamesref is a hash in this case
260# -> performance reasons
261#########################################
262
263sub make_eight_three_conform_with_hash
264
# spent 7.57s (610ms+6.96) within installer::windows::idtglobal::make_eight_three_conform_with_hash which was called 15888 times, avg 476µs/call: # 15888 times (610ms+6.96s) by installer::windows::file::generate_filename_for_filetable at line 513 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/file.pm, avg 476µs/call
{
2651588819.2ms my ($inputstring, $pattern, $shortnamesref) = @_;
266
267 # all shortnames are collected in $shortnamesref, because of uniqueness (a hash!)
268
269158888.43ms my ($name, $namelength, $number);
270158888.19ms my $conformstring = "";
271158886.63ms my $changed = 0;
272158885.66ms my $saved;
273
27415888135ms1588859.7ms if (( $inputstring =~ /^\s*(.*)\.(.*?)\s*$/ ) && ( $pattern eq "file" )) # files with a dot
# spent 59.7ms making 15888 calls to installer::windows::idtglobal::CORE:match, avg 4µs/call
275 {
276 # extension has to be non-greedy, but name is. This is important to find the last dot in the filename
2771554220.3ms $name = $1;
2781554213.9ms my $extension = $2;
279
28015542120ms1554253.2ms if ( $name =~ /^\s*(.*?)\s*$/ ) { $name = $1; } # now the name is also non-greedy
# spent 53.2ms making 15542 calls to installer::windows::idtglobal::CORE:match, avg 3µs/call
2811554275.3ms1554221.0ms $name =~ s/\.//g; # no dots in 8+3 conform filename
# spent 21.0ms making 15542 calls to installer::windows::idtglobal::CORE:subst, avg 1µs/call
282
283155427.57ms $namelength = length($name);
284155427.91ms my $extensionlength = length($extension);
285
286155429.60ms if ( $extensionlength > 3 )
287 {
288 # simply taking the first three letters
28912461.58ms $extension = substr($extension, 0, 3); # name, offset, length
2901246684µs $changed = 1;
291 }
292
293 # Attention: readme.html -> README~1.HTM
294
2951554210.9ms if (( $namelength > 8 ) || ( $extensionlength > 3 ))
296 {
297 # taking the first six letters, if filename is longer than 6 characters
29869956.05ms if ( $namelength > 6 )
299 {
30062297.94ms $name = substr($name, 0, 6); # name, offset, length
301622943.9ms622920.9ms $name =~ s/\s*$//; # removing ending whitespaces
# spent 20.9ms making 6229 calls to installer::windows::idtglobal::CORE:subst, avg 3µs/call
30262293.63ms $name = $name . "\~";
303622932.6ms6229237ms ($number, $saved) = get_next_free_number_with_hash($name, $shortnamesref, '.'.uc($extension));
# spent 237ms making 6229 calls to installer::windows::idtglobal::get_next_free_number_with_hash, avg 38µs/call
304
305 # if $number>9 the new name would be "abcdef~10.xyz", which is 9+3, and therefore not allowed
306
30762294.79ms if ( ! $saved )
308 {
30946124.65ms $name = substr($name, 0, 5); # name, offset, length
310461231.8ms461214.5ms $name =~ s/\s*$//; # removing ending whitespaces
# spent 14.5ms making 4612 calls to installer::windows::idtglobal::CORE:subst, avg 3µs/call
31146122.58ms $name = $name . "\~";
312461220.7ms46121.23s ($number, $saved) = get_next_free_number_with_hash($name, $shortnamesref, '.'.uc($extension));
# spent 1.23s making 4612 calls to installer::windows::idtglobal::get_next_free_number_with_hash, avg 267µs/call
313
314 # if $number>99 the new name would be "abcde~100.xyz", which is 9+3, and therefore not allowed
315
31646124.18ms if ( ! $saved )
317 {
31824962.56ms $name = substr($name, 0, 4); # name, offset, length
319249617.0ms24967.58ms $name =~ s/\s*$//; # removing ending whitespaces
# spent 7.58ms making 2496 calls to installer::windows::idtglobal::CORE:subst, avg 3µs/call
32024961.35ms $name = $name . "\~";
321249611.7ms24965.11s ($number, $saved) = get_next_free_number_with_hash($name, $shortnamesref, '.'.uc($extension));
# spent 5.11s making 2496 calls to installer::windows::idtglobal::get_next_free_number_with_hash, avg 2.05ms/call
322
32324961.70ms if ( ! $saved )
324 {
325 installer::exiter::exit_program("ERROR: Could not set 8+3 conform name for $inputstring !", "make_eight_three_conform_with_hash");
326 }
327 }
328 }
329
33062294.46ms $name = $name . "$number";
33162293.83ms $changed = 1;
332 }
333 }
334
3351554214.5ms $conformstring = $name . "\." . $extension;
336
3371554212.5ms if ( $changed ) { $conformstring= uc($conformstring); }
338 }
339 else # no dot in filename or directory (also used for shortcuts)
340 {
341346196µs $name = $inputstring;
342346201µs $namelength = length($name);
343
344346470µs if ( $namelength > 8 )
345 {
346 # taking the first six letters
347337655µs $name = substr($name, 0, 6); # name, offset, length
3483373.13ms3371.50ms $name =~ s/\s*$//; # removing ending whitespaces
# spent 1.50ms making 337 calls to installer::windows::idtglobal::CORE:subst, avg 4µs/call
349337214µs $name = $name . "\~";
3503371.79ms33715.1ms ( $number, $saved ) = get_next_free_number_with_hash($name, $shortnamesref, '');
# spent 15.1ms making 337 calls to installer::windows::idtglobal::get_next_free_number_with_hash, avg 45µs/call
351
352 # if $number>9 the new name would be "abcdef~10", which is 9+0, and therefore not allowed
353
354337337µs if ( ! $saved )
355 {
356321414µs $name = substr($name, 0, 5); # name, offset, length
3573212.54ms3211.18ms $name =~ s/\s*$//; # removing ending whitespaces
# spent 1.18ms making 321 calls to installer::windows::idtglobal::CORE:subst, avg 4µs/call
358321218µs $name = $name . "\~";
3593211.44ms32195.1ms ( $number, $saved ) = get_next_free_number_with_hash($name, $shortnamesref, '');
# spent 95.1ms making 321 calls to installer::windows::idtglobal::get_next_free_number_with_hash, avg 296µs/call
360
361 # if $number>99 the new name would be "abcde~100", which is 9+0, and therefore not allowed
362
363321379µs if ( ! $saved )
364 {
365222299µs $name = substr($name, 0, 4); # name, offset, length
3662221.76ms222795µs $name =~ s/\s*$//; # removing ending whitespaces
# spent 795µs making 222 calls to installer::windows::idtglobal::CORE:subst, avg 4µs/call
367222156µs $name = $name . "\~";
368222974µs22284.2ms ( $number, $saved ) = get_next_free_number_with_hash($name, $shortnamesref, '');
# spent 84.2ms making 222 calls to installer::windows::idtglobal::get_next_free_number_with_hash, avg 379µs/call
369
370222168µs if ( ! $saved ) { installer::exiter::exit_program("ERROR: Could not set 8+3 conform name for $inputstring !", "make_eight_three_conform_with_hash"); }
371 }
372 }
373
374337328µs $name = $name . "$number";
375337228µs $changed = 1;
376337280µs if ( $pattern eq "dir" ) { $name =~ s/\./\_/g; } # in directories replacing "." with "_"
377 }
378
379346187µs $conformstring = $name;
380
381346318µs if ( $changed ) { $conformstring = uc($name); }
382 }
383
3841588880.9ms return $conformstring;
385}
386
387#########################################
388# Writing the header for idt files
389#########################################
390
391sub write_idt_header
392
# spent 12.4ms within installer::windows::idtglobal::write_idt_header which was called 449 times, avg 28µs/call: # 109 times (3.63ms+0s) by installer::windows::directory::create_directory_table at line 536 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/directory.pm, avg 33µs/call # 109 times (3.11ms+0s) by installer::windows::feature::create_feature_table at line 378 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/feature.pm, avg 29µs/call # 109 times (3.08ms+0s) by installer::windows::registry::create_registry_table at line 356 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/registry.pm, avg 28µs/call # 109 times (2.30ms+0s) by installer::windows::shortcut::create_shortcut_table at line 546 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/shortcut.pm, avg 21µs/call # once (32µs+0s) by installer::windows::assembly::create_msiassembly_table at line 162 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/assembly.pm # once (29µs+0s) by installer::windows::media::create_media_table at line 246 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/media.pm # once (29µs+0s) by installer::windows::featurecomponent::create_featurecomponent_table at line 146 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/featurecomponent.pm # once (28µs+0s) by installer::windows::font::create_font_table at line 47 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/font.pm # once (28µs+0s) by installer::windows::file::create_files_table at line 874 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/file.pm # once (28µs+0s) by installer::windows::component::create_component_table at line 390 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/component.pm # once (28µs+0s) by installer::windows::icon::create_icon_table at line 38 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/icon.pm # once (27µs+0s) by installer::windows::upgrade::create_upgrade_table at line 56 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/upgrade.pm # once (21µs+0s) by installer::windows::inifile::create_inifile_table at line 105 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/inifile.pm # once (18µs+0s) by installer::windows::assembly::create_msiassemblyname_table at line 207 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/assembly.pm # once (18µs+0s) by installer::windows::createfolder::create_createfolder_table at line 122 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/createfolder.pm # once (17µs+0s) by installer::windows::file::create_files_table at line 875 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/file.pm # once (16µs+0s) by installer::windows::file::create_files_table at line 876 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/file.pm
{
393449959µs my ($idtref, $definestring) = @_;
394
395449216µs my $oneline;
396
397449514µs if ( $definestring eq "file" )
398 {
39912µs $oneline = "File\tComponent_\tFileName\tFileSize\tVersion\tLanguage\tAttributes\tSequence\n";
40012µs push(@{$idtref}, $oneline);
4011600ns $oneline = "s72\ts72\tl255\ti4\tS72\tS20\tI2\ti4\n";
40211µs push(@{$idtref}, $oneline);
40311µs $oneline = "File\tFile\n";
40411µs push(@{$idtref}, $oneline);
405 }
406
407449378µs if ( $definestring eq "filehash" )
408 {
4091500ns $oneline = "File_\tOptions\tHashPart1\tHashPart2\tHashPart3\tHashPart4\n";
41012µs push(@{$idtref}, $oneline);
41111µs $oneline = "s72\ti2\ti4\ti4\ti4\ti4\n";
41211µs push(@{$idtref}, $oneline);
4131500ns $oneline = "MsiFileHash\tFile_\n";
41412µs push(@{$idtref}, $oneline);
415 }
416
417449327µs if ( $definestring eq "directory" )
418 {
419109111µs $oneline = "Directory\tDirectory_Parent\tDefaultDir\n";
420109251µs push(@{$idtref}, $oneline);
42110968µs $oneline = "s72\tS72\tl255\n";
422109154µs push(@{$idtref}, $oneline);
42310960µs $oneline = "Directory\tDirectory\n";
424109136µs push(@{$idtref}, $oneline);
425 }
426
427449288µs if ( $definestring eq "component" )
428 {
42911µs $oneline = "Component\tComponentId\tDirectory_\tAttributes\tCondition\tKeyPath\n";
43012µs push(@{$idtref}, $oneline);
4311500ns $oneline = "s72\tS38\ts72\ti2\tS255\tS72\n";
43211µs push(@{$idtref}, $oneline);
4331500ns $oneline = "Component\tComponent\n";
43411µs push(@{$idtref}, $oneline);
435 }
436
437449359µs if ( $definestring eq "feature" )
438 {
43910994µs $oneline = "Feature\tFeature_Parent\tTitle\tDescription\tDisplay\tLevel\tDirectory_\tAttributes\n";
440109133µs push(@{$idtref}, $oneline);
44110959µs $oneline = "s38\tS38\tL64\tL255\tI2\ti2\tS72\ti2\n";
442109113µs push(@{$idtref}, $oneline);
44310967µs $oneline = "WINDOWSENCODINGTEMPLATE\tFeature\tFeature\n";
444109111µs push(@{$idtref}, $oneline);
445 }
446
447449319µs if ( $definestring eq "featurecomponent" )
448 {
44911µs $oneline = "Feature_\tComponent_\n";
45012µs push(@{$idtref}, $oneline);
4511500ns $oneline = "s38\ts72\n";
45211µs push(@{$idtref}, $oneline);
45311µs $oneline = "FeatureComponents\tFeature_\tComponent_\n";
45411µs push(@{$idtref}, $oneline);
455 }
456
457449290µs if ( $definestring eq "media" )
458 {
45911µs $oneline = "DiskId\tLastSequence\tDiskPrompt\tCabinet\tVolumeLabel\tSource\n";
46012µs push(@{$idtref}, $oneline);
46111µs $oneline = "i2\ti4\tL64\tS255\tS32\tS72\n";
46211µs push(@{$idtref}, $oneline);
4631500ns $oneline = "Media\tDiskId\n";
46412µs push(@{$idtref}, $oneline);
465 }
466
467449274µs if ( $definestring eq "font" )
468 {
46911µs $oneline = "File_\tFontTitle\n";
47012µs push(@{$idtref}, $oneline);
4711500ns $oneline = "s72\tS128\n";
47211µs push(@{$idtref}, $oneline);
47310s $oneline = "Font\tFile_\n";
47412µs push(@{$idtref}, $oneline);
475 }
476
477449368µs if ( $definestring eq "shortcut" )
478 {
47910983µs $oneline = "Shortcut\tDirectory_\tName\tComponent_\tTarget\tArguments\tDescription\tHotkey\tIcon_\tIconIndex\tShowCmd\tWkDir\n";
480109132µs push(@{$idtref}, $oneline);
48110955µs $oneline = "s72\ts72\tl128\ts72\ts72\tS255\tL255\tI2\tS72\tI2\tI2\tS72\n";
482109105µs push(@{$idtref}, $oneline);
48310956µs $oneline = "WINDOWSENCODINGTEMPLATE\tShortcut\tShortcut\n";
484109108µs push(@{$idtref}, $oneline);
485 }
486
487449355µs if ( $definestring eq "registry" )
488 {
48910978µs $oneline = "Registry\tRoot\tKey\tName\tValue\tComponent_\n";
490109153µs push(@{$idtref}, $oneline);
49110955µs $oneline = "s72\ti2\tl255\tL255\tL0\ts72\n";
492109107µs push(@{$idtref}, $oneline);
49310966µs $oneline = "Registry\tRegistry\n";
494109132µs push(@{$idtref}, $oneline);
495 }
496
497449274µs if ( $definestring eq "createfolder" )
498 {
4991500ns $oneline = "Directory_\tComponent_\n";
50012µs push(@{$idtref}, $oneline);
5011500ns $oneline = "s72\ts72\n";
50212µs push(@{$idtref}, $oneline);
5031500ns $oneline = "CreateFolder\tDirectory_\tComponent_\n";
50411µs push(@{$idtref}, $oneline);
505 }
506
507449348µs if ( $definestring eq "removefile" )
508 {
5091500ns $oneline = "FileKey\tComponent_\tFileName\tDirProperty\tInstallMode\n";
51012µs push(@{$idtref}, $oneline);
51111µs $oneline = "s72\ts72\tL255\ts72\ti2\n";
51211µs push(@{$idtref}, $oneline);
51311µs $oneline = "RemoveFile\tFileKey\n";
51411µs push(@{$idtref}, $oneline);
515 }
516
517449278µs if ( $definestring eq "upgrade" )
518 {
51911µs $oneline = "UpgradeCode\tVersionMin\tVersionMax\tLanguage\tAttributes\tRemove\tActionProperty\n";
52012µs push(@{$idtref}, $oneline);
5211600ns $oneline = "s38\tS20\tS20\tS255\ti4\tS255\ts72\n";
52211µs push(@{$idtref}, $oneline);
5231500ns $oneline = "Upgrade\tUpgradeCode\tVersionMin\tVersionMax\tLanguage\tAttributes\n";
52411µs push(@{$idtref}, $oneline);
525 }
526
527449290µs if ( $definestring eq "icon" )
528 {
52911µs $oneline = "Name\tData\n";
53012µs push(@{$idtref}, $oneline);
5311500ns $oneline = "s72\tv0\n";
53211µs push(@{$idtref}, $oneline);
5331500ns $oneline = "Icon\tName\n";
53412µs push(@{$idtref}, $oneline);
535 }
536
537449248µs if ( $definestring eq "inifile" )
538 {
5391500ns $oneline = "IniFile\tFileName\tDirProperty\tSection\tKey\tValue\tAction\tComponent_\n";
54012µs push(@{$idtref}, $oneline);
5411500ns $oneline = "s72\tl255\tS72\tl96\tl128\tl255\ti2\ts72\n";
54211µs push(@{$idtref}, $oneline);
5431500ns $oneline = "IniFile\tIniFile\n";
54411µs push(@{$idtref}, $oneline);
545 }
546
547449288µs if ( $definestring eq "msiassembly" )
548 {
5491500ns $oneline = "Component_\tFeature_\tFile_Manifest\tFile_Application\tAttributes\n";
55013µs push(@{$idtref}, $oneline);
5511600ns $oneline = "s72\ts38\tS72\tS72\tI2\n";
55212µs push(@{$idtref}, $oneline);
5531500ns $oneline = "MsiAssembly\tComponent_\n";
55412µs push(@{$idtref}, $oneline);
555 }
556
557449269µs if ( $definestring eq "msiassemblyname" )
558 {
55911µs $oneline = "Component_\tName\tValue\n";
56012µs push(@{$idtref}, $oneline);
56111µs $oneline = "s72\ts255\ts255\n";
5621500ns push(@{$idtref}, $oneline);
5631500ns $oneline = "MsiAssemblyName\tComponent_\tName\n";
56411µs push(@{$idtref}, $oneline);
565 }
566
567449293µs if ( $definestring eq "appsearch" )
568 {
569 $oneline = "Property\tSignature_\n";
570 push(@{$idtref}, $oneline);
571 $oneline = "s72\ts72\n";
572 push(@{$idtref}, $oneline);
573 $oneline = "AppSearch\tProperty\tSignature_\n";
574 push(@{$idtref}, $oneline);
575 }
576
577449267µs if ( $definestring eq "reglocat" )
578 {
579 $oneline = "Signature_\tRoot\tKey\tName\tType\n";
580 push(@{$idtref}, $oneline);
581 $oneline = "s72\ti2\ts255\tS255\tI2\n";
582 push(@{$idtref}, $oneline);
583 $oneline = "RegLocator\tSignature_\n";
584 push(@{$idtref}, $oneline);
585 }
586
5874492.93ms if ( $definestring eq "signatur" )
588 {
589 $oneline = "Signature\tFileName\tMinVersion\tMaxVersion\tMinSize\tMaxSize\tMinDate\tMaxDate\tLanguages\n";
590 push(@{$idtref}, $oneline);
591 $oneline = "s72\ts255\tS20\tS20\tI4\tI4\tI4\tI4\tS255\n";
592 push(@{$idtref}, $oneline);
593 $oneline = "Signature\tSignature\n";
594 push(@{$idtref}, $oneline);
595 }
596
597}
598
599##############################################################
600# Returning the name of the rranslation file for a
601# given language.
602# Sample: "01" oder "en-US" -> "1033.txt"
603##############################################################
604
605sub get_languagefilename
606
# spent 22.6ms (16.7+5.95) within installer::windows::idtglobal::get_languagefilename which was called 872 times, avg 26µs/call: # 872 times (16.7ms+5.95ms) by installer::run at line 1589 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer.pm, avg 26µs/call
{
6078722.58ms my ($idtfilename, $basedir) = @_;
608
60987212.3ms8725.95ms $idtfilename =~ s/\.idt/\.mlf/;
# spent 5.95ms making 872 calls to installer::windows::idtglobal::CORE:subst, avg 7µs/call
610
6118721.72ms my $languagefilename = $basedir . $installer::globals::separator . $idtfilename;
612
6138725.47ms return $languagefilename;
614}
615
616##############################################################
617# Returning the complete block in all languages
618# for a specified string
619##############################################################
620
621sub get_language_block_from_language_file
622
# spent 4070s (3373+697) within installer::windows::idtglobal::get_language_block_from_language_file which was called 58752 times, avg 69.3ms/call: # 58315 times (3372s+697s) by installer::windows::idtglobal::translate_idtfile at line 734, avg 69.8ms/call # 436 times (779ms+173ms) by installer::windows::msiglobal::get_value_from_sis_lng at line 519 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/msiglobal.pm, avg 2.18ms/call # once (296µs+110µs) by installer::windows::msiglobal::set_global_code_variables at line 1470 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/msiglobal.pm
{
6235875285.8ms my ($searchstring, $languagefile) = @_;
624
6255875233.4ms my @language_block = ();
626
62758752562s for ( my $i = 0; $i <= $#{$languagefile}; $i++ )
628 {
6294817071153467s963414230691s if ( ${$languagefile}[$i] =~ /^\s*\[\s*$searchstring\s*\]\s*$/ )
# spent 380s making 481707115 calls to installer::windows::idtglobal::CORE:regcomp, avg 790ns/call # spent 310s making 481707115 calls to installer::windows::idtglobal::CORE:match, avg 644ns/call
630 {
6315875272.7ms my $counter = $i;
632
63358752203ms push(@language_block, ${$languagefile}[$counter]);
6345875225.9ms $counter++;
635
63658752444ms58752104ms while (( $counter <= $#{$languagefile} ) && (!( ${$languagefile}[$counter] =~ /^\s*\[/ )))
# spent 104ms making 58752 calls to installer::windows::idtglobal::CORE:match, avg 2µs/call
637 {
63865222347.82s push(@language_block, ${$languagefile}[$counter]);
639652223432.4s65213616.26s $counter++;
# spent 6.26s making 6521361 calls to installer::windows::idtglobal::CORE:match, avg 959ns/call
640 }
641
6425875297.7ms last;
643 }
644 }
645
64658752438ms return \@language_block;
647}
648
649##############################################################
650# Returning a specific language string from the block
651# of all translations
652##############################################################
653
654sub get_language_string_from_language_block
655
# spent 29.1s (24.0+5.06) within installer::windows::idtglobal::get_language_string_from_language_block which was called 58752 times, avg 495µs/call: # 58315 times (24.0s+5.05s) by installer::windows::idtglobal::translate_idtfile at line 735, avg 498µs/call # 436 times (14.0ms+6.76ms) by installer::windows::msiglobal::get_value_from_sis_lng at line 520 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/msiglobal.pm, avg 48µs/call # once (65µs+48µs) by installer::windows::msiglobal::set_global_code_variables at line 1471 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/msiglobal.pm
{
65658752143ms my ($language_block, $language, $oldstring) = @_;
657
6585875244.4ms my $newstring = "";
659
660587523.86s for ( my $i = 0; $i <= $#{$language_block}; $i++ )
661 {
662328416924.4s65683385.06s if ( ${$language_block}[$i] =~ /^\s*$language\s*\=\s*\"(.*)\"\s*$/ )
# spent 2.55s making 3284169 calls to installer::windows::idtglobal::CORE:regcomp, avg 777ns/call # spent 2.50s making 3284169 calls to installer::windows::idtglobal::CORE:match, avg 762ns/call
663 {
66458751171ms $newstring = $1;
6655875154.3ms last;
666 }
667 }
668
6695875252.5ms if ( $newstring eq "" )
670 {
67111µs $language = "en-US"; # defaulting to english
672
67313µs for ( my $i = 0; $i <= $#{$language_block}; $i++ )
674 {
675244µs424µs if ( ${$language_block}[$i] =~ /^\s*$language\s*\=\s*\"(.*)\"\s*$/ )
# spent 18µs making 2 calls to installer::windows::idtglobal::CORE:regcomp, avg 9µs/call # spent 6µs making 2 calls to installer::windows::idtglobal::CORE:match, avg 3µs/call
676 {
67715µs $newstring = $1;
67811µs last;
679 }
680 }
681 }
682
68358752362ms return $newstring;
684}
685
686##############################################################
687# Returning a specific code from the block
688# of all codes. No defaulting to english!
689##############################################################
690
691sub get_code_from_code_block
692{
693 my ($codeblock, $language) = @_;
694
695 my $newstring = "";
696
697 for ( my $i = 0; $i <= $#{$codeblock}; $i++ )
698 {
699 if ( ${$codeblock}[$i] =~ /^\s*$language\s*\=\s*\"(.*)\"\s*$/ )
700 {
701 $newstring = $1;
702 last;
703 }
704 }
705
706 return $newstring;
707}
708
709##############################################################
710# Translating an idt file
711##############################################################
712
713sub translate_idtfile
714
# spent 4106s (5.04+4101) within installer::windows::idtglobal::translate_idtfile which was called 872 times, avg 4.71s/call: # 872 times (5.04s+4101s) by installer::run at line 1596 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer.pm, avg 4.71s/call
{
7158722.28ms my ($idtfile, $languagefile, $onelanguage) = @_;
716
717872167ms for ( my $i = 0; $i <= $#{$idtfile}; $i++ )
718 {
7197226757.4ms my @allstrings = ();
720
7217226775.7ms my $oneline = ${$idtfile}[$i];
722
72372267586ms72267241ms while ( $oneline =~ /\b(OOO_\w+)\b/ )
# spent 241ms making 72267 calls to installer::windows::idtglobal::CORE:match, avg 3µs/call
724 {
7255831590.7ms my $replacestring = $1;
7265831564.9ms push(@allstrings, $replacestring);
727583151.56s174945910ms $oneline =~ s/$replacestring//;
# spent 714ms making 58315 calls to installer::windows::idtglobal::CORE:regcomp, avg 12µs/call # spent 145ms making 58315 calls to installer::windows::idtglobal::CORE:subst, avg 2µs/call # spent 50.5ms making 58315 calls to installer::windows::idtglobal::CORE:match, avg 866ns/call
728 }
729
7307226727.5ms my $oldstring;
731
73272267157ms foreach $oldstring (@allstrings)
733 {
73458315219ms583154069s my $language_block = get_language_block_from_language_file($oldstring, $languagefile);
# spent 4069s making 58315 calls to installer::windows::idtglobal::get_language_block_from_language_file, avg 69.8ms/call
73558315369ms5831529.0s my $newstring = get_language_string_from_language_block($language_block, $onelanguage, $oldstring);
# spent 29.0s making 58315 calls to installer::windows::idtglobal::get_language_string_from_language_block, avg 498µs/call
736
737583154.14s1166301.52s ${$idtfile}[$i] =~ s/$oldstring/$newstring/; # always substitute, even if $newstring eq "" (there are empty strings for control.idt)
# spent 1.18s making 58315 calls to installer::windows::idtglobal::CORE:regcomp, avg 20µs/call # spent 334ms making 58315 calls to installer::windows::idtglobal::CORE:subst, avg 6µs/call
738 }
739 }
740}
741
742##############################################################
743# Copying all needed files to create a msi database
744# into one language specific directory
745##############################################################
746
747sub prepare_language_idt_directory
748
# spent 26.6s (31.7ms+26.6) within installer::windows::idtglobal::prepare_language_idt_directory which was called 109 times, avg 244ms/call: # 109 times (31.7ms+26.6s) by installer::run at line 1565 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer.pm, avg 244ms/call
{
749109485µs my ($destinationdir, $newidtdir, $onelanguage, $filesref, $iconfilecollector, $binarytablefiles, $allvariables) = @_;
750
751 # Copying all idt-files from the source $installer::globals::idttemplatepath to the destination $destinationdir
752 # Copying all files in the subdirectory "Binary"
753 # Copying all files in the subdirectory "Icon"
754
755109134µs my $infoline = "";
756
757109537µs1097.39s installer::systemactions::copy_directory($installer::globals::idttemplatepath, $destinationdir);
# spent 7.39s making 109 calls to installer::systemactions::copy_directory, avg 67.8ms/call
758
7591099.23ms1098.17ms if ( -d $installer::globals::idttemplatepath . $installer::globals::separator . "Binary")
# spent 8.17ms making 109 calls to installer::windows::idtglobal::CORE:ftdir, avg 75µs/call
760 {
761109736µs10974.4ms installer::systemactions::create_directory($destinationdir . $installer::globals::separator . "Binary");
# spent 74.4ms making 109 calls to installer::systemactions::create_directory, avg 682µs/call
762109721µs1094.09s installer::systemactions::copy_directory($installer::globals::idttemplatepath . $installer::globals::separator . "Binary", $destinationdir . $installer::globals::separator . "Binary");
# spent 4.09s making 109 calls to installer::systemactions::copy_directory, avg 37.5ms/call
763
764109387µs if ((( $installer::globals::patch ) && ( $allvariables->{'WINDOWSPATCHBITMAPDIRECTORY'} )) || ( $allvariables->{'WINDOWSBITMAPDIRECTORY'} ))
765 {
766 my $bitmapdir = "";
767 if ( $allvariables->{'WINDOWSPATCHBITMAPDIRECTORY'} ) { $bitmapdir = $allvariables->{'WINDOWSPATCHBITMAPDIRECTORY'}; }
768 if ( $allvariables->{'WINDOWSBITMAPDIRECTORY'} ) { $bitmapdir = $allvariables->{'WINDOWSBITMAPDIRECTORY'}; }
769
770 my $newsourcedir = $installer::globals::unpackpath . $installer::globals::separator . $bitmapdir; # path setting in list file dependent from unpackpath !?
771 $infoline = "\nOverwriting files in directory \"" . $destinationdir . $installer::globals::separator . "Binary" . "\" with files from directory \"" . $newsourcedir . "\".\n";
772 push( @installer::globals::logfileinfo, $infoline);
773 if ( ! -d $newsourcedir )
774 {
775 my $currentdir = cwd();
776 installer::exiter::exit_program("ERROR: Directory $newsourcedir does not exist! Current directory is: $currentdir", "prepare_language_idt_directory");
777 }
778 installer::systemactions::copy_directory($newsourcedir, $destinationdir . $installer::globals::separator . "Binary");
779 }
780 }
781
782109658µs10973.6ms installer::systemactions::create_directory($destinationdir . $installer::globals::separator . "Icon");
# spent 73.6ms making 109 calls to installer::systemactions::create_directory, avg 676µs/call
783
78410919.8ms10918.9ms if ( -d $installer::globals::idttemplatepath . $installer::globals::separator . "Icon")
# spent 18.9ms making 109 calls to installer::windows::idtglobal::CORE:ftdir, avg 173µs/call
785 {
786 installer::systemactions::copy_directory($installer::globals::idttemplatepath . $installer::globals::separator . "Icon", $destinationdir . $installer::globals::separator . "Icon");
787 }
788
789 # Copying all files in $iconfilecollector, that describe icons of folderitems
790
791109738µs for ( my $i = 0; $i <= $#{$iconfilecollector}; $i++ )
792 {
793109270µs my $iconfilename = ${$iconfilecollector}[$i];
794109583µs1093.41ms installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$iconfilename);
# spent 3.41ms making 109 calls to installer::pathanalyzer::make_absolute_filename_to_relative_filename, avg 31µs/call
795109595µs109244ms installer::systemactions::copy_one_file(${$iconfilecollector}[$i], $destinationdir . $installer::globals::separator . "Icon" . $installer::globals::separator . $iconfilename);
# spent 244ms making 109 calls to installer::systemactions::copy_one_file, avg 2.24ms/call
796 }
797
798 # Copying all files in $binarytablefiles in the binary directory
799
8001092.65ms for ( my $i = 0; $i <= $#{$binarytablefiles}; $i++ )
801 {
8029811.18ms my $binaryfile = ${$binarytablefiles}[$i];
8039812.10ms my $binaryfilepath = $binaryfile->{'sourcepath'};
804981614µs my $binaryfilename = $binaryfilepath;
8059813.92ms98118.4ms installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$binaryfilename);
# spent 18.4ms making 981 calls to installer::pathanalyzer::make_absolute_filename_to_relative_filename, avg 19µs/call
8069814.32ms9812.33s installer::systemactions::copy_one_file($binaryfilepath, $destinationdir . $installer::globals::separator . "Binary" . $installer::globals::separator . $binaryfilename);
# spent 2.33s making 981 calls to installer::systemactions::copy_one_file, avg 2.37ms/call
807 }
808
809 # Copying all new created and language independent idt-files to the destination $destinationdir.
810 # Example: "File.idt"
811
812109701µs1095.46s installer::systemactions::copy_directory_with_fileextension($newidtdir, $destinationdir, "idt");
# spent 5.46s making 109 calls to installer::systemactions::copy_directory_with_fileextension, avg 50.1ms/call
813
814 # Copying all new created and language dependent idt-files to the destination $destinationdir.
815 # Example: "Feature.idt.01"
816
817109594µs1096.11s installer::systemactions::copy_directory_with_fileextension($newidtdir, $destinationdir, $onelanguage);
# spent 6.11s making 109 calls to installer::systemactions::copy_directory_with_fileextension, avg 56.1ms/call
8181091.42ms109777ms installer::systemactions::rename_files_with_fileextension($destinationdir, $onelanguage);
# spent 777ms making 109 calls to installer::systemactions::rename_files_with_fileextension, avg 7.13ms/call
819
820}
821
822##############################################################
823# Returning the source path of the rtf licensefile for
824# a specified language
825##############################################################
826
827sub get_rtflicensefilesource
828{
829 my ($language, $includepatharrayref) = @_;
830
831 my $licensefilename = "license_" . $language . ".rtf";
832
833 my $sourcefileref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$licensefilename, $includepatharrayref, 1);
834
835 if ($$sourcefileref eq "") { installer::exiter::exit_program("ERROR: Could not find $licensefilename!", "get_rtflicensefilesource"); }
836
837 my $infoline = "Using licensefile: $$sourcefileref\n";
838 push( @installer::globals::logfileinfo, $infoline);
839
840 return $$sourcefileref;
841}
842
843##############################################################
844# A simple converter to create a license txt string from
845# the rtf format
846##############################################################
847
848sub make_string_licensetext
849{
850 my ($licensefile) = @_;
851
852 my $rtf_licensetext = "";
853
854 for ( my $i = 0; $i <= $#{$licensefile}; $i++ )
855 {
856 my $oneline = ${$licensefile}[$i];
857 $oneline =~ s/\s*$//g; # no whitespace at line end
858
859 $rtf_licensetext = $rtf_licensetext . $oneline . " ";
860 }
861
862 return $rtf_licensetext;
863}
864
865##############################################################
866# Including the license text into the table control.idt
867##############################################################
868
869sub add_licensefile_to_database
870{
871 my ($licensefile, $controltable) = @_;
872
873 # Nine tabs before the license text and two tabs after it
874 # The license text has to be included into the dialog
875 # LicenseAgreement into the control Memo.
876
877 my $foundlicenseline = 0;
878 my ($number, $line);
879
880 for ( my $i = 0; $i <= $#{$controltable}; $i++ )
881 {
882 $line = ${$controltable}[$i];
883
884 if ( $line =~ /^\s*\bLicenseAgreement\b\t\bMemo\t/ )
885 {
886 $foundlicenseline = 1;
887 $number = $i;
888 last;
889 }
890 }
891
892 if (!($foundlicenseline))
893 {
894 installer::exiter::exit_program("ERROR: Line for license file in Control.idt not found!", "add_licensefile_to_database");
895 }
896 else
897 {
898 my %control = ();
899
900 if ( $line =~ /^\s*(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\s*$/ )
901 {
902 $control{'Dialog_'} = $1;
903 $control{'Control'} = $2;
904 $control{'Type'} = $3;
905 $control{'X'} = $4;
906 $control{'Y'} = $5;
907 $control{'Width'} = $6;
908 $control{'Height'} = $7;
909 $control{'Attributes'} = $8;
910 $control{'Property'} = $9;
911 $control{'Text'} = $10;
912 $control{'Control_Next'} = $11;
913 $control{'Help'} = $12;
914 }
915 else
916 {
917 installer::exiter::exit_program("ERROR: Could not split line correctly!", "add_licensefile_to_database");
918 }
919
920 my $licensetext = make_string_licensetext($licensefile);
921
922 $control{'Text'} = $licensetext;
923
924 my $newline = $control{'Dialog_'} . "\t" . $control{'Control'} . "\t" . $control{'Type'} . "\t" .
925 $control{'X'} . "\t" . $control{'Y'} . "\t" . $control{'Width'} . "\t" .
926 $control{'Height'} . "\t" . $control{'Attributes'} . "\t" . $control{'Property'} . "\t" .
927 $control{'Text'} . "\t" . $control{'Control_Next'} . "\t" . $control{'Help'} . "\n";
928
929 ${$controltable}[$number] = $newline
930 }
931}
932
933###################################################################
934# Determining the last position in a sequencetable
935# into the tables CustomAc.idt and InstallE.idt.
936###################################################################
937
938sub get_last_position_in_sequencetable
939
# spent 170ms (129+41.1) within installer::windows::idtglobal::get_last_position_in_sequencetable which was called 327 times, avg 521µs/call: # 327 times (129ms+41.1ms) by installer::windows::idtglobal::set_positions_in_table at line 1585, avg 521µs/call
{
940327301µs my ($sequencetable) = @_;
941
942327242µs my $position = 0;
943
94432721.2ms for ( my $i = 0; $i <= $#{$sequencetable}; $i++ )
945 {
9461635015.2ms my $line = ${$sequencetable}[$i];
947
94816350112ms1635041.1ms if ( $line =~ /^\s*\w+\t.*\t\s*(\d+)\s$/ )
# spent 41.1ms making 16350 calls to installer::windows::idtglobal::CORE:match, avg 3µs/call
949 {
9501133610.7ms my $newposition = $1;
951113369.70ms if ( $newposition > $position ) { $position = $newposition; }
952 }
953 }
954
9553272.03ms return $position;
956}
957
958#########################################################################
959# Determining the position of a specified Action in the sequencetable
960#########################################################################
961
962sub get_position_in_sequencetable
963{
964 my ($action, $sequencetable) = @_;
965
966 my $position = 0;
967
968 $action =~ s/^\s*behind_//;
969
970 for ( my $i = 0; $i <= $#{$sequencetable}; $i++ )
971 {
972 my $line = ${$sequencetable}[$i];
973
974 if ( $line =~ /^\s*(\w+)\t.*\t\s*(\d+)\s$/ )
975 {
976 my $compareaction = $1;
977 $position = $2;
978 if ( $compareaction eq $action ) { last; }
979 }
980 }
981
982 return $position;
983}
984
985################################################################################################
986# Including the CustomAction for the configuration
987# into the tables CustomAc.idt and InstallE.idt.
988#
989# CustomAc.idt: ExecutePkgchk 82 pkgchk.exe -s
990# InstallE.idt: ExecutePkgchk Not REMOVE="ALL" 3175
991#
992# CustomAc.idt: ExecuteQuickstart 82 install_quickstart.exe
993# InstallE.idt: ExecuteQuickstart &gm_o_Quickstart=3 3200
994#
995# CustomAc.idt: ExecuteInstallRegsvrex 82 regsvrex.exe shlxthdl.dll
996# InstallE.idt: ExecuteInstallRegsvrex Not REMOVE="ALL" 3225
997#
998# CustomAc.idt: ExecuteUninstallRegsvrex 82 regsvrex.exe /u shlxthdl.dll
999# InstallE.idt: ExecuteUninstallRegsvrex REMOVE="ALL" 690
1000#
1001# CustomAc.idt: Regmsdocmsidll1 1 reg4msdocmsidll Reg4MsDocEntry
1002# InstallU.idt: Regmsdocmsidll1 Not REMOVE="ALL" 610
1003#
1004# CustomAc.idt: Regmsdocmsidll2 1 reg4msdocmsidll Reg4MsDocEntry
1005# InstallE.idt: Regmsdocmsidll2 Not REMOVE="ALL" 3160
1006################################################################################################
1007
1008sub set_custom_action
1009
# spent 115s (115+38.5ms) within installer::windows::idtglobal::set_custom_action which was called 4360 times, avg 26.3ms/call: # 4360 times (115s+38.5ms) by installer::windows::idtglobal::addcustomactions at line 1725, avg 26.3ms/call
{
1010436018.3ms my ($customactionidttable, $actionname, $actionflags, $exefilename, $actionparameter, $inbinarytable, $filesref, $customactionidttablename, $styles) = @_;
1011
101243602.19ms my $included_customaction = 0;
101343602.67ms my $infoline = "";
101443603.08ms my $customaction_exefilename = $exefilename;
101543603.54ms my $uniquename = "";
1016
1017 # when the style NO_FILE is set, no searching for the file is needed, no filtering is done, we can add that custom action
1018436033.5ms43605.85ms if ( $styles =~ /\bNO_FILE\b/ )
# spent 5.85ms making 4360 calls to installer::windows::idtglobal::CORE:match, avg 1µs/call
1019 {
1020 my $line = $actionname . "\t" . $actionflags . "\t" . $customaction_exefilename . "\t" . $actionparameter . "\n";
1021 push(@{$customactionidttable}, $line);
1022
1023 $infoline = "Added $actionname CustomAction into table $customactionidttablename (NO_FILE has been set)\n";
1024 push(@installer::globals::logfileinfo, $infoline);
1025
1026 $included_customaction = 1;
1027 return $included_customaction;
1028 }
1029
1030 # is the $exefilename a library that is included into the binary table
1031
1032872059.7ms436032.7ms if ( $inbinarytable ) { $customaction_exefilename =~ s/\.//; } # this is the entry in the binary table ("abc.dll" -> "abcdll")
# spent 32.7ms making 4360 calls to installer::windows::idtglobal::CORE:subst, avg 7µs/call
1033
1034 # is the $exefilename included into the product?
1035
103643602.79ms my $contains_file = 0;
1037
1038 # All files are located in $filesref and in @installer::globals::binarytableonlyfiles.
1039 # Both must be added together
1040436011.0s my $localfilesref = [@installer::globals::binarytableonlyfiles, @{$filesref}];
1041
1042436022.9s for ( my $i = 0; $i <= $#{$localfilesref}; $i++ )
1043 {
10442081158813.2s my $onefile = ${$localfilesref}[$i];
1045208115888.70s my $filename = "";
10462081158827.8s if ( exists($onefile->{'Name'}) )
1047 {
10482081158816.8s $filename = $onefile->{'Name'};
1049
1050208115888.50s if ( $filename eq $exefilename )
1051 {
105230521.67ms $contains_file = 1;
105330524.28ms $uniquename = ${$localfilesref}[$i]->{'uniquename'};
105430524.78ms last;
1055 }
1056 }
1057 else
1058 {
1059 installer::exiter::exit_program("ERROR: Did not find \"Name\" for file \"$onefile->{'uniquename'}\" ($onefile->{'gid'})!", "set_custom_action");
1060 }
1061 }
1062
106343603.86ms if ( $contains_file )
1064 {
1065 # Now the CustomAction can be included into the CustomAc.idt
1066
106730522.63ms if ( ! $inbinarytable ) { $customaction_exefilename = $uniquename; } # the unique file name has to be added to the custom action table
1068
1069305210.0ms my $line = $actionname . "\t" . $actionflags . "\t" . $customaction_exefilename . "\t" . $actionparameter . "\n";
1070305210.4ms push(@{$customactionidttable}, $line);
1071
107230521.95ms $included_customaction = 1;
1073 }
1074
107543607.51ms if ( $included_customaction ) { $infoline = "Added $actionname CustomAction into table $customactionidttablename\n"; }
107613085.23ms else { $infoline = "Did not add $actionname CustomAction into table $customactionidttablename\n"; }
1077436016.6ms push(@installer::globals::logfileinfo, $infoline);
1078
107943605.54s return $included_customaction;
1080}
1081
1082####################################################################
1083# Adding a Custom Action to InstallExecuteTable or InstallUITable
1084####################################################################
1085
1086sub add_custom_action_to_install_table
1087
# spent 12.8s (12.5+260ms) within installer::windows::idtglobal::add_custom_action_to_install_table which was called 3706 times, avg 3.45ms/call: # 3706 times (12.5s+260ms) by installer::windows::idtglobal::addcustomactions at line 1766, avg 3.45ms/call
{
1088370612.8ms my ($installtable, $exefilename, $actionname, $actioncondition, $position, $filesref, $installtablename, $styles) = @_;
1089
109037061.86ms my $included_customaction = 0;
109137062.31ms my $feature = "";
109237062.31ms my $infoline = "";
1093
1094 # when the style NO_FILE is set, no searching for the file is needed, no filtering is done, we can add that custom action
1095370618.2ms37063.03ms if ( $styles =~ /\bNO_FILE\b/ )
# spent 3.03ms making 3706 calls to installer::windows::idtglobal::CORE:match, avg 818ns/call
1096 {
1097 # then the InstallE.idt.idt or InstallU.idt.idt
1098 $actioncondition =~ s/FEATURETEMPLATE/$feature/g; # only execute Custom Action, if feature of the file is installed
1099
1100 my $actionposition = 0;
1101
1102 if ( $position eq "end" ) { $actionposition = get_last_position_in_sequencetable($installtable) + 25; }
1103 elsif ( $position =~ /^\s*behind_/ ) { $actionposition = get_position_in_sequencetable($position, $installtable) + 2; }
1104 else { $actionposition = get_position_in_sequencetable($position, $installtable) - 2; }
1105
1106 my $line = $actionname . "\t" . $actioncondition . "\t" . $actionposition . "\n";
1107 push(@{$installtable}, $line);
1108
1109 $infoline = "Added $actionname CustomAction into table $installtablename (NO_FILE has been set)\n";
1110 push(@installer::globals::logfileinfo, $infoline);
1111 return;
1112 }
1113
111437062.38ms my $contains_file = 0;
1115
1116 # All files are located in $filesref and in @installer::globals::binarytableonlyfiles.
1117 # Both must be added together
111837068.59s my $localfilesref = [@installer::globals::binarytableonlyfiles, @{$filesref}];
1119
1120370635.1ms for ( my $i = 0; $i <= $#{$localfilesref}; $i++ )
1121 {
11222332636.9ms my $filename = ${$localfilesref}[$i]->{'Name'};
1123
11242332614.4ms if ( $filename eq $exefilename )
1125 {
112637062.41ms $contains_file = 1;
1127
1128 # Determining the feature of the file
1129
113037068.95ms if ( ${$localfilesref}[$i] ) { $feature = ${$localfilesref}[$i]->{'modules'}; }
1131
1132 # If modules contains a list of modules, only taking the first one.
1133370647.9ms370613.9ms if ( $feature =~ /^\s*(.*?)\,/ ) { $feature = $1; }
# spent 13.9ms making 3706 calls to installer::windows::idtglobal::CORE:match, avg 4µs/call
1134 # Attention: Maximum feature length is 38!
1135370627.7ms3706224ms shorten_feature_gid(\$feature);
# spent 224ms making 3706 calls to installer::windows::idtglobal::shorten_feature_gid, avg 60µs/call
1136
113737066.57ms last;
1138 }
1139 }
1140
114137064.25ms if ( $contains_file )
1142 {
1143 # then the InstallE.idt.idt or InstallU.idt.idt
1144
1145370620.6ms37065.66ms $actioncondition =~ s/FEATURETEMPLATE/$feature/g; # only execute Custom Action, if feature of the file is installed
# spent 5.66ms making 3706 calls to installer::windows::idtglobal::CORE:subst, avg 2µs/call
1146
1147# my $actionposition = 0;
1148# if ( $position eq "end" ) { $actionposition = get_last_position_in_sequencetable($installtable) + 25; }
1149# elsif ( $position =~ /^\s*behind_/ ) { $actionposition = get_position_in_sequencetable($position, $installtable) + 2; }
1150# else { $actionposition = get_position_in_sequencetable($position, $installtable) - 2; }
1151# my $line = $actionname . "\t" . $actioncondition . "\t" . $actionposition . "\n";
1152
115337065.35ms my $positiontemplate = "";
1154370633.2ms370613.9ms if ( $position =~ /^\s*\d+\s*$/ ) { $positiontemplate = $position; } # setting the position directly, number defined in scp2
# spent 13.9ms making 3706 calls to installer::windows::idtglobal::CORE:match, avg 4µs/call
115537065.31ms else { $positiontemplate = "POSITIONTEMPLATE_" . $position; }
1156
115737066.19ms my $line = $actionname . "\t" . $actioncondition . "\t" . $positiontemplate . "\n";
115837069.05ms push(@{$installtable}, $line);
1159
116037063.54ms $included_customaction = 1;
1161 }
1162
116337066.80ms if ( $included_customaction ) { $infoline = "Added $actionname CustomAction into table $installtablename\n"; }
1164 else { $infoline = "Did not add $actionname CustomAction into table $installtablename\n"; }
116537063.69s push(@installer::globals::logfileinfo, $infoline);
1166
1167}
1168
1169##################################################################
1170# A line in the table ControlEvent connects a Control
1171# with a Custom Action
1172#################################################################
1173
1174sub connect_custom_action_to_control
1175
# spent 20.3ms (10.5+9.83) within installer::windows::idtglobal::connect_custom_action_to_control which was called 545 times, avg 37µs/call: # 545 times (10.5ms+9.83ms) by installer::windows::idtglobal::addcustomactions at line 1766, avg 37µs/call
{
11765451.88ms my ( $table, $tablename, $dialog, $control, $event, $argument, $condition, $ordering) = @_;
1177
11785451.51ms my $line = $dialog . "\t" . $control. "\t" . $event. "\t" . $argument. "\t" . $condition. "\t" . $ordering . "\n";
1179
1180545906µs push(@{$table}, $line);
1181
118254512.4ms5459.83ms $line =~ s/\s*$//g;
# spent 9.83ms making 545 calls to installer::windows::idtglobal::CORE:subst, avg 18µs/call
1183
1184545847µs $infoline = "Added line \"$line\" into table $tablename\n";
11855453.58ms push(@installer::globals::logfileinfo, $infoline);
1186}
1187
1188##################################################################
1189# A line in the table ControlCondition connects a Control state
1190# with a condition
1191##################################################################
1192
1193sub connect_condition_to_control
1194{
1195 my ( $table, $tablename, $dialog, $control, $event, $condition) = @_;
1196
1197 my $line = $dialog . "\t" . $control. "\t" . $event. "\t" . $condition. "\n";
1198
1199 push(@{$table}, $line);
1200
1201 $line =~ s/\s*$//g;
1202
1203 $infoline = "Added line \"$line\" into table $tablename\n";
1204 push(@installer::globals::logfileinfo, $infoline);
1205}
1206
1207##################################################################
1208# Searching for a sequencenumber in InstallUISequence table
1209# "ExecuteAction" must be the last action
1210##################################################################
1211
1212sub get_free_number_in_uisequence_table
1213{
1214 my ( $installuitable ) = @_;
1215
1216 # determining the sequence of "ExecuteAction"
1217
1218 my $executeactionnumber = 0;
1219
1220 for ( my $i = 0; $i <= $#{$installuitable}; $i++ )
1221 {
1222 if ( ${$installuitable}[$i] =~ /^\s*(\w+)\t\w*\t(\d+)\s*$/ )
1223 {
1224 my $actionname = $1;
1225 my $actionnumber = $2;
1226
1227 if ( $actionname eq "ExecuteAction" )
1228 {
1229 $executeactionnumber = $actionnumber;
1230 last;
1231 }
1232 }
1233 }
1234
1235 if ( $executeactionnumber == 0 ) { installer::exiter::exit_program("ERROR: Did not find \"ExecuteAction\" in InstallUISequence table!", "get_free_number_in_uisequence_table"); }
1236
1237 # determining the sequence of the action before "ExecuteAction"
1238
1239 my $lastactionnumber = 0;
1240
1241 for ( my $i = 0; $i <= $#{$installuitable}; $i++ )
1242 {
1243 if ( ${$installuitable}[$i] =~ /^\s*\w+\t\w*\t(\d+)\s*$/ )
1244 {
1245 my $actionnumber = $1;
1246
1247 if (( $actionnumber > $lastactionnumber ) && ( $actionnumber != $executeactionnumber ))
1248 {
1249 $lastactionnumber = $actionnumber;
1250 }
1251 }
1252 }
1253
1254 # the new number can now be calculated
1255
1256 my $newnumber = 0;
1257
1258 if ((( $lastactionnumber + $executeactionnumber ) % 2 ) == 0 ) { $newnumber = ( $lastactionnumber + $executeactionnumber ) / 2; }
1259 else { $newnumber = ( $lastactionnumber + $executeactionnumber -1 ) / 2; }
1260
1261 return $newnumber;
1262}
1263
1264#############################################################
1265# Including the new subdir into the directory table
1266#############################################################
1267
1268sub include_subdirname_into_directory_table
1269{
1270 my ($dirname, $directorytable, $directorytablename, $onefile) = @_;
1271
1272 my $subdir = "";
1273 if ( $onefile->{'Subdir'} ) { $subdir = $onefile->{'Subdir'}; }
1274 if ( $subdir eq "" ) { installer::exiter::exit_program("ERROR: No \"Subdir\" defined for $onefile->{'Name'}", "include_subdirname_into_directory_table"); }
1275
1276 # program INSTALLLOCATION program -> subjava INSTALLLOCATION program:java
1277
1278 my $uniquename = "";
1279 my $parent = "";
1280 my $name = "";
1281
1282 my $includedline = 0;
1283
1284 my $newdir = "";
1285
1286 for ( my $i = 0; $i <= $#{$directorytable}; $i++ )
1287 {
1288
1289 if ( ${$directorytable}[$i] =~ /^\s*(.*?)\t(.*?)\t(.*?)\s*$/ )
1290 {
1291 $uniquename = $1;
1292 $parent = $2;
1293 $name = $3;
1294
1295 if ( $dirname eq $name )
1296 {
1297 my $newuniquename = "sub" . $subdir;
1298 $newdir = $newuniquename;
1299 my $newparent = "INSTALLLOCATION";
1300 my $newname = $name . "\:" . $subdir;
1301 my $newline =
1302 $line = "$newuniquename\t$newparent\t$newname\n";
1303 push(@{$directorytable}, $line);
1304 installer::remover::remove_leading_and_ending_whitespaces(\$line);
1305 $infoline = "Added $line into directory table $directorytablename\n";
1306 push(@installer::globals::logfileinfo, $infoline);
1307
1308 $includedline = 1;
1309 last;
1310 }
1311 }
1312 }
1313
1314 if ( ! $includedline ) { installer::exiter::exit_program("ERROR: Could not include new subdirectory into directory table for file $onefile->{'Name'}!", "include_subdirname_into_directory_table"); }
1315
1316 return $newdir;
1317}
1318
1319##################################################################
1320# Including the new sub directory into the component table
1321##################################################################
1322
1323sub include_subdir_into_componenttable
1324{
1325 my ($subdir, $onefile, $componenttable) = @_;
1326
1327 my $componentname = $onefile->{'componentname'};
1328
1329 my $changeddirectory = 0;
1330
1331 for ( my $i = 0; $i <= $#{$componenttable}; $i++ )
1332 {
1333 if ( ${$componenttable}[$i] =~ /^\s*(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\s*$/ )
1334 {
1335 my $localcomponentname = $1;
1336 my $directory = $3;
1337
1338 if ( $componentname eq $localcomponentname )
1339 {
1340 my $oldvalue = ${$componenttable}[$i];
1341 ${$componenttable}[$i] =~ s/\b\Q$directory\E\b/$subdir/;
1342 my $newvalue = ${$componenttable}[$i];
1343
1344 installer::remover::remove_leading_and_ending_whitespaces(\$oldvalue);
1345 installer::remover::remove_leading_and_ending_whitespaces(\$newvalue);
1346 $infoline = "Change in Component table: From \"$oldvalue\" to \"$newvalue\"\n";
1347 push(@installer::globals::logfileinfo, $infoline);
1348
1349 $changeddirectory = 1;
1350 last;
1351 }
1352 }
1353 }
1354
1355 if ( ! $changeddirectory ) { installer::exiter::exit_program("ERROR: Could not change directory for component: $onefile->{'Name'}!", "include_subdir_into_componenttable"); }
1356
1357}
1358
1359##################################################################
1360# Setting the encoding in all idt files. Replacing the
1361# variable WINDOWSENCODINGTEMPLATE
1362##################################################################
1363
1364sub setencoding
1365
# spent 65.0s (29.1+35.9) within installer::windows::idtglobal::setencoding which was called 109 times, avg 597ms/call: # 109 times (29.1s+35.9s) by installer::run at line 1608 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer.pm, avg 597ms/call
{
1366109317µs my ( $languageidtdir, $onelanguage ) = @_;
1367
1368109756µs1091.87ms my $encoding = installer::windows::language::get_windows_encoding($onelanguage);
# spent 1.87ms making 109 calls to installer::windows::language::get_windows_encoding, avg 17µs/call
1369
1370 # collecting all idt files in the directory $languageidtdir and substituting the string
1371
1372109735µs109110ms my $idtfiles = installer::systemactions::find_file_with_file_extension("idt", $languageidtdir);
# spent 110ms making 109 calls to installer::systemactions::find_file_with_file_extension, avg 1.01ms/call
1373
137410916.8ms for ( my $i = 0; $i <= $#{$idtfiles}; $i++ )
1375 {
1376457812.0ms my $onefilename = $languageidtdir . $installer::globals::separator . ${$idtfiles}[$i];
1377457820.2ms457827.8s my $onefile = installer::files::read_file($onefilename);
# spent 27.8s making 4578 calls to installer::files::read_file, avg 6.08ms/call
1378
137945787.20s for ( my $j = 0; $j <= $#{$onefile}; $j++ )
1380 {
1381618640422.8s61864043.61s ${$onefile}[$j] =~ s/WINDOWSENCODINGTEMPLATE/$encoding/g;
# spent 3.61s making 6186404 calls to installer::windows::idtglobal::CORE:subst, avg 584ns/call
1382 }
1383
138445782.62s45784.37s installer::files::save_file($onefilename, $onefile);
# spent 4.37s making 4578 calls to installer::files::save_file, avg 955µs/call
1385 }
1386}
1387
1388##################################################################
1389# Setting the condition, that at least one module is selected.
1390# All modules with flag SHOW_MULTILINGUAL_ONLY were already
1391# collected. In table ControlE.idt, the string
1392# LANGUAGECONDITIONINSTALL needs to be replaced.
1393# Also for APPLICATIONCONDITIONINSTALL for the applications
1394# with flag APPLICATIONMODULE.
1395##################################################################
1396
1397sub set_multilanguageonly_condition
1398
# spent 358ms (164+194) within installer::windows::idtglobal::set_multilanguageonly_condition which was called 109 times, avg 3.28ms/call: # 109 times (164ms+194ms) by installer::run at line 1615 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer.pm, avg 3.28ms/call
{
1399109228µs my ( $languageidtdir ) = @_;
1400
1401109271µs my $onefilename = $languageidtdir . $installer::globals::separator . "ControlE.idt";
1402109336µs10993.0ms my $onefile = installer::files::read_file($onefilename);
# spent 93.0ms making 109 calls to installer::files::read_file, avg 853µs/call
1403
1404 # Language modules
1405
1406109113µs my $condition = "";
1407
140810917.5ms1098.91ms foreach my $module ( sort keys %installer::globals::multilingual_only_modules )
# spent 8.91ms making 109 calls to installer::windows::idtglobal::CORE:sort, avg 82µs/call
1409 {
14101188112.8ms $condition = $condition . " &$module=3 Or";
1411 }
1412
14131091.56ms109925µs $condition =~ s/^\s*//;
# spent 925µs making 109 calls to installer::windows::idtglobal::CORE:subst, avg 8µs/call
141410918.6ms10918.1ms $condition =~ s/\s*Or\s*$//; # removing the ending "Or"
# spent 18.1ms making 109 calls to installer::windows::idtglobal::CORE:subst, avg 166µs/call
1415
1416109158µs if ( $condition eq "" ) { $condition = "1"; }
1417
141810916.8ms for ( my $j = 0; $j <= $#{$onefile}; $j++ )
1419 {
14201493356.9ms149338.51ms ${$onefile}[$j] =~ s/LANGUAGECONDITIONINSTALL/$condition/;
# spent 8.51ms making 14933 calls to installer::windows::idtglobal::CORE:subst, avg 570ns/call
1421 }
1422
1423 # Application modules
1424
1425109108µs $condition = "";
1426
14271091.65ms109442µs foreach my $module ( sort keys %installer::globals::application_modules )
# spent 442µs making 109 calls to installer::windows::idtglobal::CORE:sort, avg 4µs/call
1428 {
1429654925µs $condition = $condition . " &$module=3 Or";
1430 }
1431
1432109871µs109336µs $condition =~ s/^\s*//;
# spent 336µs making 109 calls to installer::windows::idtglobal::CORE:subst, avg 3µs/call
14331091.65ms1091.12ms $condition =~ s/\s*Or\s*$//; # removing the ending "Or"
# spent 1.12ms making 109 calls to installer::windows::idtglobal::CORE:subst, avg 10µs/call
1434
143510980µs if ( $condition eq "" ) { $condition = "1"; }
1436
143710916.6ms for ( my $j = 0; $j <= $#{$onefile}; $j++ )
1438 {
14391493356.4ms149337.99ms ${$onefile}[$j] =~ s/APPLICATIONCONDITIONINSTALL/$condition/;
# spent 7.99ms making 14933 calls to installer::windows::idtglobal::CORE:subst, avg 535ns/call
1440 }
1441
14421095.71ms10955.1ms installer::files::save_file($onefilename, $onefile);
# spent 55.1ms making 109 calls to installer::files::save_file, avg 506µs/call
1443}
1444
1445#############################################
1446# Putting array values into hash
1447#############################################
1448
1449sub fill_assignment_hash
1450
# spent 716ms (461+255) within installer::windows::idtglobal::fill_assignment_hash which was called 4251 times, avg 168µs/call: # 2616 times (250ms+140ms) by installer::windows::idtglobal::create_customaction_assignment_hash at line 1506, avg 149µs/call # 654 times (59.7ms+33.6ms) by installer::windows::idtglobal::create_customaction_assignment_hash at line 1499, avg 143µs/call # 545 times (111ms+59.7ms) by installer::windows::idtglobal::create_customaction_assignment_hash at line 1520, avg 313µs/call # 436 times (40.1ms+21.3ms) by installer::windows::idtglobal::create_customaction_assignment_hash at line 1513, avg 141µs/call
{
1451425110.9ms my ($gid, $name, $key, $assignmenthashref, $parameter, $tablename, $assignmentarray) = @_;
1452
145342517.54ms my $max = $parameter - 1;
1454
145542517.90ms if ( $max != $#{$assignmentarray} )
1456 {
1457 my $definedparameter = $#{$assignmentarray} + 1;
1458 installer::exiter::exit_program("ERROR: gid: $gid, key: $key ! Wrong parameter in scp. For table $tablename $parameter parameter are required ! You defined: $definedparameter", "fill_assignment_hash");
1459 }
1460
1461425152.7ms for ( my $i = 0; $i <= $#{$assignmentarray}; $i++ )
1462 {
14631493312.6ms my $counter = $i + 1;
14641493316.1ms my $key = "parameter". $counter;
1465
14661493313.1ms my $localvalue = ${$assignmentarray}[$i];
14671493345.6ms14933196ms installer::remover::remove_leading_and_ending_quotationmarks(\$localvalue);
# spent 196ms making 14933 calls to installer::remover::remove_leading_and_ending_quotationmarks, avg 13µs/call
14681493376.2ms1493326.0ms $localvalue =~ s/\\\"/\"/g;
# spent 26.0ms making 14933 calls to installer::windows::idtglobal::CORE:subst, avg 2µs/call
14691493355.7ms149339.00ms $localvalue =~ s/\\\!/\!/g;
# spent 9.00ms making 14933 calls to installer::windows::idtglobal::CORE:subst, avg 603ns/call
14701493353.9ms149338.82ms $localvalue =~ s/\\\&/\&/g;
# spent 8.82ms making 14933 calls to installer::windows::idtglobal::CORE:subst, avg 591ns/call
14711493353.1ms149337.36ms $localvalue =~ s/\\\</\</g;
# spent 7.36ms making 14933 calls to installer::windows::idtglobal::CORE:subst, avg 493ns/call
14721493352.1ms149337.11ms $localvalue =~ s/\\\>/\>/g;
# spent 7.11ms making 14933 calls to installer::windows::idtglobal::CORE:subst, avg 476ns/call
14731493342.7ms $assignmenthashref->{$key} = $localvalue;
1474 }
1475}
1476
1477##########################################################################
1478# Checking the assignment of a Windows CustomAction and putting it
1479# into a hash
1480##########################################################################
1481
1482sub create_customaction_assignment_hash
1483
# spent 923ms (121+802) within installer::windows::idtglobal::create_customaction_assignment_hash which was called 4251 times, avg 217µs/call: # 4251 times (121ms+802ms) by installer::windows::idtglobal::addcustomactions at line 1764, avg 217µs/call
{
148442519.62ms my ($gid, $name, $key, $assignmentarray) = @_;
1485
148642516.56ms my %assignment = ();
148742513.18ms my $assignmenthashref = \%assignment;
1488
148942514.47ms my $tablename = ${$assignmentarray}[0];
1490425116.6ms425186.2ms installer::remover::remove_leading_and_ending_quotationmarks(\$tablename);
# spent 86.2ms making 4251 calls to installer::remover::remove_leading_and_ending_quotationmarks, avg 20µs/call
1491
149242513.00ms my $tablename_defined = 0;
149342512.17ms my $parameter = 0;
1494
149542514.13ms if ( $tablename eq "InstallUISequence" )
1496 {
1497654254µs $tablename_defined = 1;
1498654314µs $parameter = 3;
14996542.29ms65493.3ms fill_assignment_hash($gid, $name, $key, $assignmenthashref, $parameter, $tablename, $assignmentarray);
# spent 93.3ms making 654 calls to installer::windows::idtglobal::fill_assignment_hash, avg 143µs/call
1500 }
1501
150242513.94ms if ( $tablename eq "InstallExecuteSequence" )
1503 {
150426161.25ms $tablename_defined = 1;
150526161.18ms $parameter = 3;
1506261610.3ms2616390ms fill_assignment_hash($gid, $name, $key, $assignmenthashref, $parameter, $tablename, $assignmentarray);
# spent 390ms making 2616 calls to installer::windows::idtglobal::fill_assignment_hash, avg 149µs/call
1507 }
1508
150942512.77ms if ( $tablename eq "AdminExecuteSequence" )
1510 {
1511436212µs $tablename_defined = 1;
1512436204µs $parameter = 3;
15134361.54ms43661.3ms fill_assignment_hash($gid, $name, $key, $assignmenthashref, $parameter, $tablename, $assignmentarray);
# spent 61.3ms making 436 calls to installer::windows::idtglobal::fill_assignment_hash, avg 141µs/call
1514 }
1515
151642512.91ms if ( $tablename eq "ControlEvent" )
1517 {
1518545209µs $tablename_defined = 1;
1519545233µs $parameter = 7;
15205451.95ms545171ms fill_assignment_hash($gid, $name, $key, $assignmenthashref, $parameter, $tablename, $assignmentarray);
# spent 171ms making 545 calls to installer::windows::idtglobal::fill_assignment_hash, avg 313µs/call
1521 }
1522
152342512.29ms if ( $tablename eq "ControlCondition" )
1524 {
1525 $tablename_defined = 1;
1526 $parameter = 5;
1527 fill_assignment_hash($gid, $name, $key, $assignmenthashref, $parameter, $tablename, $assignmentarray);
1528 }
1529
153042512.28ms if ( ! $tablename_defined )
1531 {
1532 installer::exiter::exit_program("ERROR: gid: $gid, key: $key ! Unknown Windows CustomAction table: $tablename ! Currently supported: InstallUISequence, InstallExecuteSequence, ControlEvent, ControlCondition", "create_customaction_assignment_hash");
1533 }
1534
1535425123.9ms return $assignmenthashref;
1536}
1537
1538##########################################################################
1539# Finding the position of a specified CustomAction.
1540# If the CustomAction is not found, the return value is "-1".
1541# If the CustomAction position is not defined yet,
1542# the return value is also "-1".
1543##########################################################################
1544
1545sub get_customaction_position
1546
# spent 1.34s (1.02+324ms) within installer::windows::idtglobal::get_customaction_position which was called 2943 times, avg 457µs/call: # 2943 times (1.02s+324ms) by installer::windows::idtglobal::set_positions_in_table at line 1635, avg 457µs/call
{
154729433.00ms my ($action, $sequencetable) = @_;
1548
154929431.24ms my $position = -1;
1550
15512943185ms for ( my $i = 0; $i <= $#{$sequencetable}; $i++ )
1552 {
155312600479.4ms my $line = ${$sequencetable}[$i];
1554
1555126004826ms126004324ms if ( $line =~ /^\s*([\w\.]+)\t.*\t\s*(\d+)\s$/ ) # matching only, if position is a number!
# spent 324ms making 126004 calls to installer::windows::idtglobal::CORE:match, avg 3µs/call
1556 {
1557111398103ms my $compareaction = $1;
155811139873.9ms my $localposition = $2;
1559
156011139860.4ms if ( $compareaction eq $action )
1561 {
156222891.01ms $position = $localposition;
156322892.12ms last;
1564 }
1565 }
1566 }
1567
1568294314.4ms return $position;
1569}
1570
1571##########################################################################
1572# Setting the position of CustomActions in sequence tables.
1573# Replacing all occurrences of "POSITIONTEMPLATE_"
1574##########################################################################
1575
1576sub set_positions_in_table
1577
# spent 2.04s (423ms+1.62) within installer::windows::idtglobal::set_positions_in_table which was called 327 times, avg 6.25ms/call: # 109 times (297ms+1.37s) by installer::windows::idtglobal::addcustomactions at line 1796, avg 15.3ms/call # 109 times (93.5ms+214ms) by installer::windows::idtglobal::addcustomactions at line 1797, avg 2.82ms/call # 109 times (32.4ms+37.3ms) by installer::windows::idtglobal::addcustomactions at line 1798, avg 639µs/call
{
1578327595µs my ( $sequencetable, $tablename ) = @_;
1579
1580327424µs my $infoline = "\nSetting positions in table \"$tablename\".\n";
1581327490µs push(@installer::globals::logfileinfo, $infoline);
1582
1583 # Step 1: Resolving all occurrences of "POSITIONTEMPLATE_end"
1584
15853271.31ms327170ms my $lastposition = get_last_position_in_sequencetable($sequencetable);
# spent 170ms making 327 calls to installer::windows::idtglobal::get_last_position_in_sequencetable, avg 521µs/call
1586
158732718.1ms for ( my $i = 0; $i <= $#{$sequencetable}; $i++ )
1588 {
15891635065.2ms1635012.0ms if ( ${$sequencetable}[$i] =~ /^\s*([\w\.]+)\t.*\t\s*POSITIONTEMPLATE_end\s*$/ )
# spent 12.0ms making 16350 calls to installer::windows::idtglobal::CORE:match, avg 731ns/call
1590 {
159113081.47ms my $customaction = $1;
15921308808µs $lastposition = $lastposition + 25;
159313088.42ms13083.53ms ${$sequencetable}[$i] =~ s/POSITIONTEMPLATE_end/$lastposition/;
# spent 3.53ms making 1308 calls to installer::windows::idtglobal::CORE:subst, avg 3µs/call
159413081.33ms $infoline = "Setting position \"$lastposition\" for custom action \"$customaction\".\n";
159513081.92ms push(@installer::globals::logfileinfo, $infoline);
1596 }
1597 }
1598
1599 # Step 2: Resolving all occurrences of "POSITIONTEMPLATE_abc" or "POSITIONTEMPLATE_behind_abc"
1600 # where abc is the name of the reference Custom Action.
1601 # This has to be done, until there is no more occurrence of POSITIONTEMPLATE (success)
1602 # or there is no replacement in one circle (failure).
1603
1604327186µs my $template_exists = 0;
1605327124µs my $template_replaced = 0;
1606327140µs my $counter = 0;
1607
1608 do
16093271.18ms {
1610872350µs $template_exists = 0;
1611872309µs $template_replaced = 0;
1612872342µs $counter++;
1613
161487251.8ms for ( my $i = 0; $i <= $#{$sequencetable}; $i++ )
1615 {
161647197192ms4719738.9ms if ( ${$sequencetable}[$i] =~ /^\s*([\w\.]+)\t.*\t\s*(POSITIONTEMPLATE_.*?)\s*$/ )
# spent 38.9ms making 47197 calls to installer::windows::idtglobal::CORE:match, avg 824ns/call
1617 {
161829433.55ms my $onename = $1;
161929432.30ms my $templatename = $2;
162029431.52ms my $positionname = $templatename;
162129431.40ms my $customaction = $templatename;
1622294316.7ms29436.37ms $customaction =~ s/POSITIONTEMPLATE_//;
# spent 6.37ms making 2943 calls to installer::windows::idtglobal::CORE:subst, avg 2µs/call
162329431.27ms $template_exists = 1;
1624
1625 # Trying to find the correct number.
1626 # This can fail, if the custom action has no number
1627
162829431.20ms my $setbehind = 0;
1629294311.3ms29432.11ms if ( $customaction =~ /^\s*behind_(.*?)\s*$/ )
# spent 2.11ms making 2943 calls to installer::windows::idtglobal::CORE:match, avg 716ns/call
1630 {
1631 $customaction = $1;
1632 $setbehind = 1;
1633 }
1634
163529439.58ms29431.34s my $position = get_customaction_position($customaction, $sequencetable);
# spent 1.34s making 2943 calls to installer::windows::idtglobal::get_customaction_position, avg 457µs/call
1636
163729435.06ms if ( $position >= 0 ) # Found CustomAction and is has a position. Otherwise return value is "-1".
1638 {
163922891.02ms my $newposition = 0;
164022891.85ms if ( $setbehind ) { $newposition = $position + 2; }
164122891.58ms else { $newposition = $position - 2; }
1642228952.2ms457835.9ms ${$sequencetable}[$i] =~ s/$templatename/$newposition/;
# spent 29.6ms making 2289 calls to installer::windows::idtglobal::CORE:regcomp, avg 13µs/call # spent 6.29ms making 2289 calls to installer::windows::idtglobal::CORE:subst, avg 3µs/call
164322891.10ms $template_replaced = 1;
164422893.61ms $infoline = "Setting position \"$newposition\" for custom action \"$onename\" (scp: \"$positionname\" at position $position).\n";
164522893.84ms push(@installer::globals::logfileinfo, $infoline);
1646 }
1647 else
1648 {
1649654893µs $infoline = "Could not assign position for custom action \"$onename\" yet (scp: \"$positionname\").\n";
1650654906µs push(@installer::globals::logfileinfo, $infoline);
1651 }
1652 }
1653 }
1654 } while (( $template_exists ) && ( $template_replaced ));
1655
1656 # An error occurred, because templates still exist, but could not be replaced.
1657 # Reason:
1658 # 1. Wrong name of CustomAction in scp2 (typo?)
1659 # 2. Circular dependencies of CustomActions (A after B and B after A)
1660
1661 # Problem: It is allowed, that a CustomAction is defined in scp2 in a library that is
1662 # part of product ABC, but this CustomAction is not used in this product
1663 # and the reference CustomAction is not part of this product.
1664 # Therefore this cannot be an error, but only produce a warning. The assigned number
1665 # must be the last sequence number.
1666
16673271.93ms if (( $template_exists ) && ( ! $template_replaced ))
1668 {
166910911.3ms for ( my $i = 0; $i <= $#{$sequencetable}; $i++ )
1670 {
16711046438.8ms104645.87ms if ( ${$sequencetable}[$i] =~ /^\s*([\w\.]+)\t.*\t\s*(POSITIONTEMPLATE_.*?)\s*$/ )
# spent 5.87ms making 10464 calls to installer::windows::idtglobal::CORE:match, avg 561ns/call
1672 {
1673109170µs my $customactionname = $1;
1674109120µs my $fulltemplate = $2;
1675109109µs my $template = $fulltemplate;
1676109814µs109297µs $template =~ s/POSITIONTEMPLATE_//;
# spent 297µs making 109 calls to installer::windows::idtglobal::CORE:subst, avg 3µs/call
1677109115µs $lastposition = $lastposition + 25;
16781091.27ms218406µs ${$sequencetable}[$i] =~ s/$fulltemplate/$lastposition/;
# spent 314µs making 109 calls to installer::windows::idtglobal::CORE:subst, avg 3µs/call # spent 92µs making 109 calls to installer::windows::idtglobal::CORE:regcomp, avg 847ns/call
1679109190µs $infoline = "WARNING: Setting position \"$lastposition\" for custom action \"$customactionname\". Could not find CustomAction \"$template\".\n";
1680109199µs push(@installer::globals::logfileinfo, $infoline);
1681 }
1682 }
1683 }
1684}
1685
1686##########################################################################
1687# Setting the Windows custom actions into different tables
1688# CustomAc.idt, InstallE.idt, InstallU.idt, ControlE.idt, ControlC.idt
1689##########################################################################
1690
1691sub addcustomactions
1692
# spent 132s (447ms+131) within installer::windows::idtglobal::addcustomactions which was called 109 times, avg 1.21s/call: # 109 times (447ms+131s) by installer::run at line 1665 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer.pm, avg 1.21s/call
{
1693109305µs my ($languageidtdir, $customactions, $filesarray) = @_;
1694
1695109602µs10921.5ms installer::logger::include_timestamp_into_logfile("\nPerformance Info: addcustomactions start\n");
# spent 21.5ms making 109 calls to installer::logger::include_timestamp_into_logfile, avg 197µs/call
1696
1697109180µs my $customactionidttablename = $languageidtdir . $installer::globals::separator . "CustomAc.idt";
1698109396µs10940.4ms my $customactionidttable = installer::files::read_file($customactionidttablename);
# spent 40.4ms making 109 calls to installer::files::read_file, avg 371µs/call
1699109191µs my $installexecutetablename = $languageidtdir . $installer::globals::separator . "InstallE.idt";
1700109389µs10963.7ms my $installexecutetable = installer::files::read_file($installexecutetablename);
# spent 63.7ms making 109 calls to installer::files::read_file, avg 585µs/call
1701109199µs my $adminexecutetablename = $languageidtdir . $installer::globals::separator . "AdminExe.idt";
1702109391µs10938.3ms my $adminexecutetable = installer::files::read_file($adminexecutetablename);
# spent 38.3ms making 109 calls to installer::files::read_file, avg 352µs/call
1703109247µs my $installuitablename = $languageidtdir . $installer::globals::separator . "InstallU.idt";
1704109401µs10946.5ms my $installuitable = installer::files::read_file($installuitablename);
# spent 46.5ms making 109 calls to installer::files::read_file, avg 427µs/call
1705109214µs my $controleventtablename = $languageidtdir . $installer::globals::separator . "ControlE.idt";
1706109417µs10995.5ms my $controleventtable = installer::files::read_file($controleventtablename);
# spent 95.5ms making 109 calls to installer::files::read_file, avg 876µs/call
1707109207µs my $controlconditiontablename = $languageidtdir . $installer::globals::separator . "ControlC.idt";
1708109408µs10962.9ms my $controlconditiontable = installer::files::read_file($controlconditiontablename);
# spent 62.9ms making 109 calls to installer::files::read_file, avg 577µs/call
1709
1710 # Iterating over all Windows custom actions
1711
171210913.7ms for ( my $i = 0; $i <= $#{$customactions}; $i++ )
1713 {
171443608.53ms my $customaction = ${$customactions}[$i];
171543609.04ms my $name = $customaction->{'Name'};
171643605.40ms my $typ = $customaction->{'Typ'};
171743604.32ms my $source = $customaction->{'Source'};
171843605.78ms my $target = $customaction->{'Target'};
171943604.06ms my $inbinarytable = $customaction->{'Inbinarytable'};
172043605.33ms my $gid = $customaction->{'gid'};
1721
172243603.64ms my $styles = "";
172343604.38ms if ( $customaction->{'Styles'} ) { $styles = $customaction->{'Styles'}; }
1724
1725436034.2ms4360115s my $added_customaction = set_custom_action($customactionidttable, $name, $typ, $source, $target, $inbinarytable, $filesarray, $customactionidttablename, $styles);
# spent 115s making 4360 calls to installer::windows::idtglobal::set_custom_action, avg 26.3ms/call
1726
1727436018.2ms if ( $added_customaction )
1728 {
1729 # If the CustomAction was added into the CustomAc.idt, it can be connected to the installation.
1730 # There are currently two different ways for doing this:
1731 # 1. Using "add_custom_action_to_install_table", which adds the CustomAction to the install sequences,
1732 # which are saved in InstallE.idt and InstallU.idt
1733 # 2. Using "connect_custom_action_to_control" and "connect_custom_action_to_control". The first method
1734 # connects a CustomAction to a control in ControlE.idt. The second method sets a condition for a control,
1735 # which might be influenced by the CustomAction. This happens in ControlC.idt.
1736
1737 # Any Windows CustomAction can have a lot of different assignments.
1738
1739305216.0ms for ( my $j = 1; $j <= 50; $j++ )
1740 {
1741730318.3ms my $key = "Assignment" . $j;
174273034.14ms my $value = "";
1743730317.2ms if ( $customaction->{$key} )
1744 {
174542513.77ms $value = $customaction->{$key};
1746
1747 # in a patch the Assignment can be overwritten by a PatchAssignment
174842514.35ms if ( $installer::globals::patch )
1749 {
1750 $patchkey = "PatchAssignment" . $j;
1751 if ( $customaction->{$patchkey} )
1752 {
1753 $value = $customaction->{$patchkey};
1754 $key = $patchkey;
1755 }
1756 }
1757
1758 }
175930523.41ms else { last; }
1760
1761 # $value is now a comma separated list
17624251109ms425159.2ms if ( $value =~ /^\s*\(\s*(.*)\s*\);?\s*$/ ) { $value = $1; }
# spent 59.2ms making 4251 calls to installer::windows::idtglobal::CORE:match, avg 14µs/call
1763425138.6ms4251140ms my $assignmentarray = installer::converter::convert_stringlist_into_array(\$value, ",");
# spent 140ms making 4251 calls to installer::converter::convert_stringlist_into_array, avg 33µs/call
1764425118.7ms4251923ms my $assignment = create_customaction_assignment_hash($gid, $name, $key, $assignmentarray);
# spent 923ms making 4251 calls to installer::windows::idtglobal::create_customaction_assignment_hash, avg 217µs/call
1765
1766425159.5ms425112.8s if ( $assignment->{'parameter1'} eq "InstallExecuteSequence" )
# spent 12.8s making 3706 calls to installer::windows::idtglobal::add_custom_action_to_install_table, avg 3.45ms/call # spent 20.3ms making 545 calls to installer::windows::idtglobal::connect_custom_action_to_control, avg 37µs/call
1767 {
1768 add_custom_action_to_install_table($installexecutetable, $source, $name, $assignment->{'parameter2'}, $assignment->{'parameter3'}, $filesarray, $installexecutetablename, $styles);
1769 }
1770 elsif ( $assignment->{'parameter1'} eq "AdminExecuteSequence" )
1771 {
1772 add_custom_action_to_install_table($adminexecutetable, $source, $name, $assignment->{'parameter2'}, $assignment->{'parameter3'}, $filesarray, $adminexecutetablename, $styles);
1773 }
1774 elsif ( $assignment->{'parameter1'} eq "InstallUISequence" )
1775 {
1776 add_custom_action_to_install_table($installuitable, $source, $name, $assignment->{'parameter2'}, $assignment->{'parameter3'}, $filesarray, $installuitablename, $styles);
1777 }
1778 elsif ( $assignment->{'parameter1'} eq "ControlEvent" )
1779 {
1780 connect_custom_action_to_control($controleventtable, $controleventtablename, $assignment->{'parameter2'}, $assignment->{'parameter3'}, $assignment->{'parameter4'}, $assignment->{'parameter5'}, $assignment->{'parameter6'}, $assignment->{'parameter7'});
1781 }
1782 elsif ( $assignment->{'parameter1'} eq "ControlCondition" )
1783 {
1784 connect_condition_to_control($controlconditiontable, $controlconditiontablename, $assignment->{'parameter2'}, $assignment->{'parameter3'}, $assignment->{'parameter4'}, $assignment->{'parameter5'});
1785 }
1786 else
1787 {
1788 installer::exiter::exit_program("ERROR: gid: $gid, key: $key ! Unknown Windows CustomAction table: $assignmenthashref->{'parameter1'} ! Currently supported: InstallUISequence, InstallESequence, ControlEvent, ControlCondition", "addcustomactions");
1789 }
1790 }
1791 }
1792 }
1793
1794 # Setting the positions in the tables
1795
1796109742µs1091.67s set_positions_in_table($installexecutetable, $installexecutetablename);
# spent 1.67s making 109 calls to installer::windows::idtglobal::set_positions_in_table, avg 15.3ms/call
1797109330µs109308ms set_positions_in_table($installuitable, $installuitablename);
# spent 308ms making 109 calls to installer::windows::idtglobal::set_positions_in_table, avg 2.82ms/call
1798109306µs10969.6ms set_positions_in_table($adminexecutetable, $adminexecutetablename);
# spent 69.6ms making 109 calls to installer::windows::idtglobal::set_positions_in_table, avg 639µs/call
1799
1800 # Saving the files
1801
1802109621µs10988.7ms installer::files::save_file($customactionidttablename, $customactionidttable);
# spent 88.7ms making 109 calls to installer::files::save_file, avg 814µs/call
1803109489µs10947.3ms installer::files::save_file($installexecutetablename, $installexecutetable);
# spent 47.3ms making 109 calls to installer::files::save_file, avg 434µs/call
1804109427µs10944.8ms installer::files::save_file($adminexecutetablename, $adminexecutetable);
# spent 44.8ms making 109 calls to installer::files::save_file, avg 411µs/call
1805109454µs10943.3ms installer::files::save_file($installuitablename, $installuitable);
# spent 43.3ms making 109 calls to installer::files::save_file, avg 397µs/call
1806109448µs10950.7ms installer::files::save_file($controleventtablename, $controleventtable);
# spent 50.7ms making 109 calls to installer::files::save_file, avg 465µs/call
1807109477µs10945.5ms installer::files::save_file($controlconditiontablename, $controlconditiontable);
# spent 45.5ms making 109 calls to installer::files::save_file, avg 418µs/call
1808
1809109251µs my $infoline = "Updated idt file: $customactionidttablename\n";
1810109228µs push(@installer::globals::logfileinfo, $infoline);
1811109132µs $infoline = "Updated idt file: $installexecutetablename\n";
1812109125µs push(@installer::globals::logfileinfo, $infoline);
1813109107µs $infoline = "Updated idt file: $adminexecutetablename\n";
1814109133µs push(@installer::globals::logfileinfo, $infoline);
1815109144µs $infoline = "Updated idt file: $installuitablename\n";
1816109125µs push(@installer::globals::logfileinfo, $infoline);
1817109106µs $infoline = "Updated idt file: $controleventtablename\n";
1818109128µs push(@installer::globals::logfileinfo, $infoline);
1819109131µs $infoline = "Updated idt file: $controlconditiontablename\n";
1820109140µs push(@installer::globals::logfileinfo, $infoline);
1821
182210917.9ms10919.9ms installer::logger::include_timestamp_into_logfile("\nPerformance Info: addcustomactions end\n");
# spent 19.9ms making 109 calls to installer::logger::include_timestamp_into_logfile, avg 183µs/call
1823}
1824
1825##########################################################################
1826# Setting bidi attributes in idt tables
1827##########################################################################
1828
1829sub setbidiattributes
1830
# spent 43.9ms (25.8+18.2) within installer::windows::idtglobal::setbidiattributes which was called 4 times, avg 11.0ms/call: # 4 times (25.8ms+18.2ms) by installer::run at line 1612 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer.pm, avg 11.0ms/call
{
1831416µs my ($languageidtdir, $onelanguage) = @_;
1832
1833 # Editing the files Dialog.idt and Control.idt
1834
1835414µs my $dialogfilename = $languageidtdir . $installer::globals::separator . "Dialog.idt";
183648µs my $controlfilename = $languageidtdir . $installer::globals::separator . "Control.idt";
1837
1838415µs41.79ms my $dialogfile = installer::files::read_file($dialogfilename);
# spent 1.79ms making 4 calls to installer::files::read_file, avg 448µs/call
1839414µs46.30ms my $controlfile = installer::files::read_file($controlfilename);
# spent 6.30ms making 4 calls to installer::files::read_file, avg 1.58ms/call
1840
1841 # Searching attributes in Dialog.idt and adding "896".
1842 # Attributes are in column 6 (from 10).
1843
184444µs my $bidiattribute = 896;
18454180µs for ( my $i = 0; $i <= $#{$dialogfile}; $i++ )
1846 {
184714472µs if ( $i < 3 ) { next; }
18481201.27ms120722µs if ( ${$dialogfile}[$i] =~ /^\s*(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\s*$/ )
# spent 722µs making 120 calls to installer::windows::idtglobal::CORE:match, avg 6µs/call
1849 {
1850120133µs my $one = $1;
185112091µs my $two = $2;
185212083µs my $three = $3;
185312079µs my $four = $4;
185412076µs my $five = $5;
185512078µs my $attribute = $6;
1856120101µs my $seven = $7;
185712089µs my $eight = $8;
1858120104µs $attribute = $attribute + $bidiattribute;
1859120360µs ${$dialogfile}[$i] = "$one\t$two\t$three\t$four\t$five\t$attribute\t$seven\t$eight\n";
1860 }
1861 }
1862
1863 # Searching attributes in Control.idt and adding "224".
1864 # Attributes are in column 8 (from 12).
1865
186643µs $bidiattribute = 224;
186741.58ms for ( my $i = 0; $i <= $#{$controlfile}; $i++ )
1868 {
18691268552µs if ( $i < 3 ) { next; }
1870124410.8ms12445.37ms if ( ${$controlfile}[$i] =~ /^\s*(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\s*$/ )
# spent 5.37ms making 1244 calls to installer::windows::idtglobal::CORE:match, avg 4µs/call
1871 {
187212441.25ms my $one = $1;
18731244913µs my $two = $2;
18741244898µs my $three = $3;
18751244788µs my $four = $4;
18761244757µs my $five = $5;
18771244775µs my $six = $6;
18781244791µs my $seven = $7;
18791244887µs my $attribute = $8;
18801244856µs my $nine = $9;
18811244911µs my $ten = $10;
18821244866µs my $eleven = $11;
18831244766µs my $twelve = $12;
18841244877µs $attribute = $attribute + $bidiattribute;
188512444.26ms ${$controlfile}[$i] = "$one\t$two\t$three\t$four\t$five\t$six\t$seven\t$attribute\t$nine\t$ten\t$eleven\t$twelve\n";
1886 }
1887 }
1888
1889 # Saving the file
1890
1891422µs42.01ms installer::files::save_file($dialogfilename, $dialogfile);
# spent 2.01ms making 4 calls to installer::files::save_file, avg 502µs/call
1892413µs $infoline = "Set bidi support in idt file \"$dialogfilename\" for language $onelanguage\n";
189349µs push(@installer::globals::logfileinfo, $infoline);
1894
1895414µs41.97ms installer::files::save_file($controlfilename, $controlfile);
# spent 1.97ms making 4 calls to installer::files::save_file, avg 494µs/call
1896411µs $infoline = "Set bidi support in idt file \"$controlfilename\" for language $onelanguage\n";
18974472µs push(@installer::globals::logfileinfo, $infoline);
1898}
1899
190019µs1;
 
# spent 27.0ms within installer::windows::idtglobal::CORE:ftdir which was called 218 times, avg 124µs/call: # 109 times (18.9ms+0s) by installer::windows::idtglobal::prepare_language_idt_directory at line 784, avg 173µs/call # 109 times (8.17ms+0s) by installer::windows::idtglobal::prepare_language_idt_directory at line 759, avg 75µs/call
sub installer::windows::idtglobal::CORE:ftdir; # opcode
# spent 321s within installer::windows::idtglobal::CORE:match which was called 492176334 times, avg 651ns/call: # 481707115 times (310s+0s) by installer::windows::idtglobal::get_language_block_from_language_file at line 629, avg 644ns/call # 6521361 times (6.26s+0s) by installer::windows::idtglobal::get_language_block_from_language_file at line 639, avg 959ns/call # 3284169 times (2.50s+0s) by installer::windows::idtglobal::get_language_string_from_language_block at line 662, avg 762ns/call # 202522 times (278ms+0s) by installer::windows::idtglobal::make_eight_three_conform at line 162, avg 1µs/call # 126004 times (324ms+0s) by installer::windows::idtglobal::get_customaction_position at line 1555, avg 3µs/call # 72267 times (241ms+0s) by installer::windows::idtglobal::translate_idtfile at line 723, avg 3µs/call # 58752 times (104ms+0s) by installer::windows::idtglobal::get_language_block_from_language_file at line 636, avg 2µs/call # 58315 times (50.5ms+0s) by installer::windows::idtglobal::translate_idtfile at line 727, avg 866ns/call # 47197 times (38.9ms+0s) by installer::windows::idtglobal::set_positions_in_table at line 1616, avg 824ns/call # 16350 times (41.1ms+0s) by installer::windows::idtglobal::get_last_position_in_sequencetable at line 948, avg 3µs/call # 16350 times (12.0ms+0s) by installer::windows::idtglobal::set_positions_in_table at line 1589, avg 731ns/call # 15888 times (59.7ms+0s) by installer::windows::idtglobal::make_eight_three_conform_with_hash at line 274, avg 4µs/call # 15542 times (53.2ms+0s) by installer::windows::idtglobal::make_eight_three_conform_with_hash at line 280, avg 3µs/call # 10464 times (5.87ms+0s) by installer::windows::idtglobal::set_positions_in_table at line 1671, avg 561ns/call # 4360 times (5.85ms+0s) by installer::windows::idtglobal::set_custom_action at line 1018, avg 1µs/call # 4251 times (59.2ms+0s) by installer::windows::idtglobal::addcustomactions at line 1762, avg 14µs/call # 3706 times (13.9ms+0s) by installer::windows::idtglobal::add_custom_action_to_install_table at line 1154, avg 4µs/call # 3706 times (13.9ms+0s) by installer::windows::idtglobal::add_custom_action_to_install_table at line 1133, avg 4µs/call # 3706 times (3.03ms+0s) by installer::windows::idtglobal::add_custom_action_to_install_table at line 1095, avg 818ns/call # 2943 times (2.11ms+0s) by installer::windows::idtglobal::set_positions_in_table at line 1629, avg 716ns/call # 1244 times (5.37ms+0s) by installer::windows::idtglobal::setbidiattributes at line 1870, avg 4µs/call # 120 times (722µs+0s) by installer::windows::idtglobal::setbidiattributes at line 1848, avg 6µs/call # 2 times (6µs+0s) by installer::windows::idtglobal::get_language_string_from_language_block at line 675, avg 3µs/call
sub installer::windows::idtglobal::CORE:match; # opcode
# spent 385s within installer::windows::idtglobal::CORE:regcomp which was called 485110314 times, avg 793ns/call: # 481707115 times (380s+0s) by installer::windows::idtglobal::get_language_block_from_language_file at line 629, avg 790ns/call # 3284169 times (2.55s+0s) by installer::windows::idtglobal::get_language_string_from_language_block at line 662, avg 777ns/call # 58315 times (1.18s+0s) by installer::windows::idtglobal::translate_idtfile at line 737, avg 20µs/call # 58315 times (714ms+0s) by installer::windows::idtglobal::translate_idtfile at line 727, avg 12µs/call # 2289 times (29.6ms+0s) by installer::windows::idtglobal::set_positions_in_table at line 1642, avg 13µs/call # 109 times (92µs+0s) by installer::windows::idtglobal::set_positions_in_table at line 1678, avg 847ns/call # 2 times (18µs+0s) by installer::windows::idtglobal::get_language_string_from_language_block at line 675, avg 9µs/call
sub installer::windows::idtglobal::CORE:regcomp; # opcode
# spent 9.35ms within installer::windows::idtglobal::CORE:sort which was called 218 times, avg 43µs/call: # 109 times (8.91ms+0s) by installer::windows::idtglobal::set_multilanguageonly_condition at line 1408, avg 82µs/call # 109 times (442µs+0s) by installer::windows::idtglobal::set_multilanguageonly_condition at line 1427, avg 4µs/call
sub installer::windows::idtglobal::CORE:sort; # opcode
# spent 7.65s within installer::windows::idtglobal::CORE:subst which was called 9988397 times, avg 765ns/call: # 6186404 times (3.61s+0s) by installer::windows::idtglobal::setencoding at line 1381, avg 584ns/call # 375961 times (928ms+0s) by installer::windows::idtglobal::shorten_feature_gid at line 50, avg 2µs/call # 375961 times (402ms+0s) by installer::windows::idtglobal::shorten_feature_gid at line 52, avg 1µs/call # 375961 times (225ms+0s) by installer::windows::idtglobal::shorten_feature_gid at line 53, avg 599ns/call # 375961 times (208ms+0s) by installer::windows::idtglobal::shorten_feature_gid at line 51, avg 554ns/call # 375961 times (204ms+0s) by installer::windows::idtglobal::shorten_feature_gid at line 54, avg 541ns/call # 375961 times (193ms+0s) by installer::windows::idtglobal::shorten_feature_gid at line 55, avg 513ns/call # 375961 times (192ms+0s) by installer::windows::idtglobal::shorten_feature_gid at line 57, avg 512ns/call # 375961 times (187ms+0s) by installer::windows::idtglobal::shorten_feature_gid at line 56, avg 498ns/call # 375961 times (183ms+0s) by installer::windows::idtglobal::shorten_feature_gid at line 58, avg 487ns/call # 58315 times (334ms+0s) by installer::windows::idtglobal::translate_idtfile at line 737, avg 6µs/call # 58315 times (145ms+0s) by installer::windows::idtglobal::translate_idtfile at line 727, avg 2µs/call # 45889 times (167ms+0s) by installer::windows::idtglobal::make_eight_three_conform at line 222, avg 4µs/call # 45017 times (151ms+0s) by installer::windows::idtglobal::make_eight_three_conform at line 246, avg 3µs/call # 35643 times (131ms+0s) by installer::windows::idtglobal::make_eight_three_conform at line 231, avg 4µs/call # 24198 times (151ms+0s) by installer::windows::idtglobal::make_eight_three_conform at line 238, avg 6µs/call # 15542 times (21.0ms+0s) by installer::windows::idtglobal::make_eight_three_conform_with_hash at line 281, avg 1µs/call # 14933 times (26.0ms+0s) by installer::windows::idtglobal::fill_assignment_hash at line 1468, avg 2µs/call # 14933 times (9.00ms+0s) by installer::windows::idtglobal::fill_assignment_hash at line 1469, avg 603ns/call # 14933 times (8.82ms+0s) by installer::windows::idtglobal::fill_assignment_hash at line 1470, avg 591ns/call # 14933 times (8.51ms+0s) by installer::windows::idtglobal::set_multilanguageonly_condition at line 1420, avg 570ns/call # 14933 times (7.99ms+0s) by installer::windows::idtglobal::set_multilanguageonly_condition at line 1439, avg 535ns/call # 14933 times (7.36ms+0s) by installer::windows::idtglobal::fill_assignment_hash at line 1471, avg 493ns/call # 14933 times (7.11ms+0s) by installer::windows::idtglobal::fill_assignment_hash at line 1472, avg 476ns/call # 6229 times (20.9ms+0s) by installer::windows::idtglobal::make_eight_three_conform_with_hash at line 301, avg 3µs/call # 4612 times (14.5ms+0s) by installer::windows::idtglobal::make_eight_three_conform_with_hash at line 310, avg 3µs/call # 4360 times (32.7ms+0s) by installer::windows::idtglobal::set_custom_action at line 1032, avg 7µs/call # 3706 times (5.66ms+0s) by installer::windows::idtglobal::add_custom_action_to_install_table at line 1145, avg 2µs/call # 2943 times (6.37ms+0s) by installer::windows::idtglobal::set_positions_in_table at line 1622, avg 2µs/call # 2496 times (7.58ms+0s) by installer::windows::idtglobal::make_eight_three_conform_with_hash at line 319, avg 3µs/call # 2289 times (6.29ms+0s) by installer::windows::idtglobal::set_positions_in_table at line 1642, avg 3µs/call # 1308 times (3.53ms+0s) by installer::windows::idtglobal::set_positions_in_table at line 1593, avg 3µs/call # 872 times (5.95ms+0s) by installer::windows::idtglobal::get_languagefilename at line 609, avg 7µs/call # 545 times (9.83ms+0s) by installer::windows::idtglobal::connect_custom_action_to_control at line 1182, avg 18µs/call # 337 times (1.50ms+0s) by installer::windows::idtglobal::make_eight_three_conform_with_hash at line 348, avg 4µs/call # 321 times (1.18ms+0s) by installer::windows::idtglobal::make_eight_three_conform_with_hash at line 357, avg 4µs/call # 222 times (795µs+0s) by installer::windows::idtglobal::make_eight_three_conform_with_hash at line 366, avg 4µs/call # 109 times (18.1ms+0s) by installer::windows::idtglobal::set_multilanguageonly_condition at line 1414, avg 166µs/call # 109 times (1.12ms+0s) by installer::windows::idtglobal::set_multilanguageonly_condition at line 1433, avg 10µs/call # 109 times (925µs+0s) by installer::windows::idtglobal::set_multilanguageonly_condition at line 1413, avg 8µs/call # 109 times (336µs+0s) by installer::windows::idtglobal::set_multilanguageonly_condition at line 1432, avg 3µs/call # 109 times (314µs+0s) by installer::windows::idtglobal::set_positions_in_table at line 1678, avg 3µs/call # 109 times (297µs+0s) by installer::windows::idtglobal::set_positions_in_table at line 1676, avg 3µs/call
sub installer::windows::idtglobal::CORE:subst; # opcode
Report produced by the NYTProf 4.09 Perl profiler, developed by Tim Bunce and Adam Kaplan.