groff-commit
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Groff-commit] groff/contrib/hdtbl ChangeLog Makefile.sub exam...


From: Werner LEMBERG
Subject: [Groff-commit] groff/contrib/hdtbl ChangeLog Makefile.sub exam...
Date: Wed, 21 Jun 2006 23:51:58 +0000

CVSROOT:        /cvsroot/groff
Module name:    groff
Changes by:     Werner LEMBERG <wl>     06/06/21 23:51:58

Modified files:
        contrib/hdtbl  : ChangeLog Makefile.sub 
Added files:
        contrib/hdtbl/examples: fontdumps_n.in fontdumps_x.in 
Removed files:
        contrib/hdtbl/examples: fontdumps_n.roff fontdumps_x.roff 

Log message:
        * examples/fontdumps_n.roff, examples/fontdumps_x.roff: Renamed
        to...
        * example/fontdumps_n.in, example/fontdumps_x_in: This.
        Rename `*fontpath' to `fontpath' and define it conditionally (using
        address@hidden@') so that it can be overridden on the command line.
        
        * Makefile.sub (GENFILES, GENFILES_): New variables for
        fontdumps*.roff.
        (EXAMPLEFILES): Remove fontdumps.roff.
        (CLEANADD): Add GENFILES.
        (.in.roff): New rule.
        (.SUFFIXES): Add `.in'.
        (install_data, uninstall_sub): Updated.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/hdtbl/ChangeLog?cvsroot=groff&r1=1.13&r2=1.14
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/hdtbl/Makefile.sub?cvsroot=groff&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/hdtbl/examples/fontdumps_n.in?cvsroot=groff&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/hdtbl/examples/fontdumps_x.in?cvsroot=groff&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/hdtbl/examples/fontdumps_n.roff?cvsroot=groff&r1=1.5&r2=0
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/hdtbl/examples/fontdumps_x.roff?cvsroot=groff&r1=1.4&r2=0

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/groff/groff/contrib/hdtbl/ChangeLog,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- ChangeLog   16 Jun 2006 07:02:46 -0000      1.13
+++ ChangeLog   21 Jun 2006 23:51:58 -0000      1.14
@@ -1,3 +1,19 @@
+2006-06-21  Werner LEMBERG  <address@hidden>
+
+       * examples/fontdumps_n.roff, examples/fontdumps_x.roff: Renamed
+       to...
+       * example/fontdumps_n.in, example/fontdumps_x_in: This.
+       Rename `*fontpath' to `fontpath' and define it conditionally (using
+       address@hidden@') so that it can be overridden on the command line.
+       
+       * Makefile.sub (GENFILES, GENFILES_): New variables for
+       fontdumps*.roff.
+       (EXAMPLEFILES): Remove fontdumps.roff.
+       (CLEANADD): Add GENFILES.
+       (.in.roff): New rule.
+       (.SUFFIXES): Add `.in'.
+       (install_data, uninstall_sub): Updated.
+
 2006-06-14  Werner LEMBERG  <address@hidden>
 
        * hdmisc.tmac: Fix test for \n[?] to avoid warning message.

Index: Makefile.sub
===================================================================
RCS file: /cvsroot/groff/groff/contrib/hdtbl/Makefile.sub,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- Makefile.sub        30 May 2006 17:28:27 -0000      1.1
+++ Makefile.sub        21 Jun 2006 23:51:58 -0000      1.2
@@ -47,6 +47,11 @@
   hdtbl.tmac \
   hdmisc.tmac
 
+# These files are handled by the `.in.roff' rule.
+GENFILES=\
+  examples/fontdumps_n.roff \
+  examples/fontdumps_x.roff
+
 EXAMPLEFILES=\
   examples/chess_board.roff \
   examples/colored_boxes.roff \
@@ -54,8 +59,6 @@
   examples/colored_table_cells.roff \
   examples/color_transitions.roff \
   examples/col_rowspan_colors.roff \
-  examples/fontdumps_n.roff \
-  examples/fontdumps_x.roff \
   examples/mixed_pickles.roff \
   examples/rainbow.roff \
   examples/short_reference.roff
@@ -74,17 +77,23 @@
   examples/short_reference.ps
 
 EXAMPLEFILES_=`echo $(EXAMPLEFILES) | sed 's|examples/||g'`
+GENFILES_=`echo $(GENFILES) | sed 's|examples/||g'`
 PROCESSEDEXAMPLEFILES_=`echo $(PROCESSEDEXAMPLEFILES) | sed 's|examples/||g'`
 
 CLEANADD=\
   gnu.eps \
   $(PROCESSEDEXAMPLEFILES) \
+  $(GENFILES) \
   examples/stamp \
   stamp-strip
 
-.SUFFIXES: .roff .ps
+.SUFFIXES: .roff .in .ps
+
 .roff.ps:
-       $(GROFF) -Tps -mhdtbl $< >$@
+       $(GROFF) -Tps -dfontpath=$(top_srcdir)/font -mhdtbl $< >$@
+
+.in.roff:
+       sed -e "s|@fontdir@|$(fontdir)|" $< >$@
 
 
 all: $(PROCESSEDEXAMPLEFILES) stamp-strip
@@ -112,8 +121,8 @@
        done
        touch $@
 
-install_data: $(STRIPFILES) $(EXAMPLEFILES) $(PROCESSEDEXAMPLEFILES) \
-              stamp-strip
+install_data: $(STRIPFILES) $(EXAMPLEFILES) $(GENFILES) \
+              $(PROCESSEDEXAMPLEFILES) stamp-strip
        -test -d $(DESTDIR)$(tmacdir) || $(mkinstalldirs) $(DESTDIR)$(tmacdir)
        for f in $(STRIPFILES); do \
          rm -f $(DESTDIR)$(tmacdir)/$$f; \
@@ -126,7 +135,7 @@
          $(INSTALL_DATA) $(srcdir)/examples/$$f \
            $(DESTDIR)$(exampledir)/hdtbl/$$f; \
        done
-       for f in $(PROCESSEDEXAMPLEFILES_); do \
+       for f in $(PROCESSEDEXAMPLEFILES_) $(GENFILES_); do \
          rm -f $(DESTDIR)$(exampledir)/hdtbl/$$f; \
          $(INSTALL_DATA) examples/$$f $(DESTDIR)$(exampledir)/hdtbl/$$f; \
        done
@@ -136,7 +145,8 @@
        -for f in $(STRIPFILES); do \
          rm -f $(DESTDIR)$(tmacdir)/$$f; \
        done
-       -for f in $(EXAMPLEFILES_) $(PROCESSEDEXAMPLEFILES_); do \
+       -for f in $(EXAMPLEFILES_) $(PROCESSEDEXAMPLEFILES_) \
+                  $(GENFILES_); do \
          rm -f $(DESTDIR)$(exampledir)/hdtbl/$$f; \
        done
        -rmdir $(DESTDIR)$(exampledir)/hdtbl

Index: examples/fontdumps_n.in
===================================================================
RCS file: examples/fontdumps_n.in
diff -N examples/fontdumps_n.in
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ examples/fontdumps_n.in     21 Jun 2006 23:51:58 -0000      1.1
@@ -0,0 +1,147 @@
+.\"    -*-     mode: roff      -*-
+.ig
+
+fontdumps_n.roff
+
+This file is part of groff, the GNU roff type-setting system.
+
+Copyright (C) 2005, 2006 Free Software Foundation, Inc.
+written by Joachim Walsdorff <address@hidden>.
+
+groff is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License as published by the Free
+Software Foundation; either version 2, or (at your option) any later
+version.
+
+groff 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 groff; see the file COPYING.  If not, write to the Free
+Software Foundation, 51 Franklin St - Fifth Floor, Boston, MA
+02110-1301, USA.
+
+..
+.
+.
+.\"    ******************************************************************
+.\"    **              groff glyphs vs. character codes:               **
+.\"    **      .fontdump [font1 font2 ...]                             **
+.\"    **              Print glyphs of font1, font2, ..., versus       **
+.\"    **              character code.                                 **
+.\"    **              `all' as fontname prints all fonts in the       **
+.\"    **              specified string `fontpath'.                    **
+.\"    **              without arg: glyphs and codes of active font.   **
+.\"    ******************************************************************
+.
+.time start
+.
+.if !d fontpath \
+.  ds fontpath @fontdir@
+.
+.de fontdump
+.  ie \\n[.$] \
+.    ds *args \\$*
+.  el \
+.    ds *args \\n[.fn]
+.
+.  pso bash -c \
+       "echo -n .ds *f\ ; \
+        ls --color=never \\*[fontpath]/dev\*[.T] \
+        | tr '[:cntrl:]' ' '"
+.  \"  This dummy line is necessary; the preceding line eats it.
+.
+.  while !"\\*[*args]"" \{\
+.    pops *$1 *args
+.
+.    if "\\*[*$1]"all" \{\
+.      ds *args \\*[*f] \\*[*args]
+.      pops *$1 *args
+.      nr *all 1 
+.    \}
+.
+.    if \\n[*all] \{\
+.      if "\\*[*$1]"." \
+.        nr *all 0
+.      if !F \\*[*$1] \
+.        continue 
+.    \}
+.
+.    index "\\*[*f]" \\*[*$1]
+.
+.    ie (\\n[.y] > 18) \
+.      if !F \\*[*$1] \{\
+.        tm \\n[.F]:\\n[.c]: Font \\*[*$1] not found.
+.        continue 
+.      \}
+.    el \{\
+.      if !\\n[index] \{\
+.        tm \\n[.F]:\\n[.c]: Font \\*[*$1] not found.
+.        continue 
+.      \}
+.
+.      nr * \\n[.f]
+.      ft \\*[*$1]
+.      nr ** \\n[.f]
+.      ft
+.
+.      if (\\n[**] == \\n[*]) \
+.        continue 
+.    \}
+.
+.    if \\n[t*cptn] \
+.      bp
+.
+.    tm listing font `\\*[*$1]'...
+.
+.    TBL border=.1n bc=red cpd=0 csp=.1n bgc=
+.      CPTN groff font \\*[*$1] \
+            .br \
+            val=b ".pso grep -e internalname \\*[fontpath]/dev\*[.T]/\\*[*$1]"
+.      TR 
+.        TD
+.          TBL cols=12 border=.1n bc=red csp=.1n cpd=.2n fgc=red4 bgc=beige \
+               hal=c fsz='1.2 1.2' fst=\\*[*$1]
+.            nr c# 0-1 1
+.            nr y# 0-1 1
+.            TR fst=HB fgc=blue 
+.              TD 
+.                nr x# 0-1 1
+.                \" following 4 `PN's instead of 4 while-loops as in
+.                \" fontdumps-x.roff; short and easy to write, but a little
+.                \" bit slower.
+.              PN 10 .TD \
+                 \&..\\\\n+[x#]
+.              TD
+.
+.            PN 27 .TR \
+               ".TD fgc=blue fst=HB" \
+                 \\\\n+[y#]. \
+               ".PN 10 .TD \
+                 "".if c \N'\En+[c#]' \
+                   \N'\En[c#]'""" \
+               ".TD fgc=blue fst=HB" \
+                 \\\\n[y#].
+.
+.            TR fst=HB fgc=blue 
+.              TD 
+.                nr x# 0-1 1
+.              PN 10 .TD \
+                 \&..\\\\n+[x#]
+.              TD 
+.          ETB 
+.    ETB 
+.  \}
+..
+.
+.fontdump all
+.
+.time
+.date
+.
+.\"    466MHz Celeron CPU, 384MB RAM 
+.\"    WindowsXP/cygwin groff18.1:     115s
+.\"    WindowsXP/cygwin groff19.2:     450s
+.\"    Suse Linux 9.3 groff19.2:        76s

Index: examples/fontdumps_x.in
===================================================================
RCS file: examples/fontdumps_x.in
diff -N examples/fontdumps_x.in
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ examples/fontdumps_x.in     21 Jun 2006 23:51:58 -0000      1.1
@@ -0,0 +1,158 @@
+.\"    -*-     mode: roff      -*-
+.ig
+
+fontdumps_x.roff
+
+This file is part of groff, the GNU roff type-setting system.
+
+Copyright (C) 2005, 2006 Free Software Foundation, Inc.
+written by Joachim Walsdorff <address@hidden>.
+
+groff is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License as published by the Free
+Software Foundation; either version 2, or (at your option) any later
+version.
+
+groff 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 groff; see the file COPYING.  If not, write to the Free
+Software Foundation, 51 Franklin St - Fifth Floor, Boston, MA
+02110-1301, USA.
+
+..
+.
+.
+.\"    ******************************************************************
+.\"    **              groff glyphs vs. character codes:               **
+.\"    **      .fontdump [font1 font2 ...]                             **
+.\"    **              Print glyphs of font1, font2, ..., versus       **
+.\"    **              character code.                                 **
+.\"    **              `all' as fontname prints all fonts in the       **
+.\"    **              specified string `fontpath'.                    **
+.\"    **              without arg: glyphs and codes of active font.   **
+.\"    ******************************************************************
+.
+.time start
+.
+.if !d fontpath \
+.  ds fontpath @fontdir@
+.
+.de fontdump
+.  ie \\n[.$] \
+.    ds *args \\$*
+.  el \
+.    ds *args \\n[.fn]
+.
+.  pso bash -c \
+       "echo -n .ds *f\ ; \
+        ls --color=never \\*[fontpath]/dev\*[.T] \
+        | tr '[:cntrl:]' ' '"
+.  \"  This dummy line is necessary; the preceding line eats it.
+.
+.  while !"\\*[*args]"" \{\
+.    pops *$1 *args
+.
+.    if "\\*[*$1]"all" \{\
+.      ds *args \\*[*f] \\*[*args]
+.      pops *$1 *args
+.      nr *all 1
+.    \}
+.
+.    if \\n[*all] \{\
+.      if "\\*[*$1]"." \
+.        nr *all 0
+.      if !F \\*[*$1] \
+.        continue
+.    \}
+.
+.    index "\\*[*f]" \\*[*$1]
+.
+.    ie (\\n[.y] > 18) \
+.      if !F \\*[*$1] \{\
+.        tm \\n[.F]:\\n[.c]: Font \\*[*$1] not found.
+.        continue
+.      \}
+.    el \{\
+.      if !\\n[index] \{\
+.        tm \\n[.F]:\\n[.c]: Font \\*[*$1] not found.
+.        continue
+.      \}
+.
+.      nr * \\n[.f]
+.      ft \\*[*$1]
+.      nr ** \\n[.f]
+.      ft
+.
+.      if (\\n[**] == \\n[*]) \
+.        continue
+.    \}
+.
+.    if \\n[t*cptn] \
+.      bp
+.
+.    tm listing font `\\*[*$1]'...
+.
+.    TBL border=.1n bc=red cpd=0 csp=.1n bgc=
+.      CPTN groff font \\*[*$1] \
+            .br \
+            val=b ".pso grep -e internalname \\*[fontpath]/dev\*[.T]/\\*[*$1]"
+.      TR
+.        TD
+.          TBL cols=18 border=.1n bc=red csp=.1n cpd=.2n fgc=red4 bgc=beige \
+               hal=c fsz='1.2 1.7' fst=\\*[*$1]
+.            nr c# 0-1 1
+.            nr y# 0 1
+.            TR fst=HB fgc=blue
+.              TD
+.              nr x# 0-1 1
+.              while (\\n+[x#] < 16) \{\
+.                d2x \\n[x#]
+.                  TD
+.                    nop \&.\\*[hex#]
+.              \}
+.              TD
+.
+.            nr y# -1
+.            while (\\n+[y#] < 17) \{\
+.              TR
+.                TD fgc=blue fst=HB
+.                d2x \\n[y#]
+.                  nop \\*[hex#].
+.                nr x# 0-1 1
+.                while (\\n+[x#] < 16) \{\
+.                  TD
+.                    if c \N'\\n+[c#]' \
+.                      nop \N'\\n[c#]'
+.                \}
+.                TD fgc=blue fst=HB
+.                d2x \\n[y#]
+.                  nop \\*[hex#].
+.            \}
+.
+.            TR fst=HB fgc=blue
+.              TD
+.              nr x# 0-1 1
+.              while (\\n+[x#] < 16) \{\
+.                d2x \\n[x#]
+.                TD
+.                  nop \&..\\*[hex#]
+.              \}
+.              TD
+.          ETB
+.    ETB
+.  \}
+..
+.
+.fontdump all
+.
+.time
+.date
+.
+.\"    466MHz Celeron CPU, 384MB RAM
+.\"    WindowsXP/cygwin groff18.1:     107s
+.\"    WindowsXP/cygwin groff19.2:     390s
+.\"    Suse Linux 9.3 groff19.2:        66s

Index: examples/fontdumps_n.roff
===================================================================
RCS file: examples/fontdumps_n.roff
diff -N examples/fontdumps_n.roff
--- examples/fontdumps_n.roff   31 May 2006 07:48:38 -0000      1.5
+++ /dev/null   1 Jan 1970 00:00:00 -0000
@@ -1,146 +0,0 @@
-.\"    -*-     mode: roff      -*-
-.ig
-
-fontdumps_n.roff
-
-This file is part of groff, the GNU roff type-setting system.
-
-Copyright (C) 2005, 2006 Free Software Foundation, Inc.
-written by Joachim Walsdorff <address@hidden>.
-
-groff is free software; you can redistribute it and/or modify it under
-the terms of the GNU General Public License as published by the Free
-Software Foundation; either version 2, or (at your option) any later
-version.
-
-groff 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 groff; see the file COPYING.  If not, write to the Free
-Software Foundation, 51 Franklin St - Fifth Floor, Boston, MA
-02110-1301, USA.
-
-..
-.
-.
-.\"    ******************************************************************
-.\"    **              groff glyphs vs. character codes:               **
-.\"    **      .fontdump [font1 font2 ... ]                            **
-.\"    **              Print glyphs of font1, font2, ..., versus       **
-.\"    **              character code.                                 **
-.\"    **              `all' as fontname prints all fonts in the       **
-.\"    **              specified fontpath `*fontpath'.                 **
-.\"    **              without arg: glyphs and codes of active font.   **
-.\"    ******************************************************************
-.
-.time start
-.
-.ds *fontpath /usr/local/share/groff/1.19.3/font
-.
-.de fontdump
-.  ie \\n[.$] \
-.    ds *args \\$*
-.  el \
-.    ds *args \\n[.fn]
-.
-.  pso bash -c \
-       "echo -n .ds *f\ ; \
-        ls --color=never \\*[*fontpath]/dev\*[.T] \
-        | tr '[:cntrl:]' ' '"
-.  \"  This dummy line is necessary; the preceding line eats it.
-.
-.  while !"\\*[*args]"" \{\
-.    pops *$1 *args
-.
-.    if "\\*[*$1]"all" \{\
-.      ds *args \\*[*f] \\*[*args]
-.      pops *$1 *args
-.      nr *all 1 
-.    \}
-.
-.    if \\n[*all] \{\
-.      if "\\*[*$1]"." \
-.        nr *all 0
-.      if !F \\*[*$1] \
-.        continue 
-.    \}
-.
-.    index "\\*[*f]" \\*[*$1]
-.
-.    ie (\\n[.y] > 18) \
-.      if !F \\*[*$1] \{\
-.        tm \\n[.F]:\\n[.c]: Font \\*[*$1] not found.
-.        continue 
-.      \}
-.    el \{\
-.      if !\\n[index] \{\
-.        tm \\n[.F]:\\n[.c]: Font \\*[*$1] not found.
-.        continue 
-.      \}
-.
-.      nr * \\n[.f]
-.      ft \\*[*$1]
-.      nr ** \\n[.f]
-.      ft
-.
-.      if (\\n[**] == \\n[*]) \
-.        continue 
-.    \}
-.
-.    if \\n[t*cptn] \
-.      bp
-.
-.    tm listing font `\\*[*$1]'...
-.
-.    TBL border=.1n bc=red cpd=0 csp=.1n bgc=
-.      CPTN groff font \\*[*$1] \
-            .br \
-            val=b ".pso grep -e internalname \\*[*fontpath]/dev\*[.T]/\\*[*$1]"
-.      TR 
-.        TD
-.          TBL cols=12 border=.1n bc=red csp=.1n cpd=.2n fgc=red4 bgc=beige \
-               hal=c fsz='1.2 1.2' fst=\\*[*$1]
-.            nr c# 0-1 1
-.            nr y# 0-1 1
-.            TR fst=HB fgc=blue 
-.              TD 
-.                nr x# 0-1 1
-.                \" following 4 `PN's instead of 4 while-loops as in
-.                \" fontdumps-x.roff; short and easy to write, but a little
-.                \" bit slower.
-.              PN 10 .TD \
-                 \&..\\\\n+[x#]
-.              TD
-.
-.            PN 27 .TR \
-               ".TD fgc=blue fst=HB" \
-                 \\\\n+[y#]. \
-               ".PN 10 .TD \
-                 "".if c \N'\En+[c#]' \
-                   \N'\En[c#]'""" \
-               ".TD fgc=blue fst=HB" \
-                 \\\\n[y#].
-.
-.            TR fst=HB fgc=blue 
-.              TD 
-.                nr x# 0-1 1
-.              PN 10 .TD \
-                 \&..\\\\n+[x#]
-.              TD 
-.          ETB 
-.    ETB 
-.  \}
-..
-.
-.fontdump all
-.
-.time
-.date
-.
-.\"    466MHz Celeron CPU, 384MB RAM 
-.\"    WindowsXP/cygwin groff18.1:     115s
-.\"    WindowsXP/cygwin groff19.2:     450s
-.\"    Suse Linux 9.3 groff19.2:        76s

Index: examples/fontdumps_x.roff
===================================================================
RCS file: examples/fontdumps_x.roff
diff -N examples/fontdumps_x.roff
--- examples/fontdumps_x.roff   31 May 2006 07:48:38 -0000      1.4
+++ /dev/null   1 Jan 1970 00:00:00 -0000
@@ -1,157 +0,0 @@
-.\"    -*-     mode: roff      -*-
-.ig
-
-fontdumps_x.roff
-
-This file is part of groff, the GNU roff type-setting system.
-
-Copyright (C) 2005, 2006 Free Software Foundation, Inc.
-written by Joachim Walsdorff <address@hidden>.
-
-groff is free software; you can redistribute it and/or modify it under
-the terms of the GNU General Public License as published by the Free
-Software Foundation; either version 2, or (at your option) any later
-version.
-
-groff 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 groff; see the file COPYING.  If not, write to the Free
-Software Foundation, 51 Franklin St - Fifth Floor, Boston, MA
-02110-1301, USA.
-
-..
-.
-.
-.\"    ******************************************************************
-.\"    **              groff glyphs vs. character codes:               **
-.\"    **      .fontdump [font1 font2 ... ]                            **
-.\"    **              Print glyphs of font1, font2, ..., versus       **
-.\"    **              character code.                                 **
-.\"    **              `all' as fontname prints all fonts in the       **
-.\"    **              specified fontpath `*fontpath'.                 **
-.\"    **              without arg: glyphs and codes of active font.   **
-.\"    ******************************************************************
-.
-.time start
-.
-.ds *fontpath /usr/local/share/groff/1.19.3/font
-.
-.de fontdump
-.  ie \\n[.$] \
-.    ds *args \\$*
-.  el \
-.    ds *args \\n[.fn]
-.
-.  pso bash -c \
-       "echo -n .ds *f\ ; \
-        ls --color=never \\*[*fontpath]/dev\*[.T] \
-        | tr '[:cntrl:]' ' '"
-.  \"  This dummy line is necessary; the preceding line eats it.
-.
-.  while !"\\*[*args]"" \{\
-.    pops *$1 *args
-.
-.    if "\\*[*$1]"all" \{\
-.      ds *args \\*[*f] \\*[*args]
-.      pops *$1 *args
-.      nr *all 1
-.    \}
-.
-.    if \\n[*all] \{\
-.      if "\\*[*$1]"." \
-.        nr *all 0
-.      if !F \\*[*$1] \
-.        continue
-.    \}
-.
-.    index "\\*[*f]" \\*[*$1]
-.
-.    ie (\\n[.y] > 18) \
-.      if !F \\*[*$1] \{\
-.        tm \\n[.F]:\\n[.c]: Font \\*[*$1] not found.
-.        continue
-.      \}
-.    el \{\
-.      if !\\n[index] \{\
-.        tm \\n[.F]:\\n[.c]: Font \\*[*$1] not found.
-.        continue
-.      \}
-.
-.      nr * \\n[.f]
-.      ft \\*[*$1]
-.      nr ** \\n[.f]
-.      ft
-.
-.      if (\\n[**] == \\n[*]) \
-.        continue
-.    \}
-.
-.    if \\n[t*cptn] \
-.      bp
-.
-.    tm listing font `\\*[*$1]'...
-.
-.    TBL border=.1n bc=red cpd=0 csp=.1n bgc=
-.      CPTN groff font \\*[*$1] \
-            .br \
-            val=b ".pso grep -e internalname \\*[*fontpath]/dev\*[.T]/\\*[*$1]"
-.      TR
-.        TD
-.          TBL cols=18 border=.1n bc=red csp=.1n cpd=.2n fgc=red4 bgc=beige \
-               hal=c fsz='1.2 1.7' fst=\\*[*$1]
-.            nr c# 0-1 1
-.            nr y# 0 1
-.            TR fst=HB fgc=blue
-.              TD
-.              nr x# 0-1 1
-.              while (\\n+[x#] < 16) \{\
-.                d2x \\n[x#]
-.                  TD
-.                    nop \&.\\*[hex#]
-.              \}
-.              TD
-.
-.            nr y# -1
-.            while (\\n+[y#] < 17) \{\
-.              TR
-.                TD fgc=blue fst=HB
-.                d2x \\n[y#]
-.                  nop \\*[hex#].
-.                nr x# 0-1 1
-.                while (\\n+[x#] < 16) \{\
-.                  TD
-.                    if c \N'\\n+[c#]' \
-.                      nop \N'\\n[c#]'
-.                \}
-.                TD fgc=blue fst=HB
-.                d2x \\n[y#]
-.                  nop \\*[hex#].
-.            \}
-.
-.            TR fst=HB fgc=blue
-.              TD
-.              nr x# 0-1 1
-.              while (\\n+[x#] < 16) \{\
-.                d2x \\n[x#]
-.                TD
-.                  nop \&..\\*[hex#]
-.              \}
-.              TD
-.          ETB
-.    ETB
-.  \}
-..
-.
-.fontdump all
-.
-.time
-.date
-.
-.\"    466MHz Celeron CPU, 384MB RAM
-.\"    WindowsXP/cygwin groff18.1:     107s
-.\"    WindowsXP/cygwin groff19.2:     390s
-.\"    Suse Linux 9.3 groff19.2:        66s




reply via email to

[Prev in Thread] Current Thread [Next in Thread]