Return to tr.c CVS log

Up to [Research Unix] / researchv9 / cmd / tbl

Annotation of researchv9/cmd/tbl/tr.c, revision 1.1.1.1

1.1       root        1: # include "t..c"
                      2:  /* tr.c: number register allocation */
                      3: char * nregs[] ={
                      4:        /* this array must have at least 3*qcol entries
                      5:           or illegal register names will result */
                      6:        "40","41","42","43","44","45","46","47","48","49",
                      7:        "50","51","52","53","54","55","56","57","58","59",
                      8:        "60","61","62","63","64","65","66","67","68","69",
                      9:        "70","71","72","73","74","75","76","77","78","79",
                     10:        "80","81","82","83","84","85","86","87","88","89",
                     11:        "90","91","92","93","94","95","96","97","4q","4r",
                     12:        "4s","4t","4u","4v","4w","4x","4y","4z","4;","4.",
                     13:        "4a","4b","4c","4d","4e","4f","4g","4h","4i","4j",
                     14:        "4k","4l","4m","4n","4o","4p","5a","5b","5c","5d",
                     15:        "5e","5f","5g","5h","5i","5j","5k","5l","5m","5n",
                     16:        "5o","5p","5q","5r","5s","5t","5u","5v","5w","5x",
                     17:        0};
                     18: char *
                     19: reg(col, place)
                     20: {
                     21: if(sizeof(nregs) < 2*3*qcol)
                     22:        error("Too many columns for registers");
                     23: return (nregs[qcol*place+col]);
                     24: }

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