home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / recode-3.2.4 / ebcdccca.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_cccascii
  21. #include <stdio.h>
  22. #include "common.h"
  23.  
  24. static unsigned char translation_table[256] = 
  25.   {
  26.     '\000', '\001', '\002', '\003', '\200', '\011', '\201', '\177',
  27.     '\202', '\203', '\204', '\013', '\014', '\015', '\016', '\017',
  28.     '\020', '\021', '\022', '\023', '\205', '\206', '\010', '\207',
  29.     '\030', '\031', '\210', '\211', '\034', '\035', '\036', '\037',
  30.     '\220', '\221', '\222', '\223', '\224', '\012', '\027', '\033',
  31.     '\225', '\226', '\227', '\230', '\231', '\005', '\006', '\007',
  32.     '\240', '\241', '\026', '\242', '\243', '\244', '\245', '\004',
  33.     '\246', '\247', '\250', '\251', '\024', '\025', '\371', '\032',
  34.     '\040', '\301', '\302', '\303', '\304', '\305', '\306', '\307',
  35.     '\310', '\311', '\133', '\056', '\074', '\050', '\053', '\135',
  36.     '\046', '\321', '\322', '\323', '\324', '\325', '\326', '\327',
  37.     '\330', '\331', '\041', '\044', '\052', '\051', '\073', '\136',
  38.     '\055', '\057', '\342', '\343', '\344', '\345', '\346', '\347',
  39.     '\350', '\351', '\174', '\054', '\045', '\137', '\076', '\077',
  40.     '\360', '\361', '\362', '\363', '\364', '\365', '\366', '\367',
  41.     '\370', '\140', '\072', '\043', '\100', '\047', '\075', '\042',
  42.     '\300', '\141', '\142', '\143', '\144', '\145', '\146', '\147',
  43.     '\150', '\151', '\212', '\213', '\214', '\215', '\216', '\217',
  44.     '\320', '\152', '\153', '\154', '\155', '\156', '\157', '\160',
  45.     '\161', '\162', '\232', '\233', '\234', '\235', '\236', '\237',
  46.     '\340', '\176', '\163', '\164', '\165', '\166', '\167', '\170',
  47.     '\171', '\172', '\252', '\253', '\254', '\255', '\256', '\257',
  48.     '\260', '\261', '\262', '\263', '\264', '\265', '\266', '\267',
  49.     '\270', '\271', '\272', '\273', '\274', '\275', '\276', '\277',
  50.     '\173', '\101', '\102', '\103', '\104', '\105', '\106', '\107',
  51.     '\110', '\111', '\312', '\313', '\314', '\315', '\316', '\317',
  52.     '\175', '\112', '\113', '\114', '\115', '\116', '\117', '\120',
  53.     '\121', '\122', '\332', '\333', '\334', '\335', '\336', '\337',
  54.     '\134', '\341', '\123', '\124', '\125', '\126', '\127', '\130',
  55.     '\131', '\132', '\352', '\353', '\354', '\355', '\356', '\357',
  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.