ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 15:38:59 +03:00
Code Issues Packages Projects Releases Wiki Activity
6937846e2a
urbit/sys/hoon.hoon

11244 lines
351 KiB
Plaintext
Raw Normal View History

Complete decoration system.
2017-04-05 03:33:20 +03:00
:: ::
New metal boot system.
2016-11-24 07:25:07 +03:00
:::: /sys/hoon ::
:: ::
Working test boot sequence.
2016-11-25 22:32:48 +03:00
~> %slog.[0 leaf+"hoon-assembly"]
New metal boot system.
2016-11-24 07:25:07 +03:00
=< ride
Neutral 143.
2017-09-16 00:40:24 +03:00
=> %143 =>
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::
:::: 0: version stub ::
:: ::
Neutral 143.
2017-09-16 00:40:24 +03:00
~% %k.143 ~ ~ ::
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Neutral 143.
2017-09-16 00:40:24 +03:00
++ foo 0
New metal boot system.
2016-11-24 07:25:07 +03:00
++ hoon +
-- =>
:: ::
:::: 1: layer one ::
:: ::
:: 1a: basic arithmetic ::
:: 1b: tree addressing ::
:: 1c: molds and mold builders ::
::
~% %one + ~
|%
Neutral 143.
2017-09-16 00:40:24 +03:00
++ foo 0
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::
:::: 1a: unsigned arithmetic ::
::
++ add :: unsigned addition
~/ %add
|= {a/@ b/@}
^- @
?: =(0 a) b
$(a (dec a), b +(b))
::
++ dec :: unsigned decrement
~/ %dec
|= a/@
~_ leaf+"decrement-underflow"
?< =(0 a)
=+ b=0
|- ^- @
?: =(a +(b)) b
$(b +(b))
::
++ div :: unsigned divide
~/ %div
=+ [a=`@`1 b=`@`1]
|.
^- @
~_ leaf+"divide-by-zero"
?< =(0 b)
=+ c=0
|-
?: (lth a b) c
$(a (sub a b), c +(c))
::
++ dvr :: divide w/remainder
~/ %dvr
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@ b/@}
New metal boot system.
2016-11-24 07:25:07 +03:00
^- {p/@ q/@}
[(div a b) (mod a b)]
::
++ gte :: unsigned greater/eq
~/ %gte
|= {a/@ b/@}
^- ?
!(lth a b)
::
++ gth :: unsigned greater
~/ %gth
|= {a/@ b/@}
^- ?
!(lte a b)
::
++ lte :: unsigned less/eq
~/ %lte
|= {a/@ b/@}
|(=(a b) (lth a b))
::
++ lth :: unsigned less
~/ %lth
|= {a/@ b/@}
^- ?
?& !=(a b)
|-
?| =(0 a)
?& !=(0 b)
$(a (dec a), b (dec b))
== == ==
::
++ max :: unsigned maximum
~/ %max
|= {a/@ b/@}
^- @
?: (gth a b) a
b
::
++ min :: unsigned minimum
~/ %min
|= {a/@ b/@}
^- @
?: (lth a b) a
b
::
++ mod :: unsigned modulus
~/ %mod
|: [a=`@`1 b=`@`1]
^- @
?< =(0 b)
(sub a (mul b (div a b)))
::
++ mul :: unsigned multiply
~/ %mul
|: [a=`@`1 b=`@`1]
^- @
=+ c=0
|-
?: =(0 a) c
$(a (dec a), c (add b c))
::
++ sub :: subtract
~/ %sub
|= {a/@ b/@}
~_ leaf+"subtract-underflow"
^- @
?: =(0 b) a
$(a (dec a), b (dec b))
:: ::
:::: 1b: tree addressing ::
:: ::
:: cap, mas, peg ::
::
++ cap :: fragment head
~/ %cap
|= a/@
^- ?($2 $3)
?- a
$2 %2
$3 %3
?($0 $1) !!
* $(a (div a 2))
==
::
++ mas :: fragment body
~/ %mas
|= a/@
^- @
?- a
$1 !!
$2 1
$3 1
* (add (mod a 2) (mul $(a (div a 2)) 2))
==
::
++ peg :: fragment compose
~/ %peg
|= {a/@ b/@}
?< =(0 a)
^- @
?- b
$1 a
$2 (mul a 2)
$3 +((mul a 2))
* (add (mod b 2) (mul $(b (div b 2)) 2))
==
:: ::
:::: 1c: ideal containers ::
:: ::
::
++ ache |*({a/mold b/mold} $%({$| p/b} {$& p/a})) :: a or b, b default
++ bloq @ :: bitblock, eg 3=byte
++ each |*({a/mold b/mold} $%({$& p/a} {$| p/b})) :: a or b, a default
++ gate $-(* *) :: generic mold
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
++ list |*(a/mold $@($~ {i/a t/(list a)})) :: nullterminated list
New metal boot system.
2016-11-24 07:25:07 +03:00
++ lone |*(a/mold p/a) :: 1-tuple
++ mold gate :: normalizing gate
++ pair |*({a/mold b/mold} {p/a q/b}) :: 2-tuple
++ pole |*(a/mold $@($~ {a (pole a)})) :: faceless list
++ qual |* {a/mold b/mold c/mold d/mold} :: 4-tuple
{p/a q/b r/c s/d} ::
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
++ quip |*({a/mold b/mold} {(list a) b}) :: list-with for sip
New metal boot system.
2016-11-24 07:25:07 +03:00
++ trap |*(a/mold _|?(*a)) :: producer
++ tree |*(a/mold $@($~ {n/a l/(tree a) r/(tree a)})) :: binary tree
++ trel |*({a/mold b/mold c/mold} {p/a q/b r/c}) :: 3-tuple
++ unit |*(a/mold $@($~ {$~ u/a})) :: maybe
-- =>
:: ::
:::: 2: layer two ::
:: ::
:: 2a: unit logic ::
:: 2b: list logic ::
:: 2c: bit arithmetic ::
:: 2d: bit logic ::
:: 2e: insecure hashing ::
:: 2f: noun ordering ::
:: 2g: unsigned powers ::
:: 2h: set logic ::
:: 2i: map logic ::
:: 2j: jar and jug logic ::
:: 2k: queue logic ::
:: 2l: container from container ::
:: 2m: container from noun ::
:: 2n: functional hacks ::
:: 2o: normalizing containers ::
:: 2p: serialization ::
:: 2q: molds and mold builders ::
::
~% %two + ~
|%
Neutral 143.
2017-09-16 00:40:24 +03:00
++ foo 0
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::
:::: 2a: unit logic ::
:: ::
:: biff, bind, bond, both, clap, drop, ::
:: fall, flit, lift, mate, need, some ::
::
++ biff :: apply
|* {a/(unit) b/$-(* (unit))}
?~ a ~
(b u.a)
::
++ bind :: argue
%xmas compiles and integrates with %jael.
2016-12-05 00:58:21 +03:00
|* {a/(unit) b/$-(* *)}
New metal boot system.
2016-11-24 07:25:07 +03:00
?~ a ~
[~ u=(b u.a)]
::
++ bond :: replace
|* a/(trap)
|* b/(unit)
?~ b $:a
u.b
::
++ both :: all the above
|* {a/(unit) b/(unit)}
?~ a ~
?~ b ~
[~ u=[u.a u.b]]
::
++ clap :: combine
|* {a/(unit) b/(unit) c/_|=(^ +<-)}
?~ a b
?~ b a
[~ u=(c u.a u.b)]
::
++ drop :: enlist
|* a/(unit)
?~ a ~
[i=u.a t=~]
::
++ fall :: default
|* {a/(unit) b/*}
?~(a b u.a)
::
++ flit :: make filter
|* a/$-(* ?)
|* b/*
?.((a b) ~ [~ u=b])
::
Generalize ++hunt and move it to hoon.hoon.
2016-12-02 22:30:02 +03:00
++ hunt :: first of units
|* {ord/$-({* *} ?) one/(unit) two/(unit)}
^- (unit ?(_,.+.one _,.+.two))
?~ one two
?~ two one
?:((ord ,.+.one ,.+.two) one two)
::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ lift :: lift mold (fmap)
|* a/mold :: flipped
|* b/(unit) :: curried
(bind b a) :: bind
::
++ mate :: choose
|* {a/(unit) b/(unit)}
?~ b a
?~ a b
?.(=(u.a u.b) ~>(%mean.[%leaf "mate"] !!) a)
::
++ need :: demand
|* a/(unit)
?~ a ~>(%mean.[%leaf "need"] !!)
u.a
::
++ some :: lift (pure)
|* a/*
[~ u=a]
::
:::: 2b: list logic ::
:: ::
:: ::
::
++ fand :: all indices
~/ %fand
|= {nedl/(list) hstk/(list)}
=| i/@ud
=| fnd/(list @ud)
|- ^+ fnd
=+ [n=nedl h=hstk]
|-
?: |(?=($~ n) ?=($~ h))
(flop fnd)
?: =(i.n i.h)
?~ t.n
^$(i +(i), hstk +.hstk, fnd [i fnd])
$(n t.n, h t.h)
^$(i +(i), hstk +.hstk)
::
++ find :: first index
~/ %find
|= {nedl/(list) hstk/(list)}
=| i/@ud
|- ^- (unit @ud)
=+ [n=nedl h=hstk]
|-
?: |(?=($~ n) ?=($~ h))
~
?: =(i.n i.h)
?~ t.n
`i
$(n t.n, h t.h)
^$(i +(i), hstk +.hstk)
::
++ flop :: reverse
~/ %flop
|* a/(list)
=> .(a (homo a))
^+ a
=+ b=`_a`~
|-
?~ a b
$(a t.a, b [i.a b])
::
++ gulf :: range inclusive
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@ b/@}
New metal boot system.
2016-11-24 07:25:07 +03:00
^- (list @)
?:(=(a +(b)) ~ [a $(a +(a))])
::
++ homo :: homogenize
|* a/(list)
^+ =< $
|% +- $ ?:(*? ~ [i=(snag 0 a) t=$])
--
a
::
++ lent :: length
~/ %lent
|= a/(list)
^- @
=+ b=0
|-
?~ a b
$(a t.a, b +(b))
::
++ levy
~/ %levy :: all of
|* {a/(list) b/$-(* ?)}
|- ^- ?
?~ a &
?. (b i.a) |
$(a t.a)
::
++ lien :: some of
~/ %lien
|* {a/(list) b/$-(* ?)}
|- ^- ?
?~ a |
?: (b i.a) &
$(a t.a)
::
++ limo :: listify
|* a/*
^+ =< $
|% +- $ ?~(a ~ ?:(*? [i=-.a t=$] $(a +.a)))
--
a
::
++ murn :: maybe transform
~/ %murn
|* {a/(list) b/$-(* (unit))}
|-
?~ a ~
=+ c=(b i.a)
?~ c
$(a t.a)
[i=u.c t=$(a t.a)]
::
++ oust :: remove
~/ %oust
|* {{a/@ b/@} c/(list)}
(weld (scag a c) (slag (add a b) c))
::
++ reap :: replicate
~/ %reap
|* {a/@ b/*}
|- ^- (list _b)
?~ a ~
[b $(a (dec a))]
::
++ reel :: right fold
~/ %reel
|* {a/(list) b/_|=({* *} +<+)}
|- ^+ ,.+<+.b
?~ a
+<+.b
(b i.a $(a t.a))
::
++ roll :: left fold
~/ %roll
|* {a/(list) b/_|=({* *} +<+)}
|- ^+ ,.+<+.b
?~ a
+<+.b
$(a t.a, b b(+<+ (b i.a +<+.b)))
::
++ scag :: prefix
~/ %scag
|* {a/@ b/(list)}
|- ^+ b
?: |(?=($~ b) =(0 a)) ~
[i.b $(b t.b, a (dec a))]
::
++ skid :: separate
~/ %skid
|* {a/(list) b/$-(* ?)}
|- ^+ [p=a q=a]
?~ a [~ ~]
=+ c=$(a t.a)
?:((b i.a) [[i.a p.c] q.c] [p.c [i.a q.c]])
::
++ skim :: only
~/ %skim
|* {a/(list) b/$-(* ?)}
|-
^+ a
?~ a ~
?:((b i.a) [i.a $(a t.a)] $(a t.a))
::
++ skip :: except
~/ %skip
|* {a/(list) b/$-(* ?)}
|-
^+ a
?~ a ~
?:((b i.a) $(a t.a) [i.a $(a t.a)])
::
++ slag :: suffix
~/ %slag
|* {a/@ b/(list)}
|- ^+ b
?: =(0 a) b
?~ b ~
$(b t.b, a (dec a))
::
++ snag :: index
~/ %snag
|* {a/@ b/(list)}
|- ^+ ?>(?=(^ b) i.b)
?~ b
~_ leaf+"snag-fail"
!!
?: =(0 a) i.b
$(b t.b, a (dec a))
::
++ sort !. :: quicksort
~/ %sort
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
|* {a/(list) b/$-({* *} ?)}
New metal boot system.
2016-11-24 07:25:07 +03:00
=> .(a ^.(homo a))
|- ^+ a
?~ a ~
%+ weld
$(a (skim t.a |=(c/_i.a (b c i.a))))
^+ t.a
[i.a $(a (skim t.a |=(c/_i.a !(b c i.a))))]
::
++ spin
|* {a/(list) b/_|=({* *} [** +<+]) c/*}
:: ?< ?=($-([_?<(?=($~ a) i.a) _c] [* _c]) b)
|-
?~ a
~
=+ v=(b i.a c)
[i=-.v t=$(a t.a, c +.v)]
::
++ spun
|* {a/(list) b/_|=({* *} [** +<+])}
=| c/_+<+.b
|-
?~ a
~
=+ v=(b i.a c)
[i=-.v t=$(a t.a, c +.v)]
::
++ swag :: slice
|* {{a/@ b/@} c/(list)}
(scag +<-> (slag +<-< c))
::
++ turn :: transform
~/ %turn
|* {a/(list) b/$-(* *)}
|-
?~ a ~
[i=(b i.a) t=$(a t.a)]
::
++ weld :: concatenate
~/ %weld
|* {a/(list) b/(list)}
=> .(a ^.(homo a), b ^.(homo b))
|- ^+ b
?~ a b
[i.a $(a t.a)]
::
++ welp :: faceless weld
=| {* *}
|%
+- $
?~ +<-
+<-(. +<+)
+<-(+ $(+<- +<->))
--
::
++ zing :: promote
=| *
|%
+- $
?~ +<
+<
(welp +<- $(+< +<+))
--
:: ::
:::: 2c: bit arithmetic ::
:: ::
::
++ bex :: binary exponent
~/ %bex
|= a/@
^- @
?: =(0 a) 1
(mul 2 $(a (dec a)))
::
++ can :: assemble
~/ %can
|= {a/bloq b/(list {p/@u q/@})}
^- @
?~ b 0
(add (end a p.i.b q.i.b) (lsh a p.i.b $(b t.b)))
::
++ cat :: concatenate
~/ %cat
|= {a/bloq b/@ c/@}
(add (lsh a (met a b) c) b)
::
++ cut :: slice
~/ %cut
|= {a/bloq {b/@u c/@u} d/@}
(end a c (rsh a b d))
::
++ end :: tail
~/ %end
|= {a/bloq b/@u c/@}
(mod c (bex (mul (bex a) b)))
::
++ fil :: fill bloqstream
|= {a/bloq b/@u c/@}
=+ n=0
=+ d=c
|- ^- @
?: =(n b)
(rsh a 1 d)
$(d (add c (lsh a 1 d)), n +(n))
::
++ lsh :: left-shift
~/ %lsh
|= {a/bloq b/@u c/@}
(mul (bex (mul (bex a) b)) c)
::
++ met :: measure
~/ %met
|= {a/bloq b/@}
^- @
=+ c=0
|-
?: =(0 b) c
$(b (rsh a 1 b), c +(c))
::
++ rap :: assemble nonzero
~/ %rap
|= {a/bloq b/(list @)}
^- @
?~ b 0
(cat a i.b $(b t.b))
::
++ rep :: assemble single
~/ %rep
|= {a/bloq b/(list @)}
^- @
=+ c=0
|-
?~ b 0
(add (lsh a c (end a 1 i.b)) $(c +(c), b t.b))
::
++ rip :: disassemble
~/ %rip
|= {a/bloq b/@}
^- (list @)
?: =(0 b) ~
[(end a 1 b) $(b (rsh a 1 b))]
::
++ rsh :: right-shift
~/ %rsh
|= {a/bloq b/@u c/@}
(div c (bex (mul (bex a) b)))
::
++ swp |=({a/bloq b/@} (rep a (flop (rip a b)))) :: reverse bloq order
++ xeb :: binary logarithm
~/ %xeb
|= a/@
^- @
(met 0 a)
::
++ fe :: modulo bloq
|_ a/bloq
++ dif :: difference
|=({b/@ c/@} (sit (sub (add out (sit b)) (sit c))))
++ inv |=(b/@ (sub (dec out) (sit b))) :: inverse
++ net |= b/@ ^- @ :: flip byte endianness
=> .(b (sit b))
?: (lte a 3)
b
=+ c=(dec a)
%+ con
(lsh c 1 $(a c, b (cut c [0 1] b)))
$(a c, b (cut c [1 1] b))
++ out (bex (bex a)) :: mod value
++ rol |= {b/bloq c/@ d/@} ^- @ :: roll left
=+ e=(sit d)
=+ f=(bex (sub a b))
=+ g=(mod c f)
(sit (con (lsh b g e) (rsh b (sub f g) e)))
++ ror |= {b/bloq c/@ d/@} ^- @ :: roll right
=+ e=(sit d)
=+ f=(bex (sub a b))
=+ g=(mod c f)
(sit (con (rsh b g e) (lsh b (sub f g) e)))
++ sum |=({b/@ c/@} (sit (add b c))) :: wrapping add
++ sit |=(b/@ (end a 1 b)) :: enforce modulo
--
:: ::
:::: 2d: bit logic ::
:: ::
::
++ con :: binary or
~/ %con
|= {a/@ b/@}
=+ [c=0 d=0]
|- ^- @
?: ?&(=(0 a) =(0 b)) d
%= $
a (rsh 0 1 a)
b (rsh 0 1 b)
c +(c)
d %+ add d
%^ lsh 0 c
?& =(0 (end 0 1 a))
=(0 (end 0 1 b))
==
==
::
++ dis :: binary and
~/ %dis
|= {a/@ b/@}
=| {c/@ d/@}
|- ^- @
?: ?|(=(0 a) =(0 b)) d
%= $
a (rsh 0 1 a)
b (rsh 0 1 b)
c +(c)
d %+ add d
%^ lsh 0 c
?| =(0 (end 0 1 a))
=(0 (end 0 1 b))
==
==
::
++ mix :: binary xor
~/ %mix
|= {a/@ b/@}
^- @
=+ [c=0 d=0]
|-
?: ?&(=(0 a) =(0 b)) d
%= $
a (rsh 0 1 a)
b (rsh 0 1 b)
c +(c)
d (add d (lsh 0 c =((end 0 1 a) (end 0 1 b))))
==
::
++ not |= {a/bloq b/@ c/@} :: binary not (sized)
(mix c (dec (bex (mul b (bex a)))))
:: ::
:::: 2e: insecure hashing ::
:: ::
::
++ fnv |=(a/@ (end 5 1 (mul 16.777.619 a))) :: FNV scrambler
::
++ muk :: standard murmur3
~% %muk ..muk ~
=+ ~(. fe 5)
|= {syd/@ len/@ key/@}
?> &((lte (met 5 syd) 1) (lte (met 0 len) 31))
=/ pad (sub len (met 3 key))
=/ data (weld (rip 3 key) (reap pad 0))
=/ nblocks (div len 4) :: intentionally off-by-one
=/ h1 syd
=+ [c1=0xcc9e.2d51 c2=0x1b87.3593]
=/ blocks (rip 5 key)
=/ i nblocks
=. h1 =/ hi h1 |-
?: =(0 i) hi
=/ k1 (snag (sub nblocks i) blocks) :: negative array index
=. k1 (sit (mul k1 c1))
=. k1 (rol 0 15 k1)
=. k1 (sit (mul k1 c2))
=. hi (mix hi k1)
=. hi (rol 0 13 hi)
=. hi (sum (sit (mul hi 5)) 0xe654.6b64)
$(i (dec i))
=/ tail (slag (mul 4 nblocks) data)
=/ k1 0
=/ tlen (dis len 3)
=. h1
?+ tlen h1 :: fallthrough switch
$3 =. k1 (mix k1 (lsh 0 16 (snag 2 tail)))
=. k1 (mix k1 (lsh 0 8 (snag 1 tail)))
=. k1 (mix k1 (snag 0 tail))
=. k1 (sit (mul k1 c1))
=. k1 (rol 0 15 k1)
=. k1 (sit (mul k1 c2))
(mix h1 k1)
$2 =. k1 (mix k1 (lsh 0 8 (snag 1 tail)))
=. k1 (mix k1 (snag 0 tail))
=. k1 (sit (mul k1 c1))
=. k1 (rol 0 15 k1)
=. k1 (sit (mul k1 c2))
(mix h1 k1)
$1 =. k1 (mix k1 (snag 0 tail))
=. k1 (sit (mul k1 c1))
=. k1 (rol 0 15 k1)
=. k1 (sit (mul k1 c2))
(mix h1 k1)
==
=. h1 (mix h1 len)
|^ (fmix32 h1)
++ fmix32
|= h/@
=. h (mix h (rsh 0 16 h))
=. h (sit (mul h 0x85eb.ca6b))
=. h (mix h (rsh 0 13 h))
=. h (sit (mul h 0xc2b2.ae35))
=. h (mix h (rsh 0 16 h))
h
--
::
++ mum :: mug with murmur3
~/ %mum
|= a/*
|^ (trim ?@(a a (mix $(a -.a) (mix 0x7fff.ffff $(a +.a)))))
++ trim :: 31-bit nonzero
|= key/@
=+ syd=0xcafe.babe
|- ^- @
=+ haz=(muk syd (met 3 key) key)
=+ ham=(mix (rsh 0 31 haz) (end 0 31 haz))
?.(=(0 ham) ham $(syd +(syd)))
--
::
++ mug :: 31bit nonzero FNV1a
~/ %mug
|= a/*
?^ a
=+ b=[p=$(a -.a) q=$(a +.a)]
|- ^- @
=+ c=(fnv (mix p.b (fnv q.b)))
=+ d=(mix (rsh 0 31 c) (end 0 31 c))
?. =(0 d) d
$(q.b +(q.b))
=+ b=2.166.136.261
|- ^- @
=+ c=b
=+ [d=0 e=(met 3 a)]
|- ^- @
?: =(d e)
=+ f=(mix (rsh 0 31 c) (end 0 31 c))
?. =(0 f) f
^$(b +(b))
$(c (fnv (mix c (cut 3 [d 1] a))), d +(d))
:: ::
:::: 2f: noun ordering ::
:: ::
:: aor, dor, gor, hor, lor, vor ::
::
++ aor :: a-order
~/ %aor
|= {a/* b/*}
^- ?
?: =(a b) &
?. ?=(@ a)
?: ?=(@ b) |
?: =(-.a -.b)
$(a +.a, b +.b)
$(a -.a, b -.b)
?. ?=(@ b) &
|-
=+ [c=(end 3 1 a) d=(end 3 1 b)]
?: =(c d)
$(a (rsh 3 1 a), b (rsh 3 1 b))
(lth c d)
::
++ dor :: d-order
~/ %dor
|= {a/* b/*}
^- ?
?: =(a b) &
?. ?=(@ a)
?: ?=(@ b) |
?: =(-.a -.b)
$(a +.a, b +.b)
$(a -.a, b -.b)
?. ?=(@ b) &
(lth a b)
::
++ gor :: g-order
~/ %gor
|= {a/* b/*}
^- ?
=+ [c=(mug a) d=(mug b)]
?: =(c d)
(dor a b)
(lth c d)
::
++ hor :: h-order
~/ %hor
|= {a/* b/*}
^- ?
?: ?=(@ a)
?. ?=(@ b) &
(gor a b)
?: ?=(@ b) |
?: =(-.a -.b)
(gor +.a +.b)
(gor -.a -.b)
::
++ lor :: l-order
~/ %lor
|= {a/* b/*}
^- ?
?: =(a b) &
?@ a
?^ b &
(lth a b)
?: =(-.a -.b)
$(a +.a, b +.b)
$(a -.a, b -.b)
::
++ vor :: v-order
~/ %vor
|= {a/* b/*}
^- ?
=+ [c=(mug (mug a)) d=(mug (mug b))]
?: =(c d)
(dor a b)
(lth c d)
:: ::
:::: ::
:: 2g: unsigned powers ::
:: ::
::
++ pow :: unsigned exponent
~/ %pow
|= {a/@ b/@}
?: =(b 0) 1
|- ?: =(b 1) a
=+ c=$(b (div b 2))
=+ d=(mul c c)
?~ (dis b 1) d (mul d a)
::
++ sqt :: unsigned sqrt/rem
~/ %sqt
|= a/@ ^- {p/@ q/@}
?~ a [0 0]
=+ [q=(div (dec (xeb a)) 2) r=0]
=- [-.b (sub a +.b)]
^= b |-
=+ s=(add r (bex q))
=+ t=(mul s s)
?: =(q 0)
?:((lte t a) [s t] [r (mul r r)])
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
?: (lte t a)
$(r s, q (dec q))
New metal boot system.
2016-11-24 07:25:07 +03:00
$(q (dec q))
:: ::
:::: ::
:: ::
:: 2h: set logic ::
:: ::
::
++ in :: set engine
~/ %in
add set/jug/qeu comments
2016-12-09 02:10:40 +03:00
|_ a/(tree) :: (set)
New metal boot system.
2016-11-24 07:25:07 +03:00
+- all :: logical AND
~/ %all
|* b/$-(* ?)
|- ^- ?
?~ a
&
?&((b n.a) $(a l.a) $(a r.a))
::
+- any :: logical OR
~/ %any
|* b/$-(* ?)
|- ^- ?
?~ a
|
?|((b n.a) $(a l.a) $(a r.a))
::
+- apt :: check correctness
=| {l/(unit) r/(unit)}
|- ^- ?
?~ a &
?& ?~(l & (hor n.a u.l))
?~(r & (hor u.r n.a))
?~(l.a & ?&((vor n.a n.l.a) $(a l.a, l `n.a)))
?~(r.a & ?&((vor n.a n.r.a) $(a r.a, r `n.a)))
==
::
+- bif :: splits a by b
~/ %bif
|* b/*
^+ [l=a r=a]
=< [+< +>]
|- ^+ a
?~ a
[b ~ ~]
?: =(b n.a)
a
?: (hor b n.a)
=+ c=$(a l.a)
?> ?=(^ c)
[n.c l.c [n.a r.c r.a]]
=+ c=$(a r.a)
?> ?=(^ c)
[n.c [n.a l.a l.c] r.c]
::
+- del :: b without any a
~/ %del
|* b/*
|- ^+ a
?~ a
~
?. =(b n.a)
?: (hor b n.a)
[n.a $(a l.a) r.a]
[n.a l.a $(a r.a)]
|- ^- {$?($~ _a)}
?~ l.a r.a
?~ r.a l.a
?: (vor n.l.a n.r.a)
[n.l.a l.l.a $(l.a r.l.a)]
[n.r.a $(r.a l.r.a) r.r.a]
::
+- dif :: difference
~/ %dif
|* b/_a
|- ^+ a
?~ b
a
=+ c=(bif n.b)
?> ?=(^ c)
=+ d=$(a l.c, b l.b)
=+ e=$(a r.c, b r.b)
|- ^- {$?($~ _a)}
?~ d e
?~ e d
?: (vor n.d n.e)
[n.d l.d $(d r.d)]
[n.e $(e l.e) r.e]
::
+- dig :: axis of a in b
|= b/*
=+ c=1
|- ^- (unit @)
?~ a ~
?: =(b n.a) [~ u=(peg c 2)]
?: (hor b n.a)
$(a l.a, c (peg c 6))
$(a r.a, c (peg c 7))
::
+- gas :: concatenate
~/ %gas
|= b/(list _?>(?=(^ a) n.a))
|- ^+ a
?~ b
a
$(b t.b, a (put i.b))
::
+- has :: b exists in a check
~/ %has
|* b/*
|- ^- ?
?~ a
|
?: =(b n.a)
&
?: (hor b n.a)
$(a l.a)
$(a r.a)
::
+- int :: intersection
~/ %int
|* b/_a
|- ^+ a
?~ b
~
?~ a
~
?. (vor n.a n.b)
$(a b, b a)
?: =(n.b n.a)
[n.a $(a l.a, b l.b) $(a r.a, b r.b)]
?: (hor n.b n.a)
%- uni(a $(a l.a, b [n.b l.b ~])) $(b r.b)
%- uni(a $(a r.a, b [n.b ~ r.b])) $(b l.b)
::
+- put :: puts b in a, sorted
~/ %put
|* b/*
|- ^+ a
?~ a
[b ~ ~]
?: =(b n.a)
a
?: (hor b n.a)
=+ c=$(a l.a)
?> ?=(^ c)
?: (vor n.a n.c)
[n.a c r.a]
[n.c l.c [n.a r.c r.a]]
=+ c=$(a r.a)
?> ?=(^ c)
?: (vor n.a n.c)
[n.a l.a c]
[n.c [n.a l.a l.c] r.c]
::
+- rep :: replace by product
|* b/_|=({* *} +<+)
|-
?~ a +<+.b
$(a r.a, +<+.b $(a l.a, +<+.b (b n.a +<+.b)))
::
+- run :: apply gate to values
~/ %run
|* b/gate
=| c/(set _?>(?=(^ a) (b n.a)))
|- ?~ a c
=. c (~(put in c) (b n.a))
=. c $(a l.a, c c)
$(a r.a, c c)
::
+- tap :: convert to list
~/ %tap
|= b/(list _?>(?=(^ a) n.a))
^+ b
?~ a
b
$(a r.a, b [n.a $(a l.a)])
::
+- uni :: union
~/ %uni
|* b/_a
?: =(a b) a
|- ^+ a
?~ b
a
?~ a
b
?: (vor n.a n.b)
?: =(n.b n.a)
[n.b $(a l.a, b l.b) $(a r.a, b r.b)]
?: (hor n.b n.a)
$(a [n.a $(a l.a, b [n.b l.b ~]) r.a], b r.b)
$(a [n.a l.a $(a r.a, b [n.b ~ r.b])], b l.b)
?: =(n.a n.b)
[n.b $(b l.b, a l.a) $(b r.b, a r.a)]
?: (hor n.a n.b)
$(b [n.b $(b l.b, a [n.a l.a ~]) r.b], a r.a)
$(b [n.b l.b $(b r.b, a [n.a ~ r.a])], a l.a)
::
+- wyt :: size of set
hint +-wyt:in
2016-11-09 08:03:58 +03:00
=< $
~% %wyt + ~
|. ^- @
New metal boot system.
2016-11-24 07:25:07 +03:00
?~(a 0 +((add $(a l.a) $(a r.a))))
--
:: ::
:::: 2i: map logic ::
:: ::
::
++ by :: map engine
~/ %by
add set/jug/qeu comments
2016-12-09 02:10:40 +03:00
=| a/(tree (pair)) :: (map)
New metal boot system.
2016-11-24 07:25:07 +03:00
=* node ?>(?=(^ a) n.a)
|%
+- all :: logical AND
~/ %all
|* b/$-(* ?)
|- ^- ?
?~ a
&
?&((b q.n.a) $(a l.a) $(a r.a))
::
+- any :: logical OR
~/ %any
|* b/$-(* ?)
|- ^- ?
?~ a
|
?|((b q.n.a) $(a l.a) $(a r.a))
::
+- bif :: splits a by b
~/ %bif
|* {b/* c/*}
^+ [l=a r=a]
=< [+< +>]
|- ^+ a
?~ a
[[b c] ~ ~]
?: =(b p.n.a)
?: =(c q.n.a)
a
[[b c] l.a r.a]
?: (gor b p.n.a)
=+ d=$(a l.a)
?> ?=(^ d)
[n.d l.d [n.a r.d r.a]]
=+ d=$(a r.a)
?> ?=(^ d)
[n.d [n.a l.a l.d] r.d]
::
+- def :: difference
|* b/_a
^- (map _p:node (pair (unit _q:node) (unit _q:node)))
!!
::
+- dep :: difference as patch
|* b/_a
^+ [p=a q=a]
=+ c=(~(tap by (def b)))
=+ [d e]=[`_a`~ `_a`~]
|- ^+ [d e]
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
?~ c [d e]
New metal boot system.
2016-11-24 07:25:07 +03:00
%= $
c t.c
d ?~(q.q.i.c d (~(put by d) p.i.c u.q.q.i.c))
e ?~(p.q.i.c e (~(put by e) p.i.c u.p.q.i.c))
==
::
+- del :: delete at key b
~/ %del
|* b/*
|- ^+ a
?~ a
~
?. =(b p.n.a)
?: (gor b p.n.a)
[n.a $(a l.a) r.a]
[n.a l.a $(a r.a)]
|- ^- {$?($~ _a)}
?~ l.a r.a
?~ r.a l.a
?: (vor p.n.l.a p.n.r.a)
[n.l.a l.l.a $(l.a r.l.a)]
[n.r.a $(r.a l.r.a) r.r.a]
::
+- dif :: difference
~/ %dif
|* b/_a
|- ^+ a
?~ b
a
=+ c=(bif p.n.b q.n.b)
?> ?=(^ c)
=+ d=$(a l.c, b l.b)
=+ e=$(a r.c, b r.b)
|- ^- {$?($~ _a)}
?~ d e
?~ e d
?: (vor p.n.d p.n.e)
[n.d l.d $(d r.d)]
[n.e $(e l.e) r.e]
::
+- dig :: axis of b key
|= b/*
=+ c=1
|- ^- (unit @)
?~ a ~
?: =(b p.n.a) [~ u=(peg c 2)]
?: (gor b p.n.a)
$(a l.a, c (peg c 6))
$(a r.a, c (peg c 7))
::
renames ept:by to apt:by
2016-12-08 21:34:52 +03:00
+- apt :: check correctness
New metal boot system.
2016-11-24 07:25:07 +03:00
=| {l/(unit) r/(unit)}
|- ^- ?
?~ a &
?& ?~(l & (gor p.n.a u.l))
?~(r & (gor u.r p.n.a))
?~(l.a & ?&((vor p.n.a p.n.l.a) $(a l.a, l `p.n.a)))
?~(r.a & ?&((vor p.n.a p.n.r.a) $(a r.a, r `p.n.a)))
==
::
+- gas :: concatenate
~/ %gas
|* b/(list {p/* q/*})
=> .(b `(list _?>(?=(^ a) n.a))`b)
|- ^+ a
?~ b
a
$(b t.b, a (put p.i.b q.i.b))
::
+- get :: grab value by key
~/ %get
|= b/*
^- {$@($~ {$~ u/_?>(?=(^ a) q.n.a)})}
?~ a
~
?: =(b p.n.a)
[~ u=q.n.a]
?: (gor b p.n.a)
$(a l.a)
$(a r.a)
::
+- got
|* b/*
(need (get b))
::
+- has :: key existence check
~/ %has
|* b/*
!=(~ (get b))
::
+- int :: intersection
~/ %int
|* b/_a
|- ^+ a
?~ b
~
?~ a
~
?: (vor p.n.a p.n.b)
?: =(p.n.b p.n.a)
[n.b $(a l.a, b l.b) $(a r.a, b r.b)]
?: (gor p.n.b p.n.a)
%- uni(a $(a l.a, b [n.b l.b ~])) $(b r.b)
%- uni(a $(a r.a, b [n.b ~ r.b])) $(b l.b)
?: =(p.n.a p.n.b)
[n.b $(b l.b, a l.a) $(b r.b, a r.a)]
?: (gor p.n.a p.n.b)
%- uni(a $(b l.b, a [n.a l.a ~])) $(a r.a)
%- uni(a $(b r.b, a [n.a ~ r.a])) $(a l.a)
::
+- mar :: add with validation
|* {b/_?>(?=(^ a) p.n.a) c/(unit _?>(?=(^ a) q.n.a))}
?~ c
(del b)
(put b u.c)
::
+- put :: adds key-value pair
~/ %put
|* {b/* c/*}
|- ^+ a
?~ a
[[b c] ~ ~]
?: =(b p.n.a)
?: =(c q.n.a)
a
[[b c] l.a r.a]
?: (gor b p.n.a)
=+ d=$(a l.a)
?> ?=(^ d)
?: (vor p.n.a p.n.d)
[n.a d r.a]
[n.d l.d [n.a r.d r.a]]
=+ d=$(a r.a)
?> ?=(^ d)
?: (vor p.n.a p.n.d)
[n.a l.a d]
[n.d [n.a l.a l.d] r.d]
::
+- rep :: replace by product
|* b/_|=({* *} +<+)
|-
?~ a +<+.b
$(a r.a, +<+.b $(a l.a, +<+.b (b n.a +<+.b)))
::
+- rib :: transform + product
|* {b/* c/$-(* *)}
|- ^+ [b a]
?~ a [b ~]
=+ d=(c n.a b)
=. n.a +.d
=+ e=$(a l.a, b -.d)
=+ f=$(a r.a, b -.e)
[-.f [n.a +.e +.f]]
::
+- run :: apply gate to values
|* b/$-(* *)
|-
?~ a a
[n=[p=p.n.a q=(b q.n.a)] l=$(a l.a) r=$(a r.a)]
::
+- rut :: apply gate to nodes
|* b/gate
|-
?~ a a
[n=[p=p.n.a q=(b p.n.a q.n.a)] l=$(a l.a) r=$(a r.a)]
::
+- tap :: listify pairs
~/ %tap
|= b/(list _?>(?=(^ a) n.a))
^+ b
?~ a
b
$(a r.a, b [n.a $(a l.a)])
::
+- uni :: union, merge
~/ %uni
|* b/_a
|- ^+ a
?~ b
a
?~ a
b
?: (vor p.n.a p.n.b)
?: =(p.n.b p.n.a)
[n.b $(a l.a, b l.b) $(a r.a, b r.b)]
?: (gor p.n.b p.n.a)
$(a [n.a $(a l.a, b [n.b l.b ~]) r.a], b r.b)
$(a [n.a l.a $(a r.a, b [n.b ~ r.b])], b l.b)
?: =(p.n.a p.n.b)
[n.b $(b l.b, a l.a) $(b r.b, a r.a)]
?: (gor p.n.a p.n.b)
$(b [n.b $(b l.b, a [n.a l.a ~]) r.b], a r.a)
$(b [n.b l.b $(b r.b, a [n.a ~ r.a])], a l.a)
::
+- uno :: general union
|= b/_a
|= meg/$-({_p:node _q:node _q:node} _q:node)
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|- ^+ a
New metal boot system.
2016-11-24 07:25:07 +03:00
?~ b
a
?~ a
b
?: (vor p.n.a p.n.b)
?: =(p.n.b p.n.a)
[n.b $(a l.a, b l.b) $(a r.a, b r.b)]
?: (gor p.n.b p.n.a)
$(a [n.a $(a l.a, b [n.b l.b ~]) r.a], b r.b)
$(a [n.a l.a $(a r.a, b [n.b ~ r.b])], b l.b)
?: =(p.n.a p.n.b)
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
:+ [p.n.a (meg p.n.a q.n.a q.n.b)]
$(b l.b, a l.a)
New metal boot system.
2016-11-24 07:25:07 +03:00
$(b r.b, a r.a)
?: (gor p.n.a p.n.b)
$(b [n.b $(b l.b, a [n.a l.a ~]) r.b], a r.a)
$(b [n.b l.b $(b r.b, a [n.a ~ r.a])], a l.a)
::
::
+- urn :: apply gate to nodes
|* b/$-({* *} *)
|-
?~ a ~
[n=[p=p.n.a q=(b p.n.a q.n.a)] l=$(a l.a) r=$(a r.a)]
::
+- wyt :: depth of map
|- ^- @
?~(a 0 +((add $(a l.a) $(a r.a))))
::
+- key :: set of keys
=| b/(set _?>(?=(^ a) p.n.a))
|- ^+ b
?~ a b
$(a r.a, b $(a l.a, b (~(put in b) p.n.a)))
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
::
New metal boot system.
2016-11-24 07:25:07 +03:00
+- val :: list of vals
=| b/(list _?>(?=(^ a) q.n.a))
|- ^+ b
?~ a b
$(a r.a, b [q.n.a $(a l.a)])
--
:: ::
:::: 2j: jar and jug logic ::
:: ::
::
++ ja :: jar engine
add set/jug/qeu comments
2016-12-09 02:10:40 +03:00
|_ a/(tree (pair * (list))) :: (jar)
New metal boot system.
2016-11-24 07:25:07 +03:00
+- get :: gets list by key
|* b/*
=+ c=(~(get by a) b)
?~(c ~ u.c)
::
+- add :: adds key-list pair
|* {b/* c/*}
=+ d=(get b)
(~(put by a) b [c d])
--
++ ju :: jug engine
add set/jug/qeu comments
2016-12-09 02:10:40 +03:00
|_ a/(tree (pair * (tree))) :: (jug)
New metal boot system.
2016-11-24 07:25:07 +03:00
+- del :: del key-set pair
|* {b/* c/*}
^+ a
=+ d=(get b)
=+ e=(~(del in d) c)
?~ e
(~(del by a) b)
(~(put by a) b e)
::
+- gas :: concatenate
|* b/(list {p/* q/*})
=> .(b `(list _?>(?=({{* ^} ^} a) [p=p q=n.q]:n.a))`b)
|- ^+ a
?~ b
a
$(b t.b, a (put p.i.b q.i.b))
::
+- get :: gets set by key
|* b/*
=+ c=(~(get by a) b)
?~(c ~ u.c)
::
+- has :: existence check
|* {b/* c/*}
^- ?
(~(has in (get b)) c)
::
+- put :: add key-set pair
|* {b/* c/*}
^+ a
=+ d=(get b)
(~(put by a) b (~(put in d) c))
--
:: ::
:::: 2k: queue logic ::
:: ::
::
++ to :: queue engine
add set/jug/qeu comments
2016-12-09 02:10:40 +03:00
|_ a/(tree) :: (qeu)
New metal boot system.
2016-11-24 07:25:07 +03:00
+- bal
|- ^+ a
?~ a ~
?. |(?=($~ l.a) (vor n.a n.l.a))
$(a [n.l.a l.l.a $(a [n.a r.l.a r.a])])
?. |(?=($~ r.a) (vor n.a n.r.a))
$(a [n.r.a $(a [n.a l.a l.r.a]) r.r.a])
a
::
+- dep :: max depth of queue
|- ^- @
?~ a 0
+((max $(a l.a) $(a r.a)))
::
+- gas :: insert list to que
|= b/(list _?>(?=(^ a) n.a))
|- ^+ a
?~(b a $(b t.b, a (put i.b)))
::
+- get :: head-rest pair
|- ^+ ?>(?=(^ a) [p=n.a q=*(tree _n.a)])
?~ a
!!
?~ r.a
[n.a l.a]
=+ b=$(a r.a)
:- p.b
?: |(?=($~ q.b) (vor n.a n.q.b))
[n.a l.a q.b]
[n.q.b [n.a l.a l.q.b] r.q.b]
::
+- nip :: remove root
|- ^+ a
?~ a ~
?~ l.a r.a
?~ r.a l.a
?: (vor n.l.a n.r.a)
[n.l.a l.l.a $(l.a r.l.a)]
[n.r.a $(r.a l.r.a) r.r.a]
::
+- nap :: removes head
?> ?=(^ a)
?: =(~ l.a) r.a
=+ b=get(a l.a)
bal(a ^+(a [p.b q.b r.a]))
::
+- put :: insert new tail
|* b/*
|- ^+ a
?~ a
[b ~ ~]
bal(a a(l $(a l.a)))
::
+- tap :: adds list to end
|= b/(list _?>(?=(^ a) n.a))
=+ 0 :: hack for jet match
^+ b
?~ a
b
$(a r.a, b [n.a $(a l.a)])
::
+- top :: produces head
|- ^- (unit _?>(?=(^ a) n.a))
?~ a ~
?~(r.a [~ n.a] $(a r.a))
--
:: ::
:::: 2l: container from container ::
:: ::
::
++ malt :: map from list
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|* a/(list)
New metal boot system.
2016-11-24 07:25:07 +03:00
(molt `(list {p/_-<.a q/_->.a})`a)
::
++ molt :: map from pair list
add set/jug/qeu comments
2016-12-09 02:10:40 +03:00
|* a/(list (pair)) :: ^- =,(i.-.a (map _p _q))
New metal boot system.
2016-11-24 07:25:07 +03:00
(~(gas by `(tree {p/_p.i.-.a q/_q.i.-.a})`~) a)
::
++ silt :: set from list
add set/jug/qeu comments
2016-12-09 02:10:40 +03:00
|* a/(list) :: ^- (set _i.-.a)
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ b=*(tree _?>(?=(^ a) i.a))
(~(gas in b) a)
:: ::
:::: 2m: container from noun ::
:: ::
::
++ ly :: list from raw noun
|* a/*
About working. But very slow.
2017-09-08 02:47:49 +03:00
le:nl
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ my :: map from raw noun
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|* a/*
About working. But very slow.
2017-09-08 02:47:49 +03:00
my:nl
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ sy :: set from raw noun
|* a/*
About working. But very slow.
2017-09-08 02:47:49 +03:00
si:nl
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
::
++ nl
First stage of transition to ++redo.
2017-09-07 03:13:35 +03:00
^%
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
|%
:: ::
++ le :: construct list
|* a/(list)
^+ =< $
|% +- $ ?:(*? ~ [i=(snag 0 a) t=$])
--
a
:: ::
++ my :: construct map
|* a/(list (pair))
=> .(a ^+((le a) a))
(~(gas by `(map _p.i.-.a _q.i.-.a)`~) a)
:: ::
++ mz :: construct map
|* a/(list (pair))
=> .(a ^+((le a) a))
(~(gas by ~) a)
:: ::
++ si :: construct set
|* a/(list)
=> .(a ^+((le a) a))
(~(gas in `(set _i.-.a)`~) a)
:: ::
++ snag :: index
|* {a/@ b/(list)}
?~ b
~_ leaf+"snag-fail"
!!
?: =(0 a) i.b
$(b t.b, a (dec a))
:: ::
++ weld :: concatenate
|* {a/(list) b/(list)}
=> .(a ^+((le a) a), b ^+((le b) b))
=+ 42
|-
?~ a b
[i=i.a t=$(a t.a)]
--
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::
:::: 2n: functional hacks ::
:: ::
::
++ aftr |*(a/$-(* *) |*(b/$-(* *) (pair b a))) :: pair after
++ cork |*({a/_|=(* **) b/gate} (corl b a)) :: compose forward
++ corl :: compose backwards
|* {a/gate b/_|=(* **)}
=< +:|.((a (b))) :: span check
|* c/_+<.b
(a (b c))
::
++ cury :: curry left
|* {a/_|=(^ **) b/*}
|* c/_+<+.a
(a b c)
::
++ curr :: curry right
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|* {a/_|=(^ **) c/*}
New metal boot system.
2016-11-24 07:25:07 +03:00
|* b/_+<+.a
(a b c)
::
++ fore |*(a/$-(* *) |*(b/$-(* *) (pair a b))) :: pair before
++ hard :: force remold
|* han/$-(* *)
|= fud/* ^- han
~_ leaf+"hard"
=+ gol=(han fud)
?>(=(gol fud) gol)
::
::
++ head |*(^ ,:+<-) :: get head
++ same |*(* +<) :: identity
++ soft :: maybe remold
|* han/$-(* *)
|= fud/* ^- (unit han)
=+ gol=(han fud)
?.(=(gol fud) ~ [~ gol])
::
++ tail |*(^ ,:+<+) :: get tail
++ test |=(^ =(+<- +<+)) :: equality
::
:: ::
:::: 2o: normalizing containers ::
:: ::
::
++ jar |*({a/mold b/mold} (map a (list b))) :: map of lists
++ jug |*({a/mold b/mold} (map a (set b))) :: map of sets
++ map |* {a/mold b/mold} :: table
applies ept:by (map invariant) in ++map
2016-12-08 21:19:25 +03:00
%+ cork (tree (pair a b)) ::
|= c/(tree (pair a b)) ^+ c ::
renames ept:by to apt:by
2016-12-08 21:34:52 +03:00
?.(~(apt by c) ~ c) ::
simplies ++qeu
2016-12-08 21:36:20 +03:00
++ qeu |*(a/mold (tree a)) :: queue
New metal boot system.
2016-11-24 07:25:07 +03:00
++ set |* a/mold :: set
applies apt:in (set invariant) in ++set
2016-12-08 21:17:05 +03:00
%+ cork (tree a) ::
|= b/(tree a) ^+ b ::
?.(~(apt in b) ~ b) ::
New metal boot system.
2016-11-24 07:25:07 +03:00
::
:::: 2p: serialization ::
:: ::
::
++ cue :: unpack
~/ %cue
|= a/@
^- *
=+ b=0
=+ m=`(map @ *)`~
=< q
|- ^- {p/@ q/* r/(map @ *)}
?: =(0 (cut 0 [b 1] a))
=+ c=(rub +(b) a)
[+(p.c) q.c (~(put by m) b q.c)]
=+ c=(add 2 b)
?: =(0 (cut 0 [+(b) 1] a))
=+ u=$(b c)
=+ v=$(b (add p.u c), m r.u)
=+ w=[q.u q.v]
[(add 2 (add p.u p.v)) w (~(put by r.v) b w)]
=+ d=(rub c a)
[(add 2 p.d) (need (~(get by m) q.d)) m]
::
++ jam :: pack
~/ %jam
|= a/*
^- @
=+ b=0
=+ m=`(map * @)`~
=< q
|- ^- {p/@ q/@ r/(map * @)}
=+ c=(~(get by m) a)
?~ c
=> .(m (~(put by m) a b))
?: ?=(@ a)
=+ d=(mat a)
[(add 1 p.d) (lsh 0 1 q.d) m]
=> .(b (add 2 b))
=+ d=$(a -.a)
=+ e=$(a +.a, b (add b p.d), m r.d)
[(add 2 (add p.d p.e)) (mix 1 (lsh 0 2 (cat 0 q.d q.e))) r.e]
?: ?&(?=(@ a) (lte (met 0 a) (met 0 u.c)))
=+ d=(mat a)
[(add 1 p.d) (lsh 0 1 q.d) m]
=+ d=(mat u.c)
[(add 2 p.d) (mix 3 (lsh 0 2 q.d)) m]
::
++ mat :: length-encode
~/ %mat
|= a/@
^- {p/@ q/@}
?: =(0 a)
[1 1]
=+ b=(met 0 a)
=+ c=(met 0 b)
:- (add (add c c) b)
(cat 0 (bex c) (mix (end 0 (dec c) b) (lsh 0 (dec c) a)))
::
++ rub :: length-decode
~/ %rub
|= {a/@ b/@}
^- {p/@ q/@}
=+ ^= c
=+ [c=0 m=(met 0 b)]
|- ?< (gth c m)
?. =(0 (cut 0 [(add a c) 1] b))
c
$(c +(c))
?: =(0 c)
[1 0]
=+ d=(add a +(c))
=+ e=(add (bex (dec c)) (cut 0 [d (dec c)] b))
[(add (add c c) e) (cut 0 [(add d (dec c)) e] b)]
::
:::: 2q: molds and mold builders ::
:: ::
::
++ char @t :: UTF8 byte
++ cord @t :: UTF8, LSB first
++ date {{a/? y/@ud} m/@ud t/tarp} :: parsed date
++ knot @ta :: ASCII text
++ tang (list tank) :: bottom-first error
++ tank $% {$leaf p/tape} :: printing formats
$: $palm :: backstep list
p/{p/tape q/tape r/tape s/tape} ::
q/(list tank) ::
== ::
$: $rose :: flat list
p/{p/tape q/tape r/tape} :: mid open close
q/(list tank) ::
== ::
== ::
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
++ tanq :: tomorrow's tank
New metal boot system.
2016-11-24 07:25:07 +03:00
$? {$~ p/(list tanq)} :: list of printables
{$~ $~ p/tape} :: simple string
(pair @tas tanq) :: captioned
== ::
++ tape (list @tD) :: UTF8 string as list
++ tarp {d/@ud h/@ud m/@ud s/@ud f/(list @ux)} :: parsed time
++ term @tas :: ascii symbol
++ wain (list cord) :: text lines
++ wall (list tape) :: text lines
-- =>
:: ::
:::: 3: layer three ::
:: ::
:: 3a: signed and modular ints ::
:: 3b: floating point ::
:: 3c: urbit time ::
:: 3d: SHA hash family ::
:: 3e: (reserved) ::
:: 3f: scrambling ::
:: 3g: molds and mold builders ::
:: ::
~% %tri + ~
|%
Neutral 143.
2017-09-16 00:40:24 +03:00
++ foo 0
New metal boot system.
2016-11-24 07:25:07 +03:00
::
:::: 3a: signed and modular ints ::
:: ::
::
++ egcd :: schneier's egcd
|= {a/@ b/@}
=+ si
=+ [c=(sun a) d=(sun b)]
=+ [u=[c=(sun 1) d=--0] v=[c=--0 d=(sun 1)]]
|- ^- {d/@ u/@s v/@s}
?: =(--0 c)
[(abs d) d.u d.v]
:: ?> ?& =(c (sum (pro (sun a) c.u) (pro (sun b) c.v)))
:: =(d (sum (pro (sun a) d.u) (pro (sun b) d.v)))
:: ==
=+ q=(fra d c)
%= $
c (dif d (pro q c))
d c
u [(dif d.u (pro q c.u)) c.u]
v [(dif d.v (pro q c.v)) c.v]
==
::
++ fo :: modulo prime
|_ a/@
++ dif
|= {b/@ c/@}
(sit (sub (add a b) (sit c)))
::
++ exp
|= {b/@ c/@}
?: =(0 b)
1
=+ d=$(b (rsh 0 1 b))
=+ e=(pro d d)
?:(=(0 (end 0 1 b)) e (pro c e))
::
++ fra
|= {b/@ c/@}
(pro b (inv c))
::
++ inv
|= b/@
=+ c=(dul:si u:(egcd b a) a)
c
::
++ pro
|= {b/@ c/@}
(sit (mul b c))
::
++ sit
|= b/@
(mod b a)
::
++ sum
|= {b/@ c/@}
(sit (add b c))
--
::
++ si :: signed integer
|%
++ abs |=(a/@s (add (end 0 1 a) (rsh 0 1 a))) :: absolute value
++ dif |= {a/@s b/@s} :: subtraction
(sum a (new !(syn b) (abs b)))
++ dul |= {a/@s b/@} :: modulus
=+(c=(old a) ?:(-.c (mod +.c b) (sub b +.c)))
++ fra |= {a/@s b/@s} :: divide
(new =(0 (mix (syn a) (syn b))) (div (abs a) (abs b)))
++ new |= {a/? b/@} :: [sign value] to @s
`@s`?:(a (mul 2 b) ?:(=(0 b) 0 +((mul 2 (dec b)))))
++ old |=(a/@s [(syn a) (abs a)]) :: [sign value]
++ pro |= {a/@s b/@s} :: multiplication
(new =(0 (mix (syn a) (syn b))) (mul (abs a) (abs b)))
++ rem |=({a/@s b/@s} (dif a (pro b (fra a b)))) :: remainder
++ sum |= {a/@s b/@s} :: addition
=+ [c=(old a) d=(old b)]
?: -.c
?: -.d
(new & (add +.c +.d))
?: (gte +.c +.d)
(new & (sub +.c +.d))
(new | (sub +.d +.c))
?: -.d
?: (gte +.c +.d)
(new | (sub +.c +.d))
(new & (sub +.d +.c))
(new | (add +.c +.d))
++ sun |=(a/@u (mul 2 a)) :: @u to @s
++ syn |=(a/@s =(0 (end 0 1 a))) :: sign test
++ cmp |= {a/@s b/@s} :: compare
^- @s
?: =(a b)
--0
?: (syn a)
?: (syn b)
?: (gth a b)
--1
-1
--1
?: (syn b)
-1
?: (gth a b)
-1
--1
--
:: ::
:::: 3b: floating point ::
:: ::
::
++ fn :: float, infinity, or NaN
:: s=sign, e=exponent, a=arithmetic form
:: (-1)^s * a * 2^e
$% {$f s/? e/@s a/@u}
{$i s/?}
{$n $~}
==
::
++ dn :: decimal float, infinity, or NaN
:: (-1)^s * a * 10^e
$% {$d s/? e/@s a/@u}
{$i s/?}
{$n $~}
==
::
++ rn :: parsed decimal float
::
$% {$d a/? b/{c/@ {d/@ e/@} f/? i/@}}
{$i a/?}
{$n $~}
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
==
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ fl :: arb. precision fp
=+ ^- {{p/@u v/@s w/@u} r/$?($n $u $d $z $a) d/$?($d $f $i)}
[[113 -16.494 32.765] %n %d]
:: p=precision: number of bits in arithmetic form; must be at least 2
:: v=min exponent: minimum value of e
:: w=width: max - min value of e, 0 is fixed point
:: r=rounding mode: nearest (ties to even), up, down, to zero, away from zero
:: d=behavior: return denormals, flush denormals to zero,
:: infinite exponent range
=>
~% %cofl +> ~
:: internal functions; mostly operating on {e/@s a/@u}, in other words
Miscellaneous floating-point fixes/changes
2017-03-02 06:39:56 +03:00
:: positive numbers. many of these error out if a=0.
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
++ rou
|= {a/{e/@s a/@u}} ^- fn (rau a &)
::
++ rau
|= {a/{e/@s a/@u} t/?} ^- fn
?- r
$z (lug %fl a t) $d (lug %fl a t)
$a (lug %ce a t) $u (lug %ce a t)
$n (lug %ne a t)
==
::
++ add :: add; exact if e
|= {a/{e/@s a/@u} b/{e/@s a/@u} e/?} ^- fn
=+ q=(dif:si e.a e.b)
|- ?. (syn:si q) $(b a, a b, q +(q)) :: a has larger exp
?: e
[%f & e.b (^add (lsh 0 (abs:si q) a.a) a.b)]
=+ [ma=(met 0 a.a) mb=(met 0 a.b)]
=+ ^= w %+ dif:si e.a %- sun:si :: expanded exp of a
?: (gth prc ma) (^sub prc ma) 0
=+ ^= x %+ sum:si e.b (sun:si mb) :: highest exp for b
?: =((cmp:si w x) --1) :: don't need to add
?- r
$z (lug %fl a &) $d (lug %fl a &)
$a (lug %lg a &) $u (lug %lg a &)
$n (lug %na a &)
==
(rou [e.b (^add (lsh 0 (abs:si q) a.a) a.b)])
::
++ sub :: subtract; exact if e
|= {a/{e/@s a/@u} b/{e/@s a/@u} e/?} ^- fn
=+ q=(dif:si e.a e.b)
|- ?. (syn:si q)
(fli $(b a, a b, q +(q), r swr))
=+ [ma=(met 0 a.a) mb=(met 0 a.b)]
=+ ^= w %+ dif:si e.a %- sun:si
?: (gth prc ma) (^sub prc ma) 0
Miscellaneous floating-point fixes/changes
2017-03-02 06:39:56 +03:00
=+ ^= x %+ sum:si e.b (sun:si +(mb))
New metal boot system.
2016-11-24 07:25:07 +03:00
?: &(!e =((cmp:si w x) --1))
?- r
$z (lug %sm a &) $d (lug %sm a &)
$a (lug %ce a &) $u (lug %ce a &)
$n (lug %nt a &)
==
=+ j=(lsh 0 (abs:si q) a.a)
|- ?. (gte j a.b)
(fli $(a.b j, j a.b, r swr))
=+ i=(^sub j a.b)
?~ i [%f & zer]
?: e [%f & e.b i] (rou [e.b i])
::
++ mul :: multiply
|= {a/{e/@s a/@u} b/{e/@s a/@u}} ^- fn
(rou (sum:si e.a e.b) (^mul a.a a.b))
::
++ div :: divide
|= {a/{e/@s a/@u} b/{e/@s a/@u}} ^- fn
=+ [ma=(met 0 a.a) mb=(met 0 a.b)]
=+ v=(dif:si (sun:si ma) (sun:si +((^add mb prc))))
=. a ?: (syn:si v) a
a(e (sum:si v e.a), a (lsh 0 (abs:si v) a.a))
=+ [j=(dif:si e.a e.b) q=(dvr a.a a.b)]
(rau [j p.q] =(q.q 0))
::
++ sqt :: square root
|= {a/{e/@s a/@u}} ^- fn
=. a
=+ [w=(met 0 a.a) x=(^mul +(prc) 2)]
=+ ?:((^lth w x) (^sub x w) 0)
=+ ?: =((dis - 1) (dis (abs:si e.a) 1)) -
(^add - 1)
a(e (dif:si e.a (sun:si -)), a (lsh 0 - a.a))
=+ [y=(^sqt a.a) z=(fra:si e.a --2)]
(rau [z p.y] =(q.y 0))
::
++ lth :: less-than
|= {a/{e/@s a/@u} b/{e/@s a/@u}} ^- ?
?: =(e.a e.b) (^lth a.a a.b)
=+ c=(cmp:si (ibl a) (ibl b))
?: =(c -1) & ?: =(c --1) |
?: =((cmp:si e.a e.b) -1)
(^lth (rsh 0 (abs:si (dif:si e.a e.b)) a.a) a.b)
(^lth (lsh 0 (abs:si (dif:si e.a e.b)) a.a) a.b)
::
++ equ :: equals
|= {a/{e/@s a/@u} b/{e/@s a/@u}} ^- ?
?. =((ibl a) (ibl b)) |
?: =((cmp:si e.a e.b) -1)
=((lsh 0 (abs:si (dif:si e.a e.b)) a.b) a.a)
=((lsh 0 (abs:si (dif:si e.a e.b)) a.a) a.b)
::
:: integer binary logarithm: 2^ibl(a) <= |a| < 2^(ibl(a)+1)
++ ibl
|= {a/{e/@s a/@u}} ^- @s
(sum:si (sun:si (dec (met 0 a.a))) e.a)
::
:: change to a representation where a.a is odd
:: every fn has a unique representation of this kind
++ uni
|= {a/{e/@s a/@u}}
|- ?: =((end 0 1 a.a) 1) a
$(a.a (rsh 0 1 a.a), e.a (sum:si e.a --1))
::
:: expands to either full precision or to denormalized
++ xpd
|= {a/{e/@s a/@u}}
=+ ma=(met 0 a.a)
?: (gte ma prc) a
=+ ?: =(den %i) (^sub prc ma)
=+ ^= q
=+ w=(dif:si e.a emn)
?: (syn:si w) (abs:si w) 0
(min q (^sub prc ma))
a(e (dif:si e.a (sun:si -)), a (lsh 0 - a.a))
::
:: central rounding mechanism
:: can perform: floor, ceiling, smaller, larger,
:: nearest (round ties to: even, away from 0, toward 0)
:: s is sticky bit: represents a value less than ulp(a) = 2^(e.a)
::
++ lug
~/ %lug
|= {t/$?($fl $ce $sm $lg $ne $na $nt) a/{e/@s a/@u} s/?} ^- fn
?< =(a.a 0)
=-
?. =(den %f) - :: flush denormals
?. ?=({$f *} -) -
?: =((met 0 ->+>) prc) - [%f & zer]
::
=+ m=(met 0 a.a)
?> |(s (gth m prc)) :: require precision
=+ ^= q
=+ ^= f :: reduce precision
?: (gth m prc) (^sub m prc) 0
=+ ^= g %- abs:si :: enforce min. exp
?: =(den %i) --0
?: =((cmp:si e.a emn) -1) (dif:si emn e.a) --0
(max f g)
=^ b a :- (end 0 q a.a)
a(e (sum:si e.a (sun:si q)), a (rsh 0 q a.a))
::
?~ a.a
?< =(den %i)
?- t
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
$fl [%f & zer]
New metal boot system.
2016-11-24 07:25:07 +03:00
$sm [%f & zer]
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
$ce [%f & spd]
New metal boot system.
2016-11-24 07:25:07 +03:00
$lg [%f & spd]
Add half-precision float support
2017-03-02 10:47:54 +03:00
$ne ?: s [%f & ?:((lte b (bex (dec q))) zer spd)]
New metal boot system.
2016-11-24 07:25:07 +03:00
[%f & ?:((^lth b (bex (dec q))) zer spd)]
Add half-precision float support
2017-03-02 10:47:54 +03:00
$nt ?: s [%f & ?:((lte b (bex (dec q))) zer spd)]
New metal boot system.
2016-11-24 07:25:07 +03:00
[%f & ?:((^lth b (bex (dec q))) zer spd)]
$na [%f & ?:((^lth b (bex (dec q))) zer spd)]
==
::
=. a (xpd a)
::
=. a
?- t
$fl a
$lg a(a +(a.a))
$sm ?. &(=(b 0) s) a
?: &(=(e.a emn) !=(den %i)) a(a (dec a.a))
=+ y=(dec (^mul a.a 2))
Add half-precision float support
2017-03-02 10:47:54 +03:00
?. (lte (met 0 y) prc) a(a (dec a.a))
New metal boot system.
2016-11-24 07:25:07 +03:00
[(dif:si e.a --1) y]
$ce ?: &(=(b 0) s) a a(a +(a.a))
$ne ?~ b a
=+ y=(bex (dec q))
?: &(=(b y) s) :: round halfs to even
?~ (dis a.a 1) a a(a +(a.a))
?: (^lth b y) a a(a +(a.a))
$na ?~ b a
=+ y=(bex (dec q))
?: (^lth b y) a a(a +(a.a))
$nt ?~ b a
=+ y=(bex (dec q))
?: =(b y) ?: s a a(a +(a.a))
?: (^lth b y) a a(a +(a.a))
==
::
=. a ?. =((met 0 a.a) +(prc)) a
a(a (rsh 0 1 a.a), e (sum:si e.a --1))
?~ a.a [%f & zer]
::
?: =(den %i) [%f & a]
?: =((cmp:si emx e.a) -1) [%i &] [%f & a] :: enforce max. exp
::
++ drg :: dragon4;
~/ %drg :: convert to decimal
|= {a/{e/@s a/@u}} ^- {@s @u}
?< =(a.a 0)
=. a (xpd a)
=+ r=(lsh 0 ?:((syn:si e.a) (abs:si e.a) 0) a.a)
=+ s=(lsh 0 ?.((syn:si e.a) (abs:si e.a) 0) 1)
=+ m=(lsh 0 ?:((syn:si e.a) (abs:si e.a) 0) 1)
=+ [k=--0 q=(^div (^add s 9) 10)]
|- ?: (^lth r q)
%= $
k (dif:si k --1)
r (^mul r 10)
m (^mul m 10)
==
|- ?: (gte (^add (^mul r 2) m) (^mul s 2))
$(s (^mul s 10), k (sum:si k --1))
=+ [u=0 o=0]
|-
=+ v=(dvr (^mul r 10) s)
=> %= .
k (dif:si k --1)
u p.v
r q.v
m (^mul m 10)
==
=+ l=(^lth (^mul r 2) m)
=+ ^= h
?| (^lth (^mul s 2) m)
(gth (^mul r 2) (^sub (^mul s 2) m))
==
?: &(!l !h)
$(o (^add (^mul o 10) u))
=+ q=&(h |(!l (gte (^mul r 2) s)))
=. o (^add (^mul o 10) ?:(q +(u) u))
[k o]
::
++ toj :: round to integer
|= {a/{e/@s a/@u}} ^- fn
?. =((cmp:si e.a --0) -1) [%f & a]
=+ x=(abs:si e.a)
=+ y=(rsh 0 x a.a)
?: |(=(r %d) =(r %z)) [%f & --0 y]
=+ z=(end 0 x a.a)
?: |(=(r %u) =(r %a)) [%f & --0 ?~(z y +(y))]
=+ i=(bex (dec x))
?: &(=(z i) =((dis y 1) 0)) [%f & --0 y]
?: (^lth z i) [%f & --0 y] [%f & --0 +(y)]
::
++ ned :: require ?=({$f *} a)
|= {a/fn} ^- {$f s/? e/@s a/@u}
?: ?=({$f *} a) a
~_ leaf+"need-float"
!!
::
++ shf :: a * 2^b; no rounding
|= {a/fn b/@s}
?: |(?=({$n *} a) ?=({$i *} a)) a
a(e (sum:si e.a b))
::
++ fli :: flip sign
|= {a/fn} ^- fn
?-(-.a $f a(s !s.a), $i a(s !s.a), $n a)
::
++ swr ?+(r r $d %u, $u %d) :: flipped rounding
++ prc ?>((gth p 1) p) :: force >= 2 precision
++ den d :: denorm+flush+inf exp
++ emn v :: minimum exponent
++ emx (sum:si emn (sun:si w)) :: maximum exponent
++ spd [e=emn a=1] :: smallest denormal
++ spn [e=emn a=(bex (dec prc))] :: smallest normal
++ lfn [e=emx a=(fil 0 prc 1)] :: largest
++ lfe (sum:si emx (sun:si prc)) :: 2^lfe is > than all
++ zer [e=--0 a=0]
--
|%
++ rou :: round
|= {a/fn} ^- fn
?. ?=({$f *} a) a
?~ a.a [%f s.a zer]
?: s.a (^rou +>.a)
=.(r swr (fli (^rou +>.a)))
::
++ syn :: get sign
|= {a/fn} ^- ?
?-(-.a $f s.a, $i s.a, $n &)
::
++ abs :: absolute value
|= {a/fn} ^- fn
?: ?=({$f *} a) [%f & e.a a.a]
?: ?=({$i *} a) [%i &] [%n ~]
::
++ add :: add
|= {a/fn b/fn} ^- fn
?: |(?=({$n *} a) ?=({$n *} b)) [%n ~]
?: |(?=({$i *} a) ?=({$i *} b))
?: &(?=({$i *} a) ?=({$i *} b))
?: =(a b) a [%n ~]
?: ?=({$i *} a) a b
?: |(=(a.a 0) =(a.b 0))
?. &(=(a.a 0) =(a.b 0)) %- rou ?~(a.a b a)
[%f ?:(=(r %d) &(s.a s.b) |(s.a s.b)) zer]
%- |= {a/fn}
?. ?=({$f *} a) a
?. =(a.a 0) a
[%f !=(r %d) zer]
?: =(s.a s.b)
?: s.a (^add +>.a +>.b |)
=.(r swr (fli (^add +>.a +>.b |)))
?: s.a (^sub +>.a +>.b |)
(^sub +>.b +>.a |)
::
++ ead :: exact add
|= {a/fn b/fn} ^- fn
?: |(?=({$n *} a) ?=({$n *} b)) [%n ~]
?: |(?=({$i *} a) ?=({$i *} b))
?: &(?=({$i *} a) ?=({$i *} b))
?: =(a b) a [%n ~]
?: ?=({$i *} a) a b
?: |(=(a.a 0) =(a.b 0))
?. &(=(a.a 0) =(a.b 0)) ?~(a.a b a)
[%f ?:(=(r %d) &(s.a s.b) |(s.a s.b)) zer]
%- |= {a/fn}
?. ?=({$f *} a) a
?. =(a.a 0) a
[%f !=(r %d) zer]
?: =(s.a s.b)
?: s.a (^add +>.a +>.b &)
(fli (^add +>.a +>.b &))
?: s.a (^sub +>.a +>.b &)
(^sub +>.b +>.a &)
::
++ sub :: subtract
|= {a/fn b/fn} ^- fn (add a (fli b))
::
++ mul :: multiply
|= {a/fn b/fn} ^- fn
?: |(?=({$n *} a) ?=({$n *} b)) [%n ~]
?: ?=({$i *} a)
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
?: ?=({$i *} b)
New metal boot system.
2016-11-24 07:25:07 +03:00
[%i =(s.a s.b)]
?: =(a.b 0) [%n ~] [%i =(s.a s.b)]
?: ?=({$i *} b)
?: =(a.a 0) [%n ~] [%i =(s.a s.b)]
?: |(=(a.a 0) =(a.b 0)) [%f =(s.a s.b) zer]
?: =(s.a s.b) (^mul +>.a +>.b)
=.(r swr (fli (^mul +>.a +>.b)))
::
++ emu :: exact multiply
|= {a/fn b/fn} ^- fn
?: |(?=({$n *} a) ?=({$n *} b)) [%n ~]
?: ?=({$i *} a)
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
?: ?=({$i *} b)
New metal boot system.
2016-11-24 07:25:07 +03:00
[%i =(s.a s.b)]
?: =(a.b 0) [%n ~] [%i =(s.a s.b)]
?: ?=({$i *} b)
?: =(a.a 0) [%n ~] [%i =(s.a s.b)]
?: |(=(a.a 0) =(a.b 0)) [%f =(s.a s.b) zer]
[%f =(s.a s.b) (sum:si e.a e.b) (^^mul a.a a.b)]
::
++ div :: divide
|= {a/fn b/fn} ^- fn
?: |(?=({$n *} a) ?=({$n *} b)) [%n ~]
?: ?=({$i *} a)
?: ?=({$i *} b) [%n ~] [%i =(s.a s.b)]
?: ?=({$i *} b) [%f =(s.a s.b) zer]
?: =(a.a 0) ?: =(a.b 0) [%n ~] [%f =(s.a s.b) zer]
?: =(a.b 0) [%i =(s.a s.b)]
?: =(s.a s.b) (^div +>.a +>.b)
=.(r swr (fli (^div +>.a +>.b)))
::
++ fma :: fused multiply-add
|= {a/fn b/fn c/fn} ^- fn :: (a * b) + c
(add (emu a b) c)
::
++ sqt :: square root
|= {a/fn} ^- fn
?: ?=({$n *} a) [%n ~]
?: ?=({$i *} a) ?:(s.a a [%n ~])
?~ a.a [%f s.a zer]
?: s.a (^sqt +>.a) [%n ~]
::
++ inv :: inverse
|= {a/fn} ^- fn
(div [%f & --0 1] a)
::
++ sun :: uns integer to float
|= {a/@u} ^- fn
(rou [%f & --0 a])
::
++ san :: sgn integer to float
|= {a/@s} ^- fn
=+ b=(old:si a)
(rou [%f -.b --0 +.b])
::
:: comparisons return ~ in the event of a NaN
++ lth :: less-than
|= {a/fn b/fn} ^- (unit ?)
?: |(?=({$n *} a) ?=({$n *} b)) ~ :- ~
?: =(a b) |
?: ?=({$i *} a) !s.a ?: ?=({$i *} b) s.b
?: |(=(a.a 0) =(a.b 0))
?: &(=(a.a 0) =(a.b 0)) |
?: =(a.a 0) s.b !s.a
?: !=(s.a s.b) s.b
?: s.a (^lth +>.a +>.b) (^lth +>.b +>.a)
::
++ lte :: less-equal
|= {a/fn b/fn} ^- (unit ?)
Miscellaneous floating-point fixes/changes
2017-03-02 06:39:56 +03:00
%+ bind (lth b a) |= a/? !a
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ equ :: equal
|= {a/fn b/fn} ^- (unit ?)
?: |(?=({$n *} a) ?=({$n *} b)) ~ :- ~
?: =(a b) &
?: |(?=({$i *} a) ?=({$i *} b)) |
?: |(=(a.a 0) =(a.b 0))
?: &(=(a.a 0) =(a.b 0)) & |
?: |(=(e.a e.b) !=(s.a s.b)) |
(^equ +>.a +>.b)
::
++ gte :: greater-equal
|= {a/fn b/fn} ^- (unit ?) (lte b a)
::
++ gth :: greater-than
|= {a/fn b/fn} ^- (unit ?) (lth b a)
::
++ drg :: float to decimal
|= {a/fn} ^- dn
?: ?=({$n *} a) [%n ~]
?: ?=({$i *} a) [%i s.a]
?~ a.a [%d s.a --0 0]
[%d s.a (^drg +>.a)]
::
++ grd :: decimal to float
|= {a/dn} ^- fn
?: ?=({$n *} a) [%n ~]
?: ?=({$i *} a) [%i s.a]
=> .(r %n)
=+ q=(abs:si e.a)
?: (syn:si e.a)
(mul [%f s.a --0 a.a] [%f & e.a (pow 5 q)])
(div [%f s.a --0 a.a] [%f & (sun:si q) (pow 5 q)])
::
++ toi :: round to integer @s
|= {a/fn} ^- (unit @s)
=+ b=(toj a)
?. ?=({$f *} b) ~ :- ~
=+ c=(^^mul (bex (abs:si e.b)) a.b)
(new:si s.b c)
::
++ toj :: round to integer fn
|= {a/fn} ^- fn
?. ?=({$f *} a) a
?~ a.a [%f s.a zer]
?: s.a (^toj +>.a)
=.(r swr (fli (^toj +>.a)))
--
::
++ ff :: ieee 754 format fp
|_ {{w/@u p/@u b/@s} r/$?($n $u $d $z $a)}
:: this core has no use outside of the functionality
:: provided to ++rd, ++rs, ++rq, and ++rh
::
:: w=width: bits in exponent field
:: p=precision: bits in fraction field
:: w=bias: added to exponent when storing
:: r=rounding mode: same as in ++fl
::
++ sb (bex (^add w p)) :: sign bit
++ me (dif:si (dif:si --1 b) (sun:si p)) :: minimum exponent
::
++ pa
%*(. fl p +(p), v me, w (^sub (bex w) 3), d %d, r r)
::
++ sea :: @r to fn
|= {a/@r} ^- fn
=+ [f=(cut 0 [0 p] a) e=(cut 0 [p w] a)]
=+ s=(sig a)
?: =(e 0)
?: =(f 0) [%f s --0 0] [%f s me f]
?: =(e (fil 0 w 1))
?: =(f 0) [%i s] [%n ~]
=+ q=:(sum:si (sun:si e) me -1)
=+ r=(^add f (bex p))
[%f s q r]
::
++ bit |= {a/fn} (bif (rou:pa a)) :: fn to @r w+ rounding
::
++ bif :: fn to @r no rounding
|= {a/fn} ^- @r
?: ?=({$i *} a)
=+ q=(lsh 0 p (fil 0 w 1))
?: s.a q (^add q sb)
?: ?=({$n *} a) (lsh 0 (dec p) (fil 0 +(w) 1))
?~ a.a ?: s.a `@r`0 sb
=+ ma=(met 0 a.a)
?. =(ma +(p))
?> =(e.a me)
?> (^lth ma +(p))
?: s.a `@r`a.a (^add a.a sb)
=+ q=(sum:si (dif:si e.a me) --1)
=+ r=(^add (lsh 0 p (abs:si q)) (end 0 p a.a))
?: s.a r (^add r sb)
::
++ sig :: get sign
|= {a/@r} ^- ?
=(0 (cut 0 [(^add p w) 1] a))
::
++ exp :: get exponent
|= {a/@r} ^- @s
(dif:si (sun:si (cut 0 [p w] a)) b)
::
++ add :: add
|= {a/@r b/@r}
(bif (add:pa (sea a) (sea b)))
::
++ sub :: subtract
|= {a/@r b/@r}
(bif (sub:pa (sea a) (sea b)))
::
++ mul :: multiply
|= {a/@r b/@r}
(bif (mul:pa (sea a) (sea b)))
::
++ div :: divide
|= {a/@r b/@r}
(bif (div:pa (sea a) (sea b)))
::
++ fma :: fused multiply-add
|= {a/@r b/@r c/@r}
(bif (fma:pa (sea a) (sea b) (sea c)))
::
++ sqt :: square root
|= {a/@r}
(bif (sqt:pa (sea a)))
::
++ lth :: less-than
|= {a/@r b/@r} (fall (lth:pa (sea a) (sea b)) |)
++ lte :: less-equals
|= {a/@r b/@r} (fall (lte:pa (sea a) (sea b)) |)
++ equ :: equals
|= {a/@r b/@r} (fall (equ:pa (sea a) (sea b)) |)
++ gte :: greater-equals
|= {a/@r b/@r} (fall (gte:pa (sea a) (sea b)) |)
++ gth :: greater-than
|= {a/@r b/@r} (fall (gth:pa (sea a) (sea b)) |)
++ sun :: uns integer to @r
|= {a/@u} (bit [%f & --0 a])
++ san :: signed integer to @r
|= {a/@s} (bit [%f (syn:si a) --0 (abs:si a)])
++ toi :: round to integer
|= {a/@r} (toi:pa (sea a))
++ drg :: @r to decimal float
|= {a/@r} (drg:pa (sea a))
++ grd :: decimal float to @r
|= {a/dn} (bif (grd:pa a))
--
::
++ rlyd |= a/@rd ^- dn (drg:rd a) :: prep @rd for print
++ rlys |= a/@rs ^- dn (drg:rs a) :: prep @rs for print
++ rlyh |= a/@rh ^- dn (drg:rh a) :: prep @rh for print
++ rlyq |= a/@rq ^- dn (drg:rq a) :: prep @rq for print
++ ryld |= a/dn ^- @rd (grd:rd a) :: finish parsing @rd
++ ryls |= a/dn ^- @rs (grd:rs a) :: finish parsing @rs
++ rylh |= a/dn ^- @rh (grd:rh a) :: finish parsing @rh
++ rylq |= a/dn ^- @rq (grd:rq a) :: finish parsing @rq
::
++ rd :: double precision fp
~% %rd +> ~
|_ r/$?($n $u $d $z)
:: round to nearest, round up, round down, round to zero
::
++ ma
%*(. ff w 11, p 52, b --1.023, r r)
::
++ sea :: @rd to fn
|= {a/@rd} (sea:ma a)
::
++ bit :: fn to @rd
|= {a/fn} ^- @rd (bit:ma a)
::
++ add ~/ %add :: add
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rd b/@rd} ^- @rd
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rd-fail"
(add:ma a b)
::
++ sub ~/ %sub :: subtract
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rd b/@rd} ^- @rd
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rd-fail"
(sub:ma a b)
::
++ mul ~/ %mul :: multiply
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rd b/@rd} ^- @rd
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rd-fail"
(mul:ma a b)
::
++ div ~/ %div :: divide
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rd b/@rd} ^- @rd
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rd-fail"
(div:ma a b)
::
++ fma ~/ %fma :: fused multiply-add
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rd b/@rd c/@rd} ^- @rd
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rd-fail"
(fma:ma a b c)
::
++ sqt ~/ %sqt :: square root
|= {a/@rd} ^- @rd ~_ leaf+"rd-fail"
(sqt:ma a)
::
++ lth ~/ %lth :: less-than
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rd b/@rd}
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rd-fail"
(lth:ma a b)
::
++ lte ~/ %lte :: less-equals
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rd b/@rd}
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rd-fail"
(lte:ma a b)
::
++ equ ~/ %equ :: equals
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rd b/@rd}
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rd-fail"
(equ:ma a b)
::
++ gte ~/ %gte :: greater-equals
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rd b/@rd}
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rd-fail"
(gte:ma a b)
::
++ gth ~/ %gth :: greater-than
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rd b/@rd}
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rd-fail"
(gth:ma a b)
::
++ sun |= {a/@u} ^- @rd (sun:ma a) :: uns integer to @rd
++ san |= {a/@s} ^- @rd (san:ma a) :: sgn integer to @rd
++ sig |= {a/@rd} ^- ? (sig:ma a) :: get sign
++ exp |= {a/@rd} ^- @s (exp:ma a) :: get exponent
++ toi |= {a/@rd} ^- (unit @s) (toi:ma a) :: round to integer
++ drg |= {a/@rd} ^- dn (drg:ma a) :: @rd to decimal float
++ grd |= {a/dn} ^- @rd (grd:ma a) :: decimal float to @rd
--
::
++ rs :: single precision fp
~% %rs +> ~
|_ r/$?($n $u $d $z)
:: round to nearest, round up, round down, round to zero
::
++ ma
%*(. ff w 8, p 23, b --127, r r)
::
++ sea :: @rs to fn
|= {a/@rs} (sea:ma a)
::
++ bit :: fn to @rs
|= {a/fn} ^- @rs (bit:ma a)
::
++ add ~/ %add :: add
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rs b/@rs} ^- @rs
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rs-fail"
(add:ma a b)
::
++ sub ~/ %sub :: subtract
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rs b/@rs} ^- @rs
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rs-fail"
(sub:ma a b)
::
++ mul ~/ %mul :: multiply
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rs b/@rs} ^- @rs
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rs-fail"
(mul:ma a b)
::
++ div ~/ %div :: divide
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rs b/@rs} ^- @rs
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rs-fail"
(div:ma a b)
::
++ fma ~/ %fma :: fused multiply-add
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rs b/@rs c/@rs} ^- @rs
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rs-fail"
(fma:ma a b c)
::
++ sqt ~/ %sqt :: square root
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rs} ^- @rs
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rs-fail"
(sqt:ma a)
::
++ lth ~/ %lth :: less-than
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rs b/@rs}
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rs-fail"
(lth:ma a b)
::
++ lte ~/ %lte :: less-equals
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rs b/@rs}
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rs-fail"
(lte:ma a b)
::
++ equ ~/ %equ :: equals
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rs b/@rs}
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rs-fail"
(equ:ma a b)
::
++ gte ~/ %gte :: greater-equals
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rs b/@rs}
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rs-fail"
(gte:ma a b)
::
++ gth ~/ %gth :: greater-than
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rs b/@rs}
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rs-fail"
(gth:ma a b)
::
++ sun |= {a/@u} ^- @rs (sun:ma a) :: uns integer to @rs
++ san |= {a/@s} ^- @rs (san:ma a) :: sgn integer to @rs
++ sig |= {a/@rs} ^- ? (sig:ma a) :: get sign
++ exp |= {a/@rs} ^- @s (exp:ma a) :: get exponent
++ toi |= {a/@rs} ^- (unit @s) (toi:ma a) :: round to integer
++ drg |= {a/@rs} ^- dn (drg:ma a) :: @rs to decimal float
++ grd |= {a/dn} ^- @rs (grd:ma a) :: decimal float to @rs
--
::
++ rq :: quad precision fp
~% %rq +> ~
|_ r/$?($n $u $d $z)
:: round to nearest, round up, round down, round to zero
::
++ ma
%*(. ff w 15, p 112, b --16.383, r r)
::
++ sea :: @rq to fn
|= {a/@rq} (sea:ma a)
::
++ bit :: fn to @rq
|= {a/fn} ^- @rq (bit:ma a)
::
++ add ~/ %add :: add
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rq b/@rq} ^- @rq
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rq-fail"
(add:ma a b)
::
++ sub ~/ %sub :: subtract
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rq b/@rq} ^- @rq
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rq-fail"
(sub:ma a b)
::
++ mul ~/ %mul :: multiply
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rq b/@rq} ^- @rq
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rq-fail"
(mul:ma a b)
::
++ div ~/ %div :: divide
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rq b/@rq} ^- @rq
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rq-fail"
(div:ma a b)
::
++ fma ~/ %fma :: fused multiply-add
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rq b/@rq c/@rq} ^- @rq
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rq-fail"
(fma:ma a b c)
::
++ sqt ~/ %sqt :: square root
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rq} ^- @rq
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rq-fail"
(sqt:ma a)
::
++ lth ~/ %lth :: less-than
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rq b/@rq}
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rq-fail"
(lth:ma a b)
::
++ lte ~/ %lte :: less-equals
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rq b/@rq}
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rq-fail"
(lte:ma a b)
::
++ equ ~/ %equ :: equals
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rq b/@rq}
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rq-fail"
(equ:ma a b)
::
++ gte ~/ %gte :: greater-equals
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rq b/@rq}
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rq-fail"
(gte:ma a b)
::
++ gth ~/ %gth :: greater-than
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= {a/@rq b/@rq}
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"rq-fail"
(gth:ma a b)
::
++ sun |= {a/@u} ^- @rq (sun:ma a) :: uns integer to @rq
++ san |= {a/@s} ^- @rq (san:ma a) :: sgn integer to @rq
++ sig |= {a/@rq} ^- ? (sig:ma a) :: get sign
++ exp |= {a/@rq} ^- @s (exp:ma a) :: get exponent
++ toi |= {a/@rq} ^- (unit @s) (toi:ma a) :: round to integer
++ drg |= {a/@rq} ^- dn (drg:ma a) :: @rq to decimal float
++ grd |= {a/dn} ^- @rq (grd:ma a) :: decimal float to @rq
--
::
++ rh :: half precision fp
Add half-precision float support
2017-03-02 10:47:54 +03:00
~% %rh +> ~
New metal boot system.
2016-11-24 07:25:07 +03:00
|_ r/$?($n $u $d $z)
:: round to nearest, round up, round down, round to zero
::
++ ma
%*(. ff w 5, p 10, b --15, r r)
::
++ sea :: @rh to fn
|= {a/@rh} (sea:ma a)
::
++ bit :: fn to @rh
|= {a/fn} ^- @rh (bit:ma a)
::
Add half-precision float support
2017-03-02 10:47:54 +03:00
++ add ~/ %add :: add
|= {a/@rh b/@rh} ^- @rh
~_ leaf+"rh-fail"
(add:ma a b)
::
++ sub ~/ %sub :: subtract
|= {a/@rh b/@rh} ^- @rh
~_ leaf+"rh-fail"
(sub:ma a b)
::
++ mul ~/ %mul :: multiply
|= {a/@rh b/@rh} ^- @rh
~_ leaf+"rh-fail"
(mul:ma a b)
::
++ div ~/ %div :: divide
|= {a/@rh b/@rh} ^- @rh
~_ leaf+"rh-fail"
(div:ma a b)
::
++ fma ~/ %fma :: fused multiply-add
|= {a/@rh b/@rh c/@rh} ^- @rh
~_ leaf+"rh-fail"
(fma:ma a b c)
::
++ sqt ~/ %sqt :: square root
|= {a/@rh} ^- @rh
~_ leaf+"rh-fail"
(sqt:ma a)
::
++ lth ~/ %lth :: less-than
|= {a/@rh b/@rh}
~_ leaf+"rh-fail"
(lth:ma a b)
::
++ lte ~/ %lte :: less-equals
|= {a/@rh b/@rh}
~_ leaf+"rh-fail"
(lte:ma a b)
::
++ equ ~/ %equ :: equals
|= {a/@rh b/@rh}
~_ leaf+"rh-fail"
(equ:ma a b)
::
++ gte ~/ %gte :: greater-equals
|= {a/@rh b/@rh}
~_ leaf+"rh-fail"
(gte:ma a b)
::
++ gth ~/ %gth :: greater-than
|= {a/@rh b/@rh}
~_ leaf+"rh-fail"
(gth:ma a b)
::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ tos :: @rh to @rs
|= {a/@rh} (bit:rs (sea a))
::
++ fos :: @rs to @rh
|= {a/@rs} (bit (sea:rs a))
::
++ sun |= {a/@u} ^- @rh (sun:ma a) :: uns integer to @rh
++ san |= {a/@s} ^- @rh (san:ma a) :: sgn integer to @rh
++ sig |= {a/@rh} ^- ? (sig:ma a) :: get sign
++ exp |= {a/@rh} ^- @s (exp:ma a) :: get exponent
++ toi |= {a/@rh} ^- (unit @s) (toi:ma a) :: round to integer
++ drg |= {a/@rh} ^- dn (drg:ma a) :: @rh to decimal float
++ grd |= {a/dn} ^- @rh (grd:ma a) :: decimal float to @rh
--
:: 3c: urbit time ::
:::: ::
:: year, yore, yell, yule, yall, yawn, yelp, yo ::
::
++ year :: date to @d
|= det/date
^- @da
=+ ^= yer
?: a.det
(add 292.277.024.400 y.det)
(sub 292.277.024.400 (dec y.det))
=+ day=(yawn yer m.det d.t.det)
(yule day h.t.det m.t.det s.t.det f.t.det)
::
++ yore :: @d to date
|= now/@da
^- date
=+ rip=(yell now)
=+ ger=(yall d.rip)
:- ?: (gth y.ger 292.277.024.400)
[a=& y=(sub y.ger 292.277.024.400)]
[a=| y=+((sub 292.277.024.400 y.ger))]
[m.ger d.ger h.rip m.rip s.rip f.rip]
::
++ yell :: tarp from @d
|= now/@d
^- tarp
=+ sec=(rsh 6 1 now)
=+ ^= fan
=+ [muc=4 raw=(end 6 1 now)]
|- ^- (list @ux)
?: |(=(0 raw) =(0 muc))
~
=> .(muc (dec muc))
[(cut 4 [muc 1] raw) $(raw (end 4 muc raw))]
=+ day=(div sec day:yo)
=> .(sec (mod sec day:yo))
=+ hor=(div sec hor:yo)
=> .(sec (mod sec hor:yo))
=+ mit=(div sec mit:yo)
=> .(sec (mod sec mit:yo))
[day hor mit sec fan]
::
++ yule :: time atom
|= rip/tarp
^- @d
=+ ^= sec ;: add
(mul d.rip day:yo)
(mul h.rip hor:yo)
(mul m.rip mit:yo)
s.rip
==
=+ ^= fac =+ muc=4
|- ^- @
?~ f.rip
0
=> .(muc (dec muc))
(add (lsh 4 muc i.f.rip) $(f.rip t.f.rip))
(con (lsh 6 1 sec) fac)
::
++ yall :: day / to day of year
|= day/@ud
^- {y/@ud m/@ud d/@ud}
=+ [era=0 cet=0 lep=*?]
=> .(era (div day era:yo), day (mod day era:yo))
=> ^+ .
?: (lth day +(cet:yo))
.(lep &, cet 0)
=> .(lep |, cet 1, day (sub day +(cet:yo)))
.(cet (add cet (div day cet:yo)), day (mod day cet:yo))
=+ yer=(add (mul 400 era) (mul 100 cet))
|- ^- {y/@ud m/@ud d/@ud}
=+ dis=?:(lep 366 365)
?. (lth day dis)
=+ ner=+(yer)
$(yer ner, day (sub day dis), lep =(0 (end 0 2 ner)))
|- ^- {y/@ud m/@ud d/@ud}
=+ [mot=0 cah=?:(lep moy:yo moh:yo)]
|- ^- {y/@ud m/@ud d/@ud}
=+ zis=(snag mot cah)
?: (lth day zis)
[yer +(mot) +(day)]
$(mot +(mot), day (sub day zis))
::
++ yawn :: days since Jesus
|= {yer/@ud mot/@ud day/@ud}
^- @ud
=> .(mot (dec mot), day (dec day))
=> ^+ .
%= .
day
=+ cah=?:((yelp yer) moy:yo moh:yo)
|- ^- @ud
?: =(0 mot)
day
$(mot (dec mot), cah (slag 1 cah), day (add day (snag 0 cah)))
==
|- ^- @ud
?. =(0 (mod yer 4))
=+ ney=(dec yer)
$(yer ney, day (add day ?:((yelp ney) 366 365)))
?. =(0 (mod yer 100))
=+ nef=(sub yer 4)
$(yer nef, day (add day ?:((yelp nef) 1.461 1.460)))
?. =(0 (mod yer 400))
=+ nec=(sub yer 100)
$(yer nec, day (add day ?:((yelp nec) 36.525 36.524)))
(add day (mul (div yer 400) (add 1 (mul 4 36.524))))
::
++ yelp :: leap year
|= yer/@ud ^- ?
&(=(0 (mod yer 4)) |(!=(0 (mod yer 100)) =(0 (mod yer 400))))
::
++ yo :: time constants
|% ++ cet 36.524 :: (add 24 (mul 100 365))
++ day 86.400 :: (mul 24 hor)
++ era 146.097 :: (add 1 (mul 4 cet))
++ hor 3.600 :: (mul 60 mit)
++ jes 106.751.991.084.417 :: (mul 730.692.561 era)
++ mit 60
++ moh `(list @ud)`[31 28 31 30 31 30 31 31 30 31 30 31 ~]
++ moy `(list @ud)`[31 29 31 30 31 30 31 31 30 31 30 31 ~]
++ qad 126.144.001 :: (add 1 (mul 4 yer))
++ yer 31.536.000 :: (mul 365 day)
--
:: ::
:::: 3d: SHA hash family ::
:: ::
::
++ shad |=(ruz/@ (shax (shax ruz))) :: double sha-256
++ shaf :: half sha-256
|= {sal/@ ruz/@}
=+ haz=(shas sal ruz)
(mix (end 7 1 haz) (rsh 7 1 haz))
::
++ sham :: 128bit noun hash
|= yux/* ^- @uvH ^- @
?@ yux
(shaf %mash yux)
(shaf %sham (jam yux))
::
++ shas :: salted hash
|= {sal/@ ruz/@}
(shax (mix sal (shax ruz)))
::
++ shax :: sha-256
~/ %shax
|= ruz/@ ^- @
(shay [(met 3 ruz) ruz])
::
++ shay :: sha-256 with length
~/ %shay
|= {len/@u ruz/@} ^- @
=> .(ruz (cut 3 [0 len] ruz))
=+ [few==>(fe .(a 5)) wac=|=({a/@ b/@} (cut 5 [a 1] b))]
=+ [sum=sum.few ror=ror.few net=net.few inv=inv.few]
=+ ral=(lsh 0 3 len)
=+ ^= ful
%+ can 0
:~ [ral ruz]
[8 128]
[(mod (sub 960 (mod (add 8 ral) 512)) 512) 0]
[64 (~(net fe 6) ral)]
==
=+ lex=(met 9 ful)
=+ ^= kbx 0xc671.78f2.bef9.a3f7.a450.6ceb.90be.fffa.
8cc7.0208.84c8.7814.78a5.636f.748f.82ee.
682e.6ff3.5b9c.ca4f.4ed8.aa4a.391c.0cb3.
34b0.bcb5.2748.774c.1e37.6c08.19a4.c116.
106a.a070.f40e.3585.d699.0624.d192.e819.
c76c.51a3.c24b.8b70.a81a.664b.a2bf.e8a1.
9272.2c85.81c2.c92e.766a.0abb.650a.7354.
5338.0d13.4d2c.6dfc.2e1b.2138.27b7.0a85.
1429.2967.06ca.6351.d5a7.9147.c6e0.0bf3.
bf59.7fc7.b003.27c8.a831.c66d.983e.5152.
76f9.88da.5cb0.a9dc.4a74.84aa.2de9.2c6f.
240c.a1cc.0fc1.9dc6.efbe.4786.e49b.69c1.
c19b.f174.9bdc.06a7.80de.b1fe.72be.5d74.
550c.7dc3.2431.85be.1283.5b01.d807.aa98.
ab1c.5ed5.923f.82a4.59f1.11f1.3956.c25b.
e9b5.dba5.b5c0.fbcf.7137.4491.428a.2f98
=+ ^= hax 0x5be0.cd19.1f83.d9ab.9b05.688c.510e.527f.
a54f.f53a.3c6e.f372.bb67.ae85.6a09.e667
=+ i=0
|- ^- @
?: =(i lex)
(rep 5 (turn (rip 5 hax) net))
=+ ^= wox
=+ dux=(cut 9 [i 1] ful)
=+ wox=(rep 5 (turn (rip 5 dux) net))
=+ j=16
|- ^- @
?: =(64 j)
wox
=+ :* l=(wac (sub j 15) wox)
m=(wac (sub j 2) wox)
n=(wac (sub j 16) wox)
o=(wac (sub j 7) wox)
==
=+ x=:(mix (ror 0 7 l) (ror 0 18 l) (rsh 0 3 l))
=+ y=:(mix (ror 0 17 m) (ror 0 19 m) (rsh 0 10 m))
=+ z=:(sum n x o y)
$(wox (con (lsh 5 j z) wox), j +(j))
=+ j=0
=+ :* a=(wac 0 hax)
b=(wac 1 hax)
c=(wac 2 hax)
d=(wac 3 hax)
e=(wac 4 hax)
f=(wac 5 hax)
g=(wac 6 hax)
h=(wac 7 hax)
==
|- ^- @
?: =(64 j)
%= ^$
i +(i)
hax %+ rep 5
:~ (sum a (wac 0 hax))
(sum b (wac 1 hax))
(sum c (wac 2 hax))
(sum d (wac 3 hax))
(sum e (wac 4 hax))
(sum f (wac 5 hax))
(sum g (wac 6 hax))
(sum h (wac 7 hax))
==
==
=+ l=:(mix (ror 0 2 a) (ror 0 13 a) (ror 0 22 a)) :: s0
=+ m=:(mix (dis a b) (dis a c) (dis b c)) :: maj
=+ n=(sum l m) :: t2
=+ o=:(mix (ror 0 6 e) (ror 0 11 e) (ror 0 25 e)) :: s1
=+ p=(mix (dis e f) (dis (inv e) g)) :: ch
=+ q=:(sum h o p (wac j kbx) (wac j wox)) :: t1
$(j +(j), a (sum q n), b a, c b, d c, e (sum d q), f e, g f, h g)
::
++ shaw :: hash to nbits
|= {sal/@ len/@ ruz/@}
(~(raw og (shas sal (mix len ruz))) len)
::
++ shaz :: sha-512
|= ruz/@ ^- @
(shal [(met 3 ruz) ruz])
::
++ shal :: sha-512 with length
~/ %shal
|= {len/@ ruz/@} ^- @
=> .(ruz (cut 3 [0 len] ruz))
=+ [few==>(fe .(a 6)) wac=|=({a/@ b/@} (cut 6 [a 1] b))]
=+ [sum=sum.few ror=ror.few net=net.few inv=inv.few]
=+ ral=(lsh 0 3 len)
=+ ^= ful
%+ can 0
:~ [ral ruz]
[8 128]
[(mod (sub 1.920 (mod (add 8 ral) 1.024)) 1.024) 0]
[128 (~(net fe 7) ral)]
==
=+ lex=(met 10 ful)
=+ ^= kbx 0x6c44.198c.4a47.5817.5fcb.6fab.3ad6.faec.
597f.299c.fc65.7e2a.4cc5.d4be.cb3e.42b6.
431d.67c4.9c10.0d4c.3c9e.be0a.15c9.bebc.
32ca.ab7b.40c7.2493.28db.77f5.2304.7d84.
1b71.0b35.131c.471b.113f.9804.bef9.0dae.
0a63.7dc5.a2c8.98a6.06f0.67aa.7217.6fba.
f57d.4f7f.ee6e.d178.eada.7dd6.cde0.eb1e.
d186.b8c7.21c0.c207.ca27.3ece.ea26.619c.
c671.78f2.e372.532b.bef9.a3f7.b2c6.7915.
a450.6ceb.de82.bde9.90be.fffa.2363.1e28.
8cc7.0208.1a64.39ec.84c8.7814.a1f0.ab72.
78a5.636f.4317.2f60.748f.82ee.5def.b2fc.
682e.6ff3.d6b2.b8a3.5b9c.ca4f.7763.e373.
4ed8.aa4a.e341.8acb.391c.0cb3.c5c9.5a63.
34b0.bcb5.e19b.48a8.2748.774c.df8e.eb99.
1e37.6c08.5141.ab53.19a4.c116.b8d2.d0c8.
106a.a070.32bb.d1b8.f40e.3585.5771.202a.
d699.0624.5565.a910.d192.e819.d6ef.5218.
c76c.51a3.0654.be30.c24b.8b70.d0f8.9791.
a81a.664b.bc42.3001.a2bf.e8a1.4cf1.0364.
9272.2c85.1482.353b.81c2.c92e.47ed.aee6.
766a.0abb.3c77.b2a8.650a.7354.8baf.63de.
5338.0d13.9d95.b3df.4d2c.6dfc.5ac4.2aed.
2e1b.2138.5c26.c926.27b7.0a85.46d2.2ffc.
1429.2967.0a0e.6e70.06ca.6351.e003.826f.
d5a7.9147.930a.a725.c6e0.0bf3.3da8.8fc2.
bf59.7fc7.beef.0ee4.b003.27c8.98fb.213f.
a831.c66d.2db4.3210.983e.5152.ee66.dfab.
76f9.88da.8311.53b5.5cb0.a9dc.bd41.fbd4.
4a74.84aa.6ea6.e483.2de9.2c6f.592b.0275.
240c.a1cc.77ac.9c65.0fc1.9dc6.8b8c.d5b5.
efbe.4786.384f.25e3.e49b.69c1.9ef1.4ad2.
c19b.f174.cf69.2694.9bdc.06a7.25c7.1235.
80de.b1fe.3b16.96b1.72be.5d74.f27b.896f.
550c.7dc3.d5ff.b4e2.2431.85be.4ee4.b28c.
1283.5b01.4570.6fbe.d807.aa98.a303.0242.
ab1c.5ed5.da6d.8118.923f.82a4.af19.4f9b.
59f1.11f1.b605.d019.3956.c25b.f348.b538.
e9b5.dba5.8189.dbbc.b5c0.fbcf.ec4d.3b2f.
7137.4491.23ef.65cd.428a.2f98.d728.ae22
=+ ^= hax 0x5be0.cd19.137e.2179.1f83.d9ab.fb41.bd6b.
9b05.688c.2b3e.6c1f.510e.527f.ade6.82d1.
a54f.f53a.5f1d.36f1.3c6e.f372.fe94.f82b.
bb67.ae85.84ca.a73b.6a09.e667.f3bc.c908
=+ i=0
|- ^- @
?: =(i lex)
(rep 6 (turn (rip 6 hax) net))
=+ ^= wox
=+ dux=(cut 10 [i 1] ful)
=+ wox=(rep 6 (turn (rip 6 dux) net))
=+ j=16
|- ^- @
?: =(80 j)
wox
=+ :* l=(wac (sub j 15) wox)
m=(wac (sub j 2) wox)
n=(wac (sub j 16) wox)
o=(wac (sub j 7) wox)
==
=+ x=:(mix (ror 0 1 l) (ror 0 8 l) (rsh 0 7 l))
=+ y=:(mix (ror 0 19 m) (ror 0 61 m) (rsh 0 6 m))
=+ z=:(sum n x o y)
$(wox (con (lsh 6 j z) wox), j +(j))
=+ j=0
=+ :* a=(wac 0 hax)
b=(wac 1 hax)
c=(wac 2 hax)
d=(wac 3 hax)
e=(wac 4 hax)
f=(wac 5 hax)
g=(wac 6 hax)
h=(wac 7 hax)
==
|- ^- @
?: =(80 j)
%= ^$
i +(i)
hax %+ rep 6
:~ (sum a (wac 0 hax))
(sum b (wac 1 hax))
(sum c (wac 2 hax))
(sum d (wac 3 hax))
(sum e (wac 4 hax))
(sum f (wac 5 hax))
(sum g (wac 6 hax))
(sum h (wac 7 hax))
==
==
=+ l=:(mix (ror 0 28 a) (ror 0 34 a) (ror 0 39 a)) :: S0
=+ m=:(mix (dis a b) (dis a c) (dis b c)) :: maj
=+ n=(sum l m) :: t2
=+ o=:(mix (ror 0 14 e) (ror 0 18 e) (ror 0 41 e)) :: S1
=+ p=(mix (dis e f) (dis (inv e) g)) :: ch
=+ q=:(sum h o p (wac j kbx) (wac j wox)) :: t1
$(j +(j), a (sum q n), b a, c b, d c, e (sum d q), f e, g f, h g)
::
++ shan :: sha-1 (deprecated)
|= ruz/@
=+ [few==>(fe .(a 5)) wac=|=({a/@ b/@} (cut 5 [a 1] b))]
=+ [sum=sum.few ror=ror.few rol=rol.few net=net.few inv=inv.few]
=+ ral=(lsh 0 3 (met 3 ruz))
=+ ^= ful
%+ can 0
:~ [ral ruz]
[8 128]
[(mod (sub 960 (mod (add 8 ral) 512)) 512) 0]
[64 (~(net fe 6) ral)]
==
=+ lex=(met 9 ful)
=+ kbx=0xca62.c1d6.8f1b.bcdc.6ed9.eba1.5a82.7999
=+ hax=0xc3d2.e1f0.1032.5476.98ba.dcfe.efcd.ab89.6745.2301
=+ i=0
|-
?: =(i lex)
(rep 5 (flop (rip 5 hax)))
=+ ^= wox
=+ dux=(cut 9 [i 1] ful)
=+ wox=(rep 5 (turn (rip 5 dux) net))
=+ j=16
|- ^- @
?: =(80 j)
wox
=+ :* l=(wac (sub j 3) wox)
m=(wac (sub j 8) wox)
n=(wac (sub j 14) wox)
o=(wac (sub j 16) wox)
==
=+ z=(rol 0 1 :(mix l m n o))
$(wox (con (lsh 5 j z) wox), j +(j))
=+ j=0
=+ :* a=(wac 0 hax)
b=(wac 1 hax)
c=(wac 2 hax)
d=(wac 3 hax)
e=(wac 4 hax)
==
|- ^- @
?: =(80 j)
%= ^$
i +(i)
hax %+ rep 5
:~
(sum a (wac 0 hax))
(sum b (wac 1 hax))
(sum c (wac 2 hax))
(sum d (wac 3 hax))
(sum e (wac 4 hax))
==
==
=+ fx=(con (dis b c) (dis (not 5 1 b) d))
=+ fy=:(mix b c d)
=+ fz=:(con (dis b c) (dis b d) (dis c d))
=+ ^= tem
?: &((gte j 0) (lte j 19))
:(sum (rol 0 5 a) fx e (wac 0 kbx) (wac j wox))
?: &((gte j 20) (lte j 39))
:(sum (rol 0 5 a) fy e (wac 1 kbx) (wac j wox))
?: &((gte j 40) (lte j 59))
:(sum (rol 0 5 a) fz e (wac 2 kbx) (wac j wox))
:(sum (rol 0 5 a) fy e (wac 3 kbx) (wac j wox))
$(j +(j), a tem, b a, c (rol 0 30 b), d c, e d)
::
++ og :: shax-powered rng
~/ %og
|_ a/@
++ rad :: random in range
|= b/@ ^- @
=+ c=(raw (met 0 b))
?:((lth c b) c $(a +(a)))
::
++ rads :: random continuation
|= b/@
=+ r=(rad b)
[r +>.$(a (shas %og-s (mix a r)))]
::
++ raw :: random bits
~/ %raw
|= b/@ ^- @
%+ can
0
=+ c=(shas %og-a (mix b a))
|- ^- (list {@ @})
?: =(0 b)
~
=+ d=(shas %og-b (mix b (mix a c)))
?: (lth b 256)
[[b (end 0 b d)] ~]
[[256 d] $(c d, b (sub b 256))]
::
++ raws :: random bits
|= b/@ :: continuation
=+ r=(raw b)
[r +>.$(a (shas %og-s (mix a r)))]
--
:: ::
:::: 3e: AES encryption (XX removed) ::
:: ::
::
:: ::
:::: 3f: scrambling ::
:: ::
:: ob ::
::
++ un :: =(x (wred (wren x)))
|%
++ wren :: conceal structure
|= pyn/@ ^- @
=+ len=(met 3 pyn)
?: =(0 len)
0
=> .(len (dec len))
=+ mig=(zaft (xafo len (cut 3 [len 1] pyn)))
%+ can 3
%- flop ^- (list {@ @})
:- [1 mig]
|- ^- (list {@ @})
?: =(0 len)
~
=> .(len (dec len))
=+ mog=(zyft :(mix mig (end 3 1 len) (cut 3 [len 1] pyn)))
[[1 mog] $(mig mog)]
::
++ wred :: restore structure
|= cry/@ ^- @
=+ len=(met 3 cry)
?: =(0 len)
0
=> .(len (dec len))
=+ mig=(cut 3 [len 1] cry)
%+ can 3
%- flop ^- (list {@ @})
:- [1 (xaro len (zart mig))]
|- ^- (list {@ @})
?: =(0 len)
~
=> .(len (dec len))
=+ mog=(cut 3 [len 1] cry)
[[1 :(mix mig (end 3 1 len) (zyrt mog))] $(mig mog)]
::
++ xafo |=({a/@ b/@} +((mod (add (dec b) a) 255)))
++ xaro |=({a/@ b/@} +((mod (add (dec b) (sub 255 (mod a 255))) 255)))
::
++ zaft :: forward 255-sbox
|= a/@D
=+ ^= b
0xcc.75bc.86c8.2fb1.9a42.f0b3.79a0.92ca.21f6.1e41.cde5.fcc0.
7e85.51ae.1005.c72d.1246.07e8.7c64.a914.8d69.d9f4.59c2.8038.
1f4a.dca2.6fdf.66f9.f561.a12e.5a16.f7b0.a39f.364e.cb70.7318.
1de1.ad31.63d1.abd4.db68.6a33.134d.a760.edee.5434.493a.e323.
930d.8f3d.3562.bb81.0b24.43cf.bea5.a6eb.52b4.0229.06b2.6704.
78c9.45ec.d75e.58af.c577.b7b9.c40e.017d.90c3.87f8.96fa.1153.
0372.7f30.1c32.ac83.ff17.c6e4.d36d.6b55.e2ce.8c71.8a5b.b6f3.
9d4b.eab5.8b3c.e7f2.a8fe.9574.5de0.bf20.3f15.9784.9939.5f9c.
e609.564f.d8a4.b825.9819.94aa.2c08.8e4c.9b22.477a.2840.3ed6.
3750.6ef1.44dd.89ef.6576.d00a.fbda.9ed2.3b6c.7b0c.bde9.2ade.
5c88.c182.481a.1b0f.2bfd.d591.2726.57ba
(cut 3 [(dec a) 1] b)
::
++ zart :: reverse 255-sbox
|= a/@D
=+ ^= b
0x68.4f07.ea1c.73c9.75c2.efc8.d559.5125.f621.a7a8.8591.5613.
dd52.40eb.65a2.60b7.4bcb.1123.ceb0.1bd6.3c84.2906.b164.19b3.
1e95.5fec.ffbc.f187.fbe2.6680.7c77.d30e.e94a.9414.fd9a.017d.
3a7e.5a55.8ff5.8bf9.c181.e5b6.6ab2.35da.50aa.9293.3bc0.cdc6.
f3bf.1a58.4130.f844.3846.744e.36a0.f205.789e.32d8.5e54.5c22.
0f76.fce7.4569.0d99.d26e.e879.dc16.2df4.887f.1ffe.4dba.6f5d.
bbcc.2663.1762.aed7.af8a.ca20.dbb4.9bc7.a942.834c.105b.c4d4.
8202.3e61.a671.90e6.273d.bdab.3157.cfa4.0c2e.df86.2496.f7ed.
2b48.2a9d.5318.a343.d128.be9c.a5ad.6bb5.6dfa.c5e1.3408.128d.
2c04.0339.97a1.2ff0.49d0.eeb8.6c0a.0b37.b967.c347.d9ac.e072.
e409.7b9f.1598.1d3f.33de.8ce3.8970.8e7a
(cut 3 [(dec a) 1] b)
::
++ zyft :: forward 256-sbox
|= a/@D
=+ ^= b
0xbb49.b71f.b881.b402.17e4.6b86.69b5.1647.115f.dddb.7ca5.
8371.4bd5.19a9.b092.605d.0d9b.e030.a0cc.78ba.5706.4d2d.
986a.768c.f8e8.c4c7.2f1c.effe.3cae.01c0.253e.65d3.3872.
ce0e.7a74.8ac6.daac.7e5c.6479.44ec.4143.3d20.4af0.ee6c.
c828.deca.0377.249f.ffcd.7b4f.eb7d.66f2.8951.042e.595a.
8e13.f9c3.a79a.f788.6199.9391.7fab.6200.4ce5.0758.e2f1.
7594.c945.d218.4248.afa1.e61a.54fb.1482.bea4.96a2.3473.
63c2.e7cb.155b.120a.4ed7.bfd8.b31b.4008.f329.fca3.5380.
9556.0cb2.8722.2bea.e96e.3ac5.d1bc.10e3.2c52.a62a.b1d6.
35aa.d05e.f6a8.0f3b.31ed.559d.09ad.f585.6d21.fd1d.8d67.
370b.26f4.70c1.b923.4684.6fbd.cf8b.5036.0539.9cdc.d93f.
9068.1edf.8f33.b632.d427.97fa.9ee1
(cut 3 [a 1] b)
::
++ zyrt :: reverse 256-sbox
|= a/@D
=+ ^= b
0x9fc8.2753.6e02.8fcf.8b35.2b20.5598.7caa.c9a9.30b0.9b48.
47ce.6371.80f6.407d.00dd.0aa5.ed10.ecb7.0f5a.5c3a.e605.
c077.4337.17bd.9eda.62a4.79a7.ccb8.44cd.8e64.1ec4.5b6b.
1842.ffd8.1dfb.fd07.f2f9.594c.3be3.73c6.2cb6.8438.e434.
8d3d.ea6a.5268.72db.a001.2e11.de8c.88d3.0369.4f7a.87e2.
860d.0991.25d0.16b9.978a.4bf4.2a1a.e96c.fa50.85b5.9aeb.
9dbb.b2d9.a2d1.7bba.66be.e81f.1946.29a8.f5d2.f30c.2499.
c1b3.6583.89e1.ee36.e0b4.6092.937e.d74e.2f6f.513e.9615.
9c5d.d581.e7ab.fe74.f01b.78b1.ae75.af57.0ec2.adc7.3245.
12bf.2314.3967.0806.31dc.cb94.d43f.493c.54a6.0421.c3a1.
1c4a.28ac.fc0b.26ca.5870.e576.f7f1.616d.905f.ef41.33bc.
df4d.225e.2d56.7fd6.1395.a3f8.c582
(cut 3 [a 1] b)
--
::
++ ob
|%
++ feen :: conceal structure v2
|= pyn/@ ^- @
?: &((gte pyn 0x1.0000) (lte pyn 0xffff.ffff))
(add 0x1.0000 (fice (sub pyn 0x1.0000)))
?: &((gte pyn 0x1.0000.0000) (lte pyn 0xffff.ffff.ffff.ffff))
=+ lo=(dis pyn 0xffff.ffff)
=+ hi=(dis pyn 0xffff.ffff.0000.0000)
%+ con hi
$(pyn lo)
pyn
::
++ fend :: restore structure v2
|= cry/@ ^- @
?: &((gte cry 0x1.0000) (lte cry 0xffff.ffff))
(add 0x1.0000 (teil (sub cry 0x1.0000)))
?: &((gte cry 0x1.0000.0000) (lte cry 0xffff.ffff.ffff.ffff))
=+ lo=(dis cry 0xffff.ffff)
=+ hi=(dis cry 0xffff.ffff.0000.0000)
%+ con hi
$(cry lo)
cry
::
++ fice :: adapted from
|= nor/@ :: black and rogaway
^- @ :: "ciphers with
=+ ^= sel :: arbitrary finite
%+ rynd 3 :: domains", 2002
%+ rynd 2
%+ rynd 1
%+ rynd 0
[(mod nor 65.535) (div nor 65.535)]
(add (mul 65.535 -.sel) +.sel)
::
++ teil :: reverse ++fice
|= vip/@
^- @
=+ ^= sel
%+ rund 0
%+ rund 1
%+ rund 2
%+ rund 3
[(mod vip 65.535) (div vip 65.535)]
(add (mul 65.535 -.sel) +.sel)
::
++ rynd :: feistel round
|= {n/@ l/@ r/@}
^- {@ @}
:- r
?~ (mod n 2)
(~(sum fo 65.535) l (muk (snag n raku) 2 r))
(~(sum fo 65.536) l (muk (snag n raku) 2 r))
::
++ rund :: reverse round
|= {n/@ l/@ r/@}
^- {@ @}
:- r
?~ (mod n 2)
(~(dif fo 65.535) l (muk (snag n raku) 2 r))
(~(dif fo 65.536) l (muk (snag n raku) 2 r))
::
++ raku
^- (list @ux)
:~ 0xb76d.5eed
0xee28.1300
0x85bc.ae01
0x4b38.7af7
==
--
::
:::: 3g: molds and mold builders
::
++ coin $% {$$ p/dime} :: print format
{$blob p/*} ::
{$many p/(list coin)} ::
== ::
++ dime {p/@ta q/@} ::
++ edge {p/hair q/(unit {p/* q/nail})} :: parsing output
++ hair {p/@ud q/@ud} :: parsing trace
++ like |* a/$-(* *) :: generic edge
|= b/_`*`[(hair) ~] ::
:- p=(hair -.b) ::
^= q ::
?@ +.b ~ ::
:- ~ ::
u=[p=(a +>-.b) q=[p=(hair -.b) q=(tape +.b)]] ::
++ nail {p/hair q/tape} :: parsing input
++ path (list knot) :: like unix path
++ pint {p/{p/@ q/@} q/{p/@ q/@}} :: line+column range
++ rule _|=(nail *edge) :: parsing rule
++ spot {p/path q/pint} :: range in file
++ tone $% {$0 p/*} :: success
{$1 p/(list)} :: blocks
{$2 p/(list {@ta *})} :: error report
== ::
++ toon $% {$0 p/*} :: success
{$1 p/(list)} :: blocks
{$2 p/(list tank)} :: stack trace
== ::
++ wonk |*(veq/edge ?~(q.veq !! p.u.q.veq)) :: product from edge
-- =>
:: ::
:::: 4: layer four ::
:: ::
:: 4a: exotic bases ::
:: 4b: text processing ::
:: 4c: tank printer ::
:: 4d: parsing (tracing) ::
:: 4e: parsing (combinators) ::
:: 4f: parsing (rule builders) ::
:: 4g: parsing (outside caller) ::
:: 4h: parsing (ascii glyphs) ::
:: 4i: parsing (useful idioms) ::
:: 4j: parsing (bases and base digits) ::
:: 4k: atom printing ::
:: 4l: atom parsing ::
:: 4m: formatting functions ::
:: 4n: virtualization ::
:: 4o: molds and mold builders ::
::
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
~% %qua
+
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%mute mute
%show show
==
|%
Neutral 143.
2017-09-16 00:40:24 +03:00
++ foo 0
New metal boot system.
2016-11-24 07:25:07 +03:00
::
:::: 4a: exotic bases
::
++ po :: phonetic base
~/ %po
=+ :- ^= sis :: prefix syllables
'dozmarbinwansamlitsighidfidlissogdirwacsabwissib\
/rigsoldopmodfoglidhopdardorlorhodfolrintogsilmir\
/holpaslacrovlivdalsatlibtabhanticpidtorbolfosdot\
/losdilforpilramtirwintadbicdifrocwidbisdasmidlop\
/rilnardapmolsanlocnovsitnidtipsicropwitnatpanmin\
/ritpodmottamtolsavposnapnopsomfinfonbanmorworsip\
/ronnorbotwicsocwatdolmagpicdavbidbaltimtasmallig\
/sivtagpadsaldivdactansidfabtarmonranniswolmispal\
/lasdismaprabtobrollatlonnodnavfignomnibpagsopral\
/bilhaddocridmocpacravripfaltodtiltinhapmicfanpat\
/taclabmogsimsonpinlomrictapfirhasbosbatpochactid\
/havsaplindibhosdabbitbarracparloddosbortochilmac\
/tomdigfilfasmithobharmighinradmashalraglagfadtop\
/mophabnilnosmilfopfamdatnoldinhatnacrisfotribhoc\
/nimlarfitwalrapsarnalmoslandondanladdovrivbacpol\
/laptalpitnambonrostonfodponsovnocsorlavmatmipfip'
^= dex :: suffix syllables
'zodnecbudwessevpersutletfulpensytdurwepserwylsun\
/rypsyxdyrnuphebpeglupdepdysputlughecryttyvsydnex\
/lunmeplutseppesdelsulpedtemledtulmetwenbynhexfeb\
/pyldulhetmevruttylwydtepbesdexsefwycburderneppur\
/rysrebdennutsubpetrulsynregtydsupsemwynrecmegnet\
/secmulnymtevwebsummutnyxrextebfushepbenmuswyxsym\
/selrucdecwexsyrwetdylmynmesdetbetbeltuxtugmyrpel\
/syptermebsetdutdegtexsurfeltudnuxruxrenwytnubmed\
/lytdusnebrumtynseglyxpunresredfunrevrefmectedrus\
/bexlebduxrynnumpyxrygryxfeptyrtustyclegnemfermer\
/tenlusnussyltecmexpubrymtucfyllepdebbermughuttun\
/bylsudpemdevlurdefbusbeprunmelpexdytbyttyplevmyl\
/wedducfurfexnulluclennerlexrupnedlecrydlydfenwel\
/nydhusrelrudneshesfetdesretdunlernyrsebhulryllud\
/remlysfynwerrycsugnysnyllyndyndemluxfedsedbecmun\
/lyrtesmudnytbyrsenwegfyrmurtelreptegpecnelnevfes'
|%
++ ins ~/ %ins :: parse prefix
|= a/@tas
=+ b=0
|- ^- (unit @)
?:(=(256 b) ~ ?:(=(a (tos b)) [~ b] $(b +(b))))
++ ind ~/ %ind :: parse suffix
|= a/@tas
=+ b=0
|- ^- (unit @)
?:(=(256 b) ~ ?:(=(a (tod b)) [~ b] $(b +(b))))
++ tos ~/ %tos :: fetch prefix
|=(a/@ ?>((lth a 256) (cut 3 [(mul 3 a) 3] sis)))
++ tod ~/ %tod :: fetch suffix
|=(a/@ ?>((lth a 256) (cut 3 [(mul 3 a) 3] dex)))
--
::
++ fa :: base58check
=+ key='123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz'
=+ ^- yek/@ux ~+
=- yek:(roll (rip 3 key) -)
=+ [a=*char b=*@ yek=`@ux`(fil 3 256 0xff)]
|.
[+(b) (mix yek (lsh 3 `@u`a (~(inv fe 3) b)))]
|%
++ cha |=(a/char `(unit @uF)`=+(b=(cut 3 [`@`a 1] yek) ?:(=(b 0xff) ~ `b)))
++ tok
|= a/@ux ^- @ux
=+ b=(pad a)
=- (~(net fe 5) (end 3 4 (shay 32 -)))
(shay (add b (met 3 a)) (lsh 3 b (swp 3 a)))
::
++ pad |=(a/@ =+(b=(met 3 a) ?:((gte b 21) 0 (sub 21 b))))
++ enc |=(a/@ux `@ux`(mix (lsh 3 4 a) (tok a)))
++ den
|= a/@ux ^- (unit @ux)
=+ b=(rsh 3 4 a)
?. =((tok b) (end 3 4 a))
~
`b
--
::
:::: 4b: text processing
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ at :: basic printing
|_ a/@
++ r
?: ?& (gte (met 3 a) 2)
|-
?: =(0 a)
&
=+ vis=(end 3 1 a)
?& ?|(=('-' vis) ?&((gte vis 'a') (lte vis 'z')))
$(a (rsh 3 1 a))
==
==
rtam
?: (lte (met 3 a) 2)
rud
rux
::
++ rf `tape`[?-(a $& '&', $| '|', * !!) ~]
++ rn `tape`[?>(=(0 a) '~') ~]
++ rt `tape`['\'' (weld (mesc (trip a)) `tape`['\'' ~])]
++ rta rt
++ rtam `tape`['%' (trip a)]
++ rub `tape`['0' 'b' (rum 2 ~ |=(b/@ (add '0' b)))]
++ rud (rum 10 ~ |=(b/@ (add '0' b)))
++ rum
|= {b/@ c/tape d/$-(@ @)}
^- tape
?: =(0 a)
[(d 0) c]
=+ e=0
|- ^- tape
?: =(0 a)
c
=+ f=&(!=(0 e) =(0 (mod e ?:(=(10 b) 3 4))))
%= $
a (div a b)
c [(d (mod a b)) ?:(f [?:(=(10 b) ',' '-') c] c)]
e +(e)
==
::
++ rup
=+ b=(met 3 a)
^- tape
:- '-'
|- ^- tape
?: (gth (met 5 a) 1)
%+ weld
$(a (rsh 5 1 a), b (sub b 4))
`tape`['-' '-' $(a (end 5 1 a), b 4)]
?: =(0 b)
['~' ~]
?: (lte b 1)
(trip (tos:po a))
|- ^- tape
?: =(2 b)
=+ c=(rsh 3 1 a)
=+ d=(end 3 1 a)
(weld (trip (tod:po c)) (trip (tos:po (mix c d))))
=+ c=(rsh 3 2 a)
=+ d=(end 3 2 a)
(weld ^$(a c, b (met 3 c)) `tape`['-' $(a (mix c d), b 2)])
::
++ ruv
^- tape
:+ '0'
'v'
%^ rum
64
~
|= b/@
?: =(63 b)
'+'
?: =(62 b)
'-'
?:((lth b 26) (add 65 b) ?:((lth b 52) (add 71 b) (sub b 4)))
::
++ rux `tape`['0' 'x' (rum 16 ~ |=(b/@ (add b ?:((lth b 10) 48 87))))]
--
++ cass :: lowercase
|= vib/tape
^- tape
(turn vib |=(a/@ ?.(&((gte a 'A') (lte a 'Z')) a (add 32 a))))
::
++ cuss :: uppercase
|= vib/tape
^- tape
(turn vib |=(a/@ ?.(&((gte a 'a') (lte a 'z')) a (sub a 32))))
::
++ crip |=(a/tape `@t`(rap 3 a)) :: tape to cord
::
++ mesc :: ctrl code escape
|= vib/tape
^- tape
?~ vib
~
?: =('\\' i.vib)
['\\' '\\' $(vib t.vib)]
?: ?|((gth i.vib 126) (lth i.vib 32) =(`@`39 i.vib))
['\\' (welp ~(rux at i.vib) '/' $(vib t.vib))]
[i.vib $(vib t.vib)]
::
++ runt :: prepend repeatedly
|= {{a/@ b/@} c/tape}
^- tape
?: =(0 a)
c
[b $(a (dec a))]
::
++ sand :: atom sanity
|= a/@ta
(flit (sane a))
::
++ sane :: atom sanity
|= a/@ta
|= b/@ ^- ?
?> =(%t (end 3 1 a))
=+ [inx=0 len=(met 3 b)]
?: =(%tas a)
|- ^- ?
?: =(inx len) &
=+ cur=(cut 3 [inx 1] b)
?& ?| &((gte cur 'a') (lte cur 'z'))
&(=('-' cur) !=(0 inx) !=(len inx))
&(&((gte cur '0') (lte cur '9')) !=(0 inx))
==
$(inx +(inx))
==
?: =(%ta a)
|- ^- ?
?: =(inx len) &
=+ cur=(cut 3 [inx 1] b)
?& ?| &((gte cur 'a') (lte cur 'z'))
&((gte cur '0') (lte cur '9'))
|(=('-' cur) =('~' cur) =('_' cur) =('.' cur))
==
$(inx +(inx))
==
|- ^- ?
?: =(0 b) &
=+ cur=(end 3 1 b)
?: &((lth cur 32) !=(10 cur)) |
=+ len=(teff cur)
?& |(=(1 len) =+(i=1 |-(|(=(i len) &((gte (cut 3 [i 1] b) 128) $(i +(i)))))))
$(b (rsh 3 len b))
==
::
++ trim :: tape split
|= {a/@ b/tape}
^- {p/tape q/tape}
?~ b
[~ ~]
?: =(0 a)
[~ b]
=+ c=$(a (dec a), b t.b)
[[i.b p.c] q.c]
::
++ trip :: cord to tape
~/ %trip
|= a/@ ^- tape
?: =(0 (met 3 a))
~
[^-(@ta (end 3 1 a)) $(a (rsh 3 1 a))]
::
++ teff :: length utf8
|= a/@t ^- @
=+ b=(end 3 1 a)
?: =(0 b)
?>(=(`@`0 a) 0)
?> |((gte b 32) =(10 b))
?:((lte b 127) 1 ?:((lte b 223) 2 ?:((lte b 239) 3 4)))
::
++ turf :: utf8 to utf32
|= a/@t
^- @c
%+ rap 5
|- ^- (list @c)
=+ b=(teff a)
?: =(0 b) ~
=+ ^= c
%+ can 0
%+ turn
^- (list {p/@ q/@})
?+ b !!
$1 [[0 7] ~]
$2 [[8 6] [0 5] ~]
$3 [[16 6] [8 6] [0 4] ~]
$4 [[24 6] [16 6] [8 6] [0 3] ~]
==
|=({p/@ q/@} [q (cut 0 [p q] a)])
?> =((tuft c) (end 3 b a))
[c $(a (rsh 3 b a))]
::
++ tuba :: utf8 to utf32 tape
|= a/tape
^- (list @c)
(rip 5 (turf (rap 3 a))) :: XX horrible
::
++ tufa :: utf32 to utf8 tape
|= a/(list @c)
^- tape
?~ a ""
(weld (rip 3 (tuft i.a)) $(a t.a))
::
++ tuft :: utf32 to utf8 text
|= a/@c
^- @t
%+ rap 3
|- ^- (list @)
?: =(`@`0 a)
~
=+ b=(end 5 1 a)
=+ c=$(a (rsh 5 1 a))
?: (lte b 0x7f)
[b c]
?: (lte b 0x7ff)
:* (mix 0b1100.0000 (cut 0 [6 5] b))
(mix 0b1000.0000 (end 0 6 b))
c
==
?: (lte b 0xffff)
:* (mix 0b1110.0000 (cut 0 [12 4] b))
(mix 0b1000.0000 (cut 0 [6 6] b))
(mix 0b1000.0000 (end 0 6 b))
c
==
:* (mix 0b1111.0000 (cut 0 [18 3] b))
(mix 0b1000.0000 (cut 0 [12 6] b))
(mix 0b1000.0000 (cut 0 [6 6] b))
(mix 0b1000.0000 (end 0 6 b))
c
==
::
++ wack :: knot escape
|= a/@ta
^- @ta
=+ b=(rip 3 a)
%+ rap 3
|- ^- tape
?~ b
~
?: =('~' i.b) ['~' '~' $(b t.b)]
?: =('_' i.b) ['~' '-' $(b t.b)]
[i.b $(b t.b)]
::
++ wick :: knot unescape
|= 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 ~]
==
::
++ woad :: cord unescape
|= a/@ta
^- @t
%+ rap 3
|- ^- (list @)
?: =(`@`0 a)
~
=+ b=(end 3 1 a)
=+ c=(rsh 3 1 a)
?: =('.' b)
[' ' $(a c)]
?. =('~' b)
[b $(a c)]
=> .(b (end 3 1 c), c (rsh 3 1 c))
?+ b =- (weld (rip 3 (tuft p.d)) $(a q.d))
^= d
=+ d=0
|- ^- {p/@ q/@}
?: =('.' b)
[d c]
?< =(0 c)
%= $
b (end 3 1 c)
c (rsh 3 1 c)
d %+ add (mul 16 d)
%+ sub b
?: &((gte b '0') (lte b '9')) 48
?>(&((gte b 'a') (lte b 'z')) 87)
==
$'.' ['.' $(a c)]
$'~' ['~' $(a c)]
==
::
++ wood :: cord escape
|= a/@t
^- @ta
%+ rap 3
|- ^- (list @)
?: =(`@`0 a)
~
=+ b=(teff a)
=+ c=(turf (end 3 b a))
=+ d=$(a (rsh 3 b a))
?: ?| &((gte c 'a') (lte c 'z'))
&((gte c '0') (lte c '9'))
=(`@`'-' c)
==
[c d]
?+ c
:- '~'
=+ e=(met 2 c)
|- ^- tape
?: =(0 e)
['.' d]
=. e (dec e)
=+ f=(rsh 2 e c)
[(add ?:((lte f 9) 48 87) f) $(c (end 2 e c))]
::
$' ' ['.' d]
$'.' ['~' '.' d]
$'~' ['~' '~' d]
==
::
:::: 4c: tank printer
::
++ wash :: render tank at width
|= {{tab/@ edg/@} tac/tank} ^- wall
(~(win re tac) tab edg)
::
++ re
|_ tac/tank
++ ram
^- tape
?- -.tac
$leaf p.tac
$palm ram(tac [%rose [p.p.tac (weld q.p.tac r.p.tac) s.p.tac] q.tac])
$rose
%+ weld
q.p.tac
|- ^- tape
?~ q.tac
r.p.tac
=+ voz=$(q.tac t.q.tac)
(weld ram(tac i.q.tac) ?~(t.q.tac voz (weld p.p.tac voz)))
==
::
++ win
|= {tab/@ edg/@}
=+ lug=`wall`~
|^ |- ^- wall
?- -.tac
$leaf (rig p.tac)
$palm
?: fit
(rig ram)
?~ q.tac
(rig q.p.tac)
?~ t.q.tac
(rig(tab (add 2 tab), lug $(tac i.q.tac)) q.p.tac)
=> .(q.tac `(list tank)`q.tac)
=+ lyn=(mul 2 (lent q.tac))
=+ ^= qyr
|- ^- wall
?~ q.tac
lug
%= ^$
tac i.q.tac
tab (add tab (sub lyn 2))
lug $(q.tac t.q.tac, lyn (sub lyn 2))
==
(wig(lug qyr) q.p.tac)
::
$rose
?: fit
(rig ram)
=. lug
|- ^- wall
?~ q.tac
?:(=(~ r.p.tac) lug (rig r.p.tac))
^$(tac i.q.tac, lug $(q.tac t.q.tac), tab din)
?: =(~ q.p.tac)
lug
(wig q.p.tac)
==
::
++ din (mod (add 2 tab) (mul 2 (div edg 3)))
++ fit (lte (lent ram) (sub edg tab))
++ rig
|= hom/tape
^- wall
?: (lte (lent hom) (sub edg tab))
[(runt [tab ' '] hom) lug]
=> .(tab (add tab 2), edg (sub edg 2))
=+ mut=(trim (sub edg tab) hom)
:- (runt [(sub tab 2) ' '] ['\\' '/' (weld p.mut `_hom`['\\' '/' ~])])
=> .(hom q.mut)
|-
?~ hom
:- %+ runt
[(sub tab 2) ' ']
['\\' '/' (runt [(sub edg tab) ' '] ['\\' '/' ~])]
lug
=> .(mut (trim (sub edg tab) hom))
[(runt [tab ' '] p.mut) $(hom q.mut)]
::
++ wig
|= hom/tape
^- wall
?~ lug
(rig hom)
=+ lin=(lent hom)
=+ wug=:(add 1 tab lin)
?. =+ mir=i.lug
|- ?~ mir
|
?|(=(0 wug) ?&(=(' ' i.mir) $(mir t.mir, wug (dec wug))))
(rig hom) :: ^ XX regular form?
[(runt [tab ' '] (weld hom `tape`[' ' (slag wug i.lug)])) t.lug]
--
--
++ show :: XX deprecated!
|= vem/*
|^ ^- tank
?: ?=(@ vem)
[%leaf (mesc (trip vem))]
?- vem
{s/$~ c/*}
[%leaf '\'' (weld (mesc (tape +.vem)) `tape`['\'' ~])]
::
{s/$a c/@} [%leaf (mesc (trip c.vem))]
{s/$b c/*} (shop c.vem |=(a/@ ~(rub at a)))
{s/{$c p/@} c/*}
:+ %palm
[['.' ~] ['-' ~] ~ ~]
[[%leaf (mesc (trip p.s.vem))] $(vem c.vem) ~]
::
{s/$d c/*} (shop c.vem |=(a/@ ~(rud at a)))
{s/$k c/*} (tank c.vem)
{s/$h c/*}
:+ %rose
[['/' ~] ['/' ~] ~]
=+ yol=((list @ta) c.vem)
(turn yol |=(a/@ta [%leaf (trip a)]))
::
{s/$l c/*} (shol c.vem)
{s/$o c/*}
%= $
vem
:- [%m '%h:<[%d %d].[%d %d]>']
[-.c.vem +<-.c.vem +<+.c.vem +>-.c.vem +>+.c.vem ~]
==
::
{s/$p c/*} (shop c.vem |=(a/@ ~(rup at a)))
{s/$q c/*} (shop c.vem |=(a/@ ~(r at a)))
{s/$r c/*} $(vem [[%r ' ' '{' '}'] c.vem])
{s/$t c/*} (shop c.vem |=(a/@ ~(rt at a)))
{s/$v c/*} (shop c.vem |=(a/@ ~(ruv at a)))
{s/$x c/*} (shop c.vem |=(a/@ ~(rux at a)))
{s/{$m p/@} c/*} (shep p.s.vem c.vem)
{s/{$r p/@} c/*}
$(vem [[%r ' ' (cut 3 [0 1] p.s.vem) (cut 3 [1 1] p.s.vem)] c.vem])
::
{s/{$r p/@ q/@ r/@} c/*}
:+ %rose
:* p=(mesc (trip p.s.vem))
q=(mesc (trip q.s.vem))
r=(mesc (trip r.s.vem))
==
|- ^- (list tank)
?@ c.vem
~
[^$(vem -.c.vem) $(c.vem +.c.vem)]
::
{s/$z c/*} $(vem [[%r %$ %$ %$] c.vem])
* !!
==
++ shep
|= {fom/@ gar/*}
^- tank
=+ l=(met 3 fom)
=+ i=0
:- %leaf
|- ^- tape
?: (gte i l)
~
=+ c=(cut 3 [i 1] fom)
?. =(37 c)
(weld (mesc [c ~]) $(i +(i)))
=+ d=(cut 3 [+(i) 1] fom)
?. .?(gar)
['\\' '#' $(i (add 2 i))]
(weld ~(ram re (show d -.gar)) $(i (add 2 i), gar +.gar))
::
++ shop
|= {aug/* vel/$-(a/@ tape)}
^- tank
?: ?=(@ aug)
[%leaf (vel aug)]
:+ %rose
[[' ' ~] ['[' ~] [']' ~]]
=> .(aug `*`aug)
|- ^- (list tank)
?: ?=(@ aug)
[^$ ~]
[^$(aug -.aug) $(aug +.aug)]
::
++ shol
|= lim/*
:+ %rose
[['.' ~] ~ ~]
|- ^- (list tank)
?: ?=(@ lim) ~
:_ $(lim +.lim)
?+ -.lim (show '#')
$~ (show '$')
c/@ (show c.lim)
{$& $1} (show '.')
{$& c/@}
[%leaf '+' ~(rud at c.lim)]
::
{$| @ $~} (show ',')
{$| n/@ $~ c/@}
[%leaf (weld (reap n.lim '^') ?~(c.lim "$" (trip c.lim)))]
==
--
::
:::: 4d: parsing (tracing)
::
++ last |= {zyc/hair naz/hair} :: farther trace
^- hair
?: =(p.zyc p.naz)
?:((gth q.zyc q.naz) zyc naz)
?:((gth p.zyc p.naz) zyc naz)
::
++ lust |= {weq/char naz/hair} :: detect newline
^- hair
?:(=(`@`10 weq) [+(p.naz) 1] [p.naz +(q.naz)])
::
:::: 4e: parsing (combinators)
::
++ bend :: conditional comp
~/ %bend
|* raq/_|*({a/* b/*} [~ u=[a b]])
~/ %fun
|* {vex/edge sab/rule}
?~ q.vex
vex
=+ yit=(sab q.u.q.vex)
=+ yur=(last p.vex p.yit)
?~ q.yit
[p=yur q=q.vex]
=+ vux=(raq p.u.q.vex p.u.q.yit)
?~ vux
[p=yur q=q.vex]
[p=yur q=[~ u=[p=u.vux q=q.u.q.yit]]]
::
++ comp
~/ %comp
|* raq/_|*({a/* b/*} [a b]) :: arbitrary compose
~/ %fun
|* {vex/edge sab/rule}
~! +<
?~ q.vex
vex
=+ yit=(sab q.u.q.vex)
=+ yur=(last p.vex p.yit)
?~ q.yit
[p=yur q=q.yit]
[p=yur q=[~ u=[p=(raq p.u.q.vex p.u.q.yit) q=q.u.q.yit]]]
::
++ fail |=(tub/nail [p=p.tub q=~]) :: never parse
++ glue :: add rule
~/ %glue
|* bus/rule
~/ %fun
|* {vex/edge sab/rule}
(plug vex ;~(pfix bus sab))
::
++ less :: no first and second
|* {vex/edge sab/rule}
?~ q.vex
=+ roq=(sab)
[p=(last p.vex p.roq) q=q.roq]
(fail +<.sab)
::
++ pfix :: discard first rule
~/ %pfix
(comp |*({a/* b/*} b))
::
++ plug :: first then second
~/ %plug
|* {vex/edge sab/rule}
?~ q.vex
vex
=+ yit=(sab q.u.q.vex)
=+ yur=(last p.vex p.yit)
?~ q.yit
[p=yur q=q.yit]
[p=yur q=[~ u=[p=[p.u.q.vex p.u.q.yit] q=q.u.q.yit]]]
::
++ pose :: first or second
~/ %pose
|* {vex/edge sab/rule}
?~ q.vex
=+ roq=(sab)
[p=(last p.vex p.roq) q=q.roq]
vex
::
++ simu :: first and second
|* {vex/edge sab/rule}
?~ q.vex
vex
=+ roq=(sab)
roq
::
++ sfix :: discard second rule
~/ %sfix
(comp |*({a/* b/*} a))
::
:::: 4f: parsing (rule builders)
::
++ bass :: leftmost base
|* {wuc/@ tyd/rule}
%+ cook
|= waq/(list @)
%+ roll
waq
=|({p/@ q/@} |.((add p (mul wuc q))))
tyd
::
++ boss :: rightmost base
|* {wuc/@ tyd/rule}
%+ cook
|= waq/(list @)
%+ reel
waq
=|({p/@ q/@} |.((add p (mul wuc q))))
tyd
::
++ cold :: replace w+ constant
~/ %cold
|* {cus/* sef/rule}
~/ %fun
|= tub/nail
=+ vex=(sef tub)
?~ q.vex
vex
[p=p.vex q=[~ u=[p=cus q=q.u.q.vex]]]
::
++ cook :: apply gate
~/ %cook
|* {poq/$-(* *) sef/rule}
~/ %fun
|= tub/nail
=+ vex=(sef tub)
?~ q.vex
vex
[p=p.vex q=[~ u=[p=(poq p.u.q.vex) q=q.u.q.vex]]]
::
++ easy :: always parse
~/ %easy
|* huf/*
~/ %fun
|= tub/nail
^- (like _huf)
[p=p.tub q=[~ u=[p=huf q=tub]]]
::
++ flag
|= {sic/@t non/@t}
;~(pose (cold %& (jest sic)) (cold %| (jest non)))
::
++ full :: has to fully parse
|* sef/rule
|= tub/nail
=+ vex=(sef tub)
?~(q.vex vex ?:(=(~ q.q.u.q.vex) vex [p=p.vex q=~]))
::
++ funk :: add to tape first
|* {pre/tape sef/rule}
|= tub/nail
(sef p.tub (weld pre q.tub))
::
++ here :: place-based apply
~/ %here
|* {hez/_|=({a/pint b/*} [a b]) sef/rule}
~/ %fun
|= tub/nail
=+ vex=(sef tub)
?~ q.vex
vex
[p=p.vex q=[~ u=[p=(hez [p.tub p.q.u.q.vex] p.u.q.vex) q=q.u.q.vex]]]
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
++ inde |* sef/rule :: indentation block
|= nail ^+ (sef)
=+ [har tap]=[p q]:+<
=+ lev=(fil 3 (dec q.har) ' ')
=+ eol=(just `@t`10)
=+ =- roq=((star ;~(pose prn ;~(sfix eol (jest lev)) -)) har tap)
;~(simu ;~(plug eol eol) eol)
?~ q.roq roq
=+ vex=(sef har(q 1) p.u.q.roq)
=+ fur=p.vex(q (add (dec q.har) q.p.vex))
?~ q.vex vex(p fur)
=- vex(p fur, u.q -)
:+ &3.vex
&4.vex(q.p (add (dec q.har) q.p.&4.vex))
=+ res=|4.vex
|- ?~ res |4.roq
?. =(10 -.res) [-.res $(res +.res)]
(welp [`@t`10 (trip lev)] $(res +.res))
::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ ifix
|* {fel/{rule rule} hof/rule}
~! +<
~! +<:-.fel
~! +<:+.fel
;~(pfix -.fel ;~(sfix hof +.fel))
::
++ jest :: match a cord
|= daf/@t
|= tub/nail
=+ fad=daf
|- ^- (like @t)
?: =(`@`0 daf)
[p=p.tub q=[~ u=[p=fad q=tub]]]
?: |(?=($~ q.tub) !=((end 3 1 daf) i.q.tub))
(fail tub)
$(p.tub (lust i.q.tub p.tub), q.tub t.q.tub, daf (rsh 3 1 daf))
::
++ just :: XX redundant, jest
~/ %just :: match a char
|= daf/char
~/ %fun
|= tub/nail
^- (like char)
?~ q.tub
(fail tub)
?. =(daf i.q.tub)
(fail tub)
(next tub)
::
++ knee :: callbacks
|* {gar/* sef/_|.(*rule)}
|= tub/nail
^- (like _gar)
((sef) tub)
::
++ mask :: match char in set
~/ %mask
|= bud/(list char)
~/ %fun
|= tub/nail
^- (like char)
?~ q.tub
(fail tub)
?. (lien bud |=(a/char =(i.q.tub a)))
(fail tub)
(next tub)
::
++ more :: separated, *
|* {bus/rule fel/rule}
;~(pose (most bus fel) (easy ~))
::
++ most :: separated, +
|* {bus/rule fel/rule}
;~(plug fel (star ;~(pfix bus fel)))
::
++ next :: consume a char
|= tub/nail
^- (like char)
?~ q.tub
(fail tub)
=+ zac=(lust i.q.tub p.tub)
[zac [~ i.q.tub [zac t.q.tub]]]
::
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
++ perk :: parse cube fork
New metal boot system.
2016-11-24 07:25:07 +03:00
|* a/(pole @tas)
?~ a fail
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
;~ pose
New metal boot system.
2016-11-24 07:25:07 +03:00
(cold -.a (jest -.a))
$(a +.a)
==
::
++ pick :: rule for ++each
|* {a/rule b/rule}
;~ pose
(stag %& a)
(stag %| b)
==
++ plus |*(fel/rule ;~(plug fel (star fel))) ::
++ punt |*({a/rule} ;~(pose (stag ~ a) (easy ~))) ::
++ sear :: conditional cook
|* {pyq/$-(* (unit)) sef/rule}
|= tub/nail
=+ vex=(sef tub)
?~ q.vex
vex
=+ gey=(pyq p.u.q.vex)
?~ gey
[p=p.vex q=~]
[p=p.vex q=[~ u=[p=u.gey q=q.u.q.vex]]]
::
++ shim :: match char in range
~/ %shim
|= {les/@ mos/@}
~/ %fun
|= tub/nail
^- (like char)
?~ q.tub
(fail tub)
?. ?&((gte i.q.tub les) (lte i.q.tub mos))
(fail tub)
(next tub)
::
++ stag :: add a label
~/ %stag
|* {gob/* sef/rule}
~/ %fun
|= tub/nail
=+ vex=(sef tub)
?~ q.vex
vex
[p=p.vex q=[~ u=[p=[gob p.u.q.vex] q=q.u.q.vex]]]
::
++ stet ::
|* leh/(list {?(@ {@ @}) rule})
|-
?~ leh
~
[i=[p=-.i.leh q=+.i.leh] t=$(leh t.leh)]
::
++ stew :: switch by first char
~/ %stew
|* leh/(list {p/?(@ {@ @}) q/rule}) :: char+range keys
=+ ^= wor :: range complete lth
|= {ort/?(@ {@ @}) wan/?(@ {@ @})}
?@ ort
?@(wan (lth ort wan) (lth ort -.wan))
?@(wan (lth +.ort wan) (lth +.ort -.wan))
=+ ^= hel :: build parser map
=+ hel=`(tree _?>(?=(^ leh) i.leh))`~
|- ^+ hel
?~ leh
~
=+ yal=$(leh t.leh)
|- ^+ hel
?~ yal
[i.leh ~ ~]
?: (wor p.i.leh p.n.yal)
=+ nuc=$(yal l.yal)
?> ?=(^ nuc)
?: (vor p.n.yal p.n.nuc)
[n.yal nuc r.yal]
[n.nuc l.nuc [n.yal r.nuc r.yal]]
=+ nuc=$(yal r.yal)
?> ?=(^ nuc)
?: (vor p.n.yal p.n.nuc)
[n.yal l.yal nuc]
[n.nuc [n.yal l.yal l.nuc] r.nuc]
~% %fun ..^$ ~
|= tub/nail
?~ q.tub
(fail tub)
|-
?~ hel
(fail tub)
?: ?@ p.n.hel
=(p.n.hel i.q.tub)
?&((gte i.q.tub -.p.n.hel) (lte i.q.tub +.p.n.hel))
:: (q.n.hel [(lust i.q.tub p.tub) t.q.tub])
(q.n.hel tub)
?: (wor i.q.tub p.n.hel)
$(hel l.hel)
$(hel r.hel)
::
++ slug ::
|* raq/_|*({a/* b/*} [a b])
|* {bus/rule fel/rule}
;~((comp raq) fel (stir +<+.raq raq ;~(pfix bus fel)))
::
++ star :: 0 or more times
|* fel/rule
(stir `(list _(wonk *fel))`~ |*({a/* b/*} [a b]) fel)
::
++ stir
~/ %stir
|* {rud/* raq/_|*({a/* b/*} [a b]) fel/rule}
~/ %fun
|= tub/nail
^- (like _rud)
=+ vex=(fel tub)
?~ q.vex
[p.vex [~ rud tub]]
=+ wag=$(tub q.u.q.vex)
?> ?=(^ q.wag)
[(last p.vex p.wag) [~ (raq p.u.q.vex p.u.q.wag) q.u.q.wag]]
::
++ stun :: parse several times
|* {lig/{@ @} fel/rule}
|= tub/nail
^- (like (list _(wonk (fel))))
?: =(0 +.lig)
[p.tub [~ ~ tub]]
=+ vex=(fel tub)
?~ q.vex
?: =(0 -.lig)
[p.vex [~ ~ tub]]
vex
=+ ^= wag %= $
-.lig ?:(=(0 -.lig) 0 (dec -.lig))
+.lig ?:(=(0 +.lig) 0 (dec +.lig))
tub q.u.q.vex
==
?~ q.wag
wag
[p.wag [~ [p.u.q.vex p.u.q.wag] q.u.q.wag]]
::
:::: 4g: parsing (outside caller)
::
++ rash |*({naf/@ sab/rule} (scan (trip naf) sab)) ::
++ rose |* {los/tape sab/rule}
=+ vex=(sab [[1 1] los])
=+ len=(lent los)
?. =(+(len) q.p.vex) [%| p=(dec q.p.vex)]
?~ q.vex
[%& p=~]
[%& p=[~ u=p.u.q.vex]]
++ rush |*({naf/@ sab/rule} (rust (trip naf) sab))
++ rust |* {los/tape sab/rule}
=+ vex=((full sab) [[1 1] los])
?~(q.vex ~ [~ u=p.u.q.vex])
++ scan |* {los/tape sab/rule}
=+ vex=((full sab) [[1 1] los])
?~ q.vex
~_ (show [%m '{%d %d}'] p.p.vex q.p.vex ~)
~_(leaf+"syntax error" !!)
p.u.q.vex
::
:::: 4h: parsing (ascii glyphs)
::
++ ace (just ' ')
++ bar (just '|')
++ bas (just '\\')
++ buc (just '$')
++ cab (just '_')
++ cen (just '%')
++ col (just ':')
++ com (just ',')
++ doq (just '"')
++ dot (just '.')
++ fas (just '/')
++ gal (just '<')
++ gar (just '>')
++ hax (just '#')
++ kel (just '{')
++ ker (just '}')
++ ket (just '^')
++ lus (just '+')
++ hep (just '-')
++ pel (just '(')
++ pam (just '&')
++ per (just ')')
++ pat (just '@')
++ sel (just '[')
++ sem (just ';')
++ ser (just ']')
++ sig (just '~')
++ soq (just '\'')
++ tar (just '*')
++ tec (just '`')
++ tis (just '=')
++ wut (just '?')
++ zap (just '!')
::
:::: 4i: parsing (useful idioms)
::
++ alf ;~(pose low hig) :: alphabetic
++ aln ;~(pose low hig nud) :: alphanumeric
++ alp ;~(pose low hig nud hep) :: alphanumeric and -
++ bet ;~(pose (cold 2 hep) (cold 3 lus)) :: axis syntax - +
++ bin (bass 2 (most gon but)) :: binary to atom
++ but (cook |=(a/@ (sub a '0')) (shim '0' '1')) :: binary digit
++ cit (cook |=(a/@ (sub a '0')) (shim '0' '7')) :: octal digit
++ dem (bass 10 (most gon dit)) :: decimal to atom
++ dit (cook |=(a/@ (sub a '0')) (shim '0' '9')) :: decimal digit
++ dog ;~(plug dot gay) :: . number separator
++ doh ;~(plug ;~(plug hep hep) gay) :: -- phon separator
++ dun (cold ~ ;~(plug hep hep)) :: -- (stop) to ~
++ duz (cold ~ ;~(plug tis tis)) :: == (stet) to ~
++ gah (mask [`@`10 ' ' ~]) :: newline or ace
++ gap (cold ~ ;~(plug gaq (star ;~(pose vul gah)))) :: plural space
++ gaq ;~ pose :: end of line
(just `@`10)
;~(plug gah ;~(pose gah vul))
vul
==
++ gaw (cold ~ (star ;~(pose vul gah))) :: classic white
++ gay ;~(pose gap (easy ~)) ::
++ gon ;~(pose ;~(plug bas gay fas) (easy ~)) :: long numbers \ /
++ gul ;~(pose (cold 2 gal) (cold 3 gar)) :: axis syntax < >
++ hex (bass 16 (most gon hit)) :: hex to atom
++ hig (shim 'A' 'Z') :: uppercase
++ hit ;~ pose :: hex digits
dit
(cook |=(a/char (sub a 87)) (shim 'a' 'f'))
(cook |=(a/char (sub a 55)) (shim 'A' 'F'))
==
++ iny :: indentation block
|* sef/rule
|= nail ^+ (sef)
=+ [har tap]=[p q]:+<
=+ lev=(fil 3 (dec q.har) ' ')
=+ eol=(just `@t`10)
=+ =- roq=((star ;~(pose prn ;~(sfix eol (jest lev)) -)) har tap)
;~(simu ;~(plug eol eol) eol)
?~ q.roq roq
=+ vex=(sef har(q 1) p.u.q.roq)
=+ fur=p.vex(q (add (dec q.har) q.p.vex))
?~ q.vex vex(p fur)
=- vex(p fur, u.q -)
:+ &3.vex
&4.vex(q.p (add (dec q.har) q.p.&4.vex))
=+ res=|4.vex
|- ?~ res |4.roq
?. =(10 -.res) [-.res $(res +.res)]
(welp [`@t`10 (trip lev)] $(res +.res))
::
++ low (shim 'a' 'z') :: lowercase
++ mes %+ cook :: hexbyte
|=({a/@ b/@} (add (mul 16 a) b))
;~(plug hit hit)
++ nix (boss 256 (star ;~(pose aln cab))) ::
++ nud (shim '0' '9') :: numeric
Complete decoration system.
2017-04-05 03:33:20 +03:00
++ prn ;~(less (just `@`127) (shim 32 256)) :: non-control
++ prz ;~(less (just `@`127) (shim 33 256)) :: non-trivial
New metal boot system.
2016-11-24 07:25:07 +03:00
++ qat ;~ pose :: chars in blockcord
prn
;~(less ;~(plug (just `@`10) soz) (just `@`10))
==
++ qit ;~ pose :: chars in a cord
;~(less bas soq prn)
;~(pfix bas ;~(pose bas soq mes)) :: escape chars
==
++ qut ;~ simu soq :: cord
;~ pose
;~ less soz
(ifix [soq soq] (boss 256 (more gon qit)))
==
=+ hed=;~(pose ;~(plug (plus ace) vul) (just '\0a'))
%- iny %+ ifix
:- ;~(plug soz hed)
;~(plug (just '\0a') soz)
(boss 256 (star qat))
==
==
++ soz ;~(plug soq soq soq) :: delimiting '''
++ sym :: symbol
%+ cook
|=(a/tape (rap 3 ^-((list @) a)))
;~(plug low (star ;~(pose nud low hep)))
::
++ ven ;~ (comp |=({a/@ b/@} (peg a b))) :: +>- axis syntax
bet
=+ hom=`?`|
|= tub/nail
^- (like @)
=+ vex=?:(hom (bet tub) (gul tub))
?~ q.vex
[p.tub [~ 1 tub]]
=+ wag=$(p.tub p.vex, hom !hom, tub q.u.q.vex)
?> ?=(^ q.wag)
[p.wag [~ (peg p.u.q.vex p.u.q.wag) q.u.q.wag]]
==
++ vit :: base64 digit
;~ pose
(cook |=(a/@ (sub a 65)) (shim 'A' 'Z'))
(cook |=(a/@ (sub a 71)) (shim 'a' 'z'))
(cook |=(a/@ (add a 4)) (shim '0' '9'))
(cold 62 (just '-'))
(cold 63 (just '+'))
==
++ vul %+ cold ~ :: comments
;~ plug col col
(star prn)
(just `@`10)
==
::
:::: 4j: parsing (bases and base digits)
::
++ ab
|%
++ bix (bass 16 (stun [2 2] six))
++ fem (sear |=(a/@ (cha:fa a)) aln)
++ haf (bass 256 ;~(plug tep tiq (easy ~)))
++ hef %+ sear |=(a/@ ?:(=(a 0) ~ (some a)))
%+ bass 256
;~(plug tip tiq (easy ~))
++ hif (bass 256 ;~(plug tip tiq (easy ~)))
++ hof (bass 0x1.0000 ;~(plug hef (stun [1 3] ;~(pfix hep hif))))
++ huf (bass 0x1.0000 ;~(plug hef (stun [0 3] ;~(pfix hep hif))))
++ hyf (bass 0x1.0000 ;~(plug hif (stun [3 3] ;~(pfix hep hif))))
++ pev (bass 32 ;~(plug sev (stun [0 4] siv)))
++ pew (bass 64 ;~(plug sew (stun [0 4] siw)))
++ piv (bass 32 (stun [5 5] siv))
++ piw (bass 64 (stun [5 5] siw))
++ qeb (bass 2 ;~(plug seb (stun [0 3] sib)))
++ qex (bass 16 ;~(plug sex (stun [0 3] hit)))
++ qib (bass 2 (stun [4 4] sib))
++ qix (bass 16 (stun [4 4] six))
++ seb (cold 1 (just '1'))
++ sed (cook |=(a/@ (sub a '0')) (shim '1' '9'))
++ sev ;~(pose sed sov)
++ sew ;~(pose sed sow)
++ sex ;~(pose sed sox)
++ sib (cook |=(a/@ (sub a '0')) (shim '0' '1'))
++ sid (cook |=(a/@ (sub a '0')) (shim '0' '9'))
++ siv ;~(pose sid sov)
++ siw ;~(pose sid sow)
++ six ;~(pose sid sox)
++ sov (cook |=(a/@ (sub a 87)) (shim 'a' 'v'))
++ sow ;~ pose
(cook |=(a/@ (sub a 87)) (shim 'a' 'z'))
(cook |=(a/@ (sub a 29)) (shim 'A' 'Z'))
(cold 62 (just '-'))
(cold 63 (just '~'))
==
++ sox (cook |=(a/@ (sub a 87)) (shim 'a' 'f'))
++ ted (bass 10 ;~(plug sed (stun [0 2] sid)))
++ tep (sear |=(a/@ ?:(=(a 'doz') ~ (ins:po a))) til)
++ tip (sear |=(a/@ (ins:po a)) til)
++ tiq (sear |=(a/@ (ind:po a)) til)
++ tid (bass 10 (stun [3 3] sid))
++ til (boss 256 (stun [3 3] low))
++ urs %+ cook
|=(a/tape (rap 3 ^-((list @) a)))
(star ;~(pose nud low hep dot sig cab))
++ urt %+ cook
|=(a/tape (rap 3 ^-((list @) a)))
(star ;~(pose nud low hep dot sig))
++ urx %+ cook
|=(a/tape (rap 3 ^-((list @) a)))
%- star
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
;~ pose
New metal boot system.
2016-11-24 07:25:07 +03:00
nud
low
hep
cab
(cold ' ' dot)
(cook tuft (ifix [sig dot] hex))
;~(pfix sig ;~(pose sig dot))
==
++ voy ;~(pfix bas ;~(pose bas soq bix))
--
++ ag
|%
++ ape |*(fel/rule ;~(pose (cold 0 (just '0')) fel))
++ bay (ape (bass 16 ;~(plug qeb:ab (star ;~(pfix dog qib:ab)))))
++ bip =+ tod=(ape qex:ab)
(bass 0x1.0000 ;~(plug tod (stun [7 7] ;~(pfix dog tod))))
++ dem (ape (bass 1.000 ;~(plug ted:ab (star ;~(pfix dog tid:ab)))))
++ dim (ape dip)
++ dip (bass 10 ;~(plug sed:ab (star sid:ab)))
++ dum (bass 10 (plus sid:ab))
++ fed %+ cook fend:ob
;~ pose
%+ bass 0x1.0000.0000.0000.0000 :: oversized
;~ plug
huf:ab
(plus ;~(pfix doh hyf:ab))
==
hof:ab :: planet or moon
haf:ab :: star
tiq:ab :: galaxy
==
++ fim (sear den:fa (bass 58 (plus fem:ab)))
++ hex (ape (bass 0x1.0000 ;~(plug qex:ab (star ;~(pfix dog qix:ab)))))
++ lip =+ tod=(ape ted:ab)
(bass 256 ;~(plug tod (stun [3 3] ;~(pfix dog tod))))
++ mot ;~ pose
;~ pfix
(just '1')
(cook |=(a/@ (add 10 (sub a '0'))) (shim '0' '2'))
==
sed:ab
==
++ viz (ape (bass 0x200.0000 ;~(plug pev:ab (star ;~(pfix dog piv:ab)))))
++ vum (bass 32 (plus siv:ab))
++ wiz (ape (bass 0x4000.0000 ;~(plug pew:ab (star ;~(pfix dog piw:ab)))))
--
++ mu
|_ {top/@ bot/@}
++ zag [p=(end 4 1 (add top bot)) q=bot]
++ zig [p=(end 4 1 (add top (sub 0x1.0000 bot))) q=bot]
++ zug (mix (lsh 4 1 top) bot)
--
++ ne
|_ tig/@
++ c (cut 3 [tig 1] key:fa)
++ d (add tig '0')
++ x ?:((gte tig 10) (add tig 87) d)
++ v ?:((gte tig 10) (add tig 87) d)
++ w ?:(=(tig 63) '~' ?:(=(tig 62) '-' ?:((gte tig 36) (add tig 29) x)))
--
::
:::: 4k: atom printing
::
++ co !.
~% %co ..co ~
=< |_ lot/coin
++ rear |=(rom/tape =>(.(rep rom) rend))
++ rent `@ta`(rap 3 rend)
++ rend
^- tape
?: ?=($blob -.lot)
['~' '0' ((v-co 1) (jam p.lot))]
?: ?=($many -.lot)
:- '.'
|- ^- tape
?~ p.lot
['_' '_' rep]
['_' (weld (trip (wack rent(lot i.p.lot))) $(p.lot t.p.lot))]
=+ [yed=(end 3 1 p.p.lot) hay=(cut 3 [1 1] p.p.lot)]
|- ^- tape
?+ yed (z-co q.p.lot)
$c ['~' '-' (weld (rip 3 (wood (tuft q.p.lot))) rep)]
$d
?+ hay (z-co q.p.lot)
$a
=+ yod=(yore q.p.lot)
=> ^+(. .(rep ?~(f.t.yod rep ['.' (s-co f.t.yod)])))
=> ^+ .
%= .
rep
?: &(=(~ f.t.yod) =(0 h.t.yod) =(0 m.t.yod) =(0 s.t.yod))
rep
=> .(rep ['.' (y-co s.t.yod)])
=> .(rep ['.' (y-co m.t.yod)])
['.' '.' (y-co h.t.yod)]
==
=> .(rep ['.' (a-co d.t.yod)])
=> .(rep ['.' (a-co m.yod)])
=> .(rep ?:(a.yod rep ['-' rep]))
['~' (a-co y.yod)]
::
$r
=+ yug=(yell q.p.lot)
=> ^+(. .(rep ?~(f.yug rep ['.' (s-co f.yug)])))
:- '~'
?: &(=(0 d.yug) =(0 m.yug) =(0 h.yug) =(0 s.yug))
['s' '0' rep]
=> ^+(. ?:(=(0 s.yug) . .(rep ['.' 's' (a-co s.yug)])))
=> ^+(. ?:(=(0 m.yug) . .(rep ['.' 'm' (a-co m.yug)])))
=> ^+(. ?:(=(0 h.yug) . .(rep ['.' 'h' (a-co h.yug)])))
=> ^+(. ?:(=(0 d.yug) . .(rep ['.' 'd' (a-co d.yug)])))
+.rep
==
::
$f
?: =(& q.p.lot)
['.' 'y' rep]
?:(=(| q.p.lot) ['.' 'n' rep] (z-co q.p.lot))
::
$n ['~' rep]
$i
?+ hay (z-co q.p.lot)
$f ((ro-co [3 10 4] |=(a/@ ~(d ne a))) q.p.lot)
$s ((ro-co [4 16 8] |=(a/@ ~(x ne a))) q.p.lot)
==
::
$p
=+ sxz=(feen:ob q.p.lot)
=+ dyx=(met 3 sxz)
:- '~'
?: (lte dyx 1)
(weld (trip (tod:po sxz)) rep)
=+ dyy=(met 4 sxz)
=+ imp=*@
|- ^- tape
?: =(imp dyy)
rep
%= $
sxz (rsh 4 1 sxz)
imp +(imp)
rep
=+ log=(end 4 1 sxz)
;: weld
(trip (tos:po (rsh 3 1 log)))
(trip (tod:po (end 3 1 log)))
?:(=((mod imp 4) 0) ?:(=(imp 0) "" "--") "-")
rep
==
==
::
$r
?+ hay (z-co q.p.lot)
$d ['.' '~' (r-co (rlyd q.p.lot))]
$h ['.' '~' '~' (r-co (rlyh q.p.lot))]
$q ['.' '~' '~' '~' (r-co (rlyq q.p.lot))]
$s ['.' (r-co (rlys q.p.lot))]
==
::
$u
?: ?=($c hay)
%+ welp ['0' 'c' (reap (pad:fa q.p.lot) '1')]
(c-co (enc:fa q.p.lot))
=- (weld p.gam ?:(=(0 q.p.lot) `tape`['0' ~] q.gam))
^= gam ^- {p/tape q/tape}
?+ hay [~ ((ox-co [10 3] |=(a/@ ~(d ne a))) q.p.lot)]
$b [['0' 'b' ~] ((ox-co [2 4] |=(a/@ ~(d ne a))) q.p.lot)]
$i [['0' 'i' ~] ((d-co 1) q.p.lot)]
$x [['0' 'x' ~] ((ox-co [16 4] |=(a/@ ~(x ne a))) q.p.lot)]
$v [['0' 'v' ~] ((ox-co [32 5] |=(a/@ ~(x ne a))) q.p.lot)]
$w [['0' 'w' ~] ((ox-co [64 5] |=(a/@ ~(w ne a))) q.p.lot)]
==
::
$s
%+ weld
?:((syn:si q.p.lot) "--" "-")
$(yed 'u', q.p.lot (abs:si q.p.lot))
::
$t
?: =('a' hay)
?: =('s' (cut 3 [2 1] p.p.lot))
(weld (rip 3 q.p.lot) rep)
['~' '.' (weld (rip 3 q.p.lot) rep)]
['~' '~' (weld (rip 3 (wood q.p.lot)) rep)]
==
--
=+ rep=*tape
=< |%
++ a-co |=(dat/@ ((d-co 1) dat))
++ c-co (em-co [58 1] |=({? b/@ c/tape} [~(c ne b) c]))
++ d-co |=(min/@ (em-co [10 min] |=({? b/@ c/tape} [~(d ne b) c])))
++ r-co
|= a/dn
?: ?=({$i *} a) (weld ?:(s.a "inf" "-inf") rep)
?: ?=({$n *} a) (weld "nan" rep)
=+ ^= e %+ ed-co [10 1]
|= {a/? b/@ c/tape}
?: a [~(d ne b) '.' c]
[~(d ne b) c]
=+ ^= f
=>(.(rep ~) (e a.a))
=. e.a (sum:si e.a (sun:si (dec +.f)))
=+ b=?:((syn:si e.a) "e" "e-")
=> .(rep ?~(e.a rep (weld b ((d-co 1) (abs:si e.a)))))
=> .(rep (weld -.f rep))
?:(s.a rep ['-' rep])
::
++ s-co
|= esc/(list @) ^- tape
?~ esc
rep
:- '.'
=>(.(rep $(esc t.esc)) ((x-co 4) i.esc))
::
++ v-co |=(min/@ (em-co [32 min] |=({? b/@ c/tape} [~(v ne b) c])))
++ w-co |=(min/@ (em-co [64 min] |=({? b/@ c/tape} [~(w ne b) c])))
++ x-co |=(min/@ (em-co [16 min] |=({? b/@ c/tape} [~(x ne b) c])))
++ y-co |=(dat/@ ((d-co 2) dat))
++ z-co |=(dat/@ `tape`['0' 'x' ((x-co 1) dat)])
--
|%
++ em-co
|= {{bas/@ min/@} par/$-({? @ tape} tape)}
|= hol/@
^- tape
?: &(=(0 hol) =(0 min))
rep
=+ [rad=(mod hol bas) dar=(div hol bas)]
%= $
min ?:(=(0 min) 0 (dec min))
hol dar
rep (par =(0 dar) rad rep)
==
::
++ ed-co
|= {{bas/@ min/@} par/$-({? @ tape} tape)}
=+ [fir=& cou=0]
|= hol/@
^- {tape @}
?: &(=(0 hol) =(0 min))
[rep cou]
=+ [rad=(mod hol bas) dar=(div hol bas)]
%= $
min ?:(=(0 min) 0 (dec min))
hol dar
rep (par &(=(0 dar) !fir) rad rep)
fir |
cou +(cou)
==
::
++ ox-co
|= {{bas/@ gop/@} dug/$-(@ @)}
%+ em-co
[|-(?:(=(0 gop) 1 (mul bas $(gop (dec gop))))) 0]
|= {top/? seg/@ res/tape}
%+ weld
?:(top ~ `tape`['.' ~])
%. seg
%+ em-co(rep res)
[bas ?:(top 0 gop)]
|=({? b/@ c/tape} [(dug b) c])
::
++ ro-co
|= {{buz/@ bas/@ dop/@} dug/$-(@ @)}
|= hol/@
^- tape
?: =(0 dop)
rep
=> .(rep $(dop (dec dop)))
:- '.'
%- (em-co [bas 1] |=({? b/@ c/tape} [(dug b) c]))
[(cut buz [(dec dop) 1] hol)]
--
::
:::: 4l: atom parsing
::
++ so
~% %so + ~
|%
++ bisk
~+
;~ pose
;~ pfix (just '0')
;~ pose
(stag %ub ;~(pfix (just 'b') bay:ag))
(stag %uc ;~(pfix (just 'c') fim:ag))
(stag %ui ;~(pfix (just 'i') dim:ag))
(stag %ux ;~(pfix (just 'x') hex:ag))
(stag %uv ;~(pfix (just 'v') viz:ag))
(stag %uw ;~(pfix (just 'w') wiz:ag))
==
==
(stag %ud dem:ag)
==
++ crub
~+
;~ pose
%+ cook
|=(det/date `dime`[%da (year det)])
;~ plug
%+ cook
|=({a/@ b/?} [b a])
;~(plug dim:ag ;~(pose (cold | hep) (easy &)))
;~(pfix dot mot:ag) :: month
;~(pfix dot dip:ag) :: day
;~ pose
;~ pfix
;~(plug dot dot)
;~ plug
dum:ag
;~(pfix dot dum:ag)
;~(pfix dot dum:ag)
;~(pose ;~(pfix ;~(plug dot dot) (most dot qix:ab)) (easy ~))
==
==
(easy [0 0 0 ~])
==
==
::
%+ cook
|= {a/(list {p/?($d $h $m $s) q/@}) b/(list @)}
=+ rop=`tarp`[0 0 0 0 b]
|- ^- dime
?~ a
[%dr (yule rop)]
?- p.i.a
$d $(a t.a, d.rop (add q.i.a d.rop))
$h $(a t.a, h.rop (add q.i.a h.rop))
$m $(a t.a, m.rop (add q.i.a m.rop))
$s $(a t.a, s.rop (add q.i.a s.rop))
==
;~ plug
%+ most
dot
;~ pose
;~(pfix (just 'd') (stag %d dim:ag))
;~(pfix (just 'h') (stag %h dim:ag))
;~(pfix (just 'm') (stag %m dim:ag))
;~(pfix (just 's') (stag %s dim:ag))
==
;~(pose ;~(pfix ;~(plug dot dot) (most dot qix:ab)) (easy ~))
==
::
(stag %p fed:ag)
;~(pfix dot (stag %ta urs:ab))
;~(pfix sig (stag %t urx:ab))
;~(pfix hep (stag %c (cook turf urx:ab)))
==
++ nuck
~/ %nuck |= a/nail %. a
%+ knee *coin |. ~+
%- stew
^. stet ^. limo
:~ :- ['a' 'z'] (cook |=(a/@ta [%$ %tas a]) sym)
:- ['0' '9'] (stag %$ bisk)
:- '-' (stag %$ tash)
:- '.' ;~(pfix dot perd)
:- '~' ;~(pfix sig ;~(pose twid (easy [%$ %n 0])))
==
++ nusk
~+
:(sear |=(a/@ta (rush a nuck)) wick urt:ab)
++ perd
~+
;~ pose
(stag %$ zust)
(stag %many (ifix [cab ;~(plug cab cab)] (more cab nusk)))
==
++ royl
~+
=+ ^= moo
|= a/tape
:- (lent a)
(scan a (bass 10 (plus sid:ab)))
=+ ^= voy
%+ cook royl-cell
;~ pose
;~ plug
(easy %d)
;~ pose (cold | hep) (easy &) ==
;~ plug dim:ag
;~ pose
;~(pfix dot (cook moo (plus (shim '0' '9'))))
(easy [0 0])
==
;~ pose
;~ pfix
(just 'e')
;~(plug ;~(pose (cold | hep) (easy &)) dim:ag)
==
(easy [& 0])
==
==
==
;~ plug
(easy %i)
;~ sfix
;~ pose (cold | hep) (easy &) ==
(jest 'inf')
==
==
;~ plug
(easy %n)
(cold ~ (jest 'nan'))
==
==
;~ pose
(stag %rh (cook rylh ;~(pfix ;~(plug sig sig) voy)))
(stag %rq (cook rylq ;~(pfix ;~(plug sig sig sig) voy)))
(stag %rd (cook ryld ;~(pfix sig voy)))
(stag %rs (cook ryls voy))
==
::
++ royl-cell
|= rn
^- dn
?. ?=({$d *} +<) +<
=+ ^= h
(dif:si (new:si f.b i.b) (sun:si d.b))
[%d a h (add (mul c.b (pow 10 d.b)) e.b)]
::
++ tash
~+
=+ ^= neg
|= {syn/? mol/dime} ^- dime
?> =('u' (end 3 1 p.mol))
[(cat 3 's' (rsh 3 1 p.mol)) (new:si syn q.mol)]
;~ pfix hep
;~ pose
(cook |=(a/dime (neg | a)) bisk)
;~(pfix hep (cook |=(a/dime (neg & a)) bisk))
==
==
::
++ twid
~+
;~ pose
(cook |=(a/@ [%blob (cue a)]) ;~(pfix (just '0') vum:ag))
(stag %$ crub)
==
::
++ zust
~+
;~ pose
(stag %is bip:ag)
(stag %if lip:ag)
(stag %f ;~(pose (cold & (just 'y')) (cold | (just 'n'))))
royl
==
--
::
:::: 4m: formatting functions
::
++ scot |=(mol/dime ~(rent co %$ mol))
++ scow |=(mol/dime ~(rend co %$ mol))
++ slat |=(mod/@tas |=(txt/@ta (slaw mod txt)))
++ slav |=({mod/@tas txt/@ta} (need (slaw mod txt)))
++ slaw
~/ %slaw
|= {mod/@tas txt/@ta}
^- (unit @)
=+ con=(slay txt)
?.(&(?=({$~ $$ @ @} con) =(p.p.u.con mod)) ~ [~ q.p.u.con])
::
++ slay
|= txt/@ta ^- (unit coin)
=+ ^= vex
?: (gth 0x7fff.ffff txt) :: XX petty cache
~+ ((full nuck:so) [[1 1] (trip txt)])
((full nuck:so) [[1 1] (trip txt)])
?~ q.vex
~
[~ p.u.q.vex]
::
++ smyt :: pretty print path
|= bon/path ^- tank
:+ %rose [['/' ~] ['/' ~] ~]
(turn bon |=(a/@ [%leaf (trip a)]))
::
++ spat |=(pax/path (crip (spud pax))) :: render path to cord
++ spud |=(pax/path ~(ram re (smyt pax))) :: render path to tape
++ stab :: parse cord to path
=+ fel=;~(pfix fas (more fas urs:ab))
|=(zep/@t `path`(rash zep fel))
::
:::: 4n: virtualization
::
++ mack
|= {sub/* fol/*}
^- (unit)
=+ ton=(mink [sub fol] |=({* *} ~))
?.(?=({$0 *} ton) ~ [~ p.ton])
::
++ mink
~/ %mink
|= {{sub/* fol/*} gul/$-({* *} (unit (unit)))}
=+ tax=*(list {@ta *})
|- ^- tone
?@ fol
[%2 tax]
?: ?=(^ -.fol)
=+ hed=$(fol -.fol)
?: ?=($2 -.hed)
hed
=+ tal=$(fol +.fol)
?- -.tal
$0 ?-(-.hed $0 [%0 p.hed p.tal], $1 hed)
$1 ?-(-.hed $0 tal, $1 [%1 (weld p.hed p.tal)])
$2 tal
==
?+ fol
[%2 tax]
::
{$0 b/@}
?: =(0 b.fol) [%2 tax]
?: =(1 b.fol) [%0 sub]
?: ?=(@ sub) [%2 tax]
=+ [now=(cap b.fol) lat=(mas b.fol)]
$(b.fol lat, sub ?:(=(2 now) -.sub +.sub))
::
{$1 b/*}
[%0 b.fol]
::
{$2 b/{^ *}}
=+ ben=$(fol b.fol)
?. ?=($0 -.ben) ben
?>(?=(^ p.ben) $(sub -.p.ben, fol +.p.ben))
::?>(?=(^ p.ben) $([sub fol] p.ben)
::
{$3 b/*}
=+ ben=$(fol b.fol)
?. ?=($0 -.ben) ben
[%0 .?(p.ben)]
::
{$4 b/*}
=+ ben=$(fol b.fol)
?. ?=($0 -.ben) ben
?. ?=(@ p.ben) [%2 tax]
[%0 .+(p.ben)]
::
{$5 b/*}
=+ ben=$(fol b.fol)
?. ?=($0 -.ben) ben
?. ?=(^ p.ben) [%2 tax]
[%0 =(-.p.ben +.p.ben)]
::
{$6 b/* c/* d/*}
$(fol =>(fol [2 [0 1] 2 [1 c d] [1 0] 2 [1 2 3] [1 0] 4 4 b]))
::
{$7 b/* c/*} $(fol =>(fol [2 b 1 c]))
{$8 b/* c/*} $(fol =>(fol [7 [[0 1] b] c]))
{$9 b/* c/*} $(fol =>(fol [7 c 0 b]))
{$10 @ c/*} $(fol c.fol)
{$10 {b/* c/*} d/*}
=+ ben=$(fol c.fol)
?. ?=($0 -.ben) ben
?: ?=(?($hunk $hand $lose $mean $spot) b.fol)
$(fol d.fol, tax [[b.fol p.ben] tax])
$(fol d.fol)
::
{$11 b/* c/*}
=+ ref=$(fol b.fol)
=+ ben=$(fol c.fol)
?. ?=($0 -.ref) ref
?. ?=($0 -.ben) ben
=+ val=(gul p.ref p.ben)
?~(val [%1 p.ben ~] ?~(u.val [%2 [[%hunk (mush p.ben)] tax]] [%0 u.u.val]))
==
::
++ mock
|= {{sub/* fol/*} gul/$-({* *} (unit (unit)))}
(mook (mink [sub fol] gul))
::
:: ++ moop
:: |= pon/(list {@ta *}) ^+ pon
:: ?~ pon ~
:: :- i.pon
:: ?. ?=({$spot * ^} i.pon)
:: $(pon t.pon)
:: ?. ?=({{$spot * ^} *} t.pon)
:: $(pon t.pon)
:: => .(pon t.pon)
:: =+ sot=+.i.pon
:: |- ^- (list {@ta *})
:: ?. ?=({{$spot * ^} *} t.pon)
:: [[%spot sot] ^$(pon t.pon)]
:: =+ sop=+.i.pon
:: ?: ?& =(-.sop -.sot)
:: (lor +<.sop +<.sot)
:: (lor +>.sot +>.sop)
:: ==
:: $(sot sop, pon t.pon)
:: [[%spot sot] ^$(pon t.pon)]
::
++ mook
|= ton/tone
^- toon
?. ?=({$2 *} ton) ton
:- %2
:: =. p.ton (moop p.ton)
=+ yel=(lent p.ton)
=. p.ton
?. (gth yel 256) p.ton
%+ weld
(scag 128 p.ton)
^- (list {@ta *})
:_ (slag (sub yel 128) p.ton)
:- %lose
%+ rap 3
"[skipped {(scow %ud (sub yel 256))} frames]"
|- ^- (list tank)
?~ p.ton ~
=+ rep=$(p.ton t.p.ton)
?+ -.i.p.ton rep
$hunk [(tank +.i.p.ton) rep]
$lose [[%leaf (rip 3 (@ +.i.p.ton))] rep]
$hand [[%leaf (scow %p (mug +.i.p.ton))] rep]
$mean :_ rep
?@ +.i.p.ton [%leaf (rip 3 (@ +.i.p.ton))]
=+ mac=(mack +.i.p.ton +<.i.p.ton)
?~(mac [%leaf "####"] (tank u.mac))
$spot :_ rep
=+ sot=(spot +.i.p.ton)
:+ %rose [":" ~ ~]
:~ (smyt p.sot)
=> [ud=|=(a/@u (scow %ud a)) q.sot]
leaf+"<[{(ud p.p)} {(ud q.p)}].[{(ud p.q)} {(ud q.q)}]>"
== ==
::
++ mush :: sane name to leaf
|= val/*
^- tank
:+ %rose
[['/' ~] ['/' ~] ~]
(turn ((list @ta) val) |=(a/@ta [%leaf (trip a)]))
::
++ mong
|= {{gat/* sam/*} gul/$-({* *} (unit (unit)))}
^- toon
?. &(?=(^ gat) ?=(^ +.gat))
[%2 ~]
(mock [[-.gat [sam +>.gat]] -.gat] gul)
::
++ mule :: typed virtual
~/ %mule
|* taq/_|.(**)
=+ mud=(mute taq)
?- -.mud
$& [%& p=$:taq] :: XX transition
$| [%| p=p.mud]
==
::
++ mute :: untyped virtual
|= taq/_^?(|.(**))
^- (each * (list tank))
=+ ton=(mock [taq 9 2 0 1] |=({* *} ~))
?- -.ton
$0 [%& p.ton]
$1 [%| (turn p.ton |=(a/* (smyt (path a))))]
$2 [%| p.ton]
==
::
:::: 4o: molds and mold builders
::
++ abel typo :: original sin: span
++ atom @ :: just an atom
++ aura @ta :: atom format
++ axis @ :: tree address
++ base :: base mold
$@ $? $noun :: any noun
$cell :: any cell
$bean :: loobean
$void :: no nouns
$null :: ~ == 0
== ::
{$atom p/aura} :: atom
::
++ bean ? :: 0=&=yes, 1=|=no
++ woof $@(@ {$~ p/twig}) :: simple embed
++ beet $@ @ :: advanced embed
$% {$a p/twig} :: take tape
{$b p/twig} :: take manx
{$c p/twig} :: take marl
{$d p/twig} :: take $-(marl marl)
{$e p/twig q/(list tuna)} :: element literal
== ::
++chap should have an (unit term) instead of a (list term).
2017-06-03 19:42:30 +03:00
++ chap (pair (unit term) what) :: labeled help
New metal boot system.
2016-11-24 07:25:07 +03:00
++ chum $? lef/term :: jet name
{std/term kel/@} :: kelvin version
{ven/term pro/term kel/@} :: vendor and product
{ven/term pro/term ver/@ kel/@} :: all of the above
== ::
Restore metals.
2017-09-20 08:32:08 +03:00
++ coil $: p/?($gold $iron $lead $zinc) :: core span
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
q/span :: built with
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
r/chap :: docs
s/{p/?($~ ^) q/(map @ tomb)} :: arms
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
++ foot $% {$ash p/twig} :: dry arm, geometric
{$elm p/twig} :: wet arm, generic
== ::
++ limb $@ term :: wing element
$% {$& p/axis} :: by geometry
{$| p/@ud q/(unit term)} :: by name
== ::
$ runes converted.
2017-09-18 02:31:49 +03:00
++ line {p/{$leaf p/aura q/@} q/tile} :: %bccn case
Restore metals.
2017-09-20 08:32:08 +03:00
++ metl ?($gold $iron $zinc $lead) :: core variance
New metal boot system.
2016-11-24 07:25:07 +03:00
++ noun * :: any noun
++ null $~ :: null, nil, etc
++ onyx (list (pair span foot)) :: arm activation
++ opal :: limb match
$% {$& p/span} :: leg
{$| p/axis q/(set {p/span q/foot})} :: arm
== ::
Complete decoration system.
2017-04-05 03:33:20 +03:00
++ pica (pair ? cord) :: & prose, | code
New metal boot system.
2016-11-24 07:25:07 +03:00
++ palo (pair vein opal) :: wing trace, match
++ pock (pair axis nock) :: changes
++ port (each palo (pair span nock)) :: successful match
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
++ root twig :: produce model
New metal boot system.
2016-11-24 07:25:07 +03:00
++ tiki :: test case
$% {$& p/(unit term) q/wing} :: simple wing
{$| p/(unit term) q/twig} :: named wing
== ::
++ tile $^ {p/tile q/tile} :: ordered pair
$% {$axil p/base} :: base span
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
{$bark p/toga q/tile} :: name
$ runes converted.
2017-09-18 02:31:49 +03:00
{$bckt p/tile q/tile} :: pair+tag
New metal boot system.
2016-11-24 07:25:07 +03:00
{$deet p/spot q/tile} :: set debug
{$fern p/{i/tile t/(list tile)}} :: plain selection
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
{$herb p/twig} :: assembly
New metal boot system.
2016-11-24 07:25:07 +03:00
{$kelp p/{i/line t/(list line)}} :: tag selection
{$leaf p/term q/@} :: constant atom
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
{$plow p/what q/tile} :: apply help
New metal boot system.
2016-11-24 07:25:07 +03:00
{$reed p/tile q/tile} :: atom+cell
{$weed p/twig} :: example
== ::
++ toga :: face control
$@ p/term :: two togas
$% {$0 $~} :: no toga
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
{$1 p/(pair what term) q/toga} :: deep toga
New metal boot system.
2016-11-24 07:25:07 +03:00
{$2 p/toga q/toga} :: cell toga
== ::
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
++ tomb (pair chap (map term (pair what foot))) :: core chapter
New metal boot system.
2016-11-24 07:25:07 +03:00
++ tuna :: tagflow
$% {$a p/twig} :: plain text
{$b p/twig} :: single tag
{$c p/twig} :: simple list
{$d p/twig} :: dynamic list
{$e p/twig q/(list tuna)} :: element
{$f p/(list tuna)} :: subflow
== ::
++ twig ::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
=> |% ::REVIEW
++ beer $@(char {$~ p/twig}) :: simple embed
++ mane $@(@tas {@tas @tas}) :: XML name+space
++ manx {g/marx c/marl} :: dynamic XML node
++ marl (list tuna) :: dynamic XML nodes
++ mart (list {n/mane v/(list beer)}) :: dynamic XML attrs
++ marx {n/mane a/mart} :: dynamic XML tag
++ mare (each manx marl) :: node or nodes
++ maru (each tuna marl) :: interp or nodes
++ tuna :: maybe interpolation
%call attempt.
2017-09-19 08:40:30 +03:00
$^(manx {?($tape $manx $marl $cnhp) p/twig}) ::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
-- ::
New metal boot system.
2016-11-24 07:25:07 +03:00
$^ {p/twig q/twig} ::
$% ::
{$$ p/axis} :: simple leg
:: ::
{$base p/base} :: base
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
{$bunt p/root} :: mold default value
New metal boot system.
2016-11-24 07:25:07 +03:00
{$bust p/base} :: bunt base
{$dbug p/spot q/twig} :: debug info in trace
Complete decoration system.
2017-04-05 03:33:20 +03:00
{$eror p/tape} :: assembly error
New metal boot system.
2016-11-24 07:25:07 +03:00
{$hand p/span q/nock} :: premade result
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
{$help p/what q/twig} :: annotate image
{$halo p/what q/root} :: annotate model
New metal boot system.
2016-11-24 07:25:07 +03:00
{$knit p/(list woof)} :: assemble string
{$leaf p/(pair term @)} :: symbol
{$limb p/term} :: pulls limb p
{$lost p/twig} :: not to be taken
{$rock p/term q/*} :: fixed constant
{$sand p/term q/*} :: unfixed constant
{$tell p/(list twig)} :: render as tape
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
{$tune p/(pair what $@(term tune))} :: minimal face
New metal boot system.
2016-11-24 07:25:07 +03:00
{$wing p/wing} :: pulls p
{$yell p/(list twig)} :: render as tank
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$ktcn p/twig} :: enter test mode
New metal boot system.
2016-11-24 07:25:07 +03:00
:: :::::: molds
%claw to %bcpt.
2017-09-18 01:10:40 +03:00
{$bcpt p/root q/root} :: $@ depth fork
$ runes converted.
2017-09-18 02:31:49 +03:00
{$bccb p/twig} :: $_ example
{$bccl p/(list root)} :: $: tuple
{$bccn p/(list root)} :: $% tagged fork
{$bchp p/root q/root} :: $- function
{$bckt p/root q/root} :: $^ pairhead fork
{$bcwt p/(list root)} :: $? untagged fork
{$bcts p/toga q/root} :: $= name
{$bcsm p/twig} :: $; assembly
New metal boot system.
2016-11-24 07:25:07 +03:00
:: :::::: cores
143: | runes.
2017-09-18 04:32:20 +03:00
{$brcb p/chap q/root r/(map @ tomb)} :: |_
{$brcl p/chap q/twig r/twig} :: |:
{$brcn p/chap q/(map @ tomb)} :: |%
{$brdt p/chap q/twig} :: |.
{$brkt p/chap q/twig r/(map @ tomb)} :: |^
{$brhp p/chap q/twig} :: |-
{$brsg p/chap q/twig r/twig} :: |~
{$brtr p/chap q/root r/twig} :: |*
Changed one stem: %gate to %brts.
2017-09-17 21:14:12 +03:00
{$brts p/chap q/root r/twig} :: |=
143: | runes.
2017-09-18 04:32:20 +03:00
{$brwt p/chap q/twig} :: |?
New metal boot system.
2016-11-24 07:25:07 +03:00
:: :::::: tuples
All : runes.
2017-09-18 21:50:10 +03:00
{$clcb p/twig q/twig} :: :_ [q p]
{$clkt p/twig q/twig r/twig s/twig} :: :^ [p q r s]
Converted :-.
2017-09-18 20:25:05 +03:00
{$clhp p/twig q/twig} :: :- [p q]
All : runes.
2017-09-18 21:50:10 +03:00
{$clls p/twig q/twig r/twig} :: :+ [p q r]
{$clsg p/(list twig)} :: :~ [p ~]
{$cltr p/(list twig)} :: :* p as a tuple
New metal boot system.
2016-11-24 07:25:07 +03:00
:: :::::: invocations
All % runes except %-.
2017-09-19 03:55:32 +03:00
{$cncb p/wing q/(list (pair wing twig))} :: %_
{$cndt p/twig q/twig} :: %.
%call attempt.
2017-09-19 08:40:30 +03:00
{$cnhp p/twig q/(list twig)} :: %-
Converted %bake.
2017-09-18 22:37:25 +03:00
{$cntr p/wing q/twig r/(list (pair wing twig))} :: %*
All % runes except %-.
2017-09-19 03:55:32 +03:00
{$cnkt p/twig q/twig r/twig s/twig} :: %^
{$cnls p/twig q/twig r/twig} :: %+
Convert %~.
2017-09-19 01:32:35 +03:00
{$cnsg p/wing q/twig r/(list twig)} :: %~
Converted %=.
2017-09-19 03:19:22 +03:00
{$cnts p/wing q/(list (pair wing twig))} :: %=
New metal boot system.
2016-11-24 07:25:07 +03:00
:: :::::: nock
Adapt all . runes.
2017-09-19 23:37:15 +03:00
{$dtkt p/root q/twig} :: .^ nock 11
{$dtls p/twig} :: .+ nock 4
{$dttr p/twig q/twig} :: .* nock 2
{$dtts p/twig q/twig} :: .= nock 5
{$dtwt p/twig} :: .? nock 3
New metal boot system.
2016-11-24 07:25:07 +03:00
:: :::::: span conversion
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$ktbr p/twig} :: ^|
{$ktdt p/twig q/twig} :: ^.
{$ktls p/twig q/twig} :: ^+
{$kthp p/root q/twig} :: ^-
{$ktpm p/twig} :: ^&
{$ktsg p/twig} :: ^~
{$ktts p/toga q/twig} :: ^=
{$ktwt p/twig} :: ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
:: :::::: hints
{$show p/twig q/twig} :: ~| sell on trace
{$lurk p/twig q/twig} :: ~_ tank on trace
{$fast p/chum q/twig r/tyre s/twig} :: ~% general jet hint
{$funk p/chum q/twig} :: ~/ function j-hint
{$thin p/$@(term {p/term q/twig}) q/twig} :: ~< backward hint
{$hint p/$@(term {p/term q/twig}) q/twig} :: ~> forward hint
{$poll p/term q/twig} :: ~$ profiler hit
{$memo p/@ q/twig} :: ~+ cache/memoize
{$dump p/@ud q/twig r/twig} :: ~& printf/priority
{$ddup p/twig q/twig} :: ~= don't duplicate
{$warn p/@ud q/twig r/twig s/twig} :: ~? tested printf
{$peep p/twig q/twig} :: ~! type on trace
:: :::::: miscellaneous
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
{$xmn p/manx} :: ;foo; templating
{$xml p/marl} :: ;= list templating
New metal boot system.
2016-11-24 07:25:07 +03:00
{$wad p/twig q/(list twig)} :: ;: binary to nary
{$nub p/twig} :: ;/ [%$ [%$ p ~] ~]
{$dip p/twig q/(list twig)} :: ;~ kleisli arrow
{$fry p/twig q/twig} :: ;; normalize
:: :::::: compositions
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
{$new p/root q/twig} :: =| push bunt
New metal boot system.
2016-11-24 07:25:07 +03:00
{$fix p/(list (pair wing twig)) q/twig} :: =: q with p changes
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
{$var p/toro q/twig r/twig} :: =/ typed variable
{$rev p/toro q/twig r/twig} :: =; =/(q p r)
New metal boot system.
2016-11-24 07:25:07 +03:00
{$set p/wing q/twig r/twig} :: =. r with p as q
Add a tiswut rune which is a conditional tisdot. This changes: =. a ?. =(b c) a c into: =? a =(b c) c This also adds a few obvious changes in the vanes and in app/talk.hoon to take advantage of this new rune.
2016-12-11 03:46:13 +03:00
{$huh p/wing q/twig r/twig s/twig} :: =? conditional =.
New metal boot system.
2016-11-24 07:25:07 +03:00
{$rap p/twig q/twig} :: =< =>(q p)
{$nip p/twig q/twig} :: =- =+(q p)
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
{$per p/twig q/twig} :: => q w/subject p
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
{$sip p/toro q/wing r/twig s/twig} :: =^ state machine
New metal boot system.
2016-11-24 07:25:07 +03:00
{$pin p/twig q/twig} :: =+ q w/[p subject]
{$tow p/(list twig)} :: =~ twig stack
Complete decoration system.
2017-04-05 03:33:20 +03:00
{$aka p/(pair what term) q/twig r/twig} :: =* r w/alias p/q
New metal boot system.
2016-11-24 07:25:07 +03:00
{$use p/twig q/twig} :: =, overload p in q
:: :::::: conditionals
{$or p/(list twig)} :: ?| loobean or
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
{$case p/wing q/(list (pair root twig))} :: ?- pick case in q
New metal boot system.
2016-11-24 07:25:07 +03:00
{$if p/twig q/twig r/twig} :: ?: if/then/else
{$lest p/twig q/twig r/twig} :: ?. ?:(p r q)
{$ifcl p/wing q/twig r/twig} :: ?^ if p is a cell
{$deny p/twig q/twig} :: ?< ?:(p !! q)
{$sure p/twig q/twig} :: ?> ?:(p q !!)
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
{$deft p/wing q/twig r/(list (pair root twig))} :: ?+ ?- w/default
New metal boot system.
2016-11-24 07:25:07 +03:00
{$and p/(list twig)} :: ?& loobean and
{$ifat p/wing q/twig r/twig} :: ?@ if p is atom
{$ifno p/wing q/twig r/twig} :: ?~ if p is null
::
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
{$fits p/root q/wing} :: ?= if q matches p
New metal boot system.
2016-11-24 07:25:07 +03:00
{$not p/twig} :: ?! loobean not
:: :::::: special
{$twig p/twig q/twig} :: !,
{$wrap p/twig} :: !>
{$spit p/twig q/twig} :: !;
{$code p/twig} :: !=
{$need p/$@(p/@ {p/@ q/@}) q/twig} :: !?
{$fail $~} :: !!
== ::
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
++ toro (pair toga (unit root)) ::
Stuff.
2017-02-22 08:11:03 +03:00
++ twit twig :: last-gen twig
New metal boot system.
2016-11-24 07:25:07 +03:00
++ tyre (list {p/term q/twig}) ::
++ tyke (list (unit twig)) ::
:: :::::: virtual nock
++ nock $^ {p/nock q/nock} :: autocons
$% {$0 p/@} :: axis select
{$1 p/*} :: constant
{$2 p/nock q/nock} :: compose
{$3 p/nock} :: cell test
{$4 p/nock} :: increment
{$5 p/nock q/nock} :: equality test
{$6 p/nock q/nock r/nock} :: if, then, else
{$7 p/nock q/nock} :: serial compose
{$8 p/nock q/nock} :: push onto subject
{$9 p/@ q/nock} :: select arm and fire
{$10 p/$@(@ {p/@ q/nock}) q/nock} :: hint
{$11 p/nock q/nock} :: grab data from sky
== ::
++ span $@ $? $noun :: any nouns
$void :: no noun
== ::
$% {$atom p/term q/(unit @)} :: atom / constant
{$cell p/span q/span} :: ordered pair
{$core p/span q/coil} :: object
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
{$face p/{p/what q/$@(term tune)} q/span} :: namespace (new)
New metal boot system.
2016-11-24 07:25:07 +03:00
{$fork p/(set span)} :: union
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
{$help p/what q/span} :: documentation
New metal boot system.
2016-11-24 07:25:07 +03:00
{$hold p/span q/twig} :: lazy evaluation
== ::
++ tone $% {$0 p/*} :: success
{$1 p/(list)} :: blocks
{$2 p/(list {@ta *})} :: error ~_s
== ::
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
++ tool $@(term tune) :: span decoration
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
++ tune :: complex
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
$: p/(map term (pair what (unit twig))) :: aliases
New metal boot system.
2016-11-24 07:25:07 +03:00
q/(list twig) :: bridges
== ::
++ typo span :: old span
++ vase {p/span q/*} :: span-value pair
++ vise {p/typo q/*} :: old vase
++ vial ?($read $rite $both $free) :: co/contra/in/bi
Restore metals.
2017-09-20 08:32:08 +03:00
++ vair ?($gold $iron $lead $zinc) :: in/contra/bi/co
New metal boot system.
2016-11-24 07:25:07 +03:00
++ vein (list (unit axis)) :: search trace
Complete decoration system.
2017-04-05 03:33:20 +03:00
++ sect (list pica) :: paragraph
++ whit ::
$: lab/(unit term) :: label
boy/(unit (pair cord (list sect))) :: body
def/(map term (pair cord (list sect))) :: definitions
use/(set term) :: defs used
== ::
++ what (unit (pair cord (list sect))) :: help slogan/sections
New metal boot system.
2016-11-24 07:25:07 +03:00
++ wing (list limb) :: search path
++ worm :: compiler cache
$: nes/(set ^) :: ++nest
pay/(map (pair span twig) span) :: ++play
mit/(map (pair span twig) (pair span nock)) :: ++mint
== ::
--
:: ::
:::: 5: layer five ::
:: ::
:: 5a: compiler utilities ::
:: 5b: macro expansion ::
:: 5c: compiler backend and prettyprinter ::
:: 5d: parser ::
:: 5e: caching compiler ::
:: 5f: molds and mold builders ::
:: 5g: profiling support (XX remove) ::
::
~% %pen
+
==
%al al
%ap ap
%ut ut
==
|%
Neutral 143.
2017-09-16 00:40:24 +03:00
++ foo 0
New metal boot system.
2016-11-24 07:25:07 +03:00
::
:::: 5a: compiler utilities
::
++ bool `span`(fork [%atom %f `0] [%atom %f `1] ~) :: make loobean
++ cell :: make %cell span
~/ %cell
|= {hed/span tal/span}
^- span
?:(=(%void hed) %void ?:(=(%void tal) %void [%cell hed tal]))
::
++ core :: make %core span
~/ %core
|= {pac/span con/coil}
^- span
?:(=(%void pac) %void [%core pac con])
::
Implement doccords in hoon. This adds syntax to the language to embed documentation. You can either the new ^: rune, or the irregular ''':doccord.''': syntax. This patch adds the language feature, but does not use it. Author: Elliot Glaysher <erg@google.com> Date: Wed Mar 1 18:21:26 2017 -0800
2017-03-02 05:21:26 +03:00
++ help
~/ %help
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
|= {p/what q/span}
Implement doccords in hoon. This adds syntax to the language to embed documentation. You can either the new ^: rune, or the irregular ''':doccord.''': syntax. This patch adds the language feature, but does not use it. Author: Elliot Glaysher <erg@google.com> Date: Wed Mar 1 18:21:26 2017 -0800
2017-03-02 05:21:26 +03:00
^- span
?: =(%void q)
%void
[%help p q]
::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ face :: make %face span
~/ %face
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
|= {giz/{what $@(term tune)} der/span}
New metal boot system.
2016-11-24 07:25:07 +03:00
^- span
?: =(%void der)
%void
[%face giz der]
::
++ fork :: make %fork span
~/ %fork
|= yed/(list span)
=| lez/(set span)
|- ^- span
?~ yed
?~ lez %void
?: ?=({* $~ $~} lez) n.lez
[%fork lez]
%= $
yed t.yed
lez
?: =(%void i.yed) lez
?: ?=({$fork *} i.yed) (~(uni in lez) p.i.yed)
(~(put in lez) i.yed)
==
::
++ cove :: extract [0 *] axis
|= nug/nock
?- nug
{$0 *} p.nug
{$10 *} $(nug q.nug)
* ~_(leaf+"cove" !!)
==
++ comb :: combine two formulas
~/ %comb
|= {mal/nock buz/nock}
^- nock
?: ?&(?=({$0 *} mal) !=(0 p.mal))
?: ?&(?=({$0 *} buz) !=(0 p.buz))
[%0 (peg p.mal p.buz)]
?: ?=({$2 {$0 *} {$0 *}} buz)
[%2 [%0 (peg p.mal p.p.buz)] [%0 (peg p.mal p.q.buz)]]
[%7 mal buz]
?: ?=({^ {$0 $1}} mal)
[%8 p.mal buz]
?: =([%0 %1] buz)
mal
[%7 mal buz]
::
++ cond :: ?: compile
~/ %cond
|= {pex/nock yom/nock woq/nock}
^- nock
?- pex
{$1 $0} yom
{$1 $1} woq
* [%6 pex yom woq]
==
::
++ cons :: make formula cell
Converted :-.
2017-09-18 20:25:05 +03:00
~/ %clhp
New metal boot system.
2016-11-24 07:25:07 +03:00
|= {vur/nock sed/nock}
^- nock
?: ?=({{$0 *} {$0 *}} +<)
?: ?&(=(+(p.vur) p.sed) =((div p.vur 2) (div p.sed 2)))
[%0 (div p.vur 2)]
[vur sed]
?: ?=({{$1 *} {$1 *}} +<)
[%1 p.vur p.sed]
[vur sed]
::
++ fitz :: odor compatibility
~/ %fitz
|= {yaz/term wix/term}
=+ ^= fiz
|= mot/@ta ^- {p/@ q/@ta}
=+ len=(met 3 mot)
?: =(0 len)
[0 %$]
=+ tyl=(rsh 3 (dec len) mot)
?: &((gte tyl 'A') (lte tyl 'Z'))
[(sub tyl 64) (end 3 (dec len) mot)]
[0 mot]
=+ [yoz=(fiz yaz) wux=(fiz wix)]
?& ?| =(0 p.yoz)
=(0 p.wux)
&(!=(0 p.wux) (lte p.wux p.yoz))
==
|- ?| =(%$ p.yoz)
=(%$ p.wux)
?& =((end 3 1 p.yoz) (end 3 1 p.wux))
$(p.yoz (rsh 3 1 p.yoz), p.wux (rsh 3 1 p.wux))
==
==
==
::
++ flan :: loobean &
~/ %flan
|= {bos/nock nif/nock}
^- nock
?- bos
{$1 $1} bos
{$1 $0} nif
*
?- nif
{$1 $1} nif
{$1 $0} bos
* [%6 bos nif [%1 1]]
==
==
::
++ flip :: loobean negation
~/ %flip
|= dyr/nock
[%6 dyr [%1 1] [%1 0]]
::
++ flor :: loobean |
~/ %flor
|= {bos/nock nif/nock}
^- nock
?- bos
{$1 $1} nif
{$1 $0} bos
*
?- nif
{$1 $1} bos
{$1 $0} nif
* [%6 bos [%1 0] nif]
==
==
::
++ hike
~/ %hike
|= {axe/axis pac/(list {p/axis q/nock})}
^- nock
?~ pac
[%0 axe]
=+ zet=(skim pac.$ |=({p/axis q/nock} [=(1 p)]))
?~ zet
=+ tum=(skim pac.$ |=({p/axis q/nock} ?&(!=(1 p) =(2 (cap p)))))
=+ gam=(skim pac.$ |=({p/axis q/nock} ?&(!=(1 p) =(3 (cap p)))))
%+ cons
%= $
axe (peg axe 2)
pac (turn tum |=({p/axis q/nock} [(mas p) q]))
==
%= $
axe (peg axe 3)
pac (turn gam |=({p/axis q/nock} [(mas p) q]))
==
?>(?=({* $~} zet) q.i.zet)
::
++ jock
|= rad/?
|= lot/coin ^- twig
?- -.lot
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
$~
New metal boot system.
2016-11-24 07:25:07 +03:00
?:(rad [%rock p.lot] [%sand p.lot])
::
$blob
?: rad
[%rock %$ p.lot]
?@(p.lot [%sand %$ p.lot] [$(p.lot -.p.lot) $(p.lot +.p.lot)])
::
$many
All : runes.
2017-09-18 21:50:10 +03:00
[%cltr (turn p.lot |=(a/coin ^$(lot a)))]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
++ look
~/ %look
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
|= {cog/term dab/(map term (pair what foot))}
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ axe=1
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
|- ^- (unit {p/axis q/(pair what foot)})
New metal boot system.
2016-11-24 07:25:07 +03:00
?- dab
$~ ~
::
{* $~ $~}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
?:(=(cog p.n.dab) [~ axe q.n.dab] ~)
New metal boot system.
2016-11-24 07:25:07 +03:00
::
{* $~ *}
?: =(cog p.n.dab)
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
[~ (peg axe 2) q.n.dab]
New metal boot system.
2016-11-24 07:25:07 +03:00
?: (gor cog p.n.dab)
~
$(axe (peg axe 3), dab r.dab)
::
{* * $~}
?: =(cog p.n.dab)
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
[~ (peg axe 2) q.n.dab]
New metal boot system.
2016-11-24 07:25:07 +03:00
?: (gor cog p.n.dab)
$(axe (peg axe 3), dab l.dab)
~
::
{* * *}
?: =(cog p.n.dab)
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
[~ (peg axe 2) q.n.dab]
New metal boot system.
2016-11-24 07:25:07 +03:00
?: (gor cog p.n.dab)
$(axe (peg axe 6), dab l.dab)
$(axe (peg axe 7), dab r.dab)
==
::
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
++ loot
~/ %loot
|= {cog/term dom/(map @ tomb)}
=+ axe=1
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
|- ^- (unit {p/axis q/(pair what foot)})
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
?- dom
$~ ~
::
{* $~ $~}
%+ bind (look cog q.q.n.dom)
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
|=((pair axis (pair what foot)) [(peg axe p) q])
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
::
{* $~ *}
=+ yep=(look cog q.q.n.dom)
?^ yep
[~ (peg (peg axe 2) p.u.yep) q.u.yep]
$(axe (peg axe 3), dom r.dom)
::
{* * $~}
=+ yep=(look cog q.q.n.dom)
?^ yep
[~ (peg (peg axe 2) p.u.yep) q.u.yep]
$(axe (peg axe 3), dom l.dom)
::
{* * *}
=+ yep=(look cog q.q.n.dom)
?^ yep
[~ (peg (peg axe 2) p.u.yep) q.u.yep]
=+ pey=$(axe (peg axe 6), dom l.dom)
?^ pey pey
$(axe (peg axe 7), dom r.dom)
==
::
New metal boot system.
2016-11-24 07:25:07 +03:00
:::: 5b: macro expansion
::
++ ah :: tiki engine
|_ tik/tiki
++ blue
|= gen/twig
^- twig
?. &(?=($| -.tik) ?=($~ p.tik)) gen
[%per [%$ 3] gen]
::
++ gray
|= gen/twig
^- twig
?- -.tik
Complete decoration system.
2017-04-05 03:33:20 +03:00
$& ?~(p.tik gen [%aka [~ u.p.tik] [%wing q.tik] gen])
Translate ^ runes.
2017-09-20 02:24:30 +03:00
$| [%pin ?~(p.tik q.tik [%ktts u.p.tik q.tik]) gen]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
++ puce
^- wing
?- -.tik
$& ?~(p.tik q.tik [u.p.tik ~])
$| [[%& 2] ~]
==
::
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
++ wthp |= opt/(list (pair root twig))
New metal boot system.
2016-11-24 07:25:07 +03:00
%+ gray %case
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
[puce (turn opt |=({a/root b/twig} [a (blue b)]))]
New metal boot system.
2016-11-24 07:25:07 +03:00
++ wtkt |=({sic/twig non/twig} (gray [%ifcl puce (blue sic) (blue non)]))
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
++ wtls |= {gen/twig opt/(list (pair root twig))}
New metal boot system.
2016-11-24 07:25:07 +03:00
%+ gray %deft
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
[puce (blue gen) (turn opt |=({a/root b/twig} [a (blue b)]))]
New metal boot system.
2016-11-24 07:25:07 +03:00
++ wtpt |=({sic/twig non/twig} (gray [%ifat puce (blue sic) (blue non)]))
++ wtsg |=({sic/twig non/twig} (gray [%ifno puce (blue sic) (blue non)]))
++ wtts |=(gen/twig (gray [%fits (blue gen) puce]))
--
::
++ al :: tile engine
~% %al
+>+
==
%bunt bunt
%whip whip
==
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
=+ :* nag=`*`&
gom=`axis`1
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
wat=*what
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
==
New metal boot system.
2016-11-24 07:25:07 +03:00
|_ sec/tile
::::
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
++ hail
|= gen/twig
^- twig
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
?~(wat gen [%help wat gen])
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ home |=(gen/twig ^-(twig ?:(=(1 gom) gen [%per [%$ gom] gen])))
::::
++ bunt
|- ^- twig
?- sec
{^ *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
%- hail
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=. wat ~
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
(hail [$(sec p.sec) $(sec q.sec)])
New metal boot system.
2016-11-24 07:25:07 +03:00
::
{$axil *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
%- hail
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=. wat ~
New metal boot system.
2016-11-24 07:25:07 +03:00
?- p.sec
{$atom *} [%sand p.p.sec 0]
Adapt all . runes.
2017-09-19 23:37:15 +03:00
$noun [%dttr [%rock %$ 0] [[%rock %$ 0] [%rock %$ 1]]]
New metal boot system.
2016-11-24 07:25:07 +03:00
$cell =+(nec=$(sec [%axil %noun]) [nec nec])
Adapt all . runes.
2017-09-19 23:37:15 +03:00
$bean [%dtts [%rock %$ 0] [%rock %$ 0]]
New metal boot system.
2016-11-24 07:25:07 +03:00
$void [%fail ~]
$null [%rock %n %$]
==
::
{$bark *}
Translate ^ runes.
2017-09-20 02:24:30 +03:00
[%ktts p.sec $(sec q.sec)]
New metal boot system.
2016-11-24 07:25:07 +03:00
::
$ runes converted.
2017-09-18 02:31:49 +03:00
{$bckt *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
%- hail
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=. wat ~
New metal boot system.
2016-11-24 07:25:07 +03:00
[%if [%bust %bean] $(sec p.sec) $(sec q.sec)]
::
{$deet *}
[%dbug p.sec $(sec q.sec)]
::
{$fern *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
%- hail
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=. wat ~
New metal boot system.
2016-11-24 07:25:07 +03:00
|- ^- twig
?~ t.p.sec
^$(sec i.p.sec)
[%if [%bust %bean] ^$(sec i.p.sec) $(p.sec t.p.sec)]
::
{$herb *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
%- hail
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=. wat ~
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ cys=~(boil ap p.sec)
?: ?=($herb -.cys)
(home [%rap [%limb %$] p.sec])
$(sec cys)
::
{$kelp *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
%- hail
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=. wat ~
New metal boot system.
2016-11-24 07:25:07 +03:00
|- ^- twig
?~ t.p.sec
^$(sec i.p.sec)
[%if [%bust %bean] ^$(sec i.p.sec) $(p.sec t.p.sec)]
::
{$leaf *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
(hail [%rock p.sec q.sec])
::
{$plow *}
Complete decoration system.
2017-04-05 03:33:20 +03:00
?> =(*what wat)
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
$(sec q.sec, wat p.sec)
New metal boot system.
2016-11-24 07:25:07 +03:00
::
{$reed *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
%- hail
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=. wat ~
New metal boot system.
2016-11-24 07:25:07 +03:00
[%if [%bust %bean] $(sec p.sec) $(sec q.sec)]
::
{$weed *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
(hail (home p.sec))
New metal boot system.
2016-11-24 07:25:07 +03:00
==
Complete decoration system.
2017-04-05 03:33:20 +03:00
++ clam
^- twig
Changed one stem: %gate to %brts.
2017-09-17 21:14:12 +03:00
[%brts [~ ~] [%base %noun] (whip(gom 7) 6)]
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ whip
|= axe/axis
=+ ^= tun
|= noy/$-(* twig)
^- twig
?@ nag
Converted %=.
2017-09-19 03:19:22 +03:00
=+ luz=[%cnts [[%& 1] ~] [[[%& axe] ~] bunt(sec [%axil %cell])] ~]
New metal boot system.
2016-11-24 07:25:07 +03:00
?: =(& nag)
[%per [%ifat [[%& axe] ~] luz [%$ 1]] (noy [& &])]
[%per luz (noy [& &])]
(noy nag)
^- twig
?- sec
{^ *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
%- hail
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=. wat ~
New metal boot system.
2016-11-24 07:25:07 +03:00
%- tun |= gon/* => .(nag gon) ^- twig
:- ^$(sec -.sec, nag -.nag, axe (peg axe 2))
^$(sec +.sec, nag +.nag, axe (peg axe 3))
::
{$axil *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
%- hail
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=. wat ~
New metal boot system.
2016-11-24 07:25:07 +03:00
?- p.sec
{$atom *}
=+ buv=bunt
|- ^- twig
?@ nag
Translate ^ runes.
2017-09-20 02:24:30 +03:00
?:(=(& nag) [%ifat [[%& axe] ~] $(nag |) buv] [%ktls buv [%$ axe]])
New metal boot system.
2016-11-24 07:25:07 +03:00
buv
::
$noun
Translate ^ runes.
2017-09-20 02:24:30 +03:00
[%kthp [%base %noun] [%$ axe]]
New metal boot system.
2016-11-24 07:25:07 +03:00
::
$cell
=+ buv=bunt
|- ^- twig
?@ nag
?:(=(& nag) [%ifat [[%& axe] ~] buv $(nag [& &])] buv)
Translate ^ runes.
2017-09-20 02:24:30 +03:00
[%ktls buv [%$ axe]]
New metal boot system.
2016-11-24 07:25:07 +03:00
::
$bean
:^ %if
Adapt all . runes.
2017-09-19 23:37:15 +03:00
[%dtts [%rock %$ |] [%$ axe]]
New metal boot system.
2016-11-24 07:25:07 +03:00
[%rock %f |]
[%rock %f &]
::
$void
bunt
::
$null
bunt
==
::
{$bark *}
Translate ^ runes.
2017-09-20 02:24:30 +03:00
[%ktts p.sec $(sec q.sec)]
New metal boot system.
2016-11-24 07:25:07 +03:00
::
$ runes converted.
2017-09-18 02:31:49 +03:00
{$bckt *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
%- hail
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=. wat ~
New metal boot system.
2016-11-24 07:25:07 +03:00
%- tun |= gon/* => .(nag gon) ^- twig
?@ -.nag
?: =(& -.nag)
[%ifat [[%& (peg axe 2)] ~] ^$(sec q.sec) ^$(sec p.sec)]
^$(sec q.sec)
^$(sec p.sec)
::
{$deet *}
[%dbug p.sec $(sec q.sec)]
::
{$fern *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
%- hail
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=. wat ~
New metal boot system.
2016-11-24 07:25:07 +03:00
|- ^- twig
?~ t.p.sec
^$(sec i.p.sec)
:+ %pin
^$(sec i.p.sec)
=> .(axe (peg 3 axe), gom (peg 3 gom))
:^ %if
Adapt all . runes.
2017-09-19 23:37:15 +03:00
[%dtts [%$ axe] [%$ 2]]
New metal boot system.
2016-11-24 07:25:07 +03:00
[%$ 2]
$(i.p.sec i.t.p.sec, t.p.sec t.t.p.sec)
::
{$herb *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
%- hail
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=. wat ~
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ cys=~(boil ap p.sec)
?: ?=($herb -.cys)
%call attempt.
2017-09-19 08:40:30 +03:00
[%cnhp (home p.sec) [%$ axe] ~]
New metal boot system.
2016-11-24 07:25:07 +03:00
$(sec cys)
::
{$kelp *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
%- hail
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=. wat ~
New metal boot system.
2016-11-24 07:25:07 +03:00
%- tun |= gon/* => .(nag gon)
|- ^- twig
?~ t.p.sec
:- [%rock +.p.i.p.sec]
^^$(axe (peg axe 3), sec q.i.p.sec, nag &)
:^ %if
Adapt all . runes.
2017-09-19 23:37:15 +03:00
[%dtts [%$ (peg axe 2)] [%rock +.p.i.p.sec]]
New metal boot system.
2016-11-24 07:25:07 +03:00
:- [%rock +.p.i.p.sec]
^^$(axe (peg axe 3), sec q.i.p.sec, nag &)
$(i.p.sec i.t.p.sec, t.p.sec t.t.p.sec)
::
{$leaf *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
(hail [%rock p.sec q.sec])
::
{$plow *}
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
$(sec q.sec, wat p.sec)
New metal boot system.
2016-11-24 07:25:07 +03:00
::
{$reed *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
%- hail
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=. wat ~
New metal boot system.
2016-11-24 07:25:07 +03:00
?- nag
$& [%ifat [[%& axe] ~] $(sec p.sec, nag |) $(sec q.sec, nag [& &])]
$| $(sec p.sec)
^ $(sec q.sec)
* !!
==
::
{$weed *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
(hail (home p.sec))
New metal boot system.
2016-11-24 07:25:07 +03:00
==
--
::
++ ap :: twig engine
~% %ap
+>
==
%etch etch
%open open
%rake rake
==
|_ gen/twig
++ etch
~_ leaf+"etch"
|- ^- term
Translate ^ runes.
2017-09-20 02:24:30 +03:00
?: ?=({$ktts *} gen)
New metal boot system.
2016-11-24 07:25:07 +03:00
?>(?=(@ p.gen) p.gen)
=+ voq=~(open ap gen)
?<(=(gen voq) $(gen voq))
::
++ feck
|- ^- (unit term)
?- gen
{$sand $tas @} [~ q.gen]
{$dbug *} $(gen q.gen)
* ~
==
::
Complete decoration system.
2017-04-05 03:33:20 +03:00
++ gi
=| whit
=* wit -
|%
++ gray
^- ?
|
:: on reflection, perhaps just obsessive linting
::
:: ?| ?=(^ lab)
:: ?=(^ boy)
:: |- ^- ?
:: ?~ def |
:: |($(def l.def) $(def r.def) !(~(has in use) p.n.def))
:: ==
::
++ grad
|= $: gen/twig
wit/whit
aid/$-({? twig whit} {twig whit})
==
^- (unit (pair twig whit))
=: ^gen gen
^wit wit
==
?: =([~ ~ ~ ~] wit) `[gen wit]
=< apex
|%
++ apex
^- (unit (pair twig whit))
=^ one wit prim
=^ two wit senc(gen one)
?: =(gen two)
~
`(aid & two wit)
::
:: resolve body and label issues
::
++ prim
^- (pair twig whit)
?: ?=(^ -.gen) flam
?+ -.gen flam
$halo flam
$base runk
$leaf runk
%claw to %bcpt.
2017-09-18 01:10:40 +03:00
$bcpt runk
$ runes converted.
2017-09-18 02:31:49 +03:00
$bccb runk
$bccl runk
$bccn runk
$bchp runk
$bckt runk
$bcwt runk
$bcts flam
$bcsm runk
143: | runes.
2017-09-18 04:32:20 +03:00
$brcb ((doof -.gen +>.gen) p.gen)
$brcl ((doof -.gen +>.gen) p.gen)
$brcn ((doof -.gen +>.gen) p.gen)
$brdt ((doof -.gen +>.gen) p.gen)
$brkt ((doof -.gen +>.gen) p.gen)
$brhp ((doof -.gen +>.gen) p.gen)
$brsg ((doof -.gen +>.gen) p.gen)
$brtr ((doof -.gen +>.gen) p.gen)
Changed one stem: %gate to %brts.
2017-09-17 21:14:12 +03:00
$brts ((doof -.gen +>.gen) p.gen)
143: | runes.
2017-09-18 04:32:20 +03:00
$brwt ((doof -.gen +>.gen) p.gen)
Complete decoration system.
2017-04-05 03:33:20 +03:00
==
::
:: resolve variable issues
::
++ senc
^- (pair twig whit)
?: ?=(^ -.gen) flam
?+ -.gen flam
Translate ^ runes.
2017-09-20 02:24:30 +03:00
$ktts ((helk -.gen +>.gen) p.gen)
$ runes converted.
2017-09-18 02:31:49 +03:00
$bcts ((helk -.gen +>.gen) p.gen)
Complete decoration system.
2017-04-05 03:33:20 +03:00
$var ((hulp -.gen +>.gen) p.gen)
$rev ((hulp -.gen +>.gen) p.gen)
$sip ((hulp -.gen +>.gen) p.gen)
$aka ((humm -.gen +>.gen) p.gen)
==
::
++ flam [gen wit]
++ grif
|= {cog/term wat/what}
^- {what whit}
?: =(~ def)
?~ boy [wat wit]
[boy wit(boy ~)]
=+ yeb=(~(get by def) cog)
?~ yeb [wat wit]
[`u.yeb wit(use (~(put in use) cog))]
::
++ doof
|* {pif/@tas suf/*}
|= pac/chap
^- (pair twig whit)
:_ wit(lab ~, boy ~)
=- [pif - suf]
^- chap
++chap should have an (unit term) instead of a (list term).
2017-06-03 19:42:30 +03:00
:- ?~(lab p.pac [~ u.lab])
Complete decoration system.
2017-04-05 03:33:20 +03:00
?~(boy q.pac boy)
::
++ helk
|* {pif/@tas suf/*}
|= got/toga
^- (pair twig whit)
=^ gef wit (tong got)
[[pif gef suf] wit]
::
++ hulp
|* {pif/@tas suf/*}
|= hot/toro
^- (pair twig whit)
=^ tog wit (tong p.hot)
[[pif [tog q.hot] suf] wit]
::
++ humm
|* {pif/@tas suf/*}
|= {wat/what cog/term}
^- (pair twig whit)
=^ taw wit (grif cog wat)
[[pif [taw cog] suf] wit]
::
++ runk
^- (pair twig whit)
?~ boy flam
[[%halo boy gen] wit(boy ~)]
::
++ tong
|= got/toga
^- {toga whit}
?@ got
=^ wat wit (grif got ~)
?~ wat [got wit]
[[%1 [wat got] [%0 ~]] wit]
?- -.got
$0 [got wit]
$1 =^ wat wit (grif q.p.got p.p.got)
=^ sub wit $(got q.got)
[[%1 [wat q.p.got] sub] wit]
$2 =^ one wit $(got p.got)
=^ two wit $(got q.got)
[[%2 one two] wit]
==
--
::
++ graf
:: ^- (unit twig)
:: =^ nex wit ((walk whit) wit grad)
:: ?:(gray ~ `nex)
=^ nex wit ((walk whit) wit grad)
nex
--
::
New metal boot system.
2016-11-24 07:25:07 +03:00
:: not used at present; see comment at $csng in ++open
::::
::++ hail
:: |= axe/axis
:: =| air/(list (pair wing twig))
:: |- ^+ air
:: =+ hav=half
:: ?~ hav [[[[%| 0 ~] [%& axe] ~] gen] air]
:: $(gen p.u.hav, axe (peg axe 2), air $(gen q.u.hav, axe (peg axe 3)))
::::
::++ half
:: |- ^- (unit (pair twig twig))
:: ?+ gen ~
:: {^ *} `[p.gen q.gen]
:: {$dbug *} $(gen q.gen)
All : runes.
2017-09-18 21:50:10 +03:00
:: {$clcb *} `[q.gen p.gen]
Converted :-.
2017-09-18 20:25:05 +03:00
:: {$clhp *} `[p.gen q.gen]
All : runes.
2017-09-18 21:50:10 +03:00
:: {$clkt *} `[p.gen %clls q.gen r.gen s.gen]
:: {$clsg *} ?~(p.gen ~ `[i.p.gen %clsg t.p.gen])
:: {$cltr *} ?~ p.gen ~
:: ?~(t.p.gen $(gen i.p.gen) `[i.p.gen %cltr t.p.gen])
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
:: ==
New metal boot system.
2016-11-24 07:25:07 +03:00
::::
++ hock
|- ^- toga
?- gen
Converted %=.
2017-09-19 03:19:22 +03:00
{$cnts {@ $~} $~} i.p.gen
New metal boot system.
2016-11-24 07:25:07 +03:00
{$limb @} p.gen
{$wing {@ $~}} i.p.gen
{$dbug *} $(gen q.gen)
{@ *} =+(neg=open ?:(=(gen neg) [%0 ~] $(gen neg)))
{^ *} =+ toe=[$(gen p.gen) $(gen q.gen)]
?:(=(toe [[%0 ~] [%0 ~]]) [%0 ~] [%2 toe])
==
::
++ bile
=+ sec=boil
|- ^- (each line tile)
Complete decoration system.
2017-04-05 03:33:20 +03:00
?: ?=({$plow *} sec)
$(sec q.sec)
New metal boot system.
2016-11-24 07:25:07 +03:00
?: ?=({$deet *} sec)
$(sec q.sec)
?: ?=({{$deet *} *} sec)
$(p.sec q.p.sec)
?: ?=({{$leaf *} *} sec)
[%& [%leaf p.p.sec q.p.sec] q.sec]
[%| sec]
::
++ boil
^- tile
?+ gen [%herb gen]
{$base *} [%axil p.gen]
{$dbug *} [%deet p.gen boil(gen q.gen)]
{$leaf *} [%leaf p.gen]
::
%claw to %bcpt.
2017-09-18 01:10:40 +03:00
{$bcpt *} [%reed boil(gen p.gen) boil(gen q.gen)]
$ runes converted.
2017-09-18 02:31:49 +03:00
{$bccb *} [%weed p.gen]
{$bccl *}
New metal boot system.
2016-11-24 07:25:07 +03:00
|- ^- tile
?~ p.gen [%axil %null]
?~ t.p.gen boil(gen i.p.gen)
[boil(gen i.p.gen) $(p.gen t.p.gen)]
::
$ runes converted.
2017-09-18 02:31:49 +03:00
{$bccn *}
New metal boot system.
2016-11-24 07:25:07 +03:00
?~ p.gen
[%axil %void]
?~ t.p.gen
boil(gen i.p.gen)
=+ :* def=bile(gen i.p.gen)
^= end ^- (list line)
~_ leaf+"book-foul"
%+ turn `(list twig)`t.p.gen
|=(a/twig =+(bile(gen a) ?>(?=($& -<) ->)))
==
?- -.def
$& [%kelp p.def end]
$| ?~(end p.def [%fern p.def [%kelp end] ~])
==
::
$ runes converted.
2017-09-18 02:31:49 +03:00
{$bckt *} [%bckt boil(gen p.gen) boil(gen q.gen)]
143: | runes.
2017-09-18 04:32:20 +03:00
{$bchp *} [%weed [%brsg [~ ~] p.gen [%bunt [%per [%$ 7] q.gen]]]]
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
{$halo *} [%plow p.gen boil(gen q.gen)]
$ runes converted.
2017-09-18 02:31:49 +03:00
{$bcts *} [%bark p.gen boil(gen q.gen)]
{$bcwt *} =+ (turn p.gen |=(a/twig boil(gen a)))
New metal boot system.
2016-11-24 07:25:07 +03:00
?~(- [%axil %void] [%fern -])
$ runes converted.
2017-09-18 02:31:49 +03:00
{$bcsm *} [%herb p.gen]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
++ open
New metal boot system.
2016-11-24 07:25:07 +03:00
^- twig
?- gen
Converted %=.
2017-09-19 03:19:22 +03:00
{$~ *} [%cnts [[%& p.gen] ~] ~]
New metal boot system.
2016-11-24 07:25:07 +03:00
::
{$base *} ~(clam al boil)
{$bust *} ~(bunt al %axil p.gen)
{$dbug *} q.gen
Complete decoration system.
2017-04-05 03:33:20 +03:00
{$eror *} ~|(p.gen !!)
New metal boot system.
2016-11-24 07:25:07 +03:00
::
{$knit *} ::
Translate ^ runes.
2017-09-20 02:24:30 +03:00
:+ %per [%ktts %v %$ 1] :: => v=.
143: | runes.
2017-09-18 04:32:20 +03:00
:+ %brhp [~ ~] :: |-
Translate ^ runes.
2017-09-20 02:24:30 +03:00
:+ %ktls :: ^+
143: | runes.
2017-09-18 04:32:20 +03:00
:+ %brhp [~ ~] :: |-
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
:^ %if :: ?:
New metal boot system.
2016-11-24 07:25:07 +03:00
[%bust %bean] :: ?
[%bust %null] :: ~
Translate ^ runes.
2017-09-20 02:24:30 +03:00
:- [%ktts %i [%sand 'tD' *@]] :: :- i=~~
[%ktts %t [%limb %$]] :: t=$
New metal boot system.
2016-11-24 07:25:07 +03:00
|- ^- twig ::
?~ p.gen ::
[%bust %null] :: ~
=+ res=$(p.gen t.p.gen) ::
^- twig ::
?@ i.p.gen ::
[[%sand 'tD' i.p.gen] res] :: [~~{i.p.gen} {res}]
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
:+ %pin ::
Translate ^ runes.
2017-09-20 02:24:30 +03:00
:- :+ %ktts :: ^=
New metal boot system.
2016-11-24 07:25:07 +03:00
%a :: a
Translate ^ runes.
2017-09-20 02:24:30 +03:00
:+ %ktls :: ^+
New metal boot system.
2016-11-24 07:25:07 +03:00
[%limb %$] :: $
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
[%per [%limb %v] p.i.p.gen] :: =>(v {p.i.p.gen})
Translate ^ runes.
2017-09-20 02:24:30 +03:00
[%ktts %b res] :: b={res}
New metal boot system.
2016-11-24 07:25:07 +03:00
^- twig ::
143: | runes.
2017-09-18 04:32:20 +03:00
:+ %brhp [~ ~] :: |-
New metal boot system.
2016-11-24 07:25:07 +03:00
:^ %ifat :: ?@
[%a ~] :: a
[%limb %b] :: b
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
:- [%rap [%$ 2] [%limb %a]] :: :- -.a
Converted %=.
2017-09-19 03:19:22 +03:00
:+ %cnts :: %=
New metal boot system.
2016-11-24 07:25:07 +03:00
[%$ ~] :: $
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
[[[%a ~] [%rap [%$ 3] [%limb %a]]] ~] :: a +.a
New metal boot system.
2016-11-24 07:25:07 +03:00
::
{$leaf *} ~(clam al boil)
Converted %=.
2017-09-19 03:19:22 +03:00
{$limb *} [%cnts [p.gen ~] ~]
%call attempt.
2017-09-19 08:40:30 +03:00
{$tell *} [%cnhp [%limb %noah] [%wrap [%cltr p.gen]] ~]
Converted %=.
2017-09-19 03:19:22 +03:00
{$wing *} [%cnts p.gen ~]
%call attempt.
2017-09-19 08:40:30 +03:00
{$yell *} [%cnhp [%limb %cain] [%wrap [%cltr p.gen]] ~]
New metal boot system.
2016-11-24 07:25:07 +03:00
::
%claw to %bcpt.
2017-09-18 01:10:40 +03:00
{$bcpt *} ~(clam al boil)
$ runes converted.
2017-09-18 02:31:49 +03:00
{$bccb *} ~(clam al boil)
{$bccl *} ~(clam al boil)
{$bccn *} ~(clam al boil)
{$bchp *} ~(clam al boil)
{$bckt *} ~(clam al boil)
{$bcwt *} ~(clam al boil)
{$bcts *} ~(clam al boil)
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
{$halo *} ~(clam al boil)
$ runes converted.
2017-09-18 02:31:49 +03:00
{$bcsm *} p.gen
New metal boot system.
2016-11-24 07:25:07 +03:00
::
143: | runes.
2017-09-18 04:32:20 +03:00
{$brcb *} [%pin [%bunt q.gen] [%brcn p.gen r.gen]]
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$brcl *} [%pin [%ktsg q.gen] [%brdt p.gen r.gen]]
143: | runes.
2017-09-18 04:32:20 +03:00
{$brdt *} :+ %brcn p.gen
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=- [[0 [~ ~] -] ~ ~]
(~(put by *(map term (pair what foot))) %$ ~ [%ash q.gen])
143: | runes.
2017-09-18 04:32:20 +03:00
{$brkt *} :+ %per
:+ %brcn p.gen
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
=+ one=(~(got by r.gen) 0)
%+ ~(put by r.gen) 0
one(q (~(put by q.one) %$ [~ [%ash q.gen]]))
[%limb %$]
143: | runes.
2017-09-18 04:32:20 +03:00
{$brhp *} [%rap [%limb %$] [%brdt p.gen q.gen]]
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$brsg *} [%ktbr [%brts p.gen q.gen r.gen]]
143: | runes.
2017-09-18 04:32:20 +03:00
{$brtr *} :+ %pin [%bunt q.gen]
:+ %brcn p.gen
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=- [[0 [~ ~] -] ~ ~]
(~(put by *(map term (pair what foot))) %$ ~ [%elm r.gen])
143: | runes.
2017-09-18 04:32:20 +03:00
{$brts *} :^ %brcb p.gen q.gen
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=- [[0 [~ ~] -] ~ ~]
(~(put by *(map term (pair what foot))) %$ ~ [%ash r.gen])
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$brwt *} [%ktwt %brdt p.gen q.gen]
New metal boot system.
2016-11-24 07:25:07 +03:00
::
All : runes.
2017-09-18 21:50:10 +03:00
{$clkt *} [p.gen q.gen r.gen s.gen]
{$clls *} [p.gen q.gen r.gen]
{$clcb *} [q.gen p.gen]
Converted :-.
2017-09-18 20:25:05 +03:00
{$clhp *} [p.gen q.gen]
All : runes.
2017-09-18 21:50:10 +03:00
{$clsg *}
New metal boot system.
2016-11-24 07:25:07 +03:00
|- ^- twig
?~ p.gen
[%rock %n ~]
[i.p.gen $(p.gen t.p.gen)]
::
All : runes.
2017-09-18 21:50:10 +03:00
{$cltr *}
New metal boot system.
2016-11-24 07:25:07 +03:00
|- ^- twig
?~ p.gen
[%fail ~]
?~ t.p.gen
i.p.gen
[i.p.gen $(p.gen t.p.gen)]
::
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$bunt *} [%ktsg ~(bunt al %herb p.gen)]
{$cncb *} [%ktls [%wing p.gen] %cnts p.gen q.gen]
%call attempt.
2017-09-19 08:40:30 +03:00
{$cndt *} [%cnhp q.gen [p.gen ~]]
{$cnkt *} [%cnhp p.gen q.gen r.gen s.gen ~]
{$cnls *} [%cnhp p.gen q.gen r.gen ~]
{$cnhp *} [%cnsg [%$ ~] p.gen q.gen]
Convert %~.
2017-09-19 01:32:35 +03:00
{$cnsg *} :: [%cntr p.gen q.gen (hail(gen [%cltr r.gen]) 6)]
Converted %bake.
2017-09-18 22:37:25 +03:00
:^ %cntr p.gen q.gen
New metal boot system.
2016-11-24 07:25:07 +03:00
::
:: the use of ++hail is probably the right language design, but
:: it's impractically slow without validating %=.
::
All : runes.
2017-09-18 21:50:10 +03:00
:: ?:(=(~ r.gen) ~ (hail(gen [%cltr r.gen]) 6))
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ axe=6
|- ^- (list {wing twig})
?~ r.gen ~
?~ t.r.gen [[[[%| 0 ~] [%& axe] ~] i.r.gen] ~]
:- [[[%| 0 ~] [%& (peg axe 2)] ~] i.r.gen]
$(axe (peg axe 3), r.gen t.r.gen)
::
Converted %bake.
2017-09-18 22:37:25 +03:00
{$cntr *}
New metal boot system.
2016-11-24 07:25:07 +03:00
?: =(~ r.gen)
[%per q.gen [%wing p.gen]]
:+ %pin
q.gen
Converted %=.
2017-09-19 03:19:22 +03:00
:+ %cnts
New metal boot system.
2016-11-24 07:25:07 +03:00
(weld p.gen `wing`[[%& 2] ~])
(turn r.gen |=({p/wing q/twig} [p [%per [%$ 3] q]]))
::
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$ktdt *} [%ktls [%cnhp p.gen q.gen ~] q.gen]
{$kthp *} [%ktls ~(bunt al [%herb p.gen]) q.gen]
New metal boot system.
2016-11-24 07:25:07 +03:00
{$show *}
:+ %hint
:- %mean
=+ fek=~(feck ap p.gen)
?^ fek [%rock %tas u.fek]
%call attempt.
2017-09-19 08:40:30 +03:00
[%brdt [~ ~] [%cnhp [%limb %cain] [%wrap [%per [%$ 3] p.gen]] ~]]
New metal boot system.
2016-11-24 07:25:07 +03:00
q.gen
::
143: | runes.
2017-09-18 04:32:20 +03:00
{$lurk *} [%hint [%mean [%brdt [~ ~] p.gen]] q.gen]
New metal boot system.
2016-11-24 07:25:07 +03:00
{$fast *}
:+ %thin
:- %fast
All : runes.
2017-09-18 21:50:10 +03:00
:- %clls
New metal boot system.
2016-11-24 07:25:07 +03:00
:+ [%rock %$ p.gen]
[%code q.gen]
All : runes.
2017-09-18 21:50:10 +03:00
:- %clsg
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ nob=`(list twig)`~
|- ^- (list twig)
?~ r.gen
nob
[[[%rock %$ p.i.r.gen] [%code q.i.r.gen]] $(r.gen t.r.gen)]
s.gen
::
{$funk *} [%fast p.gen [%$ 7] ~ q.gen]
{$thin *} [%rap [%hint p.gen [%$ 1]] q.gen]
{$poll *} [%hint [%live [%rock %$ p.gen]] q.gen]
{$memo *} [%hint [%memo %rock %$ p.gen] q.gen]
{$dump *}
:+ %hint
%call attempt.
2017-09-19 08:40:30 +03:00
[%slog [%sand %$ p.gen] [%cnhp [%limb %cain] [%wrap q.gen] ~]]
New metal boot system.
2016-11-24 07:25:07 +03:00
r.gen
::
{$ddup *} [%hint [%germ p.gen] q.gen]
{$warn *}
:+ %pin [%lest q.gen [%bust %null] [[%bust %null] r.gen]]
:^ %ifno [%& 2]~
[%per [%$ 3] s.gen]
[%dump p.gen [%$ 5] [%per [%$ 3] s.gen]]
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
::
{$xmn *}
::
::REVIEW separate ap arms?
=/ open-mane
|= a/mane:twig
?@(a [%rock %tas a] [[%rock %tas -.a] [%rock %tas +.a]])
=/ open-mart
|= {n/mane:twig v/(list beer:twig)}
[(open-mane n) %knit v]
All : runes.
2017-09-18 21:50:10 +03:00
[[(open-mane n.g.p.gen) %clsg (turn a.g.p.gen open-mart)] %xml c.p.gen]
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
::
{$xml *}
|-
?~ p.gen [%bust %null]
?- -.i.p.gen
^ [[%xmn i.p.gen] $(p.gen t.p.gen)]
$manx [p.i.p.gen $(p.gen t.p.gen)]
$tape [[%nub p.i.p.gen] $(p.gen t.p.gen)]
%call attempt.
2017-09-19 08:40:30 +03:00
$cnhp [%cnhp p.i.p.gen [$(p.gen t.p.gen)]~]
All % runes except %-.
2017-09-19 03:55:32 +03:00
$marl =- [%cndt [p.i.p.gen $(p.gen t.p.gen)] -]
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
^- twig
:+ %new [%base %cell]
143: | runes.
2017-09-18 04:32:20 +03:00
:+ %brcn *chap
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
^- (map @ tomb)
=- [[0 [~ ~] -] ~ ~]
^- (map term (pair what foot))
:_ [~ ~]
=+ sug=[[%& 12] ~]
:^ %$ ~ %elm
:^ %ifno sug
Converted %=.
2017-09-19 03:19:22 +03:00
[%cnts sug [[[[%& 1] ~] [%$ 13]] ~]]
[%cnts sug [[[[%& 3] ~] [%cnts [%$ ~] [[sug [%$ 25]] ~]]] ~]]
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
==
New metal boot system.
2016-11-24 07:25:07 +03:00
::
{$wad *}
?- q.gen
$~ [%fail ~]
{* $~} i.q.gen
^
:+ %pin
p.gen
=+ yex=`(list twig)`q.gen
|- ^- twig
?- yex
{* $~} [%per [%$ 3] i.yex]
%call attempt.
2017-09-19 08:40:30 +03:00
{* ^} [%cnhp [%$ 2] [%per [%$ 3] i.yex] $(yex t.yex) ~]
New metal boot system.
2016-11-24 07:25:07 +03:00
$~ !!
==
==
::
All : runes.
2017-09-18 21:50:10 +03:00
{$nub *} =+(zoy=[%rock %ta %$] [%clsg [zoy [%clsg [zoy p.gen] ~]] ~])
New metal boot system.
2016-11-24 07:25:07 +03:00
{$dip *} :: ;~
|- ^- twig
?- q.gen
$~ ~_(leaf+"open-smsg" !!)
^
Translate ^ runes.
2017-09-20 02:24:30 +03:00
:+ %per [%ktts %v %$ 1] :: => v=.
New metal boot system.
2016-11-24 07:25:07 +03:00
|- ^- twig ::
?: ?=($~ t.q.gen) ::
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
[%per [%limb %v] i.q.gen] :: =>(v {i.q.gen})
Translate ^ runes.
2017-09-20 02:24:30 +03:00
:+ %pin [%ktts %a $(q.gen t.q.gen)] :: =+ ^= a
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
:+ %pin :: {$(q.gen t.q.gen)}
Translate ^ runes.
2017-09-20 02:24:30 +03:00
[%ktts %b [%per [%limb %v] i.q.gen]] :: =+ ^= b
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
:+ %pin :: =>(v {i.q.gen})
Translate ^ runes.
2017-09-20 02:24:30 +03:00
:+ %ktts %c :: =+ c=,.+6.b
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
:+ %rap ::
New metal boot system.
2016-11-24 07:25:07 +03:00
[%wing [%| 0 ~] [%& 6] ~] ::
[%limb %b] ::
143: | runes.
2017-09-18 04:32:20 +03:00
:+ %brdt [~ ~] :: |.
All % runes except %-.
2017-09-19 03:55:32 +03:00
:^ %cnls :: %+
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
[%per [%limb %v] p.gen] :: =>(v {p.gen})
%call attempt.
2017-09-19 08:40:30 +03:00
[%cnhp [%limb %b] [%limb %c] ~] :: (b c)
Converted %=.
2017-09-19 03:19:22 +03:00
:+ %cnts [%a ~] :: a(,.+6 c)
New metal boot system.
2016-11-24 07:25:07 +03:00
[[[[%| 0 ~] [%& 6] ~] [%limb %c]] ~] ::
== ::
::
{$fry *} :: ;;
Translate ^ runes.
2017-09-20 02:24:30 +03:00
:+ %per [%ktts %v %$ 1] :: => v=.
:+ %pin :+ %ktts %a :: =+ ^= a
New metal boot system.
2016-11-24 07:25:07 +03:00
[%per [%limb %v] p.gen] :: =>(v {p.gen})
Translate ^ runes.
2017-09-20 02:24:30 +03:00
:+ %pin [%ktts %b [%per [%limb %v] q.gen]] :: =+ b==>(v {q.gen})
New metal boot system.
2016-11-24 07:25:07 +03:00
:+ %pin :: =+ c=(a b)
Translate ^ runes.
2017-09-20 02:24:30 +03:00
[%ktts %c [%cnhp [%limb %a] [%limb %b] ~]] ::
prevents nest-fail in ;; / :fry
2017-03-21 19:44:13 +03:00
:+ %sure :: ?>(=(`*`c `*`b) c)
Adapt all . runes.
2017-09-19 23:37:15 +03:00
:+ %dtts ::
Translate ^ runes.
2017-09-20 02:24:30 +03:00
[%kthp [%base %noun] [%limb %c]] ::
[%kthp [%base %noun] [%limb %b]] ::
prevents nest-fail in ;; / :fry
2017-03-21 19:44:13 +03:00
[%limb %c] ::
New metal boot system.
2016-11-24 07:25:07 +03:00
::
{$new *}
[%pin ~(bunt al %herb p.gen) q.gen]
::
{$fix *}
All % runes except %-.
2017-09-19 03:55:32 +03:00
[%per [%cncb [[%& 1] ~] p.gen] q.gen]
New metal boot system.
2016-11-24 07:25:07 +03:00
::
{$var *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
?~ q.p.gen
Translate ^ runes.
2017-09-20 02:24:30 +03:00
[%pin [%ktts p.p.gen q.gen] r.gen]
[%pin [%kthp [%bcts p.p.gen u.q.p.gen] q.gen] r.gen]
New metal boot system.
2016-11-24 07:25:07 +03:00
::
{$rev *} [%var p.gen r.gen q.gen]
{$set *}
All % runes except %-.
2017-09-19 03:55:32 +03:00
[%per [%cncb [[%& 1] ~] [[p.gen q.gen] ~]] r.gen]
Add a tiswut rune which is a conditional tisdot. This changes: =. a ?. =(b c) a c into: =? a =(b c) c This also adds a few obvious changes in the vanes and in app/talk.hoon to take advantage of this new rune.
2016-12-11 03:46:13 +03:00
{$huh *} :: =?
[%set p.gen [%if q.gen r.gen [%wing p.gen]] s.gen]
New metal boot system.
2016-11-24 07:25:07 +03:00
::
{$sip *} :: =^
=+ wuy=(weld q.gen `wing`[%v ~]) ::
Translate ^ runes.
2017-09-20 02:24:30 +03:00
:+ %per [%ktts %v %$ 1] :: => v=.
:+ %pin [%ktts %a %per [%limb %v] r.gen] :: =+ a==>(v \r.gen)
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
:^ %set wuy [%rap [%$ 3] [%limb %a]]
:+ %per :- ?~ q.p.gen
Translate ^ runes.
2017-09-20 02:24:30 +03:00
:+ %ktts p.p.gen
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
[%rap [%$ 2] [%limb %a]]
Translate ^ runes.
2017-09-20 02:24:30 +03:00
:+ %kthp
$ runes converted.
2017-09-18 02:31:49 +03:00
:+ %bcts p.p.gen
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
[%per [%limb %v] u.q.p.gen]
[%rap [%$ 2] [%limb %a]]
[%limb %v]
s.gen
New metal boot system.
2016-11-24 07:25:07 +03:00
::
{$rap *} [%per q.gen p.gen]
{$pin *} [%per [p.gen [%$ 1]] q.gen]
{$nip *} [%pin q.gen p.gen]
{$tow *}
|- ^- twig
?~ p.gen [%$ 1]
?~ t.p.gen i.p.gen
[%per i.p.gen $(p.gen t.p.gen)]
::
{$or *}
|-
?~(p.gen [%rock %f 1] [%if i.p.gen [%rock %f 0] $(p.gen t.p.gen)])
::
{$lest *} [%if p.gen r.gen q.gen]
{$deny *} [%if p.gen [%fail ~] q.gen]
{$sure *} [%if p.gen q.gen [%fail ~]]
{$ifcl *} [%if [%fits [%base %atom %$] p.gen] r.gen q.gen]
::
{$case *}
|-
?~ q.gen
[%lost [%wing p.gen]]
:^ %if
[%fits p.i.q.gen p.gen]
q.i.q.gen
$(q.gen t.q.gen)
::
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
{$deft *}
New metal boot system.
2016-11-24 07:25:07 +03:00
[%case p.gen (weld r.gen `_r.gen`[[[%base %noun] q.gen] ~])]
::
{$and *}
|-
?~(p.gen [%rock %f 0] [%if i.p.gen $(p.gen t.p.gen) [%rock %f 1]])
::
{$ifat *} [%if [%fits [%base %atom %$] p.gen] q.gen r.gen]
{$ifno *} [%if [%fits [%base %null] p.gen] q.gen r.gen]
{$not *} [%if p.gen [%rock %f 1] [%rock %f 0]]
{$wrap *}
%call attempt.
2017-09-19 08:40:30 +03:00
[%cnhp [%limb %onan] [%spit [%bunt [%limb %abel]] p.gen] ~]
New metal boot system.
2016-11-24 07:25:07 +03:00
::
{$need *}
?: ?: ?=(@ p.gen)
(lte hoon p.gen)
&((lte hoon p.p.gen) (gte hoon q.p.gen))
q.gen
~_(leaf+"hoon-version" !!)
::
* gen
==
::
++ rake ~>(%mean.[%leaf "rake-twig"] (need reek))
++ reek
^- (unit wing)
?+ gen ~
{$~ *} `[[%& p.gen] ~]
{$limb *} `[p.gen ~]
{$wing *} `p.gen
Converted %=.
2017-09-19 03:19:22 +03:00
{$cnts * $~} `p.gen
New metal boot system.
2016-11-24 07:25:07 +03:00
{$dbug *} reek(gen q.gen)
==
++ rusk
^- term
=+ wig=rake
?. ?=({@ $~} wig)
~>(%mean.[%leaf "rusk-twig"] !!)
i.wig
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
::
++ walk :: forward traverse
|* life/mold
|= $: vit/life
Complete decoration system.
2017-04-05 03:33:20 +03:00
$= mac
$- $: twig
life
$-({? twig life} {twig life})
==
(unit (pair twig life))
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
==
^- {twig life}
Complete decoration system.
2017-04-05 03:33:20 +03:00
=/ use &
=< apex
|%
++ apex
|- ^- {twig life}
=* aid |= {use/? gen/twig vit/life}
^$(use use, gen gen, vit vit)
=/ gun ?:(use (mac gen vit aid) ~)
?^ gun u.gun
?: ?=(^ -.gen)
%.(gen dubs)
?- -.gen
$$ (lead -.gen %.(+.gen noop))
$base (lead -.gen %.(+.gen noop))
$bunt (lead -.gen %.(+.gen expr))
$bust (lead -.gen %.(+.gen noop))
$dbug (lead -.gen %.(+.gen nexp))
$hand (lead -.gen %.(+.gen noop))
$knit (lead -.gen %.(+.gen (moto bark)))
$leaf (lead -.gen %.(+.gen noop))
$limb (lead -.gen %.(+.gen noop))
$lost (lead -.gen %.(+.gen expr))
$rock (lead -.gen %.(+.gen noop))
$sand (lead -.gen %.(+.gen noop))
$tell (lead -.gen %.(+.gen moar))
$tune (lead -.gen %.(+.gen tung))
$wing (lead -.gen %.(+.gen noop))
$yell (lead -.gen %.(+.gen moar))
%claw to %bcpt.
2017-09-18 01:10:40 +03:00
$bcpt (lead -.gen %.(+.gen dubs))
$ runes converted.
2017-09-18 02:31:49 +03:00
$bccb (lead -.gen %.(+.gen expr))
$bccl (lead -.gen %.(+.gen moar))
$bccn (lead -.gen %.(+.gen moar))
$bchp (lead -.gen %.(+.gen dubs))
$bckt (lead -.gen %.(+.gen dubs))
$bcwt (lead -.gen %.(+.gen moar))
$bcts (lead -.gen %.(+.gen nexp))
$bcsm (lead -.gen %.(+.gen expr))
143: | runes.
2017-09-18 04:32:20 +03:00
$brcb (lead -.gen %.(+.gen (trio noop expr arms)))
$brcb (lead -.gen %.(+.gen (trio noop expr arms)))
$brcl (lead -.gen %.(+.gen (twin noop dubs)))
$brcn (lead -.gen %.(+.gen (twin noop arms)))
$brdt (lead -.gen %.(+.gen (twin noop expr)))
$brkt (lead -.gen %.(+.gen (trio noop expr arms)))
$brhp (lead -.gen %.(+.gen (twin noop expr)))
$brsg (lead -.gen %.(+.gen (twin noop dubs)))
$brtr (lead -.gen %.(+.gen (twin noop dubs)))
Changed one stem: %gate to %brts.
2017-09-17 21:14:12 +03:00
$brts (lead -.gen %.(+.gen (twin noop dubs)))
143: | runes.
2017-09-18 04:32:20 +03:00
$brwt (lead -.gen %.(+.gen (twin noop expr)))
All : runes.
2017-09-18 21:50:10 +03:00
$clcb (lead -.gen %.(+.gen dubs))
$clkt (lead -.gen %.(+.gen (quad expr expr expr expr)))
Converted :-.
2017-09-18 20:25:05 +03:00
$clhp (lead -.gen %.(+.gen dubs))
All : runes.
2017-09-18 21:50:10 +03:00
$clls (lead -.gen %.(+.gen trey))
$clsg (lead -.gen %.(+.gen moar))
$cltr (lead -.gen %.(+.gen moar))
All % runes except %-.
2017-09-19 03:55:32 +03:00
$cncb (lead -.gen %.(+.gen (twin noop moan)))
$cndt (lead -.gen %.(+.gen dubs))
%call attempt.
2017-09-19 08:40:30 +03:00
$cnhp (lead -.gen %.(+.gen (twin expr moar)))
Converted %bake.
2017-09-18 22:37:25 +03:00
$cntr (lead -.gen %.(+.gen (trio noop expr moan)))
All % runes except %-.
2017-09-19 03:55:32 +03:00
$cnkt (lead -.gen %.(+.gen (quad expr expr expr expr)))
$cnls (lead -.gen %.(+.gen trey))
Convert %~.
2017-09-19 01:32:35 +03:00
$cnsg (lead -.gen %.(+.gen (trio noop expr moar)))
Converted %=.
2017-09-19 03:19:22 +03:00
$cnts (lead -.gen %.(+.gen (twin noop moan)))
Adapt all . runes.
2017-09-19 23:37:15 +03:00
$dtkt (lead -.gen %.(+.gen dubs))
$dtls (lead -.gen %.(+.gen expr))
$dttr (lead -.gen %.(+.gen dubs))
$dtts (lead -.gen %.(+.gen dubs))
$dtwt (lead -.gen %.(+.gen expr))
Translate ^ runes.
2017-09-20 02:24:30 +03:00
$ktbr (lead -.gen %.(+.gen expr))
$ktdt (lead -.gen %.(+.gen dubs))
$ktls (lead -.gen %.(+.gen dubs))
$kthp (lead -.gen %.(+.gen dubs))
$ktpm (lead -.gen %.(+.gen expr))
$ktsg (lead -.gen %.(+.gen expr))
$ktts (lead -.gen %.(+.gen nexp))
$ktwt (lead -.gen %.(+.gen expr))
Complete decoration system.
2017-04-05 03:33:20 +03:00
$halo (lead -.gen %.(+.gen nexp))
$help (lead -.gen %.(+.gen nexp))
$show (lead -.gen %.(+.gen dubs))
$lurk (lead -.gen %.(+.gen dubs))
$crap (lead -.gen %.(+.gen (raid expr)))
$fast (lead -.gen %.(+.gen (quad noop expr moan expr)))
$funk (lead -.gen %.(+.gen nexp))
$thin (lead -.gen %.(+.gen (twin toad expr)))
$hint (lead -.gen %.(+.gen (twin toad expr)))
$poll (lead -.gen %.(+.gen nexp))
$memo (lead -.gen %.(+.gen nexp))
$dump (lead -.gen %.(+.gen trip))
$ddup (lead -.gen %.(+.gen dubs))
$warn (lead -.gen %.(+.gen (quad noop expr expr expr)))
$peep (lead -.gen %.(+.gen dubs))
$wad (lead -.gen %.(+.gen (twin expr moar)))
$nub (lead -.gen %.(+.gen expr))
$dip (lead -.gen %.(+.gen (twin expr moar)))
$fry (lead -.gen %.(+.gen dubs))
$new (lead -.gen %.(+.gen dubs))
$fix (lead -.gen %.(+.gen (twin moan 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 tora noop expr expr)))
$pin (lead -.gen %.(+.gen dubs))
$tow (lead -.gen %.(+.gen moar))
$aka (lead -.gen %.(+.gen trip))
$use (lead -.gen %.(+.gen dubs))
$or (lead -.gen %.(+.gen moar))
$case (lead -.gen %.(+.gen (twin noop (moto dubs))))
$if (lead -.gen %.(+.gen trey))
$lest (lead -.gen %.(+.gen trey))
$ifcl (lead -.gen %.(+.gen trip))
$deny (lead -.gen %.(+.gen dubs))
$sure (lead -.gen %.(+.gen dubs))
$deft (lead -.gen %.(+.gen (trio noop expr (moto dubs))))
$and (lead -.gen %.(+.gen moar))
$ifat (lead -.gen %.(+.gen trip))
$ifno (lead -.gen %.(+.gen trip))
$fits (lead -.gen %.(+.gen (twin expr noop)))
$not (lead -.gen %.(+.gen expr))
$twig (lead -.gen %.(+.gen dubs))
$wrap (lead -.gen %.(+.gen expr))
$spit (lead -.gen %.(+.gen dubs))
$code (lead -.gen %.(+.gen expr))
$need (lead -.gen %.(+.gen nexp))
$fail (lead -.gen %.(+.gen noop))
==
++ arms
(raid (twin noop (raid (twin noop heel))))
::
++ bark
|= wof/woof
?-(wof @ [wof vit], ^ (lead ~ (expr p.wof)))
::
++ dubs
(twin expr expr)
::
++ expr
|= p/twig
^$(gen p)
::
++ heel
|= bud/foot
?- -.bud
$ash =^(nex vit ^$(gen p.bud) [[%ash nex] vit])
$elm =^(nex vit ^$(gen p.bud) [[%elm nex] vit])
==
::
++ lead
|* {sem/@tas out/{* life}}
[[sem -.out] +.out]
::
++ moan
(moto nexp)
::
++ moar
(moto expr)
::
++ moto
|* etc/$-(* {* life})
|* bud/*
^+ [bud vit]
?: =(~ bud) [bud vit]
=^ heb vit (etc -.bud)
=^ mor vit $(bud +.bud)
[[heb mor] vit]
::
++ nexp
(twin noop expr)
::
++ noop
|* bud/*
[bud vit]
::
++ quad
|* $: one/$-(* {* life})
two/$-(* {* life})
tri/$-(* {* life})
qua/$-(* {* life})
==
|* bud/*
=^ yal vit (one -.bud)
=^ ves vit (two +<.bud)
=^ jot vit (tri +>-.bud)
=^ wip vit (qua +>+.bud)
[[yal ves jot wip] vit]
::
++ raid
|* etc/$-(* {* life})
|* bud/*
^+ [bud vit]
?: =(~ bud) [bud vit]
=^ lef vit $(bud +<.bud)
=^ ryt vit $(bud +>.bud)
=^ top vit (etc ->.bud)
[[[-<.bud top] lef ryt] vit]
::
++ trey
(trio expr expr expr)
::
++ trio
|* $: one/$-(* {* life})
two/$-(* {* life})
tri/$-(* {* life})
==
|* bud/*
=^ yal vit (one -.bud)
=^ ves vit (two +<.bud)
=^ jot vit (tri +>.bud)
[[yal ves jot] vit]
::
++ trip
(trio noop expr expr)
::
++ toad
|= bud/$@(term {p/term q/twig})
?@ bud [bud vit]
(lead p.bud (expr q.bud))
::
++ tora
(twin noop twee)
::
++ tung
|= bud/{p/what q/$@(term tune)}
?@ q.bud [bud vit]
(lead p.bud %.(q.bud (twin (raid (twin noop twee)) (moto expr))))
::
++ twee
|= bud/(unit twig)
?~ bud [~ vit]
(lead ~ (expr u.bud))
::
++ twin
|* {one/$-(* {* life}) two/$-(* {* life})}
|* bud/*
=^ yal vit (one -.bud)
=^ ves vit (two +.bud)
[[yal ves] vit]
--
New metal boot system.
2016-11-24 07:25:07 +03:00
--
::
:::: 5c: compiler backend and prettyprinter
::
++ ut
~% %ut
+>+
==
%fan fan
%rib rib
%vet vet
%fab fab
%burn burn
%busk busk
%buss buss
%crop crop
%duck duck
%dune dune
%dunk dunk
%epla epla
%emin emin
%emul emul
%felt felt
%fine fine
%fire fire
%fish fish
%fond fond
%fund fund
%funk funk
%fuse fuse
%gain gain
%lose lose
%mint mint
%moot moot
%mull mull
%nest nest
%peel peel
%play play
%peek peek
%repo repo
%rest rest
%tack tack
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
%toss toss
New metal boot system.
2016-11-24 07:25:07 +03:00
%wrap wrap
==
=+ :* fan=*(set {span twig})
rib=*(set {span span twig})
vet=`?`&
fab=`?`&
==
=+ sut=`span`%noun
|%
++ burn
=+ gil=*(set span)
|- ^- (unit)
?- sut
{$atom *} q.sut
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
{$cell *} %+ biff $(sut p.sut)
New metal boot system.
2016-11-24 07:25:07 +03:00
|=(* (biff ^$(sut q.sut) |=(* `[+>+< +<])))
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
{$core *} (biff $(sut p.sut) |=(* `[p.s.q.sut +<]))
New metal boot system.
2016-11-24 07:25:07 +03:00
{$face *} $(sut repo)
{$fork *} =+ yed=(~(tap in p.sut))
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|- ^- (unit)
New metal boot system.
2016-11-24 07:25:07 +03:00
?~ yed ~
=+ [dis=^$(sut i.yed) mor=$(yed t.yed)]
?~ dis mor
?~ mor dis
?: =(.?(u.mor) .?(u.dis))
?:((gor u.mor u.dis) mor dis)
?@(u.mor mor dis)
Implement doccords in hoon. This adds syntax to the language to embed documentation. You can either the new ^: rune, or the irregular ''':doccord.''': syntax. This patch adds the language feature, but does not use it. Author: Elliot Glaysher <erg@google.com> Date: Wed Mar 1 18:21:26 2017 -0800
2017-03-02 05:21:26 +03:00
{$help *} $(sut repo)
New metal boot system.
2016-11-24 07:25:07 +03:00
{$hold *} ?: (~(has in gil) sut)
~
$(sut repo, gil (~(put in gil) sut))
$noun ~
$void ~
==
::
++ busk
~/ %busk
|= gen/twig
^- span
coherent-cords-d, chapters, initial commit.
2017-03-22 03:56:51 +03:00
[%face [~ ~ [gen ~]] sut]
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ buss
~/ %buss
Complete decoration system.
2017-04-05 03:33:20 +03:00
|= {{wat/what cog/term} gen/twig}
New metal boot system.
2016-11-24 07:25:07 +03:00
^- span
Complete decoration system.
2017-04-05 03:33:20 +03:00
[%face [wat [[cog ~ ~ gen] ~ ~] ~] sut]
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ conk
|= got/toga
^- span
coherent-cords-d, chapters, initial commit.
2017-03-22 03:56:51 +03:00
?@ got [%face [~ got] sut]
New metal boot system.
2016-11-24 07:25:07 +03:00
?- -.got
$0 sut
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
$1 [%face p.got $(got q.got)]
New metal boot system.
2016-11-24 07:25:07 +03:00
$2 ?> |(!vet (nest(sut [%cell %noun %noun]) & sut))
:+ %cell
$(got p.got, sut (peek %both 2))
$(got q.got, sut (peek %both 3))
==
::
++ crop
~/ %crop
|= ref/span
=+ bix=*(set {span span})
=< dext
|%
++ dext
^- span
~_ leaf+"crop"
:: ~_ (dunk 'dext: sut')
:: ~_ (dunk(sut ref) 'dext: ref')
?: |(=(sut ref) =(%noun ref))
%void
?: =(%void ref)
sut
?- sut
{$atom *}
?+ ref sint
{$atom *} ?^ q.sut
?^(q.ref ?:(=(q.ref q.sut) %void sut) %void)
?^(q.ref sut %void)
{$cell *} sut
==
::
{$cell *}
?+ ref sint
{$atom *} sut
{$cell *} ?. (nest(sut p.ref) | p.sut) sut
(cell p.sut dext(sut q.sut, ref q.ref))
==
::
{$core *} ?:(?=(?({$atom *} {$cell *}) ref) sut sint)
{$face *} (face p.sut dext(sut q.sut))
{$fork *} (fork (turn (~(tap in p.sut)) |=(span dext(sut +<))))
Implement doccords in hoon. This adds syntax to the language to embed documentation. You can either the new ^: rune, or the irregular ''':doccord.''': syntax. This patch adds the language feature, but does not use it. Author: Elliot Glaysher <erg@google.com> Date: Wed Mar 1 18:21:26 2017 -0800
2017-03-02 05:21:26 +03:00
{$help *} (help p.sut dext(sut q.sut))
New metal boot system.
2016-11-24 07:25:07 +03:00
{$hold *} ?< (~(has in bix) [sut ref])
dext(sut repo, bix (~(put in bix) [sut ref]))
$noun dext(sut repo)
$void %void
==
::
++ sint
^- span
?+ ref !!
{$core *} sut
{$face *} dext(ref repo(sut ref))
{$fork *} =+ yed=(~(tap in p.ref))
|- ^- span
?~ yed sut
$(yed t.yed, sut dext(ref i.yed))
{$hold *} dext(ref repo(sut ref))
==
--
::
++ cool
|= {pol/? hyp/wing ref/span}
^- span
=+ fid=(find %both hyp)
?- -.fid
$| sut
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
$& =< q
%+ take p.p.fid
New metal boot system.
2016-11-24 07:25:07 +03:00
|=(a/span ?:(pol (fuse(sut a) ref) (crop(sut a) ref)))
==
::
++ duck ^-(tank ~(duck us sut))
++ dune |.(duck)
++ dunk
|= paz/term ^- tank
:+ %palm
[['.' ~] ['-' ~] ~ ~]
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
[[%leaf (mesc (trip paz))] duck ~]
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ elbo
|= {lop/palo rig/(list (pair wing twig))}
^- span
?: ?=($& -.q.lop)
|- ^- span
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
?~ rig
New metal boot system.
2016-11-24 07:25:07 +03:00
p.q.lop
=+ zil=(play q.i.rig)
=+ dar=(tack(sut p.q.lop) p.i.rig zil)
%= $
rig t.rig
p.q.lop q.dar
==
=+ hag=(~(tap in q.q.lop))
%- fire
|- ^+ hag
?~ rig
hag
=+ zil=(play q.i.rig)
=+ dix=(toss p.i.rig zil hag)
%= $
rig t.rig
hag q.dix
==
::
++ ergo
|= {lop/palo rig/(list (pair wing twig))}
^- (pair span nock)
=+ axe=(tend p.lop)
=| hej/(list (pair axis nock))
?: ?=($& -.q.lop)
=- [p.- (hike axe q.-)]
|- ^- (pair span (list (pair axis nock)))
?~ rig
[p.q.lop hej]
=+ zil=(mint %noun q.i.rig)
=+ dar=(tack(sut p.q.lop) p.i.rig p.zil)
%= $
rig t.rig
p.q.lop q.dar
hej [[p.dar q.zil] hej]
==
=+ hag=(~(tap in q.q.lop))
=- [(fire p.-) [%9 p.q.lop (hike axe q.-)]]
|- ^- (pair (list (pair span foot)) (list (pair axis nock)))
?~ rig
[hag hej]
=+ zil=(mint %noun q.i.rig)
=+ dix=(toss p.i.rig p.zil hag)
%= $
rig t.rig
hag q.dix
hej [[p.dix q.zil] hej]
==
::
++ endo
|= {lop/(pair palo palo) dox/span rig/(list (pair wing twig))}
^- (pair span span)
?: ?=($& -.q.p.lop)
?> ?=($& -.q.q.lop)
|- ^- (pair span span)
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
?~ rig
New metal boot system.
2016-11-24 07:25:07 +03:00
[p.q.p.lop p.q.q.lop]
=+ zil=(mull %noun dox q.i.rig)
=+ ^= dar
:- p=(tack(sut p.q.p.lop) p.i.rig p.zil)
q=(tack(sut p.q.q.lop) p.i.rig q.zil)
?> =(p.p.dar p.q.dar)
%= $
rig t.rig
p.q.p.lop q.p.dar
p.q.q.lop q.q.dar
==
?> ?=($| -.q.q.lop)
?> =(p.q.p.lop p.q.q.lop)
=+ hag=[p=(~(tap in q.q.p.lop)) q=(~(tap in q.q.q.lop))]
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
=- [(fire p.-) (fire(vet |) q.-)]
New metal boot system.
2016-11-24 07:25:07 +03:00
|- ^- (pair (list (pair span foot)) (list (pair span foot)))
?~ rig
hag
=+ zil=(mull %noun dox q.i.rig)
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
=+ ^= dix
New metal boot system.
2016-11-24 07:25:07 +03:00
:- p=(toss p.i.rig p.zil p.hag)
q=(toss p.i.rig q.zil q.hag)
?> =(p.p.dix p.q.dix)
%= $
rig t.rig
hag [q.p.dix q.q.dix]
==
::
++ ad
|%
++ arc
|%
++ deft :: generic
|%
++ bath * :: leg match span
++ claw * :: arm match span
++ form |*({* *} p=+<-) :: attach build state
++ skin |*(p/* p) :: reveal build state
++ meat |*(p/* p) :: remove build state
--
++ make :: for mint
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|%
New metal boot system.
2016-11-24 07:25:07 +03:00
++ bath span :: leg match span
++ claw onyx :: arm
++ form |*({* *} [p=+<- q=+<+]) ::
++ skin |*({p/* q/*} q) :: unwrap baggage
++ meat |*({p/* q/*} p) :: unwrap filling
--
--
++ def
=+ deft:arc
|% +- $
=> +<
|%
++ pord |*(* (form +< *nock)) :: wrap mint formula
++ rosh |*(* (form +< *(list pock))) :: wrap mint changes
++ fleg _(pord *bath) :: legmatch + code
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
++ fram _(pord *claw) :: armmatch +
New metal boot system.
2016-11-24 07:25:07 +03:00
++ foat _(rosh *bath) :: leg with changes
++ fult _(rosh *claw) :: arm with changes
-- --
::
++ lib
|%
++ deft
=> (def deft:arc)
|%
++ halp $-(twig fleg)
++ vant
|% ++ trep $-({bath wing bath} {axis bath})
++ tasp $-({{axis bath} fleg foat} foat)
++ tyle $-(foat foat)
--
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
++ vunt
New metal boot system.
2016-11-24 07:25:07 +03:00
|% ++ trep $-({claw wing bath} {axis claw})
++ tasp $-({{axis claw} fleg fult} fult)
++ tyle $-(fult foat)
-- --
::
++ make
=> (def make:arc)
|%
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
++ halp |~ a/twig
New metal boot system.
2016-11-24 07:25:07 +03:00
^- fleg
(mint %noun a)
++ vant
|% ++ trep |= {a/span b/wing c/span}
^- {axis span}
(tack(sut a) b c)
++ tasp |= {a/(pair axis span) b/fleg c/foat}
^- foat
[q.a [[p.a (skin b)] (skin c)]]
++ tyle |=(foat +<)
--
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
++ vunt
New metal boot system.
2016-11-24 07:25:07 +03:00
|% ++ trep |= {a/claw b/wing c/bath}
^- (pair axis claw)
(toss b c a)
++ tasp |~ {a/(pair axis claw) b/fleg c/fult}
^- fult
[q.a [[p.a (skin b)] (skin c)]]
++ tyle |~ fult
^- foat
[(fire +<-) +<+]
-- -- --
::
++ bin
=+ deft:lib
|% +- $
=> +<
|%
++ rame
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
=> vant |%
New metal boot system.
2016-11-24 07:25:07 +03:00
++ clom bath
++ chog fleg
++ ceut foat
--
++ gelp
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
=> vunt |%
New metal boot system.
2016-11-24 07:25:07 +03:00
++ clom claw
++ chog fram
++ ceut fult
--
++ ecbo (ecco rame)
++ eclo (ecco gelp)
++ ecco
=+ rame
|% +- $
=> +<
|= {rum/clom rig/(list (pair wing twig))}
^- foat
%- tyle
|- ^- ceut
?~ rig (rosh rum)
=+ mor=$(rig t.rig)
=+ zil=(halp q.i.rig)
=+ dar=(trep (meat mor) p.i.rig (meat zil))
(tasp dar zil mor)
-- -- -- --
::
++ oc
=+ inc=(bin:ad)
|% +- $
=> inc
|%
++ echo
|= {rum/bath rig/(list (pair wing twig))}
(ecbo rum rig)
::
++ ecmo
|= {hag/claw rig/(list (pair wing twig))}
(eclo hag rig)
-- --
::
++ etco
|= {lop/palo rig/(list (pair wing twig))}
^- (pair span nock)
=+ cin=(oc (bin:ad make:lib:ad))
=. rig (flop rig) :: XX this unbreaks, void order in devulc
=+ axe=(tend p.lop)
?: ?=($& -.q.lop)
=- [p.- (hike axe q.-)]
(echo:cin p.q.lop rig)
=- [p.- [%9 p.q.lop (hike axe q.-)]]
(ecmo:cin (~(tap in q.q.lop)) rig)
::
++ et
|_ {hyp/wing rig/(list (pair wing twig))}
::
++ play
^- span
=+ lug=(find %read hyp)
?: ?=($| -.lug) ~>(%mean.[%leaf "twig"] ?>(?=($~ rig) p.p.lug))
(elbo p.lug rig)
::
++ mint
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|= gol/span
New metal boot system.
2016-11-24 07:25:07 +03:00
^- (pair span nock)
=+ lug=(find %read hyp)
?: ?=($| -.lug) ~>(%mean.[%leaf "twig"] ?>(?=($~ rig) p.lug))
=- ?>(?|(!vet (nest(sut gol) & p.-)) -)
(etco p.lug rig)
::
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
++ mull
New metal boot system.
2016-11-24 07:25:07 +03:00
|= {gol/span dox/span}
^- {span span}
=+ lug=[p=(find %read hyp) q=(find(sut dox) %read hyp)]
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
?: ?=($| -.p.lug)
?> &(?=($| -.q.lug) ?=($~ rig))
New metal boot system.
2016-11-24 07:25:07 +03:00
[p.p.p.lug p.p.q.lug]
?> ?=($& -.q.lug)
=- ?>(?|(!vet (nest(sut gol) & p.-)) -)
(endo [p.p.lug p.q.lug] dox rig)
--
::
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
++ epla
~/ %epla
|= {hyp/wing rig/(list (pair wing twig))}
New metal boot system.
2016-11-24 07:25:07 +03:00
^- span
~(play et hyp rig)
::
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
++ emin
~/ %emin
New metal boot system.
2016-11-24 07:25:07 +03:00
|= {gol/span hyp/wing rig/(list (pair wing twig))}
^- (pair span nock)
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
(~(mint et hyp rig) gol)
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ emul
~/ %emul
|= {gol/span dox/span hyp/wing rig/(list (pair wing twig))}
^- (pair span span)
(~(mull et hyp rig) gol dox)
::
++ felt
~/ %felt
|= lap/opal
^- span
?- -.lap
$& p.lap
$| %- fire
%+ turn (~(tap in q.lap))
|= {a/span b/foot}
[a [%ash %$ 1]]
==
::
++ fond
~/ %fond
|= {way/vial hyp/wing}
=> |%
++ pony :: raw match
$@ $~ :: void
%+ each :: natural/abnormal
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
(pair what palo) :: arm or leg
New metal boot system.
2016-11-24 07:25:07 +03:00
%+ each :: abnormal
@ud :: unmatched
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
(pair what (pair span nock)) :: synthetic
New metal boot system.
2016-11-24 07:25:07 +03:00
--
^- pony
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
?~ hyp
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
[%& ~ ~ %& sut]
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ mor=$(hyp t.hyp)
?- -.mor
$|
?- -.p.mor
$& mor
$|
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
=+ fex=(mint(sut p.q.p.p.mor) %noun [%wing i.hyp ~])
[%| %| p.p.p.mor p.fex (comb q.q.p.p.mor q.fex)]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
$&
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
=. sut (felt q.q.p.mor)
New metal boot system.
2016-11-24 07:25:07 +03:00
=> :_ +
:* axe=`axis`1
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
lon=p.q.p.mor
New metal boot system.
2016-11-24 07:25:07 +03:00
heg=?^(i.hyp i.hyp [%| p=0 q=(some i.hyp)])
==
?: ?=($& -.heg)
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
[%& ~ [`p.heg lon] %& (peek way p.heg)]
New metal boot system.
2016-11-24 07:25:07 +03:00
=| gil/(set span)
=< $
|% ++ here ?: =(0 p.heg)
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
[%& ~ [~ `axe lon] %& sut]
New metal boot system.
2016-11-24 07:25:07 +03:00
[%| %& (dec p.heg)]
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
++ join |=({a/what b/what} ?~(a b a))
New metal boot system.
2016-11-24 07:25:07 +03:00
++ lose [%| %& p.heg]
++ stop ?~(q.heg here lose)
++ twin |= {hax/pony yor/pony}
^- pony
~_ leaf+"find-fork"
?: =(hax yor) hax
?~ hax yor
?~ yor hax
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
?: ?=($| -.hax)
New metal boot system.
2016-11-24 07:25:07 +03:00
?> ?& ?=($| -.yor)
?=($| -.p.hax)
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
?=($| -.p.yor)
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
=(q.q.p.p.hax q.q.p.p.yor)
New metal boot system.
2016-11-24 07:25:07 +03:00
==
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
:^ %|
%|
(join p.p.p.hax p.p.p.yor)
[(fork p.q.p.p.hax p.q.p.p.yor ~) q.q.p.p.hax]
New metal boot system.
2016-11-24 07:25:07 +03:00
?> ?=($& -.yor)
?> =(p.q.p.hax p.q.p.yor)
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
:^ %&
(join p.p.hax p.p.yor)
p.q.p.hax
?: &(?=($& -.q.q.p.hax) ?=($& -.q.q.p.yor))
[%& (fork p.q.q.p.hax p.q.q.p.yor ~)]
?> &(?=($| -.q.q.p.hax) ?=($| -.q.q.p.yor))
?> =(p.q.q.p.hax p.q.q.p.yor)
=+ wal=(~(uni in q.q.q.p.hax) q.q.q.p.yor)
[%| p.q.q.p.hax wal]
New metal boot system.
2016-11-24 07:25:07 +03:00
++ $
^- pony
?- sut
$void stop
$noun stop
{$atom *} stop
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
{$cell *}
New metal boot system.
2016-11-24 07:25:07 +03:00
?~ q.heg here
=+ taf=$(axe (peg axe 2), sut p.sut)
?~ taf ~
?: |(?=($& -.taf) ?=($| -.p.taf))
taf
$(axe (peg axe 3), p.heg p.p.taf, sut q.sut)
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
::
New metal boot system.
2016-11-24 07:25:07 +03:00
{$core *}
?~ q.heg here
=^ zem p.heg
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=+ zem=(loot u.q.heg q.s.q.sut)
New metal boot system.
2016-11-24 07:25:07 +03:00
?~ zem [~ p.heg]
?:(=(0 p.heg) [zem 0] [~ (dec p.heg)])
?^ zem
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
:^ %&
p.q.u.zem
[`axe lon]
[%| (peg 2 p.u.zem) [[sut(p.q %gold) q.q.u.zem] ~ ~]]
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ pec=(peel way p.q.sut)
?. sam.pec lose
?: con.pec $(sut p.sut, axe (peg axe 3))
$(sut (peek(sut p.sut) way 2), axe (peg axe 6))
Implement doccords in hoon. This adds syntax to the language to embed documentation. You can either the new ^: rune, or the irregular ''':doccord.''': syntax. This patch adds the language feature, but does not use it. Author: Elliot Glaysher <erg@google.com> Date: Wed Mar 1 18:21:26 2017 -0800
2017-03-02 05:21:26 +03:00
::
{$help *}
$(sut repo)
New metal boot system.
2016-11-24 07:25:07 +03:00
::
{$face *}
?: ?=($~ q.heg) here(sut q.sut)
coherent-cords-d, chapters, initial commit.
2017-03-22 03:56:51 +03:00
=* zot q.p.sut
?@ zot
?:(=(u.q.heg zot) here(sut q.sut) lose)
New metal boot system.
2016-11-24 07:25:07 +03:00
=< main
|%
++ main
^- pony
coherent-cords-d, chapters, initial commit.
2017-03-22 03:56:51 +03:00
=+ tyr=(~(get by p.zot) u.q.heg)
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
?~ tyr
New metal boot system.
2016-11-24 07:25:07 +03:00
next
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
?~ q.u.tyr
New metal boot system.
2016-11-24 07:25:07 +03:00
$(sut q.sut, lon [~ lon], p.heg +(p.heg))
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
?. =(0 p.heg)
New metal boot system.
2016-11-24 07:25:07 +03:00
next(p.heg (dec p.heg))
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
=+ tor=(fund way u.q.u.tyr)
New metal boot system.
2016-11-24 07:25:07 +03:00
?- -.tor
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
$& [%& ~ (weld p.p.tor `vein`[~ `axe lon]) q.p.tor]
$| [%| %| p.u.tyr p.p.tor (comb [%0 axe] q.p.tor)]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
++ next
|- ^- pony
coherent-cords-d, chapters, initial commit.
2017-03-22 03:56:51 +03:00
?~ q.zot
New metal boot system.
2016-11-24 07:25:07 +03:00
^$(sut q.sut, lon [~ lon])
coherent-cords-d, chapters, initial commit.
2017-03-22 03:56:51 +03:00
=+ tiv=(mint(sut q.sut) %noun i.q.zot)
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ fid=^$(sut p.tiv, lon ~, axe 1, gil ~)
?~ fid ~
?: ?=({$| $& *} fid)
coherent-cords-d, chapters, initial commit.
2017-03-22 03:56:51 +03:00
$(q.zot t.q.zot, p.heg p.p.fid)
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=+ ^- {wat/what vat/(pair span nock)}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
?- -.fid
$& [p.p.fid (fine %& q.p.fid)]
$| [p.p.p.fid (fine %| q.p.p.fid)]
==
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
[%| %| wat p.vat (comb (comb [%0 axe] q.tiv) q.vat)]
New metal boot system.
2016-11-24 07:25:07 +03:00
--
::
{$fork *}
=+ wiz=(turn (~(tap in p.sut)) |=(a/span ^$(sut a)))
?~ wiz ~
|- ^- pony
?~ t.wiz i.wiz
(twin i.wiz $(wiz t.wiz))
::
{$hold *}
?: (~(has in gil) sut)
~
$(gil (~(put in gil) sut), sut repo)
==
--
==
::
++ find
~/ %find
|= {way/vial hyp/wing}
^- port
~_ (show [%c %find] %l hyp)
=- ?@ - !!
?- -<
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
$& [%& q.p.-]
New metal boot system.
2016-11-24 07:25:07 +03:00
$| ?- -.p.-
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
$| [%| q.p.p.-]
New metal boot system.
2016-11-24 07:25:07 +03:00
$& !!
== ==
(fond way hyp)
::
++ fund
~/ %fund
|= {way/vial gen/twig}
^- port
=+ hup=~(reek ap gen)
?~ hup
[%| (mint %noun gen)]
(find way u.hup)
::
++ fine
~/ %fine
|= tor/port
^- (pair span nock)
?- -.tor
$| p.tor
$& =+ axe=(tend p.p.tor)
?- -.q.p.tor
$& [`span`p.q.p.tor %0 axe]
$| [(fire (~(tap in q.q.p.tor))) [%9 p.q.p.tor %0 axe]]
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
== ==
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ fire
|= hag/(list {p/span q/foot})
^- span
?: ?=({{* {$elm $~ $1}} $~} hag)
p.i.hag
%- fork
%+ turn
hag.$
|= {p/span q/foot}
:- %hold
?. ?=({$core *} p)
~_ (dunk %fire-span)
~>(%mean.[%leaf "fire-core"] !!)
=+ dox=[%core q.q.p q.p]
?: ?=($ash -.q)
:: ~_ (dunk(sut [%cell q.q.p p.p]) %fire-dry)
?> ?|(!vet (nest(sut q.q.p) & p.p))
[dox p.q]
?> ?=($elm -.q)
:: ~_ (dunk(sut [%cell q.q.p p.p]) %fire-wet)
About working. But very slow.
2017-09-08 02:47:49 +03:00
:: =. p.p ?:(fab p.p (redo(sut p.p) q.q.p))
=. p.p (redo(sut p.p) q.q.p)
New metal boot system.
2016-11-24 07:25:07 +03:00
?> ?| !vet
(~(has in rib) [sut dox p.q])
!=(** (mull(sut p, rib (~(put in rib) sut dox p.q)) %noun dox p.q))
==
[p p.q]
::
++ fish
~/ %fish
|= axe/axis
=+ vot=*(set span)
|- ^- nock
?- sut
$void [%1 1]
$noun [%1 0]
{$atom *} ?~ q.sut
(flip [%3 %0 axe])
[%5 [%1 u.q.sut] [%0 axe]]
{$cell *}
%+ flan
[%3 %0 axe]
(flan $(sut p.sut, axe (peg axe 2)) $(sut q.sut, axe (peg axe 3)))
::
{$core *} [%0 0]
{$face *} $(sut q.sut)
{$fork *} =+ yed=(~(tap in p.sut))
|- ^- nock
?~(yed [%1 1] (flor ^$(sut i.yed) $(yed t.yed)))
Implement doccords in hoon. This adds syntax to the language to embed documentation. You can either the new ^: rune, or the irregular ''':doccord.''': syntax. This patch adds the language feature, but does not use it. Author: Elliot Glaysher <erg@google.com> Date: Wed Mar 1 18:21:26 2017 -0800
2017-03-02 05:21:26 +03:00
{$help *} $(sut q.sut)
New metal boot system.
2016-11-24 07:25:07 +03:00
{$hold *}
?: (~(has in vot) sut)
[%0 0]
=> %=(. vot (~(put in vot) sut))
$(sut repo)
==
::
++ fuse
~/ %fuse
|= ref/span
=+ bix=*(set {span span})
|- ^- span
?: ?|(=(sut ref) =(%noun ref))
sut
?- sut
{$atom *}
?- ref
{$atom *} =+ foc=?:((fitz p.ref p.sut) p.sut p.ref)
?^ q.sut
?^ q.ref
?: =(q.sut q.ref)
[%atom foc q.sut]
%void
[%atom foc q.sut]
[%atom foc q.ref]
{$cell *} %void
* $(sut ref, ref sut)
==
{$cell *}
?- ref
{$cell *} (cell $(sut p.sut, ref p.ref) $(sut q.sut, ref q.ref))
* $(sut ref, ref sut)
==
::
{$core *} $(sut repo)
{$face *} (face p.sut $(sut q.sut))
{$fork *} (fork (turn (~(tap in p.sut)) |=(span ^$(sut +<))))
Implement doccords in hoon. This adds syntax to the language to embed documentation. You can either the new ^: rune, or the irregular ''':doccord.''': syntax. This patch adds the language feature, but does not use it. Author: Elliot Glaysher <erg@google.com> Date: Wed Mar 1 18:21:26 2017 -0800
2017-03-02 05:21:26 +03:00
{$help *} (help p.sut $(sut q.sut))
New metal boot system.
2016-11-24 07:25:07 +03:00
{$hold *}
?: (~(has in bix) [sut ref])
~>(%mean.[%leaf "fuse-loop"] !!)
$(sut repo, bix (~(put in bix) [sut ref]))
::
$noun ref
$void %void
==
::
++ gain
~/ %gain
|= gen/twig ^- span
(chip & gen)
::
++ harp
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
|= dab/(map term (pair what foot))
New metal boot system.
2016-11-24 07:25:07 +03:00
^- ?($~ ^)
?: ?=($~ dab)
~
=+ ^= vad
coherent-cords-d, chapters, initial commit.
2017-03-22 03:56:51 +03:00
?- -.q.q.n.dab
$ash q:(mint %noun p.q.q.n.dab)
$elm q:(mint(vet |) %noun p.q.q.n.dab)
New metal boot system.
2016-11-24 07:25:07 +03:00
==
?- dab
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
{* $~ $~} vad
{* $~ *} [vad $(dab r.dab)]
{* * $~} [vad $(dab l.dab)]
{* * *} [vad $(dab l.dab) $(dab r.dab)]
==
::
++ hope
|= dom/(map @ tomb)
^- ?($~ ^)
?: ?=($~ dom)
~
=+ dov=(harp q.q.n.dom)
?- dom
{* $~ $~} dov
{* $~ *} [dov $(dom r.dom)]
{* * $~} [dov $(dom l.dom)]
{* * *} [dov $(dom l.dom) $(dom r.dom)]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
++ lose
~/ %lose
|= gen/twig ^- span
(chip | gen)
::
++ chip
~/ %chip
|= {how/? gen/twig} ^- span
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
?: ?=({$fits *} gen)
(cool how q.gen (play ~(bunt al [%herb p.gen])))
New metal boot system.
2016-11-24 07:25:07 +03:00
?: ?&(how ?=({$and *} gen))
|-(?~(p.gen sut $(p.gen t.p.gen, sut ^$(gen i.p.gen))))
?: ?&(!how ?=({$or *} gen))
|-(?~(p.gen sut $(p.gen t.p.gen, sut ^$(gen i.p.gen))))
=+ neg=~(open ap gen)
?:(=(neg gen) sut $(gen neg))
::
++ mint
~/ %mint
|= {gol/span gen/twig}
^- {p/span q/nock}
~& %pure-mint
|^ ^- {p/span q/nock}
?: ?&(=(%void sut) !?=({$dbug *} gen))
?. |(!vet ?=({$lost *} gen) ?=({$fail *} gen))
~>(%mean.[%leaf "mint-vain"] !!)
[%void %0 0]
?- gen
::
{^ *}
=+ hed=$(gen p.gen, gol %noun)
=+ tal=$(gen q.gen, gol %noun)
[(nice (cell p.hed p.tal)) (cons q.hed q.tal)]
::
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$ktcn *} $(fab |, gen p.gen)
143: | runes.
2017-09-18 04:32:20 +03:00
{$brcn *} (grow %gold [%$ 1] p.gen q.gen)
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Converted %=.
2017-09-19 03:19:22 +03:00
{$cnts *} (~(mint et p.gen q.gen) gol)
Adapt all . runes.
2017-09-19 23:37:15 +03:00
{$dtkt *}
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ nef=$(gen [%bunt p.gen])
[p.nef [%11 [%1 %151 p.nef] q:$(gen q.gen, gol %noun)]]
::
Adapt all . runes.
2017-09-19 23:37:15 +03:00
{$dtls *} [(nice [%atom %$ ~]) [%4 q:$(gen p.gen, gol [%atom %$ ~])]]
New metal boot system.
2016-11-24 07:25:07 +03:00
{$sand *} [(nice (play gen)) [%1 q.gen]]
{$rock *} [(nice (play gen)) [%1 q.gen]]
::
Adapt all . runes.
2017-09-19 23:37:15 +03:00
{$dttr *}
New metal boot system.
2016-11-24 07:25:07 +03:00
[(nice %noun) [%2 q:$(gen p.gen, gol %noun) q:$(gen q.gen, gol %noun)]]
::
Adapt all . runes.
2017-09-19 23:37:15 +03:00
{$dtts *}
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ [one two]=[$(gen p.gen, gol %noun) $(gen q.gen, gol %noun)]
[(nice bool) [%5 q:$(gen p.gen, gol %noun) q:$(gen q.gen, gol %noun)]]
::
Adapt all . runes.
2017-09-19 23:37:15 +03:00
{$dtwt *} [(nice bool) [%3 q:$(gen p.gen, gol %noun)]]
New metal boot system.
2016-11-24 07:25:07 +03:00
{$hand *} [p.gen q.gen]
Restore metals.
2017-09-20 08:32:08 +03:00
{$ktbr *} =+(vat=$(gen p.gen) [(wrap(sut p.vat) %iron) q.vat])
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$ktls *}
New metal boot system.
2016-11-24 07:25:07 +03:00
=+(hif=(nice (play p.gen)) [hif q:$(gen q.gen, gol hif)])
::
Restore metals.
2017-09-20 08:32:08 +03:00
{$ktpm *} =+(vat=$(gen p.gen) [(wrap(sut p.vat) %zinc) q.vat])
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$ktsg *}
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ nef=$(gen p.gen)
:- p.nef
=+ cag=burn
?~ cag q.nef
=+ moc=(mink [u.cag q.nef] |=({* *} ~))
?:(?=($0 -.moc) [%1 p.moc] q.nef)
::
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$ktts *} =+(vat=$(gen q.gen) [(conk(sut p.vat) p.gen) q.vat])
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
{$tune *} [(face p.gen sut) [%0 %1]]
Restore metals.
2017-09-20 08:32:08 +03:00
{$ktwt *} =+(vat=$(gen p.gen) [(wrap(sut p.vat) %lead) q.vat])
Implement doccords in hoon. This adds syntax to the language to embed documentation. You can either the new ^: rune, or the irregular ''':doccord.''': syntax. This patch adds the language feature, but does not use it. Author: Elliot Glaysher <erg@google.com> Date: Wed Mar 1 18:21:26 2017 -0800
2017-03-02 05:21:26 +03:00
::
{$help *}
=+ hum=$(gen q.gen)
[(help p.gen p.hum) q.hum]
::
New metal boot system.
2016-11-24 07:25:07 +03:00
{$peep *} ~_(duck(sut (play p.gen)) $(gen q.gen))
{$hint *}
=+ hum=$(gen q.gen)
:: ?: &(huz !?=($|(@ [?(%fast %memo) ^]) p.gen))
:: hum
:- p.hum
:+ %10
?- p.gen
@ p.gen
^ [p.p.gen q:$(gen q.p.gen, gol %noun)]
==
q.hum
::
{$per *}
=+ fid=$(gen p.gen, gol %noun)
=+ dov=$(sut p.fid, gen q.gen)
[p.dov (comb q.fid q.dov)]
::
{$aka *}
$(gen r.gen, sut (buss p.gen q.gen))
::
{$use *}
$(gen q.gen, sut (busk p.gen))
::
{$if *}
=+ nor=$(gen p.gen, gol bool)
=+ fex=(gain p.gen)
=+ wux=(lose p.gen)
=+ ^= duy
?: =(%void fex)
?:(=(%void wux) [%0 0] [%1 1])
?:(=(%void wux) [%1 0] q.nor)
=+ hiq=$(sut fex, gen q.gen)
=+ ran=$(sut wux, gen r.gen)
[(fork p.hiq p.ran ~) (cond duy q.hiq q.ran)]
::
{$fits *}
:- (nice bool)
=+ ref=(play ~(bunt al %herb p.gen))
=+ fid=(find %read q.gen)
~| [%test q.gen]
|- ^- nock
?- -.fid
$& ?- -.q.p.fid
$& (fish(sut ref) (tend p.p.fid))
$| $(fid [%| (fine fid)])
==
$| [%7 q.p.fid (fish(sut ref) 1)]
==
::
{$dbug *}
~_ (show %o p.gen)
=+ hum=$(gen q.gen)
[p.hum [%10 [%spot %1 p.gen] q.hum]]
::
{$twig *} [(nice (play p.gen)) [%1 q.gen]] :: XX validate!
{$lost *}
?: vet
~_ (dunk(sut (play p.gen)) 'lost')
~>(%mean.[%leaf "mint-lost"] !!)
[%void [%0 0]]
::
{$spit *}
=+ vos=$(gol %noun, gen q.gen)
=+ ref=p:$(gol %noun, gen p.gen)
?> (~(nest ut p:!>(*span)) & ref)
[(nice (cell ref p.vos)) (cons [%1 p.vos] q.vos)]
::
{$wrap *}
=+ vat=$(gen p.gen)
%= $
gen
%call attempt.
2017-09-19 08:40:30 +03:00
:- [%cnhp [%limb %onan] [%hand p:!>(*span) [%1 p.vat]] ~]
New metal boot system.
2016-11-24 07:25:07 +03:00
[%hand p.vat q.vat]
==
::
{$code *} [(nice %noun) [%1 q:$(vet |, gen p.gen)]]
{$fail $~} [%void [%0 0]]
*
=+ doz=~(open ap gen)
?: =(doz gen)
~_ (show [%c 'hoon'] [%q gen])
~>(%mean.[%leaf "mint-open"] !!)
$(gen doz)
==
::
++ nice
|= typ/span
~_ leaf+"mint-nice"
?> ?|(!vet (nest(sut gol) & typ))
typ
::
++ grow
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
|= {mel/vair ruf/twig wad/chap dom/(map @ tomb)}
New metal boot system.
2016-11-24 07:25:07 +03:00
^- {p/span q/nock}
=+ dan=^$(gen ruf, gol %noun)
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=+ toc=(core p.dan [%gold p.dan wad [~ dom]])
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
=+ dez=(hope(sut toc) dom)
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
:- (nice (core p.dan mel p.dan wad [dez dom]))
New metal boot system.
2016-11-24 07:25:07 +03:00
(cons [%1 dez] q.dan)
--
::
++ moot
=+ gil=*(set span)
|- ^- ?
?- sut
{$atom *} |
{$cell *} |($(sut p.sut) $(sut q.sut))
{$core *} $(sut p.sut)
{$face *} $(sut q.sut)
{$fork *} (lien (~(tap in p.sut)) |=(span ^$(sut +<)))
Implement doccords in hoon. This adds syntax to the language to embed documentation. You can either the new ^: rune, or the irregular ''':doccord.''': syntax. This patch adds the language feature, but does not use it. Author: Elliot Glaysher <erg@google.com> Date: Wed Mar 1 18:21:26 2017 -0800
2017-03-02 05:21:26 +03:00
{$help *} $(sut q.sut)
New metal boot system.
2016-11-24 07:25:07 +03:00
{$hold *} |((~(has in gil) sut) $(gil (~(put in gil) sut), sut repo))
$noun |
$void &
==
::
++ mull
~/ %mull
|= {gol/span dox/span gen/twig}
|^ ^- {p/span q/span}
?: =(%void sut)
~>(%mean.[%leaf "mull-none"] !!)
?- gen
::
{^ *}
=+ hed=$(gen p.gen, gol %noun)
=+ tal=$(gen q.gen, gol %noun)
[(nice (cell p.hed p.tal)) (cell q.hed q.tal)]
::
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$ktcn *} $(fab |, gen p.gen)
143: | runes.
2017-09-18 04:32:20 +03:00
{$brcn *} (grow %gold [%$ 1] p.gen q.gen)
Converted %=.
2017-09-19 03:19:22 +03:00
{$cnts *} (~(mull et p.gen q.gen) gol dox)
Adapt all . runes.
2017-09-19 23:37:15 +03:00
{$dtkt *} =+($(gen q.gen, gol %noun) $(gen [%bunt p.gen]))
{$dtls *} =+($(gen p.gen, gol [%atom %$ ~]) (beth [%atom %$ ~]))
New metal boot system.
2016-11-24 07:25:07 +03:00
{$sand *} (beth (play gen))
{$rock *} (beth (play gen))
::
Adapt all . runes.
2017-09-19 23:37:15 +03:00
{$dttr *}
New metal boot system.
2016-11-24 07:25:07 +03:00
=+([$(gen p.gen, gol %noun) $(gen q.gen, gol %noun)] (beth %noun))
::
Adapt all . runes.
2017-09-19 23:37:15 +03:00
{$dtts *}
New metal boot system.
2016-11-24 07:25:07 +03:00
=+([$(gen p.gen, gol %noun) $(gen q.gen, gol %noun)] (beth bool))
::
Adapt all . runes.
2017-09-19 23:37:15 +03:00
{$dtwt *} =+($(gen p.gen, gol %noun) (beth bool)) :: XX =|
New metal boot system.
2016-11-24 07:25:07 +03:00
{$hand *} [p.gen p.gen]
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$ktbr *}
Restore metals.
2017-09-20 08:32:08 +03:00
=+(vat=$(gen p.gen) [(wrap(sut p.vat) %iron) (wrap(sut q.vat) %iron)])
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$ktls *}
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ hif=[p=(nice (play p.gen)) q=(play(sut dox) p.gen)]
=+($(gen q.gen, gol p.hif) hif)
::
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$ktpm *}
Restore metals.
2017-09-20 08:32:08 +03:00
=+(vat=$(gen p.gen) [(wrap(sut p.vat) %zinc) (wrap(sut q.vat) %zinc)])
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$ktts *}
New metal boot system.
2016-11-24 07:25:07 +03:00
=+(vat=$(gen q.gen) [(conk(sut p.vat) p.gen) (conk(sut q.vat) p.gen)])
::
{$tune *}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
[(face p.gen sut) (face p.gen dox)]
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$ktwt *}
Restore metals.
2017-09-20 08:32:08 +03:00
=+(vat=$(gen p.gen) [(wrap(sut p.vat) %lead) (wrap(sut q.vat) %lead)])
Implement doccords in hoon. This adds syntax to the language to embed documentation. You can either the new ^: rune, or the irregular ''':doccord.''': syntax. This patch adds the language feature, but does not use it. Author: Elliot Glaysher <erg@google.com> Date: Wed Mar 1 18:21:26 2017 -0800
2017-03-02 05:21:26 +03:00
::
{$help *}
=+(vat=$(gen q.gen) [(help p.gen p.vat) (help p.gen q.vat)])
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$ktsg *} $(gen p.gen)
New metal boot system.
2016-11-24 07:25:07 +03:00
{$peep *} ~_(duck(sut (play p.gen)) $(gen q.gen))
{$hint *} $(gen q.gen)
{$per *}
=+ lem=$(gen p.gen, gol %noun)
$(gen q.gen, sut p.lem, dox q.lem)
::
{$aka *}
%= $
gen r.gen
sut (buss p.gen q.gen)
dox (buss(sut dox) p.gen q.gen)
==
::
{$if *}
=+ nor=$(gen p.gen, gol bool)
=+ ^= hiq ^- {p/span q/span}
=+ fex=[p=(gain p.gen) q=(gain(sut dox) p.gen)]
?: =(%void p.fex)
:- %void
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
?: =(%void q.fex)
%void
New metal boot system.
2016-11-24 07:25:07 +03:00
~>(%mean.[%leaf "if-z"] (play(sut q.fex) q.gen))
?: =(%void q.fex)
~>(%mean.[%leaf "mull-bonk-b"] !!)
$(sut p.fex, dox q.fex, gen q.gen)
=+ ^= ran ^- {p/span q/span}
=+ wux=[p=(lose p.gen) q=(lose(sut dox) p.gen)]
?: =(%void p.wux)
:- %void
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
?: =(%void q.wux)
%void
New metal boot system.
2016-11-24 07:25:07 +03:00
~>(%mean.[%leaf "if-a"] (play(sut q.wux) r.gen))
?: =(%void q.wux)
~>(%mean.[%leaf "mull-bonk-c"] !!)
$(sut p.wux, dox q.wux, gen r.gen)
[(nice (fork p.hiq p.ran ~)) (fork q.hiq q.ran ~)]
::
{$fits *}
=+ nob=~(bunt al %herb p.gen)
=+ waz=[p=(play nob) q=(play(sut dox) nob)]
=+ ^= syx :- p=(cove q:(mint %noun [%wing q.gen]))
q=(cove q:(mint(sut dox) %noun [%wing q.gen]))
=+ pov=[p=(fish(sut p.waz) p.syx) q=(fish(sut q.waz) q.syx)]
?. &(=(p.syx q.syx) =(p.pov q.pov))
~>(%mean.[%leaf "mull-bonk-a"] !!)
(beth bool)
::
{$dbug *} ~_((show %o p.gen) $(gen q.gen))
{$twig *} [(nice (play p.gen)) (play(sut dox) p.gen)]
{$lost *}
?: vet
:: ~_ (dunk(sut (play p.gen)) 'also')
~>(%mean.[%leaf "mull-skip"] !!)
(beth %void)
::
{$code *} (beth %noun)
{$spit *}
=+ vos=$(gol %noun, gen q.gen) :: XX validate!
[(nice (cell (play p.gen) p.vos)) (cell (play(sut dox) p.gen) q.vos)]
::
{$wrap *}
?> =(sut dox)
=+(typ=(play gen) [typ typ])
::
{$fail *} (beth %void)
*
=+ doz=~(open ap gen)
?: =(doz gen)
~_ (show [%c 'hoon'] [%q gen])
~>(%mean.[%leaf "mull-open"] !!)
$(gen doz)
==
::
++ beth
|= typ/span
[(nice typ) typ]
::
++ nice
|= typ/span
:: ~_ (dunk(sut gol) 'need')
:: ~_ (dunk(sut typ) 'have')
~_ leaf+"mull-nice"
?> ?|(!vet (nest(sut gol) & typ))
typ
::
++ grow
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
|= {mel/vair ruf/twig wad/chap dom/(map @ tomb)}
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"mull-grow"
^- {p/span q/span}
=+ dan=^$(gen ruf, gol %noun)
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=+ ^= toc :- p=(core p.dan [%gold p.dan wad [~ dom]])
q=(core q.dan [%gold q.dan wad [~ dom]])
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
=+ (balk(sut p.toc, dox q.toc) dom)
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
:- (nice (core p.dan mel p.dan wad [[%0 0] dom]))
(core q.dan [mel q.dan wad [[%0 0] dom]])
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ bake
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
|= dab/(map term (pair what foot))
New metal boot system.
2016-11-24 07:25:07 +03:00
^- *
?: ?=($~ dab)
~
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
=+ ^= dov
coherent-cords-d, chapters, initial commit.
2017-03-22 03:56:51 +03:00
?- -.q.q.n.dab
$ash ^$(gol %noun, gen p.q.q.n.dab)
New metal boot system.
2016-11-24 07:25:07 +03:00
$elm ~
==
?- dab
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
{* $~ $~} dov
{* $~ *} [dov $(dab r.dab)]
{* * $~} [dov $(dab l.dab)]
{* * *} [dov $(dab l.dab) $(dab r.dab)]
==
::
++ balk
|= dom/(map @ tomb)
^- *
?: ?=($~ dom)
~
=+ dov=(bake q.q.n.dom)
?- dom
{* $~ $~} dov
{* $~ *} [dov $(dom r.dom)]
{* * $~} [dov $(dom l.dom)]
{* * *} [dov $(dom l.dom) $(dom r.dom)]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
--
++ meet |=(ref/span &((nest | ref) (nest(sut ref) | sut)))
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
:: ::
Working, but still weirdly slow.
2017-09-09 20:50:22 +03:00
++ miss :: nonintersection
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
|= $: :: ref: symmetric span
::
ref/span
==
:: intersection of sut and ref is empty
::
^- ?
=| gil/(set (set span))
=< dext
|%
++ dext
^- ?
::
?: =(ref sut)
(nest(sut %void) | sut)
?- sut
$void &
$noun (nest(sut %void) | ref)
{$atom *} sint
{$cell *} sint
{$core *} sint(sut [%cell %noun %noun])
{$fork *} %+ levy (~(tap in p.sut))
|=(span dext(sut +<))
{$face *} dext(sut q.sut)
{$help *} dext(sut q.sut)
{$hold *} =+ (~(gas in *(set span)) `(list span)`[sut ref ~])
?: (~(has in gil) -)
&
%= dext
sut repo
gil (~(put in gil) -)
== ==
++ sint
?+ ref dext(sut ref, ref sut)
{$atom *} ?. ?=({$atom *} sut) &
?& ?=(^ q.ref)
?=(^ q.sut)
!=(q.ref q.sut)
==
{$cell *} ?. ?=({$cell *} sut) &
?| dext(sut p.sut, ref p.ref)
dext(sut q.sut, ref q.ref)
== ==
--
New metal boot system.
2016-11-24 07:25:07 +03:00
++ mite |=(ref/span |((nest | ref) (nest(sut ref) & sut)))
++ nest
~/ %nest
|= {tel/? ref/span}
=| $: seg/(set span) :: degenerate sut
reg/(set span) :: degenerate ref
gil/(set {p/span q/span}) :: assume nest
==
=< dext
|%
++ deem
|= {mel/vair ram/vair}
^- ?
Restore metals.
2017-09-20 08:32:08 +03:00
?. |(=(mel ram) =(%lead mel) =(%gold ram)) |
?: ?=($lead mel) &
New metal boot system.
2016-11-24 07:25:07 +03:00
?: ?=($gold mel) meet
Restore metals.
2017-09-20 08:32:08 +03:00
=+ vay=?-(mel $iron %rite, $zinc %read)
New metal boot system.
2016-11-24 07:25:07 +03:00
dext(sut (peek vay 2), ref (peek(sut ref) vay 2))
::
++ deep
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
|= $: dom/(map @ tomb)
vim/(map @ tomb)
coherent-cords-d, chapters, initial commit.
2017-03-22 03:56:51 +03:00
==
New metal boot system.
2016-11-24 07:25:07 +03:00
^- ?
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
?: ?=($~ dom) =(vim ~)
?: ?=($~ vim) |
?& =(p.n.dom p.n.vim)
$(dom l.dom, vim l.vim)
$(dom r.dom, vim r.vim)
::
=+ [dab hem]=[q.q.n.dom q.q.n.vim]
|- ^- ?
?: ?=($~ dab) =(hem ~)
?: ?=($~ hem) |
?& =(p.n.dab p.n.hem)
$(dab l.dab, hem l.hem)
$(dab r.dab, hem r.hem)
?- -.q.q.n.dab
$elm =(q.q.n.dab q.q.n.hem)
$ash ?& ?=($ash -.q.q.n.hem)
%= dext
sut (play p.q.q.n.dab)
ref (play(sut ref) p.q.q.n.hem)
== == == == ==
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ dext
^- ?
=- ?: - &
?. tel |
:: ~_ (dunk %need)
:: ~_ (dunk(sut ref) %have)
~>(%mean.[%leaf "nest-fail"] !!)
?: =(sut ref) &
?- sut
$void sint
$noun &
{$atom *} ?. ?=({$atom *} ref) sint
?& (fitz p.sut p.ref)
|(?=($~ q.sut) =(q.sut q.ref))
==
{$cell *} ?. ?=({$cell *} ref) sint
?& dext(sut p.sut, ref p.ref, seg ~, reg ~)
dext(sut q.sut, ref q.ref, seg ~, reg ~)
==
{$core *} ?. ?=({$core *} ref) sint
?: =(q.sut q.ref) dext(sut p.sut, ref p.ref)
?& meet(sut q.q.sut, ref p.sut)
dext(sut q.q.ref, ref p.ref)
(deem(sut q.q.sut, ref q.q.ref) p.q.sut p.q.ref)
?| (~(has in gil) [sut ref])
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
%. [q.s.q.sut q.s.q.ref]
New metal boot system.
2016-11-24 07:25:07 +03:00
%= deep
gil (~(put in gil) [sut ref])
sut sut(p q.q.sut, p.q %gold)
ref ref(p q.q.ref, p.q %gold)
== ==
==
{$face *} dext(sut q.sut)
{$fork *} ?. ?=(?({$atom *} $noun {$cell *} {$core *}) ref) sint
(lien (~(tap in p.sut)) |=(span dext(tel |, sut +<)))
Implement doccords in hoon. This adds syntax to the language to embed documentation. You can either the new ^: rune, or the irregular ''':doccord.''': syntax. This patch adds the language feature, but does not use it. Author: Elliot Glaysher <erg@google.com> Date: Wed Mar 1 18:21:26 2017 -0800
2017-03-02 05:21:26 +03:00
{$help *} dext(sut q.sut)
New metal boot system.
2016-11-24 07:25:07 +03:00
{$hold *} ?: (~(has in seg) sut) |
?: (~(has in gil) [sut ref]) &
%= dext
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
sut repo
New metal boot system.
2016-11-24 07:25:07 +03:00
seg (~(put in seg) sut)
gil (~(put in gil) [sut ref])
== ==
::
++ meet &(dext dext(sut ref, ref sut))
++ sint
^- ?
?- ref
$noun |
$void &
{$atom *} |
{$cell *} |
{$core *} dext(ref repo(sut ref))
{$face *} dext(ref q.ref)
{$fork *} (levy (~(tap in p.ref)) |=(span sint(ref +<)))
Implement doccords in hoon. This adds syntax to the language to embed documentation. You can either the new ^: rune, or the irregular ''':doccord.''': syntax. This patch adds the language feature, but does not use it. Author: Elliot Glaysher <erg@google.com> Date: Wed Mar 1 18:21:26 2017 -0800
2017-03-02 05:21:26 +03:00
{$help *} dext(ref q.ref)
New metal boot system.
2016-11-24 07:25:07 +03:00
{$hold *} ?: (~(has in reg) ref) &
?: (~(has in gil) [sut ref]) &
%= dext
ref repo(sut ref)
reg (~(put in reg) ref)
gil (~(put in gil) [sut ref])
== ==
--
::
++ peek
~/ %peek
|= {way/?($read $rite $both $free) axe/axis}
^- span
?: =(1 axe)
sut
=+ [now=(cap axe) lat=(mas axe)]
=+ gil=*(set span)
|- ^- span
?- sut
{$atom *} %void
{$cell *} ?:(=(2 now) ^$(sut p.sut, axe lat) ^$(sut q.sut, axe lat))
{$core *}
?. =(3 now) %noun
=+ pec=(peel way p.q.sut)
%= ^$
axe lat
sut
?: =([& &] pec) p.sut
%+ cell
?.(sam.pec %noun ^$(sut p.sut, axe 2))
?.(con.pec %noun ^$(sut p.sut, axe 3))
==
::
{$fork *} (fork (turn (~(tap in p.sut)) |=(span ^$(sut +<))))
{$hold *}
?: (~(has in gil) sut)
%void
$(gil (~(put in gil) sut), sut repo)
::
$void %void
$noun %noun
* $(sut repo)
==
::
++ peel
Restore metals.
2017-09-20 08:32:08 +03:00
|= {way/vial met/?($gold $iron $lead $zinc)}
New metal boot system.
2016-11-24 07:25:07 +03:00
^- {sam/? con/?}
?: ?=($gold met) [& &]
?- way
$both [| |]
$free [& &]
Restore metals.
2017-09-20 08:32:08 +03:00
$read [?=($zinc met) |]
$rite [?=($iron met) |]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
++ play
~/ %play
=> .(vet |)
|= gen/twig
^- span
?- gen
{^ *} (cell $(gen p.gen) $(gen q.gen))
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$ktcn *} $(fab |, gen p.gen)
143: | runes.
2017-09-18 04:32:20 +03:00
{$brcn *} (core sut %gold sut p.gen [[%0 0] q.gen])
Converted %=.
2017-09-19 03:19:22 +03:00
{$cnts *} ~(play et p.gen q.gen)
Adapt all . runes.
2017-09-19 23:37:15 +03:00
{$dtkt *} $(gen [%bunt p.gen])
{$dtls *} [%atom %$ ~]
New metal boot system.
2016-11-24 07:25:07 +03:00
{$rock *} |- ^- span
?@ q.gen [%atom p.gen `q.gen]
[%cell $(q.gen -.q.gen) $(q.gen +.q.gen)]
{$sand *} |- ^- span
?@ q.gen
?: =(%n p.gen) ?>(=(0 q.gen) [%atom p.gen ~ q.gen])
?:(=(%f p.gen) ?>((lte q.gen 1) bool) [%atom p.gen ~])
[%cell $(q.gen -.q.gen) $(q.gen +.q.gen)]
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
{$tune *} (face p.gen sut)
Adapt all . runes.
2017-09-19 23:37:15 +03:00
{$dttr *} %noun
{$dtts *} bool
{$dtwt *} bool
New metal boot system.
2016-11-24 07:25:07 +03:00
{$hand *} p.gen
Restore metals.
2017-09-20 08:32:08 +03:00
{$ktbr *} (wrap(sut $(gen p.gen)) %iron)
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$ktls *} $(gen p.gen)
Restore metals.
2017-09-20 08:32:08 +03:00
{$ktpm *} (wrap(sut $(gen p.gen)) %zinc)
Translate ^ runes.
2017-09-20 02:24:30 +03:00
{$ktsg *} $(gen p.gen)
{$ktts *} (conk(sut $(gen q.gen)) p.gen)
Restore metals.
2017-09-20 08:32:08 +03:00
{$ktwt *} (wrap(sut $(gen p.gen)) %lead)
Implement doccords in hoon. This adds syntax to the language to embed documentation. You can either the new ^: rune, or the irregular ''':doccord.''': syntax. This patch adds the language feature, but does not use it. Author: Elliot Glaysher <erg@google.com> Date: Wed Mar 1 18:21:26 2017 -0800
2017-03-02 05:21:26 +03:00
{$help *} (help p.gen $(gen q.gen))
New metal boot system.
2016-11-24 07:25:07 +03:00
{$peep *} ~_(duck(sut ^$(gen p.gen)) $(gen q.gen))
{$hint *} $(gen q.gen)
{$per *} $(gen q.gen, sut $(gen p.gen))
{$aka *} $(gen r.gen, sut (buss p.gen q.gen))
{$if *} =+ [fex=(gain p.gen) wux=(lose p.gen)]
%- fork :~
?:(=(%void fex) %void $(sut fex, gen q.gen))
?:(=(%void wux) %void $(sut wux, gen r.gen))
==
{$fits *} bool
{$dbug *} ~_((show %o p.gen) $(gen q.gen))
{$twig *} (play p.gen)
{$wrap *} %= $
gen
%call attempt.
2017-09-19 08:40:30 +03:00
[%cnhp [%limb %onan] [%hand p:!>(*span) [%1 $(gen p.gen)]] ~]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
{$lost *} %void
{$spit *} (cell $(gen p.gen) $(gen q.gen))
{$code *} %noun
{$fail *} %void
* =+ doz=~(open ap gen)
?: =(doz gen)
~_ (show [%c 'hoon'] [%q gen])
~>(%mean.[%leaf "play-open"] !!)
$(gen doz)
==
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
:: ::
Working, but still weirdly slow.
2017-09-09 20:50:22 +03:00
++ redo :: refurbish faces
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
|= $: :: ref: raw payload
::
ref/span
==
Minor performance improvement.
2017-09-13 02:36:57 +03:00
~+
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
:: :span: subject refurbished to reference namespace
::
^- span
:: hos: subject tool stack
:: wec: reference tool stack set
:: gil: repetition set
::
=| hos/(list tool)
=/ wec/(set (list tool)) [~ ~ ~]
=| gil/(set (pair span span))
=< :: errors imply subject/reference mismatch
::
~| %redo-match
:: reduce by subject
::
dext
|%
:: ::
++ dear :: resolve tool stack
:: :(unit (list tool)): unified tool stack
::
^- (unit (list tool))
:: empty implies void
::
?~ wec `~
:: any reference faces must be clear
::
?. ?=({* $~ $~} wec)
~& [%dear-many wec]
~
:- ~
:: har: single reference tool stack
::
=/ har n.wec
:: len: lengths of [sut ref] face stacks
::
=/ len [p q]=[(lent hos) (lent har)]
:: lip: length of sut-ref face stack overlap
::
:: AB
:: BC
::
:: +lip is (lent B), where +hay is forward AB
:: and +liv is forward BC (stack BA and CB).
::
:: overlap is a weird corner case. +lip is
:: almost always 0. brute force is fine.
::
=/ lip
=| lup/(unit @ud)
=| lip/@ud
|- ^- @ud
?: |((gth lip p.len) (gth lip q.len))
(fall lup 0)
:: lep: overlap candidate: suffix of subject face stack
::
=/ lep (slag (sub p.len lip) hos)
:: lap: overlap candidate: prefix of reference face stack
::
=/ lap (scag lip har)
:: save any match and continue
::
$(lip +(lip), lup ?.(=(lep lap) lup `lip))
:: ~& [har+har hos+hos len+len lip+lip]
:: produce combined face stack (forward ABC, stack CBA)
::
(weld hos (slag lip har))
:: ::
++ dext :: subject traverse
:: :span: refurbished subject
::
^- span
:: check for trivial cases
::
?: ?| =(sut ref)
?=(?($noun $void {?($atom $core) *}) ref)
==
done
~_ (dunk 'redo: dext: sut')
~_ (dunk(sut ref) 'redo: dext: ref')
?- sut
?($noun $void {?($atom $core) *})
:: reduce reference and reassemble leaf
::
done:(sint &)
::
{$cell *}
:: reduce reference to match subject
::
=> (sint &)
?> ?=({$cell *} sut)
:: leaf with possible recursive descent
::
%= done
sut
:: clear face stacks for descent
::
=: hos ~
wec [~ ~ ~]
==
:: descend into cell
::
:+ %cell
dext(sut p.sut, ref (peek(sut ref) %free 2))
dext(sut q.sut, ref (peek(sut ref) %free 3))
==
::
{$face *}
:: push face on subject stack, and descend
::
dext(hos [q.p.sut hos], sut q.sut)
::
{$help *}
:: work through help
::
[%help p.sut dext(sut q.sut)]
::
{$fork *}
:: reconstruct each case in fork
::
(fork (turn (~(tap in p.sut)) |=(span dext(sut +<))))
::
{$hold *}
:: reduce to hard
::
=> (sint |)
?> ?=({$hold *} sut)
?: (~(has in fan) [p.sut q.sut])
:: repo loop; redo depends on its own product
::
done:(sint &)
?: (~(has in gil) [sut ref])
:: type recursion, stop renaming
::
done:(sint |)
:: restore unchanged holds
::
=+ repo
=- ?:(=(- +<) sut -)
dext(sut -, gil (~(put in gil) sut ref))
==
:: ::
++ done :: complete assembly
^- span
:: :span: subject refurbished
::
:: lov: combined face stack
::
=/ lov
=/ lov dear
?~ lov
~_ (dunk 'redo: dear: sut')
~_ (dunk(sut ref) 'redo: dear: ref')
~& [%wec wec]
!!
(need lov)
:: recompose faces
::
|- ^- span
?~ lov sut
$(lov t.lov, sut (face [~ i.lov] sut))
:: ::
++ sint :: reduce by reference
|= $: :: hod: expand holds
::
hod/?
==
:: ::.: reference with face/fork/hold reduced
::
^+ .
:: =- ~> %slog.[0 (dunk 'sint: sut')]
:: ~> %slog.[0 (dunk(sut ref) 'sint: ref')]
:: ~> %slog.[0 (dunk(sut =>(- ref)) 'sint: pro')]
:: -
?+ ref .
{$help *} $(ref q.ref)
{$face *}
:: extend all stacks in set
::
%= $
ref q.ref
wec (~(run in wec) |=((list tool) [q.p.ref +<]))
==
::
{$fork *}
:: reconstruct all relevant cases
::
=- :: ~> %slog.[0 (dunk 'fork: sut')]
:: ~> %slog.[0 (dunk(sut ref) 'fork: ref')]
:: ~> %slog.[0 (dunk(sut (fork ->)) 'fork: pro')]
+(wec -<, ref (fork ->))
=/ moy (~(tap in p.ref))
|- ^- (pair (set (list tool)) (list span))
?~ moy [~ ~]
:: head recurse
::
=/ mor $(moy t.moy)
:: prune reference cases outside subject
::
?: (miss i.moy) mor
:: unify all cases
::
=/ dis ^$(ref i.moy)
[(~(uni in p.mor) wec.dis) [ref.dis q.mor]]
::
{$hold *}
?. hod .
$(ref repo(sut ref))
==
--
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ repo
^- span
?- sut
{$core *} [%cell %noun p.sut]
{$face *} q.sut
Implement doccords in hoon. This adds syntax to the language to embed documentation. You can either the new ^: rune, or the irregular ''':doccord.''': syntax. This patch adds the language feature, but does not use it. Author: Elliot Glaysher <erg@google.com> Date: Wed Mar 1 18:21:26 2017 -0800
2017-03-02 05:21:26 +03:00
{$help *} q.sut
New metal boot system.
2016-11-24 07:25:07 +03:00
{$hold *} (rest [[p.sut q.sut] ~])
$noun (fork [%atom %$ ~] [%cell %noun %noun] ~)
* ~>(%mean.[%leaf "repo-fltt"] !!)
==
::
++ rest
~/ %rest
|= leg/(list {p/span q/twig})
^- span
?: (lien leg |=({p/span q/twig} (~(has in fan) [p q])))
~>(%mean.[%leaf "rest-loop"] !!)
=> .(fan (~(gas in fan) leg))
%- fork
%- %~ tap in
%- ~(gas in *(set span))
(turn leg |=({p/span q/twig} (play(sut p) q)))
==
~
::
++ take
|= {vit/vein duz/$-(span span)}
^- (pair axis span)
:- (tend vit)
=. vit (flop vit)
|- ^- span
?~ vit (duz sut)
?~ i.vit
|- ^- span
?+ sut ^$(vit t.vit)
{$face *} (face p.sut ^$(vit t.vit, sut q.sut))
{$fork *} (fork (turn (~(tap in p.sut)) |=(span ^$(sut +<))))
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
{$hold *} $(sut repo)
New metal boot system.
2016-11-24 07:25:07 +03:00
==
=+ vil=*(set span)
|- ^- span
?: =(1 u.i.vit)
^$(vit t.vit)
=+ [now lat]=(cap u.i.vit)^(mas u.i.vit)
?- sut
$noun $(sut [%cell %noun %noun])
$void %void
{$atom *} %void
{$cell *} ?: =(2 now)
(cell $(sut p.sut, u.i.vit lat) q.sut)
(cell p.sut $(sut q.sut, u.i.vit lat))
{$core *} ?: =(2 now)
$(sut repo)
(core $(sut p.sut, u.i.vit lat) q.sut)
{$face *} (face p.sut $(sut q.sut))
{$fork *} (fork (turn (~(tap in p.sut)) |=(span ^$(sut +<))))
Implement doccords in hoon. This adds syntax to the language to embed documentation. You can either the new ^: rune, or the irregular ''':doccord.''': syntax. This patch adds the language feature, but does not use it. Author: Elliot Glaysher <erg@google.com> Date: Wed Mar 1 18:21:26 2017 -0800
2017-03-02 05:21:26 +03:00
{$help *} (help p.sut $(sut q.sut))
New metal boot system.
2016-11-24 07:25:07 +03:00
{$hold *} ?: (~(has in vil) sut)
%void
$(sut repo, vil (~(put in vil) sut))
==
::
++ tack
|= {hyp/wing mur/span}
~_ (show [%c %tack] %l hyp)
=+ fid=(find %rite hyp)
?> ?=($& -.fid)
(take p.p.fid |=(span mur))
::
++ tend
|= vit/vein
^- axis
?~(vit 1 (peg $(vit t.vit) ?~(i.vit 1 u.i.vit)))
::
++ toss
~/ %toss
|= {hyp/wing mur/span men/(list {p/span q/foot})}
^- {p/axis q/(list {p/span q/foot})}
=- [(need p.wib) q.wib]
^= wib
|- ^- {p/(unit axis) q/(list {p/span q/foot})}
?~ men
[*(unit axis) ~]
=+ geq=(tack(sut p.i.men) hyp mur)
=+ mox=$(men t.men)
[(mate p.mox `_p.mox`[~ p.geq]) [[q.geq q.i.men] q.mox]]
::
++ wrap
~/ %wrap
Restore metals.
2017-09-20 08:32:08 +03:00
|= yoz/?($lead $iron $zinc)
New metal boot system.
2016-11-24 07:25:07 +03:00
~_ leaf+"wrap"
^- span
?+ sut sut
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
{$cell *} (cell $(sut p.sut) $(sut q.sut))
Restore metals.
2017-09-20 08:32:08 +03:00
{$core *} ?>(|(=(%gold p.q.sut) =(%lead yoz)) sut(p.q yoz))
New metal boot system.
2016-11-24 07:25:07 +03:00
{$face *} (face p.sut $(sut q.sut))
{$fork *} (fork (turn (~(tap in p.sut)) |=(span ^$(sut +<))))
Implement doccords in hoon. This adds syntax to the language to embed documentation. You can either the new ^: rune, or the irregular ''':doccord.''': syntax. This patch adds the language feature, but does not use it. Author: Elliot Glaysher <erg@google.com> Date: Wed Mar 1 18:21:26 2017 -0800
2017-03-02 05:21:26 +03:00
{$help *} (help p.sut $(sut q.sut))
New metal boot system.
2016-11-24 07:25:07 +03:00
{$hold *} $(sut repo)
==
--
++ us :: prettyprinter
=> |%
++ cape {p/(map @ud wine) q/wine} ::
++ wine ::
$@ $? $noun ::
$path ::
$span ::
$void ::
$wall ::
$wool ::
$yarn ::
== ::
$% {$mato p/term} ::
{$core p/(list @ta) q/wine} ::
{$face p/term q/wine} ::
{$list p/term q/wine} ::
{$pear p/term q/@} ::
$ runes converted.
2017-09-18 02:31:49 +03:00
{$bcwt p/(list wine)} ::
New metal boot system.
2016-11-24 07:25:07 +03:00
{$plot p/(list wine)} ::
{$stop p/@ud} ::
{$tree p/term q/wine} ::
{$unit p/term q/wine} ::
== ::
--
|_ sut/span
++ dash
|= {mil/tape lim/char} ^- tape
:- lim
|- ^- tape
?~ mil [lim ~]
?: =(lim i.mil) ['\\' i.mil $(mil t.mil)]
?: =('\\' i.mil) ['\\' i.mil $(mil t.mil)]
?: (lte ' ' i.mil) [i.mil $(mil t.mil)]
['\\' ~(x ne (rsh 2 1 i.mil)) ~(x ne (end 2 1 i.mil)) $(mil t.mil)]
::
++ deal |=(lum/* (dish dole lum))
++ dial
|= ham/cape
=+ gid=*(set @ud)
=< `tank`-:$
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
|%
New metal boot system.
2016-11-24 07:25:07 +03:00
++ many
|= haz/(list wine)
^- {(list tank) (set @ud)}
?~ haz [~ gid]
=^ mor gid $(haz t.haz)
=^ dis gid ^$(q.ham i.haz)
[[dis mor] gid]
::
++ $
^- {tank (set @ud)}
?- q.ham
$noun :_(gid [%leaf '*' ~])
$path :_(gid [%leaf '/' ~])
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
$span :_(gid [%leaf '#' 't' ~])
New metal boot system.
2016-11-24 07:25:07 +03:00
$void :_(gid [%leaf '#' '!' ~])
$wool :_(gid [%leaf '*' '"' '"' ~])
$wall :_(gid [%leaf '*' '\'' '\'' ~])
$yarn :_(gid [%leaf '"' '"' ~])
{$mato *} :_(gid [%leaf '@' (trip p.q.ham)])
{$core *}
=^ cox gid $(q.ham q.q.ham)
:_ gid
:+ %rose
[[' ' ~] ['<' ~] ['>' ~]]
|- ^- (list tank)
?~ p.q.ham [cox ~]
[[%leaf (rip 3 i.p.q.ham)] $(p.q.ham t.p.q.ham)]
::
{$face *}
=^ cox gid $(q.ham q.q.ham)
:_(gid [%palm [['/' ~] ~ ~ ~] [%leaf (trip p.q.ham)] cox ~])
::
{$list *}
=^ cox gid $(q.ham q.q.ham)
:_(gid [%rose [" " (weld (trip p.q.ham) "(") ")"] cox ~])
::
$ runes converted.
2017-09-18 02:31:49 +03:00
{$bcwt *}
New metal boot system.
2016-11-24 07:25:07 +03:00
=^ coz gid (many p.q.ham)
:_(gid [%rose [[' ' ~] ['?' '(' ~] [')' ~]] coz])
::
{$plot *}
=^ coz gid (many p.q.ham)
:_(gid [%rose [[' ' ~] ['{' ~] ['}' ~]] coz])
::
{$pear *}
:_(gid [%leaf '$' ~(rend co [%$ p.q.ham q.q.ham])])
::
{$stop *}
=+ num=~(rend co [%$ %ud p.q.ham])
?: (~(has in gid) p.q.ham)
:_(gid [%leaf '#' num])
=^ cox gid
%= $
gid (~(put in gid) p.q.ham)
q.ham (~(got by p.ham) p.q.ham)
==
:_(gid [%palm [['.' ~] ~ ~ ~] [%leaf ['^' '#' num]] cox ~])
::
{$tree *}
=^ cox gid $(q.ham q.q.ham)
:_(gid [%rose [" " (weld (trip p.q.ham) "(") ")"] cox ~])
::
{$unit *}
=^ cox gid $(q.ham q.q.ham)
:_(gid [%rose [" " (weld (trip p.q.ham) "(") ")"] cox ~])
==
--
::
++ dish
|= {ham/cape lum/*} ^- tank
~| [%dish-h ?@(q.ham q.ham -.q.ham)]
~| [%lump lum]
~| [%ham ham]
%- need
=| gil/(set {@ud *})
|- ^- (unit tank)
?- q.ham
$noun
%= $
q.ham
?: ?=(@ lum)
[%mato %$]
:- %plot
|- ^- (list wine)
[%noun ?:(?=(@ +.lum) [[%mato %$] ~] $(lum +.lum))]
==
::
$path
:- ~
:+ %rose
[['/' ~] ['/' ~] ~]
|- ^- (list tank)
?~ lum ~
?@ lum !!
?> ?=(@ -.lum)
[[%leaf (rip 3 -.lum)] $(lum +.lum)]
::
$span
=+ tyr=|.((dial dole))
=+ vol=tyr(sut lum)
=+ cis=((hard tank) .*(vol -:vol))
:^ ~ %palm
[~ ~ ~ ~]
[[%leaf '#' 't' '/' ~] cis ~]
::
$wall
:- ~
:+ %rose
[[' ' ~] ['<' '|' ~] ['|' '>' ~]]
|- ^- (list tank)
?~ lum ~
?@ lum !!
[[%leaf (trip ((hard @) -.lum))] $(lum +.lum)]
::
$wool
:- ~
:+ %rose
[[' ' ~] ['<' '<' ~] ['>' '>' ~]]
|- ^- (list tank)
?~ lum ~
?@ lum !!
[(need ^$(q.ham %yarn, lum -.lum)) $(lum +.lum)]
::
$yarn
[~ %leaf (dash (tape lum) '"')]
::
$void
~
::
{$mato *}
?. ?=(@ lum)
~
:+ ~
%leaf
?+ (rash p.q.ham ;~(sfix (cook crip (star low)) (star hig)))
~(rend co [%$ p.q.ham lum])
$$ ~(rend co [%$ %ud lum])
$t (dash (rip 3 lum) '\'')
$tas ['%' ?.(=(0 lum) (rip 3 lum) ['$' ~])]
==
::
{$core *}
:: XX needs rethinking for core metal
:: ?. ?=(^ lum) ~
:: => .(lum `*`lum)
:: =- ?~(tok ~ [~ %rose [[' ' ~] ['<' ~] ['>' ~]] u.tok])
:: ^= tok
:: |- ^- (unit (list tank))
:: ?~ p.q.ham
:: =+ den=^$(q.ham q.q.ham)
:: ?~(den ~ [~ u.den ~])
:: =+ mur=$(p.q.ham t.p.q.ham, lum +.lum)
:: ?~(mur ~ [~ [[%leaf (rip 3 i.p.q.ham)] u.mur]])
[~ (dial ham)]
::
{$face *}
=+ wal=$(q.ham q.q.ham)
?~ wal
~
[~ %palm [['=' ~] ~ ~ ~] [%leaf (trip p.q.ham)] u.wal ~]
::
{$list *}
?: =(~ lum)
[~ %leaf '~' ~]
=- ?~ tok
~
[~ %rose [[' ' ~] ['~' '[' ~] [']' ~]] u.tok]
^= tok
|- ^- (unit (list tank))
?: ?=(@ lum)
?.(=(~ lum) ~ [~ ~])
=+ [for=^$(q.ham q.q.ham, lum -.lum) aft=$(lum +.lum)]
?. &(?=(^ for) ?=(^ aft))
~
[~ u.for u.aft]
::
$ runes converted.
2017-09-18 02:31:49 +03:00
{$bcwt *}
New metal boot system.
2016-11-24 07:25:07 +03:00
|- ^- (unit tank)
?~ p.q.ham
~
=+ wal=^$(q.ham i.p.q.ham)
?~ wal
$(p.q.ham t.p.q.ham)
wal
::
{$plot *}
=- ?~ tok
~
[~ %rose [[' ' ~] ['[' ~] [']' ~]] u.tok]
^= tok
|- ^- (unit (list tank))
?~ p.q.ham
~
?: ?=({* $~} p.q.ham)
=+ wal=^$(q.ham i.p.q.ham)
?~(wal ~ [~ [u.wal ~]])
?@ lum
~
=+ gim=^$(q.ham i.p.q.ham, lum -.lum)
?~ gim
~
=+ myd=$(p.q.ham t.p.q.ham, lum +.lum)
?~ myd
~
[~ u.gim u.myd]
::
{$pear *}
?. =(lum q.q.ham)
~
=. p.q.ham
(rash p.q.ham ;~(sfix (cook crip (star low)) (star hig)))
=+ fox=$(q.ham [%mato p.q.ham])
?> ?=({$~ $leaf ^} fox)
?: ?=(?($n $tas) p.q.ham)
fox
[~ %leaf '%' p.u.fox]
::
{$stop *}
?: (~(has in gil) [p.q.ham lum]) ~
=+ kep=(~(get by p.ham) p.q.ham)
?~ kep
~|([%stop-loss p.q.ham] !!)
$(gil (~(put in gil) [p.q.ham lum]), q.ham u.kep)
::
{$tree *}
=- ?~ tok
~
[~ %rose [[' ' ~] ['{' ~] ['}' ~]] u.tok]
^= tok
=+ tuk=*(list tank)
|- ^- (unit (list tank))
?: =(~ lum)
[~ tuk]
?. ?=({n/* l/* r/*} lum)
~
=+ rol=$(lum r.lum)
?~ rol
~
=+ tim=^$(q.ham q.q.ham, lum n.lum)
?~ tim
~
$(lum l.lum, tuk [u.tim u.rol])
::
{$unit *}
?@ lum
?.(=(~ lum) ~ [~ %leaf '~' ~])
?. =(~ -.lum)
~
=+ wal=$(q.ham q.q.ham, lum +.lum)
?~ wal
~
[~ %rose [[' ' ~] ['[' ~] [']' ~]] [%leaf '~' ~] u.wal ~]
==
::
++ doge
|= ham/cape
=- ?+ woz woz
{$list * {$mato $'ta'}} %path
{$list * {$mato $'t'}} %wall
{$list * {$mato $'tD'}} %yarn
{$list * $yarn} %wool
==
^= woz
^- wine
?. ?=({$stop *} q.ham)
$ runes converted.
2017-09-18 02:31:49 +03:00
?: ?& ?= {$bcwt {$pear $n $0} {$plot {$pear $n $0} {$face *} $~} $~}
New metal boot system.
2016-11-24 07:25:07 +03:00
q.ham
=(1 (met 3 p.i.t.p.i.t.p.q.ham))
==
[%unit =<([p q] i.t.p.i.t.p.q.ham)]
q.ham
=+ may=(~(get by p.ham) p.q.ham)
?~ may
q.ham
=+ nul=[%pear %n 0]
$ runes converted.
2017-09-18 02:31:49 +03:00
?. ?& ?=({$bcwt *} u.may)
New metal boot system.
2016-11-24 07:25:07 +03:00
?=({* * $~} p.u.may)
|(=(nul i.p.u.may) =(nul i.t.p.u.may))
==
q.ham
=+ din=?:(=(nul i.p.u.may) i.t.p.u.may i.p.u.may)
?: ?& ?=({$plot {$face *} {$face * $stop *} $~} din)
=(p.q.ham p.q.i.t.p.din)
=(1 (met 3 p.i.p.din))
=(1 (met 3 p.i.t.p.din))
==
:+ %list
(cat 3 p.i.p.din p.i.t.p.din)
q.i.p.din
?: ?& ?= $: $plot
{$face *}
{$face * $stop *}
{{$face * $stop *} $~}
==
din
=(p.q.ham p.q.i.t.p.din)
=(p.q.ham p.q.i.t.t.p.din)
=(1 (met 3 p.i.p.din))
=(1 (met 3 p.i.t.p.din))
=(1 (met 3 p.i.t.t.p.din))
==
:+ %tree
%^ cat
3
p.i.p.din
(cat 3 p.i.t.p.din p.i.t.t.p.din)
q.i.p.din
q.ham
::
++ dole
^- cape
=+ gil=*(set span)
=+ dex=[p=*(map span @) q=*(map @ wine)]
=< [q.p q]
|- ^- {p/{p/(map span @) q/(map @ wine)} q/wine}
=- [p.tez (doge q.p.tez q.tez)]
^= tez
^- {p/{p/(map span @) q/(map @ wine)} q/wine}
?: (~(meet ut sut) -:!>(*span))
[dex %span]
?- sut
$noun [dex sut]
$void [dex sut]
{$atom *} [dex ?~(q.sut [%mato p.sut] [%pear p.sut u.q.sut])]
{$cell *}
=+ hin=$(sut p.sut)
=+ yon=$(dex p.hin, sut q.sut)
:- p.yon
:- %plot
?:(?=({$plot *} q.yon) [q.hin p.q.yon] [q.hin q.yon ~])
::
{$core *}
=+ yad=$(sut p.sut)
:- p.yad
=+ ^= doy ^- {p/(list @ta) q/wine}
?: ?=({$core *} q.yad)
[p.q.yad q.q.yad]
[~ q.yad]
:- %core
:_ q.doy
:_ p.doy
%^ cat 3
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
%~ rent co
New metal boot system.
2016-11-24 07:25:07 +03:00
:+ %$ %ud
|- ^- @
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
?- q.s.q.sut
New metal boot system.
2016-11-24 07:25:07 +03:00
$~ 0
{* $~ $~} 1
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
{* $~ *} +($(q.s.q.sut r.q.s.q.sut))
{* * $~} +($(q.s.q.sut l.q.s.q.sut))
New metal boot system.
2016-11-24 07:25:07 +03:00
{* * *} .+ %+ add
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
$(q.s.q.sut l.q.s.q.sut)
$(q.s.q.sut r.q.s.q.sut)
New metal boot system.
2016-11-24 07:25:07 +03:00
== ==
%^ cat 3
Restore metals.
2017-09-20 08:32:08 +03:00
?-(p.q.sut $gold '.', $iron '|', $lead '?', $zinc '&')
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=+ gum=(mug q.s.q.sut)
New metal boot system.
2016-11-24 07:25:07 +03:00
%+ can 3
:~ [1 (add 'a' (mod gum 26))]
[1 (add 'a' (mod (div gum 26) 26))]
[1 (add 'a' (mod (div gum 676) 26))]
==
Implement doccords in hoon. This adds syntax to the language to embed documentation. You can either the new ^: rune, or the irregular ''':doccord.''': syntax. This patch adds the language feature, but does not use it. Author: Elliot Glaysher <erg@google.com> Date: Wed Mar 1 18:21:26 2017 -0800
2017-03-02 05:21:26 +03:00
::
{$help *}
$(sut q.sut)
New metal boot system.
2016-11-24 07:25:07 +03:00
::
{$face *}
=+ yad=$(sut q.sut)
coherent-cords-d, chapters, initial commit.
2017-03-22 03:56:51 +03:00
?^(q.p.sut yad [p.yad [%face q.p.sut q.yad]])
New metal boot system.
2016-11-24 07:25:07 +03:00
::
{$fork *}
=+ yed=(~(tap in p.sut))
$ runes converted.
2017-09-18 02:31:49 +03:00
=- [p [%bcwt q]]
New metal boot system.
2016-11-24 07:25:07 +03:00
|- ^- {p/{p/(map span @) q/(map @ wine)} q/(list wine)}
?~ yed
[dex ~]
=+ mor=$(yed t.yed)
=+ dis=^$(dex p.mor, sut i.yed)
[p.dis q.dis q.mor]
::
{$hold *}
=+ hey=(~(get by p.dex) sut)
?^ hey
[dex [%stop u.hey]]
?: (~(has in gil) sut)
=+ dyr=+(~(wyt by p.dex))
[[(~(put by p.dex) sut dyr) q.dex] [%stop dyr]]
=+ rom=$(gil (~(put in gil) sut), sut ~(repo ut sut))
=+ rey=(~(get by p.p.rom) sut)
?~ rey
rom
[[p.p.rom (~(put by q.p.rom) u.rey q.rom)] [%stop u.rey]]
==
::
++ duck (dial dole)
--
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
++ cain sell :: $-(vase tank)
New metal boot system.
2016-11-24 07:25:07 +03:00
++ noah text :: $-(vase tape)
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
++ onan seer :: $-(vise vase)
New metal boot system.
2016-11-24 07:25:07 +03:00
++ text :: tape pretty-print
|= vax/vase ^- tape
~(ram re (sell vax))
::
++ seem |=(toy/typo `span`toy) :: promote typo
++ seer |=(vix/vise `vase`vix) :: promote vise
++ sell :: tank pretty-print
|= vax/vase ^- tank
~| %sell
(~(deal us p.vax) q.vax)
::
++ skol :: $-(span tank) for ~!
|= typ/span ^- tank
~(duck ut typ)
::
++ slam :: slam a gate
|= {gat/vase sam/vase} ^- vase
=+ :- ^= typ ^- span
[%cell p.gat p.sam]
^= gen ^- twig
Convert %~.
2017-09-19 01:32:35 +03:00
[%cnsg [%$ ~] [%$ 2] [%$ 3] ~]
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ gun=(~(mint ut typ) %noun gen)
[p.gun .*([q.gat q.sam] q.gun)]
::
++ slab :: test if contains
|= {cog/@tas typ/span}
=(& -:(~(find ut typ) %free [cog ~]))
::
++ slap
|= {vax/vase gen/twig} ^- vase :: untyped vase .*
=+ gun=(~(mint ut p.vax) %noun gen)
[p.gun .*(q.vax q.gun)]
::
++ slew :: get axis in vase
|= {axe/@ vax/vase} ^- (unit vase)
?. |- ^- ?
?: =(1 axe) &
?. ?=(^ q.vax) |
$(axe (mas axe), q.vax .*(q.vax [0 (cap axe)]))
~
`[(~(peek ut p.vax) %free axe) .*(q.vax [0 axe])]
::
++ slim :: identical to seer?
|= old/vise ^- vase
old
::
++ slit :: span of slam
|= {gat/span sam/span}
?> (~(nest ut (~(peek ut gat) %free 6)) & sam)
Convert %~.
2017-09-19 01:32:35 +03:00
(~(play ut [%cell gat sam]) [%cnsg [%$ ~] [%$ 2] [%$ 3] ~])
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ slob :: superficial arm
|= {cog/@tas typ/span}
^- ?
?+ typ |
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
{$hold *} $(typ ~(repo ut typ))
{$core *}
|- ^- ?
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
?~ q.s.q.typ |
?| (~(has by q.q.n.q.s.q.typ) cog)
$(q.s.q.typ l.q.s.q.typ)
$(q.s.q.typ r.q.s.q.typ)
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
==
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
++ sloe :: get arms in core
|= typ/span
^- (list term)
?+ typ ~
{$hold *} $(typ ~(repo ut typ))
{$core *}
Fix sloe so that it is chapter aware.
2017-05-29 20:17:36 +03:00
%- zing
%+ turn (~(tap by q.s.q.typ) ~)
++chap should have an (unit term) instead of a (list term).
2017-06-03 19:42:30 +03:00
|= {* b/tomb}
Merge remote-tracking branch 'eglaysher/new-dojo-unified' into piaf Non-compiling branch which uses the features it adds.
2017-09-13 04:19:23 +03:00
%+ turn (~(tap by q.b) ~)
|= {a/term *}
a
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
++ slop :: cons two vases
|= {hed/vase tal/vase}
^- vase
[[%cell p.hed p.tal] [q.hed q.tal]]
::
++ slot :: got axis in vase
|= {axe/@ vax/vase} ^- vase
[(~(peek ut p.vax) %free axe) .*(q.vax [0 axe])]
::
++ slym :: slam w+o sample-span
|= {gat/vase sam/*} ^- vase
(slap gat(+<.q sam) [%limb %$])
::
++ spec :: reconstruct span
|= vax/vase
^- vase
:_ q.vax
?@ q.vax (~(fuse ut p.vax) [%atom %$ ~])
?@ -.q.vax
^= typ
%- ~(play ut p.vax)
[%sure [%fits [%leaf %tas -.q.vax] [%& 2]~] [%$ 1]]
(~(fuse ut p.vax) [%cell %noun %noun])
::
:::: 5d: parser
::
++ vang
|= {bug/? wer/path}
%*(. vast bug bug, wer wer)
::
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
++ vast
=+ [bug=`?`| wer=*path]
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Implement doccords in hoon. This adds syntax to the language to embed documentation. You can either the new ^: rune, or the irregular ''':doccord.''': syntax. This patch adds the language feature, but does not use it. Author: Elliot Glaysher <erg@google.com> Date: Wed Mar 1 18:21:26 2017 -0800
2017-03-02 05:21:26 +03:00
::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ gash %+ cook
|= a/(list tyke) ^- tyke
?~(a ~ (weld i.a $(a t.a)))
(more fas gasp)
++ gasp ;~ pose
%+ cook
|=({a/tyke b/tyke c/tyke} :(weld a b c))
;~ plug
(cook |=(a/(list) (turn a |=(b/* ~))) (star tis))
(cook |=(a/twig [[~ a] ~]) hasp)
(cook |=(a/(list) (turn a |=(b/* ~))) (star tis))
==
(cook |=(a/(list) (turn a |=(b/* ~))) (plus tis))
==
++ glam ~+((glue ace))
++ hasp ;~ pose
(ifix [sel ser] wide)
%call attempt.
2017-09-19 08:40:30 +03:00
(stag %cnhp (ifix [pel per] (most ace wide)))
New metal boot system.
2016-11-24 07:25:07 +03:00
(stag %sand (stag %t qut))
%+ cook
|=(a/coin [%sand ?:(?=({$~ $tas *} a) %tas %ta) ~(rent co a)])
nuck:so
==
++ mota %+ cook
|=({a/tape b/tape} (rap 3 (weld a b)))
;~(plug (star low) (star hig))
Complete decoration system.
2017-04-05 03:33:20 +03:00
++ glom
|= {wit/whit taw/whit}
^- whit
:* ?~(lab.wit lab.taw lab.wit)
?~(boy.wit boy.taw boy.wit)
(~(uni by def.wit) def.taw)
(~(uni in use.wit) use.taw)
==
++ docs
|%
:: above core
::
++ apex
%+ cook beer
;~ plug
=/ ron (punt (into noel))
(punt (ifix [ron ron] (into (step head))))
;~(pfix (punt (into null)) (punt body))
(star fill)
==
:: backward line
::
++ apse
;~ pose
%+ cook
|= a/(each (pair term cord) cord)
^- whit
?- -.a
$& [~ ~ [[p.p.a [q.p.a ~]] ~ ~] ~]
$| [~ `[p.a ~] ~ ~]
==
(exit (step (pick fine line)))
(easy *whit)
==
::
::
++ beer
|= $: a/(unit term)
b/(unit (pair cord (list sect)))
c/(list (pair (pair term cord) (list sect)))
==
^- whit
=/ d
|- ^- (map term (pair cord (list sect)))
?~ c ~
=/ e $(c t.c)
(~(put by e) p.p.i.c [q.p.i.c q.i.c])
[a b d ~]
::
::
++ body
;~ sfix
;~ pose
;~ plug
(into ;~(pfix (punt ;~(plug (star ace) col gar)) (step line)))
(easy ~)
==
;~ plug
(into (dubs line))
(rant text)
==
==
(punt (into null))
==
::
:: null: blank line
:: line: prose line
:: code: code line
:: text: text line
:: fine: definition line
::
++ line (cook crip ;~(plug prz (star prn)))
Change title specifier from `||` to `#`.
2017-05-08 01:45:26 +03:00
++ head ;~(pfix ;~(plug hax ace ace cen) sym)
Complete decoration system.
2017-04-05 03:33:20 +03:00
++ text (pick line code)
++ code (cook crip (dubs (star prn)))
++ null (star ace)
Change title specifier from `||` to `#`.
2017-05-08 01:45:26 +03:00
++ noel ;~(pose (step ;~(sfix hax (star ace))) null)
Complete decoration system.
2017-04-05 03:33:20 +03:00
++ fine ;~(plug sym (cook crip ;~(pfix ;~(plug col ace) (star prn))))
::
:: lean: line delimited
::
++ lean
|* gyf/rule
|* bod/rule
;~(pfix ;~(plug col gyf) bod)
::
:: step: indent
::
++ step
|* fel/rule
;~(pfix ;~(plug ace ace) fel)
::
:: dubs: double-indent
::
++ dubs
|* fel/rule
;~(pfix ;~(plug ace ace ace ace) fel)
::
:: into: :> to end of line, consuming following space.
::
++ into
|* bod/rule
;~(sfix ((lean gar) bod) ;~(plug (just `@`10) (punt gap)))
::
:: exit: :< to end of line, not consuming following space.
::
++ exit
|* bod/rule
;~(pfix (star ace) ((lean gal) bod))
::
:: fill: full definition
::
++ fill
;~ sfix
;~(plug (into (step fine)) (rant (step text)))
(punt (into null))
==
::
:: rant: series of sections.
::
++ rant
|* sec/rule
%- star
;~ pfix
(into null)
(plus (into (step sec)))
==
--
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ plex
|= gen/twig ^- (unit path)
?: ?=({$dbug *} gen)
$(gen q.gen)
All : runes.
2017-09-18 21:50:10 +03:00
?. ?=({$clsg *} gen) ~
New metal boot system.
2016-11-24 07:25:07 +03:00
%+ reel p.gen
|= {a/twig b/_`(unit path)`[~ u=/]}
?~ b ~
?. ?=({$sand ?($ta $tas) @} a) ~
`[q.a u.b]
::
++ pray
|= gen/twig ~| %pray ^- (unit twig)
~& [%pray-disabled gen]
!!
::
++ prey
|= gun/(list twig) ^- (unit twig)
?~ gun `[%$ 1]
=+ gup=(pray i.gun)
?~ gup ~
?~ t.gun gup
(bind $(gun t.gun) |=(a/twig [%per u.gup a]))
::
++ phax
|= ruw/(list (list woof))
=+ [yun=*(list twig) cah=*(list @)]
=+ wod=|=({a/tape b/(list twig)} ^+(b ?~(a b [[%nub %knit (flop a)] b])))
|- ^+ yun
?~ ruw
(flop (wod cah yun))
?~ i.ruw $(ruw t.ruw)
?@ i.i.ruw
$(i.ruw t.i.ruw, cah [i.i.ruw cah])
$(i.ruw t.i.ruw, cah ~, yun [p.i.i.ruw (wod cah yun)])
::
++ posh
|= {pre/(unit tyke) pof/(unit {p/@ud q/tyke})}
^- (unit (list twig))
=- ?^(- - ~&(%posh-fail -))
=+ wom=(poof wer)
%+ biff
?~ pre `u=wom
%+ bind (poon wom u.pre)
|= moz/(list twig)
?~(pof moz (weld moz (slag (lent u.pre) wom)))
|= yez/(list twig)
?~ pof `yez
=+ zey=(flop yez)
=+ [moz=(scag p.u.pof zey) gul=(slag p.u.pof zey)]
=+ zom=(poon (flop moz) q.u.pof)
?~(zom ~ `(weld (flop gul) u.zom))
::
++ poof |=(pax/path ^-((list twig) (turn pax |=(a/@ta [%sand %ta a]))))
++ poon
|= {pag/(list twig) goo/tyke}
^- (unit (list twig))
?~ goo `~
%+ both
?^(i.goo i.goo ?~(pag ~ `u=i.pag))
$(goo t.goo, pag ?~(pag ~ t.pag))
::
++ poor
%+ sear posh
;~ plug
(stag ~ gash)
;~(pose (stag ~ ;~(pfix cen porc)) (easy ~))
==
::
++ porc
;~ plug
(cook |=(a/(list) (lent a)) (star cen))
;~(pfix fas gash)
==
::
++ rump
%+ sear
|= {a/wing b/(unit twig)} ^- (unit twig)
?~(b [~ %wing a] ?.(?=({@ $~} a) ~ [~ [%rock %tas i.a] u.b]))
;~(plug rope ;~(pose (stag ~ ;~(pfix lus wide)) (easy ~)))
::
++ rood
;~ pfix fas
All : runes.
2017-09-18 21:50:10 +03:00
(stag %clsg poor)
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
++ rupl
%+ cook
|= {a/? b/(list twig) c/?}
?: a
?: c
All : runes.
2017-09-18 21:50:10 +03:00
[%clsg [%clsg b] ~]
[%clsg b]
New metal boot system.
2016-11-24 07:25:07 +03:00
?: c
All : runes.
2017-09-18 21:50:10 +03:00
[%clsg [%cltr b] ~]
[%cltr b]
New metal boot system.
2016-11-24 07:25:07 +03:00
;~ plug
;~ pose
(cold | (just '['))
(cold & (jest '~['))
==
::
;~ pose
(ifix [ace gap] (most gap tall))
(most ace wide)
==
::
;~ pose
(cold & (jest ']~'))
(cold | (just ']'))
==
==
::
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
++ sail :: xml template
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
|= in-tall-form/? =| lin/?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
::
++ apex :: product twig
New metal boot system.
2016-11-24 07:25:07 +03:00
%+ cook
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
|= tum/mare:twig ^- twig
?- -.tum
$& [%xmn p.tum]
$| [%xml p.tum]
==
top-level
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
++ top-level :: entry-point
;~(pfix sem ?:(in-tall-form tall-top wide-top))
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
++ inline-embed :: brace interpolation
%+ cook |=(a/tuna:twig a)
New metal boot system.
2016-11-24 07:25:07 +03:00
;~ pose
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
;~(pfix sem bracketed-elem(in-tall-form |))
;~(plug tuna-mode sump)
(stag %tape sump)
==
::
++ script-or-style :: script or style
%+ cook |=(a/marx:twig a)
;~ plug
;~(pose (jest %script) (jest %style))
wide-attrs
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
++ tuna-mode :: xml node(s) kind
New metal boot system.
2016-11-24 07:25:07 +03:00
;~ pose
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
(cold %tape hep)
(cold %manx lus)
(cold %marl tar)
%call attempt.
2017-09-19 08:40:30 +03:00
(cold %cnhp cen)
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
++ wide-top :: wide outer top
%+ knee *mare:twig |. ~+
New metal boot system.
2016-11-24 07:25:07 +03:00
;~ pose
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
(stag %| wide-quote)
(stag %| wide-paren-elems)
(stag %& ;~(plug tag-head wide-tail))
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
++ wide-inner-top :: wide inner top
%+ knee *maru:twig |. ~+
;~ pose
wide-top
(stag %& ;~(plug tuna-mode wide))
==
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
++ wide-attrs :: wide attributes
%+ cook |=(a/(unit mart:twig) (fall a ~))
%- punt
%+ ifix [pel per]
%+ more (jest ', ')
;~((glue ace) a-mane hopefully-quote)
::
++ wide-tail :: wide elements
%+ cook |=(a/marl:twig a)
;~(pose ;~(pfix col wrapped-elems) (cold ~ sem) (easy ~))
::
++ wide-elems :: wide elements
%+ cook |=(a/marl:twig a)
%+ cook join-tops
(star ;~(pfix ace wide-inner-top))
::
++ wide-paren-elems :: wide flow
%+ cook |=(a/marl:twig a)
%+ cook join-tops
(ifix [pel per] (more ace wide-inner-top))
::
::+|
::
++ drop-top
|= a/maru:twig ^- marl:twig
?- -.a
$& [p.a]~
$| p.a
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
++ join-tops
|= a/(list maru:twig) ^- marl:twig
(zing (turn a drop-top))
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
::+|
::
++ wide-quote :: wide quote
%+ cook |=(a/marl:twig a)
;~ pose
;~ less (jest '"""')
(ifix [doq doq] (cook collapse-chars quote-innards))
New metal boot system.
2016-11-24 07:25:07 +03:00
==
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
::
%- inde
%+ ifix [(jest '"""\0a') (jest '\0a"""')]
(cook collapse-chars quote-innards(lin |))
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
++ quote-innards :: wide+tall flow
%+ cook |=(a/(list $@(@ tuna:twig)) a)
New metal boot system.
2016-11-24 07:25:07 +03:00
%- star
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
;~ pose
;~(pfix bas ;~(pose (mask "-+*%;\{") bas doq bix:ab))
inline-embed
;~(less bas kel ?:(in-tall-form fail doq) prn)
?:(lin fail ;~(less (jest '\0a"""') (just '\0a')))
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
++ bracketed-elem :: bracketed element
%+ ifix [kel ker]
;~(plug tag-head wide-elems)
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
++ wrapped-elems :: wrapped tuna
%+ cook |=(a/marl:twig a)
New metal boot system.
2016-11-24 07:25:07 +03:00
;~ pose
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
wide-paren-elems
(cook |=(@t `marl`[;/((trip +<))]~) qut)
(cook drop-top wide-top)
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
::+|
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
++ a-mane :: mane as twig
%+ cook
|= {a/@tas b/(unit @tas)}
?~(b a [a u.b])
;~(plug sym ;~(pose (stag ~ ;~(pfix cab sym)) (easy ~)))
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
++ en-class
|= a/(list {$class p/term})
^- (unit {$class tape})
?~ a ~
%- some
:- %class
|-
%+ welp (trip p.i.a)
?~ t.a ~
[' ' $(a t.a)]
::
++ tag-head :: tag head
%+ cook
=+ twig ::REVIEW rename dynamic xml types
|= {a/mane b/mart c/mart}
^- marx
[a (weld b c)]
;~ plug
a-mane
::
%+ cook
|= a/(list (unit {term (list beer:twig)}))
^- (list {term (list beer:twig)})
:: discard nulls
(murn a same)
;~ plug
(punt ;~(plug (cold %id hax) (cook trip sym)))
(cook en-class (star ;~(plug (cold %class dot) sym)))
(punt ;~(plug ;~(pose (cold %href fas) (cold %src pat)) soil))
(easy ~)
New metal boot system.
2016-11-24 07:25:07 +03:00
==
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
::
wide-attrs
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
::+|
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
++ tall-top :: tall top
%+ knee *mare:twig |. ~+
New metal boot system.
2016-11-24 07:25:07 +03:00
;~ pose
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
(stag %| ;~(pfix (plus ace) (cook collapse-chars quote-innards)))
(stag %& ;~(plug script-or-style script-style-tail))
(stag %& tall-elem)
(stag %| wide-quote)
(stag %| ;~(pfix tis tall-tail))
(stag %| ;~(plug ;~((glue gap) tuna-mode tall) (easy ~)))
(easy %| [;/("\0a")]~)
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
++ tall-attrs :: tall attributes
%- star
;~ pfix ;~(plug gap tis)
;~((glue gap) a-mane hopefully-quote)
==
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
++ tall-elem :: tall preface
%+ cook
=+ twig ::REVIEW rename dynamic xml types
|= {a/{p/mane q/mart} b/mart c/marl}
^- manx
[[p.a (weld q.a b)] c]
;~(plug tag-head tall-attrs tall-tail)
::
::+|
::
::REVIEW is there a better way to do this?
++ hopefully-quote :: prefer "quote" form
%+ cook |=(a/(list beer:twig) a)
%+ cook |=(a/twig ?:(?=($knit -.a) p.a [~ a]~))
wide
::
++ script-style-tail :: unescaped tall tail
%+ cook |=(a/marl:twig a)
%+ ifix [gap ;~(plug gap duz)]
%+ most gap
;~ pfix sem
%+ cook |=(a/tape ;/(a))
;~ pose
;~(pfix ace (star prn))
(easy "\0a")
New metal boot system.
2016-11-24 07:25:07 +03:00
==
==
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
++ tall-tail :: tall tail
?> in-tall-form
%+ cook |=(a/marl:twig a)
New metal boot system.
2016-11-24 07:25:07 +03:00
;~ pose
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
(cold ~ sem)
;~(pfix col wrapped-elems(in-tall-form |))
;~(pfix col ace (cook collapse-chars(in-tall-form |) quote-innards))
(cook join-tops (ifix [gap ;~(plug gap duz)] (most gap top-level)))
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
++ collapse-chars :: group consec chars
|= reb/(list $@(@ tuna:twig))
^- marl:twig
=| {sim/(list @) tuz/marl:twig}
|- ^- marl:twig
New metal boot system.
2016-11-24 07:25:07 +03:00
?~ reb
=. sim
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
?. in-tall-form sim
New metal boot system.
2016-11-24 07:25:07 +03:00
[10 |-(?~(sim sim ?:(=(32 i.sim) $(sim t.sim) sim)))]
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
?~(sim tuz [;/((flop sim)) tuz])
New metal boot system.
2016-11-24 07:25:07 +03:00
?@ i.reb
$(reb t.reb, sim [i.reb sim])
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
?~ sim [i.reb $(reb t.reb, sim ~)]
[;/((flop sim)) i.reb $(reb t.reb, sim ~)]
New metal boot system.
2016-11-24 07:25:07 +03:00
--
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
++ scab
%+ cook
|= a/(list wing) ^- twig
$ runes converted.
2017-09-18 02:31:49 +03:00
:- %bcsm
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
|- ^- twig
?~(a !! ?~(t.a [%wing i.a] [%rap [%wing i.a] $(a t.a)]))
(most col rope)
::
++ scad !:
%+ knee *root |. ~+
%- stew
^. stet ^. limo
:~
:- '_'
$ runes converted.
2017-09-18 02:31:49 +03:00
;~(pfix cab (stag %bccb wide))
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
:- '$'
;~ pose
;~ pfix buc
;~ pose
(stag %leaf (stag %tas (cold %$ buc)))
(stag %leaf (stag %f (cold & pam)))
(stag %leaf (stag %f (cold | bar)))
(stag %leaf (stag %t qut))
(stag %leaf (sear |=(a/coin ?:(?=($$ -.a) (some +.a) ~)) nuck:so))
==
==
$ runes converted.
2017-09-18 02:31:49 +03:00
(stag %bcsm rump)
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
==
:- '%'
;~ pose
;~ pfix cen
;~ pose
(stag %leaf (stag %tas (cold %$ buc)))
(stag %leaf (stag %f (cold & pam)))
(stag %leaf (stag %f (cold | bar)))
(stag %leaf (stag %t qut))
(stag %leaf (sear |=(a/coin ?:(?=($$ -.a) (some +.a) ~)) nuck:so))
==
==
==
:- '('
$ runes converted.
2017-09-18 02:31:49 +03:00
%+ stag %bcsm
%call attempt.
2017-09-19 08:40:30 +03:00
%+ stag %cnhp
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
%+ ifix [pel per]
;~(plug wide ;~(pose ;~(pfix ace (most ace wyde)) (easy ~)))
:- '{'
$ runes converted.
2017-09-18 02:31:49 +03:00
(stag %bccl (ifix [kel ker] (most ace wyde)))
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
:- '['
$ runes converted.
2017-09-18 02:31:49 +03:00
(stag %bccl (ifix [sel ser] (most ace wyde)))
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
:- '*'
(cold [%base %noun] tar)
:- '@'
;~(pfix pat (stag %base (stag %atom mota)))
:- '?'
;~ pose
$ runes converted.
2017-09-18 02:31:49 +03:00
(stag %bcwt ;~(pfix wut (ifix [pel per] (most ace wyde))))
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
(cold [%base %bean] wut)
==
:- '^'
;~ pose
scab
(cold [%base %cell] ket)
==
:- '.'
scab
:- ['a' 'z']
;~ pose
$ runes converted.
2017-09-18 02:31:49 +03:00
(stag %bcts ;~(plug sym ;~(pfix ;~(pose fas tis) wyde)))
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
scab
==
==
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ scat !:
%+ knee *twig |. ~+
%- stew
^. stet ^. limo
:~
:- ','
;~ pose
(stag %wing rope)
Translate ^ runes.
2017-09-20 02:24:30 +03:00
;~(pfix com (stag %ktsg wide))
New metal boot system.
2016-11-24 07:25:07 +03:00
==
:- '!'
;~ pose
(stag %not ;~(pfix zap wide))
(stag %fail (cold ~ ;~(plug zap zap)))
==
:- '_'
$ runes converted.
2017-09-18 02:31:49 +03:00
;~(pfix cab (stag %bccb wide))
New metal boot system.
2016-11-24 07:25:07 +03:00
:- '$'
;~ pose
;~ pfix buc
;~ pose
(stag %leaf (stag %tas (cold %$ buc)))
(stag %leaf (stag %f (cold & pam)))
(stag %leaf (stag %f (cold | bar)))
(stag %leaf (stag %t qut))
(stag %leaf (sear |=(a/coin ?:(?=($$ -.a) (some +.a) ~)) nuck:so))
==
==
rump
==
:- '%'
;~ pfix cen
;~ pose
All : runes.
2017-09-18 21:50:10 +03:00
(stag %clsg (sear |~({a/@ud b/tyke} (posh ~ ~ a b)) porc))
New metal boot system.
2016-11-24 07:25:07 +03:00
(stag %rock (stag %tas (cold %$ buc)))
(stag %rock (stag %f (cold & pam)))
(stag %rock (stag %f (cold | bar)))
(stag %rock (stag %t qut))
(cook (jock &) nuck:so)
All : runes.
2017-09-18 21:50:10 +03:00
(stag %clsg (sear |=(a/(list) (posh ~ ~ (lent a) ~)) (star cen)))
New metal boot system.
2016-11-24 07:25:07 +03:00
==
==
:- '&'
;~ pose
Converted %=.
2017-09-19 03:19:22 +03:00
(cook |=(a/wing [%cnts a ~]) rope)
New metal boot system.
2016-11-24 07:25:07 +03:00
(stag %and ;~(pfix pam (ifix [pel per] (most ace wide))))
;~(plug (stag %rock (stag %f (cold & pam))) ;~(pfix lus wide))
(stag %sand (stag %f (cold & pam)))
==
:- '\''
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
(stag %sand (stag %t qut))
New metal boot system.
2016-11-24 07:25:07 +03:00
:- '('
%call attempt.
2017-09-19 08:40:30 +03:00
(stag %cnhp (ifix [pel per] (most ace wide)))
New metal boot system.
2016-11-24 07:25:07 +03:00
:- '{'
$ runes converted.
2017-09-18 02:31:49 +03:00
(stag %bccl (ifix [kel ker] (most ace wide)))
New metal boot system.
2016-11-24 07:25:07 +03:00
:- '*'
;~ pose
(stag %bunt ;~(pfix tar wide))
(cold [%base %noun] tar)
==
:- '@'
;~(pfix pat (stag %base (stag %atom mota)))
:- '+'
;~ pose
Adapt all . runes.
2017-09-19 23:37:15 +03:00
(stag %dtls ;~(pfix lus (ifix [pel per] wide)))
New metal boot system.
2016-11-24 07:25:07 +03:00
::
%+ cook
|= a/(list (list woof))
:- %nub
[%knit |-(^-((list woof) ?~(a ~ (weld i.a $(a t.a)))))]
(most dog ;~(pfix lus soil))
::
Converted %=.
2017-09-19 03:19:22 +03:00
(cook |=(a/wing [%cnts a ~]) rope)
New metal boot system.
2016-11-24 07:25:07 +03:00
==
:- '-'
;~ pose
(stag %sand tash:so)
::
%+ cook
|= a/(list (list woof))
All : runes.
2017-09-18 21:50:10 +03:00
[%clsg (phax a)]
New metal boot system.
2016-11-24 07:25:07 +03:00
(most dog ;~(pfix hep soil))
::
Converted %=.
2017-09-19 03:19:22 +03:00
(cook |=(a/wing [%cnts a ~]) rope)
New metal boot system.
2016-11-24 07:25:07 +03:00
==
:- '.'
;~ pose
(cook (jock |) ;~(pfix dot perd:so))
Converted %=.
2017-09-19 03:19:22 +03:00
(cook |=(a/wing [%cnts a ~]) rope)
New metal boot system.
2016-11-24 07:25:07 +03:00
==
:- ['0' '9']
%+ cook
|= {a/dime b/(unit twig)}
?~(b [%sand a] [[%rock a] u.b])
;~(plug bisk:so (punt ;~(pfix lus wide)))
:- ':'
;~ pfix col
;~ pose
(stag %wad (ifix [pel per] (most ace wide)))
;~(pfix fas (stag %nub wide))
==
==
:- '='
Adapt all . runes.
2017-09-19 23:37:15 +03:00
(stag %dtts ;~(pfix tis (ifix [pel per] ;~(glam wide wide))))
New metal boot system.
2016-11-24 07:25:07 +03:00
:- '?'
;~ pose
$ runes converted.
2017-09-18 02:31:49 +03:00
(stag %bcwt ;~(pfix wut (ifix [pel per] (most ace wide))))
New metal boot system.
2016-11-24 07:25:07 +03:00
(cold [%base %bean] wut)
==
:- '['
rupl
:- '^'
;~ pose
(stag %wing rope)
(cold [%base %cell] ket)
==
:- '`'
;~ pfix tec
;~ pose
%+ cook
Translate ^ runes.
2017-09-20 02:24:30 +03:00
|=({a/@ta b/twig} [%ktls [%sand a 0] [%ktls [%sand %$ 0] b]])
New metal boot system.
2016-11-24 07:25:07 +03:00
;~(pfix pat ;~(plug mota ;~(pfix tec wide)))
;~ pfix tar
Translate ^ runes.
2017-09-20 02:24:30 +03:00
(stag %kthp (stag [%base %noun] ;~(pfix tec wide)))
New metal boot system.
2016-11-24 07:25:07 +03:00
==
Translate ^ runes.
2017-09-20 02:24:30 +03:00
(stag %kthp ;~(plug wide ;~(pfix tec wide)))
(stag %ktls ;~(pfix lus ;~(plug wide ;~(pfix tec wide))))
New metal boot system.
2016-11-24 07:25:07 +03:00
(cook |=(a/twig [[%rock %n ~] a]) wide)
==
==
:- '"'
%+ cook
|= a/(list (list woof))
[%knit |-(^-((list woof) ?~(a ~ (weld i.a $(a t.a)))))]
(most dog soil)
:- ['a' 'z']
rump
:- '|'
;~ pose
Converted %=.
2017-09-19 03:19:22 +03:00
(cook |=(a/wing [%cnts a ~]) rope)
New metal boot system.
2016-11-24 07:25:07 +03:00
(stag %or ;~(pfix bar (ifix [pel per] (most ace wide))))
;~(plug (stag %rock (stag %f (cold | bar))) ;~(pfix lus wide))
(stag %sand (stag %f (cold | bar)))
==
:- '~'
;~ pose
rupl
::
;~ pfix sig
;~ pose
All : runes.
2017-09-18 21:50:10 +03:00
(stag %clsg (ifix [sel ser] (most ace wide)))
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Convert %~.
2017-09-19 01:32:35 +03:00
%+ stag %cnsg
New metal boot system.
2016-11-24 07:25:07 +03:00
%+ ifix
[pel per]
;~(glam rope wide (most ace wide))
::
(cook (jock |) twid:so)
(stag [%bust %null] ;~(pfix lus wide))
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
(easy [%bust %null])
New metal boot system.
2016-11-24 07:25:07 +03:00
==
==
==
:- '/'
rood
:- '<'
(ifix [gal gar] (stag %tell (most ace wide)))
:- '>'
(ifix [gar gal] (stag %yell (most ace wide)))
==
++ soil
;~ pose
;~ less (jest '"""')
%+ ifix [doq doq]
%- star
;~ pose
;~(pfix bas ;~(pose bas doq kel bix:ab))
;~(less doq bas kel prn)
(stag ~ sump)
==
==
::
%- iny %+ ifix
[(jest '"""\0a') (jest '\0a"""')]
%- star
;~ pose
;~(pfix bas ;~(pose bas kel bix:ab))
;~(less bas kel prn)
;~(less (jest '\0a"""') (just `@`10))
(stag ~ sump)
==
==
All : runes.
2017-09-18 21:50:10 +03:00
++ sump (ifix [kel ker] (stag %cltr (most ace wide)))
New metal boot system.
2016-11-24 07:25:07 +03:00
++ norm :: rune regular form
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
|= {rut/? tol/?}
=< ?: rut
%- stew
^. stet ^. limo
:~ :- '$'
;~ pfix buc
%- stew
^. stet ^. limo
%claw to %bcpt.
2017-09-18 01:10:40 +03:00
:~ ['@' (rune pat %bcpt exqb)]
$ runes converted.
2017-09-18 02:31:49 +03:00
['_' (rune cab %bccb expa)]
[':' (rune col %bccl exqs)]
['%' (rune cen %bccn exqs)]
['^' (rune ket %bckt exqb)]
['-' (rune hep %bchp exqb)]
['=' (rune tis %bcts exqg)]
['?' (rune wut %bcwt exqs)]
[';' (rune sem %bcsm expa)]
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
==
==
:- '%'
;~ pfix cen
%- stew
^. stet ^. limo
All % runes except %-.
2017-09-19 03:55:32 +03:00
:~ ['^' (rune ket %cnkt exqy)]
['+' (rune lus %cnls exqx)]
%call attempt.
2017-09-19 08:40:30 +03:00
['-' (rune hep %cnhp exqk)]
[':' (rune col %cnhp exqz)]
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
==
==
==
%- stew
New metal boot system.
2016-11-24 07:25:07 +03:00
^. stet ^. limo
:~ :- '|'
;~ pfix bar
%- stew
^. stet ^. limo
143: | runes.
2017-09-18 04:32:20 +03:00
:~ ['_' (runo cab %brcb [~ ~] exqr)]
['%' (runo cen %brcn [~ ~] expe)]
[':' (runo col %brcl [~ ~] expb)]
['.' (runo dot %brdt [~ ~] expa)]
['-' (runo hep %brhp [~ ~] expa)]
['^' (runo ket %brkt [~ ~] expx)]
['~' (runo sig %brsg [~ ~] expb)]
['*' (runo tar %brtr [~ ~] exqc)]
Changed one stem: %gate to %brts.
2017-09-17 21:14:12 +03:00
['=' (runo tis %brts [~ ~] exqc)]
143: | runes.
2017-09-18 04:32:20 +03:00
['?' (runo wut %brwt [~ ~] expa)]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
==
:- '$'
;~ pfix buc
%- stew
^. stet ^. limo
%claw to %bcpt.
2017-09-18 01:10:40 +03:00
:~ ['@' (rune pat %bcpt expb)]
$ runes converted.
2017-09-18 02:31:49 +03:00
['_' (rune cab %bccb expa)]
[':' (rune col %bccl exps)]
['%' (rune cen %bccn exps)]
['^' (rune ket %bckt expb)]
['-' (rune hep %bchp expb)]
['=' (rune tis %bcts expg)]
['?' (rune wut %bcwt exps)]
[';' (rune sem %bcsm expa)]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
==
:- '%'
;~ pfix cen
%- stew
^. stet ^. limo
All % runes except %-.
2017-09-19 03:55:32 +03:00
:~ ['_' (rune cab %cncb exph)]
['.' (rune dot %cndt expb)]
['^' (rune ket %cnkt expd)]
['+' (rune lus %cnls expc)]
%call attempt.
2017-09-19 08:40:30 +03:00
['-' (rune hep %cnhp expk)]
[':' (rune col %cnhp expi)]
Convert %~.
2017-09-19 01:32:35 +03:00
['~' (rune sig %cnsg expu)]
Converted %bake.
2017-09-18 22:37:25 +03:00
['*' (rune tar %cntr expm)]
Converted %=.
2017-09-19 03:19:22 +03:00
['=' (rune tis %cnts exph)]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
==
:- ':'
;~ pfix col
;~ pose
%- stew
^. stet ^. limo
All : runes.
2017-09-18 21:50:10 +03:00
:~ ['_' (rune cab %clcb expb)]
['^' (rune ket %clkt expd)]
['+' (rune lus %clls expc)]
Converted :-.
2017-09-18 20:25:05 +03:00
['-' (rune hep %clhp expb)]
All : runes.
2017-09-18 21:50:10 +03:00
['~' (rune sig %clsg exps)]
['*' (rune tar %cltr exps)]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
143: | runes.
2017-09-18 04:32:20 +03:00
(worn %brcb [~ ~] expr)
(worn %brcn [~ ~] expe)
(worn %brcl [~ ~] expb)
(worn %brdt [~ ~] expa)
(worn %brhp [~ ~] expa)
(worn %brkt [~ ~] expx)
(worn %brsg [~ ~] expb)
(worn %brtr [~ ~] expb)
Changed one stem: %gate to %brts.
2017-09-17 21:14:12 +03:00
(worn %brts [~ ~] expb)
143: | runes.
2017-09-18 04:32:20 +03:00
(worn %brwt [~ ~] expa)
New metal boot system.
2016-11-24 07:25:07 +03:00
::
(word %bunt expa)
%claw to %bcpt.
2017-09-18 01:10:40 +03:00
(word %bcpt expb)
$ runes converted.
2017-09-18 02:31:49 +03:00
(word %bccb expa)
(word %bccl exps)
(word %bccn exps)
(word %bckt expb)
(word %bchp expb)
(word %bcts expg)
(word %bcwt exps)
(word %bcsm expa)
New metal boot system.
2016-11-24 07:25:07 +03:00
::
All % runes except %-.
2017-09-19 03:55:32 +03:00
(word %cncb exph)
(word %cndt expb)
(word %cnkt expd)
(word %cnls expc)
%call attempt.
2017-09-19 08:40:30 +03:00
(word %cnhp expk)
Convert %~.
2017-09-19 01:32:35 +03:00
(word %cnsg expu)
Converted %bake.
2017-09-18 22:37:25 +03:00
(word %cntr expm)
Converted %=.
2017-09-19 03:19:22 +03:00
(word %cnts exph)
New metal boot system.
2016-11-24 07:25:07 +03:00
::
All : runes.
2017-09-18 21:50:10 +03:00
(word %clcb expb)
(word %clkt expd)
(word %clls expc)
Converted :-.
2017-09-18 20:25:05 +03:00
(word %clhp expb)
All : runes.
2017-09-18 21:50:10 +03:00
(word %clsg exps)
(word %cltr exps)
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Adapt all . runes.
2017-09-19 23:37:15 +03:00
(word %dtls expa)
(word %dttr expb)
(word %dtts expb)
(word %dtwt expa)
(word %dtkt exqn)
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Translate ^ runes.
2017-09-20 02:24:30 +03:00
(word %ktbr expa)
(word %ktdt expb)
(word %kthp expb)
(word %ktls expb)
(word %ktpm expa)
(word %ktsg expa)
(word %ktts expg)
(word %ktwt expa)
New metal boot system.
2016-11-24 07:25:07 +03:00
::
(word %show expb)
(word %poll expf)
(word %lurk expb)
(word %fast hind)
(word %funk hine)
(word %thin hinb)
(word %hint hinb)
(word %memo hinc)
(word %dump hinf)
(word %warn hing)
(word %ddup expb)
(word %peep expb)
::
(word %wad expi)
(word %nub expa)
(word %dip expi)
(word %fry expb)
::
(word %new expb)
(word %set expq)
Add a tiswut rune which is a conditional tisdot. This changes: =. a ?. =(b c) a c into: =? a =(b c) c This also adds a few obvious changes in the vanes and in app/talk.hoon to take advantage of this new rune.
2016-12-11 03:46:13 +03:00
(word %huh expw)
New metal boot system.
2016-11-24 07:25:07 +03:00
(word %sip expt)
(word %fix expp)
(word %rap expb)
(word %var expo)
(word %rev expo)
(word %per expb)
(word %nip expb)
(word %aka expl)
(word %pin expb)
(word %tow expi)
(word %use expb)
::
(word %or exps)
(word %if expc)
(word %lest expc)
(word %deny expb)
(word %sure expb)
;~(pfix (jest %case) (toad tkhp))
;~(pfix (jest %ifcl) (toad tkkt))
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
;~(pfix (jest %fits) (toad tkts))
New metal boot system.
2016-11-24 07:25:07 +03:00
;~(pfix (jest %deft) (toad tkls))
(word %and exps)
;~(pfix (jest %ifat) (toad tkpt))
;~(pfix (jest %ifno) (toad tksg))
(word %not expa)
::
(word %twig expb)
(word %spit expb)
(word %wrap expa)
(word %code expa)
(word %need hinh)
moar
==
==
:- '.'
;~ pfix dot
%- stew
^. stet ^. limo
Adapt all . runes.
2017-09-19 23:37:15 +03:00
:~ ['+' (rune lus %dtls expa)]
['*' (rune tar %dttr expb)]
['=' (rune tis %dtts expb)]
['?' (rune wut %dtwt expa)]
['^' (rune ket %dtkt exqn)]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
==
:- '^'
;~ pfix ket
%- stew
^. stet ^. limo
Translate ^ runes.
2017-09-20 02:24:30 +03:00
:~ ['|' (rune bar %ktbr expa)]
['.' (rune dot %ktdt expb)]
['-' (rune hep %kthp exqc)]
['+' (rune lus %ktls expb)]
['&' (rune pam %ktpm expa)]
['~' (rune sig %ktsg expa)]
['=' (rune tis %ktts expg)]
['?' (rune wut %ktwt expa)]
['%' (rune cen %ktcn expa)]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
==
:- '~'
;~ pfix sig
%- stew
^. stet ^. limo
:~ ['|' (rune bar %show expb)]
['$' (rune buc %poll expg)]
['_' (rune cab %lurk expb)]
['%' (rune cen %fast hind)]
['/' (rune fas %funk hine)]
['<' (rune gal %thin hinb)]
['>' (rune gar %hint hinb)]
['+' (rune lus %memo hinc)]
['&' (rune pam %dump hinf)]
['?' (rune wut %warn hing)]
['=' (rune tis %ddup expb)]
['!' (rune zap %peep expb)]
==
==
:- ';'
;~ pfix sem
%- stew
^. stet ^. limo
:~ [':' (rune col %wad expi)]
['/' (rune fas %nub expa)]
['~' (rune sig %dip expi)]
[';' (rune sem %fry expb)]
==
==
:- '='
;~ pfix tis
%- stew
^. stet ^. limo
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
:~ ['|' (rune bar %new exqc)]
New metal boot system.
2016-11-24 07:25:07 +03:00
['.' (rune dot %set expq)]
Add a tiswut rune which is a conditional tisdot. This changes: =. a ?. =(b c) a c into: =? a =(b c) c This also adds a few obvious changes in the vanes and in app/talk.hoon to take advantage of this new rune.
2016-12-11 03:46:13 +03:00
['?' (rune wut %huh expw)]
New metal boot system.
2016-11-24 07:25:07 +03:00
['^' (rune ket %sip expt)]
[':' (rune col %fix expp)]
['/' (rune fas %var expo)]
[';' (rune sem %rev expo)]
['<' (rune gal %rap expb)]
['>' (rune gar %per expb)]
['-' (rune hep %nip expb)]
['*' (rune tar %aka expl)]
[',' (rune com %use expb)]
['+' (rune lus %pin expb)]
['~' (rune sig %tow expi)]
==
==
:- '?'
;~ pfix wut
%- stew
^. stet ^. limo
:~ ['|' (rune bar %or exps)]
[':' (rune col %if expc)]
['.' (rune dot %lest expc)]
['<' (rune gal %deny expb)]
['>' (rune gar %sure expb)]
['-' ;~(pfix hep (toad tkhp))]
['^' ;~(pfix ket (toad tkkt))]
['=' ;~(pfix tis (toad tkts))]
['+' ;~(pfix lus (toad tkls))]
['&' (rune pam %and exps)]
['@' ;~(pfix pat (toad tkpt))]
['~' ;~(pfix sig (toad tksg))]
['!' (rune zap %not expa)]
==
==
:- '!'
;~ pfix zap
%- stew
^. stet ^. limo
:~ [':' ;~(pfix col (toad expz))]
['.' ;~(pfix dot (toad |.(loaf(bug |))))]
[',' (rune com %twig expb)]
[';' (rune sem %spit expb)]
['>' (rune gar %wrap expa)]
['=' (rune tis %code expa)]
['?' (rune wut %need hinh)]
==
==
==
|%
++ boog :: core arms
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
%+ knee [p=*term q=*(pair what foot)] |. ~+
Complete decoration system.
2017-04-05 03:33:20 +03:00
%+ cook
|= {a/whit b/term c/whit d/foot}
=+ e=(glom a c)
[b boy.e d]
;~ plug
apex:docs
;~ pfix lus
;~ pose
%+ cook
|=({a/$ash b/term c/whit d/twig} [b c a d])
;~ plug
(cold %ash (just '+'))
;~(pfix gap ;~(pose (cold %$ buc) sym))
apse:docs
;~(pfix gap loaf)
==
::
%+ cook
|=({a/$elm b/term c/whit d/twig} [b c a d])
;~ plug
(cold %elm (just '-'))
;~(pfix gap ;~(pose (cold %$ buc) sym))
apse:docs
;~(pfix gap loaf)
==
::
%+ cook
|=({a/$ash b/term c/whit d/root} [b c a d])
;~ plug
(cold %ash (just '='))
;~(pfix gap sym)
apse:docs
;~(pfix gap loan)
==
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
==
New metal boot system.
2016-11-24 07:25:07 +03:00
==
==
::
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
++ whap :: chapter
(most muck boog)
::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ wisp :: core tail
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
?. tol fail
New metal boot system.
2016-11-24 07:25:07 +03:00
%+ sear
Complete decoration system.
2017-04-05 03:33:20 +03:00
|= a/(list (pair whit (list (pair term (pair what foot)))))
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=| {b/(map @ tomb) c/@}
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
|- ^- (unit (map @ tomb))
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
?~ a `b
=/ d
=| e/(map term (pair what foot))
|- ^- (unit (map term (pair what foot)))
Complete decoration system.
2017-04-05 03:33:20 +03:00
?~ q.i.a `e
?: ?| (~(has by e) p.i.q.i.a)
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
|- ^- ?
?: =(0 c) |
=. c (dec c)
Complete decoration system.
2017-04-05 03:33:20 +03:00
|((~(has by q:(~(got by b) c)) p.i.q.i.a) $)
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
==
Complete decoration system.
2017-04-05 03:33:20 +03:00
:: XX hokey, refactor this to produce %eror
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
::
Complete decoration system.
2017-04-05 03:33:20 +03:00
~&(duplicate-arm+p.i.q.i.a ~)
$(q.i.a t.q.i.a, e (~(put by e) p.i.q.i.a q.i.q.i.a))
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
?~ d ~
++chap should have an (unit term) instead of a (list term).
2017-06-03 19:42:30 +03:00
=* hap `chap`[?~(lab.p.i.a ~ [~ u.lab.p.i.a]) boy.p.i.a]
Complete decoration system.
2017-04-05 03:33:20 +03:00
$(a t.a, b (~(put by b) c [hap u.d]), c +(c))
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
;~ pose
dun
;~ sfix
;~ pose
Complete decoration system.
2017-04-05 03:33:20 +03:00
(most muck ;~(plug apex:docs ;~(pfix ;~(plug lus bar gap) whap)))
;~(plug ;~(plug (easy *whit) whap) (easy ~))
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
==
;~(plug gap dun)
==
==
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ toad :: untrap parser exp
|* har/_expa
=+ dur=(ifix [pel per] $:har(tol |))
?:(tol ;~(pose ;~(pfix gap $:har(tol &)) dur) dur)
::
++ rune :: build rune
|* {dif/rule tuq/* har/_expa}
;~(pfix dif (stag tuq (toad har)))
::
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
++ runo :: rune plus
|* {dif/rule hil/* tuq/* har/_expa}
;~(pfix dif (stag hil (stag tuq (toad har))))
::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ word :: build keyword
|* {key/cord har/_expa}
;~(pfix (jest key) (stag key (toad har)))
::
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
++ worn :: padded keyword
|* {key/cord tuq/* har/_expa}
;~(pfix (jest key) (stag key (stag tuq (toad har))))
::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ moar :: :moar hack
%+ cook
|= {a/(list) b/(list (pair wing twig))}
^- twig
Converted %=.
2017-09-19 03:19:22 +03:00
[%cnts [[%| (lent a) `%$] ~] b]
New metal boot system.
2016-11-24 07:25:07 +03:00
;~(pfix (jest %moar) ;~(plug (star (jest %r)) (toad |.((butt rick)))))
::
++ glop ~+((glue mash)) :: separated by space
++ gunk ~+((glue muck)) :: separated list
++ butt |* zor/rule :: closing == if tall
?:(tol ;~(sfix zor ;~(plug gap duz)) zor)
++ ulva |* zor/rule :: closing -- and tall
?.(tol fail ;~(sfix zor ;~(plug gap dun)))
++ hank (most muck loaf) :: gapped twigs
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
++ hunk (most muck loan) :: gapped roots
++ loaf ?:(tol tall wide) :: tall/wide twig
++ loan ?:(tol till wyde) :: tall/wide root
New metal boot system.
2016-11-24 07:25:07 +03:00
++ mash ?:(tol gap ;~(plug com ace)) :: list separator
++ muck ?:(tol gap ace) :: general separator
++ teak %+ knee *tiki |. ~+ :: wing or twig
=+ ^= gub
|= {a/term b/$%({$& p/wing} {$| p/twig})}
^- tiki
?-(-.b $& [%& [~ a] p.b], $| [%| [~ a] p.b])
=+ ^= wyp
;~ pose
%+ cook gub
;~ plug
sym
;~(pfix tis ;~(pose (stag %& rope) (stag %| wide)))
==
::
(stag %& (stag ~ rope))
(stag %| (stag ~ wide))
==
?. tol wyp
;~ pose
wyp
::
;~ pfix
;~(plug ket tis gap)
%+ cook gub
;~ plug
sym
;~(pfix gap ;~(pose (stag %& rope) (stag %| tall)))
==
==
::
(stag %| (stag ~ tall))
==
++ rack (most mash ;~(gunk loaf loaf)) :: list [twig twig]
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
++ ruck (most mash ;~(gunk loan loaf)) :: list [root twig]
New metal boot system.
2016-11-24 07:25:07 +03:00
++ rick (most mash ;~(gunk rope loaf)) :: list [wing twig]
::
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
:: twig contents
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ expa |.(loaf) :: one twig
++ expb |.(;~(gunk loaf loaf)) :: two twigs
++ expc |.(;~(gunk loaf loaf loaf)) :: three twigs
++ expd |.(;~(gunk loaf loaf loaf loaf)) :: four twigs
++ expe |.(wisp) :: core tail
++ expf |.(;~(gunk ;~(pfix cen sym) loaf)) :: %term and twig
++ expg |.(;~(gunk sym loaf)) :: term and twig
++ exph |.((butt ;~(gunk rope rick))) :: wing, [tile twig]s
++ expi |.((butt ;~(gunk loaf hank))) :: one or more twigs
++ expk |.(;~(gunk loaf ;~(plug loaf (easy ~)))) :: list of two twigs
Complete decoration system.
2017-04-05 03:33:20 +03:00
++ expl |.(;~(gunk ;~(plug (easy ~) sym) loaf loaf)) :: term, two twigs
New metal boot system.
2016-11-24 07:25:07 +03:00
++ expm |.((butt ;~(gunk rope loaf rick))) :: several [tile twig]s
++ expo |.(;~(gunk wise loaf loaf)) :: =;
++ expp |.(;~(gunk (butt rick) loaf)) :: [wing twig]s, twig
++ expq |.(;~(gunk rope loaf loaf)) :: wing and two twigs
++ expr |.(;~(gunk loaf wisp)) :: twig and core tail
++ exps |.((butt hank)) :: closed gapped twigs
++ expt |.(;~(gunk wise rope loaf loaf)) :: =^
++ expu |.(;~(gunk rope loaf (butt hank))) :: wing, twig, twigs
++ expv |.((butt rick)) :: just changes
Add a tiswut rune which is a conditional tisdot. This changes: =. a ?. =(b c) a c into: =? a =(b c) c This also adds a few obvious changes in the vanes and in app/talk.hoon to take advantage of this new rune.
2016-12-11 03:46:13 +03:00
++ expw |.(;~(gunk rope loaf loaf loaf)) :: wing and three twigs
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
++ expx |. ;~ gunk loaf :: twig and core tail
%+ sear ::
Update |^ duplicate detection. This is the final change in the coherent-cords section. This commit is matched to VM be0ed9dbda81328070a6ace9fd87acf3ad7bce05, the final commit on cgyarvin/coherent-cords-final. It boots with a pill whose md5 is 45111f732e40e3d25c761268883eb412.
2017-04-16 02:34:43 +03:00
|= a/(map @ tomb) ::
^- (unit (map @ tomb)) ::
=* fir (~(got by a) 0) ::
?: (~(has by q.fir) %$) :: %$ in first chapter
~ ::
[~ u=a] ::
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
wisp ::
== ::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ expz |.(loaf(bug &)) :: twig with tracing
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
:: root contents
::
++ exqb |.(;~(gunk loan loan)) :: two roots
++ exqc |.(;~(gunk loan loaf)) :: root then twig
++ exqs |.((butt hunk)) :: closed gapped roots
++ exqg |.(;~(gunk sym loan)) :: term and root
++ exqk |.(;~(gunk loaf ;~(plug loan (easy ~)))) :: twig with one root
++ exqr |.(;~(gunk loan wisp)) :: root and core tail
All : runes.
2017-09-18 21:50:10 +03:00
++ exqn |.(;~(gunk loan (stag %cltr (butt hank)))):: autoconsed twigs
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
++ exqw |.(;~(gunk loaf loan)) :: twig and root
++ exqx |.(;~(gunk loaf loan loan)) :: twig, two roots
++ exqy |.(;~(gunk loaf loan loan loan)) :: twig, three roots
++ exqz |.(;~(gunk loaf (butt hunk))) :: twig, n roots
prevents unsafe $cork (|^) expansion in the parser
2017-03-04 05:33:41 +03:00
::
New metal boot system.
2016-11-24 07:25:07 +03:00
:: tiki expansion for %wt runes
::
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
++ tkhp |. %+ cook |= {a/tiki b/(list (pair root twig))}
New metal boot system.
2016-11-24 07:25:07 +03:00
(~(wthp ah a) b)
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
(butt ;~(gunk teak ruck))
New metal boot system.
2016-11-24 07:25:07 +03:00
++ tkkt |. %+ cook |= {a/tiki b/twig c/twig}
(~(wtkt ah a) b c)
;~(gunk teak loaf loaf)
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
++ tkls |. %+ cook |= {a/tiki b/twig c/(list (pair root twig))}
New metal boot system.
2016-11-24 07:25:07 +03:00
(~(wtls ah a) b c)
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
(butt ;~(gunk teak loaf ruck))
New metal boot system.
2016-11-24 07:25:07 +03:00
++ tkpt |. %+ cook |= {a/tiki b/twig c/twig}
(~(wtpt ah a) b c)
;~(gunk teak loaf loaf)
++ tksg |. %+ cook |= {a/tiki b/twig c/twig}
(~(wtsg ah a) b c)
;~(gunk teak loaf loaf)
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
++ tkts |. %+ cook |= {a/root b/tiki}
New metal boot system.
2016-11-24 07:25:07 +03:00
(~(wtts ah b) a)
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
;~(gunk loan teak)
New metal boot system.
2016-11-24 07:25:07 +03:00
::
:: hint syntax
::
++ hinb |.(;~(gunk bont loaf)) :: hint and twig
++ hinc |. :: optional =en, twig
;~(pose ;~(gunk bony loaf) ;~(plug (easy ~) loaf))
++ hind |.(;~(gunk bonk loaf bonz loaf)) :: jet twig "bon"s twig
++ hine |.(;~(gunk bonk loaf)) :: jet-hint and twig
++ hinf |. :: 0-3 >s, two twigs
;~ pose
;~(gunk (cook lent (stun [1 3] gar)) loaf loaf)
(stag 0 ;~(gunk loaf loaf))
==
++ hing |. :: 0-3 >s, three twigs
;~ pose
;~(gunk (cook lent (stun [1 3] gar)) loaf loaf loaf)
(stag 0 ;~(gunk loaf loaf loaf))
==
++ bonk :: jet signature
;~ pfix cen
;~ pose
;~(plug sym ;~(pfix col ;~(plug sym ;~(pfix dot ;~(pfix dot dem)))))
;~(plug sym ;~(pfix col ;~(plug sym ;~(pfix dot dem))))
;~(plug sym ;~(pfix dot dem))
sym
==
==
++ hinh |. :: 1/2 numbers, twig
;~ gunk
;~ pose
dem
(ifix [sel ser] ;~(plug dem ;~(pfix ace dem)))
==
loaf
==
++ bont ;~ (bend) :: term, optional twig
;~(pfix cen sym)
;~(pfix dot ;~(pose wide ;~(pfix muck loaf)))
==
++ bony (cook |=(a/(list) (lent a)) (plus tis)) :: base 1 =en count
++ bonz :: term-labelled twigs
;~ pose
(cold ~ sig)
%+ ifix
?:(tol [;~(plug duz gap) ;~(plug gap duz)] [pel per])
(more mash ;~(gunk ;~(pfix cen sym) loaf))
==
--
::
++ lang :: lung sample
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
$: ros/twig
New metal boot system.
2016-11-24 07:25:07 +03:00
$= vil
$% {$tis p/twig}
{$col p/twig}
{$ket p/twig}
{$fas p/twig}
{$pel p/(list (pair wing twig))}
==
==
::
++ lung
~+
%- bend
|= lang
^- (unit twig)
?- -.vil
$col ?:(=([%base %bean] ros) ~ [~ %rap ros p.vil])
Converted %=.
2017-09-19 03:19:22 +03:00
$pel (bind ~(reek ap ros) |=(hyp/wing [%cnts hyp p.vil]))
New metal boot system.
2016-11-24 07:25:07 +03:00
$ket [~ ros p.vil]
$fas =+ tog=~(hock ap ros)
$ runes converted.
2017-09-18 02:31:49 +03:00
?.(?=(@ tog) ~ [~ %bcts tog p.vil])
New metal boot system.
2016-11-24 07:25:07 +03:00
$tis =+ tog=~(hock ap ros)
Translate ^ runes.
2017-09-20 02:24:30 +03:00
?:(=([%0 ~] tog) ~ [~ %ktts tog p.vil])
New metal boot system.
2016-11-24 07:25:07 +03:00
==
::
++ long
%+ knee *twig |. ~+
;~ lung
scat
;~ pose
;~(plug (cold %tis tis) wide)
;~(plug (cold %col col) wide)
;~(plug (cold %ket ket) wide)
;~(plug (cold %fas fas) wide)
;~ plug
(easy %pel)
(ifix [pel per] lobo)
==
==
==
::
++ lobo (most ;~(plug com ace) ;~(glam rope wide))
++ loon (most ;~(plug com ace) ;~(glam wide wide))
++ lute :: tall [] noun
~+
All : runes.
2017-09-18 21:50:10 +03:00
%+ stag %cltr
New metal boot system.
2016-11-24 07:25:07 +03:00
%+ ifix
[;~(plug sel gap) ;~(plug gap ser)]
(most gap tall)
::
++ rope :: wing form
%+ knee *wing
|. ~+
%+ (slug |=({a/limb b/wing} [a b]))
dot
;~ pose
(cold [%| 0 ~] com)
%+ cook
|=({a/(list) b/term} ?~(a b [%| (lent a) `b]))
;~(plug (star ket) ;~(pose sym (cold %$ buc)))
::
%+ cook
|=(a/axis [%& a])
;~ pose
;~(pfix lus dim:ag)
;~(pfix pam (cook |=(a/@ ?:(=(0 a) 0 (mul 2 +($(a (dec a)))))) dim:ag))
;~(pfix bar (cook |=(a/@ ?:(=(0 a) 1 +((mul 2 $(a (dec a)))))) dim:ag))
ven
(cold 1 dot)
==
==
::
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
++ wise ;~(plug sym (punt ;~(pfix ;~(pose fas tis) wyde)))
Complete decoration system.
2017-04-05 03:33:20 +03:00
++ wrap
|* fel/rule
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
%+ cook
Complete decoration system.
2017-04-05 03:33:20 +03:00
|= {a/whit b/twig c/whit}
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
^- twig
Complete decoration system.
2017-04-05 03:33:20 +03:00
~(graf ~(gi ap b) (glom a c))
::
:: XX performance: this makes the parser about 50% slower.
:: because we double-parse most of the spaces in the file.
:: just so we can do a postfix doc-comment.
::
:: the correct solution to this problem is to unify the
:: parsing of docs with the parsing of comments/spaces.
:: but at this point we're pretty much in parser rewrite.
::
:: it should go without saying that ++vast needs a rewrite.
:: it dates to 2011.
::
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
;~ plug
Complete decoration system.
2017-04-05 03:33:20 +03:00
apex:docs
fel
apse:docs
Terminating coherent-cords-e.
2017-04-17 01:37:40 +03:00
==
New metal boot system.
2016-11-24 07:25:07 +03:00
++ tall %+ knee *twig :: full tall form
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
|.(~+((wart (wrap ;~(pose (norm | &) long lute apex:(sail &))))))
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
++ till %+ knee *root :: full tall form
Complete decoration system.
2017-04-05 03:33:20 +03:00
|.(~+((wart (wrap ;~(pose (norm & &) scad)))))
New metal boot system.
2016-11-24 07:25:07 +03:00
++ wide %+ knee *twig :: full wide form
Manual merge from belisarius222/nozap (62fec03d968a990e754fec231e635b8333aca873).
2017-09-14 03:30:23 +03:00
|.(~+((wart ;~(pose (norm | |) long apex:(sail |)))))
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
++ wyde %+ knee *root :: full wide form
|.(~+((wart ;~(pose (norm & |) scad))))
New metal boot system.
2016-11-24 07:25:07 +03:00
++ wart
|* zor/rule
%+ here
|= {a/pint b/twig}
?:(bug [%dbug [wer a] b] b)
zor
--
::
++ vest
~/ %vest
|= tub/nail
~| %vest
^- (like twig)
%. tub
%- full
(ifix [gay gay] tall:vast)
::
++ vice
|= txt/@ta
^- twig
(rash txt wide:vast)
::
++ make :: compile cord to nock
|= txt/@
q:(~(mint ut %noun) %noun (ream txt))
::
++ rain :: parse with % path
|= {bon/path txt/@}
^- twig
=+ vaz=vast
~| bon
(scan (trip txt) (full (ifix [gay gay] tall:vaz(wer bon))))
::
++ ream :: parse cord to twig
|= txt/@
^- twig
(rash txt vest)
::
++ reck :: parse hoon file
|= bon/path
(rain bon .^(@t %cx (weld bon `path`[%hoon ~])))
::
++ ride :: end-to-end compiler
|= {typ/span txt/@}
^- (pair span nock)
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
(~(mint ut typ) %noun (ream txt))
New metal boot system.
2016-11-24 07:25:07 +03:00
::
:::: 5e: caching compiler
::
++ wa !: :: cached compile
|_ worm
++ nell |=(ref/span (nest [%cell %noun %noun] ref)) :: nest in cell
++ nest :: nest:ut
|= {sut/span ref/span}
^- {? worm}
?: (~(has in nes) [sut ref]) [& +>+<]
?. (~(nest ut sut) | ref)
~& %nest-failed
=+ foo=(skol ref)
=+ bar=(skol sut)
~& %nets-need
~> %slog.[0 bar]
~& %nest-have
~> %slog.[0 foo]
[| +>+<.$]
[& +>+<(nes (~(put in nes) [sut ref]))]
::
Almost there.
2017-02-27 06:57:03 +03:00
++ call :: call gate
|= {vax/vase nam/term som/(each vase ^)}
^- {vase worm}
=^ duf +>+<.$ (open vax nam som)
(slap duf [%limb %$])
::
++ open :: assemble door
|= {vax/vase nam/term som/(each vase ^)}
^- {vase worm}
All % runes except %-.
2017-09-19 03:55:32 +03:00
=* key [%cncb [[%& 2] ~] [[[%& 6] ~] [%$ 3]] ~]
Almost there.
2017-02-27 06:57:03 +03:00
=^ dor +>+<.$ (slap vax [%limb nam])
=^ mes +>+<.$ (slot 6 dor)
Parvo compiles; hoon with ++wa fixes.
2017-02-28 01:52:18 +03:00
=^ hip +>+<.$
?- -.som
$& (nest p.mes p.p.som)
$| (nets p.mes -.p.som)
==
Almost there.
2017-02-27 06:57:03 +03:00
?> hip
Parvo compiles; hoon with ++wa fixes.
2017-02-28 01:52:18 +03:00
[[p.dor q.dor(+6 +7.som)] +>+<.$]
Almost there.
2017-02-27 06:57:03 +03:00
::
++ neat :: type compliance
|= {typ/span som/(each vase ^)}
^- worm
=^ hip +>+<.$
?- -.som
Parvo compiles; hoon with ++wa fixes.
2017-02-28 01:52:18 +03:00
$& (nest typ p.p.som)
$| (nets typ -.p.som)
Almost there.
2017-02-27 06:57:03 +03:00
==
?> hip
+>+<.$
::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ nets :: spanless nest
|= {sut/* ref/*}
^- {? worm}
?: (~(has in nes) [sut ref]) [& +>+<]
=+ gat=|=({a/span b/span} (~(nest ut a) | b))
?. (? .*(gat(+< [sut ref]) -.gat))
~& %nets-failed
=+ tag=`*`skol
=+ foo=(tank .*(tag(+< ref) -.tag))
=+ bar=(tank .*(tag(+< sut) -.tag))
~& %nets-need
~> %slog.[0 bar]
~& %nets-have
~> %slog.[0 foo]
[| +>+<.$]
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
[& +>+<.$(nes (~(put in nes) [sut ref]))]
New metal boot system.
2016-11-24 07:25:07 +03:00
::
++ play :: play:ut
|= {sut/span gen/twig}
^- {span worm}
=+ old=(~(get by pay) [sut gen])
?^ old [u.old +>+<.$]
=+ new=(~(play ut sut) gen)
[new +>+<.$(pay (~(put by pay) [sut gen] new))]
::
++ mint :: mint:ut to noun
|= {sut/span gen/twig}
^- {(pair span nock) worm}
=+ old=(~(get by mit) [sut gen])
?^ old [u.old +>+<.$]
=+ new=(~(mint ut sut) %noun gen)
[new +>+<.$(mit (~(put by mit) [sut gen] new))]
::
++ slap :: ++slap, cached
|= {vax/vase gen/twig}
^- {vase worm}
=^ gun +>+< (mint p.vax gen)
[[p.gun .*(q.vax q.gun)] +>+<.$]
::
++ slot :: ++slot, cached
|= {axe/@ vax/vase}
^- {vase worm}
=^ gun +>+< (mint p.vax [%$ axe])
[[p.gun .*(q.vax [0 axe])] +>+<.$]
::
++ spec :: specialize vase
|= vax/vase
^- {vase worm}
=+ ^= gen ^- twig
?@ q.vax [%fits [%base [%atom %$]] [%& 1]~]
?@ -.q.vax [%fits [%leaf %tas -.q.vax] [%& 2]~]
[%fits [%base %cell] [%& 1]~]
=^ typ +>+<.$ (play p.vax [%sure gen [%$ 1]])
[[typ q.vax] +>+<.$]
::
++ spot :: slot then spec
|= {axe/@ vax/vase}
^- {vase worm}
=^ xav +>+< (slot axe vax)
(spec xav)
::
++ stop :: spec then slot
|= {axe/@ vax/vase}
^- {vase worm}
=^ xav +>+< (spec vax)
(slot axe xav)
--
::
:::: 5f: molds and mold builders
::
++ arch {fil/(unit @uvI) dir/(map @ta $~)} :: fundamental node
++ ares (unit {p/term q/(list tank)}) :: possible error
++ arvo (wind {p/term q/mill} mill) :: arvo card
Merge branch 'revere-ivory' into piaf
2017-04-17 04:55:22 +03:00
++ beam {{p/ship q/desk r/case} s/spur} :: global name
New metal boot system.
2016-11-24 07:25:07 +03:00
++ beak {p/ship q/desk r/case} :: path prefix
++ bone @ud :: opaque duct
++ case :: version
$% {$da p/@da} :: date
{$tas p/@tas} :: label
{$ud p/@ud} :: sequence
== ::
++ coop (unit ares) :: possible error
++ desk @tas :: ship desk case spur
++ cage (cask vase) :: global metadata
++ cask |*(a/$-(* *) (pair mark a)) :: global data
++ cuff :: permissions
$: p/(unit (set monk)) :: can be read by
q/(set monk) :: caused or created by
== ::
++ curd {p/@tas q/*} :: spanless card
++ dock (pair @p term) :: message target
++ duct (list wire) :: causal history
++ hypo |*(a/$-(* *) (pair span a)) :: span associated
++ hobo |* a/$-(* *) :: task wrapper
$? $% {$soft p/*} ::
== ::
a ::
== ::
++ json :: normal json value
$@ $~ :: null
$% {$a p/(list json)} :: array
{$b p/?} :: boolean
{$o p/(map @t json)} :: object
{$n p/@ta} :: number
{$s p/@t} :: string
== ::
++ kirk (unit (set monk)) :: audience
++ lens :: observation core
$_ ^? ::
|% ++ u *(unit (unit $~)) :: existence
++ v *(unit (unit cage)) :: full history
++ w *(unit (unit (unit cage))) :: latest diff
++ x *(unit (unit cage)) :: data at path
++ y *(unit (unit arch)) :: directory
++ z *(unit (unit cage)) :: current subtree
-- ::
++ mane $@(@tas {@tas @tas}) :: XML name+space
++ manx {g/marx c/marl} :: XML node
++ marc :: structured mark
$@ mark :: plain mark
$% {$tabl p/(list (pair marc marc))} :: map
== ::
++ mark @tas :: content span
++ marl (list manx) :: XML node list
++ mars {t/{n/$$ a/{i/{n/$$ v/tape} t/$~}} c/$~} :: XML cdata
++ mart (list {n/mane v/tape}) :: XML attributes
++ marx {n/mane a/mart} :: XML tag
++ mash |=(* (mass +<)) :: producing mass
Repository cleanup mostly trailing whitespace removal no new kernel because only changes there are whitespace removal
2016-12-16 09:34:01 +03:00
++ mass (pair cord (each noun (list mash))) :: memory usage
New metal boot system.
2016-11-24 07:25:07 +03:00
++ mill (each vase milt) :: vase+metavase
++ milt {p/* q/*} :: metavase
++ mime {p/mite q/octs} :: mimetyped data
++ mite (list @ta) :: mime type
++ monk (each ship {p/@tas q/@ta}) :: general identity
++ muse {p/@tas q/duct r/arvo} :: sourced move
++ move {p/duct q/arvo} :: arvo move
++ octs {p/@ud q/@t} :: octet-stream
++ ovum {p/wire q/curd} :: spanless ovum
++ pane (list {p/@tas q/vase}) :: kernel modules
++ pass @ :: public key
++ pone (list {p/@tas q/vise}) :: kernel modules old
++ ring @ :: private key
++ ship @p :: network identity
++ shop (each ship (list @ta)) :: urbit/dns identity
++ sink (trel bone ship path) :: subscription
++ sley $- {* (unit (set monk)) term beam} :: namespace function
(unit (unit cage)) ::
++ slyd $- {* (unit (set monk)) term beam} :: super advanced
(unit (unit (cask))) ::
++ slyt $-({* *} (unit (unit))) :: old namespace
Cosmetic changes.
2017-01-23 01:28:34 +03:00
++ sack {p/ship q/ship} :: incoming [our his]
New metal boot system.
2016-11-24 07:25:07 +03:00
++ scar :: opaque duct
$: p/@ud :: bone sequence
q/(map duct bone) :: by duct
r/(map bone duct) :: by bone
== ::
++ sock {p/ship q/ship} :: outgoing [our his]
++ spur path :: ship desk case spur
++ time @da :: galactic time
++ vile :: reflexive constants
$: typ/span :: -:!>(*span)
duc/span :: -:!>(*duct)
pah/span :: -:!>(*path)
mev/span :: -:!>([%meta *vase])
== ::
++ wind :: new kernel action
|* {a/$-(* *) b/$-(* *)} :: forward+reverse
$% {$pass p/path q/a} :: advance
{$slip p/a} :: lateral
{$give p/b} :: retreat
== ::
++ wire path :: event pretext
::
:::: 5g: profiling support (XX move)
::
++ doss
$: mon/moan :: sample count
hit/(map term @ud) :: hit points
cut/(map path hump) :: cut points
==
++ moan :: sample metric
$: fun/@ud :: samples in C
noc/@ud :: samples in nock
glu/@ud :: samples in glue
mal/@ud :: samples in alloc
far/@ud :: samples in frag
coy/@ud :: samples in copy
euq/@ud :: samples in equal
== ::
::
++ hump
$: mon/moan :: sample count
out/(map path @ud) :: calls out of
inn/(map path @ud) :: calls into
==
::
++ pi-heck
|= {nam/@tas day/doss}
^- doss
=+ lam=(~(get by hit.day) nam)
day(hit (~(put by hit.day) nam ?~(lam 1 +(u.lam))))
::
++ pi-noon !. :: sample trace
|= {mot/term paz/(list path) day/doss}
=| lax/(unit path)
|- ^- doss
?~ paz day(mon (pi-mope mot mon.day))
%= $
paz t.paz
lax `i.paz
cut.day
%+ ~(put by cut.day) i.paz
^- hump
=+ nax=`(unit path)`?~(t.paz ~ `i.t.paz)
=+ hup=`hump`=+(hup=(~(get by cut.day) i.paz) ?^(hup u.hup [*moan ~ ~]))
:+ (pi-mope mot mon.hup)
?~ lax out.hup
=+ hag=(~(get by out.hup) u.lax)
(~(put by out.hup) u.lax ?~(hag 1 +(u.hag)))
?~ nax inn.hup
=+ hag=(~(get by inn.hup) u.nax)
(~(put by inn.hup) u.nax ?~(hag 1 +(u.hag)))
==
++ pi-mope :: add sample
|= {mot/term mon/moan}
?+ mot mon
$fun mon(fun +(fun.mon))
$noc mon(noc +(noc.mon))
$glu mon(glu +(glu.mon))
$mal mon(mal +(mal.mon))
$far mon(far +(far.mon))
$coy mon(coy +(coy.mon))
$euq mon(euq +(euq.mon))
==
++ pi-moth :: count sample
|= mon/moan ^- @ud
:(add fun.mon noc.mon glu.mon mal.mon far.mon coy.mon euq.mon)
::
++ pi-mumm :: print sample
|= mon/moan ^- tape
=+ tot=(pi-moth mon)
;: welp
^- tape
?: =(0 noc.mon) ~
(welp (scow %ud (div (mul 100 noc.mon) tot)) "n ")
::
^- tape
?: =(0 fun.mon) ~
(welp (scow %ud (div (mul 100 fun.mon) tot)) "c ")
::
^- tape
?: =(0 glu.mon) ~
(welp (scow %ud (div (mul 100 glu.mon) tot)) "g ")
::
^- tape
?: =(0 mal.mon) ~
(welp (scow %ud (div (mul 100 mal.mon) tot)) "m ")
::
^- tape
?: =(0 far.mon) ~
(welp (scow %ud (div (mul 100 far.mon) tot)) "f ")
::
^- tape
?: =(0 coy.mon) ~
(welp (scow %ud (div (mul 100 coy.mon) tot)) "y ")
::
^- tape
?: =(0 euq.mon) ~
(welp (scow %ud (div (mul 100 euq.mon) tot)) "e ")
==
::
++ pi-tell :: produce dump
|= day/doss
^- (list tape)
?: =(day *doss) ~
=+ tot=(pi-moth mon.day)
;: welp
[(welp "events: " (pi-mumm mon.day)) ~]
::
%+ turn
(~(tap by hit.day) ~)
|= {nam/term num/@ud}
:(welp (trip nam) ": " (scow %ud num))
["" ~]
::
%- zing
^- (list (list tape))
%+ turn
%+ sort (~(tap by cut.day))
|= {one/(pair path hump) two/(pair path hump)}
(gth (pi-moth mon.q.one) (pi-moth mon.q.two))
|= {pax/path hup/hump}
=+ ott=(pi-moth mon.hup)
;: welp
[(welp "label: " (spud pax)) ~]
[(welp "price: " (scow %ud (div (mul 100 ott) tot))) ~]
[(welp "shape: " (pi-mumm mon.hup)) ~]
::
?: =(~ out.hup) ~
:- "into:"
%+ turn
%+ sort (~(tap by out.hup) ~)
|=({{* a/@ud} {* b/@ud}} (gth a b))
|= {pax/path num/@ud}
^- tape
:(welp " " (spud pax) ": " (scow %ud num))
::
?: =(~ inn.hup) ~
:- "from:"
%+ turn
%+ sort (~(tap by inn.hup) ~)
|=({{* a/@ud} {* b/@ud}} (gth a b))
|= {pax/path num/@ud}
^- tape
:(welp " " (spud pax) ": " (scow %ud num))
::
["" ~]
~
==
==
--
Reference in New Issue Copy Permalink