ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-20 23:18:00 +03:00
Code Issues Packages Projects Releases Wiki Activity
b880a24e91
urbit/sys/zuse.hoon

8594 lines
315 KiB
Plaintext
Raw Normal View History

Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: :: /van/zuse
:: :: %reference/1
New metal boot system.
2016-11-24 07:25:07 +03:00
:: %zuse: arvo library.
::
%velo reset works.
2016-12-02 04:17:02 +03:00
:: %zuse is two nested cores: the first for models
New metal boot system.
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")
%velo reset works.
2016-12-02 04:17:02 +03:00
:: - %behn: scheduling ("bane")
New metal boot system.
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")
%velo reset works.
2016-12-02 04:17:02 +03:00
::
New metal boot system.
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`.
::
%velo reset works.
2016-12-02 04:17:02 +03:00
:: every model or engine in %zuse is attached to some
New metal boot system.
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 +> ~
%velo reset works.
2016-12-02 04:17:02 +03:00
=>
New metal boot system.
2016-11-24 07:25:07 +03:00
:: :: ::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:::: :: :: (1) models
:: :: ::
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Work in progress.
2018-08-16 04:05:30 +03:00
:: # %misc
Old help totally cleaned out.
2018-05-25 01:39:56 +03:00
::
Work in progress.
2018-08-16 04:05:30 +03:00
:: miscellaneous systems types
::+|
move ++json and other above-arvo types to zuse
2017-11-23 00:28:07 +03:00
++ ares (unit {p/term q/(list tank)}) :: possible error
+capped-queue is also general. Move to zuse and add tests.
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
==
The +clock structure is general, put it in zuse and add tess.
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
==
::
move ++json and other above-arvo types to zuse
2017-11-23 00:28:07 +03:00
++ coop (unit ares) :: possible error
WIP
2019-02-02 00:46:09 +03:00
++ life @ud :: ship key revision
++ rift @ud :: ship continuity
move ++json and other above-arvo types to zuse
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]
::+|
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ roof (room vase) :: namespace
Stash.
2017-04-23 06:13:14 +03:00
++ room :: either namespace
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* vase/mold :: vase or maze
Rename ++span to ++type.
2017-11-16 23:44:27 +03:00
$- $: ref/* :: reference type
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
lyc/(unit (set ship)) :: leakset
car/term :: perspective
bem/beam :: path
Stash.
2017-04-23 06:13:14 +03:00
== ::
%- unit :: ~: unknown
%- unit :: ~ ~: invalid
(cask vase) :: marked cargo
updates %jael to save and %ames to give domains (on boot/startup) also defers initial clay merge, renames +turf (utf8 to utf32) to +taft, and removes duplicate +turf (domain) declarations, and updates pinned vere to use them
2018-10-04 09:43:40 +03:00
::
++ turf (list @t) :: domain, tld first
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
:: ::
:::: ++jstd :: json standards structures
:: ::::
++ jstd
|%
++ rpc
|%
Provide better affordances for json-rpc requests Includes a type for rpc requests, and functions for turning those into more actionable types (json, hiss).
2019-02-03 23:00:45 +03:00
+$ request
$: id=@t
method=@t
params=request-params
==
::
+$ request-params
$% [%list (list json)]
[%object (list (pair @t json))]
==
+$ response
reduce ++hard usage in jael for speed
2019-01-11 02:49:37 +03:00
$~ [%fail *httr:eyre]
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
$% [%result id=@t res=json]
[%error id=@t code=@t message=@t] ::TODO data?
manually restore from snapshot
2018-10-30 21:41:35 +03:00
[%fail hit=httr:eyre]
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
[%batch bas=(list response)]
==
--
--
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
:: ::::
:::: ++ethereum-types :: eth surs for jael
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
:: ::::
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
++ ethereum-types
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
|%
:: ethereum address, 20 bytes.
::
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
++ address @ux
:: event location
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
Integrate Ethereum logic more closely into existing jael flows. Compiles, untested.
2018-05-29 00:04:33 +03:00
+= event-id [block=@ud log=@ud]
::
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
++ events (set event-id)
--
:: ::::
:::: ++azimuth-types :: az surs for jael
:: ::::
++ azimuth-types
=, ethereum-types
|%
++ point
$: :: ownership
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
::
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
$= own
Update Ethereum stdlib core for latest contracts To match up to urbit/constitution/b5b8556.
2018-10-03 03:56:00 +03:00
$: owner=address
management-proxy=address
Touch up Ethereum structs and calls to support latest contracts
2018-12-13 22:19:55 +03:00
voting-proxy=address
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
transfer-proxy=address
==
Rebrand Constitution stdlib to Azimuth stdlib
2018-12-14 00:23:17 +03:00
::
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
:: networking
::
$= net
%- unit
$: =life
=pass
continuity-number=@ud
Make Urbit-side sponsorship state match chain state more closely We always have a sponsor, plus a flag that says whether they're actively sponsoring us. If they aren't they recently kicked us. Because we can't do anything without a sponsor, we still try with them.
2018-12-21 17:59:12 +03:00
sponsor=[has=? who=@p]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
escape=(unit @p)
==
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
Reorganize Ethereum-related stdlib cores
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
Make Urbit-side sponsorship state match chain state more closely We always have a sponsor, plus a flag that says whether they're actively sponsoring us. If they aren't they recently kicked us. Because we can't do anything without a sponsor, we still try with them.
2018-12-21 17:59:12 +03:00
[%sponsor new=[has=? who=@p]] :: EscapeAcc/LostSpons
Reorganize Ethereum-related stdlib cores
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
==
--
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
:::: ++ames :: (1a) network
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
++ ames ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::
Fix some boot issues.
2017-10-10 08:22:47 +03:00
:::: ++able:ames :: (1a1) arvo moves
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ able ^?
|%
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ gift :: out result <-$
removes strange %ames self-gift when forwarding to self
2018-12-11 21:26:10 +03:00
$% {$mack p/(unit tang)} :: acknowledgement
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$mass p/mass} :: memory usage
{$send p/lane q/@} :: transmit packet
updates %jael to save and %ames to give domains (on boot/startup) also defers initial clay merge, renames +turf (utf8 to utf32) to +taft, and removes duplicate +turf (domain) declarations, and updates pinned vere to use them
2018-10-04 09:43:40 +03:00
{$turf p/(list turf)} :: bind to domains
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$woot p/ship q/coop} :: reaction message
%velo reset works.
2016-12-02 04:17:02 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ task :: in request ->$
updates %ames +note/+sign to reference other vanes with $>
2019-05-25 11:11:31 +03:00
$% {$barn ~} :: new unix process
add |bonk and flop ames timer order
2019-02-16 12:34:38 +03:00
{$bonk ~} :: reset the timer
Reset %zuse pre 143.
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
implements %dawn boot in %jael, removes %ames boot
2018-09-07 04:41:16 +03:00
[%init p=ship] :: report install
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$kick p/@da} :: wake up
{$nuke p/@p} :: toggle auto-block
WIP
2019-02-02 00:46:09 +03:00
{$sunk p=ship q=rift} :: report death
updates arvo/vanes to send/receive %vega kernel upgrade notification
2019-02-01 10:37:00 +03:00
{$vega ~} :: report upgrade
Smoke-test boots with full ford-turbo merge.
2018-08-20 02:06:19 +03:00
{$wake ~} :: timer activate
{$wegh ~} :: report memory
10. single-home %ames %west/%west tasks
2018-12-13 01:02:37 +03:00
{$west p/ship q/path r/*} :: network request
9. single-home %ames %want task
2018-12-12 23:34:18 +03:00
{$want p/ship q/path r/*} :: forward message
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
-- ::able
New metal boot system.
2016-11-24 07:25:07 +03:00
::
:::: :: (1a2)
::
++ acru $_ ^? :: asym cryptosuite
|% :: opaque object
++ as ^? :: asym ops
simplifies +acru interface, updates +crub and call-sites
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
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::as ::
Reset %zuse pre 143.
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
New metal boot system.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|% ++ pit |~({a/@ b/@} ^?(..nu)) :: from [width seed]
simplifies +acru interface, updates +crub and call-sites
2018-08-21 22:23:00 +03:00
++ nol |~(a/ring ^?(..nu)) :: from ring
++ com |~(a/pass ^?(..nu)) :: from pass
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::nu ::
-- ::acru ::
Reset %zuse pre 143.
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
Merge branch 'remaint' into remaint-merge
2017-10-02 04:50:19 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ boon :: fort output
8. single-home %ames internal moves
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
Merge branch 'remaint' into remaint-merge
2017-10-02 04:50:19 +03:00
== ::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ code @uvI :: symmetric key
++ corn :: flow by server
removes unused structures from %ames state
2018-11-01 06:21:29 +03:00
$: nys/(map flap bait) :: packets incoming
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
olz/(map flap cape) :: packets completed
wab/(map ship bath) :: relationship
Merge branch 'remaint' into remaint-merge
2017-10-02 04:50:19 +03:00
== ::
clarifies comments, removes todos, minor refactoring
2018-10-15 07:11:36 +03:00
+$ deed [=life =pass oath=(unit oath:pki:jael)] :: life/pub/sig
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ dore :: foreign contact
$: wod/road :: connection to
caq/clot :: symmetric key state
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ fort :: formal state
adds lane-change subscriptions (%tend/%rove) to ames
2018-04-25 20:24:45 +03:00
$: $1 :: version
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
gad/duct :: client interface
updates %ames to use %behn timers instead of +doze polling
2018-11-26 09:33:41 +03:00
tim/(unit @da) :: pending timer
updates %jael to save and %ames to give domains (on boot/startup) also defers initial clay merge, renames +turf (utf8 to utf32) to +taft, and removes duplicate +turf (domain) declarations, and updates pinned vere to use them
2018-10-04 09:43:40 +03:00
tuf/(list turf) :: domains
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
hop/@da :: network boot date
bad/(set @p) :: bad ships
ton/town :: security
6. single-home %ames state
2018-12-12 22:37:04 +03:00
zac/corn :: flows by server
Merge branch 'remaint' into remaint-merge
2017-10-02 04:50:19 +03:00
== ::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ meal :: payload
$% {$back p/coop q/flap r/@dr} :: ack
removes +life from %bond +meal (to fix nacks)
2019-01-12 00:55:27 +03:00
{$bond p/path q/@ud r/*} :: message
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ rill :: outbound stream
$: sed/@ud :: sent
san/(map @ud duct) :: outstanding
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ road :: secured oneway route
$: exp/@da :: expiration date
lun/(unit lane) :: route to friend
removes %ames pki and old boot process
2018-09-13 08:48:18 +03:00
lew/(unit deed) :: deed of friend
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
== ::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
6. single-home %ames state
2018-12-12 22:37:04 +03:00
++ town :: all security state
$: any/@ :: entropy
val/wund :: private keys
removes %ames pki and old boot process
2018-09-13 08:48:18 +03:00
law/deed :: server deed
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
seh/(map hand {p/ship q/@da}) :: key cache
hoc/(map ship dore) :: neighborhood
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
removes %ames pki and old boot process
2018-09-13 08:48:18 +03:00
++ wund (list {p/life q/ring r/acru}) :: secrets in action
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::ames
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
:::: ++behn :: (1b) timekeeping
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
++ behn ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::
:::: ++able:behn :: (1b1) arvo moves
:: ::::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ able ^?
|%
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ gift :: out result <-$
Behn pass errors to client vanes (#1135) * [%wake (unit tang)] in Behn and Zuse; no other vanes compile * ames compiles * clay compiles * eyre compiles * jael compiles * Aqua send %crud on behn error
2019-04-10 06:15:37 +03:00
$% [%doze p=(unit @da)] :: next alarm
[%mass p=mass] :: memory usage
[%wake error=(unit tang)] :: wakeup or failed
real queueing for clay writes
2019-05-02 04:21:32 +03:00
[%meta p=vase]
Behn pass errors to client vanes (#1135) * [%wake (unit tang)] in Behn and Zuse; no other vanes compile * ames compiles * clay compiles * eyre compiles * jael compiles * Aqua send %crud on behn error
2019-04-10 06:15:37 +03:00
==
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ task :: in request ->$
Behn pass errors to client vanes (#1135) * [%wake (unit tang)] in Behn and Zuse; no other vanes compile * ames compiles * clay compiles * eyre compiles * jael compiles * Aqua send %crud on behn error
2019-04-10 06:15:37 +03:00
$% [%born ~] :: new unix process
[%crud tag=@tas =tang] :: error with trace
[%rest p=@da] :: cancel alarm
real queueing for clay writes
2019-05-02 04:21:32 +03:00
[%drip p=vase] :: give in next event
Behn pass errors to client vanes (#1135) * [%wake (unit tang)] in Behn and Zuse; no other vanes compile * ames compiles * clay compiles * eyre compiles * jael compiles * Aqua send %crud on behn error
2019-04-10 06:15:37 +03:00
[%vega ~] :: report upgrade
[%wait p=@da] :: set alarm
[%wake ~] :: timer activate
[%wegh ~] :: report memory
==
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::able
-- ::behn
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
:::: ++clay :: (1c) versioning
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
++ clay ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::
:::: ++able:clay :: (1c1) arvo moves
:: ::::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ able ^?
|%
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ gift :: out result <-$
Clay task for retrieving the rules that apply to a group.
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
Clay permissions interface proposal.
2018-01-24 00:52:31 +03:00
{$dirk p/@tas} :: mark mount dirty
Reset %zuse pre 143.
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
Updates interface to include support for write permissions.
2018-01-24 18:33:41 +03:00
{$rule red/dict wit/dict} :: node r+w permissions
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$send p/lane:ames q/@} :: transmit packet
{$writ p/riot} :: response
Change %wris so it always returns a date. This removes the scry from +rebuild in ford-turbo. This is ok since ford-turbo Is the only consumer of %wris. The ford-turbo app now works end-to-end in a way that theoretically should work without the app.
2018-05-10 21:18:52 +03:00
{$wris p/{$da p/@da} q/(set (pair care path))} :: many changes
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ task :: in request ->$
22. single-homes %clay %cred/%crew/%crow tasks
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
handles %crud task in %clay
2018-11-23 20:19:23 +03:00
{$crud p/@tas q/(list tank)} :: error with trace
17. single-homes %clay %drop task
2018-12-13 10:58:25 +03:00
{$drop des/desk} :: cancel pending merge
18. single-home %clay %info task
2018-12-13 10:59:53 +03:00
{$info des/desk dit/nori} :: internal edit
Add faces to clay ++task.
2018-02-09 16:48:08 +03:00
{$init our/@p} :: report install
{$into des/desk all/? fis/mode} :: external edit
$: $merg :: merge desks
19. single-home %clay %merg task
2018-12-13 18:37:01 +03:00
des/desk :: target
Add faces to clay ++task.
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
20. single-homes %clay %perm task
2018-12-13 20:56:56 +03:00
{$perm des/desk pax/path rit/rite} :: change permissions
WIP
2019-02-02 00:46:09 +03:00
{$sunk p=ship q=rift} :: report death
updates arvo/vanes to send/receive %vega kernel upgrade notification
2019-02-01 10:37:00 +03:00
{$vega ~} :: report upgrade
21. single-homes %clay %warp/%werp tasks
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
removes the last of old %ames ack move %went
2018-12-20 19:48:11 +03:00
{$wegh ~} :: report memory
10. single-home %ames %west/%west tasks
2018-12-13 01:02:37 +03:00
{$west wer/ship pax/path res/*} :: network request
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
-- ::able
::
:::: :: (1c2)
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ aeon @ud :: version number
++ ankh :: fs node (new)
Almost booting with ripple.
2018-02-25 05:01:53 +03:00
$~ [~ ~]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$: fil/(unit {p/lobe q/cage}) :: file
dir/(map @ta ankh) :: folders
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
%ct request all filepaths with prefix
2018-08-22 22:56:46 +03:00
++ care ?($d $p $t $u $v $w $x $y $z) :: clay submode
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Change clay %w requests to produce both the number and date cases.
2018-05-03 00:37:03 +03:00
++ cass {ud/@ud da/@da} :: cases for revision
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ coop (unit ares) :: e2e ack
Clay permissions interface proposal.
2018-01-24 00:52:31 +03:00
++ crew (set ship) :: permissions group
clay permissions issue #749
2018-06-19 02:10:11 +03:00
++ dict {src/path rul/real} :: effective permission
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ khan ::
Almost booting with ripple.
2018-02-25 05:01:53 +03:00
$~ [~ ~]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$: fil/(unit (unit cage)) :: see ++khan-to-soba
dir/(unit (map @ta (unit khan))) ::
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ lobe @uvI :: blob ref
++ maki {p/@ta q/@ta r/@ta s/path} ::
++ miso :: ankh delta
wip reworked +wake; compiles
2019-05-23 00:39:12 +03:00
$% {$del ~} :: delete
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$ins p/cage} :: insert
{$dif p/cage} :: mutate from diff
{$mut p/cage} :: mutate from raw
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ misu :: computed delta
wip reworked +wake; compiles
2019-05-23 00:39:12 +03:00
$% {$del ~} :: delete
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$ins p/cage} :: insert
{$dif p/lobe q/cage} :: mutate from diff
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
wip reworked +wake; compiles
2019-05-23 00:39:12 +03:00
+$ moat [from=case to=case =path] :: change range
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ mode (list {path (unit mime)}) :: external files
wip reworked +wake; compiles
2019-05-23 00:39:12 +03:00
+$ mood [=care =case =path] :: request in desk
+$ mool [=case paths=(set (pair care path))] :: requests in desk
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ nori :: repository action
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
$% {%& p/soba} :: delta
{%| p/@tas} :: label
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ nuri :: repository action
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
$% {%& p/suba} :: delta
{%| p/@tas} :: label
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ rant :: response to request
Make use of alias types more consistent.
2018-01-18 03:23:31 +03:00
$: p/{p/care q/case r/desk} :: clade release book
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
q/path :: spur
r/cage :: data
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ rave :: general request
wip reworked +wake; compiles
2019-05-23 00:39:12 +03:00
$% [%sing =mood] :: single request
[%next =mood] :: await next version
[%mult =mool] :: next version of any
[%many track=? =moat] :: track range
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
included full group information in scry
2018-06-20 00:43:16 +03:00
++ real :: resolved permissions
$: mod/?($black $white) ::
who/(pair (set ship) (map @ta crew)) ::
== ::
Permission list structure.
2018-02-12 19:56:48 +03:00
++ regs (map path rule) :: rules for paths
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ riff {p/desk q/(unit rave)} :: request+desist
Finalizing interface.
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
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ riot (unit rant) :: response+complete
Clay permissions interface proposal.
2018-01-24 00:52:31 +03:00
++ rule {mod/?($black $white) who/(set whom)} :: node permission
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
++ unce :: change part
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* a/mold ::
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
$% {%& p/@ud} :: skip[copy]
{%| p/(list a) q/(list a)} :: p -> q[chunk]
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ urge |*(a/mold (list (unce a))) :: list change
Clay permissions interface proposal.
2018-01-24 00:52:31 +03:00
++ whom (each ship @ta) :: ship or named crew
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
-- ::clay
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
:::: ++dill :: (1d) console
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
++ dill ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::
:::: ++able:dill :: (1d1) arvo moves
:: ::::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ able ^?
|%
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ gift :: out result <-$
restores +able:dill comment margin
2019-02-01 22:03:40 +03:00
$% {$bbye ~} :: reset prompt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$blit p/(list blit)} :: terminal output
{$burl p/@t} :: activate url
{$init p/@p} :: set owner
restores +able:dill comment margin
2019-02-01 22:03:40 +03:00
{$logo ~} :: logout
renames kernel upgrade initialization event from %vega to %lyra
2019-02-01 22:02:33 +03:00
{$lyra p/@t q/@t} :: upgrade kernel
Reset %zuse pre 143.
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
restores +able:dill comment margin
2019-02-01 22:03:40 +03:00
{$verb ~} :: verbose mode
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
restores +able:dill comment margin
2019-02-01 22:03:40 +03:00
{$hail ~} :: terminal refresh
{$heft ~} :: memory report
{$hook ~} :: this term hung up
{$harm ~} :: all terms hung up
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$init p/ship} :: after gall ready
renames kernel upgrade initialization event from %vega to %lyra
2019-02-01 22:02:33 +03:00
{$lyra p/@t q/@t} :: upgrade kernel
Work in progress.
2018-08-16 04:05:30 +03:00
{$noop ~} :: no operation
WIP
2019-02-02 00:46:09 +03:00
{$sunk p=ship q=rift} :: report death
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$talk p/tank} ::
{$text p/tape} ::
{$veer p/@ta q/path r/@t} :: install vane
renames kernel upgrade initialization event from %vega to %lyra
2019-02-01 22:02:33 +03:00
{$vega ~} :: report upgrade
updates arvo/vanes to send/receive %vega kernel upgrade notification
2019-02-01 10:37:00 +03:00
{$verb ~} :: verbose mode
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
-- ::able
::
:::: :: (1d2)
::
Reset %zuse pre 143.
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
restores +able:dill comment margin
2019-02-01 22:03:40 +03:00
{$bac ~} :: true backspace
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$ctl p/@c} :: control-key
restores +able:dill comment margin
2019-02-01 22:03:40 +03:00
{$del ~} :: true delete
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$met p/@c} :: meta-key
restores +able:dill comment margin
2019-02-01 22:03:40 +03:00
{$ret ~} :: return
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$txt p/(list @c)} :: utf32 text
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ blit :: old blit
restores +able:dill comment margin
2019-02-01 22:03:40 +03:00
$% {$bel ~} :: make a noise
{$clr ~} :: clear the screen
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$hop p/@ud} :: set cursor position
{$lin p/(list @c)} :: set current line
restores +able:dill comment margin
2019-02-01 22:03:40 +03:00
{$mor ~} :: newline
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
restores +able:dill comment margin
2019-02-01 22:03:40 +03:00
++ deco ?(~ $bl $br $un) :: text decoration
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ dill-belt :: new belt
$% {$aro p/?($d $l $r $u)} :: arrow key
restores +able:dill comment margin
2019-02-01 22:03:40 +03:00
{$bac ~} :: true backspace
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$cru p/@tas q/(list tank)} :: echo error
{$ctl p/@} :: control-key
restores +able:dill comment margin
2019-02-01 22:03:40 +03:00
{$del ~} :: true delete
{$hey ~} :: refresh
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$met p/@} :: meta-key
restores +able:dill comment margin
2019-02-01 22:03:40 +03:00
{$ret ~} :: return
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ dill-blit :: new blit
restores +able:dill comment margin
2019-02-01 22:03:40 +03:00
$% {$bel ~} :: make a noise
{$clr ~} :: clear the screen
Reset %zuse pre 143.
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
restores +able:dill comment margin
2019-02-01 22:03:40 +03:00
{$qit ~} :: close console
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ flog :: sent to %dill
$% {$crud p/@tas q/(list tank)} ::
restores +able:dill comment margin
2019-02-01 22:03:40 +03:00
{$heft ~} ::
renames kernel upgrade initialization event from %vega to %lyra
2019-02-01 22:02:33 +03:00
{$lyra p/@t q/@t} :: upgrade kernel
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$text p/tape} ::
{$veer p/@ta q/path r/@t} :: install vane
restores +able:dill comment margin
2019-02-01 22:03:40 +03:00
{$verb ~} :: verbose mode
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
-- ::dill
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
:::: ++eyre :: (1e) oldweb
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
++ eyre ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::
:::: ++able:eyre :: (1e1) arvo moves
:: ::::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ able ^?
|%
%zuse to 143; some fixes.
2017-10-25 02:50:11 +03:00
+= gift :: out result <-$
adds http configuration effect (%form) and port notification move (%live)
2018-06-13 22:08:10 +03:00
$% [%form p=http-config] :: configuration
[%mass p=mass] :: memory usage
%zuse to 143; some fixes.
2017-10-25 02:50:11 +03:00
[%mack p=(unit tang)] :: message ack
[%sigh p=cage] :: marked http response
adds authentication nonce to proxy notifications %wise and %that
2018-07-11 06:39:13 +03:00
[%that p=@p q=prox] :: get proxied request
%zuse to 143; some fixes.
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
12. removes %vega (old), renames %velo to %vega and incorporates review feedback
2018-12-07 01:30:57 +03:00
[%vega p=@t q=@t] :: drop-through
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
%zuse to 143; some fixes.
2017-10-25 02:50:11 +03:00
+= task :: in request ->$
adds config to %eyre state, %rule gift to update, %born includes host/ips
2018-06-28 20:33:47 +03:00
$% [%born p=(list host)] :: new unix process
%zuse to 143; some fixes.
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
adds http configuration effect (%form) and port notification move (%live)
2018-06-13 22:08:10 +03:00
[%live p=@ud q=(unit @ud)] :: http/s ports
adds config to %eyre state, %rule gift to update, %born includes host/ips
2018-06-28 20:33:47 +03:00
[%rule p=http-rule] :: update config
%zuse to 143; some fixes.
2017-10-25 02:50:11 +03:00
[%serv p=$@(desk beam)] :: set serving root
WIP
2019-02-02 00:46:09 +03:00
[%sunk p=ship q=rift] :: report death
%zuse to 143; some fixes.
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
updates arvo/vanes to send/receive %vega kernel upgrade notification
2019-02-01 10:37:00 +03:00
[%vega ~] :: report upgrade
%zuse to 143; some fixes.
2017-10-25 02:50:11 +03:00
[%wegh ~] :: report memory
implements .well-known in %eyre
2018-05-15 06:48:29 +03:00
[%well p=path q=(unit mime)] :: put/del .well-known
10. single-home %ames %west/%west tasks
2018-12-13 01:02:37 +03:00
[%west p=ship q=[path *]] :: network request
adds authentication nonce to proxy notifications %wise and %that
2018-07-11 06:39:13 +03:00
[%wise p=ship q=prox] :: proxy notification
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
-- ::able
::
:::: :: (1e2)
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ bale :: driver state
Reset %zuse pre 143.
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
%velo reset works.
2016-12-02 04:17:02 +03:00
== ::
::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ epic :: FCGI parameters
$: qix/(map @t @t) :: query
ced/cred :: client credentials
bem/beam :: original path
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Work in progress.
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
v0 cross-ship page wrap, purely in eyre
2018-04-25 01:26:20 +03:00
::
Work in progress.
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?
adds http reverse proxy notification move (%wise) and effect (%that)
2018-06-06 20:24:59 +03:00
::
Work in progress.
2018-08-16 04:05:30 +03:00
[%not p=prox] :: proxy notification
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
updates %jael to save and %ames to give domains (on boot/startup) also defers initial clay merge, renames +turf (utf8 to utf32) to +taft, and removes duplicate +turf (domain) declarations, and updates pinned vere to use them
2018-10-04 09:43:40 +03:00
++ host (each turf @if) :: http host
Work in progress.
2018-08-16 04:05:30 +03:00
++ hoke %+ each {$localhost ~} :: local host
New metal boot system.
2016-11-24 07:25:07 +03:00
?($.0.0.0.0 $.127.0.0.1) ::
adds http configuration effect (%form) and port notification move (%live)
2018-06-13 22:08:10 +03:00
:: +http-config: full http-server configuration
::
+= http-config
adds config to %eyre state, %rule gift to update, %born includes host/ips
2018-06-28 20:33:47 +03:00
$: :: secure: PEM-encoded RSA private key and cert or cert chain
adds http configuration effect (%form) and port notification move (%live)
2018-06-13 22:08:10 +03:00
::
adds config to %eyre state, %rule gift to update, %born includes host/ips
2018-06-28 20:33:47 +03:00
secure=(unit [key=wain cert=wain])
adds http configuration effect (%form) and port notification move (%live)
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=?
==
adds config to %eyre state, %rule gift to update, %born includes host/ips
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
::
updates %jael to save and %ames to give domains (on boot/startup) also defers initial clay merge, renames +turf (utf8 to utf32) to +taft, and removes duplicate +turf (domain) declarations, and updates pinned vere to use them
2018-10-04 09:43:40 +03:00
[%turf p=?(%put %del) q=turf]
adds config to %eyre state, %rule gift to update, %born includes host/ips
2018-06-28 20:33:47 +03:00
==
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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 ::
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
adds authentication nonce to proxy notifications %wise and %that
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
==
Reset %zuse pre 143.
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
Work in progress.
2018-08-16 04:05:30 +03:00
++ quer |-($@(~ {p/@t q/@t t/$})) :: query tree
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ quri :: request-uri
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
$% {%& p/purl} :: absolute
{%| p/pork q/quay} :: relative
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
moves +reserved ipv4 address check to zuse, uses in :dns|ip
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)
==
Reset %zuse pre 143.
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
Work in progress.
2018-08-16 04:05:30 +03:00
{$redo ~} :: restart request qeu
%velo reset works.
2016-12-02 04:17:02 +03:00
== ::
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::eyre
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
:::: ++ford :: (1f) build
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
:: |ford: build system vane interface
::
WIP: Commiting so I can get the ~+ patch.
2018-08-09 00:47:01 +03:00
++ ford ^?
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
|%
:: |able:ford: ford's public +move interface
::
++ able ^?
|%
:: +task:able:ford: requests to ford
::
+= task
Switch Gall to use the Turbo vane. This fixes Gall and userland apps so that they boot. It then disables %hall and %talk, which will only boot with the +fond jet disabled. (Otherwise, we get a bail from the jet.)
2018-06-06 03:11:06 +03:00
$% :: %build: perform a build, either live or once
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
::
Switch Gall to use the Turbo vane. This fixes Gall and userland apps so that they boot. It then disables %hall and %talk, which will only boot with the +fond jet disabled. (Otherwise, we get a bail from the jet.)
2018-06-06 03:11:06 +03:00
$: %build
Add a live=? bit to %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=?
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
:: plan: the schematic to build
::
=schematic
==
Add FIFO build cache. Tests pass
2018-08-21 02:59:44 +03:00
:: %keep: reset cache sizes
%keep in ford.
2018-08-15 23:48:41 +03:00
::
Add FIFO build cache. Tests pass
2018-08-21 02:59:44 +03:00
[%keep compiler-cache=@ud build-cache=@ud]
Switch Gall to use the Turbo vane. This fixes Gall and userland apps so that they boot. It then disables %hall and %talk, which will only boot with the +fond jet disabled. (Otherwise, we get a bail from the jet.)
2018-06-06 03:11:06 +03:00
:: %kill: stop a build; send on same duct as original %build request
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
::
15. single-homes %ford %kill task
2018-12-13 09:38:35 +03:00
[%kill ~]
fixes bugs in individual continuity breaches
2018-10-26 00:41:05 +03:00
:: %sunk: receive a report that a foreign ship has lost continuity
added sunk note to jael, implements %ames, stubs other vanes
2018-10-10 04:24:25 +03:00
::
WIP
2019-02-02 00:46:09 +03:00
[%sunk =ship =rift]
updates arvo/vanes to send/receive %vega kernel upgrade notification
2019-02-01 10:37:00 +03:00
:: %vega: report kernel upgrade
::
[%vega ~]
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
:: %wegh: produce memory usage information
::
[%wegh ~]
%wipe percentage
2018-08-15 23:07:39 +03:00
:: %wipe: wipes stored builds
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
::
%wipe percentage
2018-08-15 23:07:39 +03:00
[%wipe percent-to-remove=@ud]
transfusion into kernel as %t vane
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]
Switch Gall to use the Turbo vane. This fixes Gall and userland apps so that they boot. It then disables %hall and %talk, which will only boot with the +fond jet disabled. (Otherwise, we get a bail from the jet.)
2018-06-06 03:11:06 +03:00
:: %made: build result; response to %build +task
transfusion into kernel as %t vane
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
::
Switch Gall to use the Turbo vane. This fixes Gall and userland apps so that they boot. It then disables %hall and %talk, which will only boot with the +fond jet disabled. (Otherwise, we get a bail from the jet.)
2018-06-06 03:11:06 +03:00
result=made-result
== ==
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
--
Switch Gall to use the Turbo vane. This fixes Gall and userland apps so that they boot. It then disables %hall and %talk, which will only boot with the +fond jet disabled. (Otherwise, we get a bail from the jet.)
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]
==
transfusion into kernel as %t vane
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
::
killed several TODOs
2018-08-18 01:27:47 +03:00
vane=%c
transfusion into kernel as %t vane
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]
Add %list schematic This replaces the %tabl silk from old ford.
2018-06-13 00:51:21 +03:00
[%list results=(list build-result)]
transfusion into kernel as %t vane
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]
Add the %walk schematic
2018-06-23 01:20:52 +03:00
[%walk results=(list mark-action)]
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
== == ==
Add the %walk schematic
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]
transfusion into kernel as %t vane
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
::
Remove trap from %dude in ford
2019-02-05 03:58:22 +03:00
error=tank
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
:: 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
==
Add %list schematic This replaces the %tabl silk from old ford.
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)
==
transfusion into kernel as %t vane
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=*
==
Add the %walk schematic
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
==
transfusion into kernel as %t vane
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
::
WIP: trying to move to master branch.
2018-07-20 02:49:11 +03:00
sources=(list hoon)
transfusion into kernel as %t vane
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
::
Almost back to working.
2018-08-17 00:39:39 +03:00
=spec
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
=crane
==
Add /* ford rune
2018-08-23 03:53:56 +03:00
$: :: %fstr: `/*` run :crane on all files with current path as prefix
::
%fstr
=crane
==
transfusion into kernel as %t vane
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
== ==
WIP trying to get dontjo working
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
Add %list schematic This replaces the %tabl silk from old ford.
2018-06-13 00:51:21 +03:00
%list [%noun -:!>(*(list cage)) (turn results.result result-to-cage)]
WIP trying to get dontjo working
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
Add the %walk schematic
2018-06-23 01:20:52 +03:00
%walk [%noun !>(results.result)]
WIP trying to get dontjo working
2018-06-01 03:14:39 +03:00
==
Boots with clay backed by ford-turbo.
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
~
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
--
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
whitespace conformity
2016-12-08 22:47:05 +03:00
:::: ++gall :: (1g) extensions
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
++ gall ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::
:::: ++able:gall :: (1g1) arvo moves
:: ::::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ able ^?
|%
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
WIP
2019-02-02 00:46:09 +03:00
{$sunk p=ship q/rift} :: report death
updates arvo/vanes to send/receive %vega kernel upgrade notification
2019-02-01 10:37:00 +03:00
{$vega ~} :: report upgrade
10. single-home %ames %west/%west tasks
2018-12-13 01:02:37 +03:00
{$west p/ship q/path r/*} :: network request
removes the last of old %ames ack move %went
2018-12-20 19:48:11 +03:00
{$wegh ~} :: report memory
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
-- ::able
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ bitt (map bone (pair ship path)) :: incoming subs
++ boat :: outgoing subs
whitespace violations
2016-12-07 06:14:39 +03:00
%+ map (pair bone wire) ::
(trel bean ship path) ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ bowl :: standard app state
$: $: our/ship :: host
src/ship :: guest
dap/term :: agent
%velo reset works.
2016-12-02 04:17:02 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$: wex/boat :: outgoing subs
sup/bitt :: incoming subs
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== == ::
Reset %zuse pre 143.
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
Work in progress.
2018-08-16 04:05:30 +03:00
{$pull ~} :: unsubscribe
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$punk p/mark q/cage} :: translated poke
Work in progress.
2018-08-16 04:05:30 +03:00
{$pump ~} :: pump yes+no
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$peer-not p/tang} :: poison pill peer
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ cuft :: internal gift
$% {$coup p/(unit tang)} :: poke result
{$diff p/cage} :: subscription output
Work in progress.
2018-08-16 04:05:30 +03:00
{$quit ~} :: close subscription
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$reap p/(unit tang)} :: peer result
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ culm :: config action
$% {$load p/scup} :: load+reload
Work in progress.
2018-08-16 04:05:30 +03:00
:: {$kick ~} :: restart everything
:: {$stop ~} :: toggle suspend
:: {$wipe ~} :: destroy all state
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ cush (pair term club) :: internal task
++ dude term :: server identity
++ gill (pair ship term) :: general contact
move ++json and other above-arvo types to zuse
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
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ scup (pair ship desk) :: autoupdate
++ suss (trel dude @tas @da) :: config report
++ well (pair desk term) ::
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::gall
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
whitespace conformity
2016-12-08 22:47:05 +03:00
:::: ++jael :: (1h) security
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
++ jael ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::
:::: ++able:jael :: (1h1) arvo moves
:: ::::
New metal boot system.
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
Reverted accidentally renamed jael tag.
2017-12-22 00:44:17 +03:00
:: operations - for instance, we have %burn, %mint,
New metal boot system.
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.
::
Rename block to logs.
2018-06-01 18:30:14 +03:00
++ logs :: on-chain changes
Minor stylistic cleanup
2018-12-18 13:02:57 +03:00
%+ map event-id:ethereum-types :: per event log
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
diff-azimuth:azimuth-types :: the change
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ action :: balance change
New metal boot system.
2016-11-24 07:25:07 +03:00
%+ pair ship :: partner
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ each bump :: &/liability change
bump :: |/asset change
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ balance :: balance sheet
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ pair ::
New metal boot system.
2016-11-24 07:25:07 +03:00
(map ship safe) :: liabilities
(map ship safe) :: assets
:: ::
bug fixes and cleaning to prepare for snap vents
2018-11-02 00:19:44 +03:00
++ vent-result :: %vent result
$% [%snap snap=snapshot:jael] :: restore snapshot
[%chain can=chain] :: get new events
== ::
:: ::
Integrate Ethereum logic more closely into existing jael flows. Compiles, untested.
2018-05-29 00:04:33 +03:00
++ chain :: batch of changes
Rename block to logs.
2018-06-01 18:30:14 +03:00
%+ each logs :: & all events
logs :: | new events
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ change :: urbit change
Integrate Ethereum logic more closely into existing jael flows. Compiles, untested.
2018-05-29 00:04:33 +03:00
$% [%ethe can=chain] :: on-chain change
%meet neighbors in %jael
2018-09-15 03:29:23 +03:00
[%meet who=ship =life =pass] :: meet in new era
Integrate Ethereum logic more closely into existing jael flows. Compiles, untested.
2018-05-29 00:04:33 +03:00
$: %rite :: rights change
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
rex/ship :: issuer
pal/ship :: issued to
del/bump :: change
New metal boot system.
2016-11-24 07:25:07 +03:00
== == ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ gift :: out result <-$
implements %dawn boot in %jael, removes %ames boot
2018-09-07 04:41:16 +03:00
$% [%init p=ship] :: report install unix
jael |mass some fixes also ask jael
2019-01-30 01:41:55 +03:00
[%mass p=mass] :: memory usage report
implements %dawn boot in %jael, removes %ames boot
2018-09-07 04:41:16 +03:00
[%mack p=(unit tang)] :: message n/ack
Include continuity flag in relative public key state
2018-08-30 03:02:17 +03:00
[%pubs public] :: public keys
updates %jael to save and %ames to give domains (on boot/startup) also defers initial clay merge, renames +turf (utf8 to utf32) to +taft, and removes duplicate +turf (domain) declarations, and updates pinned vere to use them
2018-10-04 09:43:40 +03:00
[%turf turf=(list turf)] :: domains
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$vest p/tally} :: balance update
updates %jael to encode aut/net keys and use +pass everywhere
2018-08-23 22:23:52 +03:00
[%vein =life vein=(map life ring)] :: private keys
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$vine p/(list change)} :: all raw changes
bug fixes and cleaning to prepare for snap vents
2018-11-02 00:19:44 +03:00
[%vent p=vent-result] :: ethereum changes
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
allow booting from ethereum snapshot
2018-11-01 00:34:21 +03:00
:: ::
Include continuity flag in relative public key state
2018-08-30 03:02:17 +03:00
++ public :: public key state
Trim ethereum snapshot in Jael (#911) trim snapshot format
2018-12-06 03:26:32 +03:00
$: life=life :: current key number
Include continuity flag in relative public key state
2018-08-30 03:02:17 +03:00
pubs=(map life pass) :: pubkeys by number
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ remote :: remote notification
%+ each safe :: &/addition
safe :: |/replacement
implements %dawn boot in %jael, removes %ames boot
2018-09-07 04:41:16 +03:00
:: +seed: private boot parameters
::
+$ seed [who=ship lyf=life key=ring sig=(unit oath:pki)]
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ tally :: balance update
New metal boot system.
2016-11-24 07:25:07 +03:00
%+ each balance :: complete
action :: change
::
%zuse to 143; some fixes.
2017-10-25 02:50:11 +03:00
+= task :: in request ->$
4. single-home %jael tasks
2018-12-12 11:50:40 +03:00
$% [%burn p=ship q=safe] :: destroy rights
[%hail p=ship q=remote] :: remote update
implements %dawn boot in %jael, removes %ames boot
2018-09-07 04:41:16 +03:00
$: %dawn :: boot from keys
=seed:able:jael :: identity params
Make Urbit-side sponsorship state match chain state more closely We always have a sponsor, plus a flag that says whether they're actively sponsoring us. If they aren't they recently kicked us. Because we can't do anything without a sponsor, we still try with them.
2018-12-21 17:59:12 +03:00
spon=ship :: sponsor
implements %dawn boot in %jael, removes %ames boot
2018-09-07 04:41:16 +03:00
czar=(map ship [=life =pass]) :: galaxy table
updates %jael to save and %ames to give domains (on boot/startup) also defers initial clay merge, renames +turf (utf8 to utf32) to +taft, and removes duplicate +turf (domain) declarations, and updates pinned vere to use them
2018-10-04 09:43:40 +03:00
turf=(list turf) :: domains
includes block number and ethereum gateway url in boot event
2018-10-29 22:38:14 +03:00
bloq=@ud :: block number
node=(unit purl:eyre) :: gateway url
allow booting from ethereum snapshot
2018-11-01 00:34:21 +03:00
snap=(unit snapshot) :: head start
implements %dawn boot in %jael, removes %ames boot
2018-09-07 04:41:16 +03:00
== ::
4. single-home %jael tasks
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
Misc TODOs.
2018-05-29 23:03:20 +03:00
::TODO %next for generating/putting new private key
Merge branch 'master' of http://github.com/urbit/arvo
2017-10-27 01:39:14 +03:00
[%nuke ~] :: cancel tracker from
4. single-home %jael tasks
2018-12-12 11:50:40 +03:00
[%pubs =ship] :: view public keys
[%meet =ship =life =pass] :: met after breach
add ability to restore from snapshot on-demand
2019-01-16 03:33:17 +03:00
[%snap snap=snapshot kick=?] :: load snapshot
updates %jael to save and %ames to give domains (on boot/startup) also defers initial clay merge, renames +turf (utf8 to utf32) to +taft, and removes duplicate +turf (domain) declarations, and updates pinned vere to use them
2018-10-04 09:43:40 +03:00
[%turf ~] :: view domains
updates arvo/vanes to send/receive %vega kernel upgrade notification
2019-02-01 10:37:00 +03:00
[%vega ~] :: report upgrade
4. single-home %jael tasks
2018-12-12 11:50:40 +03:00
[%vein ~] :: view signing keys
[%vent ~] :: view ethereum events
[%vest ~] :: view public balance
Merge branch 'master' of http://github.com/urbit/arvo
2017-10-27 01:39:14 +03:00
[%vine ~] :: view secret history
jael |mass some fixes also ask jael
2019-01-30 01:41:55 +03:00
[%wegh ~] :: memory usage request
10. single-home %ames %west/%west tasks
2018-12-13 01:02:37 +03:00
[%west p=ship q=path r=*] :: remote request
4. single-home %jael tasks
2018-12-12 11:50:40 +03:00
[%wind p=@ud] :: rewind before block
whitespace violations
2016-12-07 06:14:39 +03:00
== ::
clean and add tests
2018-11-01 01:18:40 +03:00
-- ::
:: ::
:::: ::
whitespace violations
2016-12-07 06:14:39 +03:00
:: ::
clean and add tests
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
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
=, azimuth-types ::
Trim ethereum snapshot in Jael (#911) trim snapshot format
2018-12-06 03:26:32 +03:00
$: kyz=(map ship public:able) :: public key state
clean and add tests
2018-11-01 01:18:40 +03:00
$= eth ::
$: dns=dnses :: on-chain dns state
Rebrand Constitution stdlib to Azimuth stdlib
2018-12-14 00:23:17 +03:00
pos=(map ship point) :: on-chain ship state
clean and add tests
2018-11-01 01:18:40 +03:00
== ::
Trim ethereum snapshot in Jael (#911) trim snapshot format
2018-12-06 03:26:32 +03:00
eth-bookmark
==
:: +eth-bookmark: cursor into the ethereum chain
::
++ eth-bookmark
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
$: heard=(set event-id:ethereum-types)
Trim ethereum snapshot in Jael (#911) trim snapshot format
2018-12-06 03:26:32 +03:00
latest-block=@ud
==
:: +state-eth-node: state of a connection to an ethereum node
::
clean and add tests
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
Trim ethereum snapshot in Jael (#911) trim snapshot format
2018-12-06 03:26:32 +03:00
eth-bookmark
clean and add tests
2018-11-01 01:18:40 +03:00
== ::
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::
whitespace conformity
2016-12-08 22:47:05 +03:00
:::: ++pki:jael :: (1h2) certificates
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ pki ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Rebrand Constitution stdlib to Azimuth stdlib
2018-12-14 00:23:17 +03:00
::TODO update to fit azimuth-style keys
New metal boot system.
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
%velo reset works.
2016-12-02 04:17:02 +03:00
:: of cosmetic identity; a semi-trusted parent,
New metal boot system.
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.
::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
-- :: pki
:: ::
whitespace conformity
2016-12-08 22:47:05 +03:00
:::: ++rights:jael :: (1h3) claims
New metal boot system.
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.
%velo reset works.
2016-12-02 04:17:02 +03:00
:: un-shared secret or private asset is stored as a
New metal boot system.
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.
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: %final: ship/ticket pair, ready to launch.
New metal boot system.
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.
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: %pword: password for a website/api.
New metal boot system.
2016-11-24 07:25:07 +03:00
:: %token: user access token for a web api.
%velo reset works.
2016-12-02 04:17:02 +03:00
:: %urban: symmetric key for urbit networking.
New metal boot system.
2016-11-24 07:25:07 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
:: %fungi keys can be anything, but don't reuse
New metal boot system.
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.
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ bill (pair @da @) :: expiring value
++ bump :: rights change
$: mor/safe :: add rights
les/safe :: lose rights
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
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
add chunking and start snapshotting
2018-10-26 00:37:04 +03:00
{$block ~} :: banned
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$email p/(set @t)} :: email addresses
Fill in stubs and make jael actually act on calls.
2018-05-10 02:42:37 +03:00
{$final p/(map ship @pG)} :: ticketed ships
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$fungi p/(map term @ud)} :: fungibles
add chunking and start snapshotting
2018-10-26 00:37:04 +03:00
{$guest ~} :: refugee visa
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ site (list @ta) :: [%com %yahoo %www ~]
++ safe (tree rite) :: rights set
New metal boot system.
2016-11-24 07:25:07 +03:00
-- :: rights
-- :: jael
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
whitespace conformity
2016-12-08 22:47:05 +03:00
:::: ++xmas :: (1i) new network
%velo reset works.
2016-12-02 04:17:02 +03:00
:: ::::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
++ xmas ^?
:: ::
whitespace conformity
2016-12-08 22:47:05 +03:00
:::: ++able:xmas :: (1i1) arvo moves
%velo reset works.
2016-12-02 04:17:02 +03:00
:: ::::
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
++ able ^?
|%
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ task :: in request ->$
$% {$hear p/lane q/@} ::
{$mess p/ship q/path r/*} :: send message
Work in progress.
2018-08-16 04:05:30 +03:00
{$wake ~} ::
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ card :: out cards
$% {$west p/ship q/path r/*} :: network request
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ sign :: in response $-<
restructures ++sign:able:xmas to avoid duplicate tag
2017-12-01 03:48:41 +03:00
$: $g ::
$% {$rend p/path q/*} :: network request
{$mack p/(unit tang)} :: message ack
== == ::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== == == ::
-- :: able
::
:::: :: (1i2)
::
Reset %zuse pre 143.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
-- ::xmas
-- ::
:: :: ::
whitespace conformity
2016-12-08 22:47:05 +03:00
:::: :: :: (2) engines
:: :: ::
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Minor convention fixups.
2016-12-07 22:38:28 +03:00
:: ::::
:::: ++number :: (2a) number theory
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ number ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++fu:number
++ fu :: modulo (mul p q)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/{p/@ q/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ b=?:(=([0 0] a) 0 (~(inv fo p.a) (~(sit fo p.a) q.a)))
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++dif:fu:number
++ dif :: subtract
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {c/{@ @} d/{@ @}}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {c/@ d/{@ @}}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= c/{@ @}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {c/{@ @} d/{@ @}}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {c/{@ @} d/{@ @}}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= c/@
%velo reset works.
2016-12-02 04:17:02 +03:00
[(mod c p.a) (mod c q.a)]
-- ::fu
:: :: ++pram:number
++ pram :: rabin-miller
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/@ ^- ?
%velo reset works.
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]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|- ^- {s/@ t/@}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/@ b/(list @) c/@} ^- @ux :: {bits snags seed}
%velo reset works.
2016-12-02 04:17:02 +03:00
=> .(c (shas %ramp c))
=+ d=*@
|-
?: =((mul 100 a) d)
~|(%ar-ramp !!)
=+ e=(~(raw og c) a)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
?: &((levy b |=(f/@ !=(1 (mod e f)))) (pram e))
%velo reset works.
2016-12-02 04:17:02 +03:00
e
$(c +(c), d (shax d))
:: :: ++curt:number
++ curt :: curve25519
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/@ b/@}
%velo reset works.
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]
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++cla:curt:number
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ cla ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= raw/@
%velo reset works.
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
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ sqr ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(a/@ (mul a a))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++inv:curt:number
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ inv ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(a/@ (~(exp fo q) (sub q 2) a))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++cad:curt:number
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ cad ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {n/{x/@ z/@} m/{x/@ z/@} d/{x/@ z/@}}
%velo reset works.
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
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ cub ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {x/@ z/@}
%velo reset works.
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)]
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::
%velo reset works.
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)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/{p/@ q/@ r/@} :: dim poly gen
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ si=(bex p.a)
=+ ma=(dec si)
=> |%
:: :: ++dif:ga:number
++ dif :: add and sub
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {b/@ c/@}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= b/@
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {b/@ c/@}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {b/@ c/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (map @ @)
=+ d=*(map @ @)
|-
?: =(0 c)
d
%= $
c (dec c)
d (~(put by d) c b)
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ [p=(nu 0 (bex p.a)) q=(nu ma ma)]
=+ [b=1 c=0]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|- ^- {p/(map @ @) q/(map @ @)}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= b/@
%velo reset works.
2016-12-02 04:17:02 +03:00
(mod b (bex p.a))
-- ::
=+ toe
|%
:: :: ++fra:ga:number
++ fra :: divide
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {b/@ c/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
(pro b (inv c))
:: :: ++inv:ga:number
++ inv :: invert
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= b/@
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {b/@ c/@}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {b/@ c/@}
%velo reset works.
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
Minor convention fixups.
2016-12-07 22:38:28 +03:00
:: ::::
:::: ++crypto :: (2b) cryptography
%velo reset works.
2016-12-02 04:17:02 +03:00
:: ::::
++ crypto ^?
remove ^vane shims requires vere without crypto:ames
2016-12-07 06:13:33 +03:00
=, ames
%velo reset works.
2016-12-02 04:17:02 +03:00
=, number
|%
More cleanups.
2016-12-08 05:12:37 +03:00
:: ::
:::: ++aes:crypto :: (2b1) aes, all sizes
:: ::::
Remove trailing whitespace
2019-01-18 08:37:34 +03:00
++ aes !.
%velo reset works.
2016-12-02 04:17:02 +03:00
~% %aes ..is ~
|%
:: :: ++ahem:aes:crypto
++ ahem :: kernel state
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {nnk/@ nnb/@ nnr/@}
%velo reset works.
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]
Minor convention fixups.
2016-12-07 22:38:28 +03:00
=> |% ::
++ cipa $_ ^? :: AES params
|%
Reset %zuse pre 143.
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
%velo reset works.
2016-12-02 04:17:02 +03:00
++ su *@ :: s-box
-- ::cipa
-- ::
|%
Minor convention fixups.
2016-12-07 22:38:28 +03:00
:: :: ++pen:ahem:aes:
%velo reset works.
2016-12-02 04:17:02 +03:00
++ pen :: encrypt
^- cipa
|%
fix dejs-soft tags
2016-12-09 01:37:56 +03:00
:: :: ++co:pen:ahem:aes:
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ co :: column coefficients
[0x2 0x3 1 1]
:: :: ++ix:pen:ahem:aes:
++ ix :: key index
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|~(a/@ a)
Minor convention fixups.
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
%velo reset works.
2016-12-02 04:17:02 +03:00
--
Minor convention fixups.
2016-12-07 22:38:28 +03:00
:: :: ++pin:ahem:aes:
++ pin :: decrypt
%velo reset works.
2016-12-02 04:17:02 +03:00
^- cipa
|%
Minor convention fixups.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|~(a/@ (sub nnr a))
Minor convention fixups.
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
%velo reset works.
2016-12-02 04:17:02 +03:00
--
:: :: ++mcol:ahem:aes:
++ mcol ::
Remove trailing whitespace
2019-01-18 08:37:34 +03:00
|= {a/(list @) b/{p/@ q/@ r/@ s/@}}
Minor convention fixups.
2016-12-07 22:38:28 +03:00
^- (list @)
%velo reset works.
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]]
==
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/{@ @} b/{@ @} c/{@ @} d/{@ @}}
%velo reset works.
2016-12-02 04:17:02 +03:00
:(dif (pro a) (pro b) (pro c) (pro d))
:: :: ++pode:ahem:aes:
++ pode :: explode to block
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/bloq b/@ c/@} ^- (list @)
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ d=(rip a c)
=+ m=(met a c)
New metal boot system.
2016-11-24 07:25:07 +03:00
|-
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/@ b/@} ^- @
(rep 3 (turn (pode 3 4 a) |=(c/@ (cut 3 [c 1] b))))
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::
|%
:: :: ++be:ahem:aes:crypto
++ be :: block cipher
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/? b/@ c/@H} ^- @uxH
%velo reset works.
2016-12-02 04:17:02 +03:00
~| %be-aesc
=> %= .
+
=> +
|%
:: :: ++ankh:be:ahem:aes:
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ ankh ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/cipa b/@ c/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
(pode 5 nnb (cut 5 [(mul (ix.a b) nnb) nnb] c))
:: :: ++sark:be:ahem:aes:
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ sark ::
Remove trailing whitespace
2019-01-18 08:37:34 +03:00
|= {c/(list @) d/(list @)}
Minor convention fixups.
2016-12-07 22:38:28 +03:00
^- (list @)
%velo reset works.
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:
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ srow ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/cipa b/(list @)} ^- (list @)
%velo reset works.
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] ~)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {f/@ g/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
(cut 3 [f 1] (snag (mod (add g c) nnb) b))
:: :: ++subs:be:ahem:aes:
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ subs ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/cipa b/(list @)} ^- (list @)
%velo reset works.
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)
New metal boot system.
2016-11-24 07:25:07 +03:00
=> .(e (subs d e))
=> .(e (srow d e))
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/@I ^- @
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/@ ^- @
%velo reset works.
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)
New metal boot system.
2016-11-24 07:25:07 +03:00
a
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ can 7
:~ [i (cut 7 [0 i] a)]
[1 b]
[j (cut 7 [+(i) j] a)]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
2016-12-02 04:17:02 +03:00
==
--
:: :: ++ecba:aes:crypto
++ ecba :: AES-128 ECB
~% %ecba +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ key/@H
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:ecba:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= blk/@H ^- @uxH
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %de
|= blk/@H ^- @uxH
%velo reset works.
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 +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ key/@I
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:ecbb:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= blk/@H ^- @uxH
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %de
|= blk/@H ^- @uxH
%velo reset works.
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 +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ key/@I
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:ecbc:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= blk/@H ^- @uxH
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %de
|= blk/@H ^- @uxH
%velo reset works.
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 +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ {key/@H prv/@H}
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:cbca:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= txt/@ ^- @ux
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ pts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| cts/(list @)
%velo reset works.
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))
New metal boot system.
2016-11-24 07:25:07 +03:00
%= $
%velo reset works.
2016-12-02 04:17:02 +03:00
cts [cph cts]
pts t.pts
prv cph
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++de:cbca:aes:crypto
++ de :: decrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %de
|= txt/@ ^- @ux
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ cts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| pts/(list @)
%velo reset works.
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))
New metal boot system.
2016-11-24 07:25:07 +03:00
%= $
%velo reset works.
2016-12-02 04:17:02 +03:00
pts [pln pts]
cts t.cts
prv i.cts
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::cbca
:: :: ++cbcb:aes:crypto
++ cbcb :: AES-192 CBC
~% %cbcb +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ {key/@I prv/@H}
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:cbcb:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= txt/@ ^- @ux
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ pts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| cts/(list @)
%velo reset works.
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))
New metal boot system.
2016-11-24 07:25:07 +03:00
%= $
%velo reset works.
2016-12-02 04:17:02 +03:00
cts [cph cts]
pts t.pts
prv cph
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++de:cbcb:aes:crypto
New metal boot system.
2016-11-24 07:25:07 +03:00
++ de :: decrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %de
|= txt/@ ^- @ux
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ cts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| pts/(list @)
%velo reset works.
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 +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ {key/@I prv/@H}
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:cbcc:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= txt/@ ^- @ux
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ pts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| cts/(list @)
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %de
|= txt/@ ^- @ux
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ cts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| pts/(list @)
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {mod/bloq ctr/@H}
%velo reset works.
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 +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ {key/@H mod/bloq len/@ ctr/@H}
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:ctra:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= txt/@
%velo reset works.
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
tail-call optimizes +ctra, +ctrb, and +ctrc in |aes
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)
==
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++de:ctra:aes:crypto
++ de :: decrypt
en
-- ::ctra
:: :: ++ctrb:aes:crypto
++ ctrb :: AES-192 CTR
~% %ctrb +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ {key/@I mod/bloq len/@ ctr/@H}
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:ctrb:aes:crypto
++ en
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= txt/@
%velo reset works.
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
tail-call optimizes +ctra, +ctrb, and +ctrc in |aes
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)
==
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++de:ctrb:aes:crypto
++ de :: decrypt
en
-- ::ctrb
:: :: ++ctrc:aes:crypto
++ ctrc :: AES-256 CTR
~% %ctrc +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ {key/@I mod/bloq len/@ ctr/@H}
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:ctrc:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= txt/@
%velo reset works.
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
tail-call optimizes +ctra, +ctrb, and +ctrc in |aes
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)
==
%velo reset works.
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
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
str/@H
New metal boot system.
2016-11-24 07:25:07 +03:00
::
%velo reset works.
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 ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {oct/@ txt/@}
%velo reset works.
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
Minor convention fixups.
2016-12-07 22:38:28 +03:00
::
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= key/@H
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ l=(~(en ecba key) 0)
=+ k1=(doub l)
=+ k2=(doub k1)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
^- {@ux @ux}
%velo reset works.
2016-12-02 04:17:02 +03:00
[k1 k2]
:: :: ++subb:aes:crypto
++ subb :: AES-192 subkeys
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= key/@I
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ l=(~(en ecbb key) 0)
=+ k1=(doub l)
=+ k2=(doub k1)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
^- {@ux @ux}
%velo reset works.
2016-12-02 04:17:02 +03:00
[k1 k2]
:: :: ++subc:aes:crypto
++ subc :: AES-256 subkeys
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= key/@I
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ l=(~(en ecbc key) 0)
=+ k1=(doub l)
=+ k2=(doub k1)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
^- {@ux @ux}
%velo reset works.
2016-12-02 04:17:02 +03:00
[k1 k2]
:: :: ++maca:aes:crypto
++ maca :: AES-128 CMAC
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %maca
|= {key/@H oct/(unit @) txt/@}
%velo reset works.
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
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%& -.sub
%| +.sub
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %macb
|= {key/@I oct/(unit @) txt/@}
%velo reset works.
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
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%& -.sub
%| +.sub
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %macc
|= {key/@I oct/(unit @) txt/@}
%velo reset works.
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
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%& -.sub
%| +.sub
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %s2va
|= {key/@H ads/(list @)}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %s2vb
|= {key/@I ads/(list @)}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %s2vc
|= {key/@I ads/(list @)}
%velo reset works.
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 +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ {key/@I vec/(list @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:siva:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= txt/@
%velo reset works.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
++ de :: decrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %de
|= {iv/@H len/@ txt/@}
New metal boot system.
2016-11-24 07:25:07 +03:00
^- (unit @ux)
%velo reset works.
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 +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ {key/@J vec/(list @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:sivb:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= txt/@
%velo reset works.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
len
%velo reset works.
2016-12-02 04:17:02 +03:00
(~(en ctrb k2 7 len hib) txt)
:: :: ++de:sivb:aes:crypto
++ de :: decrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %de
|= {iv/@H len/@ txt/@}
%velo reset works.
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 +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ {key/@J vec/(list @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:sivc:aes:crypto
New metal boot system.
2016-11-24 07:25:07 +03:00
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= txt/@
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %de
|= {iv/@H len/@ txt/@}
%velo reset works.
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
--
More cleanups.
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]
Boots, but some jet registration problems in ++ed.
2017-06-10 03:30:18 +03:00
~% %coed ..is ~
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++norm:ed:crypto
++ norm ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(x/@ ?:(=(0 (mod x 2)) x (sub q x)))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++xrec:ed:crypto
++ xrec :: recover x-coord
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= y/@ ^- @
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {pp/{@ @} qq/{@ @}} ^- {@ @}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {pp/{@ @} e/@} ^- {@ @}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= pp/{@ @} ^- @
%velo reset works.
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?
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {x/@ y/@} ^- ?
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= s/@ ^- (unit {@ @})
%velo reset works.
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]
-- ::
Boots, but some jet registration problems in ++ed.
2017-06-10 03:30:18 +03:00
~% %ed + ~
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
:: :: ++puck:ed:crypto
++ puck :: public key
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %puck
|= sk/@I ^- @
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= se/@I ^- @uJ
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ pu=(puck se)
(can 0 ~[[b se] [b pu]])
:: :: ++shar:ed:crypto
++ shar :: curve25519 secret
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %shar
|= {pub/@ sek/@}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %sign
|= {m/@ se/@} ^- @
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %veri
|= {s/@ m/@ pk/@} ^- ?
%velo reset works.
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
More cleanups.
2016-12-08 05:12:37 +03:00
:: ::
:::: ++scr:crypto :: (2b3) scrypt
:: ::::
++ scr
Boots, but some jet registration problems in ++ed.
2017-06-10 03:30:18 +03:00
~% %scr ..is ~
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
:: :: ++sal:scr:crypto
++ sal :: salsa20 hash
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {x/@ r/@} :: with r rounds
%velo reset works.
2016-12-02 04:17:02 +03:00
?> =((mod r 2) 0) ::
=+ few==>(fe .(a 5))
=+ ^= rot
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/@ b/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
(mix (end 5 1 (lsh 0 a b)) (rsh 0 (sub 32 a) b))
=+ ^= lea
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/@ b/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
(net:few (sum:few (net:few a) (net:few b)))
=> |%
:: :: ++qr:sal:scr:crypto
++ qr :: quarterround
Work in progress.
2018-08-16 04:05:30 +03:00
|= y/{@ @ @ @ ~}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {y/(list @)}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {x/(list @)}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {x/(list @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
(rr (cr x))
:: :: ++al:sal:scr:crypto
++ al :: add two lists
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/(list @) b/(list @)}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/bloq b/@ c/@}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/@ b/(list @)}
%velo reset works.
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 ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/(list (list @))}
%velo reset works.
2016-12-02 04:17:02 +03:00
|- ^- (list @)
?~ a ~
(weld `(list @)`-.a $(a +.a))
:: :: ++sbm:scr:crypto
++ sbm :: scryptBlockMix
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {r/@ b/(list @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
?> =((lent b) (mul 2 r))
=+ [x=(snag (dec (mul 2 r)) b) c=0]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| {ya/(list @) yb/(list @)}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {r/@ b/(list @) n/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
?> ?& =((lent b) (mul 2 r))
=(n (bex (dec (xeb n))))
(lth n (bex (mul r 16)))
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {k/@ t/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
(hml k (met 3 k) t (met 3 t))
:: :: ++hml:scr:crypto
++ hml :: w+length
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {k/@ kl/@ t/@ tl/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
=> .(k (end 3 kl k), t (end 3 tl t))
=+ b=64
Add a tiswut rune which is a conditional tisdot. This changes: =. a ?. =(b c) a c into: =? a =(b c) c This also adds a few obvious changes in the vanes and in app/talk.hoon to take advantage of this new rune.
2016-12-11 03:46:13 +03:00
=? k (gth kl b) (shay kl k)
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %pbk
|= {p/@ s/@ c/@ d/@}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %pbl
|= {p/@ pl/@ s/@ sl/@ c/@ d/@}
%velo reset works.
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)
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %hsh
|= {p/@ s/@ n/@ r/@ z/@ d/@}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %hsl
|= {p/@ pl/@ s/@ sl/@ n/@ r/@ z/@ d/@}
=| v/(list (list @))
%velo reset works.
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))
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ^= b =+ (rpp 3 u (pbl p pl s sl 1 u))
%+ turn (bls (mul 128 r) -)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(a/(list @) (rpp 9 (mul 2 r) (rep 3 a)))
%velo reset works.
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 @))`-
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(a/(list @) (rpp 3 (mul 128 r) (rep 9 a)))
%velo reset works.
2016-12-02 04:17:02 +03:00
(pbl p pl (rep 3 (slb q)) u 1 d)
:: :: ++ypt:scr:crypto
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ ypt :: 256bit {salt pass}
|= {s/@ p/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @
(hsh p s 16.384 8 1 256)
-- ::scr
More cleanups.
2016-12-08 05:12:37 +03:00
:: ::
:::: ++crub:crypto :: (2b4) suite B, Ed
:: ::::
Boots, but some jet registration problems in ++ed.
2017-06-10 03:30:18 +03:00
++ crub !:
%velo reset works.
2016-12-02 04:17:02 +03:00
^- acru
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| {pub/{cry/@ sgn/@} sek/(unit {cry/@ sgn/@})}
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
:: :: ++as:crub:crypto
++ as ::
|%
:: :: ++sign:as:crub:
++ sign ::
simplifies +acru interface, updates +crub and call-sites
2018-08-21 22:23:00 +03:00
|= msg=@
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @ux
?~ sek ~| %pubkey-only !!
(jam [(sign:ed msg sgn.u.sek) msg])
:: :: ++sure:as:crub:
++ sure ::
simplifies +acru interface, updates +crub and call-sites
2018-08-21 22:23:00 +03:00
|= txt=@
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (unit @ux)
remove +hard, replace with new ;;
2019-05-09 22:46:19 +03:00
=+ ;;({sig/@ msg/@} (cue txt))
%velo reset works.
2016-12-02 04:17:02 +03:00
?. (veri:ed sig msg sgn.pub) ~
(some msg)
:: :: ++seal:as:crub:
++ seal ::
simplifies +acru interface, updates +crub and call-sites
2018-08-21 22:23:00 +03:00
|= {bpk/pass msg/@}
%velo reset works.
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))
simplifies +acru interface, updates +crub and call-sites
2018-08-21 22:23:00 +03:00
=+ smsg=(sign msg)
%velo reset works.
2016-12-02 04:17:02 +03:00
(jam (~(en siva:aes shar ~) smsg))
:: :: ++tear:as:crub:
++ tear ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {bpk/pass txt/@}
simplifies +acru interface, updates +crub and call-sites
2018-08-21 22:23:00 +03:00
^- (unit @ux)
%velo reset works.
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))
remove +hard, replace with new ;;
2019-05-09 22:46:19 +03:00
=+ ;;({iv/@ len/@ cph/@} (cue txt))
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ try=(~(de siva:aes shar ~) iv len cph)
?~ try ~
simplifies +acru interface, updates +crub and call-sites
2018-08-21 22:23:00 +03:00
(sure:as:(com:nu:crub bpk) u.try)
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::as
:: :: ++de:crub:crypto
++ de :: decrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {key/@J txt/@}
More cleanups.
2016-12-08 05:12:37 +03:00
^- (unit @ux)
remove +hard, replace with new ;;
2019-05-09 22:46:19 +03:00
=+ ;;({iv/@ len/@ cph/@} (cue txt))
More cleanups.
2016-12-08 05:12:37 +03:00
%^ ~(de sivc:aes (shaz key) ~)
iv
len
cph
:: :: ++dy:crub:crypto
++ dy :: need decrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {key/@J cph/@}
More cleanups.
2016-12-08 05:12:37 +03:00
(need (de key cph))
:: :: ++en:crub:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {key/@J msg/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @ux
More cleanups.
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
adds comet miner, stars sponsor comets and +crub:crypto fingerprints include both keypairs
2018-10-15 23:05:55 +03:00
(shaf %bfig pub)
More cleanups.
2016-12-08 05:12:37 +03:00
:: :: ++pac:ex:crub:crypto
++ pac :: private fingerprint
^- @uvG
?~ sek ~| %pubkey-only !!
adds comet miner, stars sponsor comets and +crub:crypto fingerprints include both keypairs
2018-10-15 23:05:55 +03:00
(end 6 1 (shaf %bcod sec))
More cleanups.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {w/@ seed/@}
More cleanups.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/ring
More cleanups.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/pass
More cleanups.
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
:: ::::
removes deprecated +crua, updates %eyre and lib/hood/write to use +crub
2018-08-21 21:19:28 +03:00
++ crua !!
More cleanups.
2016-12-08 05:12:37 +03:00
:: ::
:::: ++test:crypto :: (2b6) test crypto
:: ::::
++ test ^?
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
:: :: ++trub:test:crypto
++ trub :: test crub
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= msg/@t
%velo reset works.
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.'
simplifies +acru interface, updates +crub and call-sites
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)
%velo reset works.
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)
simplifies +acru interface, updates +crub and call-sites
2018-08-21 22:23:00 +03:00
=/ verify-key-attempt (sure:as.ali-pub decrypted-key)
%velo reset works.
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
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
:: ::
:::: ++keccak:crypto :: (2b7) keccak family
:: ::::
++ keccak
|%
::
:: keccak
::
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
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))
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
++ keccak (cury (cury hash keccak-f) padding-keccak)
::
++ padding-keccak (multirate-padding 0x1)
::
:: sha3
::
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
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))
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
++ sha3 (cury (cury hash keccak-f) padding-sha3)
::
++ padding-sha3 (multirate-padding 0x6)
::
:: shake
::
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
++ shake-128 |=([o=@ud i=octs] (shake 1.344 256 o i))
Fix incorrect naming for shake arms.
2018-03-06 03:26:34 +03:00
++ shake-256 |=([o=@ud i=octs] (shake 1.088 512 o i))
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
++ shake (cury (cury hash keccak-f) padding-shake)
::
++ padding-shake (multirate-padding 0x1f)
::
:: rawshake
::
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
++ rawshake-128 |=([o=@ud i=octs] (rawshake 1.344 256 o i))
Fix incorrect naming for shake arms.
2018-03-06 03:26:34 +03:00
++ rawshake-256 |=([o=@ud i=octs] (rawshake 1.088 512 o i))
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
++ rawshake (cury (cury hash keccak-f) padding-rawshake)
::
++ padding-rawshake (multirate-padding 0x7)
::
:: core
::
++ hash
Old help totally cleaned out.
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.
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
|= $: per=$-(@ud $-(@ @))
Make padding pass explicit length, too.
2018-03-05 19:04:35 +03:00
pad=$-([octs @ud] octs)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
rat=@ud
cap=@ud
out=@ud
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
inp=octs
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
==
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
^- @
:: urbit's little-endian to keccak's big-endian.
Add ++rev to bit arithmetic, for reversing block order while accounting for leading zeroes.
2018-06-21 19:49:10 +03:00
=. q.inp (rev 3 inp)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
%. [inp out]
(sponge per pad rat cap)
::
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
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")
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
++ multirate-padding
Old help totally cleaned out.
2018-05-25 01:39:56 +03:00
:: dsb: domain separation byte, reverse bit order.
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
|= dsb=@ux
?> (lte dsb 0xff)
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
|= [inp=octs mut=@ud]
Make padding pass explicit length, too.
2018-03-05 19:04:35 +03:00
^- octs
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
=. mut (div mut 8)
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
=+ pal=(sub mut (mod p.inp mut))
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
=? pal =(pal 0) mut
=. pal (dec pal)
Make padding pass explicit length, too.
2018-03-05 19:04:35 +03:00
:- (add p.inp +(pal))
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
:: padding is provided in lane bit ordering,
:: ie, LSB = left.
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
(cat 3 (con (lsh 3 pal dsb) 0x80) q.inp)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
++ sponge
Old help totally cleaned out.
2018-05-25 01:39:56 +03:00
:: sponge construction
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
Old help totally cleaned out.
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.
More comments, better naming.
2018-03-05 18:12:32 +03:00
|= $: preperm=$-(@ud $-(@ @))
Make padding pass explicit length, too.
2018-03-05 19:04:35 +03:00
padding=$-([octs @ud] octs)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
bitrate=@ud
capacity=@ud
==
::
:: preparing
=+ bitrate-bytes=(div bitrate 8)
=+ blockwidth=(add bitrate capacity)
More comments, better naming.
2018-03-05 18:12:32 +03:00
=+ permute=(preperm blockwidth)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
|= [input=octs output=@ud]
|^ ^- @
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
:: padding
Make padding pass explicit length, too.
2018-03-05 19:04:35 +03:00
=. input (padding input bitrate)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
:: absorbing
=/ pieces=(list @)
:: amount of bitrate-sized blocks.
Make padding pass explicit length, too.
2018-03-05 19:04:35 +03:00
?> =(0 (mod p.input bitrate-bytes))
=+ i=(div p.input bitrate-bytes)
Add keccak hashing family into zuse.
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 -.
Make padding pass explicit length, too.
2018-03-05 19:04:35 +03:00
=- (cut 3 [- bitrate-bytes] q.input)
Add keccak hashing family into zuse.
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
Old help totally cleaned out.
2018-05-25 01:39:56 +03:00
:: flip byte order in blocks of 8 bytes.
Add keccak hashing family into zuse.
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
Old help totally cleaned out.
2018-05-25 01:39:56 +03:00
:: unflip byte order in blocks of 8 bytes.
Add keccak hashing family into zuse.
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))
Fix bug in lane-to-bytes conversion.
2018-03-05 22:59:21 +03:00
(weld (reap (sub 8 (lent -)) 0x0) -)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
--
::
++ keccak-f
Old help totally cleaned out.
2018-05-25 01:39:56 +03:00
:: keccak permutation function
Add keccak hashing family into zuse.
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
Old help totally cleaned out.
2018-05-25 01:39:56 +03:00
:: get the lane with coordinates
Add keccak hashing family into zuse.
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
Old help totally cleaned out.
2018-05-25 01:39:56 +03:00
:: get word {n} from atom {a} of {m} words.
Add keccak hashing family into zuse.
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
Add correct byte-order HMAC family to zuse.
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
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
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
fixes spacing issues in secp ~/ hints
2018-10-04 04:39:27 +03:00
~/ %secp
hint secp
2018-08-03 17:38:38 +03:00
|= [w=@ p=@ a=@ b=@ g=pont n=@] :: being passed in from above
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
=/ p ~(. fo p)
=/ n ~(. fo n)
hint secp
2018-08-03 17:38:38 +03:00
~% %helper ..$ ~
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
|%
++ compress-point
fixes spacing issues in secp ~/ hints
2018-10-04 04:39:27 +03:00
~/ %compress-point
|= pont
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
^- @
(can 3 ~[w^x 1^(add 0x2 (cut 0 [0 1] y))])
::
++ serialize-point
fixes spacing issues in secp ~/ hints
2018-10-04 04:39:27 +03:00
~/ %serialize-point
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
|= pont
^- @
(can 3 ~[w^y w^x 1^0x4])
::
++ decompress-point
fixes spacing issues in secp ~/ hints
2018-10-04 04:39:27 +03:00
~/ %decompress-point
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
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
fixes spacing issues in secp ~/ hints
2018-10-04 04:39:27 +03:00
~/ %priv-to-pub
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
|= prv=@
^- pont
(jc-mul g prv)
::
++ make-k :: deterministic nonce
fixes spacing issues in secp ~/ hints
2018-10-04 04:39:27 +03:00
~/ %make-k
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
=, mimes:html
|= [has=@uvI prv=@]
^- @
=* hmc hmac-sha256l:hmac
=/ v (fil 3 w 1)
=/ k 0
Fix incorrect usage of HMAC function in secp core.
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)
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
::
++ ecdsa-raw-sign :: generate signature
fixes spacing issues in secp ~/ hints
2018-10-04 04:39:27 +03:00
~/ %ecdsa-raw-sign
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
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)
Remove nonstandard 27 minimum value from ecdsa signature v Ethereum uses 27/28 (superseded) or 35/36 for the v value. Other use cases may want the recovery value directly. This makes it produce 0/1.
2018-09-04 15:59:35 +03:00
:* v=(mix (end 0 1 y) ?:(big-s 1 0))
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
r=r
s=?.(big-s s (sub ^n s))
==
::
++ ecdsa-raw-recover :: get pubkey from sig
fixes spacing issues in secp ~/ hints
2018-10-04 04:39:27 +03:00
~/ %ecdsa-raw-recover
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
|= [has=@uvI sig=[v=@ r=@ s=@]]
^- pont
Make ++ecdsa-raw-recover accept unmodified signature Continuation of b2365dbd4
2018-09-04 19:08:00 +03:00
?> (lte v.sig 7)
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
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]
--
--
--
Add argon2 and blake2b to zuse
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
Standardize Argon2u parameters
2018-08-15 02:08:16 +03:00
|= out=@ud
(argon2 out %u 0x13 4 512.000 1 *byts *byts)
Add argon2 and blake2b to zuse
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)
--
Add RIPEMD-160 to zuse Jet hinted but not yet implemented.
2018-07-20 01:20:19 +03:00
::
++ ripemd
~% %ripemd ..is ~
|%
++ ripemd-160
~/ %ripemd160
|= byts
^- @
Make RIPEMD-160 actually accept proper ++byts Previously, it was interpreting the wid as bit-length rather than byte-length, which is inconsistent, confusing, and largely unnecessary.
2018-08-10 18:56:32 +03:00
:: we operate on bits rather than bytes
=. wid (mul wid 8)
Add RIPEMD-160 to zuse Jet hinted but not yet implemented.
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]
--
Add a more generic PBKDF implementation into zuse Can be fed arbitrary KDF functions and operate using those. Includes arms for calling with HMAC-SHA variants. Still takes @t rather than sane-byte-order @ though... Includes tests.
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))
--
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::crypto
More cleanups.
2016-12-08 05:12:37 +03:00
:: ::::
:::: ++unity :: (2c) unit promotion
%velo reset works.
2016-12-02 04:17:02 +03:00
:: ::::
++ unity ^?
|%
:: :: ++drop-list:unity
++ drop-list :: collapse unit list
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* lut/(list (unit))
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* lum/(map term (unit))
Work in progress.
2018-08-16 04:05:30 +03:00
?: (~(rep by lum) |=({{@ a/(unit)} b/_|} |(b ?=(~ a))))
%velo reset works.
2016-12-02 04:17:02 +03:00
~
(some (~(run by lum) need))
change all-full/need-tuple to drop-pole
2016-12-08 22:54:50 +03:00
:: :: ++drop-pole:unity
++ drop-pole :: unit tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* but/(pole (unit))
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
?~ but !!
Remove trailing whitespace
2019-01-18 08:37:34 +03:00
?~ +.but
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
u:->.but
[u:->.but (drop-pole +.but)]
%velo reset works.
2016-12-02 04:17:02 +03:00
--
More cleanups.
2016-12-08 05:12:37 +03:00
:: ::::
:::: ++format :: (2d) common formats
%velo reset works.
2016-12-02 04:17:02 +03:00
:: ::::
++ format ^?
Remove trailing whitespace
2019-01-18 08:37:34 +03:00
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++to-wain:format
Move merged vanes back.
2016-12-02 22:34:07 +03:00
++ to-wain :: atom to line list
%velo reset works.
2016-12-02 04:17:02 +03:00
~% %lore ..is ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= lub/@
=| tez/(list @t)
%velo reset works.
2016-12-02 04:17:02 +03:00
|- ^+ tez
=+ ^= wor
=+ [meg=0 i=0]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|- ^- {meg/@ i/@ end/@f}
%velo reset works.
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
Move merged vanes back.
2016-12-02 22:34:07 +03:00
++ of-wain :: line list to atom
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= tez/(list @t)
=| {our/@ i/@ud}
%velo reset works.
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))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++of-wall:format
++ of-wall :: line list to tape
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/wall ^- tape
?~(a ~ "{i.a}\0a{$(a t.a)}")
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++en-beam:format
++ en-beam :: beam to path
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= bem/beam
%velo reset works.
2016-12-02 04:17:02 +03:00
^- path
[(scot %p p.bem) q.bem (scot r.bem) (flop s.bem)]
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++de-beam:format
++ de-beam :: parse path to beam
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= pax/path
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (unit beam)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
?. ?=({* * * *} pax) ~
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ biff (slaw %p i.pax)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= who/ship
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ biff (slaw %tas i.t.pax)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= dex/desk
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ biff (slay i.t.t.pax)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= cis/coin
?. ?=({$$ case} cis) ~
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {p/@t q/json}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- json
[%o [[p q] ~ ~]]
:: :: ++pairs:enjs:format
++ pairs :: object from k-v list
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/(list {p/@t q/json})
%velo reset works.
2016-12-02 04:17:02 +03:00
^- json
[%o (~(gas by *(map @t json)) a)]
:: :: ++tape:enjs:format
++ tape :: string from tape
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/^tape
%velo reset works.
2016-12-02 04:17:02 +03:00
^- json
[%s (crip a)]
canonize jo..:js:eyre into enjs:format
2016-12-03 02:47:16 +03:00
:: :: ++wall:enjs:format
++ wall :: string from wall
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/^wall
canonize jo..:js:eyre into enjs:format
2016-12-03 02:47:16 +03:00
^- json
(tape (of-wall a))
:: :: ++ship:enjs:format
++ ship :: string from ship
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/^ship
canonize jo..:js:eyre into enjs:format
2016-12-03 02:47:16 +03:00
^- json
Remove trailing whitespace
2019-01-18 08:37:34 +03:00
(tape (slag 1 (scow %p a)))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++numb:enjs:format
++ numb :: number from unsigned
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/@u
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/^time
%velo reset works.
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
Move merged vanes back.
2016-12-02 22:34:07 +03:00
=> |% ++ grub * :: result
++ fist $-(json grub) :: reparser instance
-- ::
|%
:: :: ++ar:dejs:format
++ ar :: array as list
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wit/fist
|= jon/json ^- (list _(wit *json))
?> ?=({$a *} jon)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
(turn p.jon wit)
:: :: ++at:dejs:format
++ at :: array as tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wil/(pole fist)
|= jon/json
?> ?=({$a *} jon)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
((at-raw wil) p.jon)
:: :: ++at-raw:dejs:format
++ at-raw :: array as tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wil/(pole fist)
|= jol/(list json)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
?~ jol !!
?- wil :: mint-vain on empty
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: {wit/* t/*}
{* t/*}
Porting work in progress.
2018-08-16 04:37:13 +03:00
=> .(wil [wit *]=wil)
Move merged vanes back.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(jon/json ?>(?=({$b *} jon) p.jon))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++bu:dejs:format
++ bu :: boolean not
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(jon/json ?>(?=({$b *} jon) !p.jon))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++ci:dejs:format
++ ci :: maybe transform
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {poq/gate wit/fist}
|= jon/json
Move merged vanes back.
2016-12-02 22:34:07 +03:00
(need (poq (wit jon)))
:: :: ++cu:dejs:format
++ cu :: transform
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {poq/gate wit/fist}
|= jon/json
Move merged vanes back.
2016-12-02 22:34:07 +03:00
(poq (wit jon))
:: :: ++di:dejs:format
++ di :: millisecond date
%+ cu
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/@u ^- @da
Move merged vanes back.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wit/fist
|= jon/json
Move merged vanes back.
2016-12-02 22:34:07 +03:00
?~(jon ~ (some (wit jon)))
:: :: ++ne:dejs:format
++ ne :: number as real
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= jon/json
Move merged vanes back.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= jon/json
?> ?=({$n *} jon)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
(rash p.jon dem)
:: :: ++no:dejs:format
++ no :: number as cord
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(jon/json ?>(?=({$n *} jon) p.jon))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++of:dejs:format
++ of :: object as frond
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wer/(pole {cord fist})
|= jon/json
?> ?=({$o {@ *} $~ $~} jon)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
|-
?- wer :: mint-vain on empty
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: {{key/@t wit/*} t/*}
{{key/@t *} t/*}
Porting work in progress.
2018-08-16 04:37:13 +03:00
=> .(wer [[* wit] *]=wer)
Move merged vanes back.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wer/(pole {cord fist})
|= jon/json
?> ?=({$o *} jon)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
((ot-raw wer) p.jon)
:: :: ++ot-raw:dejs:format
++ ot-raw :: object as tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wer/(pole {cord fist})
|= jom/(map @t json)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
?- wer :: mint-vain on empty
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: {{key/@t wit/*} t/*}
{{key/@t *} t/*}
Porting work in progress.
2018-08-16 04:37:13 +03:00
=> .(wer [[* wit] *]=wer)
Move merged vanes back.
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)])
==
handle json objects without all keys
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)])
==
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++om:dejs:format
++ om :: object as map
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wit/fist
|= jon/json
?> ?=({$o *} jon)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
(~(run by p.jon) wit)
:: :: ++op:dejs:format
++ op :: parse keys of map
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {fel/rule wit/fist}
|= jon/json ^- (map _(wonk *fel) _*wit)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
=/ jom ((om wit) jon)
%- malt
removes +-tap:by accumulator arg and changes calling convention
2017-02-13 23:43:18 +03:00
%+ turn ~(tap by jom)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {a/cord b/*}
Move merged vanes back.
2016-12-02 22:34:07 +03:00
=> .(+< [a b]=+<)
[(rash a fel) b]
:: :: ++pe:dejs:format
++ pe :: prefix
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {pre/* wit/fist}
Move merged vanes back.
2016-12-02 22:34:07 +03:00
(cu |*(* [pre +<]) wit)
:: :: ++sa:dejs:format
++ sa :: string as tape
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(jon/json ?>(?=({$s *} jon) (trip p.jon)))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++so:dejs:format
++ so :: string as cord
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(jon/json ?>(?=({$s *} jon) p.jon))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++su:dejs:format
++ su :: parse string
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* sab/rule
|= jon/json ^+ (wonk *sab)
?> ?=({$s *} jon)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
(rash p.jon sab)
handle json objects without all keys
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))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++ul:dejs:format
++ ul :: null
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(jon/json ?~(jon ~ !!))
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
::
++ za :: full unit pole
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* pod/(pole (unit))
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
?~ pod &
?~ -.pod |
(za +.pod)
::
++ zl :: collapse unit list
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* lut/(list (unit))
Partial application of ++redo.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* but/(pole (unit))
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
?~ but !!
Remove trailing whitespace
2019-01-18 08:37:34 +03:00
?~ +.but
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
u:->.but
[u:->.but (zp +.but)]
::
++ zm :: collapse unit map
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* lum/(map term (unit))
Work in progress.
2018-08-16 04:05:30 +03:00
?: (~(rep by lum) |=({{@ a/(unit)} b/_|} |(b ?=(~ a))))
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
~
(some (~(run by lum) need))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
-- ::dejs
:: :: ++dejs-soft:format
++ dejs-soft :: json reparse to unit
%velo reset works.
2016-12-02 04:17:02 +03:00
=, unity
=> |% ++ grub (unit *) :: result
++ fist $-(json grub) :: reparser instance
-- ::
Intermediate commit -- ^% on %zuse.
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.
::
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
++ ar :: array as list
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wit/fist
|= jon/json
?. ?=({$a *} jon) ~
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
%- zl
Remove trailing whitespace
2019-01-18 08:37:34 +03:00
|-
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ p.jon ~
[i=(wit i.p.jon) t=$(p.jon t.p.jon)]
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ at :: array as tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wil/(pole fist)
|= jon/json
?. ?=({$a *} jon) ~
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
=+ raw=((at-raw wil) p.jon)
?.((za raw) ~ (some (zp raw)))
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ at-raw :: array as tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wil/(pole fist)
|= jol/(list json)
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
?~ wil ~
:- ?~(jol ~ (-.wil i.jol))
((at-raw +.wil) ?~(jol ~ t.jol))
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ bo :: boolean
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(jon/json ?.(?=({$b *} jon) ~ [~ u=p.jon]))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ bu :: boolean not
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(jon/json ?.(?=({$b *} jon) ~ [~ u=!p.jon]))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ ci :: maybe transform
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {poq/gate wit/fist}
|= jon/json
%velo reset works.
2016-12-02 04:17:02 +03:00
(biff (wit jon) poq)
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ cu :: transform
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {poq/gate wit/fist}
|= jon/json
%velo reset works.
2016-12-02 04:17:02 +03:00
(bind (wit jon) poq)
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
++ da :: UTC date
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= jon/json
?. ?=({$s *} jon) ~
(bind (stud:chrono:userlib p.jon) |=(a/date (year a)))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ di :: millisecond date
%+ cu
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/@u ^- @da
%velo reset works.
2016-12-02 04:17:02 +03:00
(add ~1970.1.1 (div (mul ~s1 a) 1.000))
ni
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ mu :: true unit
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wit/fist
|= jon/json
%velo reset works.
2016-12-02 04:17:02 +03:00
?~(jon (some ~) (bind (wit jon) some))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ ne :: number as real
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= jon/json
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (unit @rd)
!!
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ ni :: number as integer
Remove trailing whitespace
2019-01-18 08:37:34 +03:00
|= jon/json
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
?. ?=({$n *} jon) ~
%velo reset works.
2016-12-02 04:17:02 +03:00
(rush p.jon dem)
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ no :: number as cord
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= jon/json
?. ?=({$n *} jon) ~
%velo reset works.
2016-12-02 04:17:02 +03:00
(some p.jon)
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ of :: object as frond
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wer/(pole {cord fist})
|= jon/json
Work in progress.
2018-08-16 04:05:30 +03:00
?. ?=({$o {@ *} ~ ~} jon) ~
%velo reset works.
2016-12-02 04:17:02 +03:00
|-
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
?~ wer ~
Remove trailing whitespace
2019-01-18 08:37:34 +03:00
?: =(-.-.wer p.n.p.jon)
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
((pe -.-.wer +.-.wer) q.n.p.jon)
((of +.wer) jon)
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ ot :: object as tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wer/(pole {cord fist})
|= jon/json
?. ?=({$o *} jon) ~
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
=+ raw=((ot-raw wer) p.jon)
?.((za raw) ~ (some (zp raw)))
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ ot-raw :: object as tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wer/(pole {cord fist})
|= jom/(map @t json)
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
?~ wer ~
=+ ten=(~(get by jom) -.-.wer)
[?~(ten ~ (+.-.wer u.ten)) ((ot-raw +.wer) jom)]
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ om :: object as map
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wit/fist
|= jon/json
?. ?=({$o *} jon) ~
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
(zm (~(run by p.jon) wit))
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ op :: parse keys of map
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {fel/rule wit/fist}
Remove trailing whitespace
2019-01-18 08:37:34 +03:00
%+ cu
Fix small issue in ++op:dejs-soft:format when calling ++my:nl Re-does PR #445. It got overwritten in 7df058d.
2017-11-09 20:23:23 +03:00
|= a/(list (pair _(wonk *fel) _(need *wit)))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
(my:nl a)
%- ci :_ (om wit)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/(map cord _(need *wit))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
^- (unit (list _[(wonk *fel) (need *wit)]))
%- zl
Merge remote-tracking branch 'origin/master' into piaf-runes
2017-09-22 04:45:27 +03:00
%+ turn ~(tap by a)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/cord b/_(need *wit)}
Remove trailing whitespace
2019-01-18 08:37:34 +03:00
=+ nit=(rush a fel)
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
?~ nit ~
(some [u.nit b])
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ pe :: prefix
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {pre/* wit/fist}
%velo reset works.
2016-12-02 04:17:02 +03:00
(cu |*(* [pre +<]) wit)
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ sa :: string as tape
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= jon/json
?.(?=({$s *} jon) ~ (some (trip p.jon)))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ so :: string as cord
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= jon/json
?.(?=({$s *} jon) ~ (some p.jon))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ su :: parse string
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* sab/rule
|= jon/json
?. ?=({$s *} jon) ~
%velo reset works.
2016-12-02 04:17:02 +03:00
(rush p.jon sab)
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ ul |=(jon/json ?~(jon (some ~) ~)) :: null
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
++ za :: full unit pole
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* pod/(pole (unit))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
?~ pod &
?~ -.pod |
(za +.pod)
::
++ zl :: collapse unit list
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* lut/(list (unit))
Intermediate commit -- ^% on %zuse.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* but/(pole (unit))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
?~ but !!
Remove trailing whitespace
2019-01-18 08:37:34 +03:00
?~ +.but
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
u:->.but
[u:->.but (zp +.but)]
::
++ zm :: collapse unit map
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* lum/(map term (unit))
Work in progress.
2018-08-16 04:05:30 +03:00
?: (~(rep by lum) |=({{@ a/(unit)} b/_|} |(b ?=(~ a))))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
~
(some (~(run by lum) need))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
-- ::dejs-soft
%velo reset works.
2016-12-02 04:17:02 +03:00
--
:: ::
:::: ++differ :: (2d) hunt-mcilroy
:: ::::
++ differ ^?
remove ^vane shims requires vere without crypto:ames
2016-12-07 06:13:33 +03:00
=, clay
%velo reset works.
2016-12-02 04:17:02 +03:00
=, format
|%
:: :: ++berk:differ
++ berk :: invert diff patch
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* bur/(urge)
%velo reset works.
2016-12-02 04:17:02 +03:00
|- ^+ bur
?~ bur ~
:_ $(bur t.bur)
?- -.i.bur
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%& i.bur
%| [%| q.i.bur p.i.bur]
%velo reset works.
2016-12-02 04:17:02 +03:00
==
:: :: ++loss:differ
++ loss :: longest subsequence
~% %loss ..is ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {hel/(list) hev/(list)}
%velo reset works.
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)])
==
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| gox/{p/@ud q/(map @ud {p/@ud q/_hev})}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {inx/@ud goy/@ud} ^- ?
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {inx/@ud goy/@ud} ^- ?
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {inx/@ud goy/@ud}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= gay/(list @ud)
%velo reset works.
2016-12-02 04:17:02 +03:00
^+ +>
=+ ^= zes
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=+ [inx=0 zes=*(list {p/@ud q/@ud})]
%velo reset works.
2016-12-02 04:17:02 +03:00
|- ^+ zes
Work in progress.
2018-08-16 04:05:30 +03:00
?: |(?=(~ gay) (gth inx p.gox)) zes
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {hel/(list) rug/(urge)}
%velo reset works.
2016-12-02 04:17:02 +03:00
^+ hel
=+ war=`_hel`~
|- ^+ hel
?~ rug (flop war)
?- -.i.rug
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%&
%velo reset works.
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)
==
::
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%|
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {hel/(list) hev/(list) lcs/(list)}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ^= rag
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
^- {$%({%& p/@ud} {%| p/_lcs q/_lcs})}
%velo reset works.
2016-12-02 04:17:02 +03:00
[%& 0]
=> .(rag [p=rag q=*(list _rag)])
=< abet =< main
|%
:: :: ++abet:lusk:differ
++ abet ::
fix bad conflict resolution in bab93e7 fixes #357 going on the record as still baffled why there was even a conflict for the zuseflat merge to resolve
2017-03-14 21:34:23 +03:00
=? q.rag !=([& 0] p.rag) [p.rag q.rag]
%velo reset works.
2016-12-02 04:17:02 +03:00
(flop q.rag)
:: :: ++done:lusk:differ
++ done ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= new/_p.rag
%velo reset works.
2016-12-02 04:17:02 +03:00
^+ rag
?- -.p.rag
End use of legacy $| and $& syntax.
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]]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
End use of legacy $| and $& syntax.
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]
%velo reset works.
2016-12-02 04:17:02 +03:00
==
==
:: :: ++main:lusk:differ
++ main ::
|- ^+ +
?~ hel
?~ hev
Work in progress.
2018-08-16 04:05:30 +03:00
?>(?=(~ lcs) +)
%velo reset works.
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
:: ::::
leave note on ++html
2016-12-09 02:48:30 +03:00
++ html ^? :: XX rename to web-txt
remove ^vane shims requires vere without crypto:ames
2016-12-07 06:13:33 +03:00
=, eyre
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
:: ::
canonize base64, mime type encoding
2016-12-03 03:33:15 +03:00
:::: ++mimes:html :: (2e1) MIME
%velo reset works.
2016-12-02 04:17:02 +03:00
:: ::::
canonize base64, mime type encoding
2016-12-03 03:33:15 +03:00
++ mimes ^?
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
canonize base64, mime type encoding
2016-12-03 03:33:15 +03:00
:: :: ++as-octs:mimes:html
%velo reset works.
2016-12-02 04:17:02 +03:00
++ as-octs :: atom to octstream
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= tam/@ ^- octs
%velo reset works.
2016-12-02 04:17:02 +03:00
[(met 3 tam) tam]
canonize base64, mime type encoding
2016-12-03 03:33:15 +03:00
:: :: ++as-octt:mimes:html
%velo reset works.
2016-12-02 04:17:02 +03:00
++ as-octt :: tape to octstream
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= tep/tape ^- octs
%velo reset works.
2016-12-02 04:17:02 +03:00
(as-octs (rap 3 tep))
canonize base64, mime type encoding
2016-12-03 03:33:15 +03:00
:: :: ++en-mite:mimes:html
%velo reset works.
2016-12-02 04:17:02 +03:00
++ en-mite :: mime type to text
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= myn/mite
%velo reset works.
2016-12-02 04:17:02 +03:00
%- crip
|- ^- tape
?~ myn ~
?: =(~ t.myn) (trip i.myn)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
(weld (trip i.myn) `tape`['/' $(myn t.myn)])
canonize base64, mime type encoding
2016-12-03 03:33:15 +03:00
:: :: ++en-base64:mimes:
%velo reset works.
2016-12-02 04:17:02 +03:00
++ en-base64 :: encode base64
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= tig/@
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
%velo reset works.
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 '='))
canonize base64, mime type encoding
2016-12-03 03:33:15 +03:00
:: :: ++de-base64:mimes:
%velo reset works.
2016-12-02 04:17:02 +03:00
++ de-base64 :: decode base64
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=- |=(a/cord (rash a fel))
=< fel=(cook |~(a/@ `@t`(swp 3 a)) (bass 64 .))
%velo reset works.
2016-12-02 04:17:02 +03:00
=- (cook welp ;~(plug (plus siw) (stun 0^2 (cold %0 tis))))
^= siw
;~ pose
Reset %zuse pre 143.
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'))
%velo reset works.
2016-12-02 04:17:02 +03:00
(cold 62 (just '+'))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
(cold 63 (just '/'))
%velo reset works.
2016-12-02 04:17:02 +03:00
==
Add base58 functions to zuse
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'))
==
canonize base64, mime type encoding
2016-12-03 03:33:15 +03:00
-- ::mimes
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en-json:html
++ en-json :: print json
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|^ |=(val/json (apex val ""))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++apex:en-json:html
++ apex
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {val/json rez/tape}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- tape
?~ val (weld "null" rez)
?- -.val
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$a
%velo reset works.
2016-12-02 04:17:02 +03:00
:- '['
=. rez [']' rez]
!.
?~ p.val rez
New metal boot system.
2016-11-24 07:25:07 +03:00
|-
%velo reset works.
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)])
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$b (weld ?:(p.val "true" "false") rez)
$n (weld (trip p.val) rez)
$s
%velo reset works.
2016-12-02 04:17:02 +03:00
:- '"'
=. rez ['"' rez]
=+ viz=(trip p.val)
!.
|- ^- tape
?~ viz rez
=+ hed=(jesc i.viz)
Work in progress.
2018-08-16 04:05:30 +03:00
?: ?=({@ ~} hed)
%velo reset works.
2016-12-02 04:17:02 +03:00
[i.hed $(viz t.viz)]
(weld hed $(viz t.viz))
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$o
:- '{'
=. rez ['}' rez]
removes +-tap:by accumulator arg and changes calling convention
2017-02-13 23:43:18 +03:00
=+ viz=~(tap by p.val)
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=+ utf=|=(a/@ ['\\' 'u' ((x-co 4):co a)])
|= a/@ ^- tape
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=< |=(a/cord `(unit json)`(rush a apex))
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
:: :: ++abox:de-json:html
++ abox :: array
%+ stag %a
Porting work in progress.
2018-08-16 04:37:13 +03:00
(ifix [lac (wish rac)] (more (wish com) apex))
%velo reset works.
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)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
(cook |=(s/tape [%n p=(rap 3 s)]) numb)
%velo reset works.
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))
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(pose yel net say bas loo tuf)
%velo reset works.
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
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(pose ;~(less yel bas prn) esca)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++mayb:de-json:html
++ mayb :: optional
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|*(bus/rule ;~(pose bus (easy ~)))
%velo reset works.
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
Porting work in progress.
2018-08-16 04:37:13 +03:00
%+ ifix [(wish leb) (wish reb)]
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* bus/rule
(cook |=(a/@ [a ~]) bus)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++stri:de-json:html
++ stri :: string
Porting work in progress.
2018-08-16 04:37:13 +03:00
(cook crip (ifix [yel yel] (star jcha)))
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=({a/tape b/tape} (weld a b))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++wish:de-json:html
++ wish :: with whitespace
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|*(sef/rule ;~(pfix spac sef))
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::de-json
:: :: ++en-xml:html
++ en-xml :: xml printer
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=< |=(a/manx `tape`(apex a ~))
%velo reset works.
2016-12-02 04:17:02 +03:00
|_ _[unq=`?`| cot=`?`|]
:: :: ++apex:en-xml:html
++ apex :: top level
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {mex/manx rez/tape}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- tape
Work in progress.
2018-08-16 04:05:30 +03:00
?: ?=({$$ {{$$ *} ~}} g.mex)
%velo reset works.
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)])
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
^- rez/tape
fix +has:in types in zuse
2019-01-29 02:55:44 +03:00
?: &(?=(~ c.mex) |(cot ?^(man | (clot man))))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
[' ' '/' '>' rez]
%velo reset works.
2016-12-02 04:17:02 +03:00
:- '>'
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
(many c.mex :(weld "</" tam ">" rez))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++attr:en-xml:html
++ attr :: attributes to tape
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {tat/mart rez/tape}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {tex/tape rez/tape}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {lix/(list manx) rez/tape}
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= man/mane ^- tape
%velo reset works.
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
replaces all uses of %# with %~
2018-04-04 21:15:10 +03:00
%~ has in
replaces all tall cnsg hoons with %#
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
==
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::en-xml
:: :: ++de-xml:html
++ de-xml :: xml parser
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=< |=(a/cord (rush a apex))
|_ ent/_`(map term @t)`[[%apos '\''] ~ ~]
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ sear |=({a/marx b/marl c/mane} ?.(=(c n.a) ~ (some [a b])))
%velo reset works.
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
Porting work in progress.
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)))
%velo reset works.
2016-12-02 04:17:02 +03:00
(easy ~)
==
==
:: :: ++chrd:de-xml:html
++ chrd :: character data
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ cook |=(a/tape ^-(mars ;/(a)))
Porting work in progress.
2018-08-16 04:37:13 +03:00
(plus ;~(less yel ;~(pose (just `@`10) escp)))
%velo reset works.
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 ::
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(pose ;~(less led ban pad prn) enty)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++enty:de-xml:html
++ enty :: entity
Porting work in progress.
2018-08-16 04:37:13 +03:00
%+ ifix pad^mic
%velo reset works.
2016-12-02 04:17:02 +03:00
;~ pose
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
=+ def=^+(ent (my:nl [%gt '>'] [%lt '<'] [%amp '&'] [%quot '"'] ~))
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ sear ~(get by (~(uni by def) ent))
(cook crip ;~(plug alf (stun 1^31 aln)))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ cook |=(a/@c ?:((gth a 0x10.ffff) '<27>' (tuft a)))
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ ifix [gal (jest '/>')]
%velo reset works.
2016-12-02 04:17:02 +03:00
;~(plug ;~(plug name attr) (cold ~ (star whit)))
:: :: ++head:de-xml:html
++ head :: opening tag
Porting work in progress.
2018-08-16 04:37:13 +03:00
(ifix [gal ban] ;~(plug name attr))
%velo reset works.
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
Porting work in progress.
2018-08-16 04:37:13 +03:00
(ifix [(jest '</') ban] name)
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= tep/tape
%velo reset works.
2016-12-02 04:17:02 +03:00
^- tape
%- zing
%+ turn tep
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= tap/char
=+ xen=|=(tig/@ ?:((gte tig 10) (add tig 55) (add tig '0')))
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= tep/tape
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (unit tape)
?~ tep [~ ~]
?: =('%' i.tep)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
?. ?=({@ @ *} t.tep) ~
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=< |=(pul/purl `tape`(apex %& pul))
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
:: :: ++apex:en-purl:html
++ apex ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= qur/quri ^- tape
%velo reset works.
2016-12-02 04:17:02 +03:00
?- -.qur
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%& (weld (head p.p.qur) `tape`$(qur [%| +.p.qur]))
%| ['/' (weld (body p.qur) (tail q.qur))]
%velo reset works.
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 ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= pok/pork ^- tape
%velo reset works.
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)))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
(welp seg '/' $(q.pok t.q.pok))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++head:en-purl:html
++ head ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= har/hart
%velo reset works.
2016-12-02 04:17:02 +03:00
^- tape
;: weld
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
?:(&(p.har !?=(hoke r.har)) "https://" "http://")
%velo reset works.
2016-12-02 04:17:02 +03:00
::
?- -.r.har
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%| (trip (rsh 3 1 (scot %if p.r.har)))
%& =+ rit=(flop p.r.har)
%velo reset works.
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 ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= kay/quay
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=< |=(a/cord `(unit purl)`(rush a auri))
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
:: :: ++deft:de-purl:html
whitespace violations
2016-12-07 06:14:39 +03:00
++ deft :: parse url extension
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= rax/(list @t)
%velo reset works.
2016-12-02 04:17:02 +03:00
|- ^- pork
?~ rax
[~ ~]
?^ t.rax
[p.pok [ire q.pok]]:[pok=$(rax t.rax) ire=i.rax]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=+ ^- raf/(like term)
=> |=(a/@ ((sand %tas) (crip (flop (trip a)))))
%velo reset works.
2016-12-02 04:17:02 +03:00
(;~(sfix (sear . sym) dot) [1^1 (flop (trip i.rax))])
?~ q.raf
[~ [i.rax ~]]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=+ `{ext/term {@ @} fyl/tape}`u.q.raf
%velo reset works.
2016-12-02 04:17:02 +03:00
:- `ext
?:(=(~ fyl) ~ [(crip (flop fyl)) ~])
:: :: ++apat:de-purl:html
++ apat :: 2396 abs_path
%+ cook deft
Porting work in progress.
2018-08-16 04:37:13 +03:00
(ifix [net ;~(pose net (easy ~))] (more net smeg))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++aurf:de-purl:html
++ aurf :: 2396 with fragment
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ cook |~(a/purf a)
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= $: a/{p/? q/(unit user) r/{(unit @ud) host}}
b/{pork quay}
%velo reset works.
2016-12-02 04:17:02 +03:00
==
^- (pair (unit user) purl)
[q.a [[p.a r.a] b]]
::
;~ plug
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(plug htts (punt ;~(sfix urt:ab vat)) thor)
%velo reset works.
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+& ~]))
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(sfix scem ;~(plug col net net))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++cock:de-purl:html
++ cock :: cookie
Porting work in progress.
2018-08-16 04:37:13 +03:00
%+ most ;~(plug mic ace)
%velo reset works.
2016-12-02 04:17:02 +03:00
;~(plug toke ;~(pfix tis tosk))
:: :: ++dlab:de-purl:html
++ dlab :: 2396 domainlabel
%+ sear
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/@ta
%velo reset works.
2016-12-02 04:17:02 +03:00
?.(=('-' (rsh 3 (dec (met 3 a)) a)) [~ u=a] ~)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ cook |=(a/tape (crip (cass a)))
%velo reset works.
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
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(pose pure pesc psub col vat)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++pcok:de-purl:html
++ pcok :: cookie char
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(less bas mic com yel prn)
%velo reset works.
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
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(pose pcar net wut)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++pquo:de-purl:html
++ pquo :: normal query char
added col to +pquo (url param parsing)
2018-09-25 20:26:26 +03:00
;~(pose pure pesc pold net wut col)
%velo reset works.
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
Porting work in progress.
2018-08-16 04:37:13 +03:00
zap bus pad say lit rit
tar lus com mic tis
%velo reset works.
2016-12-02 04:17:02 +03:00
==
:: :: ++ptok:de-purl:html
++ ptok :: 2616 token
;~ pose
Porting work in progress.
2018-08-16 04:37:13 +03:00
aln zap hax bus cen pad say tar lus
%velo reset works.
2016-12-02 04:17:02 +03:00
hep dot ket cab tec bar sig
==
:: :: ++scem:de-purl:html
++ scem :: 2396 scheme
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ cook |=(a/tape (crip (cass a)))
%velo reset works.
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
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(pose tock (ifix [yel yel] tock))
%velo reset works.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ cook |*({* *} [+<+ +<-])
%velo reset works.
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 %&
whitespace violations
2016-12-07 06:14:39 +03:00
%+ sear :: LL parser weak here
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/(list @t)
%velo reset works.
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
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(pose pad mic)
%velo reset works.
2016-12-02 04:17:02 +03:00
;~(plug fque ;~(pose ;~(pfix tis fquu) (easy '')))
::
:: funky query
::
%+ cook
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(a/tape [[%$ (crip a)] ~])
%velo reset works.
2016-12-02 04:17:02 +03:00
(star pque)
==
:: :: ++zest:de-purl:html
++ zest :: 2616 request-uri
;~ pose
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
(stag %& (cook |=(a/purl a) auri))
%velo reset works.
2016-12-02 04:17:02 +03:00
(stag %| ;~(plug apat yque))
==
-- ::de-purl
:: MOVEME
:: :: ++fuel:html
++ fuel :: parse urbit fcgi
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {bem/beam ced/noun:cred quy/quer}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- epic
=+ qix=|-(`quay`?~(quy quy [[p q]:quy $(quy t.quy)]))
remove +hard, replace with new ;;
2019-05-09 22:46:19 +03:00
[(malt qix) ;;(cred ced) bem]
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::eyre
:: ::
whitespace violations
2016-12-07 06:14:39 +03:00
:::: ++wired :: wire formatting
%velo reset works.
2016-12-02 04:17:02 +03:00
:: ::::
++ wired ^?
|%
Added ++neon adapters to ++dill and ++eyre.
2017-04-30 06:42:07 +03:00
::
++ auld :: ++auld:wired
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= sky/roof :: old style namespace
Added ++neon adapters to ++dill and ++eyre.
2017-04-30 06:42:07 +03:00
^- slyt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {ref/* raw/*}
Added ++neon adapters to ++dill and ++eyre.
2017-04-30 06:42:07 +03:00
=+ pux=((soft path) raw)
?~ pux ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
?. ?=({@ @ @ @ *} u.pux) ~
Added ++neon adapters to ++dill and ++eyre.
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
==
Work in progress.
2018-08-16 04:05:30 +03:00
?. ?=({~ $$ $tas @} hyr) ~
?. ?=({~ $$ $p @} fal) ~
?. ?=({~ $$ $tas @} dyc) ~
Added ++neon adapters to ++dill and ++eyre.
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]
%velo reset works.
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 &)
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=- |* {a/{@tas (pole @tas)} b/*} ^- (paf a)
%zuse to 143; some fixes.
2017-10-25 02:50:11 +03:00
=> .(b `,(tup -.a +.a)`b)
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ +.a [(scot -.a b) ~]
%zuse to 143; some fixes.
2017-10-25 02:50:11 +03:00
[(scot -.a -.b) `,(paf +.a)`(..$ +.a +.b)]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:- paf=|*(a/(pole) ?~(a $~ {(odo:raid ,-.a(. %ta)) ,(..$ +.a)}))
%velo reset works.
2016-12-02 04:17:02 +03:00
^= tup
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {a/@tas b/(pole @tas)}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ c=(odo:raid a)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
?~(b c {c (..$ ,-.b ,+.b)})
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++raid:wired
++ raid :: demand path odors
::
:: .= [p=%ack q=~sarnel r=&]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: (raid /ack/~sarnel+.y p=%tas q=%p r=%f ~)
%velo reset works.
2016-12-02 04:17:02 +03:00
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=- |* {a/path b/{@tas (pole @tas)}}
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=* fog (odo -.b)
?~ +.b `fog`(slav -.b -.a)
[`fog`(slav -.b -.a) (..$ +.a +.b)]
%velo reset works.
2016-12-02 04:17:02 +03:00
^= odo
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* a/@tas
|= b/*
Update for repainting.
2017-12-07 08:27:29 +03:00
=- a(, (- b)) :: preserve face
%velo reset works.
2016-12-02 04:17:02 +03:00
?+ a @
Reset %zuse pre 143.
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
%velo reset works.
2016-12-02 04:17:02 +03:00
==
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
:: :: :: ++read:wired
:: ++ read :: parse odored path
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: =< |*({a/path b/{@tas (pole @tas)}} ((+> b) a))
:: |* b/{@tas (pole @tas)}
:: |= a/path
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
:: ?~ a ~
:: =+ hed=(slaw -.b i.a)
:: =* fog (odo:raid -.b)
:: ?~ +.b
:: ^- (unit fog)
:: ?^(+.a ~ hed)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: ^- (unit {fog _(need *(..^$ +.b))})
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
:: (both hed ((..^$ +.b) +.a))
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::wired
:: ::
whitespace violations
2016-12-07 06:14:39 +03:00
:::: ++title :: (2j) namespace
%velo reset works.
2016-12-02 04:17:02 +03:00
:: ::::
updates sein:title to use %jael scry, adds ^sein:title
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)
adds comet miner, stars sponsor comets and +crub:crypto fingerprints include both keypairs
2018-10-15 23:05:55 +03:00
$pawn (end 4 1 who)
updates sein:title to use %jael scry, adds ^sein:title
2018-10-15 09:23:34 +03:00
==
--
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
:: :: ++cite:title
++ cite :: render ship
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= who/@p
%velo reset works.
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
updates sein:title to use %jael scry, adds ^sein:title
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)
==
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++sein:title
++ sein :: autoboss
updates sein:title to use %jael scry, adds ^sein:title
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)
%velo reset works.
2016-12-02 04:17:02 +03:00
==
:: :: ++team:title
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ team :: our / our moon
updates sein:title to use %jael scry, adds ^sein:title
2018-10-15 09:23:34 +03:00
|= [our=ship who=ship]
^- ?
?| =(our who)
&(?=($earl (clan who)) =(our (^sein who)))
%velo reset works.
2016-12-02 04:17:02 +03:00
==
-- ::title
:: ::
Uncompiled, but should bring up children.
2017-06-09 02:57:38 +03:00
:::: ++milly :: (2k) milliseconds
:: ::::
variance fix: calling lead, zinc gates
2018-11-29 21:49:08 +03:00
++ milly ^|
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ now/@da
Uncompiled, but should bring up children.
2017-06-09 02:57:38 +03:00
:: :: ++around:milly
++ around :: relative msec
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= wen/@da
Uncompiled, but should bring up children.
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))
Remove trailing whitespace
2019-01-18 08:37:34 +03:00
::
Uncompiled, but should bring up children.
2017-06-09 02:57:38 +03:00
++ about :: ++about:milly
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= wun/(unit @da) :: unit relative msec
Uncompiled, but should bring up children.
2017-06-09 02:57:38 +03:00
^- @tas
?~(wun %no (around u.wun))
:: :: ++mill:milly
++ mill :: msec diff
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= one/@dr
Uncompiled, but should bring up children.
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
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(a/@dr `@ud`(div a (div ~s1 1.000)))
Uncompiled, but should bring up children.
2017-06-09 02:57:38 +03:00
:: :: ++mull:milly
++ mull :: unit msec diff
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= une/(unit @dr)
Uncompiled, but should bring up children.
2017-06-09 02:57:38 +03:00
^- @tas
?~(une %no (mill u.une))
--
The +clock structure is general, put it in zuse and add tess.
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
==
--
+capped-queue is also general. Move to zuse and add tests.
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])
--
The +clock structure is general, put it in zuse and add tess.
2018-08-28 00:51:42 +03:00
--
Uncompiled, but should bring up children.
2017-06-09 02:57:38 +03:00
:: ::
whitespace violations
2016-12-07 06:14:39 +03:00
:::: ++userlib :: (2u) non-vane utils
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ userlib ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
:: ::
whitespace violations
2016-12-07 06:14:39 +03:00
:::: ++chrono:userlib :: (2uB) time
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
++ chrono ^?
|%
Implement +from-unix for turning timestamps into @da
2019-02-28 23:01:08 +03:00
:: +from-unix: unix timestamp to @da
::
++ from-unix
|= timestamp=@ud
^- @da
%+ add ~1970.1.1
(mul timestamp ~s1)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++dawn:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ dawn :: Jan 1 weekday
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= yer/@ud
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ yet=(sub yer 1)
%- mod :_ 7
;: add
%velo reset works.
2016-12-02 04:17:02 +03:00
1
(mul 5 (mod yet 4))
(mul 4 (mod yet 100))
New metal boot system.
2016-11-24 07:25:07 +03:00
(mul 6 (mod yet 400))
==
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++daws:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ daws :: date weekday
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= yed/date
New metal boot system.
2016-11-24 07:25:07 +03:00
%- mod :_ 7
%+ add
%velo reset works.
2016-12-02 04:17:02 +03:00
(dawn y.yed)
New metal boot system.
2016-11-24 07:25:07 +03:00
(sub (yawn [y.yed m.yed d.t.yed]) (yawn y.yed 1 1))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++deal:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ deal :: to leap sec time
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= yer/@da
New metal boot system.
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))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++lead:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ lead :: from leap sec time
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= ley/date
New metal boot system.
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))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++dust:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ dust :: print UTC format
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= yed/date
New metal boot system.
2016-11-24 07:25:07 +03:00
^- tape
=+ wey=(daws yed)
slightly clean up ++dust
2016-12-02 23:30:20 +03:00
=/ num (d-co:co 1) :: print as decimal without dots
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=/ pik |=({n/@u t/wall} `tape`(scag 3 (snag n t)))
slightly clean up ++dust
2016-12-02 23:30:20 +03:00
::
Reset %zuse pre 143.
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"
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++stud:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ stud :: parse UTC format
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=< |= a/cord :: expose parsers
New metal boot system.
2016-11-24 07:25:07 +03:00
%+ biff (rush a (more sepa elem))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= b/(list _(wonk *elem)) ^- (unit date)
Import ++redo from /resurface branch.
2017-09-07 02:46:30 +03:00
=- ?.((za:dejs:format -) ~ (some (zp:dejs:format -)))
New metal boot system.
2016-11-24 07:25:07 +03:00
^+ =+ [*date u=unit]
Work in progress.
2018-08-16 04:05:30 +03:00
*{(u _[a y]) (u _m) (u _d.t) (u _+.t) ~}
New metal boot system.
2016-11-24 07:25:07 +03:00
:~
Reset %zuse pre 143.
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)))
New metal boot system.
2016-11-24 07:25:07 +03:00
==
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++snug:stud:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ snug :: position in list
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/(list tape)
|= b/tape
New metal boot system.
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)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++sepa:stud:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ sepa :: separator
;~(pose ;~(plug com (star ace)) (plus ace))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++elem:stud:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ elem :: date element
%velo reset works.
2016-12-02 04:17:02 +03:00
;~ pose
New metal boot system.
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)
%velo reset works.
2016-12-02 04:17:02 +03:00
==
:: :: ++y:stud:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ y :: year
(stag %& (bass 10 (stun 3^4 dit)))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++m:stud:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ m :: month
(sear (snug mon:yu) (plus alf))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++d:stud:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ d :: day
(bass 10 (stun 1^2 dit))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++t:stud:chrono:
++ t :: hours:minutes:secs
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ cook |=({h/@u @ m/@u @ s/@u} ~[h m s])
%velo reset works.
2016-12-02 04:17:02 +03:00
;~(plug d col d col d)
New metal boot system.
2016-11-24 07:25:07 +03:00
::
%velo reset works.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
(sear (snug wik:yu) (plus alf))
%velo reset works.
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))
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++unt:chrono:userlib
New metal boot system.
2016-11-24 07:25:07 +03:00
++ unt :: Urbit to Unix time
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/@
New metal boot system.
2016-11-24 07:25:07 +03:00
(div (sub a ~1970.1.1) ~s1)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++yu:chrono:userlib
New metal boot system.
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
:: ::
whitespace violations
2016-12-07 06:14:39 +03:00
:::: ++space:userlib :: (2uC) file utils
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
++ space ^?
remove ^vane shims requires vere without crypto:ames
2016-12-07 06:13:33 +03:00
=, clay
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++feel:space:userlib
New metal boot system.
2016-11-24 07:25:07 +03:00
++ feel :: simple file write
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {pax/path val/cage}
New metal boot system.
2016-11-24 07:25:07 +03:00
^- miso
=+ dir=.^(arch %cy pax)
?~ fil.dir [%ins val]
[%mut val]
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++file:space:userlib
New metal boot system.
2016-11-24 07:25:07 +03:00
++ file :: simple file load
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= pax/path
New metal boot system.
2016-11-24 07:25:07 +03:00
^- (unit)
=+ dir=.^(arch %cy pax)
?~(fil.dir ~ [~ .^(* %cx pax)])
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++foal:space:userlib
New metal boot system.
2016-11-24 07:25:07 +03:00
++ foal :: high-level write
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {pax/path val/cage}
New metal boot system.
2016-11-24 07:25:07 +03:00
^- toro
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
?> ?=({* * * *} pax)
New metal boot system.
2016-11-24 07:25:07 +03:00
[i.t.pax [%& [[[t.t.t.pax (feel pax val)] ~]]]]
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++fray:space:userlib
New metal boot system.
2016-11-24 07:25:07 +03:00
++ fray :: high-level delete
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= pax/path
New metal boot system.
2016-11-24 07:25:07 +03:00
^- toro
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
?> ?=({* * * *} pax)
New metal boot system.
2016-11-24 07:25:07 +03:00
[i.t.pax [%& [[[t.t.t.pax [%del ~]] ~]]]]
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++furl:space:userlib
New metal boot system.
2016-11-24 07:25:07 +03:00
++ furl :: unify changes
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {one/toro two/toro}
New metal boot system.
2016-11-24 07:25:07 +03:00
^- toro
~| %furl
?> ?& =(p.one p.two) :: same path
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
&(?=(%& -.q.one) ?=(%& -.q.two)) :: both deltas
New metal boot system.
2016-11-24 07:25:07 +03:00
==
[p.one [%& (weld p.q.one p.q.two)]]
-- ::space
:: ::
Quam parvam sapienta regitur muntus.
2017-02-12 05:44:56 +03:00
:::: ++unix:userlib :: (2uD) unix line-list
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ unix ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++lune:unix:userlib
++ lune :: cord by unix line
~% %lune ..is ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= txt/@t
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ txt
^- (list @t) ~
=+ [byt=(rip 3 txt) len=(met 3 txt)]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| {lin/(list @t) off/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (list @t)
New metal boot system.
2016-11-24 07:25:07 +03:00
%- flop
%velo reset works.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
2016-12-02 04:17:02 +03:00
$(off +(off))
:: :: ++nule:unix:userlib
++ nule :: lines to unix cord
~% %nule ..is ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= lin/(list @t)
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @t
%+ can 3
%+ turn lin
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= t/@t
%velo reset works.
2016-12-02 04:17:02 +03:00
[+((met 3 t)) (cat 3 t 10)]
--
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::
whitespace violations
2016-12-07 06:14:39 +03:00
:::: ++scanf:userlib :: (2uF) exterpolation
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
whitespace violations
2016-12-07 06:14:39 +03:00
++ scanf
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=< |* {tape (pole _;/(*{$^(rule tape)}))} :: formatted scan
%velo reset works.
2016-12-02 04:17:02 +03:00
=> .(+< [a b]=+<)
(scan a (parsf b))
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++parsf:scanf:
++ parsf :: make parser from:
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* a/(pole _;/(*{$^(rule tape)})) :: ;"chars{rule}chars"
%velo reset works.
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 ~)
Work in progress.
2018-08-16 04:05:30 +03:00
?: ?=(%| -.i) ;~(pfix (jest (crip p.i)) $(+< t))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ cook |*({* *} [i t]=+<)
%velo reset works.
2016-12-02 04:17:02 +03:00
;~(plug p.i $(+< t))
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: .= (norm [;"{n}, {n}"]:n=dim:ag) ~[[& dim] [| ", "] [& dim]]:ag
%velo reset works.
2016-12-02 04:17:02 +03:00
::
:: :: ++norm:scanf:userlib
++ norm ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* (pole _;/(*{$^(rule tape)}))
%velo reset works.
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
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::
whitespace violations
2016-12-07 06:14:39 +03:00
:::: ++pubsub:userlib :: (2uG) application
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ pubsub ^?
remove ^vane shims requires vere without crypto:ames
2016-12-07 06:13:33 +03:00
=, gall
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++pale:pubsub:
++ pale :: filter peers
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {hid/bowl fun/$-(sink ?)}
removes +-tap:by accumulator arg and changes calling convention
2017-02-13 23:43:18 +03:00
(skim ~(tap by sup.hid) fun)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++prix:pubsub:
++ prix :: filter gate
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= pax/path |= sink ^- ?
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ pax & ?~ r.+< |
&(=(i.pax i.r.+<) $(pax t.pax, r.+< t.r.+<))
:: :: ++prey:pubsub:
++ prey :: prefix
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=({pax/path hid/bowl} (pale hid (prix pax)))
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::pubsub
--
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Move merged vanes back.
2016-12-02 22:34:07 +03:00
++ zuse %309 :: hoon+zuse kelvin
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ gift-arvo :: out result <-$
Almost back to working.
2018-08-17 00:39:39 +03:00
$~ [%init ~zod]
Fix $? to use %fits.
2018-03-18 04:06:15 +03:00
$% gift:able:ames
remove ^vane shims requires vere without crypto: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
Misc cleanup
2018-05-14 19:21:17 +03:00
gift:able:jael
New metal boot system.
2016-11-24 07:25:07 +03:00
==
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ task-arvo :: in request ->$
Fix $? to use %fits.
2018-03-18 04:06:15 +03:00
$% task:able:ames
remove ^vane shims requires vere without crypto: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
Misc cleanup
2018-05-14 19:21:17 +03:00
task:able:jael
New metal boot system.
2016-11-24 07:25:07 +03:00
==
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ note-arvo :: out request $->
Remove trailing whitespace
2019-01-18 08:37:34 +03:00
$~ [%a %wake ~]
Reset %zuse pre 143.
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}
Misc cleanup
2018-05-14 19:21:17 +03:00
{$j task:able:jael}
Clean build.
2018-08-17 21:24:22 +03:00
{@tas $meta vase}
==
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ sign-arvo :: in result $<-
$% {$a gift:able:ames}
real queueing for clay writes
2019-05-02 04:21:32 +03:00
$: $b
$% gift:able:behn
boot works
2019-05-11 00:51:37 +03:00
[%writ riot:clay]
real queueing for clay writes
2019-05-02 04:21:32 +03:00
==
==
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$c gift:able:clay}
{$d gift:able:dill}
{$e gift:able:eyre}
{$f gift:able:ford}
{$g gift:able:gall}
{$j gift:able:jael}
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
2016-12-02 04:17:02 +03:00
::
updates +unix-task to reference vanes with $>
2019-05-27 09:09:28 +03:00
+$ unix-task :: input from unix
$~ [%wake ~]
$% :: %ames: new process
::
$>(%barn task:able:ames)
:: %dill: keyboard input
::
$>(%belt task:able:dill)
:: %dill: configure terminal (resized)
::
$>(%blew task:able:dill)
:: %clay: new process
::
$>(%boat task:able:clay)
:: %behn/%eyre: new process
::
adds comment noting %behn/%eyre %born +task discrepancy
2019-05-27 09:22:34 +03:00
:: XX %eyre includes payload
::
updates +unix-task to reference vanes with $>
2019-05-27 09:09:28 +03:00
[%born ~]
:: any vane: error report
::
[%crud tag=@tas =tang]
:: %dill: reset terminal configuration
::
$>(%hail task:able:dill)
:: %ames: hear packet
::
$>(%hear task:able:ames)
:: %dill: hangup
::
$>(%hook task:able:dill)
:: %clay: external edit
::
$>(%into task:able:clay)
:: %eyre: learn ports of live http servers
::
$>(%live task:able:eyre)
:: %eyre: hear http response
::
$>(%they task:able:eyre)
:: %eyre: hear http request
::
$>(%this task:able:eyre)
:: %eyre: hear http request cancellation
::
$>(%thud task:able:eyre)
:: %behn: wakeup
::
$>(%wake task:able:behn)
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
==
:: ::
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
:::: ++azimuth :: (2az) azimuth
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
:: ::::
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
++ azimuth
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
!:
Reorganize Ethereum-related stdlib cores
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
::
mainnet azimuth
2019-04-23 01:37:10 +03:00
++ azimuth 0x223c.067f.8cf2.8ae1.73ee.5caf.ea60.ca44.c335.fecb :: mainnet
reduce ++hard usage in jael for speed
2019-01-11 02:49:37 +03:00
:: ++ azimuth 0x308a.b6a6.024c.f198.b57e.008d.0ac9.ad02.1988.6579 :: ropsten
mainnet azimuth
2019-04-23 01:37:10 +03:00
:: ++ azimuth 0x863d.9c2e.5c4c.1335.96cf.ac29.d552.55f0.d0f8.6381 :: local bridge
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
::
:: launch: block number of azimuth deploy
::
mainnet azimuth
2019-04-23 01:37:10 +03:00
++ launch 6.784.800 :: mainnet
:: ++ launch 0 :: local bridge
Reorganize Ethereum-related stdlib cores
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
::
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
|%
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
++ pass-from-eth
|= [enc=octs aut=octs sut=@ud]
let pass-from-eth not return a unit
2019-01-16 02:10:53 +03:00
^- pass
%^ cat 3 'b'
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
?. &(=(1 sut) =(p.enc 32) =(p.aut 32))
let pass-from-eth not return a unit
2019-01-16 02:10:53 +03:00
(cat 8 0 0)
(cat 8 q.aut q.enc)
Implement functions to get address from Ethereum keys
2018-09-28 01:38:52 +03:00
::
Reorganize Ethereum-related stdlib cores
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
::
Prevent crashes in/caused by ++point-from-eth
2018-12-18 02:17:34 +03:00
?. active ~
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
:- ~
:* key-revision
::
(pass-from-eth encryption-key authentication-key crypto-suite)
::
continuity-number
::
Make Urbit-side sponsorship state match chain state more closely We always have a sponsor, plus a flag that says whether they're actively sponsoring us. If they aren't they recently kicked us. Because we can't do anything without a sponsor, we still try with them.
2018-12-21 17:59:12 +03:00
[has-sponsor `@p`sponsor]
Reorganize Ethereum-related stdlib cores
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
==
Implement functions to get address from Ethereum keys
2018-09-28 01:38:52 +03:00
::
Reorganize Ethereum-related stdlib cores
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
::
Be accurate in incoming/hoon-side structures also
2019-02-22 00:28:57 +03:00
?: =(i.topics.log owner-changed)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
=+ ^- [who=@ wer=address]
Point to the correct topics when decoding Azimuth events
2019-02-26 23:48:24 +03:00
(decode-topics t.topics.log ~[%uint %address])
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
`[who %owner wer]
::
Be accurate in incoming/hoon-side structures also
2019-02-22 00:28:57 +03:00
?: =(i.topics.log activated)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
=/ who=@
Point to the correct topics when decoding Azimuth events
2019-02-26 23:48:24 +03:00
(decode-topics t.topics.log ~[%uint])
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
`[who %activated who]
::
Be accurate in incoming/hoon-side structures also
2019-02-22 00:28:57 +03:00
?: =(i.topics.log spawned)
Update Azimuth event handling to account for updated indexing
2018-12-21 13:57:03 +03:00
=+ ^- [pre=@ who=@]
Point to the correct topics when decoding Azimuth events
2019-02-26 23:48:24 +03:00
(decode-topics t.topics.log ~[%uint %uint])
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
`[pre %spawned who]
::
Be accurate in incoming/hoon-side structures also
2019-02-22 00:28:57 +03:00
?: =(i.topics.log escape-requested)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
=+ ^- [who=@ wer=@]
Point to the correct topics when decoding Azimuth events
2019-02-26 23:48:24 +03:00
(decode-topics t.topics.log ~[%uint %uint])
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
`[who %escape `wer]
::
Be accurate in incoming/hoon-side structures also
2019-02-22 00:28:57 +03:00
?: =(i.topics.log escape-canceled)
Point to the correct topics when decoding Azimuth events
2019-02-26 23:48:24 +03:00
=/ who=@ (decode-topics t.topics.log ~[%uint])
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
`[who %escape ~]
::
Be accurate in incoming/hoon-side structures also
2019-02-22 00:28:57 +03:00
?: =(i.topics.log escape-accepted)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
=+ ^- [who=@ wer=@]
Point to the correct topics when decoding Azimuth events
2019-02-26 23:48:24 +03:00
(decode-topics t.topics.log ~[%uint %uint])
Make Urbit-side sponsorship state match chain state more closely We always have a sponsor, plus a flag that says whether they're actively sponsoring us. If they aren't they recently kicked us. Because we can't do anything without a sponsor, we still try with them.
2018-12-21 17:59:12 +03:00
`[who %sponsor & wer]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
::
Be accurate in incoming/hoon-side structures also
2019-02-22 00:28:57 +03:00
?: =(i.topics.log lost-sponsor)
Update Azimuth event handling to account for updated indexing
2018-12-21 13:57:03 +03:00
=+ ^- [who=@ pos=@]
Point to the correct topics when decoding Azimuth events
2019-02-26 23:48:24 +03:00
(decode-topics t.topics.log ~[%uint %uint])
Make Urbit-side sponsorship state match chain state more closely We always have a sponsor, plus a flag that says whether they're actively sponsoring us. If they aren't they recently kicked us. Because we can't do anything without a sponsor, we still try with them.
2018-12-21 17:59:12 +03:00
`[who %sponsor | pos]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
::
Be accurate in incoming/hoon-side structures also
2019-02-22 00:28:57 +03:00
?: =(i.topics.log changed-keys)
Point to the correct topics when decoding Azimuth events
2019-02-26 23:48:24 +03:00
=/ who=@ (decode-topics t.topics.log ~[%uint])
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
=+ ^- [enc=octs aut=octs sut=@ud rev=@ud]
%+ decode-results data.log
~[[%bytes-n 32] [%bytes-n 32] %uint %uint]
let pass-from-eth not return a unit
2019-01-16 02:10:53 +03:00
`[who %keys rev (pass-from-eth enc aut sut)]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
::
Be accurate in incoming/hoon-side structures also
2019-02-22 00:28:57 +03:00
?: =(i.topics.log broke-continuity)
Point to the correct topics when decoding Azimuth events
2019-02-26 23:48:24 +03:00
=/ who=@ (decode-topics t.topics.log ~[%uint])
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
=/ num=@ (decode-results data.log ~[%uint])
`[who %continuity num]
::
Be accurate in incoming/hoon-side structures also
2019-02-22 00:28:57 +03:00
?: =(i.topics.log changed-management-proxy)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
=+ ^- [who=@ sox=address]
Point to the correct topics when decoding Azimuth events
2019-02-26 23:48:24 +03:00
(decode-topics t.topics.log ~[%uint %address])
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
`[who %management-proxy sox]
::
Be accurate in incoming/hoon-side structures also
2019-02-22 00:28:57 +03:00
?: =(i.topics.log changed-voting-proxy)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
=+ ^- [who=@ tox=address]
Point to the correct topics when decoding Azimuth events
2019-02-26 23:48:24 +03:00
(decode-topics t.topics.log ~[%uint %address])
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
`[who %voting-proxy tox]
::
Be accurate in incoming/hoon-side structures also
2019-02-22 00:28:57 +03:00
?: =(i.topics.log changed-spawn-proxy)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
=+ ^- [who=@ sox=address]
Point to the correct topics when decoding Azimuth events
2019-02-26 23:48:24 +03:00
(decode-topics t.topics.log ~[%uint %address])
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
`[who %spawn-proxy sox]
::
Be accurate in incoming/hoon-side structures also
2019-02-22 00:28:57 +03:00
?: =(i.topics.log changed-transfer-proxy)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
=+ ^- [who=@ tox=address]
Point to the correct topics when decoding Azimuth events
2019-02-26 23:48:24 +03:00
(decode-topics t.topics.log ~[%uint %address])
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
`[who %transfer-proxy tox]
::
:: warn about unimplemented events, but ignore
:: the ones we know are harmless.
Be accurate in incoming/hoon-side structures also
2019-02-22 00:28:57 +03:00
~? ?! .= i.topics.log
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
:: OwnershipTransferred(address,address)
0x8be0.079c.5316.5914.1344.cd1f.d0a4.f284.
1949.7f97.22a3.daaf.e3b4.186f.6b64.57e0
Be accurate in incoming/hoon-side structures also
2019-02-22 00:28:57 +03:00
[%unimplemented-event i.topics.log]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
~
Implement functions to get address from Ethereum keys
2018-09-28 01:38:52 +03:00
::
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
++ apply-point-diff
|= [pot=point dif=diff-point]
^- point
?- -.dif
%full new.dif
::
%activated
%_ pot
Make Urbit-side sponsorship state match chain state more closely We always have a sponsor, plus a flag that says whether they're actively sponsoring us. If they aren't they recently kicked us. Because we can't do anything without a sponsor, we still try with them.
2018-12-21 17:59:12 +03:00
net `[0 0 0 &^(^sein:title who.dif) ~]
Reorganize Ethereum-related stdlib cores
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
Make Urbit-side sponsorship state match chain state more closely We always have a sponsor, plus a flag that says whether they're actively sponsoring us. If they aren't they recently kicked us. Because we can't do anything without a sponsor, we still try with them.
2018-12-21 17:59:12 +03:00
%= pot
sponsor.u.net new.dif
escape.u.net ?:(has.new.dif ~ escape.u.net.pot)
==
Reorganize Ethereum-related stdlib cores
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 ~])
--
Implement Ethereum transaction signing Includes RLP encoding logic.
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
::
--
::
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
:: abi en/decoding
::NOTE https://solidity.readthedocs.io/en/develop/abi-spec.html
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
Reorganize Ethereum-related stdlib cores
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.
Revert "Revert "Landscape signin page"" This reverts commit a90298f4268bf995383a9d8ee48da3405653be6b.
2019-03-19 03:50:50 +03:00
~| [%bytes-n-too-long max=32 actual=p.p.dat]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
?> (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])
Revert "Revert "Landscape signin page"" This reverts commit a90298f4268bf995383a9d8ee48da3405653be6b.
2019-03-19 03:50:50 +03:00
(pad-to-multiple (render-hex-bytes p.dat) 64 %right)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
::
%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
::
Revert "Revert "Landscape signin page"" This reverts commit a90298f4268bf995383a9d8ee48da3405653be6b.
2019-03-19 03:50:50 +03:00
++ decode-topics decode-arguments
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
::
++ decode-results
:: rex: string of hex bytes with leading 0x.
|* [rex=@t tys=(list etyp)]
Revert "Revert "Landscape signin page"" This reverts commit a90298f4268bf995383a9d8ee48da3405653be6b.
2019-03-19 03:50:50 +03:00
=- (decode-arguments - tys)
%+ turn (rip 9 (rsh 3 2 rex))
(curr rash hex)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
::
++ decode-arguments
Revert "Revert "Landscape signin page"" This reverts commit a90298f4268bf995383a9d8ee48da3405653be6b.
2019-03-19 03:50:50 +03:00
|* [wos=(list @) tys=(list etyp)]
=/ wos=(list @) wos :: get rid of tmi
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
=| win=@ud
=< (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
Revert "Revert "Landscape signin page"" This reverts commit a90298f4268bf995383a9d8ee48da3405653be6b.
2019-03-19 03:50:50 +03:00
%address `@ux`wor
%uint `@ud`wor
%bool =(1 wor)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
==
::
%string
=+ $(tys ~[%bytes])
[nin (trip (swp 3 q.dat))]
::
%bytes
:- +(win)
:: find the word index of the actual data.
Revert "Revert "Landscape signin page"" This reverts commit a90298f4268bf995383a9d8ee48da3405653be6b.
2019-03-19 03:50:50 +03:00
=/ lic=@ud (div wor 32)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
:: learn the bytelength of the data.
Revert "Revert "Landscape signin page"" This reverts commit a90298f4268bf995383a9d8ee48da3405653be6b.
2019-03-19 03:50:50 +03:00
=/ len=@ud (snag lic wos)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
(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.
Revert "Revert "Landscape signin page"" This reverts commit a90298f4268bf995383a9d8ee48da3405653be6b.
2019-03-19 03:50:50 +03:00
=. win (div wor 32)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
:: read the elements from their location.
%- tail
%^ decode-array-n ~[t.typ] +(win)
Revert "Revert "Landscape signin page"" This reverts commit a90298f4268bf995383a9d8ee48da3405653be6b.
2019-03-19 03:50:50 +03:00
(snag win wos)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
::
[%array-n *]
(decode-array-n ~[t.typ] win n.typ)
==
::
++ decode-bytes-n
|= [fro=@ud bys=@ud]
^- octs
:: parse {bys} bytes from {fro}.
Revert "Revert "Landscape signin page"" This reverts commit a90298f4268bf995383a9d8ee48da3405653be6b.
2019-03-19 03:50:50 +03:00
:- bys
%^ rsh 3
=+ (mod bys 32)
?:(=(0 -) - (sub 32 -))
%+ rep 8
%- flop
=- (swag [fro -] wos)
+((div (dec bys) 32))
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
::
++ decode-array-n
::NOTE we take (list etyp) even though we only operate on
:: a single etyp as a workaround for urbit/arvo#673
Revert "Revert "Landscape signin page"" This reverts commit a90298f4268bf995383a9d8ee48da3405653be6b.
2019-03-19 03:50:50 +03:00
::NOTE careful! produces lists without type info
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
=| res=(list)
|* [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))
--
--
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
:: communicating with rpc nodes
::NOTE https://github.com/ethereum/wiki/wiki/JSON-RPC
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
Reorganize Ethereum-related stdlib cores
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)
More accurately represent Ethereum RPC filter topics Rather than a flat list of topics to watch for, it is an indexed list of topics to watch for in those specific positions. As such, items in that list may also be zero (null, matches any topic), or a list of topics (matches any one of those topics). Additionally, topics are always specified using 32 bytes, so there is no need to specify length explicitly.
2019-02-21 15:25:27 +03:00
top=(list ?(@ux (list @ux)))
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
==
Support eth_getBlockByNumber Ethereum RPC call
2019-03-05 00:29:47 +03:00
[%eth-get-block-by-number bon=@ud txs=?]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
[%eth-get-filter-logs fid=@ud]
$: %eth-get-logs
fro=(unit block)
tob=(unit block)
adr=(list address)
More accurately represent Ethereum RPC filter topics Rather than a flat list of topics to watch for, it is an indexed list of topics to watch for in those specific positions. As such, items in that list may also be zero (null, matches any topic), or a list of topics (matches any one of those topics). Additionally, topics are always specified using 32 bytes, so there is no need to specify length explicitly.
2019-02-21 15:25:27 +03:00
top=(list ?(@ux (list @ux)))
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
==
[%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
Be accurate in incoming/hoon-side structures also
2019-02-22 00:28:57 +03:00
:: event data
::
:: For standard events, the first topic is the event signature
:: hash. For anonymous events, the first topic is the first
:: indexed argument.
:: Note that this does not support the "anonymous event with
:: zero topics" case. This has dubious usability, and using
:: +lest instead of +list saves a lot of ?~ checks.
::
topics=(lest @ux)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
==
::
:: 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)]
Provide better affordances for json-rpc requests Includes a type for rpc requests, and functions for turning those into more actionable types (json, hiss).
2019-02-03 23:00:45 +03:00
::TODO should use request-to-json:rpc:jstd,
:: and probably (fall riq -.req)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
:* 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 ~
More accurately represent Ethereum RPC filter topics Rather than a flat list of topics to watch for, it is an indexed list of topics to watch for in those specific positions. As such, items in that list may also be zero (null, matches any topic), or a list of topics (matches any one of those topics). Additionally, topics are always specified using 32 bytes, so there is no need to specify length explicitly.
2019-02-21 15:25:27 +03:00
:+ ~ 'topics'
(topics-to-json top.req)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
==
Support eth_getBlockByNumber Ethereum RPC call
2019-03-05 00:29:47 +03:00
::
%eth-get-block-by-number
:- 'eth_getBlockByNumber'
:~ (tape (num-to-hex bon.req))
b+txs.req
==
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
::
%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 ~
More accurately represent Ethereum RPC filter topics Rather than a flat list of topics to watch for, it is an indexed list of topics to watch for in those specific positions. As such, items in that list may also be zero (null, matches any topic), or a list of topics (matches any one of those topics). Additionally, topics are always specified using 32 bytes, so there is no need to specify length explicitly.
2019-02-21 15:25:27 +03:00
:+ ~ 'topics'
(topics-to-json top.req)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
==
::
%eth-get-filter-changes
['eth_getFilterChanges' (tape (num-to-hex fid.req)) ~]
::
%eth-send-raw-transaction
['eth_sendRawTransaction' (tape (num-to-hex dat.req)) ~]
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
==
::
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
++ eth-call-to-json
=, enjs:format
|= cal=call
^- json
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
:- %o %- ~(gas by *(map @t json))
=- (murn - same)
^- (list (unit (pair @t json)))
Reorganize Ethereum-related stdlib cores
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)]
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
==
::
Reorganize Ethereum-related stdlib cores
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
better handling of lost filters - add `etn` to `++abet:su` and `++curd` for propogation of `latest-block` - start new filters 40 blocks before `latest-block` to allow for reorgs while we weren't looking - add getLogs in case we need it later
2018-10-24 23:20:49 +03:00
==
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
More accurately represent Ethereum RPC filter topics Rather than a flat list of topics to watch for, it is an indexed list of topics to watch for in those specific positions. As such, items in that list may also be zero (null, matches any topic), or a list of topics (matches any one of those topics). Additionally, topics are always specified using 32 bytes, so there is no need to specify length explicitly.
2019-02-21 15:25:27 +03:00
++ topics-to-json
|= tos=(list ?(@ux (list @ux)))
^- json
:- %a
=/ ttj
;: cork
(cury render-hex-bytes 32)
prefix-hex
tape:enjs:format
==
%+ turn tos
|= t=?(@ (list @))
?@ t
?: =(0 t) ~
(ttj `@`t)
a+(turn t ttj)
::
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
:: parsing responses
Support sending raw transactions to RPC nodes
2018-09-04 17:42:27 +03:00
::
Reorganize Ethereum-related stdlib cores
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
::
=- topics+(cu - (ar so))
|= r=(list @t)
Be accurate in incoming/hoon-side structures also
2019-02-22 00:28:57 +03:00
^- (lest @ux)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
?> ?=([@t *] r)
Be accurate in incoming/hoon-side structures also
2019-02-22 00:28:57 +03:00
:- (hex-to-num i.r)
(turn t.r hex-to-num)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
==
--
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
:: utilities
::TODO give them better homes!
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
++ num-to-hex
Support sending raw transactions to RPC nodes
2018-09-04 17:42:27 +03:00
|= n=@
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
^- tape
%- prefix-hex
better azimuth mock
2019-04-11 04:49:20 +03:00
?: =(0 n)
"0"
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
%- render-hex-bytes
(as-octs:mimes:html n)
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
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
removes obsolete doccords-style comments
2018-08-28 01:33:32 +03:00
:: atom to string of hex bytes without 0x prefix and dots.
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
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)]
Fix issue with Ethereum byte padding logic
2018-09-27 04:14:34 +03:00
^- tape
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
=+ len=(lent wat)
Revert "Revert "Landscape signin page"" This reverts commit a90298f4268bf995383a9d8ee48da3405653be6b.
2019-03-19 03:50:50 +03:00
?: =(0 len) (reap mof '0')
=+ mad=(mod len mof)
?: =(0 mad) wat
=+ tad=(reap (sub mof mad) '0')
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
%- weld
?:(?=(%left wer) [tad wat] [wat tad])
::
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
++ hex-to-num
|= a=@t
(rash (rsh 3 2 a) hex)
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
--
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
::
Provide better affordances for json-rpc requests Includes a type for rpc requests, and functions for turning those into more actionable types (json, hiss).
2019-02-03 23:00:45 +03:00
:: |jstd: json standard library
::
++ jstd
=, ^jstd
|%
++ rpc
=, ^rpc
|%
++ request-to-hiss
|= [url=purl:eyre req=request]
^- hiss:eyre
:- url
:+ %post
%- ~(gas in *math:eyre)
~['Content-Type'^['application/json']~]
%- some
%- as-octt:mimes:html
(en-json:html (request-to-json req))
::
++ request-to-json
|= request
^- json
%- pairs:enjs:format
:~ jsonrpc+s+'0.2'
id+s+id
method+s+method
::
:- %params
^- json
?- -.params
%list [%a +.params]
%object [%o (~(gas by *(map @t json)) +.params)]
==
==
--
--
::
adds pre-boot ethereum validation (|dawn) and tests
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=?])
--
|%
adds comet miner, stars sponsor comets and +crub:crypto fingerprints include both keypairs
2018-10-15 23:05:55 +03:00
:: +come:dawn: mine a comet under a star
::
take list of stars to mine a comet (#980)
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.
::
adds comet miner, stars sponsor comets and +crub:crypto fingerprints include both keypairs
2018-10-15 23:05:55 +03:00
++ come
take list of stars to mine a comet (#980)
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))
::
adds comet miner, stars sponsor comets and +crub:crypto fingerprints include both keypairs
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
take list of stars to mine a comet (#980)
2019-01-12 05:31:48 +03:00
?: (~(has in stars) (^sein:title who))
adds comet miner, stars sponsor comets and +crub:crypto fingerprints include both keypairs
2018-10-15 23:05:55 +03:00
[who 1 sec:ex:cub ~]
$(eny +(eny))
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
:: |give:dawn: produce requests for pre-boot validation
::
++ give
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
=, rpc:ethereum
=, abi:ethereum
=/ tract azimuth:contracts:azimuth
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
|%
pins pre-boot validation eth rpc requests to a single block
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
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
%+ request-to-json
pins pre-boot validation eth rpc requests to a single block
2018-10-29 21:02:36 +03:00
`~.0
[%eth-block-number ~]
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
:: +czar:give:dawn: Eth RPC for galaxy table
::
++ czar
pins pre-boot validation eth rpc requests to a single block
2018-10-29 21:02:36 +03:00
|= boq=@ud
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
^- octs
%- as-octt:mimes:html
%- en-json:html
pins pre-boot validation eth rpc requests to a single block
2018-10-29 21:02:36 +03:00
:- %a
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
%+ turn (gulf 0 255)
pins pre-boot validation eth rpc requests to a single block
2018-10-29 21:02:36 +03:00
|= gal=@
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
%+ request-to-json
fix for parity
2018-10-31 02:18:54 +03:00
`(cat 3 'gal-' (scot %ud gal))
pins pre-boot validation eth rpc requests to a single block
2018-10-29 21:02:36 +03:00
:+ %eth-call
=- [from=~ to=tract gas=~ price=~ value=~ data=-]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
(encode-call 'getKeys(uint32)' [%uint gal]~)
pins pre-boot validation eth rpc requests to a single block
2018-10-29 21:02:36 +03:00
[%number boq]
Rebrand Constitution stdlib to Azimuth stdlib
2018-12-14 00:23:17 +03:00
:: +point:give:dawn: Eth RPC for ship's contract state
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
::
Rebrand Constitution stdlib to Azimuth stdlib
2018-12-14 00:23:17 +03:00
++ point
pins pre-boot validation eth rpc requests to a single block
2018-10-29 21:02:36 +03:00
|= [boq=@ud who=ship]
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
^- octs
%- as-octt:mimes:html
%- en-json:html
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
%+ request-to-json
pins pre-boot validation eth rpc requests to a single block
2018-10-29 21:02:36 +03:00
`~.0
:+ %eth-call
=- [from=~ to=tract gas=~ price=~ value=~ data=-]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
(encode-call 'points(uint32)' [%uint `@`who]~)
pins pre-boot validation eth rpc requests to a single block
2018-10-29 21:02:36 +03:00
[%number boq]
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
:: +turf:give:dawn: Eth RPC for network domains
::
++ turf
pins pre-boot validation eth rpc requests to a single block
2018-10-29 21:02:36 +03:00
|= boq=@ud
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
^- octs
%- as-octt:mimes:html
%- en-json:html
pins pre-boot validation eth rpc requests to a single block
2018-10-29 21:02:36 +03:00
:- %a
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
%+ turn (gulf 0 2)
pins pre-boot validation eth rpc requests to a single block
2018-10-29 21:02:36 +03:00
|= idx=@
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
%+ request-to-json
fix for parity
2018-10-31 02:18:54 +03:00
`(cat 3 'turf-' (scot %ud idx))
pins pre-boot validation eth rpc requests to a single block
2018-10-29 21:02:36 +03:00
:+ %eth-call
=- [from=~ to=tract gas=~ price=~ value=~ data=-]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
(encode-call 'dnsDomains(uint256)' [%uint idx]~)
pins pre-boot validation eth rpc requests to a single block
2018-10-29 21:02:36 +03:00
[%number boq]
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
--
:: |take:dawn: parse responses for pre-boot validation
::
++ take
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
=, abi:ethereum
=, rpc:ethereum
=, azimuth
updates the |take:dawn gates to produce units and print errors
2018-12-06 22:11:14 +03:00
=, dejs-soft:format
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
|%
pins pre-boot validation eth rpc requests to a single block
2018-10-29 21:02:36 +03:00
:: +bloq:take:dawn: parse block number
::
++ bloq
|= rep=octs
updates the |take:dawn gates to produce units and print errors
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] ~)
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
:: +czar:take:dawn: parse galaxy table
::
++ czar
|= rep=octs
updates the |take:dawn gates to produce units and print errors
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))
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
%+ decode-results
updates the |take:dawn gates to produce units and print errors
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]
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
kyz=(map ship [=life =pass])
==
^+ kyz
let pass-from-eth not return a unit
2019-01-16 02:10:53 +03:00
=/ pub=pass
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
(pass-from-eth enc aut sut)
let pass-from-eth not return a unit
2019-01-16 02:10:53 +03:00
(~(put by kyz) who [rev pub])
Rebrand Constitution stdlib to Azimuth stdlib
2018-12-14 00:23:17 +03:00
:: +point:take:dawn: parse ship's contract state
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
::
Rebrand Constitution stdlib to Azimuth stdlib
2018-12-14 00:23:17 +03:00
++ point
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
|= [who=ship rep=octs]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
^- (unit point:azimuth)
updates the |take:dawn gates to produce units and print errors
2018-12-06 22:11:14 +03:00
=/ jon=(unit json) (de-json:html q.rep)
?~ jon
Rebrand Constitution stdlib to Azimuth stdlib
2018-12-14 00:23:17 +03:00
~&([%point-take-dawn %invalid-json] ~)
updates the |take:dawn gates to produce units and print errors
2018-12-06 22:11:14 +03:00
=/ res=(unit cord) ((ot result+so ~) u.jon)
?~ res
Rebrand Constitution stdlib to Azimuth stdlib
2018-12-14 00:23:17 +03:00
~&([%point-take-dawn %invalid-response rep] ~)
updates the |take:dawn gates to produce units and print errors
2018-12-06 22:11:14 +03:00
~? =(u.res '0x')
Rebrand Constitution stdlib to Azimuth stdlib
2018-12-14 00:23:17 +03:00
:- 'bad result from node; is azimuth address correct?'
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
azimuth:contracts
updates the |take:dawn gates to produce units and print errors
2018-12-06 22:11:14 +03:00
=/ out
%- mule |.
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
%+ point-from-eth
updates the |take:dawn gates to produce units and print errors
2018-12-06 22:11:14 +03:00
who
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
:_ *deed:eth-noun ::TODO call rights to fill
(decode-results u.res point:eth-type)
updates the |take:dawn gates to produce units and print errors
2018-12-06 22:11:14 +03:00
?: ?=(%& -.out)
(some p.out)
Rebrand Constitution stdlib to Azimuth stdlib
2018-12-14 00:23:17 +03:00
~&([%point-take-dawn %invalid-point] ~)
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
:: +turf:take:dawn: parse network domains
::
++ turf
|= rep=octs
updates the |take:dawn gates to produce units and print errors
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
updates %jael to save and %ames to give domains (on boot/startup) also defers initial clay merge, renames +turf (utf8 to utf32) to +taft, and removes duplicate +turf (domain) declarations, and updates pinned vere to use them
2018-10-04 09:43:40 +03:00
|= [id=@t result=@t]
^- (pair @ud ^turf)
fix for parity
2018-10-31 02:18:54 +03:00
:- (slav %ud (rsh 3 5 id))
updates %jael to save and %ames to give domains (on boot/startup) also defers initial clay merge, renames +turf (utf8 to utf32) to +taft, and removes duplicate +turf (domain) declarations, and updates pinned vere to use them
2018-10-04 09:43:40 +03:00
=/ dom=tape
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
(decode-results result [%string]~)
updates %jael to save and %ames to give domains (on boot/startup) also defers initial clay merge, renames +turf (utf8 to utf32) to +taft, and removes duplicate +turf (domain) declarations, and updates pinned vere to use them
2018-10-04 09:43:40 +03:00
=/ hot=host:eyre
(scan dom thos:de-purl:html)
?>(?=(%& -.hot) p.hot)
updates the |take:dawn gates to produce units and print errors
2018-12-06 22:11:14 +03:00
?~ dat
~&([%turf-take-dawn %invalid-domains] ~)
:- ~
=* dom u.dat
updates %jael to save and %ames to give domains (on boot/startup) also defers initial clay merge, renames +turf (utf8 to utf32) to +taft, and removes duplicate +turf (domain) declarations, and updates pinned vere to use them
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)
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
--
allow booting from ethereum snapshot
2018-11-01 00:34:21 +03:00
:: |snap:dawn restore from snapshot
::
++ snap
!:
|%
:: +bloq:snap:dawn: extract block number
::
++ bloq
clean and add tests
2018-11-01 01:18:40 +03:00
|= snap=snapshot:jael
updates the |snap:dawn gates to produce units
2018-12-07 10:06:54 +03:00
^- (unit @ud)
=- ?:(?=(%| -.out) ~ (some p.out))
^= out %- mule |.
Trim ethereum snapshot in Jael (#911) trim snapshot format
2018-12-06 03:26:32 +03:00
latest-block.snap
allow booting from ethereum snapshot
2018-11-01 00:34:21 +03:00
:: +czar:snap:dawn: extract galaxy table
::
++ czar
clean and add tests
2018-11-01 01:18:40 +03:00
|= snap=snapshot:jael
updates the |snap:dawn gates to produce units
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]))
allow booting from ethereum snapshot
2018-11-01 00:34:21 +03:00
%+ turn (gulf 0 255)
|= gal=@
^- [ship [life pass]]
:- gal
~| czar-gal=gal
Rebrand Constitution stdlib to Azimuth stdlib
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
allow booting from ethereum snapshot
2018-11-01 00:34:21 +03:00
::
Rebrand Constitution stdlib to Azimuth stdlib
2018-12-14 00:23:17 +03:00
++ point
clean and add tests
2018-11-01 01:18:40 +03:00
|= [who=ship snap=snapshot:jael]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
^- (unit point:azimuth)
Rebrand Constitution stdlib to Azimuth stdlib
2018-12-14 00:23:17 +03:00
(~(get by pos.eth.snap) who)
allow booting from ethereum snapshot
2018-11-01 00:34:21 +03:00
:: +turf:snap:dawn: extract network domains
::
++ turf
clean and add tests
2018-11-01 01:18:40 +03:00
|= snap=snapshot:jael
updates the |snap:dawn gates to produce units
2018-12-07 10:06:54 +03:00
^- (unit (list ^turf))
=- ?:(?=(%| -.out) ~ (some p.out))
^= out %- mule |.
allow booting from ethereum snapshot
2018-11-01 00:34:21 +03:00
%+ murn
updates the |snap:dawn gates to produce units
2018-12-07 10:06:54 +03:00
^- (list host:eyre)
allow booting from ethereum snapshot
2018-11-01 00:34:21 +03:00
%+ murn
^- (list @t)
~[pri sec ter]:dns.eth.snap
|= dom=@t
updates the |snap:dawn gates to produce units
2018-12-07 10:06:54 +03:00
^- (unit host:eyre)
clean and add tests
2018-11-01 01:18:40 +03:00
(rush dom thos:de-purl:html)
updates the |snap:dawn gates to produce units
2018-12-07 10:06:54 +03:00
|=(a=host:eyre ?:(?=(%| -.a) ~ (some p.a)))
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
--
:: +veri:dawn: validate keys, life, discontinuity, &c
::
++ veri
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
|= [=seed:able:jael =point:azimuth =live]
Make Urbit-side sponsorship state match chain state more closely We always have a sponsor, plus a flag that says whether they're actively sponsoring us. If they aren't they recently kicked us. Because we can't do anything without a sponsor, we still try with them.
2018-12-21 17:59:12 +03:00
^- (each sponsor=ship error=term)
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
=/ rac (clan:title who.seed)
=/ cub (nol:nu:crub:crypto key.seed)
?- rac
%pawn
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
2018-10-12 20:19:23 +03:00
:: a comet address is the fingerprint of the keypair
::
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
?. =(who.seed `@`fig:ex:cub)
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
2018-10-12 20:19:23 +03:00
[%| %key-mismatch]
:: a comet can never be breached
::
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
?^ live
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
2018-10-12 20:19:23 +03:00
[%| %already-booted]
:: a comet can never be re-keyed
::
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
?. ?=(%1 lyf.seed)
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
2018-10-12 20:19:23 +03:00
[%| %invalid-life]
Use sein to find comet sponsor
2018-12-21 19:38:41 +03:00
[%& (^sein:title who.seed)]
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
::
%earl
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
2018-10-12 20:19:23 +03:00
:: a moon must be signed by the parent
::
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
?~ sig.seed
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
2018-10-12 20:19:23 +03:00
[%| %missing-sig]
:: the parent must be launched
::
Rebrand Constitution stdlib to Azimuth stdlib
2018-12-14 00:23:17 +03:00
?~ net.point
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
2018-10-12 20:19:23 +03:00
[%| %parent-not-keyed]
adds life-mismatch checks to pre-boot validation
2018-10-26 00:39:34 +03:00
:: life must match parent's
::
Rebrand Constitution stdlib to Azimuth stdlib
2018-12-14 00:23:17 +03:00
?. =(lyf.seed life.u.net.point)
adds life-mismatch checks to pre-boot validation
2018-10-26 00:39:34 +03:00
[%| %life-mismatch]
Rebrand Constitution stdlib to Azimuth stdlib
2018-12-14 00:23:17 +03:00
=/ loy (com:nu:crub:crypto pass.u.net.point)
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
2018-10-12 20:19:23 +03:00
=/ hax (shaf %earl (sham who.seed lyf.seed pub:ex:cub))
:: the signature must be valid
::
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
?. =((some hax) (sure:as:loy u.sig.seed))
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
2018-10-12 20:19:23 +03:00
[%| %invalid-sig]
:: XX revisit for rekey
::
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
?^ live
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
2018-10-12 20:19:23 +03:00
[%| %already-booted]
Make Urbit-side sponsorship state match chain state more closely We always have a sponsor, plus a flag that says whether they're actively sponsoring us. If they aren't they recently kicked us. Because we can't do anything without a sponsor, we still try with them.
2018-12-21 17:59:12 +03:00
[%& (^sein:title who.seed)]
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
::
*
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
2018-10-12 20:19:23 +03:00
:: on-chain ships must be launched
::
Rebrand Constitution stdlib to Azimuth stdlib
2018-12-14 00:23:17 +03:00
?~ net.point
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
2018-10-12 20:19:23 +03:00
[%| %not-keyed]
Use =* in ++veri:dawn for easy network reference
2018-12-21 18:01:21 +03:00
=* net u.net.point
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
2018-10-12 20:19:23 +03:00
:: boot keys must match the contract
::
Use =* in ++veri:dawn for easy network reference
2018-12-21 18:01:21 +03:00
?. =(pub:ex:cub pass.net)
reduce ++hard usage in jael for speed
2019-01-11 02:49:37 +03:00
~& [%key-mismatch pub:ex:cub pass.net]
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
2018-10-12 20:19:23 +03:00
[%| %key-mismatch]
adds life-mismatch checks to pre-boot validation
2018-10-26 00:39:34 +03:00
:: life must match the contract
::
Use =* in ++veri:dawn for easy network reference
2018-12-21 18:01:21 +03:00
?. =(lyf.seed life.net)
adds life-mismatch checks to pre-boot validation
2018-10-26 00:39:34 +03:00
[%| %life-mismatch]
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
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)
::
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
?: ?& ?=(^ live)
?| ?=(%| breach.u.live)
Use =* in ++veri:dawn for easy network reference
2018-12-21 18:01:21 +03:00
(lte life.net life.u.live)
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
== ==
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
2018-10-12 20:19:23 +03:00
[%| %already-booted]
:: produce the sponsor for vere
::
Use =* in ++veri:dawn for easy network reference
2018-12-21 18:01:21 +03:00
~? !has.sponsor.net
[%no-sponsorship-guarantees-from who.sponsor.net]
[%& who.sponsor.net]
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
==
--
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::
Reference in New Issue Copy Permalink