Return to infix.icn CVS log

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

Initial revision

procedure main()
   while write(infix(read()))
end

procedure infix(exp)
   return (exp ? form(tab(upto('(')),move(1) & tab(bal(',')),
      move(1) & tab(-1))) | exp
end

procedure form(op,arg1,arg2)
   return "(" || infix(arg1) || op || infix(arg2) || ")" 
end

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