home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / D / CLISP / CLISPSRC.TAR / clisp-1995-01-01 / atari / cv_lt_at.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-07-23  |  3.8 KB  |  132 lines
  1. /* Konversionsprogramm SUN4-Zeichensatz -> Atari-Zeichensatz */
  2. /* Bruno Haible 10.1.1991 */
  3.  
  4. #include <stdio.h>
  5.  
  6. main ()
  7. { static int tabelle[256];
  8.   /* Tabelle initialisieren: */
  9.   int atari, sun4;
  10. #define ATARI(x) atari=x;
  11. #define SUN4(y) sun4=y;
  12. #define _ tabelle[sun4]=atari;
  13.   { int i;
  14.     for (i=0;i<128;i++) { SUN4(i) ATARI(i) _ }
  15.   }
  16.   { int i;
  17.     for (i=0;i<32;i++) { SUN4(128+i) ATARI(i) _ }
  18.   }
  19.   SUN4(160) ATARI(32) _ /* á */
  20.   SUN4(161) ATARI(173) _ /* í */
  21.   SUN4(162) ATARI(155) _ /* ó */
  22.   SUN4(163) ATARI(156) _ /* ú */
  23.   SUN4(164) ATARI(-1) _ /* ñ */
  24.   SUN4(165) ATARI(157) _ /* Ñ */
  25.   SUN4(166) ATARI(124) _ /* ª */
  26.   SUN4(167) ATARI(221) _ /* º */
  27.   SUN4(168) ATARI(185) _ /* ¿ */
  28.   SUN4(169) ATARI(189) _ /* ⌐ */
  29.   SUN4(170) ATARI(166) _ /* ¬ */
  30.   SUN4(171) ATARI(174) _ /* ½ */
  31.   SUN4(172) ATARI(170) _ /* ¼ */
  32.   SUN4(173) ATARI(45) _ /* ¡ */
  33.   SUN4(174) ATARI(190) _ /* « */
  34.   SUN4(175) ATARI(255) _ /* » */
  35.   SUN4(176) ATARI(248) _ /* ░ */
  36.   SUN4(177) ATARI(241) _ /* ▒ */
  37.   SUN4(178) ATARI(253) _ /* ▓ */
  38.   SUN4(179) ATARI(254) _ /* │ */
  39.   SUN4(180) ATARI(186) _ /* ┤ */
  40.   SUN4(181) ATARI(230) _ /* ╡ */
  41.   SUN4(182) ATARI(188) _ /* ╢ */
  42.   SUN4(183) ATARI(-1) _ /* ╖ */
  43.   SUN4(184) ATARI(44) _ /* ╕ */
  44.   SUN4(185) ATARI(-1) _ /* ╣ */
  45.   SUN4(186) ATARI(167) _ /* ║ */
  46.   SUN4(187) ATARI(175) _ /* ╗ */
  47.   SUN4(188) ATARI(172) _ /* ╝ */
  48.   SUN4(189) ATARI(171) _ /* ╜ */
  49.   SUN4(190) ATARI(-1) _ /* ╛ */
  50.   SUN4(191) ATARI(168) _ /* ┐ */
  51.   SUN4(192) ATARI(182) _ /* └ */
  52.   SUN4(193) ATARI(-1) _ /* ┴ */
  53.   SUN4(194) ATARI(-1) _ /* ┬ */
  54.   SUN4(195) ATARI(183) _ /* ├ */
  55.   SUN4(196) ATARI(142) _ /* ─ */
  56.   SUN4(197) ATARI(143) _ /* ┼ */
  57.   SUN4(198) ATARI(146) _ /* ╞ */
  58.   SUN4(199) ATARI(128) _ /* ╟ */
  59.   SUN4(200) ATARI(-1) _ /* ╚ */
  60.   SUN4(201) ATARI(144) _ /* ╔ */
  61.   SUN4(202) ATARI(-1) _ /* ╩ */
  62.   SUN4(203) ATARI(-1) _ /* ╦ */
  63.   SUN4(204) ATARI(-1) _ /* ╠ */
  64.   SUN4(205) ATARI(-1) _ /* ═ */
  65.   SUN4(206) ATARI(-1) _ /* ╬ */
  66.   SUN4(207) ATARI(-1) _ /* ╧ */
  67.   SUN4(208) ATARI(-1) _ /* ╨ */
  68.   SUN4(209) ATARI(165) _ /* ╤ */
  69.   SUN4(210) ATARI(-1) _ /* ╥ */
  70.   SUN4(211) ATARI(-1) _ /* ╙ */
  71.   SUN4(212) ATARI(-1) _ /* ╘ */
  72.   SUN4(213) ATARI(184) _ /* ╒ */
  73.   SUN4(214) ATARI(153) _ /* ╓ */
  74.   SUN4(215) ATARI(-1) _ /* ╫ */
  75.   SUN4(216) ATARI(178) _ /* ╪ */
  76.   SUN4(217) ATARI(-1) _ /* ┘ */
  77.   SUN4(218) ATARI(-1) _ /* ┌ */
  78.   SUN4(219) ATARI(-1) _ /* █ */
  79.   SUN4(220) ATARI(154) _ /* ▄ */
  80.   SUN4(221) ATARI(-1) _ /* ▌ */
  81.   SUN4(222) ATARI(-1) _ /* ▐ */
  82.   SUN4(223) ATARI(158) _ /* ▀ */
  83.   SUN4(224) ATARI(133) _ /* α */
  84.   SUN4(225) ATARI(160) _ /* ß */
  85.   SUN4(226) ATARI(131) _ /* Γ */
  86.   SUN4(227) ATARI(176) _ /* π */
  87.   SUN4(228) ATARI(132) _ /* Σ */
  88.   SUN4(229) ATARI(134) _ /* σ */
  89.   SUN4(230) ATARI(145) _ /* µ */
  90.   SUN4(231) ATARI(135) _ /* τ */
  91.   SUN4(232) ATARI(138) _ /* Φ */
  92.   SUN4(233) ATARI(130) _ /* Θ */
  93.   SUN4(234) ATARI(136) _ /* Ω */
  94.   SUN4(235) ATARI(137) _ /* δ */
  95.   SUN4(236) ATARI(141) _ /* ∞ */
  96.   SUN4(237) ATARI(161) _ /* φ */
  97.   SUN4(238) ATARI(140) _ /* ε */
  98.   SUN4(239) ATARI(139) _ /* ∩ */
  99.   SUN4(240) ATARI(-1) _ /* ≡ */
  100.   SUN4(241) ATARI(164) _ /* ± */
  101.   SUN4(242) ATARI(149) _ /* ≥ */
  102.   SUN4(243) ATARI(162) _ /* ≤ */
  103.   SUN4(244) ATARI(147) _ /* ⌠ */
  104.   SUN4(245) ATARI(177) _ /* ⌡ */
  105.   SUN4(246) ATARI(148) _ /* ÷ */
  106.   SUN4(247) ATARI(246) _ /* ≈ */
  107.   SUN4(248) ATARI(179) _ /* ° */
  108.   SUN4(249) ATARI(151) _ /* ∙ */
  109.   SUN4(250) ATARI(163) _ /* · */
  110.   SUN4(251) ATARI(150) _ /* √ */
  111.   SUN4(252) ATARI(129) _ /* ⁿ */
  112.   SUN4(253) ATARI(-1) _ /* ² */
  113.   SUN4(254) ATARI(-1) _ /* ■ */
  114.   SUN4(255) ATARI(152) _ /*   */
  115. #undef _
  116. #undef SUN4
  117. #undef ATARI
  118.   { int fehler = 0;
  119.     int c;
  120.     while (!((c = getchar()) == EOF))
  121.       { c = tabelle[c];
  122.         if (c < 0) { fehler++; } else putchar(c);
  123.       }
  124.     if (!(fehler == 0))
  125.       { fprintf(stderr,"%d illegal characters\n",fehler); exit(1); }
  126.       else
  127.       if (ferror(stdin) || ferror(stdout))
  128.         { exit(1); }
  129.         else
  130.         { exit(0); }
  131. } }
  132.