home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / D / CLISP / CLISPSRC.TAR / clisp-1995-01-01 / utils / charset / cvibmpcatari.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-07-23  |  2.0 KB  |  74 lines
  1. /* Konversionsprogramm IBMPC-Zeichensatz -> Atari-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[ibmpc]=atari;
  13.   { int i;
  14.     for (i=0;i<128;i++) { IBMPC(i) ATARI(i) _ }
  15.   }
  16.   IBMPC(20) ATARI(188) _ /* ╢ */
  17.   IBMPC(21) ATARI(221) _ /* º */
  18.   { int i; /* ╟ⁿΘΓΣαστΩδΦ∩ε∞─┼╔µ╞⌠÷≥√∙ ╓▄óúÑ ßφ≤·±╤¬║┐¼╜╝í½╗ */
  19.     for (i=128;i<176;i++) if (!(i==158)) { IBMPC(i) ATARI(i) _ }
  20.   }
  21.   IBMPC(158) ATARI(-1) _ /* Pt */
  22.   { int i;
  23.     for (i=176;i<224;i++) { IBMPC(i) ATARI(-1) _ }
  24.   }
  25.   IBMPC(224) ATARI(224) _ /*  */
  26.   IBMPC(225) ATARI(158) _ /* ▀ */
  27.   IBMPC(226) ATARI(226) _ /*  */
  28.   IBMPC(227) ATARI(227) _ /*  */
  29.   IBMPC(228) ATARI(228) _ /*  */
  30.   IBMPC(229) ATARI(229) _ /*  */
  31.   IBMPC(230) ATARI(230) _ /* ╡ */
  32.   IBMPC(231) ATARI(231) _ /*  */
  33.   IBMPC(232) ATARI(232) _ /*  */
  34.   IBMPC(233) ATARI(233) _ /*  */
  35.   IBMPC(234) ATARI(234) _ /*  */
  36.   IBMPC(235) ATARI(235) _ /*  */
  37.   IBMPC(236) ATARI(223) _ /*  */
  38.   IBMPC(237) ATARI(237) _ /*  */
  39.   IBMPC(238) ATARI(238) _ /*  */
  40.   IBMPC(239) ATARI(239) _ /*  */
  41.   IBMPC(240) ATARI(240) _ /*  */
  42.   IBMPC(241) ATARI(241) _ /* ▒ */
  43.   IBMPC(242) ATARI(242) _ /*  */
  44.   IBMPC(243) ATARI(243) _ /*  */
  45.   IBMPC(244) ATARI(244) _ /*  */
  46.   IBMPC(245) ATARI(245) _ /*  */
  47.   IBMPC(246) ATARI(246) _ /* ≈ */
  48.   IBMPC(247) ATARI(247) _ /*  */
  49.   IBMPC(248) ATARI(248) _ /* ░ */
  50.   IBMPC(249) ATARI(249) _ /*  */
  51.   IBMPC(250) ATARI(250) _ /*  */
  52.   IBMPC(251) ATARI(251) _ /*  */
  53.   IBMPC(252) ATARI(252) _ /*  */
  54.   IBMPC(253) ATARI(253) _ /* ▓ */
  55.   IBMPC(254) ATARI(-1) _
  56.   IBMPC(255) ATARI(-1) _
  57. #undef _
  58. #undef IBMPC
  59. #undef ATARI
  60.   { int fehler = 0;
  61.     int c;
  62.     while (!((c = getchar()) == EOF))
  63.       { c = tabelle[c];
  64.         if (c < 0) { fehler++; } else putchar(c);
  65.       }
  66.     if (!(fehler == 0))
  67.       { fprintf(stderr,"%d illegal characters\n",fehler); exit(1); }
  68.       else
  69.       if (ferror(stdin) || ferror(stdout))
  70.         { exit(1); }
  71.         else
  72.         { exit(0); }
  73. } }
  74.