Mercurial > repos > rhope
view testglobal.rhope @ 144:65ebd1ce2611
Add Read method to TCP connection
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sun, 21 Nov 2010 18:21:45 -0500 |
parents | a68e6828d896 |
children |
line wrap: on
line source
Globals Increment { Num <- 0 } Do Incr[:out] uses Increment { out <- Increment::Num Increment::Num <- [Increment::Num]+[1] } Main[:out] { Do Incr[] { Print[~] { Do Incr[] { Print[~] { Do Incr[] { out <- Print[~] }}}}} }