vfmg (DEVEL): vfmg - Comment support in DR17 (and ASCII)
sparky
sparky at pld-linux.org
Thu Jan 5 18:46:37 CET 2006
Author: sparky Date: Thu Jan 5 17:46:36 2006 GMT
Module: vfmg Tag: DEVEL
---- Log message:
- Comment support in DR17 (and ASCII)
---- Files affected:
vfmg:
vfmg (1.73.2.53 -> 1.73.2.54)
---- Diffs:
================================================================
Index: vfmg/vfmg
diff -u vfmg/vfmg:1.73.2.53 vfmg/vfmg:1.73.2.54
--- vfmg/vfmg:1.73.2.53 Thu Jan 5 18:36:58 2006
+++ vfmg/vfmg Thu Jan 5 18:46:31 2006
@@ -338,6 +338,7 @@
/^\s*
(Name(?:\[(?:$langs)\])?
|GenericName(?:\[(?:$langs)\])?
+ |Comment(?:\[(?:$langs)\])?
|Icon|Exec|Categories|Terminal|Type|Encoding|NoDisplay
|OnlyShowIn)
\s* = \s* (.+?)
@@ -397,7 +398,7 @@
$tags{Encoding} = exists $tags{Encoding} ? $tags{Encoding} : 'iso-8859-1';
my @to_decode = qw(Name);
- push @to_decode, "GenericName"
+ push @to_decode, qw(GenericName Comment)
if $o_output eq "DR17" or $o_output eq "ASCII";
foreach my $tag_name (@to_decode) {
my @all = (grep /^$tag_name/, keys %tags);
@@ -883,6 +884,7 @@
print "$level \033[${cnum}m\033(0tq\033(B\033[${cnext}m\033[1m[$$d{Name}]";
}
print " ($$d{GenericName})" if $$d{GenericName};
+ print " [$$d{Comment}]" if $$d{Comment};
print "\033[0m\n";
ASCII($menu[$no]{$entry},$level.$step, $cnext);
}
@@ -895,6 +897,7 @@
print "$level \033[${cnum}m\033(0\017tq\033(B\033[${cnext}m$$d{Name}";
}
print " ($$d{GenericName})" if $$d{GenericName};
+ print " [$$d{Comment}]" if $$d{Comment};
print "\033[0m\n";
$num++;
}
@@ -932,6 +935,8 @@
push @eapp, "-set-name",$name;
push @eapp, "-set-generic",$$d{GenericName}
if $$d{GenericName};
+ push @eapp, "-set-comment",$$d{Comment}
+ if $$d{Comment};
push @eapp, "-set-exe",$$d{Exec};
if ( defined $$dr{wcnt} ) {
if ( exists $$dr{wcnt}{$$d{file}} ) {
================================================================
---- CVS-web:
http://cvs.pld-linux.org/vfmg/vfmg?r1=1.73.2.53&r2=1.73.2.54&f=u
More information about the pld-cvs-commit
mailing list