package Rpmdrake::formatting; #***************************************************************************** # # Copyright (c) 2002 Guillaume Cottenceau # Copyright (c) 2002-2006 Thierry Vignaud # Copyright (c) 2003, 2004, 2005 MandrakeSoft SA # Copyright (c) 2005, 2006 Mandriva SA # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License version 2, as # published by the Free Software Foundation. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # #***************************************************************************** # # $Id: formatting.pm 261189 2009-10-01 14:44:39Z tv $ use strict; use utf8; use POSIX qw(strftime); use rpmdrake; use lib qw(/usr/lib/libDrakX); use common; use ugtk2 qw(escape_text_for_TextView_markup_format); use Exporter; our @ISA = qw(Exporter); our @EXPORT = qw( $spacing ensure_utf8 format_changelog_changelogs format_changelog_string format_field format_header format_list format_name_n_summary format_size format_filesize format_update_field my_fullname pkg2medium rpm_description split_fullname urpm_name version_release ); # from rpmtools, #37482: sub ensure_utf8 { if (utf8::is_utf8($_[0])) { utf8::valid($_[0]) and return; utf8::encode($_[0]); #- disable utf8 flag utf8::upgrade($_[0]); } else { utf8::decode($_[0]); #- try to set utf8 flag utf8::valid($_[0]) and return; warn "do not know what to with $_[0]\n"; } } sub rpm_description { my ($description) = @_; ensure_utf8($description); my ($t, $tmp); foreach (split "\n", $description) { s/^\s*//; if (/^$/ || /^\s*(-|\*|\+|o)\s/) { $t || $tmp and $t .= "$tmp\n"; $tmp = $_; } else { $tmp = ($tmp ? "$tmp " : ($t && "\n") . $tmp) . $_; } } "$t$tmp\n"; } sub split_fullname { $_[0] =~ /^(.*)-([^-]+)-([^-]+)\.([^.-]+)$/ } sub my_fullname { return '?-?-?' unless ref $_[0]; my ($name, $version, $release) = $_[0]->fullname; "$name-$version-$release"; } sub version_release { my (undef, $version, $release) = $_[0]->fullname; "$version-$release"; } sub urpm_name { return '?-?-?.?' unless ref $_[0]; scalar $_[0]->fullname; } sub pkg2medium { my ($p, $urpm) = @_; return if !ref $p; return { name => N("None (installed)") } if !defined($p->id); # if installed URPM::pkg2media($urpm->{media}, $p) || { name => N("Unknown"), fake => 1 }; } # [ duplicate urpmi's urpm::msg::localtime2changelog() ] #- strftime returns a string in the locale charset encoding; #- but gtk2 requires UTF-8, so we use to_utf8() to ensure the #- output of localtime2changelog() is always in UTF-8 #- as to_utf8() uses LC_CTYPE for locale encoding and strftime() uses LC_TIME, #- it doesn't work if those two variables have values with different #- encodings; but if a user has a so broken setup we can't do much anyway sub localtime2changelog { to_utf8(POSIX::strftime("%c", localtime($_[0]))) } our $spacing = " "; sub format_changelog_string { my ($installed_version, $string) = @_; #- preprocess changelog for faster TextView insert reaction require Gtk2::Pango; my %date_attr = ('weight' => Gtk2::Pango->PANGO_WEIGHT_BOLD); my %update_attr = ('style' => 'italic'); my $version; my $highlight; [ map { my %attrs; if (/^\*/) { add2hash(\%attrs, \%date_attr); ($version) = /(\S*-\S*)\s*$/; $highlight = $installed_version ne N("(none)") && 0 < URPM::rpmvercmp($version, $installed_version); } add2hash(\%attrs, \%update_attr) if $highlight; [ "$spacing$_\n", if_(%attrs, \%attrs) ]; } split("\n", $string) ]; } sub format_changelog_changelogs { my ($installed_version, @changelogs) = @_; format_changelog_string($installed_version, join("\n", map { "* " . localtime2changelog($_->{time}) . " $_->{name}\n\n$_->{text}\n"; } @changelogs)); } sub format_update_field { my ($name) = @_; '' . eval { escape_text_for_TextView_markup_format($name) } . ''; } sub format_name_n_summary { my ($name, $summary) = @_; join("\n", '' . $name . '', escape_text_for_TextView_markup_format($summary)); } sub format_header { my ($str) = @_; '' . escape_text_for_TextView_markup_format($str) . ''; } sub format_field { my ($str) = @_; '' . escape_text_for_TextView_markup_format($str) . ''; } sub format_size { my ($size) = @_; $size >= 0 ? N("%s of additional disk space will be used.", formatXiB($size)) : N("%s of disk space will be freed.", formatXiB(-$size)); } sub format_filesize { my ($filesize) = @_; $filesize ? N("%s of packages will be retrieved.", formatXiB($filesize)) : (); } sub format_list { join("\n", map { s/^(\s)/ $1/mg; "- $_" } sort { uc($a) cmp uc($b) } @_) } 1;