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

shell work

Browse Source
This commit is contained in:
Ubuntu 2014-09-22 22:20:47 +00:00
parent 7e445e92f4
commit ccd389b4a8
3 changed files with 78 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/gall.hoon
View File

@ -806,7 +806,11 @@
!=(~ qic.sat)
=(`[hen pax] onz.sat)
==
~& [%gall-mystery imp pax =(~ qic.sat) onz.sat]
~& :* %gall-mystery
imp pax
?~(qic.sat ~ [p -.q]:u.qic.sat)
onz.sat
==
+>.$
=: onz.sat ~
qic.sat ~

67
main/app/shell/core.hook
View File

@ -16,35 +16,80 @@
++ move ,[p=bone q=(mold note gift)] ::
++ note ::
$% $: %g ::
$% [%show p=hapt q=ship r=path] ::
$% [%cide p=span] ::
[%show p=hapt q=ship r=path] ::
[%sire p=term q=span] ::
[%mess p=hapt q=ship r=[%term-line vase]] ::
== == == ::
++ sign ::
$% $: %g ::
$% [%nice ~] ::
$% [%gone p=hapt] ::
[%mean p=ares] ::
[%nice ~] ::
[%rush p=%txt q=cord] ::
[%rust p=%txt q=cord] ::
== == == ::
--
!:
:::: program
::
|_ [hid=hide pax=_`path`%]
++ parse
;~ pose
(stag %start ;~(pfix col (plus ;~(pose low nud hep))))
(stag %end ;~(pfix sem (plus ;~(pose low nud hep))))
(stag %path (sear plex rood):(vang | pax))
==
::
++ poke-txt
|= [ost=bone you=ship txt=cord]
^- [(list move) _+>]
=^ res pax
=+ paf=(rush txt (sear plex rood):(vang | pax))
?^ paf ["=% {(spud u.paf)}" u.paf]
["Yup, {(trip txt)}" pax]
:_ +>.$ :_ ~
:* ost %pass / %g %mess
[our.hid +.imp.hid] you
%term-line !>(`term-line`[(spat pax) leaf/res ~])
=+ paf=(rush txt parse)
?~ paf
:_ +>.$ :_ ~
(print ost you "Yup, {(trip txt)}")
?- -.u.paf
%path
:_ +>.$(pax +.u.paf) :_ ~
(print ost you "=% {(spud +.u.paf)}")
::
%start
:_ +>.$
=+ cil=(crip +.u.paf)
:~ (print ost you "running {+.u.paf}")
[ost %pass /child/[cil] %g %sire cil cil]
[ost %show /child/[cil]/lines %g [our.hid cil imp.hid] you /lines]
==
::
%end
:_ +>.$
=+ cil=(crip +.u.paf)
:~ (print ost you "killing {+.u.paf}")
[ost %pass /child/[cil] %g %cide cil]
==
==
::
++ pour
|= [ost=bone pax=path sih=sign]
^- [(list move) _+>]
:_ +>.$
[ost %give +.sih]~
?~ pax %no-path !!
?+ &1.pax ~& %strange-path !!
%print [ost %give +.sih]~
%child
?~ &2.pax ~& %no-child !!
?~ &3.pax
?> ?=(%gone +<.sih)
~
?+ &3.pax ~& %strange-child-path !!
%lines :_ ~ (print ost our.hid (trip q.sih))
==
==
::
++ print
|= [ost=bone you=ship lin=tape]
:* ost %pass /print %g %mess
[our.hid +.imp.hid] you
%term-line !>(`term-line`[(spat pax) leaf/lin ~])
==
--

21
main/app/terminal/core.hook
View File

@ -26,14 +26,16 @@
++ move ,[p=bone q=(mold note gift)] ::
++ note ::
$% $: %g ::
$% [%show p=hapt q=ship r=path] ::
$% [%cide p=span] ::
[%show p=hapt q=ship r=path] ::
[%sire p=term q=span] ::
[%mess p=hapt q=ship r=[%txt vase]] ::
== == == ::
++ sign ::
$% $: %g ::
$% [%nice ~] ::
$% [%gone p=hapt] ::
[%mean p=ares] ::
[%nice ~] ::
== == ==
--
!:
@ -64,6 +66,7 @@
==
;body
;button(onclick "jpok('new', 'shell')"): Boot
;button(onclick "jpok('del', 'shell')"): unBoot
;pre#cont;
;span#prem:">" ;input#prom;
;script:'''
@ -95,15 +98,23 @@
++ poke-json
|= [ost=bone you=ship jon=json]
^- [(list move) _+>]
=+ jof=(need ((of line/so new/so ~):jo jon))
=+ jof=(need ((of line/so new/so del/so ~):jo jon))
?- -.jof
%del
=. q.hiz :_(q.hiz leaf/"- {(trip +.jof)}")
:_ +>.$
:+ [ost %give %mean ~ %hey ~]
[ost %pass /hi %g %cide +.jof]
(turn (~(tap in (~(get ju pus.hid) /lines))) jell)
::
%new
~& poke-sire/jof
=. q.hiz :_(q.hiz leaf/"+ {(trip +.jof)}")
:_ +>.$
:+ [ost %give %nice ~]
[ost %pass /hi %g %sire [+ +]:jof]
[ost %pass /hi %g %sire [+ +]:jof]
(turn (~(tap in (~(get ju pus.hid) /lines))) jell)
::
%line
=. q.hiz :_(q.hiz leaf/"{(trip p.hiz)}> {(trip +.jof)}")
:_ +>.$
@ -124,6 +135,8 @@
++ pour
|= [ost=bone pax=path sih=sign]
^- [(list move) _+>]
?: ?=(%gone +<.sih)
`+>.$
:_ +>.$
[ost %give +.sih]~
::