From a84fb403f6e7370104b2dce81a3a8a77506c5229 Mon Sep 17 00:00:00 2001 From: Philip C Monk Date: Wed, 16 Sep 2015 19:40:53 -0400 Subject: [PATCH] turn off autoload with |autoload --- ape/hood.hoon | 81 +++++++++++++++++++++--------------------- arvo/dill.hoon | 2 +- gen/hood/autoload.hoon | 13 +++++++ lib/kiln.hoon | 10 ++++++ 4 files changed, 65 insertions(+), 41 deletions(-) create mode 100644 gen/hood/autoload.hoon diff --git a/ape/hood.hoon b/ape/hood.hoon index 655038620..a14cf7d4e 100644 --- a/ape/hood.hoon +++ b/ape/hood.hoon @@ -77,44 +77,45 @@ ++ from-helm (from-lib %helm [..$ ,_abet]:(helm)) ++ from-kiln (from-lib %kiln [..$ ,_abet]:(kiln)) :: -++ init-helm |=([way=wire *] [~ +>]) -++ made-kiln (wrap take-made):from-kiln -++ mere-kiln (wrap take-mere):from-kiln -++ mere-kiln-sync (wrap take-mere-sync):from-kiln -++ note-helm (wrap take-note):from-helm -++ onto-drum (wrap take-onto):from-drum -++ peer-drum (wrap peer):from-drum -++ poke-dill-belt (wrap poke-dill-belt):from-drum -++ poke-drum-link (wrap poke-link):from-drum -::++ poke-drum-exit (wrap poke-exit):from-drum -++ poke-drum-start (wrap poke-start):from-drum -++ poke-helm-hi (wrap poke-hi):from-helm -++ poke-helm-init (wrap poke-init):from-helm -++ poke-helm-invite (wrap poke-invite):from-helm -++ poke-helm-mass (wrap poke-mass):from-helm -++ poke-helm-reload (wrap poke-reload):from-helm -++ poke-helm-reload-desk (wrap poke-reload-desk):from-helm -++ poke-helm-reset (wrap poke-reset):from-helm -++ poke-helm-send-hi (wrap poke-send-hi):from-helm -++ poke-helm-verb (wrap poke-verb):from-helm -++ poke-helm-begin (wrap poke-begin):from-helm -++ poke-hood-sync (wrap poke-sync):from-kiln -++ poke-kiln-cp (wrap poke-cp):from-kiln -++ poke-kiln-label (wrap poke-label):from-kiln -++ poke-kiln-merge (wrap poke-merge):from-kiln -++ poke-kiln-cancel (wrap poke-cancel):from-kiln -++ poke-kiln-mount (wrap poke-mount):from-kiln -++ poke-kiln-mv (wrap poke-mv):from-kiln -++ poke-kiln-rm (wrap poke-rm):from-kiln -++ poke-kiln-schedule (wrap poke-schedule):from-kiln -++ poke-kiln-sync (wrap poke-sync):from-kiln -++ poke-kiln-autoload (wrap poke-autoload):from-kiln -++ poke-kiln-unmount (wrap poke-unmount):from-kiln -++ poke-kiln-unsync (wrap poke-unsync):from-kiln -++ poke-will (wrap poke-will):from-helm -++ quit-drum-phat (wrap quit-phat):from-drum -++ reap-drum-phat (wrap reap-phat):from-drum -++ woot-helm (wrap take-woot):from-helm -++ writ-kiln-autoload (wrap take-writ-autoload):from-kiln -++ writ-kiln-sync (wrap take-writ-sync):from-kiln +++ init-helm |=([way=wire *] [~ +>]) +++ made-kiln (wrap take-made):from-kiln +++ mere-kiln (wrap take-mere):from-kiln +++ mere-kiln-sync (wrap take-mere-sync):from-kiln +++ note-helm (wrap take-note):from-helm +++ onto-drum (wrap take-onto):from-drum +++ peer-drum (wrap peer):from-drum +++ poke-dill-belt (wrap poke-dill-belt):from-drum +++ poke-drum-link (wrap poke-link):from-drum +::++ poke-drum-exit (wrap poke-exit):from-drum +++ poke-drum-start (wrap poke-start):from-drum +++ poke-helm-hi (wrap poke-hi):from-helm +++ poke-helm-init (wrap poke-init):from-helm +++ poke-helm-invite (wrap poke-invite):from-helm +++ poke-helm-mass (wrap poke-mass):from-helm +++ poke-helm-reload (wrap poke-reload):from-helm +++ poke-helm-reload-desk (wrap poke-reload-desk):from-helm +++ poke-helm-reset (wrap poke-reset):from-helm +++ poke-helm-send-hi (wrap poke-send-hi):from-helm +++ poke-helm-verb (wrap poke-verb):from-helm +++ poke-helm-begin (wrap poke-begin):from-helm +++ poke-hood-sync (wrap poke-sync):from-kiln +++ poke-kiln-cp (wrap poke-cp):from-kiln +++ poke-kiln-label (wrap poke-label):from-kiln +++ poke-kiln-merge (wrap poke-merge):from-kiln +++ poke-kiln-cancel (wrap poke-cancel):from-kiln +++ poke-kiln-mount (wrap poke-mount):from-kiln +++ poke-kiln-mv (wrap poke-mv):from-kiln +++ poke-kiln-rm (wrap poke-rm):from-kiln +++ poke-kiln-schedule (wrap poke-schedule):from-kiln +++ poke-kiln-sync (wrap poke-sync):from-kiln +++ poke-kiln-start-autoload (wrap poke-start-autoload):from-kiln +++ poke-kiln-autoload (wrap poke-autoload):from-kiln +++ poke-kiln-unmount (wrap poke-unmount):from-kiln +++ poke-kiln-unsync (wrap poke-unsync):from-kiln +++ poke-will (wrap poke-will):from-helm +++ quit-drum-phat (wrap quit-phat):from-drum +++ reap-drum-phat (wrap reap-phat):from-drum +++ woot-helm (wrap take-woot):from-helm +++ writ-kiln-autoload (wrap take-writ-autoload):from-kiln +++ writ-kiln-sync (wrap take-writ-sync):from-kiln -- diff --git a/arvo/dill.hoon b/arvo/dill.hoon index 8898280ed..e5ce33127 100644 --- a/arvo/dill.hoon +++ b/arvo/dill.hoon @@ -266,7 +266,7 @@ moz :_ moz :* hen %pass /autoload %g %deal [our our] - ram %poke %kiln-autoload [%cube ~ [%atom %n]] ~ + ram %poke %kiln-start-autoload [%cube ~ [%atom %n]] ~ == == :: diff --git a/gen/hood/autoload.hoon b/gen/hood/autoload.hoon new file mode 100644 index 000000000..5476276a1 --- /dev/null +++ b/gen/hood/autoload.hoon @@ -0,0 +1,13 @@ +:: +:::: /hoon/autoload/hood/gen + :: +/? 314 +:: +:::: + !: +:- %say +|= $: [now=@da eny=@uvI bec=beak] + [arg=?(~ [? ~]) ~] + == +:- %kiln-autoload +`(unit ,?)`?~(arg ~ `-.arg) diff --git a/lib/kiln.hoon b/lib/kiln.hoon index a625a7362..f04328bf2 100644 --- a/lib/kiln.hoon +++ b/lib/kiln.hoon @@ -10,6 +10,7 @@ ++ kiln-pith :: $: rem=(map desk kiln-desk) :: syn=(map kiln-sync ,[let=@ud ust=bone]) :: + autoload=? :: == :: ++ kiln-desk :: per-desk state $: auto=? :: escalate on failure @@ -156,6 +157,13 @@ (foal where %sched !>((~(put by old) tym eve))) :: ++ poke-autoload + |= lod=(unit ,?) + ?^ lod + abet(autoload u.lod) + =< abet(autoload !autoload) + (spam leaf/"turning autoload o{?:(autoload "ff" "n")}" ~) +:: +++ poke-start-autoload |= ~ =< abet %- emil @@ -206,6 +214,8 @@ ?> ?=(^ rot) =+ syd=(slav %tas i.way) =. +>.$ + ?. autoload + +>.$ ?: ?=(%hoon syd) (emit %poke /kiln/reload/[syd] [our %hood] %helm-reset ~) (emit %poke /kiln/reload/[syd] [our %hood] %helm-reload ~[syd])