diff options
author | wl <wl> | 2012-05-24 06:36:15 +0000 |
---|---|---|
committer | wl <wl> | 2012-05-24 06:36:15 +0000 |
commit | 54188fd731ff662f71428f4608fa96c751c14cef (patch) | |
tree | 731b0498160ebd87fec8380b5d7e484130743e56 /tmac | |
parent | 0ba10d251a10e8b7453fad8877e529a5c2e26f96 (diff) | |
download | groff-54188fd731ff662f71428f4608fa96c751c14cef.tar.gz |
Add some generic fallback characters.
* tmac/fallbacks.tmac: New file.
* tmac/troffrc: Include it.
* tmac/Makefile.sub (NORMALFILES): Include it.
Diffstat (limited to 'tmac')
-rw-r--r-- | tmac/Makefile.sub | 4 | ||||
-rw-r--r-- | tmac/fallbacks.tmac | 61 |
2 files changed, 63 insertions, 2 deletions
diff --git a/tmac/Makefile.sub b/tmac/Makefile.sub index 3179ba00..535f7ea4 100644 --- a/tmac/Makefile.sub +++ b/tmac/Makefile.sub @@ -1,4 +1,4 @@ -# Copyright (C) 1989-2007, 2009-2011 +# Copyright (C) 1989-2007, 2009-2012 # Free Software Foundation, Inc. # Written by James Clark (jjc@jclark.com) # @@ -48,7 +48,7 @@ NORMALFILES=\ html.tmac html-end.tmac \ devtag.tmac \ europs.tmac \ - composite.tmac \ + composite.tmac fallbacks.tmac \ eqnrc \ refer.tmac refer-me.tmac refer-ms.tmac \ troffrc troffrc-end \ diff --git a/tmac/fallbacks.tmac b/tmac/fallbacks.tmac new file mode 100644 index 00000000..56859b14 --- /dev/null +++ b/tmac/fallbacks.tmac @@ -0,0 +1,61 @@ +.\" fallbacks.tmac +.\" +.\" This file contains generic fallback characters. +. +. +.\" fall back to GREEK CAPITAL LETTER DELTA for INCREMENT +.fchar \[u2206] \[u0394] +. +. +.\" NB: as per http://unicode.org/Public/UNIDATA/NamesList.txt +.\" +.\" #!/usr/bin/perl +.\" ## Ivan Shmakov, 2012. +.\" ## This code is in the public-domain. +.\" my $u; +.\" while (<>) { +.\" $u = oct ("0x" . $1) +.\" if (/^([[:xdigit:]]{4})/); +.\" next unless (defined ($u) && $u >= 0x2160 && $u <= 0x217F); +.\" if (/^\s+#\s+([[:xdigit:][:blank:]]+)(\s.*)?$/) { +.\" ## NB: may make sense to map to \[uXXXX]'s instead +.\" printf (".fchar \\[u%04x] %s\n", $u, +.\" pack ("U*", map { oct ("0x" . $_); } split (/ /, $1))); +.\" $u = undef; +.\" } +.\" } +. +.fchar \[u2160] I +.fchar \[u2161] II +.fchar \[u2162] III +.fchar \[u2163] IV +.fchar \[u2164] V +.fchar \[u2165] VI +.fchar \[u2166] VII +.fchar \[u2167] VIII +.fchar \[u2168] IX +.fchar \[u2169] X +.fchar \[u216a] XI +.fchar \[u216b] XII +.fchar \[u216c] L +.fchar \[u216d] C +.fchar \[u216e] D +.fchar \[u216f] M +.fchar \[u2170] i +.fchar \[u2171] ii +.fchar \[u2172] iii +.fchar \[u2173] iv +.fchar \[u2174] v +.fchar \[u2175] vi +.fchar \[u2176] vii +.fchar \[u2177] viii +.fchar \[u2178] ix +.fchar \[u2179] x +.fchar \[u217a] xi +.fchar \[u217b] xii +.fchar \[u217c] l +.fchar \[u217d] c +.fchar \[u217e] d +.fchar \[u217f] m +. +.\" EOF |