Return to create.q CVS log

Up to [CSRG BSD Unix] / 42BSD / ingres / bin

Annotation of 42BSD/ingres/bin/create.q, revision 1.1

1.1     ! root        1: create parts (
        !             2:        pnum is i2,
        !             3:        pname is c20,
        !             4:        color is c8,
        !             5:        weight is i2,
        !             6:        qoh is i2)
        !             7: \p\g
        !             8: copy parts (
        !             9:        pnum is i2,
        !            10:        pname is c20,
        !            11:        color is c8,
        !            12:        weight is i2,
        !            13:        qoh is i2)
        !            14: from "{pathname}/demo/parts"
        !            15: 
        !            16: \p\g
        !            17: 
        !            18: range of p is parts
        !            19: create parts1 (
        !            20:        pnum is i2,
        !            21:        pname is c20,
        !            22:        color is c8,
        !            23:        weight is i2,
        !            24:        qoh is i2)
        !            25: \p\g
        !            26: 
        !            27: append to parts1 (p.all) where p.pnum = 1
        !            28: \p\g
        !            29: 
        !            30: create parts14 (
        !            31:        pnum is i2,
        !            32:        pname is c20,
        !            33:        color is c8,
        !            34:        weight is i2,
        !            35:        qoh is i2)
        !            36: \p\g
        !            37: 
        !            38: append to parts14 (p.all)
        !            39: \p\g
        !            40: 
        !            41: /* 28 tuples */
        !            42: 
        !            43: create parts28 (
        !            44:        pnum is i2,
        !            45:        pname is c20,
        !            46:        color is c8,
        !            47:        weight is i2,
        !            48:        qoh is i2)
        !            49: \p\g
        !            50: append to parts28 (p.all)
        !            51: append to parts28 (p.all)
        !            52: \p\g
        !            53: 
        !            54: /* 210 tuples */
        !            55: 
        !            56: range of p28 is parts28
        !            57: 
        !            58: create parts210 (
        !            59:        pnum is i2,
        !            60:        pname is c20,
        !            61:        color is c8,
        !            62:        weight is i2,
        !            63:        qoh is i2)
        !            64: \p\g
        !            65: 
        !            66: append to parts210 (p.all)
        !            67: append to parts210 (p28.all)
        !            68: append to parts210 (p28.all)
        !            69: append to parts210 (p28.all)
        !            70: \p\g
        !            71: append to parts210 (p28.all)
        !            72: append to parts210 (p28.all)
        !            73: append to parts210 (p28.all)
        !            74: append to parts210 (p28.all)
        !            75: \p\g
        !            76: 
        !            77: /* 840 tuples */
        !            78: 
        !            79: range of p210 is parts210
        !            80: 
        !            81: create parts840 (
        !            82:        pnum is i2,
        !            83:        pname is c20,
        !            84:        color is c8,
        !            85:        weight is i2,
        !            86:        qoh is i2)
        !            87: \p\g
        !            88: 
        !            89: append to parts840 (p210.all)
        !            90: append to parts840 (p210.all)
        !            91: append to parts840 (p210.all)
        !            92: append to parts840 (p210.all)
        !            93: \p\g
        !            94: 
        !            95: /* 3360 tuples */
        !            96: 
        !            97: range of p840 is parts840
        !            98: 
        !            99: create parts3360 (
        !           100:        pnum is i2,
        !           101:        pname is c20,
        !           102:        color is c8,
        !           103:        weight is i2,
        !           104:        qoh is i2)
        !           105: \p\g
        !           106: 
        !           107: append to parts3360 (p840.all)
        !           108: append to parts3360 (p840.all)
        !           109: append to parts3360 (p840.all)
        !           110: append to parts3360 (p840.all)
        !           111: \p\g
        !           112: 
        !           113: /* 3360 tuples, ISAM */
        !           114: 
        !           115: create i3360 (
        !           116:        pnum is i4,
        !           117:        pname is c96,
        !           118:        color is c96,
        !           119:        weight is i2,
        !           120:        qoh is i2)
        !           121: 
        !           122: \p\g
        !           123: 
        !           124: copy i3360 (pnum = c0,
        !           125:                 pname = c0,
        !           126:                 color = c0,
        !           127:                 weight = c0,
        !           128:                 qoh = c0) from "/a/guest/kalash/=timing/parts3230"
        !           129: \p\g
        !           130: 
        !           131: /* 3360 tuples, hashed */
        !           132: create h3360 (
        !           133:        pnum is i4,
        !           134:        pname is c96,
        !           135:        color is c96,
        !           136:        weight is i2,
        !           137:        qoh is i2)
        !           138: 
        !           139: \p\g
        !           140: 
        !           141: copy h3360 (pnum = c0,
        !           142:                 pname = c0,
        !           143:                 color = c0,
        !           144:                 weight = c0,
        !           145:                 qoh = c0) from "/a/guest/kalash/=timing/parts3230"
        !           146: \p\g
        !           147: 
        !           148: modify i3360 to isam on pnum\p\g
        !           149: modify h3360 to hash on pnum where fillfactor = 100\p\g
        !           150: 
        !           151: 
        !           152: create b130 (
        !           153:        pnum is i4,
        !           154:        pname is c96,
        !           155:        color is c96,
        !           156:        weight is i2,
        !           157:        qoh is i2)
        !           158: 
        !           159: \p\g
        !           160: copy b130 (pnum = c0,
        !           161:                 pname = c0,
        !           162:                 color = c0,
        !           163:                 weight = c0,
        !           164:                 qoh = c0) from "/a/guest/kalash/=timing/parts130"
        !           165: \p\g
        !           166: 
        !           167: range of p130 is b130\p\g
        !           168: 
        !           169: append to i3360 (p130.all)\p\g
        !           170: 
        !           171: range of r is relation
        !           172: retrieve (r.relid, r.reltups)
        !           173:        where
        !           174:                r.relid = "parts1" 
        !           175:            or  r.relid = "parts14"
        !           176:            or  r.relid = "parts28"
        !           177:            or  r.relid = "parts210"
        !           178:            or  r.relid = "parts840"
        !           179:            or  r.relid = "parts3360"
        !           180:            or  r.relid = "h3360"
        !           181:            or  r.relid = "i3360"
        !           182: \p\g
        !           183: \q

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