home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 479a.lha / Unzip / ascebc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-02-10  |  3.4 KB  |  94 lines
  1. /* ascebc.c -  ASCii to EBCdic.                             
  2.  *             Written by Allan Bjorklund
  3.  *             March 21, 1990
  4.  *
  5.  * v3.04 No more need for ae_buf() since no longer used.
  6.  * v3.01 patched by Bo Kullmar to fix an -a switch bug.
  7.  * patch is in kullmar.pat
  8.  */
  9.  
  10. #ifdef EBCDIC                                 /* Thy may want only the <CR><NL> to <SP><NL> routine */
  11.  
  12. /*  This is the translation table MTS uses.  (7bit ascii to ebcdic) */
  13.  
  14.  
  15. static unsigned char ebcdic [] = {0x00,0x01,0x02,0x03,0x37,0x2d,0x2e,0x2f,0x16,0x05,0x25,0x0b,0x0c,0x0d,0x0e,0x0f,0x10,0x11,0x12,0x13,0x3c,0x3d,0x32,0x26,0x18,0x19,0x3f,0x27,0x1c,0x1d,0x1e,0x1f,
  16. 0x40,0x5a,0x7f,0x7b,0x5b,0x6c,0x50,0x7d,0x4d,0x5d,0x5c,0x4e,0x6b,0x60,0x4b,0x61,0xf0,0xf1,0xf2,0xf3,0xf4,0xf5,0xf6,0xf7,0xf8,0xf9,0x7a,0x5e,0x4c,0x7e,0x6e,0x6f,
  17. 0x7c,0xc1,0xc2,0xc3,0xc4,0xc5,0xc6,0xc7,0xc8,0xc9,0xd1,0xd2,0xd3,0xd4,0xd5,0xd6,0xd7,0xd8,0xd9,0xe2,0xe3,0xe4,0xe5,0xe6,0xe7,0xe8,0xe9,0xba,0xe0,0xbb,0xb0,0x6d,
  18. 0x79,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0xa2,0xa3,0xa4,0xa5,0xa6,0xa7,0xa8,0xa9,0xc0,0x4f,0xd0,0xa1,0x07,
  19. 0x20,0x21,0x22,0x23,0x24,0x15,0x06,0x17,0x28,0x29,0x2a,0x2b,0x2c,0x09,0x0a,0x1b,0x30,0x31,0x1a,0x33,0x34,0x35,0x36,0x08,0x38,0x39,0x3a,0x3b,0x04,0x14,0x3e,0xff,
  20. 0x41,0xaa,0x4a,0xb1,0x9f,0xb2,0x6a,0xb5,0xbd,0xb4,0x9a,0x8a,0x5f,0xca,0xaf,0xbc,0x90,0x8f,0xea,0xfa,0xbe,0xa0,0xb6,0xb3,0x9d,0xda,0x9b,0x8b,0xb7,0xb8,0xb9,0xab,
  21. 0x64,0x65,0x62,0x66,0x63,0x67,0x9e,0x68,0x74,0x71,0x72,0x73,0x78,0x75,0x76,0x77,0xac,0x69,0xed,0xee,0xeb,0xef,0xec,0xbf,0x80,0xfd,0xfe,0xfb,0xfc,0xad,0xae,0x59,
  22. 0x44,0x45,0x42,0x46,0x43,0x47,0x9c,0x48,0x54,0x51,0x52,0x53,0x58,0x55,0x56,0x57,0x8c,0x49,0xcd,0xce,0xcb,0xcf,0xcc,0xe1,0x70,0xdd,0xde,0xdb,0xdc,0x8d,0x8e,0xdf}; 
  23.                       
  24.   
  25. #include <string.h>
  26. #include "unzip.h"
  27. #include "zip_proto.i"
  28.  
  29. /* a_to_e - This is the routine that does the translation.
  30.  *
  31.  * instr (in/out) - the string to be translated.
  32.  *
  33.  */
  34.  
  35. void a_to_e ( instr )
  36.      char *instr;
  37.      {
  38.       int index;      /* Just to keep track of where we are in the string */
  39.       int counter;    /* The length of the string */
  40.       
  41.       counter = strlen(instr);     /* The string must be null terminated */
  42.  
  43.       for (index = 0; index <= counter; index++)
  44.           {
  45.            instr[index] = ebcdic[instr[index]];
  46.           }
  47.  
  48.       return;
  49.      }
  50.  
  51. #endif
  52.  
  53.  
  54. #ifdef BEFORE304 
  55. /* ae_buf - This routine translates a buffer instead of a string
  56.  *          and substitues <SP><NL> for <CR><NL>.  Returns an integer
  57.  *          indicating the number of bytes after conversion.
  58.  *
  59.  *          Put in the #ifdef so that the routine could
  60.  *          be used to convert the <CR><NL> to <SP><NL>
  61.  *          on non ebcdic systems.   A.B. 03/21/90
  62.  *
  63.  * cbuff (in/out) - The buffer to be translated.
  64.  * numb  (in)     - The number of Bytes comming in.
  65.  */
  66.  
  67. #ifdef EBCDIC
  68. #define SPACE 0x40
  69. #else
  70. #define SPACE 0x20
  71. #endif
  72.    
  73. void ae_buf ( cbuff, numb )
  74.      char *cbuff;
  75.      int *numb;
  76.      {
  77.       int index;     /* Where are we in the array */
  78.       int ocount = 0;
  79.   
  80.       for (index = 0; index <= *numb; index++) 
  81.           {
  82.        if (cbuff[index] != 0x0d)
  83.           {
  84. #ifdef EBCDIC                                  /* See above */
  85.                cbuff[ocount++] = ebcdic[cbuff[index]];
  86. #else
  87.                cbuff[ocount++] = cbuff[index];
  88. #endif
  89.           }
  90.           }
  91.       *numb = ocount;
  92.      }
  93. #endif    /* BEFORE304 */
  94.