mirror of
https://github.com/urbit/shrub.git
synced 2024-11-29 14:57:12 +03:00
Don't run nest checks on every +call.
This commit is contained in:
Elliot Glaysher
parent
cf96537aaa
commit
841b023671
@ -1227,20 +1227,15 @@
|
||||
|% :: vane interface
|
||||
++ call :: handle request
|
||||
|= $: hen=duct
|
||||
hic=(hypo (hobo task:able))
|
||||
==
|
||||
=> %= . :: XX temporary
|
||||
q.hic
|
||||
^- task:able
|
||||
?: ?=(%soft -.q.hic)
|
||||
((hard task:able) p.q.hic)
|
||||
?: (~(nest ut -:!>(*task:able)) | p.hic) q.hic
|
||||
~& [%ames-call-flub (@tas `*`-.q.hic)]
|
||||
((hard task:able) q.hic)
|
||||
type=*
|
||||
wrapped-task=(hobo task:able)
|
||||
==
|
||||
^- [(list move) _..^$]
|
||||
=^ duy ..knob
|
||||
(knob hen q.hic)
|
||||
=/ task=task:able
|
||||
?. ?=(%soft -.wrapped-task)
|
||||
wrapped-task
|
||||
((hard task:able) p.wrapped-task)
|
||||
=^ duy ..knob (knob hen task)
|
||||
[duy ..^$]
|
||||
::
|
||||
++ load
|
||||
|
||||
@ -152,20 +152,15 @@
|
||||
^?
|
||||
|% :: poke+peek pattern
|
||||
++ call :: handle request
|
||||
|= $: hen/duct
|
||||
hic/(hypo (hobo task:able))
|
||||
|= $: hen=duct
|
||||
type=*
|
||||
wrapped-task=(hobo task:able)
|
||||
==
|
||||
=> %= . :: XX temporary
|
||||
q.hic
|
||||
^- task:able
|
||||
?: ?=($soft -.q.hic)
|
||||
:: ~& [%behn-call-soft (,@tas `*`-.p.q.hic)]
|
||||
((hard task:able) p.q.hic)
|
||||
?: (~(nest ut -:!>(*task:able)) | p.hic) q.hic
|
||||
~& [%behn-call-flub (@tas `*`-.q.hic)]
|
||||
((hard task:able) q.hic)
|
||||
==
|
||||
=* req q.hic
|
||||
::
|
||||
=/ req=task:able
|
||||
?. ?=(%soft -.wrapped-task)
|
||||
wrapped-task
|
||||
((hard task:able) p.wrapped-task)
|
||||
|- ^- [(list move) _..^^$]
|
||||
::
|
||||
?: ?=(%born -.req)
|
||||
|
||||
@ -492,39 +492,34 @@
|
||||
--
|
||||
|% :: poke+peek pattern
|
||||
++ call :: handle request
|
||||
|= $: hen/duct
|
||||
hic/(hypo (hobo task:able))
|
||||
|= $: hen=duct
|
||||
type=*
|
||||
wrapped-task=(hobo task:able)
|
||||
==
|
||||
^+ [*(list move) ..^$]
|
||||
=> %= . :: XX temporary
|
||||
q.hic
|
||||
^- task:able
|
||||
?: ?=($soft -.q.hic)
|
||||
:: ~& [%dill-call-soft (@tas `*`-.p.q.hic)]
|
||||
((hard task:able) p.q.hic)
|
||||
?: (~(nest ut -:!>(*task:able)) | p.hic) q.hic
|
||||
~& [%dill-call-flub (@tas `*`-.q.hic)]
|
||||
((hard task:able) q.hic)
|
||||
==
|
||||
=/ task=task:able
|
||||
?. ?=(%soft -.wrapped-task)
|
||||
wrapped-task
|
||||
((hard task:able) p.wrapped-task)
|
||||
:: the boot event passes thru %dill for initial duct distribution
|
||||
::
|
||||
?: ?=(%boot -.q.hic)
|
||||
?> ?=(?(%dawn %fake) -.p.q.hic)
|
||||
?: ?=(%boot -.task)
|
||||
?> ?=(?(%dawn %fake) -.p.task)
|
||||
?> =(~ hey.all)
|
||||
=. hey.all `hen
|
||||
=/ boot ((soft note-jael) p.q.hic)
|
||||
=/ boot ((soft note-jael) p.task)
|
||||
?~ boot
|
||||
~| invalid-boot-event+hen !!
|
||||
:_(..^$ [hen %pass / %j u.boot]~)
|
||||
:: we are subsequently initialized. single-home
|
||||
::
|
||||
?: ?=(%init -.q.hic)
|
||||
?: ?=(%init -.task)
|
||||
?> =(~ dug.all)
|
||||
?> =(~ ore.all)
|
||||
=. ore.all `p.q.hic
|
||||
=. ore.all `p.task
|
||||
:: configure new terminal, setup :hood and %clay
|
||||
::
|
||||
=* our p.q.hic
|
||||
=* our p.task
|
||||
=* duc (need hey.all)
|
||||
=/ app %hood
|
||||
=/ see (tuba "<awaiting {(trip app)}, this may take a few minutes>")
|
||||
@ -534,17 +529,17 @@
|
||||
[moz ..^$]
|
||||
:: %flog tasks are unwrapped and sent back to us on our default duct
|
||||
::
|
||||
?: ?=(%flog -.q.hic)
|
||||
?: ?=(%flog -.task)
|
||||
?~ hey.all
|
||||
[~ ..^$]
|
||||
:: this lets lib/helm send %heft a la |mass
|
||||
::
|
||||
=/ not=note-dill
|
||||
?:(?=([%crud %hax-heft ~] p.q.hic) [%heft ~] p.q.hic)
|
||||
?:(?=([%crud %hax-heft ~] p.task) [%heft ~] p.task)
|
||||
[[u.hey.all %slip %d not]~ ..^$]
|
||||
:: a %sunk notification from %jail comes in on an unfamiliar duct
|
||||
::
|
||||
?: ?=(%sunk -.q.hic)
|
||||
?: ?=(%sunk -.task)
|
||||
[~ ..^$]
|
||||
::
|
||||
=/ nus (ax hen)
|
||||
@ -552,11 +547,11 @@
|
||||
:: we got this on an unknown duct or
|
||||
:: before %boot or %init (or one of those crashed)
|
||||
::
|
||||
~& [%dill-call-no-flow hen -.q.hic]
|
||||
=/ tan ?:(?=(%crud -.q.hic) q.q.hic ~)
|
||||
~& [%dill-call-no-flow hen -.task]
|
||||
=/ tan ?:(?=(%crud -.task) q.task ~)
|
||||
[((slog (flop tan)) ~) ..^$]
|
||||
::
|
||||
=^ moz all abet:(call:u.nus q.hic)
|
||||
=^ moz all abet:(call:u.nus task)
|
||||
[moz ..^$]
|
||||
::
|
||||
++ load :: trivial
|
||||
|
||||
@ -2245,20 +2245,18 @@
|
||||
^? :: opaque core
|
||||
|% ::
|
||||
++ call :: handle request
|
||||
|= $: hen/duct
|
||||
hic/(hypo (hobo task:able))
|
||||
==
|
||||
=> %= . :: XX temporary
|
||||
q.hic
|
||||
^- task:able
|
||||
?: ?=($soft -.q.hic)
|
||||
((hard task:able) p.q.hic)
|
||||
?: (~(nest ut -:!>(*task:able)) | p.hic) q.hic
|
||||
~& [%eyre-call-flub (@tas `*`-.q.hic)]
|
||||
((hard task:able) q.hic)
|
||||
|= $: hen=duct
|
||||
type=*
|
||||
wrapped-task=(hobo task:able)
|
||||
==
|
||||
::
|
||||
=/ task=task:able
|
||||
?. ?=(%soft -.wrapped-task)
|
||||
wrapped-task
|
||||
((hard task:able) p.wrapped-task)
|
||||
::
|
||||
^+ [*(list move) ..^$]
|
||||
?: ?=($wegh -.q.hic)
|
||||
?: ?=($wegh -.task)
|
||||
:_ ..^$ :_ ~
|
||||
:^ hen %give %mass
|
||||
:- %eyre
|
||||
@ -2275,7 +2273,7 @@
|
||||
^+ [p=*(list move) q=..^$]
|
||||
=. gub ?.(=(`@`0 gub) gub (cat 3 (rsh 3 1 (scot %p (end 6 1 eny))) '-'))
|
||||
=^ mos bol
|
||||
abet:(apex:~(adit ye [hen [now eny our sky] ~] bol) q.hic)
|
||||
abet:(apex:~(adit ye [hen [now eny our sky] ~] bol) task)
|
||||
[mos ..^$]
|
||||
::
|
||||
++ load :: take previous state
|
||||
|
||||
Loading…
Reference in New Issue
Block a user