Return to bcd.c CVS log

Up to [Research Unix] / researchv10no / cmd

Annotation of researchv10no/cmd/bcd.c, revision 1.1.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.