home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / ebcdic.c < prev    next >
C/C++ Source or Header  |  2000-01-27  |  1KB  |  42 lines
  1. #include "EXTERN.h"
  2. #define PERL_IN_EBCDIC_C
  3. #include "perl.h"
  4.  
  5. /* in ASCII order, not that it matters */
  6. static const char controllablechars[] = "?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_";
  7.  
  8. int
  9. ebcdic_control(int ch)
  10. {
  11.         if (ch > 'a') {
  12.             char *ctlp;
  13.  
  14.             if (islower(ch))
  15.                     ch = toupper(ch);
  16.  
  17.             if ((ctlp = strchr(controllablechars, ch)) == 0) {
  18.                     Perl_die(aTHX_ "unrecognised control character '%c'\n", ch);
  19.                 }
  20.  
  21.             if (ctlp == controllablechars)
  22.                     return('\177'); /* DEL */
  23.             else
  24.                     return((unsigned char)(ctlp - controllablechars - 1));
  25.     } else { /* Want uncontrol */
  26.             if (ch == '\177' || ch == -1)
  27.                     return('?');
  28.             else if (ch == '\157')
  29.                     return('\177');
  30.             else if (ch == '\174')
  31.                     return('\000');
  32.             else if (ch == '^')    /* '\137' in 1047, '\260' in 819 */
  33.                     return('\036');
  34.             else if (ch == '\155')
  35.                     return('\037');
  36.             else if (0 < ch && ch < (sizeof(controllablechars) - 1))
  37.                     return(controllablechars[ch+1]);
  38.             else
  39.                     Perl_die(aTHX_ "invalid control request: '\\%03o'\n", ch & 0xFF);
  40.     }
  41. }
  42.