Return to trans.tbl.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / bsc / cmd / 3270

Annotation of cci/usr/src/usr.bin/bsc/cmd/3270/trans.tbl.c, revision 1.1

1.1     ! root        1: /* NAME
        !             2:  *     ascebc, ebcasc, bcopy, bstrchr
        !             3:  *
        !             4:  * SYNOPSIS
        !             5:  *     ascebc(string,length) translates string of length chars to ebcdic.
        !             6:  *     ebcasc(string,length) translates to ascii.
        !             7:  *     bcopy(to,from,length) copys exactly 'length' bytes from 'from' to 'to'.
        !             8:  *     char *bstrchr (string, char, length) searches for 'char' in 'string'
        !             9:  *             which contains exactly 'length' bytes.
        !            10:  */
        !            11: static char sccsid[] = "@(#)trans.tbl.c        1.1 REL";
        !            12: char aetbl[] = {
        !            13:        0x00,0x01,0x02,0x03,0x37,0x2d,0x2e,0x2f,0x16,0x05,0x25,0x0b,0x0c,0x0d,0x0e,0x0f,
        !            14:        0x10,0x11,0x12,0x13,0x3c,0x3d,0x32,0x26,0x18,0x19,0x3f,0x27,0x22,0x1d,0x1e,0x1f,
        !            15:        0x40,0x5a,0x7f,0x7b,0x5b,0x6c,0x50,0x7d,0x4d,0x5d,0x5c,0x4e,0x6b,0x60,0x4b,0x61,
        !            16:        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,
        !            18:        0xd7,0xd8,0xd9,0xe2,0xe3,0xe4,0xe5,0xe6,0xe7,0xe8,0xe9,0xad,0xe0,0xbd,0x5f,0x6d,
        !            19:        0x79,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x91,0x92,0x93,0x94,0x95,0x96,
        !            20:        0x97,0x98,0x99,0xa2,0xa3,0xa4,0xa5,0xa6,0xa7,0xa8,0xa9,0xc0,0x4f,0xd0,0xa1,0x07,
        !            21:        };
        !            22: char eatbl[] = {
        !            23:        0x00,0x01,0x02,0x03,0x00,0x09,0x00,0x7f,0x00,0x00,0x00,0x0b,0x0c,0x0d,0x0e,0x0f,
        !            24:        0x10,0x11,0x12,0x13,0x00,0x0a,0x08,0x00,0x18,0x19,0x00,0x00,0x00,0x1d,0x1e,0x1f,
        !            25:        0x00,0x00,0x1c,0x00,0x00,0x0a,0x17,0x1b,0x00,0x00,0x00,0x00,0x00,0x05,0x06,0x07,
        !            26:        0x00,0x00,0x16,0x00,0x00,0x00,0x00,0x04,0x00,0x00,0x00,0x00,0x14,0x15,0x00,0x1a,
        !            27:        0x20,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x5e,0x2e,0x3c,0x28,0x2b,0x7c,
        !            28:        0x26,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x21,0x24,0x2a,0x29,0x3b,0x5e,
        !            29:        0x2d,0x2f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x7c,0x2c,0x25,0x5f,0x3e,0x3f,
        !            30:        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x60,0x3a,0x23,0x40,0x27,0x3d,0x22,
        !            31:        0x00,0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x00,0x00,0x00,0x00,0x00,0x00,
        !            32:        0x00,0x6a,0x6b,0x6c,0x6d,0x6e,0x6f,0x70,0x71,0x72,0x00,0x00,0x00,0x00,0x00,0x00,
        !            33:        0x00,0x7e,0x73,0x74,0x75,0x76,0x77,0x78,0x79,0x7a,0x00,0x00,0x00,0x5b,0x00,0x00,
        !            34:        0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x5d,0x00,0x00,
        !            35:        0x7b,0x41,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0x00,0x00,0x00,0x00,0x00,0x00,
        !            36:        0x7d,0x4a,0x4b,0x4c,0x4d,0x4e,0x4f,0x50,0x51,0x52,0x00,0x00,0x00,0x00,0x00,0x00,
        !            37:        0x5c,0x00,0x53,0x54,0x55,0x56,0x57,0x58,0x59,0x5a,0x00,0x00,0x00,0x00,0x00,0x00,
        !            38:        0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x00,0x00,0x00,0x00,0x00,0x00,
        !            39:        };
        !            40: /* ascebc(string,length) translates string of length chars to ebcdic. */
        !            41: ascebc(string, length)
        !            42: register char *string;
        !            43: register int length;
        !            44: {
        !            45:        while (--length >= 0) {
        !            46:                *string = aetbl[*string];
        !            47:                ++string;
        !            48:        }
        !            49: }
        !            50: 
        !            51: /* ebcasc(string,length) translates string of length chars to ascii. */
        !            52: ebcasc(string, length)
        !            53: register char *string;
        !            54: register int length;
        !            55: {
        !            56:        while (--length >= 0) {
        !            57:                *string = eatbl[ 0xff & *string];
        !            58:                ++string;
        !            59:        }
        !            60: }
        !            61: 
        !            62: /* bcopy(to,from,nbytes) copies without special-casing nulls */
        !            63: bcopy(to, from, nbytes)
        !            64: register char *to, *from;
        !            65: register int nbytes;
        !            66: {
        !            67:        while (--nbytes >= 0)
        !            68:                *to++ = *from++;
        !            69: }
        !            70: 
        !            71: /* bstrchr(string, character, length) searches for 'char' in 'string' */
        !            72: char * bstrchr(string, c, length)
        !            73: register char *string, c;
        !            74: register int length;
        !            75: {
        !            76:        while (--length >= 0) {
        !            77:                if (*string == c)
        !            78:                        return string;
        !            79:                ++string;
        !            80:        }
        !            81:        return (char *) 0;
        !            82: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.