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

Revert "Breach compatibility rc2", "Revert "Tile %smsm, replaced instance in ames with ++hard call""

Browse Source 
This reverts commit 66e94bd04b9333fd7cdafaacc1714d69b3cab059.
This reverts commit d3ac409e27bafe7fc2074be71eaf86a6d97f887c.
This commit is contained in:
Anton Dyudin 2015-01-26 15:38:34 -08:00
parent 619dfbb563
commit 15f7641339
5 changed files with 9 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
arvo/hoon.hoon
View File

@ -272,7 +272,7 @@
[%smdt p=twig q=tusk] ::
[%smdq p=(list beer)] :: assemble string
[%smsg p=twig q=tusk] :: gonads
[%smsm p=twig q=twig] :: make sure q is a p
[%smsm p=tile q=twig] :: make sure q is a p
:: :::::: compositions
[%tsbr p=tile q=twig] :: push bunt: =+(_p q)
[%tscl p=tram q=twig] :: p changes, then q
@ -6662,7 +6662,8 @@
::
[%smsm *] :: ;;
:+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a [%tsgr [%cnzy %v] p.gen]] :: =+ a==>(v {p.gen})
:+ %tsls :+ %ktts %a :: =+ ^= a
[%tsgr [%cnzy %v] [%bccm p.gen]] :: =>(v ,{p.gen})
:+ %tsls [%ktts %b [%tsgr [%cnzy %v] q.gen]] :: =+ b==>(v {q.gen})
:+ %tsls :: =+ c=(a b)
[%ktts %c [%cnhp [%cnzy %a] [%cnzy %b] ~]] ::
@ -8946,7 +8947,7 @@
=+ rev=(plex b)
?~ rev ~
%- some
:+ %smsm ~(clam al a)
:+ %smsm a
[%dtkt %dtzz %$ %cx u.rev]
;~(plug hill rood)
==
@ -9194,7 +9195,7 @@
:~ [':' (rune col %smcl expi)]
['.' (rune dot %smdt expi)]
['~' (rune sig %smsg expi)]
[';' (rune sem %smsm expb)]
[';' (rune sem %smsm expo)]
==
==
:- '='

2
main/app/cat/core.hook
View File

@ -19,7 +19,7 @@
=+ ark=;;(arch .^(%cy pax))
?^ q.ark
:- leaf/(spud pax)
%+ turn (lore ;;(,@t .^(%cx pax)))
%+ turn (lore ;;(@t .^(%cx pax)))
|=(a=cord leaf/(trip a))
?- r.ark :: handle ambiguity
~

2
main/app/poke/core.hook
View File

@ -12,6 +12,6 @@
::
++ pour
|= [ost=bone * sih=*]
~& poke-resp/(,[term term] [&1 &2]:sih)
~& poke-resp/;;([term term] [&1 &2]:sih)
:_(+> [ost %pass / %g %cide %$]~)
--

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

@ -10,7 +10,8 @@
::
|% ::
++ axle ::
$: tiv=? :: typing?
$: %0 :: version
tiv=? :: typing?
pid=@u :: next process id
pax=_`path`/=try= :: working directory
act=(unit span) :: active child

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

@ -58,36 +58,6 @@
[%vega p=path] ::
== == ==
--
::
:::: from future import wick, pack, pick XX remove on breach or kelvin bump
::
|%
++ wick :: span format
|= a=@
^- (unit ,@ta)
=+ b=(rip 3 a)
=- ?^(b ~ (some (rap 3 (flop c))))
=| c=tape
|- ^- [b=tape c=tape]
?~ b [~ c]
?. =('~' i.b)
$(b t.b, c [i.b c])
?~ t.b [b ~]
?- i.t.b
%'~' $(b t.t.b, c ['~' c])
%'-' $(b t.t.b, c ['_' c])
@ [b ~]
==
::
++ pack :: light path encoding
|= [a=term b=path] ^- span
%+ rap 3 :- (wack a)
(turn b |=(c=span (cat 3 '_' (wack c))))
::
++ pick :: light path decoding
|= a=span ^- (unit ,[p=term q=path])
(rush a (most cab (sear wick urt:ab)))
--
!:
:::: helpers
::