Return to drv.icn CVS log

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

Annotation of 43BSD/contrib/icon/book/19/drv.icn, revision 1.1.1.1

1.1       root        1: procedure drv(exp,var)
                      2:    local arg1, op, arg2
                      3:    if exp ? {
                      4:       op := tab(upto('(')) &
                      5:       move(1) &
                      6:       arg1 := tab(bal(',')) &
                      7:       move(1) &
                      8:       arg2 := tab(bal(')'))
                      9:       }
                     10:    then return case op of {
                     11:       "+":  add(drv(arg1,var),drv(arg2,var))
                     12:       "-":  sub(drv(arg1,var),drv(arg2,var))
                     13:       "*":  add(mpy(arg1,drv(arg2,var)),
                     14:                mpy(arg2,drv(arg1,var)))
                     15:       "/":  div(sub(mpy(arg2,drv(arg1,var)),
                     16:                mpy(arg1,drv(arg2,var))),rse(arg2,"2"))
                     17:       "^":  mpy(mpy(arg2,rse(arg1,sub(arg2,"1"))),
                     18:                drv(arg1,var))
                     19:       }
                     20:    else return if exp == var then "1" else "0"
                     21: end

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