ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 18:12:47 +03:00
Code Issues Packages Projects Releases Wiki Activity
37e0933c7f
urbit/sys/zuse.hoon

6733 lines
265 KiB
Plaintext
Raw Normal View History

Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: :: /van/zuse
:: :: %reference/1
New metal boot system.
2016-11-24 07:25:07 +03:00
:: %zuse: arvo library.
::
%velo reset works.
2016-12-02 04:17:02 +03:00
:: %zuse is two nested cores: the first for models
New metal boot system.
2016-11-24 07:25:07 +03:00
:: (data structures), the second for engines (functions
:: or classes).
::
:: each of these stages is split into cores for each of
:: arvo's eight major vanes (kernel modules). these are:
::
:: - %ames: networking (rhymes with "games")
%velo reset works.
2016-12-02 04:17:02 +03:00
:: - %behn: scheduling ("bane")
New metal boot system.
2016-11-24 07:25:07 +03:00
:: - %clay: revision control ("play")
:: - %dill: console ("pill")
:: - %eyre: web ("fair")
:: - %ford: build ("lord")
:: - %gall: application ("ball")
:: - %jael: security ("jail")
%velo reset works.
2016-12-02 04:17:02 +03:00
::
New metal boot system.
2016-11-24 07:25:07 +03:00
:: with %zuse in your core, the engines of any vane are
:: available at `engine:vane`. the models (molds) are
:: available at `mold:^vane`.
::
%velo reset works.
2016-12-02 04:17:02 +03:00
:: every model or engine in %zuse is attached to some
New metal boot system.
2016-11-24 07:25:07 +03:00
:: vane, but any vane can use it (in its namespace),
:: as can any normal user-level code.
::
:: it's important to keep %zuse minimal. models and
:: engines not used outside a vane should stay inside
:: that vane.
~% %zuse +> ~
%velo reset works.
2016-12-02 04:17:02 +03:00
=>
New metal boot system.
2016-11-24 07:25:07 +03:00
:: :: ::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:::: :: :: (1) models
:: :: ::
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Work in progress.
2018-08-16 04:05:30 +03:00
:: # %misc
Old help totally cleaned out.
2018-05-25 01:39:56 +03:00
::
Work in progress.
2018-08-16 04:05:30 +03:00
:: miscellaneous systems types
::+|
move ++json and other above-arvo types to zuse
2017-11-23 00:28:07 +03:00
++ ares (unit {p/term q/(list tank)}) :: possible error
+capped-queue is also general. Move to zuse and add tests.
2018-08-28 01:25:33 +03:00
:: +capped-queue: a +qeu with a maximum number of entries
::
++ capped-queue
|* item-type=mold
$: queue=(qeu item-type)
size=@ud
max-size=_64
==
The +clock structure is general, put it in zuse and add tess.
2018-08-28 00:51:42 +03:00
:: +clock: polymorphic cache type for use with the clock replacement algorithm
::
:: The +by-clock core wraps interface arms for manipulating a mapping from
:: :key-type to :val-type. Detailed docs for this type can be found there.
::
++ clock
|* $: :: key-type: mold of keys
::
key-type=mold
:: val-type: mold of values
::
val-type=mold
==
$: lookup=(map key-type [val=val-type fresh=@ud])
queue=(qeu key-type)
size=@ud
max-size=_2.048
depth=_1
==
::
move ++json and other above-arvo types to zuse
2017-11-23 00:28:07 +03:00
++ coop (unit ares) :: possible error
++ json :: normal json value
Work in progress.
2018-08-16 04:05:30 +03:00
$@ ~ :: null
move ++json and other above-arvo types to zuse
2017-11-23 00:28:07 +03:00
$% {$a p/(list json)} :: array
{$b p/?} :: boolean
{$o p/(map @t json)} :: object
{$n p/@ta} :: number
{$s p/@t} :: string
== ::
updates %jael to encode aut/net keys and use +pass everywhere
2018-08-23 22:23:52 +03:00
++ life @ud :: ship version
move ++json and other above-arvo types to zuse
2017-11-23 00:28:07 +03:00
++ mime {p/mite q/octs} :: mimetyped data
++ octs {p/@ud q/@t} :: octet-stream
++ sack {p/ship q/ship} :: incoming [our his]
++ sock {p/ship q/ship} :: outgoing [our his]
::+|
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ roof (room vase) :: namespace
Stash.
2017-04-23 06:13:14 +03:00
++ room :: either namespace
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* vase/mold :: vase or maze
Rename ++span to ++type.
2017-11-16 23:44:27 +03:00
$- $: ref/* :: reference type
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
lyc/(unit (set ship)) :: leakset
car/term :: perspective
bem/beam :: path
Stash.
2017-04-23 06:13:14 +03:00
== ::
%- unit :: ~: unknown
%- unit :: ~ ~: invalid
(cask vase) :: marked cargo
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
|%
++ response ::TODO id and jsonrpc fields?
$% [%result id=@t res=json]
[%error id=@t code=@t message=@t] ::TODO data?
[%batch bas=(list response)]
==
--
--
:: ::
:::: ++eth :: ethereum structures
:: ::::
++ ethe
|%
::
:: ethereum types. integer bitsizes ignored.
++ etyp
Add in Ethereum logic. Not hooked up yet, so untested.
2018-05-16 21:48:20 +03:00
$% :: static
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
%address %bool
%int %uint
%real %ureal
[%bytes-n n=@ud]
:: dynamic
Add in Ethereum logic. Not hooked up yet, so untested.
2018-05-16 21:48:20 +03:00
[%array-n t=etyp n=@ud]
[%array t=etyp]
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
%bytes %string
==
::
:: ethereum-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 knowns length?
[%bytes p=octs]
==
::
:: ethereum address, 20 bytes.
++ address @ux
::
:: ethereum json rpc api
::
:: supported requests.
++ request
$% [%eth-block-number ~]
[%eth-call cal=call deb=block]
$: %eth-new-filter
fro=(unit block)
tob=(unit block)
adr=(list address)
top=(list octs)
==
[%eth-get-filter-logs fid=@ud]
[%eth-get-filter-changes fid=@ud]
==
::
::TODO
++ response
$% ::TODO
[%eth-new-filter fid=@ud]
[%eth-get-filter-logs los=(list event-log)]
[%eth-got-filter-changes los=(list event-log)]
==
::
++ event-log
$: :: null for pending logs
$= mined %- unit
$: log-index=@ud
transaction-index=@ud
transaction-hash=@ux
block-number=@ud
block-hash=@ux
==
::
address=@ux
data=@t
event=@ux
topics=(list @t)
==
::
Integrate Ethereum logic more closely into existing jael flows. Compiles, untested.
2018-05-29 00:04:33 +03:00
:: alternative event location.
+= event-id [block=@ud log=@ud]
::
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +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
==
::
:: raw call data
++ call-data
$: function=@t
arguments=(list data)
==
::
:: block to operate on.
++ block
$% [%number n=@ud]
[%label l=?(%earliest %latest %pending)]
==
::
::
++ constitution
|%
++ hull
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
$: $= own :: ownership
$: owner=address
transfer-proxy=address
==
::
$= net :: networking
%- unit
updates %jael to encode aut/net keys and use +pass everywhere
2018-08-23 22:23:52 +03:00
$: =life
=pass
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
continuity-number=@ud
sponsor=(unit @p)
escape=(unit @p)
==
::
$= kid :: spawning
%- unit
$: spawn-proxy=address
spawn-count=@ud
spawned=(set @p)
==
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
==
::
++ complete-ship
$: state=hull
history=(list diff-hull) ::TODO maybe block/event nr? :: newest first
updates %jael to encode aut/net keys and use +pass everywhere
2018-08-23 22:23:52 +03:00
keys=(map life pass)
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
==
::
++ fleet (map @p complete-ship)
::
+= dnses [pri=@t sec=@t ter=@t]
::
Integrate Ethereum logic more closely into existing jael flows. Compiles, untested.
2018-05-29 00:04:33 +03:00
++ events (set event-id)
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
++ eth-type
|%
++ hull
:~ %address :: owner
%bool :: active
[%bytes-n 32] :: encryptionKey
[%bytes-n 32] :: authenticationKey
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
%uint :: cryptoSuiteVersion
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
%uint :: keyRevisionNumber
Support continuity number from Ships contract.
2018-05-22 17:04:58 +03:00
%uint :: continuityNumber
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
%uint :: spawnCount
%uint :: sponsor
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
%bool :: hasSponsor
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
%bool :: escapeRequested
%uint :: escapeRequestedTo
%address :: spawnProxy
%address :: transferProxy
==
--
::
++ eth-noun
|%
++ hull
$: owner=address
active=?
encryption-key=octs
authentication-key=octs
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
crypto-suite=@ud
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
key-revision=@ud
Support continuity number from Ships contract.
2018-05-22 17:04:58 +03:00
continuity-number=@ud
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
spawn-count=@ud
sponsor=@ud
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
has-sponsor=?
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
escape-requested=?
escape-to=@ud
spawn-proxy=address
transfer-proxy=address
==
--
::
++ function
|%
++ ships
$% [%ships who=@p]
[%get-spawned who=@p]
[%dns-domains ind=@ud]
==
--
::
:: # diffs
::
++ update
Integrate Ethereum logic more closely into existing jael flows. Compiles, untested.
2018-05-29 00:04:33 +03:00
$% [%full ships=(map ship hull) dns=dnses heard=events] ::TODO keys
Make use of new Spawned event to ensure one diff per event. This allows us to simplify logic and semantics.
2018-06-01 18:14:35 +03:00
[%difs dis=(list (pair event-id diff-constitution))]
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
==
::
++ diff-constitution
$% [%hull who=@p dif=diff-hull]
Squash all DNS changes into a single diff, simplifying some logic.
2018-05-31 17:23:39 +03:00
[%dns pri=@t sec=@t ter=@t]
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
==
::
++ diff-hull
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
$% [%full new=hull] ::
[%owner new=address] :: OwnerChanged
[%activated who=@p] :: Activated
[%spawned who=@p] :: Spawned
updates %jael to encode aut/net keys and use +pass everywhere
2018-08-23 22:23:52 +03:00
[%keys =life =pass] :: ChangedKeys
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
[%continuity new=@ud] :: BrokeContinuity
[%sponsor new=(unit @p)] :: EscapeAcc/LostSpons
[%escape new=(unit @p)] :: EscapeReq/Can
[%spawn-proxy new=address] :: ChangedSpawnProxy
[%transfer-proxy new=address] :: ChangedTransferProxy
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
==
::
:: # constants
::
:: contract addresses
++ contracts
|%
++ ships
XX REMOVE sets contract address to match truffle/ganache testnet
2018-08-21 20:10:54 +03:00
0x6c22.3e68.fefe.b0d2.aaa1.3d5a.3b12.f50f.8b6b.498a
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
--
::
:: hashes of ship event signatures
++ ships-events
|%
::
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
:: OwnerChanged(uint32,address)
++ owner-changed
0x16d0.f539.d49c.6cad.822b.767a.9445.bfb1.
cf7e.a6f2.a6c2.b120.a7ea.4cc7.660d.8fda
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
:: Activated(uint32)
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
++ activated
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
0xe74c.0380.9d07.69e1.b1f7.06cc.8414.258c.
d1f3.b6fe.020c.d15d.0165.c210.ba50.3a0f
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
Make use of new Spawned event to ensure one diff per event. This allows us to simplify logic and semantics.
2018-06-01 18:14:35 +03:00
:: Spawned(uint32,uint32)
++ spawned
0xb2d3.a6e7.a339.f5c8.ff96.265e.2f03.a010.
a854.1070.f374.4a24.7090.9644.1508.1546
::
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
:: EscapeRequested(uint32,uint32)
++ escape-requested
0xb4d4.850b.8f21.8218.141c.5665.cba3.79e5.
3e9b.b015.b51e.8d93.4be7.0210.aead.874a
::
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
:: EscapeCanceled(uint32,uint32)
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
++ escape-canceled
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
0xd653.bb0e.0bb7.ce83.93e6.24d9.8fbf.17cd.
a590.2c83.28ed.0cd0.9988.f368.90d9.932a
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
:: EscapeAccepted(uint32,uint32)
++ escape-accepted
0x7e44.7c9b.1bda.4b17.4b07.96e1.00bf.7f34.
ebf3.6dbb.7fe6.6549.0b1b.fce6.246a.9da5
::
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
:: 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)
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
++ changed-keys
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
0xaa10.e7a0.117d.4323.f1d9.9d63.0ec1.69be.
bb3a.988e.8957.70e3.5198.7e01.ff54.23d5
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
:: 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
::
Update constitution and jael logic to work with latest contracts
2018-08-30 02:58:47 +03:00
:: ChangedManager(address,address)
++ changed-manager
0x73cd.9f21.dac5.ada0.0bce.c622.ae57.b362.
3d62.867a.0104.48a4.fa99.19b1.af37.8de7
::
:: ChangedDelegate(address,address)
++ changed-delegate
0x3aca.0f3b.26ca.e754.a743.7b18.4417.8ce6.
07f2.1ca0.cbed.955e.0621.96d3.3c91.de6c
::
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
:: ChangedDns(string,string,string)
++ changed-dns
0xfafd.04ad.e1da.ae2e.1fdb.0fc1.cc6a.899f.
d424.063e.d5c9.2120.e67e.0730.53b9.4898
--
-- :: constitution
-- :: ethereum
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
:::: ++ames :: (1a) network
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
++ ames ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::
Fix some boot issues.
2017-10-10 08:22:47 +03:00
:::: ++able:ames :: (1a1) arvo moves
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ able ^?
|%
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ note :: out request $->
Fix $? to use %fits.
2018-03-18 04:06:15 +03:00
$% $: $d :: to %dill
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$% {$flog p/flog:dill} ::
Merge branch 'remaint' into remaint-merge
2017-10-02 04:50:19 +03:00
== == ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$: $a :: to %ames
$% {$kick p/@da} ::
Merge branch 'remaint' into remaint-merge
2017-10-02 04:50:19 +03:00
== == ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$: $g :: to %gall
$% {$deal p/sock q/cush:gall} ::
Merge branch 'remaint' into remaint-merge
2017-10-02 04:50:19 +03:00
== == ::
$: @tas :: to any
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$% {$init p/@p} ::
{$west p/sack q/path r/*} ::
Merge branch 'remaint' into remaint-merge
2017-10-02 04:50:19 +03:00
== == == ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ gift :: out result <-$
$% {$hear p/lane q/@} :: receive packet
{$init p/@p} :: report install
{$mack p/(unit tang)} ::
{$mass p/mass} :: memory usage
adds lane-change subscriptions (%tend/%rove) to ames
2018-04-25 20:24:45 +03:00
{$rove p/ship q/lane} :: lane change
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$send p/lane q/@} :: transmit packet
{$woot p/ship q/coop} :: reaction message
%velo reset works.
2016-12-02 04:17:02 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ sign :: in result _<-
Fix $? to use %fits.
2018-03-18 04:06:15 +03:00
$% $: $g :: from %gall
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$% {$unto p/cuft:gall} ::
{$mean p/ares} :: XX old clean up
Work in progress.
2018-08-16 04:05:30 +03:00
{$nice ~} ::
Merge branch 'remaint' into remaint-merge
2017-10-02 04:50:19 +03:00
== == ::
$: @tas ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$% {$crud p/@tas q/(list tank)} :: by any
{$mack p/(unit tang)} :: message ack
{$woot p/ship q/coop} :: reaction message
Merge branch 'remaint' into remaint-merge
2017-10-02 04:50:19 +03:00
== == == ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ task :: in request ->$
Work in progress.
2018-08-16 04:05:30 +03:00
$% {$barn ~} :: new unix process
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$crud p/@tas q/(list tank)} :: error with trace
{$cash p/@p q/buck} :: civil license
{$hear p/lane q/@} :: receive packet
{$halo p/lane q/@ r/ares} :: hole with trace
{$hole p/lane q/@} :: packet failed
{$junk p/@} :: entropy
{$kick p/@da} :: wake up
{$nuke p/@p} :: toggle auto-block
{$make p/(unit @t) q/@ud r/@ s/?} :: wild license
{$sith p/@p q/@uw r/?} :: imperial generator
Smoke-test boots with full ford-turbo merge.
2018-08-20 02:06:19 +03:00
{$tend ~} :: watch lane changes
{$wake ~} :: timer activate
{$wegh ~} :: report memory
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$west p/sack q/path r/*} :: network request
{$want p/sock q/path r/*} :: forward message
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
-- ::able
New metal boot system.
2016-11-24 07:25:07 +03:00
::
:::: :: (1a2)
::
++ acru $_ ^? :: asym cryptosuite
|% :: opaque object
++ as ^? :: asym ops
simplifies +acru interface, updates +crub and call-sites
2018-08-21 22:23:00 +03:00
|% ++ seal |~({a/pass b/@} *@) :: encrypt to a
++ sign |~(a/@ *@) :: certify as us
++ sure |~(a/@ *(unit @)) :: authenticate from us
++ tear |~({a/pass b/@} *(unit @)) :: accept from a
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::as ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ de |~({a/@ b/@} *(unit @)) :: symmetric de, soft
++ dy |~({a/@ b/@} *@) :: symmetric de, hard
++ en |~({a/@ b/@} *@) :: symmetric en
New metal boot system.
2016-11-24 07:25:07 +03:00
++ ex ^? :: export
|% ++ fig *@uvH :: fingerprint
++ pac *@uvG :: default passcode
++ pub *pass :: public key
++ sec *ring :: private key
-- ::ex ::
++ nu ^? :: reconstructors
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|% ++ pit |~({a/@ b/@} ^?(..nu)) :: from [width seed]
simplifies +acru interface, updates +crub and call-sites
2018-08-21 22:23:00 +03:00
++ nol |~(a/ring ^?(..nu)) :: from ring
++ com |~(a/pass ^?(..nu)) :: from pass
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::nu ::
-- ::acru ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ bait {p/skin q/@ud r/dove} :: fmt nrecvd spec
++ bath :: convo per client
$: sop/shed :: not stalled
raz/(map path race) :: statements inbound
ryl/(map path rill) :: statements outbound
Merge branch 'remaint' into remaint-merge
2017-10-02 04:50:19 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ boon :: fort output
$% {$beer p/ship q/@uvG} :: gained ownership
{$cake p/sock q/soap r/coop s/duct} :: e2e message result
adds lane-change subscriptions (%tend/%rove) to ames
2018-04-25 20:24:45 +03:00
{$maze p/ship q/lane} :: lane change
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$mead p/lane q/rock} :: accept packet
{$milk p/sock q/soap r/*} :: e2e pass message
{$ouzo p/lane q/rock} :: transmit packet
{$wine p/sock q/tape} :: notify user
Merge branch 'remaint' into remaint-merge
2017-10-02 04:50:19 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ bray {p/life q/(unit life) r/ship s/@da} :: our parent us now
++ buck {p/mace q/wyll} :: all security data
++ cake {p/sock q/skin r/@} :: top level packet
++ cape :: end-to-end result
$? $good :: delivered
$dead :: rejected
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ clot :: symmetric record
$: yed/(unit {p/hand q/code}) :: outbound
heg/(map hand code) :: proposed
qim/(map hand code) :: inbound
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ code @uvI :: symmetric key
++ corn :: flow by server
$: hen/duct :: admin channel
nys/(map flap bait) :: packets incoming
olz/(map flap cape) :: packets completed
wab/(map ship bath) :: relationship
Merge branch 'remaint' into remaint-merge
2017-10-02 04:50:19 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ deyd {p/@ q/step r/?} :: sig stage fake?
++ dore :: foreign contact
$: wod/road :: connection to
wyl/wyll :: inferred mirror
caq/clot :: symmetric key state
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ dove {p/@ud q/(map @ud @)} :: count hash 13-blocks
++ flap @uvH :: network packet id
++ flow :: packet connection
$: rtt/@dr :: decaying avg rtt
wid/@ud :: logical wdow msgs
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ fort :: formal state
adds lane-change subscriptions (%tend/%rove) to ames
2018-04-25 20:24:45 +03:00
$: $1 :: version
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
gad/duct :: client interface
hop/@da :: network boot date
bad/(set @p) :: bad ships
ton/town :: security
zac/(map ship corn) :: flows by server
adds lane-change subscriptions (%tend/%rove) to ames
2018-04-25 20:24:45 +03:00
ten/(set duct) :: watch lanes
Merge branch 'remaint' into remaint-merge
2017-10-02 04:50:19 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ gcos :: id description
Work in progress.
2018-08-16 04:05:30 +03:00
$% {$czar ~} :: 8-bit ship
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$duke p/what} :: 32-bit ship
{$earl p/@t} :: 64-bit ship
{$king p/@t} :: 16-bit ship
{$pawn p/(unit @t)} :: 128-bit ship
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ gens {p/lang q/gcos} :: general identity
++ govt path :: country+postcode
++ hand @uvH :: 128-bit hash
++ lane :: packet route
$% {$if p/@da q/@ud r/@if} :: IP4/public UDP/addr
{$is p/@ud q/(unit lane) r/@is} :: IPv6 w+alternates
{$ix p/@da q/@ud r/@if} :: IPv4 provisional
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ lang @ta :: IETF lang as code
++ lice {p/ship q/buck} :: full license
++ mace (list {p/life q/ring}) :: private secrets
++ meal :: payload
$% {$back p/coop q/flap r/@dr} :: ack
{$bond p/life q/path r/@ud s/*} :: message
{$carp p/@ q/@ud r/@ud s/flap t/@} :: skin+inx+cnt+hash
{$fore p/ship q/(unit lane) r/@} :: forwarded packet
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ name {p/@t q/(unit @t) r/(unit @t) s/@t} :: first mid+nick last
++ putt :: outgoing message
$: ski/snow :: sequence acked+sent
wyv/(list rock) :: packet list XX gear
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ race :: inbound stream
$: did/@ud :: filled sequence
dod/? :: not processing
bum/(map @ud ares) :: nacks
mis/(map @ud {p/cape q/lane r/flap s/(unit)}) :: misordered
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ rank ?($czar $king $duke $earl $pawn) :: ship width class
++ rill :: outbound stream
$: sed/@ud :: sent
san/(map @ud duct) :: outstanding
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ road :: secured oneway route
$: exp/@da :: expiration date
lun/(unit lane) :: route to friend
lew/wyll :: wyll of friend
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ rock @uvO :: packet
++ sect ?($black $blue $red $orange $white) :: banner
++ shed :: packet flow
$: $: rtt/@dr :: smoothed rtt
rto/@dr :: retransmit timeout
rtn/(unit @da) :: next timeout
rue/(unit @da) :: last heard from
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$: nus/@ud :: number sent
nif/@ud :: number live
nep/@ud :: next expected
caw/@ud :: logical window
cag/@ud :: congest thresh
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$: diq/(map flap @ud) :: packets sent
pyz/(map soup @ud) :: message+unacked
puq/(qeu {p/@ud q/soul}) :: packet queue
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ skin ?($none $open $fast $full) :: encoding stem
++ snow {p/@ud q/@ud r/(set @ud)} :: window exceptions
++ soap {p/{p/life q/life} q/path r/@ud} :: statement id
++ soup {p/path q/@ud} :: new statement id
++ soul :: packet in travel
$: gom/soup :: message identity
nux/@ud :: xmission count
liv/? :: deemed live
lys/@da :: last sent
pac/rock :: packet data
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ step {p/bray q/gens r/pass} :: identity stage
++ sufi :: domestic host
$: hoy/(list ship) :: hierarchy
val/wund :: private keys
law/wyll :: server wyll
seh/(map hand {p/ship q/@da}) :: key cache
hoc/(map ship dore) :: neighborhood
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ tick @ud :: process id
++ town :: all security state
$: lit/@ud :: imperial modulus
any/@ :: entropy
urb/(map ship sufi) :: all keys and routes
fak/? ::
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ what :: logical identity
Work in progress.
2018-08-16 04:05:30 +03:00
$% {$anon ~} :: anonymous
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$lady p/whom} :: female person ()
{$lord p/whom} :: male person []
{$punk p/sect q/@t} :: opaque handle ""
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ whom {p/@ud q/govt r/sect s/name} :: year+govt+id
++ wund (list {p/life q/ring r/acru}) :: mace in action
++ wyll (list deyd) :: certificate
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::ames
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
:::: ++behn :: (1b) timekeeping
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
++ behn ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::
:::: ++able:behn :: (1b1) arvo moves
:: ::::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ able ^?
|%
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ gift :: out result <-$
$% {$mass p/mass} :: memory usage
Work in progress.
2018-08-16 04:05:30 +03:00
{$wake ~} :: wakeup
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ task :: in request ->$
$% {$rest p/@da} :: cancel alarm
{$wait p/@da} :: set alarm
Work in progress.
2018-08-16 04:05:30 +03:00
{$wake ~} :: timer activate
{$wegh ~} :: report memory
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
-- ::able
-- ::behn
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
:::: ++clay :: (1c) versioning
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
++ clay ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::
:::: ++able:clay :: (1c1) arvo moves
:: ::::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ able ^?
|%
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ gift :: out result <-$
Clay task for retrieving the rules that apply to a group.
2018-02-12 19:57:59 +03:00
$% {$croz rus/(map desk {r/regs w/regs})} :: rules for group
{$cruz cez/(map @ta crew)} :: permission groups
Clay permissions interface proposal.
2018-01-24 00:52:31 +03:00
{$dirk p/@tas} :: mark mount dirty
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$ergo p/@tas q/mode} :: version update
{$hill p/(list @tas)} :: mount points
{$mack p/(unit tang)} :: ack
{$mass p/mass} :: memory usage
{$mere p/(each (set path) (pair term tang))} :: merge result
{$note p/@tD q/tank} :: debug message
{$ogre p/@tas} :: delete mount point
Updates interface to include support for write permissions.
2018-01-24 18:33:41 +03:00
{$rule red/dict wit/dict} :: node r+w permissions
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$send p/lane:ames q/@} :: transmit packet
{$writ p/riot} :: response
Change %wris so it always returns a date. This removes the scry from +rebuild in ford-turbo. This is ok since ford-turbo Is the only consumer of %wris. The ford-turbo app now works end-to-end in a way that theoretically should work without the app.
2018-05-10 21:18:52 +03:00
{$wris p/{$da p/@da} q/(set (pair care path))} :: many changes
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ task :: in request ->$
Work in progress.
2018-08-16 04:05:30 +03:00
$% {$boat ~} :: pier rebooted
Implement requests for reading and writing permission groups.
2018-02-07 23:07:42 +03:00
{$cred our/ship nom/@ta cew/crew} :: set permission group
{$crew our/ship} :: permission groups
Clay task for retrieving the rules that apply to a group.
2018-02-12 19:57:59 +03:00
{$crow our/ship nom/@ta} :: group usage
Add faces to clay ++task.
2018-02-09 16:48:08 +03:00
{$drop our/@p des/desk} :: cancel pending merge
{$info our/@p des/desk dit/nori} :: internal edit
{$init our/@p} :: report install
{$into des/desk all/? fis/mode} :: external edit
$: $merg :: merge desks
our/@p des/desk :: target
her/@p dem/desk cas/case :: source
how/germ :: method
== ::
{$mont des/desk bem/beam} :: mount to unix
{$dirk des/desk} :: mark mount dirty
{$ogre pot/$@(desk beam)} :: delete mount point
Implement %perm clay request for setting permissions of a node.
2018-02-07 00:18:25 +03:00
{$perm our/ship des/desk pax/path rit/rite} :: change permissions
Add faces to clay ++task.
2018-02-09 16:48:08 +03:00
{$warp wer/sock rif/riff} :: internal file req
{$werp who/ship wer/sock rif/riff} :: external file req
Work in progress.
2018-08-16 04:05:30 +03:00
{$wegh ~} :: report memory
Add faces to clay ++task.
2018-02-09 16:48:08 +03:00
{$went wer/sack pax/path num/@ud ack/coop} :: response confirm
{$west wer/sack pax/path res/*} :: network request
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
-- ::able
::
:::: :: (1c2)
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ aeon @ud :: version number
++ ankh :: fs node (new)
Almost booting with ripple.
2018-02-25 05:01:53 +03:00
$~ [~ ~]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$: fil/(unit {p/lobe q/cage}) :: file
dir/(map @ta ankh) :: folders
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ beam {{p/ship q/desk r/case} s/path} :: global name
++ beak {p/ship q/desk r/case} :: path prefix
++ blob :: fs blob
$% {$delta p/lobe q/{p/mark q/lobe} r/page} :: delta on q
{$direct p/lobe q/page} :: immediate
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
%ct request all filepaths with prefix
2018-08-22 22:56:46 +03:00
++ care ?($d $p $t $u $v $w $x $y $z) :: clay submode
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ case :: ship desk case spur
$% {$da p/@da} :: date
{$tas p/@tas} :: label
{$ud p/@ud} :: number
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Change clay %w requests to produce both the number and date cases.
2018-05-03 00:37:03 +03:00
++ cass {ud/@ud da/@da} :: cases for revision
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ coop (unit ares) :: e2e ack
Clay permissions interface proposal.
2018-01-24 00:52:31 +03:00
++ crew (set ship) :: permissions group
clay permissions issue #749
2018-06-19 02:10:11 +03:00
++ dict {src/path rul/real} :: effective permission
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ dome :: project state
$: ank/ankh :: state
let/@ud :: top id
hit/(map @ud tako) :: changes by id
lab/(map @tas @ud) :: labels
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ germ :: merge style
$? $init :: new desk
$this :: ours with parents
$that :: hers with parents
$fine :: fast forward
$meet :: orthogonal files
$mate :: orthogonal changes
$meld :: force merge
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ khan ::
Almost booting with ripple.
2018-02-25 05:01:53 +03:00
$~ [~ ~]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$: fil/(unit (unit cage)) :: see ++khan-to-soba
dir/(unit (map @ta (unit khan))) ::
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ lobe @uvI :: blob ref
++ maki {p/@ta q/@ta r/@ta s/path} ::
++ miso :: ankh delta
Work in progress.
2018-08-16 04:05:30 +03:00
$% {$del ~} :: delete
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$ins p/cage} :: insert
{$dif p/cage} :: mutate from diff
{$mut p/cage} :: mutate from raw
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ misu :: computed delta
Work in progress.
2018-08-16 04:05:30 +03:00
$% {$del ~} :: delete
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$ins p/cage} :: insert
{$dif p/lobe q/cage} :: mutate from diff
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ mizu {p/@u q/(map @ud tako) r/rang} :: new state
++ moar {p/@ud q/@ud} :: normal change range
++ moat {p/case q/case r/path} :: change range
++ mode (list {path (unit mime)}) :: external files
++ mood {p/care q/case r/path} :: request in desk
Change %mult interface to allow different/multiple cares per path.
2018-01-23 19:35:12 +03:00
++ mool {p/case q/(set (pair care path))} :: requests in desk
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ nori :: repository action
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
$% {%& p/soba} :: delta
{%| p/@tas} :: label
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ nuri :: repository action
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
$% {%& p/suba} :: delta
{%| p/@tas} :: label
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ page (cask *) :: untyped cage
++ plop blob :: unvalidated blob
++ rang :: repository
$: hut/(map tako yaki) :: changes
lat/(map lobe blob) :: data
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ rant :: response to request
Make use of alias types more consistent.
2018-01-18 03:23:31 +03:00
$: p/{p/care q/case r/desk} :: clade release book
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
q/path :: spur
r/cage :: data
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ rave :: general request
$% {$sing p/mood} :: single request
{$next p/mood} :: await next version
Modified %mult to support past revisions, but with only a single case for all files.
2018-01-18 01:55:12 +03:00
{$mult p/mool} :: next version of any
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$many p/? q/moat} :: track range
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
included full group information in scry
2018-06-20 00:43:16 +03:00
++ real :: resolved permissions
$: mod/?($black $white) ::
who/(pair (set ship) (map @ta crew)) ::
== ::
Permission list structure.
2018-02-12 19:56:48 +03:00
++ regs (map path rule) :: rules for paths
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ riff {p/desk q/(unit rave)} :: request+desist
Finalizing interface.
2018-01-25 02:09:46 +03:00
++ rite :: new permissions
$% {$r red/(unit rule)} :: for read
{$w wit/(unit rule)} :: for write
{$rw red/(unit rule) wit/(unit rule)} :: for read and write
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ riot (unit rant) :: response+complete
Clay permissions interface proposal.
2018-01-24 00:52:31 +03:00
++ rule {mod/?($black $white) who/(set whom)} :: node permission
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ rump {p/care q/case r/@tas s/path} :: relative path
++ saba {p/ship q/@tas r/moar s/dome} :: patch+merge
++ soba (list {p/path q/miso}) :: delta
++ suba (list {p/path q/misu}) :: delta
++ tako @ :: yaki ref
++ toro {p/@ta q/nori} :: general change
New metal boot system.
2016-11-24 07:25:07 +03:00
++ unce :: change part
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* a/mold ::
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
$% {%& p/@ud} :: skip[copy]
{%| p/(list a) q/(list a)} :: p -> q[chunk]
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ urge |*(a/mold (list (unce a))) :: list change
Clay permissions interface proposal.
2018-01-24 00:52:31 +03:00
++ whom (each ship @ta) :: ship or named crew
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ yaki :: commit
$: p/(list tako) :: parents
q/(map path lobe) :: namespace
r/tako :: self-reference
t/@da :: date
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
-- ::clay
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
:::: ++dill :: (1d) console
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
++ dill ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::
:::: ++able:dill :: (1d1) arvo moves
:: ::::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ able ^?
|%
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ gift :: out result <-$
Work in progress.
2018-08-16 04:05:30 +03:00
$% {$bbye ~} :: reset prompt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$blit p/(list blit)} :: terminal output
{$burl p/@t} :: activate url
{$init p/@p} :: set owner
Work in progress.
2018-08-16 04:05:30 +03:00
{$logo ~} :: logout
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$mass p/mass} :: memory usage
{$send p/lane:ames q/@} :: transmit packet
{$veer p/@ta q/path r/@t} :: install vane
{$vega p/path q/path} :: old reboot
{$velo p/@t q/@t} :: reboot
Work in progress.
2018-08-16 04:05:30 +03:00
{$verb ~} :: verbose mode
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ task :: in request ->$
$% {$belt p/belt} :: terminal input
{$blew p/blew} :: terminal config
{$boot p/*} :: weird %dill boot
{$crud p/@tas q/(list tank)} :: error with trace
{$flog p/flog} :: wrapped error
{$flow p/@tas q/(list gill:gall)} :: terminal config
Work in progress.
2018-08-16 04:05:30 +03:00
{$hail ~} :: terminal refresh
{$heft ~} :: memory report
{$hook ~} :: this term hung up
{$harm ~} :: all terms hung up
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$init p/ship} :: after gall ready
{$tick p/@p q/@p} :: initial ticket
Work in progress.
2018-08-16 04:05:30 +03:00
{$noop ~} :: no operation
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$talk p/tank} ::
{$text p/tape} ::
{$veer p/@ta q/path r/@t} :: install vane
{$vega p/path q/path} :: old reboot
{$velo p/@t q/@t} :: reboot
Work in progress.
2018-08-16 04:05:30 +03:00
{$verb ~} :: verbose mode
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
-- ::able
::
:::: :: (1d2)
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ blew {p/@ud q/@ud} :: columns rows
++ belt :: old belt
$% {$aro p/?($d $l $r $u)} :: arrow key
Work in progress.
2018-08-16 04:05:30 +03:00
{$bac ~} :: true backspace
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$ctl p/@c} :: control-key
Work in progress.
2018-08-16 04:05:30 +03:00
{$del ~} :: true delete
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$met p/@c} :: meta-key
Work in progress.
2018-08-16 04:05:30 +03:00
{$ret ~} :: return
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$txt p/(list @c)} :: utf32 text
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ blit :: old blit
Work in progress.
2018-08-16 04:05:30 +03:00
$% {$bel ~} :: make a noise
{$clr ~} :: clear the screen
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$hop p/@ud} :: set cursor position
{$lin p/(list @c)} :: set current line
Work in progress.
2018-08-16 04:05:30 +03:00
{$mor ~} :: newline
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$sag p/path q/*} :: save to jamfile
{$sav p/path q/@} :: save to file
{$url p/@t} :: activate url
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Work in progress.
2018-08-16 04:05:30 +03:00
++ deco ?(~ $bl $br $un) :: text decoration
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ dill-belt :: new belt
$% {$aro p/?($d $l $r $u)} :: arrow key
Work in progress.
2018-08-16 04:05:30 +03:00
{$bac ~} :: true backspace
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$cru p/@tas q/(list tank)} :: echo error
{$ctl p/@} :: control-key
Work in progress.
2018-08-16 04:05:30 +03:00
{$del ~} :: true delete
{$hey ~} :: refresh
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$met p/@} :: meta-key
Work in progress.
2018-08-16 04:05:30 +03:00
{$ret ~} :: return
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$rez p/@ud q/@ud} :: resize, cols, rows
{$txt p/(list @c)} :: utf32 text
{$yow p/gill:gall} :: connect to app
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ dill-blit :: new blit
Work in progress.
2018-08-16 04:05:30 +03:00
$% {$bel ~} :: make a noise
{$clr ~} :: clear the screen
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$hop p/@ud} :: set cursor position
{$klr p/stub} :: styled text
{$mor p/(list dill-blit)} :: multiple blits
{$pom p/stub} :: styled prompt
{$pro p/(list @c)} :: show as cursor+line
Work in progress.
2018-08-16 04:05:30 +03:00
{$qit ~} :: close console
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$out p/(list @c)} :: send output line
{$sag p/path q/*} :: save to jamfile
{$sav p/path q/@} :: save to file
{$url p/@t} :: activate url
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ flog :: sent to %dill
$% {$crud p/@tas q/(list tank)} ::
Work in progress.
2018-08-16 04:05:30 +03:00
{$heft ~} ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$text p/tape} ::
{$veer p/@ta q/path r/@t} :: install vane
{$vega p/path q/path} :: old reboot
{$velo p/@t q/@t} :: reboot
Work in progress.
2018-08-16 04:05:30 +03:00
{$verb ~} :: verbose mode
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
-- ::dill
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
:::: ++eyre :: (1e) oldweb
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
++ eyre ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::
:::: ++able:eyre :: (1e1) arvo moves
:: ::::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ able ^?
|%
%zuse to 143; some fixes.
2017-10-25 02:50:11 +03:00
+= gift :: out result <-$
adds http configuration effect (%form) and port notification move (%live)
2018-06-13 22:08:10 +03:00
$% [%form p=http-config] :: configuration
[%mass p=mass] :: memory usage
%zuse to 143; some fixes.
2017-10-25 02:50:11 +03:00
[%mack p=(unit tang)] :: message ack
[%sigh p=cage] :: marked http response
adds authentication nonce to proxy notifications %wise and %that
2018-07-11 06:39:13 +03:00
[%that p=@p q=prox] :: get proxied request
%zuse to 143; some fixes.
2017-10-25 02:50:11 +03:00
[%thou p=httr] :: raw http response
[%thus p=@ud q=(unit hiss)] :: http request+cancel
[%veer p=@ta q=path r=@t] :: drop-through
[%vega p=path q=path] :: drop-through
[%velo p=@t q=@t] :: drop-through
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
%zuse to 143; some fixes.
2017-10-25 02:50:11 +03:00
+= task :: in request ->$
adds config to %eyre state, %rule gift to update, %born includes host/ips
2018-06-28 20:33:47 +03:00
$% [%born p=(list host)] :: new unix process
%zuse to 143; some fixes.
2017-10-25 02:50:11 +03:00
[%crud p=@tas q=(list tank)] :: XX rethink
[%hiss p=(unit user) q=mark r=cage] :: outbound user req
[%init p=@p] :: report install
adds http configuration effect (%form) and port notification move (%live)
2018-06-13 22:08:10 +03:00
[%live p=@ud q=(unit @ud)] :: http/s ports
adds config to %eyre state, %rule gift to update, %born includes host/ips
2018-06-28 20:33:47 +03:00
[%rule p=http-rule] :: update config
%zuse to 143; some fixes.
2017-10-25 02:50:11 +03:00
[%serv p=$@(desk beam)] :: set serving root
[%them p=(unit hiss)] :: outbound request
[%they p=@ud q=httr] :: inbound response
[%chis p=? q=clip r=httq] :: IPC inbound request
[%this p=? q=clip r=httq] :: inbound request
[%thud ~] :: inbound cancel
[%wegh ~] :: report memory
implements .well-known in %eyre
2018-05-15 06:48:29 +03:00
[%well p=path q=(unit mime)] :: put/del .well-known
%zuse to 143; some fixes.
2017-10-25 02:50:11 +03:00
[%went p=sack q=path r=@ud s=coop] :: response confirm
[%west p=sack q=[path *]] :: network request
adds authentication nonce to proxy notifications %wise and %that
2018-07-11 06:39:13 +03:00
[%wise p=ship q=prox] :: proxy notification
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
-- ::able
::
:::: :: (1e2)
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ bale :: driver state
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* a/_* :: %jael keys type
$: {our/ship now/@da eny/@uvJ byk/beak} :: base info
{usr/user dom/(list @t)} :: req user, domain
key/a :: secrets from %jael
%velo reset works.
2016-12-02 04:17:02 +03:00
== ::
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ clip (each @if @is) :: client IP
++ cred :: credential
$: hut/hart :: client host
aut/(jug @tas @t) :: client identities
orx/oryx :: CSRF secret
acl/(unit @t) :: accept-language
cip/(each @if @is) :: client IP
cum/(map @tas *) :: custom dirt
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ epic :: FCGI parameters
$: qix/(map @t @t) :: query
ced/cred :: client credentials
bem/beam :: original path
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Work in progress.
2018-08-16 04:05:30 +03:00
++ gram :: inter-ship message
$% [%lon p=hole] :: login request
[%aut p=hole] :: login reply
[%hat p=hole q=hart] :: login redirect
[%get p=@uvH q=[? clip httq]] :: remote request
[%got p=@uvH q=httr] :: remote response
[%gib p=@uvH] :: remote cancel
v0 cross-ship page wrap, purely in eyre
2018-04-25 01:26:20 +03:00
::
Work in progress.
2018-08-16 04:05:30 +03:00
[%get-inner p=@uvH q=mark r=coin s=beam] ::TODO details?
[%got-inner p=@uvH q=(each (cask) tang)] ::TODO details?
adds http reverse proxy notification move (%wise) and effect (%that)
2018-06-06 20:24:59 +03:00
::
Work in progress.
2018-08-16 04:05:30 +03:00
[%not p=prox] :: proxy notification
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ hart {p/? q/(unit @ud) r/host} :: http sec+port+host
++ hate {p/purl q/@p r/moth} :: semi-cooked request
++ heir {p/@ud q/mess r/(unit love)} :: status+headers+data
++ hiss {p/purl q/moth} :: outbound request
++ hole @t :: session identity
++ hort {p/(unit @ud) q/host} :: http port+host
++ host (each (list @t) @if) :: http host
Work in progress.
2018-08-16 04:05:30 +03:00
++ hoke %+ each {$localhost ~} :: local host
New metal boot system.
2016-11-24 07:25:07 +03:00
?($.0.0.0.0 $.127.0.0.1) ::
adds http configuration effect (%form) and port notification move (%live)
2018-06-13 22:08:10 +03:00
:: +http-config: full http-server configuration
::
+= http-config
adds config to %eyre state, %rule gift to update, %born includes host/ips
2018-06-28 20:33:47 +03:00
$: :: secure: PEM-encoded RSA private key and cert or cert chain
adds http configuration effect (%form) and port notification move (%live)
2018-06-13 22:08:10 +03:00
::
adds config to %eyre state, %rule gift to update, %born includes host/ips
2018-06-28 20:33:47 +03:00
secure=(unit [key=wain cert=wain])
adds http configuration effect (%form) and port notification move (%live)
2018-06-13 22:08:10 +03:00
:: proxy: reverse TCP proxy HTTP(s)
::
proxy=?
:: log: keep HTTP(s) access logs
::
log=?
:: redirect: send 301 redirects to upgrade HTTP to HTTPS
::
:: Note: requires certificate.
::
redirect=?
==
adds config to %eyre state, %rule gift to update, %born includes host/ips
2018-06-28 20:33:47 +03:00
:: +http-rule: update configuration
::
+= http-rule
$% :: %cert: set or clear certificate and keypair
::
[%cert p=(unit [key=wain cert=wain])]
:: %turf: add or remove established dns binding
::
[%turf p=?(%put %del) q=(list @t)]
==
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ httq :: raw http request
$: p/meth :: method
q/@t :: unparsed url
r/(list {p/@t q/@t}) :: headers
s/(unit octs) :: body
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ httr {p/@ud q/mess r/(unit octs)} :: raw http response
++ httx :: encapsulated http
$: p/? :: https?
q/clip :: source IP
r/httq ::
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ user knot :: username
++ love :: http response
$% {$ham p/manx} :: html node
{$mid p/mite q/octs} :: mime-typed data
{$raw p/httr} :: raw http response
{$wan p/wain} :: text lines
{$zap p/@ud q/(list tank)} :: status+error
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ math (map @t (list @t)) :: semiparsed headers
++ mess (list {p/@t q/@t}) :: raw http headers
++ meth :: http methods
$? $conn :: CONNECT
$delt :: DELETE
$get :: GET
$head :: HEAD
$opts :: OPTIONS
$post :: POST
$put :: PUT
$trac :: TRACE
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ mite (list @ta) :: mime type
++ moth {p/meth q/math r/(unit octs)} :: http operation
++ octs {p/@ud q/@t} :: octet-stream
++ oryx @t :: CSRF secret
++ pork {p/(unit @ta) q/(list @t)} :: fully parsed url
adds authentication nonce to proxy notifications %wise and %that
2018-07-11 06:39:13 +03:00
:: +prox: proxy notification
::
:: Used on both the proxy (ward) and upstream sides for
:: sending/receiving proxied-request notifications.
::
+= prox
$: :: por: tcp port
::
por=@ud
:: sek: secure?
::
sek=?
:: non: authentication nonce
::
non=@uvJ
==
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ purf (pair purl (unit @t)) :: url with fragment
++ purl {p/hart q/pork r/quay} :: parsed url
++ quay (list {p/@t q/@t}) :: parsed url query
Work in progress.
2018-08-16 04:05:30 +03:00
++ quer |-($@(~ {p/@t q/@t t/$})) :: query tree
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ quri :: request-uri
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
$% {%& p/purl} :: absolute
{%| p/pork q/quay} :: relative
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ rout {p/(list host) q/path r/oryx s/path} :: http route (new)
++ sec-move :: driver effect
$% {$send p/hiss} :: http out
{$show p/purl} :: direct user to url
{$give p/httr} :: respond immediately
Work in progress.
2018-08-16 04:05:30 +03:00
{$redo ~} :: restart request qeu
%velo reset works.
2016-12-02 04:17:02 +03:00
== ::
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::eyre
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
:::: ++ford :: (1f) build
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
:: |ford: build system vane interface
::
WIP: Commiting so I can get the ~+ patch.
2018-08-09 00:47:01 +03:00
++ ford ^?
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
|%
:: |able:ford: ford's public +move interface
::
++ able ^?
|%
:: +task:able:ford: requests to ford
::
+= task
Switch Gall to use the Turbo vane. This fixes Gall and userland apps so that they boot. It then disables %hall and %talk, which will only boot with the +fond jet disabled. (Otherwise, we get a bail from the jet.)
2018-06-06 03:11:06 +03:00
$% :: %build: perform a build, either live or once
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
::
Switch Gall to use the Turbo vane. This fixes Gall and userland apps so that they boot. It then disables %hall and %talk, which will only boot with the +fond jet disabled. (Otherwise, we get a bail from the jet.)
2018-06-06 03:11:06 +03:00
$: %build
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
:: our: who our ship is (remove after cc-release)
::
our=@p
Add a live=? bit to %build.
2018-07-23 23:58:38 +03:00
:: live: whether we run this build live
::
:: A live build will subscribe to further updates and keep the
:: build around.
::
live=?
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
:: plan: the schematic to build
::
=schematic
==
Add FIFO build cache. Tests pass
2018-08-21 02:59:44 +03:00
:: %keep: reset cache sizes
%keep in ford.
2018-08-15 23:48:41 +03:00
::
Add FIFO build cache. Tests pass
2018-08-21 02:59:44 +03:00
[%keep compiler-cache=@ud build-cache=@ud]
Switch Gall to use the Turbo vane. This fixes Gall and userland apps so that they boot. It then disables %hall and %talk, which will only boot with the +fond jet disabled. (Otherwise, we get a bail from the jet.)
2018-06-06 03:11:06 +03:00
:: %kill: stop a build; send on same duct as original %build request
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
::
$: %kill
:: our: who our ship is (remove after cc-release)s
::
our=@p
==
:: %wegh: produce memory usage information
::
[%wegh ~]
%wipe percentage
2018-08-15 23:07:39 +03:00
:: %wipe: wipes stored builds
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
::
%wipe percentage
2018-08-15 23:07:39 +03:00
[%wipe percent-to-remove=@ud]
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
==
:: +gift:able:ford: responses from ford
::
+= gift
$% :: %mass: memory usage; response to %wegh +task
::
[%mass p=mass]
Switch Gall to use the Turbo vane. This fixes Gall and userland apps so that they boot. It then disables %hall and %talk, which will only boot with the +fond jet disabled. (Otherwise, we get a bail from the jet.)
2018-06-06 03:11:06 +03:00
:: %made: build result; response to %build +task
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
::
$: %made
:: date: formal date of the build
::
date=@da
:: result: result of the build; either complete build, or error
::
Switch Gall to use the Turbo vane. This fixes Gall and userland apps so that they boot. It then disables %hall and %talk, which will only boot with the +fond jet disabled. (Otherwise, we get a bail from the jet.)
2018-06-06 03:11:06 +03:00
result=made-result
== ==
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
--
Switch Gall to use the Turbo vane. This fixes Gall and userland apps so that they boot. It then disables %hall and %talk, which will only boot with the +fond jet disabled. (Otherwise, we get a bail from the jet.)
2018-06-06 03:11:06 +03:00
:: +made-result: the main payload for a %made +gift
::
+= made-result
$% :: %complete: contains the result of the completed build
::
[%complete =build-result]
:: %incomplete: couldn't finish build; contains error message
::
[%incomplete =tang]
==
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
:: +disc: a desk on a ship; can be used as a beak that varies with time
::
+= disc [=ship =desk]
:: +rail: a time-varying full path
::
:: This can be thought of as a +beam without a +case, which is what
:: would specify the time. :spur is flopped just like the +spur in a +beam.
::
+= rail [=disc =spur]
:: +resource: time-varying dependency on a value from the urbit namespace
::
+= resource
$: :: vane which we are querying
::
killed several TODOs
2018-08-18 01:27:47 +03:00
vane=%c
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
:: type of request
::
:: TODO: care:clay should be cleaned up in zuse as it is a general
:: type, not a clay specific one.
::
care=care:clay
:: path on which to depend, missing time, which will be filled in
::
=rail
==
:: +build-result: the referentially transparent result of a +build
::
:: A +build produces either an error or a result. A result is a tagged
:: union of the various kinds of datatypes a build can produce. The tag
:: represents the sub-type of +schematic that produced the result.
::
+= build-result
$% :: %error: the build produced an error whose description is :message
::
[%error message=tang]
:: %success: result of successful +build, tagged by +schematic sub-type
::
$: %success
$^ [head=build-result tail=build-result]
$% [%$ =cage]
[%alts =build-result]
[%bake =cage]
[%bunt =cage]
[%call =vase]
[%cast =cage]
[%core =vase]
[%diff =cage]
[%hood =scaffold]
[%join =cage]
Add %list schematic This replaces the %tabl silk from old ford.
2018-06-13 00:51:21 +03:00
[%list results=(list build-result)]
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
[%mash =cage]
[%mute =cage]
[%pact =cage]
[%path =rail]
[%plan =vase]
[%reef =vase]
[%ride =vase]
[%scry =cage]
[%slim [=type =nock]]
[%slit =type]
[%vale =cage]
[%volt =cage]
Add the %walk schematic
2018-06-23 01:20:52 +03:00
[%walk results=(list mark-action)]
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
== == ==
Add the %walk schematic
2018-06-23 01:20:52 +03:00
:: +mark-action: represents a single mark conversion step
::
:: In mark conversion, we want to convert from :source to :target. We also
:: need to keep track of what type of conversion this is. If %grab, we
:: want to use the definitions in the :target mark. If %grow, we want to
:: use the :source mark.
::
+= mark-action [type=?(%grow %grab) source=term target=term]
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
::
:: +schematic: plan for building
::
++ schematic
:: If the head of the +schematic is a pair, it's an auto-cons
:: schematic. Its result will be the pair of results of its
:: sub-schematics.
::
$^ [head=schematic tail=schematic]
::
$% :: %$: literal value. Produces its input unchanged.
::
$: %$
:: literal: the value to be produced by the build
::
literal=cage
==
:: %pin: pins a sub-schematic to a date
::
:: There is a difference between live builds and once builds. In
:: live builds, we produce results over and over again and aren't
:: pinned to a specifc time. In once builds, we want to specify a
:: specific date, which we apply recursively to any sub-schematics
:: contained within :schematic.
::
:: If a build has a %pin at the top level, we consider it to be a
:: once build. Otherwise, we consider it to be a live build. We do
:: this so schematics which depend on the result of a once build can
:: be cached, giving the client explicit control over the caching
:: behaviour.
::
$: %pin
:: date: time at which to perform the build
::
date=@da
:: schematic: wrapped schematic of pinned time
::
=schematic
==
:: %alts: alternative build choices
::
:: Try each choice in :choices, in order; accept the first one that
:: succeeds. Note that the result inherits the dependencies of all
:: failed schematics, as well as the successful one.
::
$: %alts
:: choices: list of build options to try
::
choices=(list schematic)
==
:: %bake: run a file through a renderer
::
$: %bake
:: renderer: name of renderer; also its file path in ren/
::
renderer=term
:: query-string: the query string of the renderer's http path
::
query-string=coin
:: path-to-render: full path of file to render
::
path-to-render=rail
==
:: %bunt: produce the default value for a mark
::
$: %bunt
:: disc where in clay to load the mark from
::
=disc
:: mark: name of mark; also its file path in mar/
::
mark=term
==
:: %call: call a gate on a sample
::
$: %call
:: gate: schematic whose result is a gate
::
gate=schematic
:: sample: schematic whose result will be the gate's sample
::
sample=schematic
==
:: %cast: cast the result of a schematic through a mark
::
$: %cast
:: disc where in clay to load the mark from
::
=disc
:: mark: name of mark; also its file path in ren/
::
mark=term
:: input: schematic whose result will be run through the mark
::
input=schematic
==
:: %core: build a hoon program from a source file
::
$: %core
:: source-path: clay path from which to load hoon source
::
source-path=rail
==
:: %diff: produce marked diff from :first to :second
::
$: %diff
:: disc where in clay to load the mark from
::
=disc
:: old: schematic producing data to be used as diff starting point
::
start=schematic
:: new: schematic producing data to be used as diff ending point
::
end=schematic
==
:: %dude: wrap a failure's error message with an extra message
::
$: %dude
:: error: a trap producing an error message to wrap the original
::
error=(trap tank)
:: attempt: the schematic to try, whose error we wrap, if any
::
attempt=schematic
==
:: %hood: create a +hood from a hoon source file
::
$: %hood
:: source-path: clay path from which to load hoon source
::
source-path=rail
==
:: %join: merge two diffs into one diff; produces `~` if conflicts
::
$: %join
:: disc where in clay to load the mark from
::
=disc
:: mark: name of the mark to use for diffs; also file path in mar/
::
mark=term
:: first: schematic producing first diff
::
first=schematic
:: second: schematic producing second diff
::
second=schematic
==
Add %list schematic This replaces the %tabl silk from old ford.
2018-06-13 00:51:21 +03:00
:: %list: performs a list of schematics, returns a list of +builds-results
::
$: %list
:: schematics: list of builds to perform
::
schematics=(list schematic)
==
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
:: %mash: force a merge, annotating any conflicts
::
$: %mash
:: disc where in clay to load the mark from
::
=disc
:: mark: name of mark used in diffs; also file path in mar/
::
mark=term
:: first: marked schematic producing first diff
::
first=[=disc mark=term =schematic]
:: second: marked schematic producing second diff
::
second=[=disc mark=term =schematic]
==
:: %mute: mutate a noun by replacing its wings with new values
::
$: %mute
:: subject: schematic producing the noun to mutate
::
subject=schematic
:: mutations: axes and schematics to produce their new contents
::
mutations=(list (pair wing schematic))
==
:: %pact: patch a marked noun by applying a diff
::
$: %pact
:: disc where in clay to load marks from
::
=disc
:: start: schematic producing a noun to be patched
::
start=schematic
:: diff: schematic producing the diff to apply to :start
::
diff=schematic
==
:: %path: resolve a path with `-`s to a path with `/`s
::
:: Resolve +raw-path to a path containing a file, replacing
:: any `-`s in the path with `/`s if no file exists at the
:: original path. Produces an error if multiple files match,
:: e.g. a/b/c and a/b-c, or a/b/c and a-b/c.
::
$: %path
:: disc: the +disc forming the base of the path to be resolved
::
=disc
:: prefix: path prefix under which to resolve :raw-path, e.g. lib
::
prefix=@tas
:: raw-path: the file path to be resolved
::
raw-path=@tas
==
:: %plan: build a hoon program from a preprocessed source file
::
$: %plan
:: path-to-render: the clay path of a file being rendered
::
:: TODO: Once we've really implemented this, write the
:: documentation. (This is the path that starts out as the path
:: of the hoon source which generated the scaffold, but can be
:: changed with `/:`.)
::
path-to-render=rail
:: query-string: the query string of the http request
::
query-string=coin
:: scaffold: preprocessed hoon source and imports
::
=scaffold
==
:: %reef: produce a hoon+zuse kernel. used internally for caching
::
$: %reef
:: disc: location of sys/hoon/hoon and sys/zuse/hoon
::
=disc
==
:: %ride: eval hoon as formula with result of a schematic as subject
::
$: %ride
:: formula: a hoon to be evaluated against a subject
::
formula=hoon
:: subject: a schematic whose result will be used as subject
::
subject=schematic
==
:: %same: the identity function
::
:: Functionally used to "unpin" a build for caching reasons. If you
:: run a %pin build, it is treated as a once build and is therefore
:: not cached. Wrapping the %pin schematic in a %same schematic
:: converts it to a live build, which will be cached due to live
:: build subscription semantics.
::
$: %same
:: schematic that we evaluate to
::
=schematic
==
:: %scry: lookup a value from the urbit namespace
::
$: %scry
:: resource: a namespace request, with unspecified time
::
:: Schematics can only be resolved when specifying a time,
:: which will convert this +resource into a +scry-request.
::
=resource
==
:: %slim: compile a hoon against a subject type
::
$: %slim
:: compile-time subject type for the :formula
::
subject-type=type
:: formula: a +hoon to be compiled to (pair type nock)
::
formula=hoon
==
:: %slit: get type of gate product
::
$: %slit
:: gate: a vase containing a gate
::
gate=vase
:: sample: a vase containing the :gate's sample
::
sample=vase
==
:: %vale: coerce a noun to a mark, validated
::
$: %vale
:: disc where in clay to load the mark from
::
=disc
:: mark: name of mark to use; also file path in mar/
::
mark=term
:: input: the noun to be converted using the mark
::
input=*
==
:: %volt: coerce a noun to a mark, unsafe
::
$: %volt
:: disc where in clay to load the mark from
::
=disc
:: mark: name of mark to use; also file path in mar/
::
mark=term
:: input: the noun to be converted using the mark
::
input=*
==
Add the %walk schematic
2018-06-23 01:20:52 +03:00
:: %walk: finds a mark conversion path between two marks
::
$: %walk
:: disc in clay to load the marks from
::
=disc
:: source: the original mark type
::
source=term
:: target: the destination mark type
::
target=term
==
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
==
::
:: +scaffold: program construction in progress
::
:: A source file with all its imports and requirements, which will be
:: built and combined into one final product.
::
+= scaffold
$: :: source-rail: the file this scaffold was parsed from
::
source-rail=rail
:: zuse-version: the kelvin version of the standard library
::
zuse-version=@ud
:: structures: files from %/sur which are included
::
structures=(list cable)
:: libraries: files from %/lib which are included
::
libraries=(list cable)
:: cranes: a list of resources to transform and include
::
cranes=(list crane)
:: sources: hoon sources, either parsed or on the filesystem
::
WIP: trying to move to master branch.
2018-07-20 02:49:11 +03:00
sources=(list hoon)
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
==
:: +cable: a reference to something on the filesystem
::
+= cable
$: :: face: the face to wrap around the imported file
::
face=(unit term)
:: file-path: location in clay
::
file-path=term
==
:: +truss: late-bound path
::
:: TODO: the +tyke data structure should be rethought, possibly as part
:: of this effort since it is actually a `(list (unit hoon))`, when it
:: only represents @tas. It should be a structure which explicitly
:: represents a path with holes that need to be filled in.
::
+= truss
$: pre=(unit tyke)
pof=(unit [p=@ud q=tyke])
==
:: +crane: parsed rune used to include and transform resources
::
:: Cranes lifting cranes lifting cranes!
::
:: A recursive tree of Ford directives that specifies instructions for
:: including and transforming resources from the Urbit namespace.
::
+= crane
$% $: :: %fssg: `/~` hoon literal
::
:: `/~ <hoon>` produces a crane that evaluates arbitrary hoon.
::
%fssg
=hoon
==
$: :: %fsbc: `/$` process query string
::
:: `/$` will call a gate with the query string supplied to this
:: build. If no query string, this errors.
::
%fsbc
=hoon
==
$: :: %fsbr: `/|` first of many options that succeeds
::
:: `/|` takes a series of cranes and produces the first one
:: (left-to-right) that succeeds. If none succeed, it produces
:: stack traces from all of its arguments.
::
%fsbr
:: choices: cranes to try
::
choices=(list crane)
==
$: :: %fsts: `/=` wrap a face around a crane
::
:: /= runs a crane (usually produced by another ford rune), takes
:: the result of that crane, and wraps a face around it.
::
%fsts
:: face: face to apply
::
face=term
:: crane: internal build step
::
=crane
==
$: :: %fsdt: `/.` null-terminated list
::
:: Produce a null-terminated list from a sequence of cranes,
:: terminated by a `==`.
::
%fsdt
:: items: cranes to evaluate
::
items=(list crane)
==
$: :: %fscm: `/,` switch by path
::
:: `/,` is a switch statement, which picks a branch to evaluate
:: based on whether the current path matches the path in the
:: switch statement. Takes a sequence of pairs of (path, crane)
:: terminated by a `==`.
::
%fscm
:: cases: produces evaluated crane of first +spur match
::
cases=(list (pair spur crane))
==
$: :: %fspm: `/&` pass through a series of marks
::
:: `/&` passes a crane through multiple marks, right-to-left.
::
%fspm
:: marks: marks to apply to :crane, in reverse order
::
marks=(list mark)
=crane
==
$: :: %fscb: `/_` run a crane on each file in the current directory
::
:: `/_` takes a crane as an argument. It produces a new crane
:: representing the result of mapping the supplied crane over the
:: list of files in the current directory. The keys in the
:: resulting map are the basenames of the files in the directory,
:: and each value is the result of running that crane on the
:: contents of the file.
::
%fscb
=crane
==
$: :: %fssm: `/;` operate on
::
:: `/;` takes a hoon and a crane. The hoon should evaluate to a
:: gate, which is then called with the result of the crane as its
:: sample.
::
%fssm
=hoon
=crane
==
$: :: %fscl: `/:` evaluate at path
::
:: `/:` takes a path and a +crane, and evaluates the crane with
:: the current path set to the supplied path.
::
%fscl
:: path: late bound path to be resolved relative to current beak
::
:: This becomes current path of :crane
::
path=truss
=crane
==
$: :: %fskt: `/^` cast
::
:: `/^` takes a +mold and a +crane, and casts the result of the
:: crane to the mold.
::
%fskt
:: mold: evaluates to a mold to be applied to :crane
::
Almost back to working.
2018-08-17 00:39:39 +03:00
=spec
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
=crane
==
Add /* ford rune
2018-08-23 03:53:56 +03:00
$: :: %fstr: `/*` run :crane on all files with current path as prefix
::
%fstr
=crane
==
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
$: :: %fszp: `/!mark/` evaluate as hoon, then pass through mark
::
%fszp
=mark
==
$: :: %fszy: `/mark/` passes current path through :mark
::
%fszy
=mark
== ==
WIP trying to get dontjo working
2018-06-01 03:14:39 +03:00
:: +result-to-cage: extract a +cage from a +build-result
::
++ result-to-cage
|= result=build-result
^- cage
?: ?=(%error -.result)
[%tang !>(message.result)]
?- -.+.result
^ [%noun (slop q:$(result head.result) q:$(result tail.result))]
%$ cage.result
%alts $(result build-result.result)
%bake cage.result
%bunt cage.result
%call [%noun vase.result]
%cast cage.result
%core [%noun vase.result]
%diff cage.result
%hood [%noun !>(scaffold.result)]
%join cage.result
Add %list schematic This replaces the %tabl silk from old ford.
2018-06-13 00:51:21 +03:00
%list [%noun -:!>(*(list cage)) (turn results.result result-to-cage)]
WIP trying to get dontjo working
2018-06-01 03:14:39 +03:00
%mash cage.result
%mute cage.result
%pact cage.result
%path [%noun !>(rail.result)]
%plan [%noun vase.result]
%reef [%noun vase.result]
%ride [%noun vase.result]
%scry cage.result
%slim [%noun !>([type nock]:result)]
%slit [%noun !>(type.result)]
%vale cage.result
%volt cage.result
Add the %walk schematic
2018-06-23 01:20:52 +03:00
%walk [%noun !>(results.result)]
WIP trying to get dontjo working
2018-06-01 03:14:39 +03:00
==
Boots with clay backed by ford-turbo.
2018-06-16 01:36:41 +03:00
:: +result-as-error: extracts a tang out of a made-result
::
++ made-result-as-error
|= result=made-result
^- tang
?: ?=([%incomplete *] result)
tang.result
?: ?=([%complete %error *] result)
message.build-result.result
~
transfusion into kernel as %t vane
2018-05-31 02:25:28 +03:00
--
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
whitespace conformity
2016-12-08 22:47:05 +03:00
:::: ++gall :: (1g) extensions
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
++ gall ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::
:::: ++able:gall :: (1g1) arvo moves
:: ::::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ able ^?
|%
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ gift :: outgoing result
$% {$mass p/mass} :: memory usage
{$onto p/(each suss tang)} :: about agent
{$rend p/path q/*} :: network request
{$unto p/cuft} ::
{$mack p/(unit tang)} :: message ack
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ task :: incoming request
$% {$conf p/dock q/culm} :: configure app
{$init p/ship} :: set owner
{$deal p/sock q/cush} :: full transmission
{$went p/sack q/path r/@ud s/coop} :: response confirm
{$west p/sack q/path r/*} :: network request
Work in progress.
2018-08-16 04:05:30 +03:00
{$wegh ~} :: report memory
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
-- ::able
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ bitt (map bone (pair ship path)) :: incoming subs
++ boat :: outgoing subs
whitespace violations
2016-12-07 06:14:39 +03:00
%+ map (pair bone wire) ::
(trel bean ship path) ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ bowl :: standard app state
$: $: our/ship :: host
src/ship :: guest
dap/term :: agent
%velo reset works.
2016-12-02 04:17:02 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$: wex/boat :: outgoing subs
sup/bitt :: incoming subs
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$: ost/bone :: opaque cause
act/@ud :: change number
eny/@uvJ :: entropy
now/@da :: current time
byk/beak :: load source
New metal boot system.
2016-11-24 07:25:07 +03:00
== == ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ club :: agent action
$% {$peel p/mark q/path} :: translated peer
{$peer p/path} :: subscribe
{$poke p/cage} :: apply
{$puff p/mark q/noun} :: unchecked poke
Work in progress.
2018-08-16 04:05:30 +03:00
{$pull ~} :: unsubscribe
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$punk p/mark q/cage} :: translated poke
Work in progress.
2018-08-16 04:05:30 +03:00
{$pump ~} :: pump yes+no
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$peer-not p/tang} :: poison pill peer
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ cuft :: internal gift
$% {$coup p/(unit tang)} :: poke result
{$diff p/cage} :: subscription output
Work in progress.
2018-08-16 04:05:30 +03:00
{$quit ~} :: close subscription
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$reap p/(unit tang)} :: peer result
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ culm :: config action
$% {$load p/scup} :: load+reload
Work in progress.
2018-08-16 04:05:30 +03:00
:: {$kick ~} :: restart everything
:: {$stop ~} :: toggle suspend
:: {$wipe ~} :: destroy all state
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ cush (pair term club) :: internal task
++ dude term :: server identity
++ gill (pair ship term) :: general contact
move ++json and other above-arvo types to zuse
2017-11-23 00:28:07 +03:00
++ scar :: opaque duct
$: p/@ud :: bone sequence
q/(map duct bone) :: by duct
r/(map bone duct) :: by bone
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ scup (pair ship desk) :: autoupdate
++ suss (trel dude @tas @da) :: config report
++ well (pair desk term) ::
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::gall
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
whitespace conformity
2016-12-08 22:47:05 +03:00
:::: ++jael :: (1h) security
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
++ jael ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::
:::: ++able:jael :: (1h1) arvo moves
:: ::::
New metal boot system.
2016-11-24 07:25:07 +03:00
++ able ^?
=, pki
=, rights
Misc TODOs.
2018-05-29 23:03:20 +03:00
::TODO =, eth:jael
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
:: %jael has two general kinds of task: changes
:: and change subscriptions.
::
:: change tasks are designed to match high-level
Reverted accidentally renamed jael tag.
2017-12-22 00:44:17 +03:00
:: operations - for instance, we have %burn, %mint,
New metal boot system.
2016-11-24 07:25:07 +03:00
:: and %move, not just a single delta operation.
:: more of these operations will probably be added,
:: and invariants enforced at transaction end.
::
:: subscriptions are also user-focused - for instance,
:: %vein sends all the information needed to maintain
:: the secure channel, both rights and certificates.
:: the security-critical tasks (%veil, %vein, %vine)
:: should probably be bound to a whitelisted duct set.
:: (all secrets are redacted from %vest gifts.)
::
:: %jael only talks to %ames and %behn. we send messages
:: through %ames and use %behn timers.
::
Rename block to logs.
2018-06-01 18:30:14 +03:00
++ logs :: on-chain changes
Integrate Ethereum logic more closely into existing jael flows. Compiles, untested.
2018-05-29 00:04:33 +03:00
%+ map event-id:ethe :: per event log
Make use of new Spawned event to ensure one diff per event. This allows us to simplify logic and semantics.
2018-06-01 18:14:35 +03:00
diff-constitution:constitution:ethe :: the change
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ action :: balance change
New metal boot system.
2016-11-24 07:25:07 +03:00
%+ pair ship :: partner
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ each bump :: &/liability change
bump :: |/asset change
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ balance :: balance sheet
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ pair ::
New metal boot system.
2016-11-24 07:25:07 +03:00
(map ship safe) :: liabilities
(map ship safe) :: assets
:: ::
Integrate Ethereum logic more closely into existing jael flows. Compiles, untested.
2018-05-29 00:04:33 +03:00
++ chain :: batch of changes
Rename block to logs.
2018-06-01 18:30:14 +03:00
%+ each logs :: & all events
logs :: | new events
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ change :: urbit change
Integrate Ethereum logic more closely into existing jael flows. Compiles, untested.
2018-05-29 00:04:33 +03:00
$% [%ethe can=chain] :: on-chain change
Add %meet task to jael for indicating era connectivity
2018-08-30 03:05:34 +03:00
[%meet who=ship] :: meet in new era
Integrate Ethereum logic more closely into existing jael flows. Compiles, untested.
2018-05-29 00:04:33 +03:00
$: %rite :: rights change
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
rex/ship :: issuer
pal/ship :: issued to
del/bump :: change
New metal boot system.
2016-11-24 07:25:07 +03:00
== == ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ gift :: out result <-$
Make outgoing results actually work, by %pass-ing instead of %give-ing. This is terrible and should be done properly at some point.
2018-05-22 00:10:27 +03:00
$% [%mack p=(unit tang)] :: message n/ack
Include continuity flag in relative public key state
2018-08-30 03:02:17 +03:00
[%pubs public] :: public keys
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$vest p/tally} :: balance update
updates %jael to encode aut/net keys and use +pass everywhere
2018-08-23 22:23:52 +03:00
[%vein =life vein=(map life ring)] :: private keys
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$vine p/(list change)} :: all raw changes
Integrate Ethereum logic more closely into existing jael flows. Compiles, untested.
2018-05-29 00:04:33 +03:00
[%vent p=chain] :: ethereum changes
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ note :: out request $->
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
=, eyre
Make Ethereum state source configurable via %look task.
2018-05-25 03:11:21 +03:00
$% [%b %rest p=@da] :: cancel timer
[%b %wait p=@da] :: wait until
Send a correct %hiss to eyre.
2018-05-16 23:14:46 +03:00
[%e %hiss p=(unit user) q=mark r=cage] :: outbound user req
Make outgoing messages actually work.
2018-05-18 22:12:46 +03:00
[%a %want p=sock q=path r=*] :: send message
Move last bit of subscription update logic out of ++et, and make sure subscription results actually make it across.
2018-05-29 21:20:25 +03:00
[%j %vent-result p=chain] :: tmp workaround
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Include continuity flag in relative public key state
2018-08-30 03:02:17 +03:00
++ public :: public key state
$: live=? :: seen in current era
life=life :: current key number
pubs=(map life pass) :: pubkeys by number
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ remote :: remote notification
%+ each safe :: &/addition
safe :: |/replacement
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ sign :: in result $<-
Work in progress.
2018-08-16 04:05:30 +03:00
$% {$b $wake ~} :: wakeup
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
[%e %sigh p=cage] :: marked http response
Move last bit of subscription update logic out of ++et, and make sure subscription results actually make it across.
2018-05-29 21:20:25 +03:00
[%j %vent p=chain] :: ethereum changes
Make outgoing messages actually work.
2018-05-18 22:12:46 +03:00
[%a %woot p=ship q=coop] :: message result
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ tally :: balance update
New metal boot system.
2016-11-24 07:25:07 +03:00
%+ each balance :: complete
action :: change
::
%zuse to 143; some fixes.
2017-10-25 02:50:11 +03:00
+= task :: in request ->$
Make jael compile. At the cost of stubbed out ++table arms.
2018-05-09 18:23:25 +03:00
$% [%burn our=ship p=ship q=safe] :: destroy rights
[%hail our=ship p=ship q=remote] :: remote update
Strip out old jael PKI logic.
2018-05-23 02:35:16 +03:00
[%init our=ship] :: initialize urbit
Make Ethereum state source configurable via %look task.
2018-05-25 03:11:21 +03:00
[%look our=ship src=(each ship purl:eyre)] :: set ethereum source
Make jael compile. At the cost of stubbed out ++table arms.
2018-05-09 18:23:25 +03:00
[%mint our=ship p=ship q=safe] :: create rights
[%move our=ship p=ship q=ship r=safe] :: transfer from=to
Misc TODOs.
2018-05-29 23:03:20 +03:00
::TODO %next for generating/putting new private key
Merge branch 'master' of http://github.com/urbit/arvo
2017-10-27 01:39:14 +03:00
[%nuke ~] :: cancel tracker from
Add %pubs for subscribing to public keys of a specific ship.
2018-06-01 01:31:45 +03:00
[%pubs our=ship who=ship] :: view public keys
Add %meet task to jael for indicating era connectivity
2018-08-30 03:05:34 +03:00
[%meet our=ship who=ship] :: met after breach
Make jael compile. At the cost of stubbed out ++table arms.
2018-05-09 18:23:25 +03:00
[%vein our=ship] :: view signing keys
Small notes and cleanup.
2018-06-01 01:34:21 +03:00
[%vent our=ship] :: view ethereum events
Make jael compile. At the cost of stubbed out ++table arms.
2018-05-09 18:23:25 +03:00
[%vest our=ship] :: view public balance
Merge branch 'master' of http://github.com/urbit/arvo
2017-10-27 01:39:14 +03:00
[%vine ~] :: view secret history
Make outgoing messages actually work.
2018-05-18 22:12:46 +03:00
[%west p=sack q=path r=*] :: remote request
whitespace violations
2016-12-07 06:14:39 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ gilt gilt:womb
%velo reset works.
2016-12-02 04:17:02 +03:00
--
::
++ womb ^?
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: types used to serve the lib/womb invite controller
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ ticket @G :: old 64-bit ticket
++ passcode @uvH :: 128-bit passcode
++ passhash @uwH :: passocde hash
++ mail @t :: email address
++ invite ::
$: who/mail :: owner email
pla/@ud :: planets to send
sta/@ud :: stars to send
whitespace violations
2016-12-07 06:14:39 +03:00
== ::
:: ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ reinvite {tid/passcode inv/invite} :: new from old
++ task :: manage ship %fungi
$% {$claim aut/passcode her/@p tik/ticket} :: convert to %final
{$bonus tid/passcode pla/@ud sta/@ud} :: supplement passcode
{$invite tid/passcode inv/invite} :: alloc to passcode
{$reinvite aut/passcode reinvite} :: move to another
whitespace violations
2016-12-07 06:14:39 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ scry ::
$% {$shop typ/?($star $planet) nth/@u} :: available ships
{$stats who/ship} :: ship details
{$balance aut/passcode} :: invite details
whitespace violations
2016-12-07 06:14:39 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ balance {who/mail pla/@ud sta/@ud} :: XX same as invite?
++ gilt ::
$% {$ships (list ship)} ::
{$womb-owner (unit mail)} ::
{$womb-balance (unit balance)} ::
%velo reset works.
2016-12-02 04:17:02 +03:00
==
--
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::
whitespace conformity
2016-12-08 22:47:05 +03:00
:::: ++pki:jael :: (1h2) certificates
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ pki ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Strip out old jael PKI logic.
2018-05-23 02:35:16 +03:00
::TODO update to fit constitution-style keys
New metal boot system.
2016-11-24 07:25:07 +03:00
:: the urbit meta-certificate (++will) is a sequence
:: of certificates (++cert). each cert in a will
:: revokes and replaces the previous cert. the
:: version number of a ship is a ++life.
::
:: the deed contains an ++arms, a definition
%velo reset works.
2016-12-02 04:17:02 +03:00
:: of cosmetic identity; a semi-trusted parent,
New metal boot system.
2016-11-24 07:25:07 +03:00
:: which signs the initial certificate and provides
:: routing services; and a dirty bit. if the dirty
:: bit is set, the new life of this ship may have
:: lost information that the old life had.
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ hand @uvH :: 128-bit hash
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
++ kest :: public key-set
$: enc=pass :: encryption key
aut=pass :: authentication key
sut=@ud :: crypto-suite version
== ::
++ kist (map life kest) :: public key history
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ mind {who/ship lyf/life} :: key identifier
++ name (pair @ta @t) :: ascii / unicode
++ oath @ :: signature
New metal boot system.
2016-11-24 07:25:07 +03:00
-- :: pki
:: ::
whitespace conformity
2016-12-08 22:47:05 +03:00
:::: ++rights:jael :: (1h3) claims
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
++ rights ^?
=, pki
|%
:: %jael tracks promises (++rite) from ship to ship.
:: a rite may be any right, badge, asset, secret, etc.
%velo reset works.
2016-12-02 04:17:02 +03:00
:: un-shared secret or private asset is stored as a
New metal boot system.
2016-11-24 07:25:07 +03:00
:: rite from self to self.
::
:: each rite is really a class of rights, and often
:: has its own internal set or map structure.
::
:: present kinds of rite:
::
:: %apple: application secret for a web api.
:: %block: the promisee is banned.
:: %email: email tied to promissee's ship.
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: %final: ship/ticket pair, ready to launch.
New metal boot system.
2016-11-24 07:25:07 +03:00
:: %fungi: fungible, countable asset.
:: %guest: permission to adopt foreign child.
:: %hotel: block of unissued children.
:: %jewel: urbit private keys.
:: %login: user's login passcode.
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: %pword: password for a website/api.
New metal boot system.
2016-11-24 07:25:07 +03:00
:: %token: user access token for a web api.
%velo reset works.
2016-12-02 04:17:02 +03:00
:: %urban: symmetric key for urbit networking.
New metal boot system.
2016-11-24 07:25:07 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
:: %fungi keys can be anything, but don't reuse
New metal boot system.
2016-11-24 07:25:07 +03:00
:: currency codes. codes for urbit invitations:
:: %ugl == galaxy, %usr == star, %upl == planet
::
:: you can think of [our her rite] as an rdf triple.
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ bill (pair @da @) :: expiring value
++ bump :: rights change
$: mor/safe :: add rights
les/safe :: lose rights
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ dorm (pair ship bloq) :: issuing group
++ pile (tree (pair @ @)) :: efficient ship set
++ rite :: urbit commitment
$% {$apple p/(map site @)} :: web api key
Work in progress.
2018-08-16 04:05:30 +03:00
{$block ~} :: banned
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$email p/(set @t)} :: email addresses
Fill in stubs and make jael actually act on calls.
2018-05-10 02:42:37 +03:00
{$final p/(map ship @pG)} :: ticketed ships
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$fungi p/(map term @ud)} :: fungibles
Work in progress.
2018-08-16 04:05:30 +03:00
{$guest ~} :: refugee visa
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$hotel p/(map dorm pile)} :: reserved block
{$jewel p/(map life ring)} :: private keyring
{$login p/(set @pG)} :: login secret
{$pword p/(map site (map @t @t))} :: web passwd by user
{$token p/(map site (map @t @t))} :: app tokens by user
{$urban p/(map hand bill)} :: urbit symmetric keys
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ site (list @ta) :: [%com %yahoo %www ~]
++ safe (tree rite) :: rights set
New metal boot system.
2016-11-24 07:25:07 +03:00
-- :: rights
-- :: jael
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
:: ::::
whitespace conformity
2016-12-08 22:47:05 +03:00
:::: ++xmas :: (1i) new network
%velo reset works.
2016-12-02 04:17:02 +03:00
:: ::::
Adjust top-level conventions.
2016-12-08 06:57:22 +03:00
++ xmas ^?
:: ::
whitespace conformity
2016-12-08 22:47:05 +03:00
:::: ++able:xmas :: (1i1) arvo moves
%velo reset works.
2016-12-02 04:17:02 +03:00
:: ::::
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
++ able ^?
|%
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ gift ::
$% {$east p/*} :: response message
{$home p/lane q/@} :: process forward
{$send p/lane q/@} :: send packet
{$rest p/coop} :: acknowledgment
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ task :: in request ->$
$% {$hear p/lane q/@} ::
{$mess p/ship q/path r/*} :: send message
Work in progress.
2018-08-16 04:05:30 +03:00
{$wake ~} ::
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ card :: out cards
$% {$west p/ship q/path r/*} :: network request
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ sign :: in response $-<
restructures ++sign:able:xmas to avoid duplicate tag
2017-12-01 03:48:41 +03:00
$: $g ::
$% {$rend p/path q/*} :: network request
{$mack p/(unit tang)} :: message ack
== == ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ note :: out request $->
$% {$c $west p/ship q/path r/*} :: to %clay
{$e $west p/ship q/path r/*} :: to %eyre
{$g $west p/ship q/path r/*} :: to %gall
$: $j :: to %jael
$% {$line p/ship q/@da r/code} ::
{$link p/ship q/@da r/code} ::
{$veil p/ship} ::
{$west p/ship q/path r/*} :: to %gall
New metal boot system.
2016-11-24 07:25:07 +03:00
== == == ::
-- :: able
::
:::: :: (1i2)
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ code @uvI :: symmetric key
++ lane :: packet route
$% {$if p/@da q/@ud r/@if} :: IP4/public UDP/addr
{$is p/@ud q/(unit lane) r/@is} :: IPv6 w+alternates
{$ix p/@da q/@ud r/@if} :: IPv4 provisional
New metal boot system.
2016-11-24 07:25:07 +03:00
== ::
-- ::xmas
-- ::
:: :: ::
whitespace conformity
2016-12-08 22:47:05 +03:00
:::: :: :: (2) engines
:: :: ::
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
Minor convention fixups.
2016-12-07 22:38:28 +03:00
:: ::::
:::: ++number :: (2a) number theory
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ number ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++fu:number
++ fu :: modulo (mul p q)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/{p/@ q/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ b=?:(=([0 0] a) 0 (~(inv fo p.a) (~(sit fo p.a) q.a)))
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++dif:fu:number
++ dif :: subtract
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {c/{@ @} d/{@ @}}
%velo reset works.
2016-12-02 04:17:02 +03:00
[(~(dif fo p.a) -.c -.d) (~(dif fo q.a) +.c +.d)]
:: :: ++exp:fu:number
++ exp :: exponent
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {c/@ d/{@ @}}
%velo reset works.
2016-12-02 04:17:02 +03:00
:- (~(exp fo p.a) (mod c (dec p.a)) -.d)
(~(exp fo q.a) (mod c (dec q.a)) +.d)
:: :: ++out:fu:number
++ out :: garner's formula
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= c/{@ @}
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ add +.c
%+ mul q.a
%+ ~(pro fo p.a) b
(~(dif fo p.a) -.c (~(sit fo p.a) +.c))
:: :: ++pro:fu:number
++ pro :: multiply
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {c/{@ @} d/{@ @}}
%velo reset works.
2016-12-02 04:17:02 +03:00
[(~(pro fo p.a) -.c -.d) (~(pro fo q.a) +.c +.d)]
:: :: ++sum:fu:number
++ sum :: add
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {c/{@ @} d/{@ @}}
%velo reset works.
2016-12-02 04:17:02 +03:00
[(~(sum fo p.a) -.c -.d) (~(sum fo q.a) +.c +.d)]
:: :: ++sit:fu:number
++ sit :: represent
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= c/@
%velo reset works.
2016-12-02 04:17:02 +03:00
[(mod c p.a) (mod c q.a)]
-- ::fu
:: :: ++pram:number
++ pram :: rabin-miller
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/@ ^- ?
%velo reset works.
2016-12-02 04:17:02 +03:00
?: ?| =(0 (end 0 1 a))
=(1 a)
=+ b=1
|- ^- ?
?: =(512 b)
|
?|(=+(c=+((mul 2 b)) &(!=(a c) =(a (mul c (div a c))))) $(b +(b)))
==
|
=+ ^= b
=+ [s=(dec a) t=0]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|- ^- {s/@ t/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
?: =(0 (end 0 1 s))
$(s (rsh 0 1 s), t +(t))
[s t]
?> =((mul s.b (bex t.b)) (dec a))
=+ c=0
|- ^- ?
?: =(c 64)
&
=+ d=(~(raw og (add c a)) (met 0 a))
=+ e=(~(exp fo a) s.b d)
?& ?| =(1 e)
=+ f=0
|- ^- ?
?: =(e (dec a))
&
?: =(f (dec t.b))
|
$(e (~(pro fo a) e e), f +(f))
==
$(c +(c))
==
:: :: ++ramp:number
++ ramp :: make r-m prime
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/@ b/(list @) c/@} ^- @ux :: {bits snags seed}
%velo reset works.
2016-12-02 04:17:02 +03:00
=> .(c (shas %ramp c))
=+ d=*@
|-
?: =((mul 100 a) d)
~|(%ar-ramp !!)
=+ e=(~(raw og c) a)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
?: &((levy b |=(f/@ !=(1 (mod e f)))) (pram e))
%velo reset works.
2016-12-02 04:17:02 +03:00
e
$(c +(c), d (shax d))
:: :: ++curt:number
++ curt :: curve25519
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/@ b/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
=> %= .
+
=> +
=+ =+ [p=486.662 q=(sub (bex 255) 19)]
=+ fq=~(. fo q)
[p=p q=q fq=fq]
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++cla:curt:number
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ cla ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= raw/@
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ low=(dis 248 (cut 3 [0 1] raw))
=+ hih=(con 64 (dis 127 (cut 3 [31 1] raw)))
=+ mid=(cut 3 [1 30] raw)
(can 3 [[1 low] [30 mid] [1 hih] ~])
:: :: ++sqr:curt:number
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ sqr ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(a/@ (mul a a))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++inv:curt:number
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ inv ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(a/@ (~(exp fo q) (sub q 2) a))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++cad:curt:number
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ cad ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {n/{x/@ z/@} m/{x/@ z/@} d/{x/@ z/@}}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ^= xx
;: mul 4 z.d
%- sqr %- abs:si
%+ dif:si
(sun:si (mul x.m x.n))
(sun:si (mul z.m z.n))
==
=+ ^= zz
;: mul 4 x.d
%- sqr %- abs:si
%+ dif:si
(sun:si (mul x.m z.n))
(sun:si (mul z.m x.n))
==
[(sit.fq xx) (sit.fq zz)]
:: :: ++cub:curt:number
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ cub ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {x/@ z/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ^= xx
%+ mul
%- sqr %- abs:si
(dif:si (sun:si x) (sun:si z))
(sqr (add x z))
=+ ^= zz
;: mul 4 x z
:(add (sqr x) :(mul p x z) (sqr z))
==
[(sit.fq xx) (sit.fq zz)]
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::
%velo reset works.
2016-12-02 04:17:02 +03:00
==
=+ one=[b 1]
=+ i=253
=+ r=one
=+ s=(cub one)
|-
?: =(i 0)
=+ x=(cub r)
(sit.fq (mul -.x (inv +.x)))
=+ m=(rsh 0 i a)
?: =(0 (mod m 2))
$(i (dec i), s (cad r s one), r (cub r))
$(i (dec i), r (cad r s one), s (cub s))
:: :: ++ga:number
++ ga :: GF (bex p.a)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/{p/@ q/@ r/@} :: dim poly gen
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ si=(bex p.a)
=+ ma=(dec si)
=> |%
:: :: ++dif:ga:number
++ dif :: add and sub
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {b/@ c/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
~| [%dif-ga a]
?> &((lth b si) (lth c si))
(mix b c)
:: :: ++dub:ga:number
++ dub :: mul by x
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= b/@
%velo reset works.
2016-12-02 04:17:02 +03:00
~| [%dub-ga a]
?> (lth b si)
?: =(1 (cut 0 [(dec p.a) 1] b))
(dif (sit q.a) (sit (lsh 0 1 b)))
(lsh 0 1 b)
:: :: ++pro:ga:number
++ pro :: slow multiply
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {b/@ c/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
?: =(0 b)
0
?: =(1 (dis 1 b))
(dif c $(b (rsh 0 1 b), c (dub c)))
$(b (rsh 0 1 b), c (dub c))
:: :: ++toe:ga:number
++ toe :: exp+log tables
=+ ^= nu
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {b/@ c/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (map @ @)
=+ d=*(map @ @)
|-
?: =(0 c)
d
%= $
c (dec c)
d (~(put by d) c b)
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ [p=(nu 0 (bex p.a)) q=(nu ma ma)]
=+ [b=1 c=0]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|- ^- {p/(map @ @) q/(map @ @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
?: =(ma c)
[(~(put by p) c b) q]
%= $
b (pro r.a b)
c +(c)
p (~(put by p) c b)
q (~(put by q) b c)
==
:: :: ++sit:ga:number
++ sit :: reduce
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= b/@
%velo reset works.
2016-12-02 04:17:02 +03:00
(mod b (bex p.a))
-- ::
=+ toe
|%
:: :: ++fra:ga:number
++ fra :: divide
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {b/@ c/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
(pro b (inv c))
:: :: ++inv:ga:number
++ inv :: invert
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= b/@
%velo reset works.
2016-12-02 04:17:02 +03:00
~| [%inv-ga a]
=+ c=(~(get by q) b)
?~ c !!
=+ d=(~(get by p) (sub ma u.c))
(need d)
:: :: ++pow:ga:number
++ pow :: exponent
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {b/@ c/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ [d=1 e=c f=0]
|-
?: =(p.a f)
d
?: =(1 (cut 0 [f 1] b))
$(d (pro d e), e (pro e e), f +(f))
$(e (pro e e), f +(f))
:: :: ++pro:ga:number
++ pro :: multiply
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {b/@ c/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
~| [%pro-ga a]
=+ d=(~(get by q) b)
?~ d 0
=+ e=(~(get by q) c)
?~ e 0
=+ f=(~(get by p) (mod (add u.d u.e) ma))
(need f)
-- ::ga
-- ::number
Minor convention fixups.
2016-12-07 22:38:28 +03:00
:: ::::
:::: ++crypto :: (2b) cryptography
%velo reset works.
2016-12-02 04:17:02 +03:00
:: ::::
++ crypto ^?
remove ^vane shims requires vere without crypto:ames
2016-12-07 06:13:33 +03:00
=, ames
%velo reset works.
2016-12-02 04:17:02 +03:00
=, number
|%
More cleanups.
2016-12-08 05:12:37 +03:00
:: ::
:::: ++aes:crypto :: (2b1) aes, all sizes
:: ::::
++ aes !.
%velo reset works.
2016-12-02 04:17:02 +03:00
~% %aes ..is ~
|%
:: :: ++ahem:aes:crypto
++ ahem :: kernel state
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {nnk/@ nnb/@ nnr/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
=>
=+ => [gr=(ga 8 0x11b 3) few==>(fe .(a 5))]
[pro=pro.gr dif=dif.gr pow=pow.gr ror=ror.few]
Minor convention fixups.
2016-12-07 22:38:28 +03:00
=> |% ::
++ cipa $_ ^? :: AES params
|%
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ co *{p/@ q/@ r/@ s/@} :: column coefficients
++ ix |~(a/@ *@) :: key index
++ ro *{p/@ q/@ r/@ s/@} :: row shifts
%velo reset works.
2016-12-02 04:17:02 +03:00
++ su *@ :: s-box
-- ::cipa
-- ::
|%
Minor convention fixups.
2016-12-07 22:38:28 +03:00
:: :: ++pen:ahem:aes:
%velo reset works.
2016-12-02 04:17:02 +03:00
++ pen :: encrypt
^- cipa
|%
fix dejs-soft tags
2016-12-09 01:37:56 +03:00
:: :: ++co:pen:ahem:aes:
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ co :: column coefficients
[0x2 0x3 1 1]
:: :: ++ix:pen:ahem:aes:
++ ix :: key index
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|~(a/@ a)
Minor convention fixups.
2016-12-07 22:38:28 +03:00
:: :: ++ro:pen:ahem:aes:
++ ro :: row shifts
[0 1 2 3]
:: :: ++su:pen:ahem:aes:
++ su :: s-box
0x16bb.54b0.0f2d.9941.6842.e6bf.0d89.a18c.
df28.55ce.e987.1e9b.948e.d969.1198.f8e1.
9e1d.c186.b957.3561.0ef6.0348.66b5.3e70.
8a8b.bd4b.1f74.dde8.c6b4.a61c.2e25.78ba.
08ae.7a65.eaf4.566c.a94e.d58d.6d37.c8e7.
79e4.9591.62ac.d3c2.5c24.0649.0a3a.32e0.
db0b.5ede.14b8.ee46.8890.2a22.dc4f.8160.
7319.5d64.3d7e.a7c4.1744.975f.ec13.0ccd.
d2f3.ff10.21da.b6bc.f538.9d92.8f40.a351.
a89f.3c50.7f02.f945.8533.4d43.fbaa.efd0.
cf58.4c4a.39be.cb6a.5bb1.fc20.ed00.d153.
842f.e329.b3d6.3b52.a05a.6e1b.1a2c.8309.
75b2.27eb.e280.1207.9a05.9618.c323.c704.
1531.d871.f1e5.a534.ccf7.3f36.2693.fdb7.
c072.a49c.afa2.d4ad.f047.59fa.7dc9.82ca.
76ab.d7fe.2b67.0130.c56f.6bf2.7b77.7c63
%velo reset works.
2016-12-02 04:17:02 +03:00
--
Minor convention fixups.
2016-12-07 22:38:28 +03:00
:: :: ++pin:ahem:aes:
++ pin :: decrypt
%velo reset works.
2016-12-02 04:17:02 +03:00
^- cipa
|%
Minor convention fixups.
2016-12-07 22:38:28 +03:00
:: :: ++co:pin:ahem:aes:
++ co :: column coefficients
[0xe 0xb 0xd 0x9]
:: :: ++ix:pin:ahem:aes:
++ ix :: key index
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|~(a/@ (sub nnr a))
Minor convention fixups.
2016-12-07 22:38:28 +03:00
:: :: ++ro:pin:ahem:aes:
++ ro :: row shifts
[0 3 2 1]
:: :: ++su:pin:ahem:aes:
++ su :: s-box
0x7d0c.2155.6314.69e1.26d6.77ba.7e04.2b17.
6199.5383.3cbb.ebc8.b0f5.2aae.4d3b.e0a0.
ef9c.c993.9f7a.e52d.0d4a.b519.a97f.5160.
5fec.8027.5910.12b1.31c7.0788.33a8.dd1f.
f45a.cd78.fec0.db9a.2079.d2c6.4b3e.56fc.
1bbe.18aa.0e62.b76f.89c5.291d.711a.f147.
6edf.751c.e837.f9e2.8535.ade7.2274.ac96.
73e6.b4f0.cecf.f297.eadc.674f.4111.913a.
6b8a.1301.03bd.afc1.020f.3fca.8f1e.2cd0.
0645.b3b8.0558.e4f7.0ad3.bc8c.00ab.d890.
849d.8da7.5746.155e.dab9.edfd.5048.706c.
92b6.655d.cc5c.a4d4.1698.6886.64f6.f872.
25d1.8b6d.49a2.5b76.b224.d928.66a1.2e08.
4ec3.fa42.0b95.4cee.3d23.c2a6.3294.7b54.
cbe9.dec4.4443.8e34.87ff.2f9b.8239.e37c.
fbd7.f381.9ea3.40bf.38a5.3630.d56a.0952
%velo reset works.
2016-12-02 04:17:02 +03:00
--
:: :: ++mcol:ahem:aes:
++ mcol ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/(list @) b/{p/@ q/@ r/@ s/@}}
Minor convention fixups.
2016-12-07 22:38:28 +03:00
^- (list @)
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ c=[p=*@ q=*@ r=*@ s=*@]
|- ^- (list @)
?~ a ~
=> .(p.c (cut 3 [0 1] i.a))
=> .(q.c (cut 3 [1 1] i.a))
=> .(r.c (cut 3 [2 1] i.a))
=> .(s.c (cut 3 [3 1] i.a))
:_ $(a t.a)
%+ rep 3
%+ turn
%- limo
:~ [[p.c p.b] [q.c q.b] [r.c r.b] [s.c s.b]]
[[p.c s.b] [q.c p.b] [r.c q.b] [s.c r.b]]
[[p.c r.b] [q.c s.b] [r.c p.b] [s.c q.b]]
[[p.c q.b] [q.c r.b] [r.c s.b] [s.c p.b]]
==
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/{@ @} b/{@ @} c/{@ @} d/{@ @}}
%velo reset works.
2016-12-02 04:17:02 +03:00
:(dif (pro a) (pro b) (pro c) (pro d))
:: :: ++pode:ahem:aes:
++ pode :: explode to block
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/bloq b/@ c/@} ^- (list @)
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ d=(rip a c)
=+ m=(met a c)
New metal boot system.
2016-11-24 07:25:07 +03:00
|-
%velo reset works.
2016-12-02 04:17:02 +03:00
?: =(m b)
d
$(m +(m), d (weld d (limo [0 ~])))
:: :: ++sube:ahem:aes:
++ sube :: s-box word
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/@ b/@} ^- @
(rep 3 (turn (pode 3 4 a) |=(c/@ (cut 3 [c 1] b))))
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::
|%
:: :: ++be:ahem:aes:crypto
++ be :: block cipher
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/? b/@ c/@H} ^- @uxH
%velo reset works.
2016-12-02 04:17:02 +03:00
~| %be-aesc
=> %= .
+
=> +
|%
:: :: ++ankh:be:ahem:aes:
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ ankh ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/cipa b/@ c/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
(pode 5 nnb (cut 5 [(mul (ix.a b) nnb) nnb] c))
:: :: ++sark:be:ahem:aes:
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ sark ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {c/(list @) d/(list @)}
Minor convention fixups.
2016-12-07 22:38:28 +03:00
^- (list @)
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ c ~
?~ d !!
[(mix i.c i.d) $(c t.c, d t.d)]
:: :: ++srow:be:ahem:aes:
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ srow ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/cipa b/(list @)} ^- (list @)
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ [c=0 d=~ e=ro.a]
|-
?: =(c nnb)
d
:_ $(c +(c))
%+ rep 3
%+ turn
(limo [0 p.e] [1 q.e] [2 r.e] [3 s.e] ~)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {f/@ g/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
(cut 3 [f 1] (snag (mod (add g c) nnb) b))
:: :: ++subs:be:ahem:aes:
Minor convention fixups.
2016-12-07 22:38:28 +03:00
++ subs ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/cipa b/(list @)} ^- (list @)
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ b ~
[(sube i.b su.a) $(b t.b)]
--
==
=+ [d=?:(a pen pin) e=(pode 5 nnb c) f=1]
=> .(e (sark e (ankh d 0 b)))
|-
?. =(nnr f)
New metal boot system.
2016-11-24 07:25:07 +03:00
=> .(e (subs d e))
=> .(e (srow d e))
%velo reset works.
2016-12-02 04:17:02 +03:00
=> .(e (mcol e co.d))
=> .(e (sark e (ankh d f b)))
$(f +(f))
=> .(e (subs d e))
=> .(e (srow d e))
=> .(e (sark e (ankh d nnr b)))
(rep 5 e)
:: :: ++ex:ahem:aes:crypto
++ ex :: key expand
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/@I ^- @
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ [b=a c=0 d=su:pen i=nnk]
|-
?: =(i (mul nnb +(nnr)))
b
=> .(c (cut 5 [(dec i) 1] b))
=> ?: =(0 (mod i nnk))
=> .(c (ror 3 1 c))
=> .(c (sube c d))
.(c (mix c (pow (dec (div i nnk)) 2)))
?: &((gth nnk 6) =(4 (mod i nnk)))
.(c (sube c d))
.
=> .(c (mix c (cut 5 [(sub i nnk) 1] b)))
=> .(b (can 5 [i b] [1 c] ~))
$(i +(i))
:: :: ++ix:ahem:aes:crypto
++ ix :: key expand, inv
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/@ ^- @
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ [i=1 j=*@ b=*@ c=co:pin]
|-
?: =(nnr i)
a
=> .(b (cut 7 [i 1] a))
=> .(b (rep 5 (mcol (pode 5 4 b) c)))
=> .(j (sub nnr i))
%= $
i +(i)
New metal boot system.
2016-11-24 07:25:07 +03:00
a
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ can 7
:~ [i (cut 7 [0 i] a)]
[1 b]
[j (cut 7 [+(i) j] a)]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
2016-12-02 04:17:02 +03:00
==
--
:: :: ++ecba:aes:crypto
++ ecba :: AES-128 ECB
~% %ecba +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ key/@H
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:ecba:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= blk/@H ^- @uxH
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ (ahem 4 4 10)
=:
key (~(net fe 7) key)
blk (~(net fe 7) blk)
==
%- ~(net fe 7)
(be & (ex key) blk)
:: :: ++de:ecba:aes:crypto
++ de :: decrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %de
|= blk/@H ^- @uxH
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ (ahem 4 4 10)
=:
key (~(net fe 7) key)
blk (~(net fe 7) blk)
==
%- ~(net fe 7)
(be | (ix (ex key)) blk)
-- ::ecba
:: :: ++ecbb:aes:crypto
++ ecbb :: AES-192 ECB
~% %ecbb +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ key/@I
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:ecbb:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= blk/@H ^- @uxH
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ (ahem 6 4 12)
=:
key (rsh 6 1 (~(net fe 8) key))
blk (~(net fe 7) blk)
==
%- ~(net fe 7)
(be & (ex key) blk)
:: :: ++de:ecbb:aes:crypto
++ de :: decrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %de
|= blk/@H ^- @uxH
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ (ahem 6 4 12)
=:
key (rsh 6 1 (~(net fe 8) key))
blk (~(net fe 7) blk)
==
%- ~(net fe 7)
(be | (ix (ex key)) blk)
-- ::ecbb
:: :: ++ecbc:aes:crypto
++ ecbc :: AES-256 ECB
~% %ecbc +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ key/@I
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:ecbc:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= blk/@H ^- @uxH
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ (ahem 8 4 14)
=:
key (~(net fe 8) key)
blk (~(net fe 7) blk)
==
%- ~(net fe 7)
(be & (ex key) blk)
:: :: ++de:ecbc:aes:crypto
++ de :: decrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %de
|= blk/@H ^- @uxH
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ (ahem 8 4 14)
=:
key (~(net fe 8) key)
blk (~(net fe 7) blk)
==
%- ~(net fe 7)
(be | (ix (ex key)) blk)
-- ::ecbc
:: :: ++cbca:aes:crypto
++ cbca :: AES-128 CBC
~% %cbca +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ {key/@H prv/@H}
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:cbca:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= txt/@ ^- @ux
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ pts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| cts/(list @)
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ rep 7
:: logically, flop twice here
|- ^- (list @)
?~ pts
cts
=+ cph=(~(en ecba key) (mix prv i.pts))
New metal boot system.
2016-11-24 07:25:07 +03:00
%= $
%velo reset works.
2016-12-02 04:17:02 +03:00
cts [cph cts]
pts t.pts
prv cph
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++de:cbca:aes:crypto
++ de :: decrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %de
|= txt/@ ^- @ux
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ cts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| pts/(list @)
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ rep 7
:: logically, flop twice here
|- ^- (list @)
?~ cts
pts
=+ pln=(mix prv (~(de ecba key) i.cts))
New metal boot system.
2016-11-24 07:25:07 +03:00
%= $
%velo reset works.
2016-12-02 04:17:02 +03:00
pts [pln pts]
cts t.cts
prv i.cts
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::cbca
:: :: ++cbcb:aes:crypto
++ cbcb :: AES-192 CBC
~% %cbcb +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ {key/@I prv/@H}
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:cbcb:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= txt/@ ^- @ux
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ pts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| cts/(list @)
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ rep 7
:: logically, flop twice here
|- ^- (list @)
?~ pts
cts
=+ cph=(~(en ecbb key) (mix prv i.pts))
New metal boot system.
2016-11-24 07:25:07 +03:00
%= $
%velo reset works.
2016-12-02 04:17:02 +03:00
cts [cph cts]
pts t.pts
prv cph
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++de:cbcb:aes:crypto
New metal boot system.
2016-11-24 07:25:07 +03:00
++ de :: decrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %de
|= txt/@ ^- @ux
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ cts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| pts/(list @)
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ rep 7
:: logically, flop twice here
|- ^- (list @)
?~ cts
pts
=+ pln=(mix prv (~(de ecbb key) i.cts))
%= $
pts [pln pts]
cts t.cts
prv i.cts
==
-- ::cbcb
:: :: ++cbcc:aes:crypto
++ cbcc :: AES-256 CBC
~% %cbcc +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ {key/@I prv/@H}
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:cbcc:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= txt/@ ^- @ux
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ pts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| cts/(list @)
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ rep 7
:: logically, flop twice here
|- ^- (list @)
?~ pts
cts
=+ cph=(~(en ecbc key) (mix prv i.pts))
%= $
cts [cph cts]
pts t.pts
prv cph
==
:: :: ++de:cbcc:aes:crypto
++ de :: decrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %de
|= txt/@ ^- @ux
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ cts=?:(=(txt 0) `(list @)`~[0] (flop (rip 7 txt)))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| pts/(list @)
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ rep 7
:: logically, flop twice here
|- ^- (list @)
?~ cts
pts
=+ pln=(mix prv (~(de ecbc key) i.cts))
%= $
pts [pln pts]
cts t.cts
prv i.cts
==
-- ::cbcc
:: :: ++inc:aes:crypto
++ inc :: inc. low bloq
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {mod/bloq ctr/@H}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @uxH
=+ bqs=(rip mod ctr)
?~ bqs 0x1
%+ rep mod
[(~(sum fe mod) i.bqs 1) t.bqs]
:: :: ++ctra:aes:crypto
++ ctra :: AES-128 CTR
~% %ctra +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ {key/@H mod/bloq len/@ ctr/@H}
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:ctra:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= txt/@
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @ux
=/ encrypt ~(en ecba key)
=/ blocks (add (div len 16) ?:(=((^mod len 16) 0) 0 1))
?> (gte len (met 3 txt))
%+ mix txt
%^ rsh 3 (sub (mul 16 blocks) len)
%+ rep 7
tail-call optimizes +ctra, +ctrb, and +ctrc in |aes
2018-07-01 06:22:15 +03:00
=| seed=(list @ux)
|- ^+ seed
?: =(blocks 0) seed
%= $
seed [(encrypt ctr) seed]
ctr (inc mod ctr)
blocks (dec blocks)
==
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++de:ctra:aes:crypto
++ de :: decrypt
en
-- ::ctra
:: :: ++ctrb:aes:crypto
++ ctrb :: AES-192 CTR
~% %ctrb +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ {key/@I mod/bloq len/@ ctr/@H}
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:ctrb:aes:crypto
++ en
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= txt/@
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @ux
=/ encrypt ~(en ecbb key)
=/ blocks (add (div len 16) ?:(=((^mod len 16) 0) 0 1))
?> (gte len (met 3 txt))
%+ mix txt
%^ rsh 3 (sub (mul 16 blocks) len)
%+ rep 7
tail-call optimizes +ctra, +ctrb, and +ctrc in |aes
2018-07-01 06:22:15 +03:00
=| seed=(list @ux)
|- ^+ seed
?: =(blocks 0) seed
%= $
seed [(encrypt ctr) seed]
ctr (inc mod ctr)
blocks (dec blocks)
==
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++de:ctrb:aes:crypto
++ de :: decrypt
en
-- ::ctrb
:: :: ++ctrc:aes:crypto
++ ctrc :: AES-256 CTR
~% %ctrc +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ {key/@I mod/bloq len/@ ctr/@H}
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:ctrc:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= txt/@
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @ux
=/ encrypt ~(en ecbc key)
=/ blocks (add (div len 16) ?:(=((^mod len 16) 0) 0 1))
?> (gte len (met 3 txt))
%+ mix txt
%^ rsh 3 (sub (mul 16 blocks) len)
%+ rep 7
tail-call optimizes +ctra, +ctrb, and +ctrc in |aes
2018-07-01 06:22:15 +03:00
=| seed=(list @ux)
|- ^+ seed
?: =(blocks 0) seed
%= $
seed [(encrypt ctr) seed]
ctr (inc mod ctr)
blocks (dec blocks)
==
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++de:ctrc:aes:crypto
++ de :: decrypt
en
-- ::ctrc
:: :: ++doub:aes:crypto
++ doub :: double 128-bit
|= :: string mod finite
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
str/@H
New metal boot system.
2016-11-24 07:25:07 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
:: field (see spec)
::
^- @uxH
%- ~(sit fe 7)
?. =((xeb str) 128)
(lsh 0 1 str)
(mix 0x87 (lsh 0 1 str))
:: :: ++mpad:aes:crypto
++ mpad ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {oct/@ txt/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
::
:: pad message to multiple of 128 bits
:: by appending 1, then 0s
:: the spec is unclear, but it must be octet based
:: to match the test vectors
Minor convention fixups.
2016-12-07 22:38:28 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @ux
=+ pad=(mod oct 16)
?: =(pad 0) 0x8000.0000.0000.0000.0000.0000.0000.0000
(lsh 3 (sub 15 pad) (mix 0x80 (lsh 3 1 txt)))
:: :: ++suba:aes:crypto
++ suba :: AES-128 subkeys
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= key/@H
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ l=(~(en ecba key) 0)
=+ k1=(doub l)
=+ k2=(doub k1)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
^- {@ux @ux}
%velo reset works.
2016-12-02 04:17:02 +03:00
[k1 k2]
:: :: ++subb:aes:crypto
++ subb :: AES-192 subkeys
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= key/@I
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ l=(~(en ecbb key) 0)
=+ k1=(doub l)
=+ k2=(doub k1)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
^- {@ux @ux}
%velo reset works.
2016-12-02 04:17:02 +03:00
[k1 k2]
:: :: ++subc:aes:crypto
++ subc :: AES-256 subkeys
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= key/@I
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ l=(~(en ecbc key) 0)
=+ k1=(doub l)
=+ k2=(doub k1)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
^- {@ux @ux}
%velo reset works.
2016-12-02 04:17:02 +03:00
[k1 k2]
:: :: ++maca:aes:crypto
++ maca :: AES-128 CMAC
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %maca
|= {key/@H oct/(unit @) txt/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @ux
=+ [sub=(suba key) len=?~(oct (met 3 txt) u.oct)]
=+ ^= pdt
?: &(=((mod len 16) 0) !=(len 0))
[& txt]
[| (mpad len txt)]
=+ ^= mac
%- ~(en cbca key 0)
%+ mix +.pdt
?- -.pdt
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%& -.sub
%| +.sub
%velo reset works.
2016-12-02 04:17:02 +03:00
==
:: spec says MSBs, LSBs match test vectors
::
(~(sit fe 7) mac)
:: :: ++macb:aes:crypto
++ macb :: AES-192 CMAC
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %macb
|= {key/@I oct/(unit @) txt/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @ux
=+ [sub=(subb key) len=?~(oct (met 3 txt) u.oct)]
=+ ^= pdt
?: &(=((mod len 16) 0) !=(len 0))
[& txt]
[| (mpad len txt)]
=+ ^= mac
%- ~(en cbcb key 0)
%+ mix +.pdt
?- -.pdt
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%& -.sub
%| +.sub
%velo reset works.
2016-12-02 04:17:02 +03:00
==
:: spec says MSBs, LSBs match test vectors
::
(~(sit fe 7) mac)
:: :: ++macc:aes:crypto
++ macc :: AES-256 CMAC
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %macc
|= {key/@I oct/(unit @) txt/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @ux
=+ [sub=(subc key) len=?~(oct (met 3 txt) u.oct)]
=+ ^= pdt
?: &(=((mod len 16) 0) !=(len 0))
[& txt]
[| (mpad len txt)]
=+ ^= mac
%- ~(en cbcc key 0)
%+ mix +.pdt
?- -.pdt
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%& -.sub
%| +.sub
%velo reset works.
2016-12-02 04:17:02 +03:00
==
:: spec says MSBs, LSBs match test vectors
::
(~(sit fe 7) mac)
:: :: ++s2va:aes:crypto
++ s2va :: AES-128 S2V
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %s2va
|= {key/@H ads/(list @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ res=(maca key `16 0x0)
%^ maca key ~
|- ^- @uxH
?~ ads (maca key `16 0x1)
?~ t.ads
?: (gte (xeb i.ads) 128)
(mix i.ads res)
%+ mix
(doub res)
(mpad (met 3 i.ads) i.ads)
%= $
res %+ mix
(doub res)
(maca key ~ i.ads)
ads t.ads
==
:: :: ++s2vb:aes:crypto
++ s2vb :: AES-192 S2V
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %s2vb
|= {key/@I ads/(list @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ res=(macb key `16 0x0)
%^ macb key ~
|- ^- @uxH
?~ ads (macb key `16 0x1)
?~ t.ads
?: (gte (xeb i.ads) 128)
(mix i.ads res)
%+ mix
(doub res)
(mpad (met 3 i.ads) i.ads)
%= $
res %+ mix
(doub res)
(macb key ~ i.ads)
ads t.ads
==
:: :: ++s2vc:aes:crypto
++ s2vc :: AES-256 S2V
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %s2vc
|= {key/@I ads/(list @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ res=(macc key `16 0x0)
%^ macc key ~
|- ^- @uxH
?~ ads (macc key `16 0x1)
?~ t.ads
?: (gte (xeb i.ads) 128)
(mix i.ads res)
%+ mix
(doub res)
(mpad (met 3 i.ads) i.ads)
%= $
res %+ mix
(doub res)
(macc key ~ i.ads)
ads t.ads
==
:: :: ++siva:aes:crypto
++ siva :: AES-128 SIV
~% %siva +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ {key/@I vec/(list @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:siva:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= txt/@
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (trel @uxH @ud @ux)
=+ [k1=(rsh 7 1 key) k2=(end 7 1 key)]
=+ iv=(s2va k1 (weld vec (limo ~[txt])))
=+ len=(met 3 txt)
=* hib (dis iv 0xffff.ffff.ffff.ffff.7fff.ffff.7fff.ffff)
:+
iv
len
(~(en ctra k2 7 len hib) txt)
:: :: ++de:siva:aes:crypto
New metal boot system.
2016-11-24 07:25:07 +03:00
++ de :: decrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %de
|= {iv/@H len/@ txt/@}
New metal boot system.
2016-11-24 07:25:07 +03:00
^- (unit @ux)
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ [k1=(rsh 7 1 key) k2=(end 7 1 key)]
=* hib (dis iv 0xffff.ffff.ffff.ffff.7fff.ffff.7fff.ffff)
=+ ^= pln
(~(de ctra k2 7 len hib) txt)
?. =((s2va k1 (weld vec (limo ~[pln]))) iv)
~
`pln
-- ::siva
:: :: ++sivb:aes:crypto
++ sivb :: AES-192 SIV
~% %sivb +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ {key/@J vec/(list @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:sivb:aes:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= txt/@
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (trel @uxH @ud @ux)
=+ [k1=(rsh 5 3 key) k2=(end 5 3 key)]
=+ iv=(s2vb k1 (weld vec (limo ~[txt])))
=* hib (dis iv 0xffff.ffff.ffff.ffff.7fff.ffff.7fff.ffff)
=+ len=(met 3 txt)
:+ iv
New metal boot system.
2016-11-24 07:25:07 +03:00
len
%velo reset works.
2016-12-02 04:17:02 +03:00
(~(en ctrb k2 7 len hib) txt)
:: :: ++de:sivb:aes:crypto
++ de :: decrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %de
|= {iv/@H len/@ txt/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (unit @ux)
=+ [k1=(rsh 5 3 key) k2=(end 5 3 key)]
=* hib (dis iv 0xffff.ffff.ffff.ffff.7fff.ffff.7fff.ffff)
=+ ^= pln
(~(de ctrb k2 7 len hib) txt)
?. =((s2vb k1 (weld vec (limo ~[pln]))) iv)
~
`pln
-- ::sivb
:: :: ++sivc:aes:crypto
++ sivc :: AES-256 SIV
~% %sivc +> ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ {key/@J vec/(list @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en:sivc:aes:crypto
New metal boot system.
2016-11-24 07:25:07 +03:00
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %en
|= txt/@
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (trel @uxH @ud @ux)
=+ [k1=(rsh 8 1 key) k2=(end 8 1 key)]
=+ iv=(s2vc k1 (weld vec (limo ~[txt])))
=* hib (dis iv 0xffff.ffff.ffff.ffff.7fff.ffff.7fff.ffff)
=+ len=(met 3 txt)
:+
iv
len
(~(en ctrc k2 7 len hib) txt)
:: :: ++de:sivc:aes:crypto
++ de :: decrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %de
|= {iv/@H len/@ txt/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (unit @ux)
=+ [k1=(rsh 8 1 key) k2=(end 8 1 key)]
=* hib (dis iv 0xffff.ffff.ffff.ffff.7fff.ffff.7fff.ffff)
=+ ^= pln
(~(de ctrc k2 7 len hib) txt)
?. =((s2vc k1 (weld vec (limo ~[pln]))) iv)
~
`pln
-- ::sivc
--
More cleanups.
2016-12-08 05:12:37 +03:00
:: ::
:::: ++ed:crypto :: ed25519
:: ::::
++ ed
=>
=+ =+ [b=256 q=(sub (bex 255) 19)]
=+ fq=~(. fo q)
=+ ^= l
%+ add
(bex 252)
27.742.317.777.372.353.535.851.937.790.883.648.493
=+ d=(dif.fq 0 (fra.fq 121.665 121.666))
=+ ii=(exp.fq (div (dec q) 4) 2)
[b=b q=q fq=fq l=l d=d ii=ii]
Boots, but some jet registration problems in ++ed.
2017-06-10 03:30:18 +03:00
~% %coed ..is ~
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++norm:ed:crypto
++ norm ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(x/@ ?:(=(0 (mod x 2)) x (sub q x)))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++xrec:ed:crypto
++ xrec :: recover x-coord
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= y/@ ^- @
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ^= xx
%+ mul (dif.fq (mul y y) 1)
(inv.fq +(:(mul d y y)))
=+ x=(exp.fq (div (add 3 q) 8) xx)
?: !=(0 (dif.fq (mul x x) (sit.fq xx)))
(norm (pro.fq x ii))
(norm x)
:: :: ++ward:ed:crypto
++ ward :: edwards multiply
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {pp/{@ @} qq/{@ @}} ^- {@ @}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ dp=:(pro.fq d -.pp -.qq +.pp +.qq)
=+ ^= xt
%+ pro.fq
%+ sum.fq
(pro.fq -.pp +.qq)
(pro.fq -.qq +.pp)
(inv.fq (sum.fq 1 dp))
=+ ^= yt
%+ pro.fq
%+ sum.fq
(pro.fq +.pp +.qq)
(pro.fq -.pp -.qq)
(inv.fq (dif.fq 1 dp))
[xt yt]
:: :: ++scam:ed:crypto
++ scam :: scalar multiply
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {pp/{@ @} e/@} ^- {@ @}
%velo reset works.
2016-12-02 04:17:02 +03:00
?: =(0 e)
[0 1]
=+ qq=$(e (div e 2))
=> .(qq (ward qq qq))
?: =(1 (dis 1 e))
(ward qq pp)
qq
:: :: ++etch:ed:crypto
++ etch :: encode point
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= pp/{@ @} ^- @
%velo reset works.
2016-12-02 04:17:02 +03:00
(can 0 ~[[(sub b 1) +.pp] [1 (dis 1 -.pp)]])
:: :: ++curv:ed:crypto
++ curv :: point on curve?
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {x/@ y/@} ^- ?
%velo reset works.
2016-12-02 04:17:02 +03:00
.= 0
%+ dif.fq
%+ sum.fq
(pro.fq (sub q (sit.fq x)) x)
(pro.fq y y)
(sum.fq 1 :(pro.fq d x x y y))
:: :: ++deco:ed:crypto
++ deco :: decode point
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= s/@ ^- (unit {@ @})
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ y=(cut 0 [0 (dec b)] s)
=+ si=(cut 0 [(dec b) 1] s)
=+ x=(xrec y)
=> .(x ?:(!=(si (dis 1 x)) (sub q x) x))
=+ pp=[x y]
?. (curv pp)
~
[~ pp]
:: :: ++bb:ed:crypto
++ bb ::
=+ bby=(pro.fq 4 (inv.fq 5))
[(xrec bby) bby]
-- ::
Boots, but some jet registration problems in ++ed.
2017-06-10 03:30:18 +03:00
~% %ed + ~
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
:: :: ++puck:ed:crypto
++ puck :: public key
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %puck
|= sk/@I ^- @
%velo reset works.
2016-12-02 04:17:02 +03:00
?: (gth (met 3 sk) 32) !!
=+ h=(shal (rsh 0 3 b) sk)
=+ ^= a
%+ add
(bex (sub b 2))
(lsh 0 3 (cut 0 [3 (sub b 5)] h))
=+ aa=(scam bb a)
(etch aa)
:: :: ++suck:ed:crypto
++ suck :: keypair from seed
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= se/@I ^- @uJ
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ pu=(puck se)
(can 0 ~[[b se] [b pu]])
:: :: ++shar:ed:crypto
++ shar :: curve25519 secret
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %shar
|= {pub/@ sek/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @ux
=+ exp=(shal (rsh 0 3 b) (suck sek))
=. exp (dis exp (can 0 ~[[3 0] [251 (fil 0 251 1)]]))
=. exp (con exp (lsh 3 31 0b100.0000))
=+ prv=(end 8 1 exp)
=+ crv=(fra.fq (sum.fq 1 pub) (dif.fq 1 pub))
(curt prv crv)
:: :: ++sign:ed:crypto
++ sign :: certify
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %sign
|= {m/@ se/@} ^- @
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ sk=(suck se)
=+ pk=(cut 0 [b b] sk)
=+ h=(shal (rsh 0 3 b) sk)
=+ ^= a
%+ add
(bex (sub b 2))
(lsh 0 3 (cut 0 [3 (sub b 5)] h))
=+ ^= r
=+ hm=(cut 0 [b b] h)
=+ ^= i
%+ can 0
:~ [b hm]
[(met 0 m) m]
==
(shaz i)
=+ rr=(scam bb r)
=+ ^= ss
=+ er=(etch rr)
=+ ^= ha
%+ can 0
:~ [b er]
[b pk]
[(met 0 m) m]
==
(~(sit fo l) (add r (mul (shaz ha) a)))
(can 0 ~[[b (etch rr)] [b ss]])
:: :: ++veri:ed:crypto
++ veri :: validate
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %veri
|= {s/@ m/@ pk/@} ^- ?
%velo reset works.
2016-12-02 04:17:02 +03:00
?: (gth (div b 4) (met 3 s)) |
?: (gth (div b 8) (met 3 pk)) |
=+ cb=(rsh 0 3 b)
=+ rr=(deco (cut 0 [0 b] s))
?~ rr |
=+ aa=(deco pk)
?~ aa |
=+ ss=(cut 0 [b b] s)
=+ ha=(can 3 ~[[cb (etch u.rr)] [cb pk] [(met 3 m) m]])
=+ h=(shaz ha)
=((scam bb ss) (ward u.rr (scam u.aa h)))
-- ::ed
:: :: ++hmac:crypto
++ hmac :: HMAC-SHA1
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {key/@ mes/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ip=(fil 3 64 0x36)
=+ op=(fil 3 64 0x5c)
=+ ^= kex
?: (gth (met 3 key) 64)
(lsh 3 44 (shan key))
(lsh 3 (sub 64 (met 3 key)) (swp 3 key))
=+ inn=(shan (swp 3 (cat 3 (swp 3 mes) (mix ip kex))))
(shan (swp 3 (cat 3 inn (mix op kex))))
More cleanups.
2016-12-08 05:12:37 +03:00
:: ::
:::: ++scr:crypto :: (2b3) scrypt
:: ::::
++ scr
Boots, but some jet registration problems in ++ed.
2017-06-10 03:30:18 +03:00
~% %scr ..is ~
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
:: :: ++sal:scr:crypto
++ sal :: salsa20 hash
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {x/@ r/@} :: with r rounds
%velo reset works.
2016-12-02 04:17:02 +03:00
?> =((mod r 2) 0) ::
=+ few==>(fe .(a 5))
=+ ^= rot
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/@ b/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
(mix (end 5 1 (lsh 0 a b)) (rsh 0 (sub 32 a) b))
=+ ^= lea
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/@ b/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
(net:few (sum:few (net:few a) (net:few b)))
=> |%
:: :: ++qr:sal:scr:crypto
++ qr :: quarterround
Work in progress.
2018-08-16 04:05:30 +03:00
|= y/{@ @ @ @ ~}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ zb=(mix &2.y (rot 7 (sum:few &1.y &4.y)))
=+ zc=(mix &3.y (rot 9 (sum:few zb &1.y)))
=+ zd=(mix &4.y (rot 13 (sum:few zc zb)))
=+ za=(mix &1.y (rot 18 (sum:few zd zc)))
~[za zb zc zd]
:: :: ++rr:sal:scr:crypto
++ rr :: rowround
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {y/(list @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ za=(qr ~[&1.y &2.y &3.y &4.y])
=+ zb=(qr ~[&6.y &7.y &8.y &5.y])
=+ zc=(qr ~[&11.y &12.y &9.y &10.y])
=+ zd=(qr ~[&16.y &13.y &14.y &15.y])
^- (list @) :~
&1.za &2.za &3.za &4.za
&4.zb &1.zb &2.zb &3.zb
&3.zc &4.zc &1.zc &2.zc
&2.zd &3.zd &4.zd &1.zd ==
:: :: ++cr:sal:scr:crypto
++ cr :: columnround
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {x/(list @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ya=(qr ~[&1.x &5.x &9.x &13.x])
=+ yb=(qr ~[&6.x &10.x &14.x &2.x])
=+ yc=(qr ~[&11.x &15.x &3.x &7.x])
=+ yd=(qr ~[&16.x &4.x &8.x &12.x])
^- (list @) :~
&1.ya &4.yb &3.yc &2.yd
&2.ya &1.yb &4.yc &3.yd
&3.ya &2.yb &1.yc &4.yd
&4.ya &3.yb &2.yc &1.yd ==
:: :: ++dr:sal:scr:crypto
++ dr :: doubleround
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {x/(list @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
(rr (cr x))
:: :: ++al:sal:scr:crypto
++ al :: add two lists
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/(list @) b/(list @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
|- ^- (list @)
?~ a ~ ?~ b ~
[i=(sum:few -.a -.b) t=$(a +.a, b +.b)]
-- ::
=+ xw=(rpp 5 16 x)
=+ ^= ow |- ^- (list @)
?~ r xw
$(xw (dr xw), r (sub r 2))
(rep 5 (al xw ow))
:: :: ++rpp:scr:crypto
++ rpp :: rip+filler blocks
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/bloq b/@ c/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ q=(rip a c)
=+ w=(lent q)
?. =(w b)
?. (lth w b) (slag (sub w b) q)
^+ q (weld q (reap (sub b (lent q)) 0))
q
:: :: ++bls:scr:crypto
++ bls :: split to sublists
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/@ b/(list @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
?> =((mod (lent b) a) 0)
|- ^- (list (list @))
?~ b ~
[i=(scag a `(list @)`b) t=$(b (slag a `(list @)`b))]
:: :: ++slb:scr:crypto
++ slb ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/(list (list @))}
%velo reset works.
2016-12-02 04:17:02 +03:00
|- ^- (list @)
?~ a ~
(weld `(list @)`-.a $(a +.a))
:: :: ++sbm:scr:crypto
++ sbm :: scryptBlockMix
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {r/@ b/(list @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
?> =((lent b) (mul 2 r))
=+ [x=(snag (dec (mul 2 r)) b) c=0]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| {ya/(list @) yb/(list @)}
%velo reset works.
2016-12-02 04:17:02 +03:00
|- ^- (list @)
?~ b (flop (weld yb ya))
=. x (sal (mix x -.b) 8)
?~ (mod c 2)
$(c +(c), b +.b, ya [i=x t=ya])
$(c +(c), b +.b, yb [i=x t=yb])
:: :: ++srm:scr:crypto
++ srm :: scryptROMix
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {r/@ b/(list @) n/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
?> ?& =((lent b) (mul 2 r))
=(n (bex (dec (xeb n))))
(lth n (bex (mul r 16)))
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ [v=*(list (list @)) c=0]
=. v
|- ^- (list (list @))
=+ w=(sbm r b)
?: =(c n) (flop v)
$(c +(c), v [i=[b] t=v], b w)
=+ x=(sbm r (snag (dec n) v))
|- ^- (list @)
?: =(c n) x
=+ q=(snag (dec (mul r 2)) x)
=+ z=`(list @)`(snag (mod q n) v)
=+ ^= w |- ^- (list @)
?~ x ~ ?~ z ~
[i=(mix -.x -.z) t=$(x +.x, z +.z)]
$(x (sbm r w), c +(c))
:: :: ++hmc:scr:crypto
++ hmc :: HMAC-SHA-256
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {k/@ t/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
(hml k (met 3 k) t (met 3 t))
:: :: ++hml:scr:crypto
++ hml :: w+length
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {k/@ kl/@ t/@ tl/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
=> .(k (end 3 kl k), t (end 3 tl t))
=+ b=64
Add a tiswut rune which is a conditional tisdot. This changes: =. a ?. =(b c) a c into: =? a =(b c) c This also adds a few obvious changes in the vanes and in app/talk.hoon to take advantage of this new rune.
2016-12-11 03:46:13 +03:00
=? k (gth kl b) (shay kl k)
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ^= q %+ shay (add b tl)
(add (lsh 3 b t) (mix k (fil 3 b 0x36)))
%+ shay (add b 32)
(add (lsh 3 b q) (mix k (fil 3 b 0x5c)))
:: :: ++pbk:scr:crypto
++ pbk :: PBKDF2-HMAC-SHA256
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %pbk
|= {p/@ s/@ c/@ d/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
(pbl p (met 3 p) s (met 3 s) c d)
:: :: ++pbl:scr:crypto
++ pbl :: w+length
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %pbl
|= {p/@ pl/@ s/@ sl/@ c/@ d/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
=> .(p (end 3 pl p), s (end 3 sl s))
=+ h=32
::
:: max key length 1GB
:: max iterations 2^28
::
?> ?& (lte d (bex 30))
(lte c (bex 28))
!=(c 0)
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ^= l ?~ (mod d h)
(div d h)
+((div d h))
=+ r=(sub d (mul h (dec l)))
=+ [t=0 j=1 k=1]
=. t |- ^- @
?: (gth j l) t
=+ u=(add s (lsh 3 sl (rep 3 (flop (rpp 3 4 j)))))
=+ f=0 =. f |- ^- @
?: (gth k c) f
=+ q=(hml p pl u ?:(=(k 1) (add sl 4) h))
$(u q, f (mix f q), k +(k))
$(t (add t (lsh 3 (mul (dec j) h) f)), j +(j))
(end 3 d t)
:: :: ++hsh:scr:crypto
++ hsh :: scrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %hsh
|= {p/@ s/@ n/@ r/@ z/@ d/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
(hsl p (met 3 p) s (met 3 s) n r z d)
:: :: ++hsl:scr:crypto
++ hsl :: w+length
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
~/ %hsl
|= {p/@ pl/@ s/@ sl/@ n/@ r/@ z/@ d/@}
=| v/(list (list @))
%velo reset works.
2016-12-02 04:17:02 +03:00
=> .(p (end 3 pl p), s (end 3 sl s))
=+ u=(mul (mul 128 r) z)
::
:: n is power of 2; max 1GB memory
::
?> ?& =(n (bex (dec (xeb n))))
!=(r 0) !=(z 0)
%+ lte
(mul (mul 128 r) (dec (add n z)))
(bex 30)
(lth pl (bex 31))
(lth sl (bex 31))
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ^= b =+ (rpp 3 u (pbl p pl s sl 1 u))
%+ turn (bls (mul 128 r) -)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(a/(list @) (rpp 9 (mul 2 r) (rep 3 a)))
%velo reset works.
2016-12-02 04:17:02 +03:00
?> =((lent b) z)
=+ ^= q
=+ |- ?~ b (flop v)
$(b +.b, v [i=(srm r -.b n) t=v])
%+ turn `(list (list @))`-
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(a/(list @) (rpp 3 (mul 128 r) (rep 9 a)))
%velo reset works.
2016-12-02 04:17:02 +03:00
(pbl p pl (rep 3 (slb q)) u 1 d)
:: :: ++ypt:scr:crypto
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ ypt :: 256bit {salt pass}
|= {s/@ p/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @
(hsh p s 16.384 8 1 256)
-- ::scr
More cleanups.
2016-12-08 05:12:37 +03:00
:: ::
:::: ++crub:crypto :: (2b4) suite B, Ed
:: ::::
Boots, but some jet registration problems in ++ed.
2017-06-10 03:30:18 +03:00
++ crub !:
%velo reset works.
2016-12-02 04:17:02 +03:00
^- acru
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| {pub/{cry/@ sgn/@} sek/(unit {cry/@ sgn/@})}
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
:: :: ++as:crub:crypto
++ as ::
|%
:: :: ++sign:as:crub:
++ sign ::
simplifies +acru interface, updates +crub and call-sites
2018-08-21 22:23:00 +03:00
|= msg=@
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @ux
?~ sek ~| %pubkey-only !!
(jam [(sign:ed msg sgn.u.sek) msg])
:: :: ++sure:as:crub:
++ sure ::
simplifies +acru interface, updates +crub and call-sites
2018-08-21 22:23:00 +03:00
|= txt=@
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (unit @ux)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=+ ((hard {sig/@ msg/@}) (cue txt))
%velo reset works.
2016-12-02 04:17:02 +03:00
?. (veri:ed sig msg sgn.pub) ~
(some msg)
:: :: ++seal:as:crub:
++ seal ::
simplifies +acru interface, updates +crub and call-sites
2018-08-21 22:23:00 +03:00
|= {bpk/pass msg/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @ux
?~ sek ~| %pubkey-only !!
?> =('b' (end 3 1 bpk))
=+ pk=(rsh 8 1 (rsh 3 1 bpk))
=+ shar=(shax (shar:ed pk cry.u.sek))
simplifies +acru interface, updates +crub and call-sites
2018-08-21 22:23:00 +03:00
=+ smsg=(sign msg)
%velo reset works.
2016-12-02 04:17:02 +03:00
(jam (~(en siva:aes shar ~) smsg))
:: :: ++tear:as:crub:
++ tear ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {bpk/pass txt/@}
simplifies +acru interface, updates +crub and call-sites
2018-08-21 22:23:00 +03:00
^- (unit @ux)
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ sek ~| %pubkey-only !!
?> =('b' (end 3 1 bpk))
=+ pk=(rsh 8 1 (rsh 3 1 bpk))
=+ shar=(shax (shar:ed pk cry.u.sek))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=+ ((hard {iv/@ len/@ cph/@}) (cue txt))
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ try=(~(de siva:aes shar ~) iv len cph)
?~ try ~
simplifies +acru interface, updates +crub and call-sites
2018-08-21 22:23:00 +03:00
(sure:as:(com:nu:crub bpk) u.try)
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::as
:: :: ++de:crub:crypto
++ de :: decrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {key/@J txt/@}
More cleanups.
2016-12-08 05:12:37 +03:00
^- (unit @ux)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=+ ((hard {iv/@ len/@ cph/@}) (cue txt))
More cleanups.
2016-12-08 05:12:37 +03:00
%^ ~(de sivc:aes (shaz key) ~)
iv
len
cph
:: :: ++dy:crub:crypto
++ dy :: need decrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {key/@J cph/@}
More cleanups.
2016-12-08 05:12:37 +03:00
(need (de key cph))
:: :: ++en:crub:crypto
++ en :: encrypt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {key/@J msg/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @ux
More cleanups.
2016-12-08 05:12:37 +03:00
(jam (~(en sivc:aes (shaz key) ~) msg))
:: :: ++ex:crub:crypto
++ ex :: extract
|%
:: :: ++fig:ex:crub:crypto
++ fig :: fingerprint
^- @uvH
(shaf %bfig sgn.^pub)
:: :: ++pac:ex:crub:crypto
++ pac :: private fingerprint
^- @uvG
?~ sek ~| %pubkey-only !!
(end 6 1 (shaf %bcod sgn.u.sek))
:: :: ++pub:ex:crub:crypto
++ pub :: public key
^- pass
(cat 3 'b' (cat 8 sgn.^pub cry.^pub))
:: :: ++sec:ex:crub:crypto
++ sec :: private key
^- ring
?~ sek ~| %pubkey-only !!
(cat 3 'B' (cat 8 sgn.u.sek cry.u.sek))
-- ::ex
:: :: ++nu:crub:crypto
++ nu ::
|%
:: :: ++pit:nu:crub:crypto
++ pit :: create keypair
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {w/@ seed/@}
More cleanups.
2016-12-08 05:12:37 +03:00
=+ wid=(add (div w 8) ?:(=((mod w 8) 0) 0 1))
=+ bits=(shal wid seed)
=+ [c=(rsh 8 1 bits) s=(end 8 1 bits)]
..nu(pub [cry=(puck:ed c) sgn=(puck:ed s)], sek `[cry=c sgn=s])
:: :: ++nol:nu:crub:crypto
++ nol :: activate secret
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/ring
More cleanups.
2016-12-08 05:12:37 +03:00
=+ [mag=(end 3 1 a) bod=(rsh 3 1 a)]
~| %not-crub-seckey ?> =('B' mag)
=+ [c=(rsh 8 1 bod) s=(end 8 1 bod)]
..nu(pub [cry=(puck:ed c) sgn=(puck:ed s)], sek `[cry=c sgn=s])
:: :: ++com:nu:crub:crypto
++ com :: activate public
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/pass
More cleanups.
2016-12-08 05:12:37 +03:00
=+ [mag=(end 3 1 a) bod=(rsh 3 1 a)]
~| %not-crub-pubkey ?> =('b' mag)
..nu(pub [cry=(rsh 8 1 bod) sgn=(end 8 1 bod)], sek ~)
-- ::nu
-- ::crub
:: ::
:::: ++crua:crypto :: (2b5) suite B, RSA
:: ::::
removes deprecated +crua, updates %eyre and lib/hood/write to use +crub
2018-08-21 21:19:28 +03:00
++ crua !!
More cleanups.
2016-12-08 05:12:37 +03:00
:: ::
:::: ++test:crypto :: (2b6) test crypto
:: ::::
++ test ^?
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
:: :: ++trub:test:crypto
++ trub :: test crub
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= msg/@t
%velo reset works.
2016-12-02 04:17:02 +03:00
::
:: make acru cores
::
=/ ali (pit:nu:crub 512 (shaz 'Alice'))
=/ ali-pub (com:nu:crub pub:ex.ali)
=/ bob (pit:nu:crub 512 (shaz 'Robert'))
=/ bob-pub (com:nu:crub pub:ex.bob)
::
:: alice signs and encrypts a symmetric key to bob
::
=/ secret-key %- shaz
'Let there be no duplicity when taking a stand against him.'
simplifies +acru interface, updates +crub and call-sites
2018-08-21 22:23:00 +03:00
=/ signed-key (sign:as.ali secret-key)
=/ crypted-key (seal:as.ali pub:ex.bob-pub signed-key)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: bob decrypts and verifies
=/ decrypt-key-attempt (tear:as.bob pub:ex.ali-pub crypted-key)
=/ decrypted-key ~| %decrypt-fail (need decrypt-key-attempt)
simplifies +acru interface, updates +crub and call-sites
2018-08-21 22:23:00 +03:00
=/ verify-key-attempt (sure:as.ali-pub decrypted-key)
%velo reset works.
2016-12-02 04:17:02 +03:00
=/ verified-key ~| %verify-fail (need verify-key-attempt)
:: bob encrypts with symmetric key
=/ crypted-msg (en.bob verified-key msg)
:: alice decrypts with same key
`@t`(dy.ali secret-key crypted-msg)
-- ::test
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
:: ::
:::: ++keccak:crypto :: (2b7) keccak family
:: ::::
++ keccak
|%
::
:: keccak
::
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
++ keccak-224 |=(a=octs (keccak 1.152 448 224 a))
++ keccak-256 |=(a=octs (keccak 1.088 512 256 a))
++ keccak-384 |=(a=octs (keccak 832 768 384 a))
++ keccak-512 |=(a=octs (keccak 576 1.024 512 a))
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
++ keccak (cury (cury hash keccak-f) padding-keccak)
::
++ padding-keccak (multirate-padding 0x1)
::
:: sha3
::
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
++ sha3-224 |=(a=octs (sha3 1.152 448 224 a))
++ sha3-256 |=(a=octs (sha3 1.088 512 256 a))
++ sha3-384 |=(a=octs (sha3 832 768 384 a))
++ sha3-512 |=(a=octs (sha3 576 1.024 512 a))
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
++ sha3 (cury (cury hash keccak-f) padding-sha3)
::
++ padding-sha3 (multirate-padding 0x6)
::
:: shake
::
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
++ shake-128 |=([o=@ud i=octs] (shake 1.344 256 o i))
Fix incorrect naming for shake arms.
2018-03-06 03:26:34 +03:00
++ shake-256 |=([o=@ud i=octs] (shake 1.088 512 o i))
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
++ shake (cury (cury hash keccak-f) padding-shake)
::
++ padding-shake (multirate-padding 0x1f)
::
:: rawshake
::
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
++ rawshake-128 |=([o=@ud i=octs] (rawshake 1.344 256 o i))
Fix incorrect naming for shake arms.
2018-03-06 03:26:34 +03:00
++ rawshake-256 |=([o=@ud i=octs] (rawshake 1.088 512 o i))
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
++ rawshake (cury (cury hash keccak-f) padding-rawshake)
::
++ padding-rawshake (multirate-padding 0x7)
::
:: core
::
++ hash
Old help totally cleaned out.
2018-05-25 01:39:56 +03:00
:: per: permutation function with configurable width.
:: pad: padding function.
:: rat: bitrate, size in bits of blocks to operate on.
:: cap: capacity, bits of sponge padding.
:: out: length of desired output, in bits.
:: inp: input to hash.
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
|= $: per=$-(@ud $-(@ @))
Make padding pass explicit length, too.
2018-03-05 19:04:35 +03:00
pad=$-([octs @ud] octs)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
rat=@ud
cap=@ud
out=@ud
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
inp=octs
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
==
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
^- @
:: urbit's little-endian to keccak's big-endian.
Add ++rev to bit arithmetic, for reversing block order while accounting for leading zeroes.
2018-06-21 19:49:10 +03:00
=. q.inp (rev 3 inp)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
%. [inp out]
(sponge per pad rat cap)
::
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
::NOTE if ++keccak ever needs to be made to operate
:: on bits rather than bytes, all that needs to
:: be done is updating the way this padding
:: function works. (and also "octs" -> "bits")
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
++ multirate-padding
Old help totally cleaned out.
2018-05-25 01:39:56 +03:00
:: dsb: domain separation byte, reverse bit order.
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
|= dsb=@ux
?> (lte dsb 0xff)
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
|= [inp=octs mut=@ud]
Make padding pass explicit length, too.
2018-03-05 19:04:35 +03:00
^- octs
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
=. mut (div mut 8)
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
=+ pal=(sub mut (mod p.inp mut))
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
=? pal =(pal 0) mut
=. pal (dec pal)
Make padding pass explicit length, too.
2018-03-05 19:04:35 +03:00
:- (add p.inp +(pal))
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
:: padding is provided in lane bit ordering,
:: ie, LSB = left.
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
(cat 3 (con (lsh 3 pal dsb) 0x80) q.inp)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
++ sponge
Old help totally cleaned out.
2018-05-25 01:39:56 +03:00
:: sponge construction
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
Old help totally cleaned out.
2018-05-25 01:39:56 +03:00
:: preperm: permutation function with configurable width.
:: padding: padding function.
:: bitrate: size of blocks to operate on.
:: capacity: sponge padding.
More comments, better naming.
2018-03-05 18:12:32 +03:00
|= $: preperm=$-(@ud $-(@ @))
Make padding pass explicit length, too.
2018-03-05 19:04:35 +03:00
padding=$-([octs @ud] octs)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
bitrate=@ud
capacity=@ud
==
::
:: preparing
=+ bitrate-bytes=(div bitrate 8)
=+ blockwidth=(add bitrate capacity)
More comments, better naming.
2018-03-05 18:12:32 +03:00
=+ permute=(preperm blockwidth)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
Keccak interface now takes octs to account for leading zeroes when needed. Byte ordering is done for you.
2018-03-05 18:02:27 +03:00
|= [input=octs output=@ud]
|^ ^- @
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
:: padding
Make padding pass explicit length, too.
2018-03-05 19:04:35 +03:00
=. input (padding input bitrate)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
::
:: absorbing
=/ pieces=(list @)
:: amount of bitrate-sized blocks.
Make padding pass explicit length, too.
2018-03-05 19:04:35 +03:00
?> =(0 (mod p.input bitrate-bytes))
=+ i=(div p.input bitrate-bytes)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
|-
?: =(i 0) ~
:_ $(i (dec i))
:: get the bitrate-sized block of bytes
:: that ends with the byte at -.
Make padding pass explicit length, too.
2018-03-05 19:04:35 +03:00
=- (cut 3 [- bitrate-bytes] q.input)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
(mul (dec i) bitrate-bytes)
=/ state=@
:: for every piece,
%+ roll pieces
|= [p=@ s=@]
:: pad with capacity,
=. p (lsh 0 capacity p)
:: xor it into the state and permute it.
(permute (mix s (bytes-to-lanes p)))
::
:: squeezing
=| res=@
=| len=@ud
|-
:: append a bitrate-sized head of state to the
:: result.
=. res
%+ con (lsh 0 bitrate res)
(rsh 0 capacity (lanes-to-bytes state))
=. len (add len bitrate)
?: (gte len output)
:: produce the requested bits of output.
(rsh 0 (sub len output) res)
$(res res, state (permute state))
::
++ bytes-to-lanes
Old help totally cleaned out.
2018-05-25 01:39:56 +03:00
:: flip byte order in blocks of 8 bytes.
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
|= a=@
%+ can 6
%+ turn (rip 6 a)
|= b=@
:- 1
(lsh 3 (sub 8 (met 3 b)) (swp 3 b))
::
++ lanes-to-bytes
Old help totally cleaned out.
2018-05-25 01:39:56 +03:00
:: unflip byte order in blocks of 8 bytes.
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
|= a=@
%+ can 6
%+ turn
=+ (rip 6 a)
(weld - (reap (sub 25 (lent -)) 0x0))
|= a=@
:- 1
%+ can 3
=- (turn - |=(a=@ [1 a]))
=+ (flop (rip 3 a))
Fix bug in lane-to-bytes conversion.
2018-03-05 22:59:21 +03:00
(weld (reap (sub 8 (lent -)) 0x0) -)
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
--
::
++ keccak-f
Old help totally cleaned out.
2018-05-25 01:39:56 +03:00
:: keccak permutation function
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
|= [width=@ud]
:: assert valid blockwidth.
?> =- (~(has in -) width)
(sy 25 50 100 200 400 800 1.600 ~)
:: assumes 5x5 lanes state, as is the keccak
:: standard.
=+ size=5
=+ lanes=(mul size size)
=+ lane-bloq=(dec (xeb (div width lanes)))
=+ lane-size=(bex lane-bloq)
=+ rounds=(add 12 (mul 2 lane-bloq))
|= [input=@]
^- @
=* a input
=+ round=0
|^
?: =(round rounds) a
::
:: theta
=/ c=@
%+ roll (gulf 0 (dec size))
|= [x=@ud c=@]
%+ con (lsh lane-bloq 1 c)
%+ roll (gulf 0 (dec size))
|= [y=@ud c=@]
(mix c (get-lane x y a))
=/ d=@
%+ roll (gulf 0 (dec size))
|= [x=@ud d=@]
%+ con (lsh lane-bloq 1 d)
%+ mix
=- (get-word - size c)
?:(=(x 0) (dec size) (dec x))
%^ ~(rol fe lane-bloq) 0 1
(get-word (mod +(x) size) size c)
=. a
%+ roll (gulf 0 (dec lanes))
|= [i=@ud a=_a]
%+ mix a
%^ lsh lane-bloq
(sub lanes +(i))
(get-word i size d)
::
:: rho and pi
=/ b=@
%+ roll (gulf 0 (dec lanes))
|= [i=@ b=@]
=+ x=(mod i 5)
=+ y=(div i 5)
%+ con b
%^ lsh lane-bloq
%+ sub lanes
%+ add +(y)
%+ mul size
(mod (add (mul 2 x) (mul 3 y)) size)
%^ ~(rol fe lane-bloq) 0
(rotation-offset i)
(get-word i lanes a)
::
:: chi
=. a
%+ roll (gulf 0 (dec lanes))
|= [i=@ud a=@]
%+ con (lsh lane-bloq 1 a)
=+ x=(mod i 5)
=+ y=(div i 5)
%+ mix (get-lane x y b)
%+ dis
=- (get-lane - y b)
(mod (add x 2) size)
%^ not lane-bloq 1
(get-lane (mod +(x) size) y b)
::
:: iota
=. a
=+ (round-constant round)
(mix a (lsh lane-bloq (dec lanes) -))
::
:: next round
$(round +(round))
::
++ get-lane
Old help totally cleaned out.
2018-05-25 01:39:56 +03:00
:: get the lane with coordinates
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
|= [x=@ud y=@ud a=@]
=+ i=(add x (mul size y))
(get-word i lanes a)
::
++ get-word
Old help totally cleaned out.
2018-05-25 01:39:56 +03:00
:: get word {n} from atom {a} of {m} words.
Add keccak hashing family into zuse.
2018-03-02 17:43:54 +03:00
|= [n=@ud m=@ud a=@]
(cut lane-bloq [(sub m +((mod n m))) 1] a)
::
++ round-constant
|= c=@ud
=- (snag (mod c 24) -)
^- (list @ux)
:~ 0x1
0x8082
0x8000.0000.0000.808a
0x8000.0000.8000.8000
0x808b
0x8000.0001
0x8000.0000.8000.8081
0x8000.0000.0000.8009
0x8a
0x88
0x8000.8009
0x8000.000a
0x8000.808b
0x8000.0000.0000.008b
0x8000.0000.0000.8089
0x8000.0000.0000.8003
0x8000.0000.0000.8002
0x8000.0000.0000.0080
0x800a
0x8000.0000.8000.000a
0x8000.0000.8000.8081
0x8000.0000.0000.8080
0x8000.0001
0x8000.0000.8000.8008
==
::
++ rotation-offset
|= x=@ud
=- (snag x -)
^- (list @ud)
:~ 0 1 62 28 27
36 44 6 55 20
3 10 43 25 39
41 45 15 21 8
18 2 61 56 14
==
--
-- ::keccak
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::crypto
More cleanups.
2016-12-08 05:12:37 +03:00
:: ::::
:::: ++unity :: (2c) unit promotion
%velo reset works.
2016-12-02 04:17:02 +03:00
:: ::::
++ unity ^?
|%
:: :: ++drop-list:unity
++ drop-list :: collapse unit list
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* lut/(list (unit))
%velo reset works.
2016-12-02 04:17:02 +03:00
?. |- ^- ?
?~(lut & ?~(i.lut | $(lut t.lut)))
~
%- some
|-
?~ lut ~
[i=u:+.i.lut t=$(lut t.lut)]
:: :: ++drop-map:unity
++ drop-map :: collapse unit map
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* lum/(map term (unit))
Work in progress.
2018-08-16 04:05:30 +03:00
?: (~(rep by lum) |=({{@ a/(unit)} b/_|} |(b ?=(~ a))))
%velo reset works.
2016-12-02 04:17:02 +03:00
~
(some (~(run by lum) need))
change all-full/need-tuple to drop-pole
2016-12-08 22:54:50 +03:00
:: :: ++drop-pole:unity
++ drop-pole :: unit tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* but/(pole (unit))
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
?~ but !!
?~ +.but
u:->.but
[u:->.but (drop-pole +.but)]
%velo reset works.
2016-12-02 04:17:02 +03:00
--
More cleanups.
2016-12-08 05:12:37 +03:00
:: ::::
:::: ++format :: (2d) common formats
%velo reset works.
2016-12-02 04:17:02 +03:00
:: ::::
++ format ^?
whitespace conformity
2016-12-08 22:47:05 +03:00
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++to-wain:format
Move merged vanes back.
2016-12-02 22:34:07 +03:00
++ to-wain :: atom to line list
%velo reset works.
2016-12-02 04:17:02 +03:00
~% %lore ..is ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= lub/@
=| tez/(list @t)
%velo reset works.
2016-12-02 04:17:02 +03:00
|- ^+ tez
=+ ^= wor
=+ [meg=0 i=0]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|- ^- {meg/@ i/@ end/@f}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ gam=(cut 3 [i 1] lub)
?: =(0 gam)
[meg i %.y]
?: =(10 gam)
[meg i %.n]
$(meg (cat 3 meg gam), i +(i))
?: end.wor
(flop ^+(tez [meg.wor tez]))
?: =(0 lub) (flop tez)
$(lub (rsh 3 +(i.wor) lub), tez [meg.wor tez])
:: :: ++of-wain:format
Move merged vanes back.
2016-12-02 22:34:07 +03:00
++ of-wain :: line list to atom
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= tez/(list @t)
=| {our/@ i/@ud}
%velo reset works.
2016-12-02 04:17:02 +03:00
|- ^- @
?~ tez
our
?: =(%$ i.tez)
$(i +(i), tez t.tez, our (cat 3 our 10))
?: =(0 i)
$(i +(i), tez t.tez, our i.tez)
$(i +(i), tez t.tez, our (cat 3 (cat 3 our 10) i.tez))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++of-wall:format
++ of-wall :: line list to tape
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/wall ^- tape
?~(a ~ "{i.a}\0a{$(a t.a)}")
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++en-beam:format
++ en-beam :: beam to path
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= bem/beam
%velo reset works.
2016-12-02 04:17:02 +03:00
^- path
[(scot %p p.bem) q.bem (scot r.bem) (flop s.bem)]
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++de-beam:format
++ de-beam :: parse path to beam
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= pax/path
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (unit beam)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
?. ?=({* * * *} pax) ~
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ biff (slaw %p i.pax)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= who/ship
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ biff (slaw %tas i.t.pax)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= dex/desk
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ biff (slay i.t.t.pax)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= cis/coin
?. ?=({$$ case} cis) ~
%velo reset works.
2016-12-02 04:17:02 +03:00
`(unit beam)`[~ [who dex `case`p.cis] (flop t.t.t.pax)]
:: :: ++enjs:format
++ enjs ^? :: json encoders
|%
:: :: ++frond:enjs:format
++ frond :: object from k-v pair
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {p/@t q/json}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- json
[%o [[p q] ~ ~]]
:: :: ++pairs:enjs:format
++ pairs :: object from k-v list
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/(list {p/@t q/json})
%velo reset works.
2016-12-02 04:17:02 +03:00
^- json
[%o (~(gas by *(map @t json)) a)]
:: :: ++tape:enjs:format
++ tape :: string from tape
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/^tape
%velo reset works.
2016-12-02 04:17:02 +03:00
^- json
[%s (crip a)]
canonize jo..:js:eyre into enjs:format
2016-12-03 02:47:16 +03:00
:: :: ++wall:enjs:format
++ wall :: string from wall
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/^wall
canonize jo..:js:eyre into enjs:format
2016-12-03 02:47:16 +03:00
^- json
(tape (of-wall a))
:: :: ++ship:enjs:format
++ ship :: string from ship
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/^ship
canonize jo..:js:eyre into enjs:format
2016-12-03 02:47:16 +03:00
^- json
(tape (slag 1 (scow %p a)))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++numb:enjs:format
++ numb :: number from unsigned
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/@u
%velo reset works.
2016-12-02 04:17:02 +03:00
^- json
:- %n
?: =(0 a) '0'
%- crip
%- flop
|- ^- ^tape
?:(=(0 a) ~ [(add '0' (mod a 10)) $(a (div a 10))])
:: :: ++time:enjs:format
++ time :: ms timestamp
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/^time
%velo reset works.
2016-12-02 04:17:02 +03:00
=- (numb (div (mul - 1.000) ~s1))
(add (div ~s1 2.000) (sub a ~1970.1.1))
-- ::enjs
:: :: ++dejs:format
++ dejs :: json reparser
Move merged vanes back.
2016-12-02 22:34:07 +03:00
=> |% ++ grub * :: result
++ fist $-(json grub) :: reparser instance
-- ::
|%
:: :: ++ar:dejs:format
++ ar :: array as list
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wit/fist
|= jon/json ^- (list _(wit *json))
?> ?=({$a *} jon)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
(turn p.jon wit)
:: :: ++at:dejs:format
++ at :: array as tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wil/(pole fist)
|= jon/json
?> ?=({$a *} jon)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
((at-raw wil) p.jon)
:: :: ++at-raw:dejs:format
++ at-raw :: array as tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wil/(pole fist)
|= jol/(list json)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
?~ jol !!
?- wil :: mint-vain on empty
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: {wit/* t/*}
{* t/*}
Porting work in progress.
2018-08-16 04:37:13 +03:00
=> .(wil [wit *]=wil)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
?~ t.wil ?^(t.jol !! (wit.wil i.jol))
[(wit.wil i.jol) ((at-raw t.wil) t.jol)]
==
:: :: ++bo:dejs:format
++ bo :: boolean
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(jon/json ?>(?=({$b *} jon) p.jon))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++bu:dejs:format
++ bu :: boolean not
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(jon/json ?>(?=({$b *} jon) !p.jon))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++ci:dejs:format
++ ci :: maybe transform
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {poq/gate wit/fist}
|= jon/json
Move merged vanes back.
2016-12-02 22:34:07 +03:00
(need (poq (wit jon)))
:: :: ++cu:dejs:format
++ cu :: transform
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {poq/gate wit/fist}
|= jon/json
Move merged vanes back.
2016-12-02 22:34:07 +03:00
(poq (wit jon))
:: :: ++di:dejs:format
++ di :: millisecond date
%+ cu
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/@u ^- @da
Move merged vanes back.
2016-12-02 22:34:07 +03:00
(add ~1970.1.1 (div (mul ~s1 a) 1.000))
ni
:: :: ++mu:dejs:format
++ mu :: true unit
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wit/fist
|= jon/json
Move merged vanes back.
2016-12-02 22:34:07 +03:00
?~(jon ~ (some (wit jon)))
:: :: ++ne:dejs:format
++ ne :: number as real
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= jon/json
Move merged vanes back.
2016-12-02 22:34:07 +03:00
^- (unit @rd)
:: please implement me, it's not that hard!
!!
:: :: ++ni:dejs:format
++ ni :: number as integer
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= jon/json
?> ?=({$n *} jon)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
(rash p.jon dem)
:: :: ++no:dejs:format
++ no :: number as cord
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(jon/json ?>(?=({$n *} jon) p.jon))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++of:dejs:format
++ of :: object as frond
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wer/(pole {cord fist})
|= jon/json
?> ?=({$o {@ *} $~ $~} jon)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
|-
?- wer :: mint-vain on empty
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: {{key/@t wit/*} t/*}
{{key/@t *} t/*}
Porting work in progress.
2018-08-16 04:37:13 +03:00
=> .(wer [[* wit] *]=wer)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
?: =(key.wer p.n.p.jon)
[key.wer ~|(key+key.wer (wit.wer q.n.p.jon))]
?~ t.wer ~|(bad-key+p.n.p.jon !!)
((of t.wer) jon)
==
:: :: ++ot:dejs:format
++ ot :: object as tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wer/(pole {cord fist})
|= jon/json
?> ?=({$o *} jon)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
((ot-raw wer) p.jon)
:: :: ++ot-raw:dejs:format
++ ot-raw :: object as tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wer/(pole {cord fist})
|= jom/(map @t json)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
?- wer :: mint-vain on empty
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: {{key/@t wit/*} t/*}
{{key/@t *} t/*}
Porting work in progress.
2018-08-16 04:37:13 +03:00
=> .(wer [[* wit] *]=wer)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
=/ ten ~|(key+key.wer (wit.wer (~(got by jom) key.wer)))
?~(t.wer ten [ten ((ot-raw t.wer) jom)])
==
:: :: ++om:dejs:format
++ om :: object as map
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wit/fist
|= jon/json
?> ?=({$o *} jon)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
(~(run by p.jon) wit)
:: :: ++op:dejs:format
++ op :: parse keys of map
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {fel/rule wit/fist}
|= jon/json ^- (map _(wonk *fel) _*wit)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
=/ jom ((om wit) jon)
%- malt
removes +-tap:by accumulator arg and changes calling convention
2017-02-13 23:43:18 +03:00
%+ turn ~(tap by jom)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {a/cord b/*}
Move merged vanes back.
2016-12-02 22:34:07 +03:00
=> .(+< [a b]=+<)
[(rash a fel) b]
:: :: ++pe:dejs:format
++ pe :: prefix
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {pre/* wit/fist}
Move merged vanes back.
2016-12-02 22:34:07 +03:00
(cu |*(* [pre +<]) wit)
:: :: ++sa:dejs:format
++ sa :: string as tape
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(jon/json ?>(?=({$s *} jon) (trip p.jon)))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++so:dejs:format
++ so :: string as cord
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(jon/json ?>(?=({$s *} jon) p.jon))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
:: :: ++su:dejs:format
++ su :: parse string
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* sab/rule
|= jon/json ^+ (wonk *sab)
?> ?=({$s *} jon)
Move merged vanes back.
2016-12-02 22:34:07 +03:00
(rash p.jon sab)
:: :: ++ul:dejs:format
++ ul :: null
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(jon/json ?~(jon ~ !!))
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
::
++ za :: full unit pole
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* pod/(pole (unit))
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
?~ pod &
?~ -.pod |
(za +.pod)
::
++ zl :: collapse unit list
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* lut/(list (unit))
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
?. |- ^- ?
?~(lut & ?~(i.lut | $(lut t.lut)))
~
%- some
|-
?~ lut ~
[i=u:+.i.lut t=$(lut t.lut)]
::
++ zp :: unit tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* but/(pole (unit))
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
?~ but !!
?~ +.but
u:->.but
[u:->.but (zp +.but)]
::
++ zm :: collapse unit map
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* lum/(map term (unit))
Work in progress.
2018-08-16 04:05:30 +03:00
?: (~(rep by lum) |=({{@ a/(unit)} b/_|} |(b ?=(~ a))))
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
~
(some (~(run by lum) need))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
-- ::dejs
:: :: ++dejs-soft:format
++ dejs-soft :: json reparse to unit
%velo reset works.
2016-12-02 04:17:02 +03:00
=, unity
=> |% ++ grub (unit *) :: result
++ fist $-(json grub) :: reparser instance
-- ::
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
:: XX: this is old code that replaced a rewritten dejs.
:: the rewritten dejs rest-looped with ++redo. the old
:: code is still in revision control -- revise and replace.
::
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
++ ar :: array as list
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wit/fist
|= jon/json
?. ?=({$a *} jon) ~
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
%- zl
|-
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ p.jon ~
[i=(wit i.p.jon) t=$(p.jon t.p.jon)]
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ at :: array as tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wil/(pole fist)
|= jon/json
?. ?=({$a *} jon) ~
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
=+ raw=((at-raw wil) p.jon)
?.((za raw) ~ (some (zp raw)))
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ at-raw :: array as tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wil/(pole fist)
|= jol/(list json)
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
?~ wil ~
:- ?~(jol ~ (-.wil i.jol))
((at-raw +.wil) ?~(jol ~ t.jol))
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ bo :: boolean
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(jon/json ?.(?=({$b *} jon) ~ [~ u=p.jon]))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ bu :: boolean not
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(jon/json ?.(?=({$b *} jon) ~ [~ u=!p.jon]))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ ci :: maybe transform
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {poq/gate wit/fist}
|= jon/json
%velo reset works.
2016-12-02 04:17:02 +03:00
(biff (wit jon) poq)
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ cu :: transform
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {poq/gate wit/fist}
|= jon/json
%velo reset works.
2016-12-02 04:17:02 +03:00
(bind (wit jon) poq)
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
++ da :: UTC date
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= jon/json
?. ?=({$s *} jon) ~
(bind (stud:chrono:userlib p.jon) |=(a/date (year a)))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ di :: millisecond date
%+ cu
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/@u ^- @da
%velo reset works.
2016-12-02 04:17:02 +03:00
(add ~1970.1.1 (div (mul ~s1 a) 1.000))
ni
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ mu :: true unit
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wit/fist
|= jon/json
%velo reset works.
2016-12-02 04:17:02 +03:00
?~(jon (some ~) (bind (wit jon) some))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ ne :: number as real
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= jon/json
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (unit @rd)
!!
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ ni :: number as integer
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= jon/json
?. ?=({$n *} jon) ~
%velo reset works.
2016-12-02 04:17:02 +03:00
(rush p.jon dem)
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ no :: number as cord
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= jon/json
?. ?=({$n *} jon) ~
%velo reset works.
2016-12-02 04:17:02 +03:00
(some p.jon)
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ of :: object as frond
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wer/(pole {cord fist})
|= jon/json
Work in progress.
2018-08-16 04:05:30 +03:00
?. ?=({$o {@ *} ~ ~} jon) ~
%velo reset works.
2016-12-02 04:17:02 +03:00
|-
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
?~ wer ~
?: =(-.-.wer p.n.p.jon)
((pe -.-.wer +.-.wer) q.n.p.jon)
((of +.wer) jon)
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ ot :: object as tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wer/(pole {cord fist})
|= jon/json
?. ?=({$o *} jon) ~
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
=+ raw=((ot-raw wer) p.jon)
?.((za raw) ~ (some (zp raw)))
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ ot-raw :: object as tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wer/(pole {cord fist})
|= jom/(map @t json)
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
?~ wer ~
=+ ten=(~(get by jom) -.-.wer)
[?~(ten ~ (+.-.wer u.ten)) ((ot-raw +.wer) jom)]
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ om :: object as map
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* wit/fist
|= jon/json
?. ?=({$o *} jon) ~
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
(zm (~(run by p.jon) wit))
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ op :: parse keys of map
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {fel/rule wit/fist}
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
%+ cu
Fix small issue in ++op:dejs-soft:format when calling ++my:nl Re-does PR #445. It got overwritten in 7df058d.
2017-11-09 20:23:23 +03:00
|= a/(list (pair _(wonk *fel) _(need *wit)))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
(my:nl a)
%- ci :_ (om wit)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/(map cord _(need *wit))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
^- (unit (list _[(wonk *fel) (need *wit)]))
%- zl
Merge remote-tracking branch 'origin/master' into piaf-runes
2017-09-22 04:45:27 +03:00
%+ turn ~(tap by a)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {a/cord b/_(need *wit)}
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
=+ nit=(rush a fel)
?~ nit ~
(some [u.nit b])
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ pe :: prefix
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {pre/* wit/fist}
%velo reset works.
2016-12-02 04:17:02 +03:00
(cu |*(* [pre +<]) wit)
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ sa :: string as tape
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= jon/json
?.(?=({$s *} jon) ~ (some (trip p.jon)))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ so :: string as cord
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= jon/json
?.(?=({$s *} jon) ~ (some p.jon))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ su :: parse string
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* sab/rule
|= jon/json
?. ?=({$s *} jon) ~
%velo reset works.
2016-12-02 04:17:02 +03:00
(rush p.jon sab)
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ ul |=(jon/json ?~(jon (some ~) ~)) :: null
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
++ za :: full unit pole
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* pod/(pole (unit))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
?~ pod &
?~ -.pod |
(za +.pod)
::
++ zl :: collapse unit list
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* lut/(list (unit))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
?. |- ^- ?
?~(lut & ?~(i.lut | $(lut t.lut)))
~
%- some
|-
?~ lut ~
[i=u:+.i.lut t=$(lut t.lut)]
::
++ zp :: unit tuple
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* but/(pole (unit))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
?~ but !!
?~ +.but
u:->.but
[u:->.but (zp +.but)]
::
++ zm :: collapse unit map
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* lum/(map term (unit))
Work in progress.
2018-08-16 04:05:30 +03:00
?: (~(rep by lum) |=({{@ a/(unit)} b/_|} |(b ?=(~ a))))
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
~
(some (~(run by lum) need))
Move merged vanes back.
2016-12-02 22:34:07 +03:00
-- ::dejs-soft
%velo reset works.
2016-12-02 04:17:02 +03:00
--
:: ::
:::: ++differ :: (2d) hunt-mcilroy
:: ::::
++ differ ^?
remove ^vane shims requires vere without crypto:ames
2016-12-07 06:13:33 +03:00
=, clay
%velo reset works.
2016-12-02 04:17:02 +03:00
=, format
|%
:: :: ++berk:differ
++ berk :: invert diff patch
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* bur/(urge)
%velo reset works.
2016-12-02 04:17:02 +03:00
|- ^+ bur
?~ bur ~
:_ $(bur t.bur)
?- -.i.bur
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%& i.bur
%| [%| q.i.bur p.i.bur]
%velo reset works.
2016-12-02 04:17:02 +03:00
==
:: :: ++loss:differ
++ loss :: longest subsequence
~% %loss ..is ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {hel/(list) hev/(list)}
%velo reset works.
2016-12-02 04:17:02 +03:00
|- ^+ hev
=+ ^= sev
=+ [inx=0 sev=*(map _i.-.hev (list @ud))]
|- ^+ sev
?~ hev sev
=+ guy=(~(get by sev) i.hev)
%= $
hev t.hev
inx +(inx)
sev (~(put by sev) i.hev [inx ?~(guy ~ u.guy)])
==
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| gox/{p/@ud q/(map @ud {p/@ud q/_hev})}
%velo reset works.
2016-12-02 04:17:02 +03:00
=< abet
=< main
|%
:: :: ++abet:loss:differ
++ abet :: subsequence
^+ hev
?: =(0 p.gox) ~
(flop q:(need (~(get by q.gox) (dec p.gox))))
:: :: ++hink:loss:differ
++ hink :: extend fits top
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {inx/@ud goy/@ud} ^- ?
%velo reset works.
2016-12-02 04:17:02 +03:00
?| =(p.gox inx)
(lth goy p:(need (~(get by q.gox) inx)))
==
:: :: ++lonk:loss:differ
++ lonk :: extend fits bottom
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {inx/@ud goy/@ud} ^- ?
%velo reset works.
2016-12-02 04:17:02 +03:00
?| =(0 inx)
(gth goy p:(need (~(get by q.gox) (dec inx))))
==
:: :: ++luna:loss:differ
++ luna :: extend
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {inx/@ud goy/@ud}
%velo reset works.
2016-12-02 04:17:02 +03:00
^+ +>
%_ +>.$
gox
:- ?:(=(inx p.gox) +(p.gox) p.gox)
%+ ~(put by q.gox) inx
:+ goy
(snag goy hev)
?:(=(0 inx) ~ q:(need (~(get by q.gox) (dec inx))))
==
:: :: ++merg:loss:differ
++ merg :: merge all matches
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= gay/(list @ud)
%velo reset works.
2016-12-02 04:17:02 +03:00
^+ +>
=+ ^= zes
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=+ [inx=0 zes=*(list {p/@ud q/@ud})]
%velo reset works.
2016-12-02 04:17:02 +03:00
|- ^+ zes
Work in progress.
2018-08-16 04:05:30 +03:00
?: |(?=(~ gay) (gth inx p.gox)) zes
%velo reset works.
2016-12-02 04:17:02 +03:00
?. (lonk inx i.gay) $(gay t.gay)
?. (hink inx i.gay) $(inx +(inx))
$(inx +(inx), gay t.gay, zes [[inx i.gay] zes])
|- ^+ +>.^$
?~(zes +>.^$ $(zes t.zes, +>.^$ (luna i.zes)))
:: :: ++main:loss:differ
++ main ::
=+ hol=hel
|- ^+ +>
?~ hol +>
=+ guy=(~(get by sev) i.hol)
$(hol t.hol, +> (merg (flop `(list @ud)`?~(guy ~ u.guy))))
-- ::
:: :: ++lurk:differ
++ lurk :: apply list patch
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {hel/(list) rug/(urge)}
%velo reset works.
2016-12-02 04:17:02 +03:00
^+ hel
=+ war=`_hel`~
|- ^+ hel
?~ rug (flop war)
?- -.i.rug
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%&
%velo reset works.
2016-12-02 04:17:02 +03:00
%= $
rug t.rug
hel (slag p.i.rug hel)
war (weld (flop (scag p.i.rug hel)) war)
==
::
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%|
%velo reset works.
2016-12-02 04:17:02 +03:00
%= $
rug t.rug
hel =+ gur=(flop p.i.rug)
|- ^+ hel
?~ gur hel
?>(&(?=(^ hel) =(i.gur i.hel)) $(hel t.hel, gur t.gur))
war (weld q.i.rug war)
==
==
:: :: ++lusk:differ
++ lusk :: lcs to list patch
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {hel/(list) hev/(list) lcs/(list)}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ^= rag
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
^- {$%({%& p/@ud} {%| p/_lcs q/_lcs})}
%velo reset works.
2016-12-02 04:17:02 +03:00
[%& 0]
=> .(rag [p=rag q=*(list _rag)])
=< abet =< main
|%
:: :: ++abet:lusk:differ
++ abet ::
fix bad conflict resolution in bab93e7 fixes #357 going on the record as still baffled why there was even a conflict for the zuseflat merge to resolve
2017-03-14 21:34:23 +03:00
=? q.rag !=([& 0] p.rag) [p.rag q.rag]
%velo reset works.
2016-12-02 04:17:02 +03:00
(flop q.rag)
:: :: ++done:lusk:differ
++ done ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= new/_p.rag
%velo reset works.
2016-12-02 04:17:02 +03:00
^+ rag
?- -.p.rag
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%| ?- -.new
%| [[%| (weld p.new p.p.rag) (weld q.new q.p.rag)] q.rag]
%& [new [p.rag q.rag]]
New metal boot system.
2016-11-24 07:25:07 +03:00
==
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%& ?- -.new
%| [new ?:(=(0 p.p.rag) q.rag [p.rag q.rag])]
%& [[%& (add p.p.rag p.new)] q.rag]
%velo reset works.
2016-12-02 04:17:02 +03:00
==
==
:: :: ++main:lusk:differ
++ main ::
|- ^+ +
?~ hel
?~ hev
Work in progress.
2018-08-16 04:05:30 +03:00
?>(?=(~ lcs) +)
%velo reset works.
2016-12-02 04:17:02 +03:00
$(hev t.hev, rag (done %| ~ [i.hev ~]))
?~ hev
$(hel t.hel, rag (done %| [i.hel ~] ~))
?~ lcs
+(rag (done %| (flop hel) (flop hev)))
?: =(i.hel i.lcs)
?: =(i.hev i.lcs)
$(lcs t.lcs, hel t.hel, hev t.hev, rag (done %& 1))
$(hev t.hev, rag (done %| ~ [i.hev ~]))
?: =(i.hev i.lcs)
$(hel t.hel, rag (done %| [i.hel ~] ~))
$(hel t.hel, hev t.hev, rag (done %| [i.hel ~] [i.hev ~]))
-- ::
-- ::differ
:: ::
:::: ++html :: (2e) text encodings
:: ::::
leave note on ++html
2016-12-09 02:48:30 +03:00
++ html ^? :: XX rename to web-txt
remove ^vane shims requires vere without crypto:ames
2016-12-07 06:13:33 +03:00
=, eyre
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
:: ::
canonize base64, mime type encoding
2016-12-03 03:33:15 +03:00
:::: ++mimes:html :: (2e1) MIME
%velo reset works.
2016-12-02 04:17:02 +03:00
:: ::::
canonize base64, mime type encoding
2016-12-03 03:33:15 +03:00
++ mimes ^?
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
canonize base64, mime type encoding
2016-12-03 03:33:15 +03:00
:: :: ++as-octs:mimes:html
%velo reset works.
2016-12-02 04:17:02 +03:00
++ as-octs :: atom to octstream
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= tam/@ ^- octs
%velo reset works.
2016-12-02 04:17:02 +03:00
[(met 3 tam) tam]
canonize base64, mime type encoding
2016-12-03 03:33:15 +03:00
:: :: ++as-octt:mimes:html
%velo reset works.
2016-12-02 04:17:02 +03:00
++ as-octt :: tape to octstream
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= tep/tape ^- octs
%velo reset works.
2016-12-02 04:17:02 +03:00
(as-octs (rap 3 tep))
canonize base64, mime type encoding
2016-12-03 03:33:15 +03:00
:: :: ++en-mite:mimes:html
%velo reset works.
2016-12-02 04:17:02 +03:00
++ en-mite :: mime type to text
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= myn/mite
%velo reset works.
2016-12-02 04:17:02 +03:00
%- crip
|- ^- tape
?~ myn ~
?: =(~ t.myn) (trip i.myn)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
(weld (trip i.myn) `tape`['/' $(myn t.myn)])
canonize base64, mime type encoding
2016-12-03 03:33:15 +03:00
:: :: ++en-base64:mimes:
%velo reset works.
2016-12-02 04:17:02 +03:00
++ en-base64 :: encode base64
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= tig/@
%velo reset works.
2016-12-02 04:17:02 +03:00
^- tape
=+ poc=(~(dif fo 3) 0 (met 3 tig))
=+ pad=(lsh 3 poc (swp 3 tig))
=+ ^= cha
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ^= sif
|- ^- tape
?~ pad
~
=+ d=(end 0 6 pad)
[(cut 3 [d 1] cha) $(pad (rsh 0 6 pad))]
(weld (flop (slag poc sif)) (reap poc '='))
canonize base64, mime type encoding
2016-12-03 03:33:15 +03:00
:: :: ++de-base64:mimes:
%velo reset works.
2016-12-02 04:17:02 +03:00
++ de-base64 :: decode base64
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=- |=(a/cord (rash a fel))
=< fel=(cook |~(a/@ `@t`(swp 3 a)) (bass 64 .))
%velo reset works.
2016-12-02 04:17:02 +03:00
=- (cook welp ;~(plug (plus siw) (stun 0^2 (cold %0 tis))))
^= siw
;~ pose
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
(cook |=(a/@ (sub a 'A')) (shim 'A' 'Z'))
(cook |=(a/@ (sub a 'G')) (shim 'a' 'z'))
(cook |=(a/@ (add a 4)) (shim '0' '9'))
%velo reset works.
2016-12-02 04:17:02 +03:00
(cold 62 (just '+'))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
(cold 63 (just '/'))
%velo reset works.
2016-12-02 04:17:02 +03:00
==
canonize base64, mime type encoding
2016-12-03 03:33:15 +03:00
-- ::mimes
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++en-json:html
++ en-json :: print json
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|^ |=(val/json (apex val ""))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++apex:en-json:html
++ apex
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {val/json rez/tape}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- tape
?~ val (weld "null" rez)
?- -.val
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$a
%velo reset works.
2016-12-02 04:17:02 +03:00
:- '['
=. rez [']' rez]
!.
?~ p.val rez
New metal boot system.
2016-11-24 07:25:07 +03:00
|-
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ t.p.val ^$(val i.p.val)
^$(val i.p.val, rez [',' $(p.val t.p.val)])
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$b (weld ?:(p.val "true" "false") rez)
$n (weld (trip p.val) rez)
$s
%velo reset works.
2016-12-02 04:17:02 +03:00
:- '"'
=. rez ['"' rez]
=+ viz=(trip p.val)
!.
|- ^- tape
?~ viz rez
=+ hed=(jesc i.viz)
Work in progress.
2018-08-16 04:05:30 +03:00
?: ?=({@ ~} hed)
%velo reset works.
2016-12-02 04:17:02 +03:00
[i.hed $(viz t.viz)]
(weld hed $(viz t.viz))
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$o
:- '{'
=. rez ['}' rez]
removes +-tap:by accumulator arg and changes calling convention
2017-02-13 23:43:18 +03:00
=+ viz=~(tap by p.val)
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ viz rez
!.
|- ^+ rez
?~ t.viz ^$(val [%s p.i.viz], rez [':' ^$(val q.i.viz)])
=. rez [',' $(viz t.viz)]
^$(val [%s p.i.viz], rez [':' ^$(val q.i.viz)])
==
:: :: ++jesc:en-json:html
++ jesc :: escaped
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=+ utf=|=(a/@ ['\\' 'u' ((x-co 4):co a)])
|= a/@ ^- tape
%velo reset works.
2016-12-02 04:17:02 +03:00
?+ a ?:((gth a 0x1f) [a ~] (utf a))
$10 "\\n"
$34 "\\\""
$92 "\\\\"
==
-- ::en-json
:: :: ++de-json:html
++ de-json :: parse JSON
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=< |=(a/cord `(unit json)`(rush a apex))
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
:: :: ++abox:de-json:html
++ abox :: array
%+ stag %a
Porting work in progress.
2018-08-16 04:37:13 +03:00
(ifix [lac (wish rac)] (more (wish com) apex))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++apex:de-json:html
++ apex :: any value
%+ knee *json |. ~+
%+ ifix [spac spac]
;~ pose
(cold ~ (jest 'null'))
(stag %b bool)
(stag %s stri)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
(cook |=(s/tape [%n p=(rap 3 s)]) numb)
%velo reset works.
2016-12-02 04:17:02 +03:00
abox
obox
==
:: :: ++bool:de-json:html
++ bool :: boolean
;~ pose
(cold & (jest 'true'))
(cold | (jest 'false'))
==
:: :: ++digs:de-json:html
++ digs :: digits
(star (shim '0' '9'))
:: :: ++esca:de-json:html
++ esca :: escaped character
;~ pfix bas
=* loo
=* lip
^- (list (pair @t @))
[b+8 t+9 n+10 f+12 r+13 ~]
=* wow `(map @t @)`(malt lip)
(sear ~(get by wow) low)
=* tuf ;~(pfix (just 'u') (cook tuft qix:ab))
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(pose yel net say bas loo tuf)
%velo reset works.
2016-12-02 04:17:02 +03:00
==
:: :: ++expo:de-json:html
++ expo :: exponent
;~ (comp twel)
(piec (mask "eE"))
(mayb (piec (mask "+-")))
digs
==
:: :: ++frac:de-json:html
++ frac :: fraction
;~(plug dot digs)
:: :: ++jcha:de-json:html
++ jcha :: string character
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(pose ;~(less yel bas prn) esca)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++mayb:de-json:html
++ mayb :: optional
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|*(bus/rule ;~(pose bus (easy ~)))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++numb:de-json:html
++ numb :: number
;~ (comp twel)
(mayb (piec hep))
;~ pose
(piec (just '0'))
;~(plug (shim '1' '9') digs)
==
(mayb frac)
(mayb expo)
==
:: :: ++obje:de-json:html
++ obje :: object list
Porting work in progress.
2018-08-16 04:37:13 +03:00
%+ ifix [(wish leb) (wish reb)]
%velo reset works.
2016-12-02 04:17:02 +03:00
(more (wish com) pear)
:: :: ++obox:de-json:html
++ obox :: object
(stag %o (cook malt obje))
:: :: ++pear:de-json:html
++ pear :: key-value
;~(plug ;~(sfix (wish stri) (wish col)) apex)
:: :: ++piec:de-json:html
++ piec :: listify
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* bus/rule
(cook |=(a/@ [a ~]) bus)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++stri:de-json:html
++ stri :: string
Porting work in progress.
2018-08-16 04:37:13 +03:00
(cook crip (ifix [yel yel] (star jcha)))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++tops:de-json:html
++ tops :: strict value
;~(pose abox obox)
:: :: ++spac:de-json:html
++ spac :: whitespace
(star (mask [`@`9 `@`10 `@`13 ' ' ~]))
:: :: ++twel:de-json:html
++ twel :: tape weld
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=({a/tape b/tape} (weld a b))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++wish:de-json:html
++ wish :: with whitespace
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|*(sef/rule ;~(pfix spac sef))
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::de-json
:: :: ++en-xml:html
++ en-xml :: xml printer
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=< |=(a/manx `tape`(apex a ~))
%velo reset works.
2016-12-02 04:17:02 +03:00
|_ _[unq=`?`| cot=`?`|]
:: :: ++apex:en-xml:html
++ apex :: top level
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {mex/manx rez/tape}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- tape
Work in progress.
2018-08-16 04:05:30 +03:00
?: ?=({$$ {{$$ *} ~}} g.mex)
%velo reset works.
2016-12-02 04:17:02 +03:00
(escp v.i.a.g.mex rez)
=+ man=`mane`n.g.mex
=. unq |(unq =(%script man) =(%style man))
=+ tam=(name man)
=+ att=`mart`a.g.mex
:- '<'
%+ welp tam
=- ?~(att rez [' ' (attr att rez)])
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
^- rez/tape
Work in progress.
2018-08-16 04:05:30 +03:00
?: &(?=(~ c.mex) |(cot (clot man)))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
[' ' '/' '>' rez]
%velo reset works.
2016-12-02 04:17:02 +03:00
:- '>'
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
(many c.mex :(weld "</" tam ">" rez))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++attr:en-xml:html
++ attr :: attributes to tape
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {tat/mart rez/tape}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- tape
?~ tat rez
=. rez $(tat t.tat)
;: weld
(name n.i.tat)
"=\""
(escp(unq |) v.i.tat '"' ?~(t.tat rez [' ' rez]))
==
:: :: ++escp:en-xml:html
++ escp :: escape for xml
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {tex/tape rez/tape}
%velo reset works.
2016-12-02 04:17:02 +03:00
?: unq
(weld tex rez)
=+ xet=`tape`(flop tex)
!.
|- ^- tape
?~ xet rez
%= $
xet t.xet
rez ?- i.xet
$34 ['&' 'q' 'u' 'o' 't' ';' rez]
$38 ['&' 'a' 'm' 'p' ';' rez]
$39 ['&' '#' '3' '9' ';' rez]
$60 ['&' 'l' 't' ';' rez]
$62 ['&' 'g' 't' ';' rez]
* [i.xet rez]
==
==
:: :: ++many:en-xml:html
++ many :: nodelist to tape
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {lix/(list manx) rez/tape}
%velo reset works.
2016-12-02 04:17:02 +03:00
|- ^- tape
?~ lix rez
(apex i.lix $(lix t.lix))
:: :: ++name:en-xml:html
++ name :: name to tape
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= man/mane ^- tape
%velo reset works.
2016-12-02 04:17:02 +03:00
?@ man (trip man)
(weld (trip -.man) `tape`[':' (trip +.man)])
:: :: ++clot:en-xml:html
++ clot ~+ :: self-closing tags
replaces all uses of %# with %~
2018-04-04 21:15:10 +03:00
%~ has in
replaces all tall cnsg hoons with %#
2018-04-04 21:07:05 +03:00
%- silt ^- (list term) :~
%area %base %br %col %command %embed %hr %img %inputt
%keygen %link %meta %param %source %track %wbr
==
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::en-xml
:: :: ++de-xml:html
++ de-xml :: xml parser
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=< |=(a/cord (rush a apex))
|_ ent/_`(map term @t)`[[%apos '\''] ~ ~]
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++apex:de-xml:html
++ apex :: top level
=+ spa=;~(pose comt whit)
%+ knee *manx |. ~+
%+ ifix [(star spa) (star spa)]
;~ pose
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ sear |=({a/marx b/marl c/mane} ?.(=(c n.a) ~ (some [a b])))
%velo reset works.
2016-12-02 04:17:02 +03:00
;~(plug head many tail)
empt
==
:: :: ++attr:de-xml:html
++ attr :: attributes
%+ knee *mart |. ~+
%- star
;~ plug
;~(pfix (plus whit) name)
;~ pose
Porting work in progress.
2018-08-16 04:37:13 +03:00
(ifix [;~(plug tis yel) yel] (star ;~(less yel escp)))
(ifix [;~(plug tis say) say] (star ;~(less say escp)))
%velo reset works.
2016-12-02 04:17:02 +03:00
(easy ~)
==
==
:: :: ++chrd:de-xml:html
++ chrd :: character data
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ cook |=(a/tape ^-(mars ;/(a)))
Porting work in progress.
2018-08-16 04:37:13 +03:00
(plus ;~(less yel ;~(pose (just `@`10) escp)))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++comt:de-xml:html
++ comt :: comments
=- (ifix [(jest '<!--') (jest '-->')] (star -))
;~ pose
;~(less hep prn)
whit
;~(less (jest '-->') hep)
==
:: :: ++escp:de-xml:html
++ escp ::
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(pose ;~(less led ban pad prn) enty)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++enty:de-xml:html
++ enty :: entity
Porting work in progress.
2018-08-16 04:37:13 +03:00
%+ ifix pad^mic
%velo reset works.
2016-12-02 04:17:02 +03:00
;~ pose
Intermediate commit -- ^% on %zuse.
2017-09-07 03:36:10 +03:00
=+ def=^+(ent (my:nl [%gt '>'] [%lt '<'] [%amp '&'] [%quot '"'] ~))
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ sear ~(get by (~(uni by def) ent))
(cook crip ;~(plug alf (stun 1^31 aln)))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ cook |=(a/@c ?:((gth a 0x10.ffff) '<27>' (tuft a)))
%velo reset works.
2016-12-02 04:17:02 +03:00
=< ;~(pfix hax ;~(pose - +))
:- (bass 10 (stun 1^8 dit))
(bass 16 ;~(pfix (mask "xX") (stun 1^8 hit)))
==
:: :: ++empt:de-xml:html
++ empt :: self-closing tag
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ ifix [gal (jest '/>')]
%velo reset works.
2016-12-02 04:17:02 +03:00
;~(plug ;~(plug name attr) (cold ~ (star whit)))
:: :: ++head:de-xml:html
++ head :: opening tag
Porting work in progress.
2018-08-16 04:37:13 +03:00
(ifix [gal ban] ;~(plug name attr))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++many:de-xml:html
++ many :: contents
(more (star comt) ;~(pose apex chrd))
:: :: ++name:de-xml:html
++ name :: tag name
=+ ^= chx
%+ cook crip
;~ plug
;~(pose cab alf)
(star ;~(pose cab dot alp))
==
;~(pose ;~(plug ;~(sfix chx col) chx) chx)
:: :: ++tail:de-xml:html
++ tail :: closing tag
Porting work in progress.
2018-08-16 04:37:13 +03:00
(ifix [(jest '</') ban] name)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++whit:de-xml:html
++ whit :: whitespace
(mask ~[' ' `@`0x9 `@`0xa])
-- ::de-xml
:: :: ++en-urlt:html
++ en-urlt :: url encode
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= tep/tape
%velo reset works.
2016-12-02 04:17:02 +03:00
^- tape
%- zing
%+ turn tep
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= tap/char
=+ xen=|=(tig/@ ?:((gte tig 10) (add tig 55) (add tig '0')))
%velo reset works.
2016-12-02 04:17:02 +03:00
?: ?| &((gte tap 'a') (lte tap 'z'))
&((gte tap 'A') (lte tap 'Z'))
&((gte tap '0') (lte tap '9'))
=('.' tap)
=('-' tap)
=('~' tap)
=('_' tap)
==
[tap ~]
['%' (xen (rsh 0 4 tap)) (xen (end 0 4 tap)) ~]
:: :: ++de-urlt:html
++ de-urlt :: url decode
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= tep/tape
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (unit tape)
?~ tep [~ ~]
?: =('%' i.tep)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
?. ?=({@ @ *} t.tep) ~
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ nag=(mix i.t.tep (lsh 3 1 i.t.t.tep))
=+ val=(rush nag hex:ag)
?~ val ~
=+ nex=$(tep t.t.t.tep)
?~(nex ~ [~ [`@`u.val u.nex]])
=+ nex=$(tep t.tep)
?~(nex ~ [~ i.tep u.nex])
:: :: ++en-purl:html
++ en-purl :: print purl
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=< |=(pul/purl `tape`(apex %& pul))
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
:: :: ++apex:en-purl:html
++ apex ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= qur/quri ^- tape
%velo reset works.
2016-12-02 04:17:02 +03:00
?- -.qur
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%& (weld (head p.p.qur) `tape`$(qur [%| +.p.qur]))
%| ['/' (weld (body p.qur) (tail q.qur))]
%velo reset works.
2016-12-02 04:17:02 +03:00
==
:: :: ++apix:en-purl:html
++ apix :: purf to tape
|= purf
(weld (apex %& p) ?~(q "" `tape`['#' (trip u.q)]))
:: :: ++body:en-purl:html
++ body ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= pok/pork ^- tape
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ q.pok ~
|-
=+ seg=(en-urlt (trip i.q.pok))
?~ t.q.pok
?~(p.pok seg (welp seg '.' (trip u.p.pok)))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
(welp seg '/' $(q.pok t.q.pok))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++head:en-purl:html
++ head ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= har/hart
%velo reset works.
2016-12-02 04:17:02 +03:00
^- tape
;: weld
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
?:(&(p.har !?=(hoke r.har)) "https://" "http://")
%velo reset works.
2016-12-02 04:17:02 +03:00
::
?- -.r.har
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
%| (trip (rsh 3 1 (scot %if p.r.har)))
%& =+ rit=(flop p.r.har)
%velo reset works.
2016-12-02 04:17:02 +03:00
|- ^- tape
?~ rit ~
(weld (trip i.rit) ?~(t.rit "" `tape`['.' $(rit t.rit)]))
==
::
?~(q.har ~ `tape`[':' ((d-co:co 1) u.q.har)])
==
:: :: ++tail:en-purl:html
++ tail ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= kay/quay
%velo reset works.
2016-12-02 04:17:02 +03:00
^- tape
?: =(~ kay) ~
:- '?'
|- ^- tape
?~ kay ~
;: welp
(en-urlt (trip p.i.kay))
?~(q.i.kay ~ ['=' (en-urlt (trip q.i.kay))])
?~(t.kay ~ `tape`['&' $(kay t.kay)])
==
-- ::
:: :: ++de-purl:html
++ de-purl :: url+header parser
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=< |=(a/cord `(unit purl)`(rush a auri))
%velo reset works.
2016-12-02 04:17:02 +03:00
|%
:: :: ++deft:de-purl:html
whitespace violations
2016-12-07 06:14:39 +03:00
++ deft :: parse url extension
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= rax/(list @t)
%velo reset works.
2016-12-02 04:17:02 +03:00
|- ^- pork
?~ rax
[~ ~]
?^ t.rax
[p.pok [ire q.pok]]:[pok=$(rax t.rax) ire=i.rax]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=+ ^- raf/(like term)
=> |=(a/@ ((sand %tas) (crip (flop (trip a)))))
%velo reset works.
2016-12-02 04:17:02 +03:00
(;~(sfix (sear . sym) dot) [1^1 (flop (trip i.rax))])
?~ q.raf
[~ [i.rax ~]]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=+ `{ext/term {@ @} fyl/tape}`u.q.raf
%velo reset works.
2016-12-02 04:17:02 +03:00
:- `ext
?:(=(~ fyl) ~ [(crip (flop fyl)) ~])
:: :: ++apat:de-purl:html
++ apat :: 2396 abs_path
%+ cook deft
Porting work in progress.
2018-08-16 04:37:13 +03:00
(ifix [net ;~(pose net (easy ~))] (more net smeg))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++aurf:de-purl:html
++ aurf :: 2396 with fragment
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ cook |~(a/purf a)
%velo reset works.
2016-12-02 04:17:02 +03:00
;~(plug auri (punt ;~(pfix hax (cook crip (star pque)))))
:: :: ++auri:de-purl:html
++ auri :: 2396 URL
%+ cook
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/purl
%velo reset works.
2016-12-02 04:17:02 +03:00
?.(?=(hoke r.p.a) a a(p.p &))
;~ plug
;~(plug htts thor)
;~(plug ;~(pose apat (easy *pork)) yque)
==
:: :: ++auru:de-purl:html
++ auru :: 2396 with maybe user
%+ cook
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= $: a/{p/? q/(unit user) r/{(unit @ud) host}}
b/{pork quay}
%velo reset works.
2016-12-02 04:17:02 +03:00
==
^- (pair (unit user) purl)
[q.a [[p.a r.a] b]]
::
;~ plug
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(plug htts (punt ;~(sfix urt:ab vat)) thor)
%velo reset works.
2016-12-02 04:17:02 +03:00
;~(plug ;~(pose apat (easy *pork)) yque)
==
:: :: ++htts:de-purl:html
++ htts :: scheme
%+ sear ~(get by (malt `(list (pair term ?))`[http+| https+& ~]))
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(sfix scem ;~(plug col net net))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++cock:de-purl:html
++ cock :: cookie
Porting work in progress.
2018-08-16 04:37:13 +03:00
%+ most ;~(plug mic ace)
%velo reset works.
2016-12-02 04:17:02 +03:00
;~(plug toke ;~(pfix tis tosk))
:: :: ++dlab:de-purl:html
++ dlab :: 2396 domainlabel
%+ sear
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/@ta
%velo reset works.
2016-12-02 04:17:02 +03:00
?.(=('-' (rsh 3 (dec (met 3 a)) a)) [~ u=a] ~)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ cook |=(a/tape (crip (cass a)))
%velo reset works.
2016-12-02 04:17:02 +03:00
;~(plug aln (star alp))
:: :: ++fque:de-purl:html
++ fque :: normal query field
(cook crip (plus pquo))
:: :: ++fquu:de-purl:html
++ fquu :: optional query field
(cook crip (star pquo))
:: :: ++pcar:de-purl:html
++ pcar :: 2396 path char
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(pose pure pesc psub col vat)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++pcok:de-purl:html
++ pcok :: cookie char
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(less bas mic com yel prn)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++pesc:de-purl:html
++ pesc :: 2396 escaped
;~(pfix cen mes)
:: :: ++pold:de-purl:html
++ pold ::
(cold ' ' (just '+'))
:: :: ++pque:de-purl:html
++ pque :: 3986 query char
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(pose pcar net wut)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++pquo:de-purl:html
++ pquo :: normal query char
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(pose pure pesc pold net wut)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++pure:de-purl:html
++ pure :: 2396 unreserved
;~(pose aln hep dot cab sig)
:: :: ++psub:de-purl:html
++ psub :: 3986 sub-delims
;~ pose
Porting work in progress.
2018-08-16 04:37:13 +03:00
zap bus pad say lit rit
tar lus com mic tis
%velo reset works.
2016-12-02 04:17:02 +03:00
==
:: :: ++ptok:de-purl:html
++ ptok :: 2616 token
;~ pose
Porting work in progress.
2018-08-16 04:37:13 +03:00
aln zap hax bus cen pad say tar lus
%velo reset works.
2016-12-02 04:17:02 +03:00
hep dot ket cab tec bar sig
==
:: :: ++scem:de-purl:html
++ scem :: 2396 scheme
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ cook |=(a/tape (crip (cass a)))
%velo reset works.
2016-12-02 04:17:02 +03:00
;~(plug alf (star ;~(pose aln lus hep dot)))
:: :: ++smeg:de-purl:html
++ smeg :: 2396 segment
(cook crip (plus pcar))
:: :: ++tock:de-purl:html
++ tock :: 6265 raw value
(cook crip (plus pcok))
:: :: ++tosk:de-purl:html
++ tosk :: 6265 quoted value
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(pose tock (ifix [yel yel] tock))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++toke:de-purl:html
++ toke :: 2616 token
(cook crip (plus ptok))
:: :: ++thor:de-purl:html
++ thor :: 2396 host+port
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ cook |*({* *} [+<+ +<-])
%velo reset works.
2016-12-02 04:17:02 +03:00
;~ plug
thos
;~((bend) (easy ~) ;~(pfix col dim:ag))
==
:: :: ++thos:de-purl:html
++ thos :: 2396 host, no local
;~ plug
;~ pose
%+ stag %&
whitespace violations
2016-12-07 06:14:39 +03:00
%+ sear :: LL parser weak here
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/(list @t)
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ b=(flop a)
?> ?=(^ b)
=+ c=(end 3 1 i.b)
?.(&((gte c 'a') (lte c 'z')) ~ [~ u=b])
(most dot dlab)
::
%+ stag %|
=+ tod=(ape:ag ted:ab)
%+ bass 256
;~(plug tod (stun [3 3] ;~(pfix dot tod)))
==
==
:: :: ++yque:de-purl:html
++ yque :: query ending
;~ pose
;~(pfix wut yquy)
(easy ~)
==
:: :: ++yquy:de-purl:html
++ yquy :: query
;~ pose
:: proper query
::
%+ more
Porting work in progress.
2018-08-16 04:37:13 +03:00
;~(pose pad mic)
%velo reset works.
2016-12-02 04:17:02 +03:00
;~(plug fque ;~(pose ;~(pfix tis fquu) (easy '')))
::
:: funky query
::
%+ cook
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(a/tape [[%$ (crip a)] ~])
%velo reset works.
2016-12-02 04:17:02 +03:00
(star pque)
==
:: :: ++zest:de-purl:html
++ zest :: 2616 request-uri
;~ pose
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
(stag %& (cook |=(a/purl a) auri))
%velo reset works.
2016-12-02 04:17:02 +03:00
(stag %| ;~(plug apat yque))
==
-- ::de-purl
:: MOVEME
:: :: ++fuel:html
++ fuel :: parse urbit fcgi
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {bem/beam ced/noun:cred quy/quer}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- epic
=+ qix=|-(`quay`?~(quy quy [[p q]:quy $(quy t.quy)]))
get rid of unused but:epic
2017-11-27 23:51:34 +03:00
[(malt qix) ((hard cred) ced) bem]
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::eyre
:: ::
whitespace violations
2016-12-07 06:14:39 +03:00
:::: ++wired :: wire formatting
%velo reset works.
2016-12-02 04:17:02 +03:00
:: ::::
++ wired ^?
|%
Added ++neon adapters to ++dill and ++eyre.
2017-04-30 06:42:07 +03:00
::
++ auld :: ++auld:wired
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= sky/roof :: old style namespace
Added ++neon adapters to ++dill and ++eyre.
2017-04-30 06:42:07 +03:00
^- slyt
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {ref/* raw/*}
Added ++neon adapters to ++dill and ++eyre.
2017-04-30 06:42:07 +03:00
=+ pux=((soft path) raw)
?~ pux ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
?. ?=({@ @ @ @ *} u.pux) ~
Added ++neon adapters to ++dill and ++eyre.
2017-04-30 06:42:07 +03:00
=+ :* hyr=(slay i.u.pux)
fal=(slay i.t.u.pux)
dyc=(slay i.t.t.u.pux)
ved=(slay i.t.t.t.u.pux)
tyl=t.t.t.t.u.pux
==
Work in progress.
2018-08-16 04:05:30 +03:00
?. ?=({~ $$ $tas @} hyr) ~
?. ?=({~ $$ $p @} fal) ~
?. ?=({~ $$ $tas @} dyc) ~
Added ++neon adapters to ++dill and ++eyre.
2017-04-30 06:42:07 +03:00
?. ?=(^ ved) ~
=+ ron=q.p.u.hyr
=+ bed=[[q.p.u.fal q.p.u.dyc (case p.u.ved)] (flop tyl)]
=+ bop=(sky ref ~ ron bed)
?~ bop ~
?~ u.bop [~ ~]
[~ ~ +.q.u.u.bop]
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++dray:wired
++ dray :: load tuple in path
::
:: .= ~[p=~.ack q=~.~sarnel r=~..y]
:: (dray ~[p=%tas q=%p r=%f] %ack ~sarnel &)
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=- |* {a/{@tas (pole @tas)} b/*} ^- (paf a)
%zuse to 143; some fixes.
2017-10-25 02:50:11 +03:00
=> .(b `,(tup -.a +.a)`b)
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ +.a [(scot -.a b) ~]
%zuse to 143; some fixes.
2017-10-25 02:50:11 +03:00
[(scot -.a -.b) `,(paf +.a)`(..$ +.a +.b)]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:- paf=|*(a/(pole) ?~(a $~ {(odo:raid ,-.a(. %ta)) ,(..$ +.a)}))
%velo reset works.
2016-12-02 04:17:02 +03:00
^= tup
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* {a/@tas b/(pole @tas)}
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ c=(odo:raid a)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
?~(b c {c (..$ ,-.b ,+.b)})
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++raid:wired
++ raid :: demand path odors
::
:: .= [p=%ack q=~sarnel r=&]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: (raid /ack/~sarnel+.y p=%tas q=%p r=%f ~)
%velo reset works.
2016-12-02 04:17:02 +03:00
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=- |* {a/path b/{@tas (pole @tas)}}
Fully booting with new chapter structures.
2017-03-31 23:42:51 +03:00
=* fog (odo -.b)
?~ +.b `fog`(slav -.b -.a)
[`fog`(slav -.b -.a) (..$ +.a +.b)]
%velo reset works.
2016-12-02 04:17:02 +03:00
^= odo
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* a/@tas
|= b/*
Update for repainting.
2017-12-07 08:27:29 +03:00
=- a(, (- b)) :: preserve face
%velo reset works.
2016-12-02 04:17:02 +03:00
?+ a @
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$c @c $da @da $dr @dr $f @f $if @if $is @is $p @p
$u @u $uc @uc $ub @ub $ui @ui $ux @ux $uv @uv $uw @uw
$s @s $t @t $ta @ta $tas @tas
%velo reset works.
2016-12-02 04:17:02 +03:00
==
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
:: :: :: ++read:wired
:: ++ read :: parse odored path
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: =< |*({a/path b/{@tas (pole @tas)}} ((+> b) a))
:: |* b/{@tas (pole @tas)}
:: |= a/path
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
:: ?~ a ~
:: =+ hed=(slaw -.b i.a)
:: =* fog (odo:raid -.b)
:: ?~ +.b
:: ^- (unit fog)
:: ?^(+.a ~ hed)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: ^- (unit {fog _(need *(..^$ +.b))})
Partial application of ++redo.
2017-09-07 01:17:37 +03:00
:: (both hed ((..^$ +.b) +.a))
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::wired
:: ::
whitespace violations
2016-12-07 06:14:39 +03:00
:::: ++title :: (2j) namespace
%velo reset works.
2016-12-02 04:17:02 +03:00
:: ::::
++ title ^?
|%
:: :: ++cite:title
++ cite :: render ship
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= who/@p
%velo reset works.
2016-12-02 04:17:02 +03:00
^- tape
=+ kind=(clan who)
=+ name=(scow %p who)
?: =(%earl kind)
:(weld "~" (swag [15 6] name) "^" (swag [22 6] name))
?: =(%pawn kind)
:(weld (swag [0 7] name) "_" (swag [51 6] name))
name
:: :: ++clan:title
++ clan :: ship to rank
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= who/ship ^- rank:ames
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ wid=(met 3 who)
?: (lte wid 1) %czar
?: =(2 wid) %king
?: (lte wid 4) %duke
?: (lte wid 8) %earl
?> (lte wid 16) %pawn
:: :: ++glam:title
++ glam :: galaxy name
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= zar/@pD ^- tape
%velo reset works.
2016-12-02 04:17:02 +03:00
(weld "galaxy " (scow %p zar))
:: :: ++gnom:title
++ gnom :: ship display name
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {{our/@p now/@da} him/@p} ^- @t
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ yow=(scot %p him)
Translate ^ runes.
2017-09-20 02:24:30 +03:00
=+ pax=[(scot %p our) %ktts (scot %da now) yow ~]
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ woy=.^(@t %a pax)
?: =(%$ woy) yow
(rap 3 yow ' ' woy ~)
:: :: ++gnow:title
++ gnow :: full display name
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {who/@p gos/gcos:ames} ^- @t
%velo reset works.
2016-12-02 04:17:02 +03:00
?- -.gos
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$czar (rap 3 '|' (rap 3 (glam who)) '|' ~)
$king (rap 3 '_' p.gos '_' ~)
$earl (rap 3 ':' p.gos ':' ~)
$pawn ?~(p.gos %$ (rap 3 '.' u.p.gos '.' ~))
$duke
?: ?=($anon -.p.gos) %$
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ rap 3
^- (list @)
?- -.p.gos
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$punk ~['"' q.p.gos '"']
?($lord $lady)
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ ^= nad
remove ^vane shims requires vere without crypto:ames
2016-12-07 06:13:33 +03:00
=+ nam=`name:ames`s.p.p.gos
%velo reset works.
2016-12-02 04:17:02 +03:00
%+ rap 3
:~ p.nam
?~(q.nam 0 (cat 3 ' ' u.q.nam))
?~(r.nam 0 (rap 3 ' (' u.r.nam ')' ~))
' '
s.nam
==
?:(=(%lord -.p.gos) ~['[' nad ']'] ~['(' nad ')'])
==
==
:: :: ++saxo:title
++ saxo :: autocanon
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= who/ship
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (list ship)
=+ dad=(sein who)
[who ?:(=(who dad) ~ $(who dad))]
:: :: ++sein:title
++ sein :: autoboss
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= who/ship ^- ship
%velo reset works.
2016-12-02 04:17:02 +03:00
=+ mir=(clan who)
?- mir
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$czar who
$king (end 3 1 who)
$duke (end 4 1 who)
$earl (end 5 1 who)
$pawn ~zod
%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
|= {our/@p him/@p}
%velo reset works.
2016-12-02 04:17:02 +03:00
?| =(our him)
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
&(?=($earl (clan him)) =(our (sein him)))
%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
:: ::::
++ milly ^?
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|_ now/@da
Uncompiled, but should bring up children.
2017-06-09 02:57:38 +03:00
:: :: ++around:milly
++ around :: relative msec
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= wen/@da
Uncompiled, but should bring up children.
2017-06-09 02:57:38 +03:00
^- @tas
?: =(wen now) %now
?: (gth wen now)
(cat 3 (scot %ud (msec (sub wen now))) %ms)
(cat 3 '-' $(now wen, wen now))
::
++ about :: ++about:milly
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= wun/(unit @da) :: unit relative msec
Uncompiled, but should bring up children.
2017-06-09 02:57:38 +03:00
^- @tas
?~(wun %no (around u.wun))
:: :: ++mill:milly
++ mill :: msec diff
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= one/@dr
Uncompiled, but should bring up children.
2017-06-09 02:57:38 +03:00
^- @tas
?: =(`@`0 one) '0ms'
(cat 3 (scot %ud (msec one)) %ms)
:: :: ++msec:milly
++ msec :: @dr to @ud ms
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=(a/@dr `@ud`(div a (div ~s1 1.000)))
Uncompiled, but should bring up children.
2017-06-09 02:57:38 +03:00
:: :: ++mull:milly
++ mull :: unit msec diff
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= une/(unit @dr)
Uncompiled, but should bring up children.
2017-06-09 02:57:38 +03:00
^- @tas
?~(une %no (mill u.une))
--
The +clock structure is general, put it in zuse and add tess.
2018-08-28 00:51:42 +03:00
::
::::
::
++ contain ^?
|%
:: +by-clock: interface core for a cache using the clock replacement algorithm
::
:: Presents an interface for a mapping, but somewhat specialized, and with
:: stateful accessors. The clock's :depth parameter is used as the maximum
:: freshness that an entry can have. The standard clock algorithm has a depth
:: of 1, meaning that a single sweep of the arm will delete the entry. For
:: more scan resistance, :depth can be set to a higher number.
::
:: Internally, :clock maintains a :lookup of type
:: `(map key-type [val=val-type fresh=@ud])`, where :depth.clock is the
:: maximum value of :fresh. Looking up a key increments its freshness, and a
:: sweep of the clock arm decrements its freshness.
::
:: The clock arm is stored as :queue, which is a `(qeu key-type)`. The head
:: of the queue represents the position of the clock arm. New entries are
:: inserted at the tail of the queue. When the clock arm sweeps, it
:: pops the head off the queue. If the :fresh of the head's entry in :lookup
:: is 0, remove the entry from the mapping and replace it with the new entry.
:: Otherwise, decrement the entry's freshness, put it back at the tail of
:: the queue, and pop the next head off the queue and try again.
::
:: Cache entries must be immutable: a key cannot be overwritten with a new
:: value. This property is enforced for entries currently stored in the
:: cache, but it is not enforced for previously deleted entries, since we
:: no longer remember what that key's value was supposed to be.
::
++ by-clock
|* [key-type=mold val-type=mold]
|_ clock=(clock key-type val-type)
:: +get: looks up a key, marking it as fresh
::
++ get
|= key=key-type
^- [(unit val-type) _clock]
::
=+ maybe-got=(~(get by lookup.clock) key)
?~ maybe-got
[~ clock]
::
=. clock (freshen key)
::
[`val.u.maybe-got clock]
:: +put: add a new cache entry, possibly removing an old one
::
++ put
|= [key=key-type val=val-type]
^+ clock
:: do nothing if our size is 0 so we don't decrement-underflow
::
?: =(0 max-size.clock)
clock
:: no overwrite allowed, but allow duplicate puts
::
?^ existing=(~(get by lookup.clock) key)
:: val must not change
::
?> =(val val.u.existing)
::
(freshen key)
::
=? clock =(max-size.clock size.clock)
evict
::
%_ clock
size +(size.clock)
lookup (~(put by lookup.clock) key [val 1])
queue (~(put to queue.clock) key)
==
:: +freshen: increment the protection level on an entry
::
++ freshen
|= key=key-type
^+ clock
%_ clock
lookup
%+ ~(jab by lookup.clock) key
|= entry=[val=val-type fresh=@ud]
entry(fresh (min +(fresh.entry) depth.clock))
==
:: +resize: changes the maximum size, removing entries if needed
::
++ resize
|= new-max=@ud
^+ clock
::
=. max-size.clock new-max
::
?: (gte new-max size.clock)
clock
::
(trim (sub size.clock new-max))
:: +evict: remove an entry from the cache
::
++ evict
^+ clock
::
=. size.clock (dec size.clock)
::
|-
^+ clock
::
=^ old-key queue.clock ~(get to queue.clock)
=/ old-entry (~(got by lookup.clock) old-key)
::
?: =(0 fresh.old-entry)
clock(lookup (~(del by lookup.clock) old-key))
::
%_ $
lookup.clock
(~(put by lookup.clock) old-key old-entry(fresh (dec fresh.old-entry)))
::
queue.clock
(~(put to queue.clock) old-key)
==
:: +trim: remove :count entries from the cache
::
++ trim
|= count=@ud
^+ clock
?: =(0 count)
clock
$(count (dec count), clock evict)
:: +purge: removes all cache entries
::
++ purge
^+ clock
%_ clock
lookup ~
queue ~
size 0
==
--
+capped-queue is also general. Move to zuse and add tests.
2018-08-28 01:25:33 +03:00
:: +to-capped-queue: interface door for +capped-queue
::
:: Provides a queue of a limited size where pushing additional items will
:: force pop the items at the front of the queue.
::
++ to-capped-queue
|* item-type=mold
|_ queue=(capped-queue item-type)
:: +put: enqueue :item, possibly popping and producing an old item
::
++ put
|= item=item-type
^- [(unit item-type) _queue]
:: are we already at max capacity?
::
?. =(size.queue max-size.queue)
:: we're below max capacity, so push and increment size
::
=. queue.queue (~(put to queue.queue) item)
=. size.queue +(size.queue)
::
[~ queue]
:: we're at max capacity, so pop before pushing; size is unchanged
::
=^ oldest queue.queue ~(get to queue.queue)
=. queue.queue (~(put to queue.queue) item)
::
[`oldest queue]
:: +get: pop an item off the queue, adjusting size
::
++ get
^- [item-type _queue]
::
=. size.queue (dec size.queue)
=^ oldest queue.queue ~(get to queue.queue)
::
[oldest queue]
:: change the :max-size of the queue, popping items if necessary
::
++ resize
=| pops=(list item-type)
|= new-max=@ud
^+ [pops queue]
:: we're not overfull, so no need to pop off more items
::
?: (gte new-max size.queue)
[(flop pops) queue(max-size new-max)]
:: we're above capacity; pop an item off and recurse
::
=^ oldest queue get
::
$(pops [oldest pops])
--
The +clock structure is general, put it in zuse and add tess.
2018-08-28 00:51:42 +03:00
--
Uncompiled, but should bring up children.
2017-06-09 02:57:38 +03:00
:: ::
whitespace violations
2016-12-07 06:14:39 +03:00
:::: ++userlib :: (2u) non-vane utils
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ userlib ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
:: ::
whitespace violations
2016-12-07 06:14:39 +03:00
:::: ++chrono:userlib :: (2uB) time
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
++ chrono ^?
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++dawn:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ dawn :: Jan 1 weekday
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= yer/@ud
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ yet=(sub yer 1)
%- mod :_ 7
;: add
%velo reset works.
2016-12-02 04:17:02 +03:00
1
(mul 5 (mod yet 4))
(mul 4 (mod yet 100))
New metal boot system.
2016-11-24 07:25:07 +03:00
(mul 6 (mod yet 400))
==
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++daws:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ daws :: date weekday
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= yed/date
New metal boot system.
2016-11-24 07:25:07 +03:00
%- mod :_ 7
%+ add
%velo reset works.
2016-12-02 04:17:02 +03:00
(dawn y.yed)
New metal boot system.
2016-11-24 07:25:07 +03:00
(sub (yawn [y.yed m.yed d.t.yed]) (yawn y.yed 1 1))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++deal:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ deal :: to leap sec time
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= yer/@da
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ n=0
=+ yud=(yore yer)
|- ^- date
?: (gte yer (add (snag n lef:yu) ~s1))
(yore (year yud(s.t (add n s.t.yud))))
?: &((gte yer (snag n lef:yu)) (lth yer (add (snag n lef:yu) ~s1)))
yud(s.t (add +(n) s.t.yud))
?: =(+(n) (lent lef:yu))
(yore (year yud(s.t (add +(n) s.t.yud))))
$(n +(n))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++lead:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ lead :: from leap sec time
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= ley/date
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ ler=(year ley)
=+ n=0
|- ^- @da
=+ led=(sub ler (mul n ~s1))
?: (gte ler (add (snag n les:yu) ~s1))
led
?: &((gte ler (snag n les:yu)) (lth ler (add (snag n les:yu) ~s1)))
?: =(s.t.ley 60)
(sub led ~s1)
led
?: =(+(n) (lent les:yu))
(sub led ~s1)
$(n +(n))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++dust:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ dust :: print UTC format
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= yed/date
New metal boot system.
2016-11-24 07:25:07 +03:00
^- tape
=+ wey=(daws yed)
slightly clean up ++dust
2016-12-02 23:30:20 +03:00
=/ num (d-co:co 1) :: print as decimal without dots
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=/ pik |=({n/@u t/wall} `tape`(scag 3 (snag n t)))
slightly clean up ++dust
2016-12-02 23:30:20 +03:00
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
"{(pik wey wik:yu)}, ".
"{(num d.t.yed)} {(pik (dec m.yed) mon:yu)} {(num y.yed)} ".
"{(num h.t.yed)}:{(num m.t.yed)}:{(num s.t.yed)} +0000"
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++stud:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ stud :: parse UTC format
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=< |= a/cord :: expose parsers
New metal boot system.
2016-11-24 07:25:07 +03:00
%+ biff (rush a (more sepa elem))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= b/(list _(wonk *elem)) ^- (unit date)
Import ++redo from /resurface branch.
2017-09-07 02:46:30 +03:00
=- ?.((za:dejs:format -) ~ (some (zp:dejs:format -)))
New metal boot system.
2016-11-24 07:25:07 +03:00
^+ =+ [*date u=unit]
Work in progress.
2018-08-16 04:05:30 +03:00
*{(u _[a y]) (u _m) (u _d.t) (u _+.t) ~}
New metal boot system.
2016-11-24 07:25:07 +03:00
:~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|-(?~(b ~ ?.(?=($y -.i.b) $(b t.b) `+.i.b)))
|-(?~(b ~ ?.(?=($m -.i.b) $(b t.b) `+.i.b)))
|-(?~(b ~ ?.(?=($d -.i.b) $(b t.b) `+.i.b)))
|-(?~(b ~ ?.(?=($t -.i.b) $(b t.b) `+.i.b)))
New metal boot system.
2016-11-24 07:25:07 +03:00
==
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++snug:stud:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ snug :: position in list
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/(list tape)
|= b/tape
New metal boot system.
2016-11-24 07:25:07 +03:00
=+ [pos=1 len=(lent b)]
|- ^- (unit @u)
?~ a ~
?: =(b (scag len i.a))
`pos
$(pos +(pos), a t.a)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++sepa:stud:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ sepa :: separator
;~(pose ;~(plug com (star ace)) (plus ace))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++elem:stud:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ elem :: date element
%velo reset works.
2016-12-02 04:17:02 +03:00
;~ pose
New metal boot system.
2016-11-24 07:25:07 +03:00
(stag %t t) (stag %y y) (stag %m m) (stag %d d)
(stag %w w) (stag %z z)
%velo reset works.
2016-12-02 04:17:02 +03:00
==
:: :: ++y:stud:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ y :: year
(stag %& (bass 10 (stun 3^4 dit)))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++m:stud:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ m :: month
(sear (snug mon:yu) (plus alf))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++d:stud:chrono:
New metal boot system.
2016-11-24 07:25:07 +03:00
++ d :: day
(bass 10 (stun 1^2 dit))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++t:stud:chrono:
++ t :: hours:minutes:secs
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ cook |=({h/@u @ m/@u @ s/@u} ~[h m s])
%velo reset works.
2016-12-02 04:17:02 +03:00
;~(plug d col d col d)
New metal boot system.
2016-11-24 07:25:07 +03:00
::
%velo reset works.
2016-12-02 04:17:02 +03:00
:: XX day of week is currently unchecked, and
:: timezone outright ignored.
:: :: ++w:stud:chrono:
++ w :: day of week
New metal boot system.
2016-11-24 07:25:07 +03:00
(sear (snug wik:yu) (plus alf))
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++z:stud:chrono:
++ z :: time zone
;~(plug (mask "-+") dd dd)
:: :: ++dd:stud:chrono:
++ dd :: two digits
(bass 10 (stun 2^2 dit))
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++unt:chrono:userlib
New metal boot system.
2016-11-24 07:25:07 +03:00
++ unt :: Urbit to Unix time
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= a/@
New metal boot system.
2016-11-24 07:25:07 +03:00
(div (sub a ~1970.1.1) ~s1)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++yu:chrono:userlib
New metal boot system.
2016-11-24 07:25:07 +03:00
++ yu :: UTC format constants
|%
:: :: ++mon:yu:chrono:
++ mon :: months
^- (list tape)
:~ "January" "February" "March" "April" "May" "June" "July"
"August" "September" "October" "November" "December"
==
:: :: ++wik:yu:chrono:
++ wik :: weeks
^- (list tape)
:~ "Sunday" "Monday" "Tuesday" "Wednesday" "Thursday"
"Friday" "Saturday"
==
:: :: ++lef:yu:chrono:
++ lef :: leapsecond dates
^- (list @da)
:~ ~2015.6.30..23.59.59 ~2012.6.30..23.59.59
~2008.12.31..23.59.58 ~2005.12.31..23.59.57
~1998.12.31..23.59.56 ~1997.6.30..23.59.55
~1995.12.31..23.59.54 ~1994.6.30..23.59.53
~1993.6.30..23.59.52 ~1992.6.30..23.59.51
~1990.12.31..23.59.50 ~1989.12.31..23.59.49
~1987.12.31..23.59.48 ~1985.6.30..23.59.47
~1983.6.30..23.59.46 ~1982.6.30..23.59.45
~1981.6.30..23.59.44 ~1979.12.31..23.59.43
~1978.12.31..23.59.42 ~1977.12.31..23.59.41
~1976.12.31..23.59.40 ~1975.12.31..23.59.39
~1974.12.31..23.59.38 ~1973.12.31..23.59.37
~1972.12.31..23.59.36 ~1972.6.30..23.59.35
==
:: :: ++les:yu:chrono:
++ les :: leapsecond days
^- (list @da)
:~ ~2015.7.1 ~2012.7.1 ~2009.1.1 ~2006.1.1 ~1999.1.1 ~1997.7.1
~1996.1.1 ~1994.7.1 ~1993.7.1 ~1992.7.1 ~1991.1.1 ~1990.1.1
~1988.1.1 ~1985.7.1 ~1983.7.1 ~1982.7.1 ~1981.7.1 ~1980.1.1
~1979.1.1 ~1978.1.1 ~1977.1.1 ~1976.1.1 ~1975.1.1 ~1974.1.1
~1973.1.1 ~1972.7.1
==
-- ::yu
-- ::chrono
:: ::
whitespace violations
2016-12-07 06:14:39 +03:00
:::: ++space:userlib :: (2uC) file utils
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
++ space ^?
remove ^vane shims requires vere without crypto:ames
2016-12-07 06:13:33 +03:00
=, clay
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++feel:space:userlib
New metal boot system.
2016-11-24 07:25:07 +03:00
++ feel :: simple file write
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {pax/path val/cage}
New metal boot system.
2016-11-24 07:25:07 +03:00
^- miso
=+ dir=.^(arch %cy pax)
?~ fil.dir [%ins val]
[%mut val]
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++file:space:userlib
New metal boot system.
2016-11-24 07:25:07 +03:00
++ file :: simple file load
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= pax/path
New metal boot system.
2016-11-24 07:25:07 +03:00
^- (unit)
=+ dir=.^(arch %cy pax)
?~(fil.dir ~ [~ .^(* %cx pax)])
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++foal:space:userlib
New metal boot system.
2016-11-24 07:25:07 +03:00
++ foal :: high-level write
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {pax/path val/cage}
New metal boot system.
2016-11-24 07:25:07 +03:00
^- toro
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
?> ?=({* * * *} pax)
New metal boot system.
2016-11-24 07:25:07 +03:00
[i.t.pax [%& [[[t.t.t.pax (feel pax val)] ~]]]]
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++fray:space:userlib
New metal boot system.
2016-11-24 07:25:07 +03:00
++ fray :: high-level delete
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= pax/path
New metal boot system.
2016-11-24 07:25:07 +03:00
^- toro
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
?> ?=({* * * *} pax)
New metal boot system.
2016-11-24 07:25:07 +03:00
[i.t.pax [%& [[[t.t.t.pax [%del ~]] ~]]]]
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++furl:space:userlib
New metal boot system.
2016-11-24 07:25:07 +03:00
++ furl :: unify changes
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {one/toro two/toro}
New metal boot system.
2016-11-24 07:25:07 +03:00
^- toro
~| %furl
?> ?& =(p.one p.two) :: same path
End use of legacy $| and $& syntax.
2018-03-19 06:54:47 +03:00
&(?=(%& -.q.one) ?=(%& -.q.two)) :: both deltas
New metal boot system.
2016-11-24 07:25:07 +03:00
==
[p.one [%& (weld p.q.one p.q.two)]]
-- ::space
:: ::
Quam parvam sapienta regitur muntus.
2017-02-12 05:44:56 +03:00
:::: ++unix:userlib :: (2uD) unix line-list
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ unix ^?
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++lune:unix:userlib
++ lune :: cord by unix line
~% %lune ..is ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= txt/@t
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ txt
^- (list @t) ~
=+ [byt=(rip 3 txt) len=(met 3 txt)]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=| {lin/(list @t) off/@}
%velo reset works.
2016-12-02 04:17:02 +03:00
^- (list @t)
New metal boot system.
2016-11-24 07:25:07 +03:00
%- flop
%velo reset works.
2016-12-02 04:17:02 +03:00
|- ^+ lin
?: =(off len)
~| %noeol !!
?: =((snag off byt) 10)
?: =(+(off) len)
[(rep 3 (scag off byt)) lin]
%= $
lin [(rep 3 (scag off byt)) lin]
byt (slag +(off) byt)
len (sub len +(off))
off 0
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
2016-12-02 04:17:02 +03:00
$(off +(off))
:: :: ++nule:unix:userlib
++ nule :: lines to unix cord
~% %nule ..is ~
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= lin/(list @t)
%velo reset works.
2016-12-02 04:17:02 +03:00
^- @t
%+ can 3
%+ turn lin
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= t/@t
%velo reset works.
2016-12-02 04:17:02 +03:00
[+((met 3 t)) (cat 3 t 10)]
--
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::
whitespace violations
2016-12-07 06:14:39 +03:00
:::: ++scanf:userlib :: (2uF) exterpolation
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
whitespace violations
2016-12-07 06:14:39 +03:00
++ scanf
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
=< |* {tape (pole _;/(*{$^(rule tape)}))} :: formatted scan
%velo reset works.
2016-12-02 04:17:02 +03:00
=> .(+< [a b]=+<)
(scan a (parsf b))
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++parsf:scanf:
++ parsf :: make parser from:
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* a/(pole _;/(*{$^(rule tape)})) :: ;"chars{rule}chars"
%velo reset works.
2016-12-02 04:17:02 +03:00
=- (cook - (boil (norm a)))
|* (list)
?~ +< ~
?~ t i
[i $(+< t)]
::
:: .= (boil ~[[& dim] [| ", "] [& dim]]:ag)
:: ;~(plug dim ;~(pfix com ace ;~(plug dim (easy)))):ag
::
:: :: ++boil:scanf:userlib
++ boil ::
|* (list (each rule tape))
?~ +< (easy ~)
Work in progress.
2018-08-16 04:05:30 +03:00
?: ?=(%| -.i) ;~(pfix (jest (crip p.i)) $(+< t))
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
%+ cook |*({* *} [i t]=+<)
%velo reset works.
2016-12-02 04:17:02 +03:00
;~(plug p.i $(+< t))
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
:: .= (norm [;"{n}, {n}"]:n=dim:ag) ~[[& dim] [| ", "] [& dim]]:ag
%velo reset works.
2016-12-02 04:17:02 +03:00
::
:: :: ++norm:scanf:userlib
++ norm ::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|* (pole _;/(*{$^(rule tape)}))
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ +< ~
=> .(+< [i=+<- t=+<+])
:_ t=$(+< t)
=+ rul=->->.i
^= i
?~ rul [%| p=rul]
?~ +.rul [%| p=rul]
?@ &2.rul [%| p=;;(tape rul)]
[%& p=rul]
-- ::scanf
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::
whitespace violations
2016-12-07 06:14:39 +03:00
:::: ++pubsub:userlib :: (2uG) application
New metal boot system.
2016-11-24 07:25:07 +03:00
:: ::::
%velo reset works.
2016-12-02 04:17:02 +03:00
++ pubsub ^?
remove ^vane shims requires vere without crypto:ames
2016-12-07 06:13:33 +03:00
=, gall
New metal boot system.
2016-11-24 07:25:07 +03:00
|%
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++pale:pubsub:
++ pale :: filter peers
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= {hid/bowl fun/$-(sink ?)}
removes +-tap:by accumulator arg and changes calling convention
2017-02-13 23:43:18 +03:00
(skim ~(tap by sup.hid) fun)
%velo reset works.
2016-12-02 04:17:02 +03:00
:: :: ++prix:pubsub:
++ prix :: filter gate
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|= pax/path |= sink ^- ?
%velo reset works.
2016-12-02 04:17:02 +03:00
?~ pax & ?~ r.+< |
&(=(i.pax i.r.+<) $(pax t.pax, r.+< t.r.+<))
:: :: ++prey:pubsub:
++ prey :: prefix
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
|=({pax/path hid/bowl} (pale hid (prix pax)))
%velo reset works.
2016-12-02 04:17:02 +03:00
-- ::pubsub
--
New metal boot system.
2016-11-24 07:25:07 +03:00
::
Move merged vanes back.
2016-12-02 22:34:07 +03:00
++ zuse %309 :: hoon+zuse kelvin
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ gift-arvo :: out result <-$
Almost back to working.
2018-08-17 00:39:39 +03:00
$~ [%init ~zod]
Fix $? to use %fits.
2018-03-18 04:06:15 +03:00
$% gift:able:ames
remove ^vane shims requires vere without crypto:ames
2016-12-07 06:13:33 +03:00
gift:able:behn
gift:able:clay
gift:able:dill
gift:able:eyre
gift:able:ford
gift:able:gall
Misc cleanup
2018-05-14 19:21:17 +03:00
gift:able:jael
New metal boot system.
2016-11-24 07:25:07 +03:00
==
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ task-arvo :: in request ->$
Fix $? to use %fits.
2018-03-18 04:06:15 +03:00
$% task:able:ames
remove ^vane shims requires vere without crypto:ames
2016-12-07 06:13:33 +03:00
task:able:clay
task:able:behn
task:able:dill
task:able:eyre
task:able:ford
task:able:gall
Misc cleanup
2018-05-14 19:21:17 +03:00
task:able:jael
New metal boot system.
2016-11-24 07:25:07 +03:00
==
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ note-arvo :: out request $->
Clean build.
2018-08-17 21:24:22 +03:00
$~ [%a %wake ~]
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
$% {$a task:able:ames}
{$b task:able:behn}
{$c task:able:clay}
{$d task:able:dill}
{$e task:able:eyre}
{$f task:able:ford}
{$g task:able:gall}
Misc cleanup
2018-05-14 19:21:17 +03:00
{$j task:able:jael}
Clean build.
2018-08-17 21:24:22 +03:00
{@tas $meta vase}
==
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ sign-arvo :: in result $<-
$% {$a gift:able:ames}
{$b gift:able:behn}
{$c gift:able:clay}
{$d gift:able:dill}
{$e gift:able:eyre}
{$f gift:able:ford}
{$g gift:able:gall}
{$j gift:able:jael}
New metal boot system.
2016-11-24 07:25:07 +03:00
==
%velo reset works.
2016-12-02 04:17:02 +03:00
::
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
++ unix-task :: input from unix
$% {$belt p/belt:dill} :: dill: keyboard
{$blew p/blew:dill} :: dill: configure
Work in progress.
2018-08-16 04:05:30 +03:00
{$boat ~} :: clay: reboot
{$born ~} :: eyre: new process
{$hail ~} :: dill: refresh
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$hear p/lane:ames q/@} :: ames: input packet
Work in progress.
2018-08-16 04:05:30 +03:00
{$hook ~} :: dill: hangup
Reset %zuse pre 143.
2017-10-25 05:04:45 +03:00
{$into p/desk q/? r/mode:clay} :: clay: external edit
{$they p/@ud q/httr:eyre} :: eyre: in response
{$this p/? q/clip:eyre r/httq:eyre} :: eyre: in request
Work in progress.
2018-08-16 04:05:30 +03:00
{$thud ~} :: eyre: in cancel
{$wake ~} :: behn: wakeup
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
==
:: ::
:::: ++ethereum :: (2eth) ethereum
:: ::::
++ ethereum
!:
=, mimes:html
=, ethe
|%
:: making calls to nodes
::
:: see also the json rpc api spec:
:: https://ethereum.gitbooks.io/frontier-guide/content/rpc.html
::
++ json-request
=, eyre
|= [url=purl jon=json]
^- hiss
:^ url %post
%- ~(gas in *math)
~['Content-Type'^['application/json']~]
(some (as-octt (en-json:html jon)))
::
++ batch-read-request
|= req=(list proto-read-request)
^- json
a+(turn req read-request)
::
++ read-request
|= proto-read-request
^- json
%+ request-to-json id
:+ %eth-call
^- call
[~ to ~ ~ ~ `tape`(encode-call function arguments)]
[%label %latest]
::
++ request-to-json
=, enjs:format
|= [riq=(unit @t) req=request]
^- json
%- pairs
=; r=[met=@t pas=(list json)]
:* jsonrpc+s+'2.0'
method+s+met.r
params+a+pas.r
::TODO would just jamming the req noun for id be a bad idea?
?~ riq ~
[id+s+u.riq]~
==
?- -.req
%eth-block-number
['eth_blockNumber' ~]
::
%eth-call
:- 'eth_call'
:~ (eth-call-to-json cal.req)
(block-to-json deb.req)
==
::
%eth-new-filter
:- 'eth_newFilter'
:_ ~
:- %o %- ~(gas by *(map @t json))
=- (murn - same)
^- (list (unit (pair @t json)))
:~ ?~ fro.req ~
`['fromBlock' (block-to-json u.fro.req)]
::
?~ tob.req ~
`['toBlock' (block-to-json u.tob.req)]
::
::TODO fucking tmi
?: =(0 (lent adr.req)) ~
:+ ~ 'address'
?: =(1 (lent adr.req)) (tape (address-to-hex (snag 0 adr.req)))
:- %a
(turn adr.req (cork address-to-hex tape))
::
?~ top.req ~
:^ ~ 'topics' %a
(turn `(list octs)`top.req :(cork render-hex-bytes prefix-hex tape))
==
::
%eth-get-filter-logs
['eth_getFilterLogs' (tape (num-to-hex fid.req)) ~]
::
%eth-get-filter-changes
['eth_getFilterChanges' (tape (num-to-hex fid.req)) ~]
==
::
++ eth-call-to-json
=, enjs:format
|= cal=call
^- json
:- %o %- ~(gas by *(map @t json))
=- (murn - same)
^- (list (unit (pair @t json)))
:~ ?~ 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)]
==
::
++ block-to-json
|= dob=block
^- json
?- -.dob
%number s+(crip '0' 'x' ((x-co:co 1) n.dob))
%label s+l.dob
==
::
++ num-to-hex
|= n=@ud
^- tape
%- prefix-hex
(render-hex-bytes (as-octs n))
::
++ address-to-hex
|= a=address
^- tape
%- prefix-hex
(render-hex-bytes 20 `@`a)
::
++ prefix-hex
|= a=tape
^- tape
['0' 'x' a]
::
:: parsing responses from nodes
::
++ parse-eth-new-filter-res
|= j=json
^- @ud
?> ?=(%s -.j)
(hex-to-num p.j)
::
++ 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 ~
=- `((ot -) log) ::TODO not sure if elegant or hacky.
:~ 'logIndex'^(cu hex-to-num so)
'transactionIndex'^(cu hex-to-num so)
'transactionHash'^(cu hex-to-num so)
'blockNumber'^(cu hex-to-num so)
'blockHash'^(cu hex-to-num so)
==
::
address+(cu hex-to-num so)
data+so
::
::TODO doesn't account for the anonymous event case, which has no hash.
=- topics+(cu - (ar so))
|= r=(list @t)
?> ?=([@t *] r)
[(hex-to-num i.r) t.r]
==
::
++ hex-to-num
|= a=@t
(rash (rsh 3 2 a) hex)
::
:: decoding
::
:: for details on encoding, see below.
::
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
++ decode-topics
removes obsolete doccords-style comments
2018-08-28 01:33:32 +03:00
:: tox: list of hex words
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
|* [tox=(list @t) tys=(list etyp)]
=- (decode-arguments - tys)
%+ roll tox
|= [top=@t tos=@t]
(cat 3 tos (rsh 3 2 top))
::
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
++ decode-results
removes obsolete doccords-style comments
2018-08-28 01:33:32 +03:00
:: rex: string of hex bytes with leading 0x.
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
|* [rex=@t tys=(list etyp)]
(decode-arguments (rsh 3 2 rex) tys)
::
++ decode-arguments
|* [res=@t tys=(list etyp)]
=| win=@ud
=/ wos=(list @t) (rip 9 res)
=< (decode-from 0 tys)
|%
++ decode-from
|* [win=@ud tys=(list etyp)]
?~ tys !!
=- ?~ t.tys dat
[dat $(win nin, tys t.tys)]
(decode-one win ~[i.tys])
::
++ decode-one
::NOTE we take (list etyp) even though we only operate on
:: a single etyp as a workaround for urbit/arvo#673
|* [win=@ud tys=(list etyp)]
=- [nin dat]=- ::NOTE ^= regular form broken
?~ tys !!
=* typ i.tys
=+ wor=(snag win wos)
?+ typ
~| [%unsupported-type typ]
!!
::
?(%address %bool %uint) :: %int %real %ureal
:- +(win)
?- typ
%address `@ux`(rash wor hex)
%uint `@ud`(rash wor hex)
%bool =(1 (rash wor hex))
==
::
%string
=+ $(tys ~[%bytes])
~! -
[nin (trip (swp 3 q.dat))]
::
%bytes
:- +(win)
:: find the word index of the actual data.
=/ lic=@ud (div (rash wor hex) 32)
:: learn the bytelength of the data.
=/ len=@ud (rash (snag lic wos) hex)
(decode-bytes-n +(lic) len)
::
[%bytes-n *]
:- (add win +((div (dec n.typ) 32)))
(decode-bytes-n win n.typ)
::
[%array *]
:- +(win)
:: find the word index of the actual data.
=. win (div (rash wor hex) 32)
:: read the elements from their location.
%- tail
%^ decode-array-n ~[t.typ] +(win)
(rash (snag win wos) hex)
::
[%array-n *]
(decode-array-n ~[t.typ] win n.typ)
==
::
++ decode-bytes-n
|= [fro=@ud bys=@ud]
^- octs
:: parse {bys} bytes from {fro}.
=- [bys (rash - hex)]
%^ end 3 (mul 2 bys)
%+ can 9
%+ turn
(swag [fro +((div (dec bys) 32))] wos)
|=(a=@t [1 a])
::
++ decode-array-n
::NOTE we take (list etyp) even though we only operate on
:: a single etyp as a workaround for urbit/arvo#673
=| res=(list)
~& %watch-out--arrays-without-typeinfo
|* [tys=(list etyp) fro=@ud len=@ud]
^- [@ud (list)]
?~ tys !!
?: =(len 0) [fro (flop `(list)`res)]
=+ (decode-one fro ~[i.tys]) :: [nin=@ud dat=*]
$(res ^+(res [dat res]), fro nin, len (dec len))
--
::
:: encoding
::
:: ABI spec used for reference:
:: https://ethereum.gitbooks.io/frontier-guide/content/abi.html
::
++ 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 function)))
::
++ encode-args
removes obsolete doccords-style comments
2018-08-28 01:33:32 +03:00
:: encode list of arguments.
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
|= das=(list data)
^- tape
(encode-data [%array-n das])
::
++ encode-data
removes obsolete doccords-style comments
2018-08-28 01:33:32 +03:00
:: encode typed data into ABI bytestring.
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
|= dat=data
^- tape
?+ -.dat
~| [%unsupported-type -.dat]
!!
::
%array-n
:: enc(X) = head(X[0]) ... head(X[k-1]) tail(X[0]) ... tail(X[k-1])
:: where head and tail are defined for X[i] being of a static type as
:: head(X[i]) = enc(X[i]) and tail(X[i]) = "" (the empty string), or as
:: head(X[i]) = enc(len(head(X[0])..head(X[k-1]) tail(X[0])..tail(X[i-1])))
:: and tail(X[i]) = enc(X[i]) otherwise.
::
:: so: if it's a static type, data goes in the head. if it's a dynamic
:: type, a reference goes into the head and data goes into the tail.
::
:: in the head, we first put a placeholder where references need to go.
=+ hol=(reap 64 'x')
=/ hes=(list tape)
%+ turn p.dat
|= d=data
?. (is-dynamic-type d) ^$(dat d)
hol
=/ tas=(list tape)
%+ turn p.dat
|= d=data
?. (is-dynamic-type d) ""
^$(dat d)
:: once we know the head and tail, we can fill in the references in head.
=- (weld nes `tape`(zing tas))
^- [@ud nes=tape]
=+ led=(lent (zing hes))
%+ roll hes
|= [t=tape i=@ud nes=tape]
:- +(i)
:: if no reference needed, just put the data.
?. =(t hol) (weld nes t)
:: calculate byte offset of data we need to reference.
=/ ofs/@ud
=- (div - 2) :: two hex digits per byte.
%+ add led :: count head, and
%- lent %- zing :: count all tail data
(scag i tas) :: preceding ours.
=+ ref=^$(dat [%uint ofs])
:: shouldn't hit this unless we're sending over 2gb of data?
~| [%weird-ref-lent (lent ref)]
?> =((lent ref) (lent hol))
(weld nes ref)
::
%array :: where X has k elements (k is assumed to be of type uint256):
:: enc(X) = enc(k) enc([X[1], ..., X[k]])
:: i.e. it is encoded as if it were an array of static size k, prefixed
:: with the number of elements.
%+ weld $(dat [%uint (lent p.dat)])
$(dat [%array-n p.dat])
::
%bytes-n
:: enc(X) is the sequence of bytes in X padded with zero-bytes to a length
:: of 32.
:: Note that for any X, len(enc(X)) is a multiple of 32.
(pad-to-multiple (render-hex-bytes p.dat) 64 %right)
::
%bytes :: of length k (which is assumed to be of type uint256)
:: enc(X) = enc(k) pad_right(X), i.e. the number of bytes is encoded as a
:: uint256 followed by the actual value of X as a byte sequence, followed
:: by the minimum number of zero-bytes such that len(enc(X)) is a multiple
:: of 32.
%+ weld $(dat [%uint p.p.dat])
$(dat [%bytes-n p.dat])
::
%string
:: enc(X) = enc(enc_utf8(X)), i.e. X is utf-8 encoded and this value is
:: interpreted as of bytes type and encoded further. Note that the length
:: used in this subsequent encoding is the number of bytes of the utf-8
:: encoded string, not its number of characters.
$(dat [%bytes (lent p.dat) (swp 3 (crip p.dat))])
::
%uint
:: enc(X) is the big-endian encoding of X, padded on the higher-order
:: (left) side with zero-bytes such that the length is a multiple of 32
:: bytes.
(pad-to-multiple (render-hex-bytes (as-octs p.dat)) 64 %left)
::
%bool
:: as in the uint8 case, where 1 is used for true and 0 for false
$(dat [%uint ?:(p.dat 1 0)])
::
%address
:: as in the uint160 case
$(dat [%uint `@ud`p.dat])
==
::
++ is-dynamic-type
|= a=data
?. ?=(%array-n -.a)
?=(?(%string %bytes %array) -.a)
&(!=((lent p.a) 0) (lien p.a is-dynamic-type))
::
::
++ 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)]
=+ len=(lent wat)
=+ tad=(reap (sub mof (mod len mof)) '0')
%- weld
?:(?=(%left wer) [tad wat] [wat tad])
::
::
Add in Ethereum logic. Not hooked up yet, so untested.
2018-05-16 21:48:20 +03:00
++ constitution
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
=, constitution:ethe
|%
::
updates %jael to encode aut/net keys and use +pass everywhere
2018-08-23 22:23:52 +03:00
++ pass-from-eth
|= [enc=octs aut=octs sut=@ud]
^- (unit pass)
?. &(=(1 sut) =(p.enc 32) =(p.aut 32))
~
`(cat 3 'b' (cat 8 q.aut q.enc))
::
Add in Ethereum logic. Not hooked up yet, so untested.
2018-05-16 21:48:20 +03:00
++ hull-from-eth
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
|= [who=@p hull:eth-noun]
Add in Ethereum logic. Not hooked up yet, so untested.
2018-05-16 21:48:20 +03:00
^- hull
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
::
:: ownership
::
:+ [owner transfer-proxy]
Support continuity number from Ships contract.
2018-05-22 17:04:58 +03:00
::
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
:: network state
Add in Ethereum logic. Not hooked up yet, so untested.
2018-05-16 21:48:20 +03:00
::
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
?: =(0 key-revision) ~
:- ~
updates %jael to encode aut/net keys and use +pass everywhere
2018-08-23 22:23:52 +03:00
:* key-revision
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
::
updates %jael to encode aut/net keys and use +pass everywhere
2018-08-23 22:23:52 +03:00
%- need
(pass-from-eth encryption-key authentication-key crypto-suite)
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
::
continuity-number
::
?. has-sponsor ~
``@p`sponsor
::
?. escape-requested ~
``@p`escape-to
==
::
:: spawn state
::
?. ?=(?(%czar %king) (clan:title who)) ~
:- ~
:* spawn-proxy
Add in Ethereum logic. Not hooked up yet, so untested.
2018-05-16 21:48:20 +03:00
spawn-count
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
~ ::NOTE not returned for ships call
Add in Ethereum logic. Not hooked up yet, so untested.
2018-05-16 21:48:20 +03:00
==
::
Make use of new Spawned event to ensure one diff per event. This allows us to simplify logic and semantics.
2018-06-01 18:14:35 +03:00
++ event-log-to-hull-diff
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
=, ethe
=, ships-events
|= log=event-log
Make use of new Spawned event to ensure one diff per event. This allows us to simplify logic and semantics.
2018-06-01 18:14:35 +03:00
^- (unit (pair ship diff-hull))
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
~? ?=(~ mined.log) %processing-unmined-event
::
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
?: =(event.log owner-changed)
=+ ^- [who=@ wer=address]
(decode-topics topics.log ~[%uint %address])
Make use of new Spawned event to ensure one diff per event. This allows us to simplify logic and semantics.
2018-06-01 18:14:35 +03:00
`[who %owner wer]
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
?: =(event.log activated)
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
=/ who=@
(decode-topics topics.log ~[%uint])
`[who %activated who]
Make use of new Spawned event to ensure one diff per event. This allows us to simplify logic and semantics.
2018-06-01 18:14:35 +03:00
::
?: =(event.log spawned)
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
=/ pre=@ (decode-topics topics.log ~[%uint])
=/ who=@ (decode-results data.log ~[%uint])
Make use of new Spawned event to ensure one diff per event. This allows us to simplify logic and semantics.
2018-06-01 18:14:35 +03:00
`[pre %spawned who]
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
?: =(event.log escape-requested)
=+ ^- [who=@ wer=@]
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
(decode-topics topics.log ~[%uint %uint])
Make use of new Spawned event to ensure one diff per event. This allows us to simplify logic and semantics.
2018-06-01 18:14:35 +03:00
`[who %escape `wer]
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
?: =(event.log escape-canceled)
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
=/ who=@ (decode-topics topics.log ~[%uint])
Make use of new Spawned event to ensure one diff per event. This allows us to simplify logic and semantics.
2018-06-01 18:14:35 +03:00
`[who %escape ~]
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
?: =(event.log escape-accepted)
=+ ^- [who=@ wer=@]
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
(decode-topics topics.log ~[%uint %uint])
`[who %sponsor `wer]
::
?: =(event.log lost-sponsor)
=/ who=@ (decode-topics topics.log ~[%uint])
`[who %sponsor ~]
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
?: =(event.log changed-keys)
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
=/ who=@ (decode-topics topics.log ~[%uint])
=+ ^- [enc=octs aut=octs sut=@ud rev=@ud]
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
%+ decode-results data.log
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
~[[%bytes-n 32] [%bytes-n 32] %uint %uint]
updates %jael to encode aut/net keys and use +pass everywhere
2018-08-23 22:23:52 +03:00
`[who %keys rev (need (pass-from-eth enc aut sut))]
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
Support continuity number from Ships contract.
2018-05-22 17:04:58 +03:00
?: =(event.log broke-continuity)
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
=/ who=@ (decode-topics topics.log ~[%uint])
=/ num=@ (decode-results data.log ~[%uint])
Make use of new Spawned event to ensure one diff per event. This allows us to simplify logic and semantics.
2018-06-01 18:14:35 +03:00
`[who %continuity num]
Support continuity number from Ships contract.
2018-05-22 17:04:58 +03:00
::
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
?: =(event.log changed-spawn-proxy)
=+ ^- [who=@ sox=address]
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
(decode-topics topics.log ~[%uint %address])
Make use of new Spawned event to ensure one diff per event. This allows us to simplify logic and semantics.
2018-06-01 18:14:35 +03:00
`[who %spawn-proxy sox]
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
?: =(event.log changed-transfer-proxy)
=+ ^- [who=@ tox=address]
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
(decode-topics topics.log ~[%uint %address])
Make use of new Spawned event to ensure one diff per event. This allows us to simplify logic and semantics.
2018-06-01 18:14:35 +03:00
`[who %transfer-proxy tox]
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
::
Update constitution and jael logic to work with latest contracts
2018-08-30 02:58:47 +03:00
~? ?!
?| =(event.log changed-manager)
::
=(event.log changed-delegate)
::
:: contract owner changed
.= event.log
:: OwnershipTransferred(address,address)
0x8be0.079c.5316.5914.1344.cd1f.d0a4.f284.
1949.7f97.22a3.daaf.e3b4.186f.6b64.57e0
==
[%unimplemented-event event.log]
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
~
::
++ apply-hull-diff
|= [hul=hull dif=diff-hull]
^- hull
?- -.dif
Support continuity number from Ships contract.
2018-05-22 17:04:58 +03:00
%full new.dif
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
::
%activated
%_ hul
updates %jael to encode aut/net keys and use +pass everywhere
2018-08-23 22:23:52 +03:00
net `[0 0 0 `(sein:title who.dif) ~]
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
kid ?. ?=(?(%czar %king) (clan:title who.dif)) ~
`[0x0 0 ~]
==
::
:: ownership
::
%owner hul(owner.own new.dif)
%transfer-proxy hul(transfer-proxy.own new.dif)
::
:: networking
::
?(%keys %continuity %sponsor %escape)
?> ?=(^ net.hul)
?- -.dif
%keys
updates %jael to encode aut/net keys and use +pass everywhere
2018-08-23 22:23:52 +03:00
hul(life.u.net life.dif, pass.u.net pass.dif)
Update structures and events to match on-chain data.
2018-06-20 15:17:22 +03:00
::
%sponsor
?~ new.dif hul(sponsor.u.net ~)
hul(sponsor.u.net new.dif, escape.u.net ~)
::
%continuity hul(continuity-number.u.net new.dif)
%escape hul(escape.u.net new.dif)
==
::
:: spawning
::
?(%spawned %spawn-proxy)
?> ?=(^ kid.hul)
?- -.dif
%spawned
=- hul(u.kid -)
=* kid u.kid.hul
:+ spawn-proxy.kid
+(spawn-count.kid)
(~(put in spawned.kid) who.dif)
::
%spawn-proxy hul(spawn-proxy.u.kid new.dif)
==
Include ethereum surs and libs in zuse, lay foundation for integration into jael.
2018-05-16 00:16:29 +03:00
==
::
++ parse-id
|= id=@t
^- ships:function
|^
~| id
%+ rash id
;~ pose
(function %ships 'ships' shipname)
(function %get-spawned 'getSpawned' shipname)
(function %dns-domains 'dnsDomains' dem:ag)
==
::
++ function
|* [tag=@tas fun=@t rul=rule]
;~(plug (cold tag (jest fun)) (ifix [lit rit] rul))
::
++ shipname
;~(pfix sig fed:ag)
--
::
++ function-to-call
|%
++ ships
|= cal=ships:function
^- [id=@t dat=call-data]
?- -.cal
%ships
:- (crip "ships({(scow %p who.cal)})")
['ships(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]]
==
--
--
--
New metal boot system.
2016-11-24 07:25:07 +03:00
-- ::
Reference in New Issue Copy Permalink