1 #*************************************************************************
3 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
5 # Copyright 2008 by Sun Microsystems, Inc.
7 # OpenOffice.org - a multi-platform office productivity suite
9 # $RCSfile: font.pm,v $
13 # This file is part of OpenOffice.org.
15 # OpenOffice.org is free software: you can redistribute it and/or modify
16 # it under the terms of the GNU Lesser General Public License version 3
17 # only, as published by the Free Software Foundation.
19 # OpenOffice.org is distributed in the hope that it will be useful,
20 # but WITHOUT ANY WARRANTY; without even the implied warranty of
21 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 # GNU Lesser General Public License version 3 for more details
23 # (a copy is included in the LICENSE file that accompanied this code).
25 # You should have received a copy of the GNU Lesser General Public License
26 # version 3 along with OpenOffice.org. If not, see
27 # <http://www.openoffice.org/license.html>
28 # for a copy of the LGPLv3 License.
30 #*************************************************************************
32 package installer
::windows
::font
;
35 use installer
::globals
;
36 use installer
::windows
::idtglobal
;
39 #################################################################################
40 # Creating the file Font.idt dynamically
43 #################################################################################
47 my ($filesref, $basedir) = @_;
51 installer
::windows
::idtglobal
::write_idt_header
(\
@fonttable, "font");
53 for ( my $i = 0; $i <= $#{$filesref}; $i++ )
55 my $onefile = ${$filesref}[$i];
58 if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; }
60 if ( $styles =~ /\bFONT\b/ )
64 $font{'File_'} = $onefile->{'uniquename'};
65 # $font{'FontTitle'} = $onefile->{'FontName'}; # results in a warning during validation
66 $font{'FontTitle'} = "";
68 my $oneline = $font{'File_'} . "\t" . $font{'FontTitle'} . "\n";
70 push(@fonttable, $oneline);
76 my $fonttablename = $basedir . $installer::globals
::separator
. "Font.idt";
77 installer
::files
::save_file
($fonttablename ,\
@fonttable);
78 my $infoline = "Created idt file: $fonttablename\n";
79 push(@installer::globals
::logfileinfo
, $infoline);
83 #################################################################################
84 # Reading the Font version from the ttf file, to avoid installation
85 # of older files over newer files.
86 #################################################################################
90 my ( $fontfile ) = @_;
92 if ( ! -f
$fontfile ) { installer
::exiter
::exit_program
("ERROR: Font file does not exist: \"$fontfile\"", "get_font_version"); }
97 my $onefile = installer
::files
::read_binary_file
($fontfile);
99 if ( $onefile =~ /Version\s+(\d+\.\d+\.*\d*)/ )
102 $infoline = "FONT: Font \"$fontfile\" version: $fontversion\n";
103 push(@installer::globals
::logfileinfo
, $infoline);
107 $infoline = "FONT: Could not determine font version: \"$fontfile\"\n";
108 push(@installer::globals
::logfileinfo
, $infoline);