tmac/fallbacks.tmac

   1 .\"@ fallbacks.tmac
   2 .\"@ This file contains generic fallback characters.
   3 .\"
   4 .\" Adapted to S-roff by Steffen (Daode) Nurpmeso <steffen@sdaoden.eu>.
   5 .
   6 .nr _C \n(.C
   7 .cp 0
   8 .
   9 .\" fall back to GREEK CAPITAL LETTER DELTA for INCREMENT
  10 .fchar \[u2206] \[u0394]
  11 .
  12 .
  13 .\" NB: as per http://unicode.org/Public/UNIDATA/NamesList.txt
  14 .\"
  15 .\" #!/usr/bin/perl
  16 .\" ## Ivan Shmakov, 2012.
  17 .\" ## This code is in the public-domain.
  18 .\" my $u;
  19 .\" while (<>) {
  20 .\"   $u = oct ("0x" . $1)
  21 .\"       if (/^([[:xdigit:]]{4})/);
  22 .\"   next unless (defined ($u) && $u >= 0x2160 && $u <= 0x217F);
  23 .\"   if (/^\s+#\s+([[:xdigit:][:blank:]]+)(\s.*)?$/) {
  24 .\"     ## NB: may make sense to map to \[uXXXX]'s instead
  25 .\"     printf (".fchar \\[u%04x] %s\n", $u,
  26 .\"             pack ("U*", map { oct ("0x" . $_); } split (/ /, $1)));
  27 .\"     $u = undef;
  28 .\"   }
  29 .\" }
  30 .
  31 .fchar \[u2160] I
  32 .fchar \[u2161] II
  33 .fchar \[u2162] III
  34 .fchar \[u2163] IV
  35 .fchar \[u2164] V
  36 .fchar \[u2165] VI
  37 .fchar \[u2166] VII
  38 .fchar \[u2167] VIII
  39 .fchar \[u2168] IX
  40 .fchar \[u2169] X
  41 .fchar \[u216a] XI
  42 .fchar \[u216b] XII
  43 .fchar \[u216c] L
  44 .fchar \[u216d] C
  45 .fchar \[u216e] D
  46 .fchar \[u216f] M
  47 .fchar \[u2170] i
  48 .fchar \[u2171] ii
  49 .fchar \[u2172] iii
  50 .fchar \[u2173] iv
  51 .fchar \[u2174] v
  52 .fchar \[u2175] vi
  53 .fchar \[u2176] vii
  54 .fchar \[u2177] viii
  55 .fchar \[u2178] ix
  56 .fchar \[u2179] x
  57 .fchar \[u217a] xi
  58 .fchar \[u217b] xii
  59 .fchar \[u217c] l
  60 .fchar \[u217d] c
  61 .fchar \[u217e] d
  62 .fchar \[u217f] m
  63 .
  64 .cp \n[_C]
  65 .
  66 .\" s-ts-mode