[Groff-commit] groff ChangeLog src/utils/afmtodit/afmtodit.man...

[Werner LEMBERG]

CVSROOT:        /cvsroot/groff
Module name:    groff
Changes by:     Werner LEMBERG <wl>     10/06/04 05:38:49

Modified files:
        .              : ChangeLog 
        src/utils/afmtodit: afmtodit.man afmtodit.pl 

Log message:
        afmtodit: Add option `-o' to specify an output file.
        
        * src/utils/afmtodit.pl: Implement it.
        * src/utils/afmtodit.man: Document it.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/groff/ChangeLog?cvsroot=groff&r1=1.1238&r2=1.1239
http://cvs.savannah.gnu.org/viewcvs/groff/src/utils/afmtodit/afmtodit.man?cvsroot=groff&r1=1.18&r2=1.19
http://cvs.savannah.gnu.org/viewcvs/groff/src/utils/afmtodit/afmtodit.pl?cvsroot=groff&r1=1.23&r2=1.24

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/groff/groff/ChangeLog,v
retrieving revision 1.1238
retrieving revision 1.1239
diff -u -b -r1.1238 -r1.1239
--- ChangeLog   4 Jun 2010 05:26:26 -0000       1.1238
+++ ChangeLog   4 Jun 2010 05:38:49 -0000       1.1239
@@ -1,3 +1,10 @@
+2010-06-04  Denis M. Wilson  <address@hidden>
+
+       afmtodit: Add option `-o' to specify an output file.
+
+       * src/utils/afmtodit.pl: Implement it.
+       * src/utils/afmtodit.man: Document it.
+
 2010-06-04  Larry Jones  <address@hidden>
 
        * man/groff_diff.man: Document \n[.O].

Index: src/utils/afmtodit/afmtodit.man
===================================================================
RCS file: /cvsroot/groff/groff/src/utils/afmtodit/afmtodit.man,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- src/utils/afmtodit/afmtodit.man     5 Jan 2009 20:11:13 -0000       1.18
+++ src/utils/afmtodit/afmtodit.man     4 Jun 2010 05:38:49 -0000       1.19
@@ -1,5 +1,6 @@
 .ig
-Copyright (C) 1989-2000, 2001, 2002, 2003, 2005, 2006, 2008, 2009
+Copyright (C) 1989-2000, 2001, 2002, 2003, 2005, 2006, 2008, 2009,
+              2010
   Free Software Foundation, Inc.
 
 Permission is granted to make and distribute verbatim copies of
@@ -52,6 +53,7 @@
 .OP \-e enc_file
 .OP \-f internal_name
 .OP \-i n
+.OP \-o out_file
 .I afm_file
 .I map_file
 .I font
@@ -141,7 +143,10 @@
 .
 .LP
 The groff font file will be output to a file called
-.IR font .
+.IR font ,
+unless the
+.B \-o
+option is used.
 .
 .LP
 If there is a downloadable font file for the font, it may be listed in
@@ -277,6 +282,13 @@
 for italic fonts.
 .
 .TP
+.BI \-o out_file
+The output file is
+.I out_file
+instead of
+.IR font .
+.
+.TP
 .B \-k
 Omit any kerning data from the groff font.
 This should be used only for mono-spaced fonts.

Index: src/utils/afmtodit/afmtodit.pl
===================================================================
RCS file: /cvsroot/groff/groff/src/utils/afmtodit/afmtodit.pl,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- src/utils/afmtodit/afmtodit.pl      5 Jan 2009 20:11:14 -0000       1.23
+++ src/utils/afmtodit/afmtodit.pl      4 Jun 2010 05:38:49 -0000       1.24
@@ -1,7 +1,7 @@
 #! /usr/bin/perl -w
 # -*- Perl -*-
 # Copyright (C) 1989-2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
-#               2009
+#               2009, 2010
 # Free Software Foundation, Inc.
 #      Written by James Clark (address@hidden)
 #
@@ -30,10 +30,10 @@
 my $groff_sys_fontdir = "@FONTDIR@";
 
 use Getopt::Std;
-getopts('a:cd:e:f:i:kmnsvx');
+getopts('a:cd:e:f:i:kmno:svx');
 
-our ($opt_a, $opt_c, $opt_d, $opt_e, $opt_f, $opt_i,
-     $opt_k, $opt_m, $opt_n, $opt_s, $opt_v, $opt_x);
+our ($opt_a, $opt_c, $opt_d, $opt_e, $opt_f, $opt_i, $opt_k,
+     $opt_m, $opt_n, $opt_o, $opt_s, $opt_v, $opt_x);
 
 if ($opt_v) {
     print "GNU afmtodit (groff) version @address@hidden";
@@ -42,12 +42,13 @@
 
 if ($#ARGV != 2) {
     die "usage: $prog [-ckmnsvx] [-a angle] [-d DESC] [-e encoding]\n" .
-       "       [-f name] [-i n] afmfile mapfile font\n";
+       "       [-f name] [-i n] [-o outfile] afmfile mapfile font\n";
 }
 
 my $afm = $ARGV[0];
 my $map = $ARGV[1];
 my $font = $ARGV[2];
+my $outfile = $opt_o || $font;
 my $desc = $opt_d || "DESC";
 my $sys_map = $groff_sys_fontdir . "/devps/generate/" . $map;
 my $sys_desc = $groff_sys_fontdir . "/devps/" . $desc;
@@ -416,7 +417,7 @@
 
 # print it all out
 
-open(FONT, ">$font") || die "$prog: can't open \`$font' for output: $!\n";
+open(FONT, ">$outfile") || die "$prog: can't open \`$outfile' for output: 
$!\n";
 select(FONT);
 
 print("# This file has been generated with " .