2017-10-25 05:04:45 +03:00
|
|
|
|
:: :: /van/zuse
|
|
|
|
|
|
:: :: %reference/1
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: %zuse: arvo library.
|
|
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: %zuse is two nested cores: the first for models
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: (data structures), the second for engines (functions
|
|
|
|
|
|
:: or classes).
|
|
|
|
|
|
::
|
|
|
|
|
|
:: each of these stages is split into cores for each of
|
|
|
|
|
|
:: arvo's eight major vanes (kernel modules). these are:
|
|
|
|
|
|
::
|
|
|
|
|
|
:: - %ames: networking (rhymes with "games")
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: - %behn: scheduling ("bane")
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: - %clay: revision control ("play")
|
|
|
|
|
|
:: - %dill: console ("pill")
|
|
|
|
|
|
:: - %eyre: web ("fair")
|
|
|
|
|
|
:: - %ford: build ("lord")
|
|
|
|
|
|
:: - %gall: application ("ball")
|
|
|
|
|
|
:: - %jael: security ("jail")
|
2016-12-02 04:17:02 +03:00
|
|
|
|
::
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: with %zuse in your core, the engines of any vane are
|
|
|
|
|
|
:: available at `engine:vane`. the models (molds) are
|
|
|
|
|
|
:: available at `mold:^vane`.
|
|
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: every model or engine in %zuse is attached to some
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: vane, but any vane can use it (in its namespace),
|
|
|
|
|
|
:: as can any normal user-level code.
|
|
|
|
|
|
::
|
|
|
|
|
|
:: it's important to keep %zuse minimal. models and
|
|
|
|
|
|
:: engines not used outside a vane should stay inside
|
|
|
|
|
|
:: that vane.
|
|
|
|
|
|
~% %zuse +> ~
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=>
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: :: ::
|
2016-12-08 06:57:22 +03:00
|
|
|
|
:::: :: :: (1) models
|
|
|
|
|
|
:: :: ::
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
2018-08-16 04:05:30 +03:00
|
|
|
|
:: # %misc
|
2018-05-25 01:39:56 +03:00
|
|
|
|
::
|
2018-08-16 04:05:30 +03:00
|
|
|
|
:: miscellaneous systems types
|
|
|
|
|
|
::+|
|
2017-11-23 00:28:07 +03:00
|
|
|
|
++ ares (unit {p/term q/(list tank)}) :: possible error
|
2018-08-28 01:25:33 +03:00
|
|
|
|
:: +capped-queue: a +qeu with a maximum number of entries
|
|
|
|
|
|
::
|
|
|
|
|
|
++ capped-queue
|
|
|
|
|
|
|* item-type=mold
|
|
|
|
|
|
$: queue=(qeu item-type)
|
|
|
|
|
|
size=@ud
|
|
|
|
|
|
max-size=_64
|
|
|
|
|
|
==
|
2018-08-28 00:51:42 +03:00
|
|
|
|
:: +clock: polymorphic cache type for use with the clock replacement algorithm
|
|
|
|
|
|
::
|
|
|
|
|
|
:: The +by-clock core wraps interface arms for manipulating a mapping from
|
|
|
|
|
|
:: :key-type to :val-type. Detailed docs for this type can be found there.
|
|
|
|
|
|
::
|
|
|
|
|
|
++ clock
|
|
|
|
|
|
|* $: :: key-type: mold of keys
|
|
|
|
|
|
::
|
|
|
|
|
|
key-type=mold
|
|
|
|
|
|
:: val-type: mold of values
|
|
|
|
|
|
::
|
|
|
|
|
|
val-type=mold
|
|
|
|
|
|
==
|
|
|
|
|
|
$: lookup=(map key-type [val=val-type fresh=@ud])
|
|
|
|
|
|
queue=(qeu key-type)
|
|
|
|
|
|
size=@ud
|
|
|
|
|
|
max-size=_2.048
|
|
|
|
|
|
depth=_1
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
2017-11-23 00:28:07 +03:00
|
|
|
|
++ coop (unit ares) :: possible error
|
2018-08-23 22:23:52 +03:00
|
|
|
|
++ life @ud :: ship version
|
2017-11-23 00:28:07 +03:00
|
|
|
|
++ mime {p/mite q/octs} :: mimetyped data
|
|
|
|
|
|
++ octs {p/@ud q/@t} :: octet-stream
|
|
|
|
|
|
++ sock {p/ship q/ship} :: outgoing [our his]
|
|
|
|
|
|
::+|
|
|
|
|
|
|
::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ roof (room vase) :: namespace
|
2017-04-23 06:13:14 +03:00
|
|
|
|
++ room :: either namespace
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* vase/mold :: vase or maze
|
2017-11-16 23:44:27 +03:00
|
|
|
|
$- $: ref/* :: reference type
|
2017-10-25 05:04:45 +03:00
|
|
|
|
lyc/(unit (set ship)) :: leakset
|
|
|
|
|
|
car/term :: perspective
|
|
|
|
|
|
bem/beam :: path
|
2017-04-23 06:13:14 +03:00
|
|
|
|
== ::
|
|
|
|
|
|
%- unit :: ~: unknown
|
|
|
|
|
|
%- unit :: ~ ~: invalid
|
|
|
|
|
|
(cask vase) :: marked cargo
|
2018-10-04 09:43:40 +03:00
|
|
|
|
::
|
|
|
|
|
|
++ turf (list @t) :: domain, tld first
|
2018-05-16 00:16:29 +03:00
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++jstd :: json standards structures
|
|
|
|
|
|
:: ::::
|
|
|
|
|
|
++ jstd
|
|
|
|
|
|
|%
|
|
|
|
|
|
++ rpc
|
|
|
|
|
|
|%
|
2018-09-27 04:16:17 +03:00
|
|
|
|
++ response ::TODO id should be optional
|
2019-01-11 02:49:37 +03:00
|
|
|
|
$~ [%fail *httr:eyre]
|
2018-05-16 00:16:29 +03:00
|
|
|
|
$% [%result id=@t res=json]
|
|
|
|
|
|
[%error id=@t code=@t message=@t] ::TODO data?
|
2018-10-30 21:41:35 +03:00
|
|
|
|
[%fail hit=httr:eyre]
|
2018-05-16 00:16:29 +03:00
|
|
|
|
[%batch bas=(list response)]
|
|
|
|
|
|
==
|
|
|
|
|
|
--
|
|
|
|
|
|
--
|
2018-12-18 01:38:24 +03:00
|
|
|
|
:: ::::
|
|
|
|
|
|
:::: ++ethereum-types :: eth surs for jael
|
2018-05-16 00:16:29 +03:00
|
|
|
|
:: ::::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
++ ethereum-types
|
2018-05-16 00:16:29 +03:00
|
|
|
|
|%
|
|
|
|
|
|
:: ethereum address, 20 bytes.
|
|
|
|
|
|
::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
++ address @ux
|
|
|
|
|
|
:: event location
|
2018-05-16 00:16:29 +03:00
|
|
|
|
::
|
2018-05-29 00:04:33 +03:00
|
|
|
|
+= event-id [block=@ud log=@ud]
|
|
|
|
|
|
::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
++ events (set event-id)
|
|
|
|
|
|
--
|
|
|
|
|
|
:: ::::
|
|
|
|
|
|
:::: ++azimuth-types :: az surs for jael
|
|
|
|
|
|
:: ::::
|
|
|
|
|
|
++ azimuth-types
|
|
|
|
|
|
=, ethereum-types
|
|
|
|
|
|
|%
|
|
|
|
|
|
++ point
|
|
|
|
|
|
$: :: ownership
|
2018-06-20 15:17:22 +03:00
|
|
|
|
::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
$= own
|
2018-10-03 03:56:00 +03:00
|
|
|
|
$: owner=address
|
|
|
|
|
|
management-proxy=address
|
2018-12-13 22:19:55 +03:00
|
|
|
|
voting-proxy=address
|
2018-05-16 00:16:29 +03:00
|
|
|
|
transfer-proxy=address
|
|
|
|
|
|
==
|
2018-12-14 00:23:17 +03:00
|
|
|
|
::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
:: networking
|
|
|
|
|
|
::
|
|
|
|
|
|
$= net
|
|
|
|
|
|
%- unit
|
|
|
|
|
|
$: =life
|
|
|
|
|
|
=pass
|
|
|
|
|
|
continuity-number=@ud
|
2018-12-21 17:59:12 +03:00
|
|
|
|
sponsor=[has=? who=@p]
|
2018-12-18 01:38:24 +03:00
|
|
|
|
escape=(unit @p)
|
|
|
|
|
|
==
|
2018-05-16 00:16:29 +03:00
|
|
|
|
::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
:: spawning
|
|
|
|
|
|
::
|
|
|
|
|
|
$= kid
|
|
|
|
|
|
%- unit
|
|
|
|
|
|
$: spawn-proxy=address
|
|
|
|
|
|
spawned=(set @p) ::TODO sparse range, pile, see old jael ++py
|
|
|
|
|
|
==
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
+= dnses [pri=@t sec=@t ter=@t]
|
|
|
|
|
|
::
|
|
|
|
|
|
++ diff-azimuth
|
|
|
|
|
|
$% [%point who=@p dif=diff-point]
|
|
|
|
|
|
[%dns dnses]
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
++ diff-point
|
|
|
|
|
|
$% [%full new=point] ::
|
|
|
|
|
|
[%owner new=address] :: OwnerChanged
|
|
|
|
|
|
[%activated who=@p] :: Activated
|
|
|
|
|
|
[%spawned who=@p] :: Spawned
|
|
|
|
|
|
[%keys =life =pass] :: ChangedKeys
|
|
|
|
|
|
[%continuity new=@ud] :: BrokeContinuity
|
2018-12-21 17:59:12 +03:00
|
|
|
|
[%sponsor new=[has=? who=@p]] :: EscapeAcc/LostSpons
|
2018-12-18 01:38:24 +03:00
|
|
|
|
[%escape new=(unit @p)] :: EscapeReq/Can
|
|
|
|
|
|
[%management-proxy new=address] :: ChangedManagementPro
|
|
|
|
|
|
[%voting-proxy new=address] :: ChangedVotingProxy
|
|
|
|
|
|
[%spawn-proxy new=address] :: ChangedSpawnProxy
|
|
|
|
|
|
[%transfer-proxy new=address] :: ChangedTransferProxy
|
|
|
|
|
|
==
|
|
|
|
|
|
--
|
2016-12-08 06:57:22 +03:00
|
|
|
|
:: ::::
|
|
|
|
|
|
:::: ++ames :: (1a) network
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::::
|
2016-12-08 06:57:22 +03:00
|
|
|
|
++ ames ^?
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
2016-12-08 06:57:22 +03:00
|
|
|
|
:: ::
|
2017-10-10 08:22:47 +03:00
|
|
|
|
:::: ++able:ames :: (1a1) arvo moves
|
2016-12-08 06:57:22 +03:00
|
|
|
|
:: ::::
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ able ^?
|
|
|
|
|
|
|%
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ note :: out request $->
|
2018-11-26 09:33:41 +03:00
|
|
|
|
$% $: $b :: to %behn
|
|
|
|
|
|
$% {$rest p/@da} :: cancel timer
|
|
|
|
|
|
{$wait p/@da} :: set timer
|
|
|
|
|
|
== == ::
|
|
|
|
|
|
$: $d :: to %dill
|
2017-10-25 05:04:45 +03:00
|
|
|
|
$% {$flog p/flog:dill} ::
|
2017-10-02 04:50:19 +03:00
|
|
|
|
== == ::
|
2018-09-07 04:41:16 +03:00
|
|
|
|
$: %j :: to %jael
|
2018-12-12 11:50:40 +03:00
|
|
|
|
$% [%meet =ship =life =pass] :: neighbor
|
|
|
|
|
|
[%pubs =ship] :: view public keys
|
2018-10-04 09:43:40 +03:00
|
|
|
|
[%turf ~] :: view domains
|
2018-12-12 11:50:40 +03:00
|
|
|
|
[%vein ~] :: view private keys
|
2017-10-02 04:50:19 +03:00
|
|
|
|
== == ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
$: $g :: to %gall
|
|
|
|
|
|
$% {$deal p/sock q/cush:gall} ::
|
2017-10-02 04:50:19 +03:00
|
|
|
|
== == ::
|
|
|
|
|
|
$: @tas :: to any
|
2018-12-13 01:02:37 +03:00
|
|
|
|
$% {$west p/ship q/path r/*} ::
|
2017-10-02 04:50:19 +03:00
|
|
|
|
== == == ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ gift :: out result <-$
|
2018-12-11 21:26:10 +03:00
|
|
|
|
$% {$mack p/(unit tang)} :: acknowledgement
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$mass p/mass} :: memory usage
|
|
|
|
|
|
{$send p/lane q/@} :: transmit packet
|
2018-10-04 09:43:40 +03:00
|
|
|
|
{$turf p/(list turf)} :: bind to domains
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$woot p/ship q/coop} :: reaction message
|
2016-12-02 04:17:02 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ sign :: in result _<-
|
2018-11-26 09:33:41 +03:00
|
|
|
|
$% $: $b :: to %behn
|
|
|
|
|
|
$% {$wake ~} :: timer activate
|
|
|
|
|
|
== == ::
|
|
|
|
|
|
$: %j :: from %jael
|
2018-09-07 04:41:16 +03:00
|
|
|
|
$% [%pubs public:able:jael] :: public keys
|
2018-10-04 09:43:40 +03:00
|
|
|
|
[%turf turf=(list turf)] :: bind to domains
|
2018-09-07 04:41:16 +03:00
|
|
|
|
[%vein =life vein=(map life ring)] :: private keys
|
|
|
|
|
|
== == ::
|
|
|
|
|
|
$: $g :: from %gall
|
2017-10-25 05:04:45 +03:00
|
|
|
|
$% {$unto p/cuft:gall} ::
|
|
|
|
|
|
{$mean p/ares} :: XX old clean up
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$nice ~} ::
|
2017-10-02 04:50:19 +03:00
|
|
|
|
== == ::
|
|
|
|
|
|
$: @tas ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
$% {$crud p/@tas q/(list tank)} :: by any
|
|
|
|
|
|
{$mack p/(unit tang)} :: message ack
|
|
|
|
|
|
{$woot p/ship q/coop} :: reaction message
|
2017-10-02 04:50:19 +03:00
|
|
|
|
== == == ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ task :: in request ->$
|
2018-08-16 04:05:30 +03:00
|
|
|
|
$% {$barn ~} :: new unix process
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$crud p/@tas q/(list tank)} :: error with trace
|
|
|
|
|
|
{$hear p/lane q/@} :: receive packet
|
|
|
|
|
|
{$halo p/lane q/@ r/ares} :: hole with trace
|
|
|
|
|
|
{$hole p/lane q/@} :: packet failed
|
2018-09-07 04:41:16 +03:00
|
|
|
|
[%init p=ship] :: report install
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$kick p/@da} :: wake up
|
|
|
|
|
|
{$nuke p/@p} :: toggle auto-block
|
2018-10-26 00:41:05 +03:00
|
|
|
|
{$sunk p=ship q=life} :: report death
|
2018-08-20 02:06:19 +03:00
|
|
|
|
{$wake ~} :: timer activate
|
|
|
|
|
|
{$wegh ~} :: report memory
|
2018-12-13 01:02:37 +03:00
|
|
|
|
{$west p/ship q/path r/*} :: network request
|
2018-12-12 23:34:18 +03:00
|
|
|
|
{$want p/ship q/path r/*} :: forward message
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2016-12-08 06:57:22 +03:00
|
|
|
|
-- ::able
|
2016-11-24 07:25:07 +03:00
|
|
|
|
::
|
|
|
|
|
|
:::: :: (1a2)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ acru $_ ^? :: asym cryptosuite
|
|
|
|
|
|
|% :: opaque object
|
|
|
|
|
|
++ as ^? :: asym ops
|
2018-08-21 22:23:00 +03:00
|
|
|
|
|% ++ seal |~({a/pass b/@} *@) :: encrypt to a
|
|
|
|
|
|
++ sign |~(a/@ *@) :: certify as us
|
|
|
|
|
|
++ sure |~(a/@ *(unit @)) :: authenticate from us
|
|
|
|
|
|
++ tear |~({a/pass b/@} *(unit @)) :: accept from a
|
2016-11-24 07:25:07 +03:00
|
|
|
|
-- ::as ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ de |~({a/@ b/@} *(unit @)) :: symmetric de, soft
|
|
|
|
|
|
++ dy |~({a/@ b/@} *@) :: symmetric de, hard
|
|
|
|
|
|
++ en |~({a/@ b/@} *@) :: symmetric en
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ ex ^? :: export
|
|
|
|
|
|
|% ++ fig *@uvH :: fingerprint
|
|
|
|
|
|
++ pac *@uvG :: default passcode
|
|
|
|
|
|
++ pub *pass :: public key
|
|
|
|
|
|
++ sec *ring :: private key
|
|
|
|
|
|
-- ::ex ::
|
|
|
|
|
|
++ nu ^? :: reconstructors
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|% ++ pit |~({a/@ b/@} ^?(..nu)) :: from [width seed]
|
2018-08-21 22:23:00 +03:00
|
|
|
|
++ nol |~(a/ring ^?(..nu)) :: from ring
|
|
|
|
|
|
++ com |~(a/pass ^?(..nu)) :: from pass
|
2016-11-24 07:25:07 +03:00
|
|
|
|
-- ::nu ::
|
|
|
|
|
|
-- ::acru ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ bait {p/skin q/@ud r/dove} :: fmt nrecvd spec
|
|
|
|
|
|
++ bath :: convo per client
|
|
|
|
|
|
$: sop/shed :: not stalled
|
|
|
|
|
|
raz/(map path race) :: statements inbound
|
|
|
|
|
|
ryl/(map path rill) :: statements outbound
|
2017-10-02 04:50:19 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ boon :: fort output
|
2018-12-12 23:07:16 +03:00
|
|
|
|
$% [%beer p=ship] :: request public keys
|
|
|
|
|
|
[%bock ~] :: bind to domains
|
|
|
|
|
|
[%brew ~] :: request domains
|
|
|
|
|
|
[%cake p=ship q=soap r=coop s=duct] :: e2e message result
|
|
|
|
|
|
[%mead p=lane q=rock] :: accept packet
|
|
|
|
|
|
[%milk p=ship q=soap r=*] :: e2e pass message
|
|
|
|
|
|
[%ouzo p=lane q=rock] :: transmit packet
|
|
|
|
|
|
[%pito p=@da] :: timeout
|
|
|
|
|
|
[%raki p=ship q=life r=pass] :: neighbor'd
|
|
|
|
|
|
[%sake ~] :: our private keys
|
|
|
|
|
|
[%wine p=ship q=tape] :: notify user
|
2017-10-02 04:50:19 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ cake {p/sock q/skin r/@} :: top level packet
|
|
|
|
|
|
++ cape :: end-to-end result
|
|
|
|
|
|
$? $good :: delivered
|
|
|
|
|
|
$dead :: rejected
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ clot :: symmetric record
|
|
|
|
|
|
$: yed/(unit {p/hand q/code}) :: outbound
|
|
|
|
|
|
heg/(map hand code) :: proposed
|
|
|
|
|
|
qim/(map hand code) :: inbound
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ code @uvI :: symmetric key
|
|
|
|
|
|
++ corn :: flow by server
|
2018-11-01 06:21:29 +03:00
|
|
|
|
$: nys/(map flap bait) :: packets incoming
|
2017-10-25 05:04:45 +03:00
|
|
|
|
olz/(map flap cape) :: packets completed
|
|
|
|
|
|
wab/(map ship bath) :: relationship
|
2017-10-02 04:50:19 +03:00
|
|
|
|
== ::
|
2018-10-15 07:11:36 +03:00
|
|
|
|
+$ deed [=life =pass oath=(unit oath:pki:jael)] :: life/pub/sig
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ dore :: foreign contact
|
|
|
|
|
|
$: wod/road :: connection to
|
|
|
|
|
|
caq/clot :: symmetric key state
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ dove {p/@ud q/(map @ud @)} :: count hash 13-blocks
|
|
|
|
|
|
++ flap @uvH :: network packet id
|
|
|
|
|
|
++ flow :: packet connection
|
|
|
|
|
|
$: rtt/@dr :: decaying avg rtt
|
|
|
|
|
|
wid/@ud :: logical wdow msgs
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ fort :: formal state
|
2018-04-25 20:24:45 +03:00
|
|
|
|
$: $1 :: version
|
2017-10-25 05:04:45 +03:00
|
|
|
|
gad/duct :: client interface
|
2018-11-26 09:33:41 +03:00
|
|
|
|
tim/(unit @da) :: pending timer
|
2018-10-04 09:43:40 +03:00
|
|
|
|
tuf/(list turf) :: domains
|
2017-10-25 05:04:45 +03:00
|
|
|
|
hop/@da :: network boot date
|
|
|
|
|
|
bad/(set @p) :: bad ships
|
|
|
|
|
|
ton/town :: security
|
2018-12-12 22:37:04 +03:00
|
|
|
|
zac/corn :: flows by server
|
2017-10-02 04:50:19 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ hand @uvH :: 128-bit hash
|
|
|
|
|
|
++ lane :: packet route
|
|
|
|
|
|
$% {$if p/@da q/@ud r/@if} :: IP4/public UDP/addr
|
|
|
|
|
|
{$is p/@ud q/(unit lane) r/@is} :: IPv6 w+alternates
|
|
|
|
|
|
{$ix p/@da q/@ud r/@if} :: IPv4 provisional
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ meal :: payload
|
|
|
|
|
|
$% {$back p/coop q/flap r/@dr} :: ack
|
2019-01-12 00:55:27 +03:00
|
|
|
|
{$bond p/path q/@ud r/*} :: message
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$carp p/@ q/@ud r/@ud s/flap t/@} :: skin+inx+cnt+hash
|
|
|
|
|
|
{$fore p/ship q/(unit lane) r/@} :: forwarded packet
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ name {p/@t q/(unit @t) r/(unit @t) s/@t} :: first mid+nick last
|
|
|
|
|
|
++ putt :: outgoing message
|
|
|
|
|
|
$: ski/snow :: sequence acked+sent
|
|
|
|
|
|
wyv/(list rock) :: packet list XX gear
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ race :: inbound stream
|
|
|
|
|
|
$: did/@ud :: filled sequence
|
|
|
|
|
|
dod/? :: not processing
|
|
|
|
|
|
bum/(map @ud ares) :: nacks
|
|
|
|
|
|
mis/(map @ud {p/cape q/lane r/flap s/(unit)}) :: misordered
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ rill :: outbound stream
|
|
|
|
|
|
$: sed/@ud :: sent
|
|
|
|
|
|
san/(map @ud duct) :: outstanding
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ road :: secured oneway route
|
|
|
|
|
|
$: exp/@da :: expiration date
|
|
|
|
|
|
lun/(unit lane) :: route to friend
|
2018-09-13 08:48:18 +03:00
|
|
|
|
lew/(unit deed) :: deed of friend
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ rock @uvO :: packet
|
|
|
|
|
|
++ shed :: packet flow
|
|
|
|
|
|
$: $: rtt/@dr :: smoothed rtt
|
|
|
|
|
|
rto/@dr :: retransmit timeout
|
|
|
|
|
|
rtn/(unit @da) :: next timeout
|
|
|
|
|
|
rue/(unit @da) :: last heard from
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
$: nus/@ud :: number sent
|
|
|
|
|
|
nif/@ud :: number live
|
|
|
|
|
|
nep/@ud :: next expected
|
|
|
|
|
|
caw/@ud :: logical window
|
|
|
|
|
|
cag/@ud :: congest thresh
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
$: diq/(map flap @ud) :: packets sent
|
|
|
|
|
|
pyz/(map soup @ud) :: message+unacked
|
|
|
|
|
|
puq/(qeu {p/@ud q/soul}) :: packet queue
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
|
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ skin ?($none $open $fast $full) :: encoding stem
|
|
|
|
|
|
++ snow {p/@ud q/@ud r/(set @ud)} :: window exceptions
|
|
|
|
|
|
++ soap {p/{p/life q/life} q/path r/@ud} :: statement id
|
|
|
|
|
|
++ soup {p/path q/@ud} :: new statement id
|
|
|
|
|
|
++ soul :: packet in travel
|
|
|
|
|
|
$: gom/soup :: message identity
|
|
|
|
|
|
nux/@ud :: xmission count
|
|
|
|
|
|
liv/? :: deemed live
|
|
|
|
|
|
lys/@da :: last sent
|
|
|
|
|
|
pac/rock :: packet data
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2018-12-12 22:37:04 +03:00
|
|
|
|
++ town :: all security state
|
|
|
|
|
|
$: any/@ :: entropy
|
|
|
|
|
|
val/wund :: private keys
|
2018-09-13 08:48:18 +03:00
|
|
|
|
law/deed :: server deed
|
2017-10-25 05:04:45 +03:00
|
|
|
|
seh/(map hand {p/ship q/@da}) :: key cache
|
|
|
|
|
|
hoc/(map ship dore) :: neighborhood
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2018-09-13 08:48:18 +03:00
|
|
|
|
++ wund (list {p/life q/ring r/acru}) :: secrets in action
|
2016-11-24 07:25:07 +03:00
|
|
|
|
-- ::ames
|
2016-12-08 06:57:22 +03:00
|
|
|
|
:: ::::
|
|
|
|
|
|
:::: ++behn :: (1b) timekeeping
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::::
|
2016-12-08 06:57:22 +03:00
|
|
|
|
++ behn ^?
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
2016-12-08 06:57:22 +03:00
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++able:behn :: (1b1) arvo moves
|
|
|
|
|
|
:: ::::
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ able ^?
|
|
|
|
|
|
|%
|
2018-11-30 23:52:32 +03:00
|
|
|
|
++ note :: out request $->
|
|
|
|
|
|
$% $: $d :: to %dill
|
|
|
|
|
|
$% {$flog p/flog:dill} ::
|
|
|
|
|
|
== == == ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ gift :: out result <-$
|
2018-11-26 11:18:45 +03:00
|
|
|
|
$% {$doze p/(unit @da)} :: next alarm
|
|
|
|
|
|
{$mass p/mass} :: memory usage
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$wake ~} :: wakeup
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ task :: in request ->$
|
2018-11-26 11:18:45 +03:00
|
|
|
|
$% {$born ~} :: new unix process
|
2018-11-30 23:52:32 +03:00
|
|
|
|
{$crud p/@tas q/(list tank)} :: error with trace
|
2018-11-26 11:18:45 +03:00
|
|
|
|
{$rest p/@da} :: cancel alarm
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$wait p/@da} :: set alarm
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$wake ~} :: timer activate
|
|
|
|
|
|
{$wegh ~} :: report memory
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
|
|
|
|
|
-- ::able
|
|
|
|
|
|
-- ::behn
|
2016-12-08 06:57:22 +03:00
|
|
|
|
:: ::::
|
|
|
|
|
|
:::: ++clay :: (1c) versioning
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::::
|
2016-12-08 06:57:22 +03:00
|
|
|
|
++ clay ^?
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
2016-12-08 06:57:22 +03:00
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++able:clay :: (1c1) arvo moves
|
|
|
|
|
|
:: ::::
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ able ^?
|
|
|
|
|
|
|%
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ gift :: out result <-$
|
2018-02-12 19:57:59 +03:00
|
|
|
|
$% {$croz rus/(map desk {r/regs w/regs})} :: rules for group
|
|
|
|
|
|
{$cruz cez/(map @ta crew)} :: permission groups
|
2018-01-24 00:52:31 +03:00
|
|
|
|
{$dirk p/@tas} :: mark mount dirty
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$ergo p/@tas q/mode} :: version update
|
|
|
|
|
|
{$hill p/(list @tas)} :: mount points
|
|
|
|
|
|
{$mack p/(unit tang)} :: ack
|
|
|
|
|
|
{$mass p/mass} :: memory usage
|
|
|
|
|
|
{$mere p/(each (set path) (pair term tang))} :: merge result
|
|
|
|
|
|
{$note p/@tD q/tank} :: debug message
|
|
|
|
|
|
{$ogre p/@tas} :: delete mount point
|
2018-01-24 18:33:41 +03:00
|
|
|
|
{$rule red/dict wit/dict} :: node r+w permissions
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$send p/lane:ames q/@} :: transmit packet
|
|
|
|
|
|
{$writ p/riot} :: response
|
2018-05-10 21:18:52 +03:00
|
|
|
|
{$wris p/{$da p/@da} q/(set (pair care path))} :: many changes
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ task :: in request ->$
|
2018-12-13 21:43:32 +03:00
|
|
|
|
$% {$boat ~} :: pier rebooted
|
|
|
|
|
|
{$cred nom/@ta cew/crew} :: set permission group
|
|
|
|
|
|
{$crew ~} :: permission groups
|
|
|
|
|
|
{$crow nom/@ta} :: group usage
|
2018-11-23 20:19:23 +03:00
|
|
|
|
{$crud p/@tas q/(list tank)} :: error with trace
|
2018-12-13 10:58:25 +03:00
|
|
|
|
{$drop des/desk} :: cancel pending merge
|
2018-12-13 10:59:53 +03:00
|
|
|
|
{$info des/desk dit/nori} :: internal edit
|
2018-02-09 16:48:08 +03:00
|
|
|
|
{$init our/@p} :: report install
|
|
|
|
|
|
{$into des/desk all/? fis/mode} :: external edit
|
|
|
|
|
|
$: $merg :: merge desks
|
2018-12-13 18:37:01 +03:00
|
|
|
|
des/desk :: target
|
2018-02-09 16:48:08 +03:00
|
|
|
|
her/@p dem/desk cas/case :: source
|
|
|
|
|
|
how/germ :: method
|
|
|
|
|
|
== ::
|
|
|
|
|
|
{$mont des/desk bem/beam} :: mount to unix
|
|
|
|
|
|
{$dirk des/desk} :: mark mount dirty
|
|
|
|
|
|
{$ogre pot/$@(desk beam)} :: delete mount point
|
2018-12-13 20:56:56 +03:00
|
|
|
|
{$perm des/desk pax/path rit/rite} :: change permissions
|
2018-10-26 00:41:05 +03:00
|
|
|
|
{$sunk p=ship q=life} :: report death
|
2018-12-13 21:23:26 +03:00
|
|
|
|
{$warp wer/ship rif/riff} :: internal file req
|
|
|
|
|
|
{$werp who/ship wer/ship rif/riff} :: external file req
|
2018-12-20 19:48:11 +03:00
|
|
|
|
{$wegh ~} :: report memory
|
2018-12-13 01:02:37 +03:00
|
|
|
|
{$west wer/ship pax/path res/*} :: network request
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
|
|
|
|
|
-- ::able
|
|
|
|
|
|
::
|
|
|
|
|
|
:::: :: (1c2)
|
|
|
|
|
|
::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ aeon @ud :: version number
|
|
|
|
|
|
++ ankh :: fs node (new)
|
2018-02-25 05:01:53 +03:00
|
|
|
|
$~ [~ ~]
|
2017-10-25 05:04:45 +03:00
|
|
|
|
$: fil/(unit {p/lobe q/cage}) :: file
|
|
|
|
|
|
dir/(map @ta ankh) :: folders
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ beam {{p/ship q/desk r/case} s/path} :: global name
|
|
|
|
|
|
++ beak {p/ship q/desk r/case} :: path prefix
|
|
|
|
|
|
++ blob :: fs blob
|
|
|
|
|
|
$% {$delta p/lobe q/{p/mark q/lobe} r/page} :: delta on q
|
|
|
|
|
|
{$direct p/lobe q/page} :: immediate
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2018-08-22 22:56:46 +03:00
|
|
|
|
++ care ?($d $p $t $u $v $w $x $y $z) :: clay submode
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ case :: ship desk case spur
|
|
|
|
|
|
$% {$da p/@da} :: date
|
|
|
|
|
|
{$tas p/@tas} :: label
|
|
|
|
|
|
{$ud p/@ud} :: number
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2018-05-03 00:37:03 +03:00
|
|
|
|
++ cass {ud/@ud da/@da} :: cases for revision
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ coop (unit ares) :: e2e ack
|
2018-01-24 00:52:31 +03:00
|
|
|
|
++ crew (set ship) :: permissions group
|
2018-06-19 02:10:11 +03:00
|
|
|
|
++ dict {src/path rul/real} :: effective permission
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ dome :: project state
|
|
|
|
|
|
$: ank/ankh :: state
|
|
|
|
|
|
let/@ud :: top id
|
|
|
|
|
|
hit/(map @ud tako) :: changes by id
|
|
|
|
|
|
lab/(map @tas @ud) :: labels
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ germ :: merge style
|
|
|
|
|
|
$? $init :: new desk
|
|
|
|
|
|
$this :: ours with parents
|
|
|
|
|
|
$that :: hers with parents
|
|
|
|
|
|
$fine :: fast forward
|
|
|
|
|
|
$meet :: orthogonal files
|
|
|
|
|
|
$mate :: orthogonal changes
|
|
|
|
|
|
$meld :: force merge
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ khan ::
|
2018-02-25 05:01:53 +03:00
|
|
|
|
$~ [~ ~]
|
2017-10-25 05:04:45 +03:00
|
|
|
|
$: fil/(unit (unit cage)) :: see ++khan-to-soba
|
|
|
|
|
|
dir/(unit (map @ta (unit khan))) ::
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ lobe @uvI :: blob ref
|
|
|
|
|
|
++ maki {p/@ta q/@ta r/@ta s/path} ::
|
|
|
|
|
|
++ miso :: ankh delta
|
2018-08-16 04:05:30 +03:00
|
|
|
|
$% {$del ~} :: delete
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$ins p/cage} :: insert
|
|
|
|
|
|
{$dif p/cage} :: mutate from diff
|
|
|
|
|
|
{$mut p/cage} :: mutate from raw
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ misu :: computed delta
|
2018-08-16 04:05:30 +03:00
|
|
|
|
$% {$del ~} :: delete
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$ins p/cage} :: insert
|
|
|
|
|
|
{$dif p/lobe q/cage} :: mutate from diff
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ mizu {p/@u q/(map @ud tako) r/rang} :: new state
|
|
|
|
|
|
++ moar {p/@ud q/@ud} :: normal change range
|
|
|
|
|
|
++ moat {p/case q/case r/path} :: change range
|
|
|
|
|
|
++ mode (list {path (unit mime)}) :: external files
|
|
|
|
|
|
++ mood {p/care q/case r/path} :: request in desk
|
2018-01-23 19:35:12 +03:00
|
|
|
|
++ mool {p/case q/(set (pair care path))} :: requests in desk
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ nori :: repository action
|
2018-03-19 06:54:47 +03:00
|
|
|
|
$% {%& p/soba} :: delta
|
|
|
|
|
|
{%| p/@tas} :: label
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ nuri :: repository action
|
2018-03-19 06:54:47 +03:00
|
|
|
|
$% {%& p/suba} :: delta
|
|
|
|
|
|
{%| p/@tas} :: label
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ page (cask *) :: untyped cage
|
|
|
|
|
|
++ plop blob :: unvalidated blob
|
|
|
|
|
|
++ rang :: repository
|
|
|
|
|
|
$: hut/(map tako yaki) :: changes
|
|
|
|
|
|
lat/(map lobe blob) :: data
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ rant :: response to request
|
2018-01-18 03:23:31 +03:00
|
|
|
|
$: p/{p/care q/case r/desk} :: clade release book
|
2017-10-25 05:04:45 +03:00
|
|
|
|
q/path :: spur
|
|
|
|
|
|
r/cage :: data
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ rave :: general request
|
|
|
|
|
|
$% {$sing p/mood} :: single request
|
|
|
|
|
|
{$next p/mood} :: await next version
|
2018-01-18 01:55:12 +03:00
|
|
|
|
{$mult p/mool} :: next version of any
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$many p/? q/moat} :: track range
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2018-06-20 00:43:16 +03:00
|
|
|
|
++ real :: resolved permissions
|
|
|
|
|
|
$: mod/?($black $white) ::
|
|
|
|
|
|
who/(pair (set ship) (map @ta crew)) ::
|
|
|
|
|
|
== ::
|
2018-02-12 19:56:48 +03:00
|
|
|
|
++ regs (map path rule) :: rules for paths
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ riff {p/desk q/(unit rave)} :: request+desist
|
2018-01-25 02:09:46 +03:00
|
|
|
|
++ rite :: new permissions
|
|
|
|
|
|
$% {$r red/(unit rule)} :: for read
|
|
|
|
|
|
{$w wit/(unit rule)} :: for write
|
|
|
|
|
|
{$rw red/(unit rule) wit/(unit rule)} :: for read and write
|
|
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ riot (unit rant) :: response+complete
|
2018-01-24 00:52:31 +03:00
|
|
|
|
++ rule {mod/?($black $white) who/(set whom)} :: node permission
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ rump {p/care q/case r/@tas s/path} :: relative path
|
|
|
|
|
|
++ saba {p/ship q/@tas r/moar s/dome} :: patch+merge
|
|
|
|
|
|
++ soba (list {p/path q/miso}) :: delta
|
|
|
|
|
|
++ suba (list {p/path q/misu}) :: delta
|
|
|
|
|
|
++ tako @ :: yaki ref
|
|
|
|
|
|
++ toro {p/@ta q/nori} :: general change
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ unce :: change part
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* a/mold ::
|
2018-03-19 06:54:47 +03:00
|
|
|
|
$% {%& p/@ud} :: skip[copy]
|
|
|
|
|
|
{%| p/(list a) q/(list a)} :: p -> q[chunk]
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ urge |*(a/mold (list (unce a))) :: list change
|
2018-01-24 00:52:31 +03:00
|
|
|
|
++ whom (each ship @ta) :: ship or named crew
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ yaki :: commit
|
|
|
|
|
|
$: p/(list tako) :: parents
|
|
|
|
|
|
q/(map path lobe) :: namespace
|
|
|
|
|
|
r/tako :: self-reference
|
|
|
|
|
|
t/@da :: date
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
|
|
|
|
|
-- ::clay
|
2016-12-08 06:57:22 +03:00
|
|
|
|
:: ::::
|
|
|
|
|
|
:::: ++dill :: (1d) console
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::::
|
2016-12-08 06:57:22 +03:00
|
|
|
|
++ dill ^?
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
2016-12-08 06:57:22 +03:00
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++able:dill :: (1d1) arvo moves
|
|
|
|
|
|
:: ::::
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ able ^?
|
|
|
|
|
|
|%
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ gift :: out result <-$
|
2018-08-16 04:05:30 +03:00
|
|
|
|
$% {$bbye ~} :: reset prompt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$blit p/(list blit)} :: terminal output
|
|
|
|
|
|
{$burl p/@t} :: activate url
|
|
|
|
|
|
{$init p/@p} :: set owner
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$logo ~} :: logout
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$mass p/mass} :: memory usage
|
|
|
|
|
|
{$send p/lane:ames q/@} :: transmit packet
|
|
|
|
|
|
{$veer p/@ta q/path r/@t} :: install vane
|
2018-12-07 01:30:57 +03:00
|
|
|
|
{$vega p/@t q/@t} :: reboot
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$verb ~} :: verbose mode
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ task :: in request ->$
|
|
|
|
|
|
$% {$belt p/belt} :: terminal input
|
|
|
|
|
|
{$blew p/blew} :: terminal config
|
|
|
|
|
|
{$boot p/*} :: weird %dill boot
|
|
|
|
|
|
{$crud p/@tas q/(list tank)} :: error with trace
|
|
|
|
|
|
{$flog p/flog} :: wrapped error
|
|
|
|
|
|
{$flow p/@tas q/(list gill:gall)} :: terminal config
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$hail ~} :: terminal refresh
|
|
|
|
|
|
{$heft ~} :: memory report
|
|
|
|
|
|
{$hook ~} :: this term hung up
|
|
|
|
|
|
{$harm ~} :: all terms hung up
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$init p/ship} :: after gall ready
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$noop ~} :: no operation
|
2018-10-26 00:41:05 +03:00
|
|
|
|
{$sunk p=ship q=life} :: report death
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$talk p/tank} ::
|
|
|
|
|
|
{$text p/tape} ::
|
|
|
|
|
|
{$veer p/@ta q/path r/@t} :: install vane
|
2018-12-07 01:30:57 +03:00
|
|
|
|
{$vega p/@t q/@t} :: reboot
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$verb ~} :: verbose mode
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
|
|
|
|
|
-- ::able
|
|
|
|
|
|
::
|
|
|
|
|
|
:::: :: (1d2)
|
|
|
|
|
|
::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ blew {p/@ud q/@ud} :: columns rows
|
|
|
|
|
|
++ belt :: old belt
|
|
|
|
|
|
$% {$aro p/?($d $l $r $u)} :: arrow key
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$bac ~} :: true backspace
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$ctl p/@c} :: control-key
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$del ~} :: true delete
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$met p/@c} :: meta-key
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$ret ~} :: return
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$txt p/(list @c)} :: utf32 text
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ blit :: old blit
|
2018-08-16 04:05:30 +03:00
|
|
|
|
$% {$bel ~} :: make a noise
|
|
|
|
|
|
{$clr ~} :: clear the screen
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$hop p/@ud} :: set cursor position
|
|
|
|
|
|
{$lin p/(list @c)} :: set current line
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$mor ~} :: newline
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$sag p/path q/*} :: save to jamfile
|
|
|
|
|
|
{$sav p/path q/@} :: save to file
|
|
|
|
|
|
{$url p/@t} :: activate url
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2018-08-16 04:05:30 +03:00
|
|
|
|
++ deco ?(~ $bl $br $un) :: text decoration
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ dill-belt :: new belt
|
|
|
|
|
|
$% {$aro p/?($d $l $r $u)} :: arrow key
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$bac ~} :: true backspace
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$cru p/@tas q/(list tank)} :: echo error
|
|
|
|
|
|
{$ctl p/@} :: control-key
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$del ~} :: true delete
|
|
|
|
|
|
{$hey ~} :: refresh
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$met p/@} :: meta-key
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$ret ~} :: return
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$rez p/@ud q/@ud} :: resize, cols, rows
|
|
|
|
|
|
{$txt p/(list @c)} :: utf32 text
|
|
|
|
|
|
{$yow p/gill:gall} :: connect to app
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ dill-blit :: new blit
|
2018-08-16 04:05:30 +03:00
|
|
|
|
$% {$bel ~} :: make a noise
|
|
|
|
|
|
{$clr ~} :: clear the screen
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$hop p/@ud} :: set cursor position
|
|
|
|
|
|
{$klr p/stub} :: styled text
|
|
|
|
|
|
{$mor p/(list dill-blit)} :: multiple blits
|
|
|
|
|
|
{$pom p/stub} :: styled prompt
|
|
|
|
|
|
{$pro p/(list @c)} :: show as cursor+line
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$qit ~} :: close console
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$out p/(list @c)} :: send output line
|
|
|
|
|
|
{$sag p/path q/*} :: save to jamfile
|
|
|
|
|
|
{$sav p/path q/@} :: save to file
|
|
|
|
|
|
{$url p/@t} :: activate url
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ flog :: sent to %dill
|
|
|
|
|
|
$% {$crud p/@tas q/(list tank)} ::
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$heft ~} ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$text p/tape} ::
|
|
|
|
|
|
{$veer p/@ta q/path r/@t} :: install vane
|
2018-12-07 01:30:57 +03:00
|
|
|
|
{$vega p/@t q/@t} :: reboot
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$verb ~} :: verbose mode
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
|
|
|
|
|
-- ::dill
|
2016-12-08 06:57:22 +03:00
|
|
|
|
:: ::::
|
|
|
|
|
|
:::: ++eyre :: (1e) oldweb
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::::
|
2016-12-08 06:57:22 +03:00
|
|
|
|
++ eyre ^?
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
2016-12-08 06:57:22 +03:00
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++able:eyre :: (1e1) arvo moves
|
|
|
|
|
|
:: ::::
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ able ^?
|
|
|
|
|
|
|%
|
2017-10-25 02:50:11 +03:00
|
|
|
|
+= gift :: out result <-$
|
2018-06-13 22:08:10 +03:00
|
|
|
|
$% [%form p=http-config] :: configuration
|
|
|
|
|
|
[%mass p=mass] :: memory usage
|
2017-10-25 02:50:11 +03:00
|
|
|
|
[%mack p=(unit tang)] :: message ack
|
|
|
|
|
|
[%sigh p=cage] :: marked http response
|
2018-07-11 06:39:13 +03:00
|
|
|
|
[%that p=@p q=prox] :: get proxied request
|
2017-10-25 02:50:11 +03:00
|
|
|
|
[%thou p=httr] :: raw http response
|
|
|
|
|
|
[%thus p=@ud q=(unit hiss)] :: http request+cancel
|
|
|
|
|
|
[%veer p=@ta q=path r=@t] :: drop-through
|
2018-12-07 01:30:57 +03:00
|
|
|
|
[%vega p=@t q=@t] :: drop-through
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 02:50:11 +03:00
|
|
|
|
+= task :: in request ->$
|
2018-06-28 20:33:47 +03:00
|
|
|
|
$% [%born p=(list host)] :: new unix process
|
2017-10-25 02:50:11 +03:00
|
|
|
|
[%crud p=@tas q=(list tank)] :: XX rethink
|
|
|
|
|
|
[%hiss p=(unit user) q=mark r=cage] :: outbound user req
|
|
|
|
|
|
[%init p=@p] :: report install
|
2018-06-13 22:08:10 +03:00
|
|
|
|
[%live p=@ud q=(unit @ud)] :: http/s ports
|
2018-06-28 20:33:47 +03:00
|
|
|
|
[%rule p=http-rule] :: update config
|
2017-10-25 02:50:11 +03:00
|
|
|
|
[%serv p=$@(desk beam)] :: set serving root
|
2018-10-26 00:41:05 +03:00
|
|
|
|
[%sunk p=ship q=life] :: report death
|
2017-10-25 02:50:11 +03:00
|
|
|
|
[%them p=(unit hiss)] :: outbound request
|
|
|
|
|
|
[%they p=@ud q=httr] :: inbound response
|
|
|
|
|
|
[%chis p=? q=clip r=httq] :: IPC inbound request
|
|
|
|
|
|
[%this p=? q=clip r=httq] :: inbound request
|
|
|
|
|
|
[%thud ~] :: inbound cancel
|
|
|
|
|
|
[%wegh ~] :: report memory
|
2018-05-15 06:48:29 +03:00
|
|
|
|
[%well p=path q=(unit mime)] :: put/del .well-known
|
2018-12-13 01:02:37 +03:00
|
|
|
|
[%west p=ship q=[path *]] :: network request
|
2018-07-11 06:39:13 +03:00
|
|
|
|
[%wise p=ship q=prox] :: proxy notification
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
|
|
|
|
|
-- ::able
|
|
|
|
|
|
::
|
|
|
|
|
|
:::: :: (1e2)
|
|
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ bale :: driver state
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* a/_* :: %jael keys type
|
|
|
|
|
|
$: {our/ship now/@da eny/@uvJ byk/beak} :: base info
|
|
|
|
|
|
{usr/user dom/(list @t)} :: req user, domain
|
|
|
|
|
|
key/a :: secrets from %jael
|
2016-12-02 04:17:02 +03:00
|
|
|
|
== ::
|
|
|
|
|
|
::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ clip (each @if @is) :: client IP
|
|
|
|
|
|
++ cred :: credential
|
|
|
|
|
|
$: hut/hart :: client host
|
|
|
|
|
|
aut/(jug @tas @t) :: client identities
|
|
|
|
|
|
orx/oryx :: CSRF secret
|
|
|
|
|
|
acl/(unit @t) :: accept-language
|
|
|
|
|
|
cip/(each @if @is) :: client IP
|
|
|
|
|
|
cum/(map @tas *) :: custom dirt
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ epic :: FCGI parameters
|
|
|
|
|
|
$: qix/(map @t @t) :: query
|
|
|
|
|
|
ced/cred :: client credentials
|
|
|
|
|
|
bem/beam :: original path
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2018-08-16 04:05:30 +03:00
|
|
|
|
++ gram :: inter-ship message
|
|
|
|
|
|
$% [%lon p=hole] :: login request
|
|
|
|
|
|
[%aut p=hole] :: login reply
|
|
|
|
|
|
[%hat p=hole q=hart] :: login redirect
|
|
|
|
|
|
[%get p=@uvH q=[? clip httq]] :: remote request
|
|
|
|
|
|
[%got p=@uvH q=httr] :: remote response
|
|
|
|
|
|
[%gib p=@uvH] :: remote cancel
|
2018-04-25 01:26:20 +03:00
|
|
|
|
::
|
2018-08-16 04:05:30 +03:00
|
|
|
|
[%get-inner p=@uvH q=mark r=coin s=beam] ::TODO details?
|
|
|
|
|
|
[%got-inner p=@uvH q=(each (cask) tang)] ::TODO details?
|
2018-06-06 20:24:59 +03:00
|
|
|
|
::
|
2018-08-16 04:05:30 +03:00
|
|
|
|
[%not p=prox] :: proxy notification
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ hart {p/? q/(unit @ud) r/host} :: http sec+port+host
|
|
|
|
|
|
++ hate {p/purl q/@p r/moth} :: semi-cooked request
|
|
|
|
|
|
++ heir {p/@ud q/mess r/(unit love)} :: status+headers+data
|
|
|
|
|
|
++ hiss {p/purl q/moth} :: outbound request
|
|
|
|
|
|
++ hole @t :: session identity
|
|
|
|
|
|
++ hort {p/(unit @ud) q/host} :: http port+host
|
2018-10-04 09:43:40 +03:00
|
|
|
|
++ host (each turf @if) :: http host
|
2018-08-16 04:05:30 +03:00
|
|
|
|
++ hoke %+ each {$localhost ~} :: local host
|
2016-11-24 07:25:07 +03:00
|
|
|
|
?($.0.0.0.0 $.127.0.0.1) ::
|
2018-06-13 22:08:10 +03:00
|
|
|
|
:: +http-config: full http-server configuration
|
|
|
|
|
|
::
|
|
|
|
|
|
+= http-config
|
2018-06-28 20:33:47 +03:00
|
|
|
|
$: :: secure: PEM-encoded RSA private key and cert or cert chain
|
2018-06-13 22:08:10 +03:00
|
|
|
|
::
|
2018-06-28 20:33:47 +03:00
|
|
|
|
secure=(unit [key=wain cert=wain])
|
2018-06-13 22:08:10 +03:00
|
|
|
|
:: proxy: reverse TCP proxy HTTP(s)
|
|
|
|
|
|
::
|
|
|
|
|
|
proxy=?
|
|
|
|
|
|
:: log: keep HTTP(s) access logs
|
|
|
|
|
|
::
|
|
|
|
|
|
log=?
|
|
|
|
|
|
:: redirect: send 301 redirects to upgrade HTTP to HTTPS
|
|
|
|
|
|
::
|
|
|
|
|
|
:: Note: requires certificate.
|
|
|
|
|
|
::
|
|
|
|
|
|
redirect=?
|
|
|
|
|
|
==
|
2018-06-28 20:33:47 +03:00
|
|
|
|
:: +http-rule: update configuration
|
|
|
|
|
|
::
|
|
|
|
|
|
+= http-rule
|
|
|
|
|
|
$% :: %cert: set or clear certificate and keypair
|
|
|
|
|
|
::
|
|
|
|
|
|
[%cert p=(unit [key=wain cert=wain])]
|
|
|
|
|
|
:: %turf: add or remove established dns binding
|
|
|
|
|
|
::
|
2018-10-04 09:43:40 +03:00
|
|
|
|
[%turf p=?(%put %del) q=turf]
|
2018-06-28 20:33:47 +03:00
|
|
|
|
==
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ httq :: raw http request
|
|
|
|
|
|
$: p/meth :: method
|
|
|
|
|
|
q/@t :: unparsed url
|
|
|
|
|
|
r/(list {p/@t q/@t}) :: headers
|
|
|
|
|
|
s/(unit octs) :: body
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ httr {p/@ud q/mess r/(unit octs)} :: raw http response
|
|
|
|
|
|
++ httx :: encapsulated http
|
|
|
|
|
|
$: p/? :: https?
|
|
|
|
|
|
q/clip :: source IP
|
|
|
|
|
|
r/httq ::
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ user knot :: username
|
|
|
|
|
|
++ love :: http response
|
|
|
|
|
|
$% {$ham p/manx} :: html node
|
|
|
|
|
|
{$mid p/mite q/octs} :: mime-typed data
|
|
|
|
|
|
{$raw p/httr} :: raw http response
|
|
|
|
|
|
{$wan p/wain} :: text lines
|
|
|
|
|
|
{$zap p/@ud q/(list tank)} :: status+error
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ math (map @t (list @t)) :: semiparsed headers
|
|
|
|
|
|
++ mess (list {p/@t q/@t}) :: raw http headers
|
|
|
|
|
|
++ meth :: http methods
|
|
|
|
|
|
$? $conn :: CONNECT
|
|
|
|
|
|
$delt :: DELETE
|
|
|
|
|
|
$get :: GET
|
|
|
|
|
|
$head :: HEAD
|
|
|
|
|
|
$opts :: OPTIONS
|
|
|
|
|
|
$post :: POST
|
|
|
|
|
|
$put :: PUT
|
|
|
|
|
|
$trac :: TRACE
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ mite (list @ta) :: mime type
|
|
|
|
|
|
++ moth {p/meth q/math r/(unit octs)} :: http operation
|
|
|
|
|
|
++ octs {p/@ud q/@t} :: octet-stream
|
|
|
|
|
|
++ oryx @t :: CSRF secret
|
|
|
|
|
|
++ pork {p/(unit @ta) q/(list @t)} :: fully parsed url
|
2018-07-11 06:39:13 +03:00
|
|
|
|
:: +prox: proxy notification
|
|
|
|
|
|
::
|
|
|
|
|
|
:: Used on both the proxy (ward) and upstream sides for
|
|
|
|
|
|
:: sending/receiving proxied-request notifications.
|
|
|
|
|
|
::
|
|
|
|
|
|
+= prox
|
|
|
|
|
|
$: :: por: tcp port
|
|
|
|
|
|
::
|
|
|
|
|
|
por=@ud
|
|
|
|
|
|
:: sek: secure?
|
|
|
|
|
|
::
|
|
|
|
|
|
sek=?
|
|
|
|
|
|
:: non: authentication nonce
|
|
|
|
|
|
::
|
|
|
|
|
|
non=@uvJ
|
|
|
|
|
|
==
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ purf (pair purl (unit @t)) :: url with fragment
|
|
|
|
|
|
++ purl {p/hart q/pork r/quay} :: parsed url
|
|
|
|
|
|
++ quay (list {p/@t q/@t}) :: parsed url query
|
2018-08-16 04:05:30 +03:00
|
|
|
|
++ quer |-($@(~ {p/@t q/@t t/$})) :: query tree
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ quri :: request-uri
|
2018-03-19 06:54:47 +03:00
|
|
|
|
$% {%& p/purl} :: absolute
|
|
|
|
|
|
{%| p/pork q/quay} :: relative
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2018-11-03 08:17:34 +03:00
|
|
|
|
:: +reserved: check if an ipv4 address is in a reserved range
|
|
|
|
|
|
::
|
|
|
|
|
|
++ reserved
|
|
|
|
|
|
|= a=@if
|
|
|
|
|
|
^- ?
|
|
|
|
|
|
=/ b (flop (rip 3 a))
|
|
|
|
|
|
:: 0.0.0.0/8 (software)
|
|
|
|
|
|
::
|
|
|
|
|
|
?. ?=([@ @ @ @ ~] b) &
|
|
|
|
|
|
?| :: 10.0.0.0/8 (private)
|
|
|
|
|
|
::
|
|
|
|
|
|
=(10 i.b)
|
|
|
|
|
|
:: 100.64.0.0/10 (carrier-grade NAT)
|
|
|
|
|
|
::
|
|
|
|
|
|
&(=(100 i.b) (gte i.t.b 64) (lte i.t.b 127))
|
|
|
|
|
|
:: 127.0.0.0/8 (localhost)
|
|
|
|
|
|
::
|
|
|
|
|
|
=(127 i.b)
|
|
|
|
|
|
:: 169.254.0.0/16 (link-local)
|
|
|
|
|
|
::
|
|
|
|
|
|
&(=(169 i.b) =(254 i.t.b))
|
|
|
|
|
|
:: 172.16.0.0/12 (private)
|
|
|
|
|
|
::
|
|
|
|
|
|
&(=(172 i.b) (gte i.t.b 16) (lte i.t.b 31))
|
|
|
|
|
|
:: 192.0.0.0/24 (protocol assignment)
|
|
|
|
|
|
::
|
|
|
|
|
|
&(=(192 i.b) =(0 i.t.b) =(0 i.t.t.b))
|
|
|
|
|
|
:: 192.0.2.0/24 (documentation)
|
|
|
|
|
|
::
|
|
|
|
|
|
&(=(192 i.b) =(0 i.t.b) =(2 i.t.t.b))
|
|
|
|
|
|
:: 192.18.0.0/15 (reserved, benchmark)
|
|
|
|
|
|
::
|
|
|
|
|
|
&(=(192 i.b) |(=(18 i.t.b) =(19 i.t.b)))
|
|
|
|
|
|
:: 192.51.100.0/24 (documentation)
|
|
|
|
|
|
::
|
|
|
|
|
|
&(=(192 i.b) =(51 i.t.b) =(100 i.t.t.b))
|
|
|
|
|
|
:: 192.88.99.0/24 (reserved, ex-anycast)
|
|
|
|
|
|
::
|
|
|
|
|
|
&(=(192 i.b) =(88 i.t.b) =(99 i.t.t.b))
|
|
|
|
|
|
:: 192.168.0.0/16 (private)
|
|
|
|
|
|
::
|
|
|
|
|
|
&(=(192 i.b) =(168 i.t.b))
|
|
|
|
|
|
:: 203.0.113/24 (documentation)
|
|
|
|
|
|
::
|
|
|
|
|
|
&(=(203 i.b) =(0 i.t.b) =(113 i.t.t.b))
|
|
|
|
|
|
:: 224.0.0.0/8 (multicast)
|
|
|
|
|
|
:: 240.0.0.0/4 (reserved, future)
|
|
|
|
|
|
:: 255.255.255.255/32 (broadcast)
|
|
|
|
|
|
::
|
|
|
|
|
|
(gte i.b 224)
|
|
|
|
|
|
==
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ rout {p/(list host) q/path r/oryx s/path} :: http route (new)
|
|
|
|
|
|
++ sec-move :: driver effect
|
|
|
|
|
|
$% {$send p/hiss} :: http out
|
|
|
|
|
|
{$show p/purl} :: direct user to url
|
|
|
|
|
|
{$give p/httr} :: respond immediately
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$redo ~} :: restart request qeu
|
2016-12-02 04:17:02 +03:00
|
|
|
|
== ::
|
2016-11-24 07:25:07 +03:00
|
|
|
|
-- ::eyre
|
2016-12-08 06:57:22 +03:00
|
|
|
|
:: ::::
|
|
|
|
|
|
:::: ++ford :: (1f) build
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::::
|
2018-05-31 02:25:28 +03:00
|
|
|
|
:: |ford: build system vane interface
|
|
|
|
|
|
::
|
2018-08-09 00:47:01 +03:00
|
|
|
|
++ ford ^?
|
2018-05-31 02:25:28 +03:00
|
|
|
|
|%
|
|
|
|
|
|
:: |able:ford: ford's public +move interface
|
|
|
|
|
|
::
|
|
|
|
|
|
++ able ^?
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: +task:able:ford: requests to ford
|
|
|
|
|
|
::
|
|
|
|
|
|
+= task
|
2018-06-06 03:11:06 +03:00
|
|
|
|
$% :: %build: perform a build, either live or once
|
2018-05-31 02:25:28 +03:00
|
|
|
|
::
|
2018-06-06 03:11:06 +03:00
|
|
|
|
$: %build
|
2018-07-23 23:58:38 +03:00
|
|
|
|
:: live: whether we run this build live
|
|
|
|
|
|
::
|
|
|
|
|
|
:: A live build will subscribe to further updates and keep the
|
|
|
|
|
|
:: build around.
|
|
|
|
|
|
::
|
|
|
|
|
|
live=?
|
2018-05-31 02:25:28 +03:00
|
|
|
|
:: plan: the schematic to build
|
|
|
|
|
|
::
|
|
|
|
|
|
=schematic
|
|
|
|
|
|
==
|
2018-08-21 02:59:44 +03:00
|
|
|
|
:: %keep: reset cache sizes
|
2018-08-15 23:48:41 +03:00
|
|
|
|
::
|
2018-08-21 02:59:44 +03:00
|
|
|
|
[%keep compiler-cache=@ud build-cache=@ud]
|
2018-06-06 03:11:06 +03:00
|
|
|
|
:: %kill: stop a build; send on same duct as original %build request
|
2018-05-31 02:25:28 +03:00
|
|
|
|
::
|
2018-12-13 09:38:35 +03:00
|
|
|
|
[%kill ~]
|
2018-10-26 00:41:05 +03:00
|
|
|
|
:: %sunk: receive a report that a foreign ship has lost continuity
|
2018-10-10 04:24:25 +03:00
|
|
|
|
::
|
2018-10-26 00:41:05 +03:00
|
|
|
|
[%sunk =ship =life]
|
2018-05-31 02:25:28 +03:00
|
|
|
|
:: %wegh: produce memory usage information
|
|
|
|
|
|
::
|
|
|
|
|
|
[%wegh ~]
|
2018-08-15 23:07:39 +03:00
|
|
|
|
:: %wipe: wipes stored builds
|
2018-05-31 02:25:28 +03:00
|
|
|
|
::
|
2018-08-15 23:07:39 +03:00
|
|
|
|
[%wipe percent-to-remove=@ud]
|
2018-05-31 02:25:28 +03:00
|
|
|
|
==
|
|
|
|
|
|
:: +gift:able:ford: responses from ford
|
|
|
|
|
|
::
|
|
|
|
|
|
+= gift
|
|
|
|
|
|
$% :: %mass: memory usage; response to %wegh +task
|
|
|
|
|
|
::
|
|
|
|
|
|
[%mass p=mass]
|
2018-06-06 03:11:06 +03:00
|
|
|
|
:: %made: build result; response to %build +task
|
2018-05-31 02:25:28 +03:00
|
|
|
|
::
|
|
|
|
|
|
$: %made
|
|
|
|
|
|
:: date: formal date of the build
|
|
|
|
|
|
::
|
|
|
|
|
|
date=@da
|
|
|
|
|
|
:: result: result of the build; either complete build, or error
|
|
|
|
|
|
::
|
2018-06-06 03:11:06 +03:00
|
|
|
|
result=made-result
|
|
|
|
|
|
== ==
|
2018-05-31 02:25:28 +03:00
|
|
|
|
--
|
2018-06-06 03:11:06 +03:00
|
|
|
|
:: +made-result: the main payload for a %made +gift
|
|
|
|
|
|
::
|
|
|
|
|
|
+= made-result
|
|
|
|
|
|
$% :: %complete: contains the result of the completed build
|
|
|
|
|
|
::
|
|
|
|
|
|
[%complete =build-result]
|
|
|
|
|
|
:: %incomplete: couldn't finish build; contains error message
|
|
|
|
|
|
::
|
|
|
|
|
|
[%incomplete =tang]
|
|
|
|
|
|
==
|
2018-05-31 02:25:28 +03:00
|
|
|
|
:: +disc: a desk on a ship; can be used as a beak that varies with time
|
|
|
|
|
|
::
|
|
|
|
|
|
+= disc [=ship =desk]
|
|
|
|
|
|
:: +rail: a time-varying full path
|
|
|
|
|
|
::
|
|
|
|
|
|
:: This can be thought of as a +beam without a +case, which is what
|
|
|
|
|
|
:: would specify the time. :spur is flopped just like the +spur in a +beam.
|
|
|
|
|
|
::
|
|
|
|
|
|
+= rail [=disc =spur]
|
|
|
|
|
|
:: +resource: time-varying dependency on a value from the urbit namespace
|
|
|
|
|
|
::
|
|
|
|
|
|
+= resource
|
|
|
|
|
|
$: :: vane which we are querying
|
|
|
|
|
|
::
|
2018-08-18 01:27:47 +03:00
|
|
|
|
vane=%c
|
2018-05-31 02:25:28 +03:00
|
|
|
|
:: type of request
|
|
|
|
|
|
::
|
|
|
|
|
|
:: TODO: care:clay should be cleaned up in zuse as it is a general
|
|
|
|
|
|
:: type, not a clay specific one.
|
|
|
|
|
|
::
|
|
|
|
|
|
care=care:clay
|
|
|
|
|
|
:: path on which to depend, missing time, which will be filled in
|
|
|
|
|
|
::
|
|
|
|
|
|
=rail
|
|
|
|
|
|
==
|
|
|
|
|
|
:: +build-result: the referentially transparent result of a +build
|
|
|
|
|
|
::
|
|
|
|
|
|
:: A +build produces either an error or a result. A result is a tagged
|
|
|
|
|
|
:: union of the various kinds of datatypes a build can produce. The tag
|
|
|
|
|
|
:: represents the sub-type of +schematic that produced the result.
|
|
|
|
|
|
::
|
|
|
|
|
|
+= build-result
|
|
|
|
|
|
$% :: %error: the build produced an error whose description is :message
|
|
|
|
|
|
::
|
|
|
|
|
|
[%error message=tang]
|
|
|
|
|
|
:: %success: result of successful +build, tagged by +schematic sub-type
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %success
|
|
|
|
|
|
$^ [head=build-result tail=build-result]
|
|
|
|
|
|
$% [%$ =cage]
|
|
|
|
|
|
[%alts =build-result]
|
|
|
|
|
|
[%bake =cage]
|
|
|
|
|
|
[%bunt =cage]
|
|
|
|
|
|
[%call =vase]
|
|
|
|
|
|
[%cast =cage]
|
|
|
|
|
|
[%core =vase]
|
|
|
|
|
|
[%diff =cage]
|
|
|
|
|
|
[%hood =scaffold]
|
|
|
|
|
|
[%join =cage]
|
2018-06-13 00:51:21 +03:00
|
|
|
|
[%list results=(list build-result)]
|
2018-05-31 02:25:28 +03:00
|
|
|
|
[%mash =cage]
|
|
|
|
|
|
[%mute =cage]
|
|
|
|
|
|
[%pact =cage]
|
|
|
|
|
|
[%path =rail]
|
|
|
|
|
|
[%plan =vase]
|
|
|
|
|
|
[%reef =vase]
|
|
|
|
|
|
[%ride =vase]
|
|
|
|
|
|
[%scry =cage]
|
|
|
|
|
|
[%slim [=type =nock]]
|
|
|
|
|
|
[%slit =type]
|
|
|
|
|
|
[%vale =cage]
|
|
|
|
|
|
[%volt =cage]
|
2018-06-23 01:20:52 +03:00
|
|
|
|
[%walk results=(list mark-action)]
|
2018-05-31 02:25:28 +03:00
|
|
|
|
== == ==
|
2018-06-23 01:20:52 +03:00
|
|
|
|
:: +mark-action: represents a single mark conversion step
|
|
|
|
|
|
::
|
|
|
|
|
|
:: In mark conversion, we want to convert from :source to :target. We also
|
|
|
|
|
|
:: need to keep track of what type of conversion this is. If %grab, we
|
|
|
|
|
|
:: want to use the definitions in the :target mark. If %grow, we want to
|
|
|
|
|
|
:: use the :source mark.
|
|
|
|
|
|
::
|
|
|
|
|
|
+= mark-action [type=?(%grow %grab) source=term target=term]
|
2018-05-31 02:25:28 +03:00
|
|
|
|
::
|
|
|
|
|
|
:: +schematic: plan for building
|
|
|
|
|
|
::
|
|
|
|
|
|
++ schematic
|
|
|
|
|
|
:: If the head of the +schematic is a pair, it's an auto-cons
|
|
|
|
|
|
:: schematic. Its result will be the pair of results of its
|
|
|
|
|
|
:: sub-schematics.
|
|
|
|
|
|
::
|
|
|
|
|
|
$^ [head=schematic tail=schematic]
|
|
|
|
|
|
::
|
|
|
|
|
|
$% :: %$: literal value. Produces its input unchanged.
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %$
|
|
|
|
|
|
:: literal: the value to be produced by the build
|
|
|
|
|
|
::
|
|
|
|
|
|
literal=cage
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %pin: pins a sub-schematic to a date
|
|
|
|
|
|
::
|
|
|
|
|
|
:: There is a difference between live builds and once builds. In
|
|
|
|
|
|
:: live builds, we produce results over and over again and aren't
|
|
|
|
|
|
:: pinned to a specifc time. In once builds, we want to specify a
|
|
|
|
|
|
:: specific date, which we apply recursively to any sub-schematics
|
|
|
|
|
|
:: contained within :schematic.
|
|
|
|
|
|
::
|
|
|
|
|
|
:: If a build has a %pin at the top level, we consider it to be a
|
|
|
|
|
|
:: once build. Otherwise, we consider it to be a live build. We do
|
|
|
|
|
|
:: this so schematics which depend on the result of a once build can
|
|
|
|
|
|
:: be cached, giving the client explicit control over the caching
|
|
|
|
|
|
:: behaviour.
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %pin
|
|
|
|
|
|
:: date: time at which to perform the build
|
|
|
|
|
|
::
|
|
|
|
|
|
date=@da
|
|
|
|
|
|
:: schematic: wrapped schematic of pinned time
|
|
|
|
|
|
::
|
|
|
|
|
|
=schematic
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %alts: alternative build choices
|
|
|
|
|
|
::
|
|
|
|
|
|
:: Try each choice in :choices, in order; accept the first one that
|
|
|
|
|
|
:: succeeds. Note that the result inherits the dependencies of all
|
|
|
|
|
|
:: failed schematics, as well as the successful one.
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %alts
|
|
|
|
|
|
:: choices: list of build options to try
|
|
|
|
|
|
::
|
|
|
|
|
|
choices=(list schematic)
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %bake: run a file through a renderer
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %bake
|
|
|
|
|
|
:: renderer: name of renderer; also its file path in ren/
|
|
|
|
|
|
::
|
|
|
|
|
|
renderer=term
|
|
|
|
|
|
:: query-string: the query string of the renderer's http path
|
|
|
|
|
|
::
|
|
|
|
|
|
query-string=coin
|
|
|
|
|
|
:: path-to-render: full path of file to render
|
|
|
|
|
|
::
|
|
|
|
|
|
path-to-render=rail
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %bunt: produce the default value for a mark
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %bunt
|
|
|
|
|
|
:: disc where in clay to load the mark from
|
|
|
|
|
|
::
|
|
|
|
|
|
=disc
|
|
|
|
|
|
:: mark: name of mark; also its file path in mar/
|
|
|
|
|
|
::
|
|
|
|
|
|
mark=term
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %call: call a gate on a sample
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %call
|
|
|
|
|
|
:: gate: schematic whose result is a gate
|
|
|
|
|
|
::
|
|
|
|
|
|
gate=schematic
|
|
|
|
|
|
:: sample: schematic whose result will be the gate's sample
|
|
|
|
|
|
::
|
|
|
|
|
|
sample=schematic
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %cast: cast the result of a schematic through a mark
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %cast
|
|
|
|
|
|
:: disc where in clay to load the mark from
|
|
|
|
|
|
::
|
|
|
|
|
|
=disc
|
|
|
|
|
|
:: mark: name of mark; also its file path in ren/
|
|
|
|
|
|
::
|
|
|
|
|
|
mark=term
|
|
|
|
|
|
:: input: schematic whose result will be run through the mark
|
|
|
|
|
|
::
|
|
|
|
|
|
input=schematic
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %core: build a hoon program from a source file
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %core
|
|
|
|
|
|
:: source-path: clay path from which to load hoon source
|
|
|
|
|
|
::
|
|
|
|
|
|
source-path=rail
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %diff: produce marked diff from :first to :second
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %diff
|
|
|
|
|
|
:: disc where in clay to load the mark from
|
|
|
|
|
|
::
|
|
|
|
|
|
=disc
|
|
|
|
|
|
:: old: schematic producing data to be used as diff starting point
|
|
|
|
|
|
::
|
|
|
|
|
|
start=schematic
|
|
|
|
|
|
:: new: schematic producing data to be used as diff ending point
|
|
|
|
|
|
::
|
|
|
|
|
|
end=schematic
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %dude: wrap a failure's error message with an extra message
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %dude
|
|
|
|
|
|
:: error: a trap producing an error message to wrap the original
|
|
|
|
|
|
::
|
|
|
|
|
|
error=(trap tank)
|
|
|
|
|
|
:: attempt: the schematic to try, whose error we wrap, if any
|
|
|
|
|
|
::
|
|
|
|
|
|
attempt=schematic
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %hood: create a +hood from a hoon source file
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %hood
|
|
|
|
|
|
:: source-path: clay path from which to load hoon source
|
|
|
|
|
|
::
|
|
|
|
|
|
source-path=rail
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %join: merge two diffs into one diff; produces `~` if conflicts
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %join
|
|
|
|
|
|
:: disc where in clay to load the mark from
|
|
|
|
|
|
::
|
|
|
|
|
|
=disc
|
|
|
|
|
|
:: mark: name of the mark to use for diffs; also file path in mar/
|
|
|
|
|
|
::
|
|
|
|
|
|
mark=term
|
|
|
|
|
|
:: first: schematic producing first diff
|
|
|
|
|
|
::
|
|
|
|
|
|
first=schematic
|
|
|
|
|
|
:: second: schematic producing second diff
|
|
|
|
|
|
::
|
|
|
|
|
|
second=schematic
|
|
|
|
|
|
==
|
2018-06-13 00:51:21 +03:00
|
|
|
|
:: %list: performs a list of schematics, returns a list of +builds-results
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %list
|
|
|
|
|
|
:: schematics: list of builds to perform
|
|
|
|
|
|
::
|
|
|
|
|
|
schematics=(list schematic)
|
|
|
|
|
|
==
|
2018-05-31 02:25:28 +03:00
|
|
|
|
:: %mash: force a merge, annotating any conflicts
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %mash
|
|
|
|
|
|
:: disc where in clay to load the mark from
|
|
|
|
|
|
::
|
|
|
|
|
|
=disc
|
|
|
|
|
|
:: mark: name of mark used in diffs; also file path in mar/
|
|
|
|
|
|
::
|
|
|
|
|
|
mark=term
|
|
|
|
|
|
:: first: marked schematic producing first diff
|
|
|
|
|
|
::
|
|
|
|
|
|
first=[=disc mark=term =schematic]
|
|
|
|
|
|
:: second: marked schematic producing second diff
|
|
|
|
|
|
::
|
|
|
|
|
|
second=[=disc mark=term =schematic]
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %mute: mutate a noun by replacing its wings with new values
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %mute
|
|
|
|
|
|
:: subject: schematic producing the noun to mutate
|
|
|
|
|
|
::
|
|
|
|
|
|
subject=schematic
|
|
|
|
|
|
:: mutations: axes and schematics to produce their new contents
|
|
|
|
|
|
::
|
|
|
|
|
|
mutations=(list (pair wing schematic))
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %pact: patch a marked noun by applying a diff
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %pact
|
|
|
|
|
|
:: disc where in clay to load marks from
|
|
|
|
|
|
::
|
|
|
|
|
|
=disc
|
|
|
|
|
|
:: start: schematic producing a noun to be patched
|
|
|
|
|
|
::
|
|
|
|
|
|
start=schematic
|
|
|
|
|
|
:: diff: schematic producing the diff to apply to :start
|
|
|
|
|
|
::
|
|
|
|
|
|
diff=schematic
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %path: resolve a path with `-`s to a path with `/`s
|
|
|
|
|
|
::
|
|
|
|
|
|
:: Resolve +raw-path to a path containing a file, replacing
|
|
|
|
|
|
:: any `-`s in the path with `/`s if no file exists at the
|
|
|
|
|
|
:: original path. Produces an error if multiple files match,
|
|
|
|
|
|
:: e.g. a/b/c and a/b-c, or a/b/c and a-b/c.
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %path
|
|
|
|
|
|
:: disc: the +disc forming the base of the path to be resolved
|
|
|
|
|
|
::
|
|
|
|
|
|
=disc
|
|
|
|
|
|
:: prefix: path prefix under which to resolve :raw-path, e.g. lib
|
|
|
|
|
|
::
|
|
|
|
|
|
prefix=@tas
|
|
|
|
|
|
:: raw-path: the file path to be resolved
|
|
|
|
|
|
::
|
|
|
|
|
|
raw-path=@tas
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %plan: build a hoon program from a preprocessed source file
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %plan
|
|
|
|
|
|
:: path-to-render: the clay path of a file being rendered
|
|
|
|
|
|
::
|
|
|
|
|
|
:: TODO: Once we've really implemented this, write the
|
|
|
|
|
|
:: documentation. (This is the path that starts out as the path
|
|
|
|
|
|
:: of the hoon source which generated the scaffold, but can be
|
|
|
|
|
|
:: changed with `/:`.)
|
|
|
|
|
|
::
|
|
|
|
|
|
path-to-render=rail
|
|
|
|
|
|
:: query-string: the query string of the http request
|
|
|
|
|
|
::
|
|
|
|
|
|
query-string=coin
|
|
|
|
|
|
:: scaffold: preprocessed hoon source and imports
|
|
|
|
|
|
::
|
|
|
|
|
|
=scaffold
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %reef: produce a hoon+zuse kernel. used internally for caching
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %reef
|
|
|
|
|
|
:: disc: location of sys/hoon/hoon and sys/zuse/hoon
|
|
|
|
|
|
::
|
|
|
|
|
|
=disc
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %ride: eval hoon as formula with result of a schematic as subject
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %ride
|
|
|
|
|
|
:: formula: a hoon to be evaluated against a subject
|
|
|
|
|
|
::
|
|
|
|
|
|
formula=hoon
|
|
|
|
|
|
:: subject: a schematic whose result will be used as subject
|
|
|
|
|
|
::
|
|
|
|
|
|
subject=schematic
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %same: the identity function
|
|
|
|
|
|
::
|
|
|
|
|
|
:: Functionally used to "unpin" a build for caching reasons. If you
|
|
|
|
|
|
:: run a %pin build, it is treated as a once build and is therefore
|
|
|
|
|
|
:: not cached. Wrapping the %pin schematic in a %same schematic
|
|
|
|
|
|
:: converts it to a live build, which will be cached due to live
|
|
|
|
|
|
:: build subscription semantics.
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %same
|
|
|
|
|
|
:: schematic that we evaluate to
|
|
|
|
|
|
::
|
|
|
|
|
|
=schematic
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %scry: lookup a value from the urbit namespace
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %scry
|
|
|
|
|
|
:: resource: a namespace request, with unspecified time
|
|
|
|
|
|
::
|
|
|
|
|
|
:: Schematics can only be resolved when specifying a time,
|
|
|
|
|
|
:: which will convert this +resource into a +scry-request.
|
|
|
|
|
|
::
|
|
|
|
|
|
=resource
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %slim: compile a hoon against a subject type
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %slim
|
|
|
|
|
|
:: compile-time subject type for the :formula
|
|
|
|
|
|
::
|
|
|
|
|
|
subject-type=type
|
|
|
|
|
|
:: formula: a +hoon to be compiled to (pair type nock)
|
|
|
|
|
|
::
|
|
|
|
|
|
formula=hoon
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %slit: get type of gate product
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %slit
|
|
|
|
|
|
:: gate: a vase containing a gate
|
|
|
|
|
|
::
|
|
|
|
|
|
gate=vase
|
|
|
|
|
|
:: sample: a vase containing the :gate's sample
|
|
|
|
|
|
::
|
|
|
|
|
|
sample=vase
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %vale: coerce a noun to a mark, validated
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %vale
|
|
|
|
|
|
:: disc where in clay to load the mark from
|
|
|
|
|
|
::
|
|
|
|
|
|
=disc
|
|
|
|
|
|
:: mark: name of mark to use; also file path in mar/
|
|
|
|
|
|
::
|
|
|
|
|
|
mark=term
|
|
|
|
|
|
:: input: the noun to be converted using the mark
|
|
|
|
|
|
::
|
|
|
|
|
|
input=*
|
|
|
|
|
|
==
|
|
|
|
|
|
:: %volt: coerce a noun to a mark, unsafe
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %volt
|
|
|
|
|
|
:: disc where in clay to load the mark from
|
|
|
|
|
|
::
|
|
|
|
|
|
=disc
|
|
|
|
|
|
:: mark: name of mark to use; also file path in mar/
|
|
|
|
|
|
::
|
|
|
|
|
|
mark=term
|
|
|
|
|
|
:: input: the noun to be converted using the mark
|
|
|
|
|
|
::
|
|
|
|
|
|
input=*
|
|
|
|
|
|
==
|
2018-06-23 01:20:52 +03:00
|
|
|
|
:: %walk: finds a mark conversion path between two marks
|
|
|
|
|
|
::
|
|
|
|
|
|
$: %walk
|
|
|
|
|
|
:: disc in clay to load the marks from
|
|
|
|
|
|
::
|
|
|
|
|
|
=disc
|
|
|
|
|
|
:: source: the original mark type
|
|
|
|
|
|
::
|
|
|
|
|
|
source=term
|
|
|
|
|
|
:: target: the destination mark type
|
|
|
|
|
|
::
|
|
|
|
|
|
target=term
|
|
|
|
|
|
==
|
2018-05-31 02:25:28 +03:00
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: +scaffold: program construction in progress
|
|
|
|
|
|
::
|
|
|
|
|
|
:: A source file with all its imports and requirements, which will be
|
|
|
|
|
|
:: built and combined into one final product.
|
|
|
|
|
|
::
|
|
|
|
|
|
+= scaffold
|
|
|
|
|
|
$: :: source-rail: the file this scaffold was parsed from
|
|
|
|
|
|
::
|
|
|
|
|
|
source-rail=rail
|
|
|
|
|
|
:: zuse-version: the kelvin version of the standard library
|
|
|
|
|
|
::
|
|
|
|
|
|
zuse-version=@ud
|
|
|
|
|
|
:: structures: files from %/sur which are included
|
|
|
|
|
|
::
|
|
|
|
|
|
structures=(list cable)
|
|
|
|
|
|
:: libraries: files from %/lib which are included
|
|
|
|
|
|
::
|
|
|
|
|
|
libraries=(list cable)
|
|
|
|
|
|
:: cranes: a list of resources to transform and include
|
|
|
|
|
|
::
|
|
|
|
|
|
cranes=(list crane)
|
|
|
|
|
|
:: sources: hoon sources, either parsed or on the filesystem
|
|
|
|
|
|
::
|
2018-07-20 02:49:11 +03:00
|
|
|
|
sources=(list hoon)
|
2018-05-31 02:25:28 +03:00
|
|
|
|
==
|
|
|
|
|
|
:: +cable: a reference to something on the filesystem
|
|
|
|
|
|
::
|
|
|
|
|
|
+= cable
|
|
|
|
|
|
$: :: face: the face to wrap around the imported file
|
|
|
|
|
|
::
|
|
|
|
|
|
face=(unit term)
|
|
|
|
|
|
:: file-path: location in clay
|
|
|
|
|
|
::
|
|
|
|
|
|
file-path=term
|
|
|
|
|
|
==
|
|
|
|
|
|
:: +truss: late-bound path
|
|
|
|
|
|
::
|
|
|
|
|
|
:: TODO: the +tyke data structure should be rethought, possibly as part
|
|
|
|
|
|
:: of this effort since it is actually a `(list (unit hoon))`, when it
|
|
|
|
|
|
:: only represents @tas. It should be a structure which explicitly
|
|
|
|
|
|
:: represents a path with holes that need to be filled in.
|
|
|
|
|
|
::
|
|
|
|
|
|
+= truss
|
|
|
|
|
|
$: pre=(unit tyke)
|
|
|
|
|
|
pof=(unit [p=@ud q=tyke])
|
|
|
|
|
|
==
|
|
|
|
|
|
:: +crane: parsed rune used to include and transform resources
|
|
|
|
|
|
::
|
|
|
|
|
|
:: Cranes lifting cranes lifting cranes!
|
|
|
|
|
|
::
|
|
|
|
|
|
:: A recursive tree of Ford directives that specifies instructions for
|
|
|
|
|
|
:: including and transforming resources from the Urbit namespace.
|
|
|
|
|
|
::
|
|
|
|
|
|
+= crane
|
|
|
|
|
|
$% $: :: %fssg: `/~` hoon literal
|
|
|
|
|
|
::
|
|
|
|
|
|
:: `/~ <hoon>` produces a crane that evaluates arbitrary hoon.
|
|
|
|
|
|
::
|
|
|
|
|
|
%fssg
|
|
|
|
|
|
=hoon
|
|
|
|
|
|
==
|
|
|
|
|
|
$: :: %fsbc: `/$` process query string
|
|
|
|
|
|
::
|
|
|
|
|
|
:: `/$` will call a gate with the query string supplied to this
|
|
|
|
|
|
:: build. If no query string, this errors.
|
|
|
|
|
|
::
|
|
|
|
|
|
%fsbc
|
|
|
|
|
|
=hoon
|
|
|
|
|
|
==
|
|
|
|
|
|
$: :: %fsbr: `/|` first of many options that succeeds
|
|
|
|
|
|
::
|
|
|
|
|
|
:: `/|` takes a series of cranes and produces the first one
|
|
|
|
|
|
:: (left-to-right) that succeeds. If none succeed, it produces
|
|
|
|
|
|
:: stack traces from all of its arguments.
|
|
|
|
|
|
::
|
|
|
|
|
|
%fsbr
|
|
|
|
|
|
:: choices: cranes to try
|
|
|
|
|
|
::
|
|
|
|
|
|
choices=(list crane)
|
|
|
|
|
|
==
|
|
|
|
|
|
$: :: %fsts: `/=` wrap a face around a crane
|
|
|
|
|
|
::
|
|
|
|
|
|
:: /= runs a crane (usually produced by another ford rune), takes
|
|
|
|
|
|
:: the result of that crane, and wraps a face around it.
|
|
|
|
|
|
::
|
|
|
|
|
|
%fsts
|
|
|
|
|
|
:: face: face to apply
|
|
|
|
|
|
::
|
|
|
|
|
|
face=term
|
|
|
|
|
|
:: crane: internal build step
|
|
|
|
|
|
::
|
|
|
|
|
|
=crane
|
|
|
|
|
|
==
|
|
|
|
|
|
$: :: %fsdt: `/.` null-terminated list
|
|
|
|
|
|
::
|
|
|
|
|
|
:: Produce a null-terminated list from a sequence of cranes,
|
|
|
|
|
|
:: terminated by a `==`.
|
|
|
|
|
|
::
|
|
|
|
|
|
%fsdt
|
|
|
|
|
|
:: items: cranes to evaluate
|
|
|
|
|
|
::
|
|
|
|
|
|
items=(list crane)
|
|
|
|
|
|
==
|
|
|
|
|
|
$: :: %fscm: `/,` switch by path
|
|
|
|
|
|
::
|
|
|
|
|
|
:: `/,` is a switch statement, which picks a branch to evaluate
|
|
|
|
|
|
:: based on whether the current path matches the path in the
|
|
|
|
|
|
:: switch statement. Takes a sequence of pairs of (path, crane)
|
|
|
|
|
|
:: terminated by a `==`.
|
|
|
|
|
|
::
|
|
|
|
|
|
%fscm
|
|
|
|
|
|
:: cases: produces evaluated crane of first +spur match
|
|
|
|
|
|
::
|
|
|
|
|
|
cases=(list (pair spur crane))
|
|
|
|
|
|
==
|
|
|
|
|
|
$: :: %fspm: `/&` pass through a series of marks
|
|
|
|
|
|
::
|
|
|
|
|
|
:: `/&` passes a crane through multiple marks, right-to-left.
|
|
|
|
|
|
::
|
|
|
|
|
|
%fspm
|
|
|
|
|
|
:: marks: marks to apply to :crane, in reverse order
|
|
|
|
|
|
::
|
|
|
|
|
|
marks=(list mark)
|
|
|
|
|
|
=crane
|
|
|
|
|
|
==
|
|
|
|
|
|
$: :: %fscb: `/_` run a crane on each file in the current directory
|
|
|
|
|
|
::
|
|
|
|
|
|
:: `/_` takes a crane as an argument. It produces a new crane
|
|
|
|
|
|
:: representing the result of mapping the supplied crane over the
|
|
|
|
|
|
:: list of files in the current directory. The keys in the
|
|
|
|
|
|
:: resulting map are the basenames of the files in the directory,
|
|
|
|
|
|
:: and each value is the result of running that crane on the
|
|
|
|
|
|
:: contents of the file.
|
|
|
|
|
|
::
|
|
|
|
|
|
%fscb
|
|
|
|
|
|
=crane
|
|
|
|
|
|
==
|
|
|
|
|
|
$: :: %fssm: `/;` operate on
|
|
|
|
|
|
::
|
|
|
|
|
|
:: `/;` takes a hoon and a crane. The hoon should evaluate to a
|
|
|
|
|
|
:: gate, which is then called with the result of the crane as its
|
|
|
|
|
|
:: sample.
|
|
|
|
|
|
::
|
|
|
|
|
|
%fssm
|
|
|
|
|
|
=hoon
|
|
|
|
|
|
=crane
|
|
|
|
|
|
==
|
|
|
|
|
|
$: :: %fscl: `/:` evaluate at path
|
|
|
|
|
|
::
|
|
|
|
|
|
:: `/:` takes a path and a +crane, and evaluates the crane with
|
|
|
|
|
|
:: the current path set to the supplied path.
|
|
|
|
|
|
::
|
|
|
|
|
|
%fscl
|
|
|
|
|
|
:: path: late bound path to be resolved relative to current beak
|
|
|
|
|
|
::
|
|
|
|
|
|
:: This becomes current path of :crane
|
|
|
|
|
|
::
|
|
|
|
|
|
path=truss
|
|
|
|
|
|
=crane
|
|
|
|
|
|
==
|
|
|
|
|
|
$: :: %fskt: `/^` cast
|
|
|
|
|
|
::
|
|
|
|
|
|
:: `/^` takes a +mold and a +crane, and casts the result of the
|
|
|
|
|
|
:: crane to the mold.
|
|
|
|
|
|
::
|
|
|
|
|
|
%fskt
|
|
|
|
|
|
:: mold: evaluates to a mold to be applied to :crane
|
|
|
|
|
|
::
|
2018-08-17 00:39:39 +03:00
|
|
|
|
=spec
|
2018-05-31 02:25:28 +03:00
|
|
|
|
=crane
|
|
|
|
|
|
==
|
2018-08-23 03:53:56 +03:00
|
|
|
|
$: :: %fstr: `/*` run :crane on all files with current path as prefix
|
|
|
|
|
|
::
|
|
|
|
|
|
%fstr
|
|
|
|
|
|
=crane
|
|
|
|
|
|
==
|
2018-05-31 02:25:28 +03:00
|
|
|
|
$: :: %fszp: `/!mark/` evaluate as hoon, then pass through mark
|
|
|
|
|
|
::
|
|
|
|
|
|
%fszp
|
|
|
|
|
|
=mark
|
|
|
|
|
|
==
|
|
|
|
|
|
$: :: %fszy: `/mark/` passes current path through :mark
|
|
|
|
|
|
::
|
|
|
|
|
|
%fszy
|
|
|
|
|
|
=mark
|
|
|
|
|
|
== ==
|
2018-06-01 03:14:39 +03:00
|
|
|
|
:: +result-to-cage: extract a +cage from a +build-result
|
|
|
|
|
|
::
|
|
|
|
|
|
++ result-to-cage
|
|
|
|
|
|
|= result=build-result
|
|
|
|
|
|
^- cage
|
|
|
|
|
|
?: ?=(%error -.result)
|
|
|
|
|
|
[%tang !>(message.result)]
|
|
|
|
|
|
?- -.+.result
|
|
|
|
|
|
^ [%noun (slop q:$(result head.result) q:$(result tail.result))]
|
|
|
|
|
|
%$ cage.result
|
|
|
|
|
|
%alts $(result build-result.result)
|
|
|
|
|
|
%bake cage.result
|
|
|
|
|
|
%bunt cage.result
|
|
|
|
|
|
%call [%noun vase.result]
|
|
|
|
|
|
%cast cage.result
|
|
|
|
|
|
%core [%noun vase.result]
|
|
|
|
|
|
%diff cage.result
|
|
|
|
|
|
%hood [%noun !>(scaffold.result)]
|
|
|
|
|
|
%join cage.result
|
2018-06-13 00:51:21 +03:00
|
|
|
|
%list [%noun -:!>(*(list cage)) (turn results.result result-to-cage)]
|
2018-06-01 03:14:39 +03:00
|
|
|
|
%mash cage.result
|
|
|
|
|
|
%mute cage.result
|
|
|
|
|
|
%pact cage.result
|
|
|
|
|
|
%path [%noun !>(rail.result)]
|
|
|
|
|
|
%plan [%noun vase.result]
|
|
|
|
|
|
%reef [%noun vase.result]
|
|
|
|
|
|
%ride [%noun vase.result]
|
|
|
|
|
|
%scry cage.result
|
|
|
|
|
|
%slim [%noun !>([type nock]:result)]
|
|
|
|
|
|
%slit [%noun !>(type.result)]
|
|
|
|
|
|
%vale cage.result
|
|
|
|
|
|
%volt cage.result
|
2018-06-23 01:20:52 +03:00
|
|
|
|
%walk [%noun !>(results.result)]
|
2018-06-01 03:14:39 +03:00
|
|
|
|
==
|
2018-06-16 01:36:41 +03:00
|
|
|
|
:: +result-as-error: extracts a tang out of a made-result
|
|
|
|
|
|
::
|
|
|
|
|
|
++ made-result-as-error
|
|
|
|
|
|
|= result=made-result
|
|
|
|
|
|
^- tang
|
|
|
|
|
|
?: ?=([%incomplete *] result)
|
|
|
|
|
|
tang.result
|
|
|
|
|
|
?: ?=([%complete %error *] result)
|
|
|
|
|
|
message.build-result.result
|
|
|
|
|
|
~
|
2018-05-31 02:25:28 +03:00
|
|
|
|
--
|
2016-12-08 06:57:22 +03:00
|
|
|
|
:: ::::
|
2016-12-08 22:47:05 +03:00
|
|
|
|
:::: ++gall :: (1g) extensions
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::::
|
2016-12-08 06:57:22 +03:00
|
|
|
|
++ gall ^?
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
2016-12-08 06:57:22 +03:00
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++able:gall :: (1g1) arvo moves
|
|
|
|
|
|
:: ::::
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ able ^?
|
|
|
|
|
|
|%
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ gift :: outgoing result
|
|
|
|
|
|
$% {$mass p/mass} :: memory usage
|
|
|
|
|
|
{$onto p/(each suss tang)} :: about agent
|
|
|
|
|
|
{$rend p/path q/*} :: network request
|
|
|
|
|
|
{$unto p/cuft} ::
|
|
|
|
|
|
{$mack p/(unit tang)} :: message ack
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ task :: incoming request
|
|
|
|
|
|
$% {$conf p/dock q/culm} :: configure app
|
|
|
|
|
|
{$init p/ship} :: set owner
|
|
|
|
|
|
{$deal p/sock q/cush} :: full transmission
|
2018-10-26 00:41:05 +03:00
|
|
|
|
{$sunk p=ship q/life} :: report death
|
2018-12-13 01:02:37 +03:00
|
|
|
|
{$west p/ship q/path r/*} :: network request
|
2018-12-20 19:48:11 +03:00
|
|
|
|
{$wegh ~} :: report memory
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
|
|
|
|
|
-- ::able
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ bitt (map bone (pair ship path)) :: incoming subs
|
|
|
|
|
|
++ boat :: outgoing subs
|
2016-12-07 06:14:39 +03:00
|
|
|
|
%+ map (pair bone wire) ::
|
|
|
|
|
|
(trel bean ship path) ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ bowl :: standard app state
|
|
|
|
|
|
$: $: our/ship :: host
|
|
|
|
|
|
src/ship :: guest
|
|
|
|
|
|
dap/term :: agent
|
2016-12-02 04:17:02 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
$: wex/boat :: outgoing subs
|
|
|
|
|
|
sup/bitt :: incoming subs
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
$: ost/bone :: opaque cause
|
|
|
|
|
|
act/@ud :: change number
|
|
|
|
|
|
eny/@uvJ :: entropy
|
|
|
|
|
|
now/@da :: current time
|
|
|
|
|
|
byk/beak :: load source
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== == ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ club :: agent action
|
|
|
|
|
|
$% {$peel p/mark q/path} :: translated peer
|
|
|
|
|
|
{$peer p/path} :: subscribe
|
|
|
|
|
|
{$poke p/cage} :: apply
|
|
|
|
|
|
{$puff p/mark q/noun} :: unchecked poke
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$pull ~} :: unsubscribe
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$punk p/mark q/cage} :: translated poke
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$pump ~} :: pump yes+no
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$peer-not p/tang} :: poison pill peer
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ cuft :: internal gift
|
|
|
|
|
|
$% {$coup p/(unit tang)} :: poke result
|
|
|
|
|
|
{$diff p/cage} :: subscription output
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$quit ~} :: close subscription
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$reap p/(unit tang)} :: peer result
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ culm :: config action
|
|
|
|
|
|
$% {$load p/scup} :: load+reload
|
2018-08-16 04:05:30 +03:00
|
|
|
|
:: {$kick ~} :: restart everything
|
|
|
|
|
|
:: {$stop ~} :: toggle suspend
|
|
|
|
|
|
:: {$wipe ~} :: destroy all state
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ cush (pair term club) :: internal task
|
|
|
|
|
|
++ dude term :: server identity
|
|
|
|
|
|
++ gill (pair ship term) :: general contact
|
2017-11-23 00:28:07 +03:00
|
|
|
|
++ scar :: opaque duct
|
|
|
|
|
|
$: p/@ud :: bone sequence
|
|
|
|
|
|
q/(map duct bone) :: by duct
|
|
|
|
|
|
r/(map bone duct) :: by bone
|
|
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ scup (pair ship desk) :: autoupdate
|
|
|
|
|
|
++ suss (trel dude @tas @da) :: config report
|
|
|
|
|
|
++ well (pair desk term) ::
|
2016-11-24 07:25:07 +03:00
|
|
|
|
-- ::gall
|
2016-12-08 06:57:22 +03:00
|
|
|
|
:: ::::
|
2016-12-08 22:47:05 +03:00
|
|
|
|
:::: ++jael :: (1h) security
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::::
|
2016-12-08 06:57:22 +03:00
|
|
|
|
++ jael ^?
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
2016-12-08 06:57:22 +03:00
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++able:jael :: (1h1) arvo moves
|
|
|
|
|
|
:: ::::
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ able ^?
|
|
|
|
|
|
=, pki
|
|
|
|
|
|
=, rights
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: %jael has two general kinds of task: changes
|
|
|
|
|
|
:: and change subscriptions.
|
|
|
|
|
|
::
|
|
|
|
|
|
:: change tasks are designed to match high-level
|
2017-12-22 00:44:17 +03:00
|
|
|
|
:: operations - for instance, we have %burn, %mint,
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: and %move, not just a single delta operation.
|
|
|
|
|
|
:: more of these operations will probably be added,
|
|
|
|
|
|
:: and invariants enforced at transaction end.
|
|
|
|
|
|
::
|
|
|
|
|
|
:: subscriptions are also user-focused - for instance,
|
|
|
|
|
|
:: %vein sends all the information needed to maintain
|
|
|
|
|
|
:: the secure channel, both rights and certificates.
|
|
|
|
|
|
:: the security-critical tasks (%veil, %vein, %vine)
|
|
|
|
|
|
:: should probably be bound to a whitelisted duct set.
|
|
|
|
|
|
:: (all secrets are redacted from %vest gifts.)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: %jael only talks to %ames and %behn. we send messages
|
|
|
|
|
|
:: through %ames and use %behn timers.
|
|
|
|
|
|
::
|
2018-06-01 18:30:14 +03:00
|
|
|
|
++ logs :: on-chain changes
|
2018-12-18 13:02:57 +03:00
|
|
|
|
%+ map event-id:ethereum-types :: per event log
|
2018-12-18 01:38:24 +03:00
|
|
|
|
diff-azimuth:azimuth-types :: the change
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ action :: balance change
|
2016-11-24 07:25:07 +03:00
|
|
|
|
%+ pair ship :: partner
|
2017-10-25 05:04:45 +03:00
|
|
|
|
%+ each bump :: &/liability change
|
|
|
|
|
|
bump :: |/asset change
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ balance :: balance sheet
|
2016-12-02 04:17:02 +03:00
|
|
|
|
%+ pair ::
|
2016-11-24 07:25:07 +03:00
|
|
|
|
(map ship safe) :: liabilities
|
|
|
|
|
|
(map ship safe) :: assets
|
|
|
|
|
|
:: ::
|
2018-11-02 00:19:44 +03:00
|
|
|
|
++ vent-result :: %vent result
|
|
|
|
|
|
$% [%snap snap=snapshot:jael] :: restore snapshot
|
|
|
|
|
|
[%chain can=chain] :: get new events
|
|
|
|
|
|
== ::
|
|
|
|
|
|
:: ::
|
2018-05-29 00:04:33 +03:00
|
|
|
|
++ chain :: batch of changes
|
2018-06-01 18:30:14 +03:00
|
|
|
|
%+ each logs :: & all events
|
|
|
|
|
|
logs :: | new events
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ change :: urbit change
|
2018-05-29 00:04:33 +03:00
|
|
|
|
$% [%ethe can=chain] :: on-chain change
|
2018-09-15 03:29:23 +03:00
|
|
|
|
[%meet who=ship =life =pass] :: meet in new era
|
2018-05-29 00:04:33 +03:00
|
|
|
|
$: %rite :: rights change
|
2017-10-25 05:04:45 +03:00
|
|
|
|
rex/ship :: issuer
|
|
|
|
|
|
pal/ship :: issued to
|
|
|
|
|
|
del/bump :: change
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== == ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ gift :: out result <-$
|
2018-09-07 04:41:16 +03:00
|
|
|
|
$% [%init p=ship] :: report install unix
|
2019-01-30 01:41:55 +03:00
|
|
|
|
[%mass p=mass] :: memory usage report
|
2018-09-07 04:41:16 +03:00
|
|
|
|
[%mack p=(unit tang)] :: message n/ack
|
2018-08-30 03:02:17 +03:00
|
|
|
|
[%pubs public] :: public keys
|
2018-10-04 09:43:40 +03:00
|
|
|
|
[%turf turf=(list turf)] :: domains
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$vest p/tally} :: balance update
|
2018-08-23 22:23:52 +03:00
|
|
|
|
[%vein =life vein=(map life ring)] :: private keys
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$vine p/(list change)} :: all raw changes
|
2018-11-02 00:19:44 +03:00
|
|
|
|
[%vent p=vent-result] :: ethereum changes
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2018-11-01 00:34:21 +03:00
|
|
|
|
:: ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ note :: out request $->
|
2018-10-10 04:24:25 +03:00
|
|
|
|
=, eyre ::
|
|
|
|
|
|
$% $: %b ::
|
|
|
|
|
|
$% [%rest p=@da] :: cancel timer
|
|
|
|
|
|
[%wait p=@da] :: wait until
|
|
|
|
|
|
== == ::
|
|
|
|
|
|
$: %e ::
|
|
|
|
|
|
$% [%hiss p=(unit user) q=mark r=cage] :: outbound user req
|
|
|
|
|
|
== == ::
|
|
|
|
|
|
$: %a ::
|
2018-12-12 23:34:18 +03:00
|
|
|
|
$% [%want p=ship q=path r=*] :: send message
|
2018-10-10 04:24:25 +03:00
|
|
|
|
== == ::
|
|
|
|
|
|
$: %j ::
|
2018-11-02 00:19:44 +03:00
|
|
|
|
$% [%vent-result p=vent-result] :: tmp workaround
|
2018-12-12 11:50:40 +03:00
|
|
|
|
[%look src=(each ship purl:eyre)] ::
|
2018-10-10 04:24:25 +03:00
|
|
|
|
== == ::
|
|
|
|
|
|
$: @tas ::
|
|
|
|
|
|
$% [%init p=ship] :: report install
|
2018-10-26 00:41:05 +03:00
|
|
|
|
[%sunk p=ship q=life] :: report death
|
2018-10-10 04:24:25 +03:00
|
|
|
|
== == == ::
|
2018-08-30 03:02:17 +03:00
|
|
|
|
++ public :: public key state
|
2018-12-06 03:26:32 +03:00
|
|
|
|
$: life=life :: current key number
|
2018-08-30 03:02:17 +03:00
|
|
|
|
pubs=(map life pass) :: pubkeys by number
|
|
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ remote :: remote notification
|
|
|
|
|
|
%+ each safe :: &/addition
|
|
|
|
|
|
safe :: |/replacement
|
2018-09-07 04:41:16 +03:00
|
|
|
|
:: +seed: private boot parameters
|
|
|
|
|
|
::
|
|
|
|
|
|
+$ seed [who=ship lyf=life key=ring sig=(unit oath:pki)]
|
|
|
|
|
|
::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ sign :: in result $<-
|
2018-11-01 00:34:21 +03:00
|
|
|
|
$% {$b $wake ~} :: wakeup
|
2018-05-16 00:16:29 +03:00
|
|
|
|
[%e %sigh p=cage] :: marked http response
|
2018-11-02 00:19:44 +03:00
|
|
|
|
[%j %vent p=vent-result] :: ethereum changes
|
2018-05-18 22:12:46 +03:00
|
|
|
|
[%a %woot p=ship q=coop] :: message result
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ tally :: balance update
|
2016-11-24 07:25:07 +03:00
|
|
|
|
%+ each balance :: complete
|
|
|
|
|
|
action :: change
|
|
|
|
|
|
::
|
2017-10-25 02:50:11 +03:00
|
|
|
|
+= task :: in request ->$
|
2018-12-12 11:50:40 +03:00
|
|
|
|
$% [%burn p=ship q=safe] :: destroy rights
|
|
|
|
|
|
[%hail p=ship q=remote] :: remote update
|
2018-09-07 04:41:16 +03:00
|
|
|
|
$: %dawn :: boot from keys
|
|
|
|
|
|
=seed:able:jael :: identity params
|
2018-12-21 17:59:12 +03:00
|
|
|
|
spon=ship :: sponsor
|
2018-09-07 04:41:16 +03:00
|
|
|
|
czar=(map ship [=life =pass]) :: galaxy table
|
2018-10-04 09:43:40 +03:00
|
|
|
|
turf=(list turf) :: domains
|
2018-10-29 22:38:14 +03:00
|
|
|
|
bloq=@ud :: block number
|
|
|
|
|
|
node=(unit purl:eyre) :: gateway url
|
2018-11-01 00:34:21 +03:00
|
|
|
|
snap=(unit snapshot) :: head start
|
2018-09-07 04:41:16 +03:00
|
|
|
|
== ::
|
2018-12-12 11:50:40 +03:00
|
|
|
|
[%fake =ship] :: fake boot
|
|
|
|
|
|
[%look src=(each ship purl:eyre)] :: set ethereum source
|
|
|
|
|
|
[%mint p=ship q=safe] :: create rights
|
|
|
|
|
|
[%move p=ship q=ship r=safe] :: transfer from=to
|
2018-05-29 23:03:20 +03:00
|
|
|
|
::TODO %next for generating/putting new private key
|
2017-10-27 01:39:14 +03:00
|
|
|
|
[%nuke ~] :: cancel tracker from
|
2018-12-12 11:50:40 +03:00
|
|
|
|
[%pubs =ship] :: view public keys
|
|
|
|
|
|
[%meet =ship =life =pass] :: met after breach
|
2019-01-16 03:33:17 +03:00
|
|
|
|
[%snap snap=snapshot kick=?] :: load snapshot
|
2018-10-04 09:43:40 +03:00
|
|
|
|
[%turf ~] :: view domains
|
2018-12-12 11:50:40 +03:00
|
|
|
|
[%vein ~] :: view signing keys
|
|
|
|
|
|
[%vent ~] :: view ethereum events
|
|
|
|
|
|
[%vest ~] :: view public balance
|
2017-10-27 01:39:14 +03:00
|
|
|
|
[%vine ~] :: view secret history
|
2019-01-30 01:41:55 +03:00
|
|
|
|
[%wegh ~] :: memory usage request
|
2018-12-13 01:02:37 +03:00
|
|
|
|
[%west p=ship q=path r=*] :: remote request
|
2018-12-12 11:50:40 +03:00
|
|
|
|
[%wind p=@ud] :: rewind before block
|
2016-12-07 06:14:39 +03:00
|
|
|
|
== ::
|
2018-11-01 01:18:40 +03:00
|
|
|
|
-- ::
|
|
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ::
|
2016-12-07 06:14:39 +03:00
|
|
|
|
:: ::
|
2018-11-01 01:18:40 +03:00
|
|
|
|
++ node-src :: ethereum node comms
|
|
|
|
|
|
$: node=purl:eyre :: node url
|
|
|
|
|
|
filter-id=@ud :: current filter
|
|
|
|
|
|
poll-timer=@da :: next filter poll
|
|
|
|
|
|
== ::
|
|
|
|
|
|
++ snapshot :: rewind point
|
2018-12-18 01:38:24 +03:00
|
|
|
|
=, azimuth-types ::
|
2018-12-06 03:26:32 +03:00
|
|
|
|
$: kyz=(map ship public:able) :: public key state
|
2018-11-01 01:18:40 +03:00
|
|
|
|
$= eth ::
|
|
|
|
|
|
$: dns=dnses :: on-chain dns state
|
2018-12-14 00:23:17 +03:00
|
|
|
|
pos=(map ship point) :: on-chain ship state
|
2018-11-01 01:18:40 +03:00
|
|
|
|
== ::
|
2018-12-06 03:26:32 +03:00
|
|
|
|
eth-bookmark
|
|
|
|
|
|
==
|
|
|
|
|
|
:: +eth-bookmark: cursor into the ethereum chain
|
|
|
|
|
|
::
|
|
|
|
|
|
++ eth-bookmark
|
2018-12-18 01:38:24 +03:00
|
|
|
|
$: heard=(set event-id:ethereum-types)
|
2018-12-06 03:26:32 +03:00
|
|
|
|
latest-block=@ud
|
|
|
|
|
|
==
|
|
|
|
|
|
:: +state-eth-node: state of a connection to an ethereum node
|
|
|
|
|
|
::
|
2018-11-01 01:18:40 +03:00
|
|
|
|
++ state-eth-node :: node config + meta
|
|
|
|
|
|
$: source=(each ship node-src) :: learning from
|
|
|
|
|
|
foreign-block=@ud :: node's latest block
|
2018-12-06 03:26:32 +03:00
|
|
|
|
eth-bookmark
|
2018-11-01 01:18:40 +03:00
|
|
|
|
== ::
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::
|
2016-12-08 22:47:05 +03:00
|
|
|
|
:::: ++pki:jael :: (1h2) certificates
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ pki ^?
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
2018-12-14 00:23:17 +03:00
|
|
|
|
::TODO update to fit azimuth-style keys
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: the urbit meta-certificate (++will) is a sequence
|
|
|
|
|
|
:: of certificates (++cert). each cert in a will
|
|
|
|
|
|
:: revokes and replaces the previous cert. the
|
|
|
|
|
|
:: version number of a ship is a ++life.
|
|
|
|
|
|
::
|
|
|
|
|
|
:: the deed contains an ++arms, a definition
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: of cosmetic identity; a semi-trusted parent,
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: which signs the initial certificate and provides
|
|
|
|
|
|
:: routing services; and a dirty bit. if the dirty
|
|
|
|
|
|
:: bit is set, the new life of this ship may have
|
|
|
|
|
|
:: lost information that the old life had.
|
|
|
|
|
|
::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ hand @uvH :: 128-bit hash
|
|
|
|
|
|
++ mind {who/ship lyf/life} :: key identifier
|
|
|
|
|
|
++ name (pair @ta @t) :: ascii / unicode
|
|
|
|
|
|
++ oath @ :: signature
|
2016-11-24 07:25:07 +03:00
|
|
|
|
-- :: pki
|
|
|
|
|
|
:: ::
|
2016-12-08 22:47:05 +03:00
|
|
|
|
:::: ++rights:jael :: (1h3) claims
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::::
|
|
|
|
|
|
++ rights ^?
|
|
|
|
|
|
=, pki
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: %jael tracks promises (++rite) from ship to ship.
|
|
|
|
|
|
:: a rite may be any right, badge, asset, secret, etc.
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: un-shared secret or private asset is stored as a
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: rite from self to self.
|
|
|
|
|
|
::
|
|
|
|
|
|
:: each rite is really a class of rights, and often
|
|
|
|
|
|
:: has its own internal set or map structure.
|
|
|
|
|
|
::
|
|
|
|
|
|
:: present kinds of rite:
|
|
|
|
|
|
::
|
|
|
|
|
|
:: %apple: application secret for a web api.
|
|
|
|
|
|
:: %block: the promisee is banned.
|
|
|
|
|
|
:: %email: email tied to promissee's ship.
|
2017-10-25 05:04:45 +03:00
|
|
|
|
:: %final: ship/ticket pair, ready to launch.
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: %fungi: fungible, countable asset.
|
|
|
|
|
|
:: %guest: permission to adopt foreign child.
|
|
|
|
|
|
:: %hotel: block of unissued children.
|
|
|
|
|
|
:: %jewel: urbit private keys.
|
|
|
|
|
|
:: %login: user's login passcode.
|
2017-10-25 05:04:45 +03:00
|
|
|
|
:: %pword: password for a website/api.
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: %token: user access token for a web api.
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: %urban: symmetric key for urbit networking.
|
2016-11-24 07:25:07 +03:00
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: %fungi keys can be anything, but don't reuse
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: currency codes. codes for urbit invitations:
|
|
|
|
|
|
:: %ugl == galaxy, %usr == star, %upl == planet
|
|
|
|
|
|
::
|
|
|
|
|
|
:: you can think of [our her rite] as an rdf triple.
|
|
|
|
|
|
::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ bill (pair @da @) :: expiring value
|
|
|
|
|
|
++ bump :: rights change
|
|
|
|
|
|
$: mor/safe :: add rights
|
|
|
|
|
|
les/safe :: lose rights
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ dorm (pair ship bloq) :: issuing group
|
|
|
|
|
|
++ pile (tree (pair @ @)) :: efficient ship set
|
|
|
|
|
|
++ rite :: urbit commitment
|
|
|
|
|
|
$% {$apple p/(map site @)} :: web api key
|
2018-10-26 00:37:04 +03:00
|
|
|
|
{$block ~} :: banned
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$email p/(set @t)} :: email addresses
|
2018-05-10 02:42:37 +03:00
|
|
|
|
{$final p/(map ship @pG)} :: ticketed ships
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$fungi p/(map term @ud)} :: fungibles
|
2018-10-26 00:37:04 +03:00
|
|
|
|
{$guest ~} :: refugee visa
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$hotel p/(map dorm pile)} :: reserved block
|
|
|
|
|
|
{$jewel p/(map life ring)} :: private keyring
|
|
|
|
|
|
{$login p/(set @pG)} :: login secret
|
|
|
|
|
|
{$pword p/(map site (map @t @t))} :: web passwd by user
|
|
|
|
|
|
{$token p/(map site (map @t @t))} :: app tokens by user
|
|
|
|
|
|
{$urban p/(map hand bill)} :: urbit symmetric keys
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ site (list @ta) :: [%com %yahoo %www ~]
|
|
|
|
|
|
++ safe (tree rite) :: rights set
|
2016-11-24 07:25:07 +03:00
|
|
|
|
-- :: rights
|
|
|
|
|
|
-- :: jael
|
2016-12-08 06:57:22 +03:00
|
|
|
|
:: ::::
|
2016-12-08 22:47:05 +03:00
|
|
|
|
:::: ++xmas :: (1i) new network
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: ::::
|
2016-12-08 06:57:22 +03:00
|
|
|
|
++ xmas ^?
|
|
|
|
|
|
:: ::
|
2016-12-08 22:47:05 +03:00
|
|
|
|
:::: ++able:xmas :: (1i1) arvo moves
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: ::::
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
|
|
|
|
|
++ able ^?
|
|
|
|
|
|
|%
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ gift ::
|
|
|
|
|
|
$% {$east p/*} :: response message
|
|
|
|
|
|
{$home p/lane q/@} :: process forward
|
|
|
|
|
|
{$send p/lane q/@} :: send packet
|
|
|
|
|
|
{$rest p/coop} :: acknowledgment
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ task :: in request ->$
|
|
|
|
|
|
$% {$hear p/lane q/@} ::
|
|
|
|
|
|
{$mess p/ship q/path r/*} :: send message
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$wake ~} ::
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ card :: out cards
|
|
|
|
|
|
$% {$west p/ship q/path r/*} :: network request
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ sign :: in response $-<
|
2017-12-01 03:48:41 +03:00
|
|
|
|
$: $g ::
|
|
|
|
|
|
$% {$rend p/path q/*} :: network request
|
|
|
|
|
|
{$mack p/(unit tang)} :: message ack
|
|
|
|
|
|
== == ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ note :: out request $->
|
|
|
|
|
|
$% {$c $west p/ship q/path r/*} :: to %clay
|
|
|
|
|
|
{$e $west p/ship q/path r/*} :: to %eyre
|
|
|
|
|
|
{$g $west p/ship q/path r/*} :: to %gall
|
|
|
|
|
|
$: $j :: to %jael
|
|
|
|
|
|
$% {$line p/ship q/@da r/code} ::
|
|
|
|
|
|
{$link p/ship q/@da r/code} ::
|
|
|
|
|
|
{$veil p/ship} ::
|
|
|
|
|
|
{$west p/ship q/path r/*} :: to %gall
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== == == ::
|
|
|
|
|
|
-- :: able
|
|
|
|
|
|
::
|
|
|
|
|
|
:::: :: (1i2)
|
|
|
|
|
|
::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ code @uvI :: symmetric key
|
|
|
|
|
|
++ lane :: packet route
|
|
|
|
|
|
$% {$if p/@da q/@ud r/@if} :: IP4/public UDP/addr
|
|
|
|
|
|
{$is p/@ud q/(unit lane) r/@is} :: IPv6 w+alternates
|
|
|
|
|
|
{$ix p/@da q/@ud r/@if} :: IPv4 provisional
|
2016-11-24 07:25:07 +03:00
|
|
|
|
== ::
|
|
|
|
|
|
-- ::xmas
|
|
|
|
|
|
-- ::
|
|
|
|
|
|
:: :: ::
|
2016-12-08 22:47:05 +03:00
|
|
|
|
:::: :: :: (2) engines
|
|
|
|
|
|
:: :: ::
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
2016-12-07 22:38:28 +03:00
|
|
|
|
:: ::::
|
|
|
|
|
|
:::: ++number :: (2a) number theory
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::::
|
2016-12-07 22:38:28 +03:00
|
|
|
|
++ number ^?
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++fu:number
|
|
|
|
|
|
++ fu :: modulo (mul p q)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/{p/@ q/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ b=?:(=([0 0] a) 0 (~(inv fo p.a) (~(sit fo p.a) q.a)))
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++dif:fu:number
|
|
|
|
|
|
++ dif :: subtract
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {c/{@ @} d/{@ @}}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
[(~(dif fo p.a) -.c -.d) (~(dif fo q.a) +.c +.d)]
|
|
|
|
|
|
:: :: ++exp:fu:number
|
|
|
|
|
|
++ exp :: exponent
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {c/@ d/{@ @}}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:- (~(exp fo p.a) (mod c (dec p.a)) -.d)
|
|
|
|
|
|
(~(exp fo q.a) (mod c (dec q.a)) +.d)
|
|
|
|
|
|
:: :: ++out:fu:number
|
|
|
|
|
|
++ out :: garner's formula
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= c/{@ @}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
%+ add +.c
|
|
|
|
|
|
%+ mul q.a
|
|
|
|
|
|
%+ ~(pro fo p.a) b
|
|
|
|
|
|
(~(dif fo p.a) -.c (~(sit fo p.a) +.c))
|
|
|
|
|
|
:: :: ++pro:fu:number
|
|
|
|
|
|
++ pro :: multiply
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {c/{@ @} d/{@ @}}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
[(~(pro fo p.a) -.c -.d) (~(pro fo q.a) +.c +.d)]
|
|
|
|
|
|
:: :: ++sum:fu:number
|
|
|
|
|
|
++ sum :: add
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {c/{@ @} d/{@ @}}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
[(~(sum fo p.a) -.c -.d) (~(sum fo q.a) +.c +.d)]
|
|
|
|
|
|
:: :: ++sit:fu:number
|
|
|
|
|
|
++ sit :: represent
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= c/@
|
2016-12-02 04:17:02 +03:00
|
|
|
|
[(mod c p.a) (mod c q.a)]
|
|
|
|
|
|
-- ::fu
|
|
|
|
|
|
:: :: ++pram:number
|
|
|
|
|
|
++ pram :: rabin-miller
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/@ ^- ?
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?: ?| =(0 (end 0 1 a))
|
|
|
|
|
|
=(1 a)
|
|
|
|
|
|
=+ b=1
|
|
|
|
|
|
|- ^- ?
|
|
|
|
|
|
?: =(512 b)
|
|
|
|
|
|
|
|
|
|
|
|
|
?|(=+(c=+((mul 2 b)) &(!=(a c) =(a (mul c (div a c))))) $(b +(b)))
|
|
|
|
|
|
==
|
|
|
|
|
|
|
|
|
|
|
|
|
=+ ^= b
|
|
|
|
|
|
=+ [s=(dec a) t=0]
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|- ^- {s/@ t/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?: =(0 (end 0 1 s))
|
|
|
|
|
|
$(s (rsh 0 1 s), t +(t))
|
|
|
|
|
|
[s t]
|
|
|
|
|
|
?> =((mul s.b (bex t.b)) (dec a))
|
|
|
|
|
|
=+ c=0
|
|
|
|
|
|
|- ^- ?
|
|
|
|
|
|
?: =(c 64)
|
|
|
|
|
|
&
|
|
|
|
|
|
=+ d=(~(raw og (add c a)) (met 0 a))
|
|
|
|
|
|
=+ e=(~(exp fo a) s.b d)
|
|
|
|
|
|
?& ?| =(1 e)
|
|
|
|
|
|
=+ f=0
|
|
|
|
|
|
|- ^- ?
|
|
|
|
|
|
?: =(e (dec a))
|
|
|
|
|
|
&
|
|
|
|
|
|
?: =(f (dec t.b))
|
|
|
|
|
|
|
|
|
|
|
|
|
$(e (~(pro fo a) e e), f +(f))
|
|
|
|
|
|
==
|
|
|
|
|
|
$(c +(c))
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++ramp:number
|
|
|
|
|
|
++ ramp :: make r-m prime
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {a/@ b/(list @) c/@} ^- @ux :: {bits snags seed}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=> .(c (shas %ramp c))
|
|
|
|
|
|
=+ d=*@
|
|
|
|
|
|
|-
|
|
|
|
|
|
?: =((mul 100 a) d)
|
|
|
|
|
|
~|(%ar-ramp !!)
|
|
|
|
|
|
=+ e=(~(raw og c) a)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
?: &((levy b |=(f/@ !=(1 (mod e f)))) (pram e))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
e
|
|
|
|
|
|
$(c +(c), d (shax d))
|
|
|
|
|
|
:: :: ++curt:number
|
|
|
|
|
|
++ curt :: curve25519
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {a/@ b/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=> %= .
|
|
|
|
|
|
+
|
|
|
|
|
|
=> +
|
|
|
|
|
|
=+ =+ [p=486.662 q=(sub (bex 255) 19)]
|
|
|
|
|
|
=+ fq=~(. fo q)
|
|
|
|
|
|
[p=p q=q fq=fq]
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++cla:curt:number
|
2016-12-07 22:38:28 +03:00
|
|
|
|
++ cla ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= raw/@
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ low=(dis 248 (cut 3 [0 1] raw))
|
|
|
|
|
|
=+ hih=(con 64 (dis 127 (cut 3 [31 1] raw)))
|
|
|
|
|
|
=+ mid=(cut 3 [1 30] raw)
|
|
|
|
|
|
(can 3 [[1 low] [30 mid] [1 hih] ~])
|
|
|
|
|
|
:: :: ++sqr:curt:number
|
2016-12-07 22:38:28 +03:00
|
|
|
|
++ sqr ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|=(a/@ (mul a a))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++inv:curt:number
|
2016-12-07 22:38:28 +03:00
|
|
|
|
++ inv ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|=(a/@ (~(exp fo q) (sub q 2) a))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++cad:curt:number
|
2016-12-07 22:38:28 +03:00
|
|
|
|
++ cad ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {n/{x/@ z/@} m/{x/@ z/@} d/{x/@ z/@}}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ ^= xx
|
|
|
|
|
|
;: mul 4 z.d
|
|
|
|
|
|
%- sqr %- abs:si
|
|
|
|
|
|
%+ dif:si
|
|
|
|
|
|
(sun:si (mul x.m x.n))
|
|
|
|
|
|
(sun:si (mul z.m z.n))
|
|
|
|
|
|
==
|
|
|
|
|
|
=+ ^= zz
|
|
|
|
|
|
;: mul 4 x.d
|
|
|
|
|
|
%- sqr %- abs:si
|
|
|
|
|
|
%+ dif:si
|
|
|
|
|
|
(sun:si (mul x.m z.n))
|
|
|
|
|
|
(sun:si (mul z.m x.n))
|
|
|
|
|
|
==
|
|
|
|
|
|
[(sit.fq xx) (sit.fq zz)]
|
|
|
|
|
|
:: :: ++cub:curt:number
|
2016-12-07 22:38:28 +03:00
|
|
|
|
++ cub ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {x/@ z/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ ^= xx
|
|
|
|
|
|
%+ mul
|
|
|
|
|
|
%- sqr %- abs:si
|
|
|
|
|
|
(dif:si (sun:si x) (sun:si z))
|
|
|
|
|
|
(sqr (add x z))
|
|
|
|
|
|
=+ ^= zz
|
|
|
|
|
|
;: mul 4 x z
|
|
|
|
|
|
:(add (sqr x) :(mul p x z) (sqr z))
|
|
|
|
|
|
==
|
|
|
|
|
|
[(sit.fq xx) (sit.fq zz)]
|
2016-11-24 07:25:07 +03:00
|
|
|
|
-- ::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
==
|
|
|
|
|
|
=+ one=[b 1]
|
|
|
|
|
|
=+ i=253
|
|
|
|
|
|
=+ r=one
|
|
|
|
|
|
=+ s=(cub one)
|
|
|
|
|
|
|-
|
|
|
|
|
|
?: =(i 0)
|
|
|
|
|
|
=+ x=(cub r)
|
|
|
|
|
|
(sit.fq (mul -.x (inv +.x)))
|
|
|
|
|
|
=+ m=(rsh 0 i a)
|
|
|
|
|
|
?: =(0 (mod m 2))
|
|
|
|
|
|
$(i (dec i), s (cad r s one), r (cub r))
|
|
|
|
|
|
$(i (dec i), r (cad r s one), s (cub s))
|
|
|
|
|
|
:: :: ++ga:number
|
|
|
|
|
|
++ ga :: GF (bex p.a)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/{p/@ q/@ r/@} :: dim poly gen
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ si=(bex p.a)
|
|
|
|
|
|
=+ ma=(dec si)
|
|
|
|
|
|
=> |%
|
|
|
|
|
|
:: :: ++dif:ga:number
|
|
|
|
|
|
++ dif :: add and sub
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {b/@ c/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
~| [%dif-ga a]
|
|
|
|
|
|
?> &((lth b si) (lth c si))
|
|
|
|
|
|
(mix b c)
|
|
|
|
|
|
:: :: ++dub:ga:number
|
|
|
|
|
|
++ dub :: mul by x
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= b/@
|
2016-12-02 04:17:02 +03:00
|
|
|
|
~| [%dub-ga a]
|
|
|
|
|
|
?> (lth b si)
|
|
|
|
|
|
?: =(1 (cut 0 [(dec p.a) 1] b))
|
|
|
|
|
|
(dif (sit q.a) (sit (lsh 0 1 b)))
|
|
|
|
|
|
(lsh 0 1 b)
|
|
|
|
|
|
:: :: ++pro:ga:number
|
|
|
|
|
|
++ pro :: slow multiply
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {b/@ c/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?: =(0 b)
|
|
|
|
|
|
0
|
|
|
|
|
|
?: =(1 (dis 1 b))
|
|
|
|
|
|
(dif c $(b (rsh 0 1 b), c (dub c)))
|
|
|
|
|
|
$(b (rsh 0 1 b), c (dub c))
|
|
|
|
|
|
:: :: ++toe:ga:number
|
|
|
|
|
|
++ toe :: exp+log tables
|
|
|
|
|
|
=+ ^= nu
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {b/@ c/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- (map @ @)
|
|
|
|
|
|
=+ d=*(map @ @)
|
|
|
|
|
|
|-
|
|
|
|
|
|
?: =(0 c)
|
|
|
|
|
|
d
|
|
|
|
|
|
%= $
|
|
|
|
|
|
c (dec c)
|
|
|
|
|
|
d (~(put by d) c b)
|
2016-11-24 07:25:07 +03:00
|
|
|
|
==
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ [p=(nu 0 (bex p.a)) q=(nu ma ma)]
|
|
|
|
|
|
=+ [b=1 c=0]
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|- ^- {p/(map @ @) q/(map @ @)}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?: =(ma c)
|
|
|
|
|
|
[(~(put by p) c b) q]
|
|
|
|
|
|
%= $
|
|
|
|
|
|
b (pro r.a b)
|
|
|
|
|
|
c +(c)
|
|
|
|
|
|
p (~(put by p) c b)
|
|
|
|
|
|
q (~(put by q) b c)
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++sit:ga:number
|
|
|
|
|
|
++ sit :: reduce
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= b/@
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(mod b (bex p.a))
|
|
|
|
|
|
-- ::
|
|
|
|
|
|
=+ toe
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++fra:ga:number
|
|
|
|
|
|
++ fra :: divide
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {b/@ c/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(pro b (inv c))
|
|
|
|
|
|
:: :: ++inv:ga:number
|
|
|
|
|
|
++ inv :: invert
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= b/@
|
2016-12-02 04:17:02 +03:00
|
|
|
|
~| [%inv-ga a]
|
|
|
|
|
|
=+ c=(~(get by q) b)
|
|
|
|
|
|
?~ c !!
|
|
|
|
|
|
=+ d=(~(get by p) (sub ma u.c))
|
|
|
|
|
|
(need d)
|
|
|
|
|
|
:: :: ++pow:ga:number
|
|
|
|
|
|
++ pow :: exponent
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {b/@ c/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ [d=1 e=c f=0]
|
|
|
|
|
|
|-
|
|
|
|
|
|
?: =(p.a f)
|
|
|
|
|
|
d
|
|
|
|
|
|
?: =(1 (cut 0 [f 1] b))
|
|
|
|
|
|
$(d (pro d e), e (pro e e), f +(f))
|
|
|
|
|
|
$(e (pro e e), f +(f))
|
|
|
|
|
|
:: :: ++pro:ga:number
|
|
|
|
|
|
++ pro :: multiply
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {b/@ c/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
~| [%pro-ga a]
|
|
|
|
|
|
=+ d=(~(get by q) b)
|
|
|
|
|
|
?~ d 0
|
|
|
|
|
|
=+ e=(~(get by q) c)
|
|
|
|
|
|
?~ e 0
|
|
|
|
|
|
=+ f=(~(get by p) (mod (add u.d u.e) ma))
|
|
|
|
|
|
(need f)
|
|
|
|
|
|
-- ::ga
|
|
|
|
|
|
-- ::number
|
2016-12-07 22:38:28 +03:00
|
|
|
|
:: ::::
|
|
|
|
|
|
:::: ++crypto :: (2b) cryptography
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: ::::
|
|
|
|
|
|
++ crypto ^?
|
2016-12-07 06:13:33 +03:00
|
|
|
|
=, ames
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=, number
|
|
|
|
|
|
|%
|
2016-12-08 05:12:37 +03:00
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++aes:crypto :: (2b1) aes, all sizes
|
|
|
|
|
|
:: ::::
|
2019-01-18 08:37:34 +03:00
|
|
|
|
++ aes !.
|
2016-12-02 04:17:02 +03:00
|
|
|
|
~% %aes ..is ~
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++ahem:aes:crypto
|
|
|
|
|
|
++ ahem :: kernel state
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {nnk/@ nnb/@ nnr/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=>
|
|
|
|
|
|
=+ => [gr=(ga 8 0x11b 3) few==>(fe .(a 5))]
|
|
|
|
|
|
[pro=pro.gr dif=dif.gr pow=pow.gr ror=ror.few]
|
2016-12-07 22:38:28 +03:00
|
|
|
|
=> |% ::
|
|
|
|
|
|
++ cipa $_ ^? :: AES params
|
|
|
|
|
|
|%
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ co *{p/@ q/@ r/@ s/@} :: column coefficients
|
|
|
|
|
|
++ ix |~(a/@ *@) :: key index
|
|
|
|
|
|
++ ro *{p/@ q/@ r/@ s/@} :: row shifts
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ su *@ :: s-box
|
|
|
|
|
|
-- ::cipa
|
|
|
|
|
|
-- ::
|
|
|
|
|
|
|%
|
2016-12-07 22:38:28 +03:00
|
|
|
|
:: :: ++pen:ahem:aes:
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ pen :: encrypt
|
|
|
|
|
|
^- cipa
|
|
|
|
|
|
|%
|
2016-12-09 01:37:56 +03:00
|
|
|
|
:: :: ++co:pen:ahem:aes:
|
2016-12-07 22:38:28 +03:00
|
|
|
|
++ co :: column coefficients
|
|
|
|
|
|
[0x2 0x3 1 1]
|
|
|
|
|
|
:: :: ++ix:pen:ahem:aes:
|
|
|
|
|
|
++ ix :: key index
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|~(a/@ a)
|
2016-12-07 22:38:28 +03:00
|
|
|
|
:: :: ++ro:pen:ahem:aes:
|
|
|
|
|
|
++ ro :: row shifts
|
|
|
|
|
|
[0 1 2 3]
|
|
|
|
|
|
:: :: ++su:pen:ahem:aes:
|
|
|
|
|
|
++ su :: s-box
|
|
|
|
|
|
0x16bb.54b0.0f2d.9941.6842.e6bf.0d89.a18c.
|
|
|
|
|
|
df28.55ce.e987.1e9b.948e.d969.1198.f8e1.
|
|
|
|
|
|
9e1d.c186.b957.3561.0ef6.0348.66b5.3e70.
|
|
|
|
|
|
8a8b.bd4b.1f74.dde8.c6b4.a61c.2e25.78ba.
|
|
|
|
|
|
08ae.7a65.eaf4.566c.a94e.d58d.6d37.c8e7.
|
|
|
|
|
|
79e4.9591.62ac.d3c2.5c24.0649.0a3a.32e0.
|
|
|
|
|
|
db0b.5ede.14b8.ee46.8890.2a22.dc4f.8160.
|
|
|
|
|
|
7319.5d64.3d7e.a7c4.1744.975f.ec13.0ccd.
|
|
|
|
|
|
d2f3.ff10.21da.b6bc.f538.9d92.8f40.a351.
|
|
|
|
|
|
a89f.3c50.7f02.f945.8533.4d43.fbaa.efd0.
|
|
|
|
|
|
cf58.4c4a.39be.cb6a.5bb1.fc20.ed00.d153.
|
|
|
|
|
|
842f.e329.b3d6.3b52.a05a.6e1b.1a2c.8309.
|
|
|
|
|
|
75b2.27eb.e280.1207.9a05.9618.c323.c704.
|
|
|
|
|
|
1531.d871.f1e5.a534.ccf7.3f36.2693.fdb7.
|
|
|
|
|
|
c072.a49c.afa2.d4ad.f047.59fa.7dc9.82ca.
|
|
|
|
|
|
76ab.d7fe.2b67.0130.c56f.6bf2.7b77.7c63
|
2016-12-02 04:17:02 +03:00
|
|
|
|
--
|
2016-12-07 22:38:28 +03:00
|
|
|
|
:: :: ++pin:ahem:aes:
|
|
|
|
|
|
++ pin :: decrypt
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- cipa
|
|
|
|
|
|
|%
|
2016-12-07 22:38:28 +03:00
|
|
|
|
:: :: ++co:pin:ahem:aes:
|
|
|
|
|
|
++ co :: column coefficients
|
|
|
|
|
|
[0xe 0xb 0xd 0x9]
|
|
|
|
|
|
:: :: ++ix:pin:ahem:aes:
|
|
|
|
|
|
++ ix :: key index
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|~(a/@ (sub nnr a))
|
2016-12-07 22:38:28 +03:00
|
|
|
|
:: :: ++ro:pin:ahem:aes:
|
|
|
|
|
|
++ ro :: row shifts
|
|
|
|
|
|
[0 3 2 1]
|
|
|
|
|
|
:: :: ++su:pin:ahem:aes:
|
|
|
|
|
|
++ su :: s-box
|
|
|
|
|
|
0x7d0c.2155.6314.69e1.26d6.77ba.7e04.2b17.
|
|
|
|
|
|
6199.5383.3cbb.ebc8.b0f5.2aae.4d3b.e0a0.
|
|
|
|
|
|
ef9c.c993.9f7a.e52d.0d4a.b519.a97f.5160.
|
|
|
|
|
|
5fec.8027.5910.12b1.31c7.0788.33a8.dd1f.
|
|
|
|
|
|
f45a.cd78.fec0.db9a.2079.d2c6.4b3e.56fc.
|
|
|
|
|
|
1bbe.18aa.0e62.b76f.89c5.291d.711a.f147.
|
|
|
|
|
|
6edf.751c.e837.f9e2.8535.ade7.2274.ac96.
|
|
|
|
|
|
73e6.b4f0.cecf.f297.eadc.674f.4111.913a.
|
|
|
|
|
|
6b8a.1301.03bd.afc1.020f.3fca.8f1e.2cd0.
|
|
|
|
|
|
0645.b3b8.0558.e4f7.0ad3.bc8c.00ab.d890.
|
|
|
|
|
|
849d.8da7.5746.155e.dab9.edfd.5048.706c.
|
|
|
|
|
|
92b6.655d.cc5c.a4d4.1698.6886.64f6.f872.
|
|
|
|
|
|
25d1.8b6d.49a2.5b76.b224.d928.66a1.2e08.
|
|
|
|
|
|
4ec3.fa42.0b95.4cee.3d23.c2a6.3294.7b54.
|
|
|
|
|
|
cbe9.dec4.4443.8e34.87ff.2f9b.8239.e37c.
|
|
|
|
|
|
fbd7.f381.9ea3.40bf.38a5.3630.d56a.0952
|
2016-12-02 04:17:02 +03:00
|
|
|
|
--
|
|
|
|
|
|
:: :: ++mcol:ahem:aes:
|
|
|
|
|
|
++ mcol ::
|
2019-01-18 08:37:34 +03:00
|
|
|
|
|= {a/(list @) b/{p/@ q/@ r/@ s/@}}
|
2016-12-07 22:38:28 +03:00
|
|
|
|
^- (list @)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ c=[p=*@ q=*@ r=*@ s=*@]
|
|
|
|
|
|
|- ^- (list @)
|
|
|
|
|
|
?~ a ~
|
|
|
|
|
|
=> .(p.c (cut 3 [0 1] i.a))
|
|
|
|
|
|
=> .(q.c (cut 3 [1 1] i.a))
|
|
|
|
|
|
=> .(r.c (cut 3 [2 1] i.a))
|
|
|
|
|
|
=> .(s.c (cut 3 [3 1] i.a))
|
|
|
|
|
|
:_ $(a t.a)
|
|
|
|
|
|
%+ rep 3
|
|
|
|
|
|
%+ turn
|
|
|
|
|
|
%- limo
|
|
|
|
|
|
:~ [[p.c p.b] [q.c q.b] [r.c r.b] [s.c s.b]]
|
|
|
|
|
|
[[p.c s.b] [q.c p.b] [r.c q.b] [s.c r.b]]
|
|
|
|
|
|
[[p.c r.b] [q.c s.b] [r.c p.b] [s.c q.b]]
|
|
|
|
|
|
[[p.c q.b] [q.c r.b] [r.c s.b] [s.c p.b]]
|
|
|
|
|
|
==
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {a/{@ @} b/{@ @} c/{@ @} d/{@ @}}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:(dif (pro a) (pro b) (pro c) (pro d))
|
|
|
|
|
|
:: :: ++pode:ahem:aes:
|
|
|
|
|
|
++ pode :: explode to block
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {a/bloq b/@ c/@} ^- (list @)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ d=(rip a c)
|
|
|
|
|
|
=+ m=(met a c)
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|-
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?: =(m b)
|
|
|
|
|
|
d
|
|
|
|
|
|
$(m +(m), d (weld d (limo [0 ~])))
|
|
|
|
|
|
:: :: ++sube:ahem:aes:
|
|
|
|
|
|
++ sube :: s-box word
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {a/@ b/@} ^- @
|
|
|
|
|
|
(rep 3 (turn (pode 3 4 a) |=(c/@ (cut 3 [c 1] b))))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
-- ::
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++be:ahem:aes:crypto
|
|
|
|
|
|
++ be :: block cipher
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {a/? b/@ c/@H} ^- @uxH
|
2016-12-02 04:17:02 +03:00
|
|
|
|
~| %be-aesc
|
|
|
|
|
|
=> %= .
|
|
|
|
|
|
+
|
|
|
|
|
|
=> +
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++ankh:be:ahem:aes:
|
2016-12-07 22:38:28 +03:00
|
|
|
|
++ ankh ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {a/cipa b/@ c/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(pode 5 nnb (cut 5 [(mul (ix.a b) nnb) nnb] c))
|
|
|
|
|
|
:: :: ++sark:be:ahem:aes:
|
2016-12-07 22:38:28 +03:00
|
|
|
|
++ sark ::
|
2019-01-18 08:37:34 +03:00
|
|
|
|
|= {c/(list @) d/(list @)}
|
2016-12-07 22:38:28 +03:00
|
|
|
|
^- (list @)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?~ c ~
|
|
|
|
|
|
?~ d !!
|
|
|
|
|
|
[(mix i.c i.d) $(c t.c, d t.d)]
|
|
|
|
|
|
:: :: ++srow:be:ahem:aes:
|
2016-12-07 22:38:28 +03:00
|
|
|
|
++ srow ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {a/cipa b/(list @)} ^- (list @)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ [c=0 d=~ e=ro.a]
|
|
|
|
|
|
|-
|
|
|
|
|
|
?: =(c nnb)
|
|
|
|
|
|
d
|
|
|
|
|
|
:_ $(c +(c))
|
|
|
|
|
|
%+ rep 3
|
|
|
|
|
|
%+ turn
|
|
|
|
|
|
(limo [0 p.e] [1 q.e] [2 r.e] [3 s.e] ~)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {f/@ g/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(cut 3 [f 1] (snag (mod (add g c) nnb) b))
|
|
|
|
|
|
:: :: ++subs:be:ahem:aes:
|
2016-12-07 22:38:28 +03:00
|
|
|
|
++ subs ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {a/cipa b/(list @)} ^- (list @)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?~ b ~
|
|
|
|
|
|
[(sube i.b su.a) $(b t.b)]
|
|
|
|
|
|
--
|
|
|
|
|
|
==
|
|
|
|
|
|
=+ [d=?:(a pen pin) e=(pode 5 nnb c) f=1]
|
|
|
|
|
|
=> .(e (sark e (ankh d 0 b)))
|
|
|
|
|
|
|-
|
|
|
|
|
|
?. =(nnr f)
|
2016-11-24 07:25:07 +03:00
|
|
|
|
=> .(e (subs d e))
|
|
|
|
|
|
=> .(e (srow d e))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=> .(e (mcol e co.d))
|
|
|
|
|
|
=> .(e (sark e (ankh d f b)))
|
|
|
|
|
|
$(f +(f))
|
|
|
|
|
|
=> .(e (subs d e))
|
|
|
|
|
|
=> .(e (srow d e))
|
|
|
|
|
|
=> .(e (sark e (ankh d nnr b)))
|
|
|
|
|
|
(rep 5 e)
|
|
|
|
|
|
:: :: ++ex:ahem:aes:crypto
|
|
|
|
|
|
++ ex :: key expand
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/@I ^- @
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ [b=a c=0 d=su:pen i=nnk]
|
|
|
|
|
|
|-
|
|
|
|
|
|
?: =(i (mul nnb +(nnr)))
|
|
|
|
|
|
b
|
|
|
|
|
|
=> .(c (cut 5 [(dec i) 1] b))
|
|
|
|
|
|
=> ?: =(0 (mod i nnk))
|
|
|
|
|
|
=> .(c (ror 3 1 c))
|
|
|
|
|
|
=> .(c (sube c d))
|
|
|
|
|
|
.(c (mix c (pow (dec (div i nnk)) 2)))
|
|
|
|
|
|
?: &((gth nnk 6) =(4 (mod i nnk)))
|
|
|
|
|
|
.(c (sube c d))
|
|
|
|
|
|
.
|
|
|
|
|
|
=> .(c (mix c (cut 5 [(sub i nnk) 1] b)))
|
|
|
|
|
|
=> .(b (can 5 [i b] [1 c] ~))
|
|
|
|
|
|
$(i +(i))
|
|
|
|
|
|
:: :: ++ix:ahem:aes:crypto
|
|
|
|
|
|
++ ix :: key expand, inv
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/@ ^- @
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ [i=1 j=*@ b=*@ c=co:pin]
|
|
|
|
|
|
|-
|
|
|
|
|
|
?: =(nnr i)
|
|
|
|
|
|
a
|
|
|
|
|
|
=> .(b (cut 7 [i 1] a))
|
|
|
|
|
|
=> .(b (rep 5 (mcol (pode 5 4 b) c)))
|
|
|
|
|
|
=> .(j (sub nnr i))
|
|
|
|
|
|
%= $
|
|
|
|
|
|
i +(i)
|
2016-11-24 07:25:07 +03:00
|
|
|
|
a
|
2016-12-02 04:17:02 +03:00
|
|
|
|
%+ can 7
|
|
|
|
|
|
:~ [i (cut 7 [0 i] a)]
|
|
|
|
|
|
[1 b]
|
|
|
|
|
|
[j (cut 7 [+(i) j] a)]
|
2016-11-24 07:25:07 +03:00
|
|
|
|
==
|
2016-12-02 04:17:02 +03:00
|
|
|
|
==
|
|
|
|
|
|
--
|
|
|
|
|
|
:: :: ++ecba:aes:crypto
|
|
|
|
|
|
++ ecba :: AES-128 ECB
|
|
|
|
|
|
~% %ecba +> ~
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|_ key/@H
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++en:ecba:aes:crypto
|
|
|
|
|
|
++ en :: encrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %en
|
|
|
|
|
|
|= blk/@H ^- @uxH
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ (ahem 4 4 10)
|
|
|
|
|
|
=:
|
|
|
|
|
|
key (~(net fe 7) key)
|
|
|
|
|
|
blk (~(net fe 7) blk)
|
|
|
|
|
|
==
|
|
|
|
|
|
%- ~(net fe 7)
|
|
|
|
|
|
(be & (ex key) blk)
|
|
|
|
|
|
:: :: ++de:ecba:aes:crypto
|
|
|
|
|
|
++ de :: decrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %de
|
|
|
|
|
|
|= blk/@H ^- @uxH
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ (ahem 4 4 10)
|
|
|
|
|
|
=:
|
|
|
|
|
|
key (~(net fe 7) key)
|
|
|
|
|
|
blk (~(net fe 7) blk)
|
|
|
|
|
|
==
|
|
|
|
|
|
%- ~(net fe 7)
|
|
|
|
|
|
(be | (ix (ex key)) blk)
|
|
|
|
|
|
-- ::ecba
|
|
|
|
|
|
:: :: ++ecbb:aes:crypto
|
|
|
|
|
|
++ ecbb :: AES-192 ECB
|
|
|
|
|
|
~% %ecbb +> ~
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|_ key/@I
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++en:ecbb:aes:crypto
|
|
|
|
|
|
++ en :: encrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %en
|
|
|
|
|
|
|= blk/@H ^- @uxH
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ (ahem 6 4 12)
|
|
|
|
|
|
=:
|
|
|
|
|
|
key (rsh 6 1 (~(net fe 8) key))
|
|
|
|
|
|
blk (~(net fe 7) blk)
|
|
|
|
|
|
==
|
|
|
|
|
|
%- ~(net fe 7)
|
|
|
|
|
|
(be & (ex key) blk)
|
|
|
|
|
|
:: :: ++de:ecbb:aes:crypto
|
|
|
|
|
|
++ de :: decrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %de
|
|
|
|
|
|
|= blk/@H ^- @uxH
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ (ahem 6 4 12)
|
|
|
|
|
|
=:
|
|
|
|
|
|
key (rsh 6 1 (~(net fe 8) key))
|
|
|
|
|
|
blk (~(net fe 7) blk)
|
|
|
|
|
|
==
|
|
|
|
|
|
%- ~(net fe 7)
|
|
|
|
|
|
(be | (ix (ex key)) blk)
|
|
|
|
|
|
-- ::ecbb
|
|
|
|
|
|
:: :: ++ecbc:aes:crypto
|
|
|
|
|
|
++ ecbc :: AES-256 ECB
|
|
|
|
|
|
~% %ecbc +> ~
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|_ key/@I
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++en:ecbc:aes:crypto
|
|
|
|
|
|
++ en :: encrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %en
|
|
|
|
|
|
|= blk/@H ^- @uxH
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ (ahem 8 4 14)
|
|
|
|
|
|
=:
|
|
|
|
|
|
key (~(net fe 8) key)
|
|
|
|
|
|
blk (~(net fe 7) blk)
|
|
|
|
|
|
==
|
|
|
|
|
|
%- ~(net fe 7)
|
|
|
|
|
|
(be & (ex key) blk)
|
|
|
|
|
|
:: :: ++de:ecbc:aes:crypto
|
|
|
|
|
|
++ de :: decrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %de
|
|
|
|
|
|
|= blk/@H ^- @uxH
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ (ahem 8 4 14)
|
|
|
|
|
|
=:
|
|
|
|
|
|
key (~(net fe 8) key)
|
|
|
|
|
|
blk (~(net fe 7) blk)
|
|
|
|
|
|
==
|
|
|
|
|
|
%- ~(net fe 7)
|
|
|
|
|
|
(be | (ix (ex key)) blk)
|
|
|
|
|
|
-- ::ecbc
|
|
|
|
|
|
:: :: ++cbca:aes:crypto
|
|
|
|
|
|
++ cbca :: AES-128 CBC
|
|
|
|
|
|
~% %cbca +> ~
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|_ {key/@H prv/@H}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++en:cbca:aes:crypto
|
|
|
|
|
|
++ en :: encrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %en
|
|
|
|
|
|
|= txt/@ ^- @ux
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ pts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=| cts/(list @)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
%+ rep 7
|
|
|
|
|
|
:: logically, flop twice here
|
|
|
|
|
|
|- ^- (list @)
|
|
|
|
|
|
?~ pts
|
|
|
|
|
|
cts
|
|
|
|
|
|
=+ cph=(~(en ecba key) (mix prv i.pts))
|
2016-11-24 07:25:07 +03:00
|
|
|
|
%= $
|
2016-12-02 04:17:02 +03:00
|
|
|
|
cts [cph cts]
|
|
|
|
|
|
pts t.pts
|
|
|
|
|
|
prv cph
|
2016-11-24 07:25:07 +03:00
|
|
|
|
==
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++de:cbca:aes:crypto
|
|
|
|
|
|
++ de :: decrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %de
|
|
|
|
|
|
|= txt/@ ^- @ux
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ cts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=| pts/(list @)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
%+ rep 7
|
|
|
|
|
|
:: logically, flop twice here
|
|
|
|
|
|
|- ^- (list @)
|
|
|
|
|
|
?~ cts
|
|
|
|
|
|
pts
|
|
|
|
|
|
=+ pln=(mix prv (~(de ecba key) i.cts))
|
2016-11-24 07:25:07 +03:00
|
|
|
|
%= $
|
2016-12-02 04:17:02 +03:00
|
|
|
|
pts [pln pts]
|
|
|
|
|
|
cts t.cts
|
|
|
|
|
|
prv i.cts
|
2016-11-24 07:25:07 +03:00
|
|
|
|
==
|
2016-12-02 04:17:02 +03:00
|
|
|
|
-- ::cbca
|
|
|
|
|
|
:: :: ++cbcb:aes:crypto
|
|
|
|
|
|
++ cbcb :: AES-192 CBC
|
|
|
|
|
|
~% %cbcb +> ~
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|_ {key/@I prv/@H}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++en:cbcb:aes:crypto
|
|
|
|
|
|
++ en :: encrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %en
|
|
|
|
|
|
|= txt/@ ^- @ux
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ pts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=| cts/(list @)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
%+ rep 7
|
|
|
|
|
|
:: logically, flop twice here
|
|
|
|
|
|
|- ^- (list @)
|
|
|
|
|
|
?~ pts
|
|
|
|
|
|
cts
|
|
|
|
|
|
=+ cph=(~(en ecbb key) (mix prv i.pts))
|
2016-11-24 07:25:07 +03:00
|
|
|
|
%= $
|
2016-12-02 04:17:02 +03:00
|
|
|
|
cts [cph cts]
|
|
|
|
|
|
pts t.pts
|
|
|
|
|
|
prv cph
|
2016-11-24 07:25:07 +03:00
|
|
|
|
==
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++de:cbcb:aes:crypto
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ de :: decrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %de
|
|
|
|
|
|
|= txt/@ ^- @ux
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ cts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=| pts/(list @)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
%+ rep 7
|
|
|
|
|
|
:: logically, flop twice here
|
|
|
|
|
|
|- ^- (list @)
|
|
|
|
|
|
?~ cts
|
|
|
|
|
|
pts
|
|
|
|
|
|
=+ pln=(mix prv (~(de ecbb key) i.cts))
|
|
|
|
|
|
%= $
|
|
|
|
|
|
pts [pln pts]
|
|
|
|
|
|
cts t.cts
|
|
|
|
|
|
prv i.cts
|
|
|
|
|
|
==
|
|
|
|
|
|
-- ::cbcb
|
|
|
|
|
|
:: :: ++cbcc:aes:crypto
|
|
|
|
|
|
++ cbcc :: AES-256 CBC
|
|
|
|
|
|
~% %cbcc +> ~
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|_ {key/@I prv/@H}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++en:cbcc:aes:crypto
|
|
|
|
|
|
++ en :: encrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %en
|
|
|
|
|
|
|= txt/@ ^- @ux
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ pts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=| cts/(list @)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
%+ rep 7
|
|
|
|
|
|
:: logically, flop twice here
|
|
|
|
|
|
|- ^- (list @)
|
|
|
|
|
|
?~ pts
|
|
|
|
|
|
cts
|
|
|
|
|
|
=+ cph=(~(en ecbc key) (mix prv i.pts))
|
|
|
|
|
|
%= $
|
|
|
|
|
|
cts [cph cts]
|
|
|
|
|
|
pts t.pts
|
|
|
|
|
|
prv cph
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++de:cbcc:aes:crypto
|
|
|
|
|
|
++ de :: decrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %de
|
|
|
|
|
|
|= txt/@ ^- @ux
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ cts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=| pts/(list @)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
%+ rep 7
|
|
|
|
|
|
:: logically, flop twice here
|
|
|
|
|
|
|- ^- (list @)
|
|
|
|
|
|
?~ cts
|
|
|
|
|
|
pts
|
|
|
|
|
|
=+ pln=(mix prv (~(de ecbc key) i.cts))
|
|
|
|
|
|
%= $
|
|
|
|
|
|
pts [pln pts]
|
|
|
|
|
|
cts t.cts
|
|
|
|
|
|
prv i.cts
|
|
|
|
|
|
==
|
|
|
|
|
|
-- ::cbcc
|
|
|
|
|
|
:: :: ++inc:aes:crypto
|
|
|
|
|
|
++ inc :: inc. low bloq
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {mod/bloq ctr/@H}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- @uxH
|
|
|
|
|
|
=+ bqs=(rip mod ctr)
|
|
|
|
|
|
?~ bqs 0x1
|
|
|
|
|
|
%+ rep mod
|
|
|
|
|
|
[(~(sum fe mod) i.bqs 1) t.bqs]
|
|
|
|
|
|
:: :: ++ctra:aes:crypto
|
|
|
|
|
|
++ ctra :: AES-128 CTR
|
|
|
|
|
|
~% %ctra +> ~
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|_ {key/@H mod/bloq len/@ ctr/@H}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++en:ctra:aes:crypto
|
|
|
|
|
|
++ en :: encrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %en
|
|
|
|
|
|
|= txt/@
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- @ux
|
|
|
|
|
|
=/ encrypt ~(en ecba key)
|
|
|
|
|
|
=/ blocks (add (div len 16) ?:(=((^mod len 16) 0) 0 1))
|
|
|
|
|
|
?> (gte len (met 3 txt))
|
|
|
|
|
|
%+ mix txt
|
|
|
|
|
|
%^ rsh 3 (sub (mul 16 blocks) len)
|
|
|
|
|
|
%+ rep 7
|
2018-07-01 06:22:15 +03:00
|
|
|
|
=| seed=(list @ux)
|
|
|
|
|
|
|- ^+ seed
|
|
|
|
|
|
?: =(blocks 0) seed
|
|
|
|
|
|
%= $
|
|
|
|
|
|
seed [(encrypt ctr) seed]
|
|
|
|
|
|
ctr (inc mod ctr)
|
|
|
|
|
|
blocks (dec blocks)
|
|
|
|
|
|
==
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++de:ctra:aes:crypto
|
|
|
|
|
|
++ de :: decrypt
|
|
|
|
|
|
en
|
|
|
|
|
|
-- ::ctra
|
|
|
|
|
|
:: :: ++ctrb:aes:crypto
|
|
|
|
|
|
++ ctrb :: AES-192 CTR
|
|
|
|
|
|
~% %ctrb +> ~
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|_ {key/@I mod/bloq len/@ ctr/@H}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++en:ctrb:aes:crypto
|
|
|
|
|
|
++ en
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %en
|
|
|
|
|
|
|= txt/@
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- @ux
|
|
|
|
|
|
=/ encrypt ~(en ecbb key)
|
|
|
|
|
|
=/ blocks (add (div len 16) ?:(=((^mod len 16) 0) 0 1))
|
|
|
|
|
|
?> (gte len (met 3 txt))
|
|
|
|
|
|
%+ mix txt
|
|
|
|
|
|
%^ rsh 3 (sub (mul 16 blocks) len)
|
|
|
|
|
|
%+ rep 7
|
2018-07-01 06:22:15 +03:00
|
|
|
|
=| seed=(list @ux)
|
|
|
|
|
|
|- ^+ seed
|
|
|
|
|
|
?: =(blocks 0) seed
|
|
|
|
|
|
%= $
|
|
|
|
|
|
seed [(encrypt ctr) seed]
|
|
|
|
|
|
ctr (inc mod ctr)
|
|
|
|
|
|
blocks (dec blocks)
|
|
|
|
|
|
==
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++de:ctrb:aes:crypto
|
|
|
|
|
|
++ de :: decrypt
|
|
|
|
|
|
en
|
|
|
|
|
|
-- ::ctrb
|
|
|
|
|
|
:: :: ++ctrc:aes:crypto
|
|
|
|
|
|
++ ctrc :: AES-256 CTR
|
|
|
|
|
|
~% %ctrc +> ~
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|_ {key/@I mod/bloq len/@ ctr/@H}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++en:ctrc:aes:crypto
|
|
|
|
|
|
++ en :: encrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %en
|
|
|
|
|
|
|= txt/@
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- @ux
|
|
|
|
|
|
=/ encrypt ~(en ecbc key)
|
|
|
|
|
|
=/ blocks (add (div len 16) ?:(=((^mod len 16) 0) 0 1))
|
|
|
|
|
|
?> (gte len (met 3 txt))
|
|
|
|
|
|
%+ mix txt
|
|
|
|
|
|
%^ rsh 3 (sub (mul 16 blocks) len)
|
|
|
|
|
|
%+ rep 7
|
2018-07-01 06:22:15 +03:00
|
|
|
|
=| seed=(list @ux)
|
|
|
|
|
|
|- ^+ seed
|
|
|
|
|
|
?: =(blocks 0) seed
|
|
|
|
|
|
%= $
|
|
|
|
|
|
seed [(encrypt ctr) seed]
|
|
|
|
|
|
ctr (inc mod ctr)
|
|
|
|
|
|
blocks (dec blocks)
|
|
|
|
|
|
==
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++de:ctrc:aes:crypto
|
|
|
|
|
|
++ de :: decrypt
|
|
|
|
|
|
en
|
|
|
|
|
|
-- ::ctrc
|
|
|
|
|
|
:: :: ++doub:aes:crypto
|
|
|
|
|
|
++ doub :: double 128-bit
|
|
|
|
|
|
|= :: string mod finite
|
|
|
|
|
|
::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
str/@H
|
2016-11-24 07:25:07 +03:00
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: field (see spec)
|
|
|
|
|
|
::
|
|
|
|
|
|
^- @uxH
|
|
|
|
|
|
%- ~(sit fe 7)
|
|
|
|
|
|
?. =((xeb str) 128)
|
|
|
|
|
|
(lsh 0 1 str)
|
|
|
|
|
|
(mix 0x87 (lsh 0 1 str))
|
|
|
|
|
|
:: :: ++mpad:aes:crypto
|
|
|
|
|
|
++ mpad ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {oct/@ txt/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
::
|
|
|
|
|
|
:: pad message to multiple of 128 bits
|
|
|
|
|
|
:: by appending 1, then 0s
|
|
|
|
|
|
:: the spec is unclear, but it must be octet based
|
|
|
|
|
|
:: to match the test vectors
|
2016-12-07 22:38:28 +03:00
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- @ux
|
|
|
|
|
|
=+ pad=(mod oct 16)
|
|
|
|
|
|
?: =(pad 0) 0x8000.0000.0000.0000.0000.0000.0000.0000
|
|
|
|
|
|
(lsh 3 (sub 15 pad) (mix 0x80 (lsh 3 1 txt)))
|
|
|
|
|
|
:: :: ++suba:aes:crypto
|
|
|
|
|
|
++ suba :: AES-128 subkeys
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= key/@H
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ l=(~(en ecba key) 0)
|
|
|
|
|
|
=+ k1=(doub l)
|
|
|
|
|
|
=+ k2=(doub k1)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
^- {@ux @ux}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
[k1 k2]
|
|
|
|
|
|
:: :: ++subb:aes:crypto
|
|
|
|
|
|
++ subb :: AES-192 subkeys
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= key/@I
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ l=(~(en ecbb key) 0)
|
|
|
|
|
|
=+ k1=(doub l)
|
|
|
|
|
|
=+ k2=(doub k1)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
^- {@ux @ux}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
[k1 k2]
|
|
|
|
|
|
:: :: ++subc:aes:crypto
|
|
|
|
|
|
++ subc :: AES-256 subkeys
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= key/@I
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ l=(~(en ecbc key) 0)
|
|
|
|
|
|
=+ k1=(doub l)
|
|
|
|
|
|
=+ k2=(doub k1)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
^- {@ux @ux}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
[k1 k2]
|
|
|
|
|
|
:: :: ++maca:aes:crypto
|
|
|
|
|
|
++ maca :: AES-128 CMAC
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %maca
|
|
|
|
|
|
|= {key/@H oct/(unit @) txt/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- @ux
|
|
|
|
|
|
=+ [sub=(suba key) len=?~(oct (met 3 txt) u.oct)]
|
|
|
|
|
|
=+ ^= pdt
|
|
|
|
|
|
?: &(=((mod len 16) 0) !=(len 0))
|
|
|
|
|
|
[& txt]
|
|
|
|
|
|
[| (mpad len txt)]
|
|
|
|
|
|
=+ ^= mac
|
|
|
|
|
|
%- ~(en cbca key 0)
|
|
|
|
|
|
%+ mix +.pdt
|
|
|
|
|
|
?- -.pdt
|
2018-03-19 06:54:47 +03:00
|
|
|
|
%& -.sub
|
|
|
|
|
|
%| +.sub
|
2016-12-02 04:17:02 +03:00
|
|
|
|
==
|
|
|
|
|
|
:: spec says MSBs, LSBs match test vectors
|
|
|
|
|
|
::
|
|
|
|
|
|
(~(sit fe 7) mac)
|
|
|
|
|
|
:: :: ++macb:aes:crypto
|
|
|
|
|
|
++ macb :: AES-192 CMAC
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %macb
|
|
|
|
|
|
|= {key/@I oct/(unit @) txt/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- @ux
|
|
|
|
|
|
=+ [sub=(subb key) len=?~(oct (met 3 txt) u.oct)]
|
|
|
|
|
|
=+ ^= pdt
|
|
|
|
|
|
?: &(=((mod len 16) 0) !=(len 0))
|
|
|
|
|
|
[& txt]
|
|
|
|
|
|
[| (mpad len txt)]
|
|
|
|
|
|
=+ ^= mac
|
|
|
|
|
|
%- ~(en cbcb key 0)
|
|
|
|
|
|
%+ mix +.pdt
|
|
|
|
|
|
?- -.pdt
|
2018-03-19 06:54:47 +03:00
|
|
|
|
%& -.sub
|
|
|
|
|
|
%| +.sub
|
2016-12-02 04:17:02 +03:00
|
|
|
|
==
|
|
|
|
|
|
:: spec says MSBs, LSBs match test vectors
|
|
|
|
|
|
::
|
|
|
|
|
|
(~(sit fe 7) mac)
|
|
|
|
|
|
:: :: ++macc:aes:crypto
|
|
|
|
|
|
++ macc :: AES-256 CMAC
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %macc
|
|
|
|
|
|
|= {key/@I oct/(unit @) txt/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- @ux
|
|
|
|
|
|
=+ [sub=(subc key) len=?~(oct (met 3 txt) u.oct)]
|
|
|
|
|
|
=+ ^= pdt
|
|
|
|
|
|
?: &(=((mod len 16) 0) !=(len 0))
|
|
|
|
|
|
[& txt]
|
|
|
|
|
|
[| (mpad len txt)]
|
|
|
|
|
|
=+ ^= mac
|
|
|
|
|
|
%- ~(en cbcc key 0)
|
|
|
|
|
|
%+ mix +.pdt
|
|
|
|
|
|
?- -.pdt
|
2018-03-19 06:54:47 +03:00
|
|
|
|
%& -.sub
|
|
|
|
|
|
%| +.sub
|
2016-12-02 04:17:02 +03:00
|
|
|
|
==
|
|
|
|
|
|
:: spec says MSBs, LSBs match test vectors
|
|
|
|
|
|
::
|
|
|
|
|
|
(~(sit fe 7) mac)
|
|
|
|
|
|
:: :: ++s2va:aes:crypto
|
|
|
|
|
|
++ s2va :: AES-128 S2V
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %s2va
|
|
|
|
|
|
|= {key/@H ads/(list @)}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ res=(maca key `16 0x0)
|
|
|
|
|
|
%^ maca key ~
|
|
|
|
|
|
|- ^- @uxH
|
|
|
|
|
|
?~ ads (maca key `16 0x1)
|
|
|
|
|
|
?~ t.ads
|
|
|
|
|
|
?: (gte (xeb i.ads) 128)
|
|
|
|
|
|
(mix i.ads res)
|
|
|
|
|
|
%+ mix
|
|
|
|
|
|
(doub res)
|
|
|
|
|
|
(mpad (met 3 i.ads) i.ads)
|
|
|
|
|
|
%= $
|
|
|
|
|
|
res %+ mix
|
|
|
|
|
|
(doub res)
|
|
|
|
|
|
(maca key ~ i.ads)
|
|
|
|
|
|
ads t.ads
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++s2vb:aes:crypto
|
|
|
|
|
|
++ s2vb :: AES-192 S2V
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %s2vb
|
|
|
|
|
|
|= {key/@I ads/(list @)}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ res=(macb key `16 0x0)
|
|
|
|
|
|
%^ macb key ~
|
|
|
|
|
|
|- ^- @uxH
|
|
|
|
|
|
?~ ads (macb key `16 0x1)
|
|
|
|
|
|
?~ t.ads
|
|
|
|
|
|
?: (gte (xeb i.ads) 128)
|
|
|
|
|
|
(mix i.ads res)
|
|
|
|
|
|
%+ mix
|
|
|
|
|
|
(doub res)
|
|
|
|
|
|
(mpad (met 3 i.ads) i.ads)
|
|
|
|
|
|
%= $
|
|
|
|
|
|
res %+ mix
|
|
|
|
|
|
(doub res)
|
|
|
|
|
|
(macb key ~ i.ads)
|
|
|
|
|
|
ads t.ads
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++s2vc:aes:crypto
|
|
|
|
|
|
++ s2vc :: AES-256 S2V
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %s2vc
|
|
|
|
|
|
|= {key/@I ads/(list @)}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ res=(macc key `16 0x0)
|
|
|
|
|
|
%^ macc key ~
|
|
|
|
|
|
|- ^- @uxH
|
|
|
|
|
|
?~ ads (macc key `16 0x1)
|
|
|
|
|
|
?~ t.ads
|
|
|
|
|
|
?: (gte (xeb i.ads) 128)
|
|
|
|
|
|
(mix i.ads res)
|
|
|
|
|
|
%+ mix
|
|
|
|
|
|
(doub res)
|
|
|
|
|
|
(mpad (met 3 i.ads) i.ads)
|
|
|
|
|
|
%= $
|
|
|
|
|
|
res %+ mix
|
|
|
|
|
|
(doub res)
|
|
|
|
|
|
(macc key ~ i.ads)
|
|
|
|
|
|
ads t.ads
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++siva:aes:crypto
|
|
|
|
|
|
++ siva :: AES-128 SIV
|
|
|
|
|
|
~% %siva +> ~
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|_ {key/@I vec/(list @)}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++en:siva:aes:crypto
|
|
|
|
|
|
++ en :: encrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %en
|
|
|
|
|
|
|= txt/@
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- (trel @uxH @ud @ux)
|
|
|
|
|
|
=+ [k1=(rsh 7 1 key) k2=(end 7 1 key)]
|
|
|
|
|
|
=+ iv=(s2va k1 (weld vec (limo ~[txt])))
|
|
|
|
|
|
=+ len=(met 3 txt)
|
|
|
|
|
|
=* hib (dis iv 0xffff.ffff.ffff.ffff.7fff.ffff.7fff.ffff)
|
|
|
|
|
|
:+
|
|
|
|
|
|
iv
|
|
|
|
|
|
len
|
|
|
|
|
|
(~(en ctra k2 7 len hib) txt)
|
|
|
|
|
|
:: :: ++de:siva:aes:crypto
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ de :: decrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %de
|
|
|
|
|
|
|= {iv/@H len/@ txt/@}
|
2016-11-24 07:25:07 +03:00
|
|
|
|
^- (unit @ux)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ [k1=(rsh 7 1 key) k2=(end 7 1 key)]
|
|
|
|
|
|
=* hib (dis iv 0xffff.ffff.ffff.ffff.7fff.ffff.7fff.ffff)
|
|
|
|
|
|
=+ ^= pln
|
|
|
|
|
|
(~(de ctra k2 7 len hib) txt)
|
|
|
|
|
|
?. =((s2va k1 (weld vec (limo ~[pln]))) iv)
|
|
|
|
|
|
~
|
|
|
|
|
|
`pln
|
|
|
|
|
|
-- ::siva
|
|
|
|
|
|
:: :: ++sivb:aes:crypto
|
|
|
|
|
|
++ sivb :: AES-192 SIV
|
|
|
|
|
|
~% %sivb +> ~
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|_ {key/@J vec/(list @)}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++en:sivb:aes:crypto
|
|
|
|
|
|
++ en :: encrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %en
|
|
|
|
|
|
|= txt/@
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- (trel @uxH @ud @ux)
|
|
|
|
|
|
=+ [k1=(rsh 5 3 key) k2=(end 5 3 key)]
|
|
|
|
|
|
=+ iv=(s2vb k1 (weld vec (limo ~[txt])))
|
|
|
|
|
|
=* hib (dis iv 0xffff.ffff.ffff.ffff.7fff.ffff.7fff.ffff)
|
|
|
|
|
|
=+ len=(met 3 txt)
|
|
|
|
|
|
:+ iv
|
2016-11-24 07:25:07 +03:00
|
|
|
|
len
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(~(en ctrb k2 7 len hib) txt)
|
|
|
|
|
|
:: :: ++de:sivb:aes:crypto
|
|
|
|
|
|
++ de :: decrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %de
|
|
|
|
|
|
|= {iv/@H len/@ txt/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- (unit @ux)
|
|
|
|
|
|
=+ [k1=(rsh 5 3 key) k2=(end 5 3 key)]
|
|
|
|
|
|
=* hib (dis iv 0xffff.ffff.ffff.ffff.7fff.ffff.7fff.ffff)
|
|
|
|
|
|
=+ ^= pln
|
|
|
|
|
|
(~(de ctrb k2 7 len hib) txt)
|
|
|
|
|
|
?. =((s2vb k1 (weld vec (limo ~[pln]))) iv)
|
|
|
|
|
|
~
|
|
|
|
|
|
`pln
|
|
|
|
|
|
-- ::sivb
|
|
|
|
|
|
:: :: ++sivc:aes:crypto
|
|
|
|
|
|
++ sivc :: AES-256 SIV
|
|
|
|
|
|
~% %sivc +> ~
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|_ {key/@J vec/(list @)}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++en:sivc:aes:crypto
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ en :: encrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %en
|
|
|
|
|
|
|= txt/@
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- (trel @uxH @ud @ux)
|
|
|
|
|
|
=+ [k1=(rsh 8 1 key) k2=(end 8 1 key)]
|
|
|
|
|
|
=+ iv=(s2vc k1 (weld vec (limo ~[txt])))
|
|
|
|
|
|
=* hib (dis iv 0xffff.ffff.ffff.ffff.7fff.ffff.7fff.ffff)
|
|
|
|
|
|
=+ len=(met 3 txt)
|
|
|
|
|
|
:+
|
|
|
|
|
|
iv
|
|
|
|
|
|
len
|
|
|
|
|
|
(~(en ctrc k2 7 len hib) txt)
|
|
|
|
|
|
:: :: ++de:sivc:aes:crypto
|
|
|
|
|
|
++ de :: decrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %de
|
|
|
|
|
|
|= {iv/@H len/@ txt/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- (unit @ux)
|
|
|
|
|
|
=+ [k1=(rsh 8 1 key) k2=(end 8 1 key)]
|
|
|
|
|
|
=* hib (dis iv 0xffff.ffff.ffff.ffff.7fff.ffff.7fff.ffff)
|
|
|
|
|
|
=+ ^= pln
|
|
|
|
|
|
(~(de ctrc k2 7 len hib) txt)
|
|
|
|
|
|
?. =((s2vc k1 (weld vec (limo ~[pln]))) iv)
|
|
|
|
|
|
~
|
|
|
|
|
|
`pln
|
|
|
|
|
|
-- ::sivc
|
|
|
|
|
|
--
|
2016-12-08 05:12:37 +03:00
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++ed:crypto :: ed25519
|
|
|
|
|
|
:: ::::
|
|
|
|
|
|
++ ed
|
|
|
|
|
|
=>
|
|
|
|
|
|
=+ =+ [b=256 q=(sub (bex 255) 19)]
|
|
|
|
|
|
=+ fq=~(. fo q)
|
|
|
|
|
|
=+ ^= l
|
|
|
|
|
|
%+ add
|
|
|
|
|
|
(bex 252)
|
|
|
|
|
|
27.742.317.777.372.353.535.851.937.790.883.648.493
|
|
|
|
|
|
=+ d=(dif.fq 0 (fra.fq 121.665 121.666))
|
|
|
|
|
|
=+ ii=(exp.fq (div (dec q) 4) 2)
|
|
|
|
|
|
[b=b q=q fq=fq l=l d=d ii=ii]
|
2017-06-10 03:30:18 +03:00
|
|
|
|
~% %coed ..is ~
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++norm:ed:crypto
|
|
|
|
|
|
++ norm ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|=(x/@ ?:(=(0 (mod x 2)) x (sub q x)))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++xrec:ed:crypto
|
|
|
|
|
|
++ xrec :: recover x-coord
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= y/@ ^- @
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ ^= xx
|
|
|
|
|
|
%+ mul (dif.fq (mul y y) 1)
|
|
|
|
|
|
(inv.fq +(:(mul d y y)))
|
|
|
|
|
|
=+ x=(exp.fq (div (add 3 q) 8) xx)
|
|
|
|
|
|
?: !=(0 (dif.fq (mul x x) (sit.fq xx)))
|
|
|
|
|
|
(norm (pro.fq x ii))
|
|
|
|
|
|
(norm x)
|
|
|
|
|
|
:: :: ++ward:ed:crypto
|
|
|
|
|
|
++ ward :: edwards multiply
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {pp/{@ @} qq/{@ @}} ^- {@ @}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ dp=:(pro.fq d -.pp -.qq +.pp +.qq)
|
|
|
|
|
|
=+ ^= xt
|
|
|
|
|
|
%+ pro.fq
|
|
|
|
|
|
%+ sum.fq
|
|
|
|
|
|
(pro.fq -.pp +.qq)
|
|
|
|
|
|
(pro.fq -.qq +.pp)
|
|
|
|
|
|
(inv.fq (sum.fq 1 dp))
|
|
|
|
|
|
=+ ^= yt
|
|
|
|
|
|
%+ pro.fq
|
|
|
|
|
|
%+ sum.fq
|
|
|
|
|
|
(pro.fq +.pp +.qq)
|
|
|
|
|
|
(pro.fq -.pp -.qq)
|
|
|
|
|
|
(inv.fq (dif.fq 1 dp))
|
|
|
|
|
|
[xt yt]
|
|
|
|
|
|
:: :: ++scam:ed:crypto
|
|
|
|
|
|
++ scam :: scalar multiply
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {pp/{@ @} e/@} ^- {@ @}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?: =(0 e)
|
|
|
|
|
|
[0 1]
|
|
|
|
|
|
=+ qq=$(e (div e 2))
|
|
|
|
|
|
=> .(qq (ward qq qq))
|
|
|
|
|
|
?: =(1 (dis 1 e))
|
|
|
|
|
|
(ward qq pp)
|
|
|
|
|
|
qq
|
|
|
|
|
|
:: :: ++etch:ed:crypto
|
|
|
|
|
|
++ etch :: encode point
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= pp/{@ @} ^- @
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(can 0 ~[[(sub b 1) +.pp] [1 (dis 1 -.pp)]])
|
|
|
|
|
|
:: :: ++curv:ed:crypto
|
|
|
|
|
|
++ curv :: point on curve?
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {x/@ y/@} ^- ?
|
2016-12-02 04:17:02 +03:00
|
|
|
|
.= 0
|
|
|
|
|
|
%+ dif.fq
|
|
|
|
|
|
%+ sum.fq
|
|
|
|
|
|
(pro.fq (sub q (sit.fq x)) x)
|
|
|
|
|
|
(pro.fq y y)
|
|
|
|
|
|
(sum.fq 1 :(pro.fq d x x y y))
|
|
|
|
|
|
:: :: ++deco:ed:crypto
|
|
|
|
|
|
++ deco :: decode point
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= s/@ ^- (unit {@ @})
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ y=(cut 0 [0 (dec b)] s)
|
|
|
|
|
|
=+ si=(cut 0 [(dec b) 1] s)
|
|
|
|
|
|
=+ x=(xrec y)
|
|
|
|
|
|
=> .(x ?:(!=(si (dis 1 x)) (sub q x) x))
|
|
|
|
|
|
=+ pp=[x y]
|
|
|
|
|
|
?. (curv pp)
|
|
|
|
|
|
~
|
|
|
|
|
|
[~ pp]
|
|
|
|
|
|
:: :: ++bb:ed:crypto
|
|
|
|
|
|
++ bb ::
|
|
|
|
|
|
=+ bby=(pro.fq 4 (inv.fq 5))
|
|
|
|
|
|
[(xrec bby) bby]
|
|
|
|
|
|
-- ::
|
2017-06-10 03:30:18 +03:00
|
|
|
|
~% %ed + ~
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++puck:ed:crypto
|
|
|
|
|
|
++ puck :: public key
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %puck
|
|
|
|
|
|
|= sk/@I ^- @
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?: (gth (met 3 sk) 32) !!
|
|
|
|
|
|
=+ h=(shal (rsh 0 3 b) sk)
|
|
|
|
|
|
=+ ^= a
|
|
|
|
|
|
%+ add
|
|
|
|
|
|
(bex (sub b 2))
|
|
|
|
|
|
(lsh 0 3 (cut 0 [3 (sub b 5)] h))
|
|
|
|
|
|
=+ aa=(scam bb a)
|
|
|
|
|
|
(etch aa)
|
|
|
|
|
|
:: :: ++suck:ed:crypto
|
|
|
|
|
|
++ suck :: keypair from seed
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= se/@I ^- @uJ
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ pu=(puck se)
|
|
|
|
|
|
(can 0 ~[[b se] [b pu]])
|
|
|
|
|
|
:: :: ++shar:ed:crypto
|
|
|
|
|
|
++ shar :: curve25519 secret
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %shar
|
|
|
|
|
|
|= {pub/@ sek/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- @ux
|
|
|
|
|
|
=+ exp=(shal (rsh 0 3 b) (suck sek))
|
|
|
|
|
|
=. exp (dis exp (can 0 ~[[3 0] [251 (fil 0 251 1)]]))
|
|
|
|
|
|
=. exp (con exp (lsh 3 31 0b100.0000))
|
|
|
|
|
|
=+ prv=(end 8 1 exp)
|
|
|
|
|
|
=+ crv=(fra.fq (sum.fq 1 pub) (dif.fq 1 pub))
|
|
|
|
|
|
(curt prv crv)
|
|
|
|
|
|
:: :: ++sign:ed:crypto
|
|
|
|
|
|
++ sign :: certify
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %sign
|
|
|
|
|
|
|= {m/@ se/@} ^- @
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ sk=(suck se)
|
|
|
|
|
|
=+ pk=(cut 0 [b b] sk)
|
|
|
|
|
|
=+ h=(shal (rsh 0 3 b) sk)
|
|
|
|
|
|
=+ ^= a
|
|
|
|
|
|
%+ add
|
|
|
|
|
|
(bex (sub b 2))
|
|
|
|
|
|
(lsh 0 3 (cut 0 [3 (sub b 5)] h))
|
|
|
|
|
|
=+ ^= r
|
|
|
|
|
|
=+ hm=(cut 0 [b b] h)
|
|
|
|
|
|
=+ ^= i
|
|
|
|
|
|
%+ can 0
|
|
|
|
|
|
:~ [b hm]
|
|
|
|
|
|
[(met 0 m) m]
|
|
|
|
|
|
==
|
|
|
|
|
|
(shaz i)
|
|
|
|
|
|
=+ rr=(scam bb r)
|
|
|
|
|
|
=+ ^= ss
|
|
|
|
|
|
=+ er=(etch rr)
|
|
|
|
|
|
=+ ^= ha
|
|
|
|
|
|
%+ can 0
|
|
|
|
|
|
:~ [b er]
|
|
|
|
|
|
[b pk]
|
|
|
|
|
|
[(met 0 m) m]
|
|
|
|
|
|
==
|
|
|
|
|
|
(~(sit fo l) (add r (mul (shaz ha) a)))
|
|
|
|
|
|
(can 0 ~[[b (etch rr)] [b ss]])
|
|
|
|
|
|
:: :: ++veri:ed:crypto
|
|
|
|
|
|
++ veri :: validate
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %veri
|
|
|
|
|
|
|= {s/@ m/@ pk/@} ^- ?
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?: (gth (div b 4) (met 3 s)) |
|
|
|
|
|
|
?: (gth (div b 8) (met 3 pk)) |
|
|
|
|
|
|
=+ cb=(rsh 0 3 b)
|
|
|
|
|
|
=+ rr=(deco (cut 0 [0 b] s))
|
|
|
|
|
|
?~ rr |
|
|
|
|
|
|
=+ aa=(deco pk)
|
|
|
|
|
|
?~ aa |
|
|
|
|
|
|
=+ ss=(cut 0 [b b] s)
|
|
|
|
|
|
=+ ha=(can 3 ~[[cb (etch u.rr)] [cb pk] [(met 3 m) m]])
|
|
|
|
|
|
=+ h=(shaz ha)
|
|
|
|
|
|
=((scam bb ss) (ward u.rr (scam u.aa h)))
|
|
|
|
|
|
-- ::ed
|
2016-12-08 05:12:37 +03:00
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++scr:crypto :: (2b3) scrypt
|
|
|
|
|
|
:: ::::
|
|
|
|
|
|
++ scr
|
2017-06-10 03:30:18 +03:00
|
|
|
|
~% %scr ..is ~
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++sal:scr:crypto
|
|
|
|
|
|
++ sal :: salsa20 hash
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {x/@ r/@} :: with r rounds
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?> =((mod r 2) 0) ::
|
|
|
|
|
|
=+ few==>(fe .(a 5))
|
|
|
|
|
|
=+ ^= rot
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {a/@ b/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(mix (end 5 1 (lsh 0 a b)) (rsh 0 (sub 32 a) b))
|
|
|
|
|
|
=+ ^= lea
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {a/@ b/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(net:few (sum:few (net:few a) (net:few b)))
|
|
|
|
|
|
=> |%
|
|
|
|
|
|
:: :: ++qr:sal:scr:crypto
|
|
|
|
|
|
++ qr :: quarterround
|
2018-08-16 04:05:30 +03:00
|
|
|
|
|= y/{@ @ @ @ ~}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ zb=(mix &2.y (rot 7 (sum:few &1.y &4.y)))
|
|
|
|
|
|
=+ zc=(mix &3.y (rot 9 (sum:few zb &1.y)))
|
|
|
|
|
|
=+ zd=(mix &4.y (rot 13 (sum:few zc zb)))
|
|
|
|
|
|
=+ za=(mix &1.y (rot 18 (sum:few zd zc)))
|
|
|
|
|
|
~[za zb zc zd]
|
|
|
|
|
|
:: :: ++rr:sal:scr:crypto
|
|
|
|
|
|
++ rr :: rowround
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {y/(list @)}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ za=(qr ~[&1.y &2.y &3.y &4.y])
|
|
|
|
|
|
=+ zb=(qr ~[&6.y &7.y &8.y &5.y])
|
|
|
|
|
|
=+ zc=(qr ~[&11.y &12.y &9.y &10.y])
|
|
|
|
|
|
=+ zd=(qr ~[&16.y &13.y &14.y &15.y])
|
|
|
|
|
|
^- (list @) :~
|
|
|
|
|
|
&1.za &2.za &3.za &4.za
|
|
|
|
|
|
&4.zb &1.zb &2.zb &3.zb
|
|
|
|
|
|
&3.zc &4.zc &1.zc &2.zc
|
|
|
|
|
|
&2.zd &3.zd &4.zd &1.zd ==
|
|
|
|
|
|
:: :: ++cr:sal:scr:crypto
|
|
|
|
|
|
++ cr :: columnround
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {x/(list @)}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ ya=(qr ~[&1.x &5.x &9.x &13.x])
|
|
|
|
|
|
=+ yb=(qr ~[&6.x &10.x &14.x &2.x])
|
|
|
|
|
|
=+ yc=(qr ~[&11.x &15.x &3.x &7.x])
|
|
|
|
|
|
=+ yd=(qr ~[&16.x &4.x &8.x &12.x])
|
|
|
|
|
|
^- (list @) :~
|
|
|
|
|
|
&1.ya &4.yb &3.yc &2.yd
|
|
|
|
|
|
&2.ya &1.yb &4.yc &3.yd
|
|
|
|
|
|
&3.ya &2.yb &1.yc &4.yd
|
|
|
|
|
|
&4.ya &3.yb &2.yc &1.yd ==
|
|
|
|
|
|
:: :: ++dr:sal:scr:crypto
|
|
|
|
|
|
++ dr :: doubleround
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {x/(list @)}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(rr (cr x))
|
|
|
|
|
|
:: :: ++al:sal:scr:crypto
|
|
|
|
|
|
++ al :: add two lists
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {a/(list @) b/(list @)}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|- ^- (list @)
|
|
|
|
|
|
?~ a ~ ?~ b ~
|
|
|
|
|
|
[i=(sum:few -.a -.b) t=$(a +.a, b +.b)]
|
|
|
|
|
|
-- ::
|
|
|
|
|
|
=+ xw=(rpp 5 16 x)
|
|
|
|
|
|
=+ ^= ow |- ^- (list @)
|
|
|
|
|
|
?~ r xw
|
|
|
|
|
|
$(xw (dr xw), r (sub r 2))
|
|
|
|
|
|
(rep 5 (al xw ow))
|
|
|
|
|
|
:: :: ++rpp:scr:crypto
|
|
|
|
|
|
++ rpp :: rip+filler blocks
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {a/bloq b/@ c/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ q=(rip a c)
|
|
|
|
|
|
=+ w=(lent q)
|
|
|
|
|
|
?. =(w b)
|
|
|
|
|
|
?. (lth w b) (slag (sub w b) q)
|
|
|
|
|
|
^+ q (weld q (reap (sub b (lent q)) 0))
|
|
|
|
|
|
q
|
|
|
|
|
|
:: :: ++bls:scr:crypto
|
|
|
|
|
|
++ bls :: split to sublists
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {a/@ b/(list @)}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?> =((mod (lent b) a) 0)
|
|
|
|
|
|
|- ^- (list (list @))
|
|
|
|
|
|
?~ b ~
|
|
|
|
|
|
[i=(scag a `(list @)`b) t=$(b (slag a `(list @)`b))]
|
|
|
|
|
|
:: :: ++slb:scr:crypto
|
|
|
|
|
|
++ slb ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {a/(list (list @))}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|- ^- (list @)
|
|
|
|
|
|
?~ a ~
|
|
|
|
|
|
(weld `(list @)`-.a $(a +.a))
|
|
|
|
|
|
:: :: ++sbm:scr:crypto
|
|
|
|
|
|
++ sbm :: scryptBlockMix
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {r/@ b/(list @)}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?> =((lent b) (mul 2 r))
|
|
|
|
|
|
=+ [x=(snag (dec (mul 2 r)) b) c=0]
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=| {ya/(list @) yb/(list @)}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|- ^- (list @)
|
|
|
|
|
|
?~ b (flop (weld yb ya))
|
|
|
|
|
|
=. x (sal (mix x -.b) 8)
|
|
|
|
|
|
?~ (mod c 2)
|
|
|
|
|
|
$(c +(c), b +.b, ya [i=x t=ya])
|
|
|
|
|
|
$(c +(c), b +.b, yb [i=x t=yb])
|
|
|
|
|
|
:: :: ++srm:scr:crypto
|
|
|
|
|
|
++ srm :: scryptROMix
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {r/@ b/(list @) n/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?> ?& =((lent b) (mul 2 r))
|
|
|
|
|
|
=(n (bex (dec (xeb n))))
|
|
|
|
|
|
(lth n (bex (mul r 16)))
|
2016-11-24 07:25:07 +03:00
|
|
|
|
==
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ [v=*(list (list @)) c=0]
|
|
|
|
|
|
=. v
|
|
|
|
|
|
|- ^- (list (list @))
|
|
|
|
|
|
=+ w=(sbm r b)
|
|
|
|
|
|
?: =(c n) (flop v)
|
|
|
|
|
|
$(c +(c), v [i=[b] t=v], b w)
|
|
|
|
|
|
=+ x=(sbm r (snag (dec n) v))
|
|
|
|
|
|
|- ^- (list @)
|
|
|
|
|
|
?: =(c n) x
|
|
|
|
|
|
=+ q=(snag (dec (mul r 2)) x)
|
|
|
|
|
|
=+ z=`(list @)`(snag (mod q n) v)
|
|
|
|
|
|
=+ ^= w |- ^- (list @)
|
|
|
|
|
|
?~ x ~ ?~ z ~
|
|
|
|
|
|
[i=(mix -.x -.z) t=$(x +.x, z +.z)]
|
|
|
|
|
|
$(x (sbm r w), c +(c))
|
|
|
|
|
|
:: :: ++hmc:scr:crypto
|
|
|
|
|
|
++ hmc :: HMAC-SHA-256
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {k/@ t/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(hml k (met 3 k) t (met 3 t))
|
|
|
|
|
|
:: :: ++hml:scr:crypto
|
|
|
|
|
|
++ hml :: w+length
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {k/@ kl/@ t/@ tl/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=> .(k (end 3 kl k), t (end 3 tl t))
|
|
|
|
|
|
=+ b=64
|
2016-12-11 03:46:13 +03:00
|
|
|
|
=? k (gth kl b) (shay kl k)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ ^= q %+ shay (add b tl)
|
|
|
|
|
|
(add (lsh 3 b t) (mix k (fil 3 b 0x36)))
|
|
|
|
|
|
%+ shay (add b 32)
|
|
|
|
|
|
(add (lsh 3 b q) (mix k (fil 3 b 0x5c)))
|
|
|
|
|
|
:: :: ++pbk:scr:crypto
|
|
|
|
|
|
++ pbk :: PBKDF2-HMAC-SHA256
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %pbk
|
|
|
|
|
|
|= {p/@ s/@ c/@ d/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(pbl p (met 3 p) s (met 3 s) c d)
|
|
|
|
|
|
:: :: ++pbl:scr:crypto
|
|
|
|
|
|
++ pbl :: w+length
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %pbl
|
|
|
|
|
|
|= {p/@ pl/@ s/@ sl/@ c/@ d/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=> .(p (end 3 pl p), s (end 3 sl s))
|
|
|
|
|
|
=+ h=32
|
|
|
|
|
|
::
|
|
|
|
|
|
:: max key length 1GB
|
|
|
|
|
|
:: max iterations 2^28
|
|
|
|
|
|
::
|
|
|
|
|
|
?> ?& (lte d (bex 30))
|
|
|
|
|
|
(lte c (bex 28))
|
|
|
|
|
|
!=(c 0)
|
2016-11-24 07:25:07 +03:00
|
|
|
|
==
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ ^= l ?~ (mod d h)
|
|
|
|
|
|
(div d h)
|
|
|
|
|
|
+((div d h))
|
|
|
|
|
|
=+ r=(sub d (mul h (dec l)))
|
|
|
|
|
|
=+ [t=0 j=1 k=1]
|
|
|
|
|
|
=. t |- ^- @
|
|
|
|
|
|
?: (gth j l) t
|
|
|
|
|
|
=+ u=(add s (lsh 3 sl (rep 3 (flop (rpp 3 4 j)))))
|
|
|
|
|
|
=+ f=0 =. f |- ^- @
|
|
|
|
|
|
?: (gth k c) f
|
|
|
|
|
|
=+ q=(hml p pl u ?:(=(k 1) (add sl 4) h))
|
|
|
|
|
|
$(u q, f (mix f q), k +(k))
|
|
|
|
|
|
$(t (add t (lsh 3 (mul (dec j) h) f)), j +(j))
|
|
|
|
|
|
(end 3 d t)
|
|
|
|
|
|
:: :: ++hsh:scr:crypto
|
|
|
|
|
|
++ hsh :: scrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %hsh
|
|
|
|
|
|
|= {p/@ s/@ n/@ r/@ z/@ d/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(hsl p (met 3 p) s (met 3 s) n r z d)
|
|
|
|
|
|
:: :: ++hsl:scr:crypto
|
|
|
|
|
|
++ hsl :: w+length
|
2017-10-25 05:04:45 +03:00
|
|
|
|
~/ %hsl
|
|
|
|
|
|
|= {p/@ pl/@ s/@ sl/@ n/@ r/@ z/@ d/@}
|
|
|
|
|
|
=| v/(list (list @))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=> .(p (end 3 pl p), s (end 3 sl s))
|
|
|
|
|
|
=+ u=(mul (mul 128 r) z)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: n is power of 2; max 1GB memory
|
|
|
|
|
|
::
|
|
|
|
|
|
?> ?& =(n (bex (dec (xeb n))))
|
|
|
|
|
|
!=(r 0) !=(z 0)
|
|
|
|
|
|
%+ lte
|
|
|
|
|
|
(mul (mul 128 r) (dec (add n z)))
|
|
|
|
|
|
(bex 30)
|
|
|
|
|
|
(lth pl (bex 31))
|
|
|
|
|
|
(lth sl (bex 31))
|
2016-11-24 07:25:07 +03:00
|
|
|
|
==
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ ^= b =+ (rpp 3 u (pbl p pl s sl 1 u))
|
|
|
|
|
|
%+ turn (bls (mul 128 r) -)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|=(a/(list @) (rpp 9 (mul 2 r) (rep 3 a)))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?> =((lent b) z)
|
|
|
|
|
|
=+ ^= q
|
|
|
|
|
|
=+ |- ?~ b (flop v)
|
|
|
|
|
|
$(b +.b, v [i=(srm r -.b n) t=v])
|
|
|
|
|
|
%+ turn `(list (list @))`-
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|=(a/(list @) (rpp 3 (mul 128 r) (rep 9 a)))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(pbl p pl (rep 3 (slb q)) u 1 d)
|
|
|
|
|
|
:: :: ++ypt:scr:crypto
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ ypt :: 256bit {salt pass}
|
|
|
|
|
|
|= {s/@ p/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- @
|
|
|
|
|
|
(hsh p s 16.384 8 1 256)
|
|
|
|
|
|
-- ::scr
|
2016-12-08 05:12:37 +03:00
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++crub:crypto :: (2b4) suite B, Ed
|
|
|
|
|
|
:: ::::
|
2017-06-10 03:30:18 +03:00
|
|
|
|
++ crub !:
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- acru
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=| {pub/{cry/@ sgn/@} sek/(unit {cry/@ sgn/@})}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++as:crub:crypto
|
|
|
|
|
|
++ as ::
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++sign:as:crub:
|
|
|
|
|
|
++ sign ::
|
2018-08-21 22:23:00 +03:00
|
|
|
|
|= msg=@
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- @ux
|
|
|
|
|
|
?~ sek ~| %pubkey-only !!
|
|
|
|
|
|
(jam [(sign:ed msg sgn.u.sek) msg])
|
|
|
|
|
|
:: :: ++sure:as:crub:
|
|
|
|
|
|
++ sure ::
|
2018-08-21 22:23:00 +03:00
|
|
|
|
|= txt=@
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- (unit @ux)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=+ ((hard {sig/@ msg/@}) (cue txt))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?. (veri:ed sig msg sgn.pub) ~
|
|
|
|
|
|
(some msg)
|
|
|
|
|
|
:: :: ++seal:as:crub:
|
|
|
|
|
|
++ seal ::
|
2018-08-21 22:23:00 +03:00
|
|
|
|
|= {bpk/pass msg/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- @ux
|
|
|
|
|
|
?~ sek ~| %pubkey-only !!
|
|
|
|
|
|
?> =('b' (end 3 1 bpk))
|
|
|
|
|
|
=+ pk=(rsh 8 1 (rsh 3 1 bpk))
|
|
|
|
|
|
=+ shar=(shax (shar:ed pk cry.u.sek))
|
2018-08-21 22:23:00 +03:00
|
|
|
|
=+ smsg=(sign msg)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(jam (~(en siva:aes shar ~) smsg))
|
|
|
|
|
|
:: :: ++tear:as:crub:
|
|
|
|
|
|
++ tear ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {bpk/pass txt/@}
|
2018-08-21 22:23:00 +03:00
|
|
|
|
^- (unit @ux)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?~ sek ~| %pubkey-only !!
|
|
|
|
|
|
?> =('b' (end 3 1 bpk))
|
|
|
|
|
|
=+ pk=(rsh 8 1 (rsh 3 1 bpk))
|
|
|
|
|
|
=+ shar=(shax (shar:ed pk cry.u.sek))
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=+ ((hard {iv/@ len/@ cph/@}) (cue txt))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ try=(~(de siva:aes shar ~) iv len cph)
|
|
|
|
|
|
?~ try ~
|
2018-08-21 22:23:00 +03:00
|
|
|
|
(sure:as:(com:nu:crub bpk) u.try)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
-- ::as
|
|
|
|
|
|
:: :: ++de:crub:crypto
|
|
|
|
|
|
++ de :: decrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {key/@J txt/@}
|
2016-12-08 05:12:37 +03:00
|
|
|
|
^- (unit @ux)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=+ ((hard {iv/@ len/@ cph/@}) (cue txt))
|
2016-12-08 05:12:37 +03:00
|
|
|
|
%^ ~(de sivc:aes (shaz key) ~)
|
|
|
|
|
|
iv
|
|
|
|
|
|
len
|
|
|
|
|
|
cph
|
|
|
|
|
|
:: :: ++dy:crub:crypto
|
|
|
|
|
|
++ dy :: need decrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {key/@J cph/@}
|
2016-12-08 05:12:37 +03:00
|
|
|
|
(need (de key cph))
|
|
|
|
|
|
:: :: ++en:crub:crypto
|
|
|
|
|
|
++ en :: encrypt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {key/@J msg/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- @ux
|
2016-12-08 05:12:37 +03:00
|
|
|
|
(jam (~(en sivc:aes (shaz key) ~) msg))
|
|
|
|
|
|
:: :: ++ex:crub:crypto
|
|
|
|
|
|
++ ex :: extract
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++fig:ex:crub:crypto
|
|
|
|
|
|
++ fig :: fingerprint
|
|
|
|
|
|
^- @uvH
|
2018-10-15 23:05:55 +03:00
|
|
|
|
(shaf %bfig pub)
|
2016-12-08 05:12:37 +03:00
|
|
|
|
:: :: ++pac:ex:crub:crypto
|
|
|
|
|
|
++ pac :: private fingerprint
|
|
|
|
|
|
^- @uvG
|
|
|
|
|
|
?~ sek ~| %pubkey-only !!
|
2018-10-15 23:05:55 +03:00
|
|
|
|
(end 6 1 (shaf %bcod sec))
|
2016-12-08 05:12:37 +03:00
|
|
|
|
:: :: ++pub:ex:crub:crypto
|
|
|
|
|
|
++ pub :: public key
|
|
|
|
|
|
^- pass
|
|
|
|
|
|
(cat 3 'b' (cat 8 sgn.^pub cry.^pub))
|
|
|
|
|
|
:: :: ++sec:ex:crub:crypto
|
|
|
|
|
|
++ sec :: private key
|
|
|
|
|
|
^- ring
|
|
|
|
|
|
?~ sek ~| %pubkey-only !!
|
|
|
|
|
|
(cat 3 'B' (cat 8 sgn.u.sek cry.u.sek))
|
|
|
|
|
|
-- ::ex
|
|
|
|
|
|
:: :: ++nu:crub:crypto
|
|
|
|
|
|
++ nu ::
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++pit:nu:crub:crypto
|
|
|
|
|
|
++ pit :: create keypair
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {w/@ seed/@}
|
2016-12-08 05:12:37 +03:00
|
|
|
|
=+ wid=(add (div w 8) ?:(=((mod w 8) 0) 0 1))
|
|
|
|
|
|
=+ bits=(shal wid seed)
|
|
|
|
|
|
=+ [c=(rsh 8 1 bits) s=(end 8 1 bits)]
|
|
|
|
|
|
..nu(pub [cry=(puck:ed c) sgn=(puck:ed s)], sek `[cry=c sgn=s])
|
|
|
|
|
|
:: :: ++nol:nu:crub:crypto
|
|
|
|
|
|
++ nol :: activate secret
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/ring
|
2016-12-08 05:12:37 +03:00
|
|
|
|
=+ [mag=(end 3 1 a) bod=(rsh 3 1 a)]
|
|
|
|
|
|
~| %not-crub-seckey ?> =('B' mag)
|
|
|
|
|
|
=+ [c=(rsh 8 1 bod) s=(end 8 1 bod)]
|
|
|
|
|
|
..nu(pub [cry=(puck:ed c) sgn=(puck:ed s)], sek `[cry=c sgn=s])
|
|
|
|
|
|
:: :: ++com:nu:crub:crypto
|
|
|
|
|
|
++ com :: activate public
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/pass
|
2016-12-08 05:12:37 +03:00
|
|
|
|
=+ [mag=(end 3 1 a) bod=(rsh 3 1 a)]
|
|
|
|
|
|
~| %not-crub-pubkey ?> =('b' mag)
|
|
|
|
|
|
..nu(pub [cry=(rsh 8 1 bod) sgn=(end 8 1 bod)], sek ~)
|
|
|
|
|
|
-- ::nu
|
|
|
|
|
|
-- ::crub
|
|
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++crua:crypto :: (2b5) suite B, RSA
|
|
|
|
|
|
:: ::::
|
2018-08-21 21:19:28 +03:00
|
|
|
|
++ crua !!
|
2016-12-08 05:12:37 +03:00
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++test:crypto :: (2b6) test crypto
|
|
|
|
|
|
:: ::::
|
|
|
|
|
|
++ test ^?
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++trub:test:crypto
|
|
|
|
|
|
++ trub :: test crub
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= msg/@t
|
2016-12-02 04:17:02 +03:00
|
|
|
|
::
|
|
|
|
|
|
:: make acru cores
|
|
|
|
|
|
::
|
|
|
|
|
|
=/ ali (pit:nu:crub 512 (shaz 'Alice'))
|
|
|
|
|
|
=/ ali-pub (com:nu:crub pub:ex.ali)
|
|
|
|
|
|
=/ bob (pit:nu:crub 512 (shaz 'Robert'))
|
|
|
|
|
|
=/ bob-pub (com:nu:crub pub:ex.bob)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: alice signs and encrypts a symmetric key to bob
|
|
|
|
|
|
::
|
|
|
|
|
|
=/ secret-key %- shaz
|
|
|
|
|
|
'Let there be no duplicity when taking a stand against him.'
|
2018-08-21 22:23:00 +03:00
|
|
|
|
=/ signed-key (sign:as.ali secret-key)
|
|
|
|
|
|
=/ crypted-key (seal:as.ali pub:ex.bob-pub signed-key)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: bob decrypts and verifies
|
|
|
|
|
|
=/ decrypt-key-attempt (tear:as.bob pub:ex.ali-pub crypted-key)
|
|
|
|
|
|
=/ decrypted-key ~| %decrypt-fail (need decrypt-key-attempt)
|
2018-08-21 22:23:00 +03:00
|
|
|
|
=/ verify-key-attempt (sure:as.ali-pub decrypted-key)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=/ verified-key ~| %verify-fail (need verify-key-attempt)
|
|
|
|
|
|
:: bob encrypts with symmetric key
|
|
|
|
|
|
=/ crypted-msg (en.bob verified-key msg)
|
|
|
|
|
|
:: alice decrypts with same key
|
|
|
|
|
|
`@t`(dy.ali secret-key crypted-msg)
|
|
|
|
|
|
-- ::test
|
2018-03-02 17:43:54 +03:00
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++keccak:crypto :: (2b7) keccak family
|
|
|
|
|
|
:: ::::
|
|
|
|
|
|
++ keccak
|
|
|
|
|
|
|%
|
|
|
|
|
|
::
|
|
|
|
|
|
:: keccak
|
|
|
|
|
|
::
|
2018-03-05 18:02:27 +03:00
|
|
|
|
++ keccak-224 |=(a=octs (keccak 1.152 448 224 a))
|
|
|
|
|
|
++ keccak-256 |=(a=octs (keccak 1.088 512 256 a))
|
|
|
|
|
|
++ keccak-384 |=(a=octs (keccak 832 768 384 a))
|
|
|
|
|
|
++ keccak-512 |=(a=octs (keccak 576 1.024 512 a))
|
2018-03-02 17:43:54 +03:00
|
|
|
|
::
|
|
|
|
|
|
++ keccak (cury (cury hash keccak-f) padding-keccak)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ padding-keccak (multirate-padding 0x1)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: sha3
|
|
|
|
|
|
::
|
2018-03-05 18:02:27 +03:00
|
|
|
|
++ sha3-224 |=(a=octs (sha3 1.152 448 224 a))
|
|
|
|
|
|
++ sha3-256 |=(a=octs (sha3 1.088 512 256 a))
|
|
|
|
|
|
++ sha3-384 |=(a=octs (sha3 832 768 384 a))
|
|
|
|
|
|
++ sha3-512 |=(a=octs (sha3 576 1.024 512 a))
|
2018-03-02 17:43:54 +03:00
|
|
|
|
::
|
|
|
|
|
|
++ sha3 (cury (cury hash keccak-f) padding-sha3)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ padding-sha3 (multirate-padding 0x6)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: shake
|
|
|
|
|
|
::
|
2018-03-05 18:02:27 +03:00
|
|
|
|
++ shake-128 |=([o=@ud i=octs] (shake 1.344 256 o i))
|
2018-03-06 03:26:34 +03:00
|
|
|
|
++ shake-256 |=([o=@ud i=octs] (shake 1.088 512 o i))
|
2018-03-02 17:43:54 +03:00
|
|
|
|
::
|
|
|
|
|
|
++ shake (cury (cury hash keccak-f) padding-shake)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ padding-shake (multirate-padding 0x1f)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: rawshake
|
|
|
|
|
|
::
|
2018-03-05 18:02:27 +03:00
|
|
|
|
++ rawshake-128 |=([o=@ud i=octs] (rawshake 1.344 256 o i))
|
2018-03-06 03:26:34 +03:00
|
|
|
|
++ rawshake-256 |=([o=@ud i=octs] (rawshake 1.088 512 o i))
|
2018-03-02 17:43:54 +03:00
|
|
|
|
::
|
|
|
|
|
|
++ rawshake (cury (cury hash keccak-f) padding-rawshake)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ padding-rawshake (multirate-padding 0x7)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: core
|
|
|
|
|
|
::
|
|
|
|
|
|
++ hash
|
2018-05-25 01:39:56 +03:00
|
|
|
|
:: per: permutation function with configurable width.
|
|
|
|
|
|
:: pad: padding function.
|
|
|
|
|
|
:: rat: bitrate, size in bits of blocks to operate on.
|
|
|
|
|
|
:: cap: capacity, bits of sponge padding.
|
|
|
|
|
|
:: out: length of desired output, in bits.
|
|
|
|
|
|
:: inp: input to hash.
|
2018-03-02 17:43:54 +03:00
|
|
|
|
|= $: per=$-(@ud $-(@ @))
|
2018-03-05 19:04:35 +03:00
|
|
|
|
pad=$-([octs @ud] octs)
|
2018-03-02 17:43:54 +03:00
|
|
|
|
rat=@ud
|
|
|
|
|
|
cap=@ud
|
|
|
|
|
|
out=@ud
|
2018-03-05 18:02:27 +03:00
|
|
|
|
inp=octs
|
2018-03-02 17:43:54 +03:00
|
|
|
|
==
|
2018-03-05 18:02:27 +03:00
|
|
|
|
^- @
|
|
|
|
|
|
:: urbit's little-endian to keccak's big-endian.
|
2018-06-21 19:49:10 +03:00
|
|
|
|
=. q.inp (rev 3 inp)
|
2018-03-02 17:43:54 +03:00
|
|
|
|
%. [inp out]
|
|
|
|
|
|
(sponge per pad rat cap)
|
|
|
|
|
|
::
|
2018-03-05 18:02:27 +03:00
|
|
|
|
::NOTE if ++keccak ever needs to be made to operate
|
|
|
|
|
|
:: on bits rather than bytes, all that needs to
|
|
|
|
|
|
:: be done is updating the way this padding
|
|
|
|
|
|
:: function works. (and also "octs" -> "bits")
|
2018-03-02 17:43:54 +03:00
|
|
|
|
++ multirate-padding
|
2018-05-25 01:39:56 +03:00
|
|
|
|
:: dsb: domain separation byte, reverse bit order.
|
2018-03-02 17:43:54 +03:00
|
|
|
|
|= dsb=@ux
|
|
|
|
|
|
?> (lte dsb 0xff)
|
2018-03-05 18:02:27 +03:00
|
|
|
|
|= [inp=octs mut=@ud]
|
2018-03-05 19:04:35 +03:00
|
|
|
|
^- octs
|
2018-03-02 17:43:54 +03:00
|
|
|
|
=. mut (div mut 8)
|
2018-03-05 18:02:27 +03:00
|
|
|
|
=+ pal=(sub mut (mod p.inp mut))
|
2018-03-02 17:43:54 +03:00
|
|
|
|
=? pal =(pal 0) mut
|
|
|
|
|
|
=. pal (dec pal)
|
2018-03-05 19:04:35 +03:00
|
|
|
|
:- (add p.inp +(pal))
|
2018-03-02 17:43:54 +03:00
|
|
|
|
:: padding is provided in lane bit ordering,
|
|
|
|
|
|
:: ie, LSB = left.
|
2018-03-05 18:02:27 +03:00
|
|
|
|
(cat 3 (con (lsh 3 pal dsb) 0x80) q.inp)
|
2018-03-02 17:43:54 +03:00
|
|
|
|
::
|
|
|
|
|
|
++ sponge
|
2018-05-25 01:39:56 +03:00
|
|
|
|
:: sponge construction
|
2018-03-02 17:43:54 +03:00
|
|
|
|
::
|
2018-05-25 01:39:56 +03:00
|
|
|
|
:: preperm: permutation function with configurable width.
|
|
|
|
|
|
:: padding: padding function.
|
|
|
|
|
|
:: bitrate: size of blocks to operate on.
|
|
|
|
|
|
:: capacity: sponge padding.
|
2018-03-05 18:12:32 +03:00
|
|
|
|
|= $: preperm=$-(@ud $-(@ @))
|
2018-03-05 19:04:35 +03:00
|
|
|
|
padding=$-([octs @ud] octs)
|
2018-03-02 17:43:54 +03:00
|
|
|
|
bitrate=@ud
|
|
|
|
|
|
capacity=@ud
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: preparing
|
|
|
|
|
|
=+ bitrate-bytes=(div bitrate 8)
|
|
|
|
|
|
=+ blockwidth=(add bitrate capacity)
|
2018-03-05 18:12:32 +03:00
|
|
|
|
=+ permute=(preperm blockwidth)
|
2018-03-02 17:43:54 +03:00
|
|
|
|
::
|
2018-03-05 18:02:27 +03:00
|
|
|
|
|= [input=octs output=@ud]
|
|
|
|
|
|
|^ ^- @
|
2018-03-02 17:43:54 +03:00
|
|
|
|
::
|
|
|
|
|
|
:: padding
|
2018-03-05 19:04:35 +03:00
|
|
|
|
=. input (padding input bitrate)
|
2018-03-02 17:43:54 +03:00
|
|
|
|
::
|
|
|
|
|
|
:: absorbing
|
|
|
|
|
|
=/ pieces=(list @)
|
|
|
|
|
|
:: amount of bitrate-sized blocks.
|
2018-03-05 19:04:35 +03:00
|
|
|
|
?> =(0 (mod p.input bitrate-bytes))
|
|
|
|
|
|
=+ i=(div p.input bitrate-bytes)
|
2018-03-02 17:43:54 +03:00
|
|
|
|
|-
|
|
|
|
|
|
?: =(i 0) ~
|
|
|
|
|
|
:_ $(i (dec i))
|
|
|
|
|
|
:: get the bitrate-sized block of bytes
|
|
|
|
|
|
:: that ends with the byte at -.
|
2018-03-05 19:04:35 +03:00
|
|
|
|
=- (cut 3 [- bitrate-bytes] q.input)
|
2018-03-02 17:43:54 +03:00
|
|
|
|
(mul (dec i) bitrate-bytes)
|
|
|
|
|
|
=/ state=@
|
|
|
|
|
|
:: for every piece,
|
|
|
|
|
|
%+ roll pieces
|
|
|
|
|
|
|= [p=@ s=@]
|
|
|
|
|
|
:: pad with capacity,
|
|
|
|
|
|
=. p (lsh 0 capacity p)
|
|
|
|
|
|
:: xor it into the state and permute it.
|
|
|
|
|
|
(permute (mix s (bytes-to-lanes p)))
|
|
|
|
|
|
::
|
|
|
|
|
|
:: squeezing
|
|
|
|
|
|
=| res=@
|
|
|
|
|
|
=| len=@ud
|
|
|
|
|
|
|-
|
|
|
|
|
|
:: append a bitrate-sized head of state to the
|
|
|
|
|
|
:: result.
|
|
|
|
|
|
=. res
|
|
|
|
|
|
%+ con (lsh 0 bitrate res)
|
|
|
|
|
|
(rsh 0 capacity (lanes-to-bytes state))
|
|
|
|
|
|
=. len (add len bitrate)
|
|
|
|
|
|
?: (gte len output)
|
|
|
|
|
|
:: produce the requested bits of output.
|
|
|
|
|
|
(rsh 0 (sub len output) res)
|
|
|
|
|
|
$(res res, state (permute state))
|
|
|
|
|
|
::
|
|
|
|
|
|
++ bytes-to-lanes
|
2018-05-25 01:39:56 +03:00
|
|
|
|
:: flip byte order in blocks of 8 bytes.
|
2018-03-02 17:43:54 +03:00
|
|
|
|
|= a=@
|
|
|
|
|
|
%+ can 6
|
|
|
|
|
|
%+ turn (rip 6 a)
|
|
|
|
|
|
|= b=@
|
|
|
|
|
|
:- 1
|
|
|
|
|
|
(lsh 3 (sub 8 (met 3 b)) (swp 3 b))
|
|
|
|
|
|
::
|
|
|
|
|
|
++ lanes-to-bytes
|
2018-05-25 01:39:56 +03:00
|
|
|
|
:: unflip byte order in blocks of 8 bytes.
|
2018-03-02 17:43:54 +03:00
|
|
|
|
|= a=@
|
|
|
|
|
|
%+ can 6
|
|
|
|
|
|
%+ turn
|
|
|
|
|
|
=+ (rip 6 a)
|
|
|
|
|
|
(weld - (reap (sub 25 (lent -)) 0x0))
|
|
|
|
|
|
|= a=@
|
|
|
|
|
|
:- 1
|
|
|
|
|
|
%+ can 3
|
|
|
|
|
|
=- (turn - |=(a=@ [1 a]))
|
|
|
|
|
|
=+ (flop (rip 3 a))
|
2018-03-05 22:59:21 +03:00
|
|
|
|
(weld (reap (sub 8 (lent -)) 0x0) -)
|
2018-03-02 17:43:54 +03:00
|
|
|
|
--
|
|
|
|
|
|
::
|
|
|
|
|
|
++ keccak-f
|
2018-05-25 01:39:56 +03:00
|
|
|
|
:: keccak permutation function
|
2018-03-02 17:43:54 +03:00
|
|
|
|
|= [width=@ud]
|
|
|
|
|
|
:: assert valid blockwidth.
|
|
|
|
|
|
?> =- (~(has in -) width)
|
|
|
|
|
|
(sy 25 50 100 200 400 800 1.600 ~)
|
|
|
|
|
|
:: assumes 5x5 lanes state, as is the keccak
|
|
|
|
|
|
:: standard.
|
|
|
|
|
|
=+ size=5
|
|
|
|
|
|
=+ lanes=(mul size size)
|
|
|
|
|
|
=+ lane-bloq=(dec (xeb (div width lanes)))
|
|
|
|
|
|
=+ lane-size=(bex lane-bloq)
|
|
|
|
|
|
=+ rounds=(add 12 (mul 2 lane-bloq))
|
|
|
|
|
|
|= [input=@]
|
|
|
|
|
|
^- @
|
|
|
|
|
|
=* a input
|
|
|
|
|
|
=+ round=0
|
|
|
|
|
|
|^
|
|
|
|
|
|
?: =(round rounds) a
|
|
|
|
|
|
::
|
|
|
|
|
|
:: theta
|
|
|
|
|
|
=/ c=@
|
|
|
|
|
|
%+ roll (gulf 0 (dec size))
|
|
|
|
|
|
|= [x=@ud c=@]
|
|
|
|
|
|
%+ con (lsh lane-bloq 1 c)
|
|
|
|
|
|
%+ roll (gulf 0 (dec size))
|
|
|
|
|
|
|= [y=@ud c=@]
|
|
|
|
|
|
(mix c (get-lane x y a))
|
|
|
|
|
|
=/ d=@
|
|
|
|
|
|
%+ roll (gulf 0 (dec size))
|
|
|
|
|
|
|= [x=@ud d=@]
|
|
|
|
|
|
%+ con (lsh lane-bloq 1 d)
|
|
|
|
|
|
%+ mix
|
|
|
|
|
|
=- (get-word - size c)
|
|
|
|
|
|
?:(=(x 0) (dec size) (dec x))
|
|
|
|
|
|
%^ ~(rol fe lane-bloq) 0 1
|
|
|
|
|
|
(get-word (mod +(x) size) size c)
|
|
|
|
|
|
=. a
|
|
|
|
|
|
%+ roll (gulf 0 (dec lanes))
|
|
|
|
|
|
|= [i=@ud a=_a]
|
|
|
|
|
|
%+ mix a
|
|
|
|
|
|
%^ lsh lane-bloq
|
|
|
|
|
|
(sub lanes +(i))
|
|
|
|
|
|
(get-word i size d)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: rho and pi
|
|
|
|
|
|
=/ b=@
|
|
|
|
|
|
%+ roll (gulf 0 (dec lanes))
|
|
|
|
|
|
|= [i=@ b=@]
|
|
|
|
|
|
=+ x=(mod i 5)
|
|
|
|
|
|
=+ y=(div i 5)
|
|
|
|
|
|
%+ con b
|
|
|
|
|
|
%^ lsh lane-bloq
|
|
|
|
|
|
%+ sub lanes
|
|
|
|
|
|
%+ add +(y)
|
|
|
|
|
|
%+ mul size
|
|
|
|
|
|
(mod (add (mul 2 x) (mul 3 y)) size)
|
|
|
|
|
|
%^ ~(rol fe lane-bloq) 0
|
|
|
|
|
|
(rotation-offset i)
|
|
|
|
|
|
(get-word i lanes a)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: chi
|
|
|
|
|
|
=. a
|
|
|
|
|
|
%+ roll (gulf 0 (dec lanes))
|
|
|
|
|
|
|= [i=@ud a=@]
|
|
|
|
|
|
%+ con (lsh lane-bloq 1 a)
|
|
|
|
|
|
=+ x=(mod i 5)
|
|
|
|
|
|
=+ y=(div i 5)
|
|
|
|
|
|
%+ mix (get-lane x y b)
|
|
|
|
|
|
%+ dis
|
|
|
|
|
|
=- (get-lane - y b)
|
|
|
|
|
|
(mod (add x 2) size)
|
|
|
|
|
|
%^ not lane-bloq 1
|
|
|
|
|
|
(get-lane (mod +(x) size) y b)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: iota
|
|
|
|
|
|
=. a
|
|
|
|
|
|
=+ (round-constant round)
|
|
|
|
|
|
(mix a (lsh lane-bloq (dec lanes) -))
|
|
|
|
|
|
::
|
|
|
|
|
|
:: next round
|
|
|
|
|
|
$(round +(round))
|
|
|
|
|
|
::
|
|
|
|
|
|
++ get-lane
|
2018-05-25 01:39:56 +03:00
|
|
|
|
:: get the lane with coordinates
|
2018-03-02 17:43:54 +03:00
|
|
|
|
|= [x=@ud y=@ud a=@]
|
|
|
|
|
|
=+ i=(add x (mul size y))
|
|
|
|
|
|
(get-word i lanes a)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ get-word
|
2018-05-25 01:39:56 +03:00
|
|
|
|
:: get word {n} from atom {a} of {m} words.
|
2018-03-02 17:43:54 +03:00
|
|
|
|
|= [n=@ud m=@ud a=@]
|
|
|
|
|
|
(cut lane-bloq [(sub m +((mod n m))) 1] a)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ round-constant
|
|
|
|
|
|
|= c=@ud
|
|
|
|
|
|
=- (snag (mod c 24) -)
|
|
|
|
|
|
^- (list @ux)
|
|
|
|
|
|
:~ 0x1
|
|
|
|
|
|
0x8082
|
|
|
|
|
|
0x8000.0000.0000.808a
|
|
|
|
|
|
0x8000.0000.8000.8000
|
|
|
|
|
|
0x808b
|
|
|
|
|
|
0x8000.0001
|
|
|
|
|
|
0x8000.0000.8000.8081
|
|
|
|
|
|
0x8000.0000.0000.8009
|
|
|
|
|
|
0x8a
|
|
|
|
|
|
0x88
|
|
|
|
|
|
0x8000.8009
|
|
|
|
|
|
0x8000.000a
|
|
|
|
|
|
0x8000.808b
|
|
|
|
|
|
0x8000.0000.0000.008b
|
|
|
|
|
|
0x8000.0000.0000.8089
|
|
|
|
|
|
0x8000.0000.0000.8003
|
|
|
|
|
|
0x8000.0000.0000.8002
|
|
|
|
|
|
0x8000.0000.0000.0080
|
|
|
|
|
|
0x800a
|
|
|
|
|
|
0x8000.0000.8000.000a
|
|
|
|
|
|
0x8000.0000.8000.8081
|
|
|
|
|
|
0x8000.0000.0000.8080
|
|
|
|
|
|
0x8000.0001
|
|
|
|
|
|
0x8000.0000.8000.8008
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
++ rotation-offset
|
|
|
|
|
|
|= x=@ud
|
|
|
|
|
|
=- (snag x -)
|
|
|
|
|
|
^- (list @ud)
|
|
|
|
|
|
:~ 0 1 62 28 27
|
|
|
|
|
|
36 44 6 55 20
|
|
|
|
|
|
3 10 43 25 39
|
|
|
|
|
|
41 45 15 21 8
|
|
|
|
|
|
18 2 61 56 14
|
|
|
|
|
|
==
|
|
|
|
|
|
--
|
|
|
|
|
|
-- ::keccak
|
2018-07-13 15:20:28 +03:00
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++hmac:crypto :: (2b8) hmac family
|
|
|
|
|
|
:: ::::
|
|
|
|
|
|
++ hmac
|
|
|
|
|
|
~% %hmac ..is ~
|
|
|
|
|
|
=, sha
|
|
|
|
|
|
=> |%
|
|
|
|
|
|
++ meet |=([k=@ m=@] [[(met 3 k) k] [(met 3 m) m]])
|
|
|
|
|
|
++ flip |=([k=@ m=@] [(swp 3 k) (swp 3 m)])
|
|
|
|
|
|
--
|
|
|
|
|
|
|%
|
|
|
|
|
|
::
|
|
|
|
|
|
:: use with @
|
|
|
|
|
|
::
|
|
|
|
|
|
++ hmac-sha1 (cork meet hmac-sha1l)
|
|
|
|
|
|
++ hmac-sha256 (cork meet hmac-sha256l)
|
|
|
|
|
|
++ hmac-sha512 (cork meet hmac-sha512l)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: use with @t
|
|
|
|
|
|
::
|
|
|
|
|
|
++ hmac-sha1t (cork flip hmac-sha1)
|
|
|
|
|
|
++ hmac-sha256t (cork flip hmac-sha256)
|
|
|
|
|
|
++ hmac-sha512t (cork flip hmac-sha512)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: use with byts
|
|
|
|
|
|
::
|
|
|
|
|
|
++ hmac-sha1l (cury hmac sha-1l 64 20)
|
|
|
|
|
|
++ hmac-sha256l (cury hmac sha-256l 64 32)
|
|
|
|
|
|
++ hmac-sha512l (cury hmac sha-512l 128 64)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: main logic
|
|
|
|
|
|
::
|
|
|
|
|
|
++ hmac
|
|
|
|
|
|
~/ %hmac
|
|
|
|
|
|
:: boq: block size in bytes used by haj
|
|
|
|
|
|
:: out: bytes output by haj
|
|
|
|
|
|
|* [[haj=$-([@u @] @) boq=@u out=@u] key=byts msg=byts]
|
|
|
|
|
|
:: ensure key and message fit signaled lengths
|
|
|
|
|
|
=. dat.key (end 3 wid.key dat.key)
|
|
|
|
|
|
=. dat.msg (end 3 wid.msg dat.msg)
|
|
|
|
|
|
:: keys longer than block size are shortened by hashing
|
|
|
|
|
|
=? dat.key (gth wid.key boq) (haj wid.key dat.key)
|
|
|
|
|
|
=? wid.key (gth wid.key boq) out
|
|
|
|
|
|
:: keys shorter than block size are right-padded
|
|
|
|
|
|
=? dat.key (lth wid.key boq) (lsh 3 (sub boq wid.key) dat.key)
|
|
|
|
|
|
:: pad key, inner and outer
|
|
|
|
|
|
=+ kip=(mix dat.key (fil 3 boq 0x36))
|
|
|
|
|
|
=+ kop=(mix dat.key (fil 3 boq 0x5c))
|
|
|
|
|
|
:: append inner padding to message, then hash
|
|
|
|
|
|
=+ (haj (add wid.msg boq) (add (lsh 3 wid.msg kip) dat.msg))
|
|
|
|
|
|
:: prepend outer padding to result, hash again
|
|
|
|
|
|
(haj (add out boq) (add (lsh 3 out kop) -))
|
|
|
|
|
|
-- :: hmac
|
2018-07-13 16:22:34 +03:00
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++secp:crypto :: (2b9) secp family
|
|
|
|
|
|
:: ::::
|
|
|
|
|
|
++ secp
|
|
|
|
|
|
~% %secp ..is ~
|
|
|
|
|
|
|%
|
|
|
|
|
|
+= jaco [x=@ y=@ z=@] :: jacobian point
|
|
|
|
|
|
+= pont [x=@ y=@] :: curve point
|
|
|
|
|
|
::
|
|
|
|
|
|
++ secp256k1
|
|
|
|
|
|
%+ secp 32
|
|
|
|
|
|
:* p=0xffff.ffff.ffff.ffff.ffff.ffff.ffff.ffff. :: modulo
|
|
|
|
|
|
ffff.ffff.ffff.ffff.ffff.fffe.ffff.fc2f
|
|
|
|
|
|
a=0 :: y^2=x^3+ax+b
|
|
|
|
|
|
b=7
|
|
|
|
|
|
^= g :: "prime" point
|
|
|
|
|
|
:* x=0x79be.667e.f9dc.bbac.55a0.6295.ce87.0b07.
|
|
|
|
|
|
029b.fcdb.2dce.28d9.59f2.815b.16f8.1798
|
|
|
|
|
|
y=0x483a.da77.26a3.c465.5da4.fbfc.0e11.08a8.
|
|
|
|
|
|
fd17.b448.a685.5419.9c47.d08f.fb10.d4b8
|
|
|
|
|
|
==
|
|
|
|
|
|
n=0xffff.ffff.ffff.ffff.ffff.ffff.ffff.fffe. :: prime order of g
|
|
|
|
|
|
baae.dce6.af48.a03b.bfd2.5e8c.d036.4141
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
++ secp
|
2018-10-04 04:39:27 +03:00
|
|
|
|
~/ %secp
|
2018-08-03 17:38:38 +03:00
|
|
|
|
|= [w=@ p=@ a=@ b=@ g=pont n=@] :: being passed in from above
|
2018-07-13 16:22:34 +03:00
|
|
|
|
=/ p ~(. fo p)
|
|
|
|
|
|
=/ n ~(. fo n)
|
2018-08-03 17:38:38 +03:00
|
|
|
|
~% %helper ..$ ~
|
2018-07-13 16:22:34 +03:00
|
|
|
|
|%
|
|
|
|
|
|
++ compress-point
|
2018-10-04 04:39:27 +03:00
|
|
|
|
~/ %compress-point
|
|
|
|
|
|
|= pont
|
2018-07-13 16:22:34 +03:00
|
|
|
|
^- @
|
|
|
|
|
|
(can 3 ~[w^x 1^(add 0x2 (cut 0 [0 1] y))])
|
|
|
|
|
|
::
|
|
|
|
|
|
++ serialize-point
|
2018-10-04 04:39:27 +03:00
|
|
|
|
~/ %serialize-point
|
2018-07-13 16:22:34 +03:00
|
|
|
|
|= pont
|
|
|
|
|
|
^- @
|
|
|
|
|
|
(can 3 ~[w^y w^x 1^0x4])
|
|
|
|
|
|
::
|
|
|
|
|
|
++ decompress-point
|
2018-10-04 04:39:27 +03:00
|
|
|
|
~/ %decompress-point
|
2018-07-13 16:22:34 +03:00
|
|
|
|
|= dat=@
|
|
|
|
|
|
^- pont
|
|
|
|
|
|
=+ x=(end 3 w a)
|
|
|
|
|
|
=+ y=:(add (pow x 3) (mul a x) b)
|
|
|
|
|
|
=+ s=(rsh 3 32 dat)
|
|
|
|
|
|
:- x
|
|
|
|
|
|
?: =(0x2 s) y
|
|
|
|
|
|
?: =(0x3 s) y
|
|
|
|
|
|
~| [`@ux`s `@ux`dat]
|
|
|
|
|
|
!!
|
|
|
|
|
|
::
|
|
|
|
|
|
++ priv-to-pub :: get pub from priv
|
2018-10-04 04:39:27 +03:00
|
|
|
|
~/ %priv-to-pub
|
2018-07-13 16:22:34 +03:00
|
|
|
|
|= prv=@
|
|
|
|
|
|
^- pont
|
|
|
|
|
|
(jc-mul g prv)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ make-k :: deterministic nonce
|
2018-10-04 04:39:27 +03:00
|
|
|
|
~/ %make-k
|
2018-07-13 16:22:34 +03:00
|
|
|
|
=, mimes:html
|
|
|
|
|
|
|= [has=@uvI prv=@]
|
|
|
|
|
|
^- @
|
|
|
|
|
|
=* hmc hmac-sha256l:hmac
|
|
|
|
|
|
=/ v (fil 3 w 1)
|
|
|
|
|
|
=/ k 0
|
2018-07-13 18:28:19 +03:00
|
|
|
|
=. k (hmc w^k (as-octs (can 3 [w has] [w prv] [1 0x0] [w v] ~)))
|
|
|
|
|
|
=. v (hmc w^k w^v)
|
|
|
|
|
|
=. k (hmc w^k (as-octs (can 3 [w has] [w prv] [1 0x1] [w v] ~)))
|
|
|
|
|
|
=. v (hmc w^k w^v)
|
|
|
|
|
|
(hmc w^k w^v)
|
2018-07-13 16:22:34 +03:00
|
|
|
|
::
|
|
|
|
|
|
++ ecdsa-raw-sign :: generate signature
|
2018-10-04 04:39:27 +03:00
|
|
|
|
~/ %ecdsa-raw-sign
|
2018-07-13 16:22:34 +03:00
|
|
|
|
|= [has=@uvI prv=@]
|
|
|
|
|
|
^- [v=@ r=@ s=@]
|
|
|
|
|
|
=/ z has
|
|
|
|
|
|
=/ k (make-k has prv)
|
|
|
|
|
|
=+ [r y]=(jc-mul g k)
|
|
|
|
|
|
=/ s (pro.n `@`(inv.n k) `@`(sum.n z (mul r prv)))
|
|
|
|
|
|
=/ big-s (gte (mul 2 s) ^n)
|
2018-09-04 15:59:35 +03:00
|
|
|
|
:* v=(mix (end 0 1 y) ?:(big-s 1 0))
|
2018-07-13 16:22:34 +03:00
|
|
|
|
r=r
|
|
|
|
|
|
s=?.(big-s s (sub ^n s))
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
++ ecdsa-raw-recover :: get pubkey from sig
|
2018-10-04 04:39:27 +03:00
|
|
|
|
~/ %ecdsa-raw-recover
|
2018-07-13 16:22:34 +03:00
|
|
|
|
|= [has=@uvI sig=[v=@ r=@ s=@]]
|
|
|
|
|
|
^- pont
|
2018-09-04 19:08:00 +03:00
|
|
|
|
?> (lte v.sig 7)
|
2018-07-13 16:22:34 +03:00
|
|
|
|
=/ x r.sig
|
|
|
|
|
|
=/ ysq (sum.p b (exp.p 3 x)) :: omits A=0
|
|
|
|
|
|
=/ bet (exp.p (div +(^p) 4) ysq)
|
|
|
|
|
|
=/ y ?:(=(1 (end 0 1 (mix v.sig bet))) bet (dif.p 0 bet))
|
|
|
|
|
|
?> =(0 (dif.p ysq (pro.p y y)))
|
|
|
|
|
|
?< =(0 (sit.n r.sig))
|
|
|
|
|
|
?< =(0 (sit.n s.sig))
|
|
|
|
|
|
=/ gz (mul:jc [x y 1]:g (dif.n 0 has))
|
|
|
|
|
|
=/ xy (mul:jc [x y 1] s.sig)
|
|
|
|
|
|
=/ qr (add:jc gz xy)
|
|
|
|
|
|
(from:jc (mul:jc qr (inv.n r.sig)))
|
|
|
|
|
|
::
|
|
|
|
|
|
++ jc-mul :: point x scalar
|
|
|
|
|
|
|= [a=pont n=@]
|
|
|
|
|
|
^- pont
|
|
|
|
|
|
(from:jc (mul:jc (into:jc a) n))
|
|
|
|
|
|
::
|
|
|
|
|
|
++ jc-add :: add points
|
|
|
|
|
|
|= [a=pont b=pont]
|
|
|
|
|
|
^- pont
|
|
|
|
|
|
(from:jc (add:jc (into:jc a) (into:jc b)))
|
|
|
|
|
|
::
|
|
|
|
|
|
++ jc :: jacobian core
|
|
|
|
|
|
|%
|
|
|
|
|
|
++ add :: addition
|
|
|
|
|
|
|= [a=jaco b=jaco]
|
|
|
|
|
|
^- jaco
|
|
|
|
|
|
?: =(0 y.a) b
|
|
|
|
|
|
?: =(0 y.b) a
|
|
|
|
|
|
=/ u1 :(pro.p x.a z.b z.b)
|
|
|
|
|
|
=/ u2 :(pro.p x.b z.a z.a)
|
|
|
|
|
|
=/ s1 :(pro.p y.a z.b z.b z.b)
|
|
|
|
|
|
=/ s2 :(pro.p y.b z.a z.a z.a)
|
|
|
|
|
|
?: =(u1 u2)
|
|
|
|
|
|
?. =(s1 s2)
|
|
|
|
|
|
[0 0 1]
|
|
|
|
|
|
(dub a)
|
|
|
|
|
|
=/ h (dif.p u2 u1)
|
|
|
|
|
|
=/ r (dif.p s2 s1)
|
|
|
|
|
|
=/ h2 (pro.p h h)
|
|
|
|
|
|
=/ h3 (pro.p h2 h)
|
|
|
|
|
|
=/ u1h2 (pro.p u1 h2)
|
|
|
|
|
|
=/ nx (dif.p (pro.p r r) :(sum.p h3 u1h2 u1h2))
|
|
|
|
|
|
=/ ny (dif.p (pro.p r (dif.p u1h2 nx)) (pro.p s1 h3))
|
|
|
|
|
|
=/ nz :(pro.p h z.a z.b)
|
|
|
|
|
|
[nx ny nz]
|
|
|
|
|
|
::
|
|
|
|
|
|
++ dub :: double
|
|
|
|
|
|
|= a=jaco
|
|
|
|
|
|
^- jaco
|
|
|
|
|
|
?: =(0 y.a)
|
|
|
|
|
|
[0 0 0]
|
|
|
|
|
|
=/ ysq (pro.p y.a y.a)
|
|
|
|
|
|
=/ s :(pro.p 4 x.a ysq)
|
|
|
|
|
|
=/ m :(pro.p 3 x.a x.a) :: omits A=0
|
|
|
|
|
|
=/ nx (dif.p (pro.p m m) (sum.p s s))
|
|
|
|
|
|
=/ ny (dif.p (pro.p m (dif.p s nx)) :(pro.p 8 ysq ysq))
|
|
|
|
|
|
=/ nz :(pro.p 2 y.a z.a)
|
|
|
|
|
|
[nx ny nz]
|
|
|
|
|
|
::
|
|
|
|
|
|
++ mul :: jaco x scalar
|
|
|
|
|
|
|= [a=jaco n=@]
|
|
|
|
|
|
^- jaco
|
|
|
|
|
|
?: =(0 y.a)
|
|
|
|
|
|
[0 0 1]
|
|
|
|
|
|
?: =(0 n)
|
|
|
|
|
|
[0 0 1]
|
|
|
|
|
|
?: =(1 n)
|
|
|
|
|
|
a
|
|
|
|
|
|
?: (gte n ^^n)
|
|
|
|
|
|
$(n (mod n ^^n))
|
|
|
|
|
|
?: =(0 (mod n 2))
|
|
|
|
|
|
(dub $(n (div n 2)))
|
|
|
|
|
|
(add a (dub $(n (div n 2))))
|
|
|
|
|
|
::
|
|
|
|
|
|
++ from :: jaco -> point
|
|
|
|
|
|
|= a=jaco
|
|
|
|
|
|
^- pont
|
|
|
|
|
|
=/ z (inv.p z.a)
|
|
|
|
|
|
[:(pro.p x.a z z) :(pro.p y.a z z z)]
|
|
|
|
|
|
::
|
|
|
|
|
|
++ into :: point -> jaco
|
|
|
|
|
|
|= pont
|
|
|
|
|
|
^- jaco
|
|
|
|
|
|
[x y z=1]
|
|
|
|
|
|
--
|
|
|
|
|
|
--
|
|
|
|
|
|
--
|
2018-07-19 22:47:06 +03:00
|
|
|
|
::
|
|
|
|
|
|
++ blake
|
|
|
|
|
|
~% %blake ..is ~
|
|
|
|
|
|
|%
|
|
|
|
|
|
::TODO generalize for both blake2 variants
|
|
|
|
|
|
++ blake2b
|
|
|
|
|
|
~/ %blake2b
|
|
|
|
|
|
|= [msg=byts key=byts out=@ud]
|
|
|
|
|
|
^- @
|
|
|
|
|
|
:: initialization vector
|
|
|
|
|
|
=/ iv=@
|
|
|
|
|
|
0x6a09.e667.f3bc.c908.
|
|
|
|
|
|
bb67.ae85.84ca.a73b.
|
|
|
|
|
|
3c6e.f372.fe94.f82b.
|
|
|
|
|
|
a54f.f53a.5f1d.36f1.
|
|
|
|
|
|
510e.527f.ade6.82d1.
|
|
|
|
|
|
9b05.688c.2b3e.6c1f.
|
|
|
|
|
|
1f83.d9ab.fb41.bd6b.
|
|
|
|
|
|
5be0.cd19.137e.2179
|
|
|
|
|
|
:: per-round constants
|
|
|
|
|
|
=/ sigma=(list (list @ud))
|
|
|
|
|
|
:~
|
|
|
|
|
|
:~ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ==
|
|
|
|
|
|
:~ 14 10 4 8 9 15 13 6 1 12 0 2 11 7 5 3 ==
|
|
|
|
|
|
:~ 11 8 12 0 5 2 15 13 10 14 3 6 7 1 9 4 ==
|
|
|
|
|
|
:~ 7 9 3 1 13 12 11 14 2 6 5 10 4 0 15 8 ==
|
|
|
|
|
|
:~ 9 0 5 7 2 4 10 15 14 1 11 12 6 8 3 13 ==
|
|
|
|
|
|
:~ 2 12 6 10 0 11 8 3 4 13 7 5 15 14 1 9 ==
|
|
|
|
|
|
:~ 12 5 1 15 14 13 4 10 0 7 6 3 9 2 8 11 ==
|
|
|
|
|
|
:~ 13 11 7 14 12 1 3 9 5 0 15 4 8 6 2 10 ==
|
|
|
|
|
|
:~ 6 15 14 9 11 3 0 8 12 2 13 7 1 4 10 5 ==
|
|
|
|
|
|
:~ 10 2 8 4 7 6 1 5 15 11 9 14 3 12 13 0 ==
|
|
|
|
|
|
:~ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ==
|
|
|
|
|
|
:~ 14 10 4 8 9 15 13 6 1 12 0 2 11 7 5 3 ==
|
|
|
|
|
|
==
|
|
|
|
|
|
=> |%
|
|
|
|
|
|
++ get-word-list
|
|
|
|
|
|
|= [h=@ w=@ud]
|
|
|
|
|
|
^- (list @)
|
|
|
|
|
|
%- flop
|
|
|
|
|
|
=+ l=(rip 6 h)
|
|
|
|
|
|
=- (weld - l)
|
|
|
|
|
|
(reap (sub w (lent l)) 0)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ get-word
|
|
|
|
|
|
|= [h=@ i=@ud w=@ud]
|
|
|
|
|
|
^- @
|
|
|
|
|
|
%+ snag i
|
|
|
|
|
|
(get-word-list h w)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ put-word
|
|
|
|
|
|
|= [h=@ i=@ud w=@ud d=@]
|
|
|
|
|
|
^- @
|
|
|
|
|
|
%+ rep 6
|
|
|
|
|
|
=+ l=(get-word-list h w)
|
|
|
|
|
|
%- flop
|
|
|
|
|
|
%+ weld (scag i l)
|
|
|
|
|
|
[d (slag +(i) l)]
|
|
|
|
|
|
::
|
|
|
|
|
|
++ mod-word
|
|
|
|
|
|
|* [h=@ i=@ud w=@ud g=$-(@ @)]
|
|
|
|
|
|
(put-word h i w (g (get-word h i w)))
|
|
|
|
|
|
::
|
|
|
|
|
|
++ pad
|
|
|
|
|
|
|= [byts len=@ud]
|
|
|
|
|
|
(lsh 3 (sub len wid) dat)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ compress
|
|
|
|
|
|
|= [h=@ c=@ t=@ud l=?]
|
|
|
|
|
|
^- @
|
|
|
|
|
|
:: set up local work vector
|
|
|
|
|
|
=+ v=(add (lsh 6 8 h) iv)
|
|
|
|
|
|
:: xor the counter t into v
|
|
|
|
|
|
=. v
|
|
|
|
|
|
%- mod-word
|
|
|
|
|
|
:^ v 12 16
|
|
|
|
|
|
(cury mix (end 0 64 t))
|
|
|
|
|
|
=. v
|
|
|
|
|
|
%- mod-word
|
|
|
|
|
|
:^ v 13 16
|
|
|
|
|
|
(cury mix (rsh 0 64 t))
|
|
|
|
|
|
:: for the last block, invert v14
|
|
|
|
|
|
=? v l
|
|
|
|
|
|
%- mod-word
|
|
|
|
|
|
:^ v 14 16
|
|
|
|
|
|
(cury mix 0xffff.ffff.ffff.ffff)
|
|
|
|
|
|
:: twelve rounds of message mixing
|
|
|
|
|
|
=+ i=0
|
|
|
|
|
|
=| s=(list @)
|
|
|
|
|
|
|^
|
|
|
|
|
|
?: =(i 12)
|
|
|
|
|
|
:: xor upper and lower halves of v into state h
|
|
|
|
|
|
=. h (mix h (rsh 6 8 v))
|
|
|
|
|
|
(mix h (end 6 8 v))
|
|
|
|
|
|
:: select message mixing schedule and mix v
|
|
|
|
|
|
=. s (snag (mod i 10) sigma)
|
|
|
|
|
|
=. v (do-mix 0 4 8 12 0 1)
|
|
|
|
|
|
=. v (do-mix 1 5 9 13 2 3)
|
|
|
|
|
|
=. v (do-mix 2 6 10 14 4 5)
|
|
|
|
|
|
=. v (do-mix 3 7 11 15 6 7)
|
|
|
|
|
|
=. v (do-mix 0 5 10 15 8 9)
|
|
|
|
|
|
=. v (do-mix 1 6 11 12 10 11)
|
|
|
|
|
|
=. v (do-mix 2 7 8 13 12 13)
|
|
|
|
|
|
=. v (do-mix 3 4 9 14 14 15)
|
|
|
|
|
|
$(i +(i))
|
|
|
|
|
|
::
|
|
|
|
|
|
++ do-mix
|
|
|
|
|
|
|= [na=@ nb=@ nc=@ nd=@ nx=@ ny=@]
|
|
|
|
|
|
^- @
|
|
|
|
|
|
=- =. v (put-word v na 16 a)
|
|
|
|
|
|
=. v (put-word v nb 16 b)
|
|
|
|
|
|
=. v (put-word v nc 16 c)
|
|
|
|
|
|
(put-word v nd 16 d)
|
|
|
|
|
|
%- b2mix
|
|
|
|
|
|
:* (get-word v na 16)
|
|
|
|
|
|
(get-word v nb 16)
|
|
|
|
|
|
(get-word v nc 16)
|
|
|
|
|
|
(get-word v nd 16)
|
|
|
|
|
|
(get-word c (snag nx s) 16)
|
|
|
|
|
|
(get-word c (snag ny s) 16)
|
|
|
|
|
|
==
|
|
|
|
|
|
--
|
|
|
|
|
|
::
|
|
|
|
|
|
++ b2mix
|
|
|
|
|
|
|= [a=@ b=@ c=@ d=@ x=@ y=@]
|
|
|
|
|
|
^- [a=@ b=@ c=@ d=@]
|
|
|
|
|
|
=. x (rev 3 8 x)
|
|
|
|
|
|
=. y (rev 3 8 y)
|
|
|
|
|
|
=+ fed=~(. fe 6)
|
|
|
|
|
|
=. a :(sum:fed a b x)
|
|
|
|
|
|
=. d (ror:fed 0 32 (mix d a))
|
|
|
|
|
|
=. c (sum:fed c d)
|
|
|
|
|
|
=. b (ror:fed 0 24 (mix b c))
|
|
|
|
|
|
=. a :(sum:fed a b y)
|
|
|
|
|
|
=. d (ror:fed 0 16 (mix d a))
|
|
|
|
|
|
=. c (sum:fed c d)
|
|
|
|
|
|
=. b (ror:fed 0 63 (mix b c))
|
|
|
|
|
|
[a b c d]
|
|
|
|
|
|
--
|
|
|
|
|
|
:: ensure inputs adhere to contraints
|
|
|
|
|
|
=. out (max 1 (min out 64))
|
|
|
|
|
|
=. wid.msg (min wid.msg (bex 128))
|
|
|
|
|
|
=. wid.key (min wid.key 64)
|
|
|
|
|
|
=. dat.msg (end 3 wid.msg dat.msg)
|
|
|
|
|
|
=. dat.key (end 3 wid.key dat.key)
|
|
|
|
|
|
:: initialize state vector
|
|
|
|
|
|
=+ h=iv
|
|
|
|
|
|
:: mix key length and output length into h0
|
|
|
|
|
|
=. h
|
|
|
|
|
|
%- mod-word
|
|
|
|
|
|
:^ h 0 8
|
|
|
|
|
|
%+ cury mix
|
|
|
|
|
|
%+ add 0x101.0000
|
|
|
|
|
|
(add (lsh 3 1 wid.key) out)
|
|
|
|
|
|
:: keep track of how much we've compressed
|
|
|
|
|
|
=* mes dat.msg
|
|
|
|
|
|
=+ com=0
|
|
|
|
|
|
=+ rem=wid.msg
|
|
|
|
|
|
:: if we have a key, pad it and prepend to msg
|
|
|
|
|
|
=? mes (gth wid.key 0)
|
|
|
|
|
|
(can 3 ~[rem^mes 128^(pad key 128)])
|
|
|
|
|
|
=? rem (gth wid.key 0)
|
|
|
|
|
|
(add rem 128)
|
|
|
|
|
|
|-
|
|
|
|
|
|
:: compress 128-byte chunks of the message
|
|
|
|
|
|
?: (gth rem 128)
|
|
|
|
|
|
=+ c=(cut 3 [(sub rem 128) 128] mes)
|
|
|
|
|
|
=. com (add com 128)
|
|
|
|
|
|
%_ $
|
|
|
|
|
|
rem (sub rem 128)
|
|
|
|
|
|
h (compress h c com |)
|
|
|
|
|
|
==
|
|
|
|
|
|
:: compress the final bytes of the msg
|
|
|
|
|
|
=+ c=(cut 3 [0 rem] mes)
|
|
|
|
|
|
=. com (add com rem)
|
|
|
|
|
|
=. c (pad [rem c] 128)
|
|
|
|
|
|
=. h (compress h c com &)
|
|
|
|
|
|
:: produce output of desired length
|
|
|
|
|
|
%^ rsh 3 (sub 64 out)
|
|
|
|
|
|
:: do some word
|
|
|
|
|
|
%+ rep 6
|
|
|
|
|
|
%+ turn (flop (gulf 0 7))
|
|
|
|
|
|
|= a=@
|
|
|
|
|
|
(rev 3 8 (get-word h a 8))
|
|
|
|
|
|
-- ::blake
|
|
|
|
|
|
::
|
|
|
|
|
|
++ argon2
|
|
|
|
|
|
~% %argon ..is ~
|
|
|
|
|
|
|%
|
|
|
|
|
|
::
|
|
|
|
|
|
:: structures
|
|
|
|
|
|
::
|
|
|
|
|
|
+= argon-type ?(%d %i %id %u)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: shorthands
|
|
|
|
|
|
::
|
|
|
|
|
|
++ argon2-urbit
|
2018-08-15 02:08:16 +03:00
|
|
|
|
|= out=@ud
|
|
|
|
|
|
(argon2 out %u 0x13 4 512.000 1 *byts *byts)
|
2018-07-19 22:47:06 +03:00
|
|
|
|
::
|
|
|
|
|
|
:: argon2 proper
|
|
|
|
|
|
::
|
|
|
|
|
|
:: main argon2 operation
|
|
|
|
|
|
++ argon2
|
|
|
|
|
|
:: out: desired output size in bytes
|
|
|
|
|
|
:: typ: argon2 type
|
|
|
|
|
|
:: version: argon2 version (0x10/v1.0 or 0x13/v1.3)
|
|
|
|
|
|
:: threads: amount of threads/parallelism
|
|
|
|
|
|
:: mem-cost: kb of memory to use
|
|
|
|
|
|
:: time-cost: iterations to run
|
|
|
|
|
|
:: key: optional secret
|
|
|
|
|
|
:: extra: optional arbitrary data
|
|
|
|
|
|
|= $: out=@ud
|
|
|
|
|
|
typ=argon-type
|
|
|
|
|
|
version=@ux
|
|
|
|
|
|
::
|
|
|
|
|
|
threads=@ud
|
|
|
|
|
|
mem-cost=@ud
|
|
|
|
|
|
time-cost=@ud
|
|
|
|
|
|
::
|
|
|
|
|
|
key=byts
|
|
|
|
|
|
extra=byts
|
|
|
|
|
|
==
|
|
|
|
|
|
^- $-([msg=byts sat=byts] @)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: check configuration sanity
|
|
|
|
|
|
::
|
|
|
|
|
|
?: =(0 threads)
|
|
|
|
|
|
~| %parallelism-must-be-above-zero
|
|
|
|
|
|
!!
|
|
|
|
|
|
?: =(0 time-cost)
|
|
|
|
|
|
~| %time-cost-must-be-above-zero
|
|
|
|
|
|
!!
|
|
|
|
|
|
?: (lth mem-cost (mul 8 threads))
|
|
|
|
|
|
~| :- %memory-cost-must-be-at-least-threads
|
|
|
|
|
|
[threads %times 8 (mul 8 threads)]
|
|
|
|
|
|
!!
|
|
|
|
|
|
?. |(=(0x10 version) =(0x13 version))
|
|
|
|
|
|
~| [%unsupported-version version %want [0x10 0x13]]
|
|
|
|
|
|
!!
|
|
|
|
|
|
::
|
|
|
|
|
|
:: calculate constants and initialize buffer
|
|
|
|
|
|
::
|
|
|
|
|
|
:: for each thread, there is a row in the buffer.
|
|
|
|
|
|
:: the amount of columns depends on the memory-cost.
|
|
|
|
|
|
:: columns are split into groups of four.
|
|
|
|
|
|
:: a single such quarter section of a row is a segment.
|
|
|
|
|
|
::
|
|
|
|
|
|
:: blocks: (m_prime)
|
|
|
|
|
|
:: columns: row length (q)
|
|
|
|
|
|
:: seg-length: segment length
|
|
|
|
|
|
=/ blocks=@ud
|
|
|
|
|
|
:: round mem-cost down to the nearest multiple of 4*threads
|
|
|
|
|
|
=+ (mul 4 threads)
|
|
|
|
|
|
(mul (div mem-cost -) -)
|
|
|
|
|
|
=+ columns=(div blocks threads)
|
|
|
|
|
|
=+ seg-length=(div columns 4)
|
|
|
|
|
|
::
|
|
|
|
|
|
=/ buffer=(list (list @))
|
|
|
|
|
|
(reap threads (reap columns 0))
|
|
|
|
|
|
::
|
|
|
|
|
|
:: main function
|
|
|
|
|
|
::
|
|
|
|
|
|
:: msg: the main input
|
|
|
|
|
|
:: sat: optional salt
|
|
|
|
|
|
~% %argon2 ..argon2 ~
|
|
|
|
|
|
|= [msg=byts sat=byts]
|
|
|
|
|
|
^- @
|
|
|
|
|
|
?: (lth wid.sat 8)
|
|
|
|
|
|
~| [%min-salt-length-is-8 wid.sat]
|
|
|
|
|
|
!!
|
|
|
|
|
|
::
|
|
|
|
|
|
:: h0: initial 64-byte block
|
|
|
|
|
|
=/ h0=@
|
|
|
|
|
|
=- (blake2b:blake - 0^0 64)
|
|
|
|
|
|
:- :(add 40 wid.msg wid.sat wid.key wid.extra)
|
|
|
|
|
|
%+ can 3
|
|
|
|
|
|
=+ (cury (cury rev 3) 4)
|
|
|
|
|
|
:~ (prep-wid extra)
|
|
|
|
|
|
(prep-wid key)
|
|
|
|
|
|
(prep-wid sat)
|
|
|
|
|
|
(prep-wid msg)
|
|
|
|
|
|
4^(- (type-to-num typ))
|
|
|
|
|
|
4^(- version)
|
|
|
|
|
|
4^(- time-cost)
|
|
|
|
|
|
4^(- mem-cost)
|
|
|
|
|
|
4^(- out)
|
|
|
|
|
|
4^(- threads)
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: do time-cost passes over the buffer
|
|
|
|
|
|
::
|
|
|
|
|
|
=+ t=0
|
|
|
|
|
|
|-
|
|
|
|
|
|
?: (lth t time-cost)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: process all four segments in the columns...
|
|
|
|
|
|
::
|
|
|
|
|
|
=+ s=0
|
|
|
|
|
|
|-
|
|
|
|
|
|
?. (lth s 4) ^$(t +(t))
|
|
|
|
|
|
::
|
|
|
|
|
|
:: ...of every row/thread
|
|
|
|
|
|
::
|
|
|
|
|
|
=+ r=0
|
|
|
|
|
|
|-
|
|
|
|
|
|
?. (lth r threads) ^$(s +(s))
|
|
|
|
|
|
=; new=_buffer
|
|
|
|
|
|
$(buffer new, r +(r))
|
|
|
|
|
|
%- fill-segment
|
|
|
|
|
|
:* buffer h0
|
|
|
|
|
|
t s r
|
|
|
|
|
|
blocks columns seg-length
|
|
|
|
|
|
threads time-cost typ version
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: mix all rows together and hash the result
|
|
|
|
|
|
::
|
|
|
|
|
|
=+ r=0
|
|
|
|
|
|
=| final=@
|
|
|
|
|
|
|-
|
|
|
|
|
|
?: =(r threads)
|
|
|
|
|
|
(hash 1.024^final out)
|
|
|
|
|
|
=- $(final -, r +(r))
|
|
|
|
|
|
%+ mix final
|
|
|
|
|
|
(snag (dec columns) (snag r buffer))
|
|
|
|
|
|
::
|
|
|
|
|
|
:: per-segment computation
|
|
|
|
|
|
++ fill-segment
|
|
|
|
|
|
|= $: buffer=(list (list @))
|
|
|
|
|
|
h0=@
|
|
|
|
|
|
::
|
|
|
|
|
|
itn=@ud
|
|
|
|
|
|
seg=@ud
|
|
|
|
|
|
row=@ud
|
|
|
|
|
|
::
|
|
|
|
|
|
blocks=@ud
|
|
|
|
|
|
columns=@ud
|
|
|
|
|
|
seg-length=@ud
|
|
|
|
|
|
::
|
|
|
|
|
|
threads=@ud
|
|
|
|
|
|
time-cost=@ud
|
|
|
|
|
|
typ=argon-type
|
|
|
|
|
|
version=@ux
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: fill-segment utilities
|
|
|
|
|
|
::
|
|
|
|
|
|
=> |%
|
|
|
|
|
|
++ put-word
|
|
|
|
|
|
|= [rob=(list @) i=@ud d=@]
|
|
|
|
|
|
%+ weld (scag i rob)
|
|
|
|
|
|
[d (slag +(i) rob)]
|
|
|
|
|
|
--
|
|
|
|
|
|
^+ buffer
|
|
|
|
|
|
::
|
|
|
|
|
|
:: rob: row buffer to operate on
|
|
|
|
|
|
:: do-i: whether to use prns from input rather than state
|
|
|
|
|
|
:: rands: prns generated from input, if we do-i
|
|
|
|
|
|
=+ rob=(snag row buffer)
|
|
|
|
|
|
=/ do-i=?
|
|
|
|
|
|
?| ?=(%i typ)
|
|
|
|
|
|
&(?=(%id typ) =(0 itn) (lte seg 1))
|
|
|
|
|
|
&(?=(%u typ) =(0 itn) (lte seg 2))
|
|
|
|
|
|
==
|
|
|
|
|
|
=/ rands=(list (pair @ @))
|
|
|
|
|
|
?. do-i ~
|
|
|
|
|
|
::
|
|
|
|
|
|
:: keep going until we have a list of :seg-length prn pairs
|
|
|
|
|
|
::
|
|
|
|
|
|
=+ l=0
|
|
|
|
|
|
=+ counter=1
|
|
|
|
|
|
|- ^- (list (pair @ @))
|
|
|
|
|
|
?: (gte l seg-length) ~
|
|
|
|
|
|
=- (weld - $(counter +(counter), l (add l 128)))
|
|
|
|
|
|
::
|
|
|
|
|
|
:: generate pseudorandom block by compressing metadata
|
|
|
|
|
|
::
|
|
|
|
|
|
=/ random-block=@
|
|
|
|
|
|
%+ compress 0
|
|
|
|
|
|
%+ compress 0
|
|
|
|
|
|
%^ lsh 3 968
|
|
|
|
|
|
%+ rep 6
|
|
|
|
|
|
=+ (cury (cury rev 3) 8)
|
|
|
|
|
|
:~ (- counter)
|
|
|
|
|
|
(- (type-to-num typ))
|
|
|
|
|
|
(- time-cost)
|
|
|
|
|
|
(- blocks)
|
|
|
|
|
|
(- seg)
|
|
|
|
|
|
(- row)
|
|
|
|
|
|
(- itn)
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: split the random-block into 64-bit sections,
|
|
|
|
|
|
:: then extract the first two 4-byte sections from each.
|
|
|
|
|
|
::
|
|
|
|
|
|
%+ turn (flop (rip 6 random-block))
|
|
|
|
|
|
|= a=@
|
|
|
|
|
|
^- (pair @ @)
|
|
|
|
|
|
:- (rev 3 4 (rsh 5 1 a))
|
|
|
|
|
|
(rev 3 4 (end 5 1 a))
|
|
|
|
|
|
::
|
|
|
|
|
|
:: iterate over the entire segment length
|
|
|
|
|
|
::
|
|
|
|
|
|
=+ sin=0
|
|
|
|
|
|
|-
|
|
|
|
|
|
::
|
|
|
|
|
|
:: when done, produce the updated buffer
|
|
|
|
|
|
::
|
|
|
|
|
|
?: =(sin seg-length)
|
|
|
|
|
|
%+ weld (scag row buffer)
|
|
|
|
|
|
[rob (slag +(row) buffer)]
|
|
|
|
|
|
::
|
|
|
|
|
|
:: col: current column to process
|
|
|
|
|
|
=/ col=@ud
|
|
|
|
|
|
(add (mul seg seg-length) sin)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: first two columns are generated from h0
|
|
|
|
|
|
::
|
|
|
|
|
|
?: &(=(0 itn) (lth col 2))
|
|
|
|
|
|
=+ (app-num (app-num 64^h0 col) row)
|
|
|
|
|
|
=+ (hash - 1.024)
|
|
|
|
|
|
$(rob (put-word rob col -), sin +(sin))
|
|
|
|
|
|
::
|
|
|
|
|
|
:: c1, c2: prns for picking reference block
|
|
|
|
|
|
=+ ^- [c1=@ c2=@] ::TODO =/ w/o face
|
|
|
|
|
|
?: do-i (snag sin rands)
|
|
|
|
|
|
=+ =- (snag - rob)
|
|
|
|
|
|
?: =(0 col) (dec columns)
|
|
|
|
|
|
(mod (dec col) columns)
|
|
|
|
|
|
:- (rev 3 4 (cut 3 [1.020 4] -))
|
|
|
|
|
|
(rev 3 4 (cut 3 [1.016 4] -))
|
|
|
|
|
|
::
|
|
|
|
|
|
:: ref-row: reference block row
|
|
|
|
|
|
=/ ref-row=@ud
|
|
|
|
|
|
?: &(=(0 itn) =(0 seg)) row
|
|
|
|
|
|
(mod c2 threads)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: ref-col: reference block column
|
|
|
|
|
|
=/ ref-col=@ud
|
|
|
|
|
|
=- (mod - columns)
|
|
|
|
|
|
%+ add
|
|
|
|
|
|
:: starting index
|
|
|
|
|
|
?: |(=(0 itn) =(3 seg)) 0
|
|
|
|
|
|
(mul +(seg) seg-length)
|
|
|
|
|
|
:: pseudorandom offset
|
|
|
|
|
|
=- %+ sub (dec -)
|
|
|
|
|
|
%^ rsh 0 32
|
|
|
|
|
|
%+ mul -
|
|
|
|
|
|
(rsh 0 32 (mul c1 c1))
|
|
|
|
|
|
:: reference area size
|
|
|
|
|
|
?: =(0 itn)
|
|
|
|
|
|
?: |(=(0 seg) =(row ref-row)) (dec col)
|
|
|
|
|
|
?: =(0 sin) (dec (mul seg seg-length))
|
|
|
|
|
|
(mul seg seg-length)
|
|
|
|
|
|
=+ sul=(sub columns seg-length)
|
|
|
|
|
|
?: =(ref-row row) (dec (add sul sin))
|
|
|
|
|
|
?: =(0 sin) (dec sul)
|
|
|
|
|
|
sul
|
|
|
|
|
|
::
|
|
|
|
|
|
:: compress the previous and reference block
|
|
|
|
|
|
:: to create the new block
|
|
|
|
|
|
::
|
|
|
|
|
|
=/ new=@
|
|
|
|
|
|
%+ compress
|
|
|
|
|
|
=- (snag - rob)
|
|
|
|
|
|
:: previous index, wrap-around
|
|
|
|
|
|
?: =(0 col) (dec columns)
|
|
|
|
|
|
(mod (dec col) columns)
|
|
|
|
|
|
:: get reference block
|
|
|
|
|
|
%+ snag ref-col
|
|
|
|
|
|
?: =(ref-row row) rob
|
|
|
|
|
|
(snag ref-row buffer)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: starting from v1.3, we xor the new block in,
|
|
|
|
|
|
:: rather than directly overwriting the old block
|
|
|
|
|
|
::
|
|
|
|
|
|
=? new &(!=(0 itn) =(0x13 version))
|
|
|
|
|
|
(mix new (snag col rob))
|
|
|
|
|
|
$(rob (put-word rob col new), sin +(sin))
|
|
|
|
|
|
::
|
|
|
|
|
|
:: compression function (g)
|
|
|
|
|
|
++ compress
|
|
|
|
|
|
:: x, y: assumed to be 1024 bytes
|
|
|
|
|
|
|= [x=@ y=@]
|
|
|
|
|
|
^- @
|
|
|
|
|
|
::
|
|
|
|
|
|
=+ r=(mix x y)
|
|
|
|
|
|
=| q=(list @)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: iterate over rows of r to get q
|
|
|
|
|
|
::
|
|
|
|
|
|
=+ i=0
|
|
|
|
|
|
|-
|
|
|
|
|
|
?: (lth i 8)
|
|
|
|
|
|
=; p=(list @)
|
|
|
|
|
|
$(q (weld q p), i +(i))
|
|
|
|
|
|
%- permute
|
|
|
|
|
|
=- (weld (reap (sub 8 (lent -)) 0) -)
|
|
|
|
|
|
%- flop
|
|
|
|
|
|
%+ rip 7
|
|
|
|
|
|
(cut 10 [(sub 7 i) 1] r)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: iterate over columns of q to get z
|
|
|
|
|
|
::
|
|
|
|
|
|
=/ z=(list @) (reap 64 0)
|
|
|
|
|
|
=. i 0
|
|
|
|
|
|
|-
|
|
|
|
|
|
::
|
|
|
|
|
|
:: when done, assemble z and xor it with r
|
|
|
|
|
|
::
|
|
|
|
|
|
?. (lth i 8)
|
|
|
|
|
|
(mix (rep 7 (flop z)) r)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: permute the column
|
|
|
|
|
|
::
|
|
|
|
|
|
=/ out=(list @)
|
|
|
|
|
|
%- permute
|
|
|
|
|
|
:~ (snag i q)
|
|
|
|
|
|
(snag (add i 8) q)
|
|
|
|
|
|
(snag (add i 16) q)
|
|
|
|
|
|
(snag (add i 24) q)
|
|
|
|
|
|
(snag (add i 32) q)
|
|
|
|
|
|
(snag (add i 40) q)
|
|
|
|
|
|
(snag (add i 48) q)
|
|
|
|
|
|
(snag (add i 56) q)
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: put the result into z per column
|
|
|
|
|
|
::
|
|
|
|
|
|
=+ j=0
|
|
|
|
|
|
|-
|
|
|
|
|
|
?: =(8 j) ^$(i +(i))
|
|
|
|
|
|
=- $(z -, j +(j))
|
|
|
|
|
|
=+ (add i (mul j 8))
|
|
|
|
|
|
%+ weld (scag - z)
|
|
|
|
|
|
[(snag j out) (slag +(-) z)]
|
|
|
|
|
|
::
|
|
|
|
|
|
:: permutation function (p)
|
|
|
|
|
|
++ permute
|
|
|
|
|
|
::NOTE this function really just takes and produces
|
|
|
|
|
|
:: 8 values, but taking and producing them as
|
|
|
|
|
|
:: lists helps clean up the code significantly.
|
|
|
|
|
|
|= s=(list @)
|
|
|
|
|
|
?> =(8 (lent s))
|
|
|
|
|
|
^- (list @)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: list inputs as 16 8-byte values
|
|
|
|
|
|
::
|
|
|
|
|
|
=/ v=(list @)
|
|
|
|
|
|
%- zing
|
|
|
|
|
|
^- (list (list @))
|
|
|
|
|
|
%+ turn s
|
|
|
|
|
|
|= a=@
|
|
|
|
|
|
:: rev for endianness
|
|
|
|
|
|
=+ (rip 6 (rev 3 16 a))
|
|
|
|
|
|
(weld - (reap (sub 2 (lent -)) 0))
|
|
|
|
|
|
::
|
|
|
|
|
|
:: do permutation rounds
|
|
|
|
|
|
::
|
|
|
|
|
|
=. v (do-round v 0 4 8 12)
|
|
|
|
|
|
=. v (do-round v 1 5 9 13)
|
|
|
|
|
|
=. v (do-round v 2 6 10 14)
|
|
|
|
|
|
=. v (do-round v 3 7 11 15)
|
|
|
|
|
|
=. v (do-round v 0 5 10 15)
|
|
|
|
|
|
=. v (do-round v 1 6 11 12)
|
|
|
|
|
|
=. v (do-round v 2 7 8 13)
|
|
|
|
|
|
=. v (do-round v 3 4 9 14)
|
|
|
|
|
|
:: rev for endianness
|
|
|
|
|
|
=. v (turn v (cury (cury rev 3) 8))
|
|
|
|
|
|
::
|
|
|
|
|
|
:: cat v back together into 8 16-byte values
|
|
|
|
|
|
::
|
|
|
|
|
|
%+ turn (gulf 0 7)
|
|
|
|
|
|
|= i=@
|
|
|
|
|
|
=+ (mul 2 i)
|
|
|
|
|
|
(cat 6 (snag +(-) v) (snag - v))
|
|
|
|
|
|
::
|
|
|
|
|
|
:: perform a round and produce updated value list
|
|
|
|
|
|
++ do-round
|
|
|
|
|
|
|= [v=(list @) na=@ nb=@ nc=@ nd=@]
|
|
|
|
|
|
^+ v
|
|
|
|
|
|
=> |%
|
|
|
|
|
|
++ get-word
|
|
|
|
|
|
|= i=@ud
|
|
|
|
|
|
(snag i v)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ put-word
|
|
|
|
|
|
|= [i=@ud d=@]
|
|
|
|
|
|
^+ v
|
|
|
|
|
|
%+ weld (scag i v)
|
|
|
|
|
|
[d (slag +(i) v)]
|
|
|
|
|
|
--
|
|
|
|
|
|
=- =. v (put-word na a)
|
|
|
|
|
|
=. v (put-word nb b)
|
|
|
|
|
|
=. v (put-word nc c)
|
|
|
|
|
|
(put-word nd d)
|
|
|
|
|
|
%- round
|
|
|
|
|
|
:* (get-word na)
|
|
|
|
|
|
(get-word nb)
|
|
|
|
|
|
(get-word nc)
|
|
|
|
|
|
(get-word nd)
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: perform a round (bg) and produce updated values
|
|
|
|
|
|
++ round
|
|
|
|
|
|
|= [a=@ b=@ c=@ d=@]
|
|
|
|
|
|
^- [a=@ b=@ c=@ d=@]
|
|
|
|
|
|
:: operate on 64 bit words
|
|
|
|
|
|
=+ fed=~(. fe 6)
|
|
|
|
|
|
=* sum sum:fed
|
|
|
|
|
|
=* ror ror:fed
|
|
|
|
|
|
=+ end=(cury (cury end 5) 1)
|
|
|
|
|
|
=. a :(sum a b :(mul 2 (end a) (end b)))
|
|
|
|
|
|
=. d (ror 0 32 (mix d a))
|
|
|
|
|
|
=. c :(sum c d :(mul 2 (end c) (end d)))
|
|
|
|
|
|
=. b (ror 0 24 (mix b c))
|
|
|
|
|
|
=. a :(sum a b :(mul 2 (end a) (end b)))
|
|
|
|
|
|
=. d (ror 0 16 (mix d a))
|
|
|
|
|
|
=. c :(sum c d :(mul 2 (end c) (end d)))
|
|
|
|
|
|
=. b (ror 0 63 (mix b c))
|
|
|
|
|
|
[a b c d]
|
|
|
|
|
|
::
|
|
|
|
|
|
:: argon2 wrapper around blake2b (h')
|
|
|
|
|
|
++ hash
|
|
|
|
|
|
=, blake
|
|
|
|
|
|
|= [byts out=@ud]
|
|
|
|
|
|
^- @
|
|
|
|
|
|
::
|
|
|
|
|
|
:: msg: input with byte-length prepended
|
|
|
|
|
|
=+ msg=(prep-num [wid dat] out)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: if requested size is low enough, hash directly
|
|
|
|
|
|
::
|
|
|
|
|
|
?: (lte out 64)
|
|
|
|
|
|
(blake2b msg 0^0 out)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: build up the result by hashing and re-hashing
|
|
|
|
|
|
:: the input message, adding the first 32 bytes
|
|
|
|
|
|
:: of the hash to the result, until we have the
|
|
|
|
|
|
:: desired output size.
|
|
|
|
|
|
::
|
|
|
|
|
|
=+ tmp=(blake2b msg 0^0 64)
|
|
|
|
|
|
=+ res=(rsh 3 32 tmp)
|
|
|
|
|
|
=. out (sub out 32)
|
|
|
|
|
|
|-
|
|
|
|
|
|
?: (gth out 64)
|
|
|
|
|
|
=. tmp (blake2b 64^tmp 0^0 64)
|
|
|
|
|
|
=. res (add (lsh 3 32 res) (rsh 3 32 tmp))
|
|
|
|
|
|
$(out (sub out 32))
|
|
|
|
|
|
%+ add (lsh 3 out res)
|
|
|
|
|
|
(blake2b 64^tmp 0^0 out)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: utilities
|
|
|
|
|
|
::
|
|
|
|
|
|
++ type-to-num
|
|
|
|
|
|
|= t=argon-type
|
|
|
|
|
|
?- t
|
|
|
|
|
|
%d 0
|
|
|
|
|
|
%i 1
|
|
|
|
|
|
%id 2
|
|
|
|
|
|
%u 10
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
++ app-num
|
|
|
|
|
|
|= [byts num=@ud]
|
|
|
|
|
|
^- byts
|
|
|
|
|
|
:- (add wid 4)
|
|
|
|
|
|
%+ can 3
|
|
|
|
|
|
~[4^(rev 3 4 num) wid^dat]
|
|
|
|
|
|
::
|
|
|
|
|
|
++ prep-num
|
|
|
|
|
|
|= [byts num=@ud]
|
|
|
|
|
|
^- byts
|
|
|
|
|
|
:- (add wid 4)
|
|
|
|
|
|
%+ can 3
|
|
|
|
|
|
~[wid^dat 4^(rev 3 4 num)]
|
|
|
|
|
|
::
|
|
|
|
|
|
++ prep-wid
|
|
|
|
|
|
|= a=byts
|
|
|
|
|
|
(prep-num a wid.a)
|
|
|
|
|
|
--
|
2018-07-20 01:20:19 +03:00
|
|
|
|
::
|
|
|
|
|
|
++ ripemd
|
|
|
|
|
|
~% %ripemd ..is ~
|
|
|
|
|
|
|%
|
|
|
|
|
|
++ ripemd-160
|
|
|
|
|
|
~/ %ripemd160
|
|
|
|
|
|
|= byts
|
|
|
|
|
|
^- @
|
2018-08-10 18:56:32 +03:00
|
|
|
|
:: we operate on bits rather than bytes
|
|
|
|
|
|
=. wid (mul wid 8)
|
2018-07-20 01:20:19 +03:00
|
|
|
|
:: add padding
|
|
|
|
|
|
=+ (md5-pad wid dat)
|
|
|
|
|
|
:: endianness
|
|
|
|
|
|
=. dat
|
|
|
|
|
|
%+ rep 5
|
|
|
|
|
|
%+ turn (rip 5 dat)
|
|
|
|
|
|
|=(a=@ (rev 3 4 a))
|
|
|
|
|
|
=* x dat
|
|
|
|
|
|
=+ blocks=(div wid 512)
|
|
|
|
|
|
=+ fev=~(. fe 5)
|
|
|
|
|
|
:: initial register values
|
|
|
|
|
|
=+ h0=0x6745.2301
|
|
|
|
|
|
=+ h1=0xefcd.ab89
|
|
|
|
|
|
=+ h2=0x98ba.dcfe
|
|
|
|
|
|
=+ h3=0x1032.5476
|
|
|
|
|
|
=+ h4=0xc3d2.e1f0
|
|
|
|
|
|
:: i: current block
|
|
|
|
|
|
=+ [i=0 j=0]
|
|
|
|
|
|
=+ *[a=@ b=@ c=@ d=@ e=@] :: a..e
|
|
|
|
|
|
=+ *[aa=@ bb=@ cc=@ dd=@ ee=@] :: a'..e'
|
|
|
|
|
|
|^
|
|
|
|
|
|
?: =(i blocks)
|
|
|
|
|
|
%+ rep 5
|
|
|
|
|
|
%+ turn `(list @)`~[h4 h3 h2 h1 h0]
|
|
|
|
|
|
:: endianness
|
|
|
|
|
|
|=(h=@ (rev 3 4 h))
|
|
|
|
|
|
=: a h0 aa h0
|
|
|
|
|
|
b h1 bb h1
|
|
|
|
|
|
c h2 cc h2
|
|
|
|
|
|
d h3 dd h3
|
|
|
|
|
|
e h4 ee h4
|
|
|
|
|
|
==
|
|
|
|
|
|
:: j: current word
|
|
|
|
|
|
=+ j=0
|
|
|
|
|
|
|-
|
|
|
|
|
|
?: =(j 80)
|
|
|
|
|
|
%= ^$
|
|
|
|
|
|
i +(i)
|
|
|
|
|
|
h1 :(sum:fev h2 d ee)
|
|
|
|
|
|
h2 :(sum:fev h3 e aa)
|
|
|
|
|
|
h3 :(sum:fev h4 a bb)
|
|
|
|
|
|
h4 :(sum:fev h0 b cc)
|
|
|
|
|
|
h0 :(sum:fev h1 c dd)
|
|
|
|
|
|
==
|
|
|
|
|
|
%= $
|
|
|
|
|
|
j +(j)
|
|
|
|
|
|
::
|
|
|
|
|
|
a e
|
|
|
|
|
|
b (fn j a b c d e (get (r j)) (k j) (s j))
|
|
|
|
|
|
c b
|
|
|
|
|
|
d (rol 10 c)
|
|
|
|
|
|
e d
|
|
|
|
|
|
::
|
|
|
|
|
|
aa ee
|
|
|
|
|
|
bb (fn (sub 79 j) aa bb cc dd ee (get (rr j)) (kk j) (ss j))
|
|
|
|
|
|
cc bb
|
|
|
|
|
|
dd (rol 10 cc)
|
|
|
|
|
|
ee dd
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
++ get :: word from x in block i
|
|
|
|
|
|
|= j=@ud
|
|
|
|
|
|
=+ (add (mul i 16) +(j))
|
|
|
|
|
|
(cut 5 [(sub (mul blocks 16) -) 1] x)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ fn
|
|
|
|
|
|
|= [j=@ud a=@ b=@ c=@ d=@ e=@ m=@ k=@ s=@]
|
|
|
|
|
|
=- (sum:fev (rol s :(sum:fev a m k -)) e)
|
|
|
|
|
|
=. j (div j 16)
|
|
|
|
|
|
?: =(0 j) (mix (mix b c) d)
|
|
|
|
|
|
?: =(1 j) (con (dis b c) (dis (not 0 32 b) d))
|
|
|
|
|
|
?: =(2 j) (mix (con b (not 0 32 c)) d)
|
|
|
|
|
|
?: =(3 j) (con (dis b d) (dis c (not 0 32 d)))
|
|
|
|
|
|
?: =(4 j) (mix b (con c (not 0 32 d)))
|
|
|
|
|
|
!!
|
|
|
|
|
|
::
|
|
|
|
|
|
++ rol (cury rol:fev 0)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ k
|
|
|
|
|
|
|= j=@ud
|
|
|
|
|
|
=. j (div j 16)
|
|
|
|
|
|
?: =(0 j) 0x0
|
|
|
|
|
|
?: =(1 j) 0x5a82.7999
|
|
|
|
|
|
?: =(2 j) 0x6ed9.eba1
|
|
|
|
|
|
?: =(3 j) 0x8f1b.bcdc
|
|
|
|
|
|
?: =(4 j) 0xa953.fd4e
|
|
|
|
|
|
!!
|
|
|
|
|
|
::
|
|
|
|
|
|
++ kk :: k'
|
|
|
|
|
|
|= j=@ud
|
|
|
|
|
|
=. j (div j 16)
|
|
|
|
|
|
?: =(0 j) 0x50a2.8be6
|
|
|
|
|
|
?: =(1 j) 0x5c4d.d124
|
|
|
|
|
|
?: =(2 j) 0x6d70.3ef3
|
|
|
|
|
|
?: =(3 j) 0x7a6d.76e9
|
|
|
|
|
|
?: =(4 j) 0x0
|
|
|
|
|
|
!!
|
|
|
|
|
|
::
|
|
|
|
|
|
++ r
|
|
|
|
|
|
|= j=@ud
|
|
|
|
|
|
%+ snag j
|
|
|
|
|
|
^- (list @)
|
|
|
|
|
|
:~ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
|
|
|
|
|
7 4 13 1 10 6 15 3 12 0 9 5 2 14 11 8
|
|
|
|
|
|
3 10 14 4 9 15 8 1 2 7 0 6 13 11 5 12
|
|
|
|
|
|
1 9 11 10 0 8 12 4 13 3 7 15 14 5 6 2
|
|
|
|
|
|
4 0 5 9 7 12 2 10 14 1 3 8 11 6 15 13
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
++ rr :: r'
|
|
|
|
|
|
|= j=@ud
|
|
|
|
|
|
%+ snag j
|
|
|
|
|
|
^- (list @)
|
|
|
|
|
|
:~ 5 14 7 0 9 2 11 4 13 6 15 8 1 10 3 12
|
|
|
|
|
|
6 11 3 7 0 13 5 10 14 15 8 12 4 9 1 2
|
|
|
|
|
|
15 5 1 3 7 14 6 9 11 8 12 2 10 0 4 13
|
|
|
|
|
|
8 6 4 1 3 11 15 0 5 12 2 13 9 7 10 14
|
|
|
|
|
|
12 15 10 4 1 5 8 7 6 2 13 14 0 3 9 11
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
++ s
|
|
|
|
|
|
|= j=@ud
|
|
|
|
|
|
%+ snag j
|
|
|
|
|
|
^- (list @)
|
|
|
|
|
|
:~ 11 14 15 12 5 8 7 9 11 13 14 15 6 7 9 8
|
|
|
|
|
|
7 6 8 13 11 9 7 15 7 12 15 9 11 7 13 12
|
|
|
|
|
|
11 13 6 7 14 9 13 15 14 8 13 6 5 12 7 5
|
|
|
|
|
|
11 12 14 15 14 15 9 8 9 14 5 6 8 6 5 12
|
|
|
|
|
|
9 15 5 11 6 8 13 12 5 12 13 14 11 8 5 6
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
++ ss :: s'
|
|
|
|
|
|
|= j=@ud
|
|
|
|
|
|
%+ snag j
|
|
|
|
|
|
^- (list @)
|
|
|
|
|
|
:~ 8 9 9 11 13 15 15 5 7 7 8 11 14 14 12 6
|
|
|
|
|
|
9 13 15 7 12 8 9 11 7 7 12 7 6 15 13 11
|
|
|
|
|
|
9 7 15 11 8 6 6 14 12 13 5 14 13 13 7 5
|
|
|
|
|
|
15 5 8 11 14 14 6 14 6 9 12 9 12 5 15 8
|
|
|
|
|
|
8 5 12 9 12 5 14 6 8 13 6 5 15 13 11 11
|
|
|
|
|
|
==
|
|
|
|
|
|
--
|
|
|
|
|
|
::
|
|
|
|
|
|
++ md5-pad
|
|
|
|
|
|
|= byts
|
|
|
|
|
|
^- byts
|
|
|
|
|
|
=+ (sub 511 (mod (add wid 64) 512))
|
|
|
|
|
|
:- :(add 64 +(-) wid)
|
|
|
|
|
|
%+ can 0
|
|
|
|
|
|
~[64^(rev 3 8 wid) +(-)^(lsh 0 - 1) wid^dat]
|
|
|
|
|
|
--
|
2018-10-24 23:42:35 +03:00
|
|
|
|
::
|
|
|
|
|
|
++ pbkdf
|
|
|
|
|
|
=> |%
|
|
|
|
|
|
++ meet |=([p=@ s=@ c=@ d=@] [[(met 3 p) p] [(met 3 s) s] c d])
|
|
|
|
|
|
++ flip |= [p=byts s=byts c=@ d=@]
|
|
|
|
|
|
[wid.p^(rev 3 p) wid.s^(rev 3 s) c d]
|
|
|
|
|
|
--
|
|
|
|
|
|
|%
|
|
|
|
|
|
::
|
|
|
|
|
|
:: use with @
|
|
|
|
|
|
::
|
|
|
|
|
|
++ hmac-sha1 (cork meet hmac-sha1l)
|
|
|
|
|
|
++ hmac-sha256 (cork meet hmac-sha256l)
|
|
|
|
|
|
++ hmac-sha512 (cork meet hmac-sha512l)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: use with @t
|
|
|
|
|
|
::
|
|
|
|
|
|
++ hmac-sha1t (cork meet hmac-sha1d)
|
|
|
|
|
|
++ hmac-sha256t (cork meet hmac-sha256d)
|
|
|
|
|
|
++ hmac-sha512t (cork meet hmac-sha512d)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: use with byts
|
|
|
|
|
|
::
|
|
|
|
|
|
++ hmac-sha1l (cork flip hmac-sha1d)
|
|
|
|
|
|
++ hmac-sha256l (cork flip hmac-sha256d)
|
|
|
|
|
|
++ hmac-sha512l (cork flip hmac-sha512d)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: main logic
|
|
|
|
|
|
::
|
|
|
|
|
|
++ hmac-sha1d (cury pbkdf hmac-sha1l:hmac 20)
|
|
|
|
|
|
++ hmac-sha256d (cury pbkdf hmac-sha256l:hmac 32)
|
|
|
|
|
|
++ hmac-sha512d (cury pbkdf hmac-sha512l:hmac 64)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ pbkdf
|
|
|
|
|
|
::TODO jet me! ++hmac:hmac is an example
|
|
|
|
|
|
|* [[prf=$-([byts byts] @) out=@u] p=byts s=byts c=@ d=@]
|
|
|
|
|
|
=> .(dat.p (end 3 p), dat.s (end 3 s))
|
|
|
|
|
|
::
|
|
|
|
|
|
:: max key length 1GB
|
|
|
|
|
|
:: max iterations 2^28
|
|
|
|
|
|
::
|
|
|
|
|
|
~| [%invalid-pbkdf-params c d]
|
|
|
|
|
|
?> ?& (lte d (bex 30))
|
|
|
|
|
|
(lte c (bex 28))
|
|
|
|
|
|
!=(c 0)
|
|
|
|
|
|
==
|
|
|
|
|
|
=/ l
|
|
|
|
|
|
?~ (mod d out)
|
|
|
|
|
|
(div d out)
|
|
|
|
|
|
+((div d out))
|
|
|
|
|
|
=+ r=(sub d (mul out (dec l)))
|
|
|
|
|
|
=+ [t=0 j=1 k=1]
|
|
|
|
|
|
=. t
|
|
|
|
|
|
|- ^- @
|
|
|
|
|
|
?: (gth j l) t
|
|
|
|
|
|
=/ u
|
|
|
|
|
|
%+ add dat.s
|
|
|
|
|
|
%^ lsh 3 wid.s
|
|
|
|
|
|
%+ rep 3
|
|
|
|
|
|
(flop (rpp:scr 3 4 j))
|
|
|
|
|
|
=+ f=0
|
|
|
|
|
|
=. f
|
|
|
|
|
|
|- ^- @
|
|
|
|
|
|
?: (gth k c) f
|
|
|
|
|
|
=/ q
|
|
|
|
|
|
%^ rev 3 out
|
|
|
|
|
|
=+ ?:(=(k 1) (add wid.s 4) out)
|
|
|
|
|
|
(prf [wid.p (rev 3 p)] [- (rev 3 - u)])
|
|
|
|
|
|
$(u q, f (mix f q), k +(k))
|
|
|
|
|
|
$(t (add t (lsh 3 (mul (dec j) out) f)), j +(j))
|
|
|
|
|
|
(rev 3 d (end 3 d t))
|
|
|
|
|
|
--
|
2016-12-02 04:17:02 +03:00
|
|
|
|
-- ::crypto
|
2016-12-08 05:12:37 +03:00
|
|
|
|
:: ::::
|
|
|
|
|
|
:::: ++unity :: (2c) unit promotion
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: ::::
|
|
|
|
|
|
++ unity ^?
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++drop-list:unity
|
|
|
|
|
|
++ drop-list :: collapse unit list
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* lut/(list (unit))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?. |- ^- ?
|
|
|
|
|
|
?~(lut & ?~(i.lut | $(lut t.lut)))
|
|
|
|
|
|
~
|
|
|
|
|
|
%- some
|
|
|
|
|
|
|-
|
|
|
|
|
|
?~ lut ~
|
|
|
|
|
|
[i=u:+.i.lut t=$(lut t.lut)]
|
|
|
|
|
|
:: :: ++drop-map:unity
|
|
|
|
|
|
++ drop-map :: collapse unit map
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* lum/(map term (unit))
|
2018-08-16 04:05:30 +03:00
|
|
|
|
?: (~(rep by lum) |=({{@ a/(unit)} b/_|} |(b ?=(~ a))))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
~
|
|
|
|
|
|
(some (~(run by lum) need))
|
2016-12-08 22:54:50 +03:00
|
|
|
|
:: :: ++drop-pole:unity
|
|
|
|
|
|
++ drop-pole :: unit tuple
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* but/(pole (unit))
|
2017-09-07 01:17:37 +03:00
|
|
|
|
?~ but !!
|
2019-01-18 08:37:34 +03:00
|
|
|
|
?~ +.but
|
2017-09-07 01:17:37 +03:00
|
|
|
|
u:->.but
|
|
|
|
|
|
[u:->.but (drop-pole +.but)]
|
2016-12-02 04:17:02 +03:00
|
|
|
|
--
|
2016-12-08 05:12:37 +03:00
|
|
|
|
:: ::::
|
|
|
|
|
|
:::: ++format :: (2d) common formats
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: ::::
|
|
|
|
|
|
++ format ^?
|
2019-01-18 08:37:34 +03:00
|
|
|
|
|%
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++to-wain:format
|
2016-12-02 22:34:07 +03:00
|
|
|
|
++ to-wain :: atom to line list
|
2016-12-02 04:17:02 +03:00
|
|
|
|
~% %lore ..is ~
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= lub/@
|
|
|
|
|
|
=| tez/(list @t)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|- ^+ tez
|
|
|
|
|
|
=+ ^= wor
|
|
|
|
|
|
=+ [meg=0 i=0]
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|- ^- {meg/@ i/@ end/@f}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ gam=(cut 3 [i 1] lub)
|
|
|
|
|
|
?: =(0 gam)
|
|
|
|
|
|
[meg i %.y]
|
|
|
|
|
|
?: =(10 gam)
|
|
|
|
|
|
[meg i %.n]
|
|
|
|
|
|
$(meg (cat 3 meg gam), i +(i))
|
|
|
|
|
|
?: end.wor
|
|
|
|
|
|
(flop ^+(tez [meg.wor tez]))
|
|
|
|
|
|
?: =(0 lub) (flop tez)
|
|
|
|
|
|
$(lub (rsh 3 +(i.wor) lub), tez [meg.wor tez])
|
|
|
|
|
|
:: :: ++of-wain:format
|
2016-12-02 22:34:07 +03:00
|
|
|
|
++ of-wain :: line list to atom
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= tez/(list @t)
|
|
|
|
|
|
=| {our/@ i/@ud}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|- ^- @
|
|
|
|
|
|
?~ tez
|
|
|
|
|
|
our
|
|
|
|
|
|
?: =(%$ i.tez)
|
|
|
|
|
|
$(i +(i), tez t.tez, our (cat 3 our 10))
|
|
|
|
|
|
?: =(0 i)
|
|
|
|
|
|
$(i +(i), tez t.tez, our i.tez)
|
|
|
|
|
|
$(i +(i), tez t.tez, our (cat 3 (cat 3 our 10) i.tez))
|
2016-12-02 22:34:07 +03:00
|
|
|
|
:: :: ++of-wall:format
|
|
|
|
|
|
++ of-wall :: line list to tape
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/wall ^- tape
|
|
|
|
|
|
?~(a ~ "{i.a}\0a{$(a t.a)}")
|
2016-12-02 22:34:07 +03:00
|
|
|
|
:: :: ++en-beam:format
|
|
|
|
|
|
++ en-beam :: beam to path
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= bem/beam
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- path
|
|
|
|
|
|
[(scot %p p.bem) q.bem (scot r.bem) (flop s.bem)]
|
2016-12-02 22:34:07 +03:00
|
|
|
|
:: :: ++de-beam:format
|
|
|
|
|
|
++ de-beam :: parse path to beam
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= pax/path
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- (unit beam)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
?. ?=({* * * *} pax) ~
|
2016-12-02 04:17:02 +03:00
|
|
|
|
%+ biff (slaw %p i.pax)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= who/ship
|
2016-12-02 04:17:02 +03:00
|
|
|
|
%+ biff (slaw %tas i.t.pax)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= dex/desk
|
2016-12-02 04:17:02 +03:00
|
|
|
|
%+ biff (slay i.t.t.pax)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= cis/coin
|
|
|
|
|
|
?. ?=({$$ case} cis) ~
|
2016-12-02 04:17:02 +03:00
|
|
|
|
`(unit beam)`[~ [who dex `case`p.cis] (flop t.t.t.pax)]
|
|
|
|
|
|
:: :: ++enjs:format
|
|
|
|
|
|
++ enjs ^? :: json encoders
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++frond:enjs:format
|
|
|
|
|
|
++ frond :: object from k-v pair
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {p/@t q/json}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- json
|
|
|
|
|
|
[%o [[p q] ~ ~]]
|
|
|
|
|
|
:: :: ++pairs:enjs:format
|
|
|
|
|
|
++ pairs :: object from k-v list
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/(list {p/@t q/json})
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- json
|
|
|
|
|
|
[%o (~(gas by *(map @t json)) a)]
|
|
|
|
|
|
:: :: ++tape:enjs:format
|
|
|
|
|
|
++ tape :: string from tape
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/^tape
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- json
|
|
|
|
|
|
[%s (crip a)]
|
2016-12-03 02:47:16 +03:00
|
|
|
|
:: :: ++wall:enjs:format
|
|
|
|
|
|
++ wall :: string from wall
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/^wall
|
2016-12-03 02:47:16 +03:00
|
|
|
|
^- json
|
|
|
|
|
|
(tape (of-wall a))
|
|
|
|
|
|
:: :: ++ship:enjs:format
|
|
|
|
|
|
++ ship :: string from ship
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/^ship
|
2016-12-03 02:47:16 +03:00
|
|
|
|
^- json
|
2019-01-18 08:37:34 +03:00
|
|
|
|
(tape (slag 1 (scow %p a)))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++numb:enjs:format
|
|
|
|
|
|
++ numb :: number from unsigned
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/@u
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- json
|
|
|
|
|
|
:- %n
|
|
|
|
|
|
?: =(0 a) '0'
|
|
|
|
|
|
%- crip
|
|
|
|
|
|
%- flop
|
|
|
|
|
|
|- ^- ^tape
|
|
|
|
|
|
?:(=(0 a) ~ [(add '0' (mod a 10)) $(a (div a 10))])
|
|
|
|
|
|
:: :: ++time:enjs:format
|
|
|
|
|
|
++ time :: ms timestamp
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/^time
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=- (numb (div (mul - 1.000) ~s1))
|
|
|
|
|
|
(add (div ~s1 2.000) (sub a ~1970.1.1))
|
|
|
|
|
|
-- ::enjs
|
|
|
|
|
|
:: :: ++dejs:format
|
|
|
|
|
|
++ dejs :: json reparser
|
2016-12-02 22:34:07 +03:00
|
|
|
|
=> |% ++ grub * :: result
|
|
|
|
|
|
++ fist $-(json grub) :: reparser instance
|
|
|
|
|
|
-- ::
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++ar:dejs:format
|
|
|
|
|
|
++ ar :: array as list
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* wit/fist
|
|
|
|
|
|
|= jon/json ^- (list _(wit *json))
|
|
|
|
|
|
?> ?=({$a *} jon)
|
2016-12-02 22:34:07 +03:00
|
|
|
|
(turn p.jon wit)
|
|
|
|
|
|
:: :: ++at:dejs:format
|
|
|
|
|
|
++ at :: array as tuple
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* wil/(pole fist)
|
|
|
|
|
|
|= jon/json
|
|
|
|
|
|
?> ?=({$a *} jon)
|
2016-12-02 22:34:07 +03:00
|
|
|
|
((at-raw wil) p.jon)
|
|
|
|
|
|
:: :: ++at-raw:dejs:format
|
|
|
|
|
|
++ at-raw :: array as tuple
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* wil/(pole fist)
|
|
|
|
|
|
|= jol/(list json)
|
2016-12-02 22:34:07 +03:00
|
|
|
|
?~ jol !!
|
|
|
|
|
|
?- wil :: mint-vain on empty
|
2017-10-25 05:04:45 +03:00
|
|
|
|
:: {wit/* t/*}
|
|
|
|
|
|
{* t/*}
|
2018-08-16 04:37:13 +03:00
|
|
|
|
=> .(wil [wit *]=wil)
|
2016-12-02 22:34:07 +03:00
|
|
|
|
?~ t.wil ?^(t.jol !! (wit.wil i.jol))
|
|
|
|
|
|
[(wit.wil i.jol) ((at-raw t.wil) t.jol)]
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++bo:dejs:format
|
|
|
|
|
|
++ bo :: boolean
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|=(jon/json ?>(?=({$b *} jon) p.jon))
|
2016-12-02 22:34:07 +03:00
|
|
|
|
:: :: ++bu:dejs:format
|
|
|
|
|
|
++ bu :: boolean not
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|=(jon/json ?>(?=({$b *} jon) !p.jon))
|
2016-12-02 22:34:07 +03:00
|
|
|
|
:: :: ++ci:dejs:format
|
|
|
|
|
|
++ ci :: maybe transform
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* {poq/gate wit/fist}
|
|
|
|
|
|
|= jon/json
|
2016-12-02 22:34:07 +03:00
|
|
|
|
(need (poq (wit jon)))
|
|
|
|
|
|
:: :: ++cu:dejs:format
|
|
|
|
|
|
++ cu :: transform
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* {poq/gate wit/fist}
|
|
|
|
|
|
|= jon/json
|
2016-12-02 22:34:07 +03:00
|
|
|
|
(poq (wit jon))
|
|
|
|
|
|
:: :: ++di:dejs:format
|
|
|
|
|
|
++ di :: millisecond date
|
|
|
|
|
|
%+ cu
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/@u ^- @da
|
2016-12-02 22:34:07 +03:00
|
|
|
|
(add ~1970.1.1 (div (mul ~s1 a) 1.000))
|
|
|
|
|
|
ni
|
|
|
|
|
|
:: :: ++mu:dejs:format
|
|
|
|
|
|
++ mu :: true unit
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* wit/fist
|
|
|
|
|
|
|= jon/json
|
2016-12-02 22:34:07 +03:00
|
|
|
|
?~(jon ~ (some (wit jon)))
|
|
|
|
|
|
:: :: ++ne:dejs:format
|
|
|
|
|
|
++ ne :: number as real
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= jon/json
|
2016-12-02 22:34:07 +03:00
|
|
|
|
^- (unit @rd)
|
|
|
|
|
|
:: please implement me, it's not that hard!
|
|
|
|
|
|
!!
|
|
|
|
|
|
:: :: ++ni:dejs:format
|
|
|
|
|
|
++ ni :: number as integer
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= jon/json
|
|
|
|
|
|
?> ?=({$n *} jon)
|
2016-12-02 22:34:07 +03:00
|
|
|
|
(rash p.jon dem)
|
|
|
|
|
|
:: :: ++no:dejs:format
|
|
|
|
|
|
++ no :: number as cord
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|=(jon/json ?>(?=({$n *} jon) p.jon))
|
2016-12-02 22:34:07 +03:00
|
|
|
|
:: :: ++of:dejs:format
|
|
|
|
|
|
++ of :: object as frond
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* wer/(pole {cord fist})
|
|
|
|
|
|
|= jon/json
|
|
|
|
|
|
?> ?=({$o {@ *} $~ $~} jon)
|
2016-12-02 22:34:07 +03:00
|
|
|
|
|-
|
|
|
|
|
|
?- wer :: mint-vain on empty
|
2017-10-25 05:04:45 +03:00
|
|
|
|
:: {{key/@t wit/*} t/*}
|
|
|
|
|
|
{{key/@t *} t/*}
|
2018-08-16 04:37:13 +03:00
|
|
|
|
=> .(wer [[* wit] *]=wer)
|
2016-12-02 22:34:07 +03:00
|
|
|
|
?: =(key.wer p.n.p.jon)
|
|
|
|
|
|
[key.wer ~|(key+key.wer (wit.wer q.n.p.jon))]
|
|
|
|
|
|
?~ t.wer ~|(bad-key+p.n.p.jon !!)
|
|
|
|
|
|
((of t.wer) jon)
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++ot:dejs:format
|
|
|
|
|
|
++ ot :: object as tuple
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* wer/(pole {cord fist})
|
|
|
|
|
|
|= jon/json
|
|
|
|
|
|
?> ?=({$o *} jon)
|
2016-12-02 22:34:07 +03:00
|
|
|
|
((ot-raw wer) p.jon)
|
|
|
|
|
|
:: :: ++ot-raw:dejs:format
|
|
|
|
|
|
++ ot-raw :: object as tuple
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* wer/(pole {cord fist})
|
|
|
|
|
|
|= jom/(map @t json)
|
2016-12-02 22:34:07 +03:00
|
|
|
|
?- wer :: mint-vain on empty
|
2017-10-25 05:04:45 +03:00
|
|
|
|
:: {{key/@t wit/*} t/*}
|
|
|
|
|
|
{{key/@t *} t/*}
|
2018-08-16 04:37:13 +03:00
|
|
|
|
=> .(wer [[* wit] *]=wer)
|
2016-12-02 22:34:07 +03:00
|
|
|
|
=/ ten ~|(key+key.wer (wit.wer (~(got by jom) key.wer)))
|
|
|
|
|
|
?~(t.wer ten [ten ((ot-raw t.wer) jom)])
|
|
|
|
|
|
==
|
2018-10-25 01:08:15 +03:00
|
|
|
|
::
|
|
|
|
|
|
++ ou :: object of units
|
|
|
|
|
|
|* wer/(pole {cord fist})
|
|
|
|
|
|
|= jon/json
|
|
|
|
|
|
?> ?=({$o *} jon)
|
|
|
|
|
|
((ou-raw wer) p.jon)
|
|
|
|
|
|
:: :: ++ou-raw:dejs:format
|
|
|
|
|
|
++ ou-raw :: object of units
|
|
|
|
|
|
|* wer/(pole {cord fist})
|
|
|
|
|
|
|= jom/(map @t json)
|
|
|
|
|
|
?- wer :: mint-vain on empty
|
|
|
|
|
|
:: {{key/@t wit/*} t/*}
|
|
|
|
|
|
{{key/@t *} t/*}
|
|
|
|
|
|
=> .(wer [[* wit] *]=wer)
|
|
|
|
|
|
=/ ten ~|(key+key.wer (wit.wer (~(get by jom) key.wer)))
|
|
|
|
|
|
?~(t.wer ten [ten ((ou-raw t.wer) jom)])
|
|
|
|
|
|
==
|
2016-12-02 22:34:07 +03:00
|
|
|
|
:: :: ++om:dejs:format
|
|
|
|
|
|
++ om :: object as map
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* wit/fist
|
|
|
|
|
|
|= jon/json
|
|
|
|
|
|
?> ?=({$o *} jon)
|
2016-12-02 22:34:07 +03:00
|
|
|
|
(~(run by p.jon) wit)
|
|
|
|
|
|
:: :: ++op:dejs:format
|
|
|
|
|
|
++ op :: parse keys of map
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* {fel/rule wit/fist}
|
|
|
|
|
|
|= jon/json ^- (map _(wonk *fel) _*wit)
|
2016-12-02 22:34:07 +03:00
|
|
|
|
=/ jom ((om wit) jon)
|
|
|
|
|
|
%- malt
|
2017-02-13 23:43:18 +03:00
|
|
|
|
%+ turn ~(tap by jom)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* {a/cord b/*}
|
2016-12-02 22:34:07 +03:00
|
|
|
|
=> .(+< [a b]=+<)
|
|
|
|
|
|
[(rash a fel) b]
|
|
|
|
|
|
:: :: ++pe:dejs:format
|
|
|
|
|
|
++ pe :: prefix
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* {pre/* wit/fist}
|
2016-12-02 22:34:07 +03:00
|
|
|
|
(cu |*(* [pre +<]) wit)
|
|
|
|
|
|
:: :: ++sa:dejs:format
|
|
|
|
|
|
++ sa :: string as tape
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|=(jon/json ?>(?=({$s *} jon) (trip p.jon)))
|
2016-12-02 22:34:07 +03:00
|
|
|
|
:: :: ++so:dejs:format
|
|
|
|
|
|
++ so :: string as cord
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|=(jon/json ?>(?=({$s *} jon) p.jon))
|
2016-12-02 22:34:07 +03:00
|
|
|
|
:: :: ++su:dejs:format
|
|
|
|
|
|
++ su :: parse string
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* sab/rule
|
|
|
|
|
|
|= jon/json ^+ (wonk *sab)
|
|
|
|
|
|
?> ?=({$s *} jon)
|
2016-12-02 22:34:07 +03:00
|
|
|
|
(rash p.jon sab)
|
2018-10-25 01:08:15 +03:00
|
|
|
|
:: :: ++uf:dejs:format
|
|
|
|
|
|
++ uf :: unit fall
|
|
|
|
|
|
|* [def/* wit/fist]
|
|
|
|
|
|
|= jon/(unit json)
|
|
|
|
|
|
?~(jon def (wit u.jon))
|
|
|
|
|
|
:: :: ++un:dejs:format
|
|
|
|
|
|
++ un :: unit need
|
|
|
|
|
|
|* wit/fist
|
|
|
|
|
|
|= jon/(unit json)
|
|
|
|
|
|
(wit (need jon))
|
2016-12-02 22:34:07 +03:00
|
|
|
|
:: :: ++ul:dejs:format
|
|
|
|
|
|
++ ul :: null
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|=(jon/json ?~(jon ~ !!))
|
2017-09-07 01:17:37 +03:00
|
|
|
|
::
|
|
|
|
|
|
++ za :: full unit pole
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* pod/(pole (unit))
|
2017-09-07 01:17:37 +03:00
|
|
|
|
?~ pod &
|
|
|
|
|
|
?~ -.pod |
|
|
|
|
|
|
(za +.pod)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ zl :: collapse unit list
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* lut/(list (unit))
|
2017-09-07 01:17:37 +03:00
|
|
|
|
?. |- ^- ?
|
|
|
|
|
|
?~(lut & ?~(i.lut | $(lut t.lut)))
|
|
|
|
|
|
~
|
|
|
|
|
|
%- some
|
|
|
|
|
|
|-
|
|
|
|
|
|
?~ lut ~
|
|
|
|
|
|
[i=u:+.i.lut t=$(lut t.lut)]
|
|
|
|
|
|
::
|
|
|
|
|
|
++ zp :: unit tuple
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* but/(pole (unit))
|
2017-09-07 01:17:37 +03:00
|
|
|
|
?~ but !!
|
2019-01-18 08:37:34 +03:00
|
|
|
|
?~ +.but
|
2017-09-07 01:17:37 +03:00
|
|
|
|
u:->.but
|
|
|
|
|
|
[u:->.but (zp +.but)]
|
|
|
|
|
|
::
|
|
|
|
|
|
++ zm :: collapse unit map
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* lum/(map term (unit))
|
2018-08-16 04:05:30 +03:00
|
|
|
|
?: (~(rep by lum) |=({{@ a/(unit)} b/_|} |(b ?=(~ a))))
|
2017-09-07 01:17:37 +03:00
|
|
|
|
~
|
|
|
|
|
|
(some (~(run by lum) need))
|
2016-12-02 22:34:07 +03:00
|
|
|
|
-- ::dejs
|
|
|
|
|
|
:: :: ++dejs-soft:format
|
|
|
|
|
|
++ dejs-soft :: json reparse to unit
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=, unity
|
|
|
|
|
|
=> |% ++ grub (unit *) :: result
|
|
|
|
|
|
++ fist $-(json grub) :: reparser instance
|
|
|
|
|
|
-- ::
|
2017-09-07 03:36:10 +03:00
|
|
|
|
::
|
|
|
|
|
|
:: XX: this is old code that replaced a rewritten dejs.
|
|
|
|
|
|
:: the rewritten dejs rest-looped with ++redo. the old
|
|
|
|
|
|
:: code is still in revision control -- revise and replace.
|
|
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|%
|
|
|
|
|
|
++ ar :: array as list
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* wit/fist
|
|
|
|
|
|
|= jon/json
|
|
|
|
|
|
?. ?=({$a *} jon) ~
|
2017-09-07 03:36:10 +03:00
|
|
|
|
%- zl
|
2019-01-18 08:37:34 +03:00
|
|
|
|
|-
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?~ p.jon ~
|
|
|
|
|
|
[i=(wit i.p.jon) t=$(p.jon t.p.jon)]
|
2017-09-07 03:36:10 +03:00
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ at :: array as tuple
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* wil/(pole fist)
|
|
|
|
|
|
|= jon/json
|
|
|
|
|
|
?. ?=({$a *} jon) ~
|
2017-09-07 03:36:10 +03:00
|
|
|
|
=+ raw=((at-raw wil) p.jon)
|
|
|
|
|
|
?.((za raw) ~ (some (zp raw)))
|
|
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ at-raw :: array as tuple
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* wil/(pole fist)
|
|
|
|
|
|
|= jol/(list json)
|
2017-09-07 03:36:10 +03:00
|
|
|
|
?~ wil ~
|
|
|
|
|
|
:- ?~(jol ~ (-.wil i.jol))
|
|
|
|
|
|
((at-raw +.wil) ?~(jol ~ t.jol))
|
|
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ bo :: boolean
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|=(jon/json ?.(?=({$b *} jon) ~ [~ u=p.jon]))
|
2017-09-07 03:36:10 +03:00
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ bu :: boolean not
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|=(jon/json ?.(?=({$b *} jon) ~ [~ u=!p.jon]))
|
2017-09-07 03:36:10 +03:00
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ ci :: maybe transform
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* {poq/gate wit/fist}
|
|
|
|
|
|
|= jon/json
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(biff (wit jon) poq)
|
2017-09-07 03:36:10 +03:00
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ cu :: transform
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* {poq/gate wit/fist}
|
|
|
|
|
|
|= jon/json
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(bind (wit jon) poq)
|
2017-09-07 03:36:10 +03:00
|
|
|
|
::
|
|
|
|
|
|
++ da :: UTC date
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= jon/json
|
|
|
|
|
|
?. ?=({$s *} jon) ~
|
|
|
|
|
|
(bind (stud:chrono:userlib p.jon) |=(a/date (year a)))
|
2017-09-07 03:36:10 +03:00
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ di :: millisecond date
|
|
|
|
|
|
%+ cu
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/@u ^- @da
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(add ~1970.1.1 (div (mul ~s1 a) 1.000))
|
|
|
|
|
|
ni
|
2017-09-07 03:36:10 +03:00
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ mu :: true unit
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* wit/fist
|
|
|
|
|
|
|= jon/json
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?~(jon (some ~) (bind (wit jon) some))
|
2017-09-07 03:36:10 +03:00
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ ne :: number as real
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= jon/json
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- (unit @rd)
|
|
|
|
|
|
!!
|
2017-09-07 03:36:10 +03:00
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ ni :: number as integer
|
2019-01-18 08:37:34 +03:00
|
|
|
|
|= jon/json
|
2017-10-25 05:04:45 +03:00
|
|
|
|
?. ?=({$n *} jon) ~
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(rush p.jon dem)
|
2017-09-07 03:36:10 +03:00
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ no :: number as cord
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= jon/json
|
|
|
|
|
|
?. ?=({$n *} jon) ~
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(some p.jon)
|
2017-09-07 03:36:10 +03:00
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ of :: object as frond
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* wer/(pole {cord fist})
|
|
|
|
|
|
|= jon/json
|
2018-08-16 04:05:30 +03:00
|
|
|
|
?. ?=({$o {@ *} ~ ~} jon) ~
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|-
|
2017-09-07 03:36:10 +03:00
|
|
|
|
?~ wer ~
|
2019-01-18 08:37:34 +03:00
|
|
|
|
?: =(-.-.wer p.n.p.jon)
|
2017-09-07 03:36:10 +03:00
|
|
|
|
((pe -.-.wer +.-.wer) q.n.p.jon)
|
|
|
|
|
|
((of +.wer) jon)
|
|
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ ot :: object as tuple
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* wer/(pole {cord fist})
|
|
|
|
|
|
|= jon/json
|
|
|
|
|
|
?. ?=({$o *} jon) ~
|
2017-09-07 03:36:10 +03:00
|
|
|
|
=+ raw=((ot-raw wer) p.jon)
|
|
|
|
|
|
?.((za raw) ~ (some (zp raw)))
|
|
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ ot-raw :: object as tuple
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* wer/(pole {cord fist})
|
|
|
|
|
|
|= jom/(map @t json)
|
2017-09-07 03:36:10 +03:00
|
|
|
|
?~ wer ~
|
|
|
|
|
|
=+ ten=(~(get by jom) -.-.wer)
|
|
|
|
|
|
[?~(ten ~ (+.-.wer u.ten)) ((ot-raw +.wer) jom)]
|
|
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ om :: object as map
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* wit/fist
|
|
|
|
|
|
|= jon/json
|
|
|
|
|
|
?. ?=({$o *} jon) ~
|
2017-09-07 03:36:10 +03:00
|
|
|
|
(zm (~(run by p.jon) wit))
|
|
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ op :: parse keys of map
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* {fel/rule wit/fist}
|
2019-01-18 08:37:34 +03:00
|
|
|
|
%+ cu
|
2017-11-09 20:23:23 +03:00
|
|
|
|
|= a/(list (pair _(wonk *fel) _(need *wit)))
|
2017-09-07 03:36:10 +03:00
|
|
|
|
(my:nl a)
|
|
|
|
|
|
%- ci :_ (om wit)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/(map cord _(need *wit))
|
2017-09-07 03:36:10 +03:00
|
|
|
|
^- (unit (list _[(wonk *fel) (need *wit)]))
|
|
|
|
|
|
%- zl
|
2017-09-22 04:45:27 +03:00
|
|
|
|
%+ turn ~(tap by a)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {a/cord b/_(need *wit)}
|
2019-01-18 08:37:34 +03:00
|
|
|
|
=+ nit=(rush a fel)
|
2017-09-07 03:36:10 +03:00
|
|
|
|
?~ nit ~
|
|
|
|
|
|
(some [u.nit b])
|
|
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ pe :: prefix
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* {pre/* wit/fist}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(cu |*(* [pre +<]) wit)
|
2017-09-07 03:36:10 +03:00
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ sa :: string as tape
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= jon/json
|
|
|
|
|
|
?.(?=({$s *} jon) ~ (some (trip p.jon)))
|
2017-09-07 03:36:10 +03:00
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ so :: string as cord
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= jon/json
|
|
|
|
|
|
?.(?=({$s *} jon) ~ (some p.jon))
|
2017-09-07 03:36:10 +03:00
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ su :: parse string
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* sab/rule
|
|
|
|
|
|
|= jon/json
|
|
|
|
|
|
?. ?=({$s *} jon) ~
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(rush p.jon sab)
|
2017-09-07 03:36:10 +03:00
|
|
|
|
::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ ul |=(jon/json ?~(jon (some ~) ~)) :: null
|
2017-09-07 03:36:10 +03:00
|
|
|
|
++ za :: full unit pole
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* pod/(pole (unit))
|
2017-09-07 03:36:10 +03:00
|
|
|
|
?~ pod &
|
|
|
|
|
|
?~ -.pod |
|
|
|
|
|
|
(za +.pod)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ zl :: collapse unit list
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* lut/(list (unit))
|
2017-09-07 03:36:10 +03:00
|
|
|
|
?. |- ^- ?
|
|
|
|
|
|
?~(lut & ?~(i.lut | $(lut t.lut)))
|
|
|
|
|
|
~
|
|
|
|
|
|
%- some
|
|
|
|
|
|
|-
|
|
|
|
|
|
?~ lut ~
|
|
|
|
|
|
[i=u:+.i.lut t=$(lut t.lut)]
|
|
|
|
|
|
::
|
|
|
|
|
|
++ zp :: unit tuple
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* but/(pole (unit))
|
2017-09-07 03:36:10 +03:00
|
|
|
|
?~ but !!
|
2019-01-18 08:37:34 +03:00
|
|
|
|
?~ +.but
|
2017-09-07 03:36:10 +03:00
|
|
|
|
u:->.but
|
|
|
|
|
|
[u:->.but (zp +.but)]
|
|
|
|
|
|
::
|
|
|
|
|
|
++ zm :: collapse unit map
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* lum/(map term (unit))
|
2018-08-16 04:05:30 +03:00
|
|
|
|
?: (~(rep by lum) |=({{@ a/(unit)} b/_|} |(b ?=(~ a))))
|
2017-09-07 03:36:10 +03:00
|
|
|
|
~
|
|
|
|
|
|
(some (~(run by lum) need))
|
2016-12-02 22:34:07 +03:00
|
|
|
|
-- ::dejs-soft
|
2016-12-02 04:17:02 +03:00
|
|
|
|
--
|
|
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++differ :: (2d) hunt-mcilroy
|
|
|
|
|
|
:: ::::
|
|
|
|
|
|
++ differ ^?
|
2016-12-07 06:13:33 +03:00
|
|
|
|
=, clay
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=, format
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++berk:differ
|
|
|
|
|
|
++ berk :: invert diff patch
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* bur/(urge)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|- ^+ bur
|
|
|
|
|
|
?~ bur ~
|
|
|
|
|
|
:_ $(bur t.bur)
|
|
|
|
|
|
?- -.i.bur
|
2018-03-19 06:54:47 +03:00
|
|
|
|
%& i.bur
|
|
|
|
|
|
%| [%| q.i.bur p.i.bur]
|
2016-12-02 04:17:02 +03:00
|
|
|
|
==
|
|
|
|
|
|
:: :: ++loss:differ
|
|
|
|
|
|
++ loss :: longest subsequence
|
|
|
|
|
|
~% %loss ..is ~
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* {hel/(list) hev/(list)}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|- ^+ hev
|
|
|
|
|
|
=+ ^= sev
|
|
|
|
|
|
=+ [inx=0 sev=*(map _i.-.hev (list @ud))]
|
|
|
|
|
|
|- ^+ sev
|
|
|
|
|
|
?~ hev sev
|
|
|
|
|
|
=+ guy=(~(get by sev) i.hev)
|
|
|
|
|
|
%= $
|
|
|
|
|
|
hev t.hev
|
|
|
|
|
|
inx +(inx)
|
|
|
|
|
|
sev (~(put by sev) i.hev [inx ?~(guy ~ u.guy)])
|
|
|
|
|
|
==
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=| gox/{p/@ud q/(map @ud {p/@ud q/_hev})}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=< abet
|
|
|
|
|
|
=< main
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++abet:loss:differ
|
|
|
|
|
|
++ abet :: subsequence
|
|
|
|
|
|
^+ hev
|
|
|
|
|
|
?: =(0 p.gox) ~
|
|
|
|
|
|
(flop q:(need (~(get by q.gox) (dec p.gox))))
|
|
|
|
|
|
:: :: ++hink:loss:differ
|
|
|
|
|
|
++ hink :: extend fits top
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {inx/@ud goy/@ud} ^- ?
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?| =(p.gox inx)
|
|
|
|
|
|
(lth goy p:(need (~(get by q.gox) inx)))
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++lonk:loss:differ
|
|
|
|
|
|
++ lonk :: extend fits bottom
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {inx/@ud goy/@ud} ^- ?
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?| =(0 inx)
|
|
|
|
|
|
(gth goy p:(need (~(get by q.gox) (dec inx))))
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++luna:loss:differ
|
|
|
|
|
|
++ luna :: extend
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {inx/@ud goy/@ud}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^+ +>
|
|
|
|
|
|
%_ +>.$
|
|
|
|
|
|
gox
|
|
|
|
|
|
:- ?:(=(inx p.gox) +(p.gox) p.gox)
|
|
|
|
|
|
%+ ~(put by q.gox) inx
|
|
|
|
|
|
:+ goy
|
|
|
|
|
|
(snag goy hev)
|
|
|
|
|
|
?:(=(0 inx) ~ q:(need (~(get by q.gox) (dec inx))))
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++merg:loss:differ
|
|
|
|
|
|
++ merg :: merge all matches
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= gay/(list @ud)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^+ +>
|
|
|
|
|
|
=+ ^= zes
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=+ [inx=0 zes=*(list {p/@ud q/@ud})]
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|- ^+ zes
|
2018-08-16 04:05:30 +03:00
|
|
|
|
?: |(?=(~ gay) (gth inx p.gox)) zes
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?. (lonk inx i.gay) $(gay t.gay)
|
|
|
|
|
|
?. (hink inx i.gay) $(inx +(inx))
|
|
|
|
|
|
$(inx +(inx), gay t.gay, zes [[inx i.gay] zes])
|
|
|
|
|
|
|- ^+ +>.^$
|
|
|
|
|
|
?~(zes +>.^$ $(zes t.zes, +>.^$ (luna i.zes)))
|
|
|
|
|
|
:: :: ++main:loss:differ
|
|
|
|
|
|
++ main ::
|
|
|
|
|
|
=+ hol=hel
|
|
|
|
|
|
|- ^+ +>
|
|
|
|
|
|
?~ hol +>
|
|
|
|
|
|
=+ guy=(~(get by sev) i.hol)
|
|
|
|
|
|
$(hol t.hol, +> (merg (flop `(list @ud)`?~(guy ~ u.guy))))
|
|
|
|
|
|
-- ::
|
|
|
|
|
|
:: :: ++lurk:differ
|
|
|
|
|
|
++ lurk :: apply list patch
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* {hel/(list) rug/(urge)}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^+ hel
|
|
|
|
|
|
=+ war=`_hel`~
|
|
|
|
|
|
|- ^+ hel
|
|
|
|
|
|
?~ rug (flop war)
|
|
|
|
|
|
?- -.i.rug
|
2018-03-19 06:54:47 +03:00
|
|
|
|
%&
|
2016-12-02 04:17:02 +03:00
|
|
|
|
%= $
|
|
|
|
|
|
rug t.rug
|
|
|
|
|
|
hel (slag p.i.rug hel)
|
|
|
|
|
|
war (weld (flop (scag p.i.rug hel)) war)
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
2018-03-19 06:54:47 +03:00
|
|
|
|
%|
|
2016-12-02 04:17:02 +03:00
|
|
|
|
%= $
|
|
|
|
|
|
rug t.rug
|
|
|
|
|
|
hel =+ gur=(flop p.i.rug)
|
|
|
|
|
|
|- ^+ hel
|
|
|
|
|
|
?~ gur hel
|
|
|
|
|
|
?>(&(?=(^ hel) =(i.gur i.hel)) $(hel t.hel, gur t.gur))
|
|
|
|
|
|
war (weld q.i.rug war)
|
|
|
|
|
|
==
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++lusk:differ
|
|
|
|
|
|
++ lusk :: lcs to list patch
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* {hel/(list) hev/(list) lcs/(list)}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ ^= rag
|
2018-03-19 06:54:47 +03:00
|
|
|
|
^- {$%({%& p/@ud} {%| p/_lcs q/_lcs})}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
[%& 0]
|
|
|
|
|
|
=> .(rag [p=rag q=*(list _rag)])
|
|
|
|
|
|
=< abet =< main
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++abet:lusk:differ
|
|
|
|
|
|
++ abet ::
|
2017-03-14 21:34:23 +03:00
|
|
|
|
=? q.rag !=([& 0] p.rag) [p.rag q.rag]
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(flop q.rag)
|
|
|
|
|
|
:: :: ++done:lusk:differ
|
|
|
|
|
|
++ done ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= new/_p.rag
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^+ rag
|
|
|
|
|
|
?- -.p.rag
|
2018-03-19 06:54:47 +03:00
|
|
|
|
%| ?- -.new
|
|
|
|
|
|
%| [[%| (weld p.new p.p.rag) (weld q.new q.p.rag)] q.rag]
|
|
|
|
|
|
%& [new [p.rag q.rag]]
|
2016-11-24 07:25:07 +03:00
|
|
|
|
==
|
2018-03-19 06:54:47 +03:00
|
|
|
|
%& ?- -.new
|
|
|
|
|
|
%| [new ?:(=(0 p.p.rag) q.rag [p.rag q.rag])]
|
|
|
|
|
|
%& [[%& (add p.p.rag p.new)] q.rag]
|
2016-12-02 04:17:02 +03:00
|
|
|
|
==
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++main:lusk:differ
|
|
|
|
|
|
++ main ::
|
|
|
|
|
|
|- ^+ +
|
|
|
|
|
|
?~ hel
|
|
|
|
|
|
?~ hev
|
2018-08-16 04:05:30 +03:00
|
|
|
|
?>(?=(~ lcs) +)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
$(hev t.hev, rag (done %| ~ [i.hev ~]))
|
|
|
|
|
|
?~ hev
|
|
|
|
|
|
$(hel t.hel, rag (done %| [i.hel ~] ~))
|
|
|
|
|
|
?~ lcs
|
|
|
|
|
|
+(rag (done %| (flop hel) (flop hev)))
|
|
|
|
|
|
?: =(i.hel i.lcs)
|
|
|
|
|
|
?: =(i.hev i.lcs)
|
|
|
|
|
|
$(lcs t.lcs, hel t.hel, hev t.hev, rag (done %& 1))
|
|
|
|
|
|
$(hev t.hev, rag (done %| ~ [i.hev ~]))
|
|
|
|
|
|
?: =(i.hev i.lcs)
|
|
|
|
|
|
$(hel t.hel, rag (done %| [i.hel ~] ~))
|
|
|
|
|
|
$(hel t.hel, hev t.hev, rag (done %| [i.hel ~] [i.hev ~]))
|
|
|
|
|
|
-- ::
|
|
|
|
|
|
-- ::differ
|
|
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++html :: (2e) text encodings
|
|
|
|
|
|
:: ::::
|
2016-12-09 02:48:30 +03:00
|
|
|
|
++ html ^? :: XX rename to web-txt
|
2016-12-07 06:13:33 +03:00
|
|
|
|
=, eyre
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|%
|
|
|
|
|
|
:: ::
|
2016-12-03 03:33:15 +03:00
|
|
|
|
:::: ++mimes:html :: (2e1) MIME
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: ::::
|
2016-12-03 03:33:15 +03:00
|
|
|
|
++ mimes ^?
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|%
|
2016-12-03 03:33:15 +03:00
|
|
|
|
:: :: ++as-octs:mimes:html
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ as-octs :: atom to octstream
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= tam/@ ^- octs
|
2016-12-02 04:17:02 +03:00
|
|
|
|
[(met 3 tam) tam]
|
2016-12-03 03:33:15 +03:00
|
|
|
|
:: :: ++as-octt:mimes:html
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ as-octt :: tape to octstream
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= tep/tape ^- octs
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(as-octs (rap 3 tep))
|
2016-12-03 03:33:15 +03:00
|
|
|
|
:: :: ++en-mite:mimes:html
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ en-mite :: mime type to text
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= myn/mite
|
2016-12-02 04:17:02 +03:00
|
|
|
|
%- crip
|
|
|
|
|
|
|- ^- tape
|
|
|
|
|
|
?~ myn ~
|
|
|
|
|
|
?: =(~ t.myn) (trip i.myn)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
(weld (trip i.myn) `tape`['/' $(myn t.myn)])
|
2016-12-03 03:33:15 +03:00
|
|
|
|
:: :: ++en-base64:mimes:
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ en-base64 :: encode base64
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= tig/@
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- tape
|
|
|
|
|
|
=+ poc=(~(dif fo 3) 0 (met 3 tig))
|
|
|
|
|
|
=+ pad=(lsh 3 poc (swp 3 tig))
|
|
|
|
|
|
=+ ^= cha
|
2017-10-25 05:04:45 +03:00
|
|
|
|
'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ ^= sif
|
|
|
|
|
|
|- ^- tape
|
|
|
|
|
|
?~ pad
|
|
|
|
|
|
~
|
|
|
|
|
|
=+ d=(end 0 6 pad)
|
|
|
|
|
|
[(cut 3 [d 1] cha) $(pad (rsh 0 6 pad))]
|
|
|
|
|
|
(weld (flop (slag poc sif)) (reap poc '='))
|
2016-12-03 03:33:15 +03:00
|
|
|
|
:: :: ++de-base64:mimes:
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ de-base64 :: decode base64
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=- |=(a/cord (rash a fel))
|
|
|
|
|
|
=< fel=(cook |~(a/@ `@t`(swp 3 a)) (bass 64 .))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=- (cook welp ;~(plug (plus siw) (stun 0^2 (cold %0 tis))))
|
|
|
|
|
|
^= siw
|
|
|
|
|
|
;~ pose
|
2017-10-25 05:04:45 +03:00
|
|
|
|
(cook |=(a/@ (sub a 'A')) (shim 'A' 'Z'))
|
|
|
|
|
|
(cook |=(a/@ (sub a 'G')) (shim 'a' 'z'))
|
|
|
|
|
|
(cook |=(a/@ (add a 4)) (shim '0' '9'))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(cold 62 (just '+'))
|
2017-10-25 05:04:45 +03:00
|
|
|
|
(cold 63 (just '/'))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
==
|
2018-08-06 22:23:19 +03:00
|
|
|
|
::
|
|
|
|
|
|
++ en-base58
|
|
|
|
|
|
|= dat=@
|
|
|
|
|
|
=/ cha
|
|
|
|
|
|
'123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz'
|
|
|
|
|
|
%- flop
|
|
|
|
|
|
|- ^- tape
|
|
|
|
|
|
?: =(0 dat) ~
|
|
|
|
|
|
:- (cut 3 [(mod dat 58) 1] cha)
|
|
|
|
|
|
$(dat (div dat 58))
|
|
|
|
|
|
::
|
|
|
|
|
|
++ de-base58
|
|
|
|
|
|
|= t=tape
|
|
|
|
|
|
=- (scan t (bass 58 (plus -)))
|
|
|
|
|
|
;~ pose
|
|
|
|
|
|
(cook |=(a=@ (sub a 56)) (shim 'A' 'H'))
|
|
|
|
|
|
(cook |=(a=@ (sub a 57)) (shim 'J' 'N'))
|
|
|
|
|
|
(cook |=(a=@ (sub a 58)) (shim 'P' 'Z'))
|
|
|
|
|
|
(cook |=(a=@ (sub a 64)) (shim 'a' 'k'))
|
|
|
|
|
|
(cook |=(a=@ (sub a 65)) (shim 'm' 'z'))
|
|
|
|
|
|
(cook |=(a=@ (sub a 49)) (shim '1' '9'))
|
|
|
|
|
|
==
|
2016-12-03 03:33:15 +03:00
|
|
|
|
-- ::mimes
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++en-json:html
|
|
|
|
|
|
++ en-json :: print json
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|^ |=(val/json (apex val ""))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++apex:en-json:html
|
|
|
|
|
|
++ apex
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {val/json rez/tape}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- tape
|
|
|
|
|
|
?~ val (weld "null" rez)
|
|
|
|
|
|
?- -.val
|
2017-10-25 05:04:45 +03:00
|
|
|
|
$a
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:- '['
|
|
|
|
|
|
=. rez [']' rez]
|
|
|
|
|
|
!.
|
|
|
|
|
|
?~ p.val rez
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|-
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?~ t.p.val ^$(val i.p.val)
|
|
|
|
|
|
^$(val i.p.val, rez [',' $(p.val t.p.val)])
|
|
|
|
|
|
::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
$b (weld ?:(p.val "true" "false") rez)
|
|
|
|
|
|
$n (weld (trip p.val) rez)
|
|
|
|
|
|
$s
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:- '"'
|
|
|
|
|
|
=. rez ['"' rez]
|
|
|
|
|
|
=+ viz=(trip p.val)
|
|
|
|
|
|
!.
|
|
|
|
|
|
|- ^- tape
|
|
|
|
|
|
?~ viz rez
|
|
|
|
|
|
=+ hed=(jesc i.viz)
|
2018-08-16 04:05:30 +03:00
|
|
|
|
?: ?=({@ ~} hed)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
[i.hed $(viz t.viz)]
|
|
|
|
|
|
(weld hed $(viz t.viz))
|
|
|
|
|
|
::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
$o
|
|
|
|
|
|
:- '{'
|
|
|
|
|
|
=. rez ['}' rez]
|
2017-02-13 23:43:18 +03:00
|
|
|
|
=+ viz=~(tap by p.val)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?~ viz rez
|
|
|
|
|
|
!.
|
|
|
|
|
|
|- ^+ rez
|
|
|
|
|
|
?~ t.viz ^$(val [%s p.i.viz], rez [':' ^$(val q.i.viz)])
|
|
|
|
|
|
=. rez [',' $(viz t.viz)]
|
|
|
|
|
|
^$(val [%s p.i.viz], rez [':' ^$(val q.i.viz)])
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++jesc:en-json:html
|
|
|
|
|
|
++ jesc :: escaped
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=+ utf=|=(a/@ ['\\' 'u' ((x-co 4):co a)])
|
|
|
|
|
|
|= a/@ ^- tape
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?+ a ?:((gth a 0x1f) [a ~] (utf a))
|
|
|
|
|
|
$10 "\\n"
|
|
|
|
|
|
$34 "\\\""
|
|
|
|
|
|
$92 "\\\\"
|
|
|
|
|
|
==
|
|
|
|
|
|
-- ::en-json
|
|
|
|
|
|
:: :: ++de-json:html
|
|
|
|
|
|
++ de-json :: parse JSON
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=< |=(a/cord `(unit json)`(rush a apex))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++abox:de-json:html
|
|
|
|
|
|
++ abox :: array
|
|
|
|
|
|
%+ stag %a
|
2018-08-16 04:37:13 +03:00
|
|
|
|
(ifix [lac (wish rac)] (more (wish com) apex))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++apex:de-json:html
|
|
|
|
|
|
++ apex :: any value
|
|
|
|
|
|
%+ knee *json |. ~+
|
|
|
|
|
|
%+ ifix [spac spac]
|
|
|
|
|
|
;~ pose
|
|
|
|
|
|
(cold ~ (jest 'null'))
|
|
|
|
|
|
(stag %b bool)
|
|
|
|
|
|
(stag %s stri)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
(cook |=(s/tape [%n p=(rap 3 s)]) numb)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
abox
|
|
|
|
|
|
obox
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++bool:de-json:html
|
|
|
|
|
|
++ bool :: boolean
|
|
|
|
|
|
;~ pose
|
|
|
|
|
|
(cold & (jest 'true'))
|
|
|
|
|
|
(cold | (jest 'false'))
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++digs:de-json:html
|
|
|
|
|
|
++ digs :: digits
|
|
|
|
|
|
(star (shim '0' '9'))
|
|
|
|
|
|
:: :: ++esca:de-json:html
|
|
|
|
|
|
++ esca :: escaped character
|
|
|
|
|
|
;~ pfix bas
|
|
|
|
|
|
=* loo
|
|
|
|
|
|
=* lip
|
|
|
|
|
|
^- (list (pair @t @))
|
|
|
|
|
|
[b+8 t+9 n+10 f+12 r+13 ~]
|
|
|
|
|
|
=* wow `(map @t @)`(malt lip)
|
|
|
|
|
|
(sear ~(get by wow) low)
|
|
|
|
|
|
=* tuf ;~(pfix (just 'u') (cook tuft qix:ab))
|
2018-08-16 04:37:13 +03:00
|
|
|
|
;~(pose yel net say bas loo tuf)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
==
|
|
|
|
|
|
:: :: ++expo:de-json:html
|
|
|
|
|
|
++ expo :: exponent
|
|
|
|
|
|
;~ (comp twel)
|
|
|
|
|
|
(piec (mask "eE"))
|
|
|
|
|
|
(mayb (piec (mask "+-")))
|
|
|
|
|
|
digs
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++frac:de-json:html
|
|
|
|
|
|
++ frac :: fraction
|
|
|
|
|
|
;~(plug dot digs)
|
|
|
|
|
|
:: :: ++jcha:de-json:html
|
|
|
|
|
|
++ jcha :: string character
|
2018-08-16 04:37:13 +03:00
|
|
|
|
;~(pose ;~(less yel bas prn) esca)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++mayb:de-json:html
|
|
|
|
|
|
++ mayb :: optional
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|*(bus/rule ;~(pose bus (easy ~)))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++numb:de-json:html
|
|
|
|
|
|
++ numb :: number
|
|
|
|
|
|
;~ (comp twel)
|
|
|
|
|
|
(mayb (piec hep))
|
|
|
|
|
|
;~ pose
|
|
|
|
|
|
(piec (just '0'))
|
|
|
|
|
|
;~(plug (shim '1' '9') digs)
|
|
|
|
|
|
==
|
|
|
|
|
|
(mayb frac)
|
|
|
|
|
|
(mayb expo)
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++obje:de-json:html
|
|
|
|
|
|
++ obje :: object list
|
2018-08-16 04:37:13 +03:00
|
|
|
|
%+ ifix [(wish leb) (wish reb)]
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(more (wish com) pear)
|
|
|
|
|
|
:: :: ++obox:de-json:html
|
|
|
|
|
|
++ obox :: object
|
|
|
|
|
|
(stag %o (cook malt obje))
|
|
|
|
|
|
:: :: ++pear:de-json:html
|
|
|
|
|
|
++ pear :: key-value
|
|
|
|
|
|
;~(plug ;~(sfix (wish stri) (wish col)) apex)
|
|
|
|
|
|
:: :: ++piec:de-json:html
|
|
|
|
|
|
++ piec :: listify
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* bus/rule
|
|
|
|
|
|
(cook |=(a/@ [a ~]) bus)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++stri:de-json:html
|
|
|
|
|
|
++ stri :: string
|
2018-08-16 04:37:13 +03:00
|
|
|
|
(cook crip (ifix [yel yel] (star jcha)))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++tops:de-json:html
|
|
|
|
|
|
++ tops :: strict value
|
|
|
|
|
|
;~(pose abox obox)
|
|
|
|
|
|
:: :: ++spac:de-json:html
|
|
|
|
|
|
++ spac :: whitespace
|
|
|
|
|
|
(star (mask [`@`9 `@`10 `@`13 ' ' ~]))
|
|
|
|
|
|
:: :: ++twel:de-json:html
|
|
|
|
|
|
++ twel :: tape weld
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|=({a/tape b/tape} (weld a b))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++wish:de-json:html
|
|
|
|
|
|
++ wish :: with whitespace
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|*(sef/rule ;~(pfix spac sef))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
-- ::de-json
|
|
|
|
|
|
:: :: ++en-xml:html
|
|
|
|
|
|
++ en-xml :: xml printer
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=< |=(a/manx `tape`(apex a ~))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|_ _[unq=`?`| cot=`?`|]
|
|
|
|
|
|
:: :: ++apex:en-xml:html
|
|
|
|
|
|
++ apex :: top level
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {mex/manx rez/tape}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- tape
|
2018-08-16 04:05:30 +03:00
|
|
|
|
?: ?=({$$ {{$$ *} ~}} g.mex)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(escp v.i.a.g.mex rez)
|
|
|
|
|
|
=+ man=`mane`n.g.mex
|
|
|
|
|
|
=. unq |(unq =(%script man) =(%style man))
|
|
|
|
|
|
=+ tam=(name man)
|
|
|
|
|
|
=+ att=`mart`a.g.mex
|
|
|
|
|
|
:- '<'
|
|
|
|
|
|
%+ welp tam
|
|
|
|
|
|
=- ?~(att rez [' ' (attr att rez)])
|
2017-10-25 05:04:45 +03:00
|
|
|
|
^- rez/tape
|
2019-01-29 02:55:44 +03:00
|
|
|
|
?: &(?=(~ c.mex) |(cot ?^(man | (clot man))))
|
2017-10-25 05:04:45 +03:00
|
|
|
|
[' ' '/' '>' rez]
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:- '>'
|
2017-10-25 05:04:45 +03:00
|
|
|
|
(many c.mex :(weld "</" tam ">" rez))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++attr:en-xml:html
|
|
|
|
|
|
++ attr :: attributes to tape
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {tat/mart rez/tape}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- tape
|
|
|
|
|
|
?~ tat rez
|
|
|
|
|
|
=. rez $(tat t.tat)
|
|
|
|
|
|
;: weld
|
|
|
|
|
|
(name n.i.tat)
|
|
|
|
|
|
"=\""
|
|
|
|
|
|
(escp(unq |) v.i.tat '"' ?~(t.tat rez [' ' rez]))
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++escp:en-xml:html
|
|
|
|
|
|
++ escp :: escape for xml
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {tex/tape rez/tape}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?: unq
|
|
|
|
|
|
(weld tex rez)
|
|
|
|
|
|
=+ xet=`tape`(flop tex)
|
|
|
|
|
|
!.
|
|
|
|
|
|
|- ^- tape
|
|
|
|
|
|
?~ xet rez
|
|
|
|
|
|
%= $
|
|
|
|
|
|
xet t.xet
|
|
|
|
|
|
rez ?- i.xet
|
|
|
|
|
|
$34 ['&' 'q' 'u' 'o' 't' ';' rez]
|
|
|
|
|
|
$38 ['&' 'a' 'm' 'p' ';' rez]
|
|
|
|
|
|
$39 ['&' '#' '3' '9' ';' rez]
|
|
|
|
|
|
$60 ['&' 'l' 't' ';' rez]
|
|
|
|
|
|
$62 ['&' 'g' 't' ';' rez]
|
|
|
|
|
|
* [i.xet rez]
|
|
|
|
|
|
==
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++many:en-xml:html
|
|
|
|
|
|
++ many :: nodelist to tape
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {lix/(list manx) rez/tape}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|- ^- tape
|
|
|
|
|
|
?~ lix rez
|
|
|
|
|
|
(apex i.lix $(lix t.lix))
|
|
|
|
|
|
:: :: ++name:en-xml:html
|
|
|
|
|
|
++ name :: name to tape
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= man/mane ^- tape
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?@ man (trip man)
|
|
|
|
|
|
(weld (trip -.man) `tape`[':' (trip +.man)])
|
|
|
|
|
|
:: :: ++clot:en-xml:html
|
|
|
|
|
|
++ clot ~+ :: self-closing tags
|
2018-04-04 21:15:10 +03:00
|
|
|
|
%~ has in
|
2018-04-04 21:07:05 +03:00
|
|
|
|
%- silt ^- (list term) :~
|
|
|
|
|
|
%area %base %br %col %command %embed %hr %img %inputt
|
|
|
|
|
|
%keygen %link %meta %param %source %track %wbr
|
|
|
|
|
|
==
|
2016-12-02 04:17:02 +03:00
|
|
|
|
-- ::en-xml
|
|
|
|
|
|
:: :: ++de-xml:html
|
|
|
|
|
|
++ de-xml :: xml parser
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=< |=(a/cord (rush a apex))
|
|
|
|
|
|
|_ ent/_`(map term @t)`[[%apos '\''] ~ ~]
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++apex:de-xml:html
|
|
|
|
|
|
++ apex :: top level
|
|
|
|
|
|
=+ spa=;~(pose comt whit)
|
|
|
|
|
|
%+ knee *manx |. ~+
|
|
|
|
|
|
%+ ifix [(star spa) (star spa)]
|
|
|
|
|
|
;~ pose
|
2017-10-25 05:04:45 +03:00
|
|
|
|
%+ sear |=({a/marx b/marl c/mane} ?.(=(c n.a) ~ (some [a b])))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
;~(plug head many tail)
|
|
|
|
|
|
empt
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++attr:de-xml:html
|
|
|
|
|
|
++ attr :: attributes
|
|
|
|
|
|
%+ knee *mart |. ~+
|
|
|
|
|
|
%- star
|
|
|
|
|
|
;~ plug
|
|
|
|
|
|
;~(pfix (plus whit) name)
|
|
|
|
|
|
;~ pose
|
2018-08-16 04:37:13 +03:00
|
|
|
|
(ifix [;~(plug tis yel) yel] (star ;~(less yel escp)))
|
|
|
|
|
|
(ifix [;~(plug tis say) say] (star ;~(less say escp)))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(easy ~)
|
|
|
|
|
|
==
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++chrd:de-xml:html
|
|
|
|
|
|
++ chrd :: character data
|
2017-10-25 05:04:45 +03:00
|
|
|
|
%+ cook |=(a/tape ^-(mars ;/(a)))
|
2018-08-16 04:37:13 +03:00
|
|
|
|
(plus ;~(less yel ;~(pose (just `@`10) escp)))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++comt:de-xml:html
|
|
|
|
|
|
++ comt :: comments
|
|
|
|
|
|
=- (ifix [(jest '<!--') (jest '-->')] (star -))
|
|
|
|
|
|
;~ pose
|
|
|
|
|
|
;~(less hep prn)
|
|
|
|
|
|
whit
|
|
|
|
|
|
;~(less (jest '-->') hep)
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++escp:de-xml:html
|
|
|
|
|
|
++ escp ::
|
2018-08-16 04:37:13 +03:00
|
|
|
|
;~(pose ;~(less led ban pad prn) enty)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++enty:de-xml:html
|
|
|
|
|
|
++ enty :: entity
|
2018-08-16 04:37:13 +03:00
|
|
|
|
%+ ifix pad^mic
|
2016-12-02 04:17:02 +03:00
|
|
|
|
;~ pose
|
2017-09-07 03:36:10 +03:00
|
|
|
|
=+ def=^+(ent (my:nl [%gt '>'] [%lt '<'] [%amp '&'] [%quot '"'] ~))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
%+ sear ~(get by (~(uni by def) ent))
|
|
|
|
|
|
(cook crip ;~(plug alf (stun 1^31 aln)))
|
2017-10-25 05:04:45 +03:00
|
|
|
|
%+ cook |=(a/@c ?:((gth a 0x10.ffff) '<27>' (tuft a)))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=< ;~(pfix hax ;~(pose - +))
|
|
|
|
|
|
:- (bass 10 (stun 1^8 dit))
|
|
|
|
|
|
(bass 16 ;~(pfix (mask "xX") (stun 1^8 hit)))
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++empt:de-xml:html
|
|
|
|
|
|
++ empt :: self-closing tag
|
2017-10-25 05:04:45 +03:00
|
|
|
|
%+ ifix [gal (jest '/>')]
|
2016-12-02 04:17:02 +03:00
|
|
|
|
;~(plug ;~(plug name attr) (cold ~ (star whit)))
|
|
|
|
|
|
:: :: ++head:de-xml:html
|
|
|
|
|
|
++ head :: opening tag
|
2018-08-16 04:37:13 +03:00
|
|
|
|
(ifix [gal ban] ;~(plug name attr))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++many:de-xml:html
|
|
|
|
|
|
++ many :: contents
|
|
|
|
|
|
(more (star comt) ;~(pose apex chrd))
|
|
|
|
|
|
:: :: ++name:de-xml:html
|
|
|
|
|
|
++ name :: tag name
|
|
|
|
|
|
=+ ^= chx
|
|
|
|
|
|
%+ cook crip
|
|
|
|
|
|
;~ plug
|
|
|
|
|
|
;~(pose cab alf)
|
|
|
|
|
|
(star ;~(pose cab dot alp))
|
|
|
|
|
|
==
|
|
|
|
|
|
;~(pose ;~(plug ;~(sfix chx col) chx) chx)
|
|
|
|
|
|
:: :: ++tail:de-xml:html
|
|
|
|
|
|
++ tail :: closing tag
|
2018-08-16 04:37:13 +03:00
|
|
|
|
(ifix [(jest '</') ban] name)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++whit:de-xml:html
|
|
|
|
|
|
++ whit :: whitespace
|
|
|
|
|
|
(mask ~[' ' `@`0x9 `@`0xa])
|
|
|
|
|
|
-- ::de-xml
|
|
|
|
|
|
:: :: ++en-urlt:html
|
|
|
|
|
|
++ en-urlt :: url encode
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= tep/tape
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- tape
|
|
|
|
|
|
%- zing
|
|
|
|
|
|
%+ turn tep
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= tap/char
|
|
|
|
|
|
=+ xen=|=(tig/@ ?:((gte tig 10) (add tig 55) (add tig '0')))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?: ?| &((gte tap 'a') (lte tap 'z'))
|
|
|
|
|
|
&((gte tap 'A') (lte tap 'Z'))
|
|
|
|
|
|
&((gte tap '0') (lte tap '9'))
|
|
|
|
|
|
=('.' tap)
|
|
|
|
|
|
=('-' tap)
|
|
|
|
|
|
=('~' tap)
|
|
|
|
|
|
=('_' tap)
|
|
|
|
|
|
==
|
|
|
|
|
|
[tap ~]
|
|
|
|
|
|
['%' (xen (rsh 0 4 tap)) (xen (end 0 4 tap)) ~]
|
|
|
|
|
|
:: :: ++de-urlt:html
|
|
|
|
|
|
++ de-urlt :: url decode
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= tep/tape
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- (unit tape)
|
|
|
|
|
|
?~ tep [~ ~]
|
|
|
|
|
|
?: =('%' i.tep)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
?. ?=({@ @ *} t.tep) ~
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ nag=(mix i.t.tep (lsh 3 1 i.t.t.tep))
|
|
|
|
|
|
=+ val=(rush nag hex:ag)
|
|
|
|
|
|
?~ val ~
|
|
|
|
|
|
=+ nex=$(tep t.t.t.tep)
|
|
|
|
|
|
?~(nex ~ [~ [`@`u.val u.nex]])
|
|
|
|
|
|
=+ nex=$(tep t.tep)
|
|
|
|
|
|
?~(nex ~ [~ i.tep u.nex])
|
|
|
|
|
|
:: :: ++en-purl:html
|
|
|
|
|
|
++ en-purl :: print purl
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=< |=(pul/purl `tape`(apex %& pul))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++apex:en-purl:html
|
|
|
|
|
|
++ apex ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= qur/quri ^- tape
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?- -.qur
|
2018-03-19 06:54:47 +03:00
|
|
|
|
%& (weld (head p.p.qur) `tape`$(qur [%| +.p.qur]))
|
|
|
|
|
|
%| ['/' (weld (body p.qur) (tail q.qur))]
|
2016-12-02 04:17:02 +03:00
|
|
|
|
==
|
|
|
|
|
|
:: :: ++apix:en-purl:html
|
|
|
|
|
|
++ apix :: purf to tape
|
|
|
|
|
|
|= purf
|
|
|
|
|
|
(weld (apex %& p) ?~(q "" `tape`['#' (trip u.q)]))
|
|
|
|
|
|
:: :: ++body:en-purl:html
|
|
|
|
|
|
++ body ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= pok/pork ^- tape
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?~ q.pok ~
|
|
|
|
|
|
|-
|
|
|
|
|
|
=+ seg=(en-urlt (trip i.q.pok))
|
|
|
|
|
|
?~ t.q.pok
|
|
|
|
|
|
?~(p.pok seg (welp seg '.' (trip u.p.pok)))
|
2017-10-25 05:04:45 +03:00
|
|
|
|
(welp seg '/' $(q.pok t.q.pok))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++head:en-purl:html
|
|
|
|
|
|
++ head ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= har/hart
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- tape
|
|
|
|
|
|
;: weld
|
2017-10-25 05:04:45 +03:00
|
|
|
|
?:(&(p.har !?=(hoke r.har)) "https://" "http://")
|
2016-12-02 04:17:02 +03:00
|
|
|
|
::
|
|
|
|
|
|
?- -.r.har
|
2018-03-19 06:54:47 +03:00
|
|
|
|
%| (trip (rsh 3 1 (scot %if p.r.har)))
|
|
|
|
|
|
%& =+ rit=(flop p.r.har)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|- ^- tape
|
|
|
|
|
|
?~ rit ~
|
|
|
|
|
|
(weld (trip i.rit) ?~(t.rit "" `tape`['.' $(rit t.rit)]))
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
?~(q.har ~ `tape`[':' ((d-co:co 1) u.q.har)])
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++tail:en-purl:html
|
|
|
|
|
|
++ tail ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= kay/quay
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- tape
|
|
|
|
|
|
?: =(~ kay) ~
|
|
|
|
|
|
:- '?'
|
|
|
|
|
|
|- ^- tape
|
|
|
|
|
|
?~ kay ~
|
|
|
|
|
|
;: welp
|
|
|
|
|
|
(en-urlt (trip p.i.kay))
|
|
|
|
|
|
?~(q.i.kay ~ ['=' (en-urlt (trip q.i.kay))])
|
|
|
|
|
|
?~(t.kay ~ `tape`['&' $(kay t.kay)])
|
|
|
|
|
|
==
|
|
|
|
|
|
-- ::
|
|
|
|
|
|
:: :: ++de-purl:html
|
|
|
|
|
|
++ de-purl :: url+header parser
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=< |=(a/cord `(unit purl)`(rush a auri))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++deft:de-purl:html
|
2016-12-07 06:14:39 +03:00
|
|
|
|
++ deft :: parse url extension
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= rax/(list @t)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|- ^- pork
|
|
|
|
|
|
?~ rax
|
|
|
|
|
|
[~ ~]
|
|
|
|
|
|
?^ t.rax
|
|
|
|
|
|
[p.pok [ire q.pok]]:[pok=$(rax t.rax) ire=i.rax]
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=+ ^- raf/(like term)
|
|
|
|
|
|
=> |=(a/@ ((sand %tas) (crip (flop (trip a)))))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(;~(sfix (sear . sym) dot) [1^1 (flop (trip i.rax))])
|
|
|
|
|
|
?~ q.raf
|
|
|
|
|
|
[~ [i.rax ~]]
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=+ `{ext/term {@ @} fyl/tape}`u.q.raf
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:- `ext
|
|
|
|
|
|
?:(=(~ fyl) ~ [(crip (flop fyl)) ~])
|
|
|
|
|
|
:: :: ++apat:de-purl:html
|
|
|
|
|
|
++ apat :: 2396 abs_path
|
|
|
|
|
|
%+ cook deft
|
2018-08-16 04:37:13 +03:00
|
|
|
|
(ifix [net ;~(pose net (easy ~))] (more net smeg))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++aurf:de-purl:html
|
|
|
|
|
|
++ aurf :: 2396 with fragment
|
2017-10-25 05:04:45 +03:00
|
|
|
|
%+ cook |~(a/purf a)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
;~(plug auri (punt ;~(pfix hax (cook crip (star pque)))))
|
|
|
|
|
|
:: :: ++auri:de-purl:html
|
|
|
|
|
|
++ auri :: 2396 URL
|
|
|
|
|
|
;~ plug
|
|
|
|
|
|
;~(plug htts thor)
|
|
|
|
|
|
;~(plug ;~(pose apat (easy *pork)) yque)
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++auru:de-purl:html
|
|
|
|
|
|
++ auru :: 2396 with maybe user
|
|
|
|
|
|
%+ cook
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= $: a/{p/? q/(unit user) r/{(unit @ud) host}}
|
|
|
|
|
|
b/{pork quay}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
==
|
|
|
|
|
|
^- (pair (unit user) purl)
|
|
|
|
|
|
[q.a [[p.a r.a] b]]
|
|
|
|
|
|
::
|
|
|
|
|
|
;~ plug
|
2018-08-16 04:37:13 +03:00
|
|
|
|
;~(plug htts (punt ;~(sfix urt:ab vat)) thor)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
;~(plug ;~(pose apat (easy *pork)) yque)
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++htts:de-purl:html
|
|
|
|
|
|
++ htts :: scheme
|
|
|
|
|
|
%+ sear ~(get by (malt `(list (pair term ?))`[http+| https+& ~]))
|
2018-08-16 04:37:13 +03:00
|
|
|
|
;~(sfix scem ;~(plug col net net))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++cock:de-purl:html
|
|
|
|
|
|
++ cock :: cookie
|
2018-08-16 04:37:13 +03:00
|
|
|
|
%+ most ;~(plug mic ace)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
;~(plug toke ;~(pfix tis tosk))
|
|
|
|
|
|
:: :: ++dlab:de-purl:html
|
|
|
|
|
|
++ dlab :: 2396 domainlabel
|
|
|
|
|
|
%+ sear
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/@ta
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?.(=('-' (rsh 3 (dec (met 3 a)) a)) [~ u=a] ~)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
%+ cook |=(a/tape (crip (cass a)))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
;~(plug aln (star alp))
|
|
|
|
|
|
:: :: ++fque:de-purl:html
|
|
|
|
|
|
++ fque :: normal query field
|
|
|
|
|
|
(cook crip (plus pquo))
|
|
|
|
|
|
:: :: ++fquu:de-purl:html
|
|
|
|
|
|
++ fquu :: optional query field
|
|
|
|
|
|
(cook crip (star pquo))
|
|
|
|
|
|
:: :: ++pcar:de-purl:html
|
|
|
|
|
|
++ pcar :: 2396 path char
|
2018-08-16 04:37:13 +03:00
|
|
|
|
;~(pose pure pesc psub col vat)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++pcok:de-purl:html
|
|
|
|
|
|
++ pcok :: cookie char
|
2018-08-16 04:37:13 +03:00
|
|
|
|
;~(less bas mic com yel prn)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++pesc:de-purl:html
|
|
|
|
|
|
++ pesc :: 2396 escaped
|
|
|
|
|
|
;~(pfix cen mes)
|
|
|
|
|
|
:: :: ++pold:de-purl:html
|
|
|
|
|
|
++ pold ::
|
|
|
|
|
|
(cold ' ' (just '+'))
|
|
|
|
|
|
:: :: ++pque:de-purl:html
|
|
|
|
|
|
++ pque :: 3986 query char
|
2018-08-16 04:37:13 +03:00
|
|
|
|
;~(pose pcar net wut)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++pquo:de-purl:html
|
|
|
|
|
|
++ pquo :: normal query char
|
2018-09-25 20:26:26 +03:00
|
|
|
|
;~(pose pure pesc pold net wut col)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++pure:de-purl:html
|
|
|
|
|
|
++ pure :: 2396 unreserved
|
|
|
|
|
|
;~(pose aln hep dot cab sig)
|
|
|
|
|
|
:: :: ++psub:de-purl:html
|
|
|
|
|
|
++ psub :: 3986 sub-delims
|
|
|
|
|
|
;~ pose
|
2018-08-16 04:37:13 +03:00
|
|
|
|
zap bus pad say lit rit
|
|
|
|
|
|
tar lus com mic tis
|
2016-12-02 04:17:02 +03:00
|
|
|
|
==
|
|
|
|
|
|
:: :: ++ptok:de-purl:html
|
|
|
|
|
|
++ ptok :: 2616 token
|
|
|
|
|
|
;~ pose
|
2018-08-16 04:37:13 +03:00
|
|
|
|
aln zap hax bus cen pad say tar lus
|
2016-12-02 04:17:02 +03:00
|
|
|
|
hep dot ket cab tec bar sig
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++scem:de-purl:html
|
|
|
|
|
|
++ scem :: 2396 scheme
|
2017-10-25 05:04:45 +03:00
|
|
|
|
%+ cook |=(a/tape (crip (cass a)))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
;~(plug alf (star ;~(pose aln lus hep dot)))
|
|
|
|
|
|
:: :: ++smeg:de-purl:html
|
|
|
|
|
|
++ smeg :: 2396 segment
|
|
|
|
|
|
(cook crip (plus pcar))
|
|
|
|
|
|
:: :: ++tock:de-purl:html
|
|
|
|
|
|
++ tock :: 6265 raw value
|
|
|
|
|
|
(cook crip (plus pcok))
|
|
|
|
|
|
:: :: ++tosk:de-purl:html
|
|
|
|
|
|
++ tosk :: 6265 quoted value
|
2018-08-16 04:37:13 +03:00
|
|
|
|
;~(pose tock (ifix [yel yel] tock))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++toke:de-purl:html
|
|
|
|
|
|
++ toke :: 2616 token
|
|
|
|
|
|
(cook crip (plus ptok))
|
|
|
|
|
|
:: :: ++thor:de-purl:html
|
|
|
|
|
|
++ thor :: 2396 host+port
|
2017-10-25 05:04:45 +03:00
|
|
|
|
%+ cook |*({* *} [+<+ +<-])
|
2016-12-02 04:17:02 +03:00
|
|
|
|
;~ plug
|
|
|
|
|
|
thos
|
|
|
|
|
|
;~((bend) (easy ~) ;~(pfix col dim:ag))
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++thos:de-purl:html
|
|
|
|
|
|
++ thos :: 2396 host, no local
|
|
|
|
|
|
;~ plug
|
|
|
|
|
|
;~ pose
|
|
|
|
|
|
%+ stag %&
|
2016-12-07 06:14:39 +03:00
|
|
|
|
%+ sear :: LL parser weak here
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/(list @t)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ b=(flop a)
|
|
|
|
|
|
?> ?=(^ b)
|
|
|
|
|
|
=+ c=(end 3 1 i.b)
|
|
|
|
|
|
?.(&((gte c 'a') (lte c 'z')) ~ [~ u=b])
|
|
|
|
|
|
(most dot dlab)
|
|
|
|
|
|
::
|
|
|
|
|
|
%+ stag %|
|
|
|
|
|
|
=+ tod=(ape:ag ted:ab)
|
|
|
|
|
|
%+ bass 256
|
|
|
|
|
|
;~(plug tod (stun [3 3] ;~(pfix dot tod)))
|
|
|
|
|
|
==
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++yque:de-purl:html
|
|
|
|
|
|
++ yque :: query ending
|
|
|
|
|
|
;~ pose
|
|
|
|
|
|
;~(pfix wut yquy)
|
|
|
|
|
|
(easy ~)
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++yquy:de-purl:html
|
|
|
|
|
|
++ yquy :: query
|
|
|
|
|
|
;~ pose
|
|
|
|
|
|
:: proper query
|
|
|
|
|
|
::
|
|
|
|
|
|
%+ more
|
2018-08-16 04:37:13 +03:00
|
|
|
|
;~(pose pad mic)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
;~(plug fque ;~(pose ;~(pfix tis fquu) (easy '')))
|
|
|
|
|
|
::
|
|
|
|
|
|
:: funky query
|
|
|
|
|
|
::
|
|
|
|
|
|
%+ cook
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|=(a/tape [[%$ (crip a)] ~])
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(star pque)
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++zest:de-purl:html
|
|
|
|
|
|
++ zest :: 2616 request-uri
|
|
|
|
|
|
;~ pose
|
2017-10-25 05:04:45 +03:00
|
|
|
|
(stag %& (cook |=(a/purl a) auri))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(stag %| ;~(plug apat yque))
|
|
|
|
|
|
==
|
|
|
|
|
|
-- ::de-purl
|
|
|
|
|
|
:: MOVEME
|
|
|
|
|
|
:: :: ++fuel:html
|
|
|
|
|
|
++ fuel :: parse urbit fcgi
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {bem/beam ced/noun:cred quy/quer}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- epic
|
|
|
|
|
|
=+ qix=|-(`quay`?~(quy quy [[p q]:quy $(quy t.quy)]))
|
2017-11-27 23:51:34 +03:00
|
|
|
|
[(malt qix) ((hard cred) ced) bem]
|
2016-12-02 04:17:02 +03:00
|
|
|
|
-- ::eyre
|
|
|
|
|
|
:: ::
|
2016-12-07 06:14:39 +03:00
|
|
|
|
:::: ++wired :: wire formatting
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: ::::
|
|
|
|
|
|
++ wired ^?
|
|
|
|
|
|
|%
|
2017-04-30 06:42:07 +03:00
|
|
|
|
::
|
|
|
|
|
|
++ auld :: ++auld:wired
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= sky/roof :: old style namespace
|
2017-04-30 06:42:07 +03:00
|
|
|
|
^- slyt
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {ref/* raw/*}
|
2017-04-30 06:42:07 +03:00
|
|
|
|
=+ pux=((soft path) raw)
|
|
|
|
|
|
?~ pux ~
|
2017-10-25 05:04:45 +03:00
|
|
|
|
?. ?=({@ @ @ @ *} u.pux) ~
|
2017-04-30 06:42:07 +03:00
|
|
|
|
=+ :* hyr=(slay i.u.pux)
|
|
|
|
|
|
fal=(slay i.t.u.pux)
|
|
|
|
|
|
dyc=(slay i.t.t.u.pux)
|
|
|
|
|
|
ved=(slay i.t.t.t.u.pux)
|
|
|
|
|
|
tyl=t.t.t.t.u.pux
|
|
|
|
|
|
==
|
2018-08-16 04:05:30 +03:00
|
|
|
|
?. ?=({~ $$ $tas @} hyr) ~
|
|
|
|
|
|
?. ?=({~ $$ $p @} fal) ~
|
|
|
|
|
|
?. ?=({~ $$ $tas @} dyc) ~
|
2017-04-30 06:42:07 +03:00
|
|
|
|
?. ?=(^ ved) ~
|
|
|
|
|
|
=+ ron=q.p.u.hyr
|
|
|
|
|
|
=+ bed=[[q.p.u.fal q.p.u.dyc (case p.u.ved)] (flop tyl)]
|
|
|
|
|
|
=+ bop=(sky ref ~ ron bed)
|
|
|
|
|
|
?~ bop ~
|
|
|
|
|
|
?~ u.bop [~ ~]
|
|
|
|
|
|
[~ ~ +.q.u.u.bop]
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++dray:wired
|
|
|
|
|
|
++ dray :: load tuple in path
|
|
|
|
|
|
::
|
|
|
|
|
|
:: .= ~[p=~.ack q=~.~sarnel r=~..y]
|
|
|
|
|
|
:: (dray ~[p=%tas q=%p r=%f] %ack ~sarnel &)
|
|
|
|
|
|
::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=- |* {a/{@tas (pole @tas)} b/*} ^- (paf a)
|
2017-10-25 02:50:11 +03:00
|
|
|
|
=> .(b `,(tup -.a +.a)`b)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?~ +.a [(scot -.a b) ~]
|
2017-10-25 02:50:11 +03:00
|
|
|
|
[(scot -.a -.b) `,(paf +.a)`(..$ +.a +.b)]
|
2017-10-25 05:04:45 +03:00
|
|
|
|
:- paf=|*(a/(pole) ?~(a $~ {(odo:raid ,-.a(. %ta)) ,(..$ +.a)}))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^= tup
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* {a/@tas b/(pole @tas)}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=+ c=(odo:raid a)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
?~(b c {c (..$ ,-.b ,+.b)})
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++raid:wired
|
|
|
|
|
|
++ raid :: demand path odors
|
|
|
|
|
|
::
|
|
|
|
|
|
:: .= [p=%ack q=~sarnel r=&]
|
2017-10-25 05:04:45 +03:00
|
|
|
|
:: (raid /ack/~sarnel+.y p=%tas q=%p r=%f ~)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=- |* {a/path b/{@tas (pole @tas)}}
|
2017-03-31 23:42:51 +03:00
|
|
|
|
=* fog (odo -.b)
|
|
|
|
|
|
?~ +.b `fog`(slav -.b -.a)
|
|
|
|
|
|
[`fog`(slav -.b -.a) (..$ +.a +.b)]
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^= odo
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* a/@tas
|
|
|
|
|
|
|= b/*
|
2017-12-07 08:27:29 +03:00
|
|
|
|
=- a(, (- b)) :: preserve face
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?+ a @
|
2017-10-25 05:04:45 +03:00
|
|
|
|
$c @c $da @da $dr @dr $f @f $if @if $is @is $p @p
|
|
|
|
|
|
$u @u $uc @uc $ub @ub $ui @ui $ux @ux $uv @uv $uw @uw
|
|
|
|
|
|
$s @s $t @t $ta @ta $tas @tas
|
2016-12-02 04:17:02 +03:00
|
|
|
|
==
|
2017-09-07 01:17:37 +03:00
|
|
|
|
:: :: :: ++read:wired
|
|
|
|
|
|
:: ++ read :: parse odored path
|
2017-10-25 05:04:45 +03:00
|
|
|
|
:: =< |*({a/path b/{@tas (pole @tas)}} ((+> b) a))
|
|
|
|
|
|
:: |* b/{@tas (pole @tas)}
|
|
|
|
|
|
:: |= a/path
|
2017-09-07 01:17:37 +03:00
|
|
|
|
:: ?~ a ~
|
|
|
|
|
|
:: =+ hed=(slaw -.b i.a)
|
|
|
|
|
|
:: =* fog (odo:raid -.b)
|
|
|
|
|
|
:: ?~ +.b
|
|
|
|
|
|
:: ^- (unit fog)
|
|
|
|
|
|
:: ?^(+.a ~ hed)
|
2017-10-25 05:04:45 +03:00
|
|
|
|
:: ^- (unit {fog _(need *(..^$ +.b))})
|
2017-09-07 01:17:37 +03:00
|
|
|
|
:: (both hed ((..^$ +.b) +.a))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
-- ::wired
|
|
|
|
|
|
:: ::
|
2016-12-07 06:14:39 +03:00
|
|
|
|
:::: ++title :: (2j) namespace
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: ::::
|
2018-10-15 09:23:34 +03:00
|
|
|
|
++ title
|
|
|
|
|
|
=> |%
|
|
|
|
|
|
:: :: ++clan:title
|
|
|
|
|
|
++ clan :: ship to rank
|
|
|
|
|
|
|= who=ship
|
|
|
|
|
|
^- rank
|
|
|
|
|
|
=/ wid (met 3 who)
|
|
|
|
|
|
?: (lte wid 1) %czar
|
|
|
|
|
|
?: =(2 wid) %king
|
|
|
|
|
|
?: (lte wid 4) %duke
|
|
|
|
|
|
?: (lte wid 8) %earl
|
|
|
|
|
|
?> (lte wid 16) %pawn
|
|
|
|
|
|
:: :: ++rank:title
|
|
|
|
|
|
+$ rank ?(%czar %king %duke %earl %pawn) :: ship width class
|
|
|
|
|
|
:: :: ++saxo:title
|
|
|
|
|
|
++ saxo :: autocanon
|
|
|
|
|
|
|= who=ship
|
|
|
|
|
|
^- (list ship)
|
|
|
|
|
|
=/ dad (sein who)
|
|
|
|
|
|
[who ?:(=(who dad) ~ $(who dad))]
|
|
|
|
|
|
:: :: ++sein:title
|
|
|
|
|
|
++ sein :: autoboss
|
|
|
|
|
|
|= who=ship
|
|
|
|
|
|
^- ship
|
|
|
|
|
|
=/ mir (clan who)
|
|
|
|
|
|
?- mir
|
|
|
|
|
|
$czar who
|
|
|
|
|
|
$king (end 3 1 who)
|
|
|
|
|
|
$duke (end 4 1 who)
|
|
|
|
|
|
$earl (end 5 1 who)
|
2018-10-15 23:05:55 +03:00
|
|
|
|
$pawn (end 4 1 who)
|
2018-10-15 09:23:34 +03:00
|
|
|
|
==
|
|
|
|
|
|
--
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++cite:title
|
|
|
|
|
|
++ cite :: render ship
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= who/@p
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- tape
|
|
|
|
|
|
=+ kind=(clan who)
|
|
|
|
|
|
=+ name=(scow %p who)
|
|
|
|
|
|
?: =(%earl kind)
|
|
|
|
|
|
:(weld "~" (swag [15 6] name) "^" (swag [22 6] name))
|
|
|
|
|
|
?: =(%pawn kind)
|
|
|
|
|
|
:(weld (swag [0 7] name) "_" (swag [51 6] name))
|
|
|
|
|
|
name
|
|
|
|
|
|
:: :: ++saxo:title
|
|
|
|
|
|
++ saxo :: autocanon
|
2018-10-15 09:23:34 +03:00
|
|
|
|
|= [our=ship now=@da who=ship]
|
|
|
|
|
|
.^ (list ship)
|
|
|
|
|
|
%j
|
|
|
|
|
|
/(scot %p our)/saxo/(scot %da now)/(scot %p who)
|
|
|
|
|
|
==
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++sein:title
|
|
|
|
|
|
++ sein :: autoboss
|
2018-10-15 09:23:34 +03:00
|
|
|
|
|= [our=ship now=@da who=ship]
|
|
|
|
|
|
.^ ship
|
|
|
|
|
|
%j
|
|
|
|
|
|
/(scot %p our)/sein/(scot %da now)/(scot %p who)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
==
|
|
|
|
|
|
:: :: ++team:title
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ team :: our / our moon
|
2018-10-15 09:23:34 +03:00
|
|
|
|
|= [our=ship who=ship]
|
|
|
|
|
|
^- ?
|
|
|
|
|
|
?| =(our who)
|
|
|
|
|
|
&(?=($earl (clan who)) =(our (^sein who)))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
==
|
|
|
|
|
|
-- ::title
|
|
|
|
|
|
:: ::
|
2017-06-09 02:57:38 +03:00
|
|
|
|
:::: ++milly :: (2k) milliseconds
|
|
|
|
|
|
:: ::::
|
2018-11-29 21:49:08 +03:00
|
|
|
|
++ milly ^|
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|_ now/@da
|
2017-06-09 02:57:38 +03:00
|
|
|
|
:: :: ++around:milly
|
|
|
|
|
|
++ around :: relative msec
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= wen/@da
|
2017-06-09 02:57:38 +03:00
|
|
|
|
^- @tas
|
|
|
|
|
|
?: =(wen now) %now
|
|
|
|
|
|
?: (gth wen now)
|
|
|
|
|
|
(cat 3 (scot %ud (msec (sub wen now))) %ms)
|
|
|
|
|
|
(cat 3 '-' $(now wen, wen now))
|
2019-01-18 08:37:34 +03:00
|
|
|
|
::
|
2017-06-09 02:57:38 +03:00
|
|
|
|
++ about :: ++about:milly
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= wun/(unit @da) :: unit relative msec
|
2017-06-09 02:57:38 +03:00
|
|
|
|
^- @tas
|
|
|
|
|
|
?~(wun %no (around u.wun))
|
|
|
|
|
|
:: :: ++mill:milly
|
|
|
|
|
|
++ mill :: msec diff
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= one/@dr
|
2017-06-09 02:57:38 +03:00
|
|
|
|
^- @tas
|
|
|
|
|
|
?: =(`@`0 one) '0ms'
|
|
|
|
|
|
(cat 3 (scot %ud (msec one)) %ms)
|
|
|
|
|
|
:: :: ++msec:milly
|
|
|
|
|
|
++ msec :: @dr to @ud ms
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|=(a/@dr `@ud`(div a (div ~s1 1.000)))
|
2017-06-09 02:57:38 +03:00
|
|
|
|
:: :: ++mull:milly
|
|
|
|
|
|
++ mull :: unit msec diff
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= une/(unit @dr)
|
2017-06-09 02:57:38 +03:00
|
|
|
|
^- @tas
|
|
|
|
|
|
?~(une %no (mill u.une))
|
|
|
|
|
|
--
|
2018-08-28 00:51:42 +03:00
|
|
|
|
::
|
|
|
|
|
|
::::
|
|
|
|
|
|
::
|
|
|
|
|
|
++ contain ^?
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: +by-clock: interface core for a cache using the clock replacement algorithm
|
|
|
|
|
|
::
|
|
|
|
|
|
:: Presents an interface for a mapping, but somewhat specialized, and with
|
|
|
|
|
|
:: stateful accessors. The clock's :depth parameter is used as the maximum
|
|
|
|
|
|
:: freshness that an entry can have. The standard clock algorithm has a depth
|
|
|
|
|
|
:: of 1, meaning that a single sweep of the arm will delete the entry. For
|
|
|
|
|
|
:: more scan resistance, :depth can be set to a higher number.
|
|
|
|
|
|
::
|
|
|
|
|
|
:: Internally, :clock maintains a :lookup of type
|
|
|
|
|
|
:: `(map key-type [val=val-type fresh=@ud])`, where :depth.clock is the
|
|
|
|
|
|
:: maximum value of :fresh. Looking up a key increments its freshness, and a
|
|
|
|
|
|
:: sweep of the clock arm decrements its freshness.
|
|
|
|
|
|
::
|
|
|
|
|
|
:: The clock arm is stored as :queue, which is a `(qeu key-type)`. The head
|
|
|
|
|
|
:: of the queue represents the position of the clock arm. New entries are
|
|
|
|
|
|
:: inserted at the tail of the queue. When the clock arm sweeps, it
|
|
|
|
|
|
:: pops the head off the queue. If the :fresh of the head's entry in :lookup
|
|
|
|
|
|
:: is 0, remove the entry from the mapping and replace it with the new entry.
|
|
|
|
|
|
:: Otherwise, decrement the entry's freshness, put it back at the tail of
|
|
|
|
|
|
:: the queue, and pop the next head off the queue and try again.
|
|
|
|
|
|
::
|
|
|
|
|
|
:: Cache entries must be immutable: a key cannot be overwritten with a new
|
|
|
|
|
|
:: value. This property is enforced for entries currently stored in the
|
|
|
|
|
|
:: cache, but it is not enforced for previously deleted entries, since we
|
|
|
|
|
|
:: no longer remember what that key's value was supposed to be.
|
|
|
|
|
|
::
|
|
|
|
|
|
++ by-clock
|
|
|
|
|
|
|* [key-type=mold val-type=mold]
|
|
|
|
|
|
|_ clock=(clock key-type val-type)
|
|
|
|
|
|
:: +get: looks up a key, marking it as fresh
|
|
|
|
|
|
::
|
|
|
|
|
|
++ get
|
|
|
|
|
|
|= key=key-type
|
|
|
|
|
|
^- [(unit val-type) _clock]
|
|
|
|
|
|
::
|
|
|
|
|
|
=+ maybe-got=(~(get by lookup.clock) key)
|
|
|
|
|
|
?~ maybe-got
|
|
|
|
|
|
[~ clock]
|
|
|
|
|
|
::
|
|
|
|
|
|
=. clock (freshen key)
|
|
|
|
|
|
::
|
|
|
|
|
|
[`val.u.maybe-got clock]
|
|
|
|
|
|
:: +put: add a new cache entry, possibly removing an old one
|
|
|
|
|
|
::
|
|
|
|
|
|
++ put
|
|
|
|
|
|
|= [key=key-type val=val-type]
|
|
|
|
|
|
^+ clock
|
|
|
|
|
|
:: do nothing if our size is 0 so we don't decrement-underflow
|
|
|
|
|
|
::
|
|
|
|
|
|
?: =(0 max-size.clock)
|
|
|
|
|
|
clock
|
|
|
|
|
|
:: no overwrite allowed, but allow duplicate puts
|
|
|
|
|
|
::
|
|
|
|
|
|
?^ existing=(~(get by lookup.clock) key)
|
|
|
|
|
|
:: val must not change
|
|
|
|
|
|
::
|
|
|
|
|
|
?> =(val val.u.existing)
|
|
|
|
|
|
::
|
|
|
|
|
|
(freshen key)
|
|
|
|
|
|
::
|
|
|
|
|
|
=? clock =(max-size.clock size.clock)
|
|
|
|
|
|
evict
|
|
|
|
|
|
::
|
|
|
|
|
|
%_ clock
|
|
|
|
|
|
size +(size.clock)
|
|
|
|
|
|
lookup (~(put by lookup.clock) key [val 1])
|
|
|
|
|
|
queue (~(put to queue.clock) key)
|
|
|
|
|
|
==
|
|
|
|
|
|
:: +freshen: increment the protection level on an entry
|
|
|
|
|
|
::
|
|
|
|
|
|
++ freshen
|
|
|
|
|
|
|= key=key-type
|
|
|
|
|
|
^+ clock
|
|
|
|
|
|
%_ clock
|
|
|
|
|
|
lookup
|
|
|
|
|
|
%+ ~(jab by lookup.clock) key
|
|
|
|
|
|
|= entry=[val=val-type fresh=@ud]
|
|
|
|
|
|
entry(fresh (min +(fresh.entry) depth.clock))
|
|
|
|
|
|
==
|
|
|
|
|
|
:: +resize: changes the maximum size, removing entries if needed
|
|
|
|
|
|
::
|
|
|
|
|
|
++ resize
|
|
|
|
|
|
|= new-max=@ud
|
|
|
|
|
|
^+ clock
|
|
|
|
|
|
::
|
|
|
|
|
|
=. max-size.clock new-max
|
|
|
|
|
|
::
|
|
|
|
|
|
?: (gte new-max size.clock)
|
|
|
|
|
|
clock
|
|
|
|
|
|
::
|
|
|
|
|
|
(trim (sub size.clock new-max))
|
|
|
|
|
|
:: +evict: remove an entry from the cache
|
|
|
|
|
|
::
|
|
|
|
|
|
++ evict
|
|
|
|
|
|
^+ clock
|
|
|
|
|
|
::
|
|
|
|
|
|
=. size.clock (dec size.clock)
|
|
|
|
|
|
::
|
|
|
|
|
|
|-
|
|
|
|
|
|
^+ clock
|
|
|
|
|
|
::
|
|
|
|
|
|
=^ old-key queue.clock ~(get to queue.clock)
|
|
|
|
|
|
=/ old-entry (~(got by lookup.clock) old-key)
|
|
|
|
|
|
::
|
|
|
|
|
|
?: =(0 fresh.old-entry)
|
|
|
|
|
|
clock(lookup (~(del by lookup.clock) old-key))
|
|
|
|
|
|
::
|
|
|
|
|
|
%_ $
|
|
|
|
|
|
lookup.clock
|
|
|
|
|
|
(~(put by lookup.clock) old-key old-entry(fresh (dec fresh.old-entry)))
|
|
|
|
|
|
::
|
|
|
|
|
|
queue.clock
|
|
|
|
|
|
(~(put to queue.clock) old-key)
|
|
|
|
|
|
==
|
|
|
|
|
|
:: +trim: remove :count entries from the cache
|
|
|
|
|
|
::
|
|
|
|
|
|
++ trim
|
|
|
|
|
|
|= count=@ud
|
|
|
|
|
|
^+ clock
|
|
|
|
|
|
?: =(0 count)
|
|
|
|
|
|
clock
|
|
|
|
|
|
$(count (dec count), clock evict)
|
|
|
|
|
|
:: +purge: removes all cache entries
|
|
|
|
|
|
::
|
|
|
|
|
|
++ purge
|
|
|
|
|
|
^+ clock
|
|
|
|
|
|
%_ clock
|
|
|
|
|
|
lookup ~
|
|
|
|
|
|
queue ~
|
|
|
|
|
|
size 0
|
|
|
|
|
|
==
|
|
|
|
|
|
--
|
2018-08-28 01:25:33 +03:00
|
|
|
|
:: +to-capped-queue: interface door for +capped-queue
|
|
|
|
|
|
::
|
|
|
|
|
|
:: Provides a queue of a limited size where pushing additional items will
|
|
|
|
|
|
:: force pop the items at the front of the queue.
|
|
|
|
|
|
::
|
|
|
|
|
|
++ to-capped-queue
|
|
|
|
|
|
|* item-type=mold
|
|
|
|
|
|
|_ queue=(capped-queue item-type)
|
|
|
|
|
|
:: +put: enqueue :item, possibly popping and producing an old item
|
|
|
|
|
|
::
|
|
|
|
|
|
++ put
|
|
|
|
|
|
|= item=item-type
|
|
|
|
|
|
^- [(unit item-type) _queue]
|
|
|
|
|
|
:: are we already at max capacity?
|
|
|
|
|
|
::
|
|
|
|
|
|
?. =(size.queue max-size.queue)
|
|
|
|
|
|
:: we're below max capacity, so push and increment size
|
|
|
|
|
|
::
|
|
|
|
|
|
=. queue.queue (~(put to queue.queue) item)
|
|
|
|
|
|
=. size.queue +(size.queue)
|
|
|
|
|
|
::
|
|
|
|
|
|
[~ queue]
|
|
|
|
|
|
:: we're at max capacity, so pop before pushing; size is unchanged
|
|
|
|
|
|
::
|
|
|
|
|
|
=^ oldest queue.queue ~(get to queue.queue)
|
|
|
|
|
|
=. queue.queue (~(put to queue.queue) item)
|
|
|
|
|
|
::
|
|
|
|
|
|
[`oldest queue]
|
|
|
|
|
|
:: +get: pop an item off the queue, adjusting size
|
|
|
|
|
|
::
|
|
|
|
|
|
++ get
|
|
|
|
|
|
^- [item-type _queue]
|
|
|
|
|
|
::
|
|
|
|
|
|
=. size.queue (dec size.queue)
|
|
|
|
|
|
=^ oldest queue.queue ~(get to queue.queue)
|
|
|
|
|
|
::
|
|
|
|
|
|
[oldest queue]
|
|
|
|
|
|
:: change the :max-size of the queue, popping items if necessary
|
|
|
|
|
|
::
|
|
|
|
|
|
++ resize
|
|
|
|
|
|
=| pops=(list item-type)
|
|
|
|
|
|
|= new-max=@ud
|
|
|
|
|
|
^+ [pops queue]
|
|
|
|
|
|
:: we're not overfull, so no need to pop off more items
|
|
|
|
|
|
::
|
|
|
|
|
|
?: (gte new-max size.queue)
|
|
|
|
|
|
[(flop pops) queue(max-size new-max)]
|
|
|
|
|
|
:: we're above capacity; pop an item off and recurse
|
|
|
|
|
|
::
|
|
|
|
|
|
=^ oldest queue get
|
|
|
|
|
|
::
|
|
|
|
|
|
$(pops [oldest pops])
|
|
|
|
|
|
--
|
2018-08-28 00:51:42 +03:00
|
|
|
|
--
|
2017-06-09 02:57:38 +03:00
|
|
|
|
:: ::
|
2016-12-07 06:14:39 +03:00
|
|
|
|
:::: ++userlib :: (2u) non-vane utils
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ userlib ^?
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
|
|
|
|
|
:: ::
|
2016-12-07 06:14:39 +03:00
|
|
|
|
:::: ++chrono:userlib :: (2uB) time
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::::
|
|
|
|
|
|
++ chrono ^?
|
|
|
|
|
|
|%
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++dawn:chrono:
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ dawn :: Jan 1 weekday
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= yer/@ud
|
2016-11-24 07:25:07 +03:00
|
|
|
|
=+ yet=(sub yer 1)
|
|
|
|
|
|
%- mod :_ 7
|
|
|
|
|
|
;: add
|
2016-12-02 04:17:02 +03:00
|
|
|
|
1
|
|
|
|
|
|
(mul 5 (mod yet 4))
|
|
|
|
|
|
(mul 4 (mod yet 100))
|
2016-11-24 07:25:07 +03:00
|
|
|
|
(mul 6 (mod yet 400))
|
|
|
|
|
|
==
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++daws:chrono:
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ daws :: date weekday
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= yed/date
|
2016-11-24 07:25:07 +03:00
|
|
|
|
%- mod :_ 7
|
|
|
|
|
|
%+ add
|
2016-12-02 04:17:02 +03:00
|
|
|
|
(dawn y.yed)
|
2016-11-24 07:25:07 +03:00
|
|
|
|
(sub (yawn [y.yed m.yed d.t.yed]) (yawn y.yed 1 1))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++deal:chrono:
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ deal :: to leap sec time
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= yer/@da
|
2016-11-24 07:25:07 +03:00
|
|
|
|
=+ n=0
|
|
|
|
|
|
=+ yud=(yore yer)
|
|
|
|
|
|
|- ^- date
|
|
|
|
|
|
?: (gte yer (add (snag n lef:yu) ~s1))
|
|
|
|
|
|
(yore (year yud(s.t (add n s.t.yud))))
|
|
|
|
|
|
?: &((gte yer (snag n lef:yu)) (lth yer (add (snag n lef:yu) ~s1)))
|
|
|
|
|
|
yud(s.t (add +(n) s.t.yud))
|
|
|
|
|
|
?: =(+(n) (lent lef:yu))
|
|
|
|
|
|
(yore (year yud(s.t (add +(n) s.t.yud))))
|
|
|
|
|
|
$(n +(n))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++lead:chrono:
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ lead :: from leap sec time
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= ley/date
|
2016-11-24 07:25:07 +03:00
|
|
|
|
=+ ler=(year ley)
|
|
|
|
|
|
=+ n=0
|
|
|
|
|
|
|- ^- @da
|
|
|
|
|
|
=+ led=(sub ler (mul n ~s1))
|
|
|
|
|
|
?: (gte ler (add (snag n les:yu) ~s1))
|
|
|
|
|
|
led
|
|
|
|
|
|
?: &((gte ler (snag n les:yu)) (lth ler (add (snag n les:yu) ~s1)))
|
|
|
|
|
|
?: =(s.t.ley 60)
|
|
|
|
|
|
(sub led ~s1)
|
|
|
|
|
|
led
|
|
|
|
|
|
?: =(+(n) (lent les:yu))
|
|
|
|
|
|
(sub led ~s1)
|
|
|
|
|
|
$(n +(n))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++dust:chrono:
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ dust :: print UTC format
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= yed/date
|
2016-11-24 07:25:07 +03:00
|
|
|
|
^- tape
|
|
|
|
|
|
=+ wey=(daws yed)
|
2016-12-02 23:30:20 +03:00
|
|
|
|
=/ num (d-co:co 1) :: print as decimal without dots
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=/ pik |=({n/@u t/wall} `tape`(scag 3 (snag n t)))
|
2016-12-02 23:30:20 +03:00
|
|
|
|
::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
"{(pik wey wik:yu)}, ".
|
|
|
|
|
|
"{(num d.t.yed)} {(pik (dec m.yed) mon:yu)} {(num y.yed)} ".
|
|
|
|
|
|
"{(num h.t.yed)}:{(num m.t.yed)}:{(num s.t.yed)} +0000"
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++stud:chrono:
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ stud :: parse UTC format
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=< |= a/cord :: expose parsers
|
2016-11-24 07:25:07 +03:00
|
|
|
|
%+ biff (rush a (more sepa elem))
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= b/(list _(wonk *elem)) ^- (unit date)
|
2017-09-07 02:46:30 +03:00
|
|
|
|
=- ?.((za:dejs:format -) ~ (some (zp:dejs:format -)))
|
2016-11-24 07:25:07 +03:00
|
|
|
|
^+ =+ [*date u=unit]
|
2018-08-16 04:05:30 +03:00
|
|
|
|
*{(u _[a y]) (u _m) (u _d.t) (u _+.t) ~}
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:~
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|-(?~(b ~ ?.(?=($y -.i.b) $(b t.b) `+.i.b)))
|
|
|
|
|
|
|-(?~(b ~ ?.(?=($m -.i.b) $(b t.b) `+.i.b)))
|
|
|
|
|
|
|-(?~(b ~ ?.(?=($d -.i.b) $(b t.b) `+.i.b)))
|
|
|
|
|
|
|-(?~(b ~ ?.(?=($t -.i.b) $(b t.b) `+.i.b)))
|
2016-11-24 07:25:07 +03:00
|
|
|
|
==
|
|
|
|
|
|
|%
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++snug:stud:chrono:
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ snug :: position in list
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/(list tape)
|
|
|
|
|
|
|= b/tape
|
2016-11-24 07:25:07 +03:00
|
|
|
|
=+ [pos=1 len=(lent b)]
|
|
|
|
|
|
|- ^- (unit @u)
|
|
|
|
|
|
?~ a ~
|
|
|
|
|
|
?: =(b (scag len i.a))
|
|
|
|
|
|
`pos
|
|
|
|
|
|
$(pos +(pos), a t.a)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++sepa:stud:chrono:
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ sepa :: separator
|
|
|
|
|
|
;~(pose ;~(plug com (star ace)) (plus ace))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++elem:stud:chrono:
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ elem :: date element
|
2016-12-02 04:17:02 +03:00
|
|
|
|
;~ pose
|
2016-11-24 07:25:07 +03:00
|
|
|
|
(stag %t t) (stag %y y) (stag %m m) (stag %d d)
|
|
|
|
|
|
(stag %w w) (stag %z z)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
==
|
|
|
|
|
|
:: :: ++y:stud:chrono:
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ y :: year
|
|
|
|
|
|
(stag %& (bass 10 (stun 3^4 dit)))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++m:stud:chrono:
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ m :: month
|
|
|
|
|
|
(sear (snug mon:yu) (plus alf))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++d:stud:chrono:
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ d :: day
|
|
|
|
|
|
(bass 10 (stun 1^2 dit))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++t:stud:chrono:
|
|
|
|
|
|
++ t :: hours:minutes:secs
|
2017-10-25 05:04:45 +03:00
|
|
|
|
%+ cook |=({h/@u @ m/@u @ s/@u} ~[h m s])
|
2016-12-02 04:17:02 +03:00
|
|
|
|
;~(plug d col d col d)
|
2016-11-24 07:25:07 +03:00
|
|
|
|
::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: XX day of week is currently unchecked, and
|
|
|
|
|
|
:: timezone outright ignored.
|
|
|
|
|
|
:: :: ++w:stud:chrono:
|
|
|
|
|
|
++ w :: day of week
|
2016-11-24 07:25:07 +03:00
|
|
|
|
(sear (snug wik:yu) (plus alf))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++z:stud:chrono:
|
|
|
|
|
|
++ z :: time zone
|
|
|
|
|
|
;~(plug (mask "-+") dd dd)
|
|
|
|
|
|
:: :: ++dd:stud:chrono:
|
|
|
|
|
|
++ dd :: two digits
|
|
|
|
|
|
(bass 10 (stun 2^2 dit))
|
2016-11-24 07:25:07 +03:00
|
|
|
|
-- ::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++unt:chrono:userlib
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ unt :: Urbit to Unix time
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= a/@
|
2016-11-24 07:25:07 +03:00
|
|
|
|
(div (sub a ~1970.1.1) ~s1)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++yu:chrono:userlib
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ yu :: UTC format constants
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: :: ++mon:yu:chrono:
|
|
|
|
|
|
++ mon :: months
|
|
|
|
|
|
^- (list tape)
|
|
|
|
|
|
:~ "January" "February" "March" "April" "May" "June" "July"
|
|
|
|
|
|
"August" "September" "October" "November" "December"
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++wik:yu:chrono:
|
|
|
|
|
|
++ wik :: weeks
|
|
|
|
|
|
^- (list tape)
|
|
|
|
|
|
:~ "Sunday" "Monday" "Tuesday" "Wednesday" "Thursday"
|
|
|
|
|
|
"Friday" "Saturday"
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++lef:yu:chrono:
|
|
|
|
|
|
++ lef :: leapsecond dates
|
|
|
|
|
|
^- (list @da)
|
|
|
|
|
|
:~ ~2015.6.30..23.59.59 ~2012.6.30..23.59.59
|
|
|
|
|
|
~2008.12.31..23.59.58 ~2005.12.31..23.59.57
|
|
|
|
|
|
~1998.12.31..23.59.56 ~1997.6.30..23.59.55
|
|
|
|
|
|
~1995.12.31..23.59.54 ~1994.6.30..23.59.53
|
|
|
|
|
|
~1993.6.30..23.59.52 ~1992.6.30..23.59.51
|
|
|
|
|
|
~1990.12.31..23.59.50 ~1989.12.31..23.59.49
|
|
|
|
|
|
~1987.12.31..23.59.48 ~1985.6.30..23.59.47
|
|
|
|
|
|
~1983.6.30..23.59.46 ~1982.6.30..23.59.45
|
|
|
|
|
|
~1981.6.30..23.59.44 ~1979.12.31..23.59.43
|
|
|
|
|
|
~1978.12.31..23.59.42 ~1977.12.31..23.59.41
|
|
|
|
|
|
~1976.12.31..23.59.40 ~1975.12.31..23.59.39
|
|
|
|
|
|
~1974.12.31..23.59.38 ~1973.12.31..23.59.37
|
|
|
|
|
|
~1972.12.31..23.59.36 ~1972.6.30..23.59.35
|
|
|
|
|
|
==
|
|
|
|
|
|
:: :: ++les:yu:chrono:
|
|
|
|
|
|
++ les :: leapsecond days
|
|
|
|
|
|
^- (list @da)
|
|
|
|
|
|
:~ ~2015.7.1 ~2012.7.1 ~2009.1.1 ~2006.1.1 ~1999.1.1 ~1997.7.1
|
|
|
|
|
|
~1996.1.1 ~1994.7.1 ~1993.7.1 ~1992.7.1 ~1991.1.1 ~1990.1.1
|
|
|
|
|
|
~1988.1.1 ~1985.7.1 ~1983.7.1 ~1982.7.1 ~1981.7.1 ~1980.1.1
|
|
|
|
|
|
~1979.1.1 ~1978.1.1 ~1977.1.1 ~1976.1.1 ~1975.1.1 ~1974.1.1
|
|
|
|
|
|
~1973.1.1 ~1972.7.1
|
|
|
|
|
|
==
|
|
|
|
|
|
-- ::yu
|
|
|
|
|
|
-- ::chrono
|
|
|
|
|
|
:: ::
|
2016-12-07 06:14:39 +03:00
|
|
|
|
:::: ++space:userlib :: (2uC) file utils
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::::
|
|
|
|
|
|
++ space ^?
|
2016-12-07 06:13:33 +03:00
|
|
|
|
=, clay
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++feel:space:userlib
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ feel :: simple file write
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {pax/path val/cage}
|
2016-11-24 07:25:07 +03:00
|
|
|
|
^- miso
|
|
|
|
|
|
=+ dir=.^(arch %cy pax)
|
|
|
|
|
|
?~ fil.dir [%ins val]
|
|
|
|
|
|
[%mut val]
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++file:space:userlib
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ file :: simple file load
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= pax/path
|
2016-11-24 07:25:07 +03:00
|
|
|
|
^- (unit)
|
|
|
|
|
|
=+ dir=.^(arch %cy pax)
|
|
|
|
|
|
?~(fil.dir ~ [~ .^(* %cx pax)])
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++foal:space:userlib
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ foal :: high-level write
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {pax/path val/cage}
|
2016-11-24 07:25:07 +03:00
|
|
|
|
^- toro
|
2017-10-25 05:04:45 +03:00
|
|
|
|
?> ?=({* * * *} pax)
|
2016-11-24 07:25:07 +03:00
|
|
|
|
[i.t.pax [%& [[[t.t.t.pax (feel pax val)] ~]]]]
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++fray:space:userlib
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ fray :: high-level delete
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= pax/path
|
2016-11-24 07:25:07 +03:00
|
|
|
|
^- toro
|
2017-10-25 05:04:45 +03:00
|
|
|
|
?> ?=({* * * *} pax)
|
2016-11-24 07:25:07 +03:00
|
|
|
|
[i.t.pax [%& [[[t.t.t.pax [%del ~]] ~]]]]
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++furl:space:userlib
|
2016-11-24 07:25:07 +03:00
|
|
|
|
++ furl :: unify changes
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {one/toro two/toro}
|
2016-11-24 07:25:07 +03:00
|
|
|
|
^- toro
|
|
|
|
|
|
~| %furl
|
|
|
|
|
|
?> ?& =(p.one p.two) :: same path
|
2018-03-19 06:54:47 +03:00
|
|
|
|
&(?=(%& -.q.one) ?=(%& -.q.two)) :: both deltas
|
2016-11-24 07:25:07 +03:00
|
|
|
|
==
|
|
|
|
|
|
[p.one [%& (weld p.q.one p.q.two)]]
|
|
|
|
|
|
-- ::space
|
|
|
|
|
|
:: ::
|
2017-02-12 05:44:56 +03:00
|
|
|
|
:::: ++unix:userlib :: (2uD) unix line-list
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ unix ^?
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++lune:unix:userlib
|
|
|
|
|
|
++ lune :: cord by unix line
|
|
|
|
|
|
~% %lune ..is ~
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= txt/@t
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?~ txt
|
|
|
|
|
|
^- (list @t) ~
|
|
|
|
|
|
=+ [byt=(rip 3 txt) len=(met 3 txt)]
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=| {lin/(list @t) off/@}
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- (list @t)
|
2016-11-24 07:25:07 +03:00
|
|
|
|
%- flop
|
2016-12-02 04:17:02 +03:00
|
|
|
|
|- ^+ lin
|
|
|
|
|
|
?: =(off len)
|
|
|
|
|
|
~| %noeol !!
|
|
|
|
|
|
?: =((snag off byt) 10)
|
|
|
|
|
|
?: =(+(off) len)
|
|
|
|
|
|
[(rep 3 (scag off byt)) lin]
|
|
|
|
|
|
%= $
|
|
|
|
|
|
lin [(rep 3 (scag off byt)) lin]
|
|
|
|
|
|
byt (slag +(off) byt)
|
|
|
|
|
|
len (sub len +(off))
|
|
|
|
|
|
off 0
|
2016-11-24 07:25:07 +03:00
|
|
|
|
==
|
2016-12-02 04:17:02 +03:00
|
|
|
|
$(off +(off))
|
|
|
|
|
|
:: :: ++nule:unix:userlib
|
|
|
|
|
|
++ nule :: lines to unix cord
|
|
|
|
|
|
~% %nule ..is ~
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= lin/(list @t)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
^- @t
|
|
|
|
|
|
%+ can 3
|
|
|
|
|
|
%+ turn lin
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= t/@t
|
2016-12-02 04:17:02 +03:00
|
|
|
|
[+((met 3 t)) (cat 3 t 10)]
|
|
|
|
|
|
--
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::
|
2016-12-07 06:14:39 +03:00
|
|
|
|
:::: ++scanf:userlib :: (2uF) exterpolation
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::::
|
2016-12-07 06:14:39 +03:00
|
|
|
|
++ scanf
|
2017-10-25 05:04:45 +03:00
|
|
|
|
=< |* {tape (pole _;/(*{$^(rule tape)}))} :: formatted scan
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=> .(+< [a b]=+<)
|
|
|
|
|
|
(scan a (parsf b))
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++parsf:scanf:
|
|
|
|
|
|
++ parsf :: make parser from:
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* a/(pole _;/(*{$^(rule tape)})) :: ;"chars{rule}chars"
|
2016-12-02 04:17:02 +03:00
|
|
|
|
=- (cook - (boil (norm a)))
|
|
|
|
|
|
|* (list)
|
|
|
|
|
|
?~ +< ~
|
|
|
|
|
|
?~ t i
|
|
|
|
|
|
[i $(+< t)]
|
|
|
|
|
|
::
|
|
|
|
|
|
:: .= (boil ~[[& dim] [| ", "] [& dim]]:ag)
|
|
|
|
|
|
:: ;~(plug dim ;~(pfix com ace ;~(plug dim (easy)))):ag
|
|
|
|
|
|
::
|
|
|
|
|
|
:: :: ++boil:scanf:userlib
|
|
|
|
|
|
++ boil ::
|
|
|
|
|
|
|* (list (each rule tape))
|
|
|
|
|
|
?~ +< (easy ~)
|
2018-08-16 04:05:30 +03:00
|
|
|
|
?: ?=(%| -.i) ;~(pfix (jest (crip p.i)) $(+< t))
|
2017-10-25 05:04:45 +03:00
|
|
|
|
%+ cook |*({* *} [i t]=+<)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
;~(plug p.i $(+< t))
|
|
|
|
|
|
::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
:: .= (norm [;"{n}, {n}"]:n=dim:ag) ~[[& dim] [| ", "] [& dim]]:ag
|
2016-12-02 04:17:02 +03:00
|
|
|
|
::
|
|
|
|
|
|
:: :: ++norm:scanf:userlib
|
|
|
|
|
|
++ norm ::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|* (pole _;/(*{$^(rule tape)}))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?~ +< ~
|
|
|
|
|
|
=> .(+< [i=+<- t=+<+])
|
|
|
|
|
|
:_ t=$(+< t)
|
|
|
|
|
|
=+ rul=->->.i
|
|
|
|
|
|
^= i
|
|
|
|
|
|
?~ rul [%| p=rul]
|
|
|
|
|
|
?~ +.rul [%| p=rul]
|
|
|
|
|
|
?@ &2.rul [%| p=;;(tape rul)]
|
|
|
|
|
|
[%& p=rul]
|
|
|
|
|
|
-- ::scanf
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::
|
2016-12-07 06:14:39 +03:00
|
|
|
|
:::: ++pubsub:userlib :: (2uG) application
|
2016-11-24 07:25:07 +03:00
|
|
|
|
:: ::::
|
2016-12-02 04:17:02 +03:00
|
|
|
|
++ pubsub ^?
|
2016-12-07 06:13:33 +03:00
|
|
|
|
=, gall
|
2016-11-24 07:25:07 +03:00
|
|
|
|
|%
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++pale:pubsub:
|
|
|
|
|
|
++ pale :: filter peers
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= {hid/bowl fun/$-(sink ?)}
|
2017-02-13 23:43:18 +03:00
|
|
|
|
(skim ~(tap by sup.hid) fun)
|
2016-12-02 04:17:02 +03:00
|
|
|
|
:: :: ++prix:pubsub:
|
|
|
|
|
|
++ prix :: filter gate
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|= pax/path |= sink ^- ?
|
2016-12-02 04:17:02 +03:00
|
|
|
|
?~ pax & ?~ r.+< |
|
|
|
|
|
|
&(=(i.pax i.r.+<) $(pax t.pax, r.+< t.r.+<))
|
|
|
|
|
|
:: :: ++prey:pubsub:
|
|
|
|
|
|
++ prey :: prefix
|
2017-10-25 05:04:45 +03:00
|
|
|
|
|=({pax/path hid/bowl} (pale hid (prix pax)))
|
2016-12-02 04:17:02 +03:00
|
|
|
|
-- ::pubsub
|
|
|
|
|
|
--
|
2016-11-24 07:25:07 +03:00
|
|
|
|
::
|
2016-12-02 22:34:07 +03:00
|
|
|
|
++ zuse %309 :: hoon+zuse kelvin
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ gift-arvo :: out result <-$
|
2018-08-17 00:39:39 +03:00
|
|
|
|
$~ [%init ~zod]
|
2018-03-18 04:06:15 +03:00
|
|
|
|
$% gift:able:ames
|
2016-12-07 06:13:33 +03:00
|
|
|
|
gift:able:behn
|
|
|
|
|
|
gift:able:clay
|
|
|
|
|
|
gift:able:dill
|
|
|
|
|
|
gift:able:eyre
|
|
|
|
|
|
gift:able:ford
|
|
|
|
|
|
gift:able:gall
|
2018-05-14 19:21:17 +03:00
|
|
|
|
gift:able:jael
|
2016-11-24 07:25:07 +03:00
|
|
|
|
==
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ task-arvo :: in request ->$
|
2018-03-18 04:06:15 +03:00
|
|
|
|
$% task:able:ames
|
2016-12-07 06:13:33 +03:00
|
|
|
|
task:able:clay
|
|
|
|
|
|
task:able:behn
|
|
|
|
|
|
task:able:dill
|
|
|
|
|
|
task:able:eyre
|
|
|
|
|
|
task:able:ford
|
|
|
|
|
|
task:able:gall
|
2018-05-14 19:21:17 +03:00
|
|
|
|
task:able:jael
|
2016-11-24 07:25:07 +03:00
|
|
|
|
==
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ note-arvo :: out request $->
|
2019-01-18 08:37:34 +03:00
|
|
|
|
$~ [%a %wake ~]
|
2017-10-25 05:04:45 +03:00
|
|
|
|
$% {$a task:able:ames}
|
|
|
|
|
|
{$b task:able:behn}
|
|
|
|
|
|
{$c task:able:clay}
|
|
|
|
|
|
{$d task:able:dill}
|
|
|
|
|
|
{$e task:able:eyre}
|
|
|
|
|
|
{$f task:able:ford}
|
|
|
|
|
|
{$g task:able:gall}
|
2018-05-14 19:21:17 +03:00
|
|
|
|
{$j task:able:jael}
|
2018-08-17 21:24:22 +03:00
|
|
|
|
{@tas $meta vase}
|
|
|
|
|
|
==
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ sign-arvo :: in result $<-
|
|
|
|
|
|
$% {$a gift:able:ames}
|
|
|
|
|
|
{$b gift:able:behn}
|
|
|
|
|
|
{$c gift:able:clay}
|
|
|
|
|
|
{$d gift:able:dill}
|
|
|
|
|
|
{$e gift:able:eyre}
|
|
|
|
|
|
{$f gift:able:ford}
|
|
|
|
|
|
{$g gift:able:gall}
|
|
|
|
|
|
{$j gift:able:jael}
|
2016-11-24 07:25:07 +03:00
|
|
|
|
==
|
2016-12-02 04:17:02 +03:00
|
|
|
|
::
|
2017-10-25 05:04:45 +03:00
|
|
|
|
++ unix-task :: input from unix
|
|
|
|
|
|
$% {$belt p/belt:dill} :: dill: keyboard
|
|
|
|
|
|
{$blew p/blew:dill} :: dill: configure
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$boat ~} :: clay: reboot
|
|
|
|
|
|
{$born ~} :: eyre: new process
|
|
|
|
|
|
{$hail ~} :: dill: refresh
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$hear p/lane:ames q/@} :: ames: input packet
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$hook ~} :: dill: hangup
|
2017-10-25 05:04:45 +03:00
|
|
|
|
{$into p/desk q/? r/mode:clay} :: clay: external edit
|
|
|
|
|
|
{$they p/@ud q/httr:eyre} :: eyre: in response
|
|
|
|
|
|
{$this p/? q/clip:eyre r/httq:eyre} :: eyre: in request
|
2018-08-16 04:05:30 +03:00
|
|
|
|
{$thud ~} :: eyre: in cancel
|
|
|
|
|
|
{$wake ~} :: behn: wakeup
|
2018-05-16 00:16:29 +03:00
|
|
|
|
==
|
|
|
|
|
|
:: ::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
:::: ++azimuth :: (2az) azimuth
|
2018-05-16 00:16:29 +03:00
|
|
|
|
:: ::::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
++ azimuth
|
2018-05-16 00:16:29 +03:00
|
|
|
|
!:
|
2018-12-18 01:38:24 +03:00
|
|
|
|
=* address address:rpc:ethereum
|
|
|
|
|
|
:: types
|
|
|
|
|
|
::
|
|
|
|
|
|
=> => [azimuth-types ethereum-types .]
|
|
|
|
|
|
|%
|
|
|
|
|
|
++ complete-ship
|
|
|
|
|
|
$: state=point
|
|
|
|
|
|
history=(list diff-point) ::TODO maybe block/event nr? :: newest first
|
|
|
|
|
|
keys=(map life pass)
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
++ fleet (map @p complete-ship)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ eth-type
|
|
|
|
|
|
|%
|
|
|
|
|
|
++ point
|
|
|
|
|
|
:~ [%bytes-n 32] :: encryptionKey
|
|
|
|
|
|
[%bytes-n 32] :: authenticationKey
|
|
|
|
|
|
%bool :: hasSponsor
|
|
|
|
|
|
%bool :: active
|
|
|
|
|
|
%bool :: escapeRequested
|
|
|
|
|
|
%uint :: sponsor
|
|
|
|
|
|
%uint :: escapeRequestedTo
|
|
|
|
|
|
%uint :: cryptoSuiteVersion
|
|
|
|
|
|
%uint :: keyRevisionNumber
|
|
|
|
|
|
%uint :: continuityNumber
|
|
|
|
|
|
==
|
|
|
|
|
|
++ deed
|
|
|
|
|
|
:~ %address :: owner
|
|
|
|
|
|
%address :: managementProxy
|
|
|
|
|
|
%address :: spawnProxy
|
|
|
|
|
|
%address :: votingProxy
|
|
|
|
|
|
%address :: transferProxy
|
|
|
|
|
|
==
|
|
|
|
|
|
--
|
|
|
|
|
|
::
|
|
|
|
|
|
++ eth-noun
|
|
|
|
|
|
|%
|
|
|
|
|
|
++ point
|
|
|
|
|
|
$: encryption-key=octs
|
|
|
|
|
|
authentication-key=octs
|
|
|
|
|
|
has-sponsor=?
|
|
|
|
|
|
active=?
|
|
|
|
|
|
escape-requested=?
|
|
|
|
|
|
sponsor=@ud
|
|
|
|
|
|
escape-to=@ud
|
|
|
|
|
|
crypto-suite=@ud
|
|
|
|
|
|
key-revision=@ud
|
|
|
|
|
|
continuity-number=@ud
|
|
|
|
|
|
==
|
|
|
|
|
|
++ deed
|
|
|
|
|
|
$: owner=address
|
|
|
|
|
|
management-proxy=address
|
|
|
|
|
|
spawn-proxy=address
|
|
|
|
|
|
voting-proxy=address
|
|
|
|
|
|
transfer-proxy=address
|
|
|
|
|
|
==
|
|
|
|
|
|
--
|
|
|
|
|
|
::
|
|
|
|
|
|
++ function
|
|
|
|
|
|
|%
|
|
|
|
|
|
++ azimuth
|
|
|
|
|
|
$% [%points who=@p]
|
|
|
|
|
|
[%rights who=@p]
|
|
|
|
|
|
[%get-spawned who=@p]
|
|
|
|
|
|
[%dns-domains ind=@ud]
|
|
|
|
|
|
==
|
|
|
|
|
|
--
|
|
|
|
|
|
::
|
|
|
|
|
|
:: # diffs
|
|
|
|
|
|
::
|
|
|
|
|
|
++ update
|
|
|
|
|
|
$% [%full ships=(map ship point) dns=dnses heard=events] ::TODO keys
|
|
|
|
|
|
[%difs dis=(list (pair event-id diff-azimuth))]
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: # constants
|
|
|
|
|
|
::
|
|
|
|
|
|
:: contract addresses
|
|
|
|
|
|
::TODO values below are for ropsten, update for mainnet
|
|
|
|
|
|
++ contracts
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: azimuth: data contract
|
|
|
|
|
|
::
|
2019-01-11 02:49:37 +03:00
|
|
|
|
:: ++ azimuth 0x308a.b6a6.024c.f198.b57e.008d.0ac9.ad02.1988.6579 :: ropsten
|
|
|
|
|
|
++ azimuth 0x223c.067f.8cf2.8ae1.73ee.5caf.ea60.ca44.c335.fecb :: mainnet
|
2018-12-18 01:38:24 +03:00
|
|
|
|
::
|
|
|
|
|
|
:: launch: block number of azimuth deploy
|
|
|
|
|
|
::
|
2019-01-11 02:49:37 +03:00
|
|
|
|
++ launch 6.784.800
|
2018-12-18 01:38:24 +03:00
|
|
|
|
--
|
|
|
|
|
|
::
|
|
|
|
|
|
:: hashes of ship event signatures
|
|
|
|
|
|
++ azimuth-events
|
|
|
|
|
|
|%
|
|
|
|
|
|
::
|
|
|
|
|
|
:: OwnerChanged(uint32,address)
|
|
|
|
|
|
++ owner-changed
|
|
|
|
|
|
0x16d0.f539.d49c.6cad.822b.767a.9445.bfb1.
|
|
|
|
|
|
cf7e.a6f2.a6c2.b120.a7ea.4cc7.660d.8fda
|
|
|
|
|
|
::
|
|
|
|
|
|
:: Activated(uint32)
|
|
|
|
|
|
++ activated
|
|
|
|
|
|
0xe74c.0380.9d07.69e1.b1f7.06cc.8414.258c.
|
|
|
|
|
|
d1f3.b6fe.020c.d15d.0165.c210.ba50.3a0f
|
|
|
|
|
|
::
|
|
|
|
|
|
:: Spawned(uint32,uint32)
|
|
|
|
|
|
++ spawned
|
|
|
|
|
|
0xb2d3.a6e7.a339.f5c8.ff96.265e.2f03.a010.
|
|
|
|
|
|
a854.1070.f374.4a24.7090.9644.1508.1546
|
|
|
|
|
|
::
|
|
|
|
|
|
:: EscapeRequested(uint32,uint32)
|
|
|
|
|
|
++ escape-requested
|
|
|
|
|
|
0xb4d4.850b.8f21.8218.141c.5665.cba3.79e5.
|
|
|
|
|
|
3e9b.b015.b51e.8d93.4be7.0210.aead.874a
|
|
|
|
|
|
::
|
|
|
|
|
|
:: EscapeCanceled(uint32,uint32)
|
|
|
|
|
|
++ escape-canceled
|
|
|
|
|
|
0xd653.bb0e.0bb7.ce83.93e6.24d9.8fbf.17cd.
|
|
|
|
|
|
a590.2c83.28ed.0cd0.9988.f368.90d9.932a
|
|
|
|
|
|
::
|
|
|
|
|
|
:: EscapeAccepted(uint32,uint32)
|
|
|
|
|
|
++ escape-accepted
|
|
|
|
|
|
0x7e44.7c9b.1bda.4b17.4b07.96e1.00bf.7f34.
|
|
|
|
|
|
ebf3.6dbb.7fe6.6549.0b1b.fce6.246a.9da5
|
|
|
|
|
|
::
|
|
|
|
|
|
:: LostSponsor(uint32,uint32)
|
|
|
|
|
|
++ lost-sponsor
|
|
|
|
|
|
0xd770.4f9a.2519.3dbd.0b0c.b4a8.09fe.ffff.
|
|
|
|
|
|
a7f1.9d1a.ae88.17a7.1346.c194.4482.10d5
|
|
|
|
|
|
::
|
|
|
|
|
|
:: ChangedKeys(uint32,bytes32,bytes32,uint32,uint32)
|
|
|
|
|
|
++ changed-keys
|
|
|
|
|
|
0xaa10.e7a0.117d.4323.f1d9.9d63.0ec1.69be.
|
|
|
|
|
|
bb3a.988e.8957.70e3.5198.7e01.ff54.23d5
|
|
|
|
|
|
::
|
|
|
|
|
|
:: BrokeContinuity(uint32,uint32)
|
|
|
|
|
|
++ broke-continuity
|
|
|
|
|
|
0x2929.4799.f1c2.1a37.ef83.8e15.f79d.d91b.
|
|
|
|
|
|
cee2.df99.d63c.d1c1.8ac9.68b1.2951.4e6e
|
|
|
|
|
|
::
|
|
|
|
|
|
:: ChangedSpawnProxy(uint32,address)
|
|
|
|
|
|
++ changed-spawn-proxy
|
|
|
|
|
|
0x9027.36af.7b3c.efe1.0d9e.840a.ed0d.687e.
|
|
|
|
|
|
35c8.4095.122b.2505.1a20.ead8.866f.006d
|
|
|
|
|
|
::
|
|
|
|
|
|
:: ChangedTransferProxy(uint32,address)
|
|
|
|
|
|
++ changed-transfer-proxy
|
|
|
|
|
|
0xcfe3.69b7.197e.7f0c.f067.93ae.2472.a9b1.
|
|
|
|
|
|
3583.fecb.ed2f.78df.a14d.1f10.796b.847c
|
|
|
|
|
|
::
|
|
|
|
|
|
:: ChangedManagementProxy(uint32,address)
|
|
|
|
|
|
++ changed-management-proxy
|
|
|
|
|
|
0xab9c.9327.cffd.2acc.168f.afed.be06.139f.
|
|
|
|
|
|
5f55.cb84.c761.df05.e051.1c25.1e2e.e9bf
|
|
|
|
|
|
::
|
|
|
|
|
|
:: ChangedVotingProxy(uint32,address)
|
|
|
|
|
|
++ changed-voting-proxy
|
|
|
|
|
|
0xcbd6.269e.c714.57f2.c7b1.a227.74f2.46f6.
|
|
|
|
|
|
c5a2.eae3.795e.d730.0db5.1768.0c61.c805
|
|
|
|
|
|
::
|
|
|
|
|
|
:: ChangedDns(string,string,string)
|
|
|
|
|
|
++ changed-dns
|
|
|
|
|
|
0xfafd.04ad.e1da.ae2e.1fdb.0fc1.cc6a.899f.
|
|
|
|
|
|
d424.063e.d5c9.2120.e67e.0730.53b9.4898
|
|
|
|
|
|
--
|
|
|
|
|
|
--
|
|
|
|
|
|
::
|
|
|
|
|
|
:: logic
|
|
|
|
|
|
::
|
2018-05-16 00:16:29 +03:00
|
|
|
|
|%
|
2018-12-18 01:38:24 +03:00
|
|
|
|
++ pass-from-eth
|
|
|
|
|
|
|= [enc=octs aut=octs sut=@ud]
|
2019-01-16 02:10:53 +03:00
|
|
|
|
^- pass
|
|
|
|
|
|
%^ cat 3 'b'
|
2018-12-18 01:38:24 +03:00
|
|
|
|
?. &(=(1 sut) =(p.enc 32) =(p.aut 32))
|
2019-01-16 02:10:53 +03:00
|
|
|
|
(cat 8 0 0)
|
|
|
|
|
|
(cat 8 q.aut q.enc)
|
2018-09-28 01:38:52 +03:00
|
|
|
|
::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
++ point-from-eth
|
|
|
|
|
|
|= [who=@p point:eth-noun deed:eth-noun]
|
|
|
|
|
|
^- point
|
|
|
|
|
|
::
|
|
|
|
|
|
:: ownership
|
|
|
|
|
|
::
|
|
|
|
|
|
:+ :* owner
|
|
|
|
|
|
management-proxy
|
|
|
|
|
|
voting-proxy
|
|
|
|
|
|
transfer-proxy
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: network state
|
|
|
|
|
|
::
|
2018-12-18 02:17:34 +03:00
|
|
|
|
?. active ~
|
2018-12-18 01:38:24 +03:00
|
|
|
|
:- ~
|
|
|
|
|
|
:* key-revision
|
|
|
|
|
|
::
|
|
|
|
|
|
(pass-from-eth encryption-key authentication-key crypto-suite)
|
|
|
|
|
|
::
|
|
|
|
|
|
continuity-number
|
|
|
|
|
|
::
|
2018-12-21 17:59:12 +03:00
|
|
|
|
[has-sponsor `@p`sponsor]
|
2018-12-18 01:38:24 +03:00
|
|
|
|
::
|
|
|
|
|
|
?. escape-requested ~
|
|
|
|
|
|
``@p`escape-to
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: spawn state
|
|
|
|
|
|
::
|
|
|
|
|
|
?. ?=(?(%czar %king) (clan:title who)) ~
|
|
|
|
|
|
:- ~
|
|
|
|
|
|
:* spawn-proxy
|
|
|
|
|
|
~ ::TODO call getSpawned to fill this
|
|
|
|
|
|
==
|
2018-09-28 01:38:52 +03:00
|
|
|
|
::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
++ event-log-to-point-diff
|
|
|
|
|
|
=, azimuth-events
|
|
|
|
|
|
=, abi:ethereum
|
|
|
|
|
|
|= log=event-log:rpc:ethereum
|
|
|
|
|
|
^- (unit (pair ship diff-point))
|
|
|
|
|
|
~? ?=(~ mined.log) %processing-unmined-event
|
|
|
|
|
|
::
|
|
|
|
|
|
?: =(event.log owner-changed)
|
|
|
|
|
|
=+ ^- [who=@ wer=address]
|
|
|
|
|
|
(decode-topics topics.log ~[%uint %address])
|
|
|
|
|
|
`[who %owner wer]
|
|
|
|
|
|
::
|
|
|
|
|
|
?: =(event.log activated)
|
|
|
|
|
|
=/ who=@
|
|
|
|
|
|
(decode-topics topics.log ~[%uint])
|
|
|
|
|
|
`[who %activated who]
|
|
|
|
|
|
::
|
|
|
|
|
|
?: =(event.log spawned)
|
2018-12-21 13:57:03 +03:00
|
|
|
|
=+ ^- [pre=@ who=@]
|
|
|
|
|
|
(decode-topics topics.log ~[%uint %uint])
|
2018-12-18 01:38:24 +03:00
|
|
|
|
`[pre %spawned who]
|
|
|
|
|
|
::
|
|
|
|
|
|
?: =(event.log escape-requested)
|
|
|
|
|
|
=+ ^- [who=@ wer=@]
|
|
|
|
|
|
(decode-topics topics.log ~[%uint %uint])
|
|
|
|
|
|
`[who %escape `wer]
|
|
|
|
|
|
::
|
|
|
|
|
|
?: =(event.log escape-canceled)
|
|
|
|
|
|
=/ who=@ (decode-topics topics.log ~[%uint])
|
|
|
|
|
|
`[who %escape ~]
|
|
|
|
|
|
::
|
|
|
|
|
|
?: =(event.log escape-accepted)
|
|
|
|
|
|
=+ ^- [who=@ wer=@]
|
|
|
|
|
|
(decode-topics topics.log ~[%uint %uint])
|
2018-12-21 17:59:12 +03:00
|
|
|
|
`[who %sponsor & wer]
|
2018-12-18 01:38:24 +03:00
|
|
|
|
::
|
|
|
|
|
|
?: =(event.log lost-sponsor)
|
2018-12-21 13:57:03 +03:00
|
|
|
|
=+ ^- [who=@ pos=@]
|
|
|
|
|
|
(decode-topics topics.log ~[%uint %uint])
|
2018-12-21 17:59:12 +03:00
|
|
|
|
`[who %sponsor | pos]
|
2018-12-18 01:38:24 +03:00
|
|
|
|
::
|
|
|
|
|
|
?: =(event.log changed-keys)
|
|
|
|
|
|
=/ who=@ (decode-topics topics.log ~[%uint])
|
|
|
|
|
|
=+ ^- [enc=octs aut=octs sut=@ud rev=@ud]
|
|
|
|
|
|
%+ decode-results data.log
|
|
|
|
|
|
~[[%bytes-n 32] [%bytes-n 32] %uint %uint]
|
2019-01-16 02:10:53 +03:00
|
|
|
|
`[who %keys rev (pass-from-eth enc aut sut)]
|
2018-12-18 01:38:24 +03:00
|
|
|
|
::
|
|
|
|
|
|
?: =(event.log broke-continuity)
|
|
|
|
|
|
=/ who=@ (decode-topics topics.log ~[%uint])
|
|
|
|
|
|
=/ num=@ (decode-results data.log ~[%uint])
|
|
|
|
|
|
`[who %continuity num]
|
|
|
|
|
|
::
|
|
|
|
|
|
?: =(event.log changed-management-proxy)
|
|
|
|
|
|
=+ ^- [who=@ sox=address]
|
|
|
|
|
|
(decode-topics topics.log ~[%uint %address])
|
|
|
|
|
|
`[who %management-proxy sox]
|
|
|
|
|
|
::
|
|
|
|
|
|
?: =(event.log changed-voting-proxy)
|
|
|
|
|
|
=+ ^- [who=@ tox=address]
|
|
|
|
|
|
(decode-topics topics.log ~[%uint %address])
|
|
|
|
|
|
`[who %voting-proxy tox]
|
|
|
|
|
|
::
|
|
|
|
|
|
?: =(event.log changed-spawn-proxy)
|
|
|
|
|
|
=+ ^- [who=@ sox=address]
|
|
|
|
|
|
(decode-topics topics.log ~[%uint %address])
|
|
|
|
|
|
`[who %spawn-proxy sox]
|
|
|
|
|
|
::
|
|
|
|
|
|
?: =(event.log changed-transfer-proxy)
|
|
|
|
|
|
=+ ^- [who=@ tox=address]
|
|
|
|
|
|
(decode-topics topics.log ~[%uint %address])
|
|
|
|
|
|
`[who %transfer-proxy tox]
|
|
|
|
|
|
::
|
|
|
|
|
|
:: warn about unimplemented events, but ignore
|
|
|
|
|
|
:: the ones we know are harmless.
|
|
|
|
|
|
~? ?! .= event.log
|
|
|
|
|
|
:: OwnershipTransferred(address,address)
|
|
|
|
|
|
0x8be0.079c.5316.5914.1344.cd1f.d0a4.f284.
|
|
|
|
|
|
1949.7f97.22a3.daaf.e3b4.186f.6b64.57e0
|
|
|
|
|
|
[%unimplemented-event event.log]
|
|
|
|
|
|
~
|
2018-09-28 01:38:52 +03:00
|
|
|
|
::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
++ apply-point-diff
|
|
|
|
|
|
|= [pot=point dif=diff-point]
|
|
|
|
|
|
^- point
|
|
|
|
|
|
?- -.dif
|
|
|
|
|
|
%full new.dif
|
|
|
|
|
|
::
|
|
|
|
|
|
%activated
|
|
|
|
|
|
%_ pot
|
2018-12-21 17:59:12 +03:00
|
|
|
|
net `[0 0 0 &^(^sein:title who.dif) ~]
|
2018-12-18 01:38:24 +03:00
|
|
|
|
kid ?. ?=(?(%czar %king) (clan:title who.dif)) ~
|
|
|
|
|
|
`[0x0 ~]
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: ownership
|
|
|
|
|
|
::
|
|
|
|
|
|
%owner pot(owner.own new.dif)
|
|
|
|
|
|
%transfer-proxy pot(transfer-proxy.own new.dif)
|
|
|
|
|
|
%management-proxy pot(management-proxy.own new.dif)
|
|
|
|
|
|
%voting-proxy pot(voting-proxy.own new.dif)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: networking
|
|
|
|
|
|
::
|
|
|
|
|
|
?(%keys %continuity %sponsor %escape)
|
|
|
|
|
|
?> ?=(^ net.pot)
|
|
|
|
|
|
?- -.dif
|
|
|
|
|
|
%keys
|
|
|
|
|
|
pot(life.u.net life.dif, pass.u.net pass.dif)
|
|
|
|
|
|
::
|
|
|
|
|
|
%sponsor
|
2018-12-21 17:59:12 +03:00
|
|
|
|
%= pot
|
|
|
|
|
|
sponsor.u.net new.dif
|
|
|
|
|
|
escape.u.net ?:(has.new.dif ~ escape.u.net.pot)
|
|
|
|
|
|
==
|
2018-12-18 01:38:24 +03:00
|
|
|
|
::
|
|
|
|
|
|
%continuity pot(continuity-number.u.net new.dif)
|
|
|
|
|
|
%escape pot(escape.u.net new.dif)
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: spawning
|
|
|
|
|
|
::
|
|
|
|
|
|
?(%spawned %spawn-proxy)
|
|
|
|
|
|
?> ?=(^ kid.pot)
|
|
|
|
|
|
?- -.dif
|
|
|
|
|
|
%spawned
|
|
|
|
|
|
=- pot(spawned.u.kid -)
|
|
|
|
|
|
(~(put in spawned.u.kid.pot) who.dif)
|
|
|
|
|
|
::
|
|
|
|
|
|
%spawn-proxy pot(spawn-proxy.u.kid new.dif)
|
|
|
|
|
|
==
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
++ parse-id
|
|
|
|
|
|
|= id=@t
|
|
|
|
|
|
^- azimuth:function
|
|
|
|
|
|
|^
|
|
|
|
|
|
~| id
|
|
|
|
|
|
%+ rash id
|
|
|
|
|
|
;~ pose
|
|
|
|
|
|
(function %points 'points' shipname)
|
|
|
|
|
|
(function %get-spawned 'getSpawned' shipname)
|
|
|
|
|
|
(function %dns-domains 'dnsDomains' dem:ag)
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
++ function
|
|
|
|
|
|
|* [tag=@tas fun=@t rul=rule]
|
|
|
|
|
|
;~(plug (cold tag (jest fun)) (ifix [lit rit] rul))
|
|
|
|
|
|
::
|
|
|
|
|
|
++ shipname
|
|
|
|
|
|
;~(pfix sig fed:ag)
|
|
|
|
|
|
--
|
|
|
|
|
|
::
|
|
|
|
|
|
++ function-to-call
|
|
|
|
|
|
|%
|
|
|
|
|
|
++ azimuth
|
|
|
|
|
|
|= cal=azimuth:function
|
|
|
|
|
|
^- [id=@t dat=call-data:rpc:ethereum]
|
|
|
|
|
|
?- -.cal
|
|
|
|
|
|
%points
|
|
|
|
|
|
:- (crip "points({(scow %p who.cal)})")
|
|
|
|
|
|
['points(uint32)' ~[uint+`@`who.cal]]
|
|
|
|
|
|
::
|
|
|
|
|
|
%rights
|
|
|
|
|
|
:- (crip "rights({(scow %p who.cal)})")
|
|
|
|
|
|
['rights(uint32)' ~[uint+`@`who.cal]]
|
|
|
|
|
|
::
|
|
|
|
|
|
%get-spawned
|
|
|
|
|
|
:- (crip "getSpawned({(scow %p who.cal)})")
|
|
|
|
|
|
['getSpawned(uint32)' ~[uint+`@`who.cal]]
|
|
|
|
|
|
::
|
|
|
|
|
|
%dns-domains
|
|
|
|
|
|
:- (crip "dnsDomains({(scow %ud ind.cal)})")
|
|
|
|
|
|
['dnsDomains(uint256)' ~[uint+ind.cal]]
|
|
|
|
|
|
==
|
|
|
|
|
|
--
|
|
|
|
|
|
--
|
|
|
|
|
|
:: ::
|
|
|
|
|
|
:::: ++ethereum :: (2eth) ethereum
|
|
|
|
|
|
:: ::::
|
|
|
|
|
|
++ ethereum
|
|
|
|
|
|
!:
|
|
|
|
|
|
=> [ethereum-types .]
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: deriving and using ethereum keys
|
|
|
|
|
|
::
|
|
|
|
|
|
++ key
|
|
|
|
|
|
|%
|
|
|
|
|
|
++ address-from-pub
|
|
|
|
|
|
=, keccak:crypto
|
|
|
|
|
|
|= pub=@
|
|
|
|
|
|
%^ end 3 20
|
|
|
|
|
|
%+ keccak-256 64
|
|
|
|
|
|
(rev 3 64 pub)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ address-from-prv
|
|
|
|
|
|
(cork pub-from-prv address-from-pub)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ pub-from-prv
|
|
|
|
|
|
=, secp256k1:secp:crypto
|
|
|
|
|
|
|= prv=@
|
|
|
|
|
|
%- serialize-point
|
|
|
|
|
|
(priv-to-pub prv)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ sign-transaction
|
|
|
|
|
|
=, crypto
|
|
|
|
|
|
|= [tx=transaction:rpc pk=@]
|
|
|
|
|
|
^- @ux
|
|
|
|
|
|
:: hash the raw transaction data
|
|
|
|
|
|
=/ hash=@
|
|
|
|
|
|
=/ dat=@
|
|
|
|
|
|
%- encode-atoms:rlp
|
|
|
|
|
|
:: with v=chain-id, r=0, s=0
|
|
|
|
|
|
tx(chain-id [chain-id.tx 0 0 ~])
|
|
|
|
|
|
=+ wid=(met 3 dat)
|
|
|
|
|
|
%- keccak-256:keccak
|
|
|
|
|
|
[wid (rev 3 wid dat)]
|
|
|
|
|
|
:: sign transaction hash with private key
|
|
|
|
|
|
=+ (ecdsa-raw-sign:secp256k1:secp hash pk)
|
|
|
|
|
|
:: complete transaction is raw data, with r and s
|
|
|
|
|
|
:: taken from the signature, and v as per eip-155
|
|
|
|
|
|
%- encode-atoms:rlp
|
|
|
|
|
|
tx(chain-id [:(add (mul chain-id.tx 2) 35 v) r s ~])
|
|
|
|
|
|
--
|
2018-09-04 16:01:19 +03:00
|
|
|
|
::
|
|
|
|
|
|
:: rlp en/decoding
|
|
|
|
|
|
::NOTE https://github.com/ethereum/wiki/wiki/RLP
|
|
|
|
|
|
::
|
|
|
|
|
|
++ rlp
|
|
|
|
|
|
|%
|
|
|
|
|
|
::NOTE rlp encoding doesn't really care about leading zeroes,
|
|
|
|
|
|
:: but because we need to disinguish between no-bytes zero
|
|
|
|
|
|
:: and one-byte zero (and also empty list) we end up with
|
|
|
|
|
|
:: this awful type...
|
|
|
|
|
|
+$ item
|
|
|
|
|
|
$% [%l l=(list item)]
|
|
|
|
|
|
[%b b=byts]
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: treat atoms as list of items
|
|
|
|
|
|
++ encode-atoms
|
|
|
|
|
|
|= l=(list @)
|
|
|
|
|
|
%+ encode %l
|
|
|
|
|
|
%+ turn l
|
|
|
|
|
|
|=(a=@ b+[(met 3 a) a])
|
|
|
|
|
|
::
|
|
|
|
|
|
++ encode
|
|
|
|
|
|
|= in=item
|
|
|
|
|
|
^- @
|
|
|
|
|
|
?- -.in
|
|
|
|
|
|
%b
|
|
|
|
|
|
?: &(=(1 wid.b.in) (lth dat.b.in 0x80))
|
|
|
|
|
|
dat.b.in
|
|
|
|
|
|
%^ cat 3 dat.b.in
|
|
|
|
|
|
::TODO unsure if this should pass wid or (met 3 dat)...
|
|
|
|
|
|
(encode-length wid.b.in 0x80)
|
|
|
|
|
|
::
|
|
|
|
|
|
%l
|
|
|
|
|
|
=/ out=@
|
|
|
|
|
|
%+ roll l.in
|
|
|
|
|
|
|= [ni=item en=@]
|
|
|
|
|
|
(cat 3 (encode ni) en)
|
|
|
|
|
|
%^ cat 3 out
|
|
|
|
|
|
(encode-length (met 3 out) 0xc0)
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
++ encode-length
|
|
|
|
|
|
|= [len=@ off=@]
|
|
|
|
|
|
?: (lth len 56) (add len off)
|
|
|
|
|
|
=- (cat 3 len -)
|
|
|
|
|
|
:(add (met 3 len) off 55)
|
|
|
|
|
|
::
|
|
|
|
|
|
::TODO decode
|
|
|
|
|
|
::
|
|
|
|
|
|
--
|
|
|
|
|
|
::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
:: abi en/decoding
|
|
|
|
|
|
::NOTE https://solidity.readthedocs.io/en/develop/abi-spec.html
|
2018-05-16 00:16:29 +03:00
|
|
|
|
::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
++ abi
|
|
|
|
|
|
=> |%
|
|
|
|
|
|
:: solidity types. integer bitsizes ignored
|
|
|
|
|
|
++ etyp
|
|
|
|
|
|
$% :: static
|
|
|
|
|
|
%address %bool
|
|
|
|
|
|
%int %uint
|
|
|
|
|
|
%real %ureal
|
|
|
|
|
|
[%bytes-n n=@ud]
|
|
|
|
|
|
:: dynamic
|
|
|
|
|
|
[%array-n t=etyp n=@ud]
|
|
|
|
|
|
[%array t=etyp]
|
|
|
|
|
|
%bytes %string
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: solidity-style typed data. integer bitsizes ignored
|
|
|
|
|
|
++ data
|
|
|
|
|
|
$% [%address p=address]
|
|
|
|
|
|
[%string p=tape]
|
|
|
|
|
|
[%bool p=?]
|
|
|
|
|
|
[%int p=@sd]
|
|
|
|
|
|
[%uint p=@ud]
|
|
|
|
|
|
[%real p=@rs]
|
|
|
|
|
|
[%ureal p=@urs]
|
|
|
|
|
|
[%array-n p=(list data)]
|
|
|
|
|
|
[%array p=(list data)]
|
|
|
|
|
|
[%bytes-n p=octs] ::TODO just @, because context knows length?
|
|
|
|
|
|
[%bytes p=octs]
|
|
|
|
|
|
==
|
|
|
|
|
|
--
|
|
|
|
|
|
=, mimes:html
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: encoding
|
|
|
|
|
|
::
|
|
|
|
|
|
++ encode-args
|
|
|
|
|
|
:: encode list of arguments.
|
|
|
|
|
|
::
|
|
|
|
|
|
|= das=(list data)
|
|
|
|
|
|
^- tape
|
|
|
|
|
|
(encode-data [%array-n das])
|
|
|
|
|
|
::
|
|
|
|
|
|
++ encode-data
|
|
|
|
|
|
:: encode typed data into ABI bytestring.
|
|
|
|
|
|
::
|
|
|
|
|
|
|= dat=data
|
|
|
|
|
|
^- tape
|
|
|
|
|
|
?+ -.dat
|
|
|
|
|
|
~| [%unsupported-type -.dat]
|
|
|
|
|
|
!!
|
|
|
|
|
|
::
|
|
|
|
|
|
%array-n
|
|
|
|
|
|
:: enc(X) = head(X[0]) ... head(X[k-1]) tail(X[0]) ... tail(X[k-1])
|
|
|
|
|
|
:: where head and tail are defined for X[i] being of a static type as
|
|
|
|
|
|
:: head(X[i]) = enc(X[i]) and tail(X[i]) = "" (the empty string), or as
|
|
|
|
|
|
:: head(X[i]) = enc(len( head(X[0])..head(X[k-1])
|
|
|
|
|
|
:: tail(X[0])..tail(X[i-1]) ))
|
|
|
|
|
|
:: and tail(X[i]) = enc(X[i]) otherwise.
|
|
|
|
|
|
::
|
|
|
|
|
|
:: so: if it's a static type, data goes in the head. if it's a dynamic
|
|
|
|
|
|
:: type, a reference goes into the head and data goes into the tail.
|
|
|
|
|
|
::
|
|
|
|
|
|
:: in the head, we first put a placeholder where references need to go.
|
|
|
|
|
|
=+ hol=(reap 64 'x')
|
|
|
|
|
|
=/ hes=(list tape)
|
|
|
|
|
|
%+ turn p.dat
|
|
|
|
|
|
|= d=data
|
|
|
|
|
|
?. (is-dynamic-type d) ^$(dat d)
|
|
|
|
|
|
hol
|
|
|
|
|
|
=/ tas=(list tape)
|
|
|
|
|
|
%+ turn p.dat
|
|
|
|
|
|
|= d=data
|
|
|
|
|
|
?. (is-dynamic-type d) ""
|
|
|
|
|
|
^$(dat d)
|
|
|
|
|
|
:: once we know the head and tail, we can fill in the references in head.
|
|
|
|
|
|
=- (weld nes `tape`(zing tas))
|
|
|
|
|
|
^- [@ud nes=tape]
|
|
|
|
|
|
=+ led=(lent (zing hes))
|
|
|
|
|
|
%+ roll hes
|
|
|
|
|
|
|= [t=tape i=@ud nes=tape]
|
|
|
|
|
|
:- +(i)
|
|
|
|
|
|
:: if no reference needed, just put the data.
|
|
|
|
|
|
?. =(t hol) (weld nes t)
|
|
|
|
|
|
:: calculate byte offset of data we need to reference.
|
|
|
|
|
|
=/ ofs/@ud
|
|
|
|
|
|
=- (div - 2) :: two hex digits per byte.
|
|
|
|
|
|
%+ add led :: count head, and
|
|
|
|
|
|
%- lent %- zing :: count all tail data
|
|
|
|
|
|
(scag i tas) :: preceding ours.
|
|
|
|
|
|
=+ ref=^$(dat [%uint ofs])
|
|
|
|
|
|
:: shouldn't hit this unless we're sending over 2gb of data?
|
|
|
|
|
|
~| [%weird-ref-lent (lent ref)]
|
|
|
|
|
|
?> =((lent ref) (lent hol))
|
|
|
|
|
|
(weld nes ref)
|
|
|
|
|
|
::
|
|
|
|
|
|
%array :: where X has k elements (k is assumed to be of type uint256):
|
|
|
|
|
|
:: enc(X) = enc(k) enc([X[1], ..., X[k]])
|
|
|
|
|
|
:: i.e. it is encoded as if it were an array of static size k, prefixed
|
|
|
|
|
|
:: with the number of elements.
|
|
|
|
|
|
%+ weld $(dat [%uint (lent p.dat)])
|
|
|
|
|
|
$(dat [%array-n p.dat])
|
|
|
|
|
|
::
|
|
|
|
|
|
%bytes-n
|
|
|
|
|
|
:: enc(X) is the sequence of bytes in X padded with zero-bytes to a
|
|
|
|
|
|
:: length of 32.
|
|
|
|
|
|
:: Note that for any X, len(enc(X)) is a multiple of 32.
|
|
|
|
|
|
?> (lte p.p.dat 32)
|
|
|
|
|
|
(pad-to-multiple (render-hex-bytes p.dat) 64 %right)
|
|
|
|
|
|
::
|
|
|
|
|
|
%bytes :: of length k (which is assumed to be of type uint256)
|
|
|
|
|
|
:: enc(X) = enc(k) pad_right(X), i.e. the number of bytes is encoded as a
|
|
|
|
|
|
:: uint256 followed by the actual value of X as a byte sequence, followed
|
|
|
|
|
|
:: by the minimum number of zero-bytes such that len(enc(X)) is a
|
|
|
|
|
|
:: multiple of 32.
|
|
|
|
|
|
%+ weld $(dat [%uint p.p.dat])
|
|
|
|
|
|
$(dat [%bytes-n p.dat])
|
|
|
|
|
|
::
|
|
|
|
|
|
%string
|
|
|
|
|
|
:: enc(X) = enc(enc_utf8(X)), i.e. X is utf-8 encoded and this value is
|
|
|
|
|
|
:: interpreted as of bytes type and encoded further. Note that the length
|
|
|
|
|
|
:: used in this subsequent encoding is the number of bytes of the utf-8
|
|
|
|
|
|
:: encoded string, not its number of characters.
|
|
|
|
|
|
$(dat [%bytes (lent p.dat) (swp 3 (crip p.dat))])
|
|
|
|
|
|
::
|
|
|
|
|
|
%uint
|
|
|
|
|
|
:: enc(X) is the big-endian encoding of X, padded on the higher-order
|
|
|
|
|
|
:: (left) side with zero-bytes such that the length is a multiple of 32
|
|
|
|
|
|
:: bytes.
|
|
|
|
|
|
(pad-to-multiple (render-hex-bytes (as-octs p.dat)) 64 %left)
|
|
|
|
|
|
::
|
|
|
|
|
|
%bool
|
|
|
|
|
|
:: as in the uint8 case, where 1 is used for true and 0 for false
|
|
|
|
|
|
$(dat [%uint ?:(p.dat 1 0)])
|
|
|
|
|
|
::
|
|
|
|
|
|
%address
|
|
|
|
|
|
:: as in the uint160 case
|
|
|
|
|
|
$(dat [%uint `@ud`p.dat])
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
++ is-dynamic-type
|
|
|
|
|
|
|= a=data
|
|
|
|
|
|
?. ?=(%array-n -.a)
|
|
|
|
|
|
?=(?(%string %bytes %array) -.a)
|
|
|
|
|
|
&(!=((lent p.a) 0) (lien p.a is-dynamic-type))
|
|
|
|
|
|
::
|
|
|
|
|
|
:: decoding
|
|
|
|
|
|
::
|
|
|
|
|
|
++ decode-topics
|
|
|
|
|
|
:: tox: list of hex words
|
|
|
|
|
|
|* [tox=(list @t) tys=(list etyp)]
|
|
|
|
|
|
=- (decode-arguments - tys)
|
|
|
|
|
|
%+ roll tox
|
|
|
|
|
|
|= [top=@t tos=@t]
|
|
|
|
|
|
(cat 3 tos (rsh 3 2 top))
|
|
|
|
|
|
::
|
|
|
|
|
|
++ decode-results
|
|
|
|
|
|
:: rex: string of hex bytes with leading 0x.
|
|
|
|
|
|
|* [rex=@t tys=(list etyp)]
|
|
|
|
|
|
(decode-arguments (rsh 3 2 rex) tys)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ decode-arguments
|
|
|
|
|
|
|* [res=@t tys=(list etyp)]
|
|
|
|
|
|
=| win=@ud
|
|
|
|
|
|
=/ wos=(list @t) (rip 9 res)
|
|
|
|
|
|
=< (decode-from 0 tys)
|
|
|
|
|
|
|%
|
|
|
|
|
|
++ decode-from
|
|
|
|
|
|
|* [win=@ud tys=(list etyp)]
|
|
|
|
|
|
?~ tys !!
|
|
|
|
|
|
=- ?~ t.tys dat
|
|
|
|
|
|
[dat $(win nin, tys t.tys)]
|
|
|
|
|
|
(decode-one win ~[i.tys])
|
|
|
|
|
|
::
|
|
|
|
|
|
++ decode-one
|
|
|
|
|
|
::NOTE we take (list etyp) even though we only operate on
|
|
|
|
|
|
:: a single etyp as a workaround for urbit/arvo#673
|
|
|
|
|
|
|* [win=@ud tys=(list etyp)]
|
|
|
|
|
|
=- [nin dat]=- ::NOTE ^= regular form broken
|
|
|
|
|
|
?~ tys !!
|
|
|
|
|
|
=* typ i.tys
|
|
|
|
|
|
=+ wor=(snag win wos)
|
|
|
|
|
|
?+ typ
|
|
|
|
|
|
~| [%unsupported-type typ]
|
|
|
|
|
|
!!
|
|
|
|
|
|
::
|
|
|
|
|
|
?(%address %bool %uint) :: %int %real %ureal
|
|
|
|
|
|
:- +(win)
|
|
|
|
|
|
?- typ
|
|
|
|
|
|
%address `@ux`(rash wor hex)
|
|
|
|
|
|
%uint `@ud`(rash wor hex)
|
|
|
|
|
|
%bool =(1 (rash wor hex))
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
%string
|
|
|
|
|
|
=+ $(tys ~[%bytes])
|
|
|
|
|
|
~! -
|
|
|
|
|
|
[nin (trip (swp 3 q.dat))]
|
|
|
|
|
|
::
|
|
|
|
|
|
%bytes
|
|
|
|
|
|
:- +(win)
|
|
|
|
|
|
:: find the word index of the actual data.
|
|
|
|
|
|
=/ lic=@ud (div (rash wor hex) 32)
|
|
|
|
|
|
:: learn the bytelength of the data.
|
|
|
|
|
|
=/ len=@ud (rash (snag lic wos) hex)
|
|
|
|
|
|
(decode-bytes-n +(lic) len)
|
|
|
|
|
|
::
|
|
|
|
|
|
[%bytes-n *]
|
|
|
|
|
|
:- (add win +((div (dec n.typ) 32)))
|
|
|
|
|
|
(decode-bytes-n win n.typ)
|
|
|
|
|
|
::
|
|
|
|
|
|
[%array *]
|
|
|
|
|
|
:- +(win)
|
|
|
|
|
|
:: find the word index of the actual data.
|
|
|
|
|
|
=. win (div (rash wor hex) 32)
|
|
|
|
|
|
:: read the elements from their location.
|
|
|
|
|
|
%- tail
|
|
|
|
|
|
%^ decode-array-n ~[t.typ] +(win)
|
|
|
|
|
|
(rash (snag win wos) hex)
|
|
|
|
|
|
::
|
|
|
|
|
|
[%array-n *]
|
|
|
|
|
|
(decode-array-n ~[t.typ] win n.typ)
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
++ decode-bytes-n
|
|
|
|
|
|
|= [fro=@ud bys=@ud]
|
|
|
|
|
|
^- octs
|
|
|
|
|
|
:: parse {bys} bytes from {fro}.
|
|
|
|
|
|
=- [bys (rash - hex)]
|
|
|
|
|
|
%^ end 3 (mul 2 bys)
|
|
|
|
|
|
%+ can 9
|
|
|
|
|
|
%+ turn
|
|
|
|
|
|
(swag [fro +((div (dec bys) 32))] wos)
|
|
|
|
|
|
|=(a=@t [1 a])
|
|
|
|
|
|
::
|
|
|
|
|
|
++ decode-array-n
|
|
|
|
|
|
::NOTE we take (list etyp) even though we only operate on
|
|
|
|
|
|
:: a single etyp as a workaround for urbit/arvo#673
|
|
|
|
|
|
=| res=(list)
|
|
|
|
|
|
~& %watch-out--arrays-without-typeinfo
|
|
|
|
|
|
|* [tys=(list etyp) fro=@ud len=@ud]
|
|
|
|
|
|
^- [@ud (list)]
|
|
|
|
|
|
?~ tys !!
|
|
|
|
|
|
?: =(len 0) [fro (flop `(list)`res)]
|
|
|
|
|
|
=+ (decode-one fro ~[i.tys]) :: [nin=@ud dat=*]
|
|
|
|
|
|
$(res ^+(res [dat res]), fro nin, len (dec len))
|
|
|
|
|
|
--
|
|
|
|
|
|
--
|
2018-05-16 00:16:29 +03:00
|
|
|
|
::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
:: communicating with rpc nodes
|
|
|
|
|
|
::NOTE https://github.com/ethereum/wiki/wiki/JSON-RPC
|
2018-05-16 00:16:29 +03:00
|
|
|
|
::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
++ rpc
|
|
|
|
|
|
:: types
|
|
|
|
|
|
::
|
|
|
|
|
|
=> =, abi
|
|
|
|
|
|
=, format
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: raw call data
|
|
|
|
|
|
++ call-data
|
|
|
|
|
|
$: function=@t
|
|
|
|
|
|
arguments=(list data)
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: raw transaction data
|
|
|
|
|
|
+$ transaction
|
|
|
|
|
|
$: nonce=@ud
|
|
|
|
|
|
gas-price=@ud
|
|
|
|
|
|
gas=@ud
|
|
|
|
|
|
to=address
|
|
|
|
|
|
value=@ud
|
|
|
|
|
|
data=@ux
|
|
|
|
|
|
chain-id=@ux
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: ethereum json rpc api
|
|
|
|
|
|
::
|
|
|
|
|
|
:: supported requests.
|
|
|
|
|
|
++ request
|
|
|
|
|
|
$% [%eth-block-number ~]
|
|
|
|
|
|
[%eth-call cal=call deb=block]
|
|
|
|
|
|
$: %eth-new-filter
|
|
|
|
|
|
fro=(unit block)
|
|
|
|
|
|
tob=(unit block)
|
|
|
|
|
|
adr=(list address)
|
|
|
|
|
|
top=(list octs)
|
|
|
|
|
|
==
|
|
|
|
|
|
[%eth-get-filter-logs fid=@ud]
|
|
|
|
|
|
$: %eth-get-logs
|
|
|
|
|
|
fro=(unit block)
|
|
|
|
|
|
tob=(unit block)
|
|
|
|
|
|
adr=(list address)
|
|
|
|
|
|
top=(list octs)
|
|
|
|
|
|
==
|
|
|
|
|
|
[%eth-get-filter-changes fid=@ud]
|
|
|
|
|
|
[%eth-send-raw-transaction dat=@ux]
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
::TODO clean up & actually use
|
|
|
|
|
|
++ response
|
|
|
|
|
|
$% ::TODO
|
|
|
|
|
|
[%eth-new-filter fid=@ud]
|
|
|
|
|
|
[%eth-get-filter-logs los=(list event-log)]
|
|
|
|
|
|
[%eth-get-logs los=(list event-log)]
|
|
|
|
|
|
[%eth-got-filter-changes los=(list event-log)]
|
|
|
|
|
|
[%eth-transaction-hash haz=@ux]
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
++ event-log
|
|
|
|
|
|
$: :: null for pending logs
|
|
|
|
|
|
$= mined %- unit
|
|
|
|
|
|
$: log-index=@ud
|
|
|
|
|
|
transaction-index=@ud
|
|
|
|
|
|
transaction-hash=@ux
|
|
|
|
|
|
block-number=@ud
|
|
|
|
|
|
block-hash=@ux
|
|
|
|
|
|
removed=?
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
address=@ux
|
|
|
|
|
|
data=@t
|
|
|
|
|
|
event=@ux
|
|
|
|
|
|
topics=(list @t)
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: data for eth_call.
|
|
|
|
|
|
++ call
|
|
|
|
|
|
$: from=(unit address)
|
|
|
|
|
|
to=address
|
|
|
|
|
|
gas=(unit @ud)
|
|
|
|
|
|
gas-price=(unit @ud)
|
|
|
|
|
|
value=(unit @ud)
|
|
|
|
|
|
data=tape
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: minimum data needed to construct a read call
|
|
|
|
|
|
++ proto-read-request
|
|
|
|
|
|
$: id=(unit @t)
|
|
|
|
|
|
to=address
|
|
|
|
|
|
call-data
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
:: block to operate on.
|
|
|
|
|
|
++ block
|
|
|
|
|
|
$% [%number n=@ud]
|
|
|
|
|
|
[%label l=?(%earliest %latest %pending)]
|
|
|
|
|
|
==
|
|
|
|
|
|
--
|
|
|
|
|
|
::
|
|
|
|
|
|
:: logic
|
|
|
|
|
|
::
|
|
|
|
|
|
|%
|
|
|
|
|
|
++ encode-call
|
|
|
|
|
|
|= call-data
|
|
|
|
|
|
^- tape
|
|
|
|
|
|
::TODO should this check to see if the data matches the function signature?
|
|
|
|
|
|
=- :(weld "0x" - (encode-args arguments))
|
|
|
|
|
|
%+ scag 8
|
|
|
|
|
|
%+ render-hex-bytes 32
|
|
|
|
|
|
%- keccak-256:keccak:crypto
|
|
|
|
|
|
(as-octs:mimes:html function)
|
|
|
|
|
|
::
|
|
|
|
|
|
:: building requests
|
|
|
|
|
|
::
|
|
|
|
|
|
++ json-request
|
|
|
|
|
|
=, eyre
|
|
|
|
|
|
|= [url=purl jon=json]
|
|
|
|
|
|
^- hiss
|
|
|
|
|
|
:^ url %post
|
|
|
|
|
|
%- ~(gas in *math)
|
|
|
|
|
|
~['Content-Type'^['application/json']~]
|
|
|
|
|
|
(some (as-octt (en-json:html jon)))
|
|
|
|
|
|
::
|
|
|
|
|
|
++ batch-read-request
|
|
|
|
|
|
|= req=(list proto-read-request)
|
|
|
|
|
|
^- json
|
|
|
|
|
|
a+(turn req read-request)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ read-request
|
|
|
|
|
|
|= proto-read-request
|
|
|
|
|
|
^- json
|
|
|
|
|
|
%+ request-to-json id
|
|
|
|
|
|
:+ %eth-call
|
|
|
|
|
|
^- call
|
|
|
|
|
|
[~ to ~ ~ ~ `tape`(encode-call function arguments)]
|
|
|
|
|
|
[%label %latest]
|
|
|
|
|
|
::
|
|
|
|
|
|
++ request-to-json
|
|
|
|
|
|
=, enjs:format
|
|
|
|
|
|
|= [riq=(unit @t) req=request]
|
|
|
|
|
|
^- json
|
|
|
|
|
|
%- pairs
|
|
|
|
|
|
=; r=[met=@t pas=(list json)]
|
|
|
|
|
|
:* jsonrpc+s+'2.0'
|
|
|
|
|
|
method+s+met.r
|
|
|
|
|
|
params+a+pas.r
|
|
|
|
|
|
::TODO would just jamming the req noun for id be a bad idea?
|
|
|
|
|
|
?~ riq ~
|
|
|
|
|
|
[id+s+u.riq]~
|
|
|
|
|
|
==
|
|
|
|
|
|
?- -.req
|
|
|
|
|
|
%eth-block-number
|
|
|
|
|
|
['eth_blockNumber' ~]
|
|
|
|
|
|
::
|
|
|
|
|
|
%eth-call
|
|
|
|
|
|
:- 'eth_call'
|
|
|
|
|
|
:~ (eth-call-to-json cal.req)
|
|
|
|
|
|
(block-to-json deb.req)
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
%eth-new-filter
|
|
|
|
|
|
:- 'eth_newFilter'
|
|
|
|
|
|
:_ ~
|
|
|
|
|
|
:- %o %- ~(gas by *(map @t json))
|
|
|
|
|
|
=- (murn - same)
|
|
|
|
|
|
^- (list (unit (pair @t json)))
|
|
|
|
|
|
:~ ?~ fro.req ~
|
|
|
|
|
|
`['fromBlock' (block-to-json u.fro.req)]
|
|
|
|
|
|
::
|
|
|
|
|
|
?~ tob.req ~
|
|
|
|
|
|
`['toBlock' (block-to-json u.tob.req)]
|
|
|
|
|
|
::
|
|
|
|
|
|
::TODO fucking tmi
|
|
|
|
|
|
?: =(0 (lent adr.req)) ~
|
|
|
|
|
|
:+ ~ 'address'
|
|
|
|
|
|
?: =(1 (lent adr.req)) (tape (address-to-hex (snag 0 adr.req)))
|
|
|
|
|
|
:- %a
|
|
|
|
|
|
(turn adr.req (cork address-to-hex tape))
|
|
|
|
|
|
::
|
|
|
|
|
|
?~ top.req ~
|
|
|
|
|
|
:^ ~ 'topics' %a
|
|
|
|
|
|
(turn `(list octs)`top.req :(cork render-hex-bytes prefix-hex tape))
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
%eth-get-filter-logs
|
|
|
|
|
|
['eth_getFilterLogs' (tape (num-to-hex fid.req)) ~]
|
|
|
|
|
|
::
|
|
|
|
|
|
%eth-get-logs
|
|
|
|
|
|
:- 'eth_getLogs'
|
|
|
|
|
|
:_ ~
|
|
|
|
|
|
:- %o %- ~(gas by *(map @t json))
|
|
|
|
|
|
=- (murn - same)
|
|
|
|
|
|
^- (list (unit (pair @t json)))
|
|
|
|
|
|
:~ ?~ fro.req ~
|
|
|
|
|
|
`['fromBlock' (block-to-json u.fro.req)]
|
|
|
|
|
|
::
|
|
|
|
|
|
?~ tob.req ~
|
|
|
|
|
|
`['toBlock' (block-to-json u.tob.req)]
|
|
|
|
|
|
::
|
|
|
|
|
|
::TODO fucking tmi
|
|
|
|
|
|
?: =(0 (lent adr.req)) ~
|
|
|
|
|
|
:+ ~ 'address'
|
|
|
|
|
|
?: =(1 (lent adr.req)) (tape (address-to-hex (snag 0 adr.req)))
|
|
|
|
|
|
:- %a
|
|
|
|
|
|
(turn adr.req (cork address-to-hex tape))
|
|
|
|
|
|
::
|
|
|
|
|
|
?~ top.req ~
|
|
|
|
|
|
:^ ~ 'topics' %a
|
|
|
|
|
|
(turn `(list octs)`top.req :(cork render-hex-bytes prefix-hex tape))
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
%eth-get-filter-changes
|
|
|
|
|
|
['eth_getFilterChanges' (tape (num-to-hex fid.req)) ~]
|
|
|
|
|
|
::
|
|
|
|
|
|
%eth-send-raw-transaction
|
|
|
|
|
|
['eth_sendRawTransaction' (tape (num-to-hex dat.req)) ~]
|
2018-05-16 00:16:29 +03:00
|
|
|
|
==
|
|
|
|
|
|
::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
++ eth-call-to-json
|
|
|
|
|
|
=, enjs:format
|
|
|
|
|
|
|= cal=call
|
|
|
|
|
|
^- json
|
2018-05-16 00:16:29 +03:00
|
|
|
|
:- %o %- ~(gas by *(map @t json))
|
|
|
|
|
|
=- (murn - same)
|
|
|
|
|
|
^- (list (unit (pair @t json)))
|
2018-12-18 01:38:24 +03:00
|
|
|
|
:~ ?~ from.cal ~
|
|
|
|
|
|
`['from' (tape (address-to-hex u.from.cal))]
|
|
|
|
|
|
::
|
|
|
|
|
|
`['to' (tape (address-to-hex to.cal))]
|
|
|
|
|
|
::
|
|
|
|
|
|
?~ gas.cal ~
|
|
|
|
|
|
`['gas' (tape (num-to-hex u.gas.cal))]
|
|
|
|
|
|
::
|
|
|
|
|
|
?~ gas-price.cal ~
|
|
|
|
|
|
`['gasPrice' (tape (num-to-hex u.gas-price.cal))]
|
|
|
|
|
|
::
|
|
|
|
|
|
?~ value.cal ~
|
|
|
|
|
|
`['value' (tape (num-to-hex u.value.cal))]
|
|
|
|
|
|
::
|
|
|
|
|
|
?~ data.cal ~
|
|
|
|
|
|
`['data' (tape data.cal)]
|
2018-05-16 00:16:29 +03:00
|
|
|
|
==
|
|
|
|
|
|
::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
++ block-to-json
|
|
|
|
|
|
|= dob=block
|
|
|
|
|
|
^- json
|
|
|
|
|
|
?- -.dob
|
|
|
|
|
|
%number s+(crip '0' 'x' ((x-co:co 1) n.dob))
|
|
|
|
|
|
%label s+l.dob
|
2018-10-24 23:20:49 +03:00
|
|
|
|
==
|
2018-05-16 00:16:29 +03:00
|
|
|
|
::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
:: parsing responses
|
2018-09-04 17:42:27 +03:00
|
|
|
|
::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
::TODO ++ parse-response |= json ^- response
|
|
|
|
|
|
::
|
|
|
|
|
|
++ parse-hex-result
|
|
|
|
|
|
|= j=json
|
|
|
|
|
|
^- @
|
|
|
|
|
|
?> ?=(%s -.j)
|
|
|
|
|
|
(hex-to-num p.j)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ parse-eth-new-filter-res parse-hex-result
|
|
|
|
|
|
::
|
|
|
|
|
|
++ parse-eth-block-number parse-hex-result
|
|
|
|
|
|
::
|
|
|
|
|
|
++ parse-transaction-hash parse-hex-result
|
|
|
|
|
|
::
|
|
|
|
|
|
++ parse-event-logs
|
|
|
|
|
|
(ar:dejs:format parse-event-log)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ parse-event-log
|
|
|
|
|
|
=, dejs:format
|
|
|
|
|
|
|= log=json
|
|
|
|
|
|
^- event-log
|
|
|
|
|
|
=- ((ot -) log)
|
|
|
|
|
|
:~ =- ['logIndex'^(cu - (mu so))]
|
|
|
|
|
|
|= li=(unit @t)
|
|
|
|
|
|
?~ li ~
|
|
|
|
|
|
=- `((ou -) log) ::TODO not sure if elegant or hacky.
|
|
|
|
|
|
:~ 'logIndex'^(un (cu hex-to-num so))
|
|
|
|
|
|
'transactionIndex'^(un (cu hex-to-num so))
|
|
|
|
|
|
'transactionHash'^(un (cu hex-to-num so))
|
|
|
|
|
|
'blockNumber'^(un (cu hex-to-num so))
|
|
|
|
|
|
'blockHash'^(un (cu hex-to-num so))
|
|
|
|
|
|
'removed'^(uf | bo)
|
|
|
|
|
|
==
|
|
|
|
|
|
::
|
|
|
|
|
|
address+(cu hex-to-num so)
|
|
|
|
|
|
data+so
|
|
|
|
|
|
::
|
|
|
|
|
|
::TODO doesn't account for the anonymous event case, which has no hash.
|
|
|
|
|
|
=- topics+(cu - (ar so))
|
|
|
|
|
|
|= r=(list @t)
|
|
|
|
|
|
?> ?=([@t *] r)
|
|
|
|
|
|
[(hex-to-num i.r) t.r]
|
|
|
|
|
|
==
|
|
|
|
|
|
--
|
2018-05-16 00:16:29 +03:00
|
|
|
|
::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
:: utilities
|
|
|
|
|
|
::TODO give them better homes!
|
2018-05-16 00:16:29 +03:00
|
|
|
|
::
|
|
|
|
|
|
++ num-to-hex
|
2018-09-04 17:42:27 +03:00
|
|
|
|
|= n=@
|
2018-05-16 00:16:29 +03:00
|
|
|
|
^- tape
|
|
|
|
|
|
%- prefix-hex
|
2018-12-18 01:38:24 +03:00
|
|
|
|
%- render-hex-bytes
|
|
|
|
|
|
(as-octs:mimes:html n)
|
2018-05-16 00:16:29 +03:00
|
|
|
|
::
|
|
|
|
|
|
++ address-to-hex
|
|
|
|
|
|
|= a=address
|
|
|
|
|
|
^- tape
|
|
|
|
|
|
%- prefix-hex
|
|
|
|
|
|
(render-hex-bytes 20 `@`a)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ prefix-hex
|
|
|
|
|
|
|= a=tape
|
|
|
|
|
|
^- tape
|
|
|
|
|
|
['0' 'x' a]
|
|
|
|
|
|
::
|
|
|
|
|
|
++ render-hex-bytes
|
2018-08-28 01:33:32 +03:00
|
|
|
|
:: atom to string of hex bytes without 0x prefix and dots.
|
2018-05-16 00:16:29 +03:00
|
|
|
|
|= a=octs
|
|
|
|
|
|
^- tape
|
|
|
|
|
|
((x-co:co (mul 2 p.a)) q.a)
|
|
|
|
|
|
::
|
|
|
|
|
|
++ pad-to-multiple
|
|
|
|
|
|
|= [wat=tape mof=@ud wer=?(%left %right)]
|
2018-09-27 04:14:34 +03:00
|
|
|
|
^- tape
|
2018-05-16 00:16:29 +03:00
|
|
|
|
=+ len=(lent wat)
|
2018-09-27 04:14:34 +03:00
|
|
|
|
?: =(len mof) wat
|
2018-05-16 00:16:29 +03:00
|
|
|
|
=+ tad=(reap (sub mof (mod len mof)) '0')
|
|
|
|
|
|
%- weld
|
|
|
|
|
|
?:(?=(%left wer) [tad wat] [wat tad])
|
|
|
|
|
|
::
|
2018-12-18 01:38:24 +03:00
|
|
|
|
++ hex-to-num
|
|
|
|
|
|
|= a=@t
|
|
|
|
|
|
(rash (rsh 3 2 a) hex)
|
2018-05-16 00:16:29 +03:00
|
|
|
|
--
|
2018-12-18 01:38:24 +03:00
|
|
|
|
::
|
2018-08-30 03:04:08 +03:00
|
|
|
|
:: |dawn: pre-boot request/response de/serialization and validation
|
|
|
|
|
|
::
|
|
|
|
|
|
++ dawn
|
|
|
|
|
|
=> |%
|
|
|
|
|
|
:: +live: public network state of a ship
|
|
|
|
|
|
::
|
|
|
|
|
|
+$ live (unit [=life breach=?])
|
|
|
|
|
|
--
|
|
|
|
|
|
|%
|
2018-10-15 23:05:55 +03:00
|
|
|
|
:: +come:dawn: mine a comet under a star
|
|
|
|
|
|
::
|
2019-01-12 05:31:48 +03:00
|
|
|
|
:: Randomly generates comet addresses until we find one whose parent is
|
|
|
|
|
|
:: in the list of supplied stars. Errors if any supplied ship
|
|
|
|
|
|
:: is not a star.
|
|
|
|
|
|
::
|
2018-10-15 23:05:55 +03:00
|
|
|
|
++ come
|
2019-01-12 05:31:48 +03:00
|
|
|
|
|= [tar=(list ship) eny=@uvJ]
|
|
|
|
|
|
::
|
|
|
|
|
|
=| stars=(set ship)
|
|
|
|
|
|
=. stars
|
|
|
|
|
|
|- ^+ stars
|
|
|
|
|
|
?~ tar stars
|
|
|
|
|
|
::
|
|
|
|
|
|
~| [%come-not-king i.tar]
|
|
|
|
|
|
?> ?=(%king (clan:title i.tar))
|
|
|
|
|
|
$(tar t.tar, stars (~(put in stars) i.tar))
|
|
|
|
|
|
::
|
2018-10-15 23:05:55 +03:00
|
|
|
|
|- ^- seed:able:jael
|
|
|
|
|
|
=/ cub=acru:ames (pit:nu:crub:crypto 512 eny)
|
|
|
|
|
|
=/ who=ship `@`fig:ex:cub
|
2019-01-12 05:31:48 +03:00
|
|
|
|
?: (~(has in stars) (^sein:title who))
|
2018-10-15 23:05:55 +03:00
|
|
|
|
[who 1 sec:ex:cub ~]
|
|
|
|
|
|
$(eny +(eny))
|
2018-08-30 03:04:08 +03:00
|
|
|
|
:: |give:dawn: produce requests for pre-boot validation
|
|
|
|
|
|
::
|
|
|
|
|
|
++ give
|
2018-12-18 01:38:24 +03:00
|
|
|
|
=, rpc:ethereum
|
|
|
|
|
|
=, abi:ethereum
|
|
|
|
|
|
=/ tract azimuth:contracts:azimuth
|
2018-08-30 03:04:08 +03:00
|
|
|
|
|%
|
2018-10-29 21:02:36 +03:00
|
|
|
|
:: +bloq:give:dawn: Eth RPC for latest block number
|
|
|
|
|
|
::
|
|
|
|
|
|
++ bloq
|
|
|
|
|
|
^- octs
|
|
|
|
|
|
%- as-octt:mimes:html
|
|
|
|
|
|
%- en-json:html
|
2018-12-18 01:38:24 +03:00
|
|
|
|
%+ request-to-json
|
2018-10-29 21:02:36 +03:00
|
|
|
|
`~.0
|
|
|
|
|
|
[%eth-block-number ~]
|
2018-08-30 03:04:08 +03:00
|
|
|
|
:: +czar:give:dawn: Eth RPC for galaxy table
|
|
|
|
|
|
::
|
|
|
|
|
|
++ czar
|
2018-10-29 21:02:36 +03:00
|
|
|
|
|= boq=@ud
|
2018-08-30 03:04:08 +03:00
|
|
|
|
^- octs
|
|
|
|
|
|
%- as-octt:mimes:html
|
|
|
|
|
|
%- en-json:html
|
2018-10-29 21:02:36 +03:00
|
|
|
|
:- %a
|
2018-08-30 03:04:08 +03:00
|
|
|
|
%+ turn (gulf 0 255)
|
2018-10-29 21:02:36 +03:00
|
|
|
|
|= gal=@
|
2018-12-18 01:38:24 +03:00
|
|
|
|
%+ request-to-json
|
2018-10-31 02:18:54 +03:00
|
|
|
|
`(cat 3 'gal-' (scot %ud gal))
|
2018-10-29 21:02:36 +03:00
|
|
|
|
:+ %eth-call
|
|
|
|
|
|
=- [from=~ to=tract gas=~ price=~ value=~ data=-]
|
2018-12-18 01:38:24 +03:00
|
|
|
|
(encode-call 'getKeys(uint32)' [%uint gal]~)
|
2018-10-29 21:02:36 +03:00
|
|
|
|
[%number boq]
|
2018-12-14 00:23:17 +03:00
|
|
|
|
:: +point:give:dawn: Eth RPC for ship's contract state
|
2018-08-30 03:04:08 +03:00
|
|
|
|
::
|
2018-12-14 00:23:17 +03:00
|
|
|
|
++ point
|
2018-10-29 21:02:36 +03:00
|
|
|
|
|= [boq=@ud who=ship]
|
2018-08-30 03:04:08 +03:00
|
|
|
|
^- octs
|
|
|
|
|
|
%- as-octt:mimes:html
|
|
|
|
|
|
%- en-json:html
|
2018-12-18 01:38:24 +03:00
|
|
|
|
%+ request-to-json
|
2018-10-29 21:02:36 +03:00
|
|
|
|
`~.0
|
|
|
|
|
|
:+ %eth-call
|
|
|
|
|
|
=- [from=~ to=tract gas=~ price=~ value=~ data=-]
|
2018-12-18 01:38:24 +03:00
|
|
|
|
(encode-call 'points(uint32)' [%uint `@`who]~)
|
2018-10-29 21:02:36 +03:00
|
|
|
|
[%number boq]
|
2018-08-30 03:04:08 +03:00
|
|
|
|
:: +turf:give:dawn: Eth RPC for network domains
|
|
|
|
|
|
::
|
|
|
|
|
|
++ turf
|
2018-10-29 21:02:36 +03:00
|
|
|
|
|= boq=@ud
|
2018-08-30 03:04:08 +03:00
|
|
|
|
^- octs
|
|
|
|
|
|
%- as-octt:mimes:html
|
|
|
|
|
|
%- en-json:html
|
2018-10-29 21:02:36 +03:00
|
|
|
|
:- %a
|
2018-08-30 03:04:08 +03:00
|
|
|
|
%+ turn (gulf 0 2)
|
2018-10-29 21:02:36 +03:00
|
|
|
|
|= idx=@
|
2018-12-18 01:38:24 +03:00
|
|
|
|
%+ request-to-json
|
2018-10-31 02:18:54 +03:00
|
|
|
|
`(cat 3 'turf-' (scot %ud idx))
|
2018-10-29 21:02:36 +03:00
|
|
|
|
:+ %eth-call
|
|
|
|
|
|
=- [from=~ to=tract gas=~ price=~ value=~ data=-]
|
2018-12-18 01:38:24 +03:00
|
|
|
|
(encode-call 'dnsDomains(uint256)' [%uint idx]~)
|
2018-10-29 21:02:36 +03:00
|
|
|
|
[%number boq]
|
2018-08-30 03:04:08 +03:00
|
|
|
|
--
|
|
|
|
|
|
:: |take:dawn: parse responses for pre-boot validation
|
|
|
|
|
|
::
|
|
|
|
|
|
++ take
|
2018-12-18 01:38:24 +03:00
|
|
|
|
=, abi:ethereum
|
|
|
|
|
|
=, rpc:ethereum
|
|
|
|
|
|
=, azimuth
|
2018-12-06 22:11:14 +03:00
|
|
|
|
=, dejs-soft:format
|
2018-08-30 03:04:08 +03:00
|
|
|
|
|%
|
2018-10-29 21:02:36 +03:00
|
|
|
|
:: +bloq:take:dawn: parse block number
|
|
|
|
|
|
::
|
|
|
|
|
|
++ bloq
|
|
|
|
|
|
|= rep=octs
|
2018-12-06 22:11:14 +03:00
|
|
|
|
^- (unit @ud)
|
|
|
|
|
|
=/ jon=(unit json) (de-json:html q.rep)
|
|
|
|
|
|
?~ jon
|
|
|
|
|
|
~&([%bloq-take-dawn %invalid-json] ~)
|
|
|
|
|
|
=/ res=(unit cord) ((ot result+so ~) u.jon)
|
|
|
|
|
|
?~ res
|
|
|
|
|
|
~&([%bloq-take-dawn %invalid-response rep] ~)
|
|
|
|
|
|
=/ out
|
|
|
|
|
|
%- mule |.
|
|
|
|
|
|
(hex-to-num:ethereum u.res)
|
|
|
|
|
|
?: ?=(%& -.out)
|
|
|
|
|
|
(some p.out)
|
|
|
|
|
|
~&([%bloq-take-dawn %invalid-block-number] ~)
|
2018-08-30 03:04:08 +03:00
|
|
|
|
:: +czar:take:dawn: parse galaxy table
|
|
|
|
|
|
::
|
|
|
|
|
|
++ czar
|
|
|
|
|
|
|= rep=octs
|
2018-12-06 22:11:14 +03:00
|
|
|
|
^- (unit (map ship [=life =pass]))
|
|
|
|
|
|
=/ jon=(unit json) (de-json:html q.rep)
|
|
|
|
|
|
?~ jon
|
|
|
|
|
|
~&([%czar-take-dawn %invalid-json] ~)
|
|
|
|
|
|
=/ res=(unit (list [@t @t]))
|
|
|
|
|
|
((ar (ot id+so result+so ~)) u.jon)
|
|
|
|
|
|
?~ res
|
|
|
|
|
|
~&([%czar-take-dawn %invalid-response rep] ~)
|
|
|
|
|
|
=/ dat=(unit (list [who=ship enc=octs aut=octs sut=@ud rev=@ud]))
|
|
|
|
|
|
=- ?:(?=(%| -.out) ~ (some p.out))
|
|
|
|
|
|
^= out %- mule |.
|
|
|
|
|
|
%+ turn u.res
|
|
|
|
|
|
|= [id=@t result=@t]
|
|
|
|
|
|
^- [who=ship enc=octs aut=octs sut=@ud rev=@ud]
|
|
|
|
|
|
:- `@p`(slav %ud (rsh 3 4 id))
|
2018-12-18 01:38:24 +03:00
|
|
|
|
%+ decode-results
|
2018-12-06 22:11:14 +03:00
|
|
|
|
result
|
|
|
|
|
|
~[[%bytes-n 32] [%bytes-n 32] %uint %uint]
|
|
|
|
|
|
?~ dat
|
|
|
|
|
|
~&([%bloq-take-dawn %invalid-galaxy-table] ~)
|
|
|
|
|
|
:- ~
|
|
|
|
|
|
%+ roll u.dat
|
|
|
|
|
|
|= $: [who=ship enc=octs aut=octs sut=@ud rev=@ud]
|
2018-08-30 03:04:08 +03:00
|
|
|
|
kyz=(map ship [=life =pass])
|
|
|
|
|
|
==
|
|
|
|
|
|
^+ kyz
|
2019-01-16 02:10:53 +03:00
|
|
|
|
=/ pub=pass
|
2018-12-18 01:38:24 +03:00
|
|
|
|
(pass-from-eth enc aut sut)
|
2019-01-16 02:10:53 +03:00
|
|
|
|
(~(put by kyz) who [rev pub])
|
2018-12-14 00:23:17 +03:00
|
|
|
|
:: +point:take:dawn: parse ship's contract state
|
2018-08-30 03:04:08 +03:00
|
|
|
|
::
|
2018-12-14 00:23:17 +03:00
|
|
|
|
++ point
|
2018-08-30 03:04:08 +03:00
|
|
|
|
|= [who=ship rep=octs]
|
2018-12-18 01:38:24 +03:00
|
|
|
|
^- (unit point:azimuth)
|
2018-12-06 22:11:14 +03:00
|
|
|
|
=/ jon=(unit json) (de-json:html q.rep)
|
|
|
|
|
|
?~ jon
|
2018-12-14 00:23:17 +03:00
|
|
|
|
~&([%point-take-dawn %invalid-json] ~)
|
2018-12-06 22:11:14 +03:00
|
|
|
|
=/ res=(unit cord) ((ot result+so ~) u.jon)
|
|
|
|
|
|
?~ res
|
2018-12-14 00:23:17 +03:00
|
|
|
|
~&([%point-take-dawn %invalid-response rep] ~)
|
2018-12-06 22:11:14 +03:00
|
|
|
|
~? =(u.res '0x')
|
2018-12-14 00:23:17 +03:00
|
|
|
|
:- 'bad result from node; is azimuth address correct?'
|
2018-12-18 01:38:24 +03:00
|
|
|
|
azimuth:contracts
|
2018-12-06 22:11:14 +03:00
|
|
|
|
=/ out
|
|
|
|
|
|
%- mule |.
|
2018-12-18 01:38:24 +03:00
|
|
|
|
%+ point-from-eth
|
2018-12-06 22:11:14 +03:00
|
|
|
|
who
|
2018-12-18 01:38:24 +03:00
|
|
|
|
:_ *deed:eth-noun ::TODO call rights to fill
|
|
|
|
|
|
(decode-results u.res point:eth-type)
|
2018-12-06 22:11:14 +03:00
|
|
|
|
?: ?=(%& -.out)
|
|
|
|
|
|
(some p.out)
|
2018-12-14 00:23:17 +03:00
|
|
|
|
~&([%point-take-dawn %invalid-point] ~)
|
2018-08-30 03:04:08 +03:00
|
|
|
|
:: +turf:take:dawn: parse network domains
|
|
|
|
|
|
::
|
|
|
|
|
|
++ turf
|
|
|
|
|
|
|= rep=octs
|
2018-12-06 22:11:14 +03:00
|
|
|
|
^- (unit (list ^turf))
|
|
|
|
|
|
=/ jon=(unit json) (de-json:html q.rep)
|
|
|
|
|
|
?~ jon
|
|
|
|
|
|
~&([%turf-take-dawn %invalid-json] ~)
|
|
|
|
|
|
=/ res=(unit (list [@t @t]))
|
|
|
|
|
|
((ar (ot id+so result+so ~)) u.jon)
|
|
|
|
|
|
?~ res
|
|
|
|
|
|
~&([%turf-take-dawn %invalid-response rep] ~)
|
|
|
|
|
|
=/ dat=(unit (list (pair @ud ^turf)))
|
|
|
|
|
|
=- ?:(?=(%| -.out) ~ (some p.out))
|
|
|
|
|
|
^= out %- mule |.
|
|
|
|
|
|
%+ turn u.res
|
2018-10-04 09:43:40 +03:00
|
|
|
|
|= [id=@t result=@t]
|
|
|
|
|
|
^- (pair @ud ^turf)
|
2018-10-31 02:18:54 +03:00
|
|
|
|
:- (slav %ud (rsh 3 5 id))
|
2018-10-04 09:43:40 +03:00
|
|
|
|
=/ dom=tape
|
2018-12-18 01:38:24 +03:00
|
|
|
|
(decode-results result [%string]~)
|
2018-10-04 09:43:40 +03:00
|
|
|
|
=/ hot=host:eyre
|
|
|
|
|
|
(scan dom thos:de-purl:html)
|
|
|
|
|
|
?>(?=(%& -.hot) p.hot)
|
2018-12-06 22:11:14 +03:00
|
|
|
|
?~ dat
|
|
|
|
|
|
~&([%turf-take-dawn %invalid-domains] ~)
|
|
|
|
|
|
:- ~
|
|
|
|
|
|
=* dom u.dat
|
2018-10-04 09:43:40 +03:00
|
|
|
|
:: sort by id, ascending, removing duplicates
|
|
|
|
|
|
::
|
|
|
|
|
|
=| tuf=(map ^turf @ud)
|
|
|
|
|
|
|- ^- (list ^turf)
|
|
|
|
|
|
?~ dom
|
|
|
|
|
|
%+ turn
|
|
|
|
|
|
%+ sort ~(tap by tuf)
|
|
|
|
|
|
|=([a=(pair ^turf @ud) b=(pair ^turf @ud)] (lth q.a q.b))
|
|
|
|
|
|
head
|
|
|
|
|
|
=? tuf !(~(has by tuf) q.i.dom)
|
|
|
|
|
|
(~(put by tuf) q.i.dom p.i.dom)
|
|
|
|
|
|
$(dom t.dom)
|
2018-08-30 03:04:08 +03:00
|
|
|
|
--
|
2018-11-01 00:34:21 +03:00
|
|
|
|
:: |snap:dawn restore from snapshot
|
|
|
|
|
|
::
|
|
|
|
|
|
++ snap
|
|
|
|
|
|
!:
|
|
|
|
|
|
|%
|
|
|
|
|
|
:: +bloq:snap:dawn: extract block number
|
|
|
|
|
|
::
|
|
|
|
|
|
++ bloq
|
2018-11-01 01:18:40 +03:00
|
|
|
|
|= snap=snapshot:jael
|
2018-12-07 10:06:54 +03:00
|
|
|
|
^- (unit @ud)
|
|
|
|
|
|
=- ?:(?=(%| -.out) ~ (some p.out))
|
|
|
|
|
|
^= out %- mule |.
|
2018-12-06 03:26:32 +03:00
|
|
|
|
latest-block.snap
|
2018-11-01 00:34:21 +03:00
|
|
|
|
:: +czar:snap:dawn: extract galaxy table
|
|
|
|
|
|
::
|
|
|
|
|
|
++ czar
|
2018-11-01 01:18:40 +03:00
|
|
|
|
|= snap=snapshot:jael
|
2018-12-07 10:06:54 +03:00
|
|
|
|
^- (unit (map ship [=life =pass]))
|
|
|
|
|
|
=- ?:(?=(%| -.out) ~ (some p.out))
|
|
|
|
|
|
^= out %- mule |.
|
|
|
|
|
|
%- ~(gas by *(map ship [=life =pass]))
|
2018-11-01 00:34:21 +03:00
|
|
|
|
%+ turn (gulf 0 255)
|
|
|
|
|
|
|= gal=@
|
|
|
|
|
|
^- [ship [life pass]]
|
|
|
|
|
|
:- gal
|
|
|
|
|
|
~| czar-gal=gal
|
2018-12-14 00:23:17 +03:00
|
|
|
|
[life pass]:(need net:(~(got by pos.eth.snap) gal))
|
|
|
|
|
|
:: +point:snap:dawn: extract ship's contract state
|
2018-11-01 00:34:21 +03:00
|
|
|
|
::
|
2018-12-14 00:23:17 +03:00
|
|
|
|
++ point
|
2018-11-01 01:18:40 +03:00
|
|
|
|
|= [who=ship snap=snapshot:jael]
|
2018-12-18 01:38:24 +03:00
|
|
|
|
^- (unit point:azimuth)
|
2018-12-14 00:23:17 +03:00
|
|
|
|
(~(get by pos.eth.snap) who)
|
2018-11-01 00:34:21 +03:00
|
|
|
|
:: +turf:snap:dawn: extract network domains
|
|
|
|
|
|
::
|
|
|
|
|
|
++ turf
|
2018-11-01 01:18:40 +03:00
|
|
|
|
|= snap=snapshot:jael
|
2018-12-07 10:06:54 +03:00
|
|
|
|
^- (unit (list ^turf))
|
|
|
|
|
|
=- ?:(?=(%| -.out) ~ (some p.out))
|
|
|
|
|
|
^= out %- mule |.
|
2018-11-01 00:34:21 +03:00
|
|
|
|
%+ murn
|
2018-12-07 10:06:54 +03:00
|
|
|
|
^- (list host:eyre)
|
2018-11-01 00:34:21 +03:00
|
|
|
|
%+ murn
|
|
|
|
|
|
^- (list @t)
|
|
|
|
|
|
~[pri sec ter]:dns.eth.snap
|
|
|
|
|
|
|= dom=@t
|
2018-12-07 10:06:54 +03:00
|
|
|
|
^- (unit host:eyre)
|
2018-11-01 01:18:40 +03:00
|
|
|
|
(rush dom thos:de-purl:html)
|
2018-12-07 10:06:54 +03:00
|
|
|
|
|=(a=host:eyre ?:(?=(%| -.a) ~ (some p.a)))
|
2018-08-30 03:04:08 +03:00
|
|
|
|
--
|
|
|
|
|
|
:: +veri:dawn: validate keys, life, discontinuity, &c
|
|
|
|
|
|
::
|
|
|
|
|
|
++ veri
|
2018-12-18 01:38:24 +03:00
|
|
|
|
|= [=seed:able:jael =point:azimuth =live]
|
2018-12-21 17:59:12 +03:00
|
|
|
|
^- (each sponsor=ship error=term)
|
2018-08-30 03:04:08 +03:00
|
|
|
|
=/ rac (clan:title who.seed)
|
|
|
|
|
|
=/ cub (nol:nu:crub:crypto key.seed)
|
|
|
|
|
|
?- rac
|
|
|
|
|
|
%pawn
|
2018-10-12 20:19:23 +03:00
|
|
|
|
:: a comet address is the fingerprint of the keypair
|
|
|
|
|
|
::
|
2018-08-30 03:04:08 +03:00
|
|
|
|
?. =(who.seed `@`fig:ex:cub)
|
2018-10-12 20:19:23 +03:00
|
|
|
|
[%| %key-mismatch]
|
|
|
|
|
|
:: a comet can never be breached
|
|
|
|
|
|
::
|
2018-08-30 03:04:08 +03:00
|
|
|
|
?^ live
|
2018-10-12 20:19:23 +03:00
|
|
|
|
[%| %already-booted]
|
|
|
|
|
|
:: a comet can never be re-keyed
|
|
|
|
|
|
::
|
2018-08-30 03:04:08 +03:00
|
|
|
|
?. ?=(%1 lyf.seed)
|
2018-10-12 20:19:23 +03:00
|
|
|
|
[%| %invalid-life]
|
2018-12-21 19:38:41 +03:00
|
|
|
|
[%& (^sein:title who.seed)]
|
2018-08-30 03:04:08 +03:00
|
|
|
|
::
|
|
|
|
|
|
%earl
|
2018-10-12 20:19:23 +03:00
|
|
|
|
:: a moon must be signed by the parent
|
|
|
|
|
|
::
|
2018-08-30 03:04:08 +03:00
|
|
|
|
?~ sig.seed
|
2018-10-12 20:19:23 +03:00
|
|
|
|
[%| %missing-sig]
|
|
|
|
|
|
:: the parent must be launched
|
|
|
|
|
|
::
|
2018-12-14 00:23:17 +03:00
|
|
|
|
?~ net.point
|
2018-10-12 20:19:23 +03:00
|
|
|
|
[%| %parent-not-keyed]
|
2018-10-26 00:39:34 +03:00
|
|
|
|
:: life must match parent's
|
|
|
|
|
|
::
|
2018-12-14 00:23:17 +03:00
|
|
|
|
?. =(lyf.seed life.u.net.point)
|
2018-10-26 00:39:34 +03:00
|
|
|
|
[%| %life-mismatch]
|
2018-12-14 00:23:17 +03:00
|
|
|
|
=/ loy (com:nu:crub:crypto pass.u.net.point)
|
2018-10-12 20:19:23 +03:00
|
|
|
|
=/ hax (shaf %earl (sham who.seed lyf.seed pub:ex:cub))
|
|
|
|
|
|
:: the signature must be valid
|
|
|
|
|
|
::
|
2018-08-30 03:04:08 +03:00
|
|
|
|
?. =((some hax) (sure:as:loy u.sig.seed))
|
2018-10-12 20:19:23 +03:00
|
|
|
|
[%| %invalid-sig]
|
|
|
|
|
|
:: XX revisit for rekey
|
|
|
|
|
|
::
|
2018-08-30 03:04:08 +03:00
|
|
|
|
?^ live
|
2018-10-12 20:19:23 +03:00
|
|
|
|
[%| %already-booted]
|
2018-12-21 17:59:12 +03:00
|
|
|
|
[%& (^sein:title who.seed)]
|
2018-08-30 03:04:08 +03:00
|
|
|
|
::
|
|
|
|
|
|
*
|
2018-10-12 20:19:23 +03:00
|
|
|
|
:: on-chain ships must be launched
|
|
|
|
|
|
::
|
2018-12-14 00:23:17 +03:00
|
|
|
|
?~ net.point
|
2018-10-12 20:19:23 +03:00
|
|
|
|
[%| %not-keyed]
|
2018-12-21 18:01:21 +03:00
|
|
|
|
=* net u.net.point
|
2018-10-12 20:19:23 +03:00
|
|
|
|
:: boot keys must match the contract
|
|
|
|
|
|
::
|
2018-12-21 18:01:21 +03:00
|
|
|
|
?. =(pub:ex:cub pass.net)
|
2019-01-11 02:49:37 +03:00
|
|
|
|
~& [%key-mismatch pub:ex:cub pass.net]
|
2018-10-12 20:19:23 +03:00
|
|
|
|
[%| %key-mismatch]
|
2018-10-26 00:39:34 +03:00
|
|
|
|
:: life must match the contract
|
|
|
|
|
|
::
|
2018-12-21 18:01:21 +03:00
|
|
|
|
?. =(lyf.seed life.net)
|
2018-10-26 00:39:34 +03:00
|
|
|
|
[%| %life-mismatch]
|
2018-10-12 20:19:23 +03:00
|
|
|
|
:: the boot life must be greater than and discontinuous with
|
|
|
|
|
|
:: the last seen life (per the sponsor)
|
|
|
|
|
|
::
|
2018-08-30 03:04:08 +03:00
|
|
|
|
?: ?& ?=(^ live)
|
|
|
|
|
|
?| ?=(%| breach.u.live)
|
2018-12-21 18:01:21 +03:00
|
|
|
|
(lte life.net life.u.live)
|
2018-08-30 03:04:08 +03:00
|
|
|
|
== ==
|
2018-10-12 20:19:23 +03:00
|
|
|
|
[%| %already-booted]
|
|
|
|
|
|
:: produce the sponsor for vere
|
|
|
|
|
|
::
|
2018-12-21 18:01:21 +03:00
|
|
|
|
~? !has.sponsor.net
|
|
|
|
|
|
[%no-sponsorship-guarantees-from who.sponsor.net]
|
|
|
|
|
|
[%& who.sponsor.net]
|
2018-08-30 03:04:08 +03:00
|
|
|
|
==
|
|
|
|
|
|
--
|
2016-11-24 07:25:07 +03:00
|
|
|
|
-- ::
|
