Return to expr1.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / book / 07

Annotation of 43BSD/contrib/icon/book/07/expr1.icn, revision 1.1

1.1     ! root        1: procedure expression()
        !             2:    return case ?2 of {
        !             3:       1  :  term()
        !             4:       2  :  term() || "+" || expression()
        !             5:       }
        !             6: end
        !             7: 
        !             8: procedure term()
        !             9:    return case ?2 of {
        !            10:       1  :  element()
        !            11:       2  :  element() || "*" || term()
        !            12:       }
        !            13: end
        !            14: 
        !            15: procedure element()
        !            16:    return case ?4 of {
        !            17:       1  :  "x"
        !            18:       2  :  "y"
        !            19:       3  :  "z"
        !            20:       4  :  "(" || expression() || ")"
        !            21:       }
        !            22: end

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