mirror of
https://github.com/urbit/shrub.git
synced 2025-01-05 19:46:50 +03:00
checkpoint of marked gall scry
This commit is contained in:
parent
f75d1e7ad6
commit
383b21c951
@ -750,7 +750,7 @@
|
||||
=+ cuf=`cuft`+>.sih
|
||||
?- -.cuf
|
||||
?($coup $reap)
|
||||
~? ?=($lens r.q.tee) hen=hen^hcuf=-.cuf
|
||||
:: ~? ?=($lens r.q.tee) hen=hen^hcuf=-.cuf
|
||||
(get-ack:(ire-ix p.tee) q.tee ?~(p.cuf ~ `[-.cuf u.p.cuf]))
|
||||
::
|
||||
$doff !!
|
||||
@ -1469,11 +1469,11 @@
|
||||
him her
|
||||
aut (~(put in aut) her)
|
||||
..ya
|
||||
~& logon+[our her ses]
|
||||
:: ~& logon+[our her ses]
|
||||
?. =(our her)
|
||||
..ya
|
||||
=+ sap=(~(get by sop) ses)
|
||||
~& sap
|
||||
:: ~& sap+sap
|
||||
?. ?=({$~ @ $|} sap)
|
||||
..ya
|
||||
(ames-gram -.u.sap aut+~ ses)
|
||||
|
@ -14,12 +14,18 @@
|
||||
$% $: $c :: to %clay
|
||||
$% {$warp p/sock q/riff} ::
|
||||
== == ::
|
||||
$: $g :: to %clay
|
||||
$: $f :: to %ford
|
||||
$% {$exec p/@p q/(unit bilk)} ::
|
||||
== == ::
|
||||
$: $g :: to %gall
|
||||
$% {$deal p/sock q/cush} ::
|
||||
== == == ::
|
||||
++ sign :: in result $<-
|
||||
$% $: $c :: by %clay
|
||||
$% {$writ p/riot} ::
|
||||
== == ::
|
||||
$: $f :: by %ford
|
||||
$% {$made p/@uvH q/gage} ::
|
||||
== == ::
|
||||
$: $g :: by %gall
|
||||
$% {$unto p/cuft} ::
|
||||
@ -205,6 +211,7 @@
|
||||
+>.$
|
||||
?- -.+.sih
|
||||
$writ (~(resp zo [num u.tus]) [van ren bem] p.+.sih)
|
||||
$made (~(resm zo [num u.tus]) [van ren bem] [p q]:+.sih)
|
||||
$unto
|
||||
?+ -.p.+.sih ~|(ford-strange-unto+-.p.+.sih !!)
|
||||
$diff (~(resd zo [num u.tus]) [van ren bem] p.p.+.sih)
|
||||
@ -1773,14 +1780,28 @@
|
||||
=+ (cat 3 van ren)
|
||||
exec(keg (~(put by keg) [- bem] r.u.rot))
|
||||
::
|
||||
++ resd
|
||||
++ resd :: take %diff
|
||||
|= {{van/vane ren/care bem/beam} cag/cage}
|
||||
^+ ..zo
|
||||
?> ?=($g van)
|
||||
=. mow
|
||||
:_ mow
|
||||
:^ hen %pass (camp-wire van ren bem)
|
||||
[%f %exec our ~ bek %cast ((hard mark) -.s.bem) %$ cag]
|
||||
..zo
|
||||
::
|
||||
++ resm :: take %made
|
||||
|= {{van/vane ren/care bem/beam} dep/@uvH gag/gage} :: XX depends?
|
||||
^+ ..zo
|
||||
?> ?=($g van)
|
||||
=. kig (~(del in kig) +<-.$)
|
||||
=. mow :_(mow [hen (cancel van ren bem)])
|
||||
?: ?=($| -.gag)
|
||||
amok:(expo [%made dep %| leaf+"ford-scry-made-fail" p.gag])
|
||||
?: ?=($tabl -.gag)
|
||||
amok:(expo [%made dep %| leaf+"ford-scry-made-strange" ~])
|
||||
=+ (cat 3 van ren)
|
||||
exec(keg (~(put by keg) [- bem] cag))
|
||||
exec(keg (~(put by keg) [- bem] p.gag))
|
||||
::
|
||||
++ syve
|
||||
^- sley
|
||||
|
@ -1,5 +1,4 @@
|
||||
!: :: %gall, agent execution
|
||||
|
||||
!? 163
|
||||
::::
|
||||
|= pit/vase
|
||||
@ -490,9 +489,9 @@
|
||||
byk:(~(got by bum) dap)
|
||||
::
|
||||
++ mo-peek
|
||||
|= {dap/dude pry/prey ren/@tas tyl/path}
|
||||
|= {dap/dude pry/prey ren/@tas tyl/path mar/mark}
|
||||
^- (unit (unit cage))
|
||||
(ap-peek:(ap-abed:ap dap pry) ren tyl)
|
||||
(ap-peek:(ap-abed:ap dap pry) ren tyl mar)
|
||||
::
|
||||
++ mo-clip :: apply club
|
||||
|= {dap/dude pry/prey cub/club}
|
||||
@ -636,11 +635,11 @@
|
||||
(ap-sake p.zem)
|
||||
::
|
||||
++ ap-peek
|
||||
|= {ren/@tas tyl/path}
|
||||
|= {ren/@tas tyl/path mar/mark}
|
||||
^- (unit (unit cage))
|
||||
=+ cug=(ap-find %peek ren tyl)
|
||||
?~ cug
|
||||
((slog leaf+"peek find fail" >tyl< ~) [~ ~])
|
||||
((slog leaf+"peek find fail" >tyl< >mar< ~) [~ ~])
|
||||
=^ arm +>.$ (ap-farm q.u.cug)
|
||||
?: ?=($| -.arm) ((slog leaf+"peek farm fail" p.arm) [~ ~])
|
||||
=^ zem +>.$ (ap-slam q.u.cug p.arm !>([ren (slag p.u.cug tyl)]))
|
||||
@ -652,6 +651,8 @@
|
||||
=+ caz=(spec (slot 7 p.zem))
|
||||
?. &(?=({p/@ *} q.caz) ((sane %tas) p.q.caz))
|
||||
((slog leaf+"scry: malformed cage" ~) [~ ~])
|
||||
?. =(mar p.q.caz)
|
||||
[~ ~]
|
||||
``[p.q.caz (slot 3 caz)]
|
||||
==
|
||||
::
|
||||
@ -1306,7 +1307,12 @@
|
||||
~
|
||||
?. (~(has by bum:(~(got by pol.all) who)) syd)
|
||||
[~ ~]
|
||||
(mo-peek:(mo-abed:mo who *duct) syd high+`who ren tyl)
|
||||
?. ?=(^ tyl)
|
||||
~
|
||||
=+ =+ `path`(flop tyl)
|
||||
?> ?=(^ -)
|
||||
[mar=i pax=(flop t)]
|
||||
(mo-peek:(mo-abed:mo who *duct) syd high+`who ren pax mar)
|
||||
::
|
||||
++ stay :: save w+o cache
|
||||
`axle`all
|
||||
|
Loading…
Reference in New Issue
Block a user