Return to bcd.c CVS log

Up to [Research Unix] / researchv10no / cmd

Annotation of researchv10no/cmd/bcd.c, revision 1.1

1.1     ! root        1: int chtab[] = {
        !             2: 00000, /*   */
        !             3: 03004, /* ! */
        !             4: 02404, /* " */
        !             5: 02040, /* sharp */
        !             6: 02042, /* $ */
        !             7: 02104, /* % */
        !             8: 00001, /* & */
        !             9: 03002, /* ' */
        !            10: 02201, /* ( */
        !            11: 02202, /* ) */
        !            12: 02102, /* * */
        !            13: 00005, /* + */
        !            14: 02044, /* , */
        !            15: 00002, /* - */
        !            16: 02041, /* . */
        !            17: 00014, /* / */
        !            18: 00004, /* 0 */
        !            19: 00010, /* 1 */
        !            20: 00020, /* 2 */
        !            21: 00040, /* 3 */
        !            22: 00100, /* 4 */
        !            23: 00200, /* 5 */
        !            24: 00400, /* 6 */
        !            25: 01000, /* 7 */
        !            26: 02000, /* 8 */
        !            27: 04000, /* 9 */
        !            28: 02200, /* : */
        !            29: 02402, /* ; */
        !            30: 02401, /* < */
        !            31: 02204, /* = */
        !            32: 02400, /* > */
        !            33: 03000, /* ? */
        !            34: 02100, /* at */
        !            35:  011,
        !            36:  021,
        !            37:  041,
        !            38: 0101,
        !            39: 0201,
        !            40: 0401,
        !            41: 01001,
        !            42: 02001,
        !            43: 04001,
        !            44: 012,
        !            45: 022,
        !            46: 042,
        !            47: 0102,
        !            48: 0202,
        !            49: 0402,
        !            50: 01002,
        !            51: 02002,
        !            52: 02002,
        !            53: 024,
        !            54: 044,
        !            55: 0104,
        !            56: 0204,
        !            57: 0404,
        !            58: 01004,
        !            59: 02004,
        !            60: 04004,
        !            61: 02020, /* [ */
        !            62: 03001, /* \ */
        !            63: 02101, /* ] */
        !            64: 00006, /* ^ */
        !            65: 02024 /* _ */
        !            66: };
        !            67:        char s[128];
        !            68: 
        !            69: char *sp = s;
        !            70: 
        !            71: main(argc, argv)
        !            72: char *argv[];
        !            73: {
        !            74:        char *spp;
        !            75:        int i;
        !            76:        int j;
        !            77:        int c;
        !            78:        int l;
        !            79: 
        !            80:        if (argc<2) {
        !            81:                puts("$ ");
        !            82:                while ((c=getchar())!='\0' && c!='\n')
        !            83:                        *sp++ = c;
        !            84:                *sp = 0;
        !            85:                sp = &s[0];
        !            86:        } else
        !            87:                sp = *++argv;
        !            88:        puts("\n\n\n\n");
        !            89:        puts(" ________________________________");
        !            90:        puts("________________\n");
        !            91:        spp = sp;
        !            92:        while(*spp++);
        !            93:        spp--;
        !            94:        l = spp - sp;
        !            95:        putchar('/');
        !            96:        puts(sp);
        !            97:        i = 49 - l;
        !            98:        while(--i>0) putchar(' ');
        !            99:        puts("|\n");
        !           100:        j = 0;
        !           101:        spp = sp;
        !           102:        while (j++<12) {
        !           103:                putchar('|');
        !           104:                i = 0;
        !           105:                spp = sp;
        !           106:                while (i<48) {
        !           107:                        c = *spp++ - 040;
        !           108:                        i++;
        !           109:                        if (c>='a'-040) c = c - 040;
        !           110:                        if (i>l) c = 0;
        !           111:                        if (c<0 || c>137) c = 0;
        !           112:                        if ((chtab[c]>>(j-1))&1) 
        !           113:                                puts("[&&&&&]");
        !           114:                        else
        !           115:                                putchar(j>3?'0'+j-3:' ');
        !           116:                }
        !           117:                puts("|\n");
        !           118:        }
        !           119:        putchar('|');
        !           120:        puts("____________");
        !           121:        puts("____________________________________");
        !           122:        puts("|\n");
        !           123:        puts("\n\n\n\n");
        !           124: }
        !           125: 
        !           126: puts(ss) char *ss; {
        !           127:        char t;
        !           128:        while(t = *ss++) {
        !           129:                if(t >= 'a' && t <= 'z')
        !           130:                        t += 'A'-'a';
        !           131:                putchar(t);
        !           132:        }
        !           133: }

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