Filename | /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/windows/font.pm |
Statements | Executed 63842 statements in 112ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 103ms | 112ms | create_font_table | installer::windows::font::
15888 | 1 | 1 | 8.20ms | 8.20ms | CORE:match (opcode) | installer::windows::font::
1 | 1 | 1 | 420µs | 424µs | BEGIN@30 | installer::windows::font::
1 | 1 | 1 | 14µs | 17µs | BEGIN@31 | installer::windows::font::
1 | 1 | 1 | 13µs | 15µs | BEGIN@32 | installer::windows::font::
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::font; | ||||
29 | |||||
30 | 2 | 62µs | 2 | 427µs | # spent 424µs (420+4) within installer::windows::font::BEGIN@30 which was called:
# once (420µs+4µs) by installer::windows::file::BEGIN@37 at line 30 # spent 424µs making 1 call to installer::windows::font::BEGIN@30
# spent 4µs making 1 call to UNIVERSAL::import |
31 | 2 | 54µs | 2 | 20µs | # spent 17µs (14+3) within installer::windows::font::BEGIN@31 which was called:
# once (14µs+3µs) by installer::windows::file::BEGIN@37 at line 31 # spent 17µs making 1 call to installer::windows::font::BEGIN@31
# spent 3µs making 1 call to UNIVERSAL::import |
32 | 2 | 449µs | 2 | 17µs | # spent 15µs (13+2) within installer::windows::font::BEGIN@32 which was called:
# once (13µs+2µs) by installer::windows::file::BEGIN@37 at line 32 # spent 15µs making 1 call to installer::windows::font::BEGIN@32
# spent 2µs making 1 call to UNIVERSAL::import |
33 | |||||
34 | |||||
35 | ################################################################################# | ||||
36 | # Creating the file Font.idt dynamically | ||||
37 | # Content: | ||||
38 | # File_ FontTitle | ||||
39 | ################################################################################# | ||||
40 | |||||
41 | sub create_font_table | ||||
42 | # spent 112ms (103+9.37) within installer::windows::font::create_font_table which was called:
# once (103ms+9.37ms) by installer::run at line 1513 of /cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer.pm | ||||
43 | 63835 | 111ms | my ($filesref, $basedir) = @_; | ||
44 | |||||
45 | my @fonttable = (); | ||||
46 | |||||
47 | 1 | 28µs | installer::windows::idtglobal::write_idt_header(\@fonttable, "font"); # spent 28µs making 1 call to installer::windows::idtglobal::write_idt_header | ||
48 | |||||
49 | for ( my $i = 0; $i <= $#{$filesref}; $i++ ) | ||||
50 | { | ||||
51 | my $onefile = ${$filesref}[$i]; | ||||
52 | my $styles = ""; | ||||
53 | |||||
54 | if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; } | ||||
55 | |||||
56 | 15888 | 8.20ms | if ( $styles =~ /\bFONT\b/ ) # spent 8.20ms making 15888 calls to installer::windows::font::CORE:match, avg 516ns/call | ||
57 | { | ||||
58 | my %font = (); | ||||
59 | |||||
60 | $font{'File_'} = $onefile->{'uniquename'}; | ||||
61 | $font{'FontTitle'} = ""; | ||||
62 | |||||
63 | my $oneline = $font{'File_'} . "\t" . $font{'FontTitle'} . "\n"; | ||||
64 | |||||
65 | push(@fonttable, $oneline); | ||||
66 | } | ||||
67 | } | ||||
68 | |||||
69 | # Saving the file | ||||
70 | |||||
71 | my $fonttablename = $basedir . $installer::globals::separator . "Font.idt"; | ||||
72 | 1 | 1.14ms | installer::files::save_file($fonttablename ,\@fonttable); # spent 1.14ms making 1 call to installer::files::save_file | ||
73 | my $infoline = "Created idt file: $fonttablename\n"; | ||||
74 | push(@installer::globals::logfileinfo, $infoline); | ||||
75 | |||||
76 | } | ||||
77 | |||||
78 | 1 | 7µs | 1; | ||
# spent 8.20ms within installer::windows::font::CORE:match which was called 15888 times, avg 516ns/call:
# 15888 times (8.20ms+0s) by installer::windows::font::create_font_table at line 56, avg 516ns/call |