path: root/tmac/fallbacks.tmac

.\" Define device-independent fallbacks for unavailable glyphs.
.\"
.\" These are designed such that "troffrc" loads them early, after
.\" composite glyph setup but before any device-specific fallbacks.
.\" Macro files specific to an output device can therefore override the
.\" definitions below as necessary.
.
.do nr *groff_fallbacks_tmac_C \n[.cp]
.cp 0
.
.\" The early loading observation above also means that the conditional
.\" expressions 'n' and 't' are not reliable.  Define ersatz substitute.
.nr fallbacks*troff-mode 1
.if '\*[.T]'ascii'  .nr fallbacks*troff-mode 0
.if '\*[.T]'cp1047' .nr fallbacks*troff-mode 0
.if '\*[.T]'latin1' .nr fallbacks*troff-mode 0
.if '\*[.T]'utf8'   .nr fallbacks*troff-mode 0
.
.\" MODIFIER LETTER CIRCUMFLEX ACCENT -> CIRCUMFLEX ACCENT
.fchar \[u02C6] ^
.\" SMALL TILDE -> TILDE
.fchar \[u02DC] ~
.\" INCREMENT -> GREEK CAPITAL LETTER DELTA
.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
.
.\" Fonts often lack precomposed glyphs for accented Latin letters that
.\" were not defined in ISO 8859-1 (Latin-1).
.\"
.\" Some of these can be ugly; on typesetter devices, much depends on
.\" the design of the fonts used.
.\"
.\" groff defines no dot-above accent so we cannot construct some
.\" composite glyphs in this way.  Turkish is an especial challenge
.\" because dotting an I (or not) results in a different base glyph.
.\" In any case, dotless 'i' base glyphs are rare in old fonts.
.\"
.\" Latin-2 fallbacks
.fchar \[A ab] \z\[ab]A
.fchar \[A ho] \z\[ho]A
.fchar \[C aa] \z\[aa]C
.fchar \[C ah] \z\[ah]C
.fchar \[D ah] \z\[ah]D
.fchar \[u110] \z-D\" capital letter d with stroke
.fchar \[E ah] \z\[ah]E
.fchar \[E ho] \z\[ho]E
.fchar \[/L]   \z/L
.fchar \[L aa] \z\[aa]L
.fchar \[L ho] \z\[ho]L
.fchar \[N aa] \z\[aa]N
.fchar \[N ah] \z\[ah]N
.fchar \[O a"] \z\[a"]O
.fchar \[R aa] \z\[aa]R
.fchar \[R ah] \z\[ah]R
.fchar \[S aa] \z\[aa]S
.fchar \[S ac] \z\[ac]S
.fchar \[vS]   \z\[ah]S
.fchar \[T ac] \z\[ac]T
.fchar \[T ah] \z\[ah]T
.fchar \[U ao] \z\[ao]U
.fchar \[U a"] \z\[a"]U
.fchar \[Z aa] \z\[aa]Z
.fchar \[Z a.] \z\[a.]Z
.fchar \[vZ]   \z\[ah]Z
.
.fchar \[a ab] \z\[ab]a
.fchar \[a ho] \z\[ho]a
.fchar \[c aa] \z\[aa]c
.fchar \[c ah] \z\[ah]c
.fchar \[d ah] \z\[ah]d
.fchar \[u110] \z-d\" small letter d with stroke
.fchar \[e ah] \z\[ah]e
.fchar \[e ho] \z\[ho]e
.fchar \[/l]   \z/l
.fchar \[l aa] \z\[aa]l
.fchar \[l ho] \z\[ho]l
.fchar \[n aa] \z\[aa]n
.fchar \[n ah] \z\[ah]n
.fchar \[o a"] \z\[a"]o
.fchar \[r aa] \z\[aa]r
.fchar \[r ah] \z\[ah]r
.fchar \[s aa] \z\[aa]s
.fchar \[s ac] \z\[ac]s
.fchar \[vs]   \z\[ah]s
.fchar \[t ac] \z\[ac]t
.fchar \[t ah] \z\[ah]t
.fchar \[u ao] \z\[ao]u
.fchar \[u a"] \z\[a"]u
.fchar \[z aa] \z\[aa]z
.fchar \[z a.] \z\[a.]z
.fchar \[vz]   \z\[ah]z
.
.\" Latin-5 fallbacks
.fchar \[G ab] \z\[ab]G
.fchar \[g ab] \z\[ab]g
.
.\" Latin-9 fallbacks
.fchar \[OE] OE
.fchar \[oe] oe
.fchar \[:Y] \z\[ad]Y
.
.fchar \[u2000] \[u2002]\" en quad
.fchar \[u2001] \[u2003]\" em quad
.fchar \[u2002] \h'1/2u'\" en space
.fchar \[u2003] \h'1'\" em space
.fchar \[u2004] \h'1/3u'\" three-per-em space
.fchar \[u2005] \h'1/4u'\" four-per-em space
.fchar \[u2006] \h'1/6u'\" six-per-em space
.fchar \[u2007] \0\" figure space
.fchar \[u2008] \^\" puncutation space
.fchar \[u2009] \|\" thin space
.fchar \[u200A] \^\" hair space
.\" Mapping U+200B awaits resolution of Savannah #58958.
.\"fchar \[u200B] \h'0'\" zero-width space
.\" \[u2010] is always defined thanks to uniglyph.cpp.
.\"fchar \[u2010] -\:\" hyphen
.\" Mapping U+2011 awaits resolution of Savannah #63354.
.\"fchar \[u2011] -\" non-breaking hyphen (won't break w/o .hcode or \:)
.ie \n[fallbacks*troff-mode] \
.  fchar \[u2012] \^\v'-.3m'\l'\w"\0"u'\v'+.3m'\^\" figure dash
.el \
.  fchar \[u2012] \-
.fchar \[u2013] \[en]\" en dash
.fchar \[u2014] \[em]\" em dash
.fchar \[u2015] \[em]\" horizontal bar (quotation dash)
.fchar \[u2016] \[ba]\[ba]\" double vertical line (matrix norm)
.if \n[fallbacks*troff-mode] \
.  fchar \[u2017] \Z'\[ul]'\v'+.1m'\[ul]\v'-.1m'\" double low line
.\" Mapping U+201[89CD] awaits resolution of Savannah #59932.
.\"fchar \[u2018] \[oq]\" left single quotation mark
.\"fchar \[u2019] \[cq]\" right single quotation mark
.\"fchar \[u201C] \[lq]\" left double quotation mark
.\"fchar \[u201D] \[rq]\" right double quotation mark
.\" XXX: The next two are troublesome; see Savannah #63332.
.\"fchar \[u2020] \[dg]\" dagger
.\"fchar \[u2021] \[dd]\" double dagger
.fchar \[u2022] \[bu]\" bullet
.fchar \[u2024] .\" one dot leader
.fchar \[u2025] .\|.\" two dot leader
.fchar \[u2026] .\|.\|.\" horizontal ellipsis
.fchar \[u2027] \[pc]\" hyphenation point
.\"fchar \[u2030] \[%0]\" per mille sign \" Savannah #63332 again
.fchar \[u2032] \[fm]\" prime
.fchar \[u2033] \[sd]\" double prime
.fchar \[u2039] \[fo]\" left single chevron
.fchar \[u203A] \[fc]\" right single chevron
.if \n[fallbacks*troff-mode] \
.  fchar \[u203D] \o'?!'\" interrobang
.\"fchar \[u203E] \[rn]\" overline \" Savannah #63332 again
.fchar \[u2044] \[f/]\" fraction slash
.fchar \[u2052] %\" commercial minus sign
.fchar \[u2053] \[ti]\" swung dash
.
.rr fallbacks*troff-mode
.
.cp \n[*groff_fallbacks_tmac_C]
.do rr *groff_fallbacks_tmac_C
.
.\" Local Variables:
.\" mode: nroff
.\" fill-column: 72
.\" End:
.\" vim: set filetype=groff textwidth=72: