2015-05-19 07:27:39 +03:00
|
|
|
:: :: ::
|
2015-12-20 14:48:17 +03:00
|
|
|
:::: /hoon#oct2/ape :::::: dependencies
|
2015-05-19 07:27:39 +03:00
|
|
|
:: :: ::
|
2015-05-21 02:54:49 +03:00
|
|
|
/? 310 :: arvo version
|
2015-10-08 02:28:36 +03:00
|
|
|
/- sole, oct2 :: structures
|
2015-05-30 01:24:34 +03:00
|
|
|
/+ sole, oct2 :: libraries
|
2015-10-08 02:28:36 +03:00
|
|
|
[. sole oct2] :: ::
|
2015-05-19 07:27:39 +03:00
|
|
|
:: :: ::
|
2015-05-29 11:36:23 +03:00
|
|
|
:::: :::::: interfaces
|
2015-05-19 07:27:39 +03:00
|
|
|
!: :: ::
|
2015-05-29 11:36:23 +03:00
|
|
|
=> |% ::
|
2015-12-20 23:50:45 +03:00
|
|
|
++ axle {eye/face gam/game} :: agent state
|
2015-12-15 03:45:52 +03:00
|
|
|
++ card $% {$diff lime} :: update
|
2015-12-19 04:24:34 +03:00
|
|
|
{$quit $~} :: cancel
|
2015-05-08 20:56:30 +03:00
|
|
|
== ::
|
2015-05-26 05:15:08 +03:00
|
|
|
++ face (map bone sole-share) :: console state
|
2015-12-19 04:24:34 +03:00
|
|
|
++ lime {$sole-effect sole-effect} :: :sole update
|
2015-05-08 20:56:30 +03:00
|
|
|
++ move (pair bone card) :: cause and action
|
2015-05-21 02:54:49 +03:00
|
|
|
-- ::
|
2015-05-29 11:36:23 +03:00
|
|
|
:: :: ::
|
|
|
|
|
:::: :::::: past state
|
|
|
|
|
:: :: ::
|
|
|
|
|
=> |% ::
|
2015-12-19 04:24:34 +03:00
|
|
|
++ axon $%({$1 axle} {$0 axle-0}) :: all states
|
2015-12-20 23:50:45 +03:00
|
|
|
++ axle-0 {eye/face gam/game-0} :: old axle
|
|
|
|
|
++ game-0 {who/? box/board boo/board} :: old game
|
2015-12-19 04:24:34 +03:00
|
|
|
++ wake |= axon :- %1 ?- +<- $1 +<+ :: rough upgrade
|
|
|
|
|
$0 [eye [who ~^~ ~ box boo]:gam]:+<+ ::
|
2015-05-29 11:36:23 +03:00
|
|
|
== -- ::
|
|
|
|
|
:: :: ::
|
|
|
|
|
:::: :::::: parsers
|
|
|
|
|
:: :: ::
|
|
|
|
|
=> |% ::
|
2015-12-20 23:50:45 +03:00
|
|
|
++ colm (cook |=(a/@ (sub a '1')) (shim '1' '3')) :: row or column
|
2015-05-08 20:56:30 +03:00
|
|
|
++ come ;~(plug colm ;~(pfix fas colm)) :: coordinate
|
2015-05-31 11:17:32 +03:00
|
|
|
++ cope |=(? ?:(+< (stag %| (cold ~ sig)) come)) :: with wait mode
|
2015-05-08 20:56:30 +03:00
|
|
|
-- ::
|
2015-05-29 11:36:23 +03:00
|
|
|
:: :: ::
|
|
|
|
|
:::: :::::: process core
|
2015-05-26 05:15:08 +03:00
|
|
|
:: :: ::
|
2015-05-31 11:17:32 +03:00
|
|
|
|_ $: bowl ::
|
2015-12-20 23:50:45 +03:00
|
|
|
moz/(list move) :: pending actions
|
2015-12-15 03:45:52 +03:00
|
|
|
{$1 axle} :: process state v1
|
2015-05-29 11:36:23 +03:00
|
|
|
== ::
|
|
|
|
|
:: :: ::
|
|
|
|
|
:::: :::::: process tools
|
2015-05-26 05:15:08 +03:00
|
|
|
:: :: ::
|
2015-05-29 11:36:23 +03:00
|
|
|
++ abet [(flop moz) .(moz ~)] :: resolve
|
2015-12-15 03:45:52 +03:00
|
|
|
++ bike $+(_. _+>) :: self-transformer
|
2015-12-20 23:50:45 +03:00
|
|
|
++ dish |=(cad/card %_(+> moz [[ost cad] moz])) :: request
|
|
|
|
|
++ echo |= {all/(list sink) fun/bike} =+ old=+>+<- :: publish to all
|
2015-05-29 22:45:05 +03:00
|
|
|
|- ^+ +>.^$ ?~ all +>.^$(+<- old) ::
|
|
|
|
|
=> .(ost p.i.all, src q.i.all) ::
|
|
|
|
|
$(all t.all, +>.^$ (fun +>.^$)) ::
|
2015-12-20 23:50:45 +03:00
|
|
|
++ flap |=(con/bike (echo (~(tap by sup)) con)) :: update all clients
|
2015-05-29 11:36:23 +03:00
|
|
|
++ here ~(. go src gam) :: game core
|
|
|
|
|
:: :: ::
|
|
|
|
|
:::: :::::: server logic
|
2015-05-26 05:15:08 +03:00
|
|
|
:: :: ::
|
2015-05-31 11:17:32 +03:00
|
|
|
++ fail (fect %bel ~) :: user error
|
|
|
|
|
++ fect |=(sole-effect (dish %diff %sole-effect +<)) :: update console
|
2015-12-20 23:50:45 +03:00
|
|
|
++ heal |= old/axon =. +>+<+> (wake old) :: complete update
|
2015-05-29 11:36:23 +03:00
|
|
|
=- +>.$(gam -) ?. !=(1 +<-) gam ::
|
2015-05-31 22:07:42 +03:00
|
|
|
(muy:here (turn (~(tap by sup)) |=(sink q))) ::
|
2015-05-29 11:36:23 +03:00
|
|
|
++ kick |= point =^ dud gam ~(m at:here +<) ::
|
2015-05-31 11:17:32 +03:00
|
|
|
?.(dud fail wild:kind) ::
|
2015-05-29 11:36:23 +03:00
|
|
|
++ kind =+(res:here ?~(- + (word(gam new:here) ->))) :: move result
|
2015-05-31 11:17:32 +03:00
|
|
|
++ hail |=(? tame(gam (hey:here +<))) :: toggle subscriber
|
|
|
|
|
++ prom (fect %pro %& %oct2 voy:here) :: update prompt
|
2015-12-20 14:48:17 +03:00
|
|
|
++ rend (turn `wall`tab:here |=(tape txt#+<)) :: table print
|
2015-05-31 11:17:32 +03:00
|
|
|
++ sawn (hail(eye (~(del by eye) ost)) |) :: console unsubscribe
|
|
|
|
|
++ seen (hail(eye (~(put by eye) ost *sole-share)) &) :: console subscribe
|
2015-05-29 11:36:23 +03:00
|
|
|
++ show prom:(fect %mor rend) :: update console
|
2015-05-31 11:17:32 +03:00
|
|
|
++ tame (flap |=(_. prom:+<)) :: light update
|
|
|
|
|
++ wild (flap |=(_. show:+<)) :: full update
|
2015-12-20 14:48:17 +03:00
|
|
|
++ word |=(tape (flap |=(_+> (fect:+< txt#+>+<)))) ::
|
2015-05-29 11:36:23 +03:00
|
|
|
:: :: ::
|
|
|
|
|
:::: :::::: console UI
|
2015-05-26 05:15:08 +03:00
|
|
|
:: :: ::
|
2015-05-29 11:36:23 +03:00
|
|
|
++ work :: console action
|
2015-12-20 23:50:45 +03:00
|
|
|
|= act/sole-action ::
|
2015-05-29 11:36:23 +03:00
|
|
|
=+ say=(~(got by eye) ost) ::
|
2015-12-15 03:45:52 +03:00
|
|
|
|^ ?+(-.act abet $det (delt +.act), $ret dive) ::
|
2015-05-29 11:36:23 +03:00
|
|
|
++ abet ..work(eye (~(put by eye) ost say)) :: resolve
|
|
|
|
|
++ cusp (cope !ept:here) :: parsing rule
|
2015-12-20 23:50:45 +03:00
|
|
|
++ delt |= cal/sole-change :: edit command line
|
2015-10-08 02:28:36 +03:00
|
|
|
=^ cul say (~(remit sole say) cal good) ::
|
2015-12-20 14:48:17 +03:00
|
|
|
?~(cul abet fail:(fect:abet det#u.cul)) ::
|
2015-05-31 11:17:32 +03:00
|
|
|
++ dive =+ (rust (tufa buf.say) (punt come)) :: apply command line
|
|
|
|
|
?~(- fail ?~(-> show (kick:wipe ->+))) ::
|
2015-12-19 04:24:34 +03:00
|
|
|
++ good |=((list @c) -:(rose (tufa +<) cusp)) :: validate input
|
2015-12-20 14:48:17 +03:00
|
|
|
++ wipe =^ cal say (~(transmit sole say) set#~) :: clear line
|
2015-05-29 11:36:23 +03:00
|
|
|
(fect:abet %det cal) ::
|
2015-05-08 20:56:30 +03:00
|
|
|
-- ::
|
2015-05-21 02:54:49 +03:00
|
|
|
:: :: ::
|
2015-05-29 11:36:23 +03:00
|
|
|
:::: :::::: arvo handlers
|
2015-05-21 02:54:49 +03:00
|
|
|
:: :: ::
|
2015-05-29 11:36:23 +03:00
|
|
|
++ peer-sole |=(* abet:show:seen) :: console subscribe
|
|
|
|
|
++ poke-sole-action |=(sole-action abet:(work +<)) :: console input
|
2015-06-03 00:30:00 +03:00
|
|
|
++ prep |= (unit (pair (list move) axon)) :: update self
|
2015-06-03 02:17:55 +03:00
|
|
|
abet:?~(+< +> wild:(heal +<+>)) ::
|
2015-05-29 11:36:23 +03:00
|
|
|
++ pull-sole |=(* abet:sawn) :: console unsubscribe
|
2015-05-08 20:56:30 +03:00
|
|
|
--
|
