userspace cleaning

This commit is contained in:
Anton Dyudin 2015-05-30 00:53:19 -07:00
parent 38839bf941
commit 8ca9c69be9
4 changed files with 47 additions and 101 deletions

View File

@ -6,5 +6,5 @@
::++ poke-purl |=(a=purl :_(+> [ost %hiss / %wain %purl a]~))
++ poke-noun |=(a=tape (poke %purl (scan a auri:epur)))
++ sigh-wain |=([* a=wain] ~&(a `+>))
++ sigh-tang |=([* a=tang] `_!!`(mean a))
++ sigh-tang |=([* a=tang] (mean a))
--

View File

@ -49,66 +49,27 @@
:: :: ::
:::: :: ::
:: :: ::
++ coup-kiln-fancy ::
|= [way=wire saw=(unit tang)]
(ably (take-coup-fancy:(kiln-work hid (able %kiln)) way +<+))
::
++ coup-kiln-fancy (wrap take-coup-fancy):from-kiln
++ coup-kiln-spam ::
|= [way=wire saw=(unit tang)]
~? ?=(^ saw) [%kiln-spam-lame u.saw]
[~ +>]
::
++ coup-drum ::
|= [way=wire saw=(unit tang)]
(ably (take-coup:(drum-work hid (able %drum)) way +<+))
++ coup-drum (wrap take-coup):from-drum
++ diff-sole-effect-drum (wrap diff-sole-effect):from-drum
++ from-helm
=- [wrap=- *helm-work]
|* fun=_=>(*helm-work |=(* abet))
|= _+<.fun
=. +>.fun (helm-work hid (able %helm))
(ably (fun +<))
::
++ diff-sole-effect-drum
|= [way=wire sole-effect]
(ably (diff-sole-effect:(drum-work hid (able %drum)) way +<+))
::
++ poke-hood-begin ::
|= hood-begin
(ably (poke-begin:(helm-work hid (able %helm)) +<))
::
++ poke-helm-init ::
|= hood-init
(ably (poke-init:(helm-work hid (able %helm)) +<))
::
++ poke-hood-mass ::
|= ~
(ably poke-mass:(helm-work hid (able %helm)))
::
++ poke-hood-merge ::
|= hood-merge
(ably (poke-merge:(kiln-work hid (able %kiln)) +<))
::
++ poke-hood-reload ::
|= hood-reload
(ably (poke-reload:(helm-work hid (able %helm)) +<))
::
++ poke-hood-reset ::
|= ~
(ably (poke-reset:(helm-work hid (able %helm)) +<))
::
++ poke-hood-sync ::
|= hood-sync
(ably (poke-sync:(kiln-work hid (able %kiln)) +<))
::
++ poke-hood-unix ::
|= hood-unix
(ably (poke-unix:(kiln-work hid (able %kiln)) +<))
::
++ poke-hood-verb ::
|= ~
(ably (poke-verb:(helm-work hid (able %helm)) +<))
::
++ poke-hood-start ::
|= drum-start
(ably (poke-start:(drum-work hid (able %drum)) +<))
::
++ poke-dill-belt
|= dill-belt
(ably (poke-dill-belt:(drum-work hid (able %drum)) +<))
++ from-drum
=- [wrap=- *drum-work]
|* fun=_=>(*drum-work |=(* se-abet))
|= _+<.fun
=. +>.fun (drum-work hid (able %drum))
(ably (fun +<))
::
++ from-kiln
=- [wrap=- *kiln-work]
@ -117,47 +78,29 @@
=. +>.fun (kiln-work hid (able %kiln))
(ably (fun +<))
::
++ poke-dill-belt (wrap poke-dill-belt):from-drum
++ poke-helm-init (wrap poke-init):from-helm
++ poke-hood-mass (wrap poke-mass):from-helm
++ poke-hood-sync (wrap poke-sync):from-kiln
++ poke-hood-unix (wrap poke-unix):from-kiln
++ poke-hood-verb (wrap poke-verb):from-helm
++ poke-hood-begin (wrap poke-begin):from-helm
++ poke-hood-merge (wrap poke-merge):from-kiln
++ poke-hood-reload (wrap poke-reload):from-helm
++ poke-hood-reset (wrap poke-reset):from-helm
++ poke-hood-start (wrap poke-start):from-drum
++ poke-hood-reload-desk (wrap poke-reload-desk):from-helm
++ poke-kiln-cp (wrap poke-cp):from-kiln
++ poke-kiln-rm (wrap poke-rm):from-kiln
++ poke-kiln-mv (wrap poke-mv):from-kiln
::
++ poke-will ::
|= (unit will)
(ably (poke-will:(helm-work hid (able %helm)) +<))
::
++ mere-kiln ::
|= [way=wire are=(each (set path) (pair term tang))]
(ably (take-mere:(kiln-work hid (able %kiln)) way +<+))
::
++ made-kiln ::
|= [way=wire @uvH gage]
(ably (take-made:(kiln-work hid (able %kiln)) way +<+))
::
++ init-helm ::
|= [way=wire *]
[~ +>]
::
++ note-helm ::
|= [way=wire (pair ,@tD tank)]
(ably (take-note:(helm-work hid (able %helm)) way +<+))
::
++ reap-drum
|= [way=wire saw=(unit tang)]
(ably (reap:(drum-work hid (able %drum)) way +<+))
::
++ onto-drum ::
|= [way=wire saw=(each ,[term @tas @da] tang)]
(ably (take-onto:(drum-work hid (able %drum)) way +<+))
::
++ peer-drum
|= pax=path
(ably (peer:(drum-work hid (able %drum)) +<))
::
++ quit-drum
|= way=wire
(ably (quit:(drum-work hid (able %drum)) way))
::
++ went-helm ::
|= [way=wire her=ship kay=cape]
(ably (take-went:(helm-work hid (able %helm)) way +<+))
++ poke-will (wrap poke-will):from-helm
++ mere-kiln (wrap take-mere):from-kiln
++ made-kiln (wrap take-made):from-kiln
++ init-helm |=([way=wire *] [~ +>])
++ note-helm (wrap take-note):from-helm
++ reap-drum (wrap reap):from-drum
++ onto-drum (wrap take-onto):from-drum
++ peer-drum (wrap peer):from-drum
++ quit-drum (wrap quit):from-drum
++ went-helm (wrap take-went):from-helm
--

View File

@ -78,19 +78,20 @@
(emit %flog /helm %crud %hax-init leaf/(scow %p him) ~)
::
++ poke-mass
=< abet
|= ~ =< abet
(emit %flog /heft %crud %hax-heft ~)
::
++ poke-start :: start a server
|= hood-start =< abet
(emit %conf /helm [our dap] %load our syd)
::
++ poke-reload :: reload vanes
|= all=(list term) =< abet
++ poke-reload |=(all=(list term) (poke-reload-desk %home all))
++ poke-reload-desk :: reload vanes
|= [syd=desk all=(list term)] =< abet
%- emil
%- flop
%+ turn all
=+ ark=(arch .^(%cy /(scot %p our)/base/(scot %da now)/arvo))
=+ ark=(arch .^(%cy /(scot %p our)/[syd]/(scot %da now)/arvo))
=+ van=(~(tap by r.ark))
|= nam=@tas
=. nam
@ -111,7 +112,8 @@
++ poke-reset :: reset system
|= hood-reset =< abet
%- emil
=+ top=`path`/(scot %p our)/base/arvo/(scot %da now)
%- flop ^- (list card)
=+ top=`path`/(scot %p our)/home/(scot %da now)/arvo
:- [%flog /reset %vega (weld top `path`/hoon)]
%+ turn
^- (list ,[p=@tas q=@tas])

View File

@ -7,6 +7,7 @@
::
|_ jon=json
::
++ garb /oauth-tokens/bit-accounts/bit-transaction
++ grow :: convert to
|%
++ mime [/text/json (taco txt)] :: convert to %mime