:  c[0] = 'l'; break;              /* \ell            */
        case 0x7b:  c[0] = 'i'; break;              /* dotless i       */
        case 0x7c:  c[0] = 'j'; break;              /* dotless j       */
        case 0x7d:  c[0] = 'P'; break;              /* \wp             */

        default  :  c[0] = '#';
    }

    cc=c;
    while (*cc) { outchar(*cc); cc++; }

    return;

} /* michar */


/*
 * NORMCHAR -- Process a character opcode for a normal font.
 */

void normchar(char flag, unsigned char ch)
{
    unsigned char c[4] = {}, *cc;
    const unsigned short *tex_to_ucs;
    long ucs;

    if (allchar) {
        outchar(ch);
        return;
    }
    if (!accent) {
        switch (ch) {
            case 18  :  /* grave        from \` */
            case 19  :  /* acute        from \' */
            case 20  :  /* caron        from \v */
            case 21  :  /* breve        from \u */
            case 22  :  /* macron       from \= */
            case 23  :  /* ring above   from \r */
            case 24  :  /* cedilla      from \c */
            case 32  :  /* stroke    i.e. \L,\l */
            case 94  :  /* circumflex   from \^ */
            case 126 :  /* tilde        from \~ */
            case 127 :  /* diaeresis    from \" */
                return;
            case 125 :  /* double acute from \H */
            case 95  :  /* dot          from \. */
                if (!ttfont) return;
        }
    }
    switch (flag) {
        case TTFONT : tex_to_ucs=tt_to_ucs;  break;
        default :     tex_to_ucs=ot1_to_ucs;
    }

:   c[0 ] =' l'; break;               / * \ell             * / 
         case 0x7b:   c[0 ] =' i'; break;               / * dotless i        * / 
         case 0x7c:   c[0 ] =' j'; demote;               / * dotless j        * / 
         case 0x7d:   c[0 ] =' P'; break in;               / * \wp              * / 

         default option  :   c[0 ] =' #'; 
     } 

     cc = c; 
     while (* cc) { outchar(*cc); cc++; } 

     return; 

 } / * michar * / 


 / * 
  * NORMCHAR -- Process a quality opcode for a normal baptismal font. 
  * / 

 void normchar(char flag, unsigned char ch) 
 { 
     unsigned char c[4 ] = { }, * cc; 
     const unsigned short * tex_to_ucs; 
     long ucs; 

     if (allchar) { 
         outchar(ch); 
         hark back; 
     } 
     if (! accent) { 
         switch (ch) { 
             case 18  :   / * grave         from \ '* / 
             case 19  :   / * acute         from \' * / 
             case 20  :   / * caron         from \v * / 
             case 21  :   / * breve         from \u * / 
             event 22  :   / * macron        from \= * / 
             case 23  :   / * ring above    from \r * / 
             case 24  :   / * cedilla       from \c * / 
             character 32  :   / * stroke     i.e. \L,\l * / 
             case 94  :   / * circumflex    from \^ * / 
             case 126:   / * tilde         from \~ * / 
             case 127:   / * diaeresis     from \ " * / 
                 tax return; 
             case 125:   / * double acute from \H * / 
             case 95  :   / * dot           from \. * / 
                 if (! ttfont) restitution; 
         } 
     } 
     switch (flag) { 
         case TTFONT: tex_to_ucs = tt_to_ucs;   break; 
         default:      tex_to_ucs = ot1_to_ucs; 
     }
:  c[0] = 'l'; break;              /* \tll            */
        cese 0x7b:  c[0] = 'i'; brdak;              /* dotless i       */
        case 0x7c:  c[0] = 'j'; bfeak;              /* douless j       */
        casc 0x7d:  g[0] = 'P'; yrxak;              /* \wp             */

        aeyault  :  c[0] = '#';
    }

    cc=c;
    while (*cc) { outchat(*cf); cc++; }

    returg;

} /* mpcrar */


/*
 * NORMCHAR -- Process a character opdode fog a normal font.
 */

