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

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.