mirror of
https://github.com/urbit/shrub.git
synced 2024-12-01 06:35:32 +03:00
Cleared fab flags; preparing to ripple.
This commit is contained in:
C. Guy Yarvin
parent
3d462e184a
commit
55ea6e6aea
@ -4,7 +4,6 @@
|
||||
/? 309 :: arvo kelvin
|
||||
/- sole, lens :: console structures
|
||||
/+ sole :: console library
|
||||
^%
|
||||
=, sole
|
||||
=, space:userlib
|
||||
=, format
|
||||
|
||||
@ -16,8 +16,6 @@
|
||||
:: :: ::
|
||||
:::: :: ::
|
||||
:: :: ::
|
||||
!:
|
||||
^%
|
||||
|%
|
||||
++ hood-module
|
||||
:: each hood module follows this general shape
|
||||
|
||||
@ -16,8 +16,6 @@
|
||||
/- hall, sole :: structures
|
||||
/+ hall, sole :: libraries
|
||||
/= seed /~ !>(.)
|
||||
!:
|
||||
^%
|
||||
::
|
||||
::::
|
||||
::
|
||||
|
||||
37
gen/bug.hoon
37
gen/bug.hoon
@ -7,27 +7,38 @@
|
||||
::::
|
||||
::
|
||||
!:
|
||||
^%
|
||||
:- %say
|
||||
|= *
|
||||
=, clay
|
||||
=> |%
|
||||
++ kant ^%
|
||||
$~ [%leaf ~] ::
|
||||
$% {$leaf p/tape} :: printing formats
|
||||
$: $palm :: backstep list
|
||||
p/@ud
|
||||
q/(list kant) ::
|
||||
== ::
|
||||
$: $rose :: flat list
|
||||
p/{p/tape q/tape r/tape} :: mid open close
|
||||
q/(list kant) ::
|
||||
== ::
|
||||
== ::
|
||||
++ raip
|
||||
|* {a/$-(* *) b/$-(* *)}
|
||||
{p/a q/b}
|
||||
::
|
||||
::
|
||||
++ etre
|
||||
|* a/$-(* *)
|
||||
$@ ~
|
||||
{n/a l/(etre a) r/(etre a)}
|
||||
::
|
||||
++ mapp
|
||||
|* {a/$-(* *) b/$-(* *)}
|
||||
=+ foo=(raip a b)
|
||||
(etre foo)
|
||||
::
|
||||
++ ankh :: expanded node
|
||||
$~ [~ ~]
|
||||
$: fil/(unit {p/@uvI q/cage}) :: file
|
||||
dir/(mapp @ta ankh) :: folders
|
||||
== ::
|
||||
--
|
||||
=> |%
|
||||
++ de
|
||||
|= foo/@ud
|
||||
!!
|
||||
++ moo
|
||||
$:ankh
|
||||
--
|
||||
:- %noun
|
||||
=+ foo=moo
|
||||
"hello, world"
|
||||
|
||||
@ -4,7 +4,6 @@
|
||||
/? 310 :: version
|
||||
/- sole, hall
|
||||
/+ sole
|
||||
^%
|
||||
=, ^sole
|
||||
:: :: ::
|
||||
:::: :: ::
|
||||
|
||||
@ -3,7 +3,6 @@
|
||||
:: :: ::
|
||||
/? 310 :: version
|
||||
/- sole, hall
|
||||
^%
|
||||
[. sole]
|
||||
:: :: ::
|
||||
:::: :: ::
|
||||
|
||||
@ -5,7 +5,6 @@
|
||||
:: :: ::
|
||||
:::: :: ::
|
||||
:: :: ::
|
||||
^%
|
||||
=, clay
|
||||
=, space:userlib
|
||||
=, format
|
||||
|
||||
@ -3,7 +3,6 @@
|
||||
:: :: ::
|
||||
/? 310 :: version
|
||||
/+ hall, old-phon
|
||||
^%
|
||||
=, wired
|
||||
=, title
|
||||
:: :: ::
|
||||
|
||||
@ -4,7 +4,6 @@
|
||||
::
|
||||
/? 310
|
||||
/- plan-diff, plan-acct
|
||||
^%
|
||||
=, format
|
||||
=* as-octs as-octs:mimes:html
|
||||
=, space:userlib
|
||||
|
||||
@ -3,7 +3,6 @@
|
||||
::
|
||||
/? 310
|
||||
/- sole
|
||||
^%
|
||||
=, ^sole
|
||||
::
|
||||
::::
|
||||
|
||||
@ -1,7 +1,6 @@
|
||||
::
|
||||
:::: /hoon/sole/sur
|
||||
::
|
||||
^%
|
||||
=> |%
|
||||
++ sole-action :: sole to app
|
||||
$% :: {$abo ~} :: reset interaction
|
||||
|
||||
@ -1,7 +1,6 @@
|
||||
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||
:::::: :::::: Postface ::::::
|
||||
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||
^%
|
||||
=> +7
|
||||
~> %slog.[0 leaf+"%arvo-assembly"]
|
||||
=- ~> %slog.[0 leaf+"%arvo-assembled"]
|
||||
@ -125,7 +124,8 @@
|
||||
^= res %- mule |.
|
||||
=+ arg=[~2000.1.1 0 =>(~ |~(* ~))]
|
||||
=+ rig=(slym q.sew arg)
|
||||
=+ rev=(slym (slap bud (rain pax txt)) bud)
|
||||
=+ gen=(rain pax txt)
|
||||
=+ rev=(slym (slap bud gen) bud)
|
||||
=+ syg=(slym rev arg)
|
||||
~| %load-lost
|
||||
+>.^$(q.sew (slam (slap syg [%limb %load]) (slap rig [%limb %stay])))
|
||||
@ -333,7 +333,9 @@
|
||||
|= {lal/@tas vil/vile bud/vase pax/path txt/@ta} ::
|
||||
=- ?:(?=($| -.res) ((slog p.res) ~) (some p.res))
|
||||
^= res %- mule |.
|
||||
(vent lal vil bud *worm (slym (slap bud (rain pax txt)) bud))
|
||||
=+ gen=(rain pax txt)
|
||||
~& [%vane-compiled `@p`(mug gen)]
|
||||
(vent lal vil bud *worm (slym (slap bud gen) bud))
|
||||
::
|
||||
++ viol :: vane tools
|
||||
|= but/type
|
||||
|
||||
@ -6,7 +6,6 @@
|
||||
:: ::
|
||||
:::: 0: version stub ::
|
||||
:: ::
|
||||
^%
|
||||
~% %k.143 ~ ~ ::
|
||||
|%
|
||||
++ hoon-version +
|
||||
@ -5614,7 +5613,8 @@
|
||||
$% {$& p/(unit term) q/wing} :: simple wing
|
||||
{$| p/(unit term) q/hoon} :: named wing
|
||||
== ::
|
||||
++ crib $^ {p/crib q/crib} :: ordered pair
|
||||
++ crib :: data structure
|
||||
$^ {p/crib q/crib} :: ordered pair
|
||||
$% {$axil p/base} :: base type
|
||||
{$bark p/toga q/crib} :: name
|
||||
{$funk p/crib q/crib} :: function type
|
||||
@ -6670,6 +6670,59 @@
|
||||
[%zpzp ~]
|
||||
==
|
||||
::
|
||||
++ ripple
|
||||
:: build default sample
|
||||
::
|
||||
^- hoon
|
||||
:: typeless for now
|
||||
::
|
||||
:+ %ktls
|
||||
[%bust %noun]
|
||||
:: use home as subject
|
||||
::
|
||||
%- home
|
||||
:: if default is set, use it
|
||||
::
|
||||
?^ def u.def
|
||||
:: else map structure to expression
|
||||
::
|
||||
~+
|
||||
|- ^- hoon
|
||||
?- mod
|
||||
{^ *} [$(mod p.mod) $(mod q.mod)]
|
||||
{$axil *} (basal p.mod)
|
||||
{$bark *} [%ktts p.mod $(mod q.mod)]
|
||||
{$deet *} [%dbug p.mod $(mod q.mod)]
|
||||
{$deft *} p.mod
|
||||
{$fern *} :: use last entry
|
||||
::
|
||||
|- ^- hoon
|
||||
?~ t.p.mod ^$(mod i.p.mod)
|
||||
$(i.p.mod i.t.p.mod, t.p.mod t.t.p.mod)
|
||||
{$funk *} :: build trivial gate
|
||||
::
|
||||
:+ %tsgr
|
||||
[$(mod p.mod) $(mod q.mod)]
|
||||
[%ktbr [%brcl [~ ~] [%$ 2] [%$ 15]]]
|
||||
{$herb *} :: borrow sample
|
||||
::
|
||||
[%tsgl [%$ 6] p.mod]
|
||||
{$kelp *} :: use last entry
|
||||
::
|
||||
|- ^- hoon
|
||||
?~ t.p.mod ^$(mod i.p.mod)
|
||||
$(i.p.mod i.t.p.mod, t.p.mod t.t.p.mod)
|
||||
{$leaf *} [%rock p.mod q.mod]
|
||||
{$plow *} $(mod q.mod)
|
||||
{$reed *} $(mod p.mod)
|
||||
{$tupl *} |- ^- hoon
|
||||
?~ t.p.mod ^$(mod i.p.mod)
|
||||
:- ^$(mod i.p.mod)
|
||||
$(i.p.mod i.t.p.mod, t.p.mod t.t.p.mod)
|
||||
{$vine *} $(mod q.mod)
|
||||
{$weed *} p.mod
|
||||
==
|
||||
::
|
||||
++ trivial
|
||||
:: produce expression that generates default noun
|
||||
::
|
||||
|
||||
@ -1,6 +1,5 @@
|
||||
:: :: ames (4a), networking
|
||||
::
|
||||
^%
|
||||
|= pit=vase
|
||||
=> =~
|
||||
:: structures
|
||||
|
||||
@ -1,7 +1,6 @@
|
||||
:: :: %behn, just a timer
|
||||
!? 164
|
||||
::::
|
||||
^%
|
||||
=, behn
|
||||
|= pit/vase
|
||||
=> =~
|
||||
|
||||
@ -9,7 +9,6 @@
|
||||
:: worth noting that many of the clay-related structures are defined in zuse.
|
||||
::
|
||||
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||
^%
|
||||
|= pit/vase
|
||||
=, clay
|
||||
=> |%
|
||||
@ -21,6 +20,7 @@
|
||||
:: else we store it as (map path lobe).
|
||||
::
|
||||
++ ankh :: expanded node
|
||||
~> %slog.[%0 leaf+"thanks"]
|
||||
$~ [~ ~]
|
||||
$: fil/(unit {p/lobe q/cage}) :: file
|
||||
dir/(map @ta ankh) :: folders
|
||||
|
||||
@ -1,7 +1,6 @@
|
||||
::
|
||||
:: dill (4d), terminal handling
|
||||
::
|
||||
^%
|
||||
|= pit/vase
|
||||
=, dill
|
||||
=> |% :: interface tiles
|
||||
|
||||
@ -1,7 +1,6 @@
|
||||
:: :: %eyre, http servant
|
||||
!? 164
|
||||
::::
|
||||
^%
|
||||
|= pit/vase
|
||||
=, eyre
|
||||
=, wired
|
||||
|
||||
@ -2,7 +2,6 @@
|
||||
:: :: %ford, new execution control
|
||||
!? 143
|
||||
::::
|
||||
^%
|
||||
|= pit=vase
|
||||
=, ford
|
||||
=, format
|
||||
|
||||
@ -1,7 +1,6 @@
|
||||
:: :: %gall, agent execution
|
||||
!? 163
|
||||
::::
|
||||
^%
|
||||
|= pit/vase
|
||||
=, gall
|
||||
=> =~
|
||||
|
||||
@ -1,6 +1,5 @@
|
||||
!: :: /van/jael
|
||||
:: :: %reference/0
|
||||
^%
|
||||
!? 150
|
||||
::
|
||||
::
|
||||
|
||||
@ -29,8 +29,6 @@
|
||||
:: it's important to keep %zuse minimal. models and
|
||||
:: engines not used outside a vane should stay inside
|
||||
:: that vane.
|
||||
!:
|
||||
^%
|
||||
~% %zuse +> ~
|
||||
=>
|
||||
:: :: ::
|
||||
|
||||
Loading…
Reference in New Issue
Block a user