Mercurial > repos > rhope

comparison kernel.rhope @ 141:f2cb85c53ced

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix Pause/Resume and rewrite Call Async in Rhope rather than C
author Mike Pavone <pavone@retrodev.com>
date Sat, 20 Nov 2010 17:48:22 -0500
parents fc3815b7462f
children 7bbdc034e347
comparison
equal deleted inserted replaced
140:c14698c512f1 141:f2cb85c53ced
285 ]|[[Int32[Trunc UInt16[[data]Index[1]]]]LShift[16]] 285 ]|[[Int32[Trunc UInt16[[data]Index[1]]]]LShift[16]]
286 ]|[[Int32[Trunc UInt16[[data]Index[2]]]]LShift[8]] 286 ]|[[Int32[Trunc UInt16[[data]Index[2]]]]LShift[8]]
287 ]|[Int32[Trunc UInt16[[data]Index[3]]]] 287 ]|[Int32[Trunc UInt16[[data]Index[3]]]]
288 } 288 }
289 289
290 _Call Async[func,cont:out]
291 {
292 Resume[cont,0]
293 { out <- Call[func] }
294 }
295 Call Async[func:out]
296 {
297 out <- Pause[_Call Async[func,?]]
298 }
299
300 Yield[:out]
301 {
302 out <- Pause[Resume[?,Yes]]
303 }
304