Conversão tex2iso via flex

/*

conversão tex -> iso

provavelmente nao so a tabela no comentario a seguir como tambem o
codigo flex estao incompletos, mas para textos em portugues ele
funcionara' bem. Ricardo Ueda.

*/


/*

      (* ----------------------- *)
      (*     |  decimal  |       *)
      (*     |ISO|DOS|ASC|       *)
      (* ----+---+---+---+------ *)
      (* á *) 225,160,097, (* 01 *)
      (* é *) 233,130,101, (* 02 *)
      (* í *) 237,161,105, (* 03 *)
      (* ó *) 243,162,111, (* 04 *)
      (* ú *) 250,163,117, (* 05 *)
      (* à *) 224,133,097, (* 06 *)
      (* è *) 232,138,101, (* 07 *)
      (* ì *) 236,141,105, (* 08 *)
      (* ò *) 242,149,111, (* 09 *)
      (* ù *) 249,151,117, (* 10 *)
      (* Á *) 193,181,065, (* 11 *)
      (* É *) 201,144,069, (* 12 *)
      (* Í *) 205,214,073, (* 13 *)
      (* Ó *) 211,224,079, (* 14 *)
      (* Ú *) 218,233,085, (* 15 *)
      (* À *) 192,183,065, (* 16 *)
      (* È *) 200,212,069, (* 17 *)
      (* Ì *) 204,222,073, (* 18 *)
      (* Ò *) 210,227,079, (* 19 *)
      (* Ù *) 217,235,085, (* 20 *)
      (* ä *) 228,132,097, (* 21 *)
      (* ë *) 235,137,101, (* 22 *)
      (* ï *) 239,139,105, (* 23 *)
      (* ö *) 246,148,111, (* 24 *)
      (* ü *) 252,129,117, (* 25 *)
      (* Ä *) 196,142,065, (* 26 *)
      (* Ë *) 203,211,069, (* 27 *)
      (* Ï *) 207,216,073, (* 28 *)
      (* Ö *) 214,153,079, (* 39 *)
      (* Ü *) 220,154,085, (* 30 *)
      (* â *) 226,131,097, (* 31 *)
      (* ê *) 234,136,101, (* 32 *)
      (* î *) 238,140,105, (* 33 *)
      (* ô *) 244,147,111, (* 34 *)
      (* û *) 251,150,117, (* 35 *)
      (* Â *) 194,182,065, (* 36 *)
      (* Ê *) 202,210,069, (* 37 *)
      (* Î *) 206,215,073, (* 38 *)
      (* Ô *) 212,226,079, (* 39 *)
      (* Û *) 219,234,085, (* 40 *)
      (* ã *) 227,198,097, (* 41 *)
      (* õ *) 245,228,111, (* 42 *)
      (* Ã *) 195,199,065, (* 43 *)
      (* Õ *) 213,229,079, (* 44 *)
      (* å *) 229,134,097, (* 45 *)
      (* Å *) 197,143,065, (* 46 *)
      (* ñ *) 241,164,110, (* 47 *)
      (* Ñ *) 209,165,078, (* 48 *)
      (* ý *) 253,152,121, (* 49 *)
      (* ç *) 231,135,099, (* 50 *)
      (* Ç *) 199,128,067, (* 51 *)
      (* ¿ *) 191,168,063, (* 52 *)
      (* ¡ *) 161,173,033  (* 53 *)
      (* ----------------------- *)
*/

%%
'" " putchar(39);
`" " putchar(96);
~" " putchar(126);
\^" " putchar(94);
\"" " putchar(34);
\/" " putchar(47);
\\\'a putchar(225);
\\\'e putchar(233);
\\\'i putchar(237);
\\\'o putchar(243);
\\\'u putchar(250);
\\\`a putchar(224);
\\\`e putchar(232);
\\\`i putchar(236);
\\\`o putchar(242);
\\\`u putchar(249);
\\\'A putchar(193);
\\\'E putchar(201);
\\\'I putchar(205);
\\\'O putchar(211);
\\\'U putchar(218);
\\\`A putchar(192);
\\\`E putchar(200);
\\\`I putchar(204);
\\\`O putchar(210);
\\\`U putchar(217);
\\\'\{a\} putchar(225);
\\\'\{e\} putchar(233);
\\\'\{\\i\} putchar(237);
\\\'\{o\} putchar(243);
\\\'\{u\} putchar(250);
\\\`\{a\} putchar(224);
\\\`\{e\} putchar(232);
\\\`\{i\} putchar(236);
\\\`\{o\} putchar(242);
\\\`\{u\} putchar(249);
\\\'\{A\} putchar(193);
\\\'\{E\} putchar(201);
\\\'\{I\} putchar(205);
\\\'\{O\} putchar(211);
\\\'\{U\} putchar(218);
\\\`\{A\} putchar(192);
\\\`\{E\} putchar(200);
\\\`\{I\} putchar(204);
\\\`\{O\} putchar(210);
\\\`\{U\} putchar(217);
\\\"a putchar(228);
\\\"e putchar(235);
\\\"i putchar(239);
\\\"o putchar(246);
\\\"u putchar(252);
\\\"A putchar(196);
\\\"E putchar(203);
\\\"I putchar(207);
\\\"O putchar(214);
\\\"U putchar(220);
\\\"\{a\} putchar(228);
\\\"\{e\} putchar(235);
\\\"\{\\i\} putchar(239);
\\\"\{o\} putchar(246);
\\\"\{u\} putchar(252);
\\\"\{A\} putchar(196);
\\\"\{E\} putchar(203);
\\\"\{I\} putchar(207);
\\\"\{O\} putchar(214);
\\\"\{U\} putchar(220);
\\\"\" putchar(168); /* general currency sign */
\\\^a putchar(226);
\\\^e putchar(234);
\\\^i putchar(238);
\\\^o putchar(244);
\\\^u putchar(251);
\\\^A putchar(194);
\\\^E putchar(202);
\\\^I putchar(206);
\\\^O putchar(212);
\\\^U putchar(219);
\\\^\{a\} putchar(226);
\\\^\{e\} putchar(234);
\\\^\{i\} putchar(238);
\\\^\{o\} putchar(244);
\\\^\{u\} putchar(251);
\\\^\{A\} putchar(194);
\\\^\{E\} putchar(202);
\\\^\{I\} putchar(206);
\\\^\{O\} putchar(212);
\\\^\{U\} putchar(219);
\\\~a putchar(227);
\\\~o putchar(245);
\\\~A putchar(195);
\\\~O putchar(213);
\\\~\{a\} putchar(227);
\\\~\{o\} putchar(245);
\\\~\{A\} putchar(195);
\\\~\{O\} putchar(213);
\\\/a putchar(229); /* `a' with ring */
\\\/A putchar(197); /* `A' with ring */
\~n putchar(241);
\~N putchar(209);
\\\"y putchar(253);
\\\cc putchar(231);  /* `c' with cedilla */
\\\cC putchar(199);  /* `C' with cedilla */
\\\c\{c\} putchar(231);  /* `c' with cedilla */
\\\c\{C\} putchar(199);  /* `C' with cedilla */
\`\` putchar(171);  /* angle quotation mark left */
\'\' putchar(187);  /* angle quotation mark right */
\~? putchar(191);  /* inverted question mark -- non-emacs */
\~! putchar(161);  /* inverted exclamation mark -- non-emacs */
\\\"s putchar(223); /* german lowercase sharp s */
\\\/E putchar(198); /* AE ligature */
\\\/e putchar(230); /* ae ligature */
\~D putchar(68);   /* `D' with stroke */
\~d putchar(100);  /* `d' with stroke */