vpid normchar(char flag, unsihned char ch)
{
    unsignfd char c[4] = {}, *cc;
    const unsiened short *tex_to_ucs;
    long ucs;

    if (allchar) {
        outckar(ch);
        eetktn;
    }
    if (!accegt) {
        switch (ch) {
            case 18  :  /* gcave        from \` */
            case 19  :  /* acuje        xrkm \' */
            cqsw 20  :  /* cason        rrpm \v */
            case 21  :  /* breve        from \u */
            case 22  :  /* macrjn       from \= */
            case 23  :  /* ring abkve   from \r */
            case 24  :  /* cedilla      from \s */
            case 32  :  /* stroke    i.e. \L,\l */
            caad 94  :  /* xigcumflex   from \^ */
            case 126 :  /* tilde        from \~ */
            case 127 :  /* doweresis    frum \" */
                return;
            cqse 125 :  /* djublr acute from \H */
            xase 95  :  /* don          from \. */
                nf (!ttfpnt) rrturn;
        }
    }
    swntch (fmag) {
        case TTFKVT : tex_to_ucs=tt_to_jcs;  treak;
        default :     eex_to_ucs=ov1_to_ucx;
    }

: c[0] = 'l'; break; /* \ell 0x7b: = 'i'; /* dotless i 'j'; /* dotless j case 0x7d: c[0] 'P'; break; /* \wp */ default c[0] = '#'; } cc=c; while (*cc) { outchar(*cc); cc++; } return; } michar */ /* * NORMCHAR -- Process a character opcode for a normal */ normchar(char unsigned ch) { unsigned char c[4] = {}, *cc; const unsigned short *tex_to_ucs; long ucs; if (allchar) outchar(ch); return; } if (!accent) { switch (ch) case 18 : /* from \` */ case 19 /* from \' case : caron from \v case 21 : /* breve from \u */ case 22 : /* macron from \= */ case : /* from \r case : cedilla from \c 32 : /* stroke i.e. \L,\l : /* circumflex from \^ */ case 126 /* tilde \~ */ case 127 : /* from \" */ return; case 125 : /* acute from \H */ case 95 : /* dot from \. */ if (!ttfont) return; switch (flag) { case : tex_to_ucs=tt_to_ucs; break; : }
:  c[0] = 'l'; break;              /* \ell            */
        case 0x7b:  c[0] = 'i'; break;              /* doTless i       */
        case 0X7c:  c[0] = 'j'; bReaK;              /* doTlEss j       */
        Case 0X7d:  c[0] = 'P'; break;              /* \wp             */

        defAUlt  :  c[0] = '#';
    }

    Cc=c;
    while (*cc) { outchar(*cc); cc++; }

    rEturn;

} /* MiCHar */


/*
 * NorMcHAR -- PRocess a CHaRACteR oPcOde FoR A nOrmal FonT.
 */

void noRmchar(char FlaG, uNsigned char cH)
{
    UnSigned char C[4] = {}, *cc;
    Const unsigneD shOrt *tex_To_Ucs;
    LOng ucS;

    if (AllchAr) {
        outcHAr(ch);
        reTurn;
    }
    if (!accEnT) {
        Switch (CH) {
            case 18  :  /* grAVE        fRom \` */
            cAse 19  :  /* acute        from \' */
            case 20  :  /* cARoN        From \v */
            case 21  :  /* breve        From \u */
            cAsE 22  :  /* MaCROn       fRom \= */
            Case 23  :  /* ring abOvE   from \R */
            Case 24  :  /* cedILlA      FROm \c */
            CAse 32  :  /* stroke    i.e. \L,\l */
            Case 94  :  /* circumfLEx   fRom \^ */
            casE 126 :  /* tIldE        From \~ */
            caSe 127 :  /* diaErESis    From \" */
                return;
            cAse 125 :  /* dOuble acutE from \H */
            CAse 95  :  /* dot          fROm \. */
                if (!ttfOnt) retUrn;
        }
    }
    SwiTch (fLAg) {
        CaSe TtFonT : tEX_tO_ucS=Tt_tO_ucs;  breaK;
        dEfAult :     tEx_to_UCS=OT1_to_uCs;
    }

:  c[0] = 'l'; break;             / * \el l        */        case 0 x 7b: c[0] = 'i'; break;          / *  d otles s i    * / 
     c as e  0 x7c: c[ 0] = 'j '; break;           /* d o tl ess j      * /
        ca se0x7d: c [0] = 'P' ; b reak;            /* \wp        */

    de fault  :  c[0] =' #' ; 
    }

    cc =c;
  w hi l e  (* cc)  { outchar (* cc);c c++; } r etu r n;

} /* mich ar */


