ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-30 19:11:59 +03:00
Code Issues Packages Projects Releases Wiki Activity

add :+unmount

Browse Source
This commit is contained in:
Philip C Monk 2015-06-17 19:44:00 -04:00
parent 98c08a2b39
commit b844d1b892
5 changed files with 40 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
base/ape/hood.hoon
View File

@ -75,6 +75,7 @@
++ poke-hood-link (wrap poke-link):from-drum
++ poke-hood-mass (wrap poke-mass):from-helm
++ poke-hood-mount (wrap poke-mount):from-kiln
++ poke-hood-unmount (wrap poke-unmount):from-kiln
++ poke-hood-sync (wrap poke-sync):from-kiln
++ poke-hood-unsync (wrap poke-unsync):from-kiln
++ poke-hood-verb (wrap poke-verb):from-helm

21
base/arvo/clay.hoon
View File

@ -2511,6 +2511,27 @@
=+ wao=(mont:wex p.q.hic s.q.hic)
=+ woo=abet:wao
[-.woo ..^$(ruf abet:(pish:une r.q.hic +.woo ran.wao))]
::
%ogre
?~ hez.ruf
~& %no-sync-duct
[~ ..^$]
?@ p.q.hic
?. (~(has by mon.ruf) p.q.hic)
~& [%not-mounted p.q.hic]
[~ ..^$]
:_ ..^$(mon.ruf (~(del by mon.ruf) p.q.hic))
[u.hez.ruf %give %ogre p.q.hic]~
:_ %_ ..^$
mon.ruf
%- mo
%+ skip (~(tap by mon.ruf))
(corl (cury test p.q.hic) tail)
==
%+ turn
(skim (~(tap by mon.ruf)) (corl (cury test p.q.hic) tail))
|= [pot=term bem=beam]
[u.hez.ruf %give %ogre pot]
::
%warp
=^ mos ruf

1
base/arvo/gall.hoon
View File

@ -1108,6 +1108,7 @@
%info `%c
%merg `%c
%mont `%c
%ogre `%c
%them `%e
%wait `%t
%want `%a

4
base/arvo/zuse.hoon
View File

@ -2330,10 +2330,11 @@
:::: ::
++ gift-clay :: out result <-$
$% [%ergo p=@tas q=mode] :: version update
[%hill p=(list term)] :: mount points
[%hill p=(list ,@tas)] :: mount points
[%mass p=mass] :: memory usage
[%mere p=(each (set path) (pair term tang))] :: merge result
[%note p=@tD q=tank] :: debug message
[%ogre p=@tas] :: delete mount point
[%writ p=riot] :: response
== ::
++ kiss-clay :: in request ->$
@ -2343,6 +2344,7 @@
[%into p=@tas q=mode] :: external edit
[%merg p=@p q=@tas r=@p s=@tas t=germ] :: merge desks
[%mont p=@tas q=@p r=@tas s=path] :: mount to unix
[%ogre p=$|(@tas beam)] :: delete mount point
[%wart p=sock q=@tas r=path s=*] :: network request
[%warp p=sock q=riff] :: file request
[%wegh ~] :: report memory

15
base/lib/kiln.hoon
View File

@ -25,6 +25,8 @@
$: pax=path ::
pot=term ::
== ::
++ hood-unmount ::
$|(term [span path]) ::
++ hood-sync ::
$: syd=desk ::
her=ship ::
@ -56,6 +58,7 @@
$% [%exec wire @p beak (unit silk)] ::
[%info wire @p @tas nori] ::
[%mont wire @tas @p @tas path] ::
[%ogre wire $|(@tas beam)] ::
[%merg wire @p @tas @p @tas germ] ::
[%poke wire dock pear] ::
[%warp wire sock riff] ::
@ -80,10 +83,20 @@
|= hood-mount
=+ bem=(tome pax)
?~ bem
=+ "can't sync bad path: {<pax>}"
=+ "can't mount bad path: {<pax>}"
abet:(spam leaf/- ~)
abet:(emit %mont /mount pot p.u.bem q.u.bem (flop s.u.bem))
::
++ poke-unmount
|= mon=hood-unmount
?^ mon
=+ bem=(tome mon)
?~ bem
=+ "can't unmount bad path: {<mon>}"
abet:(spam leaf/- ~)
abet:(emit %ogre /unmount-beam [[p q %ud 0] s]:u.bem)
abet:(emit %ogre /unmount-point mon)
::
++ poke-sync ::
|= hos=hood-sync
?: (~(has by syn) hos)