From fa0165eccf51ebcd2dd0a72afe3f1b792aefcc2d Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Thu, 11 Oct 2001 12:30:11 +0000
Subject: code review

---
 perl-install/standalone/drakfont | 88 +++++++++++++++++++++-------------------
 1 file changed, 46 insertions(+), 42 deletions(-)

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 393febe1f..66b126df2 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -104,34 +104,32 @@ my $chkfontpath = '/usr/sbin/chkfontpath';
 my $part;
 my @list_part;
 my @test;
-my @font_list = ();
-my @installed_fonts = ();
-my @installed_fonts_path = ();
-my @fontsdir_to_install= ();
-my @fontsdir_to_uninstall= ();
-my @installed_fonts_full_path = (); 
+my @font_list;
+my @installed_fonts;
+my @installed_fonts_path;
+my @fontsdir_to_install;
+my @fontsdir_to_uninstall;
+my @installed_fonts_full_path;
 
 
-sub search_installed_fonts {
+sub list_fontpath {
     foreach (grep { /\d+:\s/ } `$chkfontpath -l`) {
 	chomp;
 	s/\d+:\s//gi;
 	s/:\w*$//gi;
 	push @installed_fonts_path, $_;
     }
+}
+
+sub search_installed_fonts {
+    list_fontpath();
     push @installed_fonts, all($_) foreach @installed_fonts_path;
 }
 
 sub search_installed_fonts_full_path {
-    my $j;
-    foreach (grep { /\d+:\s/ } `$chkfontpath -l`) {
-	chomp;
-	s/\d+:\s//gi;
-	s/:\w*$//gi;
-	push @installed_fonts_path, $_;
-    }
+    list_fontpath();
     foreach my $i (@installed_fonts_path) {
-	foreach $j (all($i)) {
+	foreach my $j (all($i)) {
 	    push @installed_fonts_full_path, "$i/$j";
 	}
     }
@@ -146,16 +144,21 @@ sub search_windows_font {
 	    print "drakfont:: could not find any font in $win_dir/win*/fonts \n";
 	    return 0;
 	}
-	if (!$replace)
-	  {
-	      foreach my $i (@list_fonts_win) {
-		  grep ( /$i$/, @font_list) || grep (/$i/, @installed_fonts) or push @font_list, "$win_dir/windows/fonts/$i";
-	      }
-	      foreach my $i (@list_fonts_winnt) {
-		  grep ( /$i$/, @font_list) || grep (/$i/, @installed_fonts) or push @font_list, "$win_dir/winnt/fonts/$i";
-	      }
-	  }
-	else {
+	# TODO : handle replace like on the other function
+	if (!$replace) {
+	    foreach ([\@list_fonts_win, "windows"], [\@list_fonts_winnt, "winnt"]) {
+		foreach my $i (@{$_[0]}) {
+		    grep ( /$i$/, @font_list) || grep (/$i/, @installed_fonts) or push @font_list, "$win_dir/$_[1]/fonts/$i";
+		}
+	    }
+#		    foreach my $i (@list_fonts_win) {
+#			grep ( /$i$/, @font_list) || grep (/$i/, @installed_fonts) or push @font_list, "$win_dir/windows/fonts/$i";
+#	      foreach my $i (@list_fonts_winnt) {
+#		  grep ( /$i$/, @font_list) || grep (/$i/, @installed_fonts) or push @font_list, "$win_dir/winnt/fonts/$i";
+#	      }
+	} else {
+#	    foreach ([\@list_fonts_win, "windows"], [\@list_fonts_winnt, "winnt"]) {
+	    #TODO : add a foreach to factorize
 	    foreach my $i (@list_fonts_win) {
 		grep ( /$i$/, @font_list)  or push @font_list, "$win_dir/windows/fonts/$i";
 	    }
@@ -169,32 +172,32 @@ sub search_windows_font {
 
 
 
+#TODO : replace ($i =~ /.ttf$/i) || ($i =~ /.pfa$/i) || ($i =~ /.pfb$/i) || ($i =~ /.pcf$/i) || ($i =~ /.pcf.gz$/i) by a function
+
+sub is_a_font {
+    local $_ = $_[0];
+    /.ttf$/i || /.pfa$/i || /.pfb$/i || /.pcf$/i || /.pcf.gz$/i;
+}
+
 sub search_dir_font {
+    my ($fn) = @_;
     my @font_list_tmp = ();
     my @font_list_tmpp = ();
     my $dir ;
-    my $fn = $_;
-    if (!(-e $fn )) { print "$_ :: no such file or directory \n";}
-    else {
-	if ( -d $fn ) { 
+    if (!(-e $fn )) { print "$_ :: no such file or directory \n" } else {
+	if ( -d $fn ) {
 	    $dir = $fn;
-	    foreach my $i (all($fn)) { 
-		if (($i =~ /.ttf$/i) || ($i =~ /.pfa$/i) || ($i =~ /.pfb$/i) || ($i =~ /.pcf$/i) || ($i =~ /.pcf.gz$/i)) {
+	    foreach my $i (all($fn)) {
+		if (is_a_font($i)) {
 		    push @font_list_tmp, "$i";
-		    if (!$replace) {
-			foreach my $i (@font_list_tmp) {
-			    !grep /$i/, (@installed_fonts) and push @font_list, "$fn$i";
-			}
-		    }
-		    else { 
-			foreach my $i (@font_list_tmp) {
-			    grep /$i/, @font_list or  push @font_list, $fn."/".$i;
-			}
+		    foreach my $i (@font_list_tmp) {
+			!$replace && grep(/$i/, @installed_fonts) and next;
+			grep /$i/, @font_list or push @font_list, "$fn/$i";
 		    }
 		}
 	    }
-	}
-	else {
+	} else {
+	    # TODO: add replace handling, and @font_list_tmp filling.
 	    if (($fn =~ /.ttf$/i) || ($fn =~ /.pfa$/i) || ($fn =~ /.pfb$/i) || ($fn =~ /.pcf$/i) || ($fn =~ /.pcf.gz$/i)) {
 		!grep /$fn/, (@installed_fonts) and push @font_list, "$fn";
 	    }
@@ -253,6 +256,7 @@ sub backend_mod {
 	print "\n...............The End...................\n";
     }
 
+    #TODO : test directly @install
     if ($install[0]) {
 	print ".......Install Specifics Fonts...........\n\n";
 	search_installed_fonts();
-- 
cgit v1.2.1