Return to ltree.icn CVS log

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

Initial revision

procedure ltree(stree)
   local a
   stree ?
      if a := [tab(upto('('))] then {	# start with value
         move(1)
					# add subtrees
         while put(a,ltree(tab(bal(',)')))) do
            move(1)
         }
      else a := [tab(0)]		# leaf
   return a
end

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