home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / recode-3.2.4 / ebcdcdca.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-08-19  |  3.3 KB  |  68 lines
  1. /* Conversion of files between different charsets and usages.
  2.    Copyright (C) 1990 Free Software Foundation, Inc.
  3.    Francois Pinard <pinard@iro.umontreal.ca>, 1988.
  4.  
  5.    This program is free software; you can redistribute it and/or modify
  6.    it under the terms of the GNU General Public License as published by
  7.    the Free Software Foundation; either version 2, or (at your option)
  8.    any later version.
  9.  
  10.    This program is distributed in the hope that it will be useful, but
  11.    WITHOUT ANY WARRANTY; without even the implied warranty of
  12.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13.    General Public License for more details.
  14.  
  15.    You should have received a copy of the GNU General Public License
  16.    along with this program; if not, write to the Free Software
  17.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18. */
  19.  
  20. #define STEP    ebcdic_cdcascii
  21. #include <stdio.h>
  22. #include "common.h"
  23.  
  24. static unsigned char translation_table[256] = 
  25.   {
  26.     '\000', '\001', '\002', '\003', '\234', '\011', '\206', '\177',
  27.     '\227', '\215', '\216', '\013', '\014', '\015', '\016', '\017',
  28.     '\020', '\021', '\022', '\023', '\235', '\205', '\010', '\207',
  29.     '\030', '\031', '\222', '\217', '\034', '\035', '\036', '\037',
  30.     '\200', '\201', '\202', '\203', '\204', '\012', '\027', '\033',
  31.     '\210', '\211', '\212', '\213', '\214', '\005', '\006', '\007',
  32.     '\220', '\221', '\026', '\223', '\224', '\225', '\226', '\004',
  33.     '\230', '\231', '\232', '\233', '\024', '\025', '\236', '\032',
  34.     '\040', '\240', '\241', '\242', '\243', '\244', '\245', '\246',
  35.     '\247', '\250', '\133', '\056', '\074', '\050', '\053', '\041',
  36.     '\046', '\251', '\252', '\253', '\254', '\255', '\256', '\257',
  37.     '\260', '\261', '\135', '\044', '\052', '\051', '\073', '\136',
  38.     '\055', '\057', '\262', '\263', '\264', '\265', '\266', '\267',
  39.     '\270', '\271', '\174', '\054', '\045', '\137', '\076', '\077',
  40.     '\272', '\273', '\274', '\275', '\276', '\277', '\300', '\301',
  41.     '\302', '\140', '\072', '\043', '\100', '\047', '\075', '\042',
  42.     '\303', '\141', '\142', '\143', '\144', '\145', '\146', '\147',
  43.     '\150', '\151', '\304', '\305', '\306', '\307', '\310', '\311',
  44.     '\312', '\152', '\153', '\154', '\155', '\156', '\157', '\160',
  45.     '\161', '\162', '\313', '\314', '\315', '\316', '\317', '\320',
  46.     '\321', '\176', '\163', '\164', '\165', '\166', '\167', '\170',
  47.     '\171', '\172', '\322', '\323', '\324', '\325', '\326', '\327',
  48.     '\330', '\331', '\332', '\333', '\334', '\335', '\336', '\337',
  49.     '\340', '\341', '\342', '\343', '\344', '\345', '\346', '\347',
  50.     '\173', '\101', '\102', '\103', '\104', '\105', '\106', '\107',
  51.     '\110', '\111', '\350', '\351', '\352', '\353', '\354', '\355',
  52.     '\175', '\112', '\113', '\114', '\115', '\116', '\117', '\120',
  53.     '\121', '\122', '\356', '\357', '\360', '\361', '\362', '\363',
  54.     '\134', '\237', '\123', '\124', '\125', '\126', '\127', '\130',
  55.     '\131', '\132', '\364', '\365', '\366', '\367', '\370', '\371',
  56.     '\060', '\061', '\062', '\063', '\064', '\065', '\066', '\067',
  57.     '\070', '\071', '\372', '\373', '\374', '\375', '\376', '\377',
  58.   };
  59.  
  60. void
  61. STEP (FILE *input_file, FILE *output_file)
  62. {
  63.   int input_char;        /* current character */
  64.  
  65.   while (input_char = getc (input_file), input_char != EOF)
  66.     putc (translation_table[input_char], output_file);
  67. }
  68.