home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / D / CLISP / CLISPSRC.TAR / clisp-1995-01-01 / utils / charset / cvatariibmpc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-07-23  |  2.5 KB  |  88 lines
  1. /* Konversionsprogramm Atari-Zeichensatz -> IBMPC-Zeichensatz */
  2. /* Bruno Haible 15.1.1992 */
  3.  
  4. #include <stdio.h>
  5.  
  6. main ()
  7. { static int tabelle[256];
  8.   /* Tabelle initialisieren: */
  9.   int atari, ibmpc;
  10. #define ATARI(x) atari=x;
  11. #define IBMPC(y) ibmpc=y;
  12. #define _ tabelle[atari]=ibmpc;
  13.   { int i;
  14.     for (i=0;i<128;i++) { IBMPC(i) ATARI(i) _ }
  15.   }
  16.   { int i; /* ╟ⁿΘΓΣαστΩδΦ∩ε∞─┼╔µ╞⌠÷≥√∙ ╓▄óúÑ ßφ≤·±╤¬║┐¼╜╝í½╗ */
  17.     for (i=128;i<176;i++) if (!(i==158)) { IBMPC(i) ATARI(i) _ }
  18.   }
  19.   IBMPC(225) ATARI(158) _ /* ▀ */
  20.   IBMPC(-1) ATARI(176) _ /* π */
  21.   IBMPC(-1) ATARI(177) _ /* ⌡ */
  22.   IBMPC(-1) ATARI(178) _ /* ╪ */
  23.   IBMPC(-1) ATARI(179) _ /* ° */
  24.   IBMPC(-1) ATARI(180) _ /* oe */
  25.   IBMPC(-1) ATARI(181) _ /* OE */
  26.   IBMPC(-1) ATARI(182) _ /* └ */
  27.   IBMPC(-1) ATARI(183) _ /* ├ */
  28.   IBMPC(-1) ATARI(184) _ /* ╒ */
  29.   IBMPC(34) ATARI(185) _ /* ¿ */
  30.   IBMPC(39) ATARI(186) _ /* ┤ */
  31.   IBMPC(43) ATARI(187) _ /* + */
  32.   IBMPC(20) ATARI(188) _ /* ╢ */
  33.   { int i;
  34.     for (i=189;i<221;i++) { IBMPC(-1) ATARI(i) _ }
  35.   }
  36.   IBMPC(21) ATARI(221) _ /* º */
  37.   IBMPC(-1) ATARI(222) _ /*  */
  38.   IBMPC(236) ATARI(223) _ /*  */
  39.   IBMPC(224) ATARI(224) _ /*  */
  40.   IBMPC(225) ATARI(225) _ /*  */
  41.   IBMPC(226) ATARI(226) _ /*  */
  42.   IBMPC(227) ATARI(227) _ /*  */
  43.   IBMPC(228) ATARI(228) _ /*  */
  44.   IBMPC(229) ATARI(229) _ /*  */
  45.   IBMPC(230) ATARI(230) _ /* ╡ */
  46.   IBMPC(231) ATARI(231) _ /*  */
  47.   IBMPC(232) ATARI(232) _ /*  */
  48.   IBMPC(233) ATARI(233) _ /*  */
  49.   IBMPC(234) ATARI(234) _ /*  */
  50.   IBMPC(235) ATARI(235) _ /*  */
  51.   IBMPC(-1) ATARI(236) _ /*  */
  52.   IBMPC(237) ATARI(237) _ /*  */
  53.   IBMPC(238) ATARI(238) _ /*  */
  54.   IBMPC(239) ATARI(239) _ /*  */
  55.   IBMPC(240) ATARI(240) _ /*  */
  56.   IBMPC(241) ATARI(241) _ /* ▒ */
  57.   IBMPC(242) ATARI(242) _ /*  */
  58.   IBMPC(243) ATARI(243) _ /*  */
  59.   IBMPC(244) ATARI(244) _ /*  */
  60.   IBMPC(245) ATARI(245) _ /*  */
  61.   IBMPC(246) ATARI(246) _ /* ≈ */
  62.   IBMPC(247) ATARI(247) _ /*  */
  63.   IBMPC(248) ATARI(248) _ /* ░ */
  64.   IBMPC(249) ATARI(249) _ /*  */
  65.   IBMPC(250) ATARI(250) _ /*  */
  66.   IBMPC(251) ATARI(251) _ /*  */
  67.   IBMPC(252) ATARI(252) _ /*  */
  68.   IBMPC(253) ATARI(253) _ /* ▓ */
  69.   IBMPC(-1) ATARI(254) _ /* │ */
  70.   IBMPC(-1) ATARI(255) _ /* » */
  71. #undef _
  72. #undef IBMPC
  73. #undef ATARI
  74.   { int fehler = 0;
  75.     int c;
  76.     while (!((c = getchar()) == EOF))
  77.       { c = tabelle[c];
  78.         if (c < 0) { fehler++; } else putchar(c);
  79.       }
  80.     if (!(fehler == 0))
  81.       { fprintf(stderr,"%d illegal characters\n",fehler); exit(1); }
  82.       else
  83.       if (ferror(stdin) || ferror(stdout))
  84.         { exit(1); }
  85.         else
  86.         { exit(0); }
  87. } }
  88.