urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-14 01:08:54 +03:00
Code Issues Packages Projects Releases Wiki Activity

more cleanup

Browse Source
This commit is contained in:
Philip C Monk 2015-05-18 17:32:14 -04:00
parent 6ef4246c19
commit 759106d25a
22 changed files with 0 additions and 401 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
base/mar/cat-args/door.hook
View File

@ -1,11 +0,0 @@
::
:::: /hoon/core/cat-args/mar
::
/? 314
|_ pax=(list path)
::
++ grab :: convert from
|%
++ noun (list path) :: clam from %noun
--
--

12
base/mar/cp-args/door.hook
View File

@ -1,12 +0,0 @@
::
:::: /hoon/core/cp-args/mar
::
/? 314
/- cp-args
|_ arg=cp-args
::
++ grab :: convert from
|%
++ noun cp-args :: clam from %noun
--
--

12
base/mar/demo-args/door.hook
View File

@ -1,12 +0,0 @@
::
:::: /hoon/core/zing/mar
::
/? 314
/- demo-args
|_ arg=demo-args
::
++ grab :: convert from
|%
++ noun demo-args :: clam from %noun
--
--

11
base/mar/grep-args/door.hook
View File

@ -1,11 +0,0 @@
::
:::: /hoon/core/grep-args/mar
::
/? 314
|_ arg=[cord ~]
::
++ grab :: convert from
|%
++ noun ,[cord ~] :: clam from %noun
--
--

12
base/mar/hi-args/door.hook
View File

@ -1,12 +0,0 @@
::
:::: /hoon/core/zing/pro
::
/? 314
/- hi-args
|_ arg=hi-args
::
++ grab :: convert from
|%
++ noun hi-args :: clam from %noun
--
--

12
base/mar/into-args/door.hook
View File

@ -1,12 +0,0 @@
::
:::: /hoon/core/into-args/mar
::
/? 314
/- into-args
|_ arg=into-args
::
++ grab :: convert from
|%
++ noun into-args :: clam from %noun
--
--

11
base/mar/ls-args/door.hook
View File

@ -1,11 +0,0 @@
::
:::: /hoon/core/ls-args/mar
::
/? 314
|_ pax=[path ~]
::
++ grab :: convert from
|%
++ noun ,[path ~] :: clam from %noun
--
--

12
base/mar/mv-args/door.hook
View File

@ -1,12 +0,0 @@
::
:::: /hoon/core/zing/pro
::
/? 314
/- mv-args
|_ arg=mv-args
::
++ grab :: convert from
|%
++ noun mv-args :: clam from %noun
--
--

12
base/mar/reload-args/door.hook
View File

@ -1,12 +0,0 @@
::
:::: /hoon/core/zing/pro
::
/? 314
/- reload-args
|_ arg=reload-args
::
++ grab :: convert from
|%
++ noun reload-args :: clam from %noun
--
--

12
base/mar/rm-args/door.hook
View File

@ -1,12 +0,0 @@
::
:::: /hoon/core/zing/pro
::
/? 314
/- rm-args
|_ arg=rm-args
::
++ grab :: convert from
|%
++ noun rm-args :: convert from %noun
--
--

12
base/mar/solid-args/door.hook
View File

@ -1,12 +0,0 @@
::
:::: /hoon/core/solid-args/pro
::
/? 314
/- solid-args
|_ arg=solid-args
::
++ grab :: convert from
|%
++ noun solid-args :: clam from %noun
--
--

15
base/mar/sync-args/door.hook
View File

@ -1,15 +0,0 @@
::
:::: /hoon/core/zing/pro
::
/? 314
/- sync-args
|_ arg=sync-args
::
++ grab :: convert from
|%
++ noun :: convert from %noun
|= src=*
^+ +>+
+>+(arg (sync-args src))
--
--

21
base/mar/term-in/door.hook
View File

@ -1,21 +0,0 @@
::
:::: /hook/door/term-in/mar
::
/? 314
/- term-in
!:
|_ term-in
::
++ grab :: convert from
|%
++ json
|= jon=^json
%- need
%. jon => jo
%^ ot
pax/(su ;~(pose (cold ~ (full fas)) (plus ;~(pfix fas urs:ab))))
act/(of line/so res/so cmd/so ~)
~
++ noun term-in :: clam from %noun
--
--

27
base/mar/term-line/door.hook
View File

@ -1,27 +0,0 @@
::
:::: /hook/door/term-line/mar
::
/? 314
/- term-line
|_ tel=term-line
::
++ grab :: convert from
|%
++ noun term-line :: clam from %noun
--
::
++ grow
|%
++ json
%- jobe
:~ [%prompt %s p.p.tel]
[%history %a (turn q.tel |=(a=cord [%s a]))]
:+ %lines %a
%- zing ^- (list (list ^json))
%+ turn (flop r.tel) |= a=?(tank [%stem p=@da q=tank r=tank])
?. ?=(%stem -.a)
(turn (wash 0^80 a) jape)
[(jobe prompt/(jape ~(ram re q.a)) task/(jape ~(ram re r.a)) ~)]~
==
--
--

15
base/mar/ticket-args/door.hook
View File

@ -1,15 +0,0 @@
::
:::: /hoon/core/zing/pro
::
/? 314
/- ticket-args
|_ arg=ticket-args
::
++ grab :: convert from
|%
++ noun :: convert from %noun
|= src=*
^+ +>+
+>+(arg (ticket-args src))
--
--

15
base/mar/unsync-args/door.hook
View File

@ -1,15 +0,0 @@
::
:::: /hoon/core/zing/pro
::
/? 314
/- unsync-args
|_ arg=unsync-args
::
++ grab :: convert from
|%
++ noun :: convert from %noun
|= src=*
^+ +>+
+>+(arg (unsync-args src))
--
--

15
base/mar/verb-args/door.hook
View File

@ -1,15 +0,0 @@
::
:::: /hoon/core/zing/pro
::
/? 314
/- verb-args
|_ arg=verb-args
::
++ grab :: convert from
|%
++ noun :: convert from %noun
|= src=*
^+ +>+
+>+(arg (verb-args src))
--
--

12
base/mar/write-args/door.hook
View File

@ -1,12 +0,0 @@
::
:::: /hoon/core/zing/pro
::
/? 314
/- rm-args
|_ arg=rm-args
::
++ grab :: convert from
|%
++ noun rm-args :: convert from %noun
--
--

12
base/mar/zing/door.hook
View File

@ -1,12 +0,0 @@
::
:::: /hoon/core/zing/mar
::
/? 314
/- zing
|_ zig=zing
::
++ grab
|%
++ noun zing :: clam from %noun
--
--

34
base/mar/zong/door.hook
View File

@ -1,34 +0,0 @@
::
:::: /hoon/core/zong/mar
::
/? 314
/- zong
!:
|_ zog=zong
::
++ grab :: convert from
|%
++ noun zong :: clam from %noun
--
++ grow
|%
++ json
=. p.zog
(lsh 6 1 (rsh 6 1 p.zog)) :: round off subsecond
%- jobe
:~
[%time (jape <p.zog>)]
[%auth (jape <q.zog>)]
:- %mess
%+ joba -.r.zog
?- -.r.zog
%do
[%s p.r.zog]
%say
[%s p.r.zog]
%exp
[%a [%s p.r.zog] (turn (wash 0^80 q.r.zog) jape)]
==
==
--
--

72
base/mar/zongs/door.hook
View File

@ -1,72 +0,0 @@
::
:::: /hoon/core/zongs/mar
::
/? 314
/- zong
!:
|_ zos=(list zong)
::
++ grab :: convert from
|%
++ noun (list zong) :: clam from %noun
--
::
++ grow :: convert to
|%
++ hymn :: convert to %hymn
^- manx
;html
;head
;title: Zongs!
==
;body ;table
;* %+ turn (flop zos)
|= zog=zong
=. p.zog (lsh 6 1 (rsh 6 1 p.zog)) :: round off subsecond
;tr ;td: {<p.zog>}
;td: {<q.zog>}
;+ ?- -.r.zog
%do
;td: {(trip p.r.zog)}
%say
;td: & {(trip p.r.zog)}
%exp
;td
;code:"{(trip p.r.zog)}"
; \a0 {~(ram re q.r.zog)}
== ==
== ==
== ==
++ json
%- jobe
:~
:- %mensajes
:- %a
%+ turn
(flop zos)
|=
zog=zong
=. p.zog
(lsh 6 1 (rsh 6 1 p.zog)) :: round off subsecond
%- jobe
:~
[%time (jape <p.zog>)]
[%auth (jape <q.zog>)]
:- %mess
%+ joba -.r.zog
?- -.r.zog
%do
[%s p.r.zog]
%say
[%s p.r.zog]
%exp
[%a [%s p.r.zog] (turn (wash 0^80 q.r.zog) jape)]
==
==
==
++ html
(crip (poxo hymn))
++ mime
[/text/json (tact (pojo json))]
--
--

34
base/mar/zung/door.hook
View File

@ -1,34 +0,0 @@
::
:::: /hoon/core/zung/mar
::
/? 314
/- zung
!:
|_ zig=zung
::
++ grab :: convert from
|%
++ noun zung :: clam from %noun
++ json
|= jon=^json
^- zung
%- need %. jon
=> jo
%- of :~
:- %mess
%- at :~
(su ;~(pfix fas (more fas sym)))
%- of :~
[%do so]
[%say so]
==
==
:- %init
%- at :~
(su fed:ag)
(su ;~(pfix fas (more fas sym)))
==
==
--
--