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

hoon: prefix and postfix doccords for ++ and +$

Browse Source 
there's a stub for +* but its not working yet
This commit is contained in:
drbeefsupreme 2022-02-25 15:51:22 -05:00
parent 8f8e67f09f
commit cdaf23a184
No known key found for this signature in database
GPG Key ID: B70D5683DE7F9EFC
1 changed files with 50 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
pkg/arvo/sys/hoon.hoon
View File

@ -13226,45 +13226,65 @@
::
++ boog !: :: core arms
%+ knee [p=*term q=*hoon] |. ~+
%+ cook
|= [a=whit b=term c=whit d=hoon]
=+ e=(glom a c)
?~ boy.e
[b d]
[b [%note [%help ~ [p.u.boy.e q.u.boy.e]] d]]
;~ pose
;~ pfix (jest '++')
;~ plug
;~(pfix gap ;~(pose (cold %$ buc) sym))
;~(pfix gap loaf)
;~ plug
apex:docs
;~ pfix (jest '++')
;~ plug
;~(pfix gap ;~(pose (cold %$ buc) sym))
apse:docs
;~(pfix gap loaf)
==
==
==
::
%+ cook
|= [b=term d=spec]
[b [%ktcl [%name b d]]]
;~ pfix (jest '+$')
;~ plug
;~(pfix gap sym)
;~(pfix gap loan)
|= [a=whit b=term c=whit d=spec]
[a b c [%ktcl [%name b d]]]
;~ plug
apex:docs
;~ pfix (jest '+$')
;~ plug
;~(pfix gap sym)
apse:docs
;~(pfix gap loan)
==
==
==
::
%+ cook
|= [b=term c=(list term) e=spec]
^- [term hoon]
:- b
:+ %brtr
:- %bccl
=- ?>(?=(^ -) -)
:: for each .term in .c, produce $=(term $~(* $-(* *)))
:: ie {term}=mold
::
%+ turn c
|= =term
^- spec
=/ tar [%base %noun]
[%bcts term [%bcsg tar [%bchp tar tar]]]
[%ktcl [%made [b c] e]]
;~ pfix (jest '+*')
;~ plug
;~(pfix gap sym)
;~(pfix gap (ifix [sel ser] (most ace sym)))
;~(pfix gap loan)
|= [a=whit b=term d=hoon]
[a b *whit d]
;~ plug
apex:docs :: this doesn't work, not sure why yet
%+ cook
|= [b=term c=(list term) e=spec]
^- [term hoon]
:- b
:+ %brtr
:- %bccl
=- ?>(?=(^ -) -)
:: for each .term in .c, produce $=(term $~(* $-(* *)))
:: ie {term}=mold
::
%+ turn c
|= =term
^- spec
=/ tar [%base %noun]
[%bcts term [%bcsg tar [%bchp tar tar]]]
[%ktcl [%made [b c] e]]
;~ pfix (jest '+*')
;~ plug
;~(pfix gap sym)
;~(pfix gap (ifix [sel ser] (most ace sym)))
;~(pfix gap loan)
==
==
==
==