mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-01 20:04:09 +03:00
Fully booting with new chapter structures.
This commit is contained in:
C. Guy Yarvin
parent
c0d3f0fa33
commit
c8e262df75
@ -29,7 +29,7 @@
|
||||
::
|
||||
++ peer-sole
|
||||
|= path
|
||||
^- (quip {bone card} +>)
|
||||
^- (quip {bone card} _+>)
|
||||
~| [%not-in-whitelist src.bow]
|
||||
?> |((~(has in admins) src.bow) =(our.bow src.bow))
|
||||
:_ +>.$(sos (~(put by sos) ost.bow *sole-share))
|
||||
@ -69,7 +69,7 @@
|
||||
::
|
||||
++ poke-ask-mail
|
||||
|= ask/@t
|
||||
^- (quip {bone card} +>)
|
||||
^- (quip {bone card} _+>)
|
||||
~| have-mail+ask
|
||||
?< (~(has by adr) ask)
|
||||
=. adr (~(put by adr) ask now.bow %new) :: XX electroplating
|
||||
|
||||
@ -543,7 +543,7 @@
|
||||
|- ^- $? $% {$atom @tas (unit @)}
|
||||
{$cell _$ _$}
|
||||
{$cube * _$}
|
||||
{$face {wain $@(term tune)} _$}
|
||||
{$face {what $@(term tune)} _$}
|
||||
{$fork (set _$)}
|
||||
{$hold _$ twig}
|
||||
==
|
||||
@ -1010,7 +1010,7 @@
|
||||
:+ %as `mark`(cat 3 api.sink.com '-poke')
|
||||
:- 1
|
||||
:+ %do
|
||||
:^ %gill ~ [%base %noun]
|
||||
:^ %gill [~ ~] [%base %noun]
|
||||
:^ %cont [%rock %tas %post]
|
||||
[%rock %$ endpoint.sink.com]
|
||||
[%make ~[[%.y 6]] ~]
|
||||
@ -1120,7 +1120,7 @@
|
||||
=- [wrap=- +]
|
||||
|* he-arm/_he-span
|
||||
|= _+<.he-arm
|
||||
^- (quip move ..he)
|
||||
^- (quip move _..he)
|
||||
he-abet:(he-arm +<)
|
||||
::
|
||||
++ peer-sole
|
||||
@ -1154,7 +1154,7 @@
|
||||
++ unto (wrap he-unto):arm
|
||||
++ pull
|
||||
|= {pax/path}
|
||||
^- (quip move +>)
|
||||
^- (quip move _+>)
|
||||
=^ moz +> ~(he-abut he ~ (~(got by hoc) ost.hid))
|
||||
[moz +>.$(hoc (~(del by hoc) ost.hid))]
|
||||
--
|
||||
|
||||
@ -81,7 +81,7 @@
|
||||
==
|
||||
::
|
||||
++ poke-email
|
||||
|= {adr/@ta tyl/tape mez/wall} ^- (quip move +>)
|
||||
|= {adr/@ta tyl/tape mez/wall} ^- (quip move _+>)
|
||||
?> =(our.hid src.hid)
|
||||
%- poke-gmail-req :*
|
||||
%post
|
||||
|
||||
@ -65,7 +65,7 @@
|
||||
:::: :: ::
|
||||
:: :: ::
|
||||
++ prep
|
||||
|= old/(unit hood-old) ^- (quip _!! +>) ::
|
||||
|= old/(unit hood-old) ^- (quip _!! _+>) ::
|
||||
:- ~
|
||||
?~ old +>
|
||||
+>(lac (~(run by lac.u.old) hood-port))
|
||||
|
||||
@ -2268,7 +2268,7 @@
|
||||
::
|
||||
++ diff-talk-report ::
|
||||
|= {way/wire rad/report}
|
||||
^- (quip move +>)
|
||||
^- (quip move _+>)
|
||||
=^ mos +>.$
|
||||
%+ etch-friend way |= {man/knot cuz/station}
|
||||
ra-abet:(ra-diff-talk-report:ra man cuz rad)
|
||||
@ -2305,7 +2305,7 @@
|
||||
::
|
||||
++ reap-friend ::
|
||||
|= {way/wire saw/(unit tang)}
|
||||
^- (quip move +>)
|
||||
^- (quip move _+>)
|
||||
?~ saw [~ +>]
|
||||
%+ etch-friend [%friend way] |= {man/knot cuz/station}
|
||||
=. u.saw [>%reap-friend-fail man cuz< u.saw]
|
||||
@ -2325,7 +2325,7 @@
|
||||
[moz +>.$(shells (~(del by shells) ost.hid))]
|
||||
::
|
||||
++ log-all-to-file
|
||||
^- (quip move .)
|
||||
^- (quip move _.)
|
||||
?: & [~ .] :: XXX!!!!
|
||||
:_ %_ .
|
||||
log %- ~(urn by log)
|
||||
@ -2349,16 +2349,16 @@
|
||||
[ost.hid %info /jamfile our.hid (foal paf [%talk-telegrams !>(-)])]
|
||||
::
|
||||
++ poke-talk-comment
|
||||
|= {pax/path sup/path txt/@t} ^- (quip move +>)
|
||||
|= {pax/path sup/path txt/@t} ^- (quip move _+>)
|
||||
ra-abet:(ra-comment:ra pax sup txt)
|
||||
::
|
||||
++ poke-talk-fora-post
|
||||
|= {pax/path sup/path hed/@t txt/@t} ^- (quip move +>)
|
||||
|= {pax/path sup/path hed/@t txt/@t} ^- (quip move _+>)
|
||||
ra-abet:(ra-fora-post:ra pax sup hed txt)
|
||||
::
|
||||
++ poke-talk-save
|
||||
|= man/knot
|
||||
^- (quip move +>)
|
||||
^- (quip move _+>)
|
||||
=+ paf=/(scot %p our.hid)/home/(scot %da now.hid)/talk/[man]/talk-telegrams
|
||||
=+ grams:(~(got by stories) man)
|
||||
[[ost.hid %info /jamfile our.hid (foal paf [%talk-telegrams !>(-)])]~ +>.$]
|
||||
@ -2376,19 +2376,19 @@
|
||||
++ poke-talk-log
|
||||
|= man/knot
|
||||
~& %poke-log
|
||||
^- (quip move +>)
|
||||
^- (quip move _+>)
|
||||
:- [(log-to-file man) ~]
|
||||
+>.$(log (~(put by log) man count:(~(got by stories) man)))
|
||||
::
|
||||
++ poke-talk-unlog
|
||||
|= man/knot
|
||||
^- (quip move +>)
|
||||
^- (quip move _+>)
|
||||
:- ~
|
||||
+>.$(log (~(del by log) man))
|
||||
::
|
||||
++ prep
|
||||
|= old/(unit house-any)
|
||||
^- (quip move ..prep)
|
||||
^- (quip move _..prep)
|
||||
?~ old
|
||||
ra-abet:ra-init:ra
|
||||
|-
|
||||
|
||||
29
gen/bug.hoon
29
gen/bug.hoon
@ -1,29 +1,8 @@
|
||||
::
|
||||
:::: /hoon/hello/gen
|
||||
::
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
::
|
||||
:- %say
|
||||
|= {^ {{txt/@tas $~} $~}}
|
||||
~& %foobar
|
||||
=+ bar=32
|
||||
=> |%
|
||||
++ funq
|
||||
^?
|
||||
|%
|
||||
++ add |=({a/@ b/@} (sub a b))
|
||||
++ mook txt
|
||||
--
|
||||
--
|
||||
=, funq
|
||||
~& %one
|
||||
=+ foo=mook
|
||||
~& [%foo (^add 2 2)]
|
||||
=< $
|
||||
|%
|
||||
++ $
|
||||
:- %noun
|
||||
(crip (weld "hello, " (trip mook)))
|
||||
--
|
||||
|= $: {now/@da * bec/beak}
|
||||
*
|
||||
==
|
||||
!!
|
||||
|
||||
@ -1,18 +1,42 @@
|
||||
:: "Hello world" sample generator
|
||||
::
|
||||
:::: /hoon/hello/gen
|
||||
::
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
::
|
||||
:- %say
|
||||
|= *
|
||||
=< [%noun %walk]
|
||||
|= $: {now/@da * bec/beak}
|
||||
*
|
||||
==
|
||||
=< ~& %walk-testing
|
||||
:- %noun
|
||||
=+ sys=`path`/(scot %p p.bec)/[q.bec]/(scot %da now)/sys
|
||||
=+ compiler-source=.^(@t %cx (welp sys /hoon/hoon))
|
||||
~& %test-parsing
|
||||
=+ compiler-twig=(ream compiler-source)
|
||||
~& %test-walking
|
||||
~(test ap compiler-twig)
|
||||
=< |%
|
||||
++ come :: parsed docline
|
||||
$% {$blank $~}
|
||||
{$var p/term q/
|
||||
++ post :: print state
|
||||
|
||||
--
|
||||
|%
|
||||
::
|
||||
++ ap :: twig engine
|
||||
|_ gen/twig
|
||||
::
|
||||
++ test :: test ++walk
|
||||
^- ?
|
||||
=- ~| [gen+gen neg+neg ~]
|
||||
?> =(gen neg)
|
||||
&
|
||||
^= neg
|
||||
^- twig
|
||||
=< -
|
||||
%+ (walk $~)
|
||||
~
|
||||
|= {gen/twig vit/$~ aid/$-({? twig $~} {twig $~})}
|
||||
~
|
||||
++ dock :: apply document
|
||||
|= doc/cord
|
||||
|^ ^- (unit twig)
|
||||
@ -91,7 +115,6 @@
|
||||
|%
|
||||
++ apex
|
||||
|- ^- {twig life}
|
||||
=- [~=(gen -<) ~=(vit +>)]
|
||||
=* aid |= {use/? gen/twig vit/life}
|
||||
^$(use use, gen gen, vit vit)
|
||||
=/ gun ?:(use (mac gen vit aid) ~)
|
||||
@ -123,16 +146,18 @@
|
||||
$bush (lead -.gen %.(+.gen dubs))
|
||||
$pick (lead -.gen %.(+.gen moar))
|
||||
$coat (lead -.gen %.(+.gen nexp))
|
||||
$door (lead -.gen %.(+.gen (twin expr arms)))
|
||||
$gasp (lead -.gen %.(+.gen dubs))
|
||||
$core (lead -.gen %.(+.gen arms))
|
||||
$trap (lead -.gen %.(+.gen expr))
|
||||
$cork (lead -.gen %.(+.gen (twin expr arms)))
|
||||
$loop (lead -.gen %.(+.gen expr))
|
||||
$port (lead -.gen %.(+.gen dubs))
|
||||
$gill (lead -.gen %.(+.gen dubs))
|
||||
$gate (lead -.gen %.(+.gen dubs))
|
||||
$tray (lead -.gen %.(+.gen expr))
|
||||
$grow (lead -.gen %.(+.gen expr))
|
||||
$door (lead -.gen %.(+.gen (trio noop expr arms)))
|
||||
$door (lead -.gen %.(+.gen (trio noop expr arms)))
|
||||
$gasp (lead -.gen %.(+.gen (twin noop dubs)))
|
||||
$corp (lead -.gen %.(+.gen (twin noop arms)))
|
||||
$trap (lead -.gen %.(+.gen (twin noop expr)))
|
||||
$cork (lead -.gen %.(+.gen (trio noop expr arms)))
|
||||
$loop (lead -.gen %.(+.gen (twin noop expr)))
|
||||
$port (lead -.gen %.(+.gen (twin noop dubs)))
|
||||
$gill (lead -.gen %.(+.gen (twin noop dubs)))
|
||||
$gate (lead -.gen %.(+.gen (twin noop dubs)))
|
||||
$tray (lead -.gen %.(+.gen (twin noop expr)))
|
||||
$scon (lead -.gen %.(+.gen dubs))
|
||||
$conq (lead -.gen %.(+.gen (quad expr expr expr expr)))
|
||||
$cons (lead -.gen %.(+.gen dubs))
|
||||
@ -181,14 +206,14 @@
|
||||
$fry (lead -.gen %.(+.gen dubs))
|
||||
$new (lead -.gen %.(+.gen dubs))
|
||||
$fix (lead -.gen %.(+.gen (twin moan expr)))
|
||||
$var (lead -.gen %.(+.gen (trio toad expr expr)))
|
||||
$rev (lead -.gen %.(+.gen (trio toad expr expr)))
|
||||
$var (lead -.gen %.(+.gen (trio tora expr expr)))
|
||||
$rev (lead -.gen %.(+.gen (trio tora expr expr)))
|
||||
$set (lead -.gen %.(+.gen trip))
|
||||
$huh (lead -.gen %.(+.gen (quad noop expr expr expr)))
|
||||
$rap (lead -.gen %.(+.gen dubs))
|
||||
$nip (lead -.gen %.(+.gen dubs))
|
||||
$per (lead -.gen %.(+.gen dubs))
|
||||
$sip (lead -.gen %.(+.gen (quad toad noop expr expr)))
|
||||
$sip (lead -.gen %.(+.gen (quad tora noop expr expr)))
|
||||
$pin (lead -.gen %.(+.gen dubs))
|
||||
$tow (lead -.gen %.(+.gen moar))
|
||||
$aka (lead -.gen %.(+.gen trip))
|
||||
@ -305,10 +330,13 @@
|
||||
?@ bud [bud vit]
|
||||
(lead p.bud (expr q.bud))
|
||||
::
|
||||
++ tora
|
||||
(twin noop twee)
|
||||
::
|
||||
++ tung
|
||||
|= bud/{p/wain q/$@(term tune)}
|
||||
?@ q.bud [bud vit]
|
||||
(lead p.bud %.(q.bud (twin (raid twee) (moto expr))))
|
||||
(lead p.bud %.(q.bud (twin (raid (twin noop twee)) (moto expr))))
|
||||
::
|
||||
++ twee
|
||||
|= bud/(unit twig)
|
||||
|
||||
@ -220,7 +220,7 @@
|
||||
:::: :: ::
|
||||
:: :: ::
|
||||
++ se-abet :: resolve
|
||||
^- (quip move *drum-part)
|
||||
^- (quip move drum-part)
|
||||
=* pith +>+>+<+
|
||||
?. se-ably
|
||||
=. . se-adit
|
||||
|
||||
@ -161,7 +161,7 @@
|
||||
::
|
||||
++ murn-by
|
||||
|* {a/(map) b/$-(* (unit))}
|
||||
^- ?~(a !! (map _p.n.a _(need (b q.n.a))))
|
||||
^+ ?~(a !! *(map _p.n.a _(need (b q.n.a))))
|
||||
%- malt
|
||||
%+ murn (~(tap by a))
|
||||
?~ a $~
|
||||
@ -180,11 +180,11 @@
|
||||
|= {bowl:gall part} :: main womb work
|
||||
|_ moz/(list move)
|
||||
++ abet :: resolve
|
||||
^- (quip move *part)
|
||||
^- (quip move part)
|
||||
[(flop moz) +>+<+]
|
||||
::
|
||||
++ teba :: install resolved
|
||||
|= a/(quip move *part) ^+ +>
|
||||
|= a/(quip move part) ^+ +>
|
||||
+>(moz (flop -.a), +>+<+ +.a)
|
||||
::
|
||||
++ emit |=(card %_(+> moz [[ost +<] moz])) :: return card
|
||||
|
||||
@ -74,7 +74,8 @@
|
||||
(a b)
|
||||
::
|
||||
++ doc-data-dry :: staticly typed for endpoint lookup
|
||||
^- (list {typ/_{term (list param)} met/?($get $post) pax/path}):param
|
||||
=, param
|
||||
^- (list {typ/_{term (list param)} met/?($get $post) pax/path})
|
||||
doc-data
|
||||
::
|
||||
++ doc-data :: scraped from api docs, used to create types and requests
|
||||
|
||||
560
sys/hoon.hoon
560
sys/hoon.hoon
File diff suppressed because it is too large
Load Diff
@ -1450,13 +1450,13 @@
|
||||
:+ %per
|
||||
?: =(~ rop)
|
||||
[%$ 1]
|
||||
:- %core
|
||||
=- [[0 ~ -] ~ ~]
|
||||
:+ %corp [~ ~]
|
||||
=- [[0 [~ ~] -] ~ ~]
|
||||
(~(run by rop) |=({^ a/twig} [~ %ash a]))
|
||||
?: =(~ bil)
|
||||
[%$ 1]
|
||||
:- %core
|
||||
=- [[0 ~ -] ~ ~]
|
||||
:+ %corp [~ ~]
|
||||
=- [[0 [~ ~] -] ~ ~]
|
||||
(~(run by bil) |=({^ a/twig} [~ %ash a]))
|
||||
::
|
||||
++ abut :: generate
|
||||
@ -1749,12 +1749,12 @@
|
||||
(flux |=(sel/_..wilt sel(boy [[%tow boy.sel] boy])))
|
||||
=+ [all=(lark (slat %tas) arc) sel=..wilt]
|
||||
%+ cope
|
||||
|- ^- (bolt (pair (map term (pair wain foot)) _..wilt))
|
||||
|- ^- (bolt (pair (map term (pair what foot)) _..wilt))
|
||||
?~ all (fine cof ~ ..wilt)
|
||||
%+ cope $(all l.all)
|
||||
|= {cof/cafe lef/(map term (pair wain foot)) sel/_..wilt}
|
||||
|= {cof/cafe lef/(map term (pair what foot)) sel/_..wilt}
|
||||
%+ cope ^$(all r.all, cof cof, sel sel)
|
||||
|= {cof/cafe rig/(map term (pair wain foot)) sel/_..wilt}
|
||||
|= {cof/cafe rig/(map term (pair what foot)) sel/_..wilt}
|
||||
%+ cope
|
||||
%= ^^^^$
|
||||
cof cof
|
||||
@ -1764,12 +1764,12 @@
|
||||
|= {cof/cafe sel/_..wilt}
|
||||
%+ fine cof
|
||||
:_ sel
|
||||
^- (map term (pair wain foot))
|
||||
^- (map term (pair what foot))
|
||||
[[p.n.all [~ %ash [%tow boy.sel]]] lef rig]
|
||||
|= {cof/cafe mav/(map term (pair wain foot)) sel/_..wilt}
|
||||
|= {cof/cafe mav/(map term (pair what foot)) sel/_..wilt}
|
||||
?~ mav
|
||||
(flaw cof [%leaf "source missing: {<(en-beam p.hop)>}"]~)
|
||||
(fine cof sel(boy [[%core [[0 ~ mav] ~ ~]] boy]))
|
||||
(fine cof sel(boy [[%corp [~ ~] [[0 [~ ~] mav] ~ ~]] boy]))
|
||||
==
|
||||
--
|
||||
::
|
||||
|
||||
@ -644,6 +644,7 @@
|
||||
++ purf (pair purl (unit @t)) :: url with fragment
|
||||
++ purl {p/hart q/pork r/quay} :: parsed url
|
||||
++ quay (list {p/@t q/@t}) :: parsed url query
|
||||
++ quer |-($@($~ {p/@t q/@t t/$})) :: query tree
|
||||
++ quri :: request-uri
|
||||
$% {$& p/purl} :: absolute
|
||||
{$| p/pork q/quay} :: relative
|
||||
@ -4086,7 +4087,7 @@
|
||||
:: MOVEME
|
||||
:: :: ++fuel:html
|
||||
++ fuel :: parse urbit fcgi
|
||||
|= {bem/beam ced/noun:cred quy/|-($@($~ {p/@t q/@t t/$}))}
|
||||
|= {bem/beam ced/noun:cred quy/quer}
|
||||
^- epic
|
||||
=+ qix=|-(`quay`?~(quy quy [[p q]:quy $(quy t.quy)]))
|
||||
[(malt qix) ((hard cred) ced) bem /]
|
||||
@ -4118,8 +4119,9 @@
|
||||
:: (raid /ack/~sarnel+.y p=%tas q=%p r=%f ~)
|
||||
::
|
||||
=- |* {a/path b/{@tas (pole @tas)}}
|
||||
?~ +.b `(odo -.b)`(slav -.b -.a)
|
||||
[`(odo -.b)`(slav -.b -.a) (..$ +.a +.b)]
|
||||
=* fog (odo -.b)
|
||||
?~ +.b `fog`(slav -.b -.a)
|
||||
[`fog`(slav -.b -.a) (..$ +.a +.b)]
|
||||
^= odo
|
||||
|* a/@tas
|
||||
|= b/*
|
||||
@ -4136,10 +4138,11 @@
|
||||
|= a/path
|
||||
?~ a ~
|
||||
=+ hed=(slaw -.b i.a)
|
||||
=* fog (odo:raid -.b)
|
||||
?~ +.b
|
||||
^- (unit (odo:raid -.b))
|
||||
^- (unit fog)
|
||||
?^(+.a ~ hed)
|
||||
^- (unit {(odo:raid -.b) _(need *(..^$ +.b))})
|
||||
^- (unit {fog _(need *(..^$ +.b))})
|
||||
(both hed ((..^$ +.b) +.a))
|
||||
-- ::wired
|
||||
:: ::
|
||||
|
||||
Loading…
Reference in New Issue
Block a user