mirror of
https://github.com/urbit/shrub.git
synced 2024-12-13 16:03:36 +03:00
Merge pull request #1019 from urbit/trailing-whitespace
Remove trailing whitespace & put check in CI
This commit is contained in:
ixv
GitHub
commit
e74927405f
@ -3,9 +3,12 @@ node_js:
|
||||
- 4
|
||||
|
||||
before_install:
|
||||
# building vere directly in lieu of a working debian package script
|
||||
# pwd: ~/urbit/arvo
|
||||
- cd ../
|
||||
- cd .travis/
|
||||
- bash check-trailing-whitespace.sh
|
||||
- cd ../../
|
||||
# pwd: ~/urbit
|
||||
# building vere directly in lieu of a working debian package script
|
||||
- wget https://github.com/ninja-build/ninja/releases/download/v1.8.2/ninja-linux.zip
|
||||
- unzip ninja-linux.zip
|
||||
- sudo mv ninja /usr/bin/
|
||||
|
||||
11
.travis/check-trailing-whitespace.sh
Executable file
11
.travis/check-trailing-whitespace.sh
Executable file
@ -0,0 +1,11 @@
|
||||
#!/bin/bash
|
||||
|
||||
whitespace=$(find .. -path ../.git -prune -o \
|
||||
-type f -exec egrep -l " +$" {} \;);
|
||||
|
||||
if [ ! -z $whitespace ]
|
||||
then
|
||||
echo 'found trailing whitespace in:';
|
||||
echo $whitespace;
|
||||
exit 1;
|
||||
fi
|
||||
@ -58,7 +58,7 @@ function rePill(urb) {
|
||||
})
|
||||
|
||||
return read.pipe(write)
|
||||
})
|
||||
})
|
||||
.catch(function(err){
|
||||
return reject(err)
|
||||
});
|
||||
|
||||
@ -838,7 +838,7 @@
|
||||
q:(head (skim q.rep |=((pair @t @t) ?=(%location p))))
|
||||
:: XX @da once parser is fixed
|
||||
::
|
||||
=/ wen=@t
|
||||
=/ wen=@t
|
||||
?~ r.rep
|
||||
(scot %da now.bow)
|
||||
=/ bod=acct:body
|
||||
|
||||
@ -137,7 +137,7 @@
|
||||
"""
|
||||
y - invite current ask
|
||||
n - ignore current ask
|
||||
|
||||
|
||||
"""
|
||||
"""
|
||||
l - list new asks
|
||||
|
||||
@ -163,7 +163,7 @@
|
||||
aud=(sy [guy %i] ~)
|
||||
ses=[%inv & our.bol nom.cod]~
|
||||
==
|
||||
::
|
||||
::
|
||||
%collection-invite
|
||||
:_ this
|
||||
:- :* ost.bol
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
:: :: ::
|
||||
:: :: ::
|
||||
:::: /hoon/dojo/app :: ::::
|
||||
:: :: ::
|
||||
/? 309 :: arvo kelvin
|
||||
@ -47,8 +47,8 @@
|
||||
:: {$tree p/path} :: noun to unix tree
|
||||
{$file p/beam} :: save to clay
|
||||
$: $http :: http outbound
|
||||
p/?($post $put)
|
||||
q/(unit knot)
|
||||
p/?($post $put)
|
||||
q/(unit knot)
|
||||
r/purl:eyre
|
||||
==
|
||||
{$poke p/goal} :: poke app
|
||||
@ -71,7 +71,7 @@
|
||||
{$do p/hoon q/dojo-source} :: gate apply
|
||||
{$tu p/(list dojo-source)} :: tuple
|
||||
== ::
|
||||
++ dojo-model :: data construction
|
||||
++ dojo-model :: data construction
|
||||
$: p/dojo-server :: core source
|
||||
q/dojo-config :: configuration
|
||||
== ::
|
||||
@ -109,9 +109,9 @@
|
||||
$% {$diff $sole-effect sole-effect} ::
|
||||
{$send wire {ship term} clap} ::
|
||||
$: $hiss
|
||||
wire
|
||||
(unit knot)
|
||||
mark
|
||||
wire
|
||||
(unit knot)
|
||||
mark
|
||||
{$hiss hiss:eyre}
|
||||
==
|
||||
[%build wire ? schematic:ford]
|
||||
@ -137,7 +137,7 @@
|
||||
::
|
||||
[%incomplete =tang]
|
||||
== ==
|
||||
{$unto p/cuft:gall} ::
|
||||
{$unto p/cuft:gall} ::
|
||||
== ::
|
||||
-- ::
|
||||
:: ::
|
||||
@ -149,9 +149,9 @@
|
||||
house :: program state
|
||||
== ::
|
||||
++ he :: per session
|
||||
|_ {moz/(list move) session} ::
|
||||
|_ {moz/(list move) session} ::
|
||||
++ dp :: dojo parser
|
||||
|%
|
||||
|%
|
||||
++ dp-default-app %hood
|
||||
++ dp-message :: %poke
|
||||
|= {gol/goal mod/dojo-model} ^- dojo-command
|
||||
@ -160,8 +160,8 @@
|
||||
++ dp-command-line ;~(sfix dp-command (star ace) (just '\0a'))
|
||||
++ dp-variable :: %verb or %brev
|
||||
|* {sym/rule src/rule}
|
||||
%+ cook
|
||||
|= {a/term b/(unit dojo-source)}
|
||||
%+ cook
|
||||
|= {a/term b/(unit dojo-source)}
|
||||
^- dojo-command
|
||||
?~(b [%brev a] [[%verb a] u.b])
|
||||
;~(plug sym (punt src))
|
||||
@ -169,7 +169,7 @@
|
||||
++ dp-command :: ++dojo-command
|
||||
:: =< ;~(less |-(;~(pose (jest '|*') ;~(pfix next (knee ** |.(^$))))) .)
|
||||
%+ knee *dojo-command |. ~+
|
||||
;~ pose
|
||||
;~ pose
|
||||
;~ pfix bar
|
||||
%+ cook dp-message
|
||||
(stag [our.hid dp-default-app] dp-model)
|
||||
@ -196,7 +196,7 @@
|
||||
==
|
||||
==
|
||||
::
|
||||
;~ pfix net
|
||||
;~ pfix net
|
||||
;~ pose
|
||||
(dp-variable (cold %sur hep) ;~(pfix gap parse-cables))
|
||||
(dp-variable (cold %lib lus) ;~(pfix gap parse-cables))
|
||||
@ -283,7 +283,7 @@
|
||||
;~(plug (cold %do cab) dp-hoon ;~(pfix ace dp-source))
|
||||
dp-value
|
||||
==
|
||||
::
|
||||
::
|
||||
++ dp-goal :: ++goal
|
||||
%+ cook |=(a/goal a)
|
||||
;~ pose
|
||||
@ -346,7 +346,7 @@
|
||||
%+ cook
|
||||
~(gas by *(map term (unit dojo-source)))
|
||||
%- star
|
||||
;~ plug
|
||||
;~ plug
|
||||
;~(pfix com ace tis sym)
|
||||
(punt ;~(pfix ace (stag 0 dp-value)))
|
||||
==
|
||||
@ -500,7 +500,7 @@
|
||||
|= cag/cage
|
||||
^+ +>+>
|
||||
?> ?=(^ per)
|
||||
?: ?| ?=(^ q.q.cag)
|
||||
?: ?| ?=(^ q.q.cag)
|
||||
=((lent buf.say) q.q.cag)
|
||||
!&(?=($del -.u.per) =(+(p.u.per) (lent buf.say)))
|
||||
==
|
||||
@ -530,7 +530,7 @@
|
||||
?: ?=($brev -.mad)
|
||||
=. var (~(del by var) p.mad)
|
||||
=< dy-amok
|
||||
?+ p.mad .
|
||||
?+ p.mad .
|
||||
$?($eny $now $our) !!
|
||||
$lib .(lib ~)
|
||||
$sur .(sur ~)
|
||||
@ -1026,7 +1026,7 @@
|
||||
^- {what what}
|
||||
[*what *what]
|
||||
:: =+ foot-type=(~(play ut sut) p.f)
|
||||
:: =/ raw-product/what (what-from-type foot-type)
|
||||
:: =/ raw-product/what (what-from-type foot-type)
|
||||
:: =/ product-product/what
|
||||
:: ?. ?=({$core *} foot-type)
|
||||
:: ~
|
||||
@ -1423,7 +1423,7 @@
|
||||
?~ pro
|
||||
~& %dy-no-scraper
|
||||
(dy-show dat)
|
||||
(dy-slam(pux ~) /scar u.pro q.dat)
|
||||
(dy-slam(pux ~) /scar u.pro q.dat)
|
||||
::
|
||||
++ dy-made-gent :: generator product
|
||||
|= cag/cage
|
||||
@ -1500,7 +1500,7 @@
|
||||
?: =(p.p.vex +((lent (skim txt |=(a/@ =(10 a)))))) :: parsed all lines
|
||||
[%& ~ ?~(q.vex [%| txt] [%& p.u.q.vex])] :: new buffer+complete
|
||||
[%| p.p.vex (dec q.p.vex)] :: syntax error
|
||||
::
|
||||
::
|
||||
++ he-duke :: ++he-dope variant
|
||||
|= txt/tape
|
||||
^- (each (unit (each dojo-command tape)) @ud)
|
||||
@ -1573,7 +1573,7 @@
|
||||
"/" ?:(=(our.hid p.dir) "=" (scow %p p.dir))
|
||||
"/" ?:(=(%home q.dir) "=" (trip q.dir))
|
||||
"/" ?:(=([%ud 0] r.dir) "=" (scow r.dir))
|
||||
==
|
||||
==
|
||||
?:(=(~ s.dir) "" (spud (flop s.dir)))
|
||||
::
|
||||
++ he-prom :: send prompt
|
||||
@ -1634,7 +1634,7 @@
|
||||
?. ?=($coup -.cit)
|
||||
~& [%strange-unto cit]
|
||||
+>
|
||||
?~ p.cit
|
||||
?~ p.cit
|
||||
(he-diff %txt ">=")
|
||||
(he-diff %tan u.p.cit)
|
||||
::
|
||||
@ -1809,7 +1809,7 @@
|
||||
=- [wrap=- +]
|
||||
=+ he-arm=he-type
|
||||
|@ ++ $
|
||||
|: +<.he-arm
|
||||
|: +<.he-arm
|
||||
^- (quip move _..he)
|
||||
he-abet:(he-arm +<)
|
||||
--
|
||||
|
||||
@ -466,7 +466,7 @@
|
||||
::
|
||||
:: Store a delta about a story.
|
||||
::
|
||||
~/ %hall-impact
|
||||
~/ %hall-impact
|
||||
|= {nom/name det/delta-story}
|
||||
(ta-delta %story nom det)
|
||||
::
|
||||
|
||||
@ -55,7 +55,7 @@
|
||||
++ hood-make ::
|
||||
=+ $:{our/@p hed/hood-head} ::
|
||||
|@ ++ $
|
||||
?- hed
|
||||
?- hed
|
||||
$drum (make:hood-drum our)
|
||||
$helm *part:hood-helm
|
||||
$kiln *part:hood-kiln
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
:: :: ::
|
||||
:: :: ::
|
||||
:::: /app/talk/hoon :: ::
|
||||
:: :: ::
|
||||
::
|
||||
|
||||
20
gen/al.hoon
20
gen/al.hoon
@ -15,8 +15,8 @@
|
||||
=+ :* dom=`axis`1
|
||||
doc=*(list what)
|
||||
==
|
||||
|_ mod/tile
|
||||
++ home
|
||||
|_ mod/tile
|
||||
++ home
|
||||
:: express a hoon against the original subject
|
||||
::
|
||||
|=(gen/hoon ^-(hoon ?:(=(1 dom) gen [%tsgr [%$ dom] gen])))
|
||||
@ -43,7 +43,7 @@
|
||||
?: ?=($herb -.cys)
|
||||
(home [%tsgl [%limb %$] p.mod])
|
||||
$(mod cys)
|
||||
::
|
||||
::
|
||||
{$deet *}
|
||||
$(mod q.mod)
|
||||
::
|
||||
@ -113,11 +113,11 @@
|
||||
$void
|
||||
:: should not actually be a thing
|
||||
::
|
||||
[%zpzp ~]
|
||||
[%zpzp ~]
|
||||
==
|
||||
::
|
||||
++ decorate
|
||||
:: document
|
||||
:: document
|
||||
::
|
||||
|= gen/hoon
|
||||
^- hoon
|
||||
@ -148,7 +148,7 @@
|
||||
?: ?=($herb -.cys)
|
||||
(home [%tsgl [%limb %$] p.mod])
|
||||
ersatz(mod cys)
|
||||
::
|
||||
::
|
||||
{$deet *}
|
||||
[%dbug p.mod ersatz(mod q.mod)]
|
||||
::
|
||||
@ -191,7 +191,7 @@
|
||||
:: top: topographic type of sample
|
||||
::
|
||||
axe/axis
|
||||
top/tope
|
||||
top/tope
|
||||
==
|
||||
++ basic
|
||||
|= bas/base
|
||||
@ -297,7 +297,7 @@
|
||||
^- hoon
|
||||
:: if no other choices, construct head
|
||||
::
|
||||
?~ rep construct(mod `tile`one)
|
||||
?~ rep construct(mod `tile`one)
|
||||
:: fin: loop completion
|
||||
::
|
||||
=/ fin/hoon $(one i.rep, rep t.rep)
|
||||
@ -409,7 +409,7 @@
|
||||
construct(mod cys)
|
||||
::
|
||||
:: switch, $%
|
||||
::
|
||||
::
|
||||
{$kelp *}
|
||||
:: if atom or unknown, probe
|
||||
::
|
||||
@ -445,7 +445,7 @@
|
||||
?@ top probe
|
||||
:^ %wtpt
|
||||
fetch-wing(axe (peg axe 2))
|
||||
construct(mod q.mod)
|
||||
construct(mod q.mod)
|
||||
construct(mod p.mod)
|
||||
::
|
||||
:: weed, $_
|
||||
|
||||
@ -123,7 +123,7 @@
|
||||
::
|
||||
:: switch to the second-generation compiler. we want to be
|
||||
:: able to generate matching reflection nouns even if the
|
||||
:: language changes -- the first-generation formula will
|
||||
:: language changes -- the first-generation formula will
|
||||
:: generate last-generation spans for `!>`, etc.
|
||||
::
|
||||
~> %slog.[0 leaf+"1-d"]
|
||||
|
||||
@ -13,7 +13,7 @@
|
||||
=> |%
|
||||
++ wasp :: arvo effect
|
||||
$% {$wack p/@uvJ} :: add entropy
|
||||
{$what p/(list (pair path (pair term noun)))} :: reset reptile
|
||||
{$what p/(list (pair path (pair term noun)))} :: reset reptile
|
||||
{$whom p/@p} :: id and boot
|
||||
==
|
||||
--
|
||||
@ -100,14 +100,14 @@
|
||||
sal/(list spur)
|
||||
^- (list (pair path (pair term noun)))
|
||||
::
|
||||
:: hav: all user files
|
||||
::
|
||||
:: hav: all user files
|
||||
::
|
||||
=| hav/(list (pair path (pair term noun)))
|
||||
|- ^+ hav
|
||||
?~ sal ~
|
||||
=. hav $(sal t.sal)
|
||||
::
|
||||
:: tyl: spur
|
||||
:: tyl: spur
|
||||
::
|
||||
=/ tyl i.sal
|
||||
|- ^+ hav
|
||||
@ -117,7 +117,7 @@
|
||||
::
|
||||
=/ pax (en-beam:format bec tyl)
|
||||
=/ lon .^(arch %cy pax)
|
||||
=? hav ?=(^ fil.lon)
|
||||
=? hav ?=(^ fil.lon)
|
||||
::
|
||||
:: install only hoon files for now
|
||||
::
|
||||
|
||||
@ -4,7 +4,7 @@
|
||||
::
|
||||
/? 310
|
||||
:- %say
|
||||
|= $: {now/@da eny/@ bec/beak}
|
||||
|= $: {now/@da eny/@ bec/beak}
|
||||
{{exp/@ud ~} ~}
|
||||
==
|
||||
=+ rab=(~(raw og eny) (bex exp))
|
||||
|
||||
@ -6,7 +6,7 @@
|
||||
/| /; |=(@t [%html +<]) /&html&/!hymn/
|
||||
/; |=(@t [%html +<]) /&html&/&elem&/udon/
|
||||
:: XX /lib/down-jet/parse is broken
|
||||
:: /; |=(@t [%html +<]) /&html&/&hymn&/&down&/md/
|
||||
:: /; |=(@t [%html +<]) /&html&/&hymn&/&down&/md/
|
||||
/; |=(@t [%raw +<]) /atom/
|
||||
==
|
||||
::
|
||||
@ -30,7 +30,7 @@
|
||||
link
|
||||
^- tape
|
||||
%+ welp
|
||||
=< +
|
||||
=< +
|
||||
%^ spin u.parsed pre
|
||||
|= [c=coin s=path]
|
||||
^- [* out=tape]
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
:: Compile arvo as a pill noun, without compiler changes.
|
||||
:: usage
|
||||
:: usage
|
||||
::
|
||||
:: .urbit/pill +solid
|
||||
::
|
||||
|
||||
@ -250,7 +250,7 @@
|
||||
(^$(buk t-buk) wer)
|
||||
::
|
||||
++ or
|
||||
=+ typ=$:|-($@(@tas {@tas $}))
|
||||
=+ typ=$:|-($@(@tas {@tas $}))
|
||||
|@ ++ $
|
||||
|= con/coin
|
||||
::^- _(snag *@ (turn (limo typ) |*(a/@tas [a (odo:raid:wired a)])))
|
||||
|
||||
@ -9,9 +9,9 @@
|
||||
=, html
|
||||
|%
|
||||
++ request
|
||||
$: domain/(list cord)
|
||||
$: domain/(list cord)
|
||||
end-point/path
|
||||
req-type/$?($get {$post p/json})
|
||||
req-type/$?($get {$post p/json})
|
||||
headers/math:eyre
|
||||
queries/quay:eyre
|
||||
==
|
||||
|
||||
@ -2,7 +2,7 @@
|
||||
::
|
||||
:::: /hoon/interpolate/lib
|
||||
::
|
||||
/? 310
|
||||
/? 310
|
||||
::
|
||||
:::: ~fyr
|
||||
::
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
:: hoon data to json
|
||||
:: hoon data to json
|
||||
::
|
||||
:::: /hoon/map-to-json/lib
|
||||
::
|
||||
/? 310
|
||||
/? 310
|
||||
=, format
|
||||
|* {a/_cord b/_json} :: XX {a/$-(* cord) b/$-(* json)}
|
||||
|= c/(map _+<.a _+<.b)
|
||||
|
||||
@ -19,7 +19,7 @@
|
||||
::
|
||||
|%
|
||||
++ parse-url parse-url:interpolate
|
||||
++ join
|
||||
++ join
|
||||
|= {a/cord b/(list cord)}
|
||||
?~ b ''
|
||||
(rap 3 |-([i.b ?~(t.b ~ [a $(b t.b)])]))
|
||||
@ -157,7 +157,7 @@
|
||||
%&
|
||||
::
|
||||
++ auth
|
||||
|%
|
||||
|%
|
||||
++ header
|
||||
|= {auq/quay url/purl med/meth math bod/(unit octs)}
|
||||
^- cord
|
||||
@ -240,7 +240,7 @@
|
||||
|= a/httr ^- core-move
|
||||
?^ tok [%give a]
|
||||
?. =(%true (grab-quay r.a 'oauth_callback_confirmed'))
|
||||
~|(%callback-rejected !!)
|
||||
~|(%callback-rejected !!)
|
||||
=+ request-token=(grab-token-response a)
|
||||
[[%redo ~] (save `token`[%request-token request-token])]
|
||||
::
|
||||
@ -268,7 +268,7 @@
|
||||
:::: Example "standard" sec/ core:
|
||||
::
|
||||
::
|
||||
:: ::
|
||||
:: ::
|
||||
:: :::: /hoon/my-api/com/sec
|
||||
:: ::
|
||||
:: /+ oauth1
|
||||
@ -294,7 +294,7 @@
|
||||
:::: Equivalent imperative code:
|
||||
::
|
||||
::
|
||||
:: ::
|
||||
:: ::
|
||||
:: :::: /hoon/my-api/com/sec
|
||||
:: ::
|
||||
:: /+ oauth1
|
||||
|
||||
@ -10,7 +10,7 @@
|
||||
|* typ=@tas
|
||||
|* inp=(map knot *) ^- (map (odo:raid typ) _(~(got by inp)))
|
||||
=> .(inp `(map knot _(~(got by inp)))`inp)
|
||||
%- malt
|
||||
%- malt
|
||||
%+ murn ~(tap by inp)
|
||||
|* [a=knot b=*] ^- (unit [(odo:raid typ) _b])
|
||||
(both (slaw typ a) `b)
|
||||
|
||||
@ -13,6 +13,6 @@
|
||||
--
|
||||
++ grow |%
|
||||
++ mime [/application/x-urb-unknown (as-octs ato)]
|
||||
--
|
||||
--
|
||||
++ grad %mime
|
||||
--
|
||||
|
||||
@ -33,7 +33,7 @@
|
||||
|= nom=name:hall
|
||||
[%s nom]
|
||||
::
|
||||
:- %dms
|
||||
:- %dms
|
||||
%- pairs
|
||||
%+ turn ~(tap by dms.piz)
|
||||
|= [nom=name:hall ini=@p env=(list envelope:hall)]
|
||||
|
||||
@ -31,7 +31,7 @@
|
||||
;link(rel "stylesheet", href "//cdnjs.cloudflare.com/ajax/libs/".
|
||||
"codemirror/4.3.0/codemirror.min.css");
|
||||
;link/"/lib/syntax/codemirror.css"(rel "stylesheet");
|
||||
==
|
||||
==
|
||||
;body
|
||||
;textarea#src:"{(trip own)}"
|
||||
;script:'CodeMirror.fromTextArea(src, {lineNumbers:true, readOnly:true})'
|
||||
|
||||
@ -10,9 +10,9 @@
|
||||
--
|
||||
::
|
||||
++ grab :: convert from
|
||||
|%
|
||||
|%
|
||||
++ noun mime :: clam from %noun
|
||||
++ tape
|
||||
++ tape
|
||||
|=(a/_"" [/application/x-urb-unknown (as-octt:mimes:html a)])
|
||||
--
|
||||
++ grad
|
||||
|
||||
@ -30,7 +30,7 @@
|
||||
loc+?~(loc ~ s+loc)
|
||||
acc+o+(~(run by acc) json-acct)
|
||||
==
|
||||
++ json-acct :: helper
|
||||
++ json-acct :: helper
|
||||
|= a/plan-acct ^- json
|
||||
=/ url ?~(url.a ~ (tape:enjs (apix:en-purl u.url.a)))
|
||||
(pairs:enjs usr+s+usr.a url+url ~)
|
||||
@ -57,7 +57,7 @@
|
||||
++ mime |=({* a/octs} (txt (to-wain q.a))) :: XX mark translation
|
||||
--
|
||||
++ grad
|
||||
|%
|
||||
|%
|
||||
++ form %plan-diff
|
||||
++ diff
|
||||
|= neu/_all ^- plan-diff :: XXX map functions
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
=, format
|
||||
=, mimes:html
|
||||
|_ txt/wain
|
||||
::
|
||||
::
|
||||
++ grab :: convert from
|
||||
|%
|
||||
++ mime |=({p/mite:eyre q/octs:eyre} (to-wain q.q))
|
||||
@ -154,7 +154,7 @@
|
||||
%- flop
|
||||
^- (list (list @t))
|
||||
:- :_ ~
|
||||
%^ cat 3 '<<<<<<<<<<<<'
|
||||
%^ cat 3 '<<<<<<<<<<<<'
|
||||
%^ cat 3 ' '
|
||||
%^ cat 3 `@t`(scot %p bos)
|
||||
%^ cat 3 '/'
|
||||
@ -166,7 +166,7 @@
|
||||
:- ~['++++++++++++']
|
||||
:- ali
|
||||
:- :_ ~
|
||||
%^ cat 3 '>>>>>>>>>>>>'
|
||||
%^ cat 3 '>>>>>>>>>>>>'
|
||||
%^ cat 3 ' '
|
||||
%^ cat 3 `@t`(scot %p als)
|
||||
%^ cat 3 '/'
|
||||
@ -212,7 +212,7 @@
|
||||
=+ wat=(scag (sub lob p.i.ali) p.i.bob)
|
||||
=+ ^= res
|
||||
%= $
|
||||
ali t.ali
|
||||
ali t.ali
|
||||
bob [[%| (scag (sub lob p.i.ali) p.i.bob) ~] t.bob]
|
||||
==
|
||||
:* :* (welp bac.res wat)
|
||||
|
||||
@ -26,7 +26,7 @@
|
||||
++ mime |=({p/mite:eyre q/octs:eyre} q.q)
|
||||
++ noun @t
|
||||
++ txt of-wain:format
|
||||
--
|
||||
--
|
||||
++ grad %txt
|
||||
++ garb /down
|
||||
--
|
||||
|
||||
@ -26,7 +26,7 @@
|
||||
++ mime |=({p/mite:eyre q/octs:eyre} q.q)
|
||||
++ noun @t
|
||||
++ txt of-wain:format
|
||||
--
|
||||
--
|
||||
++ grad %txt
|
||||
++ garb /down
|
||||
--
|
||||
|
||||
@ -13,7 +13,7 @@
|
||||
++ html (crip (en-xml hymn)) :: convert to %html
|
||||
++ hymn max
|
||||
--
|
||||
++ grab
|
||||
++ grab
|
||||
|% :: convert from
|
||||
++ noun manx :: clam from %noun
|
||||
--
|
||||
|
||||
@ -4,9 +4,9 @@
|
||||
/? 309
|
||||
/+ collections
|
||||
::
|
||||
:: collections:
|
||||
::
|
||||
:: get collection-config file at rendered path,
|
||||
:: collections:
|
||||
::
|
||||
:: get collection-config file at rendered path,
|
||||
:: and all collections-item files the subpath.
|
||||
:: outputs a +collection defined in /lib/collections/hoon
|
||||
::
|
||||
@ -14,7 +14,7 @@
|
||||
::
|
||||
/= collection
|
||||
/^ collection:collections
|
||||
/; |= [a=config:collections b=(map knot item:collections) ~]
|
||||
/; |= [a=config:collections b=(map knot item:collections) ~]
|
||||
[a b]
|
||||
/. /collections-config/
|
||||
/_ /collections-item/
|
||||
|
||||
@ -4,9 +4,9 @@
|
||||
/? 309
|
||||
/+ collections
|
||||
::
|
||||
:: item:
|
||||
:: item:
|
||||
::
|
||||
:: render a collection-item at this path
|
||||
:: render a collection-item at this path
|
||||
:: outputs a +item defined in /lib/collections/hoon
|
||||
::
|
||||
:: recursive renderer, see its counterpart in /ren/collections/hoon
|
||||
|
||||
@ -5,13 +5,13 @@
|
||||
/+ landscape
|
||||
/= full-page
|
||||
/^ manx
|
||||
/|
|
||||
/|
|
||||
/, /web/collections /; landscape /collections-elem/
|
||||
/web/landscape /; landscape /!hymn/
|
||||
/web/pages /| /!hymn/
|
||||
/hymn/
|
||||
==
|
||||
/ /; landscape /!hymn/
|
||||
/ /; landscape /!hymn/
|
||||
==
|
||||
::
|
||||
/: /===/web/404 /; landscape /!hymn/
|
||||
|
||||
@ -7,7 +7,7 @@
|
||||
/, /web/collections
|
||||
/& json
|
||||
/collections-json/
|
||||
/
|
||||
/
|
||||
/!json/
|
||||
==
|
||||
page
|
||||
|
||||
@ -6,7 +6,7 @@
|
||||
/^ manx
|
||||
/, /web/collections
|
||||
/collections-elem/
|
||||
/
|
||||
/
|
||||
/!hymn/
|
||||
==
|
||||
page
|
||||
|
||||
@ -6,7 +6,7 @@
|
||||
/^ manx
|
||||
/|
|
||||
/, /web/collections /collections-elem/
|
||||
/ /| /!hymn/
|
||||
/ /| /!hymn/
|
||||
/hymn/
|
||||
==
|
||||
==
|
||||
|
||||
@ -9,6 +9,6 @@
|
||||
/, /web/collections /~ landscape
|
||||
/web/landscape /~ landscape
|
||||
/web/pages /~ |=(manx +<)
|
||||
/ /~ landscape
|
||||
/ /~ landscape
|
||||
==
|
||||
wrapped
|
||||
|
||||
@ -22,7 +22,7 @@
|
||||
:: the label resource returned by gmail in response to your successful request
|
||||
++ label *
|
||||
|
||||
++ label-req-to-json !!
|
||||
++ label-req-to-json !!
|
||||
:: XX belongs in a lib/
|
||||
:: |= label-req
|
||||
:: %- jobe :^
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
{$det sole-change} :: command line edit
|
||||
{$ret ~} :: submit and clear
|
||||
{$clr ~} :: exit context
|
||||
== ::
|
||||
== ::
|
||||
++ sole-buffer (list @c) :: command state
|
||||
++ sole-change :: network change
|
||||
$: ler/sole-clock :: destination clock
|
||||
@ -42,7 +42,7 @@
|
||||
== ::
|
||||
++ sole-command :: command state
|
||||
$: pos/@ud :: cursor position
|
||||
say/sole-share :: cursor
|
||||
say/sole-share :: cursor
|
||||
== ::
|
||||
++ sole-prompt :: prompt definition
|
||||
$: vis/? :: command visible
|
||||
@ -67,13 +67,13 @@
|
||||
:: ::
|
||||
++ sole-product :: success result
|
||||
|* out/$-(* *) ::
|
||||
%+ pair (list tank) ::
|
||||
%+ pair (list tank) ::
|
||||
%+ each (unit out) :: ~ is abort
|
||||
(pair sole-prompt (sole-dialog out)) :: ask and continue
|
||||
:: ::
|
||||
++ sole-request :: scraper result
|
||||
|* out/$-(* *) :: output structure
|
||||
%+ pair (list tank) ::
|
||||
%+ pair (list tank) ::
|
||||
%+ each (unit out) :: ~ is abort
|
||||
%^ trel :: fetch and continue
|
||||
(unit knot)
|
||||
|
||||
@ -19,7 +19,7 @@
|
||||
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||
:::::: :::::: volume 3, Arvo models and skeleton ::::::
|
||||
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||
=>
|
||||
=>
|
||||
|%
|
||||
++ arch {fil/(unit @uvI) dir/(map @ta $~)} :: fundamental node
|
||||
++ arvo (wind {p/term q/mill} mill) :: arvo card
|
||||
@ -45,7 +45,7 @@
|
||||
== ::
|
||||
++ mark @tas :: content type
|
||||
++ mash |=(* (mass +<)) :: producing mass
|
||||
++ mass $~ [%$ [%& ~]] :: memory usage
|
||||
++ mass $~ [%$ [%& ~]] :: memory usage
|
||||
(pair cord (each noun (list mash))) ::
|
||||
++ mill (each vase milt) :: vase+metavase
|
||||
++ milt {p/* q/*} :: metavase
|
||||
@ -288,7 +288,7 @@
|
||||
^- (unit (pair move worm))
|
||||
%+ biff ((soft duct) -.q.wec)
|
||||
|= a/duct
|
||||
%+ bind
|
||||
%+ bind
|
||||
=- ?- -.har
|
||||
%| ~& [%dead-card p.har] ~ :: XX properly log?
|
||||
%& (some p.har)
|
||||
@ -770,7 +770,7 @@
|
||||
=. eny (shaz (cat 3 eny q.q.ovo))
|
||||
[~ +>.$]
|
||||
==
|
||||
::
|
||||
::
|
||||
++ vega :: reboot kernel
|
||||
|= $: :: now: current date
|
||||
:: ova: actions to process after reboot
|
||||
|
||||
290
sys/hoon.hoon
290
sys/hoon.hoon
@ -486,7 +486,7 @@
|
||||
++ tang (list tank) :: bottom-first error
|
||||
++ tank $~ [%leaf ~] ::
|
||||
$% {$leaf p/tape} :: printing formats
|
||||
{$plum p/plum} ::
|
||||
{$plum p/plum} ::
|
||||
$: $palm :: backstep list
|
||||
p/{p/tape q/tape r/tape s/tape} ::
|
||||
q/(list tank) ::
|
||||
@ -6342,7 +6342,7 @@
|
||||
q/type :: context
|
||||
r/(pair seminoun (map term tome)) :: chapters
|
||||
== ::
|
||||
+$ garb (trel (unit term) poly vair) :: core
|
||||
+$ garb (trel (unit term) poly vair) :: core
|
||||
+$ poly ?(%wet %dry) :: polarity
|
||||
+$ foot $% {$dry p/hoon} :: dry arm, geometric
|
||||
{$wet p/hoon} :: wet arm, generic
|
||||
@ -6353,8 +6353,8 @@
|
||||
[%frag p/term] :: .leg
|
||||
[%funk p/term] :: +arm
|
||||
== ::
|
||||
+$ crib [summary=cord details=(list sect)] ::
|
||||
+$ help [links=(list link) =crib] :: documentation
|
||||
+$ crib [summary=cord details=(list sect)] ::
|
||||
+$ help [links=(list link) =crib] :: documentation
|
||||
+$ limb $@ term :: wing element
|
||||
$% {%& p/axis} :: by geometry
|
||||
{%| p/@ud q/(unit term)} :: by name
|
||||
@ -6369,7 +6369,7 @@
|
||||
== ::
|
||||
+$ pica (pair ? cord) :: & prose, | code
|
||||
+$ palo (pair vein opal) :: wing trace, match
|
||||
+$ plat ::
|
||||
+$ plat ::
|
||||
$? %hoon ::
|
||||
%type ::
|
||||
%nock ::
|
||||
@ -6384,7 +6384,7 @@
|
||||
{$leaf p/term q/@} :: constant atom
|
||||
{$like p/wing q/(list wing)} :: reference
|
||||
{$loop p/term} :: hygienic reference
|
||||
{$made p/(pair term (list term)) q/spec} :: annotate synthetic
|
||||
{$made p/(pair term (list term)) q/spec} :: annotate synthetic
|
||||
{$make p/hoon q/(list spec)} :: composed spec
|
||||
{$name p/term q/spec} :: annotate simple
|
||||
{$over p/wing q/spec} :: relative to subject
|
||||
@ -6401,7 +6401,7 @@
|
||||
{$bskt p/spec q/spec} :: $^, cons pick
|
||||
{$bsls p/stud q/spec} :: $+, standard
|
||||
{$bsnt p/spec q/(map term spec)} :: $/, write-only core
|
||||
{$bsmc p/hoon} :: $;, manual
|
||||
{$bsmc p/hoon} :: $;, manual
|
||||
{$bspd p/spec q/hoon} :: $&, repair
|
||||
{$bssg p/hoon q/spec} :: $~, default
|
||||
{$bstc p/spec q/(map term spec)} :: $`, read-only core
|
||||
@ -6448,8 +6448,8 @@
|
||||
+$ maru (each tuna marl) :: interp or nodes
|
||||
+$ tuna :: maybe interpolation
|
||||
$~ [[%$ ~] ~]
|
||||
$^ manx
|
||||
$: ?($tape $manx $marl $call)
|
||||
$^ manx
|
||||
$: ?($tape $manx $marl $call)
|
||||
p/hoon
|
||||
==
|
||||
-- ::
|
||||
@ -6605,7 +6605,7 @@
|
||||
{$know p/stud} :: global standard
|
||||
{$made p/term q/(unit (list wing))} :: structure
|
||||
== ::
|
||||
+$ type $~ %noun ::
|
||||
+$ type $~ %noun ::
|
||||
$@ $? $noun :: any nouns
|
||||
$void :: no noun
|
||||
== ::
|
||||
@ -6640,7 +6640,7 @@
|
||||
+$ vair ?($gold $iron $lead $zinc) :: in/contra/bi/co
|
||||
+$ vein (list (unit axis)) :: search trace
|
||||
+$ sect (list pica) :: paragraph
|
||||
+$ whit ::
|
||||
+$ whit ::
|
||||
$: lab/(unit term) :: label
|
||||
boy/(unit (pair cord (list sect))) :: body
|
||||
def/(map term (pair cord (list sect))) :: definitions
|
||||
@ -6656,12 +6656,12 @@
|
||||
::
|
||||
:: +block: abstract identity of resource awaited
|
||||
::
|
||||
++ block
|
||||
++ block
|
||||
path
|
||||
::
|
||||
:: +result: internal interpreter result
|
||||
::
|
||||
++ result
|
||||
++ result
|
||||
$@(~ seminoun)
|
||||
::
|
||||
:: +thunk: fragment constructor
|
||||
@ -6669,17 +6669,17 @@
|
||||
++ thunk
|
||||
$-(@ud (unit noun))
|
||||
::
|
||||
:: +seminoun:
|
||||
:: +seminoun:
|
||||
::
|
||||
++ seminoun
|
||||
:: partial noun; blocked subtrees are ~
|
||||
++ seminoun
|
||||
:: partial noun; blocked subtrees are ~
|
||||
::
|
||||
$~ [[%full ~] ~]
|
||||
{mask/stencil data/noun}
|
||||
::
|
||||
:: +stencil: noun knowledge map
|
||||
::
|
||||
++ stencil
|
||||
++ stencil
|
||||
$% ::
|
||||
:: %half: noun has partial block substructure
|
||||
::
|
||||
@ -6690,9 +6690,9 @@
|
||||
[%full blocks=(set block)]
|
||||
::
|
||||
:: %lazy: noun can be generated from virtual subtree
|
||||
::
|
||||
::
|
||||
[%lazy fragment/axis resolve/thunk]
|
||||
==
|
||||
==
|
||||
::
|
||||
++ output
|
||||
:: ~: interpreter stopped
|
||||
@ -6751,7 +6751,7 @@
|
||||
:::: 5aa: new partial nock interpreter
|
||||
::
|
||||
++ musk !. :: nock with block set
|
||||
|%
|
||||
|%
|
||||
++ abet
|
||||
:: simplify raw result
|
||||
::
|
||||
@ -6766,7 +6766,7 @@
|
||||
:- ~
|
||||
:: merge all blocking sets
|
||||
::
|
||||
=/ blocks (squash mask.noy)
|
||||
=/ blocks (squash mask.noy)
|
||||
?: =(~ blocks)
|
||||
:: no blocks, data is complete
|
||||
::
|
||||
@ -6787,11 +6787,11 @@
|
||||
:: interpreter loop
|
||||
::
|
||||
|- ^- result
|
||||
?@ fol
|
||||
?@ fol
|
||||
:: bad formula, stop
|
||||
::
|
||||
~
|
||||
?: ?=(^ -.fol)
|
||||
?: ?=(^ -.fol)
|
||||
:: hed: interpret head
|
||||
::
|
||||
=+ hed=$(fol -.fol)
|
||||
@ -6804,10 +6804,10 @@
|
||||
:: propagate stop
|
||||
::
|
||||
?~ tal ~
|
||||
:: combine
|
||||
:: combine
|
||||
::
|
||||
(combine hed tal)
|
||||
?+ fol
|
||||
?+ fol
|
||||
:: bad formula; stop
|
||||
::
|
||||
~
|
||||
@ -6909,7 +6909,7 @@
|
||||
::
|
||||
:: 7; composition
|
||||
::
|
||||
{$7 b/* c/*}
|
||||
{$7 b/* c/*}
|
||||
:: one: input
|
||||
::
|
||||
=+ one=$(fol b.fol)
|
||||
@ -6919,10 +6919,10 @@
|
||||
:: complete composition
|
||||
::
|
||||
$(fol c.fol, bus one)
|
||||
::
|
||||
::
|
||||
:: 8; introduction
|
||||
::
|
||||
{$8 b/* c/*}
|
||||
{$8 b/* c/*}
|
||||
:: one: input
|
||||
::
|
||||
=+ one=$(fol b.fol)
|
||||
@ -7032,7 +7032,7 @@
|
||||
|= $: :: hed: head of pair
|
||||
:: tal: tail of pair
|
||||
::
|
||||
hed/seminoun
|
||||
hed/seminoun
|
||||
tal/seminoun
|
||||
==
|
||||
^- seminoun
|
||||
@ -7070,7 +7070,7 @@
|
||||
=+ (resolve.mask.bus fragment.mask.bus)
|
||||
:: if product is nil
|
||||
::
|
||||
?~ -
|
||||
?~ -
|
||||
:: then blocked
|
||||
::
|
||||
[[%full [~ ~ ~]] ~]
|
||||
@ -7078,8 +7078,8 @@
|
||||
::
|
||||
[[%full ~] u.-]
|
||||
$half :: recursive descent
|
||||
::
|
||||
%+ combine
|
||||
::
|
||||
%+ combine
|
||||
$(bus [left.mask.bus -.data.bus])
|
||||
$(bus [rite.mask.bus +.data.bus])
|
||||
==
|
||||
@ -7120,8 +7120,8 @@
|
||||
::
|
||||
%= $
|
||||
axe lat
|
||||
bus ?: =(2 now)
|
||||
[left.mask.bus -.data.bus]
|
||||
bus ?: =(2 now)
|
||||
[left.mask.bus -.data.bus]
|
||||
[rite.mask.bus +.data.bus]
|
||||
== ==
|
||||
::
|
||||
@ -7508,7 +7508,7 @@
|
||||
~ ~
|
||||
::
|
||||
{* ~ ~}
|
||||
%+ bind (look cog q.q.n.dom)
|
||||
%+ bind (look cog q.q.n.dom)
|
||||
|=((pair axis hoon) [(peg axe p) q])
|
||||
::
|
||||
{* ~ *}
|
||||
@ -7600,7 +7600,7 @@
|
||||
:: derive name from spec
|
||||
::
|
||||
|- ^- (unit term)
|
||||
?- -.mod
|
||||
?- -.mod
|
||||
$base ?.(?=([%atom *] p.mod) ~ ?:(=(%$ p.p.mod) `%atom `p.p.mod))
|
||||
$dbug $(mod q.mod)
|
||||
$leaf `p.mod
|
||||
@ -7622,7 +7622,7 @@
|
||||
$bshp $(mod p.mod)
|
||||
$bskt $(mod q.mod)
|
||||
$bsls $(mod q.mod)
|
||||
$bsnt ~
|
||||
$bsnt ~
|
||||
$bsmc ~(name ap p.mod)
|
||||
$bspd $(mod p.mod)
|
||||
$bssg $(mod q.mod)
|
||||
@ -7655,7 +7655,7 @@
|
||||
::
|
||||
:+ %brcl
|
||||
[%$ 2]
|
||||
[%$ 15]
|
||||
[%$ 15]
|
||||
::
|
||||
++ interface
|
||||
:: construct a core example
|
||||
@ -7685,12 +7685,12 @@
|
||||
::
|
||||
[term example:clear(mod spec)]
|
||||
::
|
||||
++ home
|
||||
++ home
|
||||
:: express a hoon against the original subject
|
||||
::
|
||||
|= gen/hoon
|
||||
^- hoon
|
||||
=+ ^- wing
|
||||
^- hoon
|
||||
=+ ^- wing
|
||||
?: =(1 dom)
|
||||
hay
|
||||
(weld hay `wing`[[%& dom] ~])
|
||||
@ -7704,7 +7704,7 @@
|
||||
::
|
||||
++ basal
|
||||
:: example base case
|
||||
::
|
||||
::
|
||||
|= bas/base
|
||||
?- bas
|
||||
::
|
||||
@ -7811,8 +7811,8 @@
|
||||
{$bsbr *} $(mod p.mod)
|
||||
{$bscb *} [%rock %n 0]
|
||||
{$bscl *} |- ^- hoon
|
||||
?~ t.p.mod ^$(mod i.p.mod)
|
||||
:- ^$(mod i.p.mod)
|
||||
?~ 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)
|
||||
{$bscn *} :: use last entry
|
||||
::
|
||||
@ -7926,9 +7926,9 @@
|
||||
{%atom *}
|
||||
:+ %ktls example
|
||||
^- hoon
|
||||
:^ %zpvt
|
||||
:^ %zpvt
|
||||
[[[%| 0 `%ruth] ~] ~]
|
||||
[%cnls [%limb %ruth] [%sand %ta p.bas] fetch]
|
||||
[%cnls [%limb %ruth] [%sand %ta p.bas] fetch]
|
||||
[%wtvt fetch-wing fetch [%zpzp ~]]
|
||||
::
|
||||
$cell
|
||||
@ -8053,39 +8053,39 @@
|
||||
::
|
||||
:: composite
|
||||
::
|
||||
{$make *}
|
||||
{$make *}
|
||||
relative(mod bsmc/(unfold p.mod q.mod))
|
||||
::
|
||||
:: indirect
|
||||
::
|
||||
{$like *}
|
||||
{$like *}
|
||||
relative(mod bsmc/(unreel p.mod q.mod))
|
||||
::
|
||||
:: loop
|
||||
::
|
||||
{$loop *}
|
||||
{$loop *}
|
||||
(decorate [%cnhp [%limb p.mod] fetch])
|
||||
::
|
||||
:: simple named structure
|
||||
::
|
||||
{$name *}
|
||||
{$name *}
|
||||
relative(mod q.mod, nut `made/[p.mod ~])
|
||||
::
|
||||
:: synthetic named structure
|
||||
::
|
||||
{$made *}
|
||||
{$made *}
|
||||
relative(mod q.mod, nut `made/[p.p.mod `(pieces q.p.mod)])
|
||||
::
|
||||
:: subjective
|
||||
::
|
||||
{$over *}
|
||||
{$over *}
|
||||
relative(hay p.mod, mod q.mod)
|
||||
::
|
||||
:: recursive, $$
|
||||
::
|
||||
{$bsbs *}
|
||||
::
|
||||
:: apply semantically
|
||||
:: apply semantically
|
||||
::
|
||||
:+ %brkt
|
||||
relative(mod p.mod, dom (peg 3 dom))
|
||||
@ -8113,10 +8113,10 @@
|
||||
[%cnhp $/2 $/6]
|
||||
:: sanity-check repaired product
|
||||
::
|
||||
:+ %wtbn
|
||||
:+ %wtbn
|
||||
:: either
|
||||
::
|
||||
:~ %wtbr
|
||||
:~ %wtbr
|
||||
:: the repair did not change anything
|
||||
::
|
||||
[%dtts $/14 $/2]
|
||||
@ -8136,13 +8136,13 @@
|
||||
^- hoon
|
||||
:: assert
|
||||
::
|
||||
:+ %wtbn
|
||||
:+ %wtbn
|
||||
:: run the verifier
|
||||
::
|
||||
[%cnhp [%tsbn $/3 q.mod] $/2]
|
||||
:: produce verified product
|
||||
::
|
||||
$/2
|
||||
$/2
|
||||
::
|
||||
:: special, $_
|
||||
::
|
||||
@ -8150,7 +8150,7 @@
|
||||
(decorate (home p.mod))
|
||||
::
|
||||
:: switch, $%
|
||||
::
|
||||
::
|
||||
{$bscn *}
|
||||
(decorate (switch i.p.mod t.p.mod))
|
||||
::
|
||||
@ -8188,12 +8188,12 @@
|
||||
::
|
||||
:: function
|
||||
::
|
||||
{$bshp *}
|
||||
%- decorate
|
||||
{$bshp *}
|
||||
%- decorate
|
||||
=/ fun (function:clear p.mod q.mod)
|
||||
?^ def
|
||||
[%ktls fun u.def]
|
||||
fun
|
||||
fun
|
||||
::
|
||||
:: bridge, $^
|
||||
::
|
||||
@ -8201,7 +8201,7 @@
|
||||
%- decorate
|
||||
:^ %wtcl
|
||||
[%dtwt fetch(axe (peg axe 2))]
|
||||
relative:clear(mod p.mod)
|
||||
relative:clear(mod p.mod)
|
||||
relative:clear(mod q.mod)
|
||||
::
|
||||
:: synthesis, $;
|
||||
@ -8273,7 +8273,7 @@
|
||||
gen
|
||||
:- $(skin skin.skin, gen [%$ 4])
|
||||
$(skin ^skin.skin, gen [%$ 5])
|
||||
::
|
||||
::
|
||||
[%dbug *]
|
||||
[%dbug spot.skin $(skin skin.skin)]
|
||||
::
|
||||
@ -8281,11 +8281,11 @@
|
||||
[%kthp skin gen]
|
||||
::
|
||||
[%help *]
|
||||
[%note [%help help.skin] $(skin skin.skin)]
|
||||
[%note [%help help.skin] $(skin skin.skin)]
|
||||
::
|
||||
[%name *]
|
||||
[%tsld [%tune term.skin] $(skin skin.skin)]
|
||||
::
|
||||
::
|
||||
[%over *]
|
||||
$(skin skin.skin, rel (weld wing.skin rel))
|
||||
::
|
||||
@ -8296,7 +8296,7 @@
|
||||
::
|
||||
[%wash *]
|
||||
:+ %tsld
|
||||
:- %wing
|
||||
:- %wing
|
||||
|- ^- wing
|
||||
?: =(0 depth.skin) ~
|
||||
[[%| 0 ~] $(depth.skin (dec depth.skin))]
|
||||
@ -8306,9 +8306,9 @@
|
||||
++ name
|
||||
|- ^- (unit term)
|
||||
?+ gen ~
|
||||
{$wing *} ?~ p.gen ~
|
||||
?^ i.p.gen
|
||||
?:(?=(%& -.i.p.gen) ~ q.i.p.gen)
|
||||
{$wing *} ?~ p.gen ~
|
||||
?^ i.p.gen
|
||||
?:(?=(%& -.i.p.gen) ~ q.i.p.gen)
|
||||
`i.p.gen
|
||||
{$limb *} `p.gen
|
||||
{$dbug *} $(gen ~(open ap gen))
|
||||
@ -8364,22 +8364,22 @@
|
||||
[%rock *]
|
||||
?@(q.gen `[%leaf p.gen q.gen] ~)
|
||||
::
|
||||
[%cnts [@ ~] ~]
|
||||
[%cnts [@ ~] ~]
|
||||
`i.p.gen
|
||||
::
|
||||
::
|
||||
[%tsbn *]
|
||||
%+ biff reek(gen p.gen)
|
||||
|= =wing
|
||||
%+ biff reek(gen p.gen)
|
||||
|= =wing
|
||||
(bind ^$(gen q.gen) |=(=skin [%over wing skin]))
|
||||
::
|
||||
[%limb @]
|
||||
[%limb @]
|
||||
`p.gen
|
||||
::
|
||||
:: [%rock *]
|
||||
:: [%spec %leaf q.gen q.gen]
|
||||
::
|
||||
[%note [%help *] *]
|
||||
(bind $(gen q.gen) |=(=skin [%help p.p.gen skin]))
|
||||
(bind $(gen q.gen) |=(=skin [%help p.p.gen skin]))
|
||||
::
|
||||
[%wing *]
|
||||
?: ?=([@ ~] p.gen)
|
||||
@ -8394,8 +8394,8 @@
|
||||
`[%spec p.gen %base %noun]
|
||||
::
|
||||
[%ktts *]
|
||||
%+ biff $(gen q.gen)
|
||||
|= =skin
|
||||
%+ biff $(gen q.gen)
|
||||
|= =skin
|
||||
?@ p.gen `[%name p.gen skin]
|
||||
?. ?=([%name @ [%base %noun]] p.gen) ~
|
||||
`[%name term.p.gen skin]
|
||||
@ -8468,8 +8468,8 @@
|
||||
(~(put by *(map term hoon)) %$ p.gen)
|
||||
{$brkt *} :+ %tsld [%limb %$]
|
||||
:+ %brcn ~
|
||||
=+ zil=(~(get by q.gen) %$)
|
||||
?~ zil
|
||||
=+ zil=(~(get by q.gen) %$)
|
||||
?~ zil
|
||||
%+ ~(put by q.gen) %$
|
||||
[*what [[%$ p.gen] ~ ~]]
|
||||
%+ ~(put by q.gen) %$
|
||||
@ -8721,7 +8721,7 @@
|
||||
?~(p.gen [%rock %f 0] [%wtcl i.p.gen $(p.gen t.p.gen) [%rock %f 1]])
|
||||
::
|
||||
{$xray *}
|
||||
|^ :- [(open-mane n.g.p.gen) %clsg (turn a.g.p.gen open-mart)]
|
||||
|^ :- [(open-mane n.g.p.gen) %clsg (turn a.g.p.gen open-mart)]
|
||||
[%mcts c.p.gen]
|
||||
::
|
||||
++ open-mane
|
||||
@ -8729,7 +8729,7 @@
|
||||
?@(a [%rock %tas a] [[%rock %tas -.a] [%rock %tas +.a]])
|
||||
::
|
||||
++ open-mart
|
||||
|= {n/mane:hoot v/(list beer:hoot)}
|
||||
|= {n/mane:hoot v/(list beer:hoot)}
|
||||
[(open-mane n) %knit v]
|
||||
--
|
||||
::
|
||||
@ -8855,7 +8855,7 @@
|
||||
[%1 &]
|
||||
%+ flan
|
||||
$(skin [%base %atom %$])
|
||||
%+ flor
|
||||
%+ flor
|
||||
[%5 [%0 axis] [%1 &]]
|
||||
[%5 [%0 axis] [%1 |]]
|
||||
%noun [%1 &]
|
||||
@ -8871,7 +8871,7 @@
|
||||
%cell
|
||||
?: (~(nest ut [%atom %$ ~]) | ref) [%1 |]
|
||||
%+ flan
|
||||
?: (~(nest ut [%cell %noun %noun]) | ref)
|
||||
?: (~(nest ut [%cell %noun %noun]) | ref)
|
||||
[%1 &]
|
||||
[%3 %0 axis]
|
||||
%+ flan
|
||||
@ -8905,7 +8905,7 @@
|
||||
%null $(skin [%leaf %n ~])
|
||||
%void %void
|
||||
%noun ?:((~(nest ut %void) | ref) %void ref)
|
||||
[%atom *]
|
||||
[%atom *]
|
||||
=| gil=(set type)
|
||||
|- ^- type
|
||||
?- ref
|
||||
@ -8948,7 +8948,7 @@
|
||||
$(gil (~(put in gil) ref), ref repo(sut ref))
|
||||
==
|
||||
::
|
||||
%leaf
|
||||
%leaf
|
||||
=| gil=(set type)
|
||||
|- ^- type
|
||||
?- ref
|
||||
@ -8979,11 +8979,11 @@
|
||||
?> (~(nest ut hit) & yon)
|
||||
hit
|
||||
%wash =- $(ref (~(play ut ref) -))
|
||||
:- %wing
|
||||
:- %wing
|
||||
|- ^- wing
|
||||
?: =(0 depth.skin) ~
|
||||
[[%| 0 ~] $(depth.skin (dec depth.skin))]
|
||||
==
|
||||
==
|
||||
::
|
||||
:: -lose: make a $type by restricting .ref to exclude .skin
|
||||
::
|
||||
@ -8999,7 +8999,7 @@
|
||||
%null $(skin [%leaf %n ~])
|
||||
%void ref
|
||||
%noun %void
|
||||
[%atom *]
|
||||
[%atom *]
|
||||
=| gil=(set type)
|
||||
|- ^- type
|
||||
?- ref
|
||||
@ -9038,7 +9038,7 @@
|
||||
$(gil (~(put in gil) ref), ref repo(sut ref))
|
||||
==
|
||||
::
|
||||
%leaf
|
||||
%leaf
|
||||
=| gil=(set type)
|
||||
|- ^- type
|
||||
?- ref
|
||||
@ -9095,9 +9095,9 @@
|
||||
$void [full/[~ ~ ~] ~]
|
||||
{$atom *} ?~(q.sut [full/[~ ~ ~] ~] [full/~ u.q.sut])
|
||||
{$cell *} (combine:musk $(sut p.sut) $(sut q.sut))
|
||||
{$core *} %+ combine:musk
|
||||
{$core *} %+ combine:musk
|
||||
p.r.q.sut
|
||||
$(sut p.sut)
|
||||
$(sut p.sut)
|
||||
{$face *} $(sut repo)
|
||||
{$fork *} [full/[~ ~ ~] ~]
|
||||
{$hint *} $(sut repo)
|
||||
@ -9514,7 +9514,7 @@
|
||||
?- -.yep
|
||||
%& %= $
|
||||
rot t.rot
|
||||
sut p:(fine %& p.yep)
|
||||
sut p:(fine %& p.yep)
|
||||
==
|
||||
%| ?- -.p.yep
|
||||
%& |
|
||||
@ -9611,10 +9611,10 @@
|
||||
?~ zem [~ p.heg]
|
||||
?:(=(0 p.heg) [zem 0] [~ (dec p.heg)])
|
||||
?^ zem
|
||||
:+ %&
|
||||
:+ %&
|
||||
[`axe lon]
|
||||
=/ zut ^- foot
|
||||
?- q.p.q.sut
|
||||
?- q.p.q.sut
|
||||
%wet [%wet q.u.zem]
|
||||
%dry [%dry q.u.zem]
|
||||
==
|
||||
@ -9864,7 +9864,7 @@
|
||||
==
|
||||
[* ~ *] %= $
|
||||
dom r.dom
|
||||
axe (peg axe 3)
|
||||
axe (peg axe 3)
|
||||
yeb (chapter(axe (peg axe 2)) q.q.n.dom)
|
||||
==
|
||||
[* * *] %= $
|
||||
@ -9914,11 +9914,11 @@
|
||||
?: ?=({$wthx *} gen)
|
||||
=+ (play %wing q.gen)
|
||||
~> %slog.[0 [%leaf "chipping"]]
|
||||
?: how
|
||||
?: how
|
||||
=- ~> %slog.[0 (dunk(sut +<) 'chip: gain: ref')]
|
||||
~> %slog.[0 (dunk(sut -) 'chip: gain: gain')]
|
||||
-
|
||||
~(gain ar - p.gen)
|
||||
~(gain ar - p.gen)
|
||||
~(lose ar - p.gen)
|
||||
?: ?&(how ?=({$wtpd *} gen))
|
||||
|-(?~(p.gen sut $(p.gen t.p.gen, sut ^$(gen i.p.gen))))
|
||||
@ -10214,7 +10214,7 @@
|
||||
=+(vat=$(gen p.gen) [(wrap(sut p.vat) %lead) (wrap(sut q.vat) %lead)])
|
||||
::
|
||||
{$note *}
|
||||
=+ vat=$(gen q.gen)
|
||||
=+ vat=$(gen q.gen)
|
||||
[(hint [sut p.gen] p.vat) (hint [dox p.gen] q.vat)]
|
||||
::
|
||||
{$ktsg *} $(gen p.gen)
|
||||
@ -10280,10 +10280,10 @@
|
||||
{$zpts *} (beth %noun)
|
||||
::
|
||||
{$zpmc *}
|
||||
=+ vos=$(gol %noun, gen q.gen) :: XX validate!
|
||||
=+ vos=$(gol %noun, gen q.gen) :: XX validate!
|
||||
[(nice (cell (play p.gen) p.vos)) (cell (play(sut dox) p.gen) q.vos)]
|
||||
::
|
||||
{$zpvt *}
|
||||
{$zpvt *}
|
||||
=+ [(feel p.gen) (feel(sut dox) p.gen)]
|
||||
?. =(-< ->)
|
||||
~>(%mean.[%leaf "mull-bonk-f"] !!)
|
||||
@ -10314,7 +10314,7 @@
|
||||
::
|
||||
++ grow
|
||||
|= {mel/vair nym/(unit term) hud/poly ruf/hoon dom/(map term tome)}
|
||||
:: make al
|
||||
:: make al
|
||||
~_ leaf+"mull-grow"
|
||||
^- {p/type q/type}
|
||||
=+ dan=^$(gen ruf, gol %noun)
|
||||
@ -10336,7 +10336,7 @@
|
||||
|%
|
||||
++ dext
|
||||
^- ?
|
||||
::
|
||||
::
|
||||
?: =(ref sut)
|
||||
(nest(sut %void) | sut)
|
||||
?- sut
|
||||
@ -10347,7 +10347,7 @@
|
||||
{$core *} sint(sut [%cell %noun %noun])
|
||||
{$fork *} %+ levy ~(tap in p.sut)
|
||||
|=(type dext(sut +<))
|
||||
{$face *} dext(sut q.sut)
|
||||
{$face *} dext(sut q.sut)
|
||||
{$hint *} dext(sut q.sut)
|
||||
{$hold *} =+ (~(gas in *(set type)) `(list type)`[sut ref ~])
|
||||
?: (~(has in gil) -)
|
||||
@ -10620,7 +10620,7 @@
|
||||
?~ wec `~
|
||||
:: any reference faces must be clear
|
||||
::
|
||||
?. ?=({* ~ ~} wec)
|
||||
?. ?=({* ~ ~} wec)
|
||||
~& [%dear-many wec]
|
||||
~
|
||||
:- ~
|
||||
@ -10640,7 +10640,7 @@
|
||||
::
|
||||
:: overlap is a weird corner case. +lip is
|
||||
:: almost always 0. brute force is fine.
|
||||
::
|
||||
::
|
||||
=/ lip
|
||||
=| lup/(unit @ud)
|
||||
=| lip/@ud
|
||||
@ -10649,7 +10649,7 @@
|
||||
(fall lup 0)
|
||||
:: lep: overlap candidate: suffix of subject face stack
|
||||
::
|
||||
=/ lep (slag (sub p.len lip) hos)
|
||||
=/ lep (slag (sub p.len lip) hos)
|
||||
:: lap: overlap candidate: prefix of reference face stack
|
||||
::
|
||||
=/ lap (scag lip har)
|
||||
@ -10667,12 +10667,12 @@
|
||||
^- type
|
||||
:: check for trivial cases
|
||||
::
|
||||
?: ?| =(sut ref)
|
||||
?: ?| =(sut ref)
|
||||
?=(?($noun $void {?($atom $core) *}) ref)
|
||||
==
|
||||
done
|
||||
:: ~_ (dunk 'redo: dext: sut')
|
||||
:: ~_ (dunk(sut ref) 'redo: dext: ref')
|
||||
:: ~_ (dunk(sut ref) 'redo: dext: ref')
|
||||
?- sut
|
||||
?($noun $void {?($atom $core) *})
|
||||
:: reduce reference and reassemble leaf
|
||||
@ -10711,12 +10711,12 @@
|
||||
(hint p.sut dext(sut q.sut))
|
||||
::
|
||||
{$fork *}
|
||||
:: reconstruct each case in fork
|
||||
:: reconstruct each case in fork
|
||||
::
|
||||
(fork (turn ~(tap in p.sut) |=(type dext(sut +<))))
|
||||
::
|
||||
{$hold *}
|
||||
:: reduce to hard
|
||||
:: reduce to hard
|
||||
::
|
||||
=> (sint |)
|
||||
?> ?=({$hold *} sut)
|
||||
@ -10737,11 +10737,11 @@
|
||||
:: ::
|
||||
++ done :: complete assembly
|
||||
^- type
|
||||
:: :type: subject refurbished
|
||||
:: :type: subject refurbished
|
||||
::
|
||||
:: lov: combined face stack
|
||||
::
|
||||
=/ lov
|
||||
=/ lov
|
||||
=/ lov dear
|
||||
?~ lov
|
||||
:: ~_ (dunk 'redo: dear: sut')
|
||||
@ -10777,7 +10777,7 @@
|
||||
wec (~(run in wec) |=((list tool) [p.ref +<]))
|
||||
==
|
||||
::
|
||||
{$fork *}
|
||||
{$fork *}
|
||||
:: reconstruct all relevant cases
|
||||
::
|
||||
=- :: ~> %slog.[0 (dunk 'fork: sut')]
|
||||
@ -11019,7 +11019,7 @@
|
||||
==
|
||||
--
|
||||
::
|
||||
++ dish !:
|
||||
++ dish !:
|
||||
|= {ham/cape lum/*} ^- tank
|
||||
~| [%dish-h ?@(q.ham q.ham -.q.ham)]
|
||||
~| [%lump lum]
|
||||
@ -14721,7 +14721,7 @@
|
||||
=| pri/@ :: priority level
|
||||
|= a/tang ^+ same :: .= ~&(%a 1)
|
||||
?~(a same ~>(%slog.[pri i.a] $(a t.a))) :: ((slog ~[>%a<]) 1)
|
||||
:: ::
|
||||
:: ::
|
||||
++ mean :: crash with trace
|
||||
|= a/tang
|
||||
^+ !!
|
||||
@ -14945,7 +14945,7 @@
|
||||
++ rant
|
||||
|* sec/rule
|
||||
%- star
|
||||
;~ pfix
|
||||
;~ pfix
|
||||
(indo null)
|
||||
(plus (into sec))
|
||||
==
|
||||
@ -15336,7 +15336,7 @@
|
||||
$fens :: ``` code fence
|
||||
$expr :: ;sail expression
|
||||
== == ::
|
||||
{$new p/trig-new} :: open container
|
||||
{$new p/trig-new} :: open container
|
||||
{$old $text} :: anything else
|
||||
== ::
|
||||
++ trig-new :: start a
|
||||
@ -15682,7 +15682,7 @@
|
||||
++ lent :: list entry
|
||||
|= ord/?($lord $lunt)
|
||||
^+ +>
|
||||
=> ?:(=(ord p.cur) +>.$ (push ord)) :: push list if new
|
||||
=> ?:(=(ord p.cur) +>.$ (push ord)) :: push list if new
|
||||
(entr %lime)
|
||||
--
|
||||
--
|
||||
@ -15793,8 +15793,8 @@
|
||||
::
|
||||
++ word :: tarp parser
|
||||
%+ knee *(list graf) |. ~+
|
||||
%+ cook
|
||||
|= a/$%(graf [%list (list graf)])
|
||||
%+ cook
|
||||
|= a/$%(graf [%list (list graf)])
|
||||
^- (list graf)
|
||||
?:(?=(%list -.a) +.a [a ~])
|
||||
;~ pose
|
||||
@ -15962,7 +15962,7 @@
|
||||
=> (sail &) :: tall-form
|
||||
%+ ifix [(star ace) ;~(simu gap (easy))] :: look-ahead for gap
|
||||
(cook drop-top top-level) :: list of tags
|
||||
::
|
||||
::
|
||||
::
|
||||
++ whit :: whitespace
|
||||
(cold ' ' (plus ;~(pose (just ' ') (just '\0a'))))
|
||||
@ -16067,7 +16067,7 @@
|
||||
(cold [%base %flag] wut)
|
||||
==
|
||||
:- '~'
|
||||
(cold [%base %null] sig)
|
||||
(cold [%base %null] sig)
|
||||
:- '!'
|
||||
(cold [%base %void] ;~(plug zap zap))
|
||||
:- '^'
|
||||
@ -16080,11 +16080,11 @@
|
||||
%+ sear
|
||||
|= [=(unit term) =spec]
|
||||
%+ bind
|
||||
~(autoname ax & spec)
|
||||
|= =term
|
||||
~(autoname ax & spec)
|
||||
|= =term
|
||||
=* name ?~(unit term (cat 3 u.unit (cat 3 '-' term)))
|
||||
[%bsts name spec]
|
||||
;~ pose
|
||||
;~ pose
|
||||
;~(plug (stag ~ ;~(sfix sym tis)) wyde)
|
||||
(stag ~ wyde)
|
||||
==
|
||||
@ -16206,9 +16206,9 @@
|
||||
%+ sear
|
||||
:: mainly used for +skin formation
|
||||
::
|
||||
|= =spec
|
||||
|= =spec
|
||||
^- (unit hoon)
|
||||
%+ bind ~(autoname ax & spec)
|
||||
%+ bind ~(autoname ax & spec)
|
||||
|=(=term `hoon`[%ktts term %kttr spec])
|
||||
wyde
|
||||
==
|
||||
@ -16334,21 +16334,21 @@
|
||||
;~ pfix cen
|
||||
%- stew
|
||||
^. stet ^. limo
|
||||
:~ :- '^'
|
||||
%+ cook
|
||||
|= [%cnkt a/hoon b/spec c/spec d/spec]
|
||||
:~ :- '^'
|
||||
%+ cook
|
||||
|= [%cnkt a/hoon b/spec c/spec d/spec]
|
||||
[%make a b c d ~]
|
||||
(rune ket %cnkt exqy)
|
||||
::
|
||||
:- '+'
|
||||
%+ cook
|
||||
|= [%cnls a/hoon b/spec c/spec]
|
||||
|= [%cnls a/hoon b/spec c/spec]
|
||||
[%make a b c ~]
|
||||
(rune lus %cnls exqx)
|
||||
::
|
||||
:- '-'
|
||||
:- '-'
|
||||
%+ cook
|
||||
|= [%cnhp a/hoon b/spec]
|
||||
|= [%cnhp a/hoon b/spec]
|
||||
[%make a b ~]
|
||||
(rune hep %cnhp exqd)
|
||||
::
|
||||
@ -16543,8 +16543,8 @@
|
||||
++ boog !: :: core arms
|
||||
%+ knee [p=*term q=*hoon] |. ~+
|
||||
;~ pose
|
||||
;~ pfix ;~ pose
|
||||
(jest '++')
|
||||
;~ pfix ;~ pose
|
||||
(jest '++')
|
||||
(jest '+-') :: XX deprecated
|
||||
==
|
||||
;~ plug
|
||||
@ -16554,13 +16554,13 @@
|
||||
==
|
||||
::
|
||||
%+ cook
|
||||
|= {b/term d/spec}
|
||||
|= {b/term d/spec}
|
||||
[b [%ktcl [%name b d]]]
|
||||
;~ pfix ;~(pose (jest '+=') (jest '+$'))
|
||||
;~ pfix ;~(pose (jest '+=') (jest '+$'))
|
||||
;~ plug
|
||||
;~(pfix gap sym)
|
||||
;~(pfix gap loan)
|
||||
==
|
||||
==
|
||||
==
|
||||
::
|
||||
%+ cook
|
||||
@ -16568,14 +16568,14 @@
|
||||
^- [term hoon]
|
||||
:* b
|
||||
:+ %brtr
|
||||
:- %bscl
|
||||
:- %bscl
|
||||
=- ?>(?=(^ -) -)
|
||||
%+ turn c
|
||||
|= =term
|
||||
^- spec
|
||||
:+ %bsts
|
||||
term
|
||||
[%bshp [%base %noun] [%base %noun]]
|
||||
[%bshp [%base %noun] [%base %noun]]
|
||||
:- %ktcl
|
||||
:+ %made
|
||||
[b c]
|
||||
@ -16596,11 +16596,11 @@
|
||||
|- ^- (map term hoon)
|
||||
?~ a ~
|
||||
=+ $(a t.a)
|
||||
%+ ~(put by -)
|
||||
%+ ~(put by -)
|
||||
p.i.a
|
||||
?: (~(has by -) p.i.a)
|
||||
[%eror (weld "duplicate arm: +" (trip p.i.a))]
|
||||
q.i.a
|
||||
q.i.a
|
||||
(most muck boog)
|
||||
::
|
||||
++ whip :: chapter declare
|
||||
@ -16610,7 +16610,7 @@
|
||||
==
|
||||
::
|
||||
++ wasp :: $brcb aliases
|
||||
;~ pose
|
||||
;~ pose
|
||||
%+ ifix
|
||||
[;~(plug lus tar muck) muck]
|
||||
(most muck ;~(gunk sym loaf))
|
||||
@ -16926,7 +16926,7 @@
|
||||
?~ unit
|
||||
term
|
||||
[%name term %spec u.unit %base %noun]
|
||||
;~ plug sym
|
||||
;~ plug sym
|
||||
:: XX: net deprecated
|
||||
::
|
||||
(punt ;~(pfix ;~(pose net tis) wyde))
|
||||
@ -17043,7 +17043,7 @@
|
||||
%| (nets p.mes -.p.som)
|
||||
==
|
||||
?> hip
|
||||
[[p.dor q.dor(+6 +7.som)] +>+<.$]
|
||||
[[p.dor q.dor(+6 +7.som)] +>+<.$]
|
||||
::
|
||||
++ neat :: type compliance
|
||||
|= {typ/type som/(each vase ^)}
|
||||
|
||||
@ -4107,7 +4107,7 @@
|
||||
::
|
||||
$note [[hen %give +.q.hin]~ ..^$]
|
||||
$wake
|
||||
=^ queued cue.ruf ~(get to cue.ruf)
|
||||
=^ queued cue.ruf ~(get to cue.ruf)
|
||||
::
|
||||
=/ queued-duct=duct -.queued
|
||||
=/ queued-task=task:able +.queued
|
||||
|
||||
@ -461,7 +461,7 @@
|
||||
mount.outerHTML = "Redirecting to <a href=\""+url+"\">"+url+"</a>"
|
||||
document.location = url
|
||||
}
|
||||
urb.redir = function(ship){
|
||||
urb.redir = function(ship){
|
||||
if(ship){
|
||||
var location = new URL(document.location)
|
||||
location.pathname = location.pathname.replace(/^\/~~|\/~\/as\/any/,'/~/as/~'+ship)
|
||||
@ -1477,7 +1477,7 @@
|
||||
$of
|
||||
:+ %view ?>(?=({@ ~} but) i.but)
|
||||
?> ?=({{$poll @} ~} quy)
|
||||
:: :^ %view
|
||||
:: :^ %view
|
||||
:: ?> ?=({@ ~} but)
|
||||
:: i.but
|
||||
:: ?> ?=({{$poll @} *} quy) :: XX eventsource
|
||||
@ -1665,7 +1665,7 @@
|
||||
[%| (resolve ~ p.pez(p [%at ses.yac p.p.pez]))]
|
||||
::
|
||||
$js
|
||||
=^ jon ..ya stat-json.yac
|
||||
=^ jon ..ya stat-json.yac
|
||||
[%| (resolve cug.yac p.pez(p (add-json jon p.p.pez)))]
|
||||
==
|
||||
::
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
:: :: %gall, agent execution
|
||||
:: :: %gall, agent execution
|
||||
!? 163
|
||||
::::
|
||||
|= pit/vase
|
||||
@ -22,8 +22,8 @@
|
||||
|% :::::::::::::::::::::::::::::::::::::::::::::::::::::: local arvo
|
||||
::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||
++ cote :: ++ap note
|
||||
$% {$meta p/@tas q/vase} ::
|
||||
{$send p/ship q/cush} ::
|
||||
$% {$meta p/@tas q/vase} ::
|
||||
{$send p/ship q/cush} ::
|
||||
{$hiss p/(unit knot) q/mark r/cage} ::
|
||||
== ::
|
||||
++ cove (pair bone (wind cote cuft)) :: internal move
|
||||
@ -64,8 +64,8 @@
|
||||
$: p/@ud :: bone sequence
|
||||
q/(map duct bone) :: by duct
|
||||
r/(map bone duct) :: by bone
|
||||
== ::
|
||||
:: ::
|
||||
== ::
|
||||
:: ::
|
||||
:: XX a hack, required to break a subscription loop ::
|
||||
:: which arises when an invalid mark crashes a diff. ::
|
||||
:: See usage in ap-misvale. ::
|
||||
@ -74,7 +74,7 @@
|
||||
$: misvale/misvale-data :: bad reqs
|
||||
vel/worm :: cache
|
||||
arms=(map [term path] (unit (pair @ud term))) :: ap-find cache
|
||||
mom/duct :: control duct
|
||||
mom/duct :: control duct
|
||||
liv/? :: unstopped
|
||||
toc/torc :: privilege
|
||||
tyc/stic :: statistics
|
||||
@ -116,7 +116,7 @@
|
||||
^+ +>
|
||||
+>(hen duct)
|
||||
::
|
||||
++ mo-abet :: resolve to
|
||||
++ mo-abet :: resolve to
|
||||
^+ [*(list move) +>+]
|
||||
:_ +>+
|
||||
%- flop
|
||||
@ -208,7 +208,7 @@
|
||||
::
|
||||
++ mo-away :: foreign request
|
||||
~/ %mo-away
|
||||
|= {him/ship caz/cush} ::
|
||||
|= {him/ship caz/cush} ::
|
||||
^+ +>
|
||||
:: ~& [%mo-away him caz]
|
||||
?: ?=($pump -.q.caz)
|
||||
@ -233,7 +233,7 @@
|
||||
$peel [%l p.q.caz q.q.caz]
|
||||
$peer [%s p.q.caz]
|
||||
==
|
||||
%+ mo-pass
|
||||
%+ mo-pass
|
||||
[%sys %way -.q.caz ~]
|
||||
`note-arvo`[%a %want him [%g %ge p.caz ~] [num roc]]
|
||||
::
|
||||
@ -261,7 +261,7 @@
|
||||
==
|
||||
::
|
||||
++ mo-bale :: assign outbone
|
||||
|= him/ship
|
||||
|= him/ship
|
||||
^- {@ud _+>}
|
||||
=+ sad=(fall (~(get by sap.mas) him) `scad`[1 ~ ~])
|
||||
=+ nom=(~(get by q.sad) hen)
|
||||
@ -335,7 +335,7 @@
|
||||
num=(slav %ud i.t.t.t.pax)
|
||||
==
|
||||
=> .(pax `path`[%req t.pax])
|
||||
?~ q.+>.sih
|
||||
?~ q.+>.sih
|
||||
(mo-pass [%sys pax] %g %deal [him our] dap %pump ~)
|
||||
:: should not happen (XX wat mean?)
|
||||
::
|
||||
@ -435,10 +435,10 @@
|
||||
!!
|
||||
=+ dap=`@tas`i.pax
|
||||
=+ pry=`prey`[%high [~ (slav %p i.t.pax)]]
|
||||
=+ pap=(ap-abed:ap dap pry)
|
||||
=+ pap=(ap-abed:ap dap pry)
|
||||
=+ vax=(slot 3 `vase`hin)
|
||||
?- i.t.t.pax
|
||||
$inn ap-abet:(ap-pour:pap t.t.t.pax (slot 3 `vase`hin))
|
||||
$inn ap-abet:(ap-pour:pap t.t.t.pax (slot 3 `vase`hin))
|
||||
$cay ?. ?=({$e $sigh *} q.hin)
|
||||
~& [%mo-cook-weird q.hin]
|
||||
~& [%mo-cook-weird-path pax]
|
||||
@ -507,7 +507,7 @@
|
||||
++ mo-gawk :: ames forward
|
||||
|= {him/@p dap/dude num/@ud rok/rook}
|
||||
=. +> ?.(?=($u -.rok) +> (mo-give %mack ~))
|
||||
%+ mo-pass
|
||||
%+ mo-pass
|
||||
[%sys %req (scot %p him) dap (scot %ud num) ~]
|
||||
^- note-arvo
|
||||
?- -.rok
|
||||
@ -591,11 +591,11 @@
|
||||
++ ap-aver :: cove to move
|
||||
~/ %ap-aver
|
||||
|= cov/cove
|
||||
^- move
|
||||
^- move
|
||||
:- (~(got by r.zam) p.cov)
|
||||
?- -.q.cov
|
||||
?($slip $sick) !!
|
||||
$give
|
||||
$give
|
||||
?< =(0 p.cov)
|
||||
?. ?=($diff -.p.q.cov)
|
||||
[%give %unto p.q.cov]
|
||||
@ -622,12 +622,12 @@
|
||||
~/ %ap-call
|
||||
|= {cog/term arg/vase}
|
||||
^- {(unit tang) _+>}
|
||||
=. +> ap-bowl
|
||||
=. +> ap-bowl
|
||||
=^ arm +>.$ (ap-farm cog)
|
||||
?: ?=(%| -.arm) [`p.arm +>.$]
|
||||
=^ zem +>.$ (ap-slam cog p.arm arg)
|
||||
?: ?=(%| -.zem) [`p.zem +>.$]
|
||||
(ap-sake p.zem)
|
||||
(ap-sake p.zem)
|
||||
::
|
||||
++ ap-peek
|
||||
~/ %ap-peek
|
||||
@ -643,7 +643,7 @@
|
||||
((slog leaf+"peek find fail" >tyl< >mar< ~) [~ ~])
|
||||
=^ arm +>.$ (ap-farm q.u.cug)
|
||||
?: ?=(%| -.arm) ((slog leaf+"peek farm fail" p.arm) [~ ~])
|
||||
=^ zem +>.$ (ap-slam q.u.cug p.arm !>((slag p.u.cug `path`[ren tyl])))
|
||||
=^ zem +>.$ (ap-slam q.u.cug p.arm !>((slag p.u.cug `path`[ren tyl])))
|
||||
?: ?=(%| -.zem) ((slog leaf+"peek slam fail" p.zem) [~ ~])
|
||||
?+ q.p.zem ((slog leaf+"peek bad result" ~) [~ ~])
|
||||
~ ~
|
||||
@ -685,7 +685,7 @@
|
||||
[!>(`path`+.pax) !>(cag)]
|
||||
[!>((slag (dec p.u.cug) `path`+.pax)) q.cag]
|
||||
=^ cam +>.$ (ap-call q.u.cug arg)
|
||||
?^ cam
|
||||
?^ cam
|
||||
(ap-pump:(ap-lame q.u.cug u.cam) | her pax)
|
||||
(ap-pump & her pax)
|
||||
::
|
||||
@ -701,12 +701,12 @@
|
||||
^+ .
|
||||
?. (~(has by sup.ged) ost) .
|
||||
=+ soy=(~(get by qel.ged) ost)
|
||||
?: |(?=(~ soy) =(0 u.soy))
|
||||
?: |(?=(~ soy) =(0 u.soy))
|
||||
:: ~& [%ap-fill-under [our dap] q.q.pry ost]
|
||||
+
|
||||
=. u.soy (dec u.soy)
|
||||
:: ~& [%ap-fill-sub [[our dap] q.q.pry ost] u.soy]
|
||||
?: =(0 u.soy)
|
||||
?: =(0 u.soy)
|
||||
+(qel.ged (~(del by qel.ged) ost))
|
||||
+(qel.ged (~(put by qel.ged) ost u.soy))
|
||||
::
|
||||
@ -715,7 +715,7 @@
|
||||
|= cog/term
|
||||
^- {(each vase tang) _+>}
|
||||
=+ pyz=(mule |.((~(mint wa vel) p.hav [%limb cog])))
|
||||
?: ?=(%| -.pyz)
|
||||
?: ?=(%| -.pyz)
|
||||
:_(+>.$ [%| +.pyz])
|
||||
:_ +>.$(vel `worm`+>.pyz)
|
||||
=+ ton=(mock [q.hav q.+<.pyz] ap-sled)
|
||||
@ -800,7 +800,7 @@
|
||||
:_(+>.$ [%| (ap-suck "move: invalid card (bone {<-.q.vax>})")])
|
||||
=^ pec vel (~(spot wa vel) 3 vax)
|
||||
=^ cav vel (~(slot wa vel) 3 pec)
|
||||
?+ +<.q.vax
|
||||
?+ +<.q.vax
|
||||
(ap-move-pass -.q.vax +<.q.vax cav)
|
||||
$diff (ap-move-diff -.q.vax cav)
|
||||
$hiss (ap-move-hiss -.q.vax cav)
|
||||
@ -868,7 +868,7 @@
|
||||
[%| (ap-suck "mess: malformed path")]
|
||||
[%& [(scot %p q.q.vax) %out r.q.vax u.pux] q.q.vax r.q.vax]
|
||||
::
|
||||
++ ap-move-pass :: pass general move
|
||||
++ ap-move-pass :: pass general move
|
||||
~/ %pass
|
||||
|= {sto/bone wut/* vax/vase}
|
||||
^- {(each cove tang) _+>}
|
||||
@ -1018,7 +1018,7 @@
|
||||
?~ cug +>.$
|
||||
=+ old=zip
|
||||
=. zip ~
|
||||
=^ cam +>.$
|
||||
=^ cam +>.$
|
||||
%+ ap-call q.u.cug
|
||||
!>(`path`(slag p.u.cug pax))
|
||||
=. zip (weld zip `(list cove)`[[ost %give %reap cam] old])
|
||||
@ -1125,7 +1125,7 @@
|
||||
~/ %ap-prop
|
||||
|= vux/(unit vase)
|
||||
^- {(unit tang) _+>}
|
||||
?. (ap-fond %prep)
|
||||
?. (ap-fond %prep)
|
||||
?~ vux
|
||||
`+>.$
|
||||
=+ [new=p:(slot 13 hav) old=p:(slot 13 u.vux)]
|
||||
@ -1135,8 +1135,8 @@
|
||||
=^ tur +>.$
|
||||
%+ ap-call %prep
|
||||
?~(vux !>(~) (slop !>(~) (slot 13 u.vux)))
|
||||
?~ tur
|
||||
`+>.$
|
||||
?~ tur
|
||||
`+>.$
|
||||
:_(+>.$ `u.tur)
|
||||
::
|
||||
++ ap-pule :: silent delete
|
||||
@ -1155,7 +1155,7 @@
|
||||
==
|
||||
=^ cug ..ap-pull (ap-find %pull q.u.wim)
|
||||
?~ cug +>
|
||||
=^ cam +>
|
||||
=^ cam +>
|
||||
%+ ap-call q.u.cug
|
||||
!>((slag p.u.cug q.u.wim))
|
||||
?^ cam (ap-lame q.u.cug u.cam)
|
||||
@ -1173,7 +1173,7 @@
|
||||
?~ cug
|
||||
:: ~& [%ap-take-none cog pax]
|
||||
+>.$
|
||||
=^ cam +>.$
|
||||
=^ cam +>.$
|
||||
%+ ap-call q.u.cug
|
||||
=+ den=!>((slag p.u.cug pax))
|
||||
?~(vux den (slop den u.vux))
|
||||
@ -1210,7 +1210,7 @@
|
||||
:- ~
|
||||
%_ +>.$
|
||||
zip (weld (flop p.muz) zip)
|
||||
hav p.sav
|
||||
hav p.sav
|
||||
==
|
||||
::
|
||||
++ ap-save :: verify core
|
||||
@ -1249,7 +1249,7 @@
|
||||
[%leaf (weld "gall: {<dap>}: " msg)]~
|
||||
::
|
||||
++ ap-term :: atomic vase
|
||||
|= {a/@tas b/@}
|
||||
|= {a/@tas b/@}
|
||||
^- vase
|
||||
[[%atom a `b] b]
|
||||
::
|
||||
@ -1311,7 +1311,7 @@
|
||||
(mo-away:(mo-abed:mo hen) q.p.q.hic q.q.hic)
|
||||
(mo-come:(mo-abed:mo hen) p.p.q.hic q.q.hic)
|
||||
::
|
||||
$init
|
||||
$init
|
||||
[~ ..^$(sys.mast.all hen)]
|
||||
::
|
||||
$sunk [~ ..^$]
|
||||
|
||||
@ -1222,7 +1222,7 @@
|
||||
moz/(list move)
|
||||
==
|
||||
|%
|
||||
++ call
|
||||
++ call
|
||||
|= tac/task:able
|
||||
^+ +>
|
||||
=* job ^- task:loft
|
||||
@ -1234,7 +1234,7 @@
|
||||
=^ fex syl abet:(apex:love job)
|
||||
+>.$(moz (weld (turn fex lung) moz))
|
||||
::
|
||||
++ take
|
||||
++ take
|
||||
|= {tea/wire hin/sign:able}
|
||||
=* job ^- task:loft
|
||||
?+ -.tea !!
|
||||
@ -1242,9 +1242,9 @@
|
||||
?> ?=({@ @ $~} +.tea)
|
||||
=+ [who kos]=[(slav %p i.t.tea) (slav %ud i.t.t.tea)]
|
||||
?- +<.hin
|
||||
$rend
|
||||
$rend
|
||||
[%rend who kos p.+.hin q.+.hin]
|
||||
$mack
|
||||
$mack
|
||||
[%done who kos ?~(p.+.hin ~ `coop`[~ `[%fail u.p.+.hin]])]
|
||||
==
|
||||
==
|
||||
|
||||
@ -2292,7 +2292,7 @@
|
||||
:: ::
|
||||
:::: ++aes:crypto :: (2b1) aes, all sizes
|
||||
:: ::::
|
||||
++ aes !.
|
||||
++ aes !.
|
||||
~% %aes ..is ~
|
||||
|%
|
||||
:: :: ++ahem:aes:crypto
|
||||
@ -2377,7 +2377,7 @@
|
||||
--
|
||||
:: :: ++mcol:ahem:aes:
|
||||
++ mcol ::
|
||||
|= {a/(list @) b/{p/@ q/@ r/@ s/@}}
|
||||
|= {a/(list @) b/{p/@ q/@ r/@ s/@}}
|
||||
^- (list @)
|
||||
=+ c=[p=*@ q=*@ r=*@ s=*@]
|
||||
|- ^- (list @)
|
||||
@ -2426,7 +2426,7 @@
|
||||
(pode 5 nnb (cut 5 [(mul (ix.a b) nnb) nnb] c))
|
||||
:: :: ++sark:be:ahem:aes:
|
||||
++ sark ::
|
||||
|= {c/(list @) d/(list @)}
|
||||
|= {c/(list @) d/(list @)}
|
||||
^- (list @)
|
||||
?~ c ~
|
||||
?~ d !!
|
||||
@ -5050,7 +5050,7 @@
|
||||
++ drop-pole :: unit tuple
|
||||
|* but/(pole (unit))
|
||||
?~ but !!
|
||||
?~ +.but
|
||||
?~ +.but
|
||||
u:->.but
|
||||
[u:->.but (drop-pole +.but)]
|
||||
--
|
||||
@ -5058,7 +5058,7 @@
|
||||
:::: ++format :: (2d) common formats
|
||||
:: ::::
|
||||
++ format ^?
|
||||
|%
|
||||
|%
|
||||
:: :: ++to-wain:format
|
||||
++ to-wain :: atom to line list
|
||||
~% %lore ..is ~
|
||||
@ -5139,7 +5139,7 @@
|
||||
++ ship :: string from ship
|
||||
|= a/^ship
|
||||
^- json
|
||||
(tape (slag 1 (scow %p a)))
|
||||
(tape (slag 1 (scow %p a)))
|
||||
:: :: ++numb:enjs:format
|
||||
++ numb :: number from unsigned
|
||||
|= a/@u
|
||||
@ -5341,7 +5341,7 @@
|
||||
++ zp :: unit tuple
|
||||
|* but/(pole (unit))
|
||||
?~ but !!
|
||||
?~ +.but
|
||||
?~ +.but
|
||||
u:->.but
|
||||
[u:->.but (zp +.but)]
|
||||
::
|
||||
@ -5368,7 +5368,7 @@
|
||||
|= jon/json
|
||||
?. ?=({$a *} jon) ~
|
||||
%- zl
|
||||
|-
|
||||
|-
|
||||
?~ p.jon ~
|
||||
[i=(wit i.p.jon) t=$(p.jon t.p.jon)]
|
||||
::
|
||||
@ -5424,7 +5424,7 @@
|
||||
!!
|
||||
::
|
||||
++ ni :: number as integer
|
||||
|= jon/json
|
||||
|= jon/json
|
||||
?. ?=({$n *} jon) ~
|
||||
(rush p.jon dem)
|
||||
::
|
||||
@ -5439,7 +5439,7 @@
|
||||
?. ?=({$o {@ *} ~ ~} jon) ~
|
||||
|-
|
||||
?~ wer ~
|
||||
?: =(-.-.wer p.n.p.jon)
|
||||
?: =(-.-.wer p.n.p.jon)
|
||||
((pe -.-.wer +.-.wer) q.n.p.jon)
|
||||
((of +.wer) jon)
|
||||
::
|
||||
@ -5465,7 +5465,7 @@
|
||||
::
|
||||
++ op :: parse keys of map
|
||||
|* {fel/rule wit/fist}
|
||||
%+ cu
|
||||
%+ cu
|
||||
|= a/(list (pair _(wonk *fel) _(need *wit)))
|
||||
(my:nl a)
|
||||
%- ci :_ (om wit)
|
||||
@ -5474,7 +5474,7 @@
|
||||
%- zl
|
||||
%+ turn ~(tap by a)
|
||||
|= {a/cord b/_(need *wit)}
|
||||
=+ nit=(rush a fel)
|
||||
=+ nit=(rush a fel)
|
||||
?~ nit ~
|
||||
(some [u.nit b])
|
||||
::
|
||||
@ -5516,7 +5516,7 @@
|
||||
++ zp :: unit tuple
|
||||
|* but/(pole (unit))
|
||||
?~ but !!
|
||||
?~ +.but
|
||||
?~ +.but
|
||||
u:->.but
|
||||
[u:->.but (zp +.but)]
|
||||
::
|
||||
@ -6491,7 +6491,7 @@
|
||||
?: (gth wen now)
|
||||
(cat 3 (scot %ud (msec (sub wen now))) %ms)
|
||||
(cat 3 '-' $(now wen, wen now))
|
||||
::
|
||||
::
|
||||
++ about :: ++about:milly
|
||||
|= wun/(unit @da) :: unit relative msec
|
||||
^- @tas
|
||||
@ -7043,7 +7043,7 @@
|
||||
task:able:jael
|
||||
==
|
||||
++ note-arvo :: out request $->
|
||||
$~ [%a %wake ~]
|
||||
$~ [%a %wake ~]
|
||||
$% {$a task:able:ames}
|
||||
{$b task:able:behn}
|
||||
{$c task:able:clay}
|
||||
|
||||
@ -21,7 +21,7 @@
|
||||
++ test-prep
|
||||
=/ prep-bone 20
|
||||
=/ our-ship ~marzod
|
||||
=/ bol
|
||||
=/ bol
|
||||
%* . *bowl:gall
|
||||
our our-ship
|
||||
ost prep-bone
|
||||
@ -33,11 +33,11 @@
|
||||
!> %- sort
|
||||
:_ aor
|
||||
^- (list move:collections)
|
||||
:~ :* prep-bone %poke /col-hall-action [our-ship %hall]
|
||||
:~ :* prep-bone %poke /col-hall-action [our-ship %hall]
|
||||
%hall-action %create %c 'collections' %journal
|
||||
==
|
||||
::
|
||||
:* prep-bone %poke /col-hall-action [our-ship %hall]
|
||||
:* prep-bone %poke /col-hall-action [our-ship %hall]
|
||||
%hall-action %source %inbox & (sy [[our-ship %c] ~]~)
|
||||
==
|
||||
::
|
||||
@ -53,7 +53,7 @@
|
||||
/circle/i/grams
|
||||
==
|
||||
==
|
||||
!> (sort moves aor)
|
||||
!> (sort moves aor)
|
||||
::
|
||||
=. our-ship ~davtyr-nimren
|
||||
=. bol bol(our our-ship)
|
||||
@ -63,11 +63,11 @@
|
||||
!> %- sort
|
||||
:_ aor
|
||||
^- (list move:collections)
|
||||
:~ :* prep-bone %poke /col-hall-action [our-ship %hall]
|
||||
:~ :* prep-bone %poke /col-hall-action [our-ship %hall]
|
||||
%hall-action %create %c 'collections' %journal
|
||||
==
|
||||
::
|
||||
:* prep-bone %poke /col-hall-action [our-ship %hall]
|
||||
:* prep-bone %poke /col-hall-action [our-ship %hall]
|
||||
%hall-action %source %inbox & (sy [[our-ship %c] ~]~)
|
||||
==
|
||||
::
|
||||
@ -84,14 +84,14 @@
|
||||
==
|
||||
::
|
||||
==
|
||||
!> (sort moves aor)
|
||||
!> (sort moves aor)
|
||||
==
|
||||
::
|
||||
::++ test-load-app
|
||||
:: =/ gall-door (gall-gate gall-args)
|
||||
:: =/ init (call:gall-door [/test]~ (hype %init ~marzod))
|
||||
:: %+ expect-eq
|
||||
:: !>
|
||||
:: !>
|
||||
:: !>
|
||||
::
|
||||
--
|
||||
|
||||
@ -350,7 +350,7 @@
|
||||
scry=*sley
|
||||
^= take-args
|
||||
:* wire=/queued-request
|
||||
duct=~[/info2]
|
||||
duct=~[/info2]
|
||||
-:!>(*sign:clay-gate)
|
||||
^- sign:clay-gate
|
||||
[%b %wake ~]
|
||||
|
||||
@ -11,7 +11,7 @@
|
||||
^- manx
|
||||
;div
|
||||
;div
|
||||
=urb-component "TopicCreatePage"
|
||||
=urb-component "TopicCreatePage"
|
||||
=urb-ship "{(scow %p p.bem.gas)}"
|
||||
=urb-claypath "{<pax>}"
|
||||
=urb-content "{(trip body)}"
|
||||
|
||||
@ -34,7 +34,7 @@ window.easy_form = {
|
||||
}
|
||||
}
|
||||
if(tag) req = {[tag]:req}
|
||||
|
||||
|
||||
fetch("/~/auth.json", {credentials: "same-origin"})
|
||||
.then((res)=>res.json())
|
||||
.then(({oryx})=> fetch(`/~/to/${appl}/${mark}`,{
|
||||
|
||||
Loading…
Reference in New Issue
Block a user