mirror of
https://github.com/urbit/shrub.git
synced 2024-11-28 05:22:27 +03:00
various: touch up improperly rewritten comments
Also patches /mar/snip to be more correct, but a &snip [~ ~] in dojo still does not work.
This commit is contained in:
fang
parent
c8ddfe435b
commit
732addadd3
@ -54,7 +54,7 @@
|
||||
r=@t
|
||||
==
|
||||
[%poke p=goal] :: poke app
|
||||
[%show p=?(%0 %1 %2 %3 %4 %5)] :: val=type=hoon=xray
|
||||
[%show p=?(%0 %1 %2 %3 %4 %5)] :: val/type/hoon/xray
|
||||
[%verb p=term] :: store variable
|
||||
== ::
|
||||
+$ dojo-source :: construction node
|
||||
|
||||
@ -37,8 +37,8 @@
|
||||
:: with {a}. use this convention only for one-liners, etc.
|
||||
::
|
||||
:: the file below is a medium-sized generator, built around
|
||||
:: a typical two-core structure. the cores are labeled [%arch}
|
||||
:: (structures) and [%work} (productions). this is canonical.
|
||||
:: a typical two-core structure. the cores are labeled {%arch}
|
||||
:: (structures) and {%work} (productions). this is canonical.
|
||||
::
|
||||
:: this code is written to display the variety of formatting
|
||||
:: options the parser allows. a specific convention should pick
|
||||
|
||||
@ -27,7 +27,7 @@
|
||||
|* [sef=rule fun=$-(* *)] ::
|
||||
|= txt=sole-input ::
|
||||
=+ vex=(sef [0 0] txt) ::
|
||||
?: |(!=((lent txt) q.p.vex) ?=(~ q.vex)) ::
|
||||
?: |(!=((lent txt) q.p.vex) ?=(~ q.vex)) ::
|
||||
q.p.vex ::
|
||||
(fun p.u.q.vex) ::
|
||||
--
|
||||
|
||||
@ -309,7 +309,7 @@
|
||||
?> ?=([%o [@ *] ~ ~] jon)
|
||||
|-
|
||||
?- wer
|
||||
:: {{key=@t wit=*} t=*]
|
||||
:: [[key=@t wit=*] t=*]
|
||||
[[key=@t *] t=*]
|
||||
=> .(wer [[* wit] *]=wer)
|
||||
?: =(key.wer (enkebab p.n.p.jon))
|
||||
|
||||
@ -24,7 +24,7 @@
|
||||
:: %. jon => jo %- ot
|
||||
:: :~ mod+(cu silt (ar (su (perk ~[%ctrl %shift %alt %meta]))))
|
||||
:: :- %key
|
||||
:: %+ cu |*(a=$%([%str @t} [%act @}) ?+(-.a a %str +.a))
|
||||
:: %+ cu |*(a=$%([%str @t] [%act @]) ?+(-.a a %str +.a))
|
||||
:: =- (of [str+so act+(su (perk -)) ~])
|
||||
:: :~ %ctrl %shift %alt %meta %entr %esc %caps %uncap
|
||||
:: %pgup %pgdn %home %end %baxp %del %ins
|
||||
|
||||
@ -57,6 +57,6 @@
|
||||
--
|
||||
--
|
||||
++ grab |% :: convert from
|
||||
++ noun [marl marl] :: clam from %noun
|
||||
++ noun ,[marl marl] :: clam from %noun
|
||||
++ elem |=(a=manx (hedtal +.a))
|
||||
-- --
|
||||
|
||||
@ -8466,7 +8466,7 @@
|
||||
[%cnhp *] [%cncl p.gen q.gen ~]
|
||||
:: this probably should work, but doesn't
|
||||
::
|
||||
:: [%cncl *} [%cntr [%$ ~] p.gen [[[[%& 6] ~] [%cltr q.gen]] ~]]
|
||||
:: [%cncl *] [%cntr [%$ ~] p.gen [[[[%& 6] ~] [%cltr q.gen]] ~]]
|
||||
[%cncl *] [%cnsg [%$ ~] p.gen q.gen]
|
||||
[%cnsg *]
|
||||
:: this complex matching system is a leftover from the old
|
||||
@ -9474,7 +9474,7 @@
|
||||
=> |%
|
||||
++ pony :: raw match
|
||||
$@ ~ :: void
|
||||
%+ each :: natural=abnormal
|
||||
%+ each :: natural/abnormal
|
||||
palo :: arm or leg
|
||||
%+ each :: abnormal
|
||||
@ud :: unmatched
|
||||
|
||||
@ -1722,7 +1722,7 @@
|
||||
==
|
||||
==
|
||||
outer-loop(dels t.dels)
|
||||
:: Add=change
|
||||
:: Add/change
|
||||
::
|
||||
=/ cans=(list [=path =lobe =cage]) ~(tap by changes)
|
||||
|- ^+ [ankh ford-cache.ford-args]
|
||||
|
||||
@ -175,8 +175,8 @@
|
||||
[%spawned who=@p] :: Spawned
|
||||
[%keys =life =pass] :: ChangedKeys
|
||||
[%continuity new=@ud] :: BrokeContinuity
|
||||
[%sponsor new=[has=? who=@p]] :: EscapeAcc=LostSpons
|
||||
[%escape new=(unit @p)] :: EscapeReq=Can
|
||||
[%sponsor new=[has=? who=@p]] :: EscapeAcc/LostSpons
|
||||
[%escape new=(unit @p)] :: EscapeReq/Can
|
||||
[%management-proxy new=address] :: ChangedManagementPro
|
||||
[%voting-proxy new=address] :: ChangedVotingProxy
|
||||
[%spawn-proxy new=address] :: ChangedSpawnProxy
|
||||
@ -5629,7 +5629,7 @@
|
||||
|= jol=(list json)
|
||||
?~ jol !!
|
||||
?- wil :: mint-vain on empty
|
||||
:: {wit=* t=*]
|
||||
:: [wit=* t=*]
|
||||
[* t=*]
|
||||
=> .(wil [wit *]=wil)
|
||||
?~ t.wil ?^(t.jol !! (wit.wil i.jol))
|
||||
@ -5683,7 +5683,7 @@
|
||||
?> ?=([%o [@ *] ~ ~] jon)
|
||||
|-
|
||||
?- wer :: mint-vain on empty
|
||||
:: {{key=@t wit=*} t=*]
|
||||
:: [[key=@t wit=*] t=*]
|
||||
[[key=@t *] t=*]
|
||||
=> .(wer [[* wit] *]=wer)
|
||||
?: =(key.wer p.n.p.jon)
|
||||
@ -5702,7 +5702,7 @@
|
||||
|* wer=(pole [cord fist])
|
||||
|= jom=(map @t json)
|
||||
?- wer :: mint-vain on empty
|
||||
:: {{key=@t wit=*} t=*]
|
||||
:: [[key=@t wit=*] t=*]
|
||||
[[key=@t *] t=*]
|
||||
=> .(wer [[* wit] *]=wer)
|
||||
=/ ten ~|(key+key.wer (wit.wer (~(got by jom) key.wer)))
|
||||
@ -5719,7 +5719,7 @@
|
||||
|* wer=(pole [cord fist])
|
||||
|= jom=(map @t json)
|
||||
?- wer :: mint-vain on empty
|
||||
:: {{key=@t wit=*} t=*]
|
||||
:: [[key=@t wit=*] t=*]
|
||||
[[key=@t *] t=*]
|
||||
=> .(wer [[* wit] *]=wer)
|
||||
=/ ten ~|(key+key.wer (wit.wer (~(get by jom) key.wer)))
|
||||
@ -6927,8 +6927,8 @@
|
||||
==
|
||||
:: :: :: ++read:wired
|
||||
:: ++ read :: parse odored path
|
||||
:: =< |*({a=path b={@tas (pole @tas)}} ((+> b) a))
|
||||
:: |* b={@tas (pole @tas)}
|
||||
:: =< |*([a=path b=[@tas (pole @tas)]] ((+> b) a))
|
||||
:: |* b=[@tas (pole @tas)]
|
||||
:: |= a=path
|
||||
:: ?~ a ~
|
||||
:: =+ hed=(slaw -.b i.a)
|
||||
@ -6936,7 +6936,7 @@
|
||||
:: ?~ +.b
|
||||
:: ^- (unit fog)
|
||||
:: ?^(+.a ~ hed)
|
||||
:: ^- (unit {fog _(need *(..^$ +.b))})
|
||||
:: ^- (unit [fog _(need *(..^$ +.b))])
|
||||
:: (both hed ((..^$ +.b) +.a))
|
||||
-- ::wired
|
||||
:: ::
|
||||
|
||||
Loading…
Reference in New Issue
Block a user