| Filename | /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/binary.pm |
| Statements | Executed 9597 statements in 23.0ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 109 | 1 | 1 | 18.9ms | 107ms | installer::windows::binary::update_binary_table |
| 981 | 1 | 1 | 4.20ms | 4.20ms | installer::windows::binary::CORE:subst (opcode) |
| 1 | 1 | 1 | 369µs | 372µs | installer::windows::binary::BEGIN@30 |
| 1 | 1 | 1 | 15µs | 17µs | installer::windows::binary::BEGIN@31 |
| 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 | |||||
| 28 | package installer::windows::binary; | ||||
| 29 | |||||
| 30 | 2 | 61µs | 2 | 375µs | # spent 372µs (369+3) within installer::windows::binary::BEGIN@30 which was called:
# once (369µs+3µs) by installer::BEGIN@62 at line 30 # spent 372µs making 1 call to installer::windows::binary::BEGIN@30
# spent 3µs making 1 call to UNIVERSAL::import |
| 31 | 2 | 419µs | 2 | 19µs | # spent 17µs (15+2) within installer::windows::binary::BEGIN@31 which was called:
# once (15µs+2µs) by installer::BEGIN@62 at line 31 # spent 17µs making 1 call to installer::windows::binary::BEGIN@31
# spent 2µs making 1 call to UNIVERSAL::import |
| 32 | |||||
| 33 | ########################################################################################################### | ||||
| 34 | # Updating the table Binary dynamically with all files from $binarytablefiles | ||||
| 35 | # Content: | ||||
| 36 | # Name Data | ||||
| 37 | # s72 v0 | ||||
| 38 | # Binary Name | ||||
| 39 | ########################################################################################################### | ||||
| 40 | |||||
| 41 | sub update_binary_table | ||||
| 42 | # spent 107ms (18.9+88.2) within installer::windows::binary::update_binary_table which was called 109 times, avg 983µs/call:
# 109 times (18.9ms+88.2ms) by installer::run at line 1661 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer.pm, avg 983µs/call | ||||
| 43 | 763 | 4.74ms | my ($languageidtdir, $filesref, $binarytablefiles) = @_; | ||
| 44 | |||||
| 45 | my $binaryidttablename = $languageidtdir . $installer::globals::separator . "Binary.idt"; | ||||
| 46 | 109 | 40.9ms | my $binaryidttable = installer::files::read_file($binaryidttablename); # spent 40.9ms making 109 calls to installer::files::read_file, avg 376µs/call | ||
| 47 | |||||
| 48 | # Only the iconfiles, that are used in the shortcut table for the | ||||
| 49 | # FolderItems (entries in Windows startmenu) are added into the icon table. | ||||
| 50 | |||||
| 51 | 8829 | 17.8ms | for ( my $i = 0; $i <= $#{$binarytablefiles}; $i++ ) | ||
| 52 | { | ||||
| 53 | my $binaryfile = ${$binarytablefiles}[$i]; | ||||
| 54 | my $binaryfilename = $binaryfile->{'Name'}; | ||||
| 55 | my $binaryfiledata = $binaryfilename; | ||||
| 56 | |||||
| 57 | 981 | 4.20ms | $binaryfilename =~ s/\.//g; # removing "." in filename: "abc.dll" to "abcdll" in name column # spent 4.20ms making 981 calls to installer::windows::binary::CORE:subst, avg 4µs/call | ||
| 58 | |||||
| 59 | my %binary = (); | ||||
| 60 | |||||
| 61 | $binary{'Name'} = $binaryfilename; | ||||
| 62 | $binary{'Data'} = $binaryfiledata; | ||||
| 63 | |||||
| 64 | my $oneline = $binary{'Name'} . "\t" . $binary{'Data'} . "\n"; | ||||
| 65 | |||||
| 66 | push(@{$binaryidttable}, $oneline); | ||||
| 67 | } | ||||
| 68 | |||||
| 69 | # Saving the file | ||||
| 70 | |||||
| 71 | 109 | 43.1ms | installer::files::save_file($binaryidttablename ,$binaryidttable); # spent 43.1ms making 109 calls to installer::files::save_file, avg 395µs/call | ||
| 72 | my $infoline = "Updated idt file: $binaryidttablename\n"; | ||||
| 73 | push(@installer::globals::logfileinfo, $infoline); | ||||
| 74 | } | ||||
| 75 | |||||
| 76 | 1 | 7µs | 1; | ||
# spent 4.20ms within installer::windows::binary::CORE:subst which was called 981 times, avg 4µs/call:
# 981 times (4.20ms+0s) by installer::windows::binary::update_binary_table at line 57, avg 4µs/call |