ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-14 17:41:33 +03:00
Code Issues Packages Projects Releases Wiki Activity
0cc8c450a8
urbit/pkg/arvo/sys/zuse.hoon

9526 lines
323 KiB
Plaintext
Raw Normal View History

/sys: make hoon optional in %lyra
2020-05-09 15:09:26 +03:00
:: /sys/zuse
:: %reference/1
:: %zuse: arvo library
New metal boot system.
2016-11-24 07:25:07 +03:00
::
%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
zuse: remove +ford
2020-05-14 10:22:39 +03:00
:: arvo's eight major vanes (kernel modules). these are:
New metal boot system.
2016-11-24 07:25:07 +03:00
::
:: - %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")
zuse: fix outdated docs on vanes [ci skip] The documentation on vanes in the header of zuse.hoon hadn't been updated since before the introduction of %iris.
2019-11-21 11:52:59 +03:00
:: - %eyre: http server ("fair")
New metal boot system.
2016-11-24 07:25:07 +03:00
:: - %gall: application ("ball")
zuse: fix outdated docs on vanes [ci skip] The documentation on vanes in the header of zuse.hoon hadn't been updated since before the introduction of %iris.
2019-11-21 11:52:59 +03:00
:: - %iris: http client ("virus")
New metal boot system.
2016-11-24 07:25:07 +03:00
:: - %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
::+|
+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
zuse: modernizes syntax of top-level structures
2020-11-21 01:28:49 +03:00
|$ [item-type]
+capped-queue is also general. Move to zuse and add tests.
2018-08-28 01:25:33 +03:00
$: 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
zuse: modernizes syntax of top-level structures
2020-11-21 01:28:49 +03:00
|$ :: key-type: mold of keys
:: val-type: mold of values
::
[key-type val-type]
$: lookup=(map key-type [val=val-type fresh=@ud])
queue=(qeu key-type)
size=@ud
max-size=_2.048
depth=_1
==
The +clock structure is general, put it in zuse and add tess.
2018-08-28 00:51:42 +03:00
::
various: move away from $constant type syntax
2020-11-25 22:39:13 +03:00
+$ deco ?(~ %bl %br %un) :: text decoration
hoon: moves $json and styled-text molds back to %zuse
2020-05-13 02:12:43 +03:00
+$ json :: normal json value
$@ ~ :: null
$% [%a p=(list json)] :: array
[%b p=?] :: boolean
[%o p=(map @t json)] :: object
[%n p=@ta] :: number
[%s p=@t] :: string
== ::
zuse: modernizes syntax of top-level structures
2020-11-21 01:28:49 +03:00
+$ life @ud :: ship key revision
+$ rift @ud :: ship continuity
+$ mime (pair mite octs) :: mimetyped data
zuse: make octs value @ again eaa69ec had reverted the change from c46061e.
2020-11-24 18:07:49 +03:00
+$ octs (pair @ud @) :: octet-stream
zuse: modernizes syntax of top-level structures
2020-11-21 01:28:49 +03:00
+$ sock (pair ship ship) :: outgoing [our his]
hoon: moves $json and styled-text molds back to %zuse
2020-05-13 02:12:43 +03:00
+$ stub (list (pair stye (list @c))) :: styled unicode
+$ stye (pair (set deco) (pair tint tint)) :: decos/bg/fg
+$ styl %+ pair (unit deco) :: cascading style
(pair (unit tint) (unit tint)) ::
+$ styx (list $@(@t (pair styl styx))) :: styled text
Merge branch '24bit-colors' into m/klr-24
2020-12-02 19:24:55 +03:00
+$ tint $@ ?(%r %g %b %c %m %y %k %w %~) :: text color
[r=@uxD g=@uxD b=@uxD] :: 24bit true color
hoon: moves $json and styled-text molds back to %zuse
2020-05-13 02:12:43 +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
::
hoon: remove += and +- arm syntax
2020-11-25 18:49:17 +03:00
+$ event-id [block=@ud log=@ud]
Integrate Ethereum logic more closely into existing jael flows. Compiles, untested.
2018-05-29 00:04:33 +03:00
::
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
==
==
::
hoon: remove += and +- arm syntax
2020-11-25 18:49:17 +03:00
+$ dnses [pri=@t sec=@t ter=@t]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
::
++ 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
various: touch up improperly rewritten comments Also patches /mar/snip to be more correct, but a &snip [~ ~] in dojo still does not work.
2020-11-27 15:25:40 +03:00
[%sponsor new=[has=? who=@p]] :: EscapeAcc/LostSpons
[%escape new=(unit @p)] :: EscapeReq/Can
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
[%management-proxy new=address] :: ChangedManagementPro
[%voting-proxy new=address] :: ChangedVotingProxy
[%spawn-proxy new=address] :: ChangedSpawnProxy
[%transfer-proxy new=address] :: ChangedTransferProxy
==
--
factors out common vane +task declarations with $>
2019-05-27 10:30:19 +03:00
:: +vane-task: general tasks shared across vanes
::
+$ vane-task
clay, alef, and zuse compile
2019-06-29 02:43:52 +03:00
$~ [%born ~]
factors out common vane +task declarations with $>
2019-05-27 10:30:19 +03:00
$% :: i/o device replaced (reset state)
::
[%born ~]
:: error report
::
[%crud p=@tas q=(list tank)]
:: boot completed (XX legacy)
::
[%init p=ship]
arvo: wires up %trim memory-pressure event stubs
2019-09-27 23:00:37 +03:00
:: trim state (in response to memory pressure)
::
[%trim p=@ud]
factors out common vane +task declarations with $>
2019-05-27 10:30:19 +03:00
:: kernel upgraded
::
[%vega ~]
:: receive message via %ames
::
big merge, including some Alef and Zuse work
2019-10-30 23:12:57 +03:00
:: TODO: move .vane from $plea to here
::
%plea and %boon; might not compile
2019-07-28 10:50:32 +03:00
[%plea =ship =plea:ames]
factors out common vane +task declarations with $>
2019-05-27 10:30:19 +03:00
==
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
review fixes
2019-08-07 23:37:57 +03:00
:::: ++http ::
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
:: ::::
:: http: shared representations of http concepts
::
++ http ^?
|%
:: +header-list: an ordered list of http headers
::
+$ header-list
(list [key=@t value=@t])
:: +method: exhaustive list of http verbs
::
+$ method
$? %'CONNECT'
%'DELETE'
%'GET'
%'HEAD'
%'OPTIONS'
%'POST'
%'PUT'
%'TRACE'
==
:: +request: a single http request
::
+$ request
$: :: method: http method
::
method=method
:: url: the url requested
::
:: The url is not escaped. There is no escape.
::
url=@t
:: header-list: headers to pass with this request
::
=header-list
:: body: optionally, data to send with this request
::
body=(unit octs)
==
:: +response-header: the status code and header list on an http request
::
:: We separate these away from the body data because we may not wait for
:: the entire body before we send a %progress to the caller.
::
+$ response-header
$: :: status: http status code
::
status-code=@ud
:: headers: http headers
::
headers=header-list
==
:: +http-event: packetized http
::
:: Urbit treats Earth's HTTP servers as pipes, where Urbit sends or
:: receives one or more %http-events. The first of these will always be a
:: %start or an %error, and the last will always be %cancel or will have
:: :complete set to %.y to finish the connection.
::
:: Calculation of control headers such as 'Content-Length' or
:: 'Transfer-Encoding' should be performed at a higher level; this structure
:: is merely for what gets sent to or received from Earth.
::
+$ http-event
$% :: %start: the first packet in a response
::
$: %start
:: response-header: first event information
::
=response-header
:: data: data to pass to the pipe
::
data=(unit octs)
:: whether this completes the request
::
complete=?
==
:: %continue: every subsequent packet
::
$: %continue
:: data: data to pass to the pipe
::
data=(unit octs)
:: complete: whether this completes the request
::
complete=?
==
:: %cancel: represents unsuccessful termination
::
[%cancel ~]
==
:: +get-header: returns the value for :header, if it exists in :header-list
::
++ get-header
|= [header=@t =header-list]
^- (unit @t)
::
?~ header-list
~
::
?: =(key.i.header-list header)
`value.i.header-list
::
$(header-list t.header-list)
Changed the generator interface so a generator can redirect and set headers.
2019-03-21 01:19:36 +03:00
:: +set-header: sets the value of an item in the header list
::
:: This adds to the end if it doesn't exist.
::
++ set-header
fixes namespacing in http header gates
2019-03-21 03:06:45 +03:00
|= [header=@t value=@t =header-list]
^- ^header-list
Changed the generator interface so a generator can redirect and set headers.
2019-03-21 01:19:36 +03:00
::
?~ header-list
:: we didn't encounter the value, add it to the end
::
[[header value] ~]
::
?: =(key.i.header-list header)
[[header value] t.header-list]
::
[i.header-list $(header-list t.header-list)]
:: +delete-header: removes the first instance of a header from the list
::
++ delete-header
fixes namespacing in http header gates
2019-03-21 03:06:45 +03:00
|= [header=@t =header-list]
^- ^header-list
Changed the generator interface so a generator can redirect and set headers.
2019-03-21 01:19:36 +03:00
::
?~ header-list
~
:: if we see it in the list, remove it
::
?: =(key.i.header-list header)
t.header-list
::
[i.header-list $(header-list t.header-list)]
zuse: add parsers for http header field values Multi-value format as used by some headers. Also updates pill with recent zuse changes.
2020-05-31 18:36:47 +03:00
:: +unpack-header: parse header field values
::
++ unpack-header
|^ |= value=@t
^- (unit (list (map @t @t)))
(rust (cass (trip value)) values)
::
++ values
%+ more
(ifix [. .]:(star ;~(pose ace (just '\09'))) com)
pairs
::
++ pairs
%+ cook
~(gas by *(map @t @t))
zuse: if empty, unpack header into empty list Previously, would give a ~[{}] for the '' header. This makes it parse that as "no entries" rather than "one entry without data".
2020-10-29 16:19:57 +03:00
%+ most (ifix [. .]:(star ace) mic)
zuse: add parsers for http header field values Multi-value format as used by some headers. Also updates pill with recent zuse changes.
2020-05-31 18:36:47 +03:00
;~(plug token ;~(pose ;~(pfix tis value) (easy '')))
::
++ value
;~(pose token quoted-string)
::
++ token :: 7230 token
%+ cook crip
::NOTE this is ptok:de-purl:html, but can't access that here
%- plus
;~ pose
hoon: update glyph names (continued)
2020-11-15 08:08:52 +03:00
aln zap hax buc cen pam soq tar lus
hep dot ket cab tic bar sig
zuse: add parsers for http header field values Multi-value format as used by some headers. Also updates pill with recent zuse changes.
2020-05-31 18:36:47 +03:00
==
::
++ quoted-string :: 7230 quoted string
%+ cook crip
hoon: update glyph names (continued)
2020-11-15 08:08:52 +03:00
%+ ifix [. .]:;~(less (jest '\\"') doq)
zuse: add parsers for http header field values Multi-value format as used by some headers. Also updates pill with recent zuse changes.
2020-05-31 18:36:47 +03:00
%- star
;~ pose
hoon: update glyph names (continued)
2020-11-15 08:08:52 +03:00
;~(pfix bas ;~(pose (just '\09') ace prn))
zuse: add parsers for http header field values Multi-value format as used by some headers. Also updates pill with recent zuse changes.
2020-05-31 18:36:47 +03:00
;~(pose (just '\09') ;~(less (mask "\22\5c\7f") (shim 0x20 0xff)))
==
--
Changed the generator interface so a generator can redirect and set headers.
2019-03-21 01:19:36 +03:00
:: +simple-payload: a simple, one event response used for generators
::
+$ simple-payload
$: :: response-header: status code, etc
::
=response-header
:: data: the data returned as the body
::
data=(unit octs)
==
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
--
:: ::::
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 ^?
|%
zuse compiles
2019-06-29 01:27:59 +03:00
:: $task: job for ames
::
big merge, including some Alef and Zuse work
2019-10-30 23:12:57 +03:00
:: Messaging Tasks
::
zuse compiles
2019-06-29 01:27:59 +03:00
:: %hear: packet from unix
:: %hole: report that packet handling crashed
alef,gall: %clog notice and handling
2019-11-04 04:35:45 +03:00
:: %heed: track peer's responsiveness; gives %clog if slow
:: %jilt: stop tracking peer's responsiveness
big merge, including some Alef and Zuse work
2019-10-30 23:12:57 +03:00
:: %plea: request to send message
::
:: System and Lifecycle Tasks
zuse compiles
2019-06-29 01:27:59 +03:00
::
:: %born: process restart notification
:: %crud: crash report
:: %init: vane boot
ames: add %sift to trace by ship
2019-12-11 21:55:16 +03:00
:: %sift: limit verbosity to .ships
ames: %spew to set verbosity
2019-12-03 02:46:40 +03:00
:: %spew: set verbosity toggles
ames/zuse: handle %trim event
2020-05-20 10:29:54 +03:00
:: %trim: release memory
zuse compiles
2019-06-29 01:27:59 +03:00
:: %vega: kernel reload notification
::
+$ task
$% [%hear =lane =blob]
[%hole =lane =blob]
alef,gall: %clog notice and handling
2019-11-04 04:35:45 +03:00
[%heed =ship]
[%jilt =ship]
big merge, including some Alef and Zuse work
2019-10-30 23:12:57 +03:00
$>(%plea vane-task)
zuse compiles
2019-06-29 01:27:59 +03:00
::
$>(%born vane-task)
$>(%crud vane-task)
$>(%init vane-task)
ames: add %sift to trace by ship
2019-12-11 21:55:16 +03:00
[%sift ships=(list ship)]
ames: %spew to set verbosity
2019-12-03 02:46:40 +03:00
[%spew veb=(list verb)]
ames: add |ames-wake Somehow we ended up with flows which expected to awaken but did not wake up. This was likely caused by the error in r920j OTA, urbit-os-v1.0.18. This adds a command which ensures that every flow has an active timer. I expect this to be needed only once, but it's a pretty general tool, so it's worth keeping. I've included an unused @t parameter to more easily add simple debug commands to ames without having to add a new task
2020-05-28 20:24:29 +03:00
[%stir arg=@t]
ames/zuse: handle %trim event
2020-05-20 10:29:54 +03:00
$>(%trim vane-task)
zuse compiles
2019-06-29 01:27:59 +03:00
$>(%vega vane-task)
==
:: $gift: effect from ames
::
big merge, including some Alef and Zuse work
2019-10-30 23:12:57 +03:00
:: Messaging Gifts
::
%plea and %boon; might not compile
2019-07-28 10:50:32 +03:00
:: %boon: response message from remote ship
alef,gall: %clog notice and handling
2019-11-04 04:35:45 +03:00
:: %clog: notify vane that %boon's to peer are backing up locally
zuse compiles
2019-06-29 01:27:59 +03:00
:: %done: notify vane that peer (n)acked our message
%lost ames gift and stub handlers in vanes
2019-08-28 06:12:56 +03:00
:: %lost: notify vane that we crashed on %boon
%plea and %boon; might not compile
2019-07-28 10:50:32 +03:00
:: %send: packet to unix
zuse compiles
2019-06-29 01:27:59 +03:00
::
big merge, including some Alef and Zuse work
2019-10-30 23:12:57 +03:00
:: System and Lifecycle Gifts
::
Merge branch 'master' into alef-testnet (might not work)
2019-08-20 00:43:39 +03:00
:: %turf: domain report, relayed from jael
zuse compiles
2019-06-29 01:27:59 +03:00
::
+$ gift
%plea and %boon; might not compile
2019-07-28 10:50:32 +03:00
$% [%boon payload=*]
alef,gall: %clog notice and handling
2019-11-04 04:35:45 +03:00
[%clog =ship]
zuse compiles
2019-06-29 01:27:59 +03:00
[%done error=(unit error)]
%lost ames gift and stub handlers in vanes
2019-08-28 06:12:56 +03:00
[%lost ~]
%plea and %boon; might not compile
2019-07-28 10:50:32 +03:00
[%send =lane =blob]
zuse compiles
2019-06-29 01:27:59 +03:00
::
[%turf turfs=(list turf)]
==
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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|% ++ seal |~([a=pass b=@] *@) :: encrypt to a
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
++ sign |~(a=@ *@) :: certify as us
++ sure |~(a=@ *(unit @)) :: authenticate from us
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
++ tear |~([a=pass b=@] *(unit @)) :: accept from a
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::as ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|% ++ pit |~([a=@ b=@] ^?(..nu)) :: from [width seed]
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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 ::
zuse compiles
2019-06-29 01:27:59 +03:00
:: $address: opaque atomic transport address to or from unix
::
+$ address @uxaddress
ames: %spew to set verbosity
2019-12-03 02:46:40 +03:00
:: $verb: verbosity flag for ames
::
+$ verb ?(%snd %rcv %odd %msg %ges %for %rot)
zuse compiles
2019-06-29 01:27:59 +03:00
:: $blob: raw atom to or from unix, representing a packet
::
+$ blob @uxblob
:: $error: tagged diagnostic trace
::
+$ error [tag=@tas =tang]
:: $lane: ship transport address; either opaque $address or galaxy
::
:: The runtime knows how to look up galaxies, so we don't need to
:: know their transport addresses.
::
+$ lane (each @pC address)
%plea and %boon; might not compile
2019-07-28 10:50:32 +03:00
:: $plea: application-level message, as a %pass
zuse compiles
2019-06-29 01:27:59 +03:00
::
%plea and %boon; might not compile
2019-07-28 10:50:32 +03:00
:: vane: destination vane on remote ship
zuse compiles
2019-06-29 01:27:59 +03:00
:: path: internal route on the receiving ship
:: payload: semantic message contents
::
%plea and %boon; might not compile
2019-07-28 10:50:32 +03:00
+$ plea [vane=@tas =path payload=*]
ames: expose state through scries Support /=peers= and /=peer=/~ship scries for getting at all peers and a specific peer's connection state, respectively. Moves some internal types into zuse for easier external use.
2020-05-08 02:37:07 +03:00
::
:: +| %atomics
::
+$ bone @udbone
+$ fragment @uwfragment
+$ fragment-num @udfragmentnum
+$ message-blob @udmessageblob
+$ message-num @udmessagenum
+$ public-key @uwpublickey
+$ symmetric-key @uwsymmetrickey
::
:: +| %kinetics
:: $ack: positive ack, nack packet, or nack trace
::
+$ ack
$% [%ok ~]
[%nack ~]
[%naxplanation =error]
==
::
:: +| %statics
:: $ship-state: all we know about a peer
::
:: %alien: no PKI data, so enqueue actions to perform once we learn it
:: %known: we know their life and public keys, so we have a channel
::
+$ ship-state
$% [%alien alien-agenda]
[%known peer-state]
==
:: $alien-agenda: what to do when we learn a peer's life and keys
::
:: messages: pleas local vanes have asked us to send
:: packets: packets we've tried to send
:: heeds: local tracking requests; passed through into $peer-state
::
+$ alien-agenda
$: messages=(list [=duct =plea])
packets=(set =blob)
heeds=(set duct)
==
:: $peer-state: state for a peer with known life and keys
::
:: route: transport-layer destination for packets to peer
:: qos: quality of service; connection status to peer
:: ossuary: bone<->duct mapper
:: snd: per-bone message pumps to send messages as fragments
:: rcv: per-bone message sinks to assemble messages from fragments
:: nax: unprocessed nacks (negative acknowledgments)
:: Each value is ~ when we've received the ack packet but not a
:: nack-trace, or an error when we've received a nack-trace but
:: not the ack packet.
::
:: When we hear a nack packet or an explanation, if there's no
:: entry in .nax, we make a new entry. Otherwise, if this new
:: information completes the packet+nack-trace, we remove the
:: entry and emit a nack to the local vane that asked us to send
:: the message.
:: heeds: listeners for %clog notifications
::
+$ peer-state
$: $: =symmetric-key
=life
=public-key
sponsor=ship
==
route=(unit [direct=? =lane])
=qos
=ossuary
snd=(map bone message-pump-state)
rcv=(map bone message-sink-state)
nax=(set [=bone =message-num])
heeds=(set duct)
==
:: $qos: quality of service; how is our connection to a peer doing?
::
:: .last-contact: last time we heard from peer, or if %unborn, when
:: we first started tracking time
::
+$ qos
$~ [%unborn *@da]
[?(%live %dead %unborn) last-contact=@da]
:: $ossuary: bone<->duct bijection and .next-bone to map to a duct
::
:: The first bone is 0. They increment by 4, since each flow includes
:: a bit for each message determining forward vs. backward and a
:: second bit for whether the message is on the normal flow or the
:: associated diagnostic flow (for naxplanations).
::
:: The least significant bit of a $bone is:
:: 1 if "forward", i.e. we send %plea's on this flow, or
:: 0 if "backward", i.e. we receive %plea's on this flow.
::
:: The second-least significant bit is 1 if the bone is a
:: naxplanation bone, and 0 otherwise. Only naxplanation
:: messages can be sent on a naxplanation bone, as %boon's.
::
+$ ossuary
$: =next=bone
by-duct=(map duct bone)
by-bone=(map bone duct)
==
:: $message-pump-state: persistent state for |message-pump
::
:: Messages queue up in |message-pump's .unsent-messages until they
:: can be packetized and fed into |packet-pump for sending. When we
:: pop a message off .unsent-messages, we push as many fragments as
:: we can into |packet-pump, which sends every packet it eats.
:: Packets rejected by |packet-pump are placed in .unsent-fragments.
::
:: When we hear a packet ack, we send it to |packet-pump to be
:: removed from its queue of unacked packets.
::
:: When we hear a message ack (positive or negative), we treat that
:: as though all fragments have been acked. If this message is not
:: .current, then this ack is for a future message and .current has
:: not yet been acked, so we place the ack in .queued-message-acks.
::
:: If we hear a message ack before we've sent all the fragments for
:: that message, clear .unsent-fragments and have |packet-pump delete
:: all sent fragments from the message. If this early message ack was
:: positive, print it out because it indicates the peer is not
:: behaving properly.
::
:: If the ack is for the current message, have |packet-pump delete
:: all packets from the message, give the message ack back
:: to the client vane, increment .current, and check if this next
:: message is in .queued-message-acks. If it is, emit the message
:: (n)ack, increment .current, and check the next message. Repeat
:: until .current is not fully acked.
::
:: The following equation is always true:
:: .next - .current == number of messages in flight
::
:: At the end of a task, |message-pump sends a %halt task to
:: |packet-pump, which can trigger a timer to be set or cleared based
:: on congestion control calculations. When the timer fires, it will
:: generally cause a packet to be re-sent.
::
:: Message sequence numbers start at 1 so that the first message will
:: be greater than .last-acked.message-sink-state on the receiver.
::
:: current: sequence number of earliest message sent or being sent
:: next: sequence number of next message to send
:: unsent-messages: messages to be sent after current message
:: unsent-fragments: fragments of current message waiting for sending
:: queued-message-acks: future message acks to be applied after current
:: packet-pump-state: state of corresponding |packet-pump
::
+$ message-pump-state
$: current=_`message-num`1
next=_`message-num`1
unsent-messages=(qeu message-blob)
unsent-fragments=(list static-fragment)
queued-message-acks=(map message-num ack)
=packet-pump-state
==
+$ static-fragment
$: =message-num
num-fragments=fragment-num
=fragment-num
=fragment
==
:: $packet-pump-state: persistent state for |packet-pump
::
:: next-wake: last timer we've set, or null
:: live: packets in flight; sent but not yet acked
:: metrics: congestion control information
::
+$ packet-pump-state
$: next-wake=(unit @da)
live=(tree [live-packet-key live-packet-val])
metrics=pump-metrics
==
:: $pump-metrics: congestion control state for a |packet-pump
::
:: This is an Ames adaptation of TCP's Reno congestion control
:: algorithm. The information signals and their responses are
:: identical to those of the "NewReno" variant of Reno; the
:: implementation differs because Ames acknowledgments differ from
:: TCP's, because this code uses functional data structures, and
:: because TCP's sequence numbers reset when a peer becomes
:: unresponsive, whereas Ames sequence numbers only change when a
:: ship breaches.
::
:: A deviation from Reno is +fast-resend-after-ack, which re-sends
:: timed-out packets when a peer starts responding again after a
:: period of unresponsiveness.
::
:: If .skips reaches 3, we perform a fast retransmit and fast
:: recovery. This corresponds to Reno's handling of "three duplicate
:: acks".
::
:: rto: retransmission timeout
:: rtt: roundtrip time estimate, low-passed using EWMA
:: rttvar: mean deviation of .rtt, also low-passed with EWMA
:: num-live: how many packets sent, awaiting ack
:: ssthresh: slow-start threshold
:: cwnd: congestion window; max unacked packets
::
+$ pump-metrics
$: rto=_~s1
rtt=_~s1
rttvar=_~s1
ssthresh=_10.000
cwnd=_1
num-live=@ud
counter=@ud
==
+$ live-packet
$: key=live-packet-key
val=live-packet-val
==
+$ live-packet-key
$: =message-num
=fragment-num
==
+$ live-packet-val
$: packet-state
num-fragments=fragment-num
=fragment
==
+$ packet-state
$: last-sent=@da
retries=@ud
skips=@ud
==
:: $message-sink-state: state of |message-sink to assemble messages
::
:: last-acked: highest $message-num we've fully acknowledged
:: last-heard: highest $message-num we've heard all fragments on
:: pending-vane-ack: heard but not processed by local vane
:: live-messages: partially received messages
::
+$ message-sink-state
$: last-acked=message-num
last-heard=message-num
pending-vane-ack=(qeu [=message-num message=*])
live-messages=(map message-num partial-rcv-message)
nax=(set message-num)
==
:: $partial-rcv-message: message for which we've received some fragments
::
:: num-fragments: total number of fragments in this message
:: num-received: how many fragments we've received so far
:: fragments: fragments we've received, eventually producing a $message
::
+$ partial-rcv-message
$: num-fragments=fragment-num
num-received=fragment-num
fragments=(map fragment-num fragment)
==
::
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 ^?
|%
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
[%wake error=(unit tang)] :: wakeup or failed
real queueing for clay writes
2019-05-02 04:21:32 +03:00
[%meta p=vase]
zuse,behn,gall: fix %huck and |reset
2020-07-08 09:08:27 +03:00
[%heck syn=sign-arvo] :: response to %huck
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
==
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ task :: in request ->$
factors out common vane +task declarations with $>
2019-05-27 10:30:19 +03:00
$~ [%vega ~] ::
$% $>(%born vane-task) :: new unix process
$>(%crud vane-task) :: error with trace
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
[%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
zuse,behn,gall: fix %huck and |reset
2020-07-08 09:08:27 +03:00
[%huck syn=sign-arvo] :: give back
arvo: wires up %trim memory-pressure event stubs
2019-09-27 23:00:37 +03:00
$>(%trim vane-task) :: trim state
factors out common vane +task declarations with $>
2019-05-27 10:30:19 +03:00
$>(%vega vane-task) :: report upgrade
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
[%wait p=@da] :: set alarm
[%wake ~] :: timer activate
==
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 ^?
|%
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ gift :: out result <-$
%plea and %boon; might not compile
2019-07-28 10:50:32 +03:00
$% [%boon payload=*] :: ames response
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[%croz rus=(map desk [r=regs w=regs])] :: rules for group
[%cruz cez=(map @ta crew)] :: permission groups
[%dirk p=@tas] :: mark mount dirty
[%ergo p=@tas q=mode] :: version update
[%hill p=(list @tas)] :: mount points
%plea and %boon; might not compile
2019-07-28 10:50:32 +03:00
[%done error=(unit error:ames)] :: ames message (n)ack
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[%mere p=(each (set path) (pair term tang))] :: merge result
[%note p=@tD q=tank] :: debug message
[%ogre p=@tas] :: delete mount point
[%rule red=dict wit=dict] :: node r+w permissions
[%writ p=riot] :: response
[%wris p=[%da p=@da] q=(set (pair care path))] :: many changes
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ task :: in request ->$
factors out common vane +task declarations with $>
2019-05-27 10:30:19 +03:00
$~ [%vega ~] ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
$% [%boat ~] :: pier rebooted
[%cred nom=@ta cew=crew] :: set permission group
[%crew ~] :: permission groups
[%crow nom=@ta] :: group usage
factors out common vane +task declarations with $>
2019-05-27 10:30:19 +03:00
$>(%crud vane-task) :: error with trace
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[%drop des=desk] :: cancel pending merge
[%info des=desk dit=nori] :: internal edit
factors out common vane +task declarations with $>
2019-05-27 10:30:19 +03:00
$>(%init vane-task) :: report install
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[%into des=desk all=? fis=mode] :: external edit
various: move away from $constant type syntax
2020-11-25 22:39:13 +03:00
$: %merg :: merge desks
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
des=desk :: target
her=@p dem=desk cas=case :: source
how=germ :: method
Add faces to clay ++task.
2018-02-09 16:48:08 +03:00
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[%mont pot=term bem=beam] :: mount to unix
[%dirk des=desk] :: mark mount dirty
[%ogre pot=$@(desk beam)] :: delete mount point
[%park des=desk yok=yoki ran=rang] :: synchronous commit
[%perm des=desk pax=path rit=rite] :: change permissions
[%pork ~] :: resume commit
arvo: wires up %trim memory-pressure event stubs
2019-09-27 23:00:37 +03:00
$>(%trim vane-task) :: trim state
factors out common vane +task declarations with $>
2019-05-27 10:30:19 +03:00
$>(%vega vane-task) :: report upgrade
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[%warp wer=ship rif=riff] :: internal file req
[%werp who=ship wer=ship rif=riff-any] :: external file req
%plea and %boon; might not compile
2019-07-28 10:50:32 +03:00
$>(%plea vane-task) :: ames request
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
-- ::able
::
:::: :: (1c2)
::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ aeon @ud :: version number
+$ ankh :: fs node (new)
Almost booting with ripple.
2018-02-25 05:01:53 +03:00
$~ [~ ~]
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
$: fil=(unit [p=lobe q=cage]) :: file
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
dir=(map @ta ankh) :: folders
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
== ::
zuse: remove +ford
2020-05-14 10:22:39 +03:00
:: +cable: a reference to something on the filesystem
:: face: the face to wrap around the imported file
:: file-path: location in clay
+$ cable
$: face=(unit term)
file-path=term
==
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ care ?(%a %b %c %d %p %r %s %t %u %v %w %x %y %z) :: clay submode
+$ 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
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ cass [ud=@ud da=@da] :: cases for revision
+$ crew (set ship) :: permissions group
+$ dict [src=path rul=real] :: effective permission
+$ dome :: project state
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
$: 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
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ germ :: merge style
clay: add safe merge options As described in gen/hood/merge/help.txt
2020-08-28 10:24:25 +03:00
$? %init :: new desk
%fine :: fast forward
%meet :: orthogonal files
%mate :: orthogonal changes
%meld :: force merge
%only-this :: ours with parents
%only-that :: hers with parents
%take-this :: ours unless absent
%take-that :: hers unless absent
%meet-this :: ours if conflict
%meet-that :: hers if conflict
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ lobe @uvI :: blob ref
+$ maki [p=@ta q=@ta r=@ta s=path] ::
+$ miso :: ankh delta
$% [%del ~] :: delete
[%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
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ misu :: computed delta
$% [%del ~] :: delete
[%ins p=cage] :: insert
[%dif p=lobe q=cage] :: mutate from diff
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ nori :: repository action
$% [%& p=soba] :: delta
[%| p=@tas] :: label
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ nuri :: repository action
$% [%& p=suba] :: delta
[%| p=@tas] :: label
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ open $-(path vase) :: get prelude
+$ page (cask *) :: untyped cage
+$ plop blob :: unvalidated blob
+$ rang :: repository
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
$: hut=(map tako yaki) :: changes
lat=(map lobe blob) :: data
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ rant :: response to request
$: p=[p=care q=case r=desk] :: clade release book
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
q=path :: spur
r=cage :: data
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ real :: resolved permissions
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
$: mod=?(%black %white) ::
who=(pair (set ship) (map @ta crew)) ::
included full group information in scry
2018-06-20 00:43:16 +03:00
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ regs (map path rule) :: rules for paths
clay: refactor over-the-wire protocol Don't send blobs initially; instead, wait for the recipient to ask for any they need. This should significantly reduce network and memory usage.
2020-07-23 07:57:44 +03:00
+$ riff [p=desk q=(unit rave)] :: request+desist
+$ riff-any
clay: cleanup protocol versions +riff-any is all clay requests except "backfill" requests. Change to `$%` from `$^`, which was used to distinguish originally non-versioned requests. +fill is backfill requests and had no version number, so we add one. We do not have version numbers on responses since those are implied by the request. If someone requests at version `n` and you're at `n+1`, you must respond in the format of `n`. If someone requests at version `n+1` and you're at `n`, you crash; though possibly you should be able to respond with message "I only know up to `n`", in which case they may be able to re-request at `n`. In either case, the version of the response is dictated by the request.
2020-12-01 06:05:05 +03:00
$% [%1 =riff]
==
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
Finalizing interface.
2018-01-25 02:09:46 +03:00
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ riot (unit rant) :: response+complete
+$ rule [mod=?(%black %white) who=(set whom)] :: node permission
+$ 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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|* a=mold ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
== ::
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
++ urge |*(a=mold (list (unce a))) :: list change
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ whom (each ship @ta) :: ship or named crew
+$ yoki (each yuki yaki) :: commit
+$ yuki :: proto-commit
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
$: p=(list tako) :: parents
q=(map path (each page lobe)) :: namespace
clay: change %park interface to not take caches Now a full commit is synchronous. -commit will be assimilated back into clay.
2020-04-23 06:07:41 +03:00
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ yaki :: commit
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
$: 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: add %park task and -commit %park is a plumbing commit task. It guarantees completion in a single event, so you have to do much of the work before calling it. -commit is an example of how to do this.
2020-03-21 01:30:52 +03:00
::
:: +page-to-lobe: hash a page to get a lobe.
::
++ page-to-lobe |=(page (shax (jam +<)))
::
:: +make-yaki: make commit out of a list of parents, content, and date.
::
++ make-yaki
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [p=(list tako) q=(map path lobe) t=@da]
clay: add %park task and -commit %park is a plumbing commit task. It guarantees completion in a single event, so you have to do much of the work before calling it. -commit is an example of how to do this.
2020-03-21 01:30:52 +03:00
^- yaki
=+ ^= has
%^ cat 7 (sham [%yaki (roll p add) q t])
(sham [%tako (roll p add) q t])
[p q has t]
language-server: convert to fusion
2020-05-14 09:26:52 +03:00
:: $pile: preprocessed hoon source file
::
:: /- sur-file :: surface imports from /sur
:: /+ lib-file :: library imports from /lib
:: /= face /path :: imports built hoon file at path
:: /* face %mark /path :: unbuilt file imports, as mark
::
+$ pile
$: sur=(list taut)
lib=(list taut)
raw=(list [face=term =path])
bar=(list [face=term =mark =path])
=hoon
==
:: $taut: file import from /lib or /sur
::
+$ taut [face=(unit term) pax=term]
-build-file, -build-mark, -build-cast
2020-04-18 05:50:03 +03:00
:: $mars: mark conversion request
:: $tube: mark conversion gate
::
+$ mars [a=mark b=mark]
+$ tube $-(vase vase)
:: $dais: processed mark core
::
+$ dais
$_ ^|
|_ sam=vase
++ bunt sam
++ diff |~(new=_sam *vase)
++ form *mark
++ join |~([a=vase b=vase] *(unit (unit vase)))
++ mash
|~ [a=[ship desk diff=vase] b=[ship desk diff=vase]]
*(unit vase)
++ pact |~(diff=vase sam)
++ vale |~(noun sam)
++ volt |~(noun sam)
--
:spider2 works with threads in subfolders
2020-04-21 07:22:54 +03:00
::
++ get-fit
|= [bek=beak pre=@tas pax=@tas]
^- (unit path)
=/ paz (segments pax)
|- ^- (unit path)
?~ paz
~
=/ puz=path (snoc `path`[pre i.paz] %hoon)
=+ .^(=arch cy+[(scot %p p.bek) q.bek (scot r.bek) puz])
?^ fil.arch
`puz
$(paz t.paz)
:: +segments: compute all paths from :path-part, replacing some `/`s with `-`s
::
:: For example, when passed a :path-part of 'foo-bar-baz',
:: the product will contain:
:: ```
:: dojo> (segments 'foo-bar-baz')
:: ~[/foo-bar-baz /foo-bar/baz /foo/bar-baz /foo/bar/baz]
:: ```
::
++ segments
|= suffix=@tas
^- (list path)
=/ parser
(most hep (cook crip ;~(plug low (star ;~(pose low nud)))))
=/ torn=(list @tas) (fall (rush suffix parser) ~[suffix])
%- flop
|- ^- (list (list @tas))
?< ?=(~ torn)
?: ?=([@ ~] torn)
~[torn]
%- zing
%+ turn $(torn t.torn)
|= s=(list @tas)
^- (list (list @tas))
?> ?=(^ s)
~[[i.torn s] [(crip "{(trip i.torn)}-{(trip i.s)}") t.s]]
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 ^?
|%
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ gift :: out result <-$
$% [%bbye ~] :: reset prompt
[%blit p=(list blit)] :: terminal output
[%burl p=@t] :: activate url
[%init p=@p] :: set owner
[%logo ~] :: logout
[%meld ~] :: unify memory
[%pack ~] :: compact memory
[%trim p=@ud] :: trim kernel state
[%verb ~] :: verbose mode
/sys: |mass works again
2020-05-07 11:51:08 +03:00
[%whey ~] :: memory report
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ task :: in request ->$
factors out common vane +task declarations with $>
2019-05-27 10:30:19 +03:00
$~ [%vega ~] ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
$% [%belt p=belt] :: terminal input
[%blew p=blew] :: terminal config
[%boot lit=? p=*] :: weird %dill boot
[%crop p=@ud] :: trim kernel state
factors out common vane +task declarations with $>
2019-05-27 10:30:19 +03:00
$>(%crud vane-task) :: error with trace
dill: remove ducts from %view and %flee interface This was a little bit too crummy. Instead, we put in a placeholder of ~, which should be forwards-compatible with atomic session identifiers, where ~ identifies the default session. Additionally touches up the herm wires/paths to stick to the above more closely.
2020-11-10 21:32:26 +03:00
[%flee session=~] :: unwatch session
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[%flog p=flog] :: wrapped error
[%flow p=@tas q=(list gill:gall)] :: terminal config
[%hail ~] :: terminal refresh
[%heft ~] :: memory report
[%hook ~] :: this term hung up
[%harm ~] :: all terms hung up
factors out common vane +task declarations with $>
2019-05-27 10:30:19 +03:00
$>(%init vane-task) :: after gall ready
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[%meld ~] :: unify memory
[%noop ~] :: no operation
[%pack ~] :: compact memory
[%talk p=tank] ::
[%text p=tape] ::
dill: remove ducts from %view and %flee interface This was a little bit too crummy. Instead, we put in a placeholder of ~, which should be forwards-compatible with atomic session identifiers, where ~ identifies the default session. Additionally touches up the herm wires/paths to stick to the above more closely.
2020-11-10 21:32:26 +03:00
[%view session=~] :: watch session blits
arvo: wires up %trim memory-pressure event stubs
2019-09-27 23:00:37 +03:00
$>(%trim vane-task) :: trim state
factors out common vane +task declarations with $>
2019-05-27 10:30:19 +03:00
$>(%vega vane-task) :: report upgrade
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[%verb ~] :: verbose mode
dill: set verbosity by error tag
2019-09-27 20:55:14 +03:00
[%knob tag=term level=?(%hush %soft %loud)] :: error verbosity
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
-- ::able
::
:::: :: (1d2)
::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ blew [p=@ud q=@ud] :: columns rows
+$ belt :: old belt
$% [%aro p=?(%d %l %r %u)] :: arrow key
[%bac ~] :: true backspace
[%ctl p=@c] :: control-key
[%del ~] :: true delete
[%met p=@c] :: meta-key
[%ret ~] :: return
[%txt p=(list @c)] :: utf32 text
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ blit :: old blit
$% [%bel ~] :: make a noise
[%clr ~] :: clear the screen
[%hop p=@ud] :: set cursor position
dill: send styled text to runtime as-is Depending on the additions to term.c made in 467d8d239 allows dill to forget about ansi escape codes, and pass styled text nouns straight on to vere. Also removes a bit of logic from drum, which assumed things about the rendering of escape codes to adjust cursor positioning. Now it simply states the semantic cursor position, letting the runtime deal with the potential influence of styling.
2020-09-05 13:18:20 +03:00
[%klr p=stub] :: set styled line
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[%lin p=(list @c)] :: set current line
[%mor ~] :: newline
[%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
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ dill-belt :: new belt
$% [%aro p=?(%d %l %r %u)] :: arrow key
[%bac ~] :: true backspace
[%cru p=@tas q=(list tank)] :: echo error
[%ctl p=@] :: control-key
[%del ~] :: true delete
[%hey ~] :: refresh
[%met p=@] :: meta-key
[%ret ~] :: return
[%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
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ dill-blit :: new blit
$% [%bel ~] :: make a noise
[%clr ~] :: clear the screen
[%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
[%qit ~] :: close console
[%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
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ flog :: sent to %dill
$% [%crop p=@ud] :: trim kernel state
[%crud p=@tas q=(list tank)] ::
[%heft ~] ::
[%meld ~] :: unify memory
[%pack ~] :: compact memory
[%text p=tape] ::
[%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
:: ::::
moves +http-server interface core into +eyre
2019-07-04 09:09:44 +03:00
:::: ++eyre :: (1e) http-server
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
|%
moves +http-server interface core into +eyre
2019-07-04 09:09:44 +03:00
++ able
|%
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ gift
moves +http-server interface core into +eyre
2019-07-04 09:09:44 +03:00
$% :: set-config: configures the external http server
::
:: TODO: We need to actually return a (map (unit @t) http-config)
:: so we can apply configurations on a per-site basis
::
[%set-config =http-config]
:: response: response to an event from earth
::
[%response =http-event:http]
:: response to a %connect or %serve
::
:: :accepted is whether :binding was valid. Duplicate bindings are
:: not allowed.
::
[%bound accepted=? =binding]
==
::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ task
moves +http-server interface core into +eyre
2019-07-04 09:09:44 +03:00
$~ [%vega ~]
$% :: event failure notification
::
$>(%crud vane-task)
:: initializes ourselves with an identity
::
$>(%init vane-task)
:: new unix process
::
removes unused (list host) from %eyre %born
2019-07-04 10:15:23 +03:00
$>(%born vane-task)
arvo: wires up %trim memory-pressure event stubs
2019-09-27 23:00:37 +03:00
:: trim state (in response to memory pressure)
::
$>(%trim vane-task)
moves +http-server interface core into +eyre
2019-07-04 09:09:44 +03:00
:: report upgrade
::
$>(%vega vane-task)
:: notifies us of the ports of our live http servers
::
[%live insecure=@ud secure=(unit @ud)]
:: update http configuration
::
[%rule =http-rule]
:: starts handling an inbound http request
::
eyre: fix tests
2019-11-14 06:38:13 +03:00
[%request secure=? =address =request:http]
moves +http-server interface core into +eyre
2019-07-04 09:09:44 +03:00
:: starts handling an backdoor http request
::
[%request-local secure=? =address =request:http]
:: cancels a previous request
::
[%cancel-request ~]
:: connects a binding to an app
::
[%connect =binding app=term]
:: connects a binding to a generator
::
[%serve =binding =generator]
:: disconnects a binding
::
:: This must be called with the same duct that made the binding in
:: the first place.
::
[%disconnect =binding]
jael, eyre: Add a way to reset the web login code Jael now stores a `step` that is combined with the original salt to produce a new code. A `%step` card is used to increment that value, and effectively resetting the keys. Because the first `step` is zero, the first code is the same as before. Eyre was changed to be notified with `%code-changed` so it can forget old cookies, sessions and discard all the existing channels. A new generator was added |code, that does both querying and resetting the code |code :: shows current code, step and help |code %reset :: changes the code The old +code generator still works correctly.
2020-07-29 19:14:18 +03:00
:: notifies us that web login code changed
::
[%code-changed ~]
eyre: minimal CORS support Adds a cors-registry to Eyre's state that tracks allowed and rejected origins for the purposes of CORS request handling. For preflight requests, generates a response in-line. For simple requests, adds CORS headers onto whatever response is given. See also: https://groups.google.com/a/urbit.org/g/dev/c/bb82dwEJGzM/m/q2JjNSx5BwAJ
2020-09-30 16:07:27 +03:00
:: start responding positively to cors requests from origin
::
[%approve-origin =origin]
:: start responding negatively to cors requests from origin
::
[%reject-origin =origin]
moves +http-server interface core into +eyre
2019-07-04 09:09:44 +03:00
==
::
--
eyre: minimal CORS support Adds a cors-registry to Eyre's state that tracks allowed and rejected origins for the purposes of CORS request handling. For preflight requests, generates a response in-line. For simple requests, adds CORS headers onto whatever response is given. See also: https://groups.google.com/a/urbit.org/g/dev/c/bb82dwEJGzM/m/q2JjNSx5BwAJ
2020-09-30 16:07:27 +03:00
:: +origin: request origin as specified in an Origin header
::
+$ origin @torigin
:: +cors-registry: origins categorized by approval status
::
+$ cors-registry
$: requests=(set origin)
approved=(set origin)
rejected=(set origin)
==
eyre, zuse: add scry interfaces for eyre state Scries for getting out open connections, cookie sessions, and existing channels. Moves the involved types from eyre into zuse.
2020-05-23 00:55:17 +03:00
:: +outstanding-connection: open http connections not fully complete:
::
:: This refers to outstanding connections where the connection to
Merge remote-tracking branch 'origin/master' into ford-fusion
2020-06-03 07:50:20 +03:00
:: outside is opened and we are currently waiting on an app to
eyre, zuse: add scry interfaces for eyre state Scries for getting out open connections, cookie sessions, and existing channels. Moves the involved types from eyre into zuse.
2020-05-23 00:55:17 +03:00
:: produce the results.
::
+$ outstanding-connection
$: :: action: the action that had matched
::
=action
:: inbound-request: the original request which caused this connection
::
=inbound-request
:: response-header: set when we get our first %start
::
response-header=(unit response-header:http)
:: bytes-sent: the total bytes sent in response
::
bytes-sent=@ud
==
:: +authentication-state: state used in the login system
::
+$ authentication-state
$: :: sessions: a mapping of session cookies to session information
::
sessions=(map @uv session)
==
:: +session: server side data about a session
::
+$ session
$: :: expiry-time: when this session expires
::
:: We check this server side, too, so we aren't relying on the browser
:: to properly handle cookie expiration as a security mechanism.
::
expiry-time=@da
eyre, zuse: expire channels with their sessions Associates channels with the authentication sessions that opened them, and deletes the channel when its associated session expires. Also updates the debug dashboard to display channel counts per session.
2020-06-04 23:06:13 +03:00
:: channels: channels opened by this session
::
channels=(set @t)
eyre, zuse: add scry interfaces for eyre state Scries for getting out open connections, cookie sessions, and existing channels. Moves the involved types from eyre into zuse.
2020-05-23 00:55:17 +03:00
::
:: TODO: We should add a system for individual capabilities; we should
:: mint some sort of long lived cookie for mobile apps which only has
:: access to a single application path.
==
:: channel-state: state used in the channel system
::
+$ channel-state
$: :: session: mapping between an arbitrary key to a channel
::
session=(map @t channel)
:: by-duct: mapping from ducts to session key
::
duct-to-key=(map duct @t)
==
:: +timer: a reference to a timer so we can cancel or update it.
::
+$ timer
$: :: date: time when the timer will fire
::
date=@da
:: duct: duct that set the timer so we can cancel
::
=duct
==
eyre: store unacked events unserialized Store the gall events from channel subscriptions as (vaseless) signs, instead of serialized events. This should be smaller in memory, and makes it more likely for noun deduplication to happen. The cost is needing to reserialize upon channel reconnect, but this is the less common case, and we don't expect it to be particularly slow.
2020-10-18 12:18:29 +03:00
:: channel-event: unacknowledged channel event, vaseless sign
::
+$ channel-event
$% $>(%poke-ack sign:agent:gall)
$>(%watch-ack sign:agent:gall)
$>(%kick sign:agent:gall)
[%fact =mark =noun]
==
eyre, zuse: add scry interfaces for eyre state Scries for getting out open connections, cookie sessions, and existing channels. Moves the involved types from eyre into zuse.
2020-05-23 00:55:17 +03:00
:: channel: connection to the browser
::
:: Channels are the main method where a webpage communicates with Gall
:: apps. Subscriptions and pokes are issues with PUT requests on a path,
:: while GET requests on that same path open a persistent EventSource
:: channel.
::
:: The EventSource API is a sequence number based API that browser provide
:: which allow the server to push individual events to the browser over a
:: connection held open. In case of reconnection, the browser will send a
:: 'Last-Event-Id: ' header to the server; the server then resends all
:: events since then.
::
+$ channel
$: :: channel-state: expiration time or the duct currently listening
::
:: For each channel, there is at most one open EventSource
:: connection. A 400 is issues on duplicate attempts to connect to the
:: same channel. When an EventSource isn't connected, we set a timer
:: to reap the subscriptions. This timer shouldn't be too short
:: because the
::
state=(each timer duct)
:: next-id: next sequence number to use
::
next-id=@ud
eyre: kick busy subscriptions if client not acking In order to curb event queue growth when a client for whatever reason isn't acking the events we send out, we implement a mechanism for detecting such "clogging", and proactively kick subscriptions which are adding too many events to the queue. If the client hasn't sent an ack for ~s30, any subscription that accrues more than 50 unacked %facts gets closed to prevent further buildup. Upon reconnecting, the client will see %kick for the relevant subscriptions and can open a new subscription as appropriate. Includes a simple test for this behavior, and updates /app/dbug to be able to display the newly tracked statistics.
2020-10-19 16:56:05 +03:00
:: last-ack: time of last client ack
::
:: used for clog calculations, in combination with :unacked
::
last-ack=@da
eyre, zuse: add scry interfaces for eyre state Scries for getting out open connections, cookie sessions, and existing channels. Moves the involved types from eyre into zuse.
2020-05-23 00:55:17 +03:00
:: events: unacknowledged events
::
:: We keep track of all events where we haven't received a
:: 'Last-Event-Id: ' response from the client or a per-poke {'ack':
:: ...} call. When there's an active EventSource connection on this
:: channel, we send the event but we still add it to events because we
:: can't assume it got received until we get an acknowledgment.
::
eyre: store unacked events unserialized Store the gall events from channel subscriptions as (vaseless) signs, instead of serialized events. This should be smaller in memory, and makes it more likely for noun deduplication to happen. The cost is needing to reserialize upon channel reconnect, but this is the less common case, and we don't expect it to be particularly slow.
2020-10-18 12:18:29 +03:00
events=(qeu [id=@ud request-id=@ud =channel-event])
eyre: kick busy subscriptions if client not acking In order to curb event queue growth when a client for whatever reason isn't acking the events we send out, we implement a mechanism for detecting such "clogging", and proactively kick subscriptions which are adding too many events to the queue. If the client hasn't sent an ack for ~s30, any subscription that accrues more than 50 unacked %facts gets closed to prevent further buildup. Upon reconnecting, the client will see %kick for the relevant subscriptions and can open a new subscription as appropriate. Includes a simple test for this behavior, and updates /app/dbug to be able to display the newly tracked statistics.
2020-10-19 16:56:05 +03:00
:: unacked: unacknowledged event counts by request-id
::
:: used for clog calculations, in combination with :last-ack
::
unacked=(map @ud @ud)
eyre: simplify channel subscription storage Instead of storing by "channel wire", store by request-id instead. The channel wire was just the channel-id, request-id, and some cruft.
2020-10-19 01:48:18 +03:00
:: subscriptions: gall subscriptions by request-id
eyre, zuse: add scry interfaces for eyre state Scries for getting out open connections, cookie sessions, and existing channels. Moves the involved types from eyre into zuse.
2020-05-23 00:55:17 +03:00
::
:: We maintain a list of subscriptions so if a channel times out, we
:: can cancel all the subscriptions we've made.
::
eyre: simplify channel subscription storage Instead of storing by "channel wire", store by request-id instead. The channel wire was just the channel-id, request-id, and some cruft.
2020-10-19 01:48:18 +03:00
subscriptions=(map @ud [ship=@p app=term =path duc=duct])
eyre, zuse: add scry interfaces for eyre state Scries for getting out open connections, cookie sessions, and existing channels. Moves the involved types from eyre into zuse.
2020-05-23 00:55:17 +03:00
:: heartbeat: sse heartbeat timer
::
heartbeat=(unit timer)
==
moves +http-server interface core into +eyre
2019-07-04 09:09:44 +03:00
:: +binding: A rule to match a path.
::
:: A +binding is a system unique mapping for a path to match. A +binding
:: must be system unique because we don't want two handlers for a path;
:: what happens if there are two different actions for [~ /]?
::
+$ binding
$: :: site: the site to match.
::
:: A ~ will match the Urbit's identity site (your.urbit.org). Any
:: other value will match a domain literal.
::
site=(unit @t)
:: path: matches this prefix path
::
:: /~myapp will match /~myapp or /~myapp/longer/path
::
path=(list @t)
==
eyre: expose bindings through scry Allows you to scry out all bound endpoints at /=bindings=. Moves an internal type into zuse for easier external use.
2020-05-08 02:39:56 +03:00
:: +action: the action to take when a binding matches an incoming request
::
+$ action
$% :: dispatch to a generator
::
[%gen =generator]
:: dispatch to an application
::
[%app app=term]
:: internal authentication page
::
[%authentication ~]
eyre: provide logout endpoint Set up, by default, on /~/logout. Sending a POST request to this expires the current session and redirects to the login page. If the "all" key is set in the request body, expires all open sessions.
2020-06-03 02:40:32 +03:00
:: internal logout page
::
[%logout ~]
eyre: expose bindings through scry Allows you to scry out all bound endpoints at /=bindings=. Moves an internal type into zuse for easier external use.
2020-05-08 02:39:56 +03:00
:: gall channel system
::
[%channel ~]
eyre: support %gx scries Exposes a scry endpoint. Any requests made to the /app/scry.mark url under the endpoint will scry into %app using a %gx scry, at the /scry/noun path, and attempt to convert the scry result into the %mark, before converting that into the %mime mark, and sending that as an http response.
2020-06-11 02:45:05 +03:00
:: gall scry endpoint
::
[%scry ~]
eyre: expose bindings through scry Allows you to scry out all bound endpoints at /=bindings=. Moves an internal type into zuse for easier external use.
2020-05-08 02:39:56 +03:00
:: respond with the default file not found page
::
[%four-oh-four ~]
==
moves +http-server interface core into +eyre
2019-07-04 09:09:44 +03:00
:: +generator: a generator on the local ship that handles requests
::
:: This refers to a generator on the local ship, run with a set of
:: arguments. Since http requests are time sensitive, we require that the
:: generator be on the current ship.
::
+$ generator
$: :: desk: desk on current ship that contains the generator
::
=desk
:: path: path on :desk to the generator's hoon file
::
path=(list @t)
:: args: arguments passed to the gate
::
args=*
==
:: +http-config: full http-server configuration
::
+$ http-config
$: :: secure: PEM-encoded RSA private key and cert or cert chain
::
secure=(unit [key=wain cert=wain])
:: 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=?
==
:: +http-rule: update configuration
::
+$ http-rule
$% :: %cert: set or clear certificate and keypair
::
[%cert cert=(unit [key=wain cert=wain])]
:: %turf: add or remove established dns binding
::
[%turf action=?(%put %del) =turf]
==
:: +address: client IP address
::
+$ address
$% [%ipv4 @if]
[%ipv6 @is]
:: [%ames @p]
==
:: +inbound-request: +http-request and metadata
::
+$ inbound-request
$: :: authenticated: has a valid session cookie
::
authenticated=?
:: secure: whether this request was encrypted (https)
::
secure=?
:: address: the source address of this request
::
=address
:: request: the http-request itself
::
=request:http
==
%velo reset works.
2016-12-02 04:17:02 +03:00
::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ cred :: credential
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
$: 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
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ epic :: FCGI parameters
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
$: 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
== ::
restores +bale:eyre so oauth libs and sec-drivers compile
2019-03-13 04:28:47 +03:00
::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ hart [p=? q=(unit @ud) r=host] :: http sec+port+host
+$ hate [p=purl q=@p r=moth] :: semi-cooked request
+$ hiss [p=purl q=moth] :: outbound request
+$ host (each turf @if) :: http host
+$ hoke %+ each [%localhost ~] :: local host
various: move away from $constant type syntax
2020-11-25 22:39:13 +03:00
?(%.0.0.0.0 %.127.0.0.1) ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ httq :: raw http request
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
$: p=meth :: method
q=@t :: unparsed url
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
r=(list [p=@t q=@t]) :: headers
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
s=(unit octs) :: body
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ httr [p=@ud q=mess r=(unit octs)] :: raw http response
+$ math (map @t (list @t)) :: semiparsed headers
+$ mess (list [p=@t q=@t]) :: raw http headers
+$ meth :: http methods
various: move away from $constant type syntax
2020-11-25 22:39:13 +03:00
$? %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
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ moth [p=meth q=math r=(unit octs)] :: http operation
+$ 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.
::
hoon: remove += and +- arm syntax
2020-11-25 18:49:17 +03:00
+$ prox
adds authentication nonce to proxy notifications %wise and %that
2018-07-11 06:39:13 +03:00
$: :: por: tcp port
::
por=@ud
:: sek: secure?
::
sek=?
:: non: authentication nonce
::
non=@uvJ
==
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
++ quer |-($@(~ [p=@t q=@t t=$])) :: query tree
+$ quri :: request-uri
$% [%& 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)
==
zuse: add parsers for ip addresses Parses into +address:eyre.
2020-05-31 18:23:50 +03:00
:: +ipa: parse ip address
::
++ ipa
;~(pose (stag %ipv4 ip4) (stag %ipv6 ip6))
:: +ip4: parse ipv4 address
::
++ ip4
=+ byt=(ape:ag ted:ab)
(bass 256 ;~(plug byt (stun [3 3] ;~(pfix dot byt))))
:: +ip6: parse ipv6 address
::
++ ip6
%+ bass 0x1.0000
%+ sear
|= hexts=(list $@(@ [~ %zeros]))
^- (unit (list @))
:: not every list of hextets is an ipv6 address
::
=/ legit=?
=+ l=(lent hexts)
=+ c=|=(a=* ?=([~ %zeros] a))
?| &((lth l 8) ?=([* ~] (skim hexts c)))
&(=(8 l) !(lien hexts c))
==
?. legit ~
%- some
:: expand zeros
::
%- zing
%+ turn hexts
|= hext=$@(@ [~ %zeros])
?@ hext [hext]~
(reap (sub 9 (lent hexts)) 0)
:: parse hextets, producing cell for shorthand zeroes
::
|^ %+ cook
|= [a=(list @) b=(list [~ %zeros]) c=(list @)]
:(welp a b c)
;~ plug
(more col het)
(stun [0 1] cel)
(more col het)
==
++ cel (cold `%zeros ;~(plug col col))
++ het (bass 16 (stun [1 4] six:ab))
--
::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ rout [p=(list host) q=path r=oryx s=path] :: http route (new)
+$ user knot :: username
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
:: ::::
gall: mall -> gall
2019-11-19 07:36:21 +03:00
:::: ++gall :: (1g) extensions
mall: compiles and runs app, but type hole
2019-09-04 22:48:36 +03:00
:: ::::
gall: mall -> gall
2019-11-19 07:36:21 +03:00
++ gall ^?
mall: compiles and runs app, but type hole
2019-09-04 22:48:36 +03:00
|%
:: ::
gall: mall -> gall
2019-11-19 07:36:21 +03:00
:::: ++able:gall :: (1g1) arvo moves
mall: compiles and runs app, but type hole
2019-09-04 22:48:36 +03:00
:: ::::
++ able ^?
|%
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ gift :: outgoing result
%plea and %boon; might not compile
2019-07-28 10:50:32 +03:00
$% [%boon payload=*] :: ames response
[%done error=(unit error:ames)] :: ames message (n)ack
gall: fix ap-kill-down This broke when %kick was handled by resubscribing on your own ship because it processed the %kick before the %leave. For example, `@t`404 at the dojo would put the dojo in an unworkable state. You want the %leave to be processed first because you can't do a "resubscribe" in response to that.
2019-11-21 00:22:36 +03:00
[%onto p=(each suss tang)] :: about agent
[%unto p=sign:agent] ::
mall: compiles and runs app, but type hole
2019-09-04 22:48:36 +03:00
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ task :: incoming request
mall: compiles and runs app, but type hole
2019-09-04 22:48:36 +03:00
$~ [%vega ~] ::
gall: clean up API, remove empty caches from state.
2020-04-22 01:50:47 +03:00
$% [%conf dap=term] :: start agent
various: move away from $constant type syntax
2020-11-25 22:39:13 +03:00
[%deal p=sock q=term r=deal] :: full transmission
Merge branch 'master' into philip/mall-real
2019-11-10 03:47:41 +03:00
[%goad force=? agent=(unit dude)] :: rebuild agent(s)
boots off gall using fusion to build apps; some app errors on boot, but usable
2020-04-22 12:27:36 +03:00
[%sear =ship] :: clear pending queues
gall: rename fading styles
2020-11-26 01:46:33 +03:00
[%fade dap=term style=?(%slay %idle %jolt)] :: put app to sleep
%plea and %boon; might not compile
2019-07-28 10:50:32 +03:00
$>(%init vane-task) :: set owner
mall: forward-port gall changes
2019-11-05 07:19:08 +03:00
$>(%trim vane-task) :: trim state
mall: compiles and runs app, but type hole
2019-09-04 22:48:36 +03:00
$>(%vega vane-task) :: report upgrade
Merge branch 'master' into alef-testnet (might not work)
2019-08-20 00:43:39 +03:00
$>(%plea vane-task) :: network request
mall: compiles and runs app, but type hole
2019-09-04 22:48:36 +03:00
== ::
-- ::able
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ bitt (map duct (pair ship path)) :: incoming subs
+$ boat :: outgoing subs
%+ map [=wire =ship =term] ::
[acked=? =path] ::
+$ bowl :: standard app state
gall: fix ap-kill-down This broke when %kick was handled by resubscribing on your own ship because it processed the %kick before the %leave. For example, `@t`404 at the dojo would put the dojo in an unworkable state. You want the %leave to be processed first because you can't do a "resubscribe" in response to that.
2019-11-21 00:22:36 +03:00
$: $: our=ship :: host
src=ship :: guest
dap=term :: agent
mall: compiles and runs app, but type hole
2019-09-04 22:48:36 +03:00
== ::
gall: fix ap-kill-down This broke when %kick was handled by resubscribing on your own ship because it processed the %kick before the %leave. For example, `@t`404 at the dojo would put the dojo in an unworkable state. You want the %leave to be processed first because you can't do a "resubscribe" in response to that.
2019-11-21 00:22:36 +03:00
$: wex=boat :: outgoing subs
sup=bitt :: incoming subs
mall: compiles and runs app, but type hole
2019-09-04 22:48:36 +03:00
== ::
gall: fix ap-kill-down This broke when %kick was handled by resubscribing on your own ship because it processed the %kick before the %leave. For example, `@t`404 at the dojo would put the dojo in an unworkable state. You want the %leave to be processed first because you can't do a "resubscribe" in response to that.
2019-11-21 00:22:36 +03:00
$: act=@ud :: change number
eny=@uvJ :: entropy
now=@da :: current time
byk=beak :: load source
mall: compiles and runs app, but type hole
2019-09-04 22:48:36 +03:00
== == ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ dude term :: server identity
+$ gill (pair ship term) :: general contact
+$ scar :: opaque duct
gall: fix ap-kill-down This broke when %kick was handled by resubscribing on your own ship because it processed the %kick before the %leave. For example, `@t`404 at the dojo would put the dojo in an unworkable state. You want the %leave to be processed first because you can't do a "resubscribe" in response to that.
2019-11-21 00:22:36 +03:00
$: p=@ud :: bone sequence
q=(map duct bone) :: by duct
r=(map bone duct) :: by bone
mall: compiles and runs app, but type hole
2019-09-04 22:48:36 +03:00
== ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ suss (trel dude @tas @da) :: config report
+$ well (pair desk term) ::
+$ neat
mall: refactor gift/sign/task types +on-agent now takes a +sign:agent:mall, which doesn't include spurious options. Similarly, +task:agent:mall is smaller.
2019-11-09 04:26:47 +03:00
$% [%arvo =note-arvo]
[%agent [=ship name=term] =deal]
==
+$ deal
$% [%raw-poke =mark =noun]
task:agent
==
::
mall: compiles and runs app, but type hole
2019-09-04 22:48:36 +03:00
:: +agent: app core
::
++ agent
mall: use +stay instead of explicit state
2019-09-05 00:20:47 +03:00
=< form
|%
wip
2019-09-10 23:12:38 +03:00
+$ step (quip card form)
+$ card (wind note gift)
mall: refactor and rename remove bones, give agent arms long names, remove metavase use, general cleanup
2019-09-12 05:55:31 +03:00
+$ note
$% [%arvo =note-arvo]
mall: convert talk to mall also change !< to crash on failure
2019-09-24 01:44:48 +03:00
[%agent [=ship name=term] =task]
wip
2019-09-10 23:12:38 +03:00
==
+$ task
mall: refactor gift/sign/task types +on-agent now takes a +sign:agent:mall, which doesn't include spurious options. Similarly, +task:agent:mall is smaller.
2019-11-09 04:26:47 +03:00
$% [%watch =path]
[%watch-as =mark =path]
mall: rename agent arms
2019-11-07 09:19:32 +03:00
[%leave ~]
wip
2019-09-10 23:12:38 +03:00
[%poke =cage]
mall: refactor gift/sign/task types +on-agent now takes a +sign:agent:mall, which doesn't include spurious options. Similarly, +task:agent:mall is smaller.
2019-11-09 04:26:47 +03:00
[%poke-as =mark =cage]
wip
2019-09-10 23:12:38 +03:00
==
+$ gift
gall: (list path) in %fact and %kick Instead of providing a (unit path), allows for (list path), which better supports the "update to path and subpath cases". For example, if /things wants updates about everything, and /things/specific wants updates about the specific thing, they'll both need to receive a %fact when the specific thing changes. Previously, these would have been two separate moves. Now, gall handles the multi-targeting for you.
2019-12-22 23:12:28 +03:00
$% [%fact paths=(list path) =cage]
[%kick paths=(list path) ship=(unit ship)]
mall: rename agent arms
2019-11-07 09:19:32 +03:00
[%watch-ack p=(unit tang)]
mall: refactor gift/sign/task types +on-agent now takes a +sign:agent:mall, which doesn't include spurious options. Similarly, +task:agent:mall is smaller.
2019-11-09 04:26:47 +03:00
[%poke-ack p=(unit tang)]
==
+$ sign
$% [%poke-ack p=(unit tang)]
[%watch-ack p=(unit tang)]
[%fact =cage]
[%kick ~]
wip
2019-09-10 23:12:38 +03:00
==
mall: use +stay instead of explicit state
2019-09-05 00:20:47 +03:00
++ form
$_ ^|
|_ bowl
mall: rename agent arms
2019-11-07 09:19:32 +03:00
++ on-init
*(quip card _^|(..on-init))
mall: use +stay instead of explicit state
2019-09-05 00:20:47 +03:00
::
mall: rename agent arms
2019-11-07 09:19:32 +03:00
++ on-save
wip
2019-09-10 23:12:38 +03:00
*vase
::
mall: rename agent arms
2019-11-07 09:19:32 +03:00
++ on-load
mall: use +stay instead of explicit state
2019-09-05 00:20:47 +03:00
|~ old-state=vase
mall: rename agent arms
2019-11-07 09:19:32 +03:00
*(quip card _^|(..on-init))
mall: use +stay instead of explicit state
2019-09-05 00:20:47 +03:00
::
mall: rename agent arms
2019-11-07 09:19:32 +03:00
++ on-poke
mall: refactor gift/sign/task types +on-agent now takes a +sign:agent:mall, which doesn't include spurious options. Similarly, +task:agent:mall is smaller.
2019-11-09 04:26:47 +03:00
|~ [mark vase]
mall: rename agent arms
2019-11-07 09:19:32 +03:00
*(quip card _^|(..on-init))
mall: use +stay instead of explicit state
2019-09-05 00:20:47 +03:00
::
mall: rename agent arms
2019-11-07 09:19:32 +03:00
++ on-watch
mall: use +stay instead of explicit state
2019-09-05 00:20:47 +03:00
|~ path
mall: rename agent arms
2019-11-07 09:19:32 +03:00
*(quip card _^|(..on-init))
mall: use +stay instead of explicit state
2019-09-05 00:20:47 +03:00
::
mall: rename agent arms
2019-11-07 09:19:32 +03:00
++ on-leave
mall: use +stay instead of explicit state
2019-09-05 00:20:47 +03:00
|~ path
mall: rename agent arms
2019-11-07 09:19:32 +03:00
*(quip card _^|(..on-init))
mall: use +stay instead of explicit state
2019-09-05 00:20:47 +03:00
::
mall: rename agent arms
2019-11-07 09:19:32 +03:00
++ on-peek
mall: use +stay instead of explicit state
2019-09-05 00:20:47 +03:00
|~ path
*(unit (unit cage))
::
mall: rename agent arms
2019-11-07 09:19:32 +03:00
++ on-agent
mall: refactor gift/sign/task types +on-agent now takes a +sign:agent:mall, which doesn't include spurious options. Similarly, +task:agent:mall is smaller.
2019-11-09 04:26:47 +03:00
|~ [wire sign]
mall: rename agent arms
2019-11-07 09:19:32 +03:00
*(quip card _^|(..on-init))
mall: use +stay instead of explicit state
2019-09-05 00:20:47 +03:00
::
mall: rename agent arms
2019-11-07 09:19:32 +03:00
++ on-arvo
mall: refactor gift/sign/task types +on-agent now takes a +sign:agent:mall, which doesn't include spurious options. Similarly, +task:agent:mall is smaller.
2019-11-09 04:26:47 +03:00
|~ [wire sign-arvo]
mall: rename agent arms
2019-11-07 09:19:32 +03:00
*(quip card _^|(..on-init))
mall: use +stay instead of explicit state
2019-09-05 00:20:47 +03:00
::
mall: rename agent arms
2019-11-07 09:19:32 +03:00
++ on-fail
mall: use +stay instead of explicit state
2019-09-05 00:20:47 +03:00
|~ [term tang]
mall: rename agent arms
2019-11-07 09:19:32 +03:00
*(quip card _^|(..on-init))
mall: use +stay instead of explicit state
2019-09-05 00:20:47 +03:00
--
mall: compiles and runs app, but type hole
2019-09-04 22:48:36 +03:00
--
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::gall
renames +http-client interface core to +iris
2019-07-04 09:45:54 +03:00
:: %iris http-client interface
::
++ iris ^?
|%
++ able
|%
:: +gift: effects the client can emit
::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ gift
renames +http-client interface core to +iris
2019-07-04 09:45:54 +03:00
$% :: %request: outbound http-request to earth
::
:: TODO: id is sort of wrong for this interface; the duct should
:: be enough to identify which request we're talking about?
::
[%request id=@ud request=request:http]
:: %cancel-request: tell earth to cancel a previous %request
::
[%cancel-request id=@ud]
:: %response: response to the caller
::
[%http-response =client-response]
==
::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ task
renames +http-client interface core to +iris
2019-07-04 09:45:54 +03:00
$~ [%vega ~]
$% :: event failure notification
::
$>(%crud vane-task)
:: system started up; reset open connections
::
$>(%born vane-task)
arvo: wires up %trim memory-pressure event stubs
2019-09-27 23:00:37 +03:00
:: trim state (in response to memory pressure)
::
$>(%trim vane-task)
renames +http-client interface core to +iris
2019-07-04 09:45:54 +03:00
:: report upgrade
::
$>(%vega vane-task)
:: fetches a remote resource
::
[%request =request:http =outbound-config]
:: cancels a previous fetch
::
[%cancel-request ~]
:: receives http data from outside
::
[%receive id=@ud =http-event:http]
==
--
:: +client-response: one or more client responses given to the caller
::
+$ client-response
$% :: periodically sent as an update on the duct that sent %fetch
::
$: %progress
:: http-response-header: full transaction header
::
:: In case of a redirect chain, this is the target of the
:: final redirect.
::
=response-header:http
:: bytes-read: bytes fetched so far
::
bytes-read=@ud
:: expected-size: the total size if response had a content-length
::
expected-size=(unit @ud)
:: incremental: data received since the last %http-progress
::
incremental=(unit octs)
==
:: final response of a download, parsed as mime-data if successful
::
[%finished =response-header:http full-file=(unit mime-data)]
:: canceled by the runtime system
::
[%cancel ~]
==
:: mime-data: externally received but unvalidated mimed data
::
+$ mime-data
[type=@t data=octs]
:: +outbound-config: configuration for outbound http requests
::
+$ outbound-config
$: :: number of times to follow a 300 redirect before erroring
::
:: Common values for this will be 3 (the limit most browsers use), 5
:: (the limit recommended by the http standard), or 0 (let the
:: requester deal with 300 redirects).
::
redirects=_5
:: number of times to retry before failing
::
:: When we retry, we'll automatically try to use the 'Range' header
:: to resume the download where we left off if we have the
:: 'Accept-Range: bytes' in the original response.
::
retries=_3
==
:: +to-httr: adapts to old eyre interface
::
++ to-httr
|= [header=response-header:http full-file=(unit mime-data)]
^- httr:eyre
::
=/ data=(unit octs)
?~(full-file ~ `data.u.full-file)
::
[status-code.header headers.header data]
--
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
:: ::::
restore jael and move new work to kale
2019-06-25 21:54:42 +03:00
++ able ^?
=, pki
|%
simplify kale/azimuth-tracker subscription semantics
2019-07-28 07:01:55 +03:00
+$ public-keys-result
$% [%full points=(map ship point)]
[%diff who=ship =diff:point]
jael: provide edge-triggered breach notification Until now, clients of Jael have had to store the first-seen rift if they want to reliably detect breaches. Otherwise, they would get a false positive if they heard an old message about a breach (eg if you kick azimuth-tracker). Clay and Gall did this correctly, but Ames did not. Jael already maintains this state, so I added a notification to the existing subscription that happens whenever it notices a breach (a diff or full where the new rift is greater than the old one). Because this is an issue on the live network, I wrote state adapters for Gall and Clay. The Gall one just removes the rift from our state, but the Clay one is much more involved because we have to upgrade instances of the clad monad that are possibly in progress. Specifically, since more input is possible than before, we must wrap any in-progress instances of the monad in a function that handles the potential new input from Jael. This temporarily preservers a copy of the old kernel, but only until the current commit/merge/update has completed. The real solution for Clay is to factor out those IO-heavy instances to userspace tapp/async/imp/threads, and if an upgrade happens in the middle, you should simply restart them. Fixes #1852
2019-10-24 07:26:38 +03:00
[%breach who=ship]
simplify kale/azimuth-tracker subscription semantics
2019-07-28 07:01:55 +03:00
==
:: ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ gift :: out result <-$
simplify kale/azimuth-tracker subscription semantics
2019-07-28 07:01:55 +03:00
$% [%init p=ship] :: report install unix
Merge branch 'philip/kale' into alef-testnet
2019-08-02 01:56:23 +03:00
[%done error=(unit error:ames)] :: ames message (n)ack
[%boon payload=*] :: ames response
simplify kale/azimuth-tracker subscription semantics
2019-07-28 07:01:55 +03:00
[%private-keys =life vein=(map life ring)] :: private keys
[%public-keys =public-keys-result] :: ethereum changes
jael: provide edge-triggered breach notification Until now, clients of Jael have had to store the first-seen rift if they want to reliably detect breaches. Otherwise, they would get a false positive if they heard an old message about a breach (eg if you kick azimuth-tracker). Clay and Gall did this correctly, but Ames did not. Jael already maintains this state, so I added a notification to the existing subscription that happens whenever it notices a breach (a diff or full where the new rift is greater than the old one). Because this is an issue on the live network, I wrote state adapters for Gall and Clay. The Gall one just removes the rift from our state, but the Clay one is much more involved because we have to upgrade instances of the clad monad that are possibly in progress. Specifically, since more input is possible than before, we must wrap any in-progress instances of the monad in a function that handles the potential new input from Jael. This temporarily preservers a copy of the old kernel, but only until the current commit/merge/update has completed. The real solution for Clay is to factor out those IO-heavy instances to userspace tapp/async/imp/threads, and if an upgrade happens in the middle, you should simply restart them. Fixes #1852
2019-10-24 07:26:38 +03:00
[%turf turf=(list turf)] :: domains
simplify kale/azimuth-tracker subscription semantics
2019-07-28 07:01:55 +03:00
== ::
:: +seed: private boot parameters
::
+$ seed [who=ship lyf=life key=ring sig=(unit oath:pki)]
::
hoon: remove += and +- arm syntax
2020-11-25 18:49:17 +03:00
+$ task :: in request ->$
simplify kale/azimuth-tracker subscription semantics
2019-07-28 07:01:55 +03:00
$~ [%vega ~] ::
ph: clean up card structures
2019-08-23 01:33:52 +03:00
$% [%dawn dawn-event] :: boot from keys
simplify kale/azimuth-tracker subscription semantics
2019-07-28 07:01:55 +03:00
[%fake =ship] :: fake boot
[%listen whos=(set ship) =source] :: set ethereum source
::TODO %next for generating/putting new private key
add rekey to jael
2019-08-08 01:15:25 +03:00
[%meet =ship =life =pass] :: met after breach
add |moon, |moon-cycle-keys, and |moon-breach
2019-08-08 03:36:25 +03:00
[%moon =ship =udiff:point] :: register moon keys
simplify kale/azimuth-tracker subscription semantics
2019-07-28 07:01:55 +03:00
[%nuke whos=(set ship)] :: cancel tracker from
[%private-keys ~] :: sub to privates
[%public-keys ships=(set ship)] :: sub to publics
add rekey to jael
2019-08-08 01:15:25 +03:00
[%rekey =life =ring] :: update private keys
arvo: wires up %trim memory-pressure event stubs
2019-09-27 23:00:37 +03:00
$>(%trim vane-task) :: trim state
simplify kale/azimuth-tracker subscription semantics
2019-07-28 07:01:55 +03:00
[%turf ~] :: view domains
$>(%vega vane-task) :: report upgrade
Merge branch 'philip/kale' into alef-testnet
2019-08-02 01:56:23 +03:00
$>(%plea vane-task) :: ames request
jael, eyre: Add a way to reset the web login code Jael now stores a `step` that is combined with the original salt to produce a new code. A `%step` card is used to increment that value, and effectively resetting the keys. Because the first `step` is zero, the first code is the same as before. Eyre was changed to be notified with `%code-changed` so it can forget old cookies, sessions and discard all the existing channels. A new generator was added |code, that does both querying and resetting the code |code :: shows current code, step and help |code %reset :: changes the code The old +code generator still works correctly.
2020-07-29 19:14:18 +03:00
[%step ~] :: reset web login code
simplify kale/azimuth-tracker subscription semantics
2019-07-28 07:01:55 +03:00
== ::
restore jael and move new work to kale
2019-06-25 21:54:42 +03:00
::
ph: clean up card structures
2019-08-23 01:33:52 +03:00
+$ dawn-event
$: =seed
spon=(list [=ship point:azimuth-types])
czar=(map ship [=rift =life =pass])
turf=(list turf)
bloq=@ud
node=(unit purl:eyre)
==
::
azimuth-tracker
2019-07-05 04:15:53 +03:00
++ block
=< block
|%
+$ hash @uxblockhash
+$ number @udblocknumber
+$ id [=hash =number]
+$ block [=id =parent=hash]
--
::
:: Azimuth points form a groupoid, where the objects are all the
:: possible values of +point and the arrows are the possible values
:: of (list point-diff). Composition of arrows is concatenation,
:: and you can apply the diffs to a +point with +apply.
::
fixed up kale
2019-07-19 01:26:15 +03:00
:: It's simplest to consider +point as the coproduct of three
:: groupoids, Rift, Keys, and Sponsor. Recall that the coproduct
:: of monoids is the free monoid (Kleene star) of the coproduct of
:: the underlying sets of the monoids. The construction for
:: groupoids is similar. Thus, the objects of the coproduct are
:: the product of the objects of the underlying groupoids. The
azimuth-tracker
2019-07-05 04:15:53 +03:00
:: arrows are a list of a sum of the diff types of the underlying
:: groupoids. Given an arrow=(list diff), you can project to the
fixed up kale
2019-07-19 01:26:15 +03:00
:: underlying arrows with +skim filtering on the head of each diff.
azimuth-tracker
2019-07-05 04:15:53 +03:00
::
fixed up kale
2019-07-19 01:26:15 +03:00
:: The identity element is ~. Clearly, composing this with any
Merge remote-tracking branch 'origin/v0.8.0.rc' into philip/kale
2019-07-22 20:39:15 +03:00
:: +diff gives the original +diff. Since this is a category,
fixed up kale
2019-07-19 01:26:15 +03:00
:: +compose must be associative (true, because concatenation is
:: associative). This is a groupoid, so we must further have that
:: every +point-diff has an inverse. These are given by the
:: +inverse operation.
azimuth-tracker
2019-07-05 04:15:53 +03:00
::
pare down kale
2019-06-26 21:31:37 +03:00
++ point
azimuth-tracker
2019-07-05 04:15:53 +03:00
=< point
|%
+$ point
$: =rift
=life
keys=(map life [crypto-suite=@ud =pass])
sponsor=(unit @p)
==
::
+$ key-update [=life crypto-suite=@ud =pass]
::
:: Invertible diffs
::
+$ diffs (list diff)
+$ diff
$% [%rift from=rift to=rift]
[%keys from=key-update to=key-update]
[%spon from=(unit @p) to=(unit @p)]
==
::
:: Non-invertible diffs
::
+$ udiffs (list [=ship =udiff])
+$ udiff
$: =id:block
$% [%rift =rift]
[%keys key-update]
[%spon sponsor=(unit @p)]
[%disavow ~]
== ==
::
fixed up kale
2019-07-19 01:26:15 +03:00
++ udiff-to-diff
|= [=a=udiff =a=point]
all breach tests pass
2019-07-30 01:09:08 +03:00
^- (unit diff)
fixed up kale
2019-07-19 01:26:15 +03:00
?- +<.a-udiff
%disavow ~|(%udiff-to-diff-disavow !!)
all breach tests pass
2019-07-30 01:09:08 +03:00
%spon `[%spon sponsor.a-point sponsor.a-udiff]
%rift
jael: only advance lifes This matches the semantics of rifts and makes it more forgiving of misordered updates.
2019-12-18 00:52:30 +03:00
?. (gth rift.a-udiff rift.a-point)
~
~? !=(rift.a-udiff +(rift.a-point))
[%udiff-to-diff-skipped-rift a-udiff a-point]
`[%rift rift.a-point rift.a-udiff]
all breach tests pass
2019-07-30 01:09:08 +03:00
::
fixed up kale
2019-07-19 01:26:15 +03:00
%keys
jael: only advance lifes This matches the semantics of rifts and makes it more forgiving of misordered updates.
2019-12-18 00:52:30 +03:00
?. (gth life.a-udiff life.a-point)
~
~? !=(life.a-udiff +(life.a-point))
[%udiff-to-diff-skipped-life a-udiff a-point]
all breach tests pass
2019-07-30 01:09:08 +03:00
:^ ~ %keys
azimuth-tracker sends to kale
2019-07-19 03:08:01 +03:00
[life.a-point (~(gut by keys.a-point) life.a-point *[@ud pass])]
fixed up kale
2019-07-19 01:26:15 +03:00
[life crypto-suite pass]:a-udiff
==
::
azimuth-tracker
2019-07-05 04:15:53 +03:00
++ inverse
|= diffs=(list diff)
^- (list diff)
%- flop
%+ turn diffs
|= =diff
^- ^diff
?- -.diff
Merge remote-tracking branch 'origin/v0.8.0.rc' into philip/kale
2019-07-22 20:39:15 +03:00
%rift [%rift to from]:diff
%keys [%keys to from]:diff
%spon [%spon to from]:diff
azimuth-tracker
2019-07-05 04:15:53 +03:00
==
::
++ compose
(bake weld ,[(list diff) (list diff)])
::
++ apply
fixed up kale
2019-07-19 01:26:15 +03:00
|= [diffs=(list diff) =a=point]
(roll diffs (apply-diff a-point))
azimuth-tracker
2019-07-05 04:15:53 +03:00
::
++ apply-diff
fixed up kale
2019-07-19 01:26:15 +03:00
|= a=point
|: [*=diff a-point=a]
^- point
azimuth-tracker
2019-07-05 04:15:53 +03:00
?- -.diff
%rift
fixed up kale
2019-07-19 01:26:15 +03:00
?> =(rift.a-point from.diff)
a-point(rift to.diff)
azimuth-tracker
2019-07-05 04:15:53 +03:00
::
%keys
fixed up kale
2019-07-19 01:26:15 +03:00
?> =(life.a-point life.from.diff)
?> =((~(get by keys.a-point) life.a-point) `+.from.diff)
%_ a-point
azimuth-tracker
2019-07-05 04:15:53 +03:00
life life.to.diff
fixed up kale
2019-07-19 01:26:15 +03:00
keys (~(put by keys.a-point) life.to.diff +.to.diff)
Merge commit '9d2cea79' into philip/kale
2019-07-05 23:26:40 +03:00
==
::
%spon
fixed up kale
2019-07-19 01:26:15 +03:00
?> =(sponsor.a-point from.diff)
a-point(sponsor to.diff)
Merge commit '9d2cea79' into philip/kale
2019-07-05 23:26:40 +03:00
==
--
restore jael and move new work to kale
2019-06-25 21:54:42 +03:00
-- ::
:: ::
:::: ::
:: ::
simplify kale/azimuth-tracker subscription semantics
2019-07-28 07:01:55 +03:00
+$ source (each ship term)
pare down kale
2019-06-26 21:31:37 +03:00
+$ source-id @udsourceid
Boots with %light instead of %eyre. Stubs for system cofiguration events.
2018-09-28 21:24:41 +03:00
::
restore jael and move new work to kale
2019-06-25 21:54:42 +03:00
:: +state-eth-node: state of a connection to an ethereum node
The authenticated access flow works from an app in browser.
2018-10-25 00:31:19 +03:00
::
pare down kale
2019-06-26 21:31:37 +03:00
+$ state-eth-node :: node config + meta
simplify kale/azimuth-tracker subscription semantics
2019-07-28 07:01:55 +03:00
$: top-source-id=source-id
pare down kale
2019-06-26 21:31:37 +03:00
sources=(map source-id source)
sources-reverse=(map source source-id)
default-source=source-id
ship-sources=(map ship source-id)
ship-sources-reverse=(jug source-id ship)
restore jael and move new work to kale
2019-06-25 21:54:42 +03:00
== ::
:: ::
kale -> jael
2019-08-07 01:42:37 +03:00
:::: ++pki:jael :: (1h2) certificates
restore jael and move new work to kale
2019-06-25 21:54:42 +03:00
:: ::::
++ pki ^?
|%
::TODO update to fit azimuth-style keys
:: 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
:: of cosmetic identity; a semi-trusted parent,
:: 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.
::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ hand @uvH :: 128-bit hash
+$ mind [who=ship lyf=life] :: key identifier
+$ name (pair @ta @t) :: ascii / unicode
+$ oath @ :: signature
restore jael and move new work to kale
2019-06-25 21:54:42 +03:00
-- :: pki
kale -> jael
2019-08-07 01:42:37 +03:00
-- :: jael
Merge branch 'alef-testnet-merge' into philip/mall-real
2019-11-20 00:03:07 +03:00
::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ gift-arvo :: out result <-$
mall: refactor and rename remove bones, give agent arms long names, remove metavase use, general cleanup
2019-09-12 05:55:31 +03:00
$~ [%init ~zod]
$% gift:able:ames
gift:able:behn
gift:able:clay
gift:able:dill
gift:able:eyre
gall: mall -> gall
2019-11-19 07:36:21 +03:00
gift:able:gall
mall: refactor and rename remove bones, give agent arms long names, remove metavase use, general cleanup
2019-09-12 05:55:31 +03:00
gift:able:iris
gift:able:jael
==
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ task-arvo :: in request ->$
mall: refactor and rename remove bones, give agent arms long names, remove metavase use, general cleanup
2019-09-12 05:55:31 +03:00
$% task:able:ames
task:able:clay
task:able:behn
task:able:dill
Merge branch 'alef-testnet-merge' into philip/mall-real
2019-11-20 00:03:07 +03:00
task:able:eyre
gall: mall -> gall
2019-11-19 07:36:21 +03:00
task:able:gall
Merge branch 'alef-testnet-merge' into philip/mall-real
2019-11-20 00:03:07 +03:00
task:able:iris
mall: refactor and rename remove bones, give agent arms long names, remove metavase use, general cleanup
2019-09-12 05:55:31 +03:00
task:able:jael
==
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ note-arvo :: out request $->
Merge branch 'alef-testnet-merge' into philip/mall-real
2019-11-20 00:03:07 +03:00
$~ [%b %wake ~]
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
$% [%a task:able:ames]
[%b task:able:behn]
[%c task:able:clay]
[%d task:able:dill]
mall: refactor and rename remove bones, give agent arms long names, remove metavase use, general cleanup
2019-09-12 05:55:31 +03:00
[%e task:able:eyre]
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[%g task:able:gall]
mall: refactor and rename remove bones, give agent arms long names, remove metavase use, general cleanup
2019-09-12 05:55:31 +03:00
[%i task:able:iris]
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[%j task:able:jael]
[@tas %meta vase]
mall: refactor and rename remove bones, give agent arms long names, remove metavase use, general cleanup
2019-09-12 05:55:31 +03:00
==
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
+$ sign-arvo :: in result $<-
$% [%a gift:able:ames]
various: move away from $constant type syntax
2020-11-25 22:39:13 +03:00
$: %b
mall: refactor and rename remove bones, give agent arms long names, remove metavase use, general cleanup
2019-09-12 05:55:31 +03:00
$% gift:able:behn
gall: live update agents
2020-04-24 07:13:19 +03:00
$>(%wris gift:able:clay)
$>(%writ gift:able:clay)
mall: refactor and rename remove bones, give agent arms long names, remove metavase use, general cleanup
2019-09-12 05:55:31 +03:00
$>(%mere gift:able:clay)
gall: fix ap-kill-down This broke when %kick was handled by resubscribing on your own ship because it processed the %kick before the %leave. For example, `@t`404 at the dojo would put the dojo in an unworkable state. You want the %leave to be processed first because you can't do a "resubscribe" in response to that.
2019-11-21 00:22:36 +03:00
$>(%unto gift:able:gall)
mall: refactor and rename remove bones, give agent arms long names, remove metavase use, general cleanup
2019-09-12 05:55:31 +03:00
==
==
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[%c gift:able:clay]
[%d gift:able:dill]
mall: refactor and rename remove bones, give agent arms long names, remove metavase use, general cleanup
2019-09-12 05:55:31 +03:00
[%e gift:able:eyre]
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[%g gift:able:gall]
mall: refactor and rename remove bones, give agent arms long names, remove metavase use, general cleanup
2019-09-12 05:55:31 +03:00
[%i gift:able:iris]
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[%j gift:able:jael]
mall: refactor and rename remove bones, give agent arms long names, remove metavase use, general cleanup
2019-09-12 05:55:31 +03:00
==
Merge branch 'alef-testnet-merge' into philip/mall-real
2019-11-20 00:03:07 +03:00
:: $unix-task: input from unix
mall: refactor and rename remove bones, give agent arms long names, remove metavase use, general cleanup
2019-09-12 05:55:31 +03:00
::
+$ unix-task :: input from unix
$~ [%wake ~]
Merge branch 'alef-testnet-merge' into philip/mall-real
2019-11-20 00:03:07 +03:00
$% :: %dill: keyboard input
mall: refactor and rename remove bones, give agent arms long names, remove metavase use, general cleanup
2019-09-12 05:55:31 +03:00
::
$>(%belt task:able:dill)
:: %dill: configure terminal (resized)
::
$>(%blew task:able:dill)
:: %clay: new process
::
$>(%boat task:able:clay)
:: %behn/%eyre/%iris: new process
::
$>(%born vane-task)
:: %eyre: cancel request
::
[%cancel-request ~]
:: any vane: error report
::
$>(%crud vane-task)
:: %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)
:: %iris: hear (partial) http response
::
$>(%receive task:able:iris)
:: %eyre: starts handling an inbound http request
::
eyre: fix tests
2019-11-14 06:38:13 +03:00
$>(%request task:able:eyre)
mall: refactor and rename remove bones, give agent arms long names, remove metavase use, general cleanup
2019-09-12 05:55:31 +03:00
:: %eyre: starts handling an backdoor http request
::
$>(%request-local task:able:eyre)
:: %behn: wakeup
::
$>(%wake task:able:behn)
==
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::
:: :: ::
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)
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= a=@ ^- ?
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
?: ?| =(0 (end 0 a))
%velo reset works.
2016-12-02 04:17:02 +03:00
=(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]
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|- ^- [s=@ t=@]
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
?: =(0 (end 0 s))
$(s (rsh 0 s), t +(t))
%velo reset works.
2016-12-02 04:17:02 +03:00
[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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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)
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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 ::
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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 ::
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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 ::
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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 ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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 ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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)))
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ m=(rsh [0 i] a)
%velo reset works.
2016-12-02 04:17:02 +03:00
?: =(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)
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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))
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(dif (sit q.a) (sit (lsh 0 b)))
(lsh 0 b)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++pro:ga:number
++ pro :: slow multiply
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [b=@ c=@]
%velo reset works.
2016-12-02 04:17:02 +03:00
?: =(0 b)
0
?: =(1 (dis 1 b))
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(dif c $(b (rsh 0 b), c (dub c)))
$(b (rsh 0 b), c (dub c))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++toe:ga:number
++ toe :: exp+log tables
=+ ^= nu
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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]
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [b=@ c=@]
%velo reset works.
2016-12-02 04:17:02 +03:00
(pro b (inv c))
:: :: ++inv:ga:number
++ inv :: invert
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
|%
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
++ co *[p=@ q=@ r=@ s=@] :: column coefficients
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
++ ix |~(a=@ *@) :: key index
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
++ 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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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 ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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]]
==
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [a=@ b=@] ^- @
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
(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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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 ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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 ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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 ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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] ~)
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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 ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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 +> ~
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= 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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= 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 +> ~
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= blk=@H ^- @uxH
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ (ahem 6 4 12)
=:
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
key (rsh 6 (~(net fe 8) key))
%velo reset works.
2016-12-02 04:17:02 +03:00
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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= blk=@H ^- @uxH
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ (ahem 6 4 12)
=:
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
key (rsh 6 (~(net fe 8) key))
%velo reset works.
2016-12-02 04:17:02 +03:00
blk (~(net fe 7) blk)
==
%- ~(net fe 7)
(be | (ix (ex key)) blk)
-- ::ecbb
:: :: ++ecbc:aes:crypto
++ ecbc :: AES-256 ECB
~% %ecbc +> ~
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= 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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= 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 +> ~
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= txt=@ ^- @ux
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ pts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= txt=@ ^- @ux
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ cts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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 +> ~
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= txt=@ ^- @ux
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ pts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= txt=@ ^- @ux
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ cts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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 +> ~
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= txt=@ ^- @ux
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ pts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= txt=@ ^- @ux
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ cts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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 +> ~
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= 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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
%+ rsh [3 (sub (mul 16 blocks) len)]
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ 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 +> ~
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= 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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
%+ rsh [3 (sub (mul 16 blocks) len)]
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ 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 +> ~
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= 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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
%+ rsh [3 (sub (mul 16 blocks) len)]
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ 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
::
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(lsh 0 str)
(mix 0x87 (lsh 0 str))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++mpad:aes:crypto
++ mpad ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(lsh [3 (sub 15 pad)] (mix 0x80 (lsh 3 txt)))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++suba:aes:crypto
++ suba :: AES-128 subkeys
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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)
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
^- [@ux @ux]
%velo reset works.
2016-12-02 04:17:02 +03:00
[k1 k2]
:: :: ++subb:aes:crypto
++ subb :: AES-192 subkeys
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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)
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
^- [@ux @ux]
%velo reset works.
2016-12-02 04:17:02 +03:00
[k1 k2]
:: :: ++subc:aes:crypto
++ subc :: AES-256 subkeys
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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)
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [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
zuse: propagates fix to aes-128-siv and aes-192-siv as well
2020-06-13 07:33:14 +03:00
|= [key=@H ads=(list @)]
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ ads (maca key `16 0x1)
zuse: propagates fix to aes-128-siv and aes-192-siv as well
2020-06-13 07:33:14 +03:00
=/ res (maca key `16 0x0)
%+ maca key
|- ^- [[~ @ud] @uxH]
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ t.ads
zuse: propagates fix to aes-128-siv and aes-192-siv as well
2020-06-13 07:33:14 +03:00
=/ wyt (met 3 i.ads)
?: (gte wyt 16)
[`wyt (mix i.ads res)]
[`16 (mix (doub res) (mpad wyt i.ads))]
%velo reset works.
2016-12-02 04:17:02 +03:00
%= $
ads t.ads
zuse: propagates fix to aes-128-siv and aes-192-siv as well
2020-06-13 07:33:14 +03:00
res (mix (doub res) (maca key ~ i.ads))
%velo reset works.
2016-12-02 04:17:02 +03:00
==
:: :: ++s2vb:aes:crypto
++ s2vb :: AES-192 S2V
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %s2vb
zuse: propagates fix to aes-128-siv and aes-192-siv as well
2020-06-13 07:33:14 +03:00
|= [key=@I ads=(list @)]
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ ads (macb key `16 0x1)
zuse: propagates fix to aes-128-siv and aes-192-siv as well
2020-06-13 07:33:14 +03:00
=/ res (macb key `16 0x0)
%+ macb key
|- ^- [[~ @ud] @uxH]
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ t.ads
zuse: propagates fix to aes-128-siv and aes-192-siv as well
2020-06-13 07:33:14 +03:00
=/ wyt (met 3 i.ads)
?: (gte wyt 16)
[`wyt (mix i.ads res)]
[`16 (mix (doub res) (mpad wyt i.ads))]
%velo reset works.
2016-12-02 04:17:02 +03:00
%= $
ads t.ads
zuse: propagates fix to aes-128-siv and aes-192-siv as well
2020-06-13 07:33:14 +03:00
res (mix (doub res) (macb key ~ i.ads))
%velo reset works.
2016-12-02 04:17:02 +03:00
==
:: :: ++s2vc:aes:crypto
++ s2vc :: AES-256 S2V
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %s2vc
zuse: fixes bug in aes-256-siv iv calculation (+s2vc:aes:crypto)
2020-06-13 07:32:06 +03:00
|= [key=@I ads=(list @)]
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ ads (macc key `16 0x1)
zuse: fixes bug in aes-256-siv iv calculation (+s2vc:aes:crypto)
2020-06-13 07:32:06 +03:00
=/ res (macc key `16 0x0)
%+ macc key
|- ^- [[~ @ud] @uxH]
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ t.ads
zuse: fixes bug in aes-256-siv iv calculation (+s2vc:aes:crypto)
2020-06-13 07:32:06 +03:00
=/ wyt (met 3 i.ads)
?: (gte wyt 16)
[`wyt (mix i.ads res)]
[`16 (mix (doub res) (mpad wyt i.ads))]
%velo reset works.
2016-12-02 04:17:02 +03:00
%= $
ads t.ads
zuse: fixes bug in aes-256-siv iv calculation (+s2vc:aes:crypto)
2020-06-13 07:32:06 +03:00
res (mix (doub res) (macc key ~ i.ads))
%velo reset works.
2016-12-02 04:17:02 +03:00
==
:: :: ++siva:aes:crypto
++ siva :: AES-128 SIV
~% %siva +> ~
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= txt=@
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (trel @uxH @ud @ux)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ [k1=(rsh 7 key) k2=(end 7 key)]
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ 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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [iv=@H len=@ txt=@]
New metal boot system.
2016-11-24 07:25:07 +03:00
^- (unit @ux)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ [k1=(rsh 7 key) k2=(end 7 key)]
%velo reset works.
2016-12-02 04:17:02 +03:00
=* 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 +> ~
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= txt=@
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (trel @uxH @ud @ux)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ [k1=(rsh [6 3] key) k2=(end [6 3] key)]
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ 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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [iv=@H len=@ txt=@]
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (unit @ux)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ [k1=(rsh [6 3] key) k2=(end [6 3] key)]
%velo reset works.
2016-12-02 04:17:02 +03:00
=* 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 +> ~
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= txt=@
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (trel @uxH @ud @ux)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ [k1=(rsh 8 key) k2=(end 8 key)]
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ 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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [iv=@H len=@ txt=@]
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (unit @ux)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ [k1=(rsh 8 key) k2=(end 8 key)]
%velo reset works.
2016-12-02 04:17:02 +03:00
=* 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 ::
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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?
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
|%
Redo how we perform ECC math for ring signatures. This makes three new functions in +ed:crypto which are designed to be jetted by the ed25519 implementation. It then moves the ring signature library stuff onto two of them. Previously, it took three minutes to sign+verify an unlinked ring of 3 public keys; now it is instantaneous with the jets written so far. This comments out all the linkage handling code, since a jet isn't written for that stuff yet.
2019-06-12 00:23:21 +03:00
::
Cleanup and unit tests
2019-06-21 21:30:12 +03:00
++ point-add
~/ %point-add
+ring runs in 2.5s with the appropriate jets on a ring of 60 participants.
2019-06-13 23:43:43 +03:00
|= [a-point=@udpoint b-point=@udpoint]
^- @udpoint
::
=/ a-point-decoded=[@ @] (need (deco a-point))
=/ b-point-decoded=[@ @] (need (deco b-point))
::
%- etch
(ward a-point-decoded b-point-decoded)
::
++ scalarmult
~/ %scalarmult
|= [a=@udscalar a-point=@udpoint]
^- @udpoint
::
=/ a-point-decoded=[@ @] (need (deco a-point))
::
%- etch
(scam a-point-decoded a)
::
Redo how we perform ECC math for ring signatures. This makes three new functions in +ed:crypto which are designed to be jetted by the ed25519 implementation. It then moves the ring signature library stuff onto two of them. Previously, it took three minutes to sign+verify an unlinked ring of 3 public keys; now it is instantaneous with the jets written so far. This comments out all the linkage handling code, since a jet isn't written for that stuff yet.
2019-06-12 00:23:21 +03:00
++ scalarmult-base
~/ %scalarmult-base
|= scalar=@udscalar
^- @udpoint
%- etch
(scam bb scalar)
::
+ring runs in 2.5s with the appropriate jets on a ring of 60 participants.
2019-06-13 23:43:43 +03:00
++ add-scalarmult-scalarmult-base
~/ %add-scalarmult-scalarmult-base
Redo how we perform ECC math for ring signatures. This makes three new functions in +ed:crypto which are designed to be jetted by the ed25519 implementation. It then moves the ring signature library stuff onto two of them. Previously, it took three minutes to sign+verify an unlinked ring of 3 public keys; now it is instantaneous with the jets written so far. This comments out all the linkage handling code, since a jet isn't written for that stuff yet.
2019-06-12 00:23:21 +03:00
|= [a=@udscalar a-point=@udpoint b=@udscalar]
^- @udpoint
::
=/ a-point-decoded=[@ @] (need (deco a-point))
::
%- etch
%+ ward
(scam bb b)
(scam a-point-decoded a)
::
+ring runs in 2.5s with the appropriate jets on a ring of 60 participants.
2019-06-13 23:43:43 +03:00
++ add-double-scalarmult
~/ %add-double-scalarmult
Redo how we perform ECC math for ring signatures. This makes three new functions in +ed:crypto which are designed to be jetted by the ed25519 implementation. It then moves the ring signature library stuff onto two of them. Previously, it took three minutes to sign+verify an unlinked ring of 3 public keys; now it is instantaneous with the jets written so far. This comments out all the linkage handling code, since a jet isn't written for that stuff yet.
2019-06-12 00:23:21 +03:00
|= [a=@udscalar a-point=@udpoint b=@udscalar b-point=@udpoint]
^- @udpoint
::
+ring runs in 2.5s with the appropriate jets on a ring of 60 participants.
2019-06-13 23:43:43 +03:00
=/ a-point-decoded=[@ @] (need (deco a-point))
=/ b-point-decoded=[@ @] (need (deco b-point))
Redo how we perform ECC math for ring signatures. This makes three new functions in +ed:crypto which are designed to be jetted by the ed25519 implementation. It then moves the ring signature library stuff onto two of them. Previously, it took three minutes to sign+verify an unlinked ring of 3 public keys; now it is instantaneous with the jets written so far. This comments out all the linkage handling code, since a jet isn't written for that stuff yet.
2019-06-12 00:23:21 +03:00
::
+ring runs in 2.5s with the appropriate jets on a ring of 60 participants.
2019-06-13 23:43:43 +03:00
%- etch
%+ ward
(scam a-point-decoded a)
(scam b-point-decoded b)
%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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= sk=@I ^- @
%velo reset works.
2016-12-02 04:17:02 +03:00
?: (gth (met 3 sk) 32) !!
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ h=(shal (rsh [0 3] b) sk)
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ^= a
%+ add
(bex (sub b 2))
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(lsh [0 3] (cut 0 [3 (sub b 5)] h))
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ aa=(scam bb a)
(etch aa)
:: :: ++suck:ed:crypto
++ suck :: keypair from seed
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [pub=@ sek=@]
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @ux
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ exp=(shal (rsh [0 3] b) (suck sek))
%velo reset works.
2016-12-02 04:17:02 +03:00
=. exp (dis exp (can 0 ~[[3 0] [251 (fil 0 251 1)]]))
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=. exp (con exp (lsh [3 31] 0b100.0000))
=+ prv=(end 8 exp)
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ 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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [m=@ se=@] ^- @
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ sk=(suck se)
=+ pk=(cut 0 [b b] sk)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ h=(shal (rsh [0 3] b) sk)
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ^= a
%+ add
(bex (sub b 2))
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(lsh [0 3] (cut 0 [3 (sub b 5)] h))
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ^= 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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [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)) |
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ cb=(rsh [0 3] b)
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ 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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [a=@ b=@]
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(mix (end 5 (lsh [0 a] b)) (rsh [0 (sub 32 a)] b))
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ^= lea
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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 ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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]
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [k=@ kl=@ t=@ tl=@]
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=> .(k (end [3 kl] k), t (end [3 tl] t))
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ 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)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(add (lsh [3 b] t) (mix k (fil 3 b 0x36)))
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ shay (add b 32)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(add (lsh [3 b] q) (mix k (fil 3 b 0x5c)))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++pbk:scr:crypto
++ pbk :: PBKDF2-HMAC-SHA256
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %pbk
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [p=@ pl=@ s=@ sl=@ c=@ d=@]
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=> .(p (end [3 pl] p), s (end [3 sl] s))
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ 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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ u=(add s (lsh [3 sl] (rep 3 (flop (rpp 3 4 j)))))
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ 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))
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
$(t (add t (lsh [3 (mul (dec j) h)] f)), j +(j))
(end [3 d] t)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++hsh:scr:crypto
++ hsh :: scrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %hsh
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [p=@ pl=@ s=@ sl=@ n=@ r=@ z=@ d=@]
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
=| v=(list (list @))
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=> .(p (end [3 pl] p), s (end [3 sl] s))
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ 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) -)
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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 @))`-
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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}
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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)
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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 ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [bpk=pass msg=@]
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @ux
?~ sek ~| %pubkey-only !!
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
?> =('b' (end 3 bpk))
=+ pk=(rsh 8 (rsh 3 bpk))
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ 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 ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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 !!
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
?> =('b' (end 3 bpk))
=+ pk=(rsh 8 (rsh 3 bpk))
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ shar=(shax (shar:ed pk cry.u.sek))
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [key=@J txt=@]
More cleanups.
2016-12-08 05:12:37 +03:00
^- (unit @ux)
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [key=@J cph=@]
More cleanups.
2016-12-08 05:12:37 +03:00
(need (de key cph))
:: :: ++en:crub:crypto
++ en :: encrypt
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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 !!
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(end 6 (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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ [c=(rsh 8 bits) s=(end 8 bits)]
More cleanups.
2016-12-08 05:12:37 +03:00
..nu(pub [cry=(puck:ed c) sgn=(puck:ed s)], sek `[cry=c sgn=s])
:: :: ++nol:nu:crub:crypto
++ nol :: activate secret
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= a=ring
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ [mag=(end 3 a) bod=(rsh 3 a)]
More cleanups.
2016-12-08 05:12:37 +03:00
~| %not-crub-seckey ?> =('B' mag)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ [c=(rsh 8 bod) s=(end 8 bod)]
More cleanups.
2016-12-08 05:12:37 +03:00
..nu(pub [cry=(puck:ed c) sgn=(puck:ed s)], sek `[cry=c sgn=s])
:: :: ++com:nu:crub:crypto
++ com :: activate public
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= a=pass
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ [mag=(end 3 a) bod=(rsh 3 a)]
More cleanups.
2016-12-08 05:12:37 +03:00
~| %not-crub-pubkey ?> =('b' mag)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
..nu(pub [cry=(rsh 8 bod) sgn=(end 8 bod)], sek ~)
More cleanups.
2016-12-08 05:12:37 +03:00
-- ::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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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.
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +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,
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=. p (lsh [0 capacity] p)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
:: 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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
%+ con (lsh [0 bitrate] res)
(rsh [0 capacity] (lanes-to-bytes state))
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
=. len (add len bitrate)
?: (gte len output)
:: produce the requested bits of output.
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(rsh [0 (sub len output)] res)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
$(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=@
hoon: (and %zuse) use +run and +rut where appropriate
2020-12-01 22:58:45 +03:00
%^ run 6 a
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
|=(b=@ (lsh [3 (sub 8 (met 3 b))] (swp 3 b)))
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
++ 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=@]
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
%+ con (lsh [lane-bloq 1] c)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
%+ roll (gulf 0 (dec size))
|= [y=@ud c=@]
(mix c (get-lane x y a))
=/ d=@
%+ roll (gulf 0 (dec size))
|= [x=@ud d=@]
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
%+ con (lsh [lane-bloq 1] d)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
%+ 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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
%+ lsh
hoon: adds +new-lsh, switches all +lsh call sites
2020-12-02 07:58:00 +03:00
[lane-bloq (sub lanes +(i))]
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
(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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
%+ lsh
hoon: adds +new-lsh, switches all +lsh call sites
2020-12-02 07:58:00 +03:00
:- lane-bloq
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
%+ 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=@]
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
%+ con (lsh lane-bloq a)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
=+ 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)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(mix a (lsh [lane-bloq (dec lanes)] -))
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
:: 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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=. dat.key (end [3 wid.key] dat.key)
=. dat.msg (end [3 wid.msg] dat.msg)
Add correct byte-order HMAC family to zuse.
2018-07-13 15:20:28 +03:00
:: 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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=? dat.key (lth wid.key boq) (lsh [3 (sub boq wid.key)] dat.key)
Add correct byte-order HMAC family to zuse.
2018-07-13 15:20:28 +03:00
:: 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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ (haj (add wid.msg boq) (add (lsh [3 wid.msg] kip) dat.msg))
Add correct byte-order HMAC family to zuse.
2018-07-13 15:20:28 +03:00
:: prepend outer padding to result, hash again
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(haj (add out boq) (add (lsh [3 out] kop) -))
Add correct byte-order HMAC family to zuse.
2018-07-13 15:20:28 +03:00
-- :: 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
:: ::::
hoon: ensure lib/bip32 is working with new secp, remove old secp
2020-09-19 03:43:15 +03:00
++ secp !.
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
:: TODO: as-octs and hmc are outside of jet parent
vere: wire up jets for new secp
2020-09-19 03:16:10 +03:00
=> :+ ..is
hmc=hmac-sha256l:hmac:crypto
as-octs=as-octs:mimes:html
~% %secp +< ~
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
|%
hoon: remove += and +- arm syntax
2020-11-25 18:49:17 +03:00
+$ jacobian [x=@ y=@ z=@] :: jacobian point
+$ point [x=@ y=@] :: curve point
+$ domain
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
$: p=@ :: prime modulo
a=@ :: y^2=x^3+ax+b
b=@ ::
g=point :: base point
n=@ :: prime order of g
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
==
++ secp
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
|_ [bytes=@ =domain]
++ field-p ~(. fo p.domain)
++ field-n ~(. fo n.domain)
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
++ compress-point
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
|= =point
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
^- @
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
%+ can 3
:~ [bytes x.point]
[1 (add 2 (cut 0 [0 1] y.point))]
==
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
::
++ serialize-point
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
|= =point
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
^- @
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
%+ can 3
:~ [bytes y.point]
[bytes x.point]
[1 4]
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
==
::
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
++ decompress-point
|= compressed=@
^- point
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=/ x=@ (end [3 bytes] compressed)
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
?> =(3 (mod p.domain 4))
=/ fop field-p
=+ [fadd fmul fpow]=[sum.fop pro.fop exp.fop]
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=/ y=@ %+ fpow (rsh [0 2] +(p.domain))
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
%+ fadd b.domain
%+ fadd (fpow 3 x)
(fmul a.domain x)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=/ s=@ (rsh [3 bytes] compressed)
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
~| [`@ux`s `@ux`compressed]
?> |(=(2 s) =(3 s))
:: check parity
::
=? y !=((sub s 2) (mod y 2))
(sub p.domain y)
[x y]
::
++ jc :: jacobian math
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
|%
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
++ from
|= a=jacobian
^- point
=/ fop field-p
=+ [fmul fpow finv]=[pro.fop exp.fop inv.fop]
=/ z (finv z.a)
:- (fmul x.a (fpow 2 z))
(fmul y.a (fpow 3 z))
::
++ into
|= point
^- jacobian
[x y 1]
::
++ double
|= jacobian
^- jacobian
?: =(0 y) [0 0 0]
=/ fop field-p
=+ [fadd fsub fmul fpow]=[sum.fop dif.fop pro.fop exp.fop]
=/ s :(fmul 4 x (fpow 2 y))
=/ m %+ fadd
(fmul 3 (fpow 2 x))
(fmul a.domain (fpow 4 z))
=/ nx %+ fsub
(fpow 2 m)
(fmul 2 s)
=/ ny %+ fsub
(fmul m (fsub s nx))
(fmul 8 (fpow 4 y))
=/ nz :(fmul 2 y z)
[nx ny nz]
::
++ add
|= [a=jacobian b=jacobian]
^- jacobian
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
?: =(0 y.a) b
?: =(0 y.b) a
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
=/ fop field-p
=+ [fadd fsub fmul fpow]=[sum.fop dif.fop pro.fop exp.fop]
=/ u1 :(fmul x.a z.b z.b)
=/ u2 :(fmul x.b z.a z.a)
=/ s1 :(fmul y.a z.b z.b z.b)
=/ s2 :(fmul y.b z.a z.a z.a)
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
?: =(u1 u2)
?. =(s1 s2)
[0 0 1]
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
(double a)
=/ h (fsub u2 u1)
=/ r (fsub s2 s1)
=/ h2 (fmul h h)
=/ h3 (fmul h2 h)
=/ u1h2 (fmul u1 h2)
=/ nx %+ fsub
(fmul r r)
:(fadd h3 u1h2 u1h2)
=/ ny %+ fsub
(fmul r (fsub u1h2 nx))
(fmul s1 h3)
=/ nz :(fmul h z.a z.b)
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
[nx ny nz]
::
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
++ mul
|= [a=jacobian scalar=@]
^- jacobian
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
?: =(0 y.a)
[0 0 1]
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
?: =(0 scalar)
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
[0 0 1]
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
?: =(1 scalar)
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
a
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
?: (gte scalar n.domain)
$(scalar (mod scalar n.domain))
?: =(0 (mod scalar 2))
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(double $(scalar (rsh 0 scalar)))
(add a (double $(scalar (rsh 0 scalar))))
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
--
hoon: ensure lib/bip32 is working with new secp, remove old secp
2020-09-19 03:43:15 +03:00
++ add-points
|= [a=point b=point]
^- point
=/ j jc
(from.j (add.j (into.j a) (into.j b)))
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
++ mul-point-scalar
|= [p=point scalar=@]
^- point
=/ j jc
%- from.j
%+ mul.j
(into.j p)
scalar
::
zuse: make it clear where the secp jet should make explicit size checks Well-behaved secp jets can now plausibly exit if they are given inputs of the wrong size/range. Previously this was either not checked or the inputs were silently truncated.
2020-09-19 01:58:42 +03:00
++ valid-hash
|= has=@
(lte (met 3 has) bytes)
::
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
++ in-order
|= i=@
?& (gth i 0)
(lth i n.domain)
==
++ priv-to-pub
|= private-key=@
^- point
?> (in-order private-key)
(mul-point-scalar g.domain private-key)
::
++ make-k
|= [hash=@ private-key=@]
^- @
?> (in-order private-key)
zuse: make it clear where the secp jet should make explicit size checks Well-behaved secp jets can now plausibly exit if they are given inputs of the wrong size/range. Previously this was either not checked or the inputs were silently truncated.
2020-09-19 01:58:42 +03:00
?> (valid-hash hash)
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
=/ v (fil 3 bytes 1)
=/ k 0
=. k %+ hmc [bytes k]
%- as-octs
%+ can 3
:~ [bytes hash]
[bytes private-key]
[1 0]
[bytes v]
==
=. v (hmc bytes^k bytes^v)
=. k %+ hmc [bytes k]
%- as-octs
%+ can 3
:~ [bytes hash]
[bytes private-key]
[1 1]
[bytes v]
==
=. v (hmc bytes^k bytes^v)
(hmc bytes^k bytes^v)
::
++ ecdsa-raw-sign
|= [hash=@ private-key=@]
^- [r=@ s=@ y=@]
zuse: make it clear where the secp jet should make explicit size checks Well-behaved secp jets can now plausibly exit if they are given inputs of the wrong size/range. Previously this was either not checked or the inputs were silently truncated.
2020-09-19 01:58:42 +03:00
:: make-k and priv-to pub will validate inputs
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
=/ k (make-k hash private-key)
=/ rp (priv-to-pub k)
=* r x.rp
?< =(0 r)
=/ fon field-n
=+ [fadd fmul finv]=[sum.fon pro.fon inv.fon]
=/ s %+ fmul (finv k)
%+ fadd hash
%+ fmul r
private-key
?< =(0 s)
[r s y.rp]
:: general recovery omitted, but possible
--
++ secp256k1
~% %secp256k1 + ~
|%
++ t :: in the battery for jet matching
^- domain
:* 0xffff.ffff.ffff.ffff.ffff.ffff.ffff.ffff.
ffff.ffff.ffff.ffff.ffff.fffe.ffff.fc2f
0
7
:- 0x79be.667e.f9dc.bbac.55a0.6295.ce87.0b07.
029b.fcdb.2dce.28d9.59f2.815b.16f8.1798
0x483a.da77.26a3.c465.5da4.fbfc.0e11.08a8.
fd17.b448.a685.5419.9c47.d08f.fb10.d4b8
0xffff.ffff.ffff.ffff.ffff.ffff.ffff.fffe.
baae.dce6.af48.a03b.bfd2.5e8c.d036.4141
==
::
hoon: ensure lib/bip32 is working with new secp, remove old secp
2020-09-19 03:43:15 +03:00
++ curve ~(. secp 32 t)
++ serialize-point serialize-point:curve
++ compress-point compress-point:curve
++ decompress-point decompress-point:curve
++ add-points add-points:curve
++ mul-point-scalar mul-point-scalar:curve
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
++ make-k
~/ %make
|= [hash=@uvI private-key=@]
zuse: make it clear where the secp jet should make explicit size checks Well-behaved secp jets can now plausibly exit if they are given inputs of the wrong size/range. Previously this was either not checked or the inputs were silently truncated.
2020-09-19 01:58:42 +03:00
:: checks sizes
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
(make-k:curve hash private-key)
++ priv-to-pub
|= private-key=@
zuse: make it clear where the secp jet should make explicit size checks Well-behaved secp jets can now plausibly exit if they are given inputs of the wrong size/range. Previously this was either not checked or the inputs were silently truncated.
2020-09-19 01:58:42 +03:00
:: checks sizes
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
(priv-to-pub:curve private-key)
::
++ ecdsa-raw-sign
~/ %sign
|= [hash=@uvI private-key=@]
^- [v=@ r=@ s=@]
=/ c curve
zuse: make it clear where the secp jet should make explicit size checks Well-behaved secp jets can now plausibly exit if they are given inputs of the wrong size/range. Previously this was either not checked or the inputs were silently truncated.
2020-09-19 01:58:42 +03:00
:: raw-sign checks sizes
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
=+ (ecdsa-raw-sign.c hash private-key)
=/ rp=point [r y]
=/ s-high (gte (mul 2 s) n.domain.c)
=? s s-high
(sub n.domain.c s)
=? rp s-high
[x.rp (sub p.domain.c y.rp)]
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=/ v (end 0 y.rp)
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
=? v (gte x.rp n.domain.c)
(add v 2)
[v x.rp s]
::
++ ecdsa-raw-recover
~/ %reco
|= [hash=@ sig=[v=@ r=@ s=@]]
^- point
?> (lte v.sig 3)
=/ c curve
zuse: make it clear where the secp jet should make explicit size checks Well-behaved secp jets can now plausibly exit if they are given inputs of the wrong size/range. Previously this was either not checked or the inputs were silently truncated.
2020-09-19 01:58:42 +03:00
?> (valid-hash.c hash)
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
?> (in-order.c r.sig)
?> (in-order.c s.sig)
=/ x ?: (gte v.sig 2)
(add r.sig n.domain.c)
r.sig
=/ fop field-p.c
=+ [fadd fmul fpow]=[sum.fop pro.fop exp.fop]
=/ ysq (fadd (fpow 3 x) b.domain.c)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=/ beta (fpow (rsh [0 2] +(p.domain.c)) ysq)
=/ y ?: =((end 0 v.sig) (end 0 beta))
zuse: add refactored secp core (unjetted) The secp core had some flaws: in particular, the logic for signing/recovery did not match libsecbp256k1 w.r.t. the enigmatic "recid" (v) value. The jet hints were also subtly wrong, in that the curve parameters were in a sample (not an arm) and thus not matched by the jet matching scheme. Consequently, the jets would be used (but incorrect) for other curve parameters. Tests were also added to exercise the recovery id cases thoroughly.
2020-09-19 00:47:22 +03:00
beta
(sub p.domain.c beta)
?> =(0 (dif.fop ysq (fmul y y)))
=/ nz (sub n.domain.c hash)
=/ j jc.c
=/ gz (mul.j (into.j g.domain.c) nz)
=/ xy (mul.j (into.j x y) s.sig)
=/ qr (add.j gz xy)
=/ qj (mul.j qr (inv:field-n.c x))
=/ pub (from.j qj)
?< =([0 0] pub)
pub
Add secp core with secp256k to zuse. Not yet fully jet-hinted.
2018-07-13 16:22:34 +03:00
--
--
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]
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(lsh [3 (sub len wid)] dat)
Add argon2 and blake2b to zuse
2018-07-19 22:47:06 +03:00
::
++ compress
|= [h=@ c=@ t=@ud l=?]
^- @
:: set up local work vector
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ v=(add (lsh [6 8] h) iv)
Add argon2 and blake2b to zuse
2018-07-19 22:47:06 +03:00
:: xor the counter t into v
=. v
%- mod-word
:^ v 12 16
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(cury mix (end [0 64] t))
Add argon2 and blake2b to zuse
2018-07-19 22:47:06 +03:00
=. v
%- mod-word
:^ v 13 16
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(cury mix (rsh [0 64] t))
Add argon2 and blake2b to zuse
2018-07-19 22:47:06 +03:00
:: 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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=. h (mix h (rsh [6 8] v))
(mix h (end [6 8] v))
Add argon2 and blake2b to zuse
2018-07-19 22:47:06 +03:00
:: 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)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=. dat.msg (end [3 wid.msg] dat.msg)
=. dat.key (end [3 wid.key] dat.key)
Add argon2 and blake2b to zuse
2018-07-19 22:47:06 +03:00
:: initialize state vector
=+ h=iv
:: mix key length and output length into h0
=. h
%- mod-word
:^ h 0 8
%+ cury mix
%+ add 0x101.0000
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(add (lsh 3 wid.key) out)
Add argon2 and blake2b to zuse
2018-07-19 22:47:06 +03:00
:: 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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
%+ rsh [3 (sub 64 out)]
Add argon2 and blake2b to zuse
2018-07-19 22:47:06 +03:00
:: do some word
%+ rep 6
%+ turn (flop (gulf 0 7))
|= a=@
(rev 3 8 (get-word h a 8))
-- ::blake
::
++ argon2
~% %argon ..is ~
|%
::
:: structures
::
hoon: remove += and +- arm syntax
2020-11-25 18:49:17 +03:00
+$ argon-type ?(%d %i %id %u)
Add argon2 and blake2b to zuse
2018-07-19 22:47:06 +03:00
::
:: 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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
%+ lsh [3 968]
Add argon2 and blake2b to zuse
2018-07-19 22:47:06 +03:00
%+ 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 @ @)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
:- (rev 3 4 (rsh 5 a))
(rev 3 4 (end 5 a))
Add argon2 and blake2b to zuse
2018-07-19 22:47:06 +03:00
::
:: 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
various: use =/ in place of =+ ^- Also faceless =; where appropriate.
2019-12-18 03:48:08 +03:00
=/ [c1=@ c2=@]
Add argon2 and blake2b to zuse
2018-07-19 22:47:06 +03:00
?: 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 -)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
%+ rsh [0 32]
Add argon2 and blake2b to zuse
2018-07-19 22:47:06 +03:00
%+ mul -
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(rsh [0 32] (mul c1 c1))
Add argon2 and blake2b to zuse
2018-07-19 22:47:06 +03:00
:: 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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ end=(cury end 5)
Add argon2 and blake2b to zuse
2018-07-19 22:47:06 +03:00
=. 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)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ res=(rsh [3 32] tmp)
Add argon2 and blake2b to zuse
2018-07-19 22:47:06 +03:00
=. out (sub out 32)
|-
?: (gth out 64)
=. tmp (blake2b 64^tmp 0^0 64)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=. res (add (lsh [3 32] res) (rsh [3 32] tmp))
Add argon2 and blake2b to zuse
2018-07-19 22:47:06 +03:00
$(out (sub out 32))
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
%+ add (lsh [3 out] res)
Add argon2 and blake2b to zuse
2018-07-19 22:47:06 +03:00
(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
hoon: (and %zuse) use +run and +rut where appropriate
2020-12-01 22:58:45 +03:00
=. dat (run 5 dat |=(a=@ (rev 3 4 a)))
Add RIPEMD-160 to zuse Jet hinted but not yet implemented.
2018-07-20 01:20:19 +03:00
=* 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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
~[64^(rev 3 8 wid) +(-)^(lsh [0 -] 1) wid^dat]
Add RIPEMD-160 to zuse Jet hinted but not yet implemented.
2018-07-20 01:20:19 +03:00
--
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=@]
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=> .(dat.p (end [3 wid.p] dat.p), dat.s (end [3 wid.s] dat.s))
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
::
:: 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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
%+ lsh [3 wid.s]
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
%+ 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))
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
$(t (add t (lsh [3 (mul (dec j) out)] f)), j +(j))
(rev 3 d (end [3 d] t))
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
--
%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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|* lum=(map term (unit))
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
zuse: make +drop-pole produce a unit Both +drop-list and +drop-map produce units instead of crashing. This makes +drop-pole match that behavior, producing a unit of the resulting tuple.
2020-06-28 21:50:21 +03:00
++ drop-pole :: collapse to tuple
|^ |* pul=(pole (unit))
?: (test-pole pul) ~
(some (need-pole pul))
::
++ test-pole
|* pul=(pole (unit))
^- ?
?~ pul &
?| ?=(~ -.pul)
?~(+.pul | (test-pole +.pul))
==
::
++ need-pole
|* pul=(pole (unit))
?~ pul !!
?~ +.pul
u:->.pul
[u:->.pul (need-pole +.pul)]
--
%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
|%
arvo: change sample type of ++to-wain:format to @t @t further indicates to the caller (although loosely, because auras are loosely enforced types) that the input should not contain embedded NUL bytes, which are not valid @t. Separately, a minor improvement has been made to the performance of the raw hoon by pinning the gates used in the inner loop.
2020-07-27 19:22:54 +03:00
:: 0 ending a line (invalid @t) is not preserved :: ++to-wain:format
arvo: updates +of-wain:format sample and consistently uses $cord and $wain in of/to-wain
2020-09-19 01:31:33 +03:00
++ to-wain :: cord to line list
arvo: accept embedded nulls in to-wain:format Prior to this commit, there was a jet mismatch in to-wain (formerly called lore, and still jetted under that name). 0 bytes in the middle of a cord caused the jet to crash, whereas the hoon simply treated them as the end of cord and truncated the output. The history of this behavior is fraught with controversy. This commit rectifies the current mess with the following rationale: Null bytes are valid ASCII/UTF-8, and \n\n in the input will cause null list items in the output, so nulls are (for the purposes of to-wain) allowed in cords. Trailing nulls cannot be represented because of the nature of atoms, but that is outside the scope of to-wain's concern. Therefore to-wain should simply measure the cord and split on newlines, and do nothing fancy at all with nulls. In addition, the hoon for to-wain was written in an inefficient style that produced a lot of intermediate garbage atoms via rsh and cat. This commit's implementation measures once and cuts once, so to speak, and so avoids the intermediate garbage. Quick benchmarks suggest it is about 20x faster than the old hoon, but still orders of magnitude slower than the jetted code. to-wain is the workhorse for the txt mark, so we should still prefer to have a jet. The old jet is left wired up under %lore, and should be removed when support for the old, unupgraded zuse is no longer necessary. A new jet with matching null handling has been wired up under the name %leer.
2020-07-25 00:03:08 +03:00
~% %leer ..is ~
arvo: updates +of-wain:format sample and consistently uses $cord and $wain in of/to-wain
2020-09-19 01:31:33 +03:00
|= txt=cord
^- wain
arvo: accept embedded nulls in to-wain:format Prior to this commit, there was a jet mismatch in to-wain (formerly called lore, and still jetted under that name). 0 bytes in the middle of a cord caused the jet to crash, whereas the hoon simply treated them as the end of cord and truncated the output. The history of this behavior is fraught with controversy. This commit rectifies the current mess with the following rationale: Null bytes are valid ASCII/UTF-8, and \n\n in the input will cause null list items in the output, so nulls are (for the purposes of to-wain) allowed in cords. Trailing nulls cannot be represented because of the nature of atoms, but that is outside the scope of to-wain's concern. Therefore to-wain should simply measure the cord and split on newlines, and do nothing fancy at all with nulls. In addition, the hoon for to-wain was written in an inefficient style that produced a lot of intermediate garbage atoms via rsh and cat. This commit's implementation measures once and cuts once, so to speak, and so avoids the intermediate garbage. Quick benchmarks suggest it is about 20x faster than the old hoon, but still orders of magnitude slower than the jetted code. to-wain is the workhorse for the txt mark, so we should still prefer to have a jet. The old jet is left wired up under %lore, and should be removed when support for the old, unupgraded zuse is no longer necessary. A new jet with matching null handling has been wired up under the name %leer.
2020-07-25 00:03:08 +03:00
=/ len=@ (met 3 txt)
arvo: change sample type of ++to-wain:format to @t @t further indicates to the caller (although loosely, because auras are loosely enforced types) that the input should not contain embedded NUL bytes, which are not valid @t. Separately, a minor improvement has been made to the performance of the raw hoon by pinning the gates used in the inner loop.
2020-07-27 19:22:54 +03:00
=/ cut =+(cut -(a 3, c 1, d txt))
=/ sub sub
arvo: updates +of-wain:format sample and consistently uses $cord and $wain in of/to-wain
2020-09-19 01:31:33 +03:00
=| [i=@ out=wain]
arvo: accept embedded nulls in to-wain:format Prior to this commit, there was a jet mismatch in to-wain (formerly called lore, and still jetted under that name). 0 bytes in the middle of a cord caused the jet to crash, whereas the hoon simply treated them as the end of cord and truncated the output. The history of this behavior is fraught with controversy. This commit rectifies the current mess with the following rationale: Null bytes are valid ASCII/UTF-8, and \n\n in the input will cause null list items in the output, so nulls are (for the purposes of to-wain) allowed in cords. Trailing nulls cannot be represented because of the nature of atoms, but that is outside the scope of to-wain's concern. Therefore to-wain should simply measure the cord and split on newlines, and do nothing fancy at all with nulls. In addition, the hoon for to-wain was written in an inefficient style that produced a lot of intermediate garbage atoms via rsh and cat. This commit's implementation measures once and cuts once, so to speak, and so avoids the intermediate garbage. Quick benchmarks suggest it is about 20x faster than the old hoon, but still orders of magnitude slower than the jetted code. to-wain is the workhorse for the txt mark, so we should still prefer to have a jet. The old jet is left wired up under %lore, and should be removed when support for the old, unupgraded zuse is no longer necessary. A new jet with matching null handling has been wired up under the name %leer.
2020-07-25 00:03:08 +03:00
|- ^+ out
=+ |- ^- j=@
?: ?| =(i len)
arvo: change sample type of ++to-wain:format to @t @t further indicates to the caller (although loosely, because auras are loosely enforced types) that the input should not contain embedded NUL bytes, which are not valid @t. Separately, a minor improvement has been made to the performance of the raw hoon by pinning the gates used in the inner loop.
2020-07-27 19:22:54 +03:00
=(10 (cut(b i)))
arvo: accept embedded nulls in to-wain:format Prior to this commit, there was a jet mismatch in to-wain (formerly called lore, and still jetted under that name). 0 bytes in the middle of a cord caused the jet to crash, whereas the hoon simply treated them as the end of cord and truncated the output. The history of this behavior is fraught with controversy. This commit rectifies the current mess with the following rationale: Null bytes are valid ASCII/UTF-8, and \n\n in the input will cause null list items in the output, so nulls are (for the purposes of to-wain) allowed in cords. Trailing nulls cannot be represented because of the nature of atoms, but that is outside the scope of to-wain's concern. Therefore to-wain should simply measure the cord and split on newlines, and do nothing fancy at all with nulls. In addition, the hoon for to-wain was written in an inefficient style that produced a lot of intermediate garbage atoms via rsh and cat. This commit's implementation measures once and cuts once, so to speak, and so avoids the intermediate garbage. Quick benchmarks suggest it is about 20x faster than the old hoon, but still orders of magnitude slower than the jetted code. to-wain is the workhorse for the txt mark, so we should still prefer to have a jet. The old jet is left wired up under %lore, and should be removed when support for the old, unupgraded zuse is no longer necessary. A new jet with matching null handling has been wired up under the name %leer.
2020-07-25 00:03:08 +03:00
==
i
$(i +(i))
=. out :_ out
arvo: change sample type of ++to-wain:format to @t @t further indicates to the caller (although loosely, because auras are loosely enforced types) that the input should not contain embedded NUL bytes, which are not valid @t. Separately, a minor improvement has been made to the performance of the raw hoon by pinning the gates used in the inner loop.
2020-07-27 19:22:54 +03:00
(cut(b i, c (sub j i)))
arvo: accept embedded nulls in to-wain:format Prior to this commit, there was a jet mismatch in to-wain (formerly called lore, and still jetted under that name). 0 bytes in the middle of a cord caused the jet to crash, whereas the hoon simply treated them as the end of cord and truncated the output. The history of this behavior is fraught with controversy. This commit rectifies the current mess with the following rationale: Null bytes are valid ASCII/UTF-8, and \n\n in the input will cause null list items in the output, so nulls are (for the purposes of to-wain) allowed in cords. Trailing nulls cannot be represented because of the nature of atoms, but that is outside the scope of to-wain's concern. Therefore to-wain should simply measure the cord and split on newlines, and do nothing fancy at all with nulls. In addition, the hoon for to-wain was written in an inefficient style that produced a lot of intermediate garbage atoms via rsh and cat. This commit's implementation measures once and cuts once, so to speak, and so avoids the intermediate garbage. Quick benchmarks suggest it is about 20x faster than the old hoon, but still orders of magnitude slower than the jetted code. to-wain is the workhorse for the txt mark, so we should still prefer to have a jet. The old jet is left wired up under %lore, and should be removed when support for the old, unupgraded zuse is no longer necessary. A new jet with matching null handling has been wired up under the name %leer.
2020-07-25 00:03:08 +03:00
?: =(j len)
(flop out)
$(i +(j))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++of-wain:format
arvo: updates +of-wain:format sample and consistently uses $cord and $wain in of/to-wain
2020-09-19 01:31:33 +03:00
++ of-wain :: line list to cord
|= tez=wain ^- cord
zuse: make of-wain:format use linear space
2019-08-25 06:24:23 +03:00
(rap 3 (join '\0a' tez))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++of-wall:format
++ of-wall :: line list to tape
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= a=wall ^- tape
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
?~(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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= bem=beam
%velo reset works.
2016-12-02 04:17:02 +03:00
^- path
zuse, clay, various: unflop the spur in beams Unflops the spur in +en-beam, +de-beam, and everything that calls either of those, or works with the consequences of their output. This includes clay's interface for mounting and unmounting, which now no longer expects the arguments to contain an old-style spur.
2020-11-24 04:20:36 +03:00
[(scot %p p.bem) q.bem (scot r.bem) s.bem]
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++de-beam:format
++ de-beam :: parse path to beam
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= pax=path
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (unit beam)
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?. ?=([* * * *] pax) ~
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ biff (slaw %p i.pax)
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= who=ship
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ biff (slaw %tas i.t.pax)
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= dex=desk
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ biff (slay i.t.t.pax)
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= cis=coin
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?. ?=([%$ case] cis) ~
zuse, clay, various: unflop the spur in beams Unflops the spur in +en-beam, +de-beam, and everything that calls either of those, or works with the consequences of their output. This includes clay's interface for mounting and unmounting, which now no longer expects the arguments to contain an old-style spur.
2020-11-24 04:20:36 +03:00
`(unit beam)`[~ [who dex `case`p.cis] t.t.t.pax]
zuse: implement json number to @rd parsing
2019-11-26 16:19:00 +03:00
::
++ json-rn :: json to rn parser
%+ knee *rn |.
;~ plug
(easy %d)
;~(pose (cold | hep) (easy &))
;~ plug dim:ag
;~ pose
;~ pfix dot
%+ sear
|= a=tape
=/ b (rust a dum:ag)
?~ b ~
(some [(lent a) u.b])
(plus (shim '0' '9'))
==
(easy [0 0])
==
;~ pose
;~ pfix
zuse: improve json to rn parsing Allow the exponent token to be 'e' or 'E', allow the explicit sign of '+'. Following the spec at https://json.org. Fixes #2935.
2020-05-25 16:51:09 +03:00
(mask "eE")
zuse: implement json number to @rd parsing
2019-11-26 16:19:00 +03:00
;~ plug
zuse: improve json to rn parsing Allow the exponent token to be 'e' or 'E', allow the explicit sign of '+'. Following the spec at https://json.org. Fixes #2935.
2020-05-25 16:51:09 +03:00
;~(pose (cold | hep) (cold & lus) (easy &))
zuse: implement json number to @rd parsing
2019-11-26 16:19:00 +03:00
;~ pose
;~(pfix (plus (just '0')) dim:ag)
dim:ag
==
==
==
(easy [& 0])
==
==
==
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++enjs:format
++ enjs ^? :: json encoders
|%
:: :: ++frond:enjs:format
++ frond :: object from k-v pair
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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))
zuse: added path, tank, string utils to en/dejs
2019-09-25 01:31:14 +03:00
:: :: ++path:enjs:format
++ path :: string from path
|= a=^path
^- json
[%s (spat a)]
:: :: ++tank:enjs:format
++ tank :: tank as string arr
|= a=^tank
^- json
[%a (turn (wash [0 80] a) tape)]
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|* wit=fist
|= jon=json ^- (list _(wit *json))
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?> ?=([%a *] jon)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
(turn p.jon wit)
zuse: added path, tank, string utils to en/dejs
2019-09-25 01:31:14 +03:00
:: :: ++as:dejs:format
++ as :: array as set
|* a=fist
(cu ~(gas in *(set _$:a)) (ar a))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++at:dejs:format
++ at :: array as tuple
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|* wil=(pole fist)
|= jon=json
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?> ?=([%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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: touch up improperly rewritten comments Also patches /mar/snip to be more correct, but a &snip [~ ~] in dojo still does not work.
2020-11-27 15:25:40 +03:00
:: [wit=* t=*]
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[* 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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|* [poq=gate wit=fist]
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= jon=json
Move merged vanes back.
2016-12-02 22:34:07 +03:00
(need (poq (wit jon)))
:: :: ++cu:dejs:format
++ cu :: transform
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|* [poq=gate wit=fist]
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= jon=json
Move merged vanes back.
2016-12-02 22:34:07 +03:00
(poq (wit jon))
:: :: ++di:dejs:format
++ di :: millisecond date
%+ cu
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= jon=json
zuse: implement json number to @rd parsing
2019-11-26 16:19:00 +03:00
^- @rd
?> ?=([%n *] jon)
(rash p.jon (cook ryld (cook royl-cell:^so json-rn)))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++ni:dejs:format
++ ni :: number as integer
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= jon=json
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?> ?=([%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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|* wer=(pole [cord fist])
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= jon=json
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?> ?=([%o [@ *] ~ ~] jon)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
|-
?- wer :: mint-vain on empty
various: touch up improperly rewritten comments Also patches /mar/snip to be more correct, but a &snip [~ ~] in dojo still does not work.
2020-11-27 15:25:40 +03:00
:: [[key=@t wit=*] t=*]
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[[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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|* wer=(pole [cord fist])
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= jon=json
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?> ?=([%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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|* wer=(pole [cord fist])
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= jom=(map @t json)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
?- wer :: mint-vain on empty
various: touch up improperly rewritten comments Also patches /mar/snip to be more correct, but a &snip [~ ~] in dojo still does not work.
2020-11-27 15:25:40 +03:00
:: [[key=@t wit=*] t=*]
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[[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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|* wer=(pole [cord fist])
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= jon=json
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?> ?=([%o *] jon)
handle json objects without all keys
2018-10-25 01:08:15 +03:00
((ou-raw wer) p.jon)
:: :: ++ou-raw:dejs:format
++ ou-raw :: object of units
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|* wer=(pole [cord fist])
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= jom=(map @t json)
handle json objects without all keys
2018-10-25 01:08:15 +03:00
?- wer :: mint-vain on empty
various: touch up improperly rewritten comments Also patches /mar/snip to be more correct, but a &snip [~ ~] in dojo still does not work.
2020-11-27 15:25:40 +03:00
:: [[key=@t wit=*] t=*]
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
[[key=@t *] t=*]
handle json objects without all keys
2018-10-25 01:08:15 +03:00
=> .(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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|* wit=fist
|= jon=json
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?> ?=([%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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|* [fel=rule wit=fist]
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= 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)
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|* [a=cord b=*]
Move merged vanes back.
2016-12-02 22:34:07 +03:00
=> .(+< [a b]=+<)
[(rash a fel) b]
zuse: added path, tank, string utils to en/dejs
2019-09-25 01:31:14 +03:00
:: :: ++pa:dejs:format
++ pa :: string as path
hoon: bat/net to bas/fas
2020-05-28 14:58:18 +03:00
(su ;~(pfix fas (more fas urs:ab)))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++pe:dejs:format
++ pe :: prefix
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|=(jon=json ?>(?=([%s *] jon) (trip p.jon)))
zuse: added path, tank, string utils to en/dejs
2019-09-25 01:31:14 +03:00
:: :: ++se:dejs:format
++ se :: string as aura
|= aur=@tas
|= jon=json
?>(?=([%s *] jon) (slav aur p.jon))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++so:dejs:format
++ so :: string as cord
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|* sab=rule
|= jon=json ^+ (wonk *sab)
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?> ?=([%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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|* [def=* wit=fist]
|= jon=(unit json)
handle json objects without all keys
2018-10-25 01:08:15 +03:00
?~(jon def (wit u.jon))
:: :: ++un:dejs:format
++ un :: unit need
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|* wit=fist
|= jon=(unit json)
handle json objects without all keys
2018-10-25 01:08:15 +03:00
(wit (need jon))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++ul:dejs:format
++ ul :: null
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|=(jon=json ?~(jon ~ !!))
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
::
++ za :: full unit pole
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|* lum=(map term (unit))
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|* wit=fist
|= jon=json
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?. ?=([%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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|* wil=(pole fist)
|= jon=json
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?. ?=([%a *] jon) ~
Change at:dejs-soft:format to reject too-long json arrays `at` is for when you expect an array of a certain exact structure. If it has extra elements, that indicates you were mistaken about the strucutre, so it should fail to match.
2020-04-06 20:47:49 +03:00
?. =((lent wil) (lent p.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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|* [poq=gate wit=fist]
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= 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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|* [poq=gate wit=fist]
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= 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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= jon=json
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?. ?=([%s *] jon) ~
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
(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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= jon=json
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (unit @rd)
zuse: implement json number to @rd parsing
2019-11-26 16:19:00 +03:00
?. ?=([%n *] jon) ~
(rush p.jon (cook ryld (cook royl-cell:^so json-rn)))
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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= jon=json
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= jon=json
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?. ?=([%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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|* wer=(pole [cord fist])
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= jon=json
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|* wer=(pole [cord fist])
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= jon=json
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?. ?=([%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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|* wer=(pole [cord fist])
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= 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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|* wit=fist
|= jon=json
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?. ?=([%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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|* [fel=rule wit=fist]
Remove trailing whitespace
2019-01-18 08:37:34 +03:00
%+ cu
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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)
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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)
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= jon=json
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?.(?=([%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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= jon=json
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?.(?=([%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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|* sab=rule
|= jon=json
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?. ?=([%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
::
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
++ ul |=(jon=json ?~(jon (some ~) ~)) :: null
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
++ za :: full unit pole
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|* lum=(map term (unit))
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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 ~
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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)])
==
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= gay=(list @ud)
%velo reset works.
2016-12-02 04:17:02 +03:00
^+ +>
=+ ^= zes
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|* [hel=(list) hev=(list) lcs=(list)]
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ^= rag
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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 ::
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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 ^?
zuse: adds |base16 hex $oct en/decoder
2020-09-25 08:11:00 +03:00
~% %mimes ..is ~
%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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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)])
zuse: adds |base16 hex $oct en/decoder
2020-09-25 08:11:00 +03:00
::
:: |base16: en/decode arbitrary MSB-first hex strings
::
++ base16
~% %base16 + ~
|%
++ en
~/ %en
zuse: rewrites |base16 for clarity, simplicity, specificity
2020-10-03 22:48:37 +03:00
|= a=octs ^- cord
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(crip ((x-co:co (mul p.a 2)) (end [3 p.a] q.a)))
zuse: adds |base16 hex $oct en/decoder
2020-09-25 08:11:00 +03:00
::
++ de
~/ %de
zuse: rewrites |base16 for clarity, simplicity, specificity
2020-10-03 22:48:37 +03:00
|= a=cord ^- (unit octs)
zuse: adds |base16 hex $oct en/decoder
2020-09-25 08:11:00 +03:00
(rush a rule)
::
++ rule
zuse: rewrites |base16 for clarity, simplicity, specificity
2020-10-03 22:48:37 +03:00
%+ cook
|= a=(list @) ^- octs
hoon: removes +repn and +ripn
2020-12-02 04:56:45 +03:00
[(add (dvr (lent a) 2)) (rep [0 4] (flop a))]
zuse: rewrites |base16 for clarity, simplicity, specificity
2020-10-03 22:48:37 +03:00
(star hit)
zuse: adds |base16 hex $oct en/decoder
2020-09-25 08:11:00 +03:00
--
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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= tig=@
%velo reset works.
2016-12-02 04:17:02 +03:00
^- tape
=+ poc=(~(dif fo 3) 0 (met 3 tig))
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ pad=(lsh [3 poc] (swp 3 tig))
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ^= 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
~
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ d=(end [0 6] pad)
[(cut 3 [d 1] cha) $(pad (rsh [0 6] pad))]
%velo reset works.
2016-12-02 04:17:02 +03:00
(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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|^ |=(val=json (apex val ""))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++apex:en-json:html
++ apex
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [val=json rez=tape]
%velo reset works.
2016-12-02 04:17:02 +03:00
^- tape
?~ val (weld "null" rez)
?- -.val
various: move away from $constant type syntax
2020-11-25 22:39:13 +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)])
::
various: move away from $constant type syntax
2020-11-25 22:39:13 +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)
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?: ?=([@ ~] hed)
%velo reset works.
2016-12-02 04:17:02 +03:00
[i.hed $(viz t.viz)]
(weld hed $(viz t.viz))
::
various: move away from $constant type syntax
2020-11-25 22:39:13 +03:00
%o
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:- '{'
hoon: remove {type} syntax
2020-11-26 18:03:08 +03:00
=. 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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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))
various: move away from $constant type syntax
2020-11-25 22:39:13 +03:00
%10 "\\n"
%34 "\\\""
%92 "\\\\"
%velo reset works.
2016-12-02 04:17:02 +03:00
==
-- ::en-json
:: :: ++de-json:html
++ de-json :: parse JSON
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
hoon: lac/rac to sel/ser
2020-05-28 14:14:23 +03:00
(ifix [sel (wish ser)] (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)
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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))
hoon: bat/net to bas/fas
2020-05-28 14:58:18 +03:00
;~(pose doq fas soq 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
hoon: yel to doq
2020-05-28 12:01:25 +03:00
;~(pose ;~(less doq bas prn) esca)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++mayb:de-json:html
++ mayb :: optional
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
hoon: leb/reb to kel/ker
2020-05-28 15:20:04 +03:00
%+ ifix [(wish kel) (wish ker)]
%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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
hoon: yel to doq
2020-05-28 12:01:25 +03:00
(cook crip (ifix [doq doq] (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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [mex=manx rez=tape]
%velo reset works.
2016-12-02 04:17:02 +03:00
^- tape
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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)])
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from $constant type syntax
2020-11-25 22:39:13 +03:00
%34 ['&' 'q' 'u' 'o' 't' ';' rez]
%38 ['&' 'a' 'm' 'p' ';' rez]
%39 ['&' '#' '3' '9' ';' rez]
%60 ['&' 'l' 't' ';' rez]
%62 ['&' 'g' 't' ';' rez]
%velo reset works.
2016-12-02 04:17:02 +03:00
* [i.xet rez]
==
==
:: :: ++many:en-xml:html
++ many :: nodelist to tape
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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 |. ~+
zuse: make octs value @ again eaa69ec had reverted the change from c46061e.
2020-11-24 18:07:49 +03:00
%+ ifix
zuse: de-xml:html handles declarations as in spec
2020-08-31 18:57:54 +03:00
[;~(plug (punt decl) (star spa)) (star spa)]
%velo reset works.
2016-12-02 04:17:02 +03:00
;~ pose
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
zuse: allow whitespace around = in attr:de-xml:html Allow one or more whitespace characters before and/or after the equals sign in name attribute pairs, such as `<hello a = "yo" />` or `<hello a= "yo" />`. Following the spec at https://www.w3.org/TR/2006/REC-xml11-20060816/#NT-Eq.
2020-05-11 20:58:47 +03:00
%+ ifix
hoon: yel to doq
2020-05-28 12:01:25 +03:00
:_ doq
;~(plug (ifix [. .]:(star whit) tis) doq)
(star ;~(less doq escp))
zuse: allow whitespace around = in attr:de-xml:html Allow one or more whitespace characters before and/or after the equals sign in name attribute pairs, such as `<hello a = "yo" />` or `<hello a= "yo" />`. Following the spec at https://www.w3.org/TR/2006/REC-xml11-20060816/#NT-Eq.
2020-05-11 20:58:47 +03:00
::
%+ ifix
hoon: say to soq
2020-05-28 11:17:41 +03:00
:_ soq
;~(plug (ifix [. .]:(star whit) tis) soq)
(star ;~(less soq escp))
zuse: allow whitespace around = in attr:de-xml:html Allow one or more whitespace characters before and/or after the equals sign in name attribute pairs, such as `<hello a = "yo" />` or `<hello a= "yo" />`. Following the spec at https://www.w3.org/TR/2006/REC-xml11-20060816/#NT-Eq.
2020-05-11 20:58:47 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
(easy ~)
==
==
zuse: added CDATA support to de-xml:html
2019-08-28 05:24:06 +03:00
:: :: ++cdat:de-xml:html
++ cdat :: CDATA section
%+ cook
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|=(a=tape ^-(mars ;/(a)))
zuse: added CDATA support to de-xml:html
2019-08-28 05:24:06 +03:00
%+ ifix
[(jest '<![CDATA[') (jest ']]>')]
%- star
;~(less (jest ']]>') next)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++chrd:de-xml:html
++ chrd :: character data
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
%+ cook |=(a=tape ^-(mars ;/(a)))
hoon: yel to doq
2020-05-28 12:01:25 +03:00
(plus ;~(less doq ;~(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)
==
zuse: allow xml declaration in +de-xml:html Allows for parsing of an xml declaration. Throws it away, as the datastructure doesn't have anywhere to put the result
2020-08-31 05:20:50 +03:00
::
++ decl :: ++decl:de-xml:html
%+ ifix :: XML declaration
[(jest '<?xml') (jest '?>')]
%- star
;~(less (jest '?>') prn)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++escp:de-xml:html
++ escp ::
hoon: led/ban to gal/gar
2020-05-28 12:46:13 +03:00
;~(pose ;~(less gal gar pam prn) enty)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++enty:de-xml:html
++ enty :: entity
hoon: pad to pam
2020-05-28 10:06:00 +03:00
%+ ifix pam^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)))
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
hoon: led/ban to gal/gar
2020-05-28 12:46:13 +03:00
(ifix [gal gar] ;~(plug name attr))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++many:de-xml:html
++ many :: contents
zuse: fix comment parsing in de-xml:html
2019-09-06 06:00:36 +03:00
;~(pfix (star comt) (star ;~(sfix ;~(pose apex chrd cdat) (star comt))))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++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
hoon: led/ban to gal/gar
2020-05-28 12:46:13 +03:00
(ifix [(jest '</') gar] 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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= tep=tape
%velo reset works.
2016-12-02 04:17:02 +03:00
^- tape
%- zing
%+ turn tep
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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 ~]
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
['%' (xen (rsh [0 4] tap)) (xen (end [0 4] tap)) ~]
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++de-urlt:html
++ de-urlt :: url decode
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= tep=tape
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (unit tape)
?~ tep [~ ~]
?: =('%' i.tep)
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
?. ?=([@ @ *] t.tep) ~
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ nag=(mix i.t.tep (lsh 3 i.t.t.tep))
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ 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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
=< |=(pul=purl `tape`(apex %& pul))
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
:: :: ++apex:en-purl:html
++ apex ::
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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 ::
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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 ::
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
%| (trip (rsh 3 (scot %if p.r.har)))
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%& =+ 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 ::
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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]
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
=/ raf=(like term)
zuse: improve url extension parsing Previously extensions ending with numbers such as .woff2 were not recognized.
2020-11-03 16:54:10 +03:00
%- ;~ sfix
%+ sear
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|=(a=@ ((sand %ta) (crip (flop (trip a)))))
(cook |=(a=tape (rap 3 ^-((list @) a))) (star aln))
zuse: improve url extension parsing Previously extensions ending with numbers such as .woff2 were not recognized.
2020-11-03 16:54:10 +03:00
dot
==
[1^1 (flop (trip i.rax))]
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ q.raf
[~ [i.rax ~]]
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
hoon: bat/net to bas/fas
2020-05-28 14:58:18 +03:00
;~(pfix fas (more fas smeg))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++aurf:de-purl:html
++ aurf :: 2396 with fragment
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
hoon: vat to pat
2020-05-28 10:45:04 +03:00
;~(plug htts (punt ;~(sfix urt:ab pat)) 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+& ~]))
hoon: bat/net to bas/fas
2020-05-28 14:58:18 +03:00
;~(sfix scem ;~(plug col fas fas))
%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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= a=@ta
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
?.(=('-' (rsh [3 (dec (met 3 a))] a)) [~ u=a] ~)
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
hoon: vat to pat
2020-05-28 10:45:04 +03:00
;~(pose pure pesc psub col pat)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++pcok:de-purl:html
++ pcok :: cookie char
hoon: yel to doq
2020-05-28 12:01:25 +03:00
;~(less bas mic com doq 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
hoon: bat/net to bas/fas
2020-05-28 14:58:18 +03:00
;~(pose pcar fas wut)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++pquo:de-purl:html
++ pquo :: normal query char
hoon: bat/net to bas/fas
2020-05-28 14:58:18 +03:00
;~(pose pure pesc pold fas wut col com)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++pure:de-purl:html
++ pure :: 2396 unreserved
hoon: update glyph names (continued)
2020-11-15 08:08:52 +03:00
;~(pose aln hep cab dot zap sig tar soq pal par)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++psub:de-purl:html
++ psub :: 3986 sub-delims
;~ pose
hoon: lit/rit to pal/par
2020-05-28 13:31:50 +03:00
zap buc pam soq pal par
Porting work in progress.
2018-08-16 04:37:13 +03:00
tar lus com mic tis
%velo reset works.
2016-12-02 04:17:02 +03:00
==
:: :: ++ptok:de-purl:html
++ ptok :: 2616 token
;~ pose
hoon: say to soq
2020-05-28 11:17:41 +03:00
aln zap hax buc cen pam soq tar lus
hoon: tec to tic
2020-05-28 09:44:36 +03:00
hep dot ket cab tic bar sig
%velo reset works.
2016-12-02 04:17:02 +03:00
==
:: :: ++scem:de-purl:html
++ scem :: 2396 scheme
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
zuse: allow empty segments in de-purl url parsing RFC 2396 specifies that segments must be zero or more pchars.[1] We were deviating from this by requiring at least one pchar per segment. With this change, we support /some//path, and no longer lose the trailing slash in /some/path/. [1]: https://tools.ietf.org/html/rfc2396#section-3.3
2020-04-02 15:44:45 +03:00
(cook crip (star pcar))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++tock:de-purl:html
++ tock :: 6265 raw value
(cook crip (plus pcok))
:: :: ++tosk:de-purl:html
++ tosk :: 6265 quoted value
hoon: yel to doq
2020-05-28 12:01:25 +03:00
;~(pose tock (ifix [doq doq] 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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= a=(list @t)
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ b=(flop a)
?> ?=(^ b)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=+ c=(end 3 i.b)
%velo reset works.
2016-12-02 04:17:02 +03:00
?.(&((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
hoon: pad to pam
2020-05-28 10:06:00 +03:00
;~(pose pam mic)
%velo reset works.
2016-12-02 04:17:02 +03:00
;~(plug fque ;~(pose ;~(pfix tis fquu) (easy '')))
::
:: funky query
::
%+ cook
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
adds +en-/de-turf encoding functions to |html in %zuse
2019-06-24 23:38:26 +03:00
:: +en-turf: encode +turf as a TLD-last domain string
::
++ en-turf
|= =turf
^- @t
(rap 3 (flop (join '.' turf)))
:: +de-turf: parse a TLD-last domain string into a TLD first +turf
::
++ de-turf
|= host=@t
^- (unit turf)
%+ rush host
%+ sear
|= =host:eyre
?.(?=(%& -.host) ~ (some p.host))
thos:de-purl:html
::
%velo reset works.
2016-12-02 04:17:02 +03:00
:: MOVEME
:: :: ++fuel:html
++ fuel :: parse urbit fcgi
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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]
Change the interface, since apps shouldn't need to have two arms for progress.
2019-02-16 02:44:00 +03:00
::
++ hiss-to-request
|= =hiss
^- request:http
::
:* ?- p.q.hiss
%conn %'CONNECT'
%delt %'DELETE'
%get %'GET'
%head %'HEAD'
%opts %'OPTIONS'
%post %'POST'
%put %'PUT'
%trac %'TRACE'
==
::
(crip (en-purl:html p.hiss))
::
^- header-list:http
~! q.q.hiss
%+ turn ~(tap by q.q.hiss)
|= [a=@t b=(list @t)]
^- [@t @t]
?> ?=(^ b)
[a i.b]
::
r.q.hiss
==
mall: convert aqua vane handlers to mall
2019-09-25 04:57:05 +03:00
-- :: html
%velo reset works.
2016-12-02 04:17:02 +03:00
:: ::
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 ^?
|%
:: :: ++dray:wired
++ dray :: load tuple in path
::
:: .= ~[p=~.ack q=~.~sarnel r=~..y]
:: (dray ~[p=%tas q=%p r=%f] %ack ~sarnel &)
::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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)]
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
:- paf=|*(a=(pole) ?~(a ,~ ,[(odo:raid ,-.a(. %ta)) ,(..$ +.a)]))
%velo reset works.
2016-12-02 04:17:02 +03:00
^= tup
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|* [a=@tas b=(pole @tas)]
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ c=(odo:raid a)
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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 @
various: move away from $constant type syntax
2020-11-25 22:39:13 +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
various: touch up improperly rewritten comments Also patches /mar/snip to be more correct, but a &snip [~ ~] in dojo still does not work.
2020-11-27 15:25:40 +03:00
:: =< |*([a=path b=[@tas (pole @tas)]] ((+> b) a))
:: |* b=[@tas (pole @tas)]
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
:: |= 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)
various: touch up improperly rewritten comments Also patches /mar/snip to be more correct, but a &snip [~ ~] in dojo still does not work.
2020-11-27 15:25:40 +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
zuse: add +name:title for (moon) identity
2019-11-21 23:38:17 +03:00
:: :: ++name:title
++ name :: identity
|= who=ship
^- ship
?. ?=(%earl (clan who)) who
(sein who)
updates sein:title to use %jael scry, adds ^sein:title
2018-10-15 09:23:34 +03:00
:: :: ++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
various: move away from $constant type syntax
2020-11-25 22:39:13 +03:00
%czar who
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
%king (end 3 who)
%duke (end 4 who)
%earl (end 5 who)
%pawn (end 4 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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
kale -> jael
2019-08-07 01:42:37 +03:00
%j
updates sein:title to use %jael scry, adds ^sein:title
2018-10-15 09:23:34 +03:00
/(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)
various: move away from $constant type syntax
2020-11-25 22:39:13 +03:00
&(?=(%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 ^|
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|_ now=@da
Uncompiled, but should bring up children.
2017-06-09 02:57:38 +03:00
:: :: ++around:milly
++ around :: relative msec
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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]
Fix capped queues to not crash when the size is set to 0.
2019-08-07 00:59:33 +03:00
:: max is zero, the oldest item to return is the one which just went in.
::
?: =(~ queue.queue)
[`item queue]
+capped-queue is also general. Move to zuse and add tests.
2018-08-28 01:25:33 +03:00
:: 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
--
zuse: added mop, a mold builder for ordered-maps
2020-06-04 23:38:18 +03:00
::
zuse: added docstring and warning
2020-07-22 00:39:42 +03:00
:: +mop: constructs and validates ordered ordered map based on key,
:: val, and comparator gate
::
zuse: added mop, a mold builder for ordered-maps
2020-06-04 23:38:18 +03:00
++ mop
|* [key=mold value=mold]
|= ord=$-([key key] ?)
|= a=*
=/ b ;;((tree [key=key val=value]) a)
?> (check-balance:((ordered-map key value) ord) b)
b
::
zuse: add +ordered-map At some point this should be more properly styled similar to +by, +in, and +to, but for now this reduces duplication and makes the ordered map available to everyone.
2020-05-22 08:28:16 +03:00
:: $mk-item: constructor for +ordered-map item type
::
++ mk-item |$ [key val] [key=key val=val]
:: +ordered-map: treap with user-specified horizontal order
::
:: Conceptually smaller items go on the left, so the item with the
:: smallest key can be popped off the head. If $key is `@` and
:: .compare is +lte, then the numerically smallest item is the head.
::
zuse: added docstring and warning
2020-07-22 00:39:42 +03:00
:: WARNING: ordered-map will not work properly if two keys can be
:: unequal under noun equality but equal via the compare gate
::
zuse: add +ordered-map At some point this should be more properly styled similar to +by, +in, and +to, but for now this reduces duplication and makes the ordered map available to everyone.
2020-05-22 08:28:16 +03:00
++ ordered-map
|* [key=mold val=mold]
=> |%
+$ item (mk-item key val)
--
:: +compare: item comparator for horizontal order
::
|= compare=$-([key key] ?)
|%
:: +check-balance: verify horizontal and vertical orderings
::
++ check-balance
=| [l=(unit key) r=(unit key)]
|= a=(tree item)
^- ?
:: empty tree is valid
::
?~ a %.y
:: nonempty trees must maintain several criteria
::
?& :: if .n.a is left of .u.l, assert horizontal comparator
::
?~(l %.y (compare key.n.a u.l))
:: if .n.a is right of .u.r, assert horizontal comparator
::
?~(r %.y (compare u.r key.n.a))
:: if .a is not leftmost element, assert vertical order between
:: .l.a and .n.a and recurse to the left with .n.a as right
:: neighbor
::
?~(l.a %.y &((mor key.n.a key.n.l.a) $(a l.a, l `key.n.a)))
:: if .a is not rightmost element, assert vertical order
:: between .r.a and .n.a and recurse to the right with .n.a as
:: left neighbor
::
?~(r.a %.y &((mor key.n.a key.n.r.a) $(a r.a, r `key.n.a)))
==
:: +put: ordered item insert
::
++ put
|= [a=(tree item) =key =val]
^- (tree item)
:: base case: replace null with single-item tree
::
?~ a [n=[key val] l=~ r=~]
:: base case: overwrite existing .key with new .val
::
?: =(key.n.a key) a(val.n val)
:: if item goes on left, recurse left then rebalance vertical order
::
?: (compare key key.n.a)
=/ l $(a l.a)
?> ?=(^ l)
?: (mor key.n.a key.n.l)
a(l l)
l(r a(l r.l))
:: item goes on right; recurse right then rebalance vertical order
::
=/ r $(a r.a)
?> ?=(^ r)
?: (mor key.n.a key.n.r)
a(r r)
r(l a(r l.r))
:: +peek: produce head (smallest item) or null
::
++ peek
|= a=(tree item)
^- (unit item)
::
?~ a ~
?~ l.a `n.a
$(a l.a)
ordered-map: got %zuse to compile and all tests to pass
2020-07-02 23:16:22 +03:00
::
zuse: add +ordered-map At some point this should be more properly styled similar to +by, +in, and +to, but for now this reduces duplication and makes the ordered map available to everyone.
2020-05-22 08:28:16 +03:00
:: +pop: produce .head (smallest item) and .rest or crash if empty
::
++ pop
|= a=(tree item)
^- [head=item rest=(tree item)]
::
?~ a !!
?~ l.a [n.a r.a]
::
=/ l $(a l.a)
:- head.l
:: load .rest.l back into .a and rebalance
::
?: |(?=(~ rest.l) (mor key.n.a key.n.rest.l))
a(l rest.l)
rest.l(r a(r r.rest.l))
:: +del: delete .key from .a if it exists, producing value iff deleted
::
++ del
|= [a=(tree item) =key]
^- [(unit val) (tree item)]
::
?~ a [~ ~]
:: we found .key at the root; delete and rebalance
::
?: =(key key.n.a)
[`val.n.a (nip a)]
:: recurse left or right to find .key
::
?: (compare key key.n.a)
=+ [found lef]=$(a l.a)
[found a(l lef)]
=+ [found rig]=$(a r.a)
[found a(r rig)]
:: +nip: remove root; for internal use
::
++ nip
|= a=(tree item)
^- (tree item)
::
?> ?=(^ a)
:: delete .n.a; merge and balance .l.a and .r.a
::
|- ^- (tree item)
?~ l.a r.a
?~ r.a l.a
?: (mor key.n.l.a key.n.r.a)
l.a(r $(l.a r.l.a))
r.a(l $(r.a l.r.a))
:: +traverse: stateful partial inorder traversal
::
:: Mutates .state on each run of .f. Starts at .start key, or if
:: .start is ~, starts at the head (item with smallest key). Stops
:: when .f produces .stop=%.y. Traverses from smaller to larger
:: keys. Each run of .f can replace an item's value or delete the
:: item.
::
++ traverse
|* state=mold
|= $: a=(tree item)
=state
f=$-([state item] [(unit val) ? state])
==
^+ [state a]
:: acc: accumulator
::
:: .stop: set to %.y by .f when done traversing
:: .state: threaded through each run of .f and produced by +abet
::
=/ acc [stop=`?`%.n state=state]
=< abet =< main
|%
++ abet [state.acc a]
:: +main: main recursive loop; performs a partial inorder traversal
::
++ main
^+ .
:: stop if empty or we've been told to stop
::
?~ a .
?: stop.acc .
:: inorder traversal: left -> node -> right, until .f sets .stop
::
=> left
?: stop.acc .
=> node
?: stop.acc .
right
:: +node: run .f on .n.a, updating .a, .state, and .stop
::
++ node
^+ .
:: run .f on node, updating .stop.acc and .state.acc
::
=^ res acc
?> ?=(^ a)
(f state.acc n.a)
:: apply update to .a from .f's product
::
=. a
:: if .f requested node deletion, merge and balance .l.a and .r.a
::
?~ res (nip a)
:: we kept the node; replace its .val; order is unchanged
::
?> ?=(^ a)
a(val.n u.res)
::
..node
:: +left: recurse on left subtree, copying mutant back into .l.a
::
++ left
^+ .
?~ a .
=/ lef main(a l.a)
lef(a a(l a.lef))
:: +right: recurse on right subtree, copying mutant back into .r.a
::
++ right
^+ .
?~ a .
=/ rig main(a r.a)
rig(a a(r a.rig))
--
:: +tap: convert to list, smallest to largest
::
++ tap
|= a=(tree item)
^- (list item)
::
=| b=(list item)
|- ^+ b
?~ a b
::
$(a l.a, b [n.a $(a r.a)])
:: +gas: put a list of items
::
++ gas
|= [a=(tree item) b=(list item)]
^- (tree item)
::
?~ b a
$(b t.b, a (put a i.b))
:: +uni: unify two ordered maps
::
:: .b takes precedence over .a if keys overlap.
::
++ uni
|= [a=(tree item) b=(tree item)]
^- (tree item)
::
?~ b a
?~ a b
?: =(key.n.a key.n.b)
::
[n=n.b l=$(a l.a, b l.b) r=$(a r.a, b r.b)]
::
?: (mor key.n.a key.n.b)
::
?: (compare key.n.b key.n.a)
$(l.a $(a l.a, r.b ~), b r.b)
$(r.a $(a r.a, l.b ~), b l.b)
::
?: (compare key.n.a key.n.b)
$(l.b $(b l.b, r.a ~), a r.a)
$(r.b $(b r.b, l.a ~), a l.a)
zuse: add subset arm to ordered-map
2020-06-04 22:22:05 +03:00
::
ordered-map: got %zuse to compile and all tests to pass
2020-07-02 23:16:22 +03:00
:: +get: get val at key or return ~
::
++ get
|= [a=(tree item) b=key]
^- (unit val)
?~ a ~
?: =(b key.n.a)
`val.n.a
?: (compare b key.n.a)
$(a l.a)
$(a r.a)
::
zuse: add subset arm to ordered-map
2020-06-04 22:22:05 +03:00
:: +subset: take a range excluding start and/or end and all elements
:: outside the range
::
++ subset
|= $: tre=(tree item)
start=(unit key)
end=(unit key)
==
^- (tree item)
|^
?: ?&(?=(~ start) ?=(~ end))
tre
?~ start
(del-span tre %end end)
?~ end
(del-span tre %start start)
ordered-map: got %zuse to compile and all tests to pass
2020-07-02 23:16:22 +03:00
?> (compare u.start u.end)
zuse: add subset arm to ordered-map
2020-06-04 22:22:05 +03:00
=. tre (del-span tre %start start)
(del-span tre %end end)
::
++ del-span
|= [a=(tree item) b=?(%start %end) c=(unit key)]
^- (tree item)
?~ a a
?~ c a
?- b
%start
:: found key
?: =(key.n.a u.c)
(nip a(l ~))
:: traverse to find key
?: (compare key.n.a u.c)
:: found key to the left of start
zuse: ordered-map subset style fixes
2020-06-05 00:51:05 +03:00
$(a (nip a(l ~)))
zuse: add subset arm to ordered-map
2020-06-04 22:22:05 +03:00
:: found key to the right of start
zuse: ordered-map subset style fixes
2020-06-05 00:51:05 +03:00
a(l $(a l.a))
zuse: add subset arm to ordered-map
2020-06-04 22:22:05 +03:00
::
%end
:: found key
?: =(u.c key.n.a)
(nip a(r ~))
:: traverse to find key
?: (compare key.n.a u.c)
:: found key to the left of end
zuse: ordered-map subset style fixes
2020-06-05 00:51:05 +03:00
a(r $(a r.a))
zuse: add subset arm to ordered-map
2020-06-04 22:22:05 +03:00
:: found key to the right of end
zuse: ordered-map subset style fixes
2020-06-05 00:51:05 +03:00
$(a (nip a(r ~)))
zuse: add subset arm to ordered-map
2020-06-04 22:22:05 +03:00
==
--
zuse: add +ordered-map At some point this should be more properly styled similar to +by, +in, and +to, but for now this reduces duplication and makes the ordered map available to everyone.
2020-05-22 08:28:16 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
=< |= a=cord :: expose parsers
New metal boot system.
2016-11-24 07:25:07 +03:00
%+ biff (rush a (more sepa elem))
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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]
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
*[(u _[a y]) (u _m) (u _d.t) (u _+.t) ~]
New metal boot system.
2016-11-24 07:25:07 +03:00
:~
various: move away from $constant type syntax
2020-11-25 22:39:13 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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)
Update leap second lists
2019-03-05 01:17:10 +03:00
:~ ~2016.12.31..23.59.59 ~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
New metal boot system.
2016-11-24 07:25:07 +03:00
==
Update leap second lists
2019-03-05 01:17:10 +03:00
::
:: +les:yu:chrono: leapsecond days
::
:: https://www.ietf.org/timezones/data/leap-seconds.list
::
++ les
New metal boot system.
2016-11-24 07:25:07 +03:00
^- (list @da)
Update leap second lists
2019-03-05 01:17:10 +03:00
:~ ~2017.1.1 ~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
New metal boot system.
2016-11-24 07:25:07 +03:00
==
-- ::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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +03:00
|= [pax=path val=cage]
New metal boot system.
2016-11-24 07:25:07 +03:00
^- toro
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= pax=path
New metal boot system.
2016-11-24 07:25:07 +03:00
^- toro
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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 ~
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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)]
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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 ~
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
|= lin=(list @t)
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @t
%+ can 3
%+ turn lin
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +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
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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:
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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))
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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 ::
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way.
2020-11-26 17:09:31 +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
--
big merge, including some Alef and Zuse work
2019-10-30 23:12:57 +03:00
:: +harden: coerce %soft $hobo or pass-through
::
++ harden
|* task=mold
|= wrapped=(hobo task)
^- task
?. ?=(%soft -.wrapped)
wrapped
;;(task +.wrapped)
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
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
review fixes
2019-08-07 23:37:57 +03:00
$% [%full ships=(map ship point) dns=dnses heard=events]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
[%difs dis=(list (pair event-id diff-azimuth))]
==
::
:: # constants
::
:: contract addresses
zuse: change to ropsten
2020-11-24 09:42:56 +03:00
++ contracts ropsten-contracts
review fixes
2019-08-07 23:37:57 +03:00
++ mainnet-contracts
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
|%
:: azimuth: data contract
::
review fixes
2019-08-07 23:37:57 +03:00
++ azimuth
0x223c.067f.8cf2.8ae1.73ee.5caf.ea60.ca44.c335.fecb
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
::
zuse: include all relevant azimuth addresses
2019-12-11 18:12:54 +03:00
++ ecliptic
0x6ac0.7b7c.4601.b5ce.11de.8dfe.6335.b871.c7c4.dd4d
::
Add more contract addresses and block numbers
2019-02-27 02:41:12 +03:00
++ linear-star-release
0x86cd.9cd0.992f.0423.1751.e376.1de4.5cec.ea5d.1801
::
++ conditional-star-release
0x8c24.1098.c3d3.498f.e126.1421.633f.d579.86d7.4aea
::
zuse: add delegated-sending address
2019-10-31 21:24:47 +03:00
++ delegated-sending
0xf790.8ab1.f1e3.52f8.3c5e.bc75.051c.0565.aeae.a5fb
::
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
:: launch: block number of azimuth deploy
::
switch back to mainnet
2019-08-06 21:18:45 +03:00
++ launch 6.784.800
Add more contract addresses and block numbers
2019-02-27 02:41:12 +03:00
::
:: public: block number of azimuth becoming independent
::
++ public 7.033.765
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
--
::
review fixes
2019-08-07 23:37:57 +03:00
:: Testnet contract addresses
::
++ ropsten-contracts
|%
++ azimuth
0x308a.b6a6.024c.f198.b57e.008d.0ac9.ad02.1988.6579
::
zuse: include all relevant azimuth addresses
2019-12-11 18:12:54 +03:00
++ ecliptic
0x8b9f.86a2.8921.d9c7.05b3.113a.755f.b979.e1bd.1bce
::
++ linear-star-release
0x1f8e.dd03.1ee4.1474.0aed.b39b.84fb.8f2f.66ca.422f
::
++ conditional-star-release
0x0
::
Merge commit 'ec855491' into philip/mall-real
2019-11-24 09:08:12 +03:00
++ delegated-sending
zuse: include all relevant azimuth addresses
2019-12-11 18:12:54 +03:00
0x3e8c.a510.354b.c2fd.bbd6.1502.52d9.3105.c9c2.7bbe
Merge commit 'ec855491' into philip/mall-real
2019-11-24 09:08:12 +03:00
::
review fixes
2019-08-07 23:37:57 +03:00
++ launch 4.601.630
zuse: include all relevant azimuth addresses
2019-12-11 18:12:54 +03:00
++ public launch
review fixes
2019-08-07 23:37:57 +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
:: 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)
various: use =/ in place of =+ ^- Also faceless =; where appropriate.
2019-12-18 03:48:08 +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)
various: use =/ in place of =+ ^- Also faceless =; where appropriate.
2019-12-18 03:48:08 +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)
various: use =/ in place of =+ ^- Also faceless =; where appropriate.
2019-12-18 03:48:08 +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)
various: use =/ in place of =+ ^- Also faceless =; where appropriate.
2019-12-18 03:48:08 +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)
various: use =/ in place of =+ ^- Also faceless =; where appropriate.
2019-12-18 03:48:08 +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])
various: use =/ in place of =+ ^- Also faceless =; where appropriate.
2019-12-18 03:48:08 +03:00
=/ [enc=octs aut=octs sut=@ud rev=@ud]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
%+ 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)
various: use =/ in place of =+ ^- Also faceless =; where appropriate.
2019-12-18 03:48:08 +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)
various: use =/ in place of =+ ^- Also faceless =; where appropriate.
2019-12-18 03:48:08 +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)
various: use =/ in place of =+ ^- Also faceless =; where appropriate.
2019-12-18 03:48:08 +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)
various: use =/ in place of =+ ^- Also faceless =; where appropriate.
2019-12-18 03:48:08 +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]
hoon: lit/rit to pal/par
2020-05-28 13:31:50 +03:00
;~(plug (cold tag (jest fun)) (ifix [pal par] rul))
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
::
++ 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=@
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
%+ end [3 20]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
%+ 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]
==
zuse: lightly restructure encode:rlp:ethereum
2019-12-14 23:08:24 +03:00
:: +encode-atoms: encode list of atoms as a %l of %b items
Implement Ethereum transaction signing Includes RLP encoding logic.
2018-09-04 16:01:19 +03:00
::
++ encode-atoms
|= l=(list @)
zuse: lightly restructure encode:rlp:ethereum
2019-12-14 23:08:24 +03:00
^- @
Implement Ethereum transaction signing Includes RLP encoding logic.
2018-09-04 16:01:19 +03:00
%+ encode %l
%+ turn l
|=(a=@ b+[(met 3 a) a])
::
++ encode
|= in=item
zuse: lightly restructure encode:rlp:ethereum
2019-12-14 23:08:24 +03:00
|^ ^- @
?- -.in
%b
?: &(=(1 wid.b.in) (lte dat.b.in 0x7f))
dat.b.in
zuse: correctly encode leading zeroes in rlp data
2019-12-14 23:25:20 +03:00
=- (can 3 ~[b.in [(met 3 -) -]])
zuse: lightly restructure encode:rlp:ethereum
2019-12-14 23:08:24 +03:00
(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)
--
zuse: implement eth rlp decoding Also updates existing tests to check both en- and decoding.
2019-12-14 23:39:54 +03:00
:: +decode-atoms: decode expecting a %l of %b items, producing atoms within
Implement Ethereum transaction signing Includes RLP encoding logic.
2018-09-04 16:01:19 +03:00
::
zuse: implement eth rlp decoding Also updates existing tests to check both en- and decoding.
2019-12-14 23:39:54 +03:00
++ decode-atoms
|= dat=@
^- (list @)
=/ i=item (decode dat)
~| [%unexpected-data i]
?> ?=(%l -.i)
%+ turn l.i
|= i=item
~| [%unexpected-list i]
?> ?=(%b -.i)
dat.b.i
::
++ decode
|= dat=@
^- item
=/ bytes=(list @) (flop (rip 3 dat))
=? bytes ?=(~ bytes) ~[0]
|^ item:decode-head
::
++ decode-head
^- [done=@ud =item]
?~ bytes
~| %rlp-unexpected-end
!!
=* byt i.bytes
:: byte in 0x00-0x79 range encodes itself
::
?: (lte byt 0x79)
:- 1
[%b 1^byt]
:: byte in 0x80-0xb7 range encodes string length
::
?: (lte byt 0xb7)
=+ len=(sub byt 0x80)
:- +(len)
:- %b
len^(get-value 1 len)
:: byte in 0xb8-0xbf range encodes string length length
::
?: (lte byt 0xbf)
=+ led=(sub byt 0xb7)
=+ len=(get-value 1 led)
:- (add +(led) len)
:- %b
len^(get-value +(led) len)
:: byte in 0xc0-f7 range encodes list length
::
?: (lte byt 0xf7)
=+ len=(sub byt 0xc0)
:- +(len)
:- %l
%. len
decode-list(bytes (slag 1 `(list @)`bytes))
:: byte in 0xf8-ff range encodes list length length
::
?: (lte byt 0xff)
=+ led=(sub byt 0xf7)
=+ len=(get-value 1 led)
:- (add +(led) len)
:- %l
%. len
decode-list(bytes (slag +(led) `(list @)`bytes))
~| [%rip-not-bloq-3 `@ux`byt]
!!
::
++ decode-list
|= rem=@ud
^- (list item)
?: =(0 rem) ~
=+ ^- [don=@ud =item] ::TODO =/
decode-head
:- item
%= $
rem (sub rem don)
bytes (slag don bytes)
==
::
++ get-value
|= [at=@ud to=@ud]
^- @
(rep 3 (flop (swag [at to] bytes)))
--
Implement Ethereum transaction signing Includes RLP encoding logic.
2018-09-04 16:01:19 +03:00
--
::
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
zuse: better ethereum abi data type Considering some of the options here were atoms, not cells, $% wasn't appropriate, and led to *etyp:abi:ethereum resulting in ford %ride execution failure. Simply using $? instead would result in a fish-loop, so here we split the atom cases from the tagged union ones with a $@.
2020-03-23 14:43:40 +03:00
$@ $? :: static
%address %bool
%int %uint
%real %ureal
:: dynamic
%bytes %string
==
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
$% :: static
[%bytes-n n=@ud]
:: dynamic
[%array-n t=etyp n=@ud]
[%array t=etyp]
==
::
:: 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.
various: move away from face/type syntax In favor of face=type.
2020-11-25 23:22:55 +03:00
=/ ofs=@ud
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
=- (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.
Fix Ethereum ABI encoding for the %bytes data type Don't encode it like you do %bytes-n, which limits length to 32 bytes.
2019-03-08 02:34:01 +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])
Fix Ethereum ABI encoding for the %bytes data type Don't encode it like you do %bytes-n, which limits length to 32 bytes.
2019-03-08 02:34:01 +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
::
Refactor Ethereum ABI decoding logic to do less busywork ++decode-arguments now takes already-parsed words, rather than a @t of words, so that we operate on straight atom values instead of hex strings. For the ++decode-topics case, we no longer re-string and un-string the input data prior to processing.
2019-03-08 02:46:54 +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)]
Refactor Ethereum ABI decoding logic to do less busywork ++decode-arguments now takes already-parsed words, rather than a @t of words, so that we operate on straight atom values instead of hex strings. For the ++decode-topics case, we no longer re-string and un-string the input data prior to processing.
2019-03-08 02:46:54 +03:00
=- (decode-arguments - tys)
hoon: (and %zuse) use +run and +rut where appropriate
2020-12-01 22:58:45 +03:00
%^ rut 9
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(rsh [3 2] rex)
Refactor Ethereum ABI decoding logic to do less busywork ++decode-arguments now takes already-parsed words, rather than a @t of words, so that we operate on straight atom values instead of hex strings. For the ++decode-topics case, we no longer re-string and un-string the input data prior to processing.
2019-03-08 02:46:54 +03:00
(curr rash hex)
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
::
++ decode-arguments
Refactor Ethereum ABI decoding logic to do less busywork ++decode-arguments now takes already-parsed words, rather than a @t of words, so that we operate on straight atom values instead of hex strings. For the ++decode-topics case, we no longer re-string and un-string the input data prior to processing.
2019-03-08 02:46:54 +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
Refactor Ethereum ABI decoding logic to do less busywork ++decode-arguments now takes already-parsed words, rather than a @t of words, so that we operate on straight atom values instead of hex strings. For the ++decode-topics case, we no longer re-string and un-string the input data prior to processing.
2019-03-08 02:46:54 +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.
Refactor Ethereum ABI decoding logic to do less busywork ++decode-arguments now takes already-parsed words, rather than a @t of words, so that we operate on straight atom values instead of hex strings. For the ++decode-topics case, we no longer re-string and un-string the input data prior to processing.
2019-03-08 02:46:54 +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.
Refactor Ethereum ABI decoding logic to do less busywork ++decode-arguments now takes already-parsed words, rather than a @t of words, so that we operate on straight atom values instead of hex strings. For the ++decode-topics case, we no longer re-string and un-string the input data prior to processing.
2019-03-08 02:46:54 +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.
Refactor Ethereum ABI decoding logic to do less busywork ++decode-arguments now takes already-parsed words, rather than a @t of words, so that we operate on straight atom values instead of hex strings. For the ++decode-topics case, we no longer re-string and un-string the input data prior to processing.
2019-03-08 02:46:54 +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)
Refactor Ethereum ABI decoding logic to do less busywork ++decode-arguments now takes already-parsed words, rather than a @t of words, so that we operate on straight atom values instead of hex strings. For the ++decode-topics case, we no longer re-string and un-string the input data prior to processing.
2019-03-08 02:46:54 +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}.
Refactor Ethereum ABI decoding logic to do less busywork ++decode-arguments now takes already-parsed words, rather than a @t of words, so that we operate on straight atom values instead of hex strings. For the ++decode-topics case, we no longer re-string and un-string the input data prior to processing.
2019-03-08 02:46:54 +03:00
:- bys
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
%+ rsh
hoon: adds +new-rsh, switches all +rsh call sites
2020-12-02 09:30:36 +03:00
:- 3
Fix off-by-ones in Ethereum ABI en/decoding logic
2019-03-08 14:44:10 +03:00
=+ (mod bys 32)
?:(=(0 -) - (sub 32 -))
Refactor Ethereum ABI decoding logic to do less busywork ++decode-arguments now takes already-parsed words, rather than a @t of words, so that we operate on straight atom values instead of hex strings. For the ++decode-topics case, we no longer re-string and un-string the input data prior to processing.
2019-03-08 02:46:54 +03:00
%+ rep 8
Fix off-by-ones in Ethereum ABI en/decoding logic
2019-03-08 14:44:10 +03:00
%- 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
Refactor Ethereum ABI decoding logic to do less busywork ++decode-arguments now takes already-parsed words, rather than a @t of words, so that we operate on straight atom values instead of hex strings. For the ++decode-topics case, we no longer re-string and un-string the input data prior to processing.
2019-03-08 02:46:54 +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
==
azimuth-tracker
2019-07-05 04:15:53 +03:00
$: %eth-get-logs-by-hash
has=@
adr=(list address)
top=(list ?(@ux (list @ux)))
==
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
[%eth-get-filter-changes fid=@ud]
zuse: update %eth-get-transaction-count It apparently now requires a second argument indicating the block to get the result at.
2019-12-11 18:27:54 +03:00
[%eth-get-transaction-count adr=address =block]
Support eth_getTransactionReceipt
2019-03-06 23:44:38 +03:00
[%eth-get-transaction-receipt txh=@ux]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
[%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)]
azimuth-tracker
2019-07-05 04:15:53 +03:00
[%eth-get-logs-by-hash los=(list event-log)]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
[%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)))
Make %jael use %lient instead of %eyre
2019-02-15 01:25:33 +03:00
:: +light-json-request: like json-request, but for %l
::
:: TODO: Exorcising +purl from our system is a much longer term effort;
:: get the current output types for now.
::
++ light-json-request
|= [url=purl:eyre jon=json]
^- request:http
::
:* %'POST'
(crip (en-purl:html url))
~[['content-type' 'application/json']]
(some (as-octt (en-json:html jon)))
==
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
::
++ 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)]
::
azimuth-tracker
2019-07-05 04:15:53 +03:00
?: =(0 (lent adr.req)) ~
:+ ~ 'address'
?: =(1 (lent adr.req)) (tape (address-to-hex (snag 0 adr.req)))
:- %a
(turn adr.req (cork address-to-hex tape))
::
?~ top.req ~
:+ ~ 'topics'
(topics-to-json top.req)
==
::
%eth-get-logs-by-hash
:- 'eth_getLogs'
:_ ~ :- %o
%- ~(gas by *(map @t json))
=- (murn - same)
^- (list (unit (pair @t json)))
:~ `['blockHash' (tape (transaction-to-hex has.req))]
::
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
?: =(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)) ~]
Add eth_getTransactionCount call to zuse
2019-05-24 21:24:36 +03:00
::
%eth-get-transaction-count
zuse: update %eth-get-transaction-count It apparently now requires a second argument indicating the block to get the result at.
2019-12-11 18:27:54 +03:00
:- 'eth_getTransactionCount'
:~ (tape (address-to-hex adr.req))
(block-to-json block.req)
==
Support eth_getTransactionReceipt
2019-03-06 23:44:38 +03:00
::
%eth-get-transaction-receipt
['eth_getTransactionReceipt' (tape (transaction-to-hex txh.req)) ~]
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
::
%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
::
zuse: update %eth-get-transaction-count It apparently now requires a second argument indicating the block to get the result at.
2019-12-11 18:27:54 +03:00
++ parse-eth-get-transaction-count parse-hex-result
::
Reorganize Ethereum-related stdlib cores
2018-12-18 01:38:24 +03:00
++ 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)
::
Support eth_getTransactionReceipt
2019-03-06 23:44:38 +03:00
++ transaction-to-hex
|= h=@
^- tape
%- prefix-hex
(render-hex-bytes 32 h)
::
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
++ 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)
Fix off-by-ones in Ethereum ABI en/decoding logic
2019-03-08 14:44:10 +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
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
(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
ames/zuse: require >64-bit comet addresses
2020-10-28 00:20:25 +03:00
:: disallow 64-bit or smaller addresses
::
ames/zuse: require >64-bit comet addresses
2020-10-28 00:28:07 +03:00
?. ?=(%pawn (clan:title who))
ames/zuse: require >64-bit comet addresses
2020-10-28 00:20:25 +03:00
$(eny +(eny))
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=-]
change preboot stuff to include rift
2019-07-30 23:28:57 +03:00
(encode-call 'points(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
change preboot stuff to include rift
2019-07-30 23:28:57 +03:00
^- (unit (map ship [=rift =life =pass]))
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
~&([%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] ~)
change preboot stuff to include rift
2019-07-30 23:28:57 +03:00
=/ dat=(unit (list [who=@p point:azimuth-types]))
updates the |take:dawn gates to produce units and print errors
2018-12-06 22:11:14 +03:00
=- ?:(?=(%| -.out) ~ (some p.out))
^= out %- mule |.
%+ turn u.res
|= [id=@t result=@t]
change preboot stuff to include rift
2019-07-30 23:28:57 +03:00
^- [who=ship point:azimuth-types]
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +03:00
=/ who `@p`(slav %ud (rsh [3 4] id))
change preboot stuff to include rift
2019-07-30 23:28:57 +03:00
:- who
%+ point-from-eth
who
:_ *deed:eth-noun
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
change preboot stuff to include rift
2019-07-30 23:28:57 +03:00
point:eth-type
updates the |take:dawn gates to produce units and print errors
2018-12-06 22:11:14 +03:00
?~ dat
~&([%bloq-take-dawn %invalid-galaxy-table] ~)
:- ~
%+ roll u.dat
change preboot stuff to include rift
2019-07-30 23:28:57 +03:00
|= $: [who=ship =point:azimuth-types]
kyz=(map ship [=rift =life =pass])
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
==
^+ kyz
change preboot stuff to include rift
2019-07-30 23:28:57 +03:00
?~ net.point
kyz
(~(put by kyz) who [continuity-number life pass]:u.net.point)
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)
hoon: renames +new-end, +new-lsh, +new-rsh
2020-12-02 11:47:29 +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
--
:: +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]
dawn.c: produce full sponsor chain keys
2019-08-22 08:28:31 +03:00
^- (unit 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)
dawn.c: produce full sponsor chain keys
2019-08-22 08:28:31 +03:00
`%key-mismatch
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
2018-10-12 20:19:23 +03:00
:: a comet can never be breached
::
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
?^ live
dawn.c: produce full sponsor chain keys
2019-08-22 08:28:31 +03:00
`%already-booted
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
2018-10-12 20:19:23 +03:00
:: 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)
dawn.c: produce full sponsor chain keys
2019-08-22 08:28:31 +03:00
`%invalid-life
~
adds pre-boot ethereum validation (|dawn) and tests
2018-08-30 03:04:08 +03:00
::
%earl
dawn.c: produce full sponsor chain keys
2019-08-22 08:28:31 +03:00
~
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
dawn.c: produce full sponsor chain keys
2019-08-22 08:28:31 +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]
dawn.c: produce full sponsor chain keys
2019-08-22 08:28:31 +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)
dawn.c: produce full sponsor chain keys
2019-08-22 08:28:31 +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
== ==
dawn.c: produce full sponsor chain keys
2019-08-22 08:28:31 +03:00
`%already-booted
refactors |dawn (pre-boot validation) adds comments, fixes moons, simplifies product type
2018-10-12 20:19:23 +03:00
:: 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]
dawn.c: produce full sponsor chain keys
2019-08-22 08:28:31 +03:00
~
==
:: +sponsor:dawn: retreive sponsor from point
::
++ sponsor
|= [who=ship =point:azimuth]
^- (each ship error=term)
?- (clan:title who)
%pawn [%& (^sein:title who)]
%earl [%& (^sein:title who)]
%czar [%& (^sein:title who)]
*
?~ net.point
[%| %not-booted]
?. has.sponsor.u.net.point
[%| %no-sponsor]
[%& who.sponsor.u.net.point]
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