From 54188fd731ff662f71428f4608fa96c751c14cef Mon Sep 17 00:00:00 2001
From: wl <wl>
Date: Thu, 24 May 2012 06:36:15 +0000
Subject: Add some generic fallback characters.

* tmac/fallbacks.tmac: New file.
* tmac/troffrc: Include it.
* tmac/Makefile.sub (NORMALFILES): Include it.
---
 tmac/fallbacks.tmac | 61 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 tmac/fallbacks.tmac

(limited to 'tmac/fallbacks.tmac')

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
-- 
cgit v1.2.1