dojo: %home->%base
$?(%eny %now %our) !!
%lib .(lib ~)
%sur .(sur ~)
- %dir .(dir [[our.hid %home ud+0] /])
+ %dir .(dir [[our.hid %base ud+0] /])
==
=+ cay=(~(got by rez) p.q.mad)
?- -.p.mad
::
%dir =+ ^= pax ^- path
=+ pax=((dy-cast path !>(*path)) q.cay)
- ?: ?=(~ pax) ~[(scot %p our.hid) %home '0']
- ?: ?=([@ ~] pax) ~[i.pax %home '0']
+ ?: ?=(~ pax) ~[(scot %p our.hid) %base '0']
+ ?: ?=([@ ~] pax) ~[i.pax %base '0']
?: ?=([@ @ ~] pax) ~[i.pax i.t.pax '0']
pax
=. dir (need (de-beam pax))
::
++ he-prow :: where we are
^- tape
- ?: &(=(our.hid p.dir) =(%home q.dir) =([%ud 0] r.dir) =(~ s.dir)) ~
+ ?: &(=(our.hid p.dir) =(%base q.dir) =([%ud 0] r.dir) =(~ s.dir)) ~
%+ weld
?: &(=(our.hid p.dir) =([%ud 0] r.dir))
(weld "/" (trip q.dir))
;: weld
"/" ?:(=(our.hid p.dir) "=" (scow %p p.dir))
- "/" ?:(=(%home q.dir) "=" (trip q.dir))
+ "/" ?:(=(%base q.dir) "=" (trip q.dir))
"/" ?:(=([%ud 0] r.dir) "=" (scow r.dir))
==
?:(=(~ s.dir) "" (spud s.dir))
:+ %clhp
[%rock %tas %cx]
%+ rash pax.source.com
- rood:(vang | /(scot %p our.hid)/home/(scot %da now.hid))
+ rood:(vang | /(scot %p our.hid)/base/(scot %da now.hid))
::
%url [%ur (crip (en-purl:html url.source.com))]
%api !!
%hoon
:* %do
%+ rash code.source.com
- tall:(vang | /(scot %p our.hid)/home/(scot %da now.hid))
+ tall:(vang | /(scot %p our.hid)/base/(scot %da now.hid))
$(num +(num), source.com next.source.com)
==
::
=? hoc (~(has by hoc) id)
~& [%dojo-peer-replaced id]
(~(del by hoc) id)
- =/ =session %*(. *session -.dir [our.hid %home ud+0])
+ =/ =session %*(. *session -.dir [our.hid %base ud+0])
=^ moves state
he-abet:~(he-prom he hid id ~ session)
[moves ..on-init]
