Return to wordcount.u1 CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / samples

Annotation of 43BSD/contrib/icon/samples/wordcount.u1, revision 1.1

1.1     ! root        1: proc main
        !             2:        local   0,000000,wordcount
        !             3:        con     0,002000,20
        !             4:        declend
        !             5:        file    wordcount.icn
        !             6:        line    9
        !             7:        mark    L1
        !             8:        var     0
        !             9:        int     0
        !            10:        line    10
        !            11:        invoke  1
        !            12:        unmark  1
        !            13: lab L1
        !            14:        pnull
        !            15:        line    11
        !            16:        pfail
        !            17:        end
        !            18: proc wordcount
        !            19:        local   0,001000,n
        !            20:        local   1,000020,t
        !            21:        local   2,000020,line
        !            22:        local   3,000020,x
        !            23:        local   4,000020,y
        !            24:        local   5,000040,letters
        !            25:        local   6,000000,table
        !            26:        local   7,000000,read
        !            27:        local   8,000000,tab
        !            28:        local   9,000000,upto
        !            29:        local   10,000000,many
        !            30:        local   11,000000,sort
        !            31:        local   12,000000,write
        !            32:        local   13,000000,left
        !            33:        con     0,002000,0
        !            34:        con     1,002000,1
        !            35:        con     2,002000,2
        !            36:        declend
        !            37:        file    wordcount.icn
        !            38:        line    13
        !            39:        init?   L1
        !            40:        mark    L1
        !            41:        pnull
        !            42:        var     5
        !            43:        pnull
        !            44:        line    16
        !            45:        keywd   10
        !            46:        keywd   21
        !            47:        unioncs
        !            48:        asgn
        !            49:        unmark  1
        !            50: lab L1
        !            51:        mark    L2
        !            52:        pnull
        !            53:        var     1
        !            54:        var     6
        !            55:        int     0
        !            56:        line    17
        !            57:        invoke  1
        !            58:        asgn
        !            59:        unmark  1
        !            60: lab L2
        !            61:        mark    L3
        !            62: lab L4
        !            63:        line    18
        !            64:        mark    L0
        !            65:        pnull
        !            66:        var     2
        !            67:        var     7
        !            68:        pnull
        !            69:        invoke  1
        !            70:        asgn
        !            71:        unmark  1
        !            72:        mark    L4
        !            73:        var     2
        !            74:        line    19
        !            75:        bscan
        !            76: lab L7
        !            77:        line    19
        !            78:        mark    L0
        !            79:        var     8
        !            80:        var     9
        !            81:        var     5
        !            82:        invoke  1
        !            83:        invoke  1
        !            84:        unmark  1
        !            85:        mark    L7
        !            86:        pnull
        !            87:        pnull
        !            88:        var     1
        !            89:        var     8
        !            90:        var     10
        !            91:        var     5
        !            92:        line    20
        !            93:        invoke  1
        !            94:        invoke  1
        !            95:        subsc
        !            96:        dup
        !            97:        int     1
        !            98:        plus
        !            99:        asgn
        !           100: lab L8
        !           101:        unmark  1
        !           102:        goto    L7
        !           103: lab L9
        !           104:        line    19
        !           105:        escan
        !           106: lab L5
        !           107:        unmark  1
        !           108:        goto    L4
        !           109: lab L6
        !           110:        unmark  1
        !           111: lab L3
        !           112:        mark    L10
        !           113:        pnull
        !           114:        var     3
        !           115:        var     11
        !           116:        var     1
        !           117:        line    21
        !           118:        invoke  1
        !           119:        asgn
        !           120:        unmark  1
        !           121: lab L10
        !           122:        mark    L11
        !           123:        mark    L0
        !           124:        pnull
        !           125:        var     4
        !           126:        pnull
        !           127:        var     3
        !           128:        line    22
        !           129:        bang
        !           130:        asgn
        !           131:        pop
        !           132:        mark    L0
        !           133:        var     12
        !           134:        var     13
        !           135:        pnull
        !           136:        var     4
        !           137:        int     1
        !           138:        subsc
        !           139:        var     0
        !           140:        invoke  2
        !           141:        pnull
        !           142:        var     4
        !           143:        int     2
        !           144:        subsc
        !           145:        invoke  2
        !           146:        unmark  1
        !           147: lab L12
        !           148:        efail
        !           149: lab L13
        !           150:        unmark  1
        !           151: lab L11
        !           152:        pnull
        !           153:        line    23
        !           154:        pfail
        !           155:        end

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