capitalex / main.wul

@ ewe block do { @ewe blocking thread } @ ewe block end ; @ewe blocking thread { } @ ewe push $id { @ewe $id } @ewe @ewe.dup ; @ewe.stack $ { @ewe.stack ( $ $ ) } @ewe @ewe.swap ; @ewe.stack ( $x $y ) { @ewe.stack ( $y $x ) } @ewe @ewe.drop ; @ewe.stack ( $x ) { } @ewe @ewe.nip ; @ewe.stack ( $ $x ) { @ewe.stack $x } @ewe @ewe.call ; @ewe.stack $fn { @ewe def $fn ; } @ewe @ewe.if ; @ewe.stack ( $true $ true ) { @ewe def $true } @ewe @ewe.if ; @ewe.stack ( $ $false false ) { @ewe def $false } @ewe @ewe.lt ; @ewe.stack ~( $x $y ) { @ewe.stack $z ; @code [$z = tostring(tonumber($x) < tonumber($y))] } @ewe @ewe.eq ; @ewe.stack ~( $x $y ) { @ewe.stack $z ; @code [$z = tostring(tonumber($x) == tonumber($y))] } @ewe @ewe.gt ; @ewe.stack ~( $x $y ) { @ewe.stack $z ; @code [$z = tostring(tonumber($x) > tonumber($y))] } @ewe @ewe.and ; @ewe.stack ( true ture ) { @ewe.stack true } @ewe @ewe.and ; @ewe.stack ( $1 $2 ) { @ewe.stack false } @ewe @ewe.or ; @ewe.stack ( true $ ) { @ewe.stack true } @ewe @ewe.or ; @ewe.stack ( $ true ) { @ewe.stack true } @ewe @ewe.or ; @ewe.stack ( $ $ ) { @ewe.stack false } @ewe @ewe.not ; @ewe.stack true { @ewe.stack false } @ewe @ewe.not ; @ewe.stack false { @ewe.stack true } @ewe @ewe.sub ; @ewe.stack ~( $x $y ) { @ewe.stack $z ; @code [$z = tostring($x - $y)] } @ewe @ewe.add ; @ewe.stack ~( $x $y ) { @ewe.stack $z ; @code [$z = tostring($x + $y)] } @ewe @ewe.div ; @ewe.stack ~( $x $y ) { @ewe.stack $z ; @code [$z = tostring($x / $y)] } @ewe @ewe.mod ; @ewe.stack ~( $x $y ) { @ewe.stack $z ; @code [$z = tostring($x % $y)] } @ewe @ewe.mul ; @ewe.stack ~( $x $y ) { @ewe.stack $z ; @code [$z = tostring($x * $y)] } @ewe @ewe.pop ; @ewe.stack $name { @ewe pop $name } @ewe @ewe.push ; @ewe.stack $name { @ewe push $name } @ewe @ewe.peek ; @ewe.stack $name { @ewe peek $name } @ewe @ewe.block.main { @ @ewe.blocking } @ewe @ewe.unblock.main ; @ @ewe.blocking { } @ewe @ewe.unblock.main { } @ewe ( $x ) { @ewe.stack $x } @ ewe do , $op { } @ ewe doing , $op { @ ewe doing ; @ewe $op ; } @ ewe doing , ewe end ; @ewe blocking thread { }

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

{ @ make player at 100 100 , move player by 20 50 , @lamb pprint } @ move player by $x $y { @ewe ( #player @ewe.peek move by $x $y 4 @lamb.invoke ) ; } @ewe $self does move by $x $y { @ewe ( @ewe.block.main $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 @ewe.unblock.main ) } @ make player at $x $y { @ewe ( @ewe.block.main @lamb.new Player @lamb.is $x x @lamb.set $y y @lamb.set #player @ewe.push @ewe.unblock.main ) } @ewe push #player ; @ewe.stack $id { #player $id } @ewe peek #player ; #player $p { #player $p ; @ewe ( $p ) } @ @lamb pprint { @code [require "pprint" (lamb.objects)] }