capitalex / main.processor.wul

@processor @ewe ; @ewe @ewe.done { } @processor @ewe ; @ewe @ewe.become ; @ewe.stack $processor { @processor @ewe ; @processor switch to $processor ; } @processor @ewe ; @ewe @ewe.dup ; @ewe.stack $ { @processor @ewe ; @ewe.stack ( $ $ ) ; } @processor @ewe ; @ewe @ewe.swap ; @ewe.stack ( $x $y ) { @processor @ewe ; @ewe.stack ( $y $x ) ; } @processor @ewe ; @ewe @ewe.drop ; @ewe.stack ( $x ) { @processor @ewe ; } @processor @ewe ; @ewe @ewe.nip ; @ewe.stack ( $ $x ) { @processor @ewe ; @ewe.stack $x ; } @processor @ewe ; @ewe @ewe.call ; @ewe.stack $fn { @processor @ewe ; @ewe def $fn ; } @processor @ewe ; @ewe @ewe.if ; @ewe.stack ( $true $ true ) { @processor @ewe ; @ewe def $true ; } @processor @ewe ; @ewe @ewe.if ; @ewe.stack ( $ $false false ) { @processor @ewe ; @ewe def $false ; } @processor @ewe ; @ewe @ewe.lt ; @ewe.stack ~( $x $y ) { @processor @ewe ; @ewe.stack $z ; @code [$z = tostring(tonumber($x) < tonumber($y))] ; } @processor @ewe ; @ewe @ewe.eq ; @ewe.stack ~( $x $y ) { @processor @ewe ; @ewe.stack $z ; @code [$z = tostring(tonumber($x) == tonumber($y))] ; } @processor @ewe ; @ewe @ewe.gt ; @ewe.stack ~( $x $y ) { @processor @ewe ; @ewe.stack $z ; @code [$z = tostring(tonumber($x) > tonumber($y))] ; } @processor @ewe ; @ewe @ewe.and ; @ewe.stack ( true ture ) { @processor @ewe ; @ewe.stack true ; } @processor @ewe ; @ewe @ewe.and ; @ewe.stack ( $1 $2 ) { @ewe.stack false ; } @processor @ewe ; @ewe @ewe.or ; @ewe.stack ( true $ ) { @ewe.stack true ; } @processor @ewe ; @ewe @ewe.or ; @ewe.stack ( $ true ) { @ewe.stack true ; } @processor @ewe ; @ewe @ewe.or ; @ewe.stack ( $ $ ) { @ewe.stack false ; } @processor @ewe ; @ewe @ewe.not ; @ewe.stack true { @ewe.stack false ; } @processor @ewe ; @ewe @ewe.not ; @ewe.stack false { @ewe.stack true ; } @processor @ewe ; @ewe @ewe.sub ; @ewe.stack ~( $x $y ) { @processor @ewe ; @ewe.stack $z ; @code [$z = tostring($x - $y)] ; } @processor @ewe ; @ewe @ewe.add ; @ewe.stack ~( $x $y ) { @processor @ewe ; @ewe.stack $z ; @code [$z = tostring($x + $y)] ; } @processor @ewe ; @ewe @ewe.div ; @ewe.stack ~( $x $y ) { @processor @ewe ; @ewe.stack $z ; @code [$z = tostring($x / $y)] ; } @processor @ewe ; @ewe @ewe.mod ; @ewe.stack ~( $x $y ) { @processor @ewe ; @ewe.stack $z ; @code [$z = tostring($x % $y)] ; } @processor @ewe ; @ewe @ewe.mul ; @ewe.stack ~( $x $y ) { @processor @ewe ; @ewe.stack $z ; @code [$z = tostring($x * $y)] ; } @processor @ewe ; @ewe @ewe.pop ; @ewe.stack $name { @processor @ewe ; @ewe pop $name ; } @processor @ewe ; @ewe @ewe.push ; @ewe.stack $name { @processor @ewe ; @ewe push $name ; } @processor @ewe ; @ewe @ewe.peek ; @ewe.stack $name { @processor @ewe ; @ewe peek $name ; } @processor @ewe ; @ewe ( $x ) { @processor @ewe ; @ewe.stack $x ; } @processor @ ; @ ewe push $id { @processor @ ; @ewe $id ; }

{ @lamb.id 1 ; @code [ local lamb = {} lamb.objects = {} lamb.groups = setmetatable({}, {__mode = "v"}) ] ; } @processor @ewe ; @ewe push @lamb.id ; @ewe.stack $n { @processor @ewe ; @lamb.id $n ; } @processor @ewe ; @ewe @lamb.new ; @lamb.id $id { @processor @ewe ; @process switch to @ ; @lamb.id $id ; @ allocate new lamb , increment id by 1 , ewe push $id , done ; } @processor @ewe ; @ewe @lamb.is ; @ewe.stack ( $class $obj ) { @processor @ewe ; @ewe.stack ( $obj ) ; @code [lamb.objects[$obj].class = $class] ; } @processor @ewe ; @ewe @lamb.set ; @ewe.stack ( $key $value $obj ) { @processor @ewe ; @ewe.stack ( $obj ) ; @code [lamb.objects[$obj][$key] = $value] ; } @processor @ewe ; @ewe @lamb.get ; @ewe.stack ( $key $obj ) { @processor @ewe ; @ewe.stack ( $value ) ; @code [$value = lamb.objects[$obj][$key]] ; } @processor @ewe ; @ewe @lamb.invoke ; @ewe.stack ~( $obj $1 $2 $3 $4 4 ) { @processor @ewe ; @ewe $obj does $1 $2 $3 $4 ; } @processor @ewe ; @ewe @lamb.invoke ; @ewe.stack ~( $obj $1 $2 $3 $4 $5 5 ) { @processor @ewe ; @ewe $obj does $1 $2 $3 $4 $5 ; } @processor @ ; @ allocate new lamb ; @lamb.id $n { @processor @ ; @lamb.id $n ; @code [lamb.objects[$n] = {}] ; } @processor @ ; @ increment id by 1 ; @lamb.id $n { @processor @ ; @process switch to @ewe ; @ewe ( $n 1 @ewe.add [@lamb.id] @ewe.push @ewe.done ) ; }

{ @ make player at 100 100 , move player by 20 50 , @lamb pprint } @processor @ ; @ move player by $x $y { @processor @ ; @process switch to @ewe ; @ewe ( #player @ewe.peek move by $x $y 4 @lamb.invoke @ewe.done ) ; } @processor @ ; @ make player at $x $y { @processor @ ; @process switch to @ewe ; @ewe ( @lamb.new Player @lamb.is $x x @lamb.set $y y @lamb.set #player @ewe.push @ewe.done ) } @processor @ ; @ @lamb pprint { @processor @ ; @code [require "pprint" (lamb.objects)] } @processor @ewe ; @ewe $self does move by $x $y { @processor @ewe ; @ewe ( $self @ewe.dup x @lamb.get $x @ewe.add x @lamb.set @ewe.dup y @lamb.get $y @ewe.add y @lamb.set @ewe.drop ) ; } @processor @ewe ; @ewe push #player ; @ewe.stack $id { @processor @ewe ; #player $id ; } @processor @ewe ; @ewe peek #player ; #player $p { @processor @ewe ; #player $p ; @ewe ( $p ) }

{ @processor @ } @process switch to $who ; @processor $id { @processor ( $who $id ) } @ done ; @processor @ { }