Return to pret3.icn CVS log

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

Annotation of 43BSD/contrib/icon/port/pret3.icn, revision 1.1

1.1     ! root        1: #  This program tests lib/pret.s.
        !             2: 
        !             3: procedure main()
        !             4:    i := 0
        !             5:    while i < 5 do {
        !             6:       write(expression())
        !             7:       i +:= 1
        !             8:       }
        !             9: end
        !            10: 
        !            11: procedure expression()
        !            12:    return case ?3 of {
        !            13:       1  :  term()
        !            14:       2  :  term()
        !            15:       3  :  term() || "+" || expression()
        !            16:       }
        !            17: end
        !            18: 
        !            19: procedure term()
        !            20:    return case ?2 of {
        !            21:       1  :  element()
        !            22:       2  :  element() || "*" || term()
        !            23:       }
        !            24: end
        !            25: procedure element()
        !            26:    return case ?4 of {
        !            27:       1  :  "x"
        !            28:       2  :  "y"
        !            29:       3  :  "z"
        !            30:       4  :  "(" || expression() || ")"
        !            31:       }
        !            32: end

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