%D \module
%D   [       file=enco-mis,
%D        version=2000.5.7, % 1999.11.11,
%D          title=\CONTEXT\ Encoding Macros,
%D       subtitle=Missing Glyphs,
%D         author=Hans Hagen,
%D           date=\currentdate,
%D      copyright=PRAGMA-ADE]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for 
%C details. 

%D In this file we collect some definitions that construct 
%D pseudo characters. Some day we will move some definitions 
%D from \type {plain.tex} to this file. Some definitions are 
%D derived from definitions in the \LATEX\ distribution, 
%D especially Johannes Braams' Babel system.  

\startmapping[\s!default] 

\defineuppercasecom \dj  \DJ
\defineuppercasecom \Dj  \dj
\defineuppercasecom \DJ  \dj

\stopmapping 

%D We need proper names like in enco-com.tex!

\definecharacter dj {\pseudoencodeddj}
\definecharacter Dj {\pseudoencodedDJ}
\definecharacter DJ {\pseudoencodedDJ}

\unprotect 

\def\pseudoencodeddj % like in babel 
  {\leavevmode\hbox\bgroup
   \setbox0\hbox{d}%
   \dimen0=\ht0
   \advance\dimen0 1ex
   \dimen0=.45\dimen0
   \dimen2\expandafter\withoutpt\the\fontdimen1\font\dimen0
   \advance\dimen2 .5ex
   \rlap{\raise\dimen0\hbox{\kern\dimen2\vbox{\hrule\!!height0.1ex\!!width0.3em}}}%
   \box0
   \egroup}

\def\pseudoencodedDJ % like in babel 
  {\leavevmode
   \hbox\bgroup
   \setbox0\hbox{D}%
   \dimen0=.55\ht0
   \dimen2\expandafter\withoutpt\the\fontdimen1\font\dimen0
   \advance\dimen2 .15ex 
   \advance\dimen2 -.15\fontdimen7\font 
   \dimen4\expandafter\withoutpt\the\fontdimen7\font\dimen0
   \rlap{\raise\dimen0\hbox{\kern\dimen2\vbox{\hrule\!!height0.1ex\!!width0.33em}}}%
   \box0
   \egroup}

% currency

\def\fakedollar % pretty cmr dependent 
  {\bgroup
   \ifnum\fam=\itfam
     \sl
   \else\ifnum\fam=\bifam
     \bs
   \fi\fi
   \$%
   \egroup}

\def\fakesterling % pretty cmr dependent  
  {\bgroup
   \ifnum\fam=\bffam
     \bi
   \else\ifnum\fam=\bifam
     \bi
   \else\ifnum\fam=\bsfam
     \bi
   \else
     \it
   \fi\fi\fi
   \$%
   \egroup}

\def\fakeflorin
  {\bgroup
   \ifnum\fam=\bffam
     \bi
   \else\ifnum\fam=\bifam
     \bi
   \else\ifnum\fam=\bsfam
     \bi
   \else
     \it
   \fi\fi\fi
   f%
   \egroup}

% perthings

\def\fakeperthousand
  {\mathematics{^{\scriptscriptstyle0}\kern-.25em/\kern-.2em_{\scriptscriptstyle00}}}

\def\fakepercent
  {\mathematics{^{\scriptscriptstyle0}\kern-.25em/\kern-.2em_{\scriptscriptstyle0}}}

\def\fakepermine
  {\dontleavehmode
   \bgroup
   \setbox0\hbox
     {\mathematics{+}}%
   \hbox to \wd0
     {\hss
      \mathematics{^{\scriptscriptstyle-}\kern-.4em/\kern-.3em_{\scriptscriptstyle-}}%
      \hss}%
   \egroup}

% guillemots 

%D Yes I know, they are ugly:

\def\fakeleftguillemot
  {\dontleavehmode\hbox{\raise.25ex\hbox{$\scriptscriptstyle\ll$}}}

\def\fakerightguillemot
  {\hbox{\raise.25ex\hbox{$\scriptscriptstyle\gg$}}}

\def\fakeleftsubguillemot
  {\dontleavehmode\hbox{\raise.25ex\hbox{$\scriptscriptstyle<$}}}

\def\fakerightsubguillemot
  {\hbox{\raise.25ex\hbox{$\scriptscriptstyle>$}}}

%D Needed: 

\def\fakevisiblespace
  {\leavevmode\hbox
     {\setbox\scratchbox\hbox{(}%
      \scratchdimen.1\dp\scratchbox
      \setbox\scratchbox\hbox{\space}%
      \hbox to \wd\scratchbox
        {\vrule 
           \!!depth  5\scratchdimen
           \!!width   \scratchdimen 
           \!!height  \zeropoint
         \hss
         \vrule 
           \!!depth  5\scratchdimen
           \!!width   \wd\scratchbox
           \!!height-4\scratchdimen
         \hss
         \vrule 
           \!!depth  5\scratchdimen
           \!!width   \scratchdimen 
           \!!height  \zeropoint}}}

%\def\fakeunderscore{\leavevmode\kern.06em\vbox{\hrule\!!width.3em}} 

\def\fakeunderscore
  {\leavevmode\hbox
     {\setbox\scratchbox\hbox{(}%
      \scratchdimen.2\dp\scratchbox
      \setbox\scratchbox\hbox{\space}%
      \vrule 
        \!!depth \scratchdimen
        \!!width \wd\scratchbox
        \!!height\zeropoint}}

\ifx\mathunderscore\undefined \let\mathunderscore\fakeunderscore \fi
\ifx\textunderscore\undefined \let\textunderscore\fakeunderscore \fi

\def\_{\ifmmode\mathunderscore\else\textunderscore\fi}

%D Handy: 

\def\missingglyph{\ruledhbox{?}}

\protect \endinput 