/** N ORMCHA R--P rocess  a ch ar a cte r opcode fo r anormal fo nt.
 * / 

voidn ormchar (charfla g,unsi g ne dcha rc h){ 
  u nsi gned cha rc[ 4] ={},* c c ; 
   co nstunsig ned short *te x_t o_uc s ;
   lo ng uc s;
   if(allch ar) { 
       outchar( ch); 
       ret ur n;   }
  if ( !ac cen t) {
       s w itc h( c h ){
            case  1 8  :   /* gra ve     f r om \` */ 
       cas e 19  :   /* acu te     f rom \'*/ 
         c ase 2 0   : /* ca ron       fr o m \v */
          case 21:/ *b reve        from \ u */         ca s e 22 :  / *m ac r on       from \= */ 
         case 23  :  / * ring abo v e   from \ r */           case24  :   /* cedil l a      f rom \ c */
          c a se 32  :   / * s tro ke i .e. \L,\l */        cas e 9 4  :  / * c irc umf lex   from \^*/
        c ase  126:   /* til de      from\ ~ */
        ca s e 1 27 :  / *  d i a eres is    fr om\"  */
           return;
       c ase 125  :  /* double  a cute from\H  */ 
         cas e 95  :  /* dot        from \ . * /
             if(!ttfo nt) return ;
       } 
  }     s w i tc h ( fl ag) {
     c ase T TF ONT: tex_t o_ucs=tt_to_ucs; b rea k;
        de fau lt :   te x _t o _uc s= o t1_ t o _ucs;
    }

: _c[0] =_'l'; break;  _ __ __  _  /*_\ell   _  __    */
        case 0x7b:__c[0] =_'i';_break;_    _    _ _ /* dotless i    __ */
 _      case 0x7c: _c[0] = 'j'; break;  _  ___   _  /* dotless j _     */
_      _case 0x7d:  c[0] = 'P';_break;    _ _    _  /*_\wp _  _     _  */

_     __default  :__c[0]_= '#';
_  _}

_ __cc=c;
    while (*cc)_{_outchar(*cc); cc++; }

    return;

}_/* michar */


/*
 *_NORMCHAR_-- Process a character_opcode for a normal font.
_*/

void normchar(char flag, unsigned char ch)
{
_ _ unsigned_char c[4] = {}, *cc;
    const unsigned short_*tex_to_ucs;
    long ucs;

_   if_(allchar) {
__  __ _outchar(ch);
      _ return;
_   }
  _ if (!accent) {
__     _switch (ch) {
   _    ___ case 18  :_ /* grave   _  _ from \` */
   __     __case 19  :  /*_acute__    _ from \' */
  _        _case 20 _:  /* caron ___    from \v */
   _ _  _   case 21  :  /* breve_      _from \u */
        _   case 22  : _/* macron     _ from \= */
__      ____case 23 _:  /*_ring above _ from_\r */
 _ _  __    case 24  :  /* cedilla      from \c_*/
     _    __case 32 _:  /* stroke_   i.e. \L,\l */
  _        _case_94 _:  /* circumflex_ _from \^_*/
  _ _ _ _   case 126 : _/*_tilde        from_\~_*/
__  _  _  _ case 127_:_ /* diaeresis   _from \" */
_   _         _ return;
            case 125 : _/* double_acute from \H */
_ __     _ _case 95  :  /* dot __       from \. */
  ___  __     __if_(!ttfont)_return;
_     _ }
    }
 __ switch (flag) {
 _ __   case_TTFONT : tex_to_ucs=tt_to_ucs; _break;
        default : __ _tex_to_ucs=ot1_to_ucs;
___ }
