main..971bd0b · astrolabe

.gitignore−2

@@ -1,4 +1,2 @@

11# OS X

22.DS_Store

3−extras

4−globs

.vscode/settings.jsondeleted−58

@@ -1,58 +0,0 @@

1−{

2− "saveEditorLayout.list": [

3− {

4− "name": "gall agent",

5− "orientation": 0,

6− "documents": [

7− {

8− "fsPath": "/Users/john/ws/urbit-apps/astrolabe/desk/sur/astrolabe.hoon",

9− "column": 1

10− },

11− {

12− "fsPath": "/Users/john/ws/urbit-apps/astrolabe/desk/app/astrolabe.hoon",

13− "column": 1

14− },

15− {

16− "fsPath": "/Users/john/ws/urbit-apps/astrolabe/extras/scraps/json-lib.hoon",

17− "column": 2

18− },

19− {

20− "fsPath": "/Users/john/ws/urbit-apps/astrolabe/base-desk/lib/naive.hoon",

21− "column": 3

22− },

23− {

24− "fsPath": "/Users/john/ws/urbit-apps/astrolabe/extras/scraps/scry thoughts.txt",

25− "column": 3

26− },

27− {

28− "fsPath": "/Users/john/ws/urbit-apps/astrolabe/desk/mar/astrolabe/point.hoon",

29− "column": 4

30− },

31− {

32− "fsPath": "/Users/john/ws/urbit-apps/astrolabe/install.sh",

33− "column": 5

34− },

35− {

36− "fsPath": "/Users/john/ws/urbit-apps/astrolabe/desk/lib/astrolabe.hoon",

37− "column": 5

38− }

39− ]

40− },

41− {

42− "name": "ui",

43− "orientation": 0,

44− "documents": [

45− {

46− "fsPath": "/Users/john/ws/urbit-apps/astrolabe/ui/src/components/ShipView.svelte",

47− "column": 1

48− }

49− ]

50− }

51− ],

52− "grammarly.selectors": [

53− {

54− "language": "markdown",

55− "scheme": "file"

56− }

57− ]

58−}

.vscode/tasks.jsondeleted−13

@@ -1,13 +0,0 @@

1−{

2− "version": "2.0.0",

3− "tasks": [

4− {

5− "type": "npm",

6− "script": "install:desk",

7− "path": "ui",

8− "problemMatcher": [],

9− "label": "npm: install:desk - ui",

10− "detail": "dotenv -c local npm run _install:desk"

11− }

12− ]

13−}

README.md+21−47

@@ -21,56 +21,30 @@ Astrolabe is built primarily using [Svelte], [Typescript], and [Tailwind CSS]. [

2121

2222To get started using Astrolabe first you need to run `npm install` inside the `ui` directory.

2323

24−To develop you'll need a running ship to point to. If it's running somewhere other than `http://localhost:8081`, make a copy of `.env` in the `ui` directory and name it `.env.local`. This file will not be committed. Change `VITE_SHIP_URL` to the URL of the ship you would like to point to.

25−

26−Once your URL is correctly configured, you can run `npm run dev`. This will proxy all requests to the ship except for those powering the interface, allowing you to see live data.

24+To develop you'll need a running ship to point to. To do so you first need to add a `.env.local` file to the `ui` directory. This file will not be committed. Adding `VITE_SHIP_URL={URL}` where **{URL}** is the URL of the ship you would like to point to, will allow you to run `npm run dev`. This will proxy all requests to the ship except for those powering the interface, allowing you to see live data.

2725

2826Regardless of what you run to develop, Vite will hot-reload code changes as you work so you don't have to constantly refresh.

2927

30−# Deploying

31−

32−1. Spin up a comet or distribution ship.

33−2. Mount an `%astrolabe` desk. In Dojo:

34− 1. `|merge %astrolabe our %base` to create a new desk.

35− 2. `|mount %astrolabe` to mount it.

36− 3. Set `ASTROLABE_DESK` in `.env.local` if the path to your desk is different.

37−3. Create and upload `glob-http`, if applicable (see below)

38−4. Bump the `version` in `desk.docket-0`.

39−3. Install the desk

40− 1. From the `ui` folder: `npm run install:desk`

41− 2. (first time only, on dev ship): `|install our %astrolabe`

42− 2. From the distribution ship's dojo: `:treaty|unpublish %astrolabe`

43− 2. From middleman or distribution ship's dojo: `|commit %astrolabe`

44− 3. (if using a comet as a middleman) `|public %astrolabe`

45− 4. (if using a comet as a middleman) from the actual distribution ship: `|install ~comet-name %astrolabe` or `|resume %astrolabe`

46− 5. (if using a comet as a middleman) from the actual distribution ship: `|pause %astrolabe`

47−4. Build UI and upload `glob-ames`

48−5. Publish the desk from dojo: `:treaty|publish %astrolabe`

49−

50−## Deploying with `glob-ames` glob

51−Initial Setup:

52−1. Put the line `glob-ames+[~dister-midlev-mindyr 0v0]` in `desk.docket-0` if it's not there, where `~dister-midlevi-mindyr` is the `@p` of the distribution ship.

53−

54−Every Time:

55−4. Build the UI with `npm run build` in the `ui` directory which will bundle all the code and assets into the `dist/` folder.

56−5. Upload the `dist/` folder as a glob to your distribution ship. Example url: https://distribution.urbit-ship.com/docket/upload

57−

58−## Deploying with `glob-http` glob

59−Initial Setup:

60−1. Spin up a globber ship (comet or fakezod) (or just reuse your dev ship for this).

61−2. Mount an `%globber` desk. In Dojo:

62− 1. `|merge %globber our %base` to create a new desk.

63− 2. `|mount %globber` to mount it.

64− 3. Set `GLOBBER_DESK` in `.env.local` if the path to your globber desk is different.

65−

66−Every Time:

67−3. From the `ui` directory, run `npm run release` to build the ui, make the glob, and copy it to the `globs` folder. The command will also print out the glob hash/id.

68−4. Copy the string printed by the last step, and paste it into `desk.docket-0`.

69−5. Upload the glob in `/globs/` to any publicly available HTTP endpoint that can serve files. This allows the glob to be distributed over HTTP.

70−6. Once you've uploaded the glob, paste the url into `desk/desk.docket-0`. Both the full URL and the hash should be updated to match the glob we just created, on the line that looks like this:

71− ```hoon

72− glob-http+['https://bootstrap.urbit.org/glob-0v5.fdf99.nph65.qecq3.ncpjn.q13mb.glob' 0v5.fdf99.nph65.qecq3.ncpjn.q13mb]

73− ```

28+### Deploying

29+

30+To deploy, run `npm run build` in the `ui` directory which will bundle all the code and assets into the `dist/` folder. This can then be made into a glob by doing the following:

31+

32+1. Create or launch an urbit using the -F flag

33+2. On that urbit, if you don't already have a desk to run from, run `|merge %work our %base` to create a new desk and mount it with `|mount %work`.

34+3. Now the `%work` desk is accessible through the host OS's filesystem as a directory of that urbit's pier ie `~/zod/work`.

35+4. From the `ui` directory you can run `rsync -avL --delete dist/ ~/zod/work/astrolabe` where `~/zod` is your fake urbit's pier.

36+5. Once completed you can then run `|commit %work` on your urbit and you should see your files logged back out from the dojo.

37+6. Now run `=dir /=garden` to switch to the garden desk directory

38+7. You can now run `-make-glob %work /astrolabe` which will take the folder where you just added files and create a glob which can be thought of as a sort of bundle. It will be output to `~/zod/.urb/put`.

39+8. If you navigate to `~/zod/.urb/put` you should see a file that looks like this `glob-0v5.fdf99.nph65.qecq3.ncpjn.q13mb.glob`. The characters between `glob-` and `.glob` are a hash of the glob's contents.

40+9. Now that we have the glob it can be uploaded to any publicly available HTTP endpoint that can serve files. This allows the glob to distributed over HTTP.

41+10. Once you've uploaded the glob, you should then update the corresponding entry in the docket file at `desk/desk.docket-0`. Both the full URL and the hash should be updated to match the glob we just created, on the line that looks like this:

42+

43+```hoon

44+ glob-http+['https://bootstrap.urbit.org/glob-0v5.fdf99.nph65.qecq3.ncpjn.q13mb.glob' 0v5.fdf99.nph65.qecq3.ncpjn.q13mb]

45+```

46+

47+11. This can now be safely committed and deployed.

7448

7549[svelte]: https://svelte.dev/

7650[typescript]: https://www.typescriptlang.org/

base-desk/lib/agentio.hoondeleted−137

@@ -1,137 +0,0 @@

1−=>

2− |%

3− ++ card card:agent:gall

4− --

5−::

6−|_ =bowl:gall

7−++ scry

8− |= [desk=@tas =path]

9− %+ weld

10− /(scot %p our.bowl)/[desk]/(scot %da now.bowl)

11− path

12−::

13−++ pass

14− |_ =wire

15− ++ poke

16− |= [=dock =cage]

17− [%pass wire %agent dock %poke cage]

18− ::

19− ++ poke-our

20− |= [app=term =cage]

21− ^- card

22− (poke [our.bowl app] cage)

23− ::

24− ++ poke-self

25− |= =cage

26− ^- card

27− (poke-our dap.bowl cage)

28− ::

29− ++ arvo

30− |= =note-arvo

31− ^- card

32− [%pass wire %arvo note-arvo]

33− ::

34− ++ watch

35− |= [=dock =path]

36− [%pass (watch-wire path) %agent dock %watch path]

37− ::

38− ++ watch-our

39− |= [app=term =path]

40− (watch [our.bowl app] path)

41− ::

42− ++ watch-wire

43− |= =path

44− ^+ wire

45− ?. ?=(~ wire)

46− wire

47− agentio-watch+path

48− ::

49− ++ leave

50− |= =dock

51− [%pass wire %agent dock %leave ~]

52− ::

53− ++ leave-our

54− |= app=term

55− (leave our.bowl app)

56− ::

57− ++ leave-path

58− |= [=dock =path]

59− =. wire

60− (watch-wire path)

61− (leave dock)

62− ::

63− ++ wait

64− |= p=@da

65− (arvo %b %wait p)

66− ::

67− ++ rest

68− |= p=@da

69− (arvo %b %rest p)

70− ::

71− ++ warp

72− |= [wer=ship =riff:clay]

73− (arvo %c %warp wer riff)

74− ::

75− ++ warp-our

76− |= =riff:clay

77− (warp our.bowl riff)

78− ::

79− :: right here, right now

80− ++ warp-slim

81− |= [genre=?(%sing %next) =care:clay =path]

82− =/ =mood:clay

83− [care r.byk.bowl path]

84− =/ =rave:clay

85− ?:(?=(%sing genre) [genre mood] [genre mood])

86− (warp-our q.byk.bowl `rave)

87− ::

88− ++ tire

89− (arvo %c %tire `~)

90− ::

91− ++ connect

92− |= [=binding:eyre app=term]

93− (arvo %e %connect binding app)

94− --

95−::

96−++ fact-kick

97− |= [=path =cage]

98− ^- (list card)

99− :~ (fact cage ~[path])

100− (kick ~[path])

101− ==

102−::

103−++ fact-init

104− |= =cage

105− ^- card

106− [%give %fact ~ cage]

107−::

108−++ fact-init-kick

109− |= =cage

110− ^- (list card)

111− :~ (fact cage ~)

112− (kick ~)

113− ==

114−::

115−++ fact

116− |= [=cage paths=(list path)]

117− ^- card

118− [%give %fact paths cage]

119−::

120−++ fact-all

121− |= =cage

122− ^- (unit card)

123− =/ paths=(set path)

124− %- ~(gas in *(set path))

125− %+ turn ~(tap by sup.bowl)

126− |=([duct ship =path] path)

127− ?: =(~ paths) ~

128− `(fact cage ~(tap in paths))

129−::

130−++ kick

131− |= paths=(list path)

132− [%give %kick paths ~]

133−::

134−++ kick-only

135− |= [=ship paths=(list path)]

136− [%give %kick paths `ship]

137−--

base-desk/lib/azimuth.hoondeleted−466

@@ -1,466 +0,0 @@

1−:: azimuth: constants and utilities

2−::

3−/+ ethereum

4−::

5−=> => [azimuth-types ethereum-types .]

6− |%

7− +$ complete-ship

8− $: state=point

9− history=(list diff-point) ::TODO maybe block/event nr? :: newest first

10− keys=(map life pass)

11− ==

12− ::

13− ++ fleet (map @p complete-ship)

14− ::

15− ++ eth-type

16− |%

17− ++ point

18− :~ [%bytes-n 32] :: encryptionKey

19− [%bytes-n 32] :: authenticationKey

20− %bool :: hasSponsor

21− %bool :: active

22− %bool :: escapeRequested

23− %uint :: sponsor

24− %uint :: escapeRequestedTo

25− %uint :: cryptoSuiteVersion

26− %uint :: keyRevisionNumber

27− %uint :: continuityNumber

28− ==

29− ++ deed

30− :~ %address :: owner

31− %address :: managementProxy

32− %address :: spawnProxy

33− %address :: votingProxy

34− %address :: transferProxy

35− ==

36− --

37− ::

38− ++ eth-noun

39− |%

40− +$ point

41− $: encryption-key=octs

42− authentication-key=octs

43− has-sponsor=?

44− active=?

45− escape-requested=?

46− sponsor=@ud

47− escape-to=@ud

48− crypto-suite=@ud

49− key-revision=@ud

50− continuity-number=@ud

51− ==

52− +$ deed

53− $: owner=address

54− management-proxy=address

55− spawn-proxy=address

56− voting-proxy=address

57− transfer-proxy=address

58− ==

59− --

60− ::

61− ++ function

62− |%

63− ++ azimuth

64− $% [%points who=@p]

65− [%rights who=@p]

66− [%get-spawned who=@p]

67− [%dns-domains ind=@ud]

68− ==

69− --

70− ::

71− :: # diffs

72− ::

73− ++ update

74− $% [%full ships=(map ship point) dns=dnses heard=events]

75− [%difs dis=(list (pair event-id diff-azimuth))]

76− ==

77− ::

78− :: # constants

79− ::

80− :: contract addresses

81− ++ contracts mainnet-contracts

82− ++ mainnet-contracts

83− |%

84− :: azimuth: data contract

85− ::

86− ++ azimuth

87− 0x223c.067f.8cf2.8ae1.73ee.5caf.ea60.ca44.c335.fecb

88− ::

89− ++ ecliptic

90− 0x33ee.cbf9.0847.8c10.6146.26a9.d304.bfe1.8b78.dd73

91− ::

92− ++ linear-star-release

93− 0x86cd.9cd0.992f.0423.1751.e376.1de4.5cec.ea5d.1801

94− ::

95− ++ conditional-star-release

96− 0x8c24.1098.c3d3.498f.e126.1421.633f.d579.86d7.4aea

97− ::

98− ++ delegated-sending

99− 0xf790.8ab1.f1e3.52f8.3c5e.bc75.051c.0565.aeae.a5fb

100− ::

101− ++ naive

102− 0xeb70.029c.fb3c.53c7.78ea.f68c.d28d.e725.390a.1fe9

103− ::

104− :: launch: block number of azimuth deploy

105− ::

106− ++ launch 6.784.800

107− ::

108− :: public: block number of azimuth becoming independent

109− ::

110− ++ public 7.033.765

111− ::

112− ++ chain-id 1

113− --

114− ::

115− :: Testnet contract addresses

116− ::

117− ++ goerli-contracts

118− |%

119− ++ azimuth

120− 0xbb61.fa68.3e4b.9104.18e2.7b00.a143.8a93.6234.df52

121− ::

122− ++ ecliptic

123− 0xe129.0a32.9014.5e63.e6a8.ec1e.f661.6906.856d.0c8f

124− ::

125− ++ linear-star-release

126− 0x0

127− ::

128− ++ conditional-star-release

129− 0x0

130− ::

131− ++ delegated-sending

132− 0x0

133− ::

134− ++ naive

135− 0x56e3.7137.cdaf.c026.a732.e8e8.40cd.621e.d50b.d210

136− ::

137− ++ launch 7.834.742

138− ++ public 7.834.800

139− ++ chain-id 5

140− --

141− ::

142− :: Local contract addresses

143− ::

144− :: These addresses are only reproducible if you use the deploy

145− :: script in bridge

146− ::

147− ++ local-contracts

148− |%

149− ++ ecliptic

150− 0x56db.68f2.9203.ff44.a803.faa2.404a.44ec.bb7a.7480

151− ++ azimuth

152− 0x863d.9c2e.5c4c.1335.96cf.ac29.d552.55f0.d0f8.6381

153− ++ delegated-sending

154− 0xb71c.0b6c.ee1b.cae5.6dfe.95cd.9d3e.41dd.d7ea.fc43

155− ++ linear-star-release

156− 0x3c3.dc12.be65.8158.d1d7.f9e6.6e08.ec40.99c5.68e4

157− ++ conditional-star-release

158− 0x35eb.3b10.2d9c.1b69.ac14.69c1.b1fe.1799.850c.d3eb

159− ++ naive

160− 0x6bb8.8a9b.bd82.be7a.997f.eb01.929c.6ec7.8988.fe12

161− ++ launch 0

162− ++ public 0

163− ++ chain-id 1.337

164− --

165− ::

166− :: ++ azimuth 0x863d.9c2e.5c4c.1335.96cf.ac29.d552.55f0.d0f8.6381 :: local bridge

167− :: hashes of ship event signatures

168− ++ azimuth-events

169− |%

170− ::

171− :: OwnerChanged(uint32,address)

172− ++ owner-changed

173− 0x16d0.f539.d49c.6cad.822b.767a.9445.bfb1.

174− cf7e.a6f2.a6c2.b120.a7ea.4cc7.660d.8fda

175− ::

176− :: Activated(uint32)

177− ++ activated

178− 0xe74c.0380.9d07.69e1.b1f7.06cc.8414.258c.

179− d1f3.b6fe.020c.d15d.0165.c210.ba50.3a0f

180− ::

181− :: Spawned(uint32,uint32)

182− ++ spawned

183− 0xb2d3.a6e7.a339.f5c8.ff96.265e.2f03.a010.

184− a854.1070.f374.4a24.7090.9644.1508.1546

185− ::

186− :: EscapeRequested(uint32,uint32)

187− ++ escape-requested

188− 0xb4d4.850b.8f21.8218.141c.5665.cba3.79e5.

189− 3e9b.b015.b51e.8d93.4be7.0210.aead.874a

190− ::

191− :: EscapeCanceled(uint32,uint32)

192− ++ escape-canceled

193− 0xd653.bb0e.0bb7.ce83.93e6.24d9.8fbf.17cd.

194− a590.2c83.28ed.0cd0.9988.f368.90d9.932a

195− ::

196− :: EscapeAccepted(uint32,uint32)

197− ++ escape-accepted

198− 0x7e44.7c9b.1bda.4b17.4b07.96e1.00bf.7f34.

199− ebf3.6dbb.7fe6.6549.0b1b.fce6.246a.9da5

200− ::

201− :: LostSponsor(uint32,uint32)

202− ++ lost-sponsor

203− 0xd770.4f9a.2519.3dbd.0b0c.b4a8.09fe.ffff.

204− a7f1.9d1a.ae88.17a7.1346.c194.4482.10d5

205− ::

206− :: ChangedKeys(uint32,bytes32,bytes32,uint32,uint32)

207− ++ changed-keys

208− 0xaa10.e7a0.117d.4323.f1d9.9d63.0ec1.69be.

209− bb3a.988e.8957.70e3.5198.7e01.ff54.23d5

210− ::

211− :: BrokeContinuity(uint32,uint32)

212− ++ broke-continuity

213− 0x2929.4799.f1c2.1a37.ef83.8e15.f79d.d91b.

214− cee2.df99.d63c.d1c1.8ac9.68b1.2951.4e6e

215− ::

216− :: ChangedSpawnProxy(uint32,address)

217− ++ changed-spawn-proxy

218− 0x9027.36af.7b3c.efe1.0d9e.840a.ed0d.687e.

219− 35c8.4095.122b.2505.1a20.ead8.866f.006d

220− ::

221− :: ChangedTransferProxy(uint32,address)

222− ++ changed-transfer-proxy

223− 0xcfe3.69b7.197e.7f0c.f067.93ae.2472.a9b1.

224− 3583.fecb.ed2f.78df.a14d.1f10.796b.847c

225− ::

226− :: ChangedManagementProxy(uint32,address)

227− ++ changed-management-proxy

228− 0xab9c.9327.cffd.2acc.168f.afed.be06.139f.

229− 5f55.cb84.c761.df05.e051.1c25.1e2e.e9bf

230− ::

231− :: ChangedVotingProxy(uint32,address)

232− ++ changed-voting-proxy

233− 0xcbd6.269e.c714.57f2.c7b1.a227.74f2.46f6.

234− c5a2.eae3.795e.d730.0db5.1768.0c61.c805

235− ::

236− :: ChangedDns(string,string,string)

237− ++ changed-dns

238− 0xfafd.04ad.e1da.ae2e.1fdb.0fc1.cc6a.899f.

239− d424.063e.d5c9.2120.e67e.0730.53b9.4898

240− --

241− --

242−::

243−:: logic

244−::

245−|%

246−++ pass-from-eth

247− |= [enc=octs aut=octs sut=@ud]

248− ^- pass

249− %^ cat 3 'b'

250− ?. &(=(1 sut) =(p.enc 32) =(p.aut 32))

251− (cat 8 0 0)

252− (cat 8 q.aut q.enc)

253−::

254−++ point-from-eth

255− |= [who=@p point:eth-noun deed:eth-noun]

256− ^- point

257− ::

258− :: ownership

259− ::

260− :+ :* owner

261− management-proxy

262− voting-proxy

263− transfer-proxy

264− ==

265− ::

266− :: network state

267− ::

268− ?. active ~

269− :- ~

270− :* key-revision

271− ::

272− (pass-from-eth encryption-key authentication-key crypto-suite)

273− ::

274− continuity-number

275− ::

276− [has-sponsor `@p`sponsor]

277− ::

278− ?. escape-requested ~

279− ``@p`escape-to

280− ==

281− ::

282− :: spawn state

283− ::

284− ?. ?=(?(%czar %king) (clan:title who)) ~

285− :- ~

286− :* spawn-proxy

287− ~ ::TODO call getSpawned to fill this

288− ==

289−::

290−++ event-log-to-point-diff

291− =, azimuth-events

292− =, abi:ethereum

293− |= log=event-log:rpc:ethereum

294− ^- (unit (pair ship diff-point))

295− ~? ?=(~ mined.log) %processing-unmined-event

296− ::

297− ?: =(i.topics.log owner-changed)

298− =/ [who=@ wer=address]

299− (decode-topics t.topics.log ~[%uint %address])

300− `[who %owner wer]

301− ::

302− ?: =(i.topics.log activated)

303− =/ who=@

304− (decode-topics t.topics.log ~[%uint])

305− `[who %activated who]

306− ::

307− ?: =(i.topics.log spawned)

308− =/ [pre=@ who=@]

309− (decode-topics t.topics.log ~[%uint %uint])

310− `[pre %spawned who]

311− ::

312− ?: =(i.topics.log escape-requested)

313− =/ [who=@ wer=@]

314− (decode-topics t.topics.log ~[%uint %uint])

315− `[who %escape `wer]

316− ::

317− ?: =(i.topics.log escape-canceled)

318− =/ who=@ (decode-topics t.topics.log ~[%uint])

319− `[who %escape ~]

320− ::

321− ?: =(i.topics.log escape-accepted)

322− =/ [who=@ wer=@]

323− (decode-topics t.topics.log ~[%uint %uint])

324− `[who %sponsor & wer]

325− ::

326− ?: =(i.topics.log lost-sponsor)

327− =/ [who=@ pos=@]

328− (decode-topics t.topics.log ~[%uint %uint])

329− `[who %sponsor | pos]

330− ::

331− ?: =(i.topics.log changed-keys)

332− =/ who=@ (decode-topics t.topics.log ~[%uint])

333− =/ [enc=octs aut=octs sut=@ud rev=@ud]

334− %+ decode-results data.log

335− ~[[%bytes-n 32] [%bytes-n 32] %uint %uint]

336− `[who %keys rev (pass-from-eth enc aut sut)]

337− ::

338− ?: =(i.topics.log broke-continuity)

339− =/ who=@ (decode-topics t.topics.log ~[%uint])

340− =/ num=@ (decode-results data.log ~[%uint])

341− `[who %continuity num]

342− ::

343− ?: =(i.topics.log changed-management-proxy)

344− =/ [who=@ sox=address]

345− (decode-topics t.topics.log ~[%uint %address])

346− `[who %management-proxy sox]

347− ::

348− ?: =(i.topics.log changed-voting-proxy)

349− =/ [who=@ tox=address]

350− (decode-topics t.topics.log ~[%uint %address])

351− `[who %voting-proxy tox]

352− ::

353− ?: =(i.topics.log changed-spawn-proxy)

354− =/ [who=@ sox=address]

355− (decode-topics t.topics.log ~[%uint %address])

356− `[who %spawn-proxy sox]

357− ::

358− ?: =(i.topics.log changed-transfer-proxy)

359− =/ [who=@ tox=address]

360− (decode-topics t.topics.log ~[%uint %address])

361− `[who %transfer-proxy tox]

362− ::

363− :: warn about unimplemented events, but ignore

364− :: the ones we know are harmless.

365− ~? ?! .= i.topics.log

366− :: OwnershipTransferred(address,address)

367− 0x8be0.079c.5316.5914.1344.cd1f.d0a4.f284.

368− 1949.7f97.22a3.daaf.e3b4.186f.6b64.57e0

369− [%unimplemented-event i.topics.log]

370− ~

371−::

372−++ apply-point-diff

373− |= [pot=point dif=diff-point]

374− ^- point

375− ?- -.dif

376− %full new.dif

377− ::

378− %activated

379− %_ pot

380− net `[0 0 0 &^(^sein:title who.dif) ~]

381− kid ?. ?=(?(%czar %king) (clan:title who.dif)) ~

382− `[0x0 ~]

383− ==

384− ::

385− :: ownership

386− ::

387− %owner pot(owner.own new.dif)

388− %transfer-proxy pot(transfer-proxy.own new.dif)

389− %management-proxy pot(management-proxy.own new.dif)

390− %voting-proxy pot(voting-proxy.own new.dif)

391− ::

392− :: networking

393− ::

394− ?(%keys %continuity %sponsor %escape)

395− ?> ?=(^ net.pot)

396− ?- -.dif

397− %keys

398− pot(life.u.net life.dif, pass.u.net pass.dif)

399− ::

400− %sponsor

401− %= pot

402− sponsor.u.net new.dif

403− escape.u.net ?:(has.new.dif ~ escape.u.net.pot)

404− ==

405− ::

406− %continuity pot(continuity-number.u.net new.dif)

407− %escape pot(escape.u.net new.dif)

408− ==

409− ::

410− :: spawning

411− ::

412− ?(%spawned %spawn-proxy)

413− ?> ?=(^ kid.pot)

414− ?- -.dif

415− %spawned

416− =- pot(spawned.u.kid -)

417− (~(put in spawned.u.kid.pot) who.dif)

418− ::

419− %spawn-proxy pot(spawn-proxy.u.kid new.dif)

420− ==

421− ==

422−::

423−++ parse-id

424− |= id=@t

425− ^- azimuth:function

426− |^

427− ~| id

428− %+ rash id

429− ;~ pose

430− (function %points 'points' shipname)

431− (function %get-spawned 'getSpawned' shipname)

432− (function %dns-domains 'dnsDomains' dem:ag)

433− ==

434− ::

435− ++ function

436− |* [tag=@tas fun=@t rul=rule]

437− ;~(plug (cold tag (jest fun)) (ifix [pal par] rul))

438− ::

439− ++ shipname

440− ;~(pfix sig fed:ag)

441− --

442−::

443−++ function-to-call

444− |%

445− ++ azimuth

446− |= cal=azimuth:function

447− ^- [id=@t dat=call-data:rpc:ethereum]

448− ?- -.cal

449− %points

450− :- (crip "points({(scow %p who.cal)})")

451− ['points(uint32)' ~[uint+`@`who.cal]]

452− ::

453− %rights

454− :- (crip "rights({(scow %p who.cal)})")

455− ['rights(uint32)' ~[uint+`@`who.cal]]

456− ::

457− %get-spawned

458− :- (crip "getSpawned({(scow %p who.cal)})")

459− ['getSpawned(uint32)' ~[uint+`@`who.cal]]

460− ::

461− %dns-domains

462− :- (crip "dnsDomains({(scow %ud ind.cal)})")

463− ['dnsDomains(uint256)' ~[uint+ind.cal]]

464− ==

465− --

466−--

base-desk/lib/azimuthio.hoondeleted−146

@@ -1,146 +0,0 @@

1−/- rpc=json-rpc

2−/+ ethereum, azimuth, strandio

3−=, strand=strand:strandio

4−=, jael

5−|%

6−++ tract azimuth:contracts:azimuth

7−++ fetch-point

8− |= [url=@ta who=ship]

9− =/ m (strand ,point:azimuth)

10− ^- form:m

11− =/ =request:rpc:ethereum

12− :+ %eth-call

13− =- [from=~ to=tract gas=~ price=~ value=~ data=-]

14− (encode-call:rpc:ethereum 'points(uint32)' [%uint `@`who]~)

15− [%label %latest]

16− ;< jon=json bind:m (request-rpc url `'point' request)

17− =/ res=cord (so:dejs:format jon)

18− =/ =point:eth-noun:azimuth

19− (decode-results:abi:ethereum res point:eth-type:azimuth)

20− ::

21− =/ =request:rpc:ethereum

22− :+ %eth-call

23− =- [from=~ to=tract gas=~ price=~ value=~ data=-]

24− (encode-call:rpc:ethereum 'rights(uint32)' [%uint `@`who]~)

25− [%label %latest]

26− ;< jon=json bind:m (request-rpc url `'deed' request)

27− =/ res=cord (so:dejs:format jon)

28− =/ =deed:eth-noun:azimuth

29− (decode-results:abi:ethereum res deed:eth-type:azimuth)

30− ::

31− (pure:m (point-from-eth:azimuth who point deed))

32−::

33−++ request-rpc

34− |= [url=@ta id=(unit @t) req=request:rpc:ethereum]

35− =/ m (strand ,json)

36− ^- form:m

37− %+ (retry json) `10

38− =/ m (strand ,(unit json))

39− ^- form:m

40− |^

41− =/ =request:http

42− :* method=%'POST'

43− url=url

44− header-list=['Content-Type'^'application/json' ~]

45− ^= body

46− %- some %- as-octs:mimes:html

47− %- en:json:html

48− (request-to-json:rpc:ethereum id req)

49− ==

50− ;< ~ bind:m (send-request:strandio request)

51− ;< rep=(unit client-response:iris) bind:m

52− take-maybe-response:strandio

53− ?~ rep

54− (pure:m ~)

55− (parse-response u.rep)

56− ::

57− ++ parse-response

58− |= =client-response:iris

59− =/ m (strand ,(unit json))

60− ^- form:m

61− ?> ?=(%finished -.client-response)

62− ?~ full-file.client-response

63− (pure:m ~)

64− =/ body=@t q.data.u.full-file.client-response

65− =/ jon=(unit json) (de:json:html body)

66− ?~ jon

67− (pure:m ~)

68− =, dejs-soft:format

69− =/ array=(unit (list response:rpc))

70− ((ar parse-one-response) u.jon)

71− ?~ array

72− =/ res=(unit response:rpc) (parse-one-response u.jon)

73− ?~ res

74− (strand-fail:strandio %request-rpc-parse-error >id< ~)

75− ?: ?=(%error -.u.res)

76− (strand-fail:strandio %request-rpc-error >id< >+.res< ~)

77− ?. ?=(%result -.u.res)

78− (strand-fail:strandio %request-rpc-fail >u.res< ~)

79− (pure:m `res.u.res)

80− (strand-fail:strandio %request-rpc-batch >%not-implemented< ~)

81− :: (pure:m `[%batch u.array])

82− ::

83− ++ parse-one-response

84− |= =json

85− ^- (unit response:rpc)

86− =/ res=(unit [@t ^json])

87− %. json

88− =, dejs-soft:format

89− (ot id+so result+some ~)

90− ?^ res `[%result u.res]

91− ~| parse-one-response=json

92− :+ ~ %error %- need

93− %. json

94− =, dejs-soft:format

95− (ot id+so error+(ot code+no message+so ~) ~)

96− --

97−::

98−++ retry

99− |* result=mold

100− |= [crash-after=(unit @ud) computation=_*form:(strand (unit result))]

101− =/ m (strand ,result)

102− =| try=@ud

103− |- ^- form:m

104− =* loop $

105− ?: =(crash-after `try)

106− (strand-fail:strandio %retry-too-many ~)

107− ;< ~ bind:m (backoff:strandio try ~m1)

108− ;< res=(unit result) bind:m computation

109− ?^ res

110− (pure:m u.res)

111− loop(try +(try))

112−::

113−++ get-latest-block

114− |= url=@ta

115− =/ m (strand ,block)

116− ^- form:m

117− ;< =json bind:m (request-rpc url `'block number' %eth-block-number ~)

118− (get-block-by-number url (parse-eth-block-number:rpc:ethereum json))

119−::

120−++ get-block-by-number

121− |= [url=@ta =number:block]

122− =/ m (strand ,block)

123− ^- form:m

124− |^

125− ;< =json bind:m

126− (request-rpc url `'block by number' %eth-get-block-by-number number |)

127− =/ =block (parse-block json)

128− ?. =(number number.id.block)

129− (strand-fail:strandio %reorg-detected >number< >block< ~)

130− (pure:m block)

131− ::

132− ++ parse-block

133− |= =json

134− ^- block

135− =< [[&1 &2] |2]

136− ^- [@ @ @]

137− ~| json

138− %. json

139− =, dejs:format

140− %- ot

141− :~ hash+parse-hex-result:rpc:ethereum

142− number+parse-hex-result:rpc:ethereum

143− 'parentHash'^parse-hex-result:rpc:ethereum

144− ==

145− --

146−--

base-desk/lib/bip/b158.hoondeleted−249

@@ -1,249 +0,0 @@

1−/- bc=bitcoin

2−/+ bcu=bitcoin-utils

3−|%

4−++ params

5− |%

6− ++ p 19

7− ++ m 784.931

8− --

9−::

10−++ siphash

11− |= [k=byts m=byts]

12− ^- byts

13− |^

14− ?> =(wid.k 16)

15− ?> (lte (met 3 dat.k) wid.k)

16− ?> (lte (met 3 dat.m) wid.m)

17− =. k (flim:sha k)

18− =. m (flim:sha m)

19− (flim:sha (fin (comp m (init dat.k))))

20− :: Initialise internal state

21− ::

22− ++ init

23− |= k=@

24− ^- [@ @ @ @]

25− =/ k0=@ (end [6 1] k)

26− =/ k1=@ (cut 6 [1 1] k)

27− :^ (mix k0 0x736f.6d65.7073.6575)

28− (mix k1 0x646f.7261.6e64.6f6d)

29− (mix k0 0x6c79.6765.6e65.7261)

30− (mix k1 0x7465.6462.7974.6573)

31− ::

32− :: Compression rounds

33− ++ comp

34− |= [m=byts v=[v0=@ v1=@ v2=@ v3=@]]

35− ^- [@ @ @ @]

36− =/ len=@ud (div wid.m 8)

37− =/ last=@ (lsh [3 7] (mod wid.m 256))

38− =| i=@ud

39− =| w=@

40− |-

41− =. w (cut 6 [i 1] dat.m)

42− ?: =(i len)

43− =. v3.v (mix v3.v (mix last w))

44− =. v (rnd (rnd v))

45− =. v0.v (mix v0.v (mix last w))

46− v

47− %= $

48− v =. v3.v (mix v3.v w)

49− =. v (rnd (rnd v))

50− =. v0.v (mix v0.v w)

51− v

52− i (add i 1)

53− ==

54− ::

55− :: Finalisation rounds

56− ++ fin

57− |= v=[v0=@ v1=@ v2=@ v3=@]

58− ^- byts

59− =. v2.v (mix v2.v 0xff)

60− =. v (rnd (rnd (rnd (rnd v))))

61− :- 8

62− :(mix v0.v v1.v v2.v v3.v)

63− ::

64− :: Sipround

65− ++ rnd

66− |= [v0=@ v1=@ v2=@ v3=@]

67− ^- [@ @ @ @]

68− =. v0 (~(sum fe 6) v0 v1)

69− =. v2 (~(sum fe 6) v2 v3)

70− =. v1 (~(rol fe 6) 0 13 v1)

71− =. v3 (~(rol fe 6) 0 16 v3)

72− =. v1 (mix v1 v0)

73− =. v3 (mix v3 v2)

74− =. v0 (~(rol fe 6) 0 32 v0)

75− =. v2 (~(sum fe 6) v2 v1)

76− =. v0 (~(sum fe 6) v0 v3)

77− =. v1 (~(rol fe 6) 0 17 v1)

78− =. v3 (~(rol fe 6) 0 21 v3)

79− =. v1 (mix v1 v2)

80− =. v3 (mix v3 v0)

81− =. v2 (~(rol fe 6) 0 32 v2)

82− [v0 v1 v2 v3]

83− --

84−:: +str: bit streams

85−:: read is from the front

86−:: write appends to the back

87−::

88−++ str

89− |%

90− ++ read-bit

91− |= s=bits:bc

92− ^- [bit=@ub rest=bits:bc]

93− ?> (gth wid.s 0)

94− :* ?:((gth wid.s (met 0 dat.s)) 0b0 0b1)

95− [(dec wid.s) (end [0 (dec wid.s)] dat.s)]

96− ==

97− ::

98− ++ read-bits

99− |= [n=@ s=bits:bc]

100− ^- [bits:bc rest=bits:bc]

101− =| bs=bits:bc

102− |-

103− ?: =(n 0) [bs s]

104− =^ b s (read-bit s)

105− $(n (dec n), bs (write-bits bs [1 b]))

106− ::

107− ++ write-bits

108− |= [s1=bits:bc s2=bits:bc]

109− ^- bits:bc

110− [(add wid.s1 wid.s2) (can 0 ~[s2 s1])]

111− --

112−:: +gol: Golomb-Rice encoding/decoding

113−::

114−++ gol

115− |%

116− :: +en: encode x and append to end of s

117− :: - s: bits stream

118− :: - x: number to add to the stream

119− :: - p: golomb-rice p param

120− ::

121− ++ en

122− |= [s=bits:bc x=@ p=@]

123− ^- bits:bc

124− =+ q=(rsh [0 p] x)

125− =+ unary=[+(q) (lsh [0 1] (dec (bex q)))]

126− =+ r=[p (end [0 p] x)]

127− %+ write-bits:str s

128− (write-bits:str unary r)

129− ::

130− ++ de

131− |= [s=bits:bc p=@]

132− ^- [delta=@ rest=bits:bc]

133− |^ ?> (gth wid.s 0)

134− =^ q s (get-q s)

135− =^ r s (read-bits:str p s)

136− [(add dat.r (lsh [0 p] q)) s]

137− ::

138− ++ get-q

139− |= s=bits:bc

140− =| q=@

141− =^ first-bit s (read-bit:str s)

142− |-

143− ?: =(0 first-bit) [q s]

144− =^ b s (read-bit:str s)

145− $(first-bit b, q +(q))

146− --

147− --

148−:: +hsh

149−::

150−++ hsh

151− |%

152− :: +to-range

153− :: - item: scriptpubkey to hash

154− :: - f: N*M

155− :: - k: key for siphash (end of blockhash, reversed)

156− ::

157− ++ to-range

158− |= [item=byts f=@ k=byts]

159− ^- @

160− (rsh [0 64] (mul f (swp 3 dat:(siphash k item))))

161− :: +set-construct: return sorted hashes of scriptpubkeys

162− ::

163− ++ set-construct

164− |= [items=(list byts) k=byts f=@]

165− ^- (list @)

166− %+ sort

167− %+ turn items

168− |= item=byts

169− (to-range item f k)

170− lth

171− --

172−::

173−++ parse-filter

174− |= filter=hexb:bc

175− ^- [n=@ux gcs-set=bits:bc]

176− =/ n n:(de:csiz:bcu filter)

177− =/ lead=@ ?:(=(1 wid.n) 1 +(wid.n))

178− :- dat.n

179− [(mul 8 (sub wid.filter lead)) `@ub`dat:(drop:byt:bcu lead filter)]

180−:: +to-key: blockhash (little endian) to key for siphash

181−::

182−++ to-key

183− |= blockhash=tape

184− ^- byts

185− %+ take:byt:bcu 16

186− %- flip:byt:bcu

187− (from-cord:hxb:bcu (crip blockhash))

188−:: +match: whether block filter matches *any* target scriptpubkeys

189−:: - filter: full block filter, with leading N

190−:: - k: key for siphash (end of blockhash, reversed)

191−:: - targets: scriptpubkeys to match

192−::

193−++ match

194− |= [filter=hexb:bc k=byts targets=(list byts)]

195− ^- ?

196− =/ [p=@ m=@] [p:params m:params]

197− =/ [n=@ux gcs-set=bits:bc] (parse-filter filter)

198− =+ target-hs=(set-construct:hsh targets k (mul n m))

199− =+ last-val=0

200− |-

201− ?~ target-hs %.n

202− ?: =(last-val i.target-hs)

203− %.y

204− ?: (gth last-val i.target-hs)

205− $(target-hs t.target-hs)

206− :: last-val is less than target: check next val in GCS, if any

207− ::

208− ?: (lth wid.gcs-set p) %.n

209− =^ delta gcs-set

210− (de:gol gcs-set p)

211− $(last-val (add delta last-val))

212−:: +all-match: returns all target byts that match

213−:: - filter: full block filter, with leading N

214−:: - targets: scriptpubkeys to match

215−::

216−++ all-match

217− |= [filter=hexb:bc blockhash=hexb:bc targets=(list [address:bc byts])]

218− ^- (set [address:bc hexb:bc])

219− =/ k (to-key (trip (to-cord:hxb:bcu blockhash)))

220− %- ~(gas in *(set [address:bc hexb:bc]))

221− =/ [p=@ m=@] [p:params m:params]

222− =/ [n=@ux gcs-set=bits:bc] (parse-filter filter)

223− =/ target-map=(map @ [address:bc hexb:bc])

224− %- ~(gas by *(map @ [address:bc hexb:bc]))

225− %+ turn targets

226− |= [a=address:bc t=hexb:bc]

227− [(to-range:hsh t (mul n m) k) a t]

228− =+ target-hs=(sort ~(tap in ~(key by target-map)) lth)

229− =+ last-val=0

230− =| matches=(list @)

231− |-

232− ?~ target-hs

233− (murn matches ~(get by target-map))

234− ?: =(last-val i.target-hs)

235− %= $

236− target-hs t.target-hs

237− matches [last-val matches]

238− ==

239− ?: (gth last-val i.target-hs)

240− $(target-hs t.target-hs)

241− :: last-val is less than target: get next val in GCS, if any

242− ::

243− ?: (lth wid.gcs-set p)

244− (murn matches ~(get by target-map))

245− =^ delta gcs-set

246− (de:gol gcs-set p)

247− $(last-val (add delta last-val))

248−::

249−--

base-desk/lib/bip/b173.hoondeleted−144

@@ -1,144 +0,0 @@

1−:: BIP173: Bech32 Addresses

2−:: https://github.com/bitcoin/bips/blob/master/bip-0173.mediawiki

3−::

4−:: Heavily copies:

5−:: https://github.com/bitcoinjs/bech32/blob/master/index.js

6−::

7−/- sur=bitcoin

8−/+ bcu=bitcoin-utils

9−=, sur

10−=, bcu

11−|%

12−++ prefixes

13− ^- (map network tape)

14− (my [[%main "bc"] [%testnet "tb"] [%regtest "bcrt"] ~])

15−++ charset "qpzry9x8gf2tvdw0s3jn54khce6mua7l"

16−+$ raw-decoded [hrp=tape data=(list @) checksum=(list @)]

17−:: below is a port of: https://github.com/bitcoinjs/bech32/blob/master/index.js

18−::

19−++ polymod

20− |= values=(list @)

21− |^ ^- @

22− =/ gen=(list @ux)

23− ~[0x3b6a.57b2 0x2650.8e6d 0x1ea1.19fa 0x3d42.33dd 0x2a14.62b3]

24− =/ chk=@ 1

25− |- ?~ values chk

26− =/ top (rsh [0 25] chk)

27− =. chk

28− (mix i.values (lsh [0 5] (dis chk 0x1ff.ffff)))

29− $(values t.values, chk (update-chk chk top gen))

30−::

31− ++ update-chk

32− |= [chk=@ top=@ gen=(list @ux)]

33− =/ is (gulf 0 4)

34− |- ?~ is chk

35− ?: =(1 (dis 1 (rsh [0 i.is] top)))

36− $(is t.is, chk (mix chk (snag i.is gen)))

37− $(is t.is)

38− --

39−::

40−++ expand-hrp

41− |= hrp=tape

42− ^- (list @)

43− =/ front (turn hrp |=(p=@tD (rsh [0 5] p)))

44− =/ back (turn hrp |=(p=@tD (dis 31 p)))

45− (zing ~[front ~[0] back])

46−::

47−++ verify-checksum

48− |= [hrp=tape data-and-checksum=(list @)]

49− ^- ?

50− %- |=(a=@ =(1 a))

51− %- polymod

52− (weld (expand-hrp hrp) data-and-checksum)

53−::

54−++ checksum

55− |= [hrp=tape data=(list @)]

56− ^- (list @)

57− :: xor 1 with the polymod

58− ::

59− =/ pmod=@

60− %+ mix 1

61− %- polymod

62− (zing ~[(expand-hrp hrp) data (reap 6 0)])

63− %+ turn (gulf 0 5)

64− |=(i=@ (dis 31 (rsh [0 (mul 5 (sub 5 i))] pmod)))

65−::

66−++ charset-to-value

67− |= c=@tD

68− ^- (unit @)

69− (find ~[c] charset)

70−++ value-to-charset

71− |= value=@

72− ^- (unit @tD)

73− ?: (gth value 31) ~

74− `(snag value charset)

75−::

76−++ is-valid

77− |= [bech=tape last-1-pos=@] ^- ?

78− ?& ?|(=((cass bech) bech) =((cuss bech) bech)) :: to upper or to lower is same as bech

79− (gte last-1-pos 1)

80− (lte (add last-1-pos 7) (lent bech))

81− (lte (lent bech) 90)

82− (levy bech |=(c=@tD (gte c 33)))

83− (levy bech |=(c=@tD (lte c 126)))

84− ==

85−:: data should be 5bit words

86−::

87−++ encode-raw

88− |= [hrp=tape data=(list @)]

89− ^- cord

90− =/ combined=(list @)

91− (weld data (checksum hrp data))

92− %- crip

93− (zing ~[hrp "1" (tape (murn combined value-to-charset))])

94−++ decode-raw

95− |= body=cord

96− ^- (unit raw-decoded)

97− =/ bech (cass (trip body)) :: to lowercase

98− =/ pos (flop (fand "1" bech))

99− ?~ pos ~

100− =/ last-1=@ i.pos

101− ?. (is-valid bech last-1) :: check bech32 validity (not segwit validity or checksum)

102− ~

103− =/ hrp (scag last-1 bech)

104− =/ encoded-data-and-checksum=(list @)

105− (slag +(last-1) bech)

106− =/ data-and-checksum=(list @)

107− %+ murn encoded-data-and-checksum

108− charset-to-value

109− ?. =((lent encoded-data-and-checksum) (lent data-and-checksum)) :: ensure all were in CHARSET

110− ~

111− ?. (verify-checksum hrp data-and-checksum)

112− ~

113− =/ checksum-pos (sub (lent data-and-checksum) 6)

114− `[hrp (scag checksum-pos data-and-checksum) (slag checksum-pos data-and-checksum)]

115−:: +from-address: BIP173 bech32 address encoding to hex

116−:: https://github.com/bitcoin/bips/blob/master/bip-0173.mediawiki

117−:: expects to drop a leading 5-bit 0 (the witness version)

118−::

119−++ from-address

120− |= body=cord

121− ^- hexb

122− ~| "Invalid bech32 address"

123− =/ d=(unit raw-decoded) (decode-raw body)

124− ?> ?=(^ d)

125− =/ bs=bits (from-atoms:bit 5 data.u.d)

126− =/ byt-len=@ (div (sub wid.bs 5) 8)

127− ?> =(5^0b0 (take:bit 5 bs))

128− ?> ?| =(20 byt-len)

129− =(32 byt-len)

130− ==

131− [byt-len `@ux`dat:(take:bit (mul 8 byt-len) (drop:bit 5 bs))]

132−:: pubkey is the 33 byte ECC compressed public key

133−::

134−++ encode-pubkey

135− |= [=network pubkey=byts]

136− ^- (unit cord)

137− ?. =(33 wid.pubkey)

138− ~|('pubkey must be a 33 byte ECC compressed public key' !!)

139− =/ prefix (~(get by prefixes) network)

140− ?~ prefix ~

141− :- ~

142− %+ encode-raw u.prefix

143− [0v0 (to-atoms:bit 5 [160 `@ub`dat:(hash-160 pubkey)])]

144−--

base-desk/lib/bip/b174.hoondeleted−184

@@ -1,184 +0,0 @@

1−:: BIP174: PSBTs

2−:: https://github.com/bitcoin/bips/blob/master/bip-0174.mediawiki

3−::

4−/- sur=bitcoin

5−/+ bcu=bitcoin-utils

6−=, sur

7−=, bcu

8−|%

9−++ en

10− |%

11− ++ globals

12− |= rawtx=hexb

13− ^- map:psbt

14− :~ [[1 0x0] rawtx]

15− ==

16− ::

17− ++ input

18− |= [only-witness=? i=in:psbt]

19− ^- map:psbt

20− %+ weld

21− ?: only-witness ~

22− ~[[1^0x0 rawtx.i]]

23− :~ (witness-tx i)

24− (hdkey %input hdkey.i)

25− ==

26− ::

27− ++ output

28− |= =out:psbt

29− ^- map:psbt

30− ?~ hk.out ~

31− :~ (hdkey %output u.hk.out)

32− ==

33− ::

34− ++ witness-tx

35− |= i=in:psbt

36− ^- keyval:psbt

37− :- [1 0x1]

38− %- cat:byt

39− :~ (flip:byt 8^value.utxo.i)

40− 1^0x16

41− 2^0x14

42− (hash-160 pubkey.hdkey.i)

43− ==

44− ::

45− ++ hdkey

46− |= [=target:psbt h=^hdkey]

47− ^- keyval:psbt

48− =/ typ=@ux

49− ?- target

50− %input 0x6

51− %output 0x2

52− ==

53− =/ coin-type=hexb

54− ?- network.h

55− %main

56− 1^0x0

57− %testnet

58− 1^0x1

59− %regtest

60− 1^0x1

61− ==

62− :- (cat:byt ~[1^typ pubkey.h])

63− %- cat:byt

64− :~ fprint.h

65− 1^`@ux`bipt.h 3^0x80

66− coin-type 3^0x80

67− 4^0x80

68− 1^`@ux`chyg.h 3^0x0

69− (flip:byt 4^idx.h)

70− ==

71− ::

72− ++ keyval-byts

73− |= kv=keyval:psbt

74− ^- hexb

75− %- cat:byt

76− :~ 1^wid.key.kv

77− key.kv

78− 1^wid.val.kv

79− val.kv

80− ==

81− ::

82− ++ map-byts

83− |= m=map:psbt

84− ^- (unit hexb)

85− ?~ m ~

86− :- ~

87− %- cat:byt

88− (turn m keyval-byts)

89− --

90− ++ base64

91− |= b=hexb

92− ^- base64:psbt

93− %- en:base64:mimes:html

94− (flip:byt b)

95−:: +encode: make base64 cord of PSBT

96−:: - only-witness: don't include non-witness UTXO

97−::

98−++ encode

99− |= $: only-witness=?

100− rawtx=hexb

101− txid=hexb

102− inputs=(list in:psbt)

103− outputs=(list out:psbt)

104− ==

105− ^- base64:psbt

106− =/ sep=(unit hexb) `1^0x0

107− =/ final=(list (unit hexb))

108− %+ join sep

109− %+ turn

110− %- zing

111− :~ ~[(globals:en rawtx)]

112− (turn inputs (cury input:en only-witness))

113− (turn outputs output:en)

114− ==

115− map-byts:en

116− %- base64:en

117− ^- byts

118− %- cat:byt

119− %+ weld ~[[5 0x70.7362.74ff]]

120− (murn (snoc final sep) same)

121−::

122−++ parse

123− |= psbt-base64=cord

124− ^- (list map:psbt)

125− =/ todo=hexb

126− (drop:byt 5 (to-byts psbt-base64))

127− =| acc=(list map:psbt)

128− =| m=map:psbt

129− |-

130− ?: =(wid.todo 0)

131− (snoc acc m)

132− :: 0x0: map separator

133− ::

134− ?: =(1^0x0 (take:byt 1 todo))

135− $(acc (snoc acc m), m *map:psbt, todo (drop:byt 1 todo))

136− =^ kv todo (next-keyval todo)

137− $(m (snoc m kv))

138−:: +get-txid: extract txid from a valid PSBT

139−::

140−++ get-txid

141− |= psbt-base64=cord

142− ^- hexb

143− =/ tx=hexb

144− %- raw-tx

145− %+ drop:byt 5

146− (to-byts psbt-base64)

147− %- flip:byt

148− (dsha256 tx)

149−:: +raw-tx: extract hex transaction

150−:: looks for key 0x0 in global map

151−:: crashes if tx not in hex

152−::

153−++ raw-tx

154− |= b=hexb

155− ^- hexb

156− |-

157− ?: =(wid.b 0) !!

158− ?: =(1^0x0 (take:byt 1 b)) !!

159− =/ nk (next-keyval b)

160− ?: =(0x0 dat.key.kv.nk)

161− val.kv.nk

162− $(b rest.nk)

163−:: +next-keyval: returns next key-val in a PSBT map

164−:: input first byte must be a map key length

165−::

166−++ next-keyval

167− |= b=hexb

168− ^- [kv=keyval:psbt rest=hexb]

169− =/ klen dat:(take:byt 1 b)

170− =/ k (take:byt klen (drop:byt 1 b))

171− =/ vlen dat:(take:byt 1 (drop:byt (add 1 klen) b))

172− =/ v (take:byt vlen (drop:byt (add 2 klen) b))

173− ?> ?&((gth wid.k 0) (gth wid.v 0))

174− :- [k v]

175− (drop:byt ;:(add 2 klen vlen) b)

176−::

177−++ to-byts

178− |= psbt-base64=cord

179− ^- hexb

180− ~| "Invalid PSBT"

181− =+ p=(de:base64:mimes:html psbt-base64)

182− ?~ p !!

183− (flip:byt u.p)

184−--

base-desk/lib/bip32.hoondeleted−243

@@ -1,243 +0,0 @@

1−:: bip32 implementation in hoon

2−::

3−:: to use, call one of the core initialization arms.

4−:: using the produced core, derive as needed and take out the data you want.

5−::

6−::NOTE tested to be correct against

7−:: https://en.bitcoin.it/wiki/BIP_0032_TestVectors

8−::

9−=, hmac:crypto

10−=, secp:crypto

11−=+ ecc=secp256k1

12−::

13−:: prv: private key

14−:: pub: public key

15−:: cad: chain code

16−:: dep: depth in chain

17−:: ind: index at depth

18−:: pif: parent fingerprint (4 bytes)

19−|_ [prv=@ pub=point.ecc cad=@ dep=@ud ind=@ud pif=@]

20−::

21−+$ keyc [key=@ cai=@] :: prv/pub key + chain code

22−::

23−:: elliptic curve operations and values

24−::

25−++ point priv-to-pub.ecc

26−::

27−++ ser-p compress-point.ecc

28−::

29−++ n n:t.ecc

30−::

31−:: core initialization

32−::

33−++ from-seed

34− |= byts

35− ^+ +>

36− =+ der=(hmac-sha512l [12 'dees nioctiB'] [wid dat])

37− =+ pri=(cut 3 [32 32] der)

38− +>.$(prv pri, pub (point pri), cad (cut 3 [0 32] der))

39−::

40−++ from-private

41− |= keyc

42− +>(prv key, pub (point key), cad cai)

43−::

44−++ from-public

45− |= keyc

46− +>(pub (decompress-point.ecc key), cad cai)

47−::

48−++ from-public-point

49− |= [pon=point.ecc cai=@]

50− +>(pub pon, cad cai)

51−::

52−++ from-extended

53− |= t=tape

54− =+ x=(de-base58check 4 t)

55− => |%

56− ++ take

57− |= b=@ud

58− ^- [v=@ x=@]

59− :- (end [3 b] x)

60− (rsh [3 b] x)

61− --

62− =^ k x (take 33)

63− =^ c x (take 32)

64− =^ i x (take 4)

65− =^ p x (take 4)

66− =^ d x (take 1)

67− ?> =(0 x) :: sanity check

68− %. [d i p]

69− =< set-metadata

70− =+ v=(swag [1 3] t)

71− ?: =("prv" v) (from-private k c)

72− ?: =("pub" v) (from-public k c)

73− !!

74−::

75−++ set-metadata

76− |= [d=@ud i=@ud p=@]

77− +>(dep d, ind i, pif p)

78−::

79−:: derivation

80−::

81−++ derivation-path

82− ;~ pfix

83− ;~(pose (jest 'm/') (easy ~))

84− %+ most fas

85− ;~ pose

86− %+ cook

87− |=(i=@ (add i (bex 31)))

88− ;~(sfix dem soq)

89− ::

90− dem

91− == ==

92−::

93−++ derive-path

94− |= t=tape

95− %- derive-sequence

96− (scan t derivation-path)

97−::

98−++ derive-sequence

99− |= j=(list @u)

100− ?~ j +>

101− =. +> (derive i.j)

102− $(j t.j)

103−::

104−++ derive

105− ?: =(0 prv)

106− derive-public

107− derive-private

108−::

109−++ derive-private

110− |= i=@u

111− ^+ +>

112− :: we must have a private key to derive the next one

113− ?: =(0 prv)

114− ~| %know-no-private-key

115− !!

116− :: derive child at i

117− =/ [left=@ right=@]

118− =- [(cut 3 [32 32] -) (cut 3 [0 32] -)]

119− %+ hmac-sha512l [32 cad]

120− :- 37

121− ?: (gte i (bex 31))

122− :: hardened child

123− (can 3 ~[4^i 32^prv 1^0])

124− :: normal child

125− (can 3 ~[4^i 33^(ser-p (point prv))])

126− =+ key=(mod (add left prv) n)

127− :: rare exception, invalid key, go to the next one

128− ?: |(=(0 key) (gte left n)) $(i +(i))

129− %_ +>.$

130− prv key

131− pub (point key)

132− cad right

133− dep +(dep)

134− ind i

135− pif fingerprint

136− ==

137−::

138−++ derive-public

139− |= i=@u

140− ^+ +>

141− :: public keys can't be hardened

142− ?: (gte i (bex 31))

143− ~| %cant-derive-hardened-public-key

144− !!

145− :: derive child at i

146− =/ [left=@ right=@]

147− =- [(cut 3 [32 32] -) (cut 3 [0 32] -)]

148− %+ hmac-sha512l [32 cad]

149− 37^(can 3 ~[4^i 33^(ser-p pub)])

150− :: rare exception, invalid key, go to the next one

151− ?: (gte left n) $(i +(i)) ::TODO or child key is "point at infinity"

152− %_ +>.$

153− pub (add-points.ecc (point left) pub)

154− cad right

155− dep +(dep)

156− ind i

157− pif fingerprint

158− ==

159−::

160−:: rendering

161−::

162−++ private-key ?.(=(0 prv) prv ~|(%know-no-private-key !!))

163−++ public-key (ser-p pub)

164−++ chain-code cad

165−++ private-chain [private-key cad]

166−++ public-chain [public-key cad]

167−::

168−++ identity (hash160 public-key)

169−++ fingerprint (cut 3 [16 4] identity)

170−::

171−++ address

172− |= network=?(%main %regtest %testnet)

173− ^- @uc

174− :: removes checksum

175− ::

176− %+ rsh [3 4]

177− %+ en-base58check

178− [4 (version-bytes network %pub %.n)]

179− [20 identity]

180−::

181−++ prv-extended

182− |= network=?(%main %regtest %testnet)

183− %+ en-b58c-bip32 (version-bytes network %prv %.y)

184− (build-extended private-key)

185−::

186−++ pub-extended

187− |= network=?(%main %regtest %testnet)

188− %+ en-b58c-bip32 (version-bytes network %pub %.y)

189− (build-extended public-key)

190−::

191−++ build-extended

192− |= key=@

193− %+ can 3

194− :~ 33^key

195− 32^cad

196− 4^ind

197− 4^pif

198− 1^dep

199− ==

200−::

201−++ en-b58c-bip32

202− |= [v=@ k=@]

203− %- en-base58:mimes:html

204− (en-base58check [4 v] [74 k])

205−::

206−:: base58check

207−::

208−++ en-base58check

209− :: v: version bytes

210− :: d: data

211− |= [v=byts d=byts]

212− =+ p=[(add wid.v wid.d) (can 3 ~[d v])]

213− =- (can 3 ~[4^- p])

214− %+ rsh [3 28]

215− (sha-256l:sha 32 (sha-256l:sha p))

216−::

217−++ de-base58check

218− :: vw: amount of version bytes

219− |= [vw=@u t=tape]

220− =+ x=(de-base58:mimes:html t)

221− =+ hash=(sha-256l:sha 32 (sha-256:sha (rsh [3 4] x)))

222− ?> =((end [3 4] x) (rsh [3 28] hash))

223− (cut 3 [vw (sub (met 3 x) (add 4 vw))] x)

224−::

225−++ hash160

226− |= d=@

227− (ripemd-160:ripemd:crypto 32 (sha-256:sha d))

228−::

229−++ version-bytes

230− |= [network=?(%main %regtest %testnet) type=?(%pub %prv) bip32=?]

231− ^- @ux

232− |^

233− ?- type

234− %pub ?:(bip32 xpub-key pay-to-pubkey)

235− %prv ?:(bip32 xprv-key private-key)

236− ==

237− ::

238− ++ pay-to-pubkey ?:(=(network %main) 0x0 0x6f)

239− ++ private-key ?:(=(network %main) 0x80 0xef)

240− ++ xpub-key ?:(=(network %main) 0x488.b21e 0x435.87cf)

241− ++ xprv-key ?:(=(network %main) 0x488.ade4 0x435.8394)

242− --

243−--

base-desk/lib/bip39.hoondeleted−46

@@ -1,46 +0,0 @@

1−:: bip39 implementation in hoon

2−::

3−/+ bip39-english

4−::

5−|%

6−++ from-entropy

7− |= byts

8− ^- tape

9− =. wid (mul wid 8)

10− ~| [%unsupported-entropy-bit-length wid]

11− ?> &((gte wid 128) (lte wid 256))

12− ::

13− =+ cs=(div wid 32)

14− =/ check=@

15− %+ rsh [0 (sub 256 cs)]

16− (sha-256l:sha (div wid 8) dat)

17− =/ bits=byts

18− :- (add wid cs)

19− %+ can 0

20− :~ cs^check

21− wid^dat

22− ==

23− ::

24− =/ pieces

25− |- ^- (list @)

26− :- (end [0 11] dat.bits)

27− ?: (lte wid.bits 11) ~

28− $(bits [(sub wid.bits 11) (rsh [0 11] dat.bits)])

29− ::

30− =/ words=(list tape)

31− %+ turn pieces

32− |= ind=@ud

33− (snag ind `(list tape)`bip39-english)

34− ::

35− %+ roll (flop words)

36− |= [nex=tape all=tape]

37− ?~ all nex

38− :(weld all " " nex)

39−::

40−::NOTE always produces a 512-bit result

41−++ to-seed

42− |= [mnem=tape pass=tape]

43− ^- @

44− %- hmac-sha512t:pbkdf:crypto

45− [(crip mnem) (crip (weld "mnemonic" pass)) 2.048 64]

46−--

base-desk/lib/bip39/english.hoondeleted−2052

@@ -1,2052 +0,0 @@

1−:: english wordlist for use in bip39

2−^- (list tape)

3−:~

4− "abandon"

5− "ability"

6− "able"

7− "about"

8− "above"

9− "absent"

10− "absorb"

11− "abstract"

12− "absurd"

13− "abuse"

14− "access"

15− "accident"

16− "account"

17− "accuse"

18− "achieve"

19− "acid"

20− "acoustic"

21− "acquire"

22− "across"

23− "act"

24− "action"

25− "actor"

26− "actress"

27− "actual"

28− "adapt"

29− "add"

30− "addict"

31− "address"

32− "adjust"

33− "admit"

34− "adult"

35− "advance"

36− "advice"

37− "aerobic"

38− "affair"

39− "afford"

40− "afraid"

41− "again"

42− "age"

43− "agent"

44− "agree"

45− "ahead"

46− "aim"

47− "air"

48− "airport"

49− "aisle"

50− "alarm"

51− "album"

52− "alcohol"

53− "alert"

54− "alien"

55− "all"

56− "alley"

57− "allow"

58− "almost"

59− "alone"

60− "alpha"

61− "already"

62− "also"

63− "alter"

64− "always"

65− "amateur"

66− "amazing"

67− "among"

68− "amount"

69− "amused"

70− "analyst"

71− "anchor"

72− "ancient"

73− "anger"

74− "angle"

75− "angry"

76− "animal"

77− "ankle"

78− "announce"

79− "annual"

80− "another"

81− "answer"

82− "antenna"

83− "antique"

84− "anxiety"

85− "any"

86− "apart"

87− "apology"

88− "appear"

89− "apple"

90− "approve"

91− "april"

92− "arch"

93− "arctic"

94− "area"

95− "arena"

96− "argue"

97− "arm"

98− "armed"

99− "armor"

100− "army"

101− "around"

102− "arrange"

103− "arrest"

104− "arrive"

105− "arrow"

106− "art"

107− "artefact"

108− "artist"

109− "artwork"

110− "ask"

111− "aspect"

112− "assault"

113− "asset"

114− "assist"

115− "assume"

116− "asthma"

117− "athlete"

118− "atom"

119− "attack"

120− "attend"

121− "attitude"

122− "attract"

123− "auction"

124− "audit"

125− "august"

126− "aunt"

127− "author"

128− "auto"

129− "autumn"

130− "average"

131− "avocado"

132− "avoid"

133− "awake"

134− "aware"

135− "away"

136− "awesome"

137− "awful"

138− "awkward"

139− "axis"

140− "baby"

141− "bachelor"

142− "bacon"

143− "badge"

144− "bag"

145− "balance"

146− "balcony"

147− "ball"

148− "bamboo"

149− "banana"

150− "banner"

151− "bar"

152− "barely"

153− "bargain"

154− "barrel"

155− "base"

156− "basic"

157− "basket"

158− "battle"

159− "beach"

160− "bean"

161− "beauty"

162− "because"

163− "become"

164− "beef"

165− "before"

166− "begin"

167− "behave"

168− "behind"

169− "believe"

170− "below"

171− "belt"

172− "bench"

173− "benefit"

174− "best"

175− "betray"

176− "better"

177− "between"

178− "beyond"

179− "bicycle"

180− "bid"

181− "bike"

182− "bind"

183− "biology"

184− "bird"

185− "birth"

186− "bitter"

187− "black"

188− "blade"

189− "blame"

190− "blanket"

191− "blast"

192− "bleak"

193− "bless"

194− "blind"

195− "blood"

196− "blossom"

197− "blouse"

198− "blue"

199− "blur"

200− "blush"

201− "board"

202− "boat"

203− "body"

204− "boil"

205− "bomb"

206− "bone"

207− "bonus"

208− "book"

209− "boost"

210− "border"

211− "boring"

212− "borrow"

213− "boss"

214− "bottom"

215− "bounce"

216− "box"

217− "boy"

218− "bracket"

219− "brain"

220− "brand"

221− "brass"

222− "brave"

223− "bread"

224− "breeze"

225− "brick"

226− "bridge"

227− "brief"

228− "bright"

229− "bring"

230− "brisk"

231− "broccoli"

232− "broken"

233− "bronze"

234− "broom"

235− "brother"

236− "brown"

237− "brush"

238− "bubble"

239− "buddy"

240− "budget"

241− "buffalo"

242− "build"

243− "bulb"

244− "bulk"

245− "bullet"

246− "bundle"

247− "bunker"

248− "burden"

249− "burger"

250− "burst"

251− "bus"

252− "business"

253− "busy"

254− "butter"

255− "buyer"

256− "buzz"

257− "cabbage"

258− "cabin"

259− "cable"

260− "cactus"

261− "cage"

262− "cake"

263− "call"

264− "calm"

265− "camera"

266− "camp"

267− "can"

268− "canal"

269− "cancel"

270− "candy"

271− "cannon"

272− "canoe"

273− "canvas"

274− "canyon"

275− "capable"

276− "capital"

277− "captain"

278− "car"

279− "carbon"

280− "card"

281− "cargo"

282− "carpet"

283− "carry"

284− "cart"

285− "case"

286− "cash"

287− "casino"

288− "castle"

289− "casual"

290− "cat"

291− "catalog"

292− "catch"

293− "category"

294− "cattle"

295− "caught"

296− "cause"

297− "caution"

298− "cave"

299− "ceiling"

300− "celery"

301− "cement"

302− "census"

303− "century"

304− "cereal"

305− "certain"

306− "chair"

307− "chalk"

308− "champion"

309− "change"

310− "chaos"

311− "chapter"

312− "charge"

313− "chase"

314− "chat"

315− "cheap"

316− "check"

317− "cheese"

318− "chef"

319− "cherry"

320− "chest"

321− "chicken"

322− "chief"

323− "child"

324− "chimney"

325− "choice"

326− "choose"

327− "chronic"

328− "chuckle"

329− "chunk"

330− "churn"

331− "cigar"

332− "cinnamon"

333− "circle"

334− "citizen"

335− "city"

336− "civil"

337− "claim"

338− "clap"

339− "clarify"

340− "claw"

341− "clay"

342− "clean"

343− "clerk"

344− "clever"

345− "click"

346− "client"

347− "cliff"

348− "climb"

349− "clinic"

350− "clip"

351− "clock"

352− "clog"

353− "close"

354− "cloth"

355− "cloud"

356− "clown"

357− "club"

358− "clump"

359− "cluster"

360− "clutch"

361− "coach"

362− "coast"

363− "coconut"

364− "code"

365− "coffee"

366− "coil"

367− "coin"

368− "collect"

369− "color"

370− "column"

371− "combine"

372− "come"

373− "comfort"

374− "comic"

375− "common"

376− "company"

377− "concert"

378− "conduct"

379− "confirm"

380− "congress"

381− "connect"

382− "consider"

383− "control"

384− "convince"

385− "cook"

386− "cool"

387− "copper"

388− "copy"

389− "coral"

390− "core"

391− "corn"

392− "correct"

393− "cost"

394− "cotton"

395− "couch"

396− "country"

397− "couple"

398− "course"

399− "cousin"

400− "cover"

401− "coyote"

402− "crack"

403− "cradle"

404− "craft"

405− "cram"

406− "crane"

407− "crash"

408− "crater"

409− "crawl"

410− "crazy"

411− "cream"

412− "credit"

413− "creek"

414− "crew"

415− "cricket"

416− "crime"

417− "crisp"

418− "critic"

419− "crop"

420− "cross"

421− "crouch"

422− "crowd"

423− "crucial"

424− "cruel"

425− "cruise"

426− "crumble"

427− "crunch"

428− "crush"

429− "cry"

430− "crystal"

431− "cube"

432− "culture"

433− "cup"

434− "cupboard"

435− "curious"

436− "current"

437− "curtain"

438− "curve"

439− "cushion"

440− "custom"

441− "cute"

442− "cycle"

443− "dad"

444− "damage"

445− "damp"

446− "dance"

447− "danger"

448− "daring"

449− "dash"

450− "daughter"

451− "dawn"

452− "day"

453− "deal"

454− "debate"

455− "debris"

456− "decade"

457− "december"

458− "decide"

459− "decline"

460− "decorate"

461− "decrease"

462− "deer"

463− "defense"

464− "define"

465− "defy"

466− "degree"

467− "delay"

468− "deliver"

469− "demand"

470− "demise"

471− "denial"

472− "dentist"

473− "deny"

474− "depart"

475− "depend"

476− "deposit"

477− "depth"

478− "deputy"

479− "derive"

480− "describe"

481− "desert"

482− "design"

483− "desk"

484− "despair"

485− "destroy"

486− "detail"

487− "detect"

488− "develop"

489− "device"

490− "devote"

491− "diagram"

492− "dial"

493− "diamond"

494− "diary"

495− "dice"

496− "diesel"

497− "diet"

498− "differ"

499− "digital"

500− "dignity"

501− "dilemma"

502− "dinner"

503− "dinosaur"

504− "direct"

505− "dirt"

506− "disagree"

507− "discover"

508− "disease"

509− "dish"

510− "dismiss"

511− "disorder"

512− "display"

513− "distance"

514− "divert"

515− "divide"

516− "divorce"

517− "dizzy"

518− "doctor"

519− "document"

520− "dog"

521− "doll"

522− "dolphin"

523− "domain"

524− "donate"

525− "donkey"

526− "donor"

527− "door"

528− "dose"

529− "double"

530− "dove"

531− "draft"

532− "dragon"

533− "drama"

534− "drastic"

535− "draw"

536− "dream"

537− "dress"

538− "drift"

539− "drill"

540− "drink"

541− "drip"

542− "drive"

543− "drop"

544− "drum"

545− "dry"

546− "duck"

547− "dumb"

548− "dune"

549− "during"

550− "dust"

551− "dutch"

552− "duty"

553− "dwarf"

554− "dynamic"

555− "eager"

556− "eagle"

557− "early"

558− "earn"

559− "earth"

560− "easily"

561− "east"

562− "easy"

563− "echo"

564− "ecology"

565− "economy"

566− "edge"

567− "edit"

568− "educate"

569− "effort"

570− "egg"

571− "eight"

572− "either"

573− "elbow"

574− "elder"

575− "electric"

576− "elegant"

577− "element"

578− "elephant"

579− "elevator"

580− "elite"

581− "else"

582− "embark"

583− "embody"

584− "embrace"

585− "emerge"

586− "emotion"

587− "employ"

588− "empower"

589− "empty"

590− "enable"

591− "enact"

592− "end"

593− "endless"

594− "endorse"

595− "enemy"

596− "energy"

597− "enforce"

598− "engage"

599− "engine"

600− "enhance"

601− "enjoy"

602− "enlist"

603− "enough"

604− "enrich"

605− "enroll"

606− "ensure"

607− "enter"

608− "entire"

609− "entry"

610− "envelope"

611− "episode"

612− "equal"

613− "equip"

614− "era"

615− "erase"

616− "erode"

617− "erosion"

618− "error"

619− "erupt"

620− "escape"

621− "essay"

622− "essence"

623− "estate"

624− "eternal"

625− "ethics"

626− "evidence"

627− "evil"

628− "evoke"

629− "evolve"

630− "exact"

631− "example"

632− "excess"

633− "exchange"

634− "excite"

635− "exclude"

636− "excuse"

637− "execute"

638− "exercise"

639− "exhaust"

640− "exhibit"

641− "exile"

642− "exist"

643− "exit"

644− "exotic"

645− "expand"

646− "expect"

647− "expire"

648− "explain"

649− "expose"

650− "express"

651− "extend"

652− "extra"

653− "eye"

654− "eyebrow"

655− "fabric"

656− "face"

657− "faculty"

658− "fade"

659− "faint"

660− "faith"

661− "fall"

662− "false"

663− "fame"

664− "family"

665− "famous"

666− "fan"

667− "fancy"

668− "fantasy"

669− "farm"

670− "fashion"

671− "fat"

672− "fatal"

673− "father"

674− "fatigue"

675− "fault"

676− "favorite"

677− "feature"

678− "february"

679− "federal"

680− "fee"

681− "feed"

682− "feel"

683− "female"

684− "fence"

685− "festival"

686− "fetch"

687− "fever"

688− "few"

689− "fiber"

690− "fiction"

691− "field"

692− "figure"

693− "file"

694− "film"

695− "filter"

696− "final"

697− "find"

698− "fine"

699− "finger"

700− "finish"

701− "fire"

702− "firm"

703− "first"

704− "fiscal"

705− "fish"

706− "fit"

707− "fitness"

708− "fix"

709− "flag"

710− "flame"

711− "flash"

712− "flat"

713− "flavor"

714− "flee"

715− "flight"

716− "flip"

717− "float"

718− "flock"

719− "floor"

720− "flower"

721− "fluid"

722− "flush"

723− "fly"

724− "foam"

725− "focus"

726− "fog"

727− "foil"

728− "fold"

729− "follow"

730− "food"

731− "foot"

732− "force"

733− "forest"

734− "forget"

735− "fork"

736− "fortune"

737− "forum"

738− "forward"

739− "fossil"

740− "foster"

741− "found"

742− "fox"

743− "fragile"

744− "frame"

745− "frequent"

746− "fresh"

747− "friend"

748− "fringe"

749− "frog"

750− "front"

751− "frost"

752− "frown"

753− "frozen"

754− "fruit"

755− "fuel"

756− "fun"

757− "funny"

758− "furnace"

759− "fury"

760− "future"

761− "gadget"

762− "gain"

763− "galaxy"

764− "gallery"

765− "game"

766− "gap"

767− "garage"

768− "garbage"

769− "garden"

770− "garlic"

771− "garment"

772− "gas"

773− "gasp"

774− "gate"

775− "gather"

776− "gauge"

777− "gaze"

778− "general"

779− "genius"

780− "genre"

781− "gentle"

782− "genuine"

783− "gesture"

784− "ghost"

785− "giant"

786− "gift"

787− "giggle"

788− "ginger"

789− "giraffe"

790− "girl"

791− "give"

792− "glad"

793− "glance"

794− "glare"

795− "glass"

796− "glide"

797− "glimpse"

798− "globe"

799− "gloom"

800− "glory"

801− "glove"

802− "glow"

803− "glue"

804− "goat"

805− "goddess"

806− "gold"

807− "good"

808− "goose"

809− "gorilla"

810− "gospel"

811− "gossip"

812− "govern"

813− "gown"

814− "grab"

815− "grace"

816− "grain"

817− "grant"

818− "grape"

819− "grass"

820− "gravity"

821− "great"

822− "green"

823− "grid"

824− "grief"

825− "grit"

826− "grocery"

827− "group"

828− "grow"

829− "grunt"

830− "guard"

831− "guess"

832− "guide"

833− "guilt"

834− "guitar"

835− "gun"

836− "gym"

837− "habit"

838− "hair"

839− "half"

840− "hammer"

841− "hamster"

842− "hand"

843− "happy"

844− "harbor"

845− "hard"

846− "harsh"

847− "harvest"

848− "hat"

849− "have"

850− "hawk"

851− "hazard"

852− "head"

853− "health"

854− "heart"

855− "heavy"

856− "hedgehog"

857− "height"

858− "hello"

859− "helmet"

860− "help"

861− "hen"

862− "hero"

863− "hidden"

864− "high"

865− "hill"

866− "hint"

867− "hip"

868− "hire"

869− "history"

870− "hobby"

871− "hockey"

872− "hold"

873− "hole"

874− "holiday"

875− "hollow"

876− "home"

877− "honey"

878− "hood"

879− "hope"

880− "horn"

881− "horror"

882− "horse"

883− "hospital"

884− "host"

885− "hotel"

886− "hour"

887− "hover"

888− "hub"

889− "huge"

890− "human"

891− "humble"

892− "humor"

893− "hundred"

894− "hungry"

895− "hunt"

896− "hurdle"

897− "hurry"

898− "hurt"

899− "husband"

900− "hybrid"

901− "ice"

902− "icon"

903− "idea"

904− "identify"

905− "idle"

906− "ignore"

907− "ill"

908− "illegal"

909− "illness"

910− "image"

911− "imitate"

912− "immense"

913− "immune"

914− "impact"

915− "impose"

916− "improve"

917− "impulse"

918− "inch"

919− "include"

920− "income"

921− "increase"

922− "index"

923− "indicate"

924− "indoor"

925− "industry"

926− "infant"

927− "inflict"

928− "inform"

929− "inhale"

930− "inherit"

931− "initial"

932− "inject"

933− "injury"

934− "inmate"

935− "inner"

936− "innocent"

937− "input"

938− "inquiry"

939− "insane"

940− "insect"

941− "inside"

942− "inspire"

943− "install"

944− "intact"

945− "interest"

946− "into"

947− "invest"

948− "invite"

949− "involve"

950− "iron"

951− "island"

952− "isolate"

953− "issue"

954− "item"

955− "ivory"

956− "jacket"

957− "jaguar"

958− "jar"

959− "jazz"

960− "jealous"

961− "jeans"

962− "jelly"

963− "jewel"

964− "job"

965− "join"

966− "joke"

967− "journey"

968− "joy"

969− "judge"

970− "juice"

971− "jump"

972− "jungle"

973− "junior"

974− "junk"

975− "just"

976− "kangaroo"

977− "keen"

978− "keep"

979− "ketchup"

980− "key"

981− "kick"

982− "kid"

983− "kidney"

984− "kind"

985− "kingdom"

986− "kiss"

987− "kit"

988− "kitchen"

989− "kite"

990− "kitten"

991− "kiwi"

992− "knee"

993− "knife"

994− "knock"

995− "know"

996− "lab"

997− "label"

998− "labor"

999− "ladder"

1000− "lady"

1001− "lake"

1002− "lamp"

1003− "language"

1004− "laptop"

1005− "large"

1006− "later"

1007− "latin"

1008− "laugh"

1009− "laundry"

1010− "lava"

1011− "law"

1012− "lawn"

1013− "lawsuit"

1014− "layer"

1015− "lazy"

1016− "leader"

1017− "leaf"

1018− "learn"

1019− "leave"

1020− "lecture"

1021− "left"

1022− "leg"

1023− "legal"

1024− "legend"

1025− "leisure"

1026− "lemon"

1027− "lend"

1028− "length"

1029− "lens"

1030− "leopard"

1031− "lesson"

1032− "letter"

1033− "level"

1034− "liar"

1035− "liberty"

1036− "library"

1037− "license"

1038− "life"

1039− "lift"

1040− "light"

1041− "like"

1042− "limb"

1043− "limit"

1044− "link"

1045− "lion"

1046− "liquid"

1047− "list"

1048− "little"

1049− "live"

1050− "lizard"

1051− "load"

1052− "loan"

1053− "lobster"

1054− "local"

1055− "lock"

1056− "logic"

1057− "lonely"

1058− "long"

1059− "loop"

1060− "lottery"

1061− "loud"

1062− "lounge"

1063− "love"

1064− "loyal"

1065− "lucky"

1066− "luggage"

1067− "lumber"

1068− "lunar"

1069− "lunch"

1070− "luxury"

1071− "lyrics"

1072− "machine"

1073− "mad"

1074− "magic"

1075− "magnet"

1076− "maid"

1077− "mail"

1078− "main"

1079− "major"

1080− "make"

1081− "mammal"

1082− "man"

1083− "manage"

1084− "mandate"

1085− "mango"

1086− "mansion"

1087− "manual"

1088− "maple"

1089− "marble"

1090− "march"

1091− "margin"

1092− "marine"

1093− "market"

1094− "marriage"

1095− "mask"

1096− "mass"

1097− "master"

1098− "match"

1099− "material"

1100− "math"

1101− "matrix"

1102− "matter"

1103− "maximum"

1104− "maze"

1105− "meadow"

1106− "mean"

1107− "measure"

1108− "meat"

1109− "mechanic"

1110− "medal"

1111− "media"

1112− "melody"

1113− "melt"

1114− "member"

1115− "memory"

1116− "mention"

1117− "menu"

1118− "mercy"

1119− "merge"

1120− "merit"

1121− "merry"

1122− "mesh"

1123− "message"

1124− "metal"

1125− "method"

1126− "middle"

1127− "midnight"

1128− "milk"

1129− "million"

1130− "mimic"

1131− "mind"

1132− "minimum"

1133− "minor"

1134− "minute"

1135− "miracle"

1136− "mirror"

1137− "misery"

1138− "miss"

1139− "mistake"

1140− "mix"

1141− "mixed"

1142− "mixture"

1143− "mobile"

1144− "model"

1145− "modify"

1146− "mom"

1147− "moment"

1148− "monitor"

1149− "monkey"

1150− "monster"

1151− "month"

1152− "moon"

1153− "moral"

1154− "more"

1155− "morning"

1156− "mosquito"

1157− "mother"

1158− "motion"

1159− "motor"

1160− "mountain"

1161− "mouse"

1162− "move"

1163− "movie"

1164− "much"

1165− "muffin"

1166− "mule"

1167− "multiply"

1168− "muscle"

1169− "museum"

1170− "mushroom"

1171− "music"

1172− "must"

1173− "mutual"

1174− "myself"

1175− "mystery"

1176− "myth"

1177− "naive"

1178− "name"

1179− "napkin"

1180− "narrow"

1181− "nasty"

1182− "nation"

1183− "nature"

1184− "near"

1185− "neck"

1186− "need"

1187− "negative"

1188− "neglect"

1189− "neither"

1190− "nephew"

1191− "nerve"

1192− "nest"

1193− "net"

1194− "network"

1195− "neutral"

1196− "never"

1197− "news"

1198− "next"

1199− "nice"

1200− "night"

1201− "noble"

1202− "noise"

1203− "nominee"

1204− "noodle"

1205− "normal"

1206− "north"

1207− "nose"

1208− "notable"

1209− "note"

1210− "nothing"

1211− "notice"

1212− "novel"

1213− "now"

1214− "nuclear"

1215− "number"

1216− "nurse"

1217− "nut"

1218− "oak"

1219− "obey"

1220− "object"

1221− "oblige"

1222− "obscure"

1223− "observe"

1224− "obtain"

1225− "obvious"

1226− "occur"

1227− "ocean"

1228− "october"

1229− "odor"

1230− "off"

1231− "offer"

1232− "office"

1233− "often"

1234− "oil"

1235− "okay"

1236− "old"

1237− "olive"

1238− "olympic"

1239− "omit"

1240− "once"

1241− "one"

1242− "onion"

1243− "online"

1244− "only"

1245− "open"

1246− "opera"

1247− "opinion"

1248− "oppose"

1249− "option"

1250− "orange"

1251− "orbit"

1252− "orchard"

1253− "order"

1254− "ordinary"

1255− "organ"

1256− "orient"

1257− "original"

1258− "orphan"

1259− "ostrich"

1260− "other"

1261− "outdoor"

1262− "outer"

1263− "output"

1264− "outside"

1265− "oval"

1266− "oven"

1267− "over"

1268− "own"

1269− "owner"

1270− "oxygen"

1271− "oyster"

1272− "ozone"

1273− "pact"

1274− "paddle"

1275− "page"

1276− "pair"

1277− "palace"

1278− "palm"

1279− "panda"

1280− "panel"

1281− "panic"

1282− "panther"

1283− "paper"

1284− "parade"

1285− "parent"

1286− "park"

1287− "parrot"

1288− "party"

1289− "pass"

1290− "patch"

1291− "path"

1292− "patient"

1293− "patrol"

1294− "pattern"

1295− "pause"

1296− "pave"

1297− "payment"

1298− "peace"

1299− "peanut"

1300− "pear"

1301− "peasant"

1302− "pelican"

1303− "pen"

1304− "penalty"

1305− "pencil"

1306− "people"

1307− "pepper"

1308− "perfect"

1309− "permit"

1310− "person"

1311− "pet"

1312− "phone"

1313− "photo"

1314− "phrase"

1315− "physical"

1316− "piano"

1317− "picnic"

1318− "picture"

1319− "piece"

1320− "pig"

1321− "pigeon"

1322− "pill"

1323− "pilot"

1324− "pink"

1325− "pioneer"

1326− "pipe"

1327− "pistol"

1328− "pitch"

1329− "pizza"

1330− "place"

1331− "planet"

1332− "plastic"

1333− "plate"

1334− "play"

1335− "please"

1336− "pledge"

1337− "pluck"

1338− "plug"

1339− "plunge"

1340− "poem"

1341− "poet"

1342− "point"

1343− "polar"

1344− "pole"

1345− "police"

1346− "pond"

1347− "pony"

1348− "pool"

1349− "popular"

1350− "portion"

1351− "position"

1352− "possible"

1353− "post"

1354− "potato"

1355− "pottery"

1356− "poverty"

1357− "powder"

1358− "power"

1359− "practice"

1360− "praise"

1361− "predict"

1362− "prefer"

1363− "prepare"

1364− "present"

1365− "pretty"

1366− "prevent"

1367− "price"

1368− "pride"

1369− "primary"

1370− "print"

1371− "priority"

1372− "prison"

1373− "private"

1374− "prize"

1375− "problem"

1376− "process"

1377− "produce"

1378− "profit"

1379− "program"

1380− "project"

1381− "promote"

1382− "proof"

1383− "property"

1384− "prosper"

1385− "protect"

1386− "proud"

1387− "provide"

1388− "public"

1389− "pudding"

1390− "pull"

1391− "pulp"

1392− "pulse"

1393− "pumpkin"

1394− "punch"

1395− "pupil"

1396− "puppy"

1397− "purchase"

1398− "purity"

1399− "purpose"

1400− "purse"

1401− "push"

1402− "put"

1403− "puzzle"

1404− "pyramid"

1405− "quality"

1406− "quantum"

1407− "quarter"

1408− "question"

1409− "quick"

1410− "quit"

1411− "quiz"

1412− "quote"

1413− "rabbit"

1414− "raccoon"

1415− "race"

1416− "rack"

1417− "radar"

1418− "radio"

1419− "rail"

1420− "rain"

1421− "raise"

1422− "rally"

1423− "ramp"

1424− "ranch"

1425− "random"

1426− "range"

1427− "rapid"

1428− "rare"

1429− "rate"

1430− "rather"

1431− "raven"

1432− "raw"

1433− "razor"

1434− "ready"

1435− "real"

1436− "reason"

1437− "rebel"

1438− "rebuild"

1439− "recall"

1440− "receive"

1441− "recipe"

1442− "record"

1443− "recycle"

1444− "reduce"

1445− "reflect"

1446− "reform"

1447− "refuse"

1448− "region"

1449− "regret"

1450− "regular"

1451− "reject"

1452− "relax"

1453− "release"

1454− "relief"

1455− "rely"

1456− "remain"

1457− "remember"

1458− "remind"

1459− "remove"

1460− "render"

1461− "renew"

1462− "rent"

1463− "reopen"

1464− "repair"

1465− "repeat"

1466− "replace"

1467− "report"

1468− "require"

1469− "rescue"

1470− "resemble"

1471− "resist"

1472− "resource"

1473− "response"

1474− "result"

1475− "retire"

1476− "retreat"

1477− "return"

1478− "reunion"

1479− "reveal"

1480− "review"

1481− "reward"

1482− "rhythm"

1483− "rib"

1484− "ribbon"

1485− "rice"

1486− "rich"

1487− "ride"

1488− "ridge"

1489− "rifle"

1490− "right"

1491− "rigid"

1492− "ring"

1493− "riot"

1494− "ripple"

1495− "risk"

1496− "ritual"

1497− "rival"

1498− "river"

1499− "road"

1500− "roast"

1501− "robot"

1502− "robust"

1503− "rocket"

1504− "romance"

1505− "roof"

1506− "rookie"

1507− "room"

1508− "rose"

1509− "rotate"

1510− "rough"

1511− "round"

1512− "route"

1513− "royal"

1514− "rubber"

1515− "rude"

1516− "rug"

1517− "rule"

1518− "run"

1519− "runway"

1520− "rural"

1521− "sad"

1522− "saddle"

1523− "sadness"

1524− "safe"

1525− "sail"

1526− "salad"

1527− "salmon"

1528− "salon"

1529− "salt"

1530− "salute"

1531− "same"

1532− "sample"

1533− "sand"

1534− "satisfy"

1535− "satoshi"

1536− "sauce"

1537− "sausage"

1538− "save"

1539− "say"

1540− "scale"

1541− "scan"

1542− "scare"

1543− "scatter"

1544− "scene"

1545− "scheme"

1546− "school"

1547− "science"

1548− "scissors"

1549− "scorpion"

1550− "scout"

1551− "scrap"

1552− "screen"

1553− "script"

1554− "scrub"

1555− "sea"

1556− "search"

1557− "season"

1558− "seat"

1559− "second"

1560− "secret"

1561− "section"

1562− "security"

1563− "seed"

1564− "seek"

1565− "segment"

1566− "select"

1567− "sell"

1568− "seminar"

1569− "senior"

1570− "sense"

1571− "sentence"

1572− "series"

1573− "service"

1574− "session"

1575− "settle"

1576− "setup"

1577− "seven"

1578− "shadow"

1579− "shaft"

1580− "shallow"

1581− "share"

1582− "shed"

1583− "shell"

1584− "sheriff"

1585− "shield"

1586− "shift"

1587− "shine"

1588− "ship"

1589− "shiver"

1590− "shock"

1591− "shoe"

1592− "shoot"

1593− "shop"

1594− "short"

1595− "shoulder"

1596− "shove"

1597− "shrimp"

1598− "shrug"

1599− "shuffle"

1600− "shy"

1601− "sibling"

1602− "sick"

1603− "side"

1604− "siege"

1605− "sight"

1606− "sign"

1607− "silent"

1608− "silk"

1609− "silly"

1610− "silver"

1611− "similar"

1612− "simple"

1613− "since"

1614− "sing"

1615− "siren"

1616− "sister"

1617− "situate"

1618− "six"

1619− "size"

1620− "skate"

1621− "sketch"

1622− "ski"

1623− "skill"

1624− "skin"

1625− "skirt"

1626− "skull"

1627− "slab"

1628− "slam"

1629− "sleep"

1630− "slender"

1631− "slice"

1632− "slide"

1633− "slight"

1634− "slim"

1635− "slogan"

1636− "slot"

1637− "slow"

1638− "slush"

1639− "small"

1640− "smart"

1641− "smile"

1642− "smoke"

1643− "smooth"

1644− "snack"

1645− "snake"

1646− "snap"

1647− "sniff"

1648− "snow"

1649− "soap"

1650− "soccer"

1651− "social"

1652− "sock"

1653− "soda"

1654− "soft"

1655− "solar"

1656− "soldier"

1657− "solid"

1658− "solution"

1659− "solve"

1660− "someone"

1661− "song"

1662− "soon"

1663− "sorry"

1664− "sort"

1665− "soul"

1666− "sound"

1667− "soup"

1668− "source"

1669− "south"

1670− "space"

1671− "spare"

1672− "spatial"

1673− "spawn"

1674− "speak"

1675− "special"

1676− "speed"

1677− "spell"

1678− "spend"

1679− "sphere"

1680− "spice"

1681− "spider"

1682− "spike"

1683− "spin"

1684− "spirit"

1685− "split"

1686− "spoil"

1687− "sponsor"

1688− "spoon"

1689− "sport"

1690− "spot"

1691− "spray"

1692− "spread"

1693− "spring"

1694− "spy"

1695− "square"

1696− "squeeze"

1697− "squirrel"

1698− "stable"

1699− "stadium"

1700− "staff"

1701− "stage"

1702− "stairs"

1703− "stamp"

1704− "stand"

1705− "start"

1706− "state"

1707− "stay"

1708− "steak"

1709− "steel"

1710− "stem"

1711− "step"

1712− "stereo"

1713− "stick"

1714− "still"

1715− "sting"

1716− "stock"

1717− "stomach"

1718− "stone"

1719− "stool"

1720− "story"

1721− "stove"

1722− "strategy"

1723− "street"

1724− "strike"

1725− "strong"

1726− "struggle"

1727− "student"

1728− "stuff"

1729− "stumble"

1730− "style"

1731− "subject"

1732− "submit"

1733− "subway"

1734− "success"

1735− "such"

1736− "sudden"

1737− "suffer"

1738− "sugar"

1739− "suggest"

1740− "suit"

1741− "summer"

1742− "sun"

1743− "sunny"

1744− "sunset"

1745− "super"

1746− "supply"

1747− "supreme"

1748− "sure"

1749− "surface"

1750− "surge"

1751− "surprise"

1752− "surround"

1753− "survey"

1754− "suspect"

1755− "sustain"

1756− "swallow"

1757− "swamp"

1758− "swap"

1759− "swarm"

1760− "swear"

1761− "sweet"

1762− "swift"

1763− "swim"

1764− "swing"

1765− "switch"

1766− "sword"

1767− "symbol"

1768− "symptom"

1769− "syrup"

1770− "system"

1771− "table"

1772− "tackle"

1773− "tag"

1774− "tail"

1775− "talent"

1776− "talk"

1777− "tank"

1778− "tape"

1779− "target"

1780− "task"

1781− "taste"

1782− "tattoo"

1783− "taxi"

1784− "teach"

1785− "team"

1786− "tell"

1787− "ten"

1788− "tenant"

1789− "tennis"

1790− "tent"

1791− "term"

1792− "test"

1793− "text"

1794− "thank"

1795− "that"

1796− "theme"

1797− "then"

1798− "theory"

1799− "there"

1800− "they"

1801− "thing"

1802− "this"

1803− "thought"

1804− "three"

1805− "thrive"

1806− "throw"

1807− "thumb"

1808− "thunder"

1809− "ticket"

1810− "tide"

1811− "tiger"

1812− "tilt"

1813− "timber"

1814− "time"

1815− "tiny"

1816− "tip"

1817− "tired"

1818− "tissue"

1819− "title"

1820− "toast"

1821− "tobacco"

1822− "today"

1823− "toddler"

1824− "toe"

1825− "together"

1826− "toilet"

1827− "token"

1828− "tomato"

1829− "tomorrow"

1830− "tone"

1831− "tongue"

1832− "tonight"

1833− "tool"

1834− "tooth"

1835− "top"

1836− "topic"

1837− "topple"

1838− "torch"

1839− "tornado"

1840− "tortoise"

1841− "toss"

1842− "total"

1843− "tourist"

1844− "toward"

1845− "tower"

1846− "town"

1847− "toy"

1848− "track"

1849− "trade"

1850− "traffic"

1851− "tragic"

1852− "train"

1853− "transfer"

1854− "trap"

1855− "trash"

1856− "travel"

1857− "tray"

1858− "treat"

1859− "tree"

1860− "trend"

1861− "trial"

1862− "tribe"

1863− "trick"

1864− "trigger"

1865− "trim"

1866− "trip"

1867− "trophy"

1868− "trouble"

1869− "truck"

1870− "true"

1871− "truly"

1872− "trumpet"

1873− "trust"

1874− "truth"

1875− "try"

1876− "tube"

1877− "tuition"

1878− "tumble"

1879− "tuna"

1880− "tunnel"

1881− "turkey"

1882− "turn"

1883− "turtle"

1884− "twelve"

1885− "twenty"

1886− "twice"

1887− "twin"

1888− "twist"

1889− "two"

1890− "type"

1891− "typical"

1892− "ugly"

1893− "umbrella"

1894− "unable"

1895− "unaware"

1896− "uncle"

1897− "uncover"

1898− "under"

1899− "undo"

1900− "unfair"

1901− "unfold"

1902− "unhappy"

1903− "uniform"

1904− "unique"

1905− "unit"

1906− "universe"

1907− "unknown"

1908− "unlock"

1909− "until"

1910− "unusual"

1911− "unveil"

1912− "update"

1913− "upgrade"

1914− "uphold"

1915− "upon"

1916− "upper"

1917− "upset"

1918− "urban"

1919− "urge"

1920− "usage"

1921− "use"

1922− "used"

1923− "useful"

1924− "useless"

1925− "usual"

1926− "utility"

1927− "vacant"

1928− "vacuum"

1929− "vague"

1930− "valid"

1931− "valley"

1932− "valve"

1933− "van"

1934− "vanish"

1935− "vapor"

1936− "various"

1937− "vast"

1938− "vault"

1939− "vehicle"

1940− "velvet"

1941− "vendor"

1942− "venture"

1943− "venue"

1944− "verb"

1945− "verify"

1946− "version"

1947− "very"

1948− "vessel"

1949− "veteran"

1950− "viable"

1951− "vibrant"

1952− "vicious"

1953− "victory"

1954− "video"

1955− "view"

1956− "village"

1957− "vintage"

1958− "violin"

1959− "virtual"

1960− "virus"

1961− "visa"

1962− "visit"

1963− "visual"

1964− "vital"

1965− "vivid"

1966− "vocal"

1967− "voice"

1968− "void"

1969− "volcano"

1970− "volume"

1971− "vote"

1972− "voyage"

1973− "wage"

1974− "wagon"

1975− "wait"

1976− "walk"

1977− "wall"

1978− "walnut"

1979− "want"

1980− "warfare"

1981− "warm"

1982− "warrior"

1983− "wash"

1984− "wasp"

1985− "waste"

1986− "water"

1987− "wave"

1988− "way"

1989− "wealth"

1990− "weapon"

1991− "wear"

1992− "weasel"

1993− "weather"

1994− "web"

1995− "wedding"

1996− "weekend"

1997− "weird"

1998− "welcome"

1999− "west"

2000− "wet"

2001− "whale"

2002− "what"

2003− "wheat"

2004− "wheel"

2005− "when"

2006− "where"

2007− "whip"

2008− "whisper"

2009− "wide"

2010− "width"

2011− "wife"

2012− "wild"

2013− "will"

2014− "win"

2015− "window"

2016− "wine"

2017− "wing"

2018− "wink"

2019− "winner"

2020− "winter"

2021− "wire"

2022− "wisdom"

2023− "wise"

2024− "wish"

2025− "witness"

2026− "wolf"

2027− "woman"

2028− "wonder"

2029− "wood"

2030− "wool"

2031− "word"

2032− "work"

2033− "world"

2034− "worry"

2035− "worth"

2036− "wrap"

2037− "wreck"

2038− "wrestle"

2039− "wrist"

2040− "write"

2041− "wrong"

2042− "yard"

2043− "year"

2044− "yellow"

2045− "you"

2046− "young"

2047− "youth"

2048− "zebra"

2049− "zero"

2050− "zone"

2051− "zoo"

2052−==

base-desk/lib/bitcoin-utils.hoondeleted−177

@@ -1,177 +0,0 @@

1−:: lib/bitcoin-utils.hoon

2−:: Utilities for working with BTC data types and transactions

3−::

4−/- *bitcoin

5−~% %bitcoin-utils-lib ..part ~

6−|%

7−::

8−:: TODO: move this bit/byt stuff to zuse

9−:: bit/byte utilities

10−::

11−::

12−:: +blop: munge bit and byt sequences (cat, flip, take, drop)

13−::

14−++ blop

15− ~/ %blop

16− |_ =bloq

17− +$ biyts [wid=@ud dat=@]

18− ++ cat

19− |= bs=(list biyts)

20− ^- biyts

21− :- (roll (turn bs |=(b=biyts -.b)) add)

22− (can bloq (flop bs))

23− :: +flip: flip endianness while preserving lead/trail zeroes

24− ::

25− ++ flip

26− |= b=biyts

27− ^- biyts

28− [wid.b (rev bloq b)]

29− :: +take: take n bloqs from front

30− :: pads front with extra zeroes if n is longer than input

31− ::

32− ++ take

33− |= [n=@ b=biyts]

34− ^- biyts

35− ?: (gth n wid.b)

36− [n dat.b]

37− [n (rsh [bloq (sub wid.b n)] dat.b)]

38− :: +drop: drop n bloqs from front

39− :: returns 0^0 if n >= width

40− ::

41− ++ drop

42− |= [n=@ b=biyts]

43− ^- biyts

44− ?: (gte n wid.b)

45− 0^0x0

46− =+ n-take=(sub wid.b n)

47− [n-take (end [bloq n-take] dat.b)]

48− --

49−++ byt ~(. blop 3)

50−::

51−++ bit

52− ~/ %bit

53− =/ bl ~(. blop 0)

54− |%

55− ++ cat cat:bl:bit

56− ++ flip flip:bl:bit

57− ++ take take:bl:bit

58− ++ drop drop:bl:bit

59− ++ from-atoms

60− |= [bitwidth=@ digits=(list @)]

61− ^- bits

62− %- cat:bit

63− %+ turn digits

64− |= a=@

65− ?> (lte (met 0 a) bitwidth)

66− [bitwidth `@ub`a]

67− :: +to-atoms: convert bits to atoms of bitwidth

68− ::

69− ++ to-atoms

70− |= [bitwidth=@ bs=bits]

71− ^- (list @)

72− =| res=(list @)

73− ?> =(0 (mod wid.bs bitwidth))

74− |-

75− ?: =(0 wid.bs) res

76− %= $

77− res (snoc res dat:(take:bit bitwidth bs))

78− bs (drop:bit bitwidth bs)

79− ==

80− --

81−:: big endian sha256: input and output are both MSB first (big endian)

82−::

83−++ sha256

84− ~/ %sha256

85− |= =byts

86− ^- hexb

87− %- flip:byt

88− [32 (shay (flip:byt byts))]

89−::

90−++ dsha256

91− ~/ %dsha256

92− |= =byts

93− (sha256 (sha256 byts))

94−::

95−++ hash-160

96− ~/ %hash-160

97− |= val=byts

98− ^- hexb

99− =, ripemd:crypto

100− :- 20

101− %- ripemd-160

102− (sha256 val)

103−

104−::

105−:: hxb: hex parsing utilities

106−::

107−++ hxb

108− ~% %hxb ..blop ~

109− |%

110− ++ from-cord

111− ~/ %from-cord

112− |= h=@t

113− ^- hexb

114− ?: =('' h) 1^0x0

115− :: Add leading 00

116− ::

117− =+ (lsh [3 2] h)

118− :: Group by 4-size block

119− ::

120− =+ (rsh [3 2] -)

121− :: Parse hex to atom

122− ::

123− =/ a (need (de:base16:mimes:html -))

124− [-.a `@ux`+.a]

125− ::

126− ++ to-cord

127− ~/ %to-cord

128− |= =hexb

129− ^- cord

130− (en:base16:mimes:html hexb)

131− --

132−::

133−:: +csiz: CompactSize integers (a Bitcoin-specific datatype)

134−:: https://btcinformation.org/en/developer-reference#compactsize-unsigned-integers

135−:: - encode: big endian to little endian

136−:: - decode: little endian to big endian

137−::

138−++ csiz

139− ~% %csiz ..blop ~

140− |%

141− ++ en

142− ~/ %en

143− |= a=@

144− ^- hexb

145− =/ l=@ (met 3 a)

146− ?: =(l 0) 1^a

147− ?: =(l 1) 1^a

148− ?: =(l 2) (cat:byt ~[1^0xfd (flip:byt 2^a)])

149− ?: (lte l 4) (cat:byt ~[1^0xfe (flip:byt 4^a)])

150− ?: (lte l 8) (cat:byt ~[1^0xff (flip:byt 8^a)])

151− ~|("Cannot encode CompactSize longer than 8 bytes" !!)

152− ::

153− ++ de

154− ~/ %de

155− |= h=hexb

156− ^- [n=hexb rest=hexb]

157− =/ s=@ux dat:(take:byt 1 h)

158− ?: (lth s 0xfd) [1^s (drop:byt 1 h)]

159− ~| "Invalid compact-size at start of {<h>}"

160− =/ len=bloq

161− ?+ s !!

162− %0xfd 1

163− %0xfe 2

164− %0xff 3

165− ==

166− :_ (drop:byt (add 1 (bex len)) h)

167− %- flip:byt

168− (take:byt (bex len) (drop:byt 1 h))

169− :: +dea: atom instead of hexb for parsed CompactSize

170− ::

171− ++ dea

172− |= h=hexb

173− ^- [a=@ rest=hexb]

174− => (de h)

175− [dat.n rest]

176− --

177−--

base-desk/lib/cram.hoondeleted−61

@@ -1,61 +0,0 @@

1−|%

2−++ static :: freeze .mdh hoon subset

3− |= gen=hoon ^- [inf=(map term dime) elm=manx]

4− ?+ -.gen

5− =/ gen ~(open ap gen)

6− ?: =(gen ^gen) ~|([%cram-dynamic -.gen] !!)

7− $(gen gen)

8− ::

9− %xray [~ (single (shut gen))]

10− ^ [(malt (frontmatter p.gen)) (single (shut q.gen))]

11− ==

12−::

13−++ single :: unwrap one-elem marl

14− |= xml=marl ^- manx

15− ?: ?=([* ~] xml) i.xml

16− ~|(%many-elems !!)

17−::

18−++ shut-mart :: xml attrs

19− |=([n=mane v=(list beer:hoot)] [n (turn v |=(a=beer:hoot ?^(a !! a)))])

20−::

21−++ shut :: as xml constant

22− |= gen=hoon ^- marl

23− ?+ -.gen ~|([%bad-xml -.gen] !!)

24− %dbug $(gen q.gen)

25− ::

26− %xray

27− [[n.g.p.gen (turn a.g.p.gen shut-mart)] $(gen [%mcts c.p.gen])]~

28− ::

29− %mcts

30− ?~ p.gen ~

31− =- (weld - $(p.gen t.p.gen))

32− ?^ -.i.p.gen $(gen [%xray i.p.gen])

33− ~| [%shut-tuna -.i.p.gen]

34− ?+ -.i.p.gen !!

35− %manx ?>(?=(%xray -.p.i.p.gen) $(gen p.i.p.gen))

36− %marl ?>(?=(%mcts -.p.i.p.gen) $(gen p.i.p.gen))

37− ==

38− ==

39−::

40−::

41−++ frontmatter :: parse ~[[%foo 1] [%bar ~s2]]

42− |= gen=hoon ^- (list [term dime])

43− ?: ?=([%bust %null] gen) ~

44− ?: ?=(%dbug -.gen) $(gen q.gen)

45− ?. ?=(%clsg -.gen) ~|([%bad-frontmatter -.gen] !!)

46− %+ turn p.gen

47− |= gen=hoon

48− ?. ?=(^ -.gen)

49− =/ gen ~(open ap gen)

50− ?: =(gen ^gen) ~|([%bad-frontmatter-elem -.gen] !!)

51− $(gen gen)

52− =/ hed (as-dime p.gen)

53− ?. =(%tas p.hed) ~|([%bad-frontmatter-key-type p.hed] !!)

54− [q.hed (as-dime q.gen)]

55−::

56−++ as-dime :: %foo ~.foo 0vbar etc

57− |= gen=hoon ^- dime

58− ?: ?=(%dbug -.gen) $(gen q.gen)

59− ?. ?=([?(%rock %sand) @ @] gen) ~|([%bad-literal gen] !!)

60− +.gen

61−--

base-desk/lib/dbug.hoondeleted−161

@@ -1,161 +0,0 @@

1−:: dbug: agent wrapper for generic debugging tools

2−::

3−:: usage: %-(agent:dbug your-agent)

4−::

5−|%

6−+$ poke

7− $% [%skip depth=@ud =poke]

8− [%bowl ~]

9− [%state grab=cord]

10− [%incoming =about]

11− [%outgoing =about]

12− ==

13−::

14−+$ about

15− $@ ~

16− $% [%ship =ship]

17− [%path =path]

18− [%wire =wire]

19− [%term =term]

20− ==

21−::

22−++ agent

23− |= =agent:gall

24− ^- agent:gall

25− !.

26− |_ =bowl:gall

27− +* this .

28− ag ~(. agent bowl)

29− ::

30− ++ on-poke

31− |= [=mark =vase]

32− ^- (quip card:agent:gall agent:gall)

33− ?. ?=(%dbug mark)

34− =^ cards agent (on-poke:ag mark vase)

35− [cards this]

36− =/ dbug !<(poke vase)

37− =? dbug ?=([%skip %0 *] dbug) poke.dbug

38− ?: ?=(%skip -.dbug)

39− =^ cards agent

40− %+ on-poke:ag %dbug

41− !>(`poke`dbug(depth (dec depth.dbug)))

42− [cards this]

43− =; =tang

44− ((%*(. slog pri 1) tang) [~ this])

45− ?- -.dbug

46− %bowl [(sell !>(bowl))]~

47− ::

48− %state

49− =? grab.dbug =('' grab.dbug) '-'

50− =; product=^vase

51− [(sell product)]~

52− =/ state=^vase

53− :: if the underlying app has implemented a /dbug/state scry endpoint,

54− :: use that vase in place of +on-save's.

55− ::

56− =/ result=(each ^vase tang)

57− (mule |.(q:(need (need (on-peek:ag /x/dbug/state)))))

58− ?:(?=(%& -.result) p.result on-save:ag)

59− %+ slap

60− (slop state !>([bowl=bowl ..zuse]))

61− (ream grab.dbug)

62− ::

63− %incoming

64− =; =tang

65− ?^ tang tang

66− [%leaf "no matching subscriptions"]~

67− %+ murn

68− %+ sort ~(tap by sup.bowl)

69− |= [[* a=[=ship =path]] [* b=[=ship =path]]]

70− (aor [path ship]:a [path ship]:b)

71− |= [=duct [=ship =path]]

72− ^- (unit tank)

73− =; relevant=?

74− ?. relevant ~

75− `>[path=path from=ship duct=duct]<

76− ?: ?=(~ about.dbug) &

77− ?- -.about.dbug

78− %ship =(ship ship.about.dbug)

79− %path ?=(^ (find path.about.dbug path))

80− %wire %+ lien duct

81− |=(=wire ?=(^ (find wire.about.dbug wire)))

82− %term !!

83− ==

84− ::

85− %outgoing

86− =; =tang

87− ?^ tang tang

88− [%leaf "no matching subscriptions"]~

89− %+ murn

90− %+ sort ~(tap by wex.bowl)

91− |= [[[a=wire *] *] [[b=wire *] *]]

92− (aor a b)

93− |= [[=wire =ship =term] [acked=? =path]]

94− ^- (unit tank)

95− =; relevant=?

96− ?. relevant ~

97− `>[wire=wire agnt=[ship term] path=path ackd=acked]<

98− ?: ?=(~ about.dbug) &

99− ?- -.about.dbug

100− %ship =(ship ship.about.dbug)

101− %path ?=(^ (find path.about.dbug path))

102− %wire ?=(^ (find wire.about.dbug wire))

103− %term =(term term.about.dbug)

104− ==

105− ==

106− ::

107− ++ on-peek

108− |= =path

109− ^- (unit (unit cage))

110− ?. ?=([@ %dbug *] path)

111− (on-peek:ag path)

112− ?+ path [~ ~]

113− [%u %dbug ~] ``noun+!>(&)

114− [%x %dbug %state ~] ``noun+!>(on-save:ag)

115− [%x %dbug %subscriptions ~] ``noun+!>([wex sup]:bowl)

116− ==

117− ::

118− ++ on-init

119− ^- (quip card:agent:gall agent:gall)

120− =^ cards agent on-init:ag

121− [cards this]

122− ::

123− ++ on-save on-save:ag

124− ::

125− ++ on-load

126− |= old-state=vase

127− ^- (quip card:agent:gall agent:gall)

128− =^ cards agent (on-load:ag old-state)

129− [cards this]

130− ::

131− ++ on-watch

132− |= =path

133− ^- (quip card:agent:gall agent:gall)

134− =^ cards agent (on-watch:ag path)

135− [cards this]

136− ::

137− ++ on-leave

138− |= =path

139− ^- (quip card:agent:gall agent:gall)

140− =^ cards agent (on-leave:ag path)

141− [cards this]

142− ::

143− ++ on-agent

144− |= [=wire =sign:agent:gall]

145− ^- (quip card:agent:gall agent:gall)

146− =^ cards agent (on-agent:ag wire sign)

147− [cards this]

148− ::

149− ++ on-arvo

150− |= [=wire =sign-arvo]

151− ^- (quip card:agent:gall agent:gall)

152− =^ cards agent (on-arvo:ag wire sign-arvo)

153− [cards this]

154− ::

155− ++ on-fail

156− |= [=term =tang]

157− ^- (quip card:agent:gall agent:gall)

158− =^ cards agent (on-fail:ag term tang)

159− [cards this]

160− --

161−--

base-desk/lib/default-agent.hoondeleted−69

@@ -1,69 +0,0 @@

1−/+ skeleton

2−|* [agent=* help=*]

3−?: ?=(%& help)

4− ~| %default-agent-helpfully-crashing

5− skeleton

6−|_ =bowl:gall

7−++ on-init

8− `agent

9−::

10−++ on-save

11− !>(~)

12−::

13−++ on-load

14− |= old-state=vase

15− `agent

16−::

17−++ on-poke

18− |= =cage

19− ~| "unexpected poke to {<dap.bowl>} with mark {<p.cage>}"

20− !!

21−::

22−++ on-watch

23− |= =path

24− ~| "unexpected subscription to {<dap.bowl>} on path {<path>}"

25− !!

26−::

27−++ on-leave

28− |= path

29− `agent

30−::

31−++ on-peek

32− |= =path

33− ~| "unexpected scry into {<dap.bowl>} on path {<path>}"

34− !!

35−::

36−++ on-agent

37− |= [=wire =sign:agent:gall]

38− ^- (quip card:agent:gall _agent)

39− ?- -.sign

40− %poke-ack

41− ?~ p.sign

42− `agent

43− %- (slog leaf+"poke failed from {<dap.bowl>} on wire {<wire>}" u.p.sign)

44− `agent

45− ::

46− %watch-ack

47− ?~ p.sign

48− `agent

49− =/ =tank leaf+"subscribe failed from {<dap.bowl>} on wire {<wire>}"

50− %- (slog tank u.p.sign)

51− `agent

52− ::

53− %kick `agent

54− %fact

55− ~| "unexpected subscription update to {<dap.bowl>} on wire {<wire>}"

56− ~| "with mark {<p.cage.sign>}"

57− !!

58− ==

59−::

60−++ on-arvo

61− |= [=wire =sign-arvo]

62− ~| "unexpected system response {<-.sign-arvo>} to {<dap.bowl>} on wire {<wire>}"

63− !!

64−::

65−++ on-fail

66− |= [=term =tang]

67− %- (slog leaf+"error in {<dap.bowl>}" >term< tang)

68− `agent

69−--

base-desk/lib/der.hoondeleted−210

@@ -1,210 +0,0 @@

1−/- asn1

2−:: |der: distinguished encoding rules for ASN.1

3−::

4−:: DER is a tag-length-value binary encoding for ASN.1, designed

5−:: so that there is only one (distinguished) valid encoding for an

6−:: instance of a type.

7−::

8−|%

9−:: +en:der: encode +spec:asn1 to +octs (kindof)

10−::

11−++ en

12− =< |= a=spec:asn1

13− ^- [len=@ud dat=@ux]

14− =/ b ~(ren raw a)

15− [(lent b) (rep 3 b)]

16− |%

17− :: +raw:en:der: door for encoding +spec:asn1 to list of bytes

18− ::

19− ++ raw

20− |_ pec=spec:asn1

21− :: +ren:raw:en:der: render +spec:asn1 to tag-length-value bytes

22− ::

23− ++ ren

24− ^- (list @D)

25− =/ a lem

26− [tag (weld (len a) a)]

27− :: +tag:raw:en:der: tag byte

28− ::

29− ++ tag

30− ^- @D

31− ?- pec

32− [%int *] 2

33− [%bit *] 3

34− [%oct *] 4

35− [%nul *] 5

36− [%obj *] 6

37− [%seq *] 48 :: constructed: (con 0x20 16)

38− [%set *] 49 :: constructed: (con 0x20 17)

39− [%con *] ;: con

40− 0x80 :: context-specifc

41− ?:(imp.bes.pec 0 0x20) :: implicit?

42− (dis 0x1f tag.bes.pec) :: 5 bits of custom tag

43− ==

44− ==

45− :: +lem:raw:en:der: element bytes

46− ::

47− ++ lem

48− ^- (list @D)

49− ?- pec

50− :: unsigned only, interpreted as positive-signed and

51− :: rendered in big-endian byte order. negative-signed would

52− :: be two's complement

53− ::

54− [%int *] =/ a (flop (rip 3 int.pec))

55− ?~ a [0 ~]

56− ?:((lte i.a 127) a [0 a])

57− :: padded to byte-width, must be already byte-aligned

58− ::

59− [%bit *] =/ a (rip 3 bit.pec)

60− =/ b ~| %der-invalid-bit

61− ?. =(0 (mod len.pec 8))

62− ~|(%der-invalid-bit-alignment !!)

63− (sub (div len.pec 8) (lent a))

64− [0 (weld a (reap b 0))]

65− :: padded to byte-width

66− ::

67− [%oct *] =/ a (rip 3 oct.pec)

68− =/ b ~| %der-invalid-oct

69− (sub len.pec (lent a))

70− (weld a (reap b 0))

71− ::

72− [%nul *] ~

73− [%obj *] (rip 3 obj.pec)

74− ::

75− [%seq *] %- zing

76− |- ^- (list (list @))

77− ?~ seq.pec ~

78− :- ren(pec i.seq.pec)

79− $(seq.pec t.seq.pec)

80− :: presumed to be already deduplicated and sorted

81− ::

82− [%set *] %- zing

83− |- ^- (list (list @))

84− ?~ set.pec ~

85− :- ren(pec i.set.pec)

86− $(set.pec t.set.pec)

87− :: already constructed

88− ::

89− [%con *] con.pec

90− ==

91− :: +len:raw:en:der: length bytes

92− ::

93− ++ len

94− |= a=(list @D)

95− ^- (list @D)

96− =/ b (lent a)

97− ?: (lte b 127)

98− [b ~] :: note: big-endian

99− [(con 0x80 (met 3 b)) (flop (rip 3 b))]

100− --

101− --

102−:: +de:der: decode atom to +spec:asn1

103−::

104−++ de

105− |= [len=@ud dat=@ux]

106− ^- (unit spec:asn1)

107− :: XX refactor into +parse

108− =/ a (rip 3 dat)

109− =/ b ~| %der-invalid-len

110− (sub len (lent a))

111− (rust `(list @D)`(weld a (reap b 0)) parse)

112−:: +parse:der: DER parser combinator

113−::

114−++ parse

115− =< ^- $-(nail (like spec:asn1))

116− ;~ pose

117− (stag %int (bass 256 (sear int ;~(pfix (tag 2) till))))

118− (stag %bit (sear bit (boss 256 ;~(pfix (tag 3) till))))

119− (stag %oct (boss 256 ;~(pfix (tag 4) till)))

120− (stag %nul (cold ~ ;~(plug (tag 5) (tag 0))))

121− (stag %obj (^boss 256 ;~(pfix (tag 6) till)))

122− (stag %seq (sear recur ;~(pfix (tag 48) till)))

123− (stag %set (sear recur ;~(pfix (tag 49) till)))

124− (stag %con ;~(plug (sear context next) till))

125− ==

126− |%

127− :: +tag:parse:der: parse tag byte

128− ::

129− ++ tag

130− |=(a=@D (just a))

131− :: +int:parse:der: sear unsigned big-endian bytes

132− ::

133− ++ int

134− |= a=(list @D)

135− ^- (unit (list @D))

136− ?~ a ~

137− ?: ?=([@ ~] a) `a

138− ?. =(0 i.a) `a

139− ?.((gth i.t.a 127) ~ `t.a)

140− :: +bit:parse:der: convert bytewidth to bitwidth

141− ::

142− ++ bit

143− |= [len=@ud dat=@ux]

144− ^- (unit [len=@ud dat=@ux])

145− ?. =(0 (end 3 dat)) ~

146− :+ ~

147− (mul 8 (dec len))

148− (rsh 3 dat)

149− :: +recur:parse:der: parse bytes for a list of +spec:asn1

150− ::

151− ++ recur

152− |=(a=(list @) (rust a (star parse)))

153− :: +context:parse:der: decode context-specific tag byte

154− ::

155− ++ context

156− |= a=@D

157− ^- (unit bespoke:asn1)

158− ?. =(1 (cut 0 [7 1] a)) ~

159− :+ ~

160− =(1 (cut 0 [5 1] a))

161− (dis 0x1f a)

162− :: +boss:parse:der: shadowed to count as well

163− ::

164− :: Use for parsing +octs more broadly?

165− ::

166− ++ boss

167− |* [wuc=@ tyd=rule]

168− %+ cook

169− |= waq=(list @)

170− :- (lent waq)

171− (reel waq |=([p=@ q=@] (add p (mul wuc q))))

172− tyd

173− :: +till:parse:der: parser combinator for len-prefixed bytes

174− ::

175− :: advance until

176− ::

177− ++ till

178− |= tub=nail

179− ^- (like (list @D))

180− ?~ q.tub

181− (fail tub)

182− :: fuz: first byte - length, or length of the length

183− ::

184− =* fuz i.q.tub

185− :: nex: offset of value bytes from fuz

186− :: len: length of value bytes

187− ::

188− =/ [nex=@ len=@]

189− :: faz: meaningful bits in fuz

190− ::

191− =/ faz (end [0 7] fuz)

192− ?: =(0 (cut 0 [7 1] fuz))

193− [0 faz]

194− [faz (rep 3 (flop (scag faz t.q.tub)))]

195− ?: ?& !=(0 nex)

196− !=(nex (met 3 len))

197− ==

198− (fail tub)

199− :: zuf: value bytes

200− ::

201− =/ zuf (swag [nex len] t.q.tub)

202− ?. =(len (lent zuf))

203− (fail tub)

204− :: zaf: product nail

205− ::

206− =/ zaf [p.p.tub (add +(nex) q.p.tub)]

207− [zaf `[zuf zaf (slag (add nex len) t.q.tub)]]

208− --

209−--

210−

base-desk/lib/dill.hoondeleted−94

@@ -1,94 +0,0 @@

1−:: dill: utilities for dill's data structures

2−::

3−=, dill

4−|%

5−++ enjs

6− |%

7− ++ blit

8− |= =blit:dill

9− ^- json

10− =, enjs:format

11− %+ frond -.blit

12− ?- -.blit

13− %bel b+&

14− %clr b+&

15− %hop ?@ p.blit (numb p.blit)

16− (pairs 'x'^(numb x.p.blit) 'y'^(numb y.p.blit) ~)

17− %put a+(turn p.blit |=(c=@c s+(tuft c)))

18− %nel b+&

19− %url s+p.blit

20− %wyp b+&

21− %mor a+(turn p.blit ^blit)

22− ::

23− %sag

24− %- pairs

25− :~ 'path'^(path p.blit)

26− 'file'^s+(en:base64:mimes:html (as-octs:mimes:html (jam q.blit)))

27− ==

28− ::

29− %sav

30− %- pairs

31− :~ 'path'^(path p.blit)

32− 'file'^s+(en:base64:mimes:html (as-octs:mimes:html q.blit))

33− ==

34− ::

35− %klr

36− :- %a

37− %+ turn p.blit

38− |= [=stye text=(list @c)]

39− %- pairs

40− :~ 'text'^a+(turn text |=(c=@c s+(tuft c)))

41− ::

42− :- 'stye'

43− %- pairs

44− |^ :~ 'back'^(color p.q.stye)

45− 'fore'^(color q.q.stye)

46− 'deco'^a+(turn ~(tap in p.stye) |=(d=deco ?~(d ~ s+d)))

47− ==

48− ++ color

49− |= =tint

50− ?@ tint ?~(tint ~ s+tint)

51− =, tint

52− (pairs r+(numb r) g+(numb g) b+(numb b) ~)

53− --

54− ==

55− ==

56− --

57−::

58−++ dejs

59− |%

60− ++ belt

61− |= jon=json

62− ^- belt:dill

63− ?: ?=([%s *] jon)

64− (taft p.jon)

65− =, dejs:format

66− %. jon

67− %- of

68− |^ :* mod+(ot 'mod'^mod 'key'^bot ~)

69− txt+(ar (cu taft so))

70− bol

71− ==

72− ::

73− ++ bol

74− :~ aro+(su (perk %d %l %r %u ~))

75− bac+ul

76− del+ul

77− hit+(ot 'x'^ni 'y'^ni ~)

78− ret+ul

79− ==

80− ::

81− ++ bot

82− |= j=json

83− ^- bolt:dill

84− ?+ j !!

85− [%s *] (taft p.j)

86− [%o *] ((of bol) j)

87− ==

88− ::

89− ++ mod

90− |= j=json

91− ((su (perk %ctl %met %hyp ~)) j)

92− --

93− --

94−--

base-desk/lib/docket.hoondeleted−223

@@ -1,223 +0,0 @@

1−/- *docket

2−|%

3−::

4−++ mime

5− |%

6− +$ draft

7− $: title=(unit @t)

8− info=(unit @t)

9− color=(unit @ux)

10− glob-http=(unit [=url hash=@uvH])

11− glob-ames=(unit [=ship hash=@uvH])

12− base=(unit term)

13− site=(unit path)

14− image=(unit url)

15− version=(unit version)

16− website=(unit url)

17− license=(unit cord)

18− ==

19− ::

20− ++ finalize

21− |= =draft

22− ^- (unit docket)

23− ?~ title.draft ~

24− ?~ info.draft ~

25− ?~ color.draft ~

26− ?~ version.draft ~

27− ?~ website.draft ~

28− ?~ license.draft ~

29− =/ href=(unit href)

30− ?^ site.draft `[%site u.site.draft]

31− ?~ base.draft ~

32− ?^ glob-http.draft

33− `[%glob u.base hash.u.glob-http %http url.u.glob-http]:draft

34− ?~ glob-ames.draft

35− ~

36− `[%glob u.base hash.u.glob-ames %ames ship.u.glob-ames]:draft

37− ?~ href ~

38− =, draft

39− :- ~

40− :* %1

41− u.title

42− u.info

43− u.color

44− u.href

45− image

46− u.version

47− u.website

48− u.license

49− ==

50− ::

51− ++ from-clauses

52− =| =draft

53− |= cls=(list clause)

54− ^- (unit docket)

55− =* loop $

56− ?~ cls (finalize draft)

57− =* clause i.cls

58− =. draft

59− ?- -.clause

60− %title draft(title `title.clause)

61− %info draft(info `info.clause)

62− %color draft(color `color.clause)

63− %glob-http draft(glob-http `[url hash]:clause)

64− %glob-ames draft(glob-ames `[ship hash]:clause)

65− %base draft(base `base.clause)

66− %site draft(site `path.clause)

67− %image draft(image `url.clause)

68− %version draft(version `version.clause)

69− %website draft(website `website.clause)

70− %license draft(license `license.clause)

71− ==

72− loop(cls t.cls)

73− ::

74− ++ to-clauses

75− |= d=docket

76− ^- (list clause)

77− %- zing

78− :~ :~ title+title.d

79− info+info.d

80− color+color.d

81− version+version.d

82− website+website.d

83− license+license.d

84− ==

85− ?~ image.d ~ ~[image+u.image.d]

86− ?: ?=(%site -.href.d) ~[site+path.href.d]

87− =/ ref=glob-reference glob-reference.href.d

88− :~ base+base.href.d

89− ?- -.location.ref

90− %http [%glob-http url.location.ref hash.ref]

91− %ames [%glob-ames ship.location.ref hash.ref]

92− == == ==

93− ::

94− ++ spit-clause

95− |= =clause

96− ^- tape

97− %+ weld " {(trip -.clause)}+"

98− ?+ -.clause "'{(trip +.clause)}'"

99− %color (scow %ux color.clause)

100− %site (spud path.clause)

101− ::

102− %glob-http

103− "['{(trip url.clause)}' {(scow %uv hash.clause)}]"

104− ::

105− %glob-ames

106− "[{(scow %p ship.clause)} {(scow %uv hash.clause)}]"

107− ::

108− %version

109− =, version.clause

110− "[{(scow %ud major)} {(scow %ud minor)} {(scow %ud patch)}]"

111− ==

112− ::

113− ++ spit-docket

114− |= dock=docket

115− ^- tape

116− ;: welp

117− ":~\0a"

118− `tape`(zing (join "\0a" (turn (to-clauses dock) spit-clause)))

119− "\0a=="

120− ==

121− --

122−::

123−++ enjs

124− =, enjs:format

125− |%

126− ::

127− ++ charge-update

128− |= u=^charge-update

129− ^- json

130− %+ frond -.u

131− ^- json

132− ?- -.u

133− %del-charge s+desk.u

134− ::

135− %initial

136− %- pairs

137− %+ turn ~(tap by initial.u)

138− |=([=desk c=^charge] [desk (charge c)])

139− ::

140− %add-charge

141− %- pairs

142− :~ desk+s+desk.u

143− charge+(charge charge.u)

144− ==

145− ==

146− ::

147− ++ num

148− |= a=@u

149− ^- ^tape

150− =/ p=json (numb a)

151− ?> ?=(%n -.p)

152− (trip p.p)

153− ::

154− ++ version

155− |= v=^version

156− ^- json

157− :- %s

158− %- crip

159− "{(num major.v)}.{(num minor.v)}.{(num patch.v)}"

160− ::

161− ++ merge

162− |= [a=json b=json]

163− ^- json

164− ?> &(?=(%o -.a) ?=(%o -.b))

165− [%o (~(uni by p.a) p.b)]

166− ::

167− ++ href

168− |= h=^href

169− %+ frond -.h

170− ?- -.h

171− %site s+(spat path.h)

172− %glob

173− %- pairs

174− :~ base+s+base.h

175− glob-reference+(glob-reference glob-reference.h)

176− ==

177− ==

178− ::

179− ++ glob-reference

180− |= ref=^glob-reference

181− %- pairs

182− :~ hash+s+(scot %uv hash.ref)

183− location+(glob-location location.ref)

184− ==

185− ::

186− ++ glob-location

187− |= loc=^glob-location

188− ^- json

189− %+ frond -.loc

190− ?- -.loc

191− %http s+url.loc

192− %ames s+(scot %p ship.loc)

193− ==

194− ::

195− ++ charge

196− |= c=^charge

197− %+ merge (docket docket.c)

198− %- pairs

199− :~ chad+(chad chad.c)

200− ==

201− ::

202− ++ docket

203− |= d=^docket

204− ^- json

205− %- pairs

206− :~ title+s+title.d

207− info+s+info.d

208− color+s+(scot %ux color.d)

209− href+(href href.d)

210− image+?~(image.d ~ s+u.image.d)

211− version+(version version.d)

212− license+s+license.d

213− website+s+website.d

214− ==

215− ::

216− ++ chad

217− |= c=^chad

218− %+ frond -.c

219− ?+ -.c ~

220− %hung s+err.c

221− ==

222− --

223−--

base-desk/lib/ethereum.hoondeleted−1006

@@ -1,1006 +0,0 @@

1−:: ethereum: utilities

2−::

3−=, ethereum-types

4−|%

5−:: deriving and using ethereum keys

6−::

7−++ key

8− |%

9− ++ address-from-pub

10− =, keccak:crypto

11− |= pub=@

12− %+ end [3 20]

13− %+ keccak-256 64

14− (rev 3 64 pub)

15− ::

16− ++ address-from-prv

17− (cork pub-from-prv address-from-pub)

18− ::

19− ++ pub-from-prv

20− =, secp256k1:secp:crypto

21− |= prv=@

22− %- serialize-point

23− (priv-to-pub prv)

24− ::

25− ++ sign-typed-transaction

26− |= [tx=typed-transaction:rpc pk=@]

27− ^- @ux

28− =- (cat 3 - -.tx)

29− ?- -.tx

30− %0x0 (sign-transaction +.tx pk)

31− %0x2 (sign-transaction-1559 +.tx pk)

32− ==

33− ::

34− ++ sign-transaction

35− =, crypto

36− |= [tx=transaction:rpc pk=@]

37− |^ ^- @ux

38− :: hash the raw transaction data

39− =/ hash=@

40− %- keccak-256:keccak

41− =+ dat=(encode chain-id.tx 0 0)

42− =+ wid=(met 3 dat)

43− [wid (rev 3 wid dat)]

44− :: sign transaction hash with private key

45− =+ (ecdsa-raw-sign:secp256k1:secp hash pk)

46− :: complete transaction is raw data, with r and s

47− :: taken from the signature, and v as per eip-155

48− (encode :(add (mul chain-id.tx 2) 35 v) r s)

49− ::

50− ++ encode

51− |= [v=@ r=@ s=@]

52− %+ encode:rlp %l

53− tx(to b+20^to.tx, chain-id [v r s ~])

54− --

55− ::

56− ++ sign-transaction-1559

57− =, crypto

58− |= [tx=transaction-1559:rpc pk=@]

59− |^ ^- @ux

60− =; hash=@

61− =+ (ecdsa-raw-sign:secp256k1:secp hash pk)

62− ::NOTE we retrieve y's parity from the v value

63− (encode-1559 ~ (end 0 v) r s)

64− :: hash the raw transaction data including leading 0x2

65− %- keccak-256:keccak

66− =+ dat=(cat 3 (encode-1559 ~) 0x2)

67− =+ wid=(met 3 dat)

68− [wid (rev 3 wid dat)]

69− ::

70− ++ encode-1559

71− |= sig=(unit [y=@ r=@ s=@])

72− %+ encode:rlp %l

73− =, tx

74− :* chain-id

75− nonce

76− max-priority-gas-fee

77− max-gas-fee

78− gas

79− b+20^to

80− value

81− data

82− ::

83− :- %l

84− %+ turn ~(tap by access-list)

85− |= [a=address b=(list @ux)]

86− l+~[b+20^a l+(turn b |=(c=@ux b+32^c))]

87− ::

88− ?~ sig ~

89− ~[y r s]:u.sig

90− ==

91− --

92− --

93−::

94−:: rlp en/decoding

95−::NOTE https://eth.wiki/en/fundamentals/rlp

96−::

97−++ rlp

98− |%

99− ::NOTE rlp encoding doesn't really care about leading zeroes,

100− :: but because we need to disinguish between no-bytes zero

101− :: and one-byte zero (and also empty list) we end up with

102− :: this awful type...

103− +$ item

104− $@ @

105− $% [%l l=(list item)]

106− [%b b=byts]

107− ==

108− :: +encode-atoms: encode list of atoms as a %l of %b items

109− ::

110− ++ encode-atoms ::NOTE deprecated

111− |= l=(list @)

112− ^- @

113− (encode l+l)

114− ::

115− ++ encode

116− |= in=item

117− |^ ^- @

118− ?- in

119− @

120− $(in [%b (met 3 in) in])

121− ::

122− [%b *]

123− ?: &(=(1 wid.b.in) (lte dat.b.in 0x7f))

124− dat.b.in

125− =- (can 3 ~[b.in [(met 3 -) -]])

126− (encode-length wid.b.in 0x80)

127− ::

128− [%l *]

129− :: we +can because b+1^0x0 encodes to 0x00

130− ::

131− =/ l=(list byts)

132− %+ turn l.in

133− |= ni=item

134− =+ (encode ni)

135− [(max 1 (met 3 -)) -]

136− %+ can 3

137− %- flop

138− =- [(met 3 -)^- l]

139− (encode-length (roll (turn l head) add) 0xc0)

140− ==

141− ::

142− ++ encode-length

143− |= [len=@ off=@]

144− ?: (lth len 56) (add len off)

145− =- (cat 3 len -)

146− :(add (met 3 len) off 55)

147− --

148− :: +decode-atoms: decode expecting a %l of %b items, producing atoms within

149− ::

150− ++ decode-atoms

151− |= dat=@

152− ^- (list @)

153− =/ i=item (decode dat)

154− ~| [%unexpected-data i]

155− ?> ?=(%l -.i)

156− %+ turn l.i

157− |= i=item

158− ~| [%unexpected-list i]

159− ?> ?=(%b -.i)

160− dat.b.i

161− ::

162− ++ decode

163− |= dat=@

164− ^- item

165− =/ bytes=(list @) (flop (rip 3 dat))

166− =? bytes ?=(~ bytes) ~[0]

167− |^ item:decode-head

168− ::

169− ++ decode-head

170− ^- [done=@ud =item]

171− ?~ bytes

172− ~| %rlp-unexpected-end

173− !!

174− =* byt i.bytes

175− :: byte in 0x00-0x79 range encodes itself

176− ::

177− ?: (lte byt 0x79)

178− :- 1

179− [%b 1^byt]

180− :: byte in 0x80-0xb7 range encodes string length

181− ::

182− ?: (lte byt 0xb7)

183− =+ len=(sub byt 0x80)

184− :- +(len)

185− :- %b

186− len^(get-value 1 len)

187− :: byte in 0xb8-0xbf range encodes string length length

188− ::

189− ?: (lte byt 0xbf)

190− =+ led=(sub byt 0xb7)

191− =+ len=(get-value 1 led)

192− :- (add +(led) len)

193− :- %b

194− len^(get-value +(led) len)

195− :: byte in 0xc0-f7 range encodes list length

196− ::

197− ?: (lte byt 0xf7)

198− =+ len=(sub byt 0xc0)

199− :- +(len)

200− :- %l

201− %. len

202− decode-list(bytes (slag 1 `(list @)`bytes))

203− :: byte in 0xf8-ff range encodes list length length

204− ::

205− ?: (lte byt 0xff)

206− =+ led=(sub byt 0xf7)

207− =+ len=(get-value 1 led)

208− :- (add +(led) len)

209− :- %l

210− %. len

211− decode-list(bytes (slag +(led) `(list @)`bytes))

212− ~| [%rip-not-bloq-3 `@ux`byt]

213− !!

214− ::

215− ++ decode-list

216− |= rem=@ud

217− ^- (list item)

218− ?: =(0 rem) ~

219− =+ ^- [don=@ud =item] ::TODO =/

220− decode-head

221− :- item

222− %= $

223− rem (sub rem don)

224− bytes (slag don bytes)

225− ==

226− ::

227− ++ get-value

228− |= [at=@ud to=@ud]

229− ^- @

230− (rep 3 (flop (swag [at to] bytes)))

231− --

232− --

233−::

234−:: abi en/decoding

235−::NOTE https://solidity.readthedocs.io/en/develop/abi-spec.html

236−::

237−++ abi

238− => |%

239− :: solidity types. integer bitsizes ignored

240− ++ etyp

241− $@ $? :: static

242− %address %bool

243− %int %uint

244− %real %ureal

245− :: dynamic

246− %bytes %string

247− ==

248− $% :: static

249− [%bytes-n n=@ud]

250− :: dynamic

251− [%array-n t=etyp n=@ud]

252− [%array t=etyp]

253− ==

254− ::

255− :: solidity-style typed data. integer bitsizes ignored

256− ++ data

257− $% [%address p=address]

258− [%string p=tape]

259− [%bool p=?]

260− [%int p=@sd]

261− [%uint p=@ud]

262− [%real p=@rs]

263− [%ureal p=@urs]

264− [%array-n p=(list data)]

265− [%array p=(list data)]

266− [%bytes-n p=octs] ::TODO just @, because context knows length?

267− [%bytes p=octs]

268− ==

269− --

270− =, mimes:html

271− |%

272− :: encoding

273− ::

274− ++ encode-args

275− :: encode list of arguments.

276− ::

277− |= das=(list data)

278− ^- tape

279− (encode-data [%array-n das])

280− ::

281− ++ encode-data

282− :: encode typed data into ABI bytestring.

283− ::

284− |= dat=data

285− ^- tape

286− ?+ -.dat

287− ~| [%unsupported-type -.dat]

288− !!

289− ::

290− %array-n

291− :: enc(X) = head(X[0]) ... head(X[k-1]) tail(X[0]) ... tail(X[k-1])

292− :: where head and tail are defined for X[i] being of a static type as

293− :: head(X[i]) = enc(X[i]) and tail(X[i]) = "" (the empty string), or as

294− :: head(X[i]) = enc(len( head(X[0])..head(X[k-1])

295− :: tail(X[0])..tail(X[i-1]) ))

296− :: and tail(X[i]) = enc(X[i]) otherwise.

297− ::

298− :: so: if it's a static type, data goes in the head. if it's a dynamic

299− :: type, a reference goes into the head and data goes into the tail.

300− ::

301− :: in the head, we first put a placeholder where references need to go.

302− =+ hol=(reap 64 'x')

303− =/ hes=(list tape)

304− %+ turn p.dat

305− |= d=data

306− ?. (is-dynamic-type d) ^$(dat d)

307− hol

308− =/ tas=(list tape)

309− %+ turn p.dat

310− |= d=data

311− ?. (is-dynamic-type d) ""

312− ^$(dat d)

313− :: once we know the head and tail, we can fill in the references in head.

314− =- (weld nes `tape`(zing tas))

315− ^- [@ud nes=tape]

316− =+ led=(lent (zing hes))

317− %+ roll hes

318− |= [t=tape i=@ud nes=tape]

319− :- +(i)

320− :: if no reference needed, just put the data.

321− ?. =(t hol) (weld nes t)

322− :: calculate byte offset of data we need to reference.

323− =/ ofs=@ud

324− =- (div - 2) :: two hex digits per byte.

325− %+ add led :: count head, and

326− %- lent %- zing :: count all tail data

327− (scag i tas) :: preceding ours.

328− =+ ref=^$(dat [%uint ofs])

329− :: shouldn't hit this unless we're sending over 2gb of data?

330− ~| [%weird-ref-lent (lent ref)]

331− ?> =((lent ref) (lent hol))

332− (weld nes ref)

333− ::

334− %array :: where X has k elements (k is assumed to be of type uint256):

335− :: enc(X) = enc(k) enc([X[1], ..., X[k]])

336− :: i.e. it is encoded as if it were an array of static size k, prefixed

337− :: with the number of elements.

338− %+ weld $(dat [%uint (lent p.dat)])

339− $(dat [%array-n p.dat])

340− ::

341− %bytes-n

342− :: enc(X) is the sequence of bytes in X padded with zero-bytes to a

343− :: length of 32.

344− :: Note that for any X, len(enc(X)) is a multiple of 32.

345− ~| [%bytes-n-too-long max=32 actual=p.p.dat]

346− ?> (lte p.p.dat 32)

347− (pad-to-multiple (render-hex-bytes p.dat) 64 %right)

348− ::

349− %bytes :: of length k (which is assumed to be of type uint256)

350− :: enc(X) = enc(k) pad_right(X), i.e. the number of bytes is encoded as a

351− :: uint256 followed by the actual value of X as a byte sequence, followed

352− :: by the minimum number of zero-bytes such that len(enc(X)) is a

353− :: multiple of 32.

354− %+ weld $(dat [%uint p.p.dat])

355− (pad-to-multiple (render-hex-bytes p.dat) 64 %right)

356− ::

357− %string

358− :: enc(X) = enc(enc_utf8(X)), i.e. X is utf-8 encoded and this value is

359− :: interpreted as of bytes type and encoded further. Note that the length

360− :: used in this subsequent encoding is the number of bytes of the utf-8

361− :: encoded string, not its number of characters.

362− $(dat [%bytes (lent p.dat) (swp 3 (crip p.dat))])

363− ::

364− %uint

365− :: enc(X) is the big-endian encoding of X, padded on the higher-order

366− :: (left) side with zero-bytes such that the length is a multiple of 32

367− :: bytes.

368− (pad-to-multiple (render-hex-bytes (as-octs p.dat)) 64 %left)

369− ::

370− %bool

371− :: as in the uint8 case, where 1 is used for true and 0 for false

372− $(dat [%uint ?:(p.dat 1 0)])

373− ::

374− %address

375− :: as in the uint160 case

376− $(dat [%uint `@ud`p.dat])

377− ==

378− ::

379− ++ is-dynamic-type

380− |= a=data

381− ?. ?=(%array-n -.a)

382− ?=(?(%string %bytes %array) -.a)

383− &(!=((lent p.a) 0) (lien p.a is-dynamic-type))

384− ::

385− :: decoding

386− ::

387− ++ decode-topics decode-arguments

388− ::

389− ++ decode-results

390− :: rex: string of hex bytes with leading 0x.

391− |* [rex=@t tys=(list etyp)]

392− =- (decode-arguments - tys)

393− %^ rut 9

394− (rsh [3 2] rex)

395− (curr rash hex)

396− ::

397− ++ decode-arguments

398− |* [wos=(list @) tys=(list etyp)]

399− =/ wos=(list @) wos :: get rid of tmi

400− =| win=@ud

401− =< (decode-from 0 tys)

402− |%

403− ++ decode-from

404− |* [win=@ud tys=(list etyp)]

405− ?~ tys !!

406− =- ?~ t.tys dat

407− [dat $(win nin, tys t.tys)]

408− (decode-one win ~[i.tys])

409− ::

410− ++ decode-one

411− ::NOTE we take (list etyp) even though we only operate on

412− :: a single etyp as a workaround for urbit/arvo#673

413− |* [win=@ud tys=(list etyp)]

414− =- [nin dat]=- ::NOTE ^= regular form broken

415− ?~ tys !!

416− =* typ i.tys

417− =+ wor=(snag win wos)

418− ?+ typ

419− ~| [%unsupported-type typ]

420− !!

421− ::

422− ?(%address %bool %uint) :: %int %real %ureal

423− :- +(win)

424− ?- typ

425− %address `@ux`wor

426− %uint `@ud`wor

427− %bool =(1 wor)

428− ==

429− ::

430− %string

431− =+ $(tys ~[%bytes])

432− [nin (trip (swp 3 q.dat))]

433− ::

434− %bytes

435− :- +(win)

436− :: find the word index of the actual data.

437− =/ lic=@ud (div wor 32)

438− :: learn the bytelength of the data.

439− =/ len=@ud (snag lic wos)

440− (decode-bytes-n +(lic) len)

441− ::

442− [%bytes-n *]

443− :- (add win +((div (dec n.typ) 32)))

444− (decode-bytes-n win n.typ)

445− ::

446− [%array *]

447− :- +(win)

448− :: find the word index of the actual data.

449− =. win (div wor 32)

450− :: read the elements from their location.

451− %- tail

452− %^ decode-array-n ~[t.typ] +(win)

453− (snag win wos)

454− ::

455− [%array-n *]

456− (decode-array-n ~[t.typ] win n.typ)

457− ==

458− ::

459− ++ decode-bytes-n

460− |= [fro=@ud bys=@ud]

461− ^- octs

462− :: parse {bys} bytes from {fro}.

463− :- bys

464− %+ rsh

465− :- 3

466− =+ (mod bys 32)

467− ?:(=(0 -) - (sub 32 -))

468− %+ rep 8

469− %- flop

470− =- (swag [fro -] wos)

471− +((div (dec bys) 32))

472− ::

473− ++ decode-array-n

474− ::NOTE we take (list etyp) even though we only operate on

475− :: a single etyp as a workaround for urbit/arvo#673

476− ::NOTE careful! produces lists without type info

477− =| res=(list)

478− |* [tys=(list etyp) fro=@ud len=@ud]

479− ^- [@ud (list)]

480− ?~ tys !!

481− ?: =(len 0) [fro (flop `(list)`res)]

482− =+ (decode-one fro ~[i.tys]) :: [nin=@ud dat=*]

483− $(res ^+(res [dat res]), fro nin, len (dec len))

484− --

485− --

486−::

487−:: communicating with rpc nodes

488−::NOTE https://github.com/ethereum/wiki/wiki/JSON-RPC

489−::

490−++ rpc

491− :: types

492− ::

493− => =, abi

494− =, format

495− |%

496− :: raw call data

497− ++ call-data

498− $: function=@t

499− arguments=(list data)

500− ==

501− ::

502− :: raw transaction data

503− +$ typed-transaction

504− $% [%0x0 transaction]

505− [%0x2 transaction-1559]

506− ==

507− ::

508− +$ transaction

509− $: nonce=@ud

510− gas-price=@ud

511− gas=@ud

512− to=address

513− value=@ud

514− data=@ux

515− chain-id=@ux

516− ==

517− ::

518− +$ transaction-1559

519− $: chain-id=@ux

520− nonce=@ud

521− max-priority-gas-fee=@ud

522− max-gas-fee=@ud

523− gas=@ud

524− to=address

525− value=@ud

526− data=@ux

527− access-list=(jar address @ux)

528− ==

529− ::

530− :: ethereum json rpc api

531− ::

532− :: supported requests.

533− ++ request

534− $% [%eth-block-number ~]

535− [%eth-call cal=call deb=block]

536− $: %eth-new-filter

537− fro=(unit block)

538− tob=(unit block)

539− adr=(list address)

540− top=(list ?(@ux (list @ux)))

541− ==

542− [%eth-get-block-by-number bon=@ud txs=?]

543− [%eth-get-filter-logs fid=@ud]

544− $: %eth-get-logs

545− fro=(unit block)

546− tob=(unit block)

547− adr=(list address)

548− top=(list ?(@ux (list @ux)))

549− ==

550− $: %eth-get-logs-by-hash

551− has=@

552− adr=(list address)

553− top=(list ?(@ux (list @ux)))

554− ==

555− [%eth-get-filter-changes fid=@ud]

556− [%eth-get-transaction-by-hash txh=@ux]

557− [%eth-get-transaction-count adr=address =block]

558− [%eth-get-balance adr=address =block]

559− [%eth-get-transaction-receipt txh=@ux]

560− [%eth-send-raw-transaction dat=@ux]

561− ==

562− ::

563− ::TODO clean up & actually use

564− ++ response

565− $% ::TODO

566− [%eth-new-filter fid=@ud]

567− [%eth-get-filter-logs los=(list event-log)]

568− [%eth-get-logs los=(list event-log)]

569− [%eth-get-logs-by-hash los=(list event-log)]

570− [%eth-got-filter-changes los=(list event-log)]

571− [%eth-transaction-hash haz=@ux]

572− ==

573− ::

574− ++ transaction-result

575− $: block-hash=(unit @ux)

576− block-number=(unit @ud)

577− transaction-index=(unit @ud)

578− from=@ux

579− to=(unit @ux)

580− input=@t

581− ==

582− ::

583− ++ event-log

584− $: :: null for pending logs

585− $= mined %- unit

586− $: input=(unit @ux)

587− log-index=@ud

588− transaction-index=@ud

589− transaction-hash=@ux

590− block-number=@ud

591− block-hash=@ux

592− removed=?

593− ==

594− ::

595− address=@ux

596− data=@t

597− :: event data

598− ::

599− :: For standard events, the first topic is the event signature

600− :: hash. For anonymous events, the first topic is the first

601− :: indexed argument.

602− :: Note that this does not support the "anonymous event with

603− :: zero topics" case. This has dubious usability, and using

604− :: +lest instead of +list saves a lot of ?~ checks.

605− ::

606− topics=(lest @ux)

607− ==

608− ::

609− :: data for eth_call.

610− ++ call

611− $: from=(unit address)

612− to=address

613− gas=(unit @ud)

614− gas-price=(unit @ud)

615− value=(unit @ud)

616− data=tape

617− ==

618− ::

619− :: minimum data needed to construct a read call

620− ++ proto-read-request

621− $: id=(unit @t)

622− to=address

623− call-data

624− ==

625− ::

626− :: block to operate on.

627− ++ block

628− $% [%number n=@ud]

629− [%label l=?(%earliest %latest %pending)]

630− ==

631− --

632− ::

633− :: logic

634− ::

635− |%

636− ++ encode-call

637− |= call-data

638− ^- tape

639− ::TODO should this check to see if the data matches the function signature?

640− =- :(weld "0x" - (encode-args arguments))

641− %+ scag 8

642− %+ render-hex-bytes 32

643− %- keccak-256:keccak:crypto

644− (as-octs:mimes:html function)

645− ::

646− :: building requests

647− ::

648− ++ json-request

649− =, eyre

650− |= [url=purl jon=json]

651− ^- hiss

652− :^ url %post

653− %- ~(gas in *math)

654− ~['Content-Type'^['application/json']~]

655− (some (as-octs (en:json:html jon)))

656− :: +light-json-request: like json-request, but for %l

657− ::

658− :: TODO: Exorcising +purl from our system is a much longer term effort;

659− :: get the current output types for now.

660− ::

661− ++ light-json-request

662− |= [url=purl:eyre jon=json]

663− ^- request:http

664− ::

665− :* %'POST'

666− (crip (en-purl:html url))

667− ~[['content-type' 'application/json']]

668− (some (as-octs (en:json:html jon)))

669− ==

670− ::

671− ++ batch-read-request

672− |= req=(list proto-read-request)

673− ^- json

674− a+(turn req read-request)

675− ::

676− ++ read-request

677− |= proto-read-request

678− ^- json

679− %+ request-to-json id

680− :+ %eth-call

681− ^- call

682− [~ to ~ ~ ~ `tape`(encode-call function arguments)]

683− [%label %latest]

684− ::

685− ++ request-to-json

686− =, enjs:format

687− |= [riq=(unit @t) req=request]

688− ^- json

689− %- pairs

690− =; r=[met=@t pas=(list json)]

691− ::TODO should use request-to-json:rpc:jstd,

692− :: and probably (fall riq -.req)

693− :* jsonrpc+s+'2.0'

694− method+s+met.r

695− params+a+pas.r

696− ::TODO would just jamming the req noun for id be a bad idea?

697− ?~ riq ~

698− [id+s+u.riq]~

699− ==

700− ?- -.req

701− %eth-block-number

702− ['eth_blockNumber' ~]

703− ::

704− %eth-call

705− :- 'eth_call'

706− :~ (eth-call-to-json cal.req)

707− (block-to-json deb.req)

708− ==

709− ::

710− %eth-new-filter

711− :- 'eth_newFilter'

712− :_ ~

713− :- %o %- ~(gas by *(map @t json))

714− =- (murn - same)

715− ^- (list (unit (pair @t json)))

716− :~ ?~ fro.req ~

717− `['fromBlock' (block-to-json u.fro.req)]

718− ::

719− ?~ tob.req ~

720− `['toBlock' (block-to-json u.tob.req)]

721− ::

722− ::NOTE tmi

723− ?: =(0 (lent adr.req)) ~

724− :+ ~ 'address'

725− ?: =(1 (lent adr.req)) (tape (address-to-hex (snag 0 adr.req)))

726− :- %a

727− (turn adr.req (cork address-to-hex tape))

728− ::

729− ?~ top.req ~

730− :+ ~ 'topics'

731− (topics-to-json top.req)

732− ==

733− ::

734− %eth-get-block-by-number

735− :- 'eth_getBlockByNumber'

736− :~ (tape (num-to-hex-minimal bon.req))

737− b+txs.req

738− ==

739− ::

740− %eth-get-filter-logs

741− ['eth_getFilterLogs' (tape (num-to-hex fid.req)) ~]

742− ::

743− %eth-get-logs

744− :- 'eth_getLogs'

745− :_ ~

746− :- %o %- ~(gas by *(map @t json))

747− =- (murn - same)

748− ^- (list (unit (pair @t json)))

749− :~ ?~ fro.req ~

750− `['fromBlock' (block-to-json u.fro.req)]

751− ::

752− ?~ tob.req ~

753− `['toBlock' (block-to-json u.tob.req)]

754− ::

755− ?: =(0 (lent adr.req)) ~

756− :+ ~ 'address'

757− ?: =(1 (lent adr.req)) (tape (address-to-hex (snag 0 adr.req)))

758− :- %a

759− (turn adr.req (cork address-to-hex tape))

760− ::

761− ?~ top.req ~

762− :+ ~ 'topics'

763− (topics-to-json top.req)

764− ==

765− ::

766− %eth-get-logs-by-hash

767− :- 'eth_getLogs'

768− :_ ~ :- %o

769− %- ~(gas by *(map @t json))

770− =- (murn - same)

771− ^- (list (unit (pair @t json)))

772− :~ `['blockHash' (tape (transaction-to-hex has.req))]

773− ::

774− ?: =(0 (lent adr.req)) ~

775− :+ ~ 'address'

776− ?: =(1 (lent adr.req)) (tape (address-to-hex (snag 0 adr.req)))

777− :- %a

778− (turn adr.req (cork address-to-hex tape))

779− ::

780− ?~ top.req ~

781− :+ ~ 'topics'

782− (topics-to-json top.req)

783− ==

784− ::

785− %eth-get-filter-changes

786− ['eth_getFilterChanges' (tape (num-to-hex fid.req)) ~]

787− ::

788− %eth-get-transaction-count

789− :- 'eth_getTransactionCount'

790− :~ (tape (address-to-hex adr.req))

791− (block-to-json block.req)

792− ==

793− ::

794− %eth-get-balance

795− :- 'eth_getBalance'

796− :~ (tape (address-to-hex adr.req))

797− (block-to-json block.req)

798− ==

799− ::

800− %eth-get-transaction-by-hash

801− ['eth_getTransactionByHash' (tape (transaction-to-hex txh.req)) ~]

802− ::

803− %eth-get-transaction-receipt

804− ['eth_getTransactionReceipt' (tape (transaction-to-hex txh.req)) ~]

805− ::

806− %eth-send-raw-transaction

807− ['eth_sendRawTransaction' (tape (num-to-hex dat.req)) ~]

808− ==

809− ::

810− ++ eth-call-to-json

811− =, enjs:format

812− |= cal=call

813− ^- json

814− :- %o %- ~(gas by *(map @t json))

815− =- (murn - same)

816− ^- (list (unit (pair @t json)))

817− :~ ?~ from.cal ~

818− `['from' (tape (address-to-hex u.from.cal))]

819− ::

820− `['to' (tape (address-to-hex to.cal))]

821− ::

822− ?~ gas.cal ~

823− `['gas' (tape (num-to-hex u.gas.cal))]

824− ::

825− ?~ gas-price.cal ~

826− `['gasPrice' (tape (num-to-hex u.gas-price.cal))]

827− ::

828− ?~ value.cal ~

829− `['value' (tape (num-to-hex u.value.cal))]

830− ::

831− ?~ data.cal ~

832− `['data' (tape data.cal)]

833− ==

834− ::

835− ++ block-to-json

836− |= dob=block

837− ^- json

838− ?- -.dob

839− %number s+(crip '0' 'x' ((x-co:co 1) n.dob))

840− %label s+l.dob

841− ==

842− ::

843− ++ topics-to-json

844− |= tos=(list ?(@ux (list @ux)))

845− ^- json

846− :- %a

847− =/ ttj

848− ;: cork

849− (cury render-hex-bytes 32)

850− prefix-hex

851− tape:enjs:format

852− ==

853− %+ turn tos

854− |= t=?(@ (list @))

855− ?@ t

856− ?: =(0 t) ~

857− (ttj `@`t)

858− a+(turn t ttj)

859− ::

860− :: parsing responses

861− ::

862− ::TODO ++ parse-response |= json ^- response

863− ::

864− ++ parse-hex-result

865− |= j=json

866− ^- @

867− ?> ?=(%s -.j)

868− (hex-to-num p.j)

869− ::

870− ++ parse-eth-new-filter-res parse-hex-result

871− ::

872− ++ parse-eth-block-number parse-hex-result

873− ::

874− ++ parse-transaction-hash parse-hex-result

875− ::

876− ++ parse-eth-get-transaction-count parse-hex-result

877− ::

878− ++ parse-eth-get-balance parse-hex-result

879− ::

880− ++ parse-event-logs

881− (ar:dejs:format parse-event-log)

882− ::

883− ++ parse-event-log

884− =, dejs:format

885− |= log=json

886− ^- event-log

887− =- ((ot -) log)

888− :~ =- ['logIndex'^(cu - (mu so))]

889− |= li=(unit @t)

890− ?~ li ~

891− =- ``((ou -) log) ::TODO not sure if elegant or hacky.

892− :~ 'logIndex'^(un (cu hex-to-num so))

893− 'transactionIndex'^(un (cu hex-to-num so))

894− 'transactionHash'^(un (cu hex-to-num so))

895− 'blockNumber'^(un (cu hex-to-num so))

896− 'blockHash'^(un (cu hex-to-num so))

897− 'removed'^(uf | bo)

898− ==

899− ::

900− address+(cu hex-to-num so)

901− data+so

902− ::

903− =- topics+(cu - (ar so))

904− |= r=(list @t)

905− ^- (lest @ux)

906− ?> ?=([@t *] r)

907− :- (hex-to-num i.r)

908− (turn t.r hex-to-num)

909− ==

910− ::

911− ++ parse-transaction-result

912− =, dejs:format

913− |= jon=json

914− ~| jon=jon

915− ^- transaction-result

916− =- ((ot -) jon)

917− :~ 'blockHash'^_~ :: TODO: fails if maybe-num?

918− 'blockNumber'^maybe-num

919− 'transactionIndex'^maybe-num

920− from+(cu hex-to-num so)

921− to+maybe-num

922− input+so

923− ==

924− ::

925− ++ maybe-num

926− =, dejs:format

927− =- (cu - (mu so))

928− |= r=(unit @t)

929− ?~ r ~

930− `(hex-to-num u.r)

931− --

932−::

933−:: utilities

934−::TODO give them better homes!

935−::

936−++ num-to-hex

937− |= n=@

938− ^- tape

939− %- prefix-hex

940− ?: =(0 n)

941− "0"

942− %- render-hex-bytes

943− (as-octs:mimes:html n)

944−::

945−++ num-to-hex-minimal

946− |= n=@

947− ^- tape

948− %- prefix-hex

949− ((x-co:co 1) n)

950−::

951−++ address-to-hex

952− |= a=address

953− ^- tape

954− %- prefix-hex

955− (render-hex-bytes 20 `@`a)

956−::

957−++ address-to-checksum

958− |= a=address

959− ^- tape

960− =/ hexed (render-hex-bytes 20 `@`a)

961− =/ hash (keccak-256:keccak:crypto (as-octs:mimes:html (crip hexed)))

962− =| ret=tape

963− =/ pos 63

964− |-

965− ?~ hexed (prefix-hex (flop ret))

966− =/ char i.hexed

967− ?: (lth char 58) $(pos (dec pos), ret [char ret], hexed t.hexed)

968− =/ nib (cut 2 [pos 1] hash)

969− ?: (lth 7 nib) $(pos (dec pos), ret [(sub char 32) ret], hexed t.hexed)

970− $(pos (dec pos), ret [char ret], hexed t.hexed)

971−::

972−++ transaction-to-hex

973− |= h=@

974− ^- tape

975− %- prefix-hex

976− (render-hex-bytes 32 h)

977−::

978−++ prefix-hex

979− |= a=tape

980− ^- tape

981− ['0' 'x' a]

982−::

983−++ render-hex-bytes

984− :: atom to string of hex bytes without 0x prefix and dots.

985− |= a=octs

986− ^- tape

987− ((x-co:co (mul 2 p.a)) q.a)

988−::

989−++ pad-to-multiple

990− |= [wat=tape mof=@ud wer=?(%left %right)]

991− ^- tape

992− =+ len=(lent wat)

993− ?: =(0 len) (reap mof '0')

994− =+ mad=(mod len mof)

995− ?: =(0 mad) wat

996− =+ tad=(reap (sub mof mad) '0')

997− %- weld

998− ?:(?=(%left wer) [tad wat] [wat tad])

999−::

1000−++ hex-to-num

1001− |= a=@t

1002− ~| %non-hex-cord

1003− ?> =((end [3 2] a) '0x')

1004− =< ?<(=(0 p) q) %- need

1005− (de:base16:mimes:html (rsh [3 2] a))

1006−--

base-desk/lib/ethio.hoondeleted−289

@@ -1,289 +0,0 @@

1−:: ethio: Asynchronous Ethereum input/output functions.

2−::

3−/- rpc=json-rpc

4−/+ ethereum, strandio

5−=, ethereum-types

6−=, jael

7−::

8−=> |%

9− +$ topics (list ?(@ux (list @ux)))

10− --

11−|%

12−:: +request-rpc: send rpc request, with retry

13−::

14−++ request-rpc

15− |= [url=@ta id=(unit @t) req=request:rpc:ethereum]

16− =/ m (strand:strandio ,json)

17− ^- form:m

18− ;< res=(list [id=@t =json]) bind:m

19− (request-batch-rpc-strict url [id req]~)

20− ?: ?=([* ~] res)

21− (pure:m json.i.res)

22− %+ strand-fail:strandio

23− %unexpected-multiple-results

24− [>(lent res)< ~]

25−:: +request-batch-rpc-strict: send rpc requests, with retry

26−::

27−:: sends a batch request. produces results for all requests in the batch,

28−:: but only if all of them are successful.

29−::

30−++ request-batch-rpc-strict

31− |= [url=@ta reqs=(list [id=(unit @t) req=request:rpc:ethereum])]

32− |^ %+ (retry:strandio results)

33− `10

34− attempt-request

35− ::

36− +$ results (list [id=@t =json])

37− ::

38− ++ attempt-request

39− =/ m (strand:strandio ,(unit results))

40− ^- form:m

41− ;< responses=(list response:rpc) bind:m

42− (request-batch-rpc-loose url reqs)

43− =- ?~ err

44− (pure:m `res)

45− (pure:m ~)

46− %+ roll responses

47− |= $: rpc=response:rpc

48− [res=results err=(list [id=@t code=@t message=@t])]

49− ==

50− ?: ?=(%error -.rpc)

51− [res [+.rpc err]]

52− ?. ?=(%result -.rpc)

53− [res [['' 'ethio-rpc-fail' (crip <rpc>)] err]]

54− [[+.rpc res] err]

55− --

56−:: +request-batch-rpc-loose: send rpc requests, with retry

57−::

58−:: sends a batch request. produces results for all requests in the batch,

59−:: including the ones that are unsuccessful.

60−::

61−++ request-batch-rpc-loose

62− |= [url=@ta reqs=(list [id=(unit @t) req=request:rpc:ethereum])]

63− |^ %+ (retry:strandio results)

64− `10

65− attempt-request

66− ::

67− +$ result response:rpc

68− +$ results (list response:rpc)

69− ::

70− ++ attempt-request

71− =/ m (strand:strandio ,(unit results))

72− ^- form:m

73− =/ =request:http

74− :* method=%'POST'

75− url=url

76− header-list=['Content-Type'^'application/json' ~]

77− ::

78− ^= body

79− %- some %- as-octs:mimes:html

80− %- en:json:html

81− a+(turn reqs request-to-json:rpc:ethereum)

82− ==

83− ;< ~ bind:m

84− (send-request:strandio request)

85− ;< rep=(unit client-response:iris) bind:m

86− take-maybe-response:strandio

87− ?~ rep

88− (pure:m ~)

89− (parse-responses u.rep)

90− ::

91− ++ parse-responses

92− |= =client-response:iris

93− =/ m (strand:strandio ,(unit results))

94− ^- form:m

95− ?> ?=(%finished -.client-response)

96− ?~ full-file.client-response

97− (pure:m ~)

98− =/ body=@t q.data.u.full-file.client-response

99− =/ jon=(unit json) (de:json:html body)

100− ?~ jon

101− (pure:m ~)

102− =/ array=(unit (list response:rpc))

103− ((ar:dejs-soft:format parse-one-response) u.jon)

104− ?~ array

105− (strand-fail:strandio %rpc-result-incomplete-batch >u.jon< ~)

106− (pure:m array)

107− ::

108− ++ parse-one-response

109− |= =json

110− ^- (unit response:rpc)

111− ?. &(?=([%o *] json) (~(has by p.json) 'error'))

112− =/ res=(unit [@t ^json])

113− %. json

114− =, dejs-soft:format

115− (ot id+so result+some ~)

116− ?~ res ~

117− `[%result u.res]

118− ~| parse-one-response=json

119− =/ error=(unit [id=@t ^json code=@ta mssg=@t])

120− %. json

121− =, dejs-soft:format

122− :: A 'result' member is present in the error

123− :: response when using ganache, even though

124− :: that goes against the JSON-RPC spec

125− ::

126− (ot id+so result+some error+(ot code+no message+so ~) ~)

127− ?~ error ~

128− =* err u.error

129− `[%error id.err code.err mssg.err]

130− --

131−::

132−:: +read-contract: calls a read function on a contract, produces result hex

133−::

134−++ read-contract

135− |= [url=@t req=proto-read-request:rpc:ethereum]

136− =/ m (strand:strandio ,@t)

137− ;< res=(list [id=@t res=@t]) bind:m

138− (batch-read-contract-strict url [req]~)

139− ?: ?=([* ~] res)

140− (pure:m res.i.res)

141− %+ strand-fail:strandio

142− %unexpected-multiple-results

143− [>(lent res)< ~]

144−:: +batch-read-contract-strict: calls read functions on contracts

145−::

146−:: sends a batch request. produces results for all requests in the batch,

147−:: but only if all of them are successful.

148−::

149−++ batch-read-contract-strict

150− |= [url=@t reqs=(list proto-read-request:rpc:ethereum)]

151− |^ =/ m (strand:strandio ,results)

152− ^- form:m

153− ;< res=(list [id=@t =json]) bind:m

154− %+ request-batch-rpc-strict url

155− (turn reqs proto-to-rpc)

156− =+ ^- [=results =failures]

157− (roll res response-to-result)

158− ?~ failures (pure:m results)

159− (strand-fail:strandio %batch-read-failed-for >failures< ~)

160− ::

161− +$ results (list [id=@t res=@t])

162− +$ failures (list [id=@t =json])

163− ::

164− ++ proto-to-rpc

165− |= proto-read-request:rpc:ethereum

166− ^- [(unit @t) request:rpc:ethereum]

167− :- id

168− :+ %eth-call

169− ^- call:rpc:ethereum

170− [~ to ~ ~ ~ `tape`(encode-call:rpc:ethereum function arguments)]

171− [%label %latest]

172− ::

173− ++ response-to-result

174− |= [[id=@t =json] =results =failures]

175− ^+ [results failures]

176− ?: ?=(%s -.json)

177− [[id^p.json results] failures]

178− [results [id^json failures]]

179− --

180−::

181−::

182−++ get-latest-block

183− |= url=@ta

184− =/ m (strand:strandio ,block)

185− ^- form:m

186− ;< =json bind:m

187− (request-rpc url `'block number' %eth-block-number ~)

188− (get-block-by-number url (parse-eth-block-number:rpc:ethereum json))

189−::

190−++ get-block-by-number

191− |= [url=@ta =number:block]

192− =/ m (strand:strandio ,block)

193− ^- form:m

194− |^

195− %+ (retry:strandio ,block) `10

196− =/ m (strand:strandio ,(unit block))

197− ^- form:m

198− ;< =json bind:m

199− %+ request-rpc url

200− :- `'block by number'

201− [%eth-get-block-by-number number |]

202− (pure:m (parse-block json))

203− ::

204− ++ parse-block

205− |= =json

206− ^- (unit block)

207− =< ?~(. ~ `[[&1 &2] |2]:u)

208− ^- (unit [@ @ @])

209− ~| json

210− %. json

211− =, dejs-soft:format

212− %- ot

213− :~ hash+parse-hex

214− number+parse-hex

215− 'parentHash'^parse-hex

216− ==

217− ::

218− ++ parse-hex |=(=json `(unit @)`(some (parse-hex-result:rpc:ethereum json)))

219− --

220−::

221−++ get-tx-by-hash

222− |= [url=@ta tx-hash=@ux]

223− =/ m (strand:strandio transaction-result:rpc:ethereum)

224− ^- form:m

225− ;< =json bind:m

226− %+ request-rpc url

227− :* `'tx by hash'

228− %eth-get-transaction-by-hash

229− tx-hash

230− ==

231− %- pure:m

232− (parse-transaction-result:rpc:ethereum json)

233−::

234−++ get-logs-by-hash

235− |= [url=@ta =hash:block contracts=(list address) =topics]

236− =/ m (strand:strandio (list event-log:rpc:ethereum))

237− ^- form:m

238− ;< =json bind:m

239− %+ request-rpc url

240− :* `'logs by hash'

241− %eth-get-logs-by-hash

242− hash

243− contracts

244− topics

245− ==

246− %- pure:m

247− (parse-event-logs:rpc:ethereum json)

248−::

249−++ get-logs-by-range

250− |= $: url=@ta

251− contracts=(list address)

252− =topics

253− =from=number:block

254− =to=number:block

255− ==

256− =/ m (strand:strandio (list event-log:rpc:ethereum))

257− ^- form:m

258− ;< =json bind:m

259− %+ request-rpc url

260− :* `'logs by range'

261− %eth-get-logs

262− `number+from-number

263− `number+to-number

264− contracts

265− topics

266− ==

267− %- pure:m

268− (parse-event-logs:rpc:ethereum json)

269−::

270−++ get-next-nonce

271− |= [url=@ta =address]

272− =/ m (strand:strandio ,@ud)

273− ^- form:m

274− ;< =json bind:m

275− %^ request-rpc url `'nonce'

276− [%eth-get-transaction-count address [%label %latest]]

277− %- pure:m

278− (parse-eth-get-transaction-count:rpc:ethereum json)

279−::

280−++ get-balance

281− |= [url=@ta =address]

282− =/ m (strand:strandio ,@ud)

283− ^- form:m

284− ;< =json bind:m

285− %^ request-rpc url `'balance'

286− [%eth-get-balance address [%label %latest]]

287− %- pure:m

288− (parse-eth-get-balance:rpc:ethereum json)

289−--

base-desk/lib/hark-store.hoondeleted−255

@@ -1,255 +0,0 @@

1−/- sur=hark-store

2−^?

3−=, sur

4−=< [. sur]

5−|%

6−

7−++ enjs

8− =, enjs:format

9− |%

10− ++ update

11− |= upd=^update

12− ^- json

13− %+ frond -.upd

14− ?+ -.upd a+~

15− %added (notification +.upd)

16− %add-note (add-note +.upd)

17− %timebox (timebox +.upd)

18− %more (more +.upd)

19− %read-each (read-each +.upd)

20− %read-count (place +.upd)

21− %unread-each (read-each +.upd)

22− %unread-count (unread-count +.upd)

23− %saw-place (saw-place +.upd)

24− %all-stats (all-stats +.upd)

25− %del-place (place +.upd)

26− ::%read-note (index +.upd)

27− ::%note-read (note-read +.upd)

28− %archived (archived +.upd)

29− ==

30− ::

31− ++ add-note

32− |= [bi=^bin bo=^body]

33− %- pairs

34− :~ bin+(bin bi)

35− body+(body bo)

36− ==

37− ::

38− ++ saw-place

39− |= [p=^place t=(unit ^time)]

40− %- pairs

41− :~ place+(place p)

42− time+?~(t ~ (time u.t))

43− ==

44− ::

45− ++ archived

46− |= [t=^time l=^lid n=^notification]

47− %- pairs

48− :~ lid+(lid l)

49− time+s+(scot %ud t)

50− notification+(notification n)

51− ==

52− ::

53− ++ note-read

54− |= *

55− (pairs ~)

56− ::

57− ++ all-stats

58− |= places=(map ^place ^stats)

59− ^- json

60− :- %a

61− ^- (list json)

62− %+ turn ~(tap by places)

63− |= [p=^place s=^stats]

64− %- pairs

65− :~ stats+(stats s)

66− place+(place p)

67−

68− ==

69− ::

70− ++ stats

71− |= s=^stats

72− ^- json

73− %- pairs

74− :~ each+a+(turn ~(tap in each.s) (cork spat (lead %s)))

75− last+(time last.s)

76− count+(numb count.s)

77− ==

78− ++ more

79− |= upds=(list ^update)

80− ^- json

81− a+(turn upds update)

82− ::

83− ++ place

84− |= =^place

85− %- pairs

86− :~ desk+s+desk.place

87− path+s+(spat path.place)

88− ==

89− ::

90− ++ bin

91− |= =^bin

92− %- pairs

93− :~ place+(place place.bin)

94− path+s+(spat path.bin)

95− ==

96− ++ notification

97− |= ^notification

98− ^- json

99− %- pairs

100− :~ time+(time date)

101− bin+(^bin bin)

102− body+(bodies body)

103− ==

104− ++ bodies

105− |= bs=(list ^body)

106− ^- json

107− a+(turn bs body)

108− ::

109− ++ contents

110− |= cs=(list ^content)

111− ^- json

112− a+(turn cs content)

113− ::

114− ++ content

115− |= c=^content

116− ^- json

117− %+ frond -.c

118− ?- -.c

119− %ship s+(scot %p ship.c)

120− %text s+cord.c

121− ==

122− ::

123− ++ body

124− |= ^body

125− ^- json

126− %- pairs

127− :~ title+(contents title)

128− content+(contents content)

129− time+(^time time)

130− link+s+(spat link)

131− ==

132− ::

133− ++ binned-notification

134− |= [=^bin =^notification]

135− %- pairs

136− :~ bin+(^bin bin)

137− notification+(^notification notification)

138− ==

139− ++ lid

140− |= l=^lid

141− ^- json

142− %+ frond -.l

143− ?- -.l

144− ?(%seen %unseen) ~

145− %archive s+(scot %ud time.l)

146− ==

147− ::

148− ++ timebox

149− |= [li=^lid l=(list ^notification)]

150− ^- json

151− %- pairs

152− :~ lid+(lid li)

153− notifications+a+(turn l notification)

154− ==

155− ::

156− ++ read-each

157− |= [p=^place pax=^path]

158− %- pairs

159− :~ place+(place p)

160− path+(path pax)

161− ==

162− ::

163− ++ unread-count

164− |= [p=^place inc=? count=@ud]

165− %- pairs

166− :~ place+(place p)

167− inc+b+inc

168− count+(numb count)

169− ==

170− --

171−++ dejs

172− =, dejs:format

173− |%

174− ++ ship (su ;~(pfix sig fed:ag))

175− :: TODO: fix +stab

176− ::

177− ++ pa

178− |= j=json

179− ^- path

180− ?> ?=(%s -.j)

181− ?: =('/' p.j) /

182− (stab p.j)

183− ::

184− ++ place

185− %- ot

186− :~ desk+so

187− path+pa

188− ==

189− ::

190− ++ bin

191− %- ot

192− :~ path+pa

193− place+place

194− ==

195− ::

196− ++ read-each

197− %- ot

198− :~ place+place

199− path+pa

200− ==

201− ::

202− :: parse date as @ud

203− :: TODO: move to zuse

204− ++ sd

205− |= jon=json

206− ^- @da

207− ?> ?=(%s -.jon)

208− `@da`(rash p.jon dem:ag)

209− ::

210− ++ lid

211− %- of

212− :~ archive+sd

213− unseen+ul

214− seen+ul

215− ==

216− ::

217− ++ archive

218− %- ot

219− :~ lid+lid

220− bin+bin

221− ==

222− ++ content

223− %- of

224− :~ text+so

225− ship+ship

226− ==

227− ::

228− ++ body

229− %- ot

230− :~ title+(ar content)

231− content+(ar content)

232− time+di

233− binned+pa

234− link+pa

235− ==

236− ::

237− ++ add-note

238− %- ot

239− :~ bin+bin

240− body+body

241− ==

242− ::

243− ++ action

244− ^- $-(json ^action)

245− %- of

246− :~ archive-all+ul

247− archive+archive

248− opened+ul

249− read-count+place

250− read-each+read-each

251− read-note+bin

252− add-note+add-note

253− ==

254− --

255−--

base-desk/lib/jose.hoondeleted−222

@@ -1,222 +0,0 @@

1−/+ primitive-rsa, *pkcs

2−=* rsa primitive-rsa

3−|%

4−:: +en-base64url: url-safe base64 encoding, without padding

5−::

6−++ en-base64url

7− ~(en base64:mimes:html | &)

8−:: +de-base64url: url-safe base64 decoding, without padding

9−::

10−++ de-base64url

11− ~(de base64:mimes:html | &)

12−:: |octn: encode/decode unsigned atoms as big-endian octet stream

13−::

14−++ octn

15− |%

16− ++ en |=(a=@u `octs`[(met 3 a) (swp 3 a)])

17− ++ de |=(a=octs `@u`(rev 3 p.a q.a))

18− --

19−:: +eor: explicit sort order comparator

20−::

21−:: Lookup :a and :b in :lit, and pass their indices to :com.

22−::

23−++ eor

24− |= [com=$-([@ @] ?) lit=(list)]

25− |= [a=* b=*]

26− ^- ?

27− (fall (bind (both (find ~[a] lit) (find ~[b] lit)) com) |)

28−:: +en-json-sort: json encoding with sorted object keys

29−::

30−:: XX move %zuse with sorting optional?

31−::

32−++ en-json-sort :: XX rename

33− |^ |=([sor=$-(^ ?) val=json] (apex val sor ""))

34− :: :: ++apex:en-json:html

35− ++ apex

36− |= [val=json sor=$-(^ ?) rez=tape]

37− ^- tape

38− ?~ val (weld "null" rez)

39− ?- -.val

40− %a

41− :- '['

42− =. rez [']' rez]

43− !.

44− ?~ p.val rez

45− |-

46− ?~ t.p.val ^$(val i.p.val)

47− ^$(val i.p.val, rez [',' $(p.val t.p.val)])

48− ::

49− %b (weld ?:(p.val "true" "false") rez)

50− %n (weld (trip p.val) rez)

51− %s

52− :- '"'

53− =. rez ['"' rez]

54− =+ viz=(trip p.val)

55− !.

56− |- ^- tape

57− ?~ viz rez

58− =+ hed=(jesc i.viz)

59− ?: ?=([@ ~] hed)

60− [i.hed $(viz t.viz)]

61− (weld hed $(viz t.viz))

62− ::

63− %o

64− :- '{'

65− =. rez ['}' rez]

66− =/ viz

67− %+ sort ~(tap by p.val)

68− |=((pair) (sor (head p) (head q)))

69− ?~ viz rez

70− !.

71− |- ^+ rez

72− ?~ t.viz ^$(val [%s p.i.viz], rez [':' ^$(val q.i.viz)])

73− =. rez [',' $(viz t.viz)]

74− ^$(val [%s p.i.viz], rez [':' ^$(val q.i.viz)])

75− ==

76− ::

77− ++ jesc

78− =+ utf=|=(a=@ ['\\' 'u' ((x-co 4):co a)])

79− |= a=@ ^- tape

80− ?+ a ?:(&((gth a 0x1f) !=(a 0x7f)) [a ~] (utf a))

81− %10 "\\n"

82− %34 "\\\""

83− %92 "\\\\"

84− ==

85− --

86−:: %/lib/jose

87−::

88−:: |jwk: json representations of cryptographic keys (rfc7517)

89−::

90−:: Url-safe base64 encoding of key parameters in big-endian byte order.

91−:: RSA-only for now

92−::

93−++ jwk

94− |%

95− :: |en:jwk: encoding of json cryptographic keys

96− ::

97− ++ en

98− => |%

99− :: +numb:en:jwk: base64-url encode big-endian number

100− ::

101− ++ numb (corl en-base64url en:octn)

102− --

103− |%

104− :: +pass:en:jwk: json encode public key

105− ::

106− ++ pass

107− |= k=key:rsa

108− ^- json

109− [%o (my kty+s+'RSA' n+s+(numb n.pub.k) e+s+(numb e.pub.k) ~)]

110− :: +ring:en:jwk: json encode private key

111− ::

112− ++ ring

113− |= k=key:rsa

114− ^- json

115− ~| %rsa-need-ring

116− ?> ?=(^ sek.k)

117− :- %o %- my :~

118− kty+s+'RSA'

119− n+s+(numb n.pub.k)

120− e+s+(numb e.pub.k)

121− d+s+(numb d.u.sek.k)

122− p+s+(numb p.u.sek.k)

123− q+s+(numb q.u.sek.k)

124− ==

125− --

126− :: |de:jwk: decoding of json cryptographic keys

127− ::

128− ++ de

129− =, dejs-soft:format

130− => |%

131− :: +numb:de:jwk: parse base64-url big-endian number

132− ::

133− ++ numb (cu (cork de-base64url (lift de:octn)) so)

134− --

135− |%

136− :: +pass:de:jwk: decode json public key

137− ::

138− ++ pass

139− %+ ci

140− =/ a (unit @ux)

141− |= [kty=@t n=a e=a]

142− ^- (unit key:rsa)

143− =/ pub (both n e)

144− ?~(pub ~ `[u.pub ~])

145− (ot kty+(su (jest 'RSA')) n+numb e+numb ~)

146− :: +ring:de:jwk: decode json private key

147− ::

148− ++ ring

149− %+ ci

150− =/ a (unit @ux)

151− |= [kty=@t n=a e=a d=a p=a q=a]

152− ^- (unit key:rsa)

153− =/ pub (both n e)

154− =/ sek :(both d p q)

155− ?:(|(?=(~ pub) ?=(~ sek)) ~ `[u.pub sek])

156− (ot kty+(su (jest 'RSA')) n+numb e+numb d+numb p+numb q+numb ~)

157− --

158− :: |thumb:jwk: "thumbprint" json-encoded key (rfc7638)

159− ::

160− ++ thumb

161− |%

162− :: +pass:thumb:jwk: thumbprint json-encoded public key

163− ::

164− ++ pass

165− |= k=key:rsa

166− (en-base64url 32 (shax (crip (en-json-sort aor (pass:en k)))))

167− :: +ring:thumb:jwk: thumbprint json-encoded private key

168− ::

169− ++ ring !!

170− --

171− --

172−:: |jws: json web signatures (rfc7515)

173−::

174−:: Note: flattened signature form only.

175−::

176−++ jws

177− |%

178− :: +sign:jws: sign json value

179− ::

180− ++ sign

181− |= [k=key:rsa pro=json lod=json]

182− |^ ^- json

183− =. pro header

184− =/ protect=cord (encode pro)

185− =/ payload=cord (encode lod)

186− :- %o %- my :~

187− protected+s+protect

188− payload+s+payload

189− signature+s+(sign protect payload)

190− ==

191− :: +header:sign:jws: set signature algorithm in header

192− ::

193− ++ header

194− ?> ?=([%o *] pro)

195− ^- json

196− [%o (~(put by p.pro) %alg s+'RS256')]

197− :: +encode:sign:jws: encode json for signing

198− ::

199− :: Alphabetically sort object keys, url-safe base64 encode

200− :: the serialized json.

201− ::

202− ++ encode

203− |= jon=json

204− %- en-base64url

205− %- as-octt:mimes:html

206− (en-json-sort aor jon)

207− :: +sign:sign:jws: compute signature

208− ::

209− :: Url-safe base64 encode in big-endian byte order.

210− ::

211− ++ sign

212− |= [protect=cord payload=cord]

213− =/ msg=@t (rap 3 ~[protect '.' payload])

214− =/ sig=@ud (~(sign rs256 k) (met 3 msg) msg)

215− =/ len=@ud (met 3 n.pub.k)

216− (en-base64url len (rev 3 len sig))

217− --

218− :: +verify:jws: verify signature

219− ::

220− ++ verify !!

221− --

222−--

base-desk/lib/keygen.hoondeleted−112

@@ -1,112 +0,0 @@

1−:: urbit-style key generation and derivation functions

2−::

3−/- keygen

4−::

5−/+ ethereum, bip32, bip39

6−::

7−=, keygen

8−::

9−|%

10−++ argon2u

11− |= [who=ship tic=byts]

12− ^- @

13− ~| [%who who (met 3 who)]

14− :: ?> (lte (met 3 who) 4)

15− %- (argon2-urbit:argon2:crypto 32)

16− :- tic

17− =- [(met 3 -) (swp 3 -)]

18− %- crip

19− (weld "urbitkeygen" (a-co:co who))

20−::

21−++ child-node-from-seed

22− |= [seed=@ typ=tape pass=(unit @t)]

23− ^- node

24− =+ sed=(seed:ds 32^seed typ)

25− =+ nom=(from-entropy:bip39 32^sed)

26− :+ typ nom

27− %- wallet:ds

28− %+ to-seed:bip39 nom

29− (trip (fall pass ''))

30−::

31−++ derive-network-seed

32− |= [mngs=@ rev=@ud]

33− ^- @ux

34− =+ (seed:ds 64^mngs (weld "network" (a-co:co rev)))

35− ?: =(0 rev) -

36− :: hash again to prevent length extension attacks

37− (sha-256l:sha 32 -)

38−::

39−++ ownership-wallet-from-ticket

40− |= [who=ship ticket=byts pass=(unit @t)]

41− ^- node

42− =+ master-seed=(argon2u who ticket)

43− (child-node-from-seed master-seed "ownership" pass)

44−::

45−++ full-wallet-from-ticket

46− :: who: username

47− :: ticket: password

48− :: rev: network key revision

49− :: pass: optional passphrase

50− ::

51− |= [who=ship ticket=byts rev=@ud pass=(unit @t)]

52− ^- vault

53− =+ master-seed=(argon2u who ticket)

54− =/ cn :: child node

55− |= typ=nodetype

56− (child-node-from-seed master-seed typ pass)

57− ::

58− :- ^= ownership ^- node

59− (cn "ownership")

60− ::

61− :- ^= voting ^- node

62− (cn "voting")

63− ::

64− =/ management=node

65− (cn "management")

66− :- management=management

67− ::

68− :- ^= transfer ^- node

69− (cn "transfer")

70− ::

71− :- ^= spawn ^- node

72− (cn "spawn")

73− ::

74− ^= network ^- uode

75− =/ mad :: management seed

76− %+ to-seed:bip39

77− seed:management

78− (trip (fall pass ''))

79− =+ sed=(derive-network-seed mad rev)

80− [rev sed (urbit:ds sed)]

81−::

82−++ ds :: derive from raw seed

83− |%

84− ++ wallet

85− |= seed=@

86− ^- ^wallet

87− =+ => (from-seed:bip32 64^seed)

88− (derive-path "m/44'/60'/0'/0/0")

89− :+ [public-key private-key]

90− (address-from-prv:key:ethereum private-key)

91− chain-code

92− ::

93− ++ urbit

94− |= seed=@

95− ^- edkeys

96− =+ =< [pub=pub:ex sec=sec:ex]

97− (pit:nu:cric:crypto 256 seed %b ~)

98− :- ^= auth

99− :- (rsh 3 (end [3 33] pub))

100− (rsh 3 (end [3 33] sec))

101− ^= crypt

102− :- (rsh [3 33] pub)

103− (rsh [3 33] sec)

104− ::

105− ++ seed

106− |= [seed=byts salt=tape]

107− ^- @ux

108− %- sha-256l:sha

109− :- (add wid.seed (lent salt))

110− (cat 3 (crip (flop salt)) dat.seed)

111− --

112−--

base-desk/lib/language-server/build.hoondeleted−61

@@ -1,61 +0,0 @@

1−/- *language-server

2−::

3−|%

4−++ parse-error

5− |= =tape

6− ^- (unit [=path =range])

7− =/ parse-pair

8− %+ cook

9− |=([row=@ud col=@ud] [(dec row) col])

10− (ifix [sel ser] ;~((glue ace) dem dem))

11− =/ parse-path

12− %+ cook

13− |=(p=path (slag 3 p))

14− (ifix [fas (jest '::')] (more fas urs:ab))

15− =/ parse-full

16− ;~(plug parse-path ;~(sfix ;~((glue dot) parse-pair parse-pair) gar))

17− (rust tape parse-full)

18−::

19−++ get-errors-from-tang

20− |= [uri=@t =tang]

21− ^- (list range)

22− =/ =path

23− (uri-to-path uri)

24− %+ murn tang

25− |= =tank

26− ^- (unit range)

27− ?. ?=([%leaf *] tank)

28− ~

29− =/ error

30− (parse-error p.tank)

31− ?~ error

32− ~

33− ?: =(path path.u.error)

34− `range.u.error

35− ~

36−::

37−++ uri-to-path

38− |= uri=@t

39− ^- path

40− =/ pier-root=(set cord)

41− %- sy

42− ['app' 'gen' 'lib' 'mar' 'ren' 'sur' 'sys' 'test' ~]

43− =/ path=(list cord)

44− (parse-uri uri)

45− |-

46− ?< ?=(~ path)

47− ?: (~(has in pier-root) i.path)

48− `^path`path

49− $(path t.path)

50−::

51−++ parse-uri

52− |= uri=@t

53− =- (fall - /fail)

54− %+ rush uri

55− %+ more

56− ;~(pose (plus fas) dot)

57− %+ cook

58− crip

59− (star ;~(pose col hep alf))

60−::

61−--

base-desk/lib/language-server/complete.hoondeleted−387

@@ -1,387 +0,0 @@

1−/+ language-server-parser

2−:: Autocomplete for hoon.

3−::

4−=/ debug |

5−|%

6−++ option

7− |$ [item]

8− [term=cord detail=item]

9−::

10−:: Like +rose except also produces line number

11−::

12−++ lily

13− |* [los=tape sab=rule]

14− =+ vex=(sab [[1 1] los])

15− ?~ q.vex

16− [%| p=p.vex(q (dec q.p.vex))]

17− ?. =(~ q.q.u.q.vex)

18− [%| p=p.vex(q (dec q.p.vex))]

19− [%& p=p.u.q.vex]

20−::

21−:: Get all the identifiers accessible if this type is your subject.

22−::

23−++ get-identifiers

24− |= ty=type

25− %- flop

26− |- ^- (list (option type))

27− ?- ty

28− %noun ~

29− %void ~

30− [%atom *] ~

31− [%cell *]

32− %+ weld

33− $(ty p.ty)

34− $(ty q.ty)

35− ::

36− [%core *]

37− %- weld

38− :_ ?. ?=(%gold r.p.q.ty)

39− ~

40− $(ty p.ty)

41− ^- (list (option type))

42− %- zing

43− %+ turn ~(tap by q.r.q.ty)

44− |= [term =tome]

45− %+ turn

46− ~(tap by tome)

47− |= [name=term =hoon]

48− ^- (pair term type)

49− ~| term=term

50− [name ~(play ~(et ut ty) ~[name] ~)]

51− ::

52− [%face *]

53− ?^ p.ty

54− ~

55− [p.ty q.ty]~

56− ::

57− [%fork *]

58− %= $

59− ty

60− =/ tines ~(tap in p.ty)

61− ?~ tines

62− %void

63− |- ^- type

64− ?~ t.tines

65− i.tines

66− (~(fuse ut $(tines t.tines)) i.tines)

67− ==

68− ::

69− [%hint *] $(ty q.ty)

70− [%hold *] $(ty ~(repo ut ty))

71− ==

72−::

73−++ search-exact

74− |* [sid=term options=(list (option))]

75− =/ match

76− %+ skim options

77− |= [id=cord *]

78− =(sid id)

79− ?~ match

80− ~

81− [~ i.match]

82−::

83−:: Get all the identifiers that start with sid.

84−::

85−++ search-prefix

86− |* [sid=cord ids=(list (option))]

87− ^+ ids

88− %+ skim ids

89− |= [id=cord *]

90− ^- ?(%.y %.n)

91− =(sid (end [3 (met 3 sid)] id))

92−::

93−:: Get the longest prefix of a list of identifiers.

94−::

95−++ longest-match

96− |= matches=(list (option))

97− ^- cord

98− ?~ matches

99− ''

100− =/ n 1

101− =/ last (met 3 term.i.matches)

102− |- ^- term

103− ?: (gth n last)

104− term.i.matches

105− =/ prefix (end [3 n] term.i.matches)

106− ?: |- ^- ?

107− ?| ?=(~ t.matches)

108− ?& =(prefix (end [3 n] term.i.t.matches))

109− $(t.matches t.t.matches)

110− == ==

111− $(n +(n))

112− (end [3 (dec n)] term.i.matches)

113−::

114−:: Run +find-type safely, printing the first line of the stack trace on

115−:: error.

116−::

117−++ find-type-mule

118− |= [sut=type gen=hoon]

119− ^- (unit [term type])

120− =/ res (mule |.((find-type sut gen)))

121− ?- -.res

122− %& p.res

123− %| ((slog (flop (scag 10 p.res))) ~)

124− ==

125−::

126−:: Get the subject type of the wing where you've put the "magic-spoon".

127−::

128−++ find-type

129− |= [sut=type gen=hoon]

130− =* loop $

131− |^

132− ^- (unit [term type])

133− ?- gen

134− [%cnts [%magic-spoon ~] *] `['' sut]

135− [%cnts [%magic-spoon @ ~] *] `[i.t.p.gen sut]

136− [%cnts [%magic-spoon @ *] *]

137− %= $

138− sut (~(play ut sut) wing+t.t.p.gen)

139− t.p.gen t.p.gen(t ~)

140− ==

141− ::

142− [%cnts [%magic-fork @ ~] *]

143− `['' (~(play ut sut) wing+t.p.gen)]

144− ::

145− [^ *] (both p.gen q.gen)

146− [%brcn *] (grow q.gen)

147− [%brpt *] (grow q.gen)

148− [%cnts *]

149− |- ^- (unit [term type])

150− =* inner-loop $

151− ?~ q.gen

152− ~

153− %+ replace

154− loop(gen q.i.q.gen)

155− |. inner-loop(q.gen t.q.gen)

156− ::

157− [%dtkt *] (spec-and-hoon p.gen q.gen)

158− [%dtls *] loop(gen p.gen)

159− [%rock *] ~

160− [%sand *] ~

161− [%tune *] ~

162− [%dttr *] (both p.gen q.gen)

163− [%dtts *] (both p.gen q.gen)

164− [%dtwt *] loop(gen p.gen)

165− [%hand *] ~

166− [%ktbr *] loop(gen p.gen)

167− [%ktls *] (both p.gen q.gen)

168− [%ktpm *] loop(gen p.gen)

169− [%ktsg *] loop(gen p.gen)

170− [%ktwt *] loop(gen p.gen)

171− [%note *] loop(gen q.gen)

172− [%sgzp *] (both p.gen q.gen)

173− [%sggr *] loop(gen q.gen) :: should check for hoon in p.gen

174− [%tsgr *] (change p.gen q.gen)

175− [%tscm *]

176− %+ replace

177− loop(gen p.gen)

178− |.(loop(gen q.gen, sut (~(busk ut sut) p.gen)))

179− ::

180− [%wtcl *] (bell p.gen q.gen r.gen)

181− [%fits *] (both p.gen wing+q.gen)

182− [%wthx *] loop(gen wing+q.gen)

183− [%dbug *] loop(gen q.gen)

184− [%zpcm *] (both p.gen q.gen)

185− [%lost *] loop(gen p.gen)

186− [%zpmc *] (both p.gen q.gen)

187− [%zpts *] loop(gen p.gen)

188− [%zppt *] (both q.gen r.gen)

189− [%zpgl *] (spec-and-hoon p.gen q.gen)

190− [%zpzp *] ~

191− *

192− =+ doz=~(open ap gen)

193− ?: =(doz gen)

194− ~_ (show [%c 'hoon'] [%q gen])

195− ~> %mean.'play-open'

196− !!

197− loop(gen doz)

198− ==

199− ::

200− ++ replace

201− |= [a=(unit [term type]) b=(trap (unit [term type]))]

202− ^- (unit [term type])

203− ?~(a $:b a)

204− ::

205− ++ both

206− |= [a=hoon b=hoon]

207− (replace loop(gen a) |.(loop(gen b)))

208− ::

209− ++ bell

210− |= [a=hoon b=hoon c=hoon]

211− %+ replace loop(gen a)

212− |. %+ replace loop(gen b, sut (~(gain ut sut) a))

213− |. loop(gen c, sut (~(lose ut sut) a))

214− ::

215− ++ spec-and-hoon

216− |= [a=spec b=hoon]

217− (replace (find-type-in-spec sut a) |.(loop(gen b)))

218− ::

219− ++ change

220− |= [a=hoon b=hoon]

221− (replace loop(gen a) |.(loop(gen b, sut (~(play ut sut) a))))

222− ::

223− ++ grow

224− |= m=(map term tome)

225− =/ tomes ~(tap by m)

226− |- ^- (unit [term type])

227− =* outer-loop $

228− ?~ tomes

229− ~

230− =/ arms ~(tap by q.i.tomes)

231− |- ^- (unit [term type])

232− =* inner-loop $

233− ?~ arms

234− outer-loop(tomes t.tomes)

235− %+ replace

236− loop(gen q.i.arms, sut (~(play ut sut) gen))

237− |. inner-loop(arms t.arms)

238− --

239−::

240−:: Not implemented yet. I wonder whether we should modify types found

241−:: in spec mode such that if it's a mold that produces a type, it

242−:: should just display the type and not that it's technically a

243−:: function.

244−::

245−++ find-type-in-spec

246− |= [sut=type pec=spec]

247− ^- (unit [term type])

248− ~

249−::

250−++ get-id-sym

251− |= [pos=@ud =tape]

252− %^ get-id pos tape

253− ^- $-(nail (like (unit @t)))

254− ;~(sfix (punt sym) (star ;~(pose prn (just `@`10))))

255−::

256−++ get-id-cord

257− |= [pos=@ud =tape]

258− %^ get-id pos tape

259− ^- $-(nail (like (unit @t)))

260− ;~(sfix (punt (cook crip (star prn))) (star ;~(pose prn (just `@`10))))

261−::

262−++ get-id

263− |= [pos=@ud txt=tape seek=$-(nail (like (unit @t)))]

264− ^- [forward=(unit @t) backward=(unit @t) id=(unit @t)]

265− =/ forward=(unit @t)

266− (scan (slag pos txt) seek)

267− =/ backward=(unit @t)

268− %- (lift |=(t=@t (swp 3 t)))

269− (scan (flop (scag pos txt)) seek)

270− =/ id=(unit @t)

271− ?~ forward

272− ?~ backward

273− ~

274− `u.backward

275− ?~ backward

276− `u.forward

277− `(cat 3 u.backward u.forward)

278− [forward backward id]

279−::

280−:: Insert magic marker in hoon source at the given position.

281−::

282−++ insert-magic

283− |= [pos=@ud txt=tape]

284− ^- [back-pos=@ud fore-pos=@ud txt=tape]

285− :: Find beg-pos by searching backward to where the current term

286− :: begins

287− =+ (get-id-sym pos txt)

288− =/ back-pos

289− ?~ backward

290− pos

291− (sub pos (met 3 u.backward))

292− =/ fore-pos

293− ?~ forward

294− pos

295− (add pos (met 3 u.forward))

296− :+ back-pos fore-pos

297− :: Insert "magic-spoon" marker so +find-type can identify where to

298− :: stop.

299− ::

300− ;: weld

301− (scag back-pos txt)

302− ?: &(?=(~ id) ?=([%'.' *] (slag pos txt)))

303− "magic-fork"

304− "magic-spoon"

305− ?~ id

306− ""

307− "."

308− (slag back-pos txt)

309− "\0a"

310− ==

311−::

312−:: Produce the longest possible advance without choosing between

313−:: matches.

314−::

315−:: Takes a +hoon which has already has a magic-spoon marker. Useful if

316−:: you want to handle your own parsing.

317−::

318−++ advance-hoon

319− |= [sut=type gen=hoon]

320− %+ bind (find-type-mule sut gen)

321− |= [id=term typ=type]

322− =/ matches=(list (option type))

323− (search-prefix id (get-identifiers typ))

324− (longest-match matches)

325−::

326−:: Same as +advance-hoon, but takes a position and text directly.

327−::

328−++ advance-tape

329− |= [sut=type pos=@ud code=tape]

330− (advance-hoon sut (scan txt:(insert-magic pos code) vest))

331−::

332−:: Produce a list of matches.

333−::

334−:: Takes a +hoon which has already has a magic-spoon marker. Useful if

335−:: you want to handle your own parsing.

336−::

337−++ tab-list-hoon

338− |= [sut=type gen=hoon]

339− ^- (unit (list (option type)))

340− %+ bind (find-type-mule sut gen)

341− |= [id=term typ=type]

342− (search-prefix id (get-identifiers typ))

343−::

344−:: Same as +advance-hoon, but takes a position and text directly.

345−::

346−++ tab-list-tape

347− |= [sut=type pos=@ud code=tape]

348− ^- (each (unit (list (option type))) [row=@ col=@])

349− ~? > debug %start-magick

350− =/ magicked txt:(insert-magic pos code)

351− ~? > debug %start-parsing

352− =/ res (lily magicked (language-server-parser *path))

353− ?: ?=(%| -.res)

354− ~? > debug [%parsing-error p.res]

355− [%| p.res]

356− :- %&

357− ~? > debug %parsed-good

358− ((cury tab-list-hoon sut) hoon:`pile:clay`p.res)

359−::

360−:: Generators

361−++ tab-generators

362− |= [pfix=path app=(unit term) gens=(list term)]

363− ^- (list (option tank))

364− %+ turn gens

365− |= gen=term

366− ^- (option tank)

367− =/ pax=path

368− (weld pfix ~[gen %hoon])

369− =/ file

370− .^(@t %cx pax)

371− :_ (render-help file)

372− ?~ app

373− (cat 3 '+' gen)

374− ?: =(%hood u.app)

375− (cat 3 '|' gen)

376− :((cury cat 3) ':' u.app '|' gen)

377−:: Stolen from +help

378−++ render-help

379− |= a=@t

380− ^- tank

381− :- %leaf

382− =/ c (to-wain:format a)

383− ?~ c "~"

384− ?. =(':: ' (end [3 4] i.c))

385− "<undocumented>"

386− (trip i.c)

387−--

base-desk/lib/language-server/easy-print.hoondeleted−484

@@ -1,484 +0,0 @@

1−:: Fast type printing that's easy on the eyes or your money back

2−::

3−=> |%

4− +$ cape [p=(map @ud wine) q=wine]

5− +$ wine

6− $@ $? %noun

7− %path

8− %type

9− %void

10− %wall

11− %wool

12− %yarn

13− ==

14− $% [%mato p=term]

15− [%gate p=hoon q=type r=wine]

16− [%core p=(list @ta) q=wine]

17− [%face p=term q=wine]

18− [%list p=term q=wine]

19− [%pear p=term q=@]

20− [%bcwt p=(list wine)]

21− [%plot p=(list wine)]

22− [%stop p=@ud]

23− [%tree p=term q=wine]

24− [%unit p=term q=wine]

25− ==

26− --

27−|_ sut=type

28−++ dash

29− |= [mil=tape lim=char lam=tape]

30− ^- tape

31− =/ esc (~(gas in *(set @tD)) lam)

32− :- lim

33− |- ^- tape

34− ?~ mil [lim ~]

35− ?: ?| =(lim i.mil)

36− =('\\' i.mil)

37− (~(has in esc) i.mil)

38− ==

39− ['\\' i.mil $(mil t.mil)]

40− ?: (lte ' ' i.mil)

41− [i.mil $(mil t.mil)]

42− ['\\' ~(x ne (rsh 2 i.mil)) ~(x ne (end 2 i.mil)) $(mil t.mil)]

43−::

44−++ deal |=(lum=* (dish dole lum))

45−++ dial

46− |= ham=cape

47− =+ gid=*(set @ud)

48− =| top-level=? :: don't need circumfix punctuation

49− =< `tank`-:$

50− |%

51− ++ many

52− |= haz=(list wine)

53− ^- [(list tank) (set @ud)]

54− ?~ haz [~ gid]

55− =^ mor gid $(haz t.haz)

56− =^ dis gid ^$(q.ham i.haz)

57− [[dis mor] gid]

58− ::

59− ++ $

60− ^- [tank (set @ud)]

61− ?- q.ham

62− %noun :_(gid [%leaf '*' ~])

63− %path :_(gid [%leaf '/' ~])

64− %type :_(gid [%leaf '#' 't' ~])

65− %void :_(gid [%leaf '#' '!' ~])

66− %wool :_(gid [%leaf '*' '"' '"' ~])

67− %wall :_(gid [%leaf '*' '\'' '\'' ~])

68− %yarn :_(gid [%leaf '"' '"' ~])

69− [%mato *] :_(gid [%leaf '@' (trip p.q.ham)])

70− [%gate *]

71− =^ sam gid

72− ?. ?=([%plot * * *] r.q.ham)

73− ?: ?=(%plot -.r.q.ham)

74− %- (slog -:$(q.ham r.q.ham) ~)

75− `gid

76− `gid

77− [`u=- +]:$(q.ham i.p.r.q.ham, top-level |)

78− :_ gid

79− :+ %rose

80− :- ?> ?=(%core -.q.q.ham)

81− ?: ?=(%dry q.p.q.q.q.ham)

82− " -> "

83− " ~> "

84− ?: top-level

85− ["" ""]

86− ["(" ")"]

87− :+ ?~(sam leaf+"_" u.sam)

88− =/ res (mule |.((~(play ut q.q.ham) p.q.ham)))

89− ?- -.res

90− %& duck(sut p.res)

91− %| leaf+"###"

92− ==

93− ~

94− ::

95− [%core *]

96− =^ sam gid

97− ?. ?=([%plot * * ~] q.q.ham)

98− `gid

99− [`u=- +]:$(q.ham i.p.q.q.ham)

100− :_ gid

101− ?~ sam

102− :+ %rose

103− [[' ' ~] ['<' ~] ['>' ~]]

104− |- ^- (list tank)

105− ?~ p.q.ham ~

106− [[%leaf (rip 3 i.p.q.ham)] $(p.q.ham t.p.q.ham)]

107− :+ %rose

108− [" -> " "" ""]

109− :+ u.sam

110− :+ %rose

111− [[' ' ~] ['<' ~] ['>' ~]]

112− |- ^- (list tank)

113− ?~ p.q.ham ~

114− [[%leaf (rip 3 i.p.q.ham)] $(p.q.ham t.p.q.ham)]

115− ~

116− ::

117− [%face *]

118− =^ cox gid $(q.ham q.q.ham)

119− :_(gid [%palm [['=' ~] ~ ~ ~] [%leaf (trip p.q.ham)] cox ~])

120− ::

121− [%list *]

122− =^ cox gid $(q.ham q.q.ham)

123− :_(gid [%rose [" " (weld (trip p.q.ham) "(") ")"] cox ~])

124− ::

125− [%bcwt *]

126− =^ coz gid (many p.q.ham)

127− :_(gid [%rose [[' ' ~] ['?' '(' ~] [')' ~]] coz])

128− ::

129− [%plot *]

130− =^ coz gid (many p.q.ham)

131− :_(gid [%rose [[' ' ~] ['[' ~] [']' ~]] coz])

132− ::

133− [%pear *]

134− :_(gid [%leaf '$' ~(rend co [%$ p.q.ham q.q.ham])])

135− ::

136− [%stop *]

137− =+ num=~(rend co [%$ %ud p.q.ham])

138− ?: (~(has in gid) p.q.ham)

139− :_(gid [%leaf '#' num])

140− =^ cox gid

141− %= $

142− gid (~(put in gid) p.q.ham)

143− q.ham (~(got by p.ham) p.q.ham)

144− ==

145− :_(gid [%palm [['.' ~] ~ ~ ~] [%leaf ['^' '#' num]] cox ~])

146− ::

147− [%tree *]

148− =^ cox gid $(q.ham q.q.ham)

149− :_(gid [%rose [" " (weld (trip p.q.ham) "(") ")"] cox ~])

150− ::

151− [%unit *]

152− =^ cox gid $(q.ham q.q.ham)

153− :_(gid [%rose [" " (weld (trip p.q.ham) "(") ")"] cox ~])

154− ==

155− --

156−::

157−++ dish !:

158− |= [ham=cape lum=*] ^- tank

159− ~| [%dish-h ?@(q.ham q.ham -.q.ham)]

160− ~| [%lump lum]

161− ~| [%ham ham]

162− %- need

163− =| gil=(set [@ud *])

164− |- ^- (unit tank)

165− ?- q.ham

166− %noun

167− %= $

168− q.ham

169− ?: ?=(@ lum)

170− [%mato %$]

171− :- %plot

172− |- ^- (list wine)

173− [%noun ?:(?=(@ +.lum) [[%mato %$] ~] $(lum +.lum))]

174− ==

175− ::

176− %path

177− :- ~

178− :+ %rose

179− [['/' ~] ['/' ~] ~]

180− |- ^- (list tank)

181− ?~ lum ~

182− ?@ lum !!

183− ?> ?=(@ -.lum)

184− [[%leaf (rip 3 -.lum)] $(lum +.lum)]

185− ::

186− %type

187− =+ tyr=|.((dial dole))

188− =+ vol=tyr(sut lum)

189− =+ cis=;;(tank .*(vol [%9 2 %0 1]))

190− :^ ~ %palm

191− [~ ~ ~ ~]

192− [[%leaf '#' 't' '/' ~] cis ~]

193− ::

194− %wall

195− :- ~

196− :+ %rose

197− [[' ' ~] ['<' '|' ~] ['|' '>' ~]]

198− |- ^- (list tank)

199− ?~ lum ~

200− ?@ lum !!

201− [[%leaf (trip ;;(@ -.lum))] $(lum +.lum)]

202− ::

203− %wool

204− :- ~

205− :+ %rose

206− [[' ' ~] ['<' '<' ~] ['>' '>' ~]]

207− |- ^- (list tank)

208− ?~ lum ~

209− ?@ lum !!

210− [(need ^$(q.ham %yarn, lum -.lum)) $(lum +.lum)]

211− ::

212− %yarn

213− [~ %leaf (dash (tape lum) '"' "\{")]

214− ::

215− %void

216− ~

217− ::

218− [%mato *]

219− ?. ?=(@ lum)

220− ~

221− :+ ~

222− %leaf

223− ?+ (rash p.q.ham ;~(sfix (cook crip (star low)) (star hig)))

224− ~(rend co [%$ p.q.ham lum])

225− %$ ~(rend co [%$ %ud lum])

226− %t (dash (rip 3 lum) '\'' ~)

227− %tas ['%' ?.(=(0 lum) (rip 3 lum) ['$' ~])]

228− ==

229− ::

230− [%gate *]

231− !!

232− ::

233− [%core *]

234− :: XX needs rethinking for core metal

235− :: ?. ?=(^ lum) ~

236− :: => .(lum `*`lum)

237− :: =- ?~(tok ~ [~ %rose [[' ' ~] ['<' ~] ['>' ~]] u.tok])

238− :: ^= tok

239− :: |- ^- (unit (list tank))

240− :: ?~ p.q.ham

241− :: =+ den=^$(q.ham q.q.ham)

242− :: ?~(den ~ [~ u.den ~])

243− :: =+ mur=$(p.q.ham t.p.q.ham, lum +.lum)

244− :: ?~(mur ~ [~ [[%leaf (rip 3 i.p.q.ham)] u.mur]])

245− [~ (dial ham)]

246− ::

247− [%face *]

248− =+ wal=$(q.ham q.q.ham)

249− ?~ wal

250− ~

251− [~ %palm [['=' ~] ~ ~ ~] [%leaf (trip p.q.ham)] u.wal ~]

252− ::

253− [%list *]

254− ?: =(~ lum)

255− [~ %leaf '~' ~]

256− =- ?~ tok

257− ~

258− [~ %rose [[' ' ~] ['~' '[' ~] [']' ~]] u.tok]

259− ^= tok

260− |- ^- (unit (list tank))

261− ?: ?=(@ lum)

262− ?.(=(~ lum) ~ [~ ~])

263− =+ [for=^$(q.ham q.q.ham, lum -.lum) aft=$(lum +.lum)]

264− ?. &(?=(^ for) ?=(^ aft))

265− ~

266− [~ u.for u.aft]

267− ::

268− [%bcwt *]

269− |- ^- (unit tank)

270− ?~ p.q.ham

271− ~

272− =+ wal=^$(q.ham i.p.q.ham)

273− ?~ wal

274− $(p.q.ham t.p.q.ham)

275− wal

276− ::

277− [%plot *]

278− =- ?~ tok

279− ~

280− [~ %rose [[' ' ~] ['[' ~] [']' ~]] u.tok]

281− ^= tok

282− |- ^- (unit (list tank))

283− ?~ p.q.ham

284− ~

285− ?: ?=([* ~] p.q.ham)

286− =+ wal=^$(q.ham i.p.q.ham)

287− ?~(wal ~ [~ [u.wal ~]])

288− ?@ lum

289− ~

290− =+ gim=^$(q.ham i.p.q.ham, lum -.lum)

291− ?~ gim

292− ~

293− =+ myd=$(p.q.ham t.p.q.ham, lum +.lum)

294− ?~ myd

295− ~

296− [~ u.gim u.myd]

297− ::

298− [%pear *]

299− ?. =(lum q.q.ham)

300− ~

301− =. p.q.ham

302− (rash p.q.ham ;~(sfix (cook crip (star low)) (star hig)))

303− =+ fox=$(q.ham [%mato p.q.ham])

304− ?> ?=([~ %leaf ^] fox)

305− ?: ?=(?(%n %tas) p.q.ham)

306− fox

307− [~ %leaf '%' p.u.fox]

308− ::

309− [%stop *]

310− ?: (~(has in gil) [p.q.ham lum]) ~

311− =+ kep=(~(get by p.ham) p.q.ham)

312− ?~ kep

313− ~|([%stop-loss p.q.ham] !!)

314− $(gil (~(put in gil) [p.q.ham lum]), q.ham u.kep)

315− ::

316− [%tree *]

317− =- ?~ tok

318− ~

319− [~ %rose [[' ' ~] ['{' ~] ['}' ~]] u.tok]

320− ^= tok

321− =+ tuk=*(list tank)

322− |- ^- (unit (list tank))

323− ?: =(~ lum)

324− [~ tuk]

325− ?. ?=([n=* l=* r=*] lum)

326− ~

327− =+ rol=$(lum r.lum)

328− ?~ rol

329− ~

330− =+ tim=^$(q.ham q.q.ham, lum n.lum)

331− ?~ tim

332− ~

333− $(lum l.lum, tuk [u.tim u.rol])

334− ::

335− [%unit *]

336− ?@ lum

337− ?.(=(~ lum) ~ [~ %leaf '~' ~])

338− ?. =(~ -.lum)

339− ~

340− =+ wal=$(q.ham q.q.ham, lum +.lum)

341− ?~ wal

342− ~

343− [~ %rose [[' ' ~] ['[' ~] [']' ~]] [%leaf '~' ~] u.wal ~]

344− ==

345−::

346−++ doge

347− |= ham=cape

348− =- ?+ woz woz

349− [%list * [%mato %'ta']] %path

350− [%list * [%mato %'t']] %wall

351− [%list * [%mato %'tD']] %yarn

352− [%list * %yarn] %wool

353− ==

354− ^= woz

355− ^- wine

356− ?. ?=([%stop *] q.ham)

357− ?: ?& ?= [%bcwt [%pear %n %0] [%plot [%pear %n %0] [%face *] ~] ~]

358− q.ham

359− =(1 (met 3 p.i.t.p.i.t.p.q.ham))

360− ==

361− [%unit =<([p q] i.t.p.i.t.p.q.ham)]

362− q.ham

363− =+ may=(~(get by p.ham) p.q.ham)

364− ?~ may

365− q.ham

366− =+ nul=[%pear %n 0]

367− ?. ?& ?=([%bcwt *] u.may)

368− ?=([* * ~] p.u.may)

369− |(=(nul i.p.u.may) =(nul i.t.p.u.may))

370− ==

371− q.ham

372− =+ din=?:(=(nul i.p.u.may) i.t.p.u.may i.p.u.may)

373− ?: ?& ?=([%plot [%face *] [%face * %stop *] ~] din)

374− =(p.q.ham p.q.i.t.p.din)

375− =(1 (met 3 p.i.p.din))

376− =(1 (met 3 p.i.t.p.din))

377− ==

378− :+ %list

379− (cat 3 p.i.p.din p.i.t.p.din)

380− q.i.p.din

381− ?: ?& ?= $: %plot

382− [%face *]

383− [%face * %stop *]

384− [[%face * %stop *] ~]

385− ==

386− din

387− =(p.q.ham p.q.i.t.p.din)

388− =(p.q.ham p.q.i.t.t.p.din)

389− =(1 (met 3 p.i.p.din))

390− =(1 (met 3 p.i.t.p.din))

391− =(1 (met 3 p.i.t.t.p.din))

392− ==

393− :+ %tree

394− %^ cat

395− 3

396− p.i.p.din

397− (cat 3 p.i.t.p.din p.i.t.t.p.din)

398− q.i.p.din

399− q.ham

400−::

401−++ dole

402− ^- cape

403− =+ gil=*(set type)

404− =+ dex=[p=*(map type @) q=*(map @ wine)]

405− =< [q.p q]

406− |- ^- [p=[p=(map type @) q=(map @ wine)] q=wine]

407− =- [p.tez (doge q.p.tez q.tez)]

408− ^= tez

409− ^- [p=[p=(map type @) q=(map @ wine)] q=wine]

410− ?: (~(meet ut sut) -:!>(*type))

411− [dex %type]

412− ?- sut

413− %noun [dex sut]

414− %void [dex sut]

415− [%atom *] [dex ?~(q.sut [%mato p.sut] [%pear p.sut u.q.sut])]

416− [%cell *]

417− =+ hin=$(sut p.sut)

418− =+ yon=$(dex p.hin, sut q.sut)

419− :- p.yon

420− :- %plot

421− ?:(?=([%plot *] q.yon) [q.hin p.q.yon] [q.hin q.yon ~])

422− ::

423− [%core *]

424− ?: ?=([[%$ [[%$ @ *] ~ ~]] ~ ~] q.r.q.sut)

425− =/ dad $(sut p.sut)

426− :- p.dad

427− ~! q.r.q.sut

428− [%gate q.n.q.n.q.r.q.sut sut(r.p.q %gold) q.dad]

429− =+ yad=$(sut p.sut)

430− :- p.yad

431− =+ ^= doy ^- [p=(list @ta) q=wine]

432− ?: ?=([%core *] q.yad)

433− [p.q.yad q.q.yad]

434− [~ q.yad]

435− :- %core

436− :_ q.doy

437− :_ p.doy

438− %^ cat 3

439− %~ rent co

440− :+ %$ %ud

441− %- ~(rep by (~(run by q.r.q.sut) |=(tome ~(wyt by +<))))

442− |=([[@ a=@u] b=@u] (add a b))

443− %^ cat 3

444− ?-(r.p.q.sut %gold '.', %iron '|', %lead '?', %zinc '&')

445− =+ gum=(mug q.r.q.sut)

446− %+ can 3

447− :~ [1 (add 'a' (mod gum 26))]

448− [1 (add 'a' (mod (div gum 26) 26))]

449− [1 (add 'a' (mod (div gum 676) 26))]

450− ==

451− ::

452− [%hint *]

453− $(sut q.sut)

454− ::

455− [%face *]

456− =+ yad=$(sut q.sut)

457− ?^(p.sut yad [p.yad [%face p.sut q.yad]])

458− ::

459− [%fork *]

460− =+ yed=(sort ~(tap in p.sut) aor)

461− =- [p [%bcwt q]]

462− |- ^- [p=[p=(map type @) q=(map @ wine)] q=(list wine)]

463− ?~ yed

464− [dex ~]

465− =+ mor=$(yed t.yed)

466− =+ dis=^$(dex p.mor, sut i.yed)

467− [p.dis q.dis q.mor]

468− ::

469− [%hold *]

470− =+ hey=(~(get by p.dex) sut)

471− ?^ hey

472− [dex [%stop u.hey]]

473− ?: (~(has in gil) sut)

474− =+ dyr=+(~(wyt by p.dex))

475− [[(~(put by p.dex) sut dyr) q.dex] [%stop dyr]]

476− =+ rom=$(gil (~(put in gil) sut), sut ~(repo ut sut))

477− =+ rey=(~(get by p.p.rom) sut)

478− ?~ rey

479− rom

480− [[p.p.rom (~(put by q.p.rom) u.rey q.rom)] [%stop u.rey]]

481− ==

482−::

483−++ duck (dial dole)

484−--

base-desk/lib/language-server/json.hoondeleted−301

@@ -1,301 +0,0 @@

1−/- lsp=language-server

2−|%

3−::

4−++ util

5− |%

6− ++ get-json-string

7− |= [jon=(map @t json) key=@t]

8− ^- (unit cord)

9− =/ cord-jon=(unit json)

10− (~(get by jon) key)

11− ?~ cord-jon

12− ~

13− ?> ?=([%s *] u.cord-jon)

14− `p.u.cord-jon

15− --

16−::

17−::

18−++ dejs

19− =, dejs:format

20− |%

21− ++ request

22− |= jon=json

23− ?> ?=([%o *] jon)

24− =/ method=cord

25− %- method

26− (trip (need (get-json-string:util p.jon 'method')))

27− =/ id=cord

28− (need (get-json-string:util p.jon 'id'))

29− =/ params=json

30− (~(got by p.jon) 'params')

31− ^- all:request:lsp

32− |^

33− ?+ method [%unknown jon]

34− %text-document--hover (text-document--hover params id)

35− %text-document--completion (text-document--completion params id)

36− ==

37− ::

38− ++ text-document--hover

39− |= [params=json id=cord]

40− ^- text-document--hover:request:lsp

41− :+ %text-document--hover

42− id

43− %. params

44− %: ot

45− position+position

46− 'textDocument'^text-document-id

47− ~

48− ==

49− ::

50− ++ text-document--completion

51− |= [params=json id=cord]

52− :+ %text-document--completion id

53− %. params

54− %: ot

55− position+position

56− 'textDocument'^text-document-id

57− ~

58− ==

59− --

60− ::

61− ++ notification

62− |= jon=json

63− ?> ?=([%o *] jon)

64− =/ method=cord

65− %- method

66− (trip (need (get-json-string:util p.jon 'method')))

67− =/ params=json

68− (~(got by p.jon) 'params')

69− ^- all:notification:lsp

70− |^

71− ?+ method [%unknown jon]

72− %text-document--did-change

73− (text-document--did-change params)

74− %text-document--did-open

75− (text-document--did-open params)

76− %text-document--did-save

77− (text-document--did-save params)

78− %text-document--did-close

79− (text-document--did-close params)

80− ==

81− ::

82− ++ text-document--did-save

83− |= jon=json

84− ^- text-document--did-save:notification:lsp

85− ?> ?=([%o *] jon)

86− =/ doc-id

87− (~(got by p.jon) 'textDocument')

88− :- %text-document--did-save

89− (text-document-id doc-id)

90− ::

91− ++ text-document--did-close

92− |= jon=json

93− ^- text-document--did-close:notification:lsp

94− ?> ?=([%o *] jon)

95− =/ doc-id

96− (~(got by p.jon) 'textDocument')

97− :- %text-document--did-close

98− (text-document-id doc-id)

99− ::

100− ++ text-document--did-change

101− |= jon=json

102− ^- text-document--did-change:notification:lsp

103− :- %text-document--did-change

104− %. jon

105− %: ot

106− 'textDocument'^text-document-id

107− 'contentChanges'^text-document-changes

108− ~

109− ==

110− ::

111− ++ text-document--did-open

112− |= jon=json

113− ^- text-document--did-open:notification:lsp

114− ?> ?=([%o *] jon)

115− :- %text-document--did-open

116− (text-document-item (~(got by p.jon) 'textDocument'))

117− --

118− :: Utilities

119− ::

120− ++ text-document-item

121− |= jon=json

122− ^- text-document-item:lsp

123− %. jon

124− %: ot

125− uri+so

126− version+(mu ni)

127− text+so

128− ~

129− ==

130− ::

131− ++ text-document-id

132− %: ou

133− uri+(un so)

134− version+(uf ~ (pe ~ ni))

135− ~

136− ==

137− ::

138− ++ text-document-changes

139− %- ar

140− %: ou

141− range+(uf ~ (pe ~ range))

142− 'rangeLength'^(uf ~ (pe ~ ni))

143− text+(un so)

144− ~

145− ==

146− ::

147− ++ method

148− |= =tape

149− ^- cord

150− %- crip %- zing

151− %+ join "--"

152− ^- (list ^tape)

153− %+ turn

154− ^- (list (list ^tape))

155− %+ scan

156− tape

157− %+ more

158− fas

159− ;~ plug

160− (star low)

161− (star ;~(plug (cook |=(a=@ (add a 32)) hig) (star low)))

162− ==

163− |= words=(list ^tape)

164− ^- ^tape

165− (zing (join "-" words))

166− ::

167− ++ range

168− %: ot

169− start+position

170− end+position

171− ~

172− ==

173− ::

174− ++ position

175− %: ot

176− line+ni

177− character+ni

178− ~

179− ==

180− --

181−::

182−++ enjs

183− =, enjs:format

184− |%

185− ++ text-document--publish-diagnostics

186− |= pub=text-document--publish-diagnostics:notification:lsp

187− ^- json

188− %: pairs

189− uri+s+uri.pub

190− diagnostics+a+(turn diagnostics.pub diagnostic)

191− ~

192− ==

193− ++ notification

194− |= notification=all:notification:lsp

195− ^- json

196− =/ params=json

197− ?+ -.notification !!

198− %text-document--publish-diagnostics

199− (text-document--publish-diagnostics notification)

200− ==

201− ~! -.notification

202− =/ method=cord (crip (unparse-method -.notification))

203− %: pairs

204− method+s+method

205− params+params

206− ~

207− ==

208− ::

209− ++ response

210− |= res=all:response:lsp

211− ^- json

212− |^

213− ?- -.res

214− %text-document--hover (text-document--hover res)

215− %text-document--completion (text-document--completion res)

216− ==

217− ::

218− ++ wrap-in-id

219− |= [id=cord res=json]

220− %: pairs

221− id+s+id

222− result+res

223− ~

224− ==

225− ++ text-document--hover

226− |= hov=text-document--hover:response:lsp

227− %+ wrap-in-id id.hov

228− %+ frond 'contents'

229− ?~ contents.hov

230− ~

231− s+u.contents.hov

232− ::

233− ++ text-document--completion

234− |= com=text-document--completion:response:lsp

235− %+ wrap-in-id id.com

236− [%a (turn completion.com completion-item)]

237− --

238− ++ unparse-method

239− |= =cord

240− ^- ^tape

241− %+ rash cord

242− %+ cook |=(l=(list ^tape) (zing (join "/" l)))

243− %+ more (jest '--')

244− %+ cook

245− |= tapes=(list ^tape)

246− ^- ^tape

247− ?~ tapes ~

248− %- zing

249− :- i.tapes

250− %+ turn t.tapes

251− |= t=^tape

252− ^- ^tape

253− ?~ t ~

254− [`@tD`(sub i.t 32) t.t]

255− %+ more

256− ;~(less (jest '--') hep)

257− (star alf)

258− ::

259− ++ completion-item

260− |= com=completion-item:lsp

261− ^- json

262− %: pairs

263− label+s+label.com

264− detail+s+detail.com

265− kind+(numb kind.com)

266− 'documentation'^s+doc.com

267− 'insertText'^s+insert-text.com

268− 'insertTextFormat'^(numb insert-text-format.com)

269− ~

270− ==

271− ::

272− ++ position

273− |= =position:lsp

274− ^- json

275− %: pairs

276− line+(numb row.position)

277− character+(numb col.position)

278− ~

279− ==

280− ::

281− ++ range

282− |= =range:lsp

283− ^- json

284− %: pairs

285− start+(position start.range)

286− end+(position end.range)

287− ~

288− ==

289− ::

290− ++ diagnostic

291− |= diag=diagnostic:lsp

292− ^- json

293− %: pairs

294− range+(range range.diag)

295− severity+(numb severity.diag)

296− message+s+message.diag

297− ~

298− ==

299− ::

300− --

301−--

base-desk/lib/language-server/parser.hoondeleted−72

@@ -1,72 +0,0 @@

1−:: lifted directly from ford, should probably be in zuse

2−=, clay

3−=< pile-rule

4−|%

5−++ pile-rule

6− |= pax=path

7− %- full

8− %+ ifix

9− :_ gay

10− :: parse optional /? and ignore

11− ::

12− ;~(plug gay (punt ;~(plug fas wut gap dem gap)))

13− |^

14− ;~ plug

15− %+ cook (bake zing (list (list taut)))

16− %+ rune hep

17− (most ;~(plug com gaw) taut-rule)

18− ::

19− %+ cook (bake zing (list (list taut)))

20− %+ rune lus

21− (most ;~(plug com gaw) taut-rule)

22− ::

23− %+ rune tis

24− ;~(plug sym ;~(pfix gap stap))

25− ::

26− %+ rune sig

27− ;~((glue gap) sym wyde:vast stap)

28− ::

29− %+ rune cen

30− ;~(plug sym ;~(pfix gap ;~(pfix cen sym)))

31− ::

32− %+ rune buc

33− ;~ (glue gap)

34− sym

35− ;~(pfix cen sym)

36− ;~(pfix cen sym)

37− ==

38− ::

39− %+ rune tar

40− ;~ (glue gap)

41− sym

42− ;~(pfix cen sym)

43− stap

44− ==

45− ::

46− %+ stag %tssg

47− (most gap tall:(vang & pax))

48− ==

49− ::

50− ++ pant

51− |* fel=^rule

52− ;~(pose fel (easy ~))

53− ::

54− ++ mast

55− |* [bus=^rule fel=^rule]

56− ;~(sfix (more bus fel) bus)

57− ::

58− ++ rune

59− |* [bus=^rule fel=^rule]

60− %- pant

61− %+ mast gap

62− ;~(pfix fas bus gap fel)

63− --

64−::

65−++ taut-rule

66− %+ cook |=(taut +<)

67− ;~ pose

68− (stag ~ ;~(pfix tar sym))

69− ;~(plug (stag ~ sym) ;~(pfix tis sym))

70− (cook |=(a=term [`a a]) sym)

71− ==

72−--

base-desk/lib/language-server/rune-snippet.hoondeleted−532

@@ -1,532 +0,0 @@

1−/- lsp-sur=language-server

2−/+ auto=language-server-complete

3−=>

4−|%

5−++ snippet

6− |= [rune=tape text=tape]

7− ^- json

8− =, enjs:format

9− %- pairs

10− :~ 'label'^(tape rune)

11− 'insertTextFormat'^(numb 2)

12− 'insertText'^(tape text)

13− ==

14−::

15−++ runes

16− ^- (list (option:auto tape))

17− :~ :- '|$'

18− """

19− $\{1:sample}

20− $\{2:body}

21− """

22− :- '|_'

23− """

24− $\{1:sample}

25− ++ $\{2:arm}

26− $\{3:body}

27− --

28− """

29− :- '|:'

30− """

31− $\{1:sample}

32− $\{2:body}

33− """

34− :- '|%'

35− """

36−

37− ++ $\{1:arm}

38− $\{2:body}

39− --

40− """

41− :- '|.'

42− """

43− $\{1:body}

44− """

45− :- '|^'

46− """

47−

48− $\{1:body}

49− ::

50− ++ $\{2:arm}

51− $\{3:body}

52− --

53− """

54− :- '|-'

55− """

56− $\{1:body}

57− """

58− :- '|~'

59− """

60− $\{1:sample}

61− $\{2:body}

62− """

63− :- '|*'

64− """

65− $\{1:sample}

66− $\{2:body}

67− """

68− :- '|='

69− """

70− $\{1:sample}

71− $\{2:body}

72− """

73− :- '|@'

74− """

75− ++ $\{1:arm}

76− $\{2:body}

77− --

78− """

79− :- '|?'

80− """

81− $\{1:sample}

82− """

83− ::

84− :- ':_'

85− """

86− $\{1:tail}

87− $\{2:head}

88− """

89− :- ':^'

90− """

91− $\{1:car}

92− $\{2:cadr}

93− $\{3:caddr}

94− $\{4:cddr}

95− """

96− :- ':-'

97− """

98− $\{1:tail}

99− $\{2:head}

100− """

101− :- ':+'

102− """

103− $\{1:car}

104− $\{2:cadr}

105− $\{3:cddr}

106− """

107− :- ':~'

108− """

109− $\{1:item}

110− ==

111− """

112− :- ':*'

113− """

114− $\{1:item}

115− ==

116− """

117− ::

118− :- '%_'

119− """

120− $\{1:target}

121− $\{2:wing} $\{3:new-value}

122− ==

123− """

124− :- '%.'

125− """

126− $\{1:arg}

127− $\{2:gate}

128− """

129− :- '%-'

130− """

131− $\{1:gate}

132− $\{2:arg}

133− """

134− :- '%:'

135− """

136− $\{1:gate}

137− $\{2:args}

138− ==

139− """

140− :- '%*'

141− """

142− $\{1:target-wing} $\{2:from}

143− $\{3:wing} $\{4:new-value}

144− ==

145− """

146− :- '%^'

147− """

148− $\{1:gate}

149− $\{2:arg1}

150− $\{3:arg2}

151− $\{4:arg3}

152− """

153− :- '%+'

154− """

155− $\{1:gate}

156− $\{2:arg1}

157− $\{3:arg2}

158− """

159− :- '%~'

160− """

161− $\{1:arm}

162− $\{2:core}

163− $\{3:arg}

164− """

165− :- '%='

166− """

167− $\{1:target}

168− $\{2:wing} $\{3:new-value}

169− ==

170− """

171− ::

172− :- '.^'

173− """

174− $\{1:mold}

175− $\{2:path}

176− """

177− :- '.+'

178− """

179− $\{1:atom}

180− """

181− :- '.*'

182− """

183− $\{1:subject}

184− $\{2:formula}

185− """

186− :- '.='

187− """

188− $\{1:a}

189− $\{2:b}

190− """

191− :- '.?'

192− """

193− $\{1:noun}

194− """

195− ::

196− :- '^|'

197− """

198− $\{1:iron-core}

199− """

200− :- '^.'

201− """

202− $\{1:a}

203− $\{2:b}

204− """

205− :- '^+'

206− """

207− $\{1:like}

208− $\{2:body}

209− """

210− :- '^-'

211− """

212− $\{1:type}

213− $\{2:body}

214− """

215− :- '^&'

216− """

217− $\{1:zinc-core}

218− """

219− :- '^~'

220− """

221− $\{1:constant}

222− """

223− :- '^='

224− """

225− $\{1:face}

226− $\{2:body}

227− """

228− :- '^?'

229− """

230− $\{1:lead-core}

231− """

232− :- '^*'

233− """

234− $\{1:type}

235− """

236− :- '^:'

237− """

238− $\{1:type}

239− """

240− ::

241− :- '~|'

242− """

243− $\{1:trace}

244− $\{2:body}

245− """

246− :- '~_'

247− """

248− $\{1:tank}

249− $\{2:body}

250− """

251− :- '~%'

252− """

253− $\{1:name}

254− $\{2:parent}

255− ~

256− $\{3:body}

257− """

258− :- '~/'

259− """

260− $\{1:name}

261− $\{2:body}

262− """

263− :- '~<'

264− """

265− $\{1:hint}

266− $\{2:body}

267− """

268− :- '~>'

269− """

270− $\{1:hint}

271− $\{2:body}

272− """

273− :- '~$'

274− """

275− $\{1:name}

276− $\{2:body}

277− """

278− :- '~+'

279− """

280−

281− $\{1:body}

282− """

283− :- '~&'

284− """

285− $\{1:printf}

286− $\{2:body}

287− """

288− :- '~='

289− """

290− $\{1:a}

291− $\{2:b}

292− """

293− :- '~?'

294− """

295− $\{1:condition}

296− $\{2:printf}

297− $\{3:body}

298− """

299− :- '~!'

300− """

301− $\{1:type}

302− $\{2:body}

303− """

304− ::

305− :- ';='

306− """

307− $\{1:manx}

308− ==

309− """

310− :- ';:'

311− """

312− $\{1:gate}

313− $\{2:args}

314− ==

315− """

316− :- ';/'

317− """

318− $\{1:tape}

319− """

320− :- ';<'

321− """

322− $\{1:type} bind:m $\{2:body1}

323− $\{3:body2}

324− """

325− :- ';~'

326− """

327− $\{1:gate}

328− $\{2:args}

329− ==

330− """

331− :- ';;'

332− """

333− $\{1:type}

334− $\{2:body}

335− """

336− ::

337− :- '=|'

338− """

339− $\{1:type}

340− $\{2:body}

341− """

342− :- '=:'

343− """

344− $\{1:wing} $\{2:value}

345− ==

346− $\{3:body}

347− """

348− :- '=/'

349− """

350− $\{1:face}

351− $\{2:value}

352− $\{3:body}

353− """

354− :- '=;'

355− """

356− $\{1:face}

357− $\{2:body}

358− $\{3:value}

359− """

360− :- '=.'

361− """

362− $\{1:wing}

363− $\{2:value}

364− $\{3:body}

365− """

366− :- '=?'

367− """

368− $\{1:wing} $\{2:condition}

369− $\{3:value}

370− $\{4:body}

371− """

372− :- '=<'

373− """

374− $\{1:formula}

375− $\{2:subject}

376− """

377− :- '=-'

378− """

379− $\{1:body}

380− $\{2:value}

381− """

382− :- '=>'

383− """

384− $\{1:subject}

385− $\{2:formula}

386− """

387− :- '=^'

388− """

389− $\{1:face} $\{2:wing}

390− $\{3:computation}

391− $\{4:body}

392− """

393− :- '=+'

394− """

395− $\{1:value}

396− $\{2:body}

397− """

398− :- '=~'

399− """

400−

401− $\{1:body}

402− """

403− :- '=*'

404− """

405− $\{1:alias} $\{2:value}

406− $\{3:body}

407− """

408− :- '=,'

409− """

410− $\{1:alias}

411− $\{3:body}

412− """

413− ::

414− :- '?|'

415− """

416− $\{1:condition}

417− ==

418− """

419− :- '?-'

420− """

421− $\{1:case}

422− $\{2:type} $\{3:value}

423− ==

424− """

425− :- '?:'

426− """

427− $\{1:if}

428− $\{2:then}

429− $\{3:else}

430− """

431− :- '?.'

432− """

433− $\{1:if}

434− $\{2:else}

435− $\{3:then}

436− """

437− :- '?^'

438− """

439− $\{1:value}

440− $\{2:if-cell}

441− $\{3:if-atom}

442− """

443− :- '?<'

444− """

445− $\{1:assertion}

446− $\{2:body}

447− """

448− :- '?>'

449− """

450− $\{1:assertion}

451− $\{2:body}

452− """

453− :- '?+'

454− """

455− $\{1:case} $\{2:else}

456− $\{3:type} $\{4:value}

457− ==

458− """

459− :- '?&'

460− """

461− $\{1:condition}

462− ==

463− """

464− :- '?@'

465− """

466− $\{1:value}

467− $\{2:if-atom}

468− $\{3:if-cell}

469− """

470− :- '?~'

471− """

472− $\{1:value}

473− $\{2:if-null}

474− $\{3:if-nonnull}

475− """

476− :- '?#'

477− """

478− $\{1:skin}

479− $\{2:wing}

480− """

481− :- '?='

482− """

483− $\{1:type}

484− $\{2:wing}

485− """

486− :- '?!'

487− """

488− $\{1:loobean}

489− """

490− ::

491− :- '!,'

492− """

493− *hoon

494− $\{1:ast}

495− """

496− :- '!>'

497− """

498− $\{1:value}

499− """

500− :- '!;'

501− """

502− $\{1:type}

503− $\{2:body}

504− """

505− :- '!='

506− """

507− $\{1:body}

508− """

509− :- '!@'

510− """

511− $\{1:wing}

512− $\{2:if-not-exists}

513− $\{3:if-exists}

514− """

515− :- '!?'

516− """

517− $\{1:version}

518− $\{2:body}

519− """

520− :- '!!'

521− ""

522− ==

523−--

524−|= rune=tape

525−^- (list completion-item:lsp-sur)

526−=? rune =(' ' (snag 0 rune))

527− (slag 1 rune)

528−~& rune

529−%+ turn (search-prefix:auto (crip rune) runes)

530−|= [name=cord snippet=tape]

531−^- completion-item:lsp-sur

532−[name 1 '' '' (crip snippet) 2]

base-desk/lib/mip.hoondeleted−55

@@ -1,55 +0,0 @@

1−|%

2−++ mip :: map of maps

3− |$ [kex key value]

4− (map kex (map key value))

5−::

6−++ bi :: mip engine

7− =| a=(map * (map))

8− |@

9− ++ del

10− |* [b=* c=*]

11− =+ d=(~(gut by a) b ~)

12− =+ e=(~(del by d) c)

13− ?~ e

14− (~(del by a) b)

15− (~(put by a) b e)

16− ::

17− ++ get

18− |* [b=* c=*]

19− => .(b `_?>(?=(^ a) p.n.a)`b, c `_?>(?=(^ a) ?>(?=(^ q.n.a) p.n.q.n.a))`c)

20− ^- (unit _?>(?=(^ a) ?>(?=(^ q.n.a) q.n.q.n.a)))

21− (~(get by (~(gut by a) b ~)) c)

22− ::

23− ++ got

24− |* [b=* c=*]

25− (need (get b c))

26− ::

27− ++ gut

28− |* [b=* c=* d=*]

29− (~(gut by (~(gut by a) b ~)) c d)

30− ::

31− ++ has

32− |* [b=* c=*]

33− !=(~ (get b c))

34− ::

35− ++ key

36− |* b=*

37− ~(key by (~(gut by a) b ~))

38− ::

39− ++ put

40− |* [b=* c=* d=*]

41− %+ ~(put by a) b

42− %. [c d]

43− %~ put by

44− (~(gut by a) b ~)

45− ::

46− ++ tap

47− ::NOTE naive turn-based implementation find-errors ):

48− =< $

49− =+ b=`_?>(?=(^ a) *(list [x=_p.n.a _?>(?=(^ q.n.a) [y=p v=q]:n.q.n.a)]))`~

50− |. ^+ b

51− ?~ a

52− b

53− $(a r.a, b (welp (turn ~(tap by q.n.a) (lead p.n.a)) $(a l.a)))

54− --

55−--

base-desk/lib/naive.hoondeleted−926

@@ -1,926 +0,0 @@

1−/+ tiny

2−!.

3−=> => tiny

4−:: Laconic bit

5−::

6−=| lac=?

7−:: Constants

8−::

9−|%

10−:: Transfers on L1 to this address count as depositing to L2

11−::

12−++ deposit-address 0x1111.1111.1111.1111.1111.1111.1111.1111.1111.1111

13−++ log-names

14− |%

15− :: Generated with (keccak-256:keccak:crypto (as-octs:mimes:html name))

16− ::

17− :: OwnerChanged(uint32,address)

18− ++ owner-changed

19− 0x16d0.f539.d49c.6cad.822b.767a.9445.bfb1.

20− cf7e.a6f2.a6c2.b120.a7ea.4cc7.660d.8fda

21− ::

22− :: Activated(uint32)

23− ++ activated

24− 0xe74c.0380.9d07.69e1.b1f7.06cc.8414.258c.

25− d1f3.b6fe.020c.d15d.0165.c210.ba50.3a0f

26− ::

27− :: Spawned(uint32,uint32)

28− ++ spawned

29− 0xb2d3.a6e7.a339.f5c8.ff96.265e.2f03.a010.

30− a854.1070.f374.4a24.7090.9644.1508.1546

31− ::

32− :: OwnershipTransferred(address,address)

33− ++ ownership-transferred

34− 0x8be0.079c.5316.5914.1344.cd1f.d0a4.f284.

35− 1949.7f97.22a3.daaf.e3b4.186f.6b64.57e0

36− ::

37− :: EscapeRequested(uint32,uint32)

38− ++ escape-requested

39− 0xb4d4.850b.8f21.8218.141c.5665.cba3.79e5.

40− 3e9b.b015.b51e.8d93.4be7.0210.aead.874a

41− ::

42− :: EscapeCanceled(uint32,uint32)

43− ++ escape-canceled

44− 0xd653.bb0e.0bb7.ce83.93e6.24d9.8fbf.17cd.

45− a590.2c83.28ed.0cd0.9988.f368.90d9.932a

46− ::

47− :: EscapeAccepted(uint32,uint32)

48− ++ escape-accepted

49− 0x7e44.7c9b.1bda.4b17.4b07.96e1.00bf.7f34.

50− ebf3.6dbb.7fe6.6549.0b1b.fce6.246a.9da5

51− ::

52− :: LostSponsor(uint32,uint32)

53− ++ lost-sponsor

54− 0xd770.4f9a.2519.3dbd.0b0c.b4a8.09fe.ffff.

55− a7f1.9d1a.ae88.17a7.1346.c194.4482.10d5

56− ::

57− :: ChangedKeys(uint32,bytes32,bytes32,uint32,uint32)

58− ++ changed-keys

59− 0xaa10.e7a0.117d.4323.f1d9.9d63.0ec1.69be.

60− bb3a.988e.8957.70e3.5198.7e01.ff54.23d5

61− ::

62− :: BrokeContinuity(uint32,uint32)

63− ++ broke-continuity

64− 0x2929.4799.f1c2.1a37.ef83.8e15.f79d.d91b.

65− cee2.df99.d63c.d1c1.8ac9.68b1.2951.4e6e

66− ::

67− :: ChangedSpawnProxy(uint32,address)

68− ++ changed-spawn-proxy

69− 0x9027.36af.7b3c.efe1.0d9e.840a.ed0d.687e.

70− 35c8.4095.122b.2505.1a20.ead8.866f.006d

71− ::

72− :: ChangedTransferProxy(uint32,address)

73− ++ changed-transfer-proxy

74− 0xcfe3.69b7.197e.7f0c.f067.93ae.2472.a9b1.

75− 3583.fecb.ed2f.78df.a14d.1f10.796b.847c

76− ::

77− :: ChangedManagementProxy(uint32,address)

78− ++ changed-management-proxy

79− 0xab9c.9327.cffd.2acc.168f.afed.be06.139f.

80− 5f55.cb84.c761.df05.e051.1c25.1e2e.e9bf

81− ::

82− :: ChangedVotingProxy(uint32,address)

83− ++ changed-voting-proxy

84− 0xcbd6.269e.c714.57f2.c7b1.a227.74f2.46f6.

85− c5a2.eae3.795e.d730.0db5.1768.0c61.c805

86− ::

87− :: ChangedDns(string,string,string)

88− ++ changed-dns

89− 0xfafd.04ad.e1da.ae2e.1fdb.0fc1.cc6a.899f.

90− d424.063e.d5c9.2120.e67e.0730.53b9.4898

91− ::

92− :: ApprovalForAll(address,address,bool)

93− ++ approval-for-all

94− 0x1730.7eab.39ab.6107.e889.9845.ad3d.59bd.

95− 9653.f200.f220.9204.89ca.2b59.3769.6c31

96− --

97−-- =>

98−:: Types

99−|%

100−:: ethereum address, 20 bytes.

101−::

102−+$ address @ux

103−+$ nonce @ud

104−+$ dominion ?(%l1 %l2 %spawn)

105−+$ keys [=life suite=@ud auth=@ crypt=@]

106−++ orm ((on ship point) por)

107−++ point

108− $: :: domain

109− ::

110− =dominion

111− ::

112− :: ownership

113− ::

114− $= own

115− $: owner=[=address =nonce]

116− spawn-proxy=[=address =nonce]

117− management-proxy=[=address =nonce]

118− voting-proxy=[=address =nonce]

119− transfer-proxy=[=address =nonce]

120− ==

121− ::

122− :: networking

123− ::

124− $= net

125− $: rift=@ud

126− =keys

127− sponsor=[has=? who=@p]

128− escape=(unit @p)

129− ==

130− ==

131−::

132−++ diff

133− $% [%nonce =ship =proxy =nonce]

134− [%tx =raw-tx err=(unit @tas)]

135− [%operator owner=address operator=address approved=?]

136− [%dns domains=(list @t)]

137− $: %point =ship

138− $% [%rift =rift]

139− [%keys =keys]

140− [%sponsor sponsor=(unit @p)]

141− [%escape to=(unit @p)]

142− [%owner =address]

143− [%spawn-proxy =address]

144− [%management-proxy =address]

145− [%voting-proxy =address]

146− [%transfer-proxy =address]

147− [%dominion =dominion]

148− == == ==

149−::

150−+$ state

151− $: %0

152− =points

153− =operators

154− dns=(list @t)

155− ==

156−+$ points (tree [ship point])

157−+$ operators (jug address address)

158−+$ effects (list diff)

159−+$ proxy ?(%own %spawn %manage %vote %transfer)

160−+$ roll (list raw-tx)

161−+$ raw-tx [sig=@ raw=octs =tx]

162−+$ tx [from=[=ship =proxy] skim-tx]

163−+$ skim-tx

164− $% [%transfer-point =address reset=?]

165− [%spawn =ship =address]

166− [%configure-keys encrypt=@ auth=@ crypto-suite=@ breach=?]

167− [%escape parent=ship]

168− [%cancel-escape parent=ship]

169− [%adopt =ship]

170− [%reject =ship]

171− [%detach =ship]

172− [%set-management-proxy =address]

173− [%set-spawn-proxy =address]

174− [%set-transfer-proxy =address]

175− ==

176−::

177−+$ event-log

178− $: address=@ux

179− data=@ux

180− topics=(lest @ux)

181− ==

182−+$ input

183− $: block=@ud

184− $% [%bat batch=@]

185− [%log =event-log]

186− == ==

187−:: ECDSA verifier.

188−::

189−:: Must keccak `dat` and recover the ethereum address which signed.

190−:: Must not crash. `v` will normally be between 0 and 3; if it is not,

191−:: should produce null.

192−::

193−+$ verifier $-([dat=octs v=@ r=@ s=@] (unit address))

194−-- =>

195−::

196−|%

197−++ debug

198− |* [meg=@t *]

199− ?: lac

200− +<+

201− ~> %slog.[0 meg]

202− +<+

203−::

204−++ parse-roll

205− |= batch=@

206− =| =roll

207− =| pos=@ud

208− =/ las (met 0 batch)

209− |- ^+ roll

210− ?: (gte pos las)

211− (flop roll)

212− =/ parse-result (parse-raw-tx pos batch)

213− :: Parsing failed, abort batch

214− ::

215− ?~ parse-result

216− (debug %parse-failed ~)

217− =^ =raw-tx pos u.parse-result

218− $(roll [raw-tx roll])

219−::

220−++ parse-raw-tx

221− |= [pos=@ud batch=@]

222− ^- (unit [raw-tx pos=@ud])

223− |^

224− =^ sig pos (take 3 65)

225− =/ res=(unit [=tx pos=@ud]) parse-tx

226− ?~ res ~

227− =/ dif (sub pos.u.res pos)

228− =/ len =>((dvr dif 8) ?>(=(0 q) p))

229− :- ~ :_ pos.u.res

230− [sig [len (cut 0 [pos dif] batch)] tx.u.res]

231− ::

232− ++ parse-tx

233− ^- (unit [tx pos=@ud])

234− =^ from-proxy=@ pos (take 0 3)

235− ?. ?=(?(%0 %1 %2 %3 %4) from-proxy) (debug %bad-proxy ~)

236− =/ =proxy

237− ?- from-proxy

238− %0 %own

239− %1 %spawn

240− %2 %manage

241− %3 %vote

242− %4 %transfer

243− ==

244− =^ pad pos (take 0 5)

245− =^ from-ship=ship pos (take 3 4)

246− =- ?~ res

247− ~

248− `[[[from-ship proxy] skim-tx.u.res] pos.u.res]

249− ^- res=(unit [=skim-tx pos=@ud])

250− =^ op pos (take 0 7)

251− ?+ op (debug %strange-opcode ~)

252− %0

253− =^ reset=@ pos (take 0)

254− =^ =address pos (take 3 20)

255− `[[%transfer-point address =(0 reset)] pos]

256− ::

257− %1

258− =^ pad=@ pos (take 0)

259− =^ =ship pos (take 3 4)

260− =^ =address pos (take 3 20)

261− `[[%spawn ship address] pos]

262− ::

263− %2

264− =^ breach=@ pos (take 0)

265− =^ encrypt=@ pos (take 3 32)

266− =^ auth=@ pos (take 3 32)

267− =^ crypto-suite=@ pos (take 3 4)

268− `[[%configure-keys encrypt auth crypto-suite =(0 breach)] pos]

269− ::

270− %3 =^(res pos take-ship `[[%escape res] pos])

271− %4 =^(res pos take-ship `[[%cancel-escape res] pos])

272− %5 =^(res pos take-ship `[[%adopt res] pos])

273− %6 =^(res pos take-ship `[[%reject res] pos])

274− %7 =^(res pos take-ship `[[%detach res] pos])

275− %8 =^(res pos take-address `[[%set-management-proxy res] pos])

276− %9 =^(res pos take-address `[[%set-spawn-proxy res] pos])

277− %10 =^(res pos take-address `[[%set-transfer-proxy res] pos])

278− ==

279− ::

280− :: Take a bite

281− ::

282− ++ take

283− |= =bite

284− ^- [@ @ud]

285− =/ =step

286− ?@ bite (bex bite)

287− (mul step.bite (bex bloq.bite))

288− [(cut 0 [pos step] batch) (add pos step)]

289− :: Encode ship and address

290− ::

291− ++ take-address

292− ^- [address @ud]

293− =^ pad=@ pos (take 0)

294− =^ =address pos (take 3 20)

295− [address pos]

296− :: Encode escape-related txs

297− ::

298− ++ take-ship

299− ^- [ship @ud]

300− =^ pad=@ pos (take 0)

301− =^ other=ship pos (take 3 4)

302− [other pos]

303− --

304−::

305−++ proxy-from-point

306− |= [=proxy point]

307− ^- [=address =nonce]

308− ?- proxy

309− %own owner.own

310− %spawn spawn-proxy.own

311− %manage management-proxy.own

312− %vote voting-proxy.own

313− %transfer transfer-proxy.own

314− ==

315−::

316−++ verify-sig-and-nonce

317− |= [=verifier chain-t=@t =state =raw-tx]

318− ^- ?

319− |^

320− =/ point (get-point state ship.from.tx.raw-tx)

321− ?> ?=(^ point) :: we never parse more than four bytes for a ship

322− =/ need=[=address =nonce]

323− (proxy-from-point proxy.from.tx.raw-tx u.point)

324− :: We include a domain separator to avoid letting signatures be

325− :: accidentally reused with other applications. We include the name

326− :: UrbitID, a signature format version number, and the EIP-155 chain

327− :: ID.

328− ::

329− :: We also include a nonce so that a transaction cannot be

330− :: rebroadcast.

331− ::

332− =/ prepared-data=octs

333− %: cad 3

334− 14^'UrbitIDV1Chain'

335− (met 3 chain-t)^chain-t

336− 1^':'

337− 4^nonce.need

338− raw.raw-tx

339− ~

340− ==

341− :: Wallets which support personal_sign include this preamble to avoid

342− :: letting personal_sign be used to sign ethereum transactions

343− ::

344− =/ signed-data=octs

345− =/ len (ud-to-ascii p.prepared-data)

346− %: cad 3

347− 26^'\19Ethereum Signed Message:\0a'

348− (met 3 len)^len

349− prepared-data

350− ~

351− ==

352− =/ dress (verify-sig sig.raw-tx signed-data)

353− ?~ dress

354− |

355− =(address.need u.dress)

356− :: Verify signature and produce signer address

357− ::

358− ++ verify-sig

359− |= [sig=@ txdata=octs]

360− ^- (unit address)

361− |^

362− :: Reversed of the usual r-s-v order because Ethereum integers are

363− :: big-endian

364− ::

365− =^ v sig (take 3)

366− =^ s sig (take 3 32)

367− =^ r sig (take 3 32)

368− :: In Ethereum, v is generally 27 + recid, and verifier expects a

369− :: recid. Old versions of geth used 0 + recid, so most software

370− :: now supports either format. See:

371− ::

372− :: https://github.com/ethereum/go-ethereum/issues/2053

373− ::

374− =? v (gte v 27) (sub v 27)

375− (verifier txdata v r s)

376− ::

377− ++ take

378− |= =bite

379− [(end bite sig) (rsh bite sig)]

380− --

381− --

382−:: ASCII-decimal encode

383−::

384−++ ud-to-ascii

385− |= n=@ud

386− ?~ n '0'

387− =| l=(list @)

388− |- ^- @t

389− ?~ n (rep 3 l)

390− =+ (dvr n 10)

391− $(n p, l [(add '0' q) l])

392−::

393−++ ship-rank

394− |= =ship

395− ^- ?(%0 %1 %2 %3 %4)

396− ?: (lth ship 0x100) %0

397− ?: (lth ship 0x1.0000) %1

398− ?: (lth ship 0x1.0000.0000) %2

399− ?: (lth ship 0x1.0000.0000.0000.0000) %3

400− %4

401−::

402−++ sein :: autoboss

403− |= who=ship

404− ^- ship

405− =/ mir (ship-rank who)

406− ?- mir

407− %0 who

408− %1 (end 3 who)

409− %2 (end 4 who)

410− %3 (end 5 who)

411− %4 (end 4 who)

412− ==

413−::

414−:: Produces null only if ship is not a galaxy, star, or planet

415−::

416−++ get-point

417− |= [=state =ship]

418− ^- (unit point)

419− =/ existing (get:orm points.state ship)

420− ?^ existing

421− `u.existing

422− =| =point

423− =. who.sponsor.net.point (sein ship)

424− ?+ (ship-rank ship) (debug %strange-point ~)

425− %0 `point(dominion %l1)

426− ?(%1 %2)

427− =/ existing-parent $(ship (sein ship))

428− ?~ existing-parent ~

429− :- ~

430− %= point

431− dominion

432− ?- dominion.u.existing-parent

433− %l1 %l1

434− %l2 %l2

435− %spawn %l2

436− ==

437− ==

438− ==

439−-- =>

440−|%

441−:: Receive log from L1 transaction

442−::

443−++ receive-log

444− |= [=state log=event-log]

445− ^- [effects ^state]

446− =* log-name i.topics.log

447− ?: =(log-name activated:log-names) `state

448− ?: =(log-name spawned:log-names) `state

449− ?: =(log-name ownership-transferred:log-names) `state

450− ?: =(log-name changed-dns:log-names)

451− ?> ?=(~ t.topics.log)

452− =/ words (rip 8 data.log)

453− :: This is only true if each domain is <= 32 bytes

454− ::

455− ?. ?=([c=@ @ b=@ @ a=@ @ @ @ @ ~] words) `state

456− =* one &5.words

457− =* two &3.words

458− =* tri &1.words

459− =/ domains ~[(swp 3 one) (swp 3 two) (swp 3 tri)]

460− :- [%dns domains]~

461− state(dns domains)

462− ::

463− ?: =(log-name approval-for-all:log-names)

464− ?> ?=([@ @ ~] t.topics.log)

465− =* owner i.t.topics.log

466− =* operator i.t.t.topics.log

467− =/ approved !=(0 data.log)

468− :- [%operator owner operator approved]~

469− =- state(operators -)

470− ?: approved

471− (~(put ju operators.state) owner operator)

472− (~(del ju operators.state) owner operator)

473− ::

474− :: The rest of the logs modify a particular ship, specified in the

475− :: second topic. We fetch it, and insert the modification back into

476− :: our state.

477− ::

478− ?> ?=([@ *] t.topics.log)

479− =* ship=@ i.t.topics.log

480− =/ the-point (get-point state ship)

481− ?> ?=(^ the-point)

482− =* point u.the-point

483− ::

484− :: Important to fully no-op on failure so we don't insert an entry

485− :: into points.state

486− ::

487− =- ?~ res

488− `state

489− [effects.u.res state(points (put:orm points.state ship new-point.u.res))]

490− ^- res=(unit [=effects new-point=^point])

491− ::

492− ?: =(log-name changed-spawn-proxy:log-names)

493− ?. ?=(%l1 -.point) ~

494− ?> ?=([@ ~] t.t.topics.log)

495− =* to i.t.t.topics.log

496− :: Depositing to L2 is represented by a spawn proxy change on L1,

497− :: but it doesn't change the actual spawn proxy.

498− ::

499− ?: =(deposit-address to)

500− :+ ~ [%point ship %dominion %spawn]~

501− point(dominion %spawn)

502− :+ ~ [%point ship %spawn-proxy to]~

503− point(address.spawn-proxy.own to)

504− ::

505− ?: =(log-name escape-accepted:log-names)

506− ?> ?=([@ ~] t.t.topics.log)

507− =* parent=@ i.t.t.topics.log

508− =/ parent-point (get-point state parent)

509− ?> ?=(^ parent-point)

510− ?: ?=(%l2 -.u.parent-point) ~

511− :+ ~ [%point ship %sponsor `parent]~

512− point(escape.net ~, sponsor.net [%& parent])

513− ::

514− ?: =(log-name lost-sponsor:log-names)

515− ?> ?=([@ ~] t.t.topics.log)

516− =* parent=@ i.t.t.topics.log

517− :: If the sponsor we lost was not our actual sponsor, we didn't

518− :: actually lose anything.

519− ::

520− ?. =(parent who.sponsor.net.point) ~

521− ::

522− =/ parent-point (get-point state parent)

523− ?> ?=(^ parent-point)

524− ::

525− :: We can detach even if the child is on L2, as long as the parent

526− :: is on L1.

527− ::

528− ?: ?=(%l2 -.u.parent-point) ~

529− :+ ~ [%point ship %sponsor ~]~

530− point(has.sponsor.net %|)

531− ::

532− :: The rest can be done by any ship on L1, even if their spawn proxy

533− :: is set to L2

534− ::

535− ?: ?=(%l2 -.point) ~

536− ::

537− ?: =(log-name escape-requested:log-names)

538− ?> ?=([@ ~] t.t.topics.log)

539− =* parent=@ i.t.t.topics.log

540− =/ parent-point (get-point state parent)

541− ?> ?=(^ parent-point)

542− :+ ~ [%point ship %escape `parent]~

543− point(escape.net `parent)

544− ::

545− ?: =(log-name escape-canceled:log-names)

546− ?> ?=([@ ~] t.t.topics.log)

547− =* parent=@ i.t.t.topics.log

548− =/ parent-point (get-point state parent)

549− ?> ?=(^ parent-point)

550− :+ ~ [%point ship %escape ~]~

551− point(escape.net ~)

552− ::

553− ?: =(log-name broke-continuity:log-names)

554− ?> ?=(~ t.t.topics.log)

555− =* rift=@ data.log

556− :+ ~ [%point ship %rift rift]~

557− point(rift.net rift)

558− ::

559− ?: =(log-name changed-keys:log-names)

560− ?> ?=(~ t.t.topics.log)

561− =/ =keys

562− :* life=(cut 8 [0 1] data.log)

563− suite=(cut 8 [1 1] data.log)

564− auth=(cut 8 [2 1] data.log)

565− crypt=(cut 8 [3 1] data.log)

566− ==

567− :+ ~ [%point ship %keys keys]~

568− point(keys.net keys)

569− ::

570− ?: =(log-name owner-changed:log-names)

571− ?> ?=([@ ~] t.t.topics.log)

572− =* to i.t.t.topics.log

573− :: Depositing to L2 is represented by an ownership change on L1,

574− :: but it doesn't change who actually owns the ship.

575− ::

576− ?: =(deposit-address to)

577− :+ ~ [%point ship %dominion %l2]~

578− point(dominion %l2)

579− :+ ~ [%point ship %owner to]~

580− point(address.owner.own to)

581− ::

582− ?: =(log-name changed-transfer-proxy:log-names)

583− ?> ?=([@ ~] t.t.topics.log)

584− =* to i.t.t.topics.log

585− :+ ~ [%point ship %transfer-proxy to]~

586− point(address.transfer-proxy.own to)

587− ::

588− ?: =(log-name changed-management-proxy:log-names)

589− ?> ?=([@ ~] t.t.topics.log)

590− =* to i.t.t.topics.log

591− :+ ~ [%point ship %management-proxy to]~

592− point(address.management-proxy.own to)

593− ::

594− ?: =(log-name changed-voting-proxy:log-names)

595− ?> ?=([@ ~] t.t.topics.log)

596− =* to i.t.t.topics.log

597− :+ ~ [%point ship %voting-proxy to]~

598− point(address.voting-proxy.own to)

599− ::

600− (debug %unknown-log ~)

601−::

602−:: Receive batch of L2 transactions

603−::

604−++ receive-batch

605− |= [=verifier chain-id=@ud =state batch=@]

606− =/ chain-t (ud-to-ascii chain-id)

607− =/ =roll (parse-roll batch)

608− |- ^- [effects ^state]

609− ?~ roll

610− [~ state]

611− :: Verify signature, else skip tx

612− ::

613− ?. (verify-sig-and-nonce verifier chain-t state i.roll)

614− %+ debug %l2-sig-failed

615− =^ effects state $(roll t.roll)

616− :_ state

617− [[%tx i.roll `%sig-or-nonce-failed] effects]

618− :: Increment nonce, even if it later fails

619− ::

620− =^ effects-1 points.state (increment-nonce state from.tx.i.roll)

621− :: Process tx

622− ::

623− =^ effects-2 state

624− =/ tx-result=(unit [=effects =^state]) (receive-tx state tx.i.roll)

625− ?~ tx-result

626− %+ debug %l2-tx-failed

627− [[%tx i.roll `%tx-failed]~ state]

628− [[[%tx i.roll ~] effects.u.tx-result] state.u.tx-result]

629− =^ effects-3 state $(roll t.roll)

630− [:(welp effects-1 effects-2 effects-3) state]

631−::

632−++ increment-nonce

633− |= [=state =ship =proxy]

634− =/ point (get-point state ship)

635− ?> ?=(^ point) :: we only parsed 4 bytes

636− =* own own.u.point

637− =^ nonce u.point

638− ?- proxy

639− %own

640− :- nonce.owner.own

641− u.point(nonce.owner.own +(nonce.owner.own))

642− ::

643− %spawn

644− :- nonce.spawn-proxy.own

645− u.point(nonce.spawn-proxy.own +(nonce.spawn-proxy.own))

646− ::

647− %manage

648− :- nonce.management-proxy.own

649− u.point(nonce.management-proxy.own +(nonce.management-proxy.own))

650− ::

651− %vote

652− :- nonce.voting-proxy.own

653− u.point(nonce.voting-proxy.own +(nonce.voting-proxy.own))

654− ::

655− %transfer

656− :- nonce.transfer-proxy.own

657− u.point(nonce.transfer-proxy.own +(nonce.transfer-proxy.own))

658− ==

659− ::

660− :- [%nonce ship proxy nonce]~

661− (put:orm points.state ship u.point)

662−::

663−:: Receive an individual L2 transaction

664−::

665−++ receive-tx

666− |= [=state =tx]

667− |^

668− ^- (unit [effects ^state])

669− ?- +<.tx

670− %spawn (process-spawn +>.tx)

671− %transfer-point (w-point process-transfer-point ship.from.tx +>.tx)

672− %configure-keys (w-point process-configure-keys ship.from.tx +>.tx)

673− %escape (w-point-esc process-escape ship.from.tx +>.tx)

674− %cancel-escape (w-point-esc process-cancel-escape ship.from.tx +>.tx)

675− %adopt (w-point-esc process-adopt ship.tx +>.tx)

676− %reject (w-point-esc process-reject ship.tx +>.tx)

677− %detach (w-point-esc process-detach ship.tx +>.tx)

678− %set-spawn-proxy

679− (w-point-spawn process-set-spawn-proxy ship.from.tx +>.tx)

680− ::

681− %set-transfer-proxy

682− (w-point process-set-transfer-proxy ship.from.tx +>.tx)

683− ::

684− %set-management-proxy

685− (w-point process-set-management-proxy ship.from.tx +>.tx)

686− ==

687− ::

688− ++ w-point

689− |* [fun=$-([ship point *] (unit [effects point])) =ship rest=*]

690− ^- (unit [effects ^state])

691− =/ point (get-point state ship)

692− ?~ point (debug %strange-ship ~)

693− ?. ?=(%l2 -.u.point) (debug %ship-not-on-l2 ~)

694− :: Important to fully no-op on failure so we don't insert an entry

695− :: into points.state

696− ::

697− =/ res=(unit [=effects new-point=^point]) (fun u.point rest)

698− ?~ res

699− ~

700− `[effects.u.res state(points (put:orm points.state ship new-point.u.res))]

701− ::

702− ++ w-point-esc

703− |* [fun=$-([ship point *] (unit [effects point])) =ship rest=*]

704− ^- (unit [effects ^state])

705− =/ point (get-point state ship)

706− ?~ point (debug %strange-ship ~)

707− =/ res=(unit [=effects new-point=^point]) (fun u.point rest)

708− ?~ res

709− ~

710− `[effects.u.res state(points (put:orm points.state ship new-point.u.res))]

711− ::

712− ++ w-point-spawn

713− |* [fun=$-([ship point *] (unit [effects point])) =ship rest=*]

714− ^- (unit [effects ^state])

715− =/ point (get-point state ship)

716− ?~ point (debug %strange-ship ~)

717− ?: ?=(%l1 -.u.point) (debug %ship-on-l2 ~)

718− =/ res=(unit [=effects new-point=^point]) (fun u.point rest)

719− ?~ res

720− ~

721− `[effects.u.res state(points (put:orm points.state ship new-point.u.res))]

722− ::

723− ++ process-transfer-point

724− |= [=point to=address reset=?]

725− =* ship ship.from.tx

726− :: Assert from owner or transfer prxoy

727− ::

728− ?. |(=(%own proxy.from.tx) =(%transfer proxy.from.tx))

729− (debug %bad-permission ~)

730− :: Execute transfer

731− ::

732− =/ effects-1

733− ~[[%point ship %owner to] [%point ship %transfer-proxy *address]]

734− =: address.owner.own.point to

735− address.transfer-proxy.own.point *address

736− ==

737− :: Execute reset if requested

738− ::

739− ?. reset

740− `[effects-1 point]

741− ::

742− =^ effects-2 net.point

743− ?: =([0 0 0] +.keys.net.point)

744− `net.point

745− =/ =keys [+(life.keys.net.point) 0 0 0]

746− :- [%point ship %keys keys]~

747− [rift.net.point keys sponsor.net.point escape.net.point]

748− =^ effects-3 rift.net.point

749− ?: =(0 life.keys.net.point)

750− `rift.net.point

751− :- [%point ship %rift +(rift.net.point)]~

752− +(rift.net.point)

753− =/ effects-4

754− :~ [%point ship %spawn-proxy *address]

755− [%point ship %management-proxy *address]

756− [%point ship %voting-proxy *address]

757− [%point ship %transfer-proxy *address]

758− ==

759− =: address.spawn-proxy.own.point *address

760− address.management-proxy.own.point *address

761− address.voting-proxy.own.point *address

762− address.transfer-proxy.own.point *address

763− ==

764− `[:(welp effects-1 effects-2 effects-3 effects-4) point]

765− ::

766− ++ process-spawn

767− |= [=ship to=address]

768− ^- (unit [effects ^state])

769− =/ parent=^ship (sein ship)

770− :: Assert parent is on L2

771− ::

772− =/ parent-point (get-point state parent)

773− ?~ parent-point ~

774− ?. ?=(?(%l2 %spawn) -.u.parent-point) ~

775− :: Assert from owner or spawn proxy

776− ::

777− ?. ?& =(parent ship.from.tx)

778− |(=(%own proxy.from.tx) =(%spawn proxy.from.tx))

779− ==

780− (debug %bad-permission ~)

781− :: Assert child not already spawned

782− ::

783− ?^ (get:orm points.state ship) (debug %spawn-exists ~)

784− :: Assert one-level-down

785− ::

786− ?. =(+((ship-rank parent)) (ship-rank ship)) (debug %bad-rank ~)

787− ::

788− =/ [=effects new-point=point]

789− =/ point=(unit point) (get-point state ship)

790− ?> ?=(^ point) :: only parsed 4 bytes

791− :: If spawning to self, just do it

792− ::

793− ?: ?| ?& =(%own proxy.from.tx)

794− =(to address.owner.own.u.parent-point)

795− ==

796− ?& =(%spawn proxy.from.tx)

797− =(to address.spawn-proxy.own.u.parent-point)

798− ==

799− ==

800− :- ~[[%point ship %dominion %l2] [%point ship %owner to]]

801− u.point(address.owner.own to)

802− :: Else spawn to parent and set transfer proxy

803− ::

804− :- :~ [%point ship %dominion %l2]

805− [%point ship %owner address.owner.own.u.parent-point]

806− [%point ship %transfer-proxy to]

807− ==

808− %= u.point

809− address.owner.own address.owner.own.u.parent-point

810− address.transfer-proxy.own to

811− ==

812− `[effects state(points (put:orm points.state ship new-point))]

813− ::

814− ++ process-configure-keys

815− |= [=point crypt=@ auth=@ suite=@ breach=?]

816− =* ship ship.from.tx

817− ::

818− ?. |(=(%own proxy.from.tx) =(%manage proxy.from.tx))

819− (debug %bad-permission ~)

820− ::

821− =^ rift-effects rift.net.point

822− ?. breach

823− `rift.net.point

824− [[%point ship %rift +(rift.net.point)]~ +(rift.net.point)]

825− ::

826− =^ keys-effects keys.net.point

827− ?: =(+.keys.net.point [suite auth crypt])

828− `keys.net.point

829− =/ =keys

830− [+(life.keys.net.point) suite auth crypt]

831− [[%point ship %keys keys]~ keys]

832− ::

833− `[(welp rift-effects keys-effects) point]

834− ::

835− ++ process-escape

836− |= [=point parent=ship]

837− =* ship ship.from.tx

838− ?. |(=(%own proxy.from.tx) =(%manage proxy.from.tx))

839− (debug %bad-permission ~)

840− ::

841− ?. =(+((ship-rank parent)) (ship-rank ship))

842− (debug %bad-rank ~)

843− ::

844− :+ ~ [%point ship %escape `parent]~

845− point(escape.net `parent)

846− ::

847− ++ process-cancel-escape

848− |= [=point parent=ship]

849− =* ship ship.from.tx

850− ?. |(=(%own proxy.from.tx) =(%manage proxy.from.tx))

851− (debug %bad-permission ~)

852− ::

853− :+ ~ [%point ship %escape ~]~

854− point(escape.net ~)

855− ::

856− ++ process-adopt

857− |= [=point =ship]

858− =* parent ship.from.tx

859− ?. |(=(%own proxy.from.tx) =(%manage proxy.from.tx))

860− (debug %bad-permission ~)

861− ::

862− ?. =(escape.net.point `parent) (debug %no-adopt ~)

863− :+ ~ [%point ship %sponsor `parent]~

864− point(escape.net ~, sponsor.net [%& parent])

865− ::

866− ++ process-reject

867− |= [=point =ship]

868− =* parent ship.from.tx

869− ?. |(=(%own proxy.from.tx) =(%manage proxy.from.tx))

870− (debug %bad-permission ~)

871− ::

872− ?. =(escape.net.point `parent) (debug %no-reject ~)

873− :+ ~ [%point ship %escape ~]~

874− point(escape.net ~)

875− ::

876− ++ process-detach

877− |= [=point =ship]

878− =* parent ship.from.tx

879− ?. |(=(%own proxy.from.tx) =(%manage proxy.from.tx))

880− (debug %bad-permission ~)

881− ::

882− ?. =(who.sponsor.net.point parent) (debug %no-detach ~)

883− :+ ~ [%point ship %sponsor ~]~

884− point(has.sponsor.net %|)

885− ::

886− ++ process-set-management-proxy

887− |= [=point =address]

888− ?. |(=(%own proxy.from.tx) =(%manage proxy.from.tx))

889− (debug %bad-permission ~)

890− ::

891− :+ ~ [%point ship.from.tx %management-proxy address]~

892− point(address.management-proxy.own address)

893− ::

894− ++ process-set-spawn-proxy

895− |= [=point =address]

896− ?. |(=(%own proxy.from.tx) =(%spawn proxy.from.tx))

897− (debug %bad-permission ~)

898− ::

899− ?: (gte (ship-rank ship.from.tx) 2)

900− (debug %spawn-proxy-planet ~)

901− ::

902− :+ ~ [%point ship.from.tx %spawn-proxy address]~

903− point(address.spawn-proxy.own address)

904− ::

905− ++ process-set-transfer-proxy

906− |= [=point =address]

907− ?. |(=(%own proxy.from.tx) =(%transfer proxy.from.tx))

908− (debug %bad-permission ~)

909− ::

910− :+ ~ [%point ship.from.tx %transfer-proxy address]~

911− point(address.transfer-proxy.own address)

912− --

913−--

914−::

915−:: State transition function

916−::

917−|= [=verifier chain-id=@ud =state =input]

918−^- [effects ^state]

919−?: ?=(%log +<.input)

920− :: Received log from L1 transaction

921− ::

922− (receive-log state event-log.input)

923−:: Received L2 batch

924−::

925−:: %+ debug %batch

926−(receive-batch verifier chain-id state batch.input)

base-desk/lib/noun-diff.hoondeleted−213

@@ -1,213 +0,0 @@

1−=<

2−|%

3−++ diff

4− |= [old=* new=*]

5− ^- patch

6− =/ del (extract-del (oracle old new) old)

7− =/ ins (extract-ins (oracle old new) new)

8− =/ allowed-holes (~(int in (find-del-holes del)) (find-ins-holes ins))

9− =. del (filter-del-holes allowed-holes del)

10− =/ ins (filter-ins-holes allowed-holes ins)

11− =/ closed-patch (closure (gcp [del ins]))

12− ?> =(& +.closed-patch)

13− -.closed-patch

14−++ apply

15− |= [patch=_id noun=*]

16− ?- -.patch

17− %diff

18− =/ var-map (del del.patch noun)

19− (ins ins.patch var-map)

20− ::

21− %cell

22− ?> ?=(^ noun)

23− [$(patch lhs.patch, noun -.noun) $(patch rhs.patch, noun +.noun)]

24− ==

25−++ id

26− ^- patch

27− [%diff [%hole ~] [%hole ~]]

28−+$ patch

29− $% [%cell lhs=patch rhs=patch]

30− [%diff ^diff]

31− ==

32−--

33−::

34−|%

35−+$ del-diff

36− $% [%hole @]

37− [%cell lhs=del-diff rhs=del-diff]

38− [%ignore ~]

39− ==

40−+$ ins-diff

41− $% [%hole @ original=*]

42− [%cell lhs=ins-diff rhs=ins-diff]

43− [%atom @]

44− ==

45−+$ final-ins-diff

46− $% [%hole @]

47− [%cell lhs=final-ins-diff rhs=final-ins-diff]

48− [%atom @]

49− ==

50−+$ diff [del=del-diff ins=final-ins-diff]

51−+$ patch

52− $% [%cell lhs=patch rhs=patch]

53− [%diff diff]

54− ==

55−++ insify-noun

56− |= noun=*

57− ^- final-ins-diff

58− ?- noun

59− ^ [%cell $(noun -.noun) $(noun +.noun)]

60− @ [%atom noun]

61− ==

62−++ empty-set (silt `(list @)`~)

63−++ find-del-holes

64− |= diff=del-diff

65− ~+

66− ^- (set @)

67− ?- -.diff

68− %hole (silt ~[+.diff])

69− %cell (~(uni in $(diff lhs.diff)) $(diff rhs.diff))

70− %ignore empty-set

71− ==

72−++ find-final-ins-holes

73− |= diff=final-ins-diff

74− ~+

75− ^- (set @)

76− ?- -.diff

77− %hole (silt ~[+.diff])

78− %cell (~(uni in $(diff lhs.diff)) $(diff rhs.diff))

79− %atom empty-set

80− ==

81−++ find-ins-holes

82− |= diff=ins-diff

83− ~+

84− ^- (set @)

85− ?- -.diff

86− %hole (silt ~[+<.diff])

87− %cell (~(uni in $(diff lhs.diff)) $(diff rhs.diff))

88− %atom empty-set

89− ==

90−++ filter-del-holes

91− |= [allowed-holes=(set @) diff=del-diff]

92− ^- del-diff

93− ?: ?=(%ignore -.diff) diff

94− ?- -.diff

95− %hole ?:((~(has in allowed-holes) +.diff) diff [%ignore ~])

96− %cell [%cell $(diff +<.diff) $(diff +>.diff)]

97− ==

98−++ filter-ins-holes

99− |= [allowed-holes=(set @) diff=ins-diff]

100− ^- final-ins-diff

101− ?- -.diff

102− %cell [%cell $(diff +<.diff) $(diff +>.diff)]

103− %atom diff

104− %hole

105− ?: (~(has in allowed-holes) +<.diff) [%hole +<.diff]

106− (insify-noun original:diff)

107− ==

108−++ gcp

109− |= diff=diff

110− ^- patch

111− ?- -.ins.diff

112− %atom [%diff diff]

113− %hole [%diff diff]

114− %cell

115− ?. ?=(%cell -.del.diff)

116− [%diff diff]

117− [%cell $(diff [+<.del.diff +<.ins.diff]) $(diff [+>.del.diff +>.ins.diff])]

118− ==

119−++ closure

120− |= =patch

121− ^- [^patch ?]

122− ?- -.patch

123− %diff

124− =/ del-holes (find-del-holes del:patch)

125− =/ ins-holes (find-final-ins-holes ins:patch)

126− =/ difference (~(dif in ins-holes) del-holes)

127− [patch =(difference empty-set)]

128− ::

129− %cell

130− =/ lhs $(patch lhs:patch)

131− =/ rhs $(patch rhs:patch)

132− ?: ?&(+.lhs +.rhs) [[%cell -.lhs -.rhs] &]

133− $(patch (pull-diff [%cell -.lhs -.rhs]))

134− ==

135−++ pull-diff

136− |= =patch

137− ^- [%diff del=del-diff ins=final-ins-diff]

138− ?- -.patch

139− %diff patch

140− %cell

141− =/ pulled-lhs $(patch lhs:patch)

142− =/ pulled-rhs $(patch rhs:patch)

143− :+ %diff

144− [%cell del:pulled-lhs del:pulled-rhs]

145− [%cell ins:pulled-lhs ins:pulled-rhs]

146− ==

147−++ is-subtree

148− |= [tree=* subtree=*]

149− ~+

150− ^- ?

151− ?: =(tree subtree) &

152− ?@ tree |

153− ?| (is-subtree -.tree subtree)

154− (is-subtree +.tree subtree)

155− ==

156−++ oracle

157− |= [a=* b=*]

158− |= subtree=*

159− ^- (unit @)

160− ?: ?& (is-subtree a subtree)

161− (is-subtree b subtree)

162− ==

163− `(mug subtree)

164− ~

165−++ extract-del

166− |= [oracle=$-(* (unit @)) subtree=*]

167− ~+

168− ^- del-diff

169− =/ hash (oracle subtree)

170− ?^ hash [%hole +.hash]

171− ?@ subtree [%ignore ~]

172− [%cell (extract-del oracle -.subtree) (extract-del oracle +.subtree)]

173−++ extract-ins

174− |= [oracle=$-(* (unit @)) subtree=*]

175− ~+

176− ^- ins-diff

177− =/ hash (oracle subtree)

178− ?^ hash [%hole +.hash subtree]

179− ?@ subtree [%atom subtree]

180− [%cell (extract-ins oracle -.subtree) (extract-ins oracle +.subtree)]

181−++ ins

182− |= [diff=final-ins-diff var-map=(map @ *)]

183− ^- *

184− ?- -.diff

185− %atom +.diff

186− %cell [$(diff +<.diff) $(diff +>.diff)]

187− %hole (~(got by var-map) +.diff)

188− ==

189−++ del

190− |= [diff=del-diff noun=*]

191− ^- (map @ *)

192− |^ (go diff noun ((map @ *) ~))

193− ++ go

194− |= [diff=del-diff noun=* var-map=(map @ *)]

195− ^- (map @ *)

196− ?- -.diff

197− %ignore

198− var-map

199− ::

200− %hole

201− =/ subtree (~(get by var-map) +.diff)

202− ?~ subtree (~(put by var-map) +.diff noun)

203− ?> =(+.subtree noun)

204− var-map

205− ::

206− %cell

207− ?> ?=(^ noun)

208− =/ lhs-var-map $(diff +<.diff, noun -.noun)

209− =/ rhs-var-map $(diff +>.diff, noun +.noun, var-map lhs-var-map)

210− rhs-var-map

211− ==

212− --

213−--

base-desk/lib/ph/io.hoondeleted−531

@@ -1,531 +0,0 @@

1−/- *aquarium, spider

2−/+ libstrand=strand, *strandio, util=ph-util, aqua-azimuth, vere

3−=, strand=strand:libstrand

4−|%

5−++ send-events

6− |= events=(list aqua-event)

7− =/ m (strand ,~)

8− ^- form:m

9− (poke-our %aqua %aqua-events !>(events))

10−::

11−++ send-azimuth-action

12− |= =azimuth-action

13− =/ m (strand ,~)

14− ^- form:m

15− (poke-our %aqua %azimuth-action !>(azimuth-action))

16−::

17−++ take-unix-effect

18− =/ m (strand ,[ship unix-effect])

19− ^- form:m

20− ;< [=path =cage] bind:m (take-fact-prefix /effect)

21− ?> ?=(%aqua-effect p.cage)

22− (pure:m !<([aqua-effect] q.cage))

23−::

24−++ start-simple

25− (start-test %aqua-ames %aqua-behn %aqua-dill %aqua-eyre ~)

26−::

27−++ start-azimuth

28− =/ m (strand ,~)

29− ^- form:m

30− ;<(~ bind:m start-simple init)

31−::

32−++ end

33− (end-test %aqua-ames %aqua-behn %aqua-dill %aqua-eyre ~)

34−::

35−++ start-test

36− |= vane-threads=(list term)

37− =/ m (strand ,~)

38− ^- form:m

39− ~& > "starting"

40− ;< tids=(map term tid:spider) bind:m (start-threads vane-threads)

41− ;< ~ bind:m (watch-our /effect %aqua /effect)

42− :: Get our very own event with no mistakes in it... yet.

43− ::

44− :: We want to wait for the vane threads to actually start and get

45− :: their subscriptions started. Other ways to do this are delaying

46− :: the ack from spider until the build is finished (does that

47− :: guarantee the subscriptions have started?) or subscribe to the

48− :: threads themselves for a notification when they're done. This is

49− :: probably the best option because the thread can delay until it

50− :: gets a positive ack on the subscription.

51− ::

52− :: Threads might not get built until a %writ is dripped back to

53− :: spider. Drips are at +(now), so we sleep until two clicks in the

54− :: future.

55− ::

56− ;< ~ bind:m (sleep `@dr`2)

57− (pure:m ~)

58−::

59−++ end-test

60− |= vane-threads=(list term)

61− =/ m (strand ,~)

62− ^- form:m

63− ~& > "done"

64− ;< ~ bind:m (stop-threads vane-threads)

65− ;< ~ bind:m (leave-our /effect %aqua)

66− (pure:m ~)

67−::

68−++ start-threads

69− |= threads=(list term)

70− =/ m (strand ,(map term tid:spider))

71− ^- form:m

72− ;< =bowl:spider bind:m get-bowl

73− =| tids=(map term tid:spider)

74− |- ^- form:m

75− =* loop $

76− ?~ threads

77− (pure:m tids)

78− =/ tid

79− %+ scot %ta

80− (cat 3 (cat 3 'strand_' i.threads) (scot %uv (sham i.threads eny.bowl)))

81− =/ poke-vase !>([`tid.bowl ~ byk.bowl i.threads *vase])

82− ;< ~ bind:m (poke-our %spider %spider-start poke-vase)

83− loop(threads t.threads, tids (~(put by tids) i.threads tid))

84−::

85−++ stop-threads

86− |= threads=(list term)

87− =/ m (strand ,~)

88− ^- form:m

89− (pure:m ~)

90−::

91−++ init

92− =/ m (strand ,~)

93− ^- form:m

94− (send-azimuth-action %init-azimuth ~)

95−::

96−++ spawn

97− |= =ship

98− ~& > "spawning {<ship>}"

99− =/ m (strand ,~)

100− ^- form:m

101− (send-azimuth-action %spawn ship)

102−::

103−++ breach

104− |= =ship

105− ~& > "breaching {<ship>}"

106− =/ m (strand ,~)

107− ^- form:m

108− (send-azimuth-action %breach ship)

109−::

110−:: who: breachee

111−:: her: wait until hears about breach

112−::

113−++ breach-and-hear

114− |= [who=ship her=ship]

115− ~& > "breaching {<who>} for {<her>}"

116− =/ m (strand ,~)

117− ;< =bowl:spider bind:m get-bowl

118− =/ aqua-pax

119− :- %i

120− /(scot %p her)/j/(scot %p her)/rift/(scot %da now.bowl)/(scot %p who)/noun

121− =/ old-rut ;;((unit @) (scry-aqua:util noun our.bowl now.bowl aqua-pax))

122− =/ new-rut

123− ?~ old-rut

124− 1

125− +(+.old-rut)

126− ;< ~ bind:m (send-azimuth-action %breach who)

127− ;< ~ bind:m ?~ old-rut (sleep ~s20) :: XX don't wait if possible

128− (wait-for-sunk her who) :: wait only if previously talked

129− |- ^- form:m

130− =* loop $

131− ;< ~ bind:m (sleep ~s10)

132− ;< =bowl:spider bind:m get-bowl

133− =/ aqua-pax

134− :- %i

135− /(scot %p her)/j/(scot %p her)/rift/(scot %da now.bowl)/(scot %p who)/noun

136− =/ rut (scry-aqua:util noun our.bowl now.bowl aqua-pax)

137− ?: =([~ new-rut] rut)

138− (pure:m ~)

139− loop

140−::

141−++ init-moon ::NOTE real moon always have the same keys

142− |= [moon=ship fake=?]

143− ?> ?=(%earl (clan:title moon))

144− ?: fake (init-ship moon &)

145− =/ m (strand ,~)

146− ;< ~ bind:m

147− %+ dojo (^sein:title moon)

148− =/ =pass pub:ex:(get-keys:aqua-azimuth moon 1)

149− "|moon {(scow %p moon)}, =public-key {(scow %uw pass)}"

150− (init-ship moon |)

151−::

152−++ init-ship

153− =| core=?(%mesa %ames) :: XX make %mesa the default core

154− |= [=ship fake=?]

155− =/ m (strand ,~)

156− ^- form:m

157− ~& > "starting {<ship>}"

158− ;< ~ bind:m (send-events (init:util ship fake ~ core))

159− (check-ship-booted ship)

160−::

161−++ init-comet

162− =| core=?(%mesa %ames) :: XX make %mesa the default core

163− |= comet=ship

164− =/ m (strand ,~)

165− ^- form:m

166− :: hardcoded for:

167− :: ~londeg-tirlys-somlyd-poltus--pintyn-tarbyl-bicnux-marbud

168− ::

169− =/ =feed:jael

170− :* [%2 ~]

171− who=comet

172− ryf=0

173− :_ ~

174− :- lyf=1

175− key=0wfm.lBEWM.08gfy.AxYjy.8-tBQ.uq-aa.LZt9c.CVQqd.XBJIs.

176− CoG90.BNNGV.1ZmVi.ZbAhY.LuhwC.idNnU.lCVkt.Z4qug.7iY92

177− ==

178− ::

179− ?> ?=(^ (veri:dawn:vere comet feed *point:azimuth-types ~))

180− ~& > "mining comet under {<(^sein:title comet)>}"

181− ;< ~ bind:m (send-events (init:util comet fake=%.n `feed core))

182− (check-ship-booted comet)

183−::

184−:: Load network core protocol

185−::

186−++ load

187− |= [who=ship ore=?(%mesa %ames)]

188− =/ m (strand ,~)

189− ^- form:m

190− ;< ~ bind:m (send-events [%event who [/a/aqua/load %load ore]]~)

191− (pure:m ~)

192−::

193−++ check-ship-booted

194− |= =ship

195− =/ m (strand ,~)

196− ^- form:m

197− =* loop $

198− ;< [her=^ship =unix-effect] bind:m take-unix-effect

199− =/ f |=(=tape (is-dojo-output:util ship her unix-effect tape))

200− :: This is a pretty bad heuristic, but in general galaxies will

201− :: hit the first of these cases, and other ships will hit the

202− :: second.

203− ::

204− ?: ?| (f ":dojo>")

205− (f "is your neighbor")

206− ==

207− (pure:m ~)

208− loop

209−::

210−++ dojo

211− |= [=ship =tape]

212− =/ m (strand ,~)

213− ^- form:m

214− ~& > "dojo: {tape}"

215− (send-events (dojo:util ship tape))

216−::

217−++ wait-for-output

218− |= [=ship =tape]

219− =/ m (strand ,~)

220− ^- form:m

221− ~& > "waiting for output: {tape}"

222− |- ^- form:m

223− =* loop $

224− ;< [her=^ship =unix-effect] bind:m take-unix-effect

225− ?: (is-dojo-output:util ship her unix-effect tape)

226− (pure:m ~)

227− loop

228−::

229−++ wait-for-flub

230− |= [our=ship her=ship dap=term]

231− =/ m (strand ,~)

232− ^- form:m

233− ;< =bowl:spider bind:m get-bowl

234− |- ^- form:m

235− =* loop $

236− ;< [from=^ship =unix-effect] bind:m take-unix-effect

237− ;< now=@da bind:m get-time

238− ?. =(from our)

239− :: our sends the $boon with the halted flow number, at this point

240− :: gall has updated its state adding the app to gall's .halts map

241− :: XX search deeper in the .unix-effect?

242− ::

243− loop

244− =/ aqua-pax

245− :- %i

246− /(scot %p our)/gg/(scot %p our)//(scot %da now)/[%$]/noun

247− =+ ;; flubs=(unit (jug ship term))

248− (scry-aqua:util noun our.bowl now aqua-pax)

249− ?~ flubs loop

250− ?. (~(has ju u.flubs) her dap)

251− loop

252− (pure:m ~)

253−::

254−++ wait-for-spur

255− |= [our=ship her=ship dap=term]

256− =/ m (strand ,~)

257− ^- form:m

258− ;< =bowl:spider bind:m get-bowl

259− |- ^- form:m

260− =* loop $

261− ;< [from=ship =unix-effect] bind:m take-unix-effect

262− ;< now=@da bind:m get-time

263− ?. =(from our)

264− :: our ack to the %spur $boon is sent, at this point

265− :: gall has updated its state adding the app to gall's .flubs map

266− :: XX search deeper in the .unix-effect?

267− ::

268− loop

269− =/ aqua-pax

270− :- %i

271− /(scot %p our)/gg/(scot %p our)//(scot %da now)/[%$]/noun

272− =+ ;; flubs=(unit (jug ship term))

273− (scry-aqua:util noun our.bowl now aqua-pax)

274− ?~ flubs loop

275− ?: (~(has ju u.flubs) her dap)

276− loop

277− (pure:m ~)

278−::

279−++ wait-for-has-halt

280− |= [our=ship her=ship dap=term]

281− =/ m (strand ,~)

282− ^- form:m

283− ;< =bowl:spider bind:m get-bowl

284− |- ^- form:m

285− =* loop $

286− ;< [from=ship =unix-effect] bind:m take-unix-effect

287− ;< now=@da bind:m get-time

288− :: only %send or %push effects

289− ::

290− ?. ?=(?(%send %push) -.q.unix-effect)

291− loop

292− ~& >> from^unix-effect

293− ?. =(from our)

294− :: wait until our ack for the %flub $boon is sent, at this point

295− :: gall has updated its state adding the app to gall's .flubs map

296− :: XX search deeper in the .unix-effect?

297− ::

298− loop

299− =/ aqua-pax

300− :- %i

301− /(scot %p our)/gh/(scot %p our)//(scot %da now)/[%$]/noun

302− =+ ;; halts=(unit (jug app=term [ship =duct]))

303− (scry-aqua:util noun our.bowl now aqua-pax)

304− ?~ halts loop

305− ?. (~(has by u.halts) dap) :: XX check .her as well

306− loop

307− (pure:m ~)

308−::

309−++ wait-for-del-halt

310− |= [our=ship her=ship dap=term]

311− =/ m (strand ,~)

312− ^- form:m

313− ;< =bowl:spider bind:m get-bowl

314− |- ^- form:m

315− =* loop $

316− ;< [from=ship =unix-effect] bind:m take-unix-effect

317− ;< now=@da bind:m get-time

318− ?. =(from our)

319− :: when the %spur $boon has been sent, gall has updated its state deleting

320− :: the app from gall's .flubs map

321− :: XX search deeper in the .unix-effect?

322− ::

323− loop

324− =/ aqua-pax

325− :- %i

326− /(scot %p our)/gh/(scot %p our)//(scot %da now)/[%$]/noun

327− =+ ;; halts=(unit (jug app=term [ship =duct]))

328− (scry-aqua:util noun our.bowl now aqua-pax)

329− ?~ halts loop

330− ?: (~(has by u.halts) dap) :: XX check .her as well

331− loop

332− (pure:m ~)

333−::

334−++ wait-for-pac

335− |= [our=ship to=ship]

336− =/ m (strand ,~)

337− ^- form:m

338− ~& > "waiting for ack: {<[from=our to=to]>}"

339− |- ^- form:m

340− =* loop $

341− ;< [from=ship =unix-effect] bind:m take-unix-effect

342− ?. =(our from)

343− loop

344− :: only %send or %push effects

345− ::

346− ?. ?=(?(%send %push) -.q.unix-effect)

347− loop

348− :: XX check that this is an %ack?

349− :: XX check that this is for .to?

350− ::

351− (pure:m ~)

352−:: Send "|hi" from one ship to another

353−::

354−++ send-hi

355− |= [from=@p to=@p]

356− =/ m (strand ,~)

357− ^- form:m

358− ;< ~ bind:m (dojo from "|hi {(scow %p to)}")

359− (wait-for-output from "hi {(scow %p to)} successful")

360−::

361−:: Send "|hi" and wait for "not responding" message

362−::

363−++ wait-for-sunk

364− |= [from=@p to=@p]

365− =/ m (strand ,~)

366− (wait-for-output from "{(scow %p to)} has sunk")

367−::

368−++ wait-for-fact

369− |= [=ship =mark =wire gate=$-([mark noun] ?)]

370− =/ m (strand ,noun)

371− ^- form:m

372− ~& > "waiting for fact: {<mark>}"

373− |- ^- form:m

374− =* loop $

375− ;< [her=^ship =unix-effect] bind:m take-unix-effect

376− ?. =(her ship)

377− loop

378− ?. ?& =(wire p.unix-effect)

379− ?=([%unto %raw-fact *] q.unix-effect)

380− =(mark mark.unto.q.unix-effect)

381− (gate mark noun.unto.q.unix-effect)

382− ==

383− loop

384− (pure:m noun.unto.q.unix-effect)

385−::

386−++ wait-for-cork

387− |= [our=ship her=ship flow=(each bone:ames side:ames)]

388− =/ m (strand ,~)

389− ^- form:m

390− ;< =bowl:spider bind:m get-bowl

391− |- ^- form:m

392− =* loop $

393− ;< [from=ship =unix-effect] bind:m take-unix-effect

394− ;< now=@da bind:m get-time

395− :: only %send or %push effects

396− ::

397− ?. ?=(?(%send %push) -.q.unix-effect)

398− loop

399− :: XX check that this is an %ack?

400− ::

401− ?. =(from our)

402− :: wait until the ack for the %cork $plea is sent, at this point

403− :: the publisher has already corked the flow

404− ::

405− loop

406− =/ aqua-pax

407− %+ weld /i/(scot %p our)/ax/(scot %p our)//(scot %da now)

408− ?: ?=(%& -.flow)

409− /corked/(scot %p her)/(scot %ud +.flow)/noun

410− =/ [=bone:ames =dire:ames] +.flow

411− /corked/(scot %p her)/[dire]/(scot %ud bone)/noun

412− =+ ;; corked=(unit ?) (scry-aqua:util noun our.bowl now aqua-pax)

413− ?~ corked loop

414− ?. u.corked :: XX check .her as well

415− loop

416− ~& >> flow-is-corked/flow

417− (pure:m ~)

418−::

419−:: Send "|hi" and wait for "not responding" message

420−::

421−++ send-hi-not-responding

422− |= [from=@p to=@p]

423− ~& > 'sending hi not responding'

424− =/ m (strand ,~)

425− ;< ~ bind:m (dojo from "|hi {(scow %p to)}")

426− (wait-for-output from "{(scow %p to)} not responding still trying")

427−::

428−:: Mount a desk.

429−::

430−++ mount

431− |= [=ship =desk]

432− =/ m (strand ,~)

433− ^- form:m

434− ;< ~ bind:m (dojo ship "|mount /={(trip desk)}=")

435− |- ^- form:m

436− =* loop $

437− ;< [her=^ship =unix-effect] bind:m take-unix-effect

438− ?: (is-ergo:util ship her unix-effect)

439− (pure:m ~)

440− loop

441−::

442−:: Modify /sur/aquarium/hoon on the given ship

443−::

444−++ touch-file

445− |= [her=ship =desk extra=@t]

446− =/ m (strand ,@t)

447− ^- form:m

448− (touch her desk /sur/aquarium/hoon extra)

449−::

450−:: Modify path on the given ship

451−::

452−++ touch

453− |= [her=ship =desk pax=path extra=@t]

454− =/ m (strand ,@t)

455− ^- form:m

456− ~& > "touching file on {<her>}/{<desk>}"

457− ;< ~ bind:m (mount her desk)

458− ;< our=@p bind:m get-our

459− ;< now=@da bind:m get-time

460− =/ aqua-pax

461− ;: weld

462− /i/(scot %p her)/cx/(scot %p her)/[desk]/(scot %da now)

463− pax

464− /noun

465− ==

466− =/ warped

467− %^ cat 3 '=> . '

468− %^ cat 3 extra

469− (need (scry-aqua:util (unit @) our now aqua-pax))

470− ;< ~ bind:m (send-events (insert-files:util her desk [pax warped] ~))

471− (pure:m warped)

472−::

473−++ copy-file

474− =/ m (strand ,~)

475− |= [her=ship pax=path file=@t]

476− ^- form:m

477− ;< ~ bind:m

478− (send-events (insert-files:util her %base [pax file] ~))

479− (sleep ~s1)

480−::

481−:: Check /sur/aquarium/hoon on the given has the given contents.

482−::

483−++ check-file-touched

484− |= [=ship =desk warped=@t]

485− =/ m (strand ,~)

486− (check-touched ship desk /sur/aquarium/hoon warped)

487−::

488−:: Check path on the given desk has the given contents.

489−::

490−++ check-touched

491− |= [=ship =desk pax=path warped=@t]

492− =/ m (strand ,~)

493− ~& > "checking file touched on {<ship>}/{<desk>}"

494− ;< ~ bind:m (mount ship desk)

495− ^- form:m

496− |- ^- form:m

497− =* loop $

498− ;< [her=^ship =unix-effect] bind:m take-unix-effect

499− ;< our=@p bind:m get-our

500− ;< now=@da bind:m get-time

501− :: %ergo is no longer sufficient because .^ is pinned to beginning of

502− :: the event. So we hope somebody sets a timer for something.

503− ::

504− ?. &(=(ship her) ?=(?(%init %ergo %doze) -.q.unix-effect))

505− loop

506− =/ aqua-pax

507− ;: weld

508− /i/(scot %p ship)/cx/(scot %p ship)/[desk]/(scot %da now)

509− pax

510− /noun

511− ==

512− ?: =(warped (need (scry-aqua:util (unit @) our now aqua-pax)))

513− (pure:m ~)

514− loop

515−::

516−:: Turns poke into a dojo command

517−::

518−++ poke-app

519− |= [=ship app=term =mark data=*]

520− =/ m (strand ,~)

521− ^- form:m

522− =/ command=tape ":{(trip app)} &{(trip mark)} {<data>}"

523− (send-events (dojo:util ship command))

524−::

525−++ dojo-thread

526− |= [=ship ted=term =mark data=*]

527− =/ m (strand ,~)

528− ^- form:m

529− =/ command=tape "-{(trip ted)} &{(trip mark)} {<data>}"

530− (send-events (dojo:util ship command))

531−--

base-desk/lib/ph/util.hoondeleted−125

@@ -1,125 +0,0 @@

1−:: Utility functions for constructing tests

2−::

3−/- aquarium

4−=, aquarium

5−|%

6−::

7−:: Turn [ship (list unix-event)] into (list ph-event)

8−::

9−++ send-events-to

10− |= [who=ship what=(list unix-event)]

11− ^- (list aqua-event)

12− %+ turn what

13− |= ue=unix-event

14− [%event who ue]

15−::

16−:: Start a ship (low-level; prefer +raw-ship)

17−::

18−++ init

19− |= [who=ship ake=? eed=(unit feed:jael) ore=?(%mesa %ames)]

20− ^- (list aqua-event)

21− :~ [%init-ship who ake eed]

22− [%event who [/a/aqua/load %load ore]]

23− ==

24−::

25−:: Send dojo command

26−::

27−++ dojo

28− |= [who=ship what=tape]

29− ^- (list aqua-event)

30− %+ send-events-to who

31− ^- (list unix-event)

32− :~

33− [/d/term/1 %belt %mod %ctl `@c`%e]

34− [/d/term/1 %belt %mod %ctl `@c`%u]

35− [/d/term/1 %belt %txt ((list @c) what)]

36− [/d/term/1 %belt %ret ~]

37− ==

38−::

39−:: Control character

40−::

41−++ ctrl

42− |= [who=ship what=term]

43− ^- (list ph-event)

44− %+ send-events-to who

45− :~ [/d/term/1 %belt %mod %ctl (,@c what)]

46− ==

47−::

48−:: Inject a file into a ship

49−::

50−++ insert-files

51− |= [who=ship des=desk files=(list [=path txt=@t])]

52− ^- (list aqua-event)

53− =/ input

54− %+ turn files

55− |= [=path txt=@t]

56− [path ~ /text/plain (as-octs:mimes:html txt)]

57− %+ send-events-to who

58− :~

59− [/c/sync/0v1n.2m9vh %into des | input]

60− ==

61−::

62−:: Checks whether the given event is a dojo output blit containing the

63−:: given tape

64−::TODO should be rename -dill-output

65−++ is-dojo-output

66− |= [who=ship her=ship uf=unix-effect what=tape]

67− |^

68− ?& =(who her)

69− ?=(%blit -.q.uf)

70− (lien p.q.uf handle-blit)

71− ==

72− ::

73− ++ handle-blit

74− |= =blit:dill

75− ^- ?

76− ?: ?=(%mor -.blit)

77− (lien p.blit handle-blit)

78− ?+ -.blit |

79− %put !=(~ (find what p.blit))

80− ::

81− %klr

82− %+ lien p.blit

83− |= [* q=(list @c)]

84− !=(~ (find what q))

85− ==

86− --

87−::

88−:: Test is successful if +is-dojo-output

89−::

90−++ expect-dojo-output

91− |= [who=ship her=ship uf=unix-effect what=tape]

92− ^- (list ph-event)

93− ?. (is-dojo-output who her uf what)

94− ~

95− [%test-done &]~

96−::

97−:: Check whether the given event is an ergo

98−::

99−++ is-ergo

100− |= [who=ship her=ship uf=unix-effect]

101− ?& =(who her)

102− ?=(%ergo -.q.uf)

103− ==

104−::

105−:: Check if given effect is an http request; extract

106−::

107−++ extract-request

108− |= [uf=unix-effect dest=@t]

109− ^- (unit [num=@ud =request:http])

110− ?. ?=(%request -.q.uf) ~

111− ?. =(dest url.request.q.uf) ~

112− `[id.q.uf request.q.uf]

113−::

114−:: Scry into a running aqua ship

115−::

116−++ scry-aqua

117− |* [a=mold our=@p now=@da pax=path]

118− .^ a

119− %gx

120− (scot %p our)

121− %aqua

122− (scot %da now)

123− pax

124− ==

125−--

base-desk/lib/pill.hoondeleted−620

@@ -1,620 +0,0 @@

1−:: |pill: helper functions for making pills

2−::

3−/- dice

4−^?

5−=<

6−|%

7−::

8−+$ pill

9− $% [%ivory p=(list)]

10− $: %pill

11− nam=term

12− boot-ova=(list)

13− kernel-ova=(list unix-event)

14− userspace-ova=(list unix-event)

15− ==

16− $: %cash

17− $: nam=term

18− boot-ova=(list)

19− kernel-ova=(list unix-event)

20− userspace-ova=(list unix-event)

21− ==

22− cache=(list)

23− == ==

24−::

25−+$ unix-event

26− %+ pair wire

27− $% [%wack p=@]

28− [%what p=(list (pair path (cask)))]

29− [%whom p=ship]

30− [%boot ? $%($>(%fake task:jael) $>(%dawn task:jael))]

31− [%wyrd p=vere]

32− [%verb p=(unit ?)]

33− unix-task

34− ==

35−:: +boot-ovum: boostrap kernel filesystem load

36−::

37−++ boot-ovum

38− |= [hoon=cord arvo=cord]

39− :~ //arvo

40− %what

41− [/sys/hoon hoon/hoon]

42− [/sys/arvo hoon/arvo]

43− ==

44−:: +dirs: filter for userspace directories to include

45−::

46−++ dirs

47− |= [bas=path exc=(list spur)]

48− ^- (list spur)

49− ?~ exc ~(tap in dir:.^(arch %cy bas))

50− %+ skim

51− ~(tap in dir:.^(arch %cy bas))

52− |=(=spur =(~ (find ~[spur] exc)))

53−:: +file-ovum: userspace filesystem load

54−::

55−:: bas: full path to / directory

56−::

57−++ file-ovum

58− |= [des=desk bas=path exc=(list spur)]

59− ^- unix-event

60− %. (dirs bas exc)

61− |= :: sal: all spurs to load from

62− ::

63− sal=(list spur)

64− ^- unix-event

65− ::

66− :: hav: all user files

67− ::

68− =; hav ~& user-files+(lent hav)

69− =/ =yuki:clay

70− :- *(list tako:clay)

71− %- ~(gas by *(map path (each page lobe:clay)))

72− (turn hav |=([=path =page] [path &+page]))

73− [/c/sync [%park des &+yuki *rang:clay]]

74− (file-pages bas sal)

75−::

76−++ file-pages

77− |= [bas=path sal=(list spur)]

78− =| hav=(list [path page:clay])

79− |- ^+ hav

80− ?~ sal ~

81− =. hav $(sal t.sal)

82− ::

83− :: tyl: spur

84− ::

85− =/ tyl i.sal

86− |- ^+ hav

87− ::

88− :: pax: full path at `tyl`

89− :: lon: directory at `tyl`

90− ::

91− =/ lyt (flop tyl)

92− =/ pax (weld bas lyt)

93− =/ lon .^(arch %cy pax)

94− =? hav ?=(^ fil.lon)

95− :_ hav

96− :- lyt

97− ?. ?=([%azimuth-snapshot *] tyl)

98− [mark=;;(@tas (head tyl)) noun=.^(* %cx pax)]

99− =; convert

100− mime/(convert .^(snap-state:dice %cx pax))

101− .^($-(snap-state:dice mime) %cf (weld bas /azimuth-snapshot/mime))

102− =/ all ~(tap by dir.lon)

103− |- ^+ hav

104− ?~ all hav

105− $(all t.all, hav ^$(tyl [p.i.all tyl]))

106−::

107−:: +file-ovum2: electric boogaloo

108−::

109−++ file-ovum2 |=(z=[path (list spur)] `unix-event`[//arvo what/(user-files z)])

110−::

111−++ get-wynn

112− |= [sys=path new-wynn=?]

113− ^- wynn

114− ?. new-wynn

115− :~ zuse+zuse

116− lull+lull

117− arvo+arvo

118− hoon+hoon-version

119− ==

120− ~> %bout.[0 %get-wynn]

121− =+ .^(zus=vase %ca (welp sys /zuse/hoon))

122− =+ .^(lul=vase %ca (welp sys /lull/hoon))

123− =+ .^(arv=vase %ca (welp sys /arvo/hoon))

124− =+ .^(hun=vase %ca (welp sys /hoon/hoon))

125− :~ [%zuse ;;(@ud q:(slap zus limb+%zuse))]

126− [%lull ;;(@ud q:(slap lul limb+%lull))]

127− [%arvo ;;(@ud q:(slap arv limb+%arvo))]

128− [%hoon ;;(@ud q:(slap hun limb+%hoon-version))]

129− ==

130−::

131−++ prep-ovum

132− |= dez=(list path)

133− ^- unix-event

134− =- ~& clay-blobs+~(wyt by -)

135− [/c/inflate [%prep -]]

136− %+ roll dez

137− |= [bas=path out=(map lobe:clay page:clay)]

138− %- ~(uni by out)

139− .^(_out %cs (snoc bas %bloc))

140−::

141−:: +user-files: all userspace hoon files

142−::

143−++ user-files

144− |= [bas=path exc=(list spur)]

145− %. (dirs bas exc)

146− |= sal=(list spur)

147− ^- (list (pair path (cask)))

148− ::

149− :: hav: all user files

150− ::

151− =| hav=(list (pair path (cask)))

152− |- ^+ hav

153− ?~ sal ~

154− =. hav $(sal t.sal)

155− ::

156− :: tyl: spur

157− ::

158− =/ tyl i.sal

159− |- ^+ hav

160− ::

161− :: pax: full path at `tyl`

162− :: lon: directory at `tyl`

163− ::

164− =/ pax (weld bas (flop tyl))

165− =/ lon .^(arch %cy pax)

166− =? hav ?=(^ fil.lon)

167− ::

168− :: install only hoon files for now

169− ::

170− ?. ?=([%hoon *] tyl)

171− hav

172− :_ hav

173− [(flop `path`t.tyl) hoon/.^(@t %cx pax)]

174− ::

175− =/ all ~(tap by dir.lon)

176− |- ^+ hav

177− ?~ all hav

178− $(all t.all, hav ^$(tyl [p.i.all tyl]))

179−::

180−::TODO include %prep task in solid and brass?

181−++ solid

182− :: sys: root path to boot system, `/~me/[desk]/now/sys`

183− :: dez: secondary desks and their root paths

184− :: exc: list of desk folders to exclude

185− ::

186− |= [sys=path dez=(list [desk path]) dub=? now=@da prime=? exc=(list spur)]

187− ^- pill

188− =/ bas=path (scag 3 sys)

189− =/ compiler-path (weld sys /hoon)

190− =/ arvo-path (weld sys /arvo)

191− ~& %solid-start

192− =/ compiler-src .^(@t %cx (weld compiler-path /hoon))

193− =/ arvo-src .^(@t %cx (weld arvo-path /hoon))

194− =/ arvo-formula

195− ~& %solid-loaded

196− =/ compiler-hoon (rain compiler-path compiler-src)

197− ?. dub

198− :: compile arvo against hoon, with our current compiler

199− ::

200− =/ whole-hoon=hoon

201− [%tsgr compiler-hoon [%tsgr [%$ 7] (rain arvo-path arvo-src)]]

202− ~& %solid-parsed

203− =/ whole-formula q:(~(mint ut %noun) %noun whole-hoon)

204− ~& %solid-arvo

205− whole-formula

206− :: compile arvo against hoon, with a freshly compiled hoon (via +ride)

207− ::

208− ~& %solid-parsed

209− =/ compiler-formula q:(~(mint ut %noun) %noun compiler-hoon)

210− ~& %solid-compiled

211− =/ whole-src

212− (rap 3 ['=> ' compiler-src '=> +7 ' arvo-src ~])

213− ~& %solid-double-loaded

214− =/ whole-formula

215− =< +

216− .* [%noun whole-src]

217− [%8 compiler-formula [%9 2 %10 [6 %0 3] [%0 2]]]

218− ~& %solid-double-compiled

219− whole-formula

220− ::

221− ~& [%solid-kernel `@ux`(mug arvo-formula)]

222− ::

223− :: installed: Arvo gate (formal interface) with %zuse and vanes installed

224− ::

225− =/ installed

226− =< q

227− %^ spin

228− ^- (list ovum)

229− :- (boot-ovum:pill compiler-src arvo-src)

230− %+ turn

231− (snoc (turn dez tail) bas)

232− |= =path

233− (file-ovum2 [path exc])

234− .*(0 arvo-formula)

235− |= [ovo=ovum ken=*]

236− [~ (slum ken [now ovo])]

237− ::

238− :: kernel-formula

239− ::

240− :: We evaluate :arvo-formula (for jet registration),

241− :: then ignore the result and produce .installed

242− ::

243− =/ kernel-formula

244− [%7 arvo-formula %1 installed]

245− ::

246− :: boot-two: startup formula

247− ::

248− =/ boot-two

249− => *[kernel-formula=^ tale=*]

250− != [.*(0 kernel-formula) tale]

251− ::

252− :: boot-ova

253− ::

254− =/ boot-ova=(list)

255− [aeon:eden:part boot-two kernel-formula ~]

256− ::

257− :: a pill is a 3-tuple of event-lists: [boot kernel userspace]

258− ::

259− :: Our kernel event-list is ~, as we've already installed them.

260− :: Our userspace event-list is a list containing a full %clay

261− :: filesystem sync event.

262− ::

263− :+ %pill %solid

264− :+ boot-ova ~

265− =. dez (snoc dez [%base bas])

266− ;: weld

267− %+ turn dez

268− |= [dek=desk bas=path]

269− (file-ovum [dek bas exc])

270− ::

271− ?. prime ~

272− [(prep-ovum (turn dez tail))]~

273− ::

274− %+ turn dez

275− |= [dek=desk *]

276− ^- unix-event

277− [/c/essential/[dek] %esse dek %.y]

278− ==

279−::

280−++ brass

281− :: sys: root path to boot system, `/~me/[desk]/now/sys`

282− :: dez: secondary desks and their root paths

283− :: exc: list of desk folders to exclude

284− ::

285− |= [sys=path dez=(list [desk path]) cache=? prime=? new-wynn=? exc=(list spur)]

286− ^- pill

287− =/ bas=path (scag 3 sys)

288− :: compiler-source: hoon source file producing compiler, `sys/hoon`

289− ::

290− =+ compiler-source=.^(@t %cx (welp sys /hoon/hoon))

291− ::

292− :: compiler-twig: compiler as hoon expression

293− ::

294− ~& %brass-parsing

295− =+ compiler-twig=(rain /sys/hoon/hoon compiler-source)

296− ~& %brass-parsed

297− ::

298− :: compiler-formula: compiler as nock formula

299− ::

300− ~& %brass-compiling

301− =+ compiler-formula=q:(~(mint ut %noun) %noun compiler-twig)

302− ~& %brass-compiled

303− ::

304− :: arvo-source: hoon source file producing arvo kernel, `sys/arvo`

305− ::

306− =+ arvo-source=.^(@t %cx (welp sys /arvo/hoon))

307− ::

308− :: boot-ova: startup events

309− ::

310− =/ boot-ova=(list)

311− :~ aeon:eden:part

312− boot:eden:part

313− compiler-formula

314− compiler-source

315− arvo-source

316− ==

317− ::

318− =/ kernel-ova=(list unix-event)

319− :~ (boot-ovum compiler-source arvo-source)

320− (file-ovum2 [bas exc])

321− ==

322− ::

323− =/ userspace-ova

324− =. dez (snoc dez [%base bas])

325− ;: weld

326− %+ turn dez

327− |= [dek=desk bas=path]

328− (file-ovum [dek bas exc])

329− ::

330− ?. prime ~

331− [(prep-ovum (turn dez tail))]~

332− ::

333− %+ turn dez

334− |= [dek=desk *]

335− ^- unix-event

336− [/c/essential/[dek] %esse dek %.y]

337− ==

338− ::

339− =/ =wynn (get-wynn sys new-wynn)

340− ::

341− =/ cache=(list)

342− ?. cache ~

343− %~ tap by

344− =< +

345− %- mice

346− :_ [%2 [%0 3] %0 2]

347− ;: weld

348− boot-ova

349− ^- (list)

350− :~ [*@da //arvo %wack *@uvJ]

351− [*@da //arvo %whom *@p]

352− [*@da //arvo %wyrd [~.nonce /] wynn]

353− ==

354− `(list)`(turn kernel-ova (lead *@da))

355− `(list)`[*@da [/d/term/1 %boot & %fake *@p]]^~

356− `(list)`(turn userspace-ova (lead *@da))

357− `(list)`[*@da [/c/init-zest %zeal (turn dez |=([d=desk *] [d %live]))]]^~

358− ==

359− ::

360− ~> %slog.[0 leaf+"brass: cache entries: {<(lent cache)>}"]

361− ::

362− :- %cash

363− :_ cache

364− [%brass boot-ova kernel-ova userspace-ova]

365−::

366−++ ivory

367− |= sys=path

368− ^- pill

369− =/ lib (snoc (scag 3 sys) %lib)

370− |^ =/ ver

371− =/ sub *(trap vase)

372− =. sub (build-sys sub %hoon)

373− =. sub (build-sys sub %arvo)

374− =. sub (build-sys sub %lull)

375− =. sub (build-sys sub %zuse)

376− =. sub (build-lib sub & %ethereum)

377− =. sub (build-lib sub & %azimuth)

378− (build-lib sub | %vere)

379− =/ nok !.

380− => *[ver=(trap vase) ~]

381− != q:$:ver

382− ivory/[nok ver ~]

383− ::

384− ++ build-sys

385− |= [sub=(trap vase) nam=term] ^- (trap vase)

386− ~> %slog.[0 leaf+"ivory: building /sys/{(trip nam)}"]

387− (swat sub (rain /sys/[nam]/hoon .^(@t cx+(welp sys /[nam]/hoon))))

388− ::

389− ++ build-lib

390− |= [sub=(trap vase) imp=? nam=term] ^- (trap vase)

391− ~> %slog.[0 leaf+"ivory: building /lib/{(trip nam)}"]

392− =/ hun=hoon

393− %+ mist /lib/[nam]/hoon

394− .^(@t cx+(welp lib /[nam]/hoon))

395− ?. imp (swat sub hun)

396− (swel sub [%ktts nam hun])

397− :: +mist: +rain but skipping past ford runes

398− ::

399− ++ mist

400− |= [bon=path txt=@]

401− ^- hoon

402− =+ vas=vast

403− ~| bon

404− %+ scan (trip txt)

405− %- full

406− =; fud

407− (ifix [;~(plug gay fud) gay] tall:vas(wer bon))

408− %- star

409− ;~ pose vul

410− %+ ifix [fas (just `@`10)]

411− (star ;~(less (just `@`10) next))

412− ==

413− :: +swel: +swat but with +slop

414− ::

415− ++ swel

416− |= [tap=(trap vase) gen=hoon]

417− ^- (trap vase)

418− =/ gun (~(mint ut p:$:tap) %noun gen)

419− => [tap=tap gun=gun]

420− |. ~+

421− =/ pro q:$:tap

422− [[%cell p.gun p:$:tap] [.*(pro q.gun) pro]]

423− --

424−::

425−++ events

426− |%

427− +$ prop [%prop meta tier (list ovum)]

428− +$ meta term

429− +$ tier ?(%fore %hind) :: before or after userspace

430− ::

431− ++ install

432− |= [as=desk =beak pri=?]

433− ^- prop

434− :^ %prop (rap 3 %install '-' as ~) %hind

435− ::TODO will exclude non-:directories files, such as /changelog/txt

436− =- (murn - same)

437− ^- (list (unit ovum))

438− :~ `(file-ovum as (en-beam beak /) ~)

439− ::

440− ?. pri ~

441− `(prep-ovum (en-beam beak /) ~)

442− ::

443− `[/d/install/[as] [%seat as]]

444− ==

445− --

446−--

447−::

448−~% %non ..part ~

449−:: +mice: %memo hint caching version of mink

450−::

451−|%

452−++ mice !.

453− ~/ %mice

454− |= [subject=* formula=*]

455− =| trace=(list [@ta *])

456− =| memo=(map)

457− =; [ton=tone mem=_memo]

458− ?. ?=(%0 -.ton)

459− [ton ~]

460− [ton mem]

461− |^ ^- [tone _memo]

462− ?+ formula [[%2 trace] memo]

463− [^ *]

464− =^ head memo $(formula -.formula)

465− ?. ?=(%0 -.head) [head memo]

466− =^ tail memo $(formula +.formula)

467− :_ memo

468− ?. ?=(%0 -.tail) tail

469− [%0 product.head product.tail]

470− ::

471− [%0 axis=@]

472− :_ memo

473− =/ part (frag axis.formula subject)

474− ?~ part [%2 trace]

475− [%0 u.part]

476− ::

477− [%1 constant=*]

478− [[%0 constant.formula] memo]

479− ::

480− [%2 subject=* formula=*]

481− =^ subject memo $(formula subject.formula)

482− ?. ?=(%0 -.subject) [subject memo]

483− =^ formula memo $(formula formula.formula)

484− ?. ?=(%0 -.formula) [formula memo]

485− %= $

486− subject product.subject

487− formula product.formula

488− ==

489− ::

490− [%3 argument=*]

491− =^ argument memo $(formula argument.formula)

492− :_ memo

493− ?. ?=(%0 -.argument) argument

494− [%0 .?(product.argument)]

495− ::

496− [%4 argument=*]

497− =^ argument memo $(formula argument.formula)

498− :_ memo

499− ?. ?=(%0 -.argument) argument

500− ?^ product.argument [%2 trace]

501− [%0 .+(product.argument)]

502− ::

503− [%5 a=* b=*]

504− =^ a memo $(formula a.formula)

505− ?. ?=(%0 -.a) [a memo]

506− =^ b memo $(formula b.formula)

507− :_ memo

508− ?. ?=(%0 -.b) b

509− [%0 =(product.a product.b)]

510− ::

511− [%6 test=* yes=* no=*]

512− =^ result memo $(formula test.formula)

513− ?. ?=(%0 -.result) [result memo]

514− ?+ product.result [[%2 trace] memo]

515− %& $(formula yes.formula)

516− %| $(formula no.formula)

517− ==

518− ::

519− [%7 subject=* next=*]

520− =^ subject memo $(formula subject.formula)

521− ?. ?=(%0 -.subject) [subject memo]

522− %= $

523− subject product.subject

524− formula next.formula

525− ==

526− ::

527− [%8 head=* next=*]

528− =^ head memo $(formula head.formula)

529− ?. ?=(%0 -.head) [head memo]

530− %= $

531− subject [product.head subject]

532− formula next.formula

533− ==

534− ::

535− [%9 axis=@ core=*]

536− =^ core memo

537− $(formula core.formula)

538− ?. ?=(%0 -.core) [core memo]

539− =/ arm (frag axis.formula product.core)

540− ?~ arm [[%2 trace] memo]

541− %= $

542− subject product.core

543− formula u.arm

544− ==

545− ::

546− [%10 [axis=@ value=*] target=*]

547− ?: =(0 axis.formula) [[%2 trace] memo]

548− =^ target memo $(formula target.formula)

549− ?. ?=(%0 -.target) [target memo]

550− =^ value memo $(formula value.formula)

551− :_ memo

552− ?. ?=(%0 -.value) value

553− =/ mutant=(unit *)

554− (edit axis.formula product.target product.value)

555− ?~ mutant [%2 trace]

556− [%0 u.mutant]

557− ::

558− [%11 tag=@ next=*]

559− =^ next memo $(formula next.formula)

560− :_ memo

561− ?. ?=(%0 -.next) next

562− :- %0

563− .* subject

564− [11 tag.formula 1 product.next]

565− ::

566− [%11 [tag=@ clue=*] next=*]

567− =^ clue memo $(formula clue.formula)

568− ?. ?=(%0 -.clue) [clue memo]

569− ?: ?=(%memo tag.formula)

570− ?^ hit=(~(get by memo) subject next.formula)

571− [[%0 u.hit] memo]

572− =^ ton memo $(formula next.formula)

573− ?. ?=(%0 -.ton)

574− [ton memo]

575− ?: ?=(?(@ [%clay %ford *]) product.clue)

576− [ton memo]

577− [ton (~(put by memo) [subject next.formula] product.ton)]

578− =^ next memo

579− =? trace

580− ?=(?(%hunk %hand %lose %mean %spot) tag.formula)

581− [[tag.formula product.clue] trace]

582− $(formula next.formula)

583− :_ memo

584− ?. ?=(%0 -.next) next

585− :- %0

586− .* subject

587− [11 [tag.formula 1 product.clue] 1 product.next]

588− ==

589− ::

590− ++ frag

591− |= [axis=@ noun=*]

592− ^- (unit)

593− ?: =(0 axis) ~

594− |- ^- (unit)

595− ?: =(1 axis) `noun

596− ?@ noun ~

597− =/ pick (cap axis)

598− %= $

599− axis (mas axis)

600− noun ?-(pick %2 -.noun, %3 +.noun)

601− ==

602− ::

603− ++ edit

604− |= [axis=@ target=* value=*]

605− ^- (unit)

606− ?: =(1 axis) `value

607− ?@ target ~

608− =/ pick (cap axis)

609− =/ mutant

610− %= $

611− axis (mas axis)

612− target ?-(pick %2 -.target, %3 +.target)

613− ==

614− ?~ mutant ~

615− ?- pick

616− %2 `[u.mutant +.target]

617− %3 `[-.target u.mutant]

618− ==

619− --

620−--

base-desk/lib/pkcs.hoondeleted−378

@@ -1,378 +0,0 @@

1−/- asn1

2−/+ primitive-rsa, der

3−=* rsa primitive-rsa

4−:::: %/lib/pkcs

5−|%

6−:: +rs256: RSA signatures over a sha-256 digest

7−::

8−++ rs256

9− |_ k=key:rsa

10− :: +emsa:rs256: message digest

11− ::

12− :: Padded, DER encoded sha-256 hash (EMSA-PKCS1-v1_5).

13− ::

14− ++ emsa

15− |= m=byts

16− =/ emlen (met 3 n.pub.k)

17− =/ pec=spec:asn1

18− :~ %seq

19− [%seq [%obj sha-256:obj:asn1] [%nul ~] ~]

20− [%oct 32 (shay wid.m dat.m)]

21− ==

22− :: note: this asn.1 digest is rendered raw here, as we require

23− :: big-endian bytes, and the product of +en:der is little-endian

24− ::

25− =/ t=(list @D) ~(ren raw:en:der pec)

26− =/ tlen=@ud (lent t)

27− ?: (lth emlen (add 11 tlen))

28− ~|(%emsa-too-short !!)

29− =/ ps=(list @D)

30− (reap (sub emlen (add 3 tlen)) 0xff)

31− (rep 3 (flop (weld [0x0 0x1 ps] [0x0 t])))

32− :: +sign:rs256: sign message

33− ::

34− :: An RSA signature is the primitive decryption of the message hash.

35− ::

36− ++ sign

37− |=(m=byts (de:rsa (emsa m) k))

38− :: +verify:rs256: verify signature

39− ::

40− :: RSA signature verification confirms that the primitive encryption

41− :: of the signature matches the message hash.

42− ::

43− ++ verify

44− |= [s=@ m=byts]

45− =((emsa m) (en:rsa s k))

46− --

47−:: |pem: generic PEM implementation (rfc7468)

48−::

49−:: PEM is the base64 encoding of DER encoded data, with BEGIN and

50−:: END labels indicating some type.

51−::

52−++ pem

53− |%

54− :: +en:pem: PEM encode

55− ::

56− ++ en

57− |= [lab=@t len=@ud der=@ux]

58− ^- wain

59− :: XX validate label?

60− :- (rap 3 ['-----BEGIN ' lab '-----' ~])

61− =/ a (en:base64:mimes:html len `@`der)

62− |- ^- wain

63− ?~ a

64− [(rap 3 ['-----END ' lab '-----' ~]) ~]

65− [(end [3 64] a) $(a (rsh [3 64] a))]

66− :: +de:pem: PEM decode

67− ::

68− ++ de

69− |= [lab=@t mep=wain]

70− ^- (unit [len=@ud der=@ux])

71− =/ a (sub (lent mep) 2)

72− ?~ mep ~

73− :: XX validate label?

74− ?. =((rap 3 ['-----BEGIN ' lab '-----' ~]) i.mep) ~

75− ?. =((rap 3 ['-----END ' lab '-----' ~]) (snag a t.mep)) ~

76− ^- (unit [@ @])

77− (de:base64:mimes:html (rap 3 (scag a t.mep)))

78− --

79−:: |pkcs1: RSA asymmetric cryptography (rfc3447)

80−::

81−++ pkcs1

82− |%

83− :: |spec:pkcs1: ASN.1 specs for RSA keys

84− ::

85− ++ spec

86− |%

87− :: |en:spec:pkcs1: ASN.1 encoding for RSA keys

88− ::

89− ++ en

90− |%

91− :: +pass:en:spec:pkcs1: encode public key to ASN.1

92− ::

93− ++ pass

94− |= k=key:rsa

95− ^- spec:asn1

96− [%seq [%int n.pub.k] [%int e.pub.k] ~]

97− :: +ring:en:spec:pkcs1: encode private key to ASN.1

98− ::

99− ++ ring

100− |= k=key:rsa

101− ^- spec:asn1

102− ~| %rsa-need-ring

103− ?> ?=(^ sek.k)

104− :~ %seq

105− [%int 0]

106− [%int n.pub.k]

107− [%int e.pub.k]

108− [%int d.u.sek.k]

109− [%int p.u.sek.k]

110− [%int q.u.sek.k]

111− [%int (mod d.u.sek.k (dec p.u.sek.k))]

112− [%int (mod d.u.sek.k (dec q.u.sek.k))]

113− [%int (~(inv fo p.u.sek.k) q.u.sek.k)]

114− ==

115− --

116− :: |de:spec:pkcs1: ASN.1 decoding for RSA keys

117− ::

118− ++ de

119− |%

120− :: +pass:de:spec:pkcs1: decode ASN.1 public key

121− ::

122− ++ pass

123− |= a=spec:asn1

124− ^- (unit key:rsa)

125− ?. ?=([%seq [%int *] [%int *] ~] a)

126− ~

127− =* n int.i.seq.a

128− =* e int.i.t.seq.a

129− `[[n e] ~]

130− :: +ring:de:spec:pkcs1: decode ASN.1 private key

131− ::

132− ++ ring

133− |= a=spec:asn1

134− ^- (unit key:rsa)

135− ?. ?=([%seq *] a) ~

136− ?. ?= $: [%int %0]

137− [%int *]

138− [%int *]

139− [%int *]

140− [%int *]

141− [%int *]

142− *

143− ==

144− seq.a

145− ~

146− =* n int.i.t.seq.a

147− =* e int.i.t.t.seq.a

148− =* d int.i.t.t.t.seq.a

149− =* p int.i.t.t.t.t.seq.a

150− =* q int.i.t.t.t.t.t.seq.a

151− `[[n e] `[d p q]]

152− --

153− --

154− :: |der:pkcs1: DER encoding for RSA keys

155− ::

156− :: En(coding) and de(coding) for public (pass) and private (ring) keys.

157− ::

158− ++ der

159− |%

160− ++ en

161− |%

162− ++ pass |=(k=key:rsa (en:^der (pass:en:spec k)))

163− ++ ring |=(k=key:rsa (en:^der (ring:en:spec k)))

164− --

165− ++ de

166− |%

167− ++ pass |=([len=@ud dat=@ux] `(unit key:rsa)`(biff (de:^der len dat) pass:de:spec))

168− ++ ring |=([len=@ud dat=@ux] `(unit key:rsa)`(biff (de:^der len dat) ring:de:spec))

169− --

170− --

171− :: |pem:pkcs1: PEM encoding for RSA keys

172− ::

173− :: En(coding) and de(coding) for public (pass) and private (ring) keys.

174− ::

175− ++ pem

176− |%

177− ++ en

178− |%

179− ++ pass |=(k=key:rsa (en:^pem 'RSA PUBLIC KEY' (pass:en:der k)))

180− ++ ring |=(k=key:rsa (en:^pem 'RSA PRIVATE KEY' (ring:en:der k)))

181− --

182− ++ de

183− |%

184− ++ pass |=(mep=wain (biff (de:^pem 'RSA PUBLIC KEY' mep) pass:de:der))

185− ++ ring |=(mep=wain (biff (de:^pem 'RSA PRIVATE KEY' mep) ring:de:der))

186− --

187− --

188− --

189−:: |pkcs8: asymmetric cryptography (rfc5208, rfc5958)

190−::

191−:: RSA-only for now.

192−::

193−++ pkcs8

194− |%

195− :: |spec:pkcs8: ASN.1 specs for asymmetric keys

196− ::

197− ++ spec

198− |%

199− ++ en

200− |%

201− :: +pass:spec:pkcs8: public key ASN.1

202− ::

203− :: Technically not part of pkcs8, but standardized later in

204− :: the superseding RFC. Included here for symmetry.

205− ::

206− ++ pass

207− |= k=key:rsa

208− ^- spec:asn1

209− :~ %seq

210− [%seq [[%obj rsa:obj:asn1] [%nul ~] ~]]

211− =/ a=[len=@ud dat=@ux]

212− (pass:en:der:pkcs1 k)

213− [%bit (mul 8 len.a) dat.a]

214− ==

215− :: +ring:spec:pkcs8: private key ASN.1

216− ::

217− ++ ring

218− |= k=key:rsa

219− ^- spec:asn1

220− :~ %seq

221− [%int 0]

222− [%seq [[%obj rsa:obj:asn1] [%nul ~] ~]]

223− [%oct (ring:en:der:pkcs1 k)]

224− ==

225− --

226− :: |de:spec:pkcs8: ASN.1 decoding for asymmetric keys

227− ::

228− ++ de

229− |%

230− :: +pass:de:spec:pkcs8: decode public key ASN.1

231− ::

232− ++ pass

233− |= a=spec:asn1

234− ^- (unit key:rsa)

235− ?. ?=([%seq [%seq *] [%bit *] ~] a)

236− ~

237− ?. ?& ?=([[%obj *] [%nul ~] ~] seq.i.seq.a)

238− =(rsa:obj:asn1 obj.i.seq.i.seq.a)

239− ==

240− ~

241− (pass:de:der:pkcs1 (div len.i.t.seq.a 8) bit.i.t.seq.a)

242− :: +ring:de:spec:pkcs8: decode private key ASN.1

243− ::

244− ++ ring

245− |= a=spec:asn1

246− ^- (unit key:rsa)

247− ?. ?=([%seq [%int %0] [%seq *] [%oct *] ~] a)

248− ~

249− ?. ?& ?=([[%obj *] [%nul ~] ~] seq.i.t.seq.a)

250− =(rsa:obj:asn1 obj.i.seq.i.t.seq.a)

251− ==

252− ~

253− (ring:de:der:pkcs1 [len oct]:i.t.t.seq.a)

254− --

255− --

256− :: |der:pkcs8: DER encoding for asymmetric keys

257− ::

258− :: En(coding) and de(coding) for public (pass) and private (ring) keys.

259− :: RSA-only for now.

260− ::

261− ++ der

262− |%

263− ++ en

264− |%

265− ++ pass |=(k=key:rsa `[len=@ud dat=@ux]`(en:^der (pass:en:spec k)))

266− ++ ring |=(k=key:rsa `[len=@ud dat=@ux]`(en:^der (ring:en:spec k)))

267− --

268− ++ de

269− |%

270− ++ pass |=([len=@ud dat=@ux] `(unit key:rsa)`(biff (de:^der len dat) pass:de:spec))

271− ++ ring |=([len=@ud dat=@ux] `(unit key:rsa)`(biff (de:^der len dat) ring:de:spec))

272− --

273− --

274− :: |pem:pkcs8: PEM encoding for asymmetric keys

275− ::

276− :: En(coding) and de(coding) for public (pass) and private (ring) keys.

277− :: RSA-only for now.

278− ::

279− ++ pem

280− |%

281− ++ en

282− |%

283− ++ pass |=(k=key:rsa (en:^pem 'PUBLIC KEY' (pass:en:der k)))

284− ++ ring |=(k=key:rsa (en:^pem 'PRIVATE KEY' (ring:en:der k)))

285− --

286− ++ de

287− |%

288− ++ pass |=(mep=wain (biff (de:^pem 'PUBLIC KEY' mep) pass:de:der))

289− ++ ring |=(mep=wain (biff (de:^pem 'PRIVATE KEY' mep) ring:de:der))

290− --

291− --

292− --

293−:: |pkcs10: certificate signing requests (rfc2986)

294−::

295−:: Only implemented for RSA keys with subject-alternate names.

296−::

297−++ pkcs10

298− => |%

299− :: +csr:pkcs10: certificate request

300− ::

301− +$ csr [key=key:rsa hot=(list turf)]

302− --

303− |%

304− :: |spec:pkcs10: ASN.1 specs for certificate signing requests

305− ::

306− ++ spec

307− |%

308− :: +en:spec:pkcs10: ASN.1 encoding for certificate signing requests

309− ::

310− ++ en

311− |= csr

312− ^- spec:asn1

313− |^ =/ dat=spec:asn1 (info key hot)

314− :~ %seq

315− dat

316− [%seq [[%obj rsa-sha-256:obj:asn1] [%nul ~] ~]]

317− :: big-endian signature bits

318− ::

319− :: the signature bitwidth is definitionally the key length

320− ::

321− :+ %bit

322− (met 0 n.pub.key)

323− (swp 3 (~(sign rs256 key) (en:^der dat)))

324− ==

325− :: +info:en:spec:pkcs10: certificate request info

326− ::

327− ++ info

328− |= csr

329− ^- spec:asn1

330− :~ %seq

331− [%int 0]

332− [%seq ~]

333− (pass:en:spec:pkcs8 key)

334− :: explicit, context-specific tag #0 (extensions)

335− ::

336− :+ %con

337− `bespoke:asn1`[| 0]

338− %~ ren

339− raw:en:^der

340− :~ %seq

341− [%obj csr-ext:obj:asn1]

342− :~ %set

343− :~ %seq

344− :~ %seq

345− [%obj sub-alt:obj:asn1]

346− [%oct (en:^der (san hot))]

347− == == == == ==

348− :: +san:en:spec:pkcs10: subject-alternate-names

349− ::

350− ++ san

351− |= hot=(list turf)

352− ^- spec:asn1

353− :- %seq

354− %+ turn hot

355− :: implicit, context-specific tag #2 (IA5String)

356− :: XX sanitize string?

357− |=(=turf [%con `bespoke:asn1`[& 2] (trip (en-turf:html turf))])

358− --

359− :: |de:spec:pkcs10: ASN.1 decoding for certificate signing requests

360− ++ de !!

361− --

362− :: |der:pkcs10: DER encoding for certificate signing requests

363− ::

364− ++ der

365− |%

366− ++ en |=(a=csr `[len=@ud der=@ux]`(en:^der (en:spec a)))

367− ++ de !! ::|=(a=@ `(unit csr)`(biff (de:^der a) de:spec))

368− --

369− :: |pem:pkcs10: PEM encoding for certificate signing requests

370− ::

371− ++ pem

372− |%

373− ++ en |=(a=csr (en:^pem 'CERTIFICATE REQUEST' (en:der a)))

374− ++ de !! ::|=(mep=wain (biff (de:^pem 'CERTIFICATE REQUEST' mep) de:der))

375− --

376− --

377−--

378−

base-desk/lib/primitive-rsa.hoondeleted−84

@@ -1,84 +0,0 @@

1−:: |rsa: primitive, textbook RSA

2−::

3−:: Unpadded, unsafe, unsuitable for encryption!

4−::

5−|%

6−:: +key:rsa: rsa public or private key

7−::

8−+$ key

9− $: :: pub: public parameters (n=modulus, e=pub-exponent)

10− ::

11− pub=[n=@ux e=@ux]

12− :: sek: secret parameters (d=private-exponent, p/q=primes)

13− ::

14− sek=(unit [d=@ux p=@ux q=@ux])

15− ==

16−:: +ramp: make rabin-miller probabilistic prime

17−::

18−:: XX replace +ramp:number?

19−:: a: bitwidth

20−:: b: snags (XX small primes to check divisibility?)

21−:: c: entropy

22−::

23−++ ramp

24− |= [a=@ b=(list @) c=@]

25− =. c (shas %ramp c)

26− :: XX what is this value?

27− ::

28− =| d=@

29− |- ^- @ux

30− :: XX what is this condition?

31− ::

32− ?: =((mul 100 a) d)

33− ~|(%ar-ramp !!)

34− :: e: prime candidate

35− ::

36− :: Sets low bit, as prime must be odd.

37− :: Sets high bit, as +raw:og only gives up to :a bits.

38− ::

39− =/ e :(con 1 (lsh [0 (dec a)] 1) (~(raw og c) a))

40− :: XX what algorithm is this modular remainder check?

41− ::

42− ?: ?& (levy b |=(f=@ !=(1 (mod e f))))

43− (pram:number e)

44− ==

45− e

46− $(c +(c), d (shax d))

47−:: +elcm:rsa: carmichael totient

48−::

49−++ elcm

50− |= [a=@ b=@]

51− (div (mul a b) d:(egcd a b))

52−:: +new-key:rsa: write somethingXXX

53−::

54−++ new-key

55− =/ e `@ux`65.537

56− |= [wid=@ eny=@]

57− ^- key

58− =/ diw (rsh 0 wid)

59− =/ p=@ux (ramp diw [3 5 ~] eny)

60− =/ q=@ux (ramp diw [3 5 ~] +(eny))

61− =/ n=@ux (mul p q)

62− =/ d=@ux (~(inv fo (elcm (dec p) (dec q))) e)

63− [[n e] `[d p q]]

64−:: +en:rsa: primitive RSA encryption

65−::

66−:: ciphertext = message^e (mod n)

67−::

68−++ en

69− |= [m=@ k=key]

70− ~| %rsa-len

71− ?> (lte (met 0 m) (met 0 n.pub.k))

72− (~(exp fo n.pub.k) e.pub.k m)

73−:: +de:rsa: primitive RSA decryption

74−::

75−:: message = ciphertext^d (mod e)

76−::

77−++ de

78− |= [m=@ k=key]

79− :: XX assert rsa-len here too?

80− ~| %rsa-need-ring

81− ?> ?=(^ sek.k)

82− =/ fu (fu:number p.u.sek.k q.u.sek.k)

83− (out.fu (exp.fu d.u.sek.k (sit.fu m)))

84−--

base-desk/lib/ring.hoondeleted−478

@@ -1,478 +0,0 @@

1−/- *ring

2−:: ring signatures over the edwards curve

3−::

4−|%

5−:: +raw is the raw internal ring signature implementation. +raw does not deal

6−:: with urbit ship identities or urbit nouns and is low level. It only deals

7−:: with ed25519 keys and message digests.

8−::

9−:: This raw interface is vaguely modeled on the haskell aos-signature package,

10−:: but is written in terms of ed25519 primitives instead of general ECC and

11−:: changes how linkage tags are computed so that how linkage occurs is a

12−:: client decision instead of hard coding the set of public keys as the

13−:: linkage scope.

14−::

15−++ raw

16− |%

17− :: +generate-public-linkage: generate public linkage information

18− ::

19− ++ generate-public-linkage

20− |= link-scope=@

21− ^- [data=@ h=@uxpoint]

22− ::

23− =/ data=@ (mod link-scope l:ed:crypto)

24− =/ h=@uxpoint (scalarmult-base:ed:crypto data)

25− [data h]

26− :: +generate-linkage: linkage information from scope and private key

27− ::

28− :: data: deterministically picked data point based off scope

29− :: h: h = [data] * g

30− :: y: y = [x] * h

31− ++ generate-linkage

32− |= [link-scope=(unit @) my-private-key=@]

33− ^- (unit [data=@ h=@uxpoint y=@uxpoint])

34− ::

35− ?~ link-scope

36− ~

37− ::

38− =+ [data=@ h=@uxpoint]=(generate-public-linkage u.link-scope)

39− =/ y=@uxpoint (scalarmult:ed:crypto my-private-key h)

40− [~ data h y]

41− :: +generate-challenge: generate challenge from a given message

42− ::

43− :: When :link-scope is ~ (ie, we're not building a linked ring signature),

44− :: calculates just the hash of `[message g]`. Otherwise, weaves the

45− :: linkage state into the challenge.

46− ::

47− ++ generate-challenge

48− |= $: :: common to both linked and unlinked

49− message=@

50− g=@uxpoint

51− :: high level universal state

52− ::

53− link-state=(unit [data=@ h=@uxpoint y=@uxpoint])

54− :: point to include in challenge when link-state isn't ~

55− ::

56− h=(unit @uxpoint)

57− ==

58− ^- @

59− :: concatenate and reduce our message down to a 512-bit hash

60− =/ concatenated

61− ?~ link-state

62− (shal 96 (can 3 ~[[64 message] [32 g]]))

63− ::

64− %+ shal 192

65− %+ can 3

66− :~ [64 message]

67− [32 g]

68− [32 data.u.link-state]

69− [32 y.u.link-state]

70− [32 (need h)]

71− ==

72− ::

73− (mod concatenated l:ed:crypto)

74− :: +generate-challenges: generates the full list of challenges

75− ::

76− ++ generate-challenges

77− |= $: link-state=(unit [data=@ h=@uxpoint y=@uxpoint])

78− message=@

79− public-keys=(list @uxpoint)

80− ss=(list @)

81− ::

82− prev-k=@u

83− prev-s=@

84− prev-ch=@

85− challenges=(list @)

86− ==

87− ^- (list @)

88− ::

89− =/ gs=@uxpoint

90− %- add-scalarmult-scalarmult-base:ed:crypto :*

91− prev-ch

92− (snag prev-k public-keys)

93− prev-s

94− ==

95− ::

96− =/ hs=(unit @uxpoint)

97− ?~ link-state

98− ~

99− ::

100− :- ~

101− %- add-double-scalarmult:ed:crypto :*

102− prev-s

103− h.u.link-state

104− prev-ch

105− y.u.link-state

106− ==

107− ::

108− =/ ch=@

109− (generate-challenge message gs link-state hs)

110− ::

111− ?~ ss

112− [ch challenges]

113− ::

114− %_ $

115− prev-k (mod (add prev-k 1) (lent public-keys))

116− prev-s i.ss

117− prev-ch ch

118− ss t.ss

119− challenges [ch challenges]

120− ==

121− :: +scalarmult-h: maybe multiply u by h in linkage

122− ::

123− :: Since linkage tags are optional, we need to be able to just do the math

124− :: in case :linkage is set and fall through otherwise. +scalarmult-h is

125− :: used to generate the (unit point) consumed by +generate-challenge.

126− ::

127− ++ scalarmult-h

128− |= [u=@ linkage=(unit [data=@ h=@uxpoint y=@uxpoint])]

129− ^- (unit @uxpoint)

130− ?~ linkage

131− ~

132− [~ (scalarmult:ed:crypto u h.u.linkage)]

133− :: +reorder: reorders a list so the ith element is first

134− ::

135− ++ reorder

136− |* [i=@ l=(list)]

137− %+ weld

138− (slag i l)

139− (scag i l)

140− :: +sign: creates a ring signature on an ed25519 curve

141− ::

142− ++ sign

143− |= $: message=@

144− link-scope=(unit @)

145− ::

146− anonymity-set=(set @uxpoint)

147− my-public-key=@uxpoint

148− my-private-key=@uxscalar

149− ::

150− eny=@uvJ

151− ==

152− ^- raw-ring-signature

153− |^ :: k: our public-key's position in :anonymity-list

154− ::

155− =/ k=@u

156− ~| [%couldnt-find my-public-key in=anonymity-list]

157− (need (find [my-public-key ~] anonymity-list))

158− :: Generate linkage information if given

159− ::

160− =/ linkage=(unit [data=@ h=@uxpoint y=@uxpoint])

161− (generate-linkage link-scope my-private-key)

162− :: initialize our random number generator from entropy

163− ::

164− =+ rand=~(. og eny)

165− :: generate the random s values used in the ring

166− ::

167− =^ random-s-values=(list @) rand

168− =| count=@

169− =| random-s-values=(list @)

170− |-

171− ?: =(count (sub participants 1))

172− [random-s-values rand]

173− ::

174− =^ v=@ rand (rads:rand l:ed:crypto)

175− $(count (add 1 count), random-s-values [v random-s-values])

176− ::

177− ?> ?=(^ random-s-values)

178− =/ sk1=@ i.random-s-values

179− =/ sk2-to-prev-sk=(list @) t.random-s-values

180− :: Pick a random :u

181− ::

182− =^ u=@ rand

183− (rads:rand l:ed:crypto)

184− :: Compute challenge at k + 1

185− ::

186− =/ chk1=@

187− %- generate-challenge :*

188− message

189− (scalarmult-base:ed:crypto u)

190− linkage

191− (scalarmult-h u linkage)

192− ==

193− :: Generate challenges for [ck, ..., c1, c0, ... ck + 2, ck + 1]

194− ::

195− =/ reversed-chk-to-chk1=(list @)

196− %- generate-challenges :*

197− linkage

198− message

199− anonymity-list

200− sk2-to-prev-sk

201− ::

202− (mod (add k 1) participants)

203− sk1

204− chk1

205− [chk1 ~]

206− ==

207− =/ chk=@ (head reversed-chk-to-chk1)

208− :: Compute s = u - x * c mod n

209− ::

210− =/ sk=@ (~(dif fo l:ed:crypto) u (mul my-private-key chk))

211− ::

212− =/ ordered-challenges=(list @)

213− (order-challenges k (flop reversed-chk-to-chk1))

214− ::

215− =/ ordered-ss=(list @) (order-ss k [sk sk1 sk2-to-prev-sk])

216− =/ ch0 (head ordered-challenges)

217− ::

218− [ch0 ordered-ss ?~(linkage ~ `y.u.linkage)]

219− ::

220− ++ anonymity-list

221− ~(tap in anonymity-set)

222− ::

223− ++ participants

224− (lent anonymity-list)

225− ::

226− ++ order-challenges

227− |= [k=@ ch=(list @)]

228− (reorder (sub participants (add k 1)) ch)

229− ::

230− ++ order-ss

231− |= [k=@ sk-to-prev-sk=(list @)]

232− (reorder (sub participants k) sk-to-prev-sk)

233− --

234− :: +verify: verify signature

235− ::

236− ++ verify

237− |= $: message=@

238− link-scope=(unit @)

239− ::

240− anonymity-set=(set @uxpoint)

241− signature=raw-ring-signature

242− ==

243− ^- ?

244− :: if there's a linkage scope but no tag, fail

245− ::

246− ?: &(?=(^ link-scope) ?=(~ y.signature))

247− %.n

248− :: if there's no linkage scope but a tag, fail

249− ::

250− ?: &(?=(~ link-scope) ?=(^ y.signature))

251− %.n

252− :: vice versa.

253− ::

254− :: decompose the signature into [s0 s1 s2....]

255− ::

256− ?> ?=([@ @ *] s.signature)

257− =/ s0=@ i.s.signature

258− =/ s1=@ i.t.s.signature

259− =/ s2-to-end=(list @) t.t.s.signature

260− :: anonymity-list: set of public keys listified in ring order

261− ::

262− =/ anonymity-list=(list @uxpoint)

263− ~(tap in anonymity-set)

264− :: participants: length of :anonymity-list

265− ::

266− =/ participants=@u

267− (lent anonymity-list)

268− ::

269− =/ z0p=@uxpoint

270− %- add-scalarmult-scalarmult-base:ed:crypto :*

271− ch0.signature

272− (head anonymity-list)

273− s0

274− ==

275− :: generate the linkage using public data, and the y point from the

276− :: signature

277− ::

278− =/ linkage=(unit [data=@ h=@uxpoint y=@uxpoint])

279− ?~ link-scope

280− ~

281− =+ [data=@ h=@uxpoint]=(generate-public-linkage u.link-scope)

282− :- ~

283− [data h (need y.signature)]

284− ::

285− =/ z0pp=(unit @uxpoint)

286− ?~ linkage

287− ~

288− :- ~

289− %- add-double-scalarmult:ed:crypto :*

290− s0

291− h.u.linkage

292− ch0.signature

293− y.u.linkage

294− ==

295− :: initial challenge

296− ::

297− =/ ch1=@

298− (generate-challenge message z0p linkage z0pp)

299− ::

300− =/ challenges

301− %- generate-challenges :*

302− linkage

303− message

304− anonymity-list

305− s2-to-end

306− ::

307− (mod 1 participants)

308− s1

309− ch1

310− [ch1 ~]

311− ==

312− ::

313− =(ch0.signature (head challenges))

314− --

315−:: +detail: details about getting keys from Azimuth

316−::

317−++ detail

318− |%

319− :: +seed-to-private-key-scalar: keyfile form to scalar we can multiply with

320− ::

321− ++ seed-to-private-key-scalar

322− |= sk=@I ^- @uxscalar

323− ?: (gth (met 3 sk) 32) !!

324− =+ h=(shal (rsh [0 3] b:ed:crypto) sk)

325− %+ add

326− (bex (sub b:ed:crypto 2))

327− (lsh [0 3] (cut 0 [3 (sub b:ed:crypto 5)] h))

328− :: +get-public-key-from-pass: decode the raw @ public key structure

329− ::

330− ++ get-public-key-from-pass

331− |= a=pass

332− ^- [@ @]

333− =+ [mag=(end 3 a) bod=(rsh 3 a)]

334− ~| %not-crub-pubkey ?> =('b' mag)

335− [cry=(rsh 8 bod) sgn=(end 8 bod)]

336− ::

337− ::

338− ++ get-private-key-from-ring

339− |= a=ring

340− ^- [@ @]

341− =+ [mag=(end 3 a) bod=(rsh 3 a)]

342− ~| %not-crub-seckey ?> =('B' mag)

343− =+ [c=(rsh 8 bod) s=(end 8 bod)]

344− :: todo: do we puck here?

345− [c s]

346− :: +ship-life-to-pubid: fetches public key information from jael

347− ::

348− ++ ship-life-to-pubid

349− |= [our=@p now=@da ship=@p =life]

350− ^- @uxpoint

351− ::

352− =/ d=[=^life =pass *]

353− =/ scry-path=path

354− :~ %j

355− (scot %p our)

356− %deed

357− (scot %da now)

358− (scot %p ship)

359− (scot %ud life)

360− ==

361− .^([^life pass *] scry-path)

362− :: we have the deed which has pass, which is several numbers +cat-ed

363− :: together; pull out the keys

364− ::

365− =/ x=[crypt=@ auth=@] (get-public-key-from-pass pass.d)

366− ::

367− `@uxpoint`auth.x

368− ::

369− ++ build-signing-participants

370− |= [our=@p now=@da invited=(list @p)]

371− ^- [(set [@p life]) (set @uxpoint)]

372− ::

373− =| participants=(set [@p life])

374− =| keys=(set @uxpoint)

375− ::

376− |-

377− ?~ invited

378− [participants keys]

379− ::

380− =/ lyfe=(unit @ud)

381− .^((unit @ud) j+/(scot %p our)/lyfe/(scot %da now)/(scot %p i.invited))

382− ::

383− ?~ lyfe

384− $(invited t.invited)

385− ::

386− =/ pubkey=@uxpoint (ship-life-to-pubid our now i.invited u.lyfe)

387− ::

388− =. participants (~(put in participants) [i.invited u.lyfe])

389− =. keys (~(put in keys) pubkey)

390− ::

391− $(invited t.invited)

392− ::

393− ::

394− ++ build-verifying-participants

395− |= [our=@p now=@da invited=(list [ship=@p =life])]

396− ^- (set @uxpoint)

397− ::

398− =| keys=(set @uxpoint)

399− ::

400− |-

401− ?~ invited

402− keys

403− ::

404− =/ pubkey=@uxpoint

405− (ship-life-to-pubid our now ship.i.invited life.i.invited)

406− =. keys

407− (~(put in keys) pubkey)

408− ::

409− $(invited t.invited)

410− --

411−--

412−:: public interface

413−::

414−|%

415−:: +sign: ring-signs a message using the current ship

416−::

417−++ sign

418− |= $: our=@p

419− now=@da

420− eny=@uvJ

421− ::

422− message=*

423− link-scope=(unit *)

424− anonymity-set=(set @p)

425− ==

426− ^- ring-signature

427− :: if our is not in @p, we must be in @p.

428− ::

429− =. anonymity-set (~(put in anonymity-set) our)

430− ::

431− =/ msg-hash=@ (shaz (jam message))

432− =/ link-hash=(unit @) (bind link-scope |=(a=* (shaz (jam a))))

433− :: get everyone's public keys

434− ::

435− =/ p=[participants=(set [ship=@p =life]) keys=(set @uxpoint)]

436− (build-signing-participants:detail our now ~(tap in anonymity-set))

437− :: get our ships' current life

438− ::

439− =/ our-life=life

440− .^(life %j /(scot %p our)/life/(scot %da now)/(scot %p our))

441− :: get our ships' secret keyfile ring

442− ::

443− =/ secret-ring=ring

444− .^(ring %j /(scot %p our)/vein/(scot %da now)/(scot %ud our-life))

445− :: fetch the encoded auth seed from the ring

446− ::

447− =/ secret-auth-seed=@

448− +:(get-private-key-from-ring:detail secret-ring)

449− :: get our ships' public key

450− ::

451− =/ public-key=@uxpoint

452− (ship-life-to-pubid:detail our now our our-life)

453− ::

454− :- participants.p

455− :- link-scope

456− %- sign:raw :*

457− msg-hash

458− link-hash

459− keys.p

460− public-key

461− (seed-to-private-key-scalar:detail secret-auth-seed)

462− eny

463− ==

464−:: +verify: verifies a message against a ring signature

465−::

466−++ verify

467− |= [our=@p now=@da message=* =ring-signature]

468− ^- ?

469− ::

470− =/ keys=(set @uxpoint)

471− %^ build-verifying-participants:detail our now

472− ~(tap in participants.ring-signature)

473− ::

474− =/ msg-hash=@ (shaz (jam message))

475− =/ link-hash=(unit @) (bind link-scope.ring-signature |=(a=* (shaz (jam a))))

476− ::

477− (verify:raw msg-hash link-hash keys raw.ring-signature)

478−--

base-desk/lib/server.hoondeleted−159

@@ -1,159 +0,0 @@

1−=, eyre

2−|%

3−+$ request-line

4− $: [ext=(unit @ta) site=(list @t)]

5− args=(list [key=@t value=@t])

6− ==

7−:: +parse-request-line: take a cord and parse out a url

8−::

9−++ parse-request-line

10− |= url=@t

11− ^- request-line

12− (fall (rush url ;~(plug apat:de-purl:html yque:de-purl:html)) [[~ ~] ~])

13−::

14−++ manx-to-octs

15− |= man=manx

16− ^- octs

17− (as-octt:mimes:html (en-xml:html man))

18−::

19−++ json-to-octs

20− |= jon=json

21− ^- octs

22− (as-octs:mimes:html (en:json:html jon))

23−::

24−++ app

25− |%

26− ::

27− :: +require-authorization:

28− :: redirect to the login page when unauthenticated

29− :: otherwise call handler on inbound request

30− ::

31− ++ require-authorization

32− |= $: =inbound-request:eyre

33− handler=$-(inbound-request:eyre simple-payload:http)

34− ==

35− ^- simple-payload:http

36− ::

37− ?: authenticated.inbound-request

38− ~! this

39− ~! +:*handler

40− (handler inbound-request)

41− ::

42− =- [[307 ['location' -]~] ~]

43− %^ cat 3

44− '/~/login?redirect='

45− url.request.inbound-request

46− ::

47− :: +require-authorization-simple:

48− :: redirect to the login page when unauthenticated

49− :: otherwise pass through simple-paylod

50− ::

51− ++ require-authorization-simple

52− |= [=inbound-request:eyre =simple-payload:http]

53− ^- simple-payload:http

54− ::

55− ?: authenticated.inbound-request

56− ~! this

57− simple-payload

58− ::

59− =- [[307 ['location' -]~] ~]

60− %^ cat 3

61− '/~/login?redirect='

62− url.request.inbound-request

63− ::

64− ++ give-simple-payload

65− |= [eyre-id=@ta =simple-payload:http]

66− ^- (list card:agent:gall)

67− =/ header-cage

68− [%http-response-header !>(response-header.simple-payload)]

69− =/ data-cage

70− [%http-response-data !>(data.simple-payload)]

71− :~ [%give %fact ~[/http-response/[eyre-id]] header-cage]

72− [%give %fact ~[/http-response/[eyre-id]] data-cage]

73− [%give %kick ~[/http-response/[eyre-id]] ~]

74− ==

75− --

76−++ gen

77− |%

78− ::

79− ++ max-1-da ['cache-control' 'max-age=86400']

80− ++ max-1-wk ['cache-control' 'max-age=604800']

81− ::

82− ++ html-response

83− =| cache=?

84− |= =octs

85− ^- simple-payload:http

86− :_ `octs

87− [200 [['content-type' 'text/html'] ?:(cache [max-1-wk ~] ~)]]

88− ::

89− ++ css-response

90− =| cache=?

91− |= =octs

92− ^- simple-payload:http

93− :_ `octs

94− [200 [['content-type' 'text/css'] ?:(cache [max-1-wk ~] ~)]]

95− ::

96− ++ js-response

97− =| cache=?

98− |= =octs

99− ^- simple-payload:http

100− :_ `octs

101− [200 [['content-type' 'text/javascript'] ?:(cache [max-1-wk ~] ~)]]

102− ::

103− ++ png-response

104− =| cache=?

105− |= =octs

106− ^- simple-payload:http

107− :_ `octs

108− [200 [['content-type' 'image/png'] ?:(cache [max-1-wk ~] ~)]]

109− ::

110− ++ svg-response

111− =| cache=?

112− |= =octs

113− ^- simple-payload:http

114− :_ `octs

115− [200 [['content-type' 'image/svg+xml'] ?:(cache [max-1-wk ~] ~)]]

116− ::

117− ++ ico-response

118− |= =octs

119− ^- simple-payload:http

120− [[200 [['content-type' 'image/x-icon'] max-1-wk ~]] `octs]

121− ::

122− ++ woff2-response

123− =| cache=?

124− |= =octs

125− ^- simple-payload:http

126− [[200 [['content-type' 'font/woff2'] max-1-wk ~]] `octs]

127− ::

128− ++ json-response

129− =| cache=_|

130− |= =json

131− ^- simple-payload:http

132− :_ `(json-to-octs json)

133− [200 [['content-type' 'application/json'] ?:(cache [max-1-da ~] ~)]]

134− ::

135− ++ manx-response

136− =| cache=_|

137− |= man=manx

138− ^- simple-payload:http

139− :_ `(manx-to-octs man)

140− [200 [['content-type' 'text/html'] ?:(cache [max-1-da ~] ~)]]

141− ::

142− ++ not-found

143− ^- simple-payload:http

144− [[404 ~] ~]

145− ::

146− ++ login-redirect

147− |= =request:http

148− ^- simple-payload:http

149− =- [[307 ['location' -]~] ~]

150− %^ cat 3

151− '/~/login?redirect='

152− url.request

153− ::

154− ++ redirect

155− |= redirect=cord

156− ^- simple-payload:http

157− [[307 ['location' redirect]~] ~]

158− --

159−--

base-desk/lib/shoe.hoondeleted−568

@@ -1,568 +0,0 @@

1−:: shoe: console application library

2−::

3−:: /lib/sole: draw some characters

4−:: /lib/shoe: draw the rest of the fscking app

5−::

6−:: call +agent with a type, then call the resulting function with a core

7−:: of the shape described in +shoe.

8−:: you may produce classic gall cards and "shoe-effects", shorthands for

9−:: sending cli events to connected clients.

10−:: default implementations for the shoe-specific arms are in +default.

11−:: for a simple usage example, see /app/shoe.

12−::

13−/- *sole

14−/+ sole, auto=language-server-complete

15−|%

16−+$ state-2

17− $: %2

18− soles=(map sole-id sole-share)

19− ==

20−:: $card: standard gall cards plus shoe effects

21−::

22−+$ card

23− $% card:agent:gall

24− [%shoe sole-ids=(list sole-id) effect=shoe-effect] :: ~ sends to all

25− ==

26−:: $shoe-effect: easier sole-effects

27−::

28−+$ shoe-effect

29− $% :: %sole: raw sole-effect

30− ::

31− [%sole effect=sole-effect]

32− :: %table: sortable, filterable data, with suggested column char widths

33− ::

34− [%table head=(list dime) wide=(list @ud) rows=(list (list dime))]

35− :: %row: line sections with suggested char widths

36− ::

37− [%row wide=(list @ud) cols=(list dime)]

38− ==

39−:: +shoe: gall agent core with extra arms

40−::

41−++ shoe

42− |* command-type=mold

43− $_ ^|

44− |_ bowl:gall

45− :: +command-parser: input parser for a specific session

46− ::

47− :: if the head of the result is true, instantly run the command

48− ::

49− ++ command-parser

50− |~ =sole-id

51− |~(nail *(like [? command-type]))

52− :: +tab-list: autocomplete options for the session (to match +command-parser)

53− ::

54− ++ tab-list

55− |~ =sole-id

56− :: (list [@t tank])

57− *(list (option:auto tank))

58− :: +on-command: called when a valid command is run

59− ::

60− ++ on-command

61− |~ [=sole-id command=command-type]

62− *(quip card _^|(..on-init))

63− ::

64− ++ can-connect

65− |~ =sole-id

66− *?

67− ::

68− ++ on-connect

69− |~ =sole-id

70− *(quip card _^|(..on-init))

71− ::

72− ++ on-disconnect

73− |~ =sole-id

74− *(quip card _^|(..on-init))

75− ::

76− ::NOTE standard gall agent arms below, though they may produce %shoe cards

77− ::

78− ++ on-init

79− *(quip card _^|(..on-init))

80− ::

81− ++ on-save

82− *vase

83− ::

84− ++ on-load

85− |~ vase

86− *(quip card _^|(..on-init))

87− ::

88− ++ on-poke

89− |~ [mark vase]

90− *(quip card _^|(..on-init))

91− ::

92− ++ on-watch

93− |~ path

94− *(quip card _^|(..on-init))

95− ::

96− ++ on-leave

97− |~ path

98− *(quip card _^|(..on-init))

99− ::

100− ++ on-peek

101− |~ path

102− *(unit (unit cage))

103− ::

104− ++ on-agent

105− |~ [wire sign:agent:gall]

106− *(quip card _^|(..on-init))

107− ::

108− ++ on-arvo

109− |~ [wire sign-arvo]

110− *(quip card _^|(..on-init))

111− ::

112− ++ on-fail

113− |~ [term tang]

114− *(quip card _^|(..on-init))

115− --

116−:: +default: bare-minimum implementations of shoe arms

117−::

118−++ default

119− |* [shoe=* command-type=mold]

120− |_ =bowl:gall

121− ++ command-parser

122− |= =sole-id

123− (easy *[? command-type])

124− ::

125− ++ tab-list

126− |= =sole-id

127− ~

128− ::

129− ++ on-command

130− |= [=sole-id command=command-type]

131− [~ shoe]

132− ::

133− ++ can-connect

134− |= =sole-id

135− (team:title [our src]:bowl)

136− ::

137− ++ on-connect

138− |= =sole-id

139− [~ shoe]

140− ::

141− ++ on-disconnect

142− |= =sole-id

143− [~ shoe]

144− --

145−:: +agent: creates wrapper core that handles sole events and calls shoe arms

146−::

147−++ agent

148− |* command-type=mold

149− |= =(shoe command-type)

150− =| state-2

151− =* state -

152− ^- agent:gall

153− =>

154− |%

155− ++ deal

156− |= cards=(list card)

157− %+ turn cards

158− |= =card

159− ^- card:agent:gall

160− ?. ?=(%shoe -.card) card

161− ?- -.effect.card

162− %sole

163− =- [%give %fact - %sole-effect !>(effect.effect.card)]

164− %+ turn

165− ?^ sole-ids.card sole-ids.card

166− ~(tap in ~(key by soles))

167− id-to-path:sole

168− ::

169− %table

170− =; fez=(list sole-effect)

171− $(effect.card [%sole %mor fez])

172− =, +.effect.card

173− :- (row:draw & wide head)

174− %+ turn rows

175− (cury (cury row:draw |) wide)

176− ::

177− %row

178− $(effect.card [%sole (row:draw | +.effect.card)])

179− ==

180− --

181− ::

182− |_ =bowl:gall

183− +* this .

184− og ~(. shoe bowl)

185− ::

186− ++ on-init

187− ^- (quip card:agent:gall agent:gall)

188− =^ cards shoe on-init:og

189− [(deal cards) this]

190− ::

191− ++ on-save :(slop !>(%shoe-app) on-save:og !>(state))

192− ::

193− ++ on-load

194− |= old-state=vase

195− ^- (quip card:agent:gall agent:gall)

196− :: we could be upgrading from a shoe-less app, in which case the vase

197− :: contains inner application state instead of our +on-save.

198− :: to distinguish between the two, we check for the presence of our own

199− :: +on-save tag in the vase.

200− ::

201− ?. ?=([%shoe-app ^] q.old-state)

202− =^ cards shoe (on-load:og old-state)

203− [(deal cards) this]

204− |^ :: versions %0 and %1 stored the inner state double-vased.

205− :: fixing this coincided with the 408 type-of-type migration.

206− ::

207− ?: ?=([%shoe-app * ?(%0 %1) *] q.old-state)

208− =| old-outer=state-any

209− =^ old-inner old-outer

210− +:!<([%shoe-app vase:h136 state-any] old-state)

211− =^ caz shoe (on-load:og (next-vase:h136 old-inner))

212− =^ cuz old-outer

213− ?. ?=(%0 -.old-outer) [~ old-outer]

214− (state-0-to-1 old-outer)

215− =? old-outer ?=(%1 -.old-outer) (state-1-to-2 old-outer)

216− ?> ?=(%2 -.old-outer)

217− [(weld cuz (deal caz)) this(state old-outer)]

218− ::

219− =+ !<(old=state-any (slot 7 old-state))

220− ?> ?=(%2 -.old)

221− =. state old

222− ::

223− =^ caz shoe (on-load:og (slot 6 old-state))

224− [(deal caz) this]

225− ::

226− +$ state-any $%(state-2 state-1 state-0)

227− +$ state-1 _%*(. *state-2 - %1)

228− +$ state-0 [%0 soles=(map @ta sole-share)]

229− ++ state-1-to-2 |=(old=state-1 old(- %2))

230− ++ state-0-to-1

231− |= old=state-0

232− ^- (quip card:agent:gall state-1)

233− :- %+ turn ~(tap in ~(key by soles.old))

234− |= id=@ta

235− ^- card:agent:gall

236− [%give %kick ~[/sole/[id]] ~]

237− :- %1

238− %- ~(gas by *(map sole-id sole-share))

239− %+ murn ~(tap by soles.old)

240− |= [id=@ta s=sole-share]

241− (bind (upgrade-id:sole id) (late s))

242− --

243− ::

244− ++ on-poke

245− |= [=mark =vase]

246− ^- (quip card:agent:gall agent:gall)

247− ?. ?=(%sole-action mark)

248− =^ cards shoe (on-poke:og mark vase)

249− [(deal cards) this]

250− ::

251− =/ act !<(sole-action vase)

252− =* sole-id id.act

253− =/ cli-state=sole-share

254− (~(gut by soles) sole-id *sole-share)

255− |^ =^ [cards=(list card) =_cli-state] shoe

256− ?- -.dat.act

257− %det (apply-edit +.dat.act)

258− %clr [[~ cli-state] shoe]

259− %ret try-command

260− %tab [(tab +.dat.act) shoe]

261− ==

262− :- (deal cards)

263− this(soles (~(put by soles) sole-id cli-state))

264− ::

265− ++ effect

266− |= =sole-effect

267− ^- card

268− [%shoe [sole-id]~ %sole sole-effect]

269− ::

270− ++ apply-edit

271− |= =sole-change

272− ^+ [[*(list card) cli-state] shoe]

273− =^ inverse cli-state

274− (~(transceive sole cli-state) sole-change)

275− :: res: & for fully parsed, | for parsing failure at location

276− ::

277− =/ res=(each (unit [run=? cmd=command-type]) @ud)

278− %+ rose (tufa buf.cli-state)

279− (command-parser:og sole-id)

280− ?: ?=(%& -.res)

281− :: only auto-run eligible commands if they were typed out

282− :: (that is, not retrieved from command history)

283− ::

284− ?. &(?=(^ p.res) run.u.p.res !?=(%set -.ted.sole-change))

285− [[~ cli-state] shoe]

286− (run-command cmd.u.p.res)

287− :_ shoe

288− :: parsing failed

289− ::

290− ?. &(?=(%del -.inverse) =(+(p.inverse) (lent buf.cli-state)))

291− :: if edit was somewhere in the middle, let it happen anyway

292− ::

293− [~ cli-state]

294− :: if edit was insertion at buffer tail, revert it

295− ::

296− =^ undo cli-state

297− (~(transmit sole cli-state) inverse)

298− :_ cli-state

299− :_ ~

300− %+ effect %mor

301− :~ [%det undo] :: undo edit

302− [%err p.res] :: cursor to error location

303− ==

304− ::

305− ++ try-command

306− ^+ [[*(list card) cli-state] shoe]

307− =/ res=(unit [? cmd=command-type])

308− %+ rust (tufa buf.cli-state)

309− (command-parser:og sole-id)

310− ?^ res (run-command cmd.u.res)

311− [[[(effect %bel ~)]~ cli-state] shoe]

312− ::

313− ++ run-command

314− |= cmd=command-type

315− ^+ [[*(list card) cli-state] shoe]

316− =^ cards shoe (on-command:og sole-id cmd)

317− :: clear buffer

318− ::

319− =^ clear cli-state (~(transmit sole cli-state) [%set ~])

320− =- [[[- cards] cli-state] shoe]

321− %+ effect %mor

322− :~ [%nex ~]

323− [%det clear]

324− ==

325− ::

326− ++ tab

327− |= pos=@ud

328− ^- (quip card _cli-state)

329− =+ (get-id-cord:auto pos (tufa buf.cli-state))

330− =/ needle=term

331− (fall id %$)

332− :: autocomplete empty command iff user at start of command

333− ::

334− =/ options=(list (option:auto tank))

335− (search-prefix:auto needle (tab-list:og sole-id))

336− =/ advance=term

337− (longest-match:auto options)

338− =/ to-send=tape

339− %- trip

340− (rsh [3 (met 3 needle)] advance)

341− =/ send-pos=@ud

342− %+ add pos

343− (met 3 (fall forward ''))

344− =| cards=(list card)

345− :: only render the option list if we couldn't complete anything

346− ::

347− =? cards &(?=(~ to-send) ?=(^ options))

348− [(effect %tab options) cards]

349− |- ^- (quip card _cli-state)

350− ?~ to-send

351− [(flop cards) cli-state]

352− =^ char cli-state

353− (~(transmit sole cli-state) [%ins send-pos `@c`i.to-send])

354− %_ $

355− cards [(effect %det char) cards]

356− send-pos +(send-pos)

357− to-send t.to-send

358− ==

359− --

360− ::

361− ++ on-watch

362− |= =path

363− ^- (quip card:agent:gall agent:gall)

364− ?~ sole-id=(path-to-id:sole path)

365− =^ cards shoe

366− (on-watch:og path)

367− [(deal cards) this]

368− ?> (can-connect:og u.sole-id)

369− =. soles (~(put by soles) u.sole-id *sole-share)

370− =^ cards shoe

371− (on-connect:og u.sole-id)

372− :_ this

373− %- deal

374− :_ cards

375− [%shoe [u.sole-id]~ %sole %pro & dap.bowl "> "]

376− ::

377− ++ on-leave

378− |= =path

379− ^- (quip card:agent:gall agent:gall)

380− =^ cards shoe (on-leave:og path)

381− [(deal cards) this]

382− ::

383− ++ on-peek

384− |= =path

385− ^- (unit (unit cage))

386− ?. =(/x/dbug/state path) (on-peek:og path)

387− ``noun+(slop on-save:og !>(shoe=state))

388− ::

389− ++ on-agent

390− |= [=wire =sign:agent:gall]

391− ^- (quip card:agent:gall agent:gall)

392− =^ cards shoe (on-agent:og wire sign)

393− [(deal cards) this]

394− ::

395− ++ on-arvo

396− |= [=wire =sign-arvo]

397− ^- (quip card:agent:gall agent:gall)

398− =^ cards shoe (on-arvo:og wire sign-arvo)

399− [(deal cards) this]

400− ::

401− ++ on-fail

402− |= [=term =tang]

403− ^- (quip card:agent:gall agent:gall)

404− =^ cards shoe (on-fail:og term tang)

405− [(deal cards) this]

406− --

407−::

408−++ draw

409− |%

410− ++ row

411− |= [bold=? wide=(list @ud) cols=(list dime)]

412− ^- sole-effect

413− :- %mor

414− ^- (list sole-effect)

415− =/ cows=(list [wid=@ud col=dime])

416− %- head

417− %^ spin cols wide

418− |= [col=dime wiz=(list @ud)]

419− ~| [%too-few-wide col]

420− ?> ?=(^ wiz)

421− [[i.wiz col] t.wiz]

422− =/ cobs=(list [wid=@ud (list tape)])

423− (turn cows col-as-lines)

424− =+ [lin=0 any=|]

425− =+ len=(lent cobs)

426− =| fez=(list sole-effect)

427− |- ^+ fez

428− =; [line=(list tape) end=@ud]

429− :: done when we're past the end of all columns

430− ::

431− ?: =(len end)

432− (flop fez)

433− =; fec=sole-effect

434− $(lin +(lin), fez [fec fez])

435− =/ out=tape

436− (zing (join " " line))

437− ?. bold txt+out

438− klr+[[`%br ~ ~]^[(crip out)]~]~

439− %^ spin cobs 0

440− |= [[wid=@ud lines=(list tape)] empty=@ud]

441− =+ l=(swag [lin 1] lines)

442− ?^ l [i.l empty]

443− [(reap wid ' ') +(empty)]

444− ::

445− ++ col-as-lines

446− |= [wid=@ud col=dime]

447− ^- [@ud (list tape)]

448− :- wid

449− %+ turn

450− (break wid (col-as-text col) (break-sets -.col))

451− (cury (cury pad wid) (alignment -.col))

452− ::

453− ++ col-as-text

454− |= col=dime

455− ^- tape

456− ?+ p.col (scow col)

457− %t (trip q.col)

458− %tas ['%' (scow col)]

459− ==

460− ::

461− ++ alignment

462− |= wut=@ta

463− ^- ?(%left %right)

464− ?: ?=(?(%t %ta %tas %da) wut)

465− %left

466− %right

467− ::

468− ++ break-sets

469− |= wut=@ta

470− :: for: may break directly before these characters

471− :: aft: may break directly after these characters

472− :: new: always break on these characters, consuming them

473− ::

474− ^- [for=(set @t) aft=(set @t) new=(set @t)]

475− ?+ wut [(sy " ") (sy ".:-/") (sy "\0a")]

476− ?(%p %q) [(sy "-") (sy "-") ~]

477− %ux [(sy ".") ~ ~]

478− ==

479− ::

480− ++ break

481− |= [wid=@ud cot=tape brs=_*break-sets]

482− ^- (list tape)

483− ~| [wid cot]

484− ?: =("" cot) ~

485− =; [lin=tape rem=tape]

486− [lin $(cot rem)]

487− :: take snip of max width+1, search for breakpoint on that.

488− :: we grab one char extra, to look-ahead for for.brs.

489− :: later on, we always transfer _at least_ the extra char.

490− ::

491− =^ lin=tape cot

492− [(scag +(wid) cot) (slag +(wid) cot)]

493− =+ len=(lent lin)

494− :: find the first newline character

495− ::

496− =/ new=(unit @ud)

497− =+ new=~(tap in new.brs)

498− =| las=(unit @ud)

499− |-

500− ?~ new las

501− $(new t.new, las (hunt lth las (find [i.new]~ lin)))

502− :: if we found a newline, break on it

503− ::

504− ?^ new

505− :- (scag u.new lin)

506− (weld (slag +(u.new) lin) cot)

507− :: if it fits, we're done

508− ::

509− ?: (lte len wid)

510− [lin cot]

511− =+ nil=(flop lin)

512− :: search for latest aft match

513− ::

514− =/ aft=(unit @ud)

515− :: exclude the look-ahead character from search

516− ::

517− =. len (dec len)

518− =. nil (slag 1 nil)

519− =- ?~(- ~ `+(u.-))

520− ^- (unit @ud)

521− =+ aft=~(tap in aft.brs)

522− =| las=(unit @ud)

523− |-

524− ?~ aft (bind las (cury sub (dec len)))

525− $(aft t.aft, las (hunt lth las (find [i.aft]~ nil)))

526− :: search for latest for match

527− ::

528− =/ for=(unit @ud)

529− =+ for=~(tap in for.brs)

530− =| las=(unit @ud)

531− |-

532− ?~ for (bind las (cury sub (dec len)))

533− =- $(for t.for, las (hunt lth las -))

534− =+ (find [i.for]~ nil)

535− :: don't break before the first character

536− ::

537− ?:(=(`(dec len) -) ~ -)

538− :: if any result, break as late as possible

539− ::

540− =+ brk=(hunt gth aft for)

541− ?~ brk

542− :: lin can't break, produce it in its entirety

543− :: (after moving the look-ahead character back)

544− ::

545− :- (scag wid lin)

546− (weld (slag wid lin) cot)

547− :- (scag u.brk lin)

548− =. cot (weld (slag u.brk lin) cot)

549− :: eat any leading whitespace the next line might have, "clean break"

550− ::

551− |- ^+ cot

552− ?~ cot ~

553− ?. ?=(?(%' ' %'\09') i.cot)

554− cot

555− $(cot t.cot)

556− ::

557− ++ pad

558− |= [wid=@ud lyn=?(%left %right) lin=tape]

559− ^+ lin

560− =+ l=(lent lin)

561− ?: (gte l wid) lin

562− =+ p=(reap (sub wid l) ' ')

563− ?- lyn

564− %left (weld lin p)

565− %right (weld p lin)

566− ==

567− --

568−--

base-desk/lib/sink.hoondeleted−26

@@ -1,26 +0,0 @@

1−/+ noun-diff

2−|%

3−++ clog

4− |$ [stut]

5− $%

6− [%flush stut]

7− [%drain patch:noun-diff]

8− ==

9−++ sink

10− |* pats=(list path)

11− |* stat=*

12− |@

13− ++ sync

14− |= [stat=_stat]

15− ^- [card:agent:gall _..sync]

16− =/ dif

17− %+ diff:noun-diff ^stat stat

18− :-

19− [%give %fact pats %noun !>(^-((clog) [%drain dif]))]

20− ..sync(stat stat)

21− ++ paths pats

22− ++ flush

23− ^- card:agent:gall

24− [%give %fact pats %noun !>(^-((clog) [%flush stat]))]

25− --

26−--

base-desk/lib/skeleton.hoondeleted−51

@@ -1,51 +0,0 @@

1−:: Similar to default-agent except crashes everywhere

2−^- agent:gall

3−|_ bowl:gall

4−++ on-init

5− ^- (quip card:agent:gall agent:gall)

6− !!

7−::

8−++ on-save

9− ^- vase

10− !!

11−::

12−++ on-load

13− |~ old-state=vase

14− ^- (quip card:agent:gall agent:gall)

15− !!

16−::

17−++ on-poke

18− |~ in-poke-data=cage

19− ^- (quip card:agent:gall agent:gall)

20− !!

21−::

22−++ on-watch

23− |~ path

24− ^- (quip card:agent:gall agent:gall)

25− !!

26−::

27−++ on-leave

28− |~ path

29− ^- (quip card:agent:gall agent:gall)

30− !!

31−::

32−++ on-peek

33− |~ path

34− ^- (unit (unit cage))

35− !!

36−::

37−++ on-agent

38− |~ [wire sign:agent:gall]

39− ^- (quip card:agent:gall agent:gall)

40− !!

41−::

42−++ on-arvo

43− |~ [wire =sign-arvo]

44− ^- (quip card:agent:gall agent:gall)

45− !!

46−::

47−++ on-fail

48− |~ [term tang]

49− ^- (quip card:agent:gall agent:gall)

50− !!

51−--

base-desk/lib/sole.hoondeleted−163

@@ -1,163 +0,0 @@

1−::

2−:::: /hoon/sole/lib

3− ::

4−/? 310

5−/- *sole

6−::::

7− ::

8−|_ sole-share :: shared-state engine

9−++ abet +<

10−++ apply

11− |= ted=sole-edit

12− ^+ +>

13− ?- -.ted

14− %del +>.$(buf (weld (scag p.ted buf) (slag +(p.ted) buf)))

15− %ins +>.$(buf (weld (scag p.ted buf) `_buf`[q.ted (slag p.ted buf)]))

16− %mor |- ^+ +>.^$

17− ?~ p.ted

18− +>.^$

19− $(p.ted t.p.ted, +>.^$ ^$(ted i.p.ted))

20− %nop +>.$

21− %set +>.$(buf p.ted)

22− ==

23−::

24−::::

25−:: ++transmute: symmetric operational transformation.

26−::

27−:: for any sole state +>, obeys

28−::

29−:: =+ [x=(transmute a b) y=(transmute b a)]

30−:: .= (apply:(apply a) x)

31−:: (apply:(apply b) y)

32−::

33−++ transmute :: dex as after sin

34− |= [sin=sole-edit dex=sole-edit]

35− ~| [%transmute sin dex]

36− ^- sole-edit

37− ?: ?=(%mor -.sin)

38− |- ^- sole-edit

39− ?~ p.sin dex

40− $(p.sin t.p.sin, dex ^$(sin i.p.sin))

41− ::

42− ?: ?=(%mor -.dex)

43− :- %mor

44− |- ^- (list sole-edit)

45− ?~ p.dex ~

46− [^$(dex i.p.dex) $(p.dex t.p.dex)]

47− ::

48− ?: |(?=(%nop -.sin) ?=(%nop -.dex)) dex

49− ?: ?=(%set -.sin) [%nop ~]

50− ?: ?=(%set -.dex) dex

51− ::

52− ?- -.sin

53− %del

54− ?- -.dex

55− %del ?: =(p.sin p.dex) [%nop ~]

56− ?:((lth p.sin p.dex) dex(p (dec p.dex)) dex)

57− %ins ?:((lth p.sin p.dex) dex(p (dec p.dex)) dex)

58− ==

59− ::

60− %ins

61− ?- -.dex

62− %del ?:((lte p.sin p.dex) dex(p +(p.dex)) dex)

63− %ins ?: =(p.sin p.dex)

64− ?:((lth q.sin q.dex) dex dex(p +(p.dex)))

65− ?:((lte p.sin p.dex) dex(p +(p.dex)) dex)

66− ==

67− ==

68−::

69−++ commit :: local change

70− |= ted=sole-edit

71− ^- sole-share

72− abet:(apply(own.ven +(own.ven), leg [ted leg]) ted)

73−::

74−::::

75−:: ++inverse: inverse of change in context.

76−::

77−:: for any sole state +>, obeys

78−::

79−:: =(+> (apply:(apply a) (inverse a)))

80−::

81−++ inverse :: relative inverse

82− |= ted=sole-edit

83− ^- sole-edit

84− =. ted ?.(?=([%mor * ~] ted) ted i.p.ted)

85− ?- -.ted

86− %del [%ins p.ted (snag p.ted buf)]

87− %ins [%del p.ted]

88− %mor :- %mor

89− %- flop

90− |- ^- (list sole-edit)

91− ?~ p.ted ~

92− :- ^$(ted i.p.ted)

93− $(p.ted t.p.ted, +>.^$ (apply i.p.ted))

94− %nop [%nop ~]

95− %set [%set buf]

96− ==

97−::

98−++ receive :: naturalize event

99− |= sole-change

100− ^- [sole-edit sole-share]

101− ?. &(=(his.ler his.ven) (lte own.ler own.ven))

102− ~| [%receive-sync his+[his.ler his.ven] own+[own.ler own.ven]]

103− !!

104− ?> &(=(his.ler his.ven) (lte own.ler own.ven))

105− ?> |(!=(own.ler own.ven) =(`@`0 haw) =(haw (sham buf)))

106− =. leg (scag (sub own.ven own.ler) leg)

107− :: ~? !=(own.ler own.ven) [%miss-leg leg]

108− =+ dat=(transmute [%mor leg] ted)

109− :: ~? !=(~ leg) [%transmute from+ted to+dat ~]

110− [dat abet:(apply(his.ven +(his.ven)) dat)]

111−::

112−++ remit :: conditional accept

113− |= [cal=sole-change ask=$-((list @c) ?)]

114− ^- [(unit sole-change) sole-share]

115− =+ old=buf

116− =^ dat +>+<.$ (receive cal)

117− ?: (ask buf)

118− [~ +>+<.$]

119− =^ lic +>+<.$ (transmit (inverse(buf old) dat))

120− [`lic +>+<.$]

121−::

122−++ transmit :: outgoing change

123− |= ted=sole-edit

124− ^- [sole-change sole-share]

125− [[[his.ven own.ven] (sham buf) ted] (commit ted)]

126−::

127−++ transceive :: receive and invert

128− |= sole-change

129− ^- [sole-edit sole-share]

130− =+ old=buf

131− =^ dat +>+<.$ (receive +<.$)

132− [(inverse(buf old) dat) +>+<.$]

133−::

134−++ transpose :: adjust position

135− |= pos=@ud

136− =+ dat=(transmute [%mor leg] [%ins pos `@c`0])

137− ?> ?=(%ins -.dat)

138− p.dat

139−::

140−::

141−++ path-to-id

142− |= =path

143− ^- (unit sole-id)

144− ?. ?=([%sole @ ?(~ [@ ~])] path) ~

145− ?~ who=(slaw %p i.t.path) ~

146− `[u.who ?~(t.t.path %$ i.t.t.path)]

147−::

148−++ id-to-path

149− |= sole-id

150− ^- path

151− ::TODO this whole "no empty path ending" business feels icky.

152− :: do we want default session to be ~.~ ?

153− :: concern here is that outsiders cannot subscribe to the default

154− :: session, because /sole/~zod/ isn't a valid path...

155− [%sole (scot %p who) ?~(ses ~ /[ses])]

156−::

157−++ upgrade-id

158− |= old=@ta

159− ^- (unit sole-id)

160− %+ rush old

161− %+ cook (late %$)

162− ;~(pfix (jest 'drum_~') fed:ag)

163−--

base-desk/lib/sss.hoondeleted−445

@@ -1,445 +0,0 @@

1−/- *sss

2−/+ *mip

3−::

4−|%

5−++ mk-subs :: Create sub-map.

6− |* [=(lake) paths=mold]

7− -:+6:(da lake paths)

8−::

9−++ mk-pubs :: Create pub-map.

10− |* [=(lake) paths=mold]

11− -:+6:(du lake paths)

12−::

13−++ mk-mar :: Create mar.

14− |* =(lake)

15− |_ =(response:poke lake *)

16− ++ grow

17− |%

18− ++ noun response

19− --

20− ++ grab

21− |%

22− ++ noun (response:poke lake *)

23− --

24− ++ grad %noun

25− --

26−++ fled :: Like +sped but head is a path.

27− |= vax=vase

28− ^- vase

29− :_ q.vax

30− %- ~(play ut p.vax)

31− =- [%wtgr [%wtts - [%& 2]~] [%$ 1]]

32− =/ pax ~| %path-none ;;(path -.q.vax)

33− |- ^- spec

34− ?~ pax [%base %null]

35− [%bccl ~[[%leaf %ta -.pax] $(pax +.pax)]]

36−::

37−++ zoom |= =noun ~| %need-path $/sss/;;(path noun)

38−::

39−++ da :: Manage subscriptions.

40− |* [=(lake) paths=mold]

41− =>

42− |%

43− +$ from (on-rock:poke lake paths)

44− +$ into (response:poke lake paths)

45− +$ result (request:poke paths)

46− +$ fail [paths ship dude]

47− +$ flow [=aeon stale=_| fail=_| =rock:lake]

48− +$ subs [%0 (map [ship dude paths] (unit flow))]

49− --

50− |= $: sub=subs

51− =bowl:gall

52− result-type=type

53− on-rock-type=type

54− fail-type=type

55− ==

56− => .(sub +.sub)

57− |%

58− ++ surf :: Subscribe to [ship dude path].

59− |= which=[ship dude paths]

60− ^- (quip card:agent:gall subs)

61− ?+ flow=(~(get by sub) which) `0/sub

62− ~ [~[(pine which)] 0/(~(put by sub) which ~)]

63− [~ ~] [~[(pine which)] 0/sub]

64− [~ ~ [* %& * *]] [~[(pine which)] 0/sub]

65− ==

66− ++ quit (corl (lead %0) ~(del by sub)) :: Unsub from [ship dude path].

67− ++ read :: See current subscribed states.

68− ^- (map [ship dude paths] [stale=? fail=? =rock:lake])

69− %- malt %+ murn ~(tap by sub)

70− |= [key=[ship dude paths] val=(unit flow)]

71− ?~ val ~

72− `[key +.u.val]

73− :: :: Check poke-ack for errors.

74− :: :: If an %sss-on-rock poke nacks,

75− ++ chit :: that state is flagged as failed.

76− |= [[aeon=term ship=term dude=term path=paths] =sign:agent:gall]

77− ^- subs

78− :- %0

79− ?> ?=(%poke-ack -.sign)

80− ?~ p.sign sub

81− %+ ~(jab by sub) [(slav %p ship) dude path]

82− |= (unit flow)

83− =/ =flow (need +<)

84− ?> =(aeon.flow (slav %ud aeon))

85− `flow(fail &)

86− :: :: Check poke-ack for errors.

87− :: :: If a scry request nacks,

88− ++ tell :: that state is flagged as stale.

89− |= [[ship=term =dude aeon=term path=paths] =sign:agent:gall]

90− ^- (quip card:agent:gall subs)

91− ?> ?=(%poke-ack -.sign)

92− ?~ p.sign `0/sub

93− =/ current [ship=(slav %p ship) dude=dude path=path]

94− ?+ flow=(~(get by sub) current) `0/sub

95− [~ ~ *]

96− =. stale.u.u.flow &

97− :_ 0/(~(put by sub) current u.flow)

98− ~[(on-rock-poke fake=& current u.u.flow ~)]

99− ::

100− [~ ~]

101− :_ 0/(~(del by sub) current) :_ ~

102− :* %pass (zoom surf-fail/aeon/ship/dude/path)

103− %agent [our dap]:bowl

104− %poke %sss-surf-fail fail-type ^- fail

105− [path ship dude]:current

106− ==

107− ==

108− ++ apply :: Handle response from publisher.

109− |= res=(response:poke lake paths)

110− ^- (quip card:agent:gall subs)

111− =* current [src.bowl dude.res path.res]

112− =/ old=flow (fall (~(got by sub) current) *flow)

113− ?: ?=(%tomb what.res)

114− =/ =flow old(stale &)

115− :_ 0/(~(put by sub) current `flow) :_ ~

116− (on-rock-poke fake=& current flow ~)

117− ::

118− =/ [wave=(unit wave:lake) new=(unit flow)]

119− ?- what.res

120− %rock ?: (lte aeon.res aeon.old) [~ ~]

121− [~ `[aeon.res | | rock.res]]

122− %wave ?: (lte aeon.res aeon.old) [~ ~]

123− ?> =(aeon.res +(aeon.old))

124− [`wave.res `[aeon.res | | (wash:lake rock.old wave.res)]]

125− ==

126− ?~ new `0/sub

127− :_ 0/(~(put by sub) current new) :_ ~

128− (on-rock-poke fake=& current u.new wave)

129− ::

130− ++ handle-fake-on-rock

131− |= =(on-rock:poke lake paths)

132− ^- (list card:agent:gall)

133− ?~ flow=(~(get by sub) [src from path]:on-rock) ~

134− ?~ u.flow ~

135− ?. =([stale fail rock]:u.u.flow [stale fail rock]:on-rock) ~

136− ~[(on-rock-poke fake=| [src from path]:on-rock u.u.flow wave.on-rock)]

137− ::

138− :: Non-public facing arms below

139− ::

140− ++ pine

141− |= [who=ship which=dude where=paths]

142− ^- card:agent:gall

143− :* %pass (zoom scry-request/(scot %p who)^which^where)

144− %agent [who which]

145− %poke sss-to-pub/[result-type `result`[where dap.bowl]]

146− ==

147− ++ on-rock-poke

148− |= [fake=? [=ship =dude path=paths] flow wave=(unit wave:lake)]

149− ^- card:agent:gall

150− :* %pass %+ zoom ?:(fake %fake %on-rock)

151− (scot %ud aeon)^(scot %p ship)^dude^path

152− %agent [our dap]:bowl

153− %poke ?:(fake %sss-fake-on-rock %sss-on-rock)

154− on-rock-type `from`[path ship dude stale fail rock wave]

155− ==

156− --

157−++ du :: Manage publications.

158− |* [=(lake) paths=mold]

159− =>

160− |%

161− +$ into (request:poke paths)

162− +$ result (response:poke lake paths)

163− +$ rule $~ [`5 5]

164− [horizon=(unit @ud) frequency=@ud] :: Retention policy

165− +$ tide

166− $: rok=((mop aeon rock:lake) gte)

167− wav=((mop aeon wave:lake) lte)

168− rul=rule

169− mem=(jug ship dude)

170− ==

171− +$ buoy

172− $: tid=$~(*tide $@(aeon tide))

173− alo=(unit (set ship))

174− ==

175− ++ pubs

176− =< $>(%1 versioned)

177− |%

178− ++ update

179− |= =versioned

180− ^- pubs

181− ?- -.versioned

182− %1 versioned

183− %0

184− :- %1

185− %- ~(run by +.versioned)

186− |= =buoy-0:^versioned

187− ^- buoy

188− %= buoy-0

189− tid

190− ?@ tid.buoy-0 tid.buoy-0

191− ^- tide

192− %= tid.buoy-0

193− rocks.rul

194− ?: =(waves.rul.tid.buoy-0 0) ~

195− `(mul [+(rocks) waves]:rul.tid.buoy-0)

196− ::

197− mem

198− ^- (jug ship dude)

199− %- ~(run by mem.tid.buoy-0)

200− |= =(map dude @da)

201− ^- (set dude)

202− ~(key by map)

203− ==

204− ==

205− ==

206− ++ versioned

207− =< $% [%0 (map paths buoy-0)]

208− [%1 (map paths buoy)]

209− ==

210− |%

211− +$ buoy-0

212− $: tid=$~(*tide-0 $@(aeon tide-0))

213− alo=(unit (set ship))

214− ==

215− +$ tide-0

216− $: rok=((mop aeon rock:lake) gte)

217− wav=((mop aeon wave:lake) lte)

218− rul=[rocks=@ud waves=@ud]

219− mem=(mip ship dude @da)

220− ==

221− --

222− --

223− --

224− |= [pub=versioned:pubs =bowl:gall result-type=type]

225− => .(pub +:(update:pubs pub))

226− =* rok ((on aeon rock:lake) gte)

227− =* wav ((on aeon wave:lake) lte)

228− |%

229− ++ rule :: Set new retention policy.

230− |= [path=paths =^rule]

231− ^- pubs

232− :- %1

233− %- fall :_ (~(put by pub) path %*(. *$<(aeon buoy) rul.tid rule))

234− %- mole |.

235− %+ ~(jab by pub) path

236− |= =buoy

237− ?@ tid.buoy buoy

238− buoy(tid (form tid.buoy(rul rule)))

239− ::

240− ++ wipe :: Create new rock and wipe rest.

241− |= path=paths

242− ^- pubs

243− :- %1

244− %+ ~(jab by pub) path

245− |= =buoy

246− ?@ tid.buoy buoy

247− %* . buoy(tid (form tid.buoy(rul [`0 1])))

248− rul.tid rul.tid.buoy

249− wav.tid ~

250− ==

251− ++ give :: Give a wave on a path.

252− |= [path=paths =wave:lake]

253− ^- (quip card:agent:gall pubs)

254− ?~ ((soft ^path) path) ~| %need-path !!

255− =/ buoy (~(gut by pub) path *buoy)

256− =? buoy ?=(@ tid.buoy)

257− %*(. buoy(tid *tide) rok.tid (put:rok ~ +(tid.buoy) *rock:lake))

258− ?> ?=(^ tid.buoy)

259− =* tide tid.buoy

260− =/ next=aeon +((latest tide))

261− :- %- zing

262− %+ turn ~(tap by mem.tide)

263− |= [=ship =(set dude)]

264− %+ turn ~(tap in set)

265− |= =dude

266− (send wave/[next wave] ship dude path)

267− :- %1

268− %+ ~(put by pub) path

269− =/ last=[=aeon =rock:lake] (fall (pry:rok rok.tide) *[key val]:rok)

270− =. wav.tide (put:wav wav.tide next wave)

271− =. mem.tide ~

272− ?. =(next (add aeon.last frequency.rul.tide)) buoy

273− buoy(tid (form tide))

274− ::

275− ++ fork :: Fork a pub into an empty path.

276− |= [from=paths to=paths]

277− ^- pubs

278− :- %1

279− ?< (~(has by pub) to)

280− (~(put by pub) to (~(got by pub) from))

281− ::

282− ++ copy :: Fork a sub into an empty path.

283− |= [sub=_(mk-subs lake *) from=[ship dude *] to=paths]

284− ^- pubs

285− :- %1

286− ?< (~(has by pub) to)

287− %+ ~(put by pub) to

288− %* . *$<(aeon buoy)

289− rok.tid (put:rok ~ [aeon rock]:(need (~(got by +:sub) from)))

290− ==

291− ::

292− ++ perm :: Change permissions with gate.

293− |= [where=(list paths) diff=$-((unit (set ship)) (unit (set ship)))]

294− ^- (quip card:agent:gall pubs)

295− %+ edit where

296− |= =buoy

297− =/ new=_alo.buoy (diff alo.buoy)

298− ?@ tid.buoy buoy(alo new)

299− %= buoy

300− alo new

301− mem.tid ?~ new mem.tid.buoy

302− %. mem.tid.buoy

303− ~(int by (malt (turn ~(tap in u.new) (late *(set @)))))

304− ==

305− ++ public (curr perm _~) :: Make list of paths public.

306− ++ secret (curr perm _`~) :: Make list of paths secret.

307− :: :: Block ships from paths.

308− ++ block :: No-ops on public paths.

309− |= [who=(list ship) whence=(list paths)]

310− ^- (quip card:agent:gall pubs)

311− %+ perm whence

312− |= old=(unit (set ship))

313− ?~ old ~ `(~(dif in u.old) (sy who))

314− :: :: Allow ships to paths.

315− ++ allow :: Any public paths will no-op.

316− |= [who=(list ship) where=(list paths)]

317− ^- (quip card:agent:gall pubs)

318− %+ perm where

319− |= old=(unit (set ship))

320− ?~ old ~ `(~(gas in u.old) who)

321− :: :: Kill a list of paths, i.e. tell

322− ++ kill :: subs to not expect updates.

323− (curr edit |=(=buoy buoy(tid (latest tid.buoy))))

324− :: :: Reopen list of killed paths.

325− ++ read :: See current published states.

326− ^- (map paths [allowed=(unit (set ship)) =rock:lake])

327− %- malt %+ murn ~(tap by pub)

328− |= [path=paths =buoy]

329− ^- (unit [paths (unit (set ship)) rock:lake])

330− ?@ tide=tid.buoy ~

331− :^ ~ path alo.buoy =< rock

332− =/ snap=[=aeon =rock:lake] (fall (pry:rok rok.tide) *[key val]:rok)

333− %+ roll (tap:wav (lot:wav wav.tide `aeon.snap ~))

334− |= [[=aeon =wave:lake] =_snap]

335− ?. =(aeon +(aeon.snap)) snap

336− [aeon (wash:lake rock.snap wave)]

337− ::

338− ++ apply :: Handle request from subscriber.

339− |= req=(request:poke paths)

340− ^- (quip card:agent:gall pubs)

341− =/ =buoy (~(gut by pub) path.req *buoy)

342− ?< &(?=(^ alo.buoy) !(~(has in u.alo.buoy) src.bowl))

343− ?@ tid.buoy

344− :_ 1/pub :_ ~

345− (send tomb/~ src.bowl dude.req path.req)

346− :_ 1/pub :_ ~

347− =/ last (fall (pry:rok rok.tid.buoy) *[=key =val]:rok)

348− (send rock/last src.bowl dude.req path.req)

349− ::

350− ++ tell

351− |= [[ship=term =dude aeon=term path=paths] =sign:agent:gall]

352− ^- (quip card:agent:gall pubs)

353− ?> ?=(%poke-ack -.sign)

354− ?^ p.sign `1/pub

355− =/ =buoy (~(gut by pub) path *buoy)

356− ?< &(?=(^ alo.buoy) !(~(has in u.alo.buoy) src.bowl))

357− ?@ tid.buoy

358− :_ 1/pub :_ ~

359− (send tomb/~ src.bowl dude path)

360− ::

361− => .(aeon +((slav %ud aeon)))

362− ?^ dat=(get:wav wav.tid.buoy aeon)

363− :_ 1/pub :_ ~

364− (send wave/[aeon u.dat] src.bowl dude path)

365− =/ last (fall (pry:rok rok.tid.buoy) [=key =val]:rok)

366− ?: (lte aeon key.last)

367− :_ 1/pub :_ ~

368− (send rock/last src.bowl dude path)

369− :- ~

370− :- %1

371− %+ ~(put by pub) path

372− %= buoy

373− mem.tid (~(put ju mem.tid.buoy) src.bowl dude)

374− ==

375− ::

376− :: Non-public facing arms below

377− ::

378− ++ send

379− |= [payload=_|2:*(response:poke lake paths) =ship =dude path=paths]

380− ^- card:agent:gall

381− =* mark (cat 3 %sss- name:lake)

382− =/ callback=^path

383− ?: ?=(%tomb what.payload) (zoom tomb-response/(scot %p ship)^dude^path)

384− (zoom scry-response/(scot %p ship)^dude^(scot %ud aeon.payload)^path)

385− :* %pass callback

386− %agent [ship dude]

387− %poke mark result-type ^- (response:poke lake paths)

388− [path dap.bowl payload]

389− ==

390− ++ latest

391− |= =$@(aeon tide)

392− ^- aeon

393− ?@ tide tide

394− %+ max (fall (bind (pry:rok rok.tide) head) 0)

395− (fall (bind (ram:wav wav.tide) head) 0)

396− ::

397− ++ edit

398− |= [ps=(list paths) edit=$-(buoy buoy)]

399− ^- (quip card:agent:gall pubs)

400− %- ~(rep in (sy ps))

401− |= [path=paths caz=(list card:agent:gall) %1 =_pub]

402− ?~ old=(~(get by pub) path) [caz 1/pub]

403− =/ new=buoy (edit u.old)

404− :_ 1/(~(put by pub) path new)

405− %- weld :_ caz

406− ^- (list card:agent:gall)

407− ?@ tid.u.old ~

408− ?@ tid.new

409− %- zing

410− %+ turn ~(tap by mem.tid.u.old)

411− |= [=ship =(set dude)]

412− (turn ~(tap in set) |=(=dude (send tomb/~ ship dude path)))

413− ?~ alo.new ~

414− =/ new-alo=(jug ship dude)

415− (malt (turn ~(tap in u.alo.new) (late *(set @))))

416− %- zing

417− %+ turn ~(tap by (~(dif by mem.tid.u.old) new-alo))

418− |= [=ship =(set dude)]

419− (turn ~(tap in set) |=(=dude (send tomb/~ ship dude path)))

420− ::

421− ++ form

422− |= =tide

423− ^+ tide

424− =/ max-rock=[=aeon =rock:lake] (fall (pry:rok rok.tide) *[key val]:rok)

425− =/ max-wave (fall (bind (ram:wav wav.tide) head) 0)

426− =? rok.tide :: Create new rock.

427− ?& !=(frequency.rul.tide 0)

428− (gte max-wave (add aeon.max-rock frequency.rul.tide))

429− ==

430− %+ put:rok rok.tide

431− %+ roll (tab:wav wav.tide `aeon.max-rock max-wave)

432− |: [*[now=aeon =wave:lake] `[prev=aeon =rock:lake]`max-rock]

433− ~| %aeon-awry

434− ?> =(now +(prev))

435− [now (wash:lake rock wave)]

436− =. rok.tide

437− ?~ horizon.rul.tide :: Only keep genesis and latest.

438− (gas:rok ~ (murn ~[(ram:rok rok.tide) (pry:rok rok.tide)] same))

439− %^ lot:rok rok.tide :: Delete beyond horizon.

440− ~

441− (mole |.((sub max-wave (max [u.horizon frequency]:rul.tide))))

442− ~| %rock-zero

443− tide(wav (lot:wav wav.tide (bind (ram:rok rok.tide) |=([r=@ *] (dec r))) ~))

444− --

445−--

base-desk/lib/story.hoondeleted−88

@@ -1,88 +0,0 @@

1−/- *story

2−!:

3−^?

4−|%

5−:: XX generalize move to hoon.hoon

6−++ dif-ju

7− |= [a=story b=story]

8− ^- story

9− :: if 0 is the empty set,

10− :: a \ 0 = a

11− :: 0 \ b = 0 :: anything in 0 but not in b is by definition 0

12− ::

13− ?: =(~ a) ~

14− :: uno := (a-b) + (merged items in both a and b) + (b-a)

15− :: ret := (a-b) + (merged items in both a and b)

16− :: ret = (~(int by a) uno) :: preserve only the entries whose keys are in a

17− =/ uno=story

18− %- (~(uno by a) b)

19− |= [k=tako:clay proses-a=proses proses-b=proses]

20− ^- proses

21− (~(dif in proses-a) proses-b)

22− ::

23− =/ ret=story (~(int by a) uno)

24− :: normalizing step, remove any keys with null sets,

25− :: which can occur if proses-a == proses-b above

26− %- ~(gas by *story)

27− (skip ~(tap by ret) |=([k=* v=proses] ?=(~ v)))

28−::

29−++ uni-ju

30− |= [a=story b=story]

31− ^- story

32− :: 0 + b = b

33− ?: =(~ a) b

34− %- (~(uno by a) b)

35− |= [k=tako:clay proses-a=proses proses-b=proses]

36− ^- proses

37− (~(uni in proses-a) proses-b)

38−::

39−:: Canonical textual representation

40−::

41−++ chapter-to-text

42− |= [=tako:clay =proses]

43− ^- wain

44− :- (crip "commit: {<`@uv`tako>}")

45− %- zing

46− %+ join `wain`~['|||']

47− %+ turn ~(tap in proses)

48− |= prose

49− ^- wain

50− %- to-wain:format

51− (rap 3 title '\0a\0a' body ~)

52−::

53−:: Parsers

54−::

55−++ parse-commit-hash

56− ;~ sfix

57− ;~ pfix (jest 'commit: ')

58− (cook @uv ;~(pfix (jest '0v') viz:ag))

59− ==

60− ::

61− (just '\0a')

62− ==

63−::

64−++ parse-title

65− ;~ sfix

66− (cook crip (star prn))

67− (jest '\0a\0a')

68− ==

69−::

70−++ parse-body

71− %+ cook of-wain:format

72− %- star

73− ;~ less

74− ;~(pose (jest '|||\0a') (jest '---\0a'))

75− (cook crip ;~(sfix (star prn) (just '\0a')))

76− ==

77−::

78−++ parse-prose ;~(plug parse-title parse-body)

79−++ parse-rest-proses (star ;~(pfix (jest '|||\0a') parse-prose))

80−++ parse-proses (cook silt ;~(plug parse-prose parse-rest-proses))

81−++ parse-chapter ;~(plug parse-commit-hash parse-proses)

82−++ parse-story

83− (cook ~(gas by *story) (star ;~(sfix parse-chapter (jest '---\0a'))))

84−::

85−:: N.B: If conflicting messages are written individually,

86−:: instead of under the same commit, we will overwrite previous entries

87−:: with later ones due to the nature of gas:by.

88−--

base-desk/lib/strand.hoondeleted−1

@@ -1 +0,0 @@

1−rand

base-desk/lib/strandio.hoondeleted−918

@@ -1,918 +0,0 @@

1−/- spider

2−/+ libstrand=strand

3−=, strand=strand:libstrand

4−=, strand-fail=strand-fail:libstrand

5−|%

6−++ send-raw-cards

7− |= cards=(list =card:agent:gall)

8− =/ m (strand ,~)

9− ^- form:m

10− |= strand-input:strand

11− [cards %done ~]

12−::

13−++ send-raw-card

14− |= =card:agent:gall

15− =/ m (strand ,~)

16− ^- form:m

17− (send-raw-cards card ~)

18−::

19−++ ignore

20− |= tin=strand-input:strand

21− `[%fail %ignore ~]

22−::

23−++ get-bowl

24− =/ m (strand ,bowl:strand)

25− ^- form:m

26− |= tin=strand-input:strand

27− `[%done bowl.tin]

28−::

29−++ get-beak

30− =/ m (strand ,beak)

31− ^- form:m

32− |= tin=strand-input:strand

33− `[%done [our q.byk da+now]:bowl.tin]

34−::

35−++ get-time

36− =/ m (strand ,@da)

37− ^- form:m

38− |= tin=strand-input:strand

39− `[%done now.bowl.tin]

40−::

41−++ get-our

42− =/ m (strand ,ship)

43− ^- form:m

44− |= tin=strand-input:strand

45− `[%done our.bowl.tin]

46−::

47−++ get-entropy

48− =/ m (strand ,@uvJ)

49− ^- form:m

50− |= tin=strand-input:strand

51− `[%done eny.bowl.tin]

52−::

53−:: Convert skips to %ignore failures.

54−::

55−:: This tells the main loop to try the next handler.

56−::

57−++ handle

58− |* a=mold

59− =/ m (strand ,a)

60− |= =form:m

61− ^- form:m

62− |= tin=strand-input:strand

63− =/ res (form tin)

64− =? next.res ?=(%skip -.next.res)

65− [%fail %ignore ~]

66− res

67−::

68−:: Wait for a poke with a particular mark

69−::

70−++ take-poke

71− |= =mark

72− =/ m (strand ,vase)

73− ^- form:m

74− |= tin=strand-input:strand

75− ?+ in.tin `[%skip ~]

76− ~

77− `[%wait ~]

78− ::

79− [~ %poke @ *]

80− ?. =(mark p.cage.u.in.tin)

81− `[%skip ~]

82− `[%done q.cage.u.in.tin]

83− ==

84−::

85−++ take-sign-arvo

86− =/ m (strand ,[wire sign-arvo])

87− ^- form:m

88− |= tin=strand-input:strand

89− ?+ in.tin `[%skip ~]

90− ~

91− `[%wait ~]

92− ::

93− [~ %sign *]

94− `[%done [wire sign-arvo]:u.in.tin]

95− ==

96−::

97−:: Wait for a subscription update on a wire

98−::

99−++ take-fact-prefix

100− |= =wire

101− =/ m (strand ,[path cage])

102− ^- form:m

103− |= tin=strand-input:strand

104− ?+ in.tin `[%skip ~]

105− ~ `[%wait ~]

106− [~ %agent * %fact *]

107− ?. =(watch+wire (scag +((lent wire)) wire.u.in.tin))

108− `[%skip ~]

109− `[%done (slag (lent wire) wire.u.in.tin) cage.sign.u.in.tin]

110− ==

111−::

112−:: Wait for a subscription update on a wire

113−::

114−++ take-fact

115− |= =wire

116− =/ m (strand ,cage)

117− ^- form:m

118− |= tin=strand-input:strand

119− ?+ in.tin `[%skip ~]

120− ~ `[%wait ~]

121− [~ %agent * %fact *]

122− ?. =(watch+wire wire.u.in.tin)

123− `[%skip ~]

124− `[%done cage.sign.u.in.tin]

125− ==

126−::

127−:: Wait for a subscription close

128−::

129−++ take-kick

130− |= =wire

131− =/ m (strand ,~)

132− ^- form:m

133− |= tin=strand-input:strand

134− ?+ in.tin `[%skip ~]

135− ~ `[%wait ~]

136− [~ %agent * %kick *]

137− ?. =(watch+wire wire.u.in.tin)

138− `[%skip ~]

139− `[%done ~]

140− ==

141−::

142−++ echo

143− =/ m (strand ,~)

144− ^- form:m

145− %- (main-loop ,~)

146− :~ |= ~

147− ^- form:m

148− ;< =vase bind:m ((handle ,vase) (take-poke %echo))

149− =/ message=tape !<(tape vase)

150− %- (slog leaf+"{message}..." ~)

151− ;< ~ bind:m (sleep ~s2)

152− %- (slog leaf+"{message}.." ~)

153− (pure:m ~)

154− ::

155− |= ~

156− ^- form:m

157− ;< =vase bind:m ((handle ,vase) (take-poke %over))

158− %- (slog leaf+"over..." ~)

159− (pure:m ~)

160− ==

161−::

162−++ take-watch

163− =/ m (strand ,path)

164− |= tin=strand-input:strand

165− ?+ in.tin `[%skip ~]

166− ~ `[%wait ~]

167− [~ %watch *]

168− `[%done path.u.in.tin]

169− ==

170−::

171−++ take-wake

172− |= until=(unit @da)

173− =/ m (strand ,~)

174− ^- form:m

175− |= tin=strand-input:strand

176− ?+ in.tin `[%skip ~]

177− ~ `[%wait ~]

178− [~ %sign [%wait @ ~] %behn %wake *]

179− ?. |(?=(~ until) =(`u.until (slaw %da i.t.wire.u.in.tin)))

180− `[%skip ~]

181− ?~ error.sign-arvo.u.in.tin

182− `[%done ~]

183− `[%fail %timer-error u.error.sign-arvo.u.in.tin]

184− ==

185−++ take-whey

186− |= =wire

187− =/ m (strand ,[spar:ames fragment-size=@ud num-fragments=@ud])

188− ^- form:m

189− |= tin=strand-input:strand

190− ?+ in.tin `[%skip ~]

191− ~ `[%wait ~]

192− ::

193− [~ %sign * %ames %sage sage=*]

194− ?. =(wire wire.u.in.tin)

195− `[%skip ~]

196− =/ =sage:mess:ames sage.sign-arvo.u.in.tin

197− :^ ~ %done spar=p.sage

198− ?~ q.sage

199− [boq=13 tot=0]

200− =< [boq tot]

201− ;;([%whey boq=@ud tot=@ud] q.sage)

202− ==

203−::

204−++ take-sage

205− |= =wire

206− =/ m (strand ,sage:mess:ames)

207− ^- form:m

208− |= tin=strand-input:strand

209− ?+ in.tin `[%skip ~]

210− ~ `[%wait ~]

211− ::

212− [~ %sign * %ames %sage sage=*]

213− ?. =(wire wire.u.in.tin)

214− `[%skip ~]

215− `[%done sage.sign-arvo.u.in.tin]

216− ==

217−:: XX deprecate in 409k

218−::

219−++ take-near

220− |= =wire

221− =/ m (strand ,[spar:ames (unit (unit page))])

222− ^- form:m

223− |= tin=strand-input:strand

224− ?+ in.tin `[%skip ~]

225− ~ `[%wait ~]

226− ::

227− [~ %sign * %ames %near ^ *]

228− ?. =(wire wire.u.in.tin)

229− `[%skip ~]

230− `[%done +>.sign-arvo.u.in.tin]

231− ==

232−::

233−++ take-poke-ack

234− |= =wire

235− =/ m (strand ,~)

236− ^- form:m

237− |= tin=strand-input:strand

238− ?+ in.tin `[%skip ~]

239− ~ `[%wait ~]

240− [~ %agent * %poke-ack *]

241− ?. =(wire wire.u.in.tin)

242− `[%skip ~]

243− ?~ p.sign.u.in.tin

244− `[%done ~]

245− `[%fail %poke-fail u.p.sign.u.in.tin]

246− ==

247−::

248−++ take-watch-ack

249− |= =wire

250− =/ m (strand ,~)

251− ^- form:m

252− |= tin=strand-input:strand

253− ?+ in.tin `[%skip ~]

254− ~ `[%wait ~]

255− [~ %agent * %watch-ack *]

256− ?. =(watch+wire wire.u.in.tin)

257− `[%skip ~]

258− ?~ p.sign.u.in.tin

259− `[%done ~]

260− `[%fail %watch-ack-fail u.p.sign.u.in.tin]

261− ==

262−::

263−++ poke

264− |= [=dock =cage]

265− =/ m (strand ,~)

266− ^- form:m

267− =/ =card:agent:gall [%pass /poke %agent dock %poke cage]

268− ;< ~ bind:m (send-raw-card card)

269− (take-poke-ack /poke)

270−::

271−++ raw-poke

272− |= [=dock =cage]

273− =/ m (strand ,~)

274− ^- form:m

275− =/ =card:agent:gall [%pass /poke %agent dock %poke cage]

276− ;< ~ bind:m (send-raw-card card)

277− =/ m (strand ,~)

278− ^- form:m

279− |= tin=strand-input:strand

280− ?+ in.tin `[%skip ~]

281− ~

282− `[%wait ~]

283− ::

284− [~ %agent * %poke-ack *]

285− ?. =(/poke wire.u.in.tin)

286− `[%skip ~]

287− `[%done ~]

288− ==

289−::

290−++ raw-poke-our

291− |= [app=term =cage]

292− =/ m (strand ,~)

293− ^- form:m

294− ;< =bowl:spider bind:m get-bowl

295− (raw-poke [our.bowl app] cage)

296−::

297−++ poke-our

298− |= [=term =cage]

299− =/ m (strand ,~)

300− ^- form:m

301− ;< our=@p bind:m get-our

302− (poke [our term] cage)

303−::

304−++ watch

305− |= [=wire =dock =path]

306− =/ m (strand ,~)

307− ^- form:m

308− =/ =card:agent:gall [%pass watch+wire %agent dock %watch path]

309− ;< ~ bind:m (send-raw-card card)

310− (take-watch-ack wire)

311−::

312−++ watch-one

313− |= [=wire =dock =path]

314− =/ m (strand ,cage)

315− ^- form:m

316− ;< ~ bind:m (watch wire dock path)

317− ;< =cage bind:m (take-fact wire)

318− ;< ~ bind:m (take-kick wire)

319− (pure:m cage)

320−::

321−++ watch-our

322− |= [=wire =term =path]

323− =/ m (strand ,~)

324− ^- form:m

325− ;< our=@p bind:m get-our

326− (watch wire [our term] path)

327−::

328−++ scry

329− |* [=mold =path]

330− =/ m (strand ,mold)

331− ^- form:m

332− ?> ?=(^ path)

333− ?> ?=(^ t.path)

334− ;< =bowl:spider bind:m get-bowl

335− %- pure:m

336− .^(mold i.path (scot %p our.bowl) i.t.path (scot %da now.bowl) t.t.path)

337−::

338−++ leave

339− |= [=wire =dock]

340− =/ m (strand ,~)

341− ^- form:m

342− =/ =card:agent:gall [%pass watch+wire %agent dock %leave ~]

343− (send-raw-card card)

344−::

345−++ leave-our

346− |= [=wire =term]

347− =/ m (strand ,~)

348− ^- form:m

349− ;< our=@p bind:m get-our

350− (leave wire [our term])

351−::

352−++ rewatch

353− |= [=wire =dock =path]

354− =/ m (strand ,~)

355− ;< ~ bind:m ((handle ,~) (take-kick wire))

356− ;< ~ bind:m (flog-text "rewatching {<dock>} {<path>}")

357− ;< ~ bind:m (watch wire dock path)

358− (pure:m ~)

359−::

360−++ wait

361− |= until=@da

362− =/ m (strand ,~)

363− ^- form:m

364− ;< ~ bind:m (send-wait until)

365− (take-wake `until)

366−::

367−++ mass

368− =/ m (strand ,(list quac:dill))

369− ^- form:m

370− =/ =card:agent:gall [%pass /mass %arvo %d %mass ~]

371− ;< ~ bind:m (send-raw-card card)

372− ;< quz=(list quac:dill) bind:m take-meme

373− (pure:m quz)

374−::

375−++ take-meme

376− =/ m (strand ,(list quac:dill))

377− ^- form:m

378− |= tin=strand-input:strand

379− ?+ in.tin `[%skip ~]

380− ~ `[%wait ~]

381− [~ %sign [%mass ~] %dill %meme *]

382− `[%done p.sign-arvo.u.in.tin]

383− ==

384−::

385−++ keen

386− |= [=wire =spar:ames sec=(unit [@ @])]

387− =/ m (strand ,~)

388− ^- form:m

389− (send-raw-card %pass wire %arvo %a %keen sec spar)

390−::

391−++ chum

392− |= [=wire =spar:ames]

393− =/ m (strand ,~)

394− ^- form:m

395− (send-raw-card %pass wire %arvo %a %chum spar)

396−::

397−++ keen-shut

398− |= [=wire =spar:ames]

399− =/ m (strand ,~)

400− ^- form:m

401− (send-raw-card %pass wire %keen & spar)

402−::

403−++ yawn

404− |= [=wire =spar:ames]

405− =/ m (strand ,~)

406− ^- form:m

407− (send-raw-card %pass wire %arvo %a %yawn spar)

408−::

409−++ whey

410− |= [=wire boq=@ud =spar:ames]

411− =/ m (strand ,~)

412− ^- form:m

413− :: encrypted using %chum namespace

414− ::

415− ;< our=@p bind:m get-our

416− =. path.spar

417− [%a %x '1' %$ %whey (scot %ud boq) (scot %p our) path.spar]

418− (chum wire spar)

419−::

420−++ meta

421− |= [=wire =spar:ames]

422− =/ m (strand ,~)

423− ^- form:m

424− ?+ path.spar !!

425− $% [%ames bone=@ %cork ~]

426− [%ames bone=@ %sent seq=@ ~]

427− [%flow bone=@ =dire:ames %cork ~]

428− [?(%ames %flow) bone=@ =dire:ames ?(%sent %loads %naxp %acked) seq=@ ~]

429− ==

430− :: encrypted using %chum namespace

431− ::

432− ;< our=@p bind:m get-our

433− %- send-raw-card

434− :* %pass wire %arvo %a %chum

435− spar(path [%a %x '1' %$ %meta (scot %p our) path.spar])

436− ==

437− ==

438−::

439−++ sleep

440− |= for=@dr

441− =/ m (strand ,~)

442− ^- form:m

443− ;< now=@da bind:m get-time

444− (wait (add now for))

445−::

446−++ send-wait

447− |= until=@da

448− =/ m (strand ,~)

449− ^- form:m

450− =/ =card:agent:gall

451− [%pass /wait/(scot %da until) %arvo %b %wait until]

452− (send-raw-card card)

453−::

454−++ map-err

455− |* computation-result=mold

456− =/ m (strand ,computation-result)

457− |= [f=$-([term tang] [term tang]) computation=form:m]

458− ^- form:m

459− |= tin=strand-input:strand

460− =* loop $

461− =/ c-res (computation tin)

462− ?: ?=(%cont -.next.c-res)

463− c-res(self.next ..loop(computation self.next.c-res))

464− ?. ?=(%fail -.next.c-res)

465− c-res

466− c-res(err.next (f err.next.c-res))

467−::

468−++ set-timeout

469− |* computation-result=mold

470− =/ m (strand ,computation-result)

471− |= [time=@dr computation=form:m]

472− ^- form:m

473− ;< now=@da bind:m get-time

474− =/ when (add now time)

475− =/ =card:agent:gall

476− [%pass /timeout/(scot %da when) %arvo %b %wait when]

477− ;< ~ bind:m (send-raw-card card)

478− |= tin=strand-input:strand

479− =* loop $

480− ?: ?& ?=([~ %sign [%timeout @ ~] %behn %wake *] in.tin)

481− =((scot %da when) i.t.wire.u.in.tin)

482− ==

483− `[%fail %timeout ~]

484− =/ c-res (computation tin)

485− ?: ?=(%cont -.next.c-res)

486− c-res(self.next ..loop(computation self.next.c-res))

487− ?: ?=(%done -.next.c-res)

488− =/ =card:agent:gall

489− [%pass /timeout/(scot %da when) %arvo %b %rest when]

490− c-res(cards [card cards.c-res])

491− c-res

492−::

493−++ send-request

494− |= =request:http

495− =/ m (strand ,~)

496− ^- form:m

497− (send-raw-card %pass /request %arvo %i %request request *outbound-config:iris)

498−::

499−++ send-cancel-request

500− =/ m (strand ,~)

501− ^- form:m

502− (send-raw-card %pass /request %arvo %i %cancel-request ~)

503−::

504−++ take-client-response

505− =/ m (strand ,client-response:iris)

506− ^- form:m

507− |= tin=strand-input:strand

508− ?+ in.tin `[%skip ~]

509− ~ `[%wait ~]

510− ::

511− [~ %sign [%request ~] %iris %http-response %cancel *]

512− ::NOTE iris does not (yet?) retry after cancel, so it means failure

513− :- ~

514− :+ %fail

515− %http-request-cancelled

516− ['http request was cancelled by the runtime']~

517− ::

518− [~ %sign [%request ~] %iris %http-response %finished *]

519− `[%done client-response.sign-arvo.u.in.tin]

520− ==

521−::

522−:: Wait until we get an HTTP response or cancelation and unset contract

523−::

524−++ take-maybe-sigh

525− =/ m (strand ,(unit httr:eyre))

526− ^- form:m

527− ;< rep=(unit client-response:iris) bind:m

528− take-maybe-response

529− ?~ rep

530− (pure:m ~)

531− :: XX s/b impossible

532− ::

533− ?. ?=(%finished -.u.rep)

534− (pure:m ~)

535− (pure:m (some (to-httr:iris +.u.rep)))

536−::

537−++ take-maybe-response

538− =/ m (strand ,(unit client-response:iris))

539− ^- form:m

540− |= tin=strand-input:strand

541− ?+ in.tin `[%skip ~]

542− ~ `[%wait ~]

543− [~ %sign [%request ~] %iris %http-response %cancel *]

544− `[%done ~]

545− [~ %sign [%request ~] %iris %http-response %finished *]

546− `[%done `client-response.sign-arvo.u.in.tin]

547− ==

548−::

549−++ extract-body

550− |= =client-response:iris

551− =/ m (strand ,cord)

552− ^- form:m

553− ?> ?=(%finished -.client-response)

554− %- pure:m

555− ?~ full-file.client-response ''

556− q.data.u.full-file.client-response

557−::

558−++ fetch-cord

559− |= url=tape

560− =/ m (strand ,cord)

561− ^- form:m

562− =/ =request:http [%'GET' (crip url) ~ ~]

563− ;< ~ bind:m (send-request request)

564− ;< =client-response:iris bind:m take-client-response

565− (extract-body client-response)

566−::

567−++ fetch-json

568− |= url=tape

569− =/ m (strand ,json)

570− ^- form:m

571− ;< =cord bind:m (fetch-cord url)

572− =/ json=(unit json) (de:json:html cord)

573− ?~ json

574− (strand-fail %json-parse-error ~)

575− (pure:m u.json)

576−::

577−++ hiss-request

578− |= =hiss:eyre

579− =/ m (strand ,(unit httr:eyre))

580− ^- form:m

581− ;< ~ bind:m (send-request (hiss-to-request:html hiss))

582− take-maybe-sigh

583−::

584−:: +build-file: build the source file at the specified $beam

585−::

586−++ build-file

587− |= [[=ship =desk =case] =spur]

588− =* arg +<

589− =/ m (strand ,(unit vase))

590− ^- form:m

591− ;< =riot:clay bind:m

592− (warp ship desk ~ %sing %a case spur)

593− ?~ riot

594− (pure:m ~)

595− ?> =(%vase p.r.u.riot)

596− (pure:m (some !<(vase q.r.u.riot)))

597−::

598−++ build-file-hard

599− |= [[=ship =desk =case] =spur]

600− =* arg +<

601− =/ m (strand ,vase)

602− ^- form:m

603− ;< =riot:clay

604− bind:m

605− (warp ship desk ~ %sing %a case spur)

606− ?> ?=(^ riot)

607− ?> ?=(%vase p.r.u.riot)

608− (pure:m !<(vase q.r.u.riot))

609−:: +build-mark: build a mark definition to a $dais

610−::

611−++ build-mark

612− |= [[=ship =desk =case] mak=mark]

613− =* arg +<

614− =/ m (strand ,dais:clay)

615− ^- form:m

616− ;< =riot:clay bind:m

617− (warp ship desk ~ %sing %b case /[mak])

618− ?~ riot

619− (strand-fail %build-mark >arg< ~)

620− ?> =(%dais p.r.u.riot)

621− (pure:m !<(dais:clay q.r.u.riot))

622−:: +build-tube: build a mark conversion gate ($tube)

623−::

624−++ build-tube

625− |= [[=ship =desk =case] =mars:clay]

626− =* arg +<

627− =/ m (strand ,tube:clay)

628− ^- form:m

629− ;< =riot:clay bind:m

630− (warp ship desk ~ %sing %c case /[a.mars]/[b.mars])

631− ?~ riot

632− (strand-fail %build-tube >arg< ~)

633− ?> =(%tube p.r.u.riot)

634− (pure:m !<(tube:clay q.r.u.riot))

635−::

636−:: +build-nave: build a mark definition to a $nave

637−::

638−++ build-nave

639− |= [[=ship =desk =case] mak=mark]

640− =* arg +<

641− =/ m (strand ,vase)

642− ^- form:m

643− ;< =riot:clay bind:m

644− (warp ship desk ~ %sing %e case /[mak])

645− ?~ riot

646− (strand-fail %build-nave >arg< ~)

647− ?> =(%nave p.r.u.riot)

648− (pure:m q.r.u.riot)

649−:: +build-cast: build a mark conversion gate (static)

650−::

651−++ build-cast

652− |= [[=ship =desk =case] =mars:clay]

653− =* arg +<

654− =/ m (strand ,vase)

655− ^- form:m

656− ;< =riot:clay bind:m

657− (warp ship desk ~ %sing %f case /[a.mars]/[b.mars])

658− ?~ riot

659− (strand-fail %build-cast >arg< ~)

660− ?> =(%cast p.r.u.riot)

661− (pure:m q.r.u.riot)

662−::

663−:: Read from Clay

664−::

665−++ warp

666− |= [=ship =riff:clay]

667− =/ m (strand ,riot:clay)

668− ;< ~ bind:m (send-raw-card %pass /warp %arvo %c %warp ship riff)

669− (take-writ /warp)

670−::

671−++ read-file

672− |= [[=ship =desk =case] =spur]

673− =* arg +<

674− =/ m (strand ,cage)

675− ;< =riot:clay bind:m (warp ship desk ~ %sing %x case spur)

676− ?~ riot

677− (strand-fail %read-file >arg< ~)

678− (pure:m r.u.riot)

679−::

680−++ check-for-file

681− |= [[=ship =desk =case] =spur]

682− =/ m (strand ,?)

683− ;< =riot:clay bind:m (warp ship desk ~ %sing %u case spur)

684− ?> ?=(^ riot)

685− (pure:m !<(? q.r.u.riot))

686−::

687−++ list-tree

688− |= [[=ship =desk =case] =spur]

689− =* arg +<

690− =/ m (strand ,(list path))

691− ;< =riot:clay bind:m (warp ship desk ~ %sing %t case spur)

692− ?~ riot

693− (strand-fail %list-tree >arg< ~)

694− (pure:m !<((list path) q.r.u.riot))

695−::

696−++ list-desk

697− |= [[=ship =desk =case] =spur]

698− =* arg +<

699− =/ m (strand arch)

700− ;< =riot:clay bind:m (warp ship desk ~ %sing %y case spur)

701− ?~ riot

702− (strand-fail %list-desk >arg< ~)

703− (pure:m !<(arch q.r.u.riot))

704−:: Take Clay read result

705−::

706−++ take-writ

707− |= =wire

708− =/ m (strand ,riot:clay)

709− ^- form:m

710− |= tin=strand-input:strand

711− ?+ in.tin `[%skip ~]

712− ~ `[%wait ~]

713− [~ %sign * ?(%behn %clay) %writ *]

714− ?. =(wire wire.u.in.tin)

715− `[%skip ~]

716− `[%done +>.sign-arvo.u.in.tin]

717− ==

718−:: +check-online: require that peer respond before timeout

719−::

720−++ check-online

721− |= [who=ship lag=@dr]

722− =/ m (strand ,~)

723− ^- form:m

724− %+ (map-err ,~) |=(* [%offline *tang])

725− %+ (set-timeout ,~) lag

726− ;< ~ bind:m

727− (poke [who %hood] %helm-hi !>(~))

728− (pure:m ~)

729−::

730−++ eval-hoon

731− |= [gen=hoon bez=(list beam)]

732− =/ m (strand ,vase)

733− ^- form:m

734− =/ sut=vase !>(..zuse)

735− |-

736− ?~ bez

737− (pure:m (slap sut gen))

738− ;< vax=vase bind:m (build-file-hard i.bez)

739− $(bez t.bez, sut (slop vax sut))

740−::

741−++ send-thread

742− |= [=bear:khan =shed:khan =wire]

743− =/ m (strand ,~)

744− ^- form:m

745− (send-raw-card %pass wire %arvo %k %lard bear shed)

746−::

747−:: Queue on skip, try next on fail %ignore

748−::

749−++ main-loop

750− |* a=mold

751− =/ m (strand ,~)

752− =/ m-a (strand ,a)

753− =| queue=(qeu (unit input:strand))

754− =| active=(unit [in=(unit input:strand) =form:m-a forms=(list $-(a form:m-a))])

755− =| state=a

756− |= forms=(lest $-(a form:m-a))

757− ^- form:m

758− |= tin=strand-input:strand

759− =* top `form:m`..$

760− =. queue (~(put to queue) in.tin)

761− |^ (continue bowl.tin)

762− ::

763− ++ continue

764− |= =bowl:strand

765− ^- output:m

766− ?> =(~ active)

767− ?: =(~ queue)

768− `[%cont top]

769− =^ in=(unit input:strand) queue ~(get to queue)

770− ^- output:m

771− =. active `[in (i.forms state) t.forms]

772− ^- output:m

773− (run bowl in)

774− ::

775− ++ run

776− ^- form:m

777− |= tin=strand-input:strand

778− ^- output:m

779− ?> ?=(^ active)

780− =/ res (form.u.active tin)

781− =/ =output:m

782− ?- -.next.res

783− %wait `[%wait ~]

784− %skip `[%cont ..$(queue (~(put to queue) in.tin))]

785− %cont `[%cont ..$(active `[in.u.active self.next.res forms.u.active])]

786− %done (continue(active ~, state value.next.res) bowl.tin)

787− %fail

788− ?: &(?=(^ forms.u.active) ?=(%ignore p.err.next.res))

789− %= $

790− active `[in.u.active (i.forms.u.active state) t.forms.u.active]

791− in.tin in.u.active

792− ==

793− `[%fail err.next.res]

794− ==

795− [(weld cards.res cards.output) next.output]

796− --

797−::

798−++ retry

799− |* result=mold

800− |= [crash-after=(unit @ud) computation=_*form:(strand (unit result))]

801− =/ m (strand ,result)

802− =| try=@ud

803− |- ^- form:m

804− =* loop $

805− ?: =(crash-after `try)

806− (strand-fail %retry-too-many ~)

807− ;< ~ bind:m (backoff try ~m1)

808− ;< res=(unit result) bind:m computation

809− ?^ res

810− (pure:m u.res)

811− loop(try +(try))

812−::

813−++ backoff

814− |= [try=@ud limit=@dr]

815− =/ m (strand ,~)

816− ^- form:m

817− ;< eny=@uvJ bind:m get-entropy

818− %- sleep

819− %+ min limit

820− ?: =(0 try) ~s0

821− %+ add

822− (mul ~s1 (bex (dec try)))

823− (mul ~s0..0001 (~(rad og eny) 1.000))

824−::

825−:: ----

826−::

827−:: Output

828−::

829−++ flog

830− |= =flog:dill

831− =/ m (strand ,~)

832− ^- form:m

833− (send-raw-card %pass / %arvo %d %flog flog)

834−::

835−++ flog-text

836− |= =tape

837− =/ m (strand ,~)

838− ^- form:m

839− (flog %text tape)

840−::

841−++ flog-tang

842− |= =tang

843− =/ m (strand ,~)

844− ^- form:m

845− =/ =wall

846− (zing (turn (flop tang) (cury wash [0 80])))

847− |- ^- form:m

848− =* loop $

849− ?~ wall

850− (pure:m ~)

851− ;< ~ bind:m (flog-text i.wall)

852− loop(wall t.wall)

853−::

854−++ trace

855− |= =tang

856− =/ m (strand ,~)

857− ^- form:m

858− (pure:m ((slog tang) ~))

859−::

860−++ app-message

861− |= [app=term =cord =tang]

862− =/ m (strand ,~)

863− ^- form:m

864− =/ msg=tape :(weld (trip app) ": " (trip cord))

865− ;< ~ bind:m (flog-text msg)

866− (flog-tang tang)

867−::

868−:: ----

869−::

870−:: Handle domains

871−::

872−++ install-domain

873− |= =turf

874− =/ m (strand ,~)

875− ^- form:m

876− (send-raw-card %pass / %arvo %e %rule %turf %put turf)

877−::

878−:: ----

879−::

880−:: Threads

881−::

882−++ start-thread

883− |= file=term

884− =/ m (strand ,tid:spider)

885− ;< =bowl:spider bind:m get-bowl

886− (start-thread-with-args byk.bowl file *vase)

887−::

888−++ start-thread-with-args

889− |= [=beak file=term args=vase]

890− =/ m (strand ,tid:spider)

891− ^- form:m

892− ;< =bowl:spider bind:m get-bowl

893− =/ tid

894− (scot %ta (cat 3 (cat 3 'strand_' file) (scot %uv (sham file eny.bowl))))

895− =/ poke-vase !>(`start-args:spider`[`tid.bowl `tid beak file args])

896− ;< ~ bind:m (poke-our %spider %spider-start poke-vase)

897− ;< ~ bind:m (sleep ~s0) :: wait for thread to start

898− (pure:m tid)

899−::

900−+$ thread-result

901− (each vase [term tang])

902−::

903−++ await-thread

904− |= [file=term args=vase]

905− =/ m (strand ,thread-result)

906− ^- form:m

907− ;< =bowl:spider bind:m get-bowl

908− =/ tid (scot %ta (cat 3 'strand_' (scot %uv (sham file eny.bowl))))

909− =/ poke-vase !>(`start-args:spider`[`tid.bowl `tid byk.bowl file args])

910− ;< ~ bind:m (watch-our /awaiting/[tid] %spider /thread-result/[tid])

911− ;< ~ bind:m (poke-our %spider %spider-start poke-vase)

912− ;< =cage bind:m (take-fact /awaiting/[tid])

913− ;< ~ bind:m (take-kick /awaiting/[tid])

914− ?+ p.cage ~|([%strange-thread-result p.cage file tid] !!)

915− %thread-done (pure:m %& q.cage)

916− %thread-fail (pure:m %| !<([term tang] q.cage))

917− ==

918−--

base-desk/lib/test.hoondeleted−103

@@ -1,103 +0,0 @@

1−:: testing utilities meant to be directly used from files in %/tests

2−::

3−|%

4−:: +expect-eq: compares :expected and :actual and pretty-prints the result

5−::

6−++ expect-eq

7− |= [expected=vase actual=vase]

8− ^- tang

9− ::

10− =| result=tang

11− ::

12− =? result !=(q.expected q.actual)

13− %+ weld result

14− ^- tang

15− :~ [%palm [": " ~ ~ ~] [leaf+"expected" (sell expected) ~]]

16− [%palm [": " ~ ~ ~] [leaf+"actual " (sell actual) ~]]

17− ==

18− ::

19− =? result !(~(nest ut p.actual) | p.expected)

20− %+ weld result

21− ^- tang

22− :~ :+ %palm [": " ~ ~ ~]

23− :~ [%leaf "failed to nest"]

24− (~(dunk ut p.actual) %actual)

25− (~(dunk ut p.expected) %expected)

26− == ==

27− result

28−:: +expect: compares :actual to %.y and pretty-prints anything else

29−::

30−++ expect

31− |= actual=vase

32− (expect-eq !>(%.y) actual)

33−:: +expect-fail: kicks a trap, expecting crash. pretty-prints if succeeds

34−::

35−++ expect-fail

36− |= a=(trap)

37− ^- tang

38− =/ b (mule a)

39− ?- -.b

40− %| ~

41− %& ['expected failure - succeeded' ~]

42− ==

43−:: +expect-success: kicks a trap, expecting success; returns trace on failure

44−::

45−++ expect-success

46− |= a=(trap)

47− ^- tang

48− =/ b (mule a)

49− ?- -.b

50− %& ~

51− %| ['expected success - failed' p.b]

52− ==

53−::

54−:: +expect-fail-message: kicks a trap, expecting crash, compares the resulting error message

55−++ expect-fail-message

56− |= [msg=@t a=(trap)]

57− ^- tang

58− =/ b (mule a)

59− ?- -.b

60− %| |^

61− =/ =tang (flatten +.b)

62− ?: ?=(^ (find (trip msg) tang))

63− ~

64− ['expected error message - not found' ~]

65− ++ flatten

66− |= tang=(list tank)

67− =| res=tape

68− |- ^- tape

69− ?~ tang res

70− $(tang t.tang, res (weld ~(ram re i.tang) res))

71− --

72− %& ['expected failure - succeeded' ~]

73− ==

74−:: $a-test-chain: a sequence of tests to be run

75−::

76−:: NB: arms shouldn't start with `test-` so that `-test % ~` runs

77−::

78−+$ a-test-chain

79− $_

80− |?

81− ?: =(0 0)

82− [%& p=*tang]

83− [%| p=[tang=*tang next=^?(..$)]]

84−:: +run-chain: run a sequence of tests, stopping at first failure

85−::

86−++ run-chain

87− |= seq=a-test-chain

88− ^- tang

89− =/ res $:seq

90− ?- -.res

91− %& p.res

92− %| ?. =(~ tang.p.res)

93− tang.p.res

94− $(seq next.p.res)

95− ==

96−:: +category: prepends a name to an error result; passes successes unchanged

97−::

98−++ category

99− |= [a=tape b=tang] ^- tang

100− ?: =(~ b) ~ :: test OK

101− :- leaf+"in: '{a}'"

102− (turn b |=(c=tank rose+[~ " " ~]^~[c]))

103−--

base-desk/lib/tiny.hoondeleted−670

@@ -1,670 +0,0 @@

1−!.

2−=> %a50

3−~% %a.50 ~ ~

4−|%

5−:: Types

6−::

7−+$ ship @p

8−+$ life @ud

9−+$ rift @ud

10−+$ pass @

11−+$ bloq @

12−+$ step _`@u`1

13−+$ bite $@(bloq [=bloq =step])

14−+$ octs [p=@ud q=@]

15−+$ mold $~(* $-(* *))

16−++ unit |$ [item] $@(~ [~ u=item])

17−++ list |$ [item] $@(~ [i=item t=(list item)])

18−++ lest |$ [item] [i=item t=(list item)]

19−++ tree |$ [node] $@(~ [n=node l=(tree node) r=(tree node)])

20−++ pair |$ [head tail] [p=head q=tail]

21−++ map

22− |$ [key value]

23− $| (tree (pair key value))

24− |=(a=(tree (pair)) ?:(=(~ a) & ~(apt by a)))

25−::

26−++ set

27− |$ [item]

28− $| (tree item)

29− |=(a=(tree) ?:(=(~ a) & ~(apt in a)))

30−::

31−++ jug |$ [key value] (map key (set value))

32−::

33−:: Bits

34−::

35−++ dec :: decrement

36− ~/ %dec

37− |= a=@

38− ~_ leaf+"decrement-underflow"

39− ?< =(0 a)

40− =+ b=0

41− |- ^- @

42− ?: =(a +(b)) b

43− $(b +(b))

44−::

45−++ add :: plus

46− ~/ %add

47− |= [a=@ b=@]

48− ^- @

49− ?: =(0 a) b

50− $(a (dec a), b +(b))

51−::

52−++ sub :: subtract

53− ~/ %sub

54− |= [a=@ b=@]

55− ~_ leaf+"subtract-underflow"

56− :: difference

57− ^- @

58− ?: =(0 b) a

59− $(a (dec a), b (dec b))

60−::

61−++ mul :: multiply

62− ~/ %mul

63− |: [a=`@`1 b=`@`1]

64− ^- @

65− =+ c=0

66− |-

67− ?: =(0 a) c

68− $(a (dec a), c (add b c))

69−::

70−++ div :: divide

71− ~/ %div

72− |: [a=`@`1 b=`@`1]

73− ^- @

74− ~_ leaf+"divide-by-zero"

75− ?< =(0 b)

76− =+ c=0

77− |-

78− ?: (lth a b) c

79− $(a (sub a b), c +(c))

80−::

81−++ dvr :: divide w/remainder

82− ~/ %dvr

83− |: [a=`@`1 b=`@`1]

84− ^- [p=@ q=@]

85− [(div a b) (mod a b)]

86−::

87−++ mod :: modulus

88− ~/ %mod

89− |: [a=`@`1 b=`@`1]

90− ^- @

91− ?< =(0 b)

92− (sub a (mul b (div a b)))

93−::

94−++ bex :: binary exponent

95− ~/ %bex

96− |= a=bloq

97− ^- @

98− ?: =(0 a) 1

99− (mul 2 $(a (dec a)))

100−::

101−++ lsh :: left-shift

102− ~/ %lsh

103− |= [a=bite b=@]

104− =/ [=bloq =step] ?^(a a [a *step])

105− (mul b (bex (mul (bex bloq) step)))

106−::

107−++ rsh :: right-shift

108− ~/ %rsh

109− |= [a=bite b=@]

110− =/ [=bloq =step] ?^(a a [a *step])

111− (div b (bex (mul (bex bloq) step)))

112−::

113−++ con :: binary or

114− ~/ %con

115− |= [a=@ b=@]

116− =+ [c=0 d=0]

117− |- ^- @

118− ?: ?&(=(0 a) =(0 b)) d

119− %= $

120− a (rsh 0 a)

121− b (rsh 0 b)

122− c +(c)

123− d %+ add d

124− %+ lsh [0 c]

125− ?& =(0 (end 0 a))

126− =(0 (end 0 b))

127− ==

128− ==

129−::

130−++ dis :: binary and

131− ~/ %dis

132− |= [a=@ b=@]

133− =| [c=@ d=@]

134− |- ^- @

135− ?: ?|(=(0 a) =(0 b)) d

136− %= $

137− a (rsh 0 a)

138− b (rsh 0 b)

139− c +(c)

140− d %+ add d

141− %+ lsh [0 c]

142− ?| =(0 (end 0 a))

143− =(0 (end 0 b))

144− ==

145− ==

146−::

147−++ mix :: binary xor

148− ~/ %mix

149− |= [a=@ b=@]

150− ^- @

151− =+ [c=0 d=0]

152− |-

153− ?: ?&(=(0 a) =(0 b)) d

154− %= $

155− a (rsh 0 a)

156− b (rsh 0 b)

157− c +(c)

158− d (add d (lsh [0 c] =((end 0 a) (end 0 b))))

159− ==

160−::

161−++ lth :: less

162− ~/ %lth

163− |= [a=@ b=@]

164− ^- ?

165− ?& !=(a b)

166− |-

167− ?| =(0 a)

168− ?& !=(0 b)

169− $(a (dec a), b (dec b))

170− == == ==

171−::

172−++ lte :: less or equal

173− ~/ %lte

174− |= [a=@ b=@]

175− |(=(a b) (lth a b))

176−::

177−++ gte :: greater or equal

178− ~/ %gte

179− |= [a=@ b=@]

180− ^- ?

181− !(lth a b)

182−::

183−++ gth :: greater

184− ~/ %gth

185− |= [a=@ b=@]

186− ^- ?

187− !(lte a b)

188−::

189−++ swp :: naive rev bloq order

190− ~/ %swp

191− |= [a=bloq b=@]

192− (rep a (flop (rip a b)))

193−::

194−++ met :: measure

195− ~/ %met

196− |= [a=bloq b=@]

197− ^- @

198− =+ c=0

199− |-

200− ?: =(0 b) c

201− $(b (rsh a b), c +(c))

202−::

203−++ end :: tail

204− ~/ %end

205− |= [a=bite b=@]

206− =/ [=bloq =step] ?^(a a [a *step])

207− (mod b (bex (mul (bex bloq) step)))

208−::

209−++ cat :: concatenate

210− ~/ %cat

211− |= [a=bloq b=@ c=@]

212− (add (lsh [a (met a b)] c) b)

213−::

214−++ cut :: slice

215− ~/ %cut

216− |= [a=bloq [b=step c=step] d=@]

217− (end [a c] (rsh [a b] d))

218−::

219−++ can :: assemble

220− ~/ %can

221− |= [a=bloq b=(list [p=step q=@])]

222− ^- @

223− ?~ b 0

224− (add (end [a p.i.b] q.i.b) (lsh [a p.i.b] $(b t.b)))

225−::

226−++ cad :: assemble specific

227− ~/ %cad

228− |= [a=bloq b=(list [p=step q=@])]

229− ^- [=step @]

230− :_ (can a b)

231− |-

232− ?~ b

233− 0

234− (add p.i.b $(b t.b))

235−::

236−++ rep :: assemble fixed

237− ~/ %rep

238− |= [a=bite b=(list @)]

239− =/ [=bloq =step] ?^(a a [a *step])

240− =| i=@ud

241− |- ^- @

242− ?~ b 0

243− %+ add $(i +(i), b t.b)

244− (lsh [bloq (mul step i)] (end [bloq step] i.b))

245−::

246−++ rip :: disassemble

247− ~/ %rip

248− |= [a=bite b=@]

249− ^- (list @)

250− ?: =(0 b) ~

251− [(end a b) $(b (rsh a b))]

252−::

253−::

254−:: Lists

255−::

256−++ lent :: length

257− ~/ %lent

258− |= a=(list)

259− ^- @

260− =+ b=0

261− |-

262− ?~ a b

263− $(a t.a, b +(b))

264−::

265−++ slag :: suffix

266− ~/ %slag

267− |* [a=@ b=(list)]

268− |- ^+ b

269− ?: =(0 a) b

270− ?~ b ~

271− $(b t.b, a (dec a))

272−::

273−++ snag :: index

274− ~/ %snag

275− |* [a=@ b=(list)]

276− |- ^+ ?>(?=(^ b) i.b)

277− ?~ b

278− ~_ leaf+"snag-fail"

279− !!

280− ?: =(0 a) i.b

281− $(b t.b, a (dec a))

282−::

283−++ homo :: homogenize

284− |* a=(list)

285− ^+ =< $

286− |@ ++ $ ?:(*? ~ [i=(snag 0 a) t=$])

287− --

288− a

289−::

290−++ flop :: reverse

291− ~/ %flop

292− |* a=(list)

293− => .(a (homo a))

294− ^+ a

295− =+ b=`_a`~

296− |-

297− ?~ a b

298− $(a t.a, b [i.a b])

299−::

300−++ welp :: concatenate

301− ~/ %welp

302− =| [* *]

303− |@

304− ++ $

305− ?~ +<-

306− +<-(. +<+)

307− +<-(+ $(+<- +<->))

308− --

309−::

310−++ reap :: replicate

311− ~/ %reap

312− |* [a=@ b=*]

313− |- ^- (list _b)

314− ?~ a ~

315− [b $(a (dec a))]

316−::

317−:: Modular arithmetic

318−::

319−++ fe :: modulo bloq

320− |_ a=bloq

321− ++ rol |= [b=bloq c=@ d=@] ^- @ :: roll left

322− =+ e=(sit d)

323− =+ f=(bex (sub a b))

324− =+ g=(mod c f)

325− (sit (con (lsh [b g] e) (rsh [b (sub f g)] e)))

326− ++ sum |=([b=@ c=@] (sit (add b c))) :: wrapping add

327− ++ sit |=(b=@ (end a b)) :: enforce modulo

328− --

329−::

330−:: Hashes

331−::

332−++ muk :: standard murmur3

333− ~% %muk ..muk ~

334− =+ ~(. fe 5)

335− |= [syd=@ len=@ key=@]

336− =. syd (end 5 syd)

337− =/ pad (sub len (met 3 key))

338− =/ data (welp (rip 3 key) (reap pad 0))

339− =/ nblocks (div len 4) :: intentionally off-by-one

340− =/ h1 syd

341− =+ [c1=0xcc9e.2d51 c2=0x1b87.3593]

342− =/ blocks (rip 5 key)

343− =/ i nblocks

344− =. h1 =/ hi h1 |-

345− ?: =(0 i) hi

346− =/ k1 (snag (sub nblocks i) blocks) :: negative array index

347− =. k1 (sit (mul k1 c1))

348− =. k1 (rol 0 15 k1)

349− =. k1 (sit (mul k1 c2))

350− =. hi (mix hi k1)

351− =. hi (rol 0 13 hi)

352− =. hi (sum (sit (mul hi 5)) 0xe654.6b64)

353− $(i (dec i))

354− =/ tail (slag (mul 4 nblocks) data)

355− =/ k1 0

356− =/ tlen (dis len 3)

357− =. h1

358− ?+ tlen h1 :: fallthrough switch

359− %3 =. k1 (mix k1 (lsh [0 16] (snag 2 tail)))

360− =. k1 (mix k1 (lsh [0 8] (snag 1 tail)))

361− =. k1 (mix k1 (snag 0 tail))

362− =. k1 (sit (mul k1 c1))

363− =. k1 (rol 0 15 k1)

364− =. k1 (sit (mul k1 c2))

365− (mix h1 k1)

366− %2 =. k1 (mix k1 (lsh [0 8] (snag 1 tail)))

367− =. k1 (mix k1 (snag 0 tail))

368− =. k1 (sit (mul k1 c1))

369− =. k1 (rol 0 15 k1)

370− =. k1 (sit (mul k1 c2))

371− (mix h1 k1)

372− %1 =. k1 (mix k1 (snag 0 tail))

373− =. k1 (sit (mul k1 c1))

374− =. k1 (rol 0 15 k1)

375− =. k1 (sit (mul k1 c2))

376− (mix h1 k1)

377− ==

378− =. h1 (mix h1 len)

379− |^ (fmix32 h1)

380− ++ fmix32

381− |= h=@

382− =. h (mix h (rsh [0 16] h))

383− =. h (sit (mul h 0x85eb.ca6b))

384− =. h (mix h (rsh [0 13] h))

385− =. h (sit (mul h 0xc2b2.ae35))

386− =. h (mix h (rsh [0 16] h))

387− h

388− --

389−::

390−++ mug :: mug with murmur3

391− ~/ %mug

392− |= a=*

393− |^ ?@ a (mum 0xcafe.babe 0x7fff a)

394− =/ b (cat 5 $(a -.a) $(a +.a))

395− (mum 0xdead.beef 0xfffe b)

396− ::

397− ++ mum

398− |= [syd=@uxF fal=@F key=@]

399− =/ wyd (met 3 key)

400− =| i=@ud

401− |- ^- @F

402− ?: =(8 i) fal

403− =/ haz=@F (muk syd wyd key)

404− =/ ham=@F (mix (rsh [0 31] haz) (end [0 31] haz))

405− ?.(=(0 ham) ham $(i +(i), syd +(syd)))

406− --

407−::

408−++ gor :: mug order

409− ~/ %gor

410− |= [a=* b=*]

411− ^- ?

412− =+ [c=(mug a) d=(mug b)]

413− ?: =(c d)

414− (dor a b)

415− (lth c d)

416−::

417−++ mor :: more mug order

418− ~/ %mor

419− |= [a=* b=*]

420− ^- ?

421− =+ [c=(mug (mug a)) d=(mug (mug b))]

422− ?: =(c d)

423− (dor a b)

424− (lth c d)

425−::

426−++ dor :: tree order

427− ~/ %dor

428− |= [a=* b=*]

429− ^- ?

430− ?: =(a b) &

431− ?. ?=(@ a)

432− ?: ?=(@ b) |

433− ?: =(-.a -.b)

434− $(a +.a, b +.b)

435− $(a -.a, b -.b)

436− ?. ?=(@ b) &

437− (lth a b)

438−::

439−++ por :: parent order

440− ~/ %por

441− |= [a=@p b=@p]

442− ^- ?

443− ?: =(a b) &

444− =| i=@

445− |-

446− ?: =(i 2)

447− :: second two bytes

448− (lte a b)

449− :: first two bytes

450− =+ [c=(end 3 a) d=(end 3 b)]

451− ?: =(c d)

452− $(a (rsh 3 a), b (rsh 3 b), i +(i))

453− (lth c d)

454−::

455−:: Maps

456−::

457−++ by

458− ~/ %by

459− =| a=(tree (pair)) :: (map)

460− =* node ?>(?=(^ a) n.a)

461− |@

462− ++ get

463− ~/ %get

464− |* b=*

465− => .(b `_?>(?=(^ a) p.n.a)`b)

466− |- ^- (unit _?>(?=(^ a) q.n.a))

467− ?~ a

468− ~

469− ?: =(b p.n.a)

470− `q.n.a

471− ?: (gor b p.n.a)

472− $(a l.a)

473− $(a r.a)

474− ::

475− ++ put

476− ~/ %put

477− |* [b=* c=*]

478− |- ^+ a

479− ?~ a

480− [[b c] ~ ~]

481− ?: =(b p.n.a)

482− ?: =(c q.n.a)

483− a

484− a(n [b c])

485− ?: (gor b p.n.a)

486− =+ d=$(a l.a)

487− ?> ?=(^ d)

488− ?: (mor p.n.a p.n.d)

489− a(l d)

490− d(r a(l r.d))

491− =+ d=$(a r.a)

492− ?> ?=(^ d)

493− ?: (mor p.n.a p.n.d)

494− a(r d)

495− d(l a(r l.d))

496− ::

497− ++ del

498− ~/ %del

499− |* b=*

500− |- ^+ a

501− ?~ a

502− ~

503− ?. =(b p.n.a)

504− ?: (gor b p.n.a)

505− a(l $(a l.a))

506− a(r $(a r.a))

507− |- ^- [$?(~ _a)]

508− ?~ l.a r.a

509− ?~ r.a l.a

510− ?: (mor p.n.l.a p.n.r.a)

511− l.a(r $(l.a r.l.a))

512− r.a(l $(r.a l.r.a))

513− ::

514− ++ apt

515− =< $

516− ~/ %apt

517− =| [l=(unit) r=(unit)]

518− |. ^- ?

519− ?~ a &

520− ?& ?~(l & &((gor p.n.a u.l) !=(p.n.a u.l)))

521− ?~(r & &((gor u.r p.n.a) !=(u.r p.n.a)))

522− ?~ l.a &

523− &((mor p.n.a p.n.l.a) !=(p.n.a p.n.l.a) $(a l.a, l `p.n.a))

524− ?~ r.a &

525− &((mor p.n.a p.n.r.a) !=(p.n.a p.n.r.a) $(a r.a, r `p.n.a))

526− ==

527− --

528−::

529−++ on :: ordered map

530− ~/ %on

531− |* [key=mold val=mold]

532− => |%

533− +$ item [key=key val=val]

534− --

535− ::

536− ~% %comp +>+ ~

537− |= compare=$-([key key] ?)

538− ~% %core + ~

539− |%

540− ::

541− ++ apt

542− ~/ %apt

543− |= a=(tree item)

544− =| [l=(unit key) r=(unit key)]

545− |- ^- ?

546− ?~ a %.y

547− ?& ?~(l %.y (compare key.n.a u.l))

548− ?~(r %.y (compare u.r key.n.a))

549− ?~(l.a %.y &((mor key.n.a key.n.l.a) $(a l.a, l `key.n.a)))

550− ?~(r.a %.y &((mor key.n.a key.n.r.a) $(a r.a, r `key.n.a)))

551− ==

552− ::

553− ++ get

554− ~/ %get

555− |= [a=(tree item) b=key]

556− ^- (unit val)

557− ?~ a ~

558− ?: =(b key.n.a)

559− `val.n.a

560− ?: (compare b key.n.a)

561− $(a l.a)

562− $(a r.a)

563− ::

564− ++ has

565− ~/ %has

566− |= [a=(tree item) b=key]

567− ^- ?

568− !=(~ (get a b))

569− ::

570− ++ put

571− ~/ %put

572− |= [a=(tree item) =key =val]

573− ^- (tree item)

574− ?~ a [n=[key val] l=~ r=~]

575− ?: =(key.n.a key) a(val.n val)

576− ?: (compare key key.n.a)

577− =/ l $(a l.a)

578− ?> ?=(^ l)

579− ?: (mor key.n.a key.n.l)

580− a(l l)

581− l(r a(l r.l))

582− =/ r $(a r.a)

583− ?> ?=(^ r)

584− ?: (mor key.n.a key.n.r)

585− a(r r)

586− r(l a(r l.r))

587− --

588−::

589−:: Sets

590−::

591−++ in

592− ~/ %in

593− =| a=(tree) :: (set)

594− |@

595− ++ put

596− ~/ %put

597− |* b=*

598− |- ^+ a

599− ?~ a

600− [b ~ ~]

601− ?: =(b n.a)

602− a

603− ?: (gor b n.a)

604− =+ c=$(a l.a)

605− ?> ?=(^ c)

606− ?: (mor n.a n.c)

607− a(l c)

608− c(r a(l r.c))

609− =+ c=$(a r.a)

610− ?> ?=(^ c)

611− ?: (mor n.a n.c)

612− a(r c)

613− c(l a(r l.c))

614− ::

615− ++ del

616− ~/ %del

617− |* b=*

618− |- ^+ a

619− ?~ a

620− ~

621− ?. =(b n.a)

622− ?: (gor b n.a)

623− a(l $(a l.a))

624− a(r $(a r.a))

625− |- ^- [$?(~ _a)]

626− ?~ l.a r.a

627− ?~ r.a l.a

628− ?: (mor n.l.a n.r.a)

629− l.a(r $(l.a r.l.a))

630− r.a(l $(r.a l.r.a))

631− ::

632− ++ apt

633− =< $

634− ~/ %apt

635− =| [l=(unit) r=(unit)]

636− |. ^- ?

637− ?~ a &

638− ?& ?~(l & (gor n.a u.l))

639− ?~(r & (gor u.r n.a))

640− ?~(l.a & ?&((mor n.a n.l.a) $(a l.a, l `n.a)))

641− ?~(r.a & ?&((mor n.a n.r.a) $(a r.a, r `n.a)))

642− ==

643− --

644−::

645−:: Jugs

646−::

647−++ ju

648− =| a=(tree (pair * (tree))) :: (jug)

649− |@

650− ++ get

651− |* b=*

652− =+ c=(~(get by a) b)

653− ?~(c ~ u.c)

654− ::

655− ++ del

656− |* [b=* c=*]

657− ^+ a

658− =+ d=(get b)

659− =+ e=(~(del in d) c)

660− ?~ e

661− (~(del by a) b)

662− (~(put by a) b e)

663− ::

664− ++ put

665− |* [b=* c=*]

666− ^+ a

667− =+ d=(get b)

668− (~(put by a) b (~(put in d) c))

669− --

670−--

base-desk/lib/verb.hoondeleted−182

@@ -1,182 +0,0 @@

1−:: Print what your agent is doing.

2−::

3−/- *verb

4−::

5−|= [loud=? =agent:gall]

6−=| bowl-print=_|

7−^- agent:gall

8−|^ !.

9−|_ =bowl:gall

10−+* this .

11− ag ~(. agent bowl)

12−::

13−++ on-init

14− ^- (quip card:agent:gall agent:gall)

15− %- (print bowl |.("{<dap.bowl>}: on-init"))

16− =^ cards agent on-init:ag

17− :_ this

18− :_ :_ cards

19− (emit-event %on-init ~)

20− (emit-event-plus bowl [%on-init ~] cards)

21−::

22−++ on-save

23− ^- vase

24− %- (print bowl |.("{<dap.bowl>}: on-save"))

25− on-save:ag

26−::

27−++ on-load

28− |= old-state=vase

29− ^- (quip card:agent:gall agent:gall)

30− %- (print bowl |.("{<dap.bowl>}: on-load"))

31− =^ cards agent (on-load:ag old-state)

32− :_ this

33− :_ :_ cards

34− (emit-event %on-load ~)

35− (emit-event-plus bowl [%on-load ~] cards)

36−::

37−++ on-poke

38− |= [=mark =vase]

39− ^- (quip card:agent:gall agent:gall)

40− %- (print bowl |.("{<dap.bowl>}: on-poke with mark {<mark>}"))

41− ?: ?=(%verb mark)

42− ?- !<(?(%loud %bowl) vase)

43− %loud `this(loud !loud)

44− %bowl `this(bowl-print !bowl-print)

45− ==

46− =^ cards agent (on-poke:ag mark vase)

47− :_ this

48− :_ :_ cards

49− (emit-event %on-poke mark)

50− (emit-event-plus bowl [%on-poke mark (mug q.vase)] cards)

51−::

52−++ on-watch

53− |= =path

54− ^- (quip card:agent:gall agent:gall)

55− %- (print bowl |.("{<dap.bowl>}: on-watch on path {<path>}"))

56− =^ cards agent

57− ?: ?=([%verb ?(%events %events-plus) ~] path)

58− [~ agent]

59− (on-watch:ag path)

60− :_ this

61− :_ :_ cards

62− (emit-event %on-watch path)

63− (emit-event-plus bowl [%on-watch path] cards)

64−::

65−++ on-leave

66− |= =path

67− ^- (quip card:agent:gall agent:gall)

68− %- (print bowl |.("{<dap.bowl>}: on-leave on path {<path>}"))

69− ?: ?=([%verb %event ~] path)

70− [~ this]

71− =^ cards agent (on-leave:ag path)

72− :_ this

73− :_ :_ cards

74− (emit-event %on-leave path)

75− (emit-event-plus bowl [%on-leave path] cards)

76−::

77−++ on-peek

78− |= =path

79− ^- (unit (unit cage))

80− %- (print bowl |.("{<dap.bowl>}: on-peek on path {<path>}"))

81− (on-peek:ag path)

82−::

83−++ on-agent

84− |= [=wire =sign:agent:gall]

85− ^- (quip card:agent:gall agent:gall)

86− %- (print bowl |.("{<dap.bowl>}: on-agent on wire {<wire>}, {<-.sign>}"))

87− =^ cards agent (on-agent:ag wire sign)

88− :_ this

89− :_ :_ cards

90− (emit-event %on-agent wire -.sign)

91− =; =^sign

92− (emit-event-plus bowl [%on-agent wire sign] cards)

93− ?- -.sign

94− %poke-ack [%poke-ack ?=(~ p.sign)]

95− %watch-ack [%watch-ack ?=(~ p.sign)]

96− %kick [%kick ~]

97− %fact [%fact p.cage.sign (mug q.q.cage.sign)]

98− ==

99−::

100−++ on-arvo

101− |= [=wire =sign-arvo]

102− ^- (quip card:agent:gall agent:gall)

103− %- %+ print bowl |.

104− "{<dap.bowl>}: on-arvo on wire {<wire>}, {<[- +<]:sign-arvo>}"

105− =^ cards agent (on-arvo:ag wire sign-arvo)

106− :_ this

107− :_ :_ cards

108− (emit-event %on-arvo wire [- +<]:sign-arvo)

109− (emit-event-plus bowl [%on-arvo wire [- +<]:sign-arvo] cards)

110−::

111−++ on-fail

112− |= [=term =tang]

113− ^- (quip card:agent:gall agent:gall)

114− %- (print bowl |.("{<dap.bowl>}: on-fail with term {<term>}"))

115− =^ cards agent (on-fail:ag term tang)

116− :_ this

117− :_ :_ cards

118− (emit-event %on-fail term)

119− (emit-event-plus bowl [%on-fail term] cards)

120−--

121−::

122−++ print

123− |= [=bowl:gall render=(trap tape)]

124− ^+ same

125− =? . bowl-print

126− %- (slog >bowl< ~)

127− .

128− ?. loud same

129− %- (slog [%leaf $:render] ~)

130− same

131−::

132−++ emit-event

133− |= =event

134− ^- card:agent:gall

135− [%give %fact ~[/verb/events] %verb-event !>(event)]

136−::

137−++ emit-event-plus

138− |= [=bowl:gall =cause cards=(list card:agent:gall)]

139− ^- card:agent:gall

140− =; event=event-plus

141− [%give %fact ~[/verb/events-plus] %verb-event-plus !>(event)]

142− =- [act.bowl now.bowl src.bowl sap.bowl cause -]

143− %+ turn cards

144− |= =card:agent:gall

145− ^- effect

146− ::TODO for %fact, %kick, could calculate how many ships affected

147− ?- card

148− [%pass * %agent * ?(%poke %poke-as) *]

149− =, q.card

150− =/ =cage ?-(-.task.q.card %poke cage.task, %poke-as [mark.task q.cage.task])

151− [%poke p.card [ship name] p.cage `@`(mug q.q.cage)]

152− ::

153− [%pass * %agent * ?(%watch %watch-as) *]

154− =, q.card

155− =/ =path ?-(-.task.q.card %watch path.task, %watch-as path.task)

156− [%watch p.card [ship name] path]

157− ::

158− [%pass * %agent * %leave *]

159− =, q.card

160− [%leave p.card [ship name]]

161− ::

162− [%give %fact *]

163− =, p.card

164− [%fact paths p.cage (mug q.q.cage)]

165− ::

166− [%give %kick *]

167− [%kick paths.p.card]

168− ::

169− [%give ?(%poke-ack %watch-ack) *]

170− ~| %explicit-ack

171− !! :: shouldn't be given explicitly

172− ::

173− [%pass * %arvo *]

174− [%arvo p.card -.q.card +<.q.card]

175− ::

176− [%pass *]

177− [%arvo p.card %$ -.q.card]

178− ::

179− [%slip *]

180− $(card [%pass //slip p.card])

181− ==

182−--

base-desk/mar/atom.hoondeleted−18

@@ -1,18 +0,0 @@

1−::

2−:::: /hoon/atom/mar

3− ::

4−/? 310

5−::

6−:::: A minimal atom mark

7− ::

8−=, mimes:html

9−|_ ato=@

10−++ grab |%

11− ++ noun @

12− ++ mime |=([* p=octs] q.p)

13− --

14−++ grow |%

15− ++ mime [/application/x-urb-unknown (as-octs ato)]

16− --

17−++ grad %mime

18−--

base-desk/mar/belt.hoondeleted−20

@@ -1,20 +0,0 @@

1−:: belt: runtime belt structure

2−::

3−/+ dill

4−::

5−|_ =belt:dill

6−++ grad %noun

7−:: +grab: convert from

8−::

9−++ grab

10− |%

11− ++ noun belt:dill

12− ++ json belt:dejs:dill

13− --

14−:: +grow: convert to

15−::

16−++ grow

17− |%

18− ++ noun belt

19− --

20−--

base-desk/mar/bill.hoondeleted−34

@@ -1,34 +0,0 @@

1−|_ bil=(list dude:gall)

2−++ grow

3− |%

4− ++ mime `^mime`[/text/x-bill (as-octs:mimes:html hoon)]

5− ++ noun bil

6− ++ hoon

7− ^- @t

8− |^ (crip (of-wall:format (wrap-lines (spit-duz bil))))

9− ::

10− ++ wrap-lines

11− |= taz=wall

12− ^- wall

13− ?~ taz ["~"]~

14− :- (weld ":~ " i.taz)

15− %- snoc :_ "=="

16− (turn t.taz |=(t=tape (weld " " t)))

17− ::

18− ++ spit-duz

19− |= duz=(list dude:gall)

20− ^- wall

21− (turn duz |=(=dude:gall ['%' (trip dude)]))

22− --

23− ++ txt (to-wain:format hoon)

24− --

25−++ grab

26− |%

27− ++ noun (list dude:gall)

28− ++ mime

29− |= [=mite len=@ud tex=@]

30− ~_ tex

31− !<((list dude:gall) (slap !>(~) (ream tex)))

32− --

33−++ grad %noun

34−--

base-desk/mar/blit.hoondeleted−20

@@ -1,20 +0,0 @@

1−:: blit: runtime blit structure

2−::

3−/+ dill

4−::

5−|_ =blit:dill

6−++ grad %noun

7−:: +grab: convert from

8−::

9−++ grab

10− |%

11− ++ noun blit:dill

12− --

13−:: +grow: convert to

14−::

15−++ grow

16− |%

17− ++ noun blit

18− ++ json (blit:enjs:dill blit)

19− --

20−--

base-desk/mar/css.hoondeleted−25

@@ -1,25 +0,0 @@

1−::

2−:::: /hoon/css/mar

3− ::

4−/? 310

5−=, eyre

6−=, mimes:html

7−|_ mud=@t

8−++ grow :: convert to

9− |%

10− ++ mime [/text/css (as-octs mud)] :: convert to %mime

11− ++ hymn :: convert to %hymn

12− |^ html

13− ++ style ;style

14− ;- (trip mud)

15− ==

16− ++ html ;html:(head:"{style}" body)

17− --

18− --

19−++ grab

20− |% :: convert from

21− ++ mime |=([p=mite q=octs] (@t q.q))

22− ++ noun @t :: clam from %noun

23− --

24−++ grad %mime

25−--

base-desk/mar/docket-0.hoondeleted−25

@@ -1,25 +0,0 @@

1−/+ dock=docket

2−|_ =docket:dock

3−++ grow

4− |%

5− ++ mime

6− ^- ^mime

7− [/text/x-docket (as-octt:mimes:html (spit-docket:mime:dock docket))]

8− ++ noun docket

9− ++ json (docket:enjs:dock docket)

10− --

11−++ grab

12− |%

13− ::

14− ++ mime

15− |= [=mite len=@ud tex=@]

16− ^- docket:dock

17− %- need

18− %- from-clauses:mime:dock

19− !<((list clause:dock) (slap !>(~) (ream tex)))

20−

21− ::

22− ++ noun docket:dock

23− --

24−++ grad %noun

25−--

base-desk/mar/hoon.hoondeleted−303

@@ -1,303 +0,0 @@

1−|_ own=@t

2−::

3−++ grow :: convert to

4− |%

5− ++ mime `^mime`[/text/x-hoon (as-octs:mimes:html own)] :: convert to %mime

6− ++ hymn

7− ^- manx

8− =/ to-wall

9− |= =tape

10− ^- wall

11− %+ roll (flop tape)

12− |= [char=@tD =wall]

13− ?~ wall

14− [[char ~] ~]

15− ?: =('\0a' char)

16− [~ wall]

17− [[char i.wall] t.wall]

18− ::

19− =/ src=tape (trip own)

20− =/ count=@ud (lent (to-wall src))

21− =; [style=tape script=tape]

22− ;html

23− ;head

24− ;title: source

25− ;meta(charset "utf-8");

26− ;meta(name "viewport", content "width=device-width, initial-scale=1");

27− ;style: {style}

28− ==

29− ;body

30− ;div.viewer

31− :: ;div.viewer-bar

32− :: ;span.viewer-name: {(scow %ud count)} lines

33− :: ;button.copy-link(id "copy-link", hidden ""): copy link

34− :: ==

35− ;div.code

36− ;pre.gutter(id "gutter");

37− ;div.code-body

38− ;div(id "hl");

39− ;pre.code-pre(id "code"): {src}

40− ==

41− ==

42− ==

43− ;script: {script}

44− ==

45− ==

46− ::

47− :-

48− ^~ ^= style

49− ^- tape

50− %- trip

51− '''

52− :root {

53− --bg: #fbfbf9;

54− --panel: #ffffff;

55− --gutter-bg: #f3f3ef;

56− --line: #e4e4dd;

57− --fg: #2b2b2b;

58− --fg-dim: #9a9a90;

59− --sel: #fff7d6;

60− --sel-edge: #f1e4a8;

61− --accent: #4a6da7;

62− --lh: 20px;

63− --mono: ui-monospace, SFMono-Regular, "SF Mono", Menlo, Consolas,

64− "Liberation Mono", "Courier New", monospace;

65− }

66− * { box-sizing: border-box; }

67− html, body {

68− margin: 0;

69− height: 100%;

70− background: var(--bg);

71− color: var(--fg);

72− font-family: var(--mono);

73− -webkit-font-smoothing: antialiased;

74− }

75− .viewer {

76− height: 100vh;

77− display: flex;

78− flex-direction: column;

79− padding: 16px;

80− gap: 12px;

81− }

82− .viewer-bar {

83− flex: 0 0 auto;

84− display: flex;

85− align-items: center;

86− gap: 12px;

87− font-size: 13px;

88− color: var(--fg-dim);

89− }

90− .viewer-name {

91− flex: 1 1 auto;

92− min-width: 0;

93− overflow: hidden;

94− text-overflow: ellipsis;

95− white-space: nowrap;

96− color: var(--fg);

97− }

98− .copy-link {

99− flex: 0 0 auto;

100− padding: 4px 12px;

101− border: 1px solid var(--line);

102− border-radius: 6px;

103− background: var(--panel);

104− color: var(--fg-dim);

105− font: inherit;

106− font-size: 12px;

107− cursor: pointer;

108− transition: color .12s, border-color .12s;

109− }

110− .copy-link:hover { color: var(--accent); border-color: var(--accent); }

111− .copy-link[hidden] { display: none; }

112− .code {

113− flex: 1 1 auto;

114− min-height: 0;

115− display: flex;

116− align-items: flex-start;

117− overflow: auto;

118− background: var(--panel);

119− border: 1px solid var(--line);

120− border-radius: 8px;

121− }

122− .code-body {

123− position: relative;

124− flex: 1 1 auto;

125− min-width: 0;

126− width: max-content;

127− }

128− #gutter, #code {

129− margin: 0;

130− padding: 14px 0;

131− font-family: var(--mono);

132− font-size: 13px;

133− line-height: var(--lh);

134− white-space: pre;

135− tab-size: 2;

136− }

137− #gutter {

138− position: sticky;

139− left: 0;

140− z-index: 2;

141− flex: 0 0 auto;

142− padding-left: 16px;

143− padding-right: 12px;

144− text-align: right;

145− color: var(--fg-dim);

146− background: var(--gutter-bg);

147− border-right: 1px solid var(--line);

148− user-select: none;

149− -webkit-user-select: none;

150− cursor: pointer;

151− }

152− #code {

153− display: block;

154− padding-left: 14px;

155− padding-right: 18px;

156− color: var(--fg);

157− }

158− #hl {

159− position: absolute;

160− left: 0;

161− right: 0;

162− z-index: 0; /* under the text */

163− display: none;

164− background: var(--sel);

165− box-shadow: inset 2px 0 0 var(--sel-edge);

166− pointer-events: none;

167− }

168− #code { position: relative; z-index: 1; } /* text above the bar */

169− :focus-visible { outline: 2px solid var(--accent); outline-offset: -2px; }

170− '''

171− ^~ ^= code

172− ^- tape

173− %- trip

174− '''

175− (function () {

176− "use strict";

177− const panel = document.querySelector(".code"); // the scroll container

178− const code = document.getElementById("code");

179− const gutter = document.getElementById("gutter");

180− const hl = document.getElementById("hl");

181− if (!panel || !code || !gutter || !hl) return;

182− const text = code.textContent;

183− let lineCount = text.length ? text.split("\n").length : 1;

184− if (text.endsWith("\n")) lineCount -= 1;

185− if (lineCount < 1) lineCount = 1;

186− (function fillGutter() {

187− let s = "";

188− for (let i = 1; i <= lineCount; i++) s += i + "\n";

189− gutter.textContent = s;

190− })();

191− let lineH = 0;

192− let codeTop = 0; // code's content-box top padding, the y-origin of line 1

193− function measure() {

194− const cs = getComputedStyle(code);

195− const lh = parseFloat(cs.lineHeight);

196− lineH = isNaN(lh) ? parseFloat(cs.fontSize) * 1.55 : lh;

197− codeTop = parseFloat(cs.paddingTop) || 0;

198− positionHighlight(); // keep the bar correct after a re-measure

199− }

200− let anchor = null;

201− let selLo = 0;

202− let selHi = 0;

203− function positionHighlight() {

204− if (!selLo) { hl.style.display = "none"; return; }

205− hl.style.display = "block";

206− hl.style.top = (codeTop + (selLo - 1) * lineH) + "px";

207− hl.style.height = ((selHi - selLo + 1) * lineH) + "px";

208− }

209− function applySel(lo, hi) {

210− selLo = lo;

211− selHi = hi;

212− positionHighlight();

213− }

214− function deselect() {

215− selLo = selHi = 0;

216− anchor = null;

217− positionHighlight();

218− history.replaceState(null, "", location.pathname + location.search);

219− }

220− function parseHash(hash) {

221− const m = /^#L(\d+)(?:-L(\d+))?$/.exec(hash || "");

222− if (!m) return null;

223− let lo = parseInt(m[1], 10);

224− let hi = m[2] ? parseInt(m[2], 10) : lo;

225− if (hi < lo) { const t = lo; lo = hi; hi = t; }

226− lo = Math.max(1, Math.min(lo, lineCount));

227− hi = Math.max(1, Math.min(hi, lineCount));

228− return [lo, hi];

229− }

230− function setHash(lo, hi) {

231− const frag = lo === hi ? "L" + lo : "L" + lo + "-L" + hi;

232− history.replaceState(null, "", "#" + frag);

233− }

234− function scrollToLine(n) {

235− const y = codeTop + (n - 1) * lineH;

236− if (y < panel.scrollTop || y > panel.scrollTop + panel.clientHeight) {

237− panel.scrollTop = Math.max(0, y - panel.clientHeight / 2);

238− }

239− }

240− function selectFromHash(scroll) {

241− const r = parseHash(location.hash);

242− if (!r) return false;

243− anchor = r[0];

244− applySel(r[0], r[1]);

245− if (scroll) scrollToLine(r[0]);

246− return true;

247− }

248− function lineFromEvent(e) {

249− // y within the code content: pointer relative to the code pre's rendered

250− // top, which already accounts for scroll since getBoundingClientRect is

251− // viewport-relative and the pre moves as the panel scrolls.

252− const rect = code.getBoundingClientRect();

253− const y = e.clientY - rect.top - codeTop;

254− let n = Math.floor(y / lineH) + 1;

255− if (n < 1) n = 1;

256− if (n > lineCount) n = lineCount;

257− return n;

258− }

259− function onClick(e) {

260− const inGutter = e.target === gutter;

261− if (!inGutter && !e.shiftKey) return; // normal text interaction in code

262− const n = lineFromEvent(e);

263− if (!e.shiftKey && selLo === n && selHi === n) {

264− deselect();

265− return;

266− }

267− if (e.shiftKey && anchor !== null) {

268− applySel(Math.min(anchor, n), Math.max(anchor, n));

269− setHash(selLo, selHi);

270− } else {

271− anchor = n;

272− applySel(n, n);

273− setHash(n, n);

274− }

275− }

276− gutter.addEventListener("click", onClick);

277− code.addEventListener("click", onClick);

278− document.addEventListener("keydown", function (e) {

279− if (e.key === "Escape") deselect();

280− });

281− window.addEventListener("hashchange", function () {

282− if (!selectFromHash(true)) deselect();

283− });

284− let rz = null;

285− window.addEventListener("resize", function () {

286− clearTimeout(rz);

287− rz = setTimeout(measure, 100);

288− });

289− measure();

290− selectFromHash(true);

291− })();

292− '''

293− ++ txt

294− (to-wain:format own)

295− --

296−++ grab

297− |% :: convert from

298− ++ mime |=([p=mite q=octs] q.q)

299− ++ noun @t :: clam from %noun

300− ++ txt of-wain:format

301− --

302−++ grad %txt

303−--

base-desk/mar/htm.hoondeleted−6

@@ -1,6 +0,0 @@

1−::

2−:::: /hoon/htm/mar

3− ::

4−/? 310

5−/= htm /mar/html

6−htm

base-desk/mar/html.hoondeleted−22

@@ -1,22 +0,0 @@

1−::

2−:::: /hoon/html/mar

3− ::

4−/? 310

5− ::

6−:::: compute

7− ::

8−=, html

9−|_ htm=@t

10−++ grow :: convert to

11− ^?

12− |% ::

13− ++ mime [/text/html (met 3 htm) htm] :: to %mime

14− ++ hymn (need (de-xml htm)) :: to %hymn

15− -- ::

16−++ grab ^?

17− |% :: convert from

18− ++ noun @t :: clam from %noun

19− ++ mime |=([p=mite q=octs] q.q) :: retrieve form %mime

20− --

21−++ grad %mime

22−--

base-desk/mar/httr.hoondeleted−24

@@ -1,24 +0,0 @@

1−::

2−:::: /hoon/httr/mar

3− ::

4−/? 310

5−::

6−=, eyre

7−=, format

8−|_ hit=httr

9−++ grad %noun

10−++ grow |% ++ wall (turn wain trip)

11− ++ wain (to-wain cord)

12− ++ json (need (de:json:html cord))

13− ++ cord q:octs

14− ++ noun hit

15− ++ octs

16− ~| hit

17− ?> =(2 (div p.hit 100))

18− (need r.hit)

19− --

20−++ grab :: convert from

21− |%

22− ++ noun httr :: clam from %noun

23− --

24−--

base-desk/mar/hymn.hoondeleted−17

@@ -1,17 +0,0 @@

1−::

2−:::: /hoon/hymn/mar

3− ::

4−/? 310

5−=, mimes:html

6−=, html

7−|_ own=manx

8−::

9−++ grad %noun

10−++ grow :: convert to

11− |%

12− ++ html (crip (en-xml own)) :: convert to %html

13− ++ mime [/text/html (as-octs html)] :: convert to %mime

14− --

15−++ grab |% :: convert from

16− ++ noun manx :: clam from %noun

17−-- --

base-desk/mar/js.hoondeleted−25

@@ -1,25 +0,0 @@

1−::

2−:::: /hoon/js/mar

3− ::

4−/? 310

5−::

6−=, eyre

7−|_ mud=@

8−++ grow

9− |%

10− ++ mime [/application/javascript (as-octs:mimes:html (@t mud))]

11− ++ hymn :: convert to %hymn

12− |^ html

13− ++ script ;script

14− ;- (trip (@t mud))

15− ==

16− ++ html ;html:(head:"{script}" body)

17− --

18− --

19−++ grab

20− |% :: convert from

21− ++ mime |=([p=mite q=octs] (@t q.q))

22− ++ noun cord :: clam from %noun

23− --

24−++ grad %mime

25−--

base-desk/mar/json.hoondeleted−26

@@ -1,26 +0,0 @@

1−::

2−:::: /hoon/json/mar

3− ::

4−/? 310

5− ::

6−:::: compute

7− ::

8−=, eyre

9−=, format

10−=, html

11−|_ jon=^json

12−::

13−++ grow :: convert to

14− |%

15− ++ mime [/application/json (as-octs:mimes -:txt)] :: convert to %mime

16− ++ txt [(en:json jon)]~

17− --

18−++ grab

19− |% :: convert from

20− ++ mime |=([p=mite q=octs] (fall (de:json (@t q.q)) *^json))

21− ++ noun ^json :: clam from %noun

22− ++ numb numb:enjs

23− ++ time time:enjs

24− --

25−++ grad %mime

26−--

base-desk/mar/json/rpc/response.hoondeleted−42

@@ -1,42 +0,0 @@

1−::

2−/- *json-rpc

3−::

4−|_ res=response

5−::

6−++ grad %noun

7−++ grow

8− |%

9− ++ noun res

10− --

11−++ grab :: convert from

12− |%

13− ++ noun response :: from noun

14− ++ httr :: from httr

15− |= hit=httr:eyre

16− ^- response

17− ~| hit

18− ?: ?=(%2 (div p.hit 100))

19− %- json

20− ?~ r.hit

21− a+~

22− (need (de:json:html q:u.r.hit))

23− fail+hit

24− ++ json :: from json

25− =, dejs-soft:format

26− |= a=json

27− ^- response

28− =; dere

29− =+ res=((ar dere) a)

30− ?~ res (need (dere a))

31− [%batch u.res]

32− |= a=json

33− ^- (unit response)

34− =/ res=(unit [@t json])

35− ::TODO breaks when no id present

36− ((ot id+so result+some ~) a)

37− ?^ res `[%result u.res]

38− ~| a

39− :+ ~ %error %- need

40− ((ot id+so error+(ot code+no message+so ~) ~) a)

41− --

42−--

base-desk/mar/kelvin.hoondeleted−28

@@ -1,28 +0,0 @@

1−|_ kal=waft:clay

2−++ grow

3− |%

4− ++ mime `^mime`[/text/x-kelvin (as-octs:mimes:html hoon)]

5− ++ noun kal

6− ++ hoon

7− %+ rap 3

8− %+ turn

9− %+ sort

10− ~(tap in (waft-to-wefts:clay kal))

11− |= [a=weft b=weft]

12− ?: =(lal.a lal.b)

13− (gte num.a num.b)

14− (gte lal.a lal.b)

15− |= =weft

16− (rap 3 '[%' (scot %tas lal.weft) ' ' (scot %ud num.weft) ']\0a' ~)

17− ::

18− ++ txt (to-wain:format hoon)

19− --

20−++ grab

21− |%

22− ++ noun waft:clay

23− ++ mime

24− |= [=mite len=@ud tex=@]

25− (cord-to-waft:clay tex)

26− --

27−++ grad %noun

28−--

base-desk/mar/language-server/rpc/notification.hoondeleted−18

@@ -1,18 +0,0 @@

1−/- *language-server

2−/+ lsp-json=language-server-json

3−|_ not=all:notification

4−++ grad %noun

5−++ grab

6− |%

7− ++ noun all:notification

8− ++ json

9− |= jon=^json

10− (notification:dejs:lsp-json jon)

11− --

12−++ grow

13− |%

14− ++ noun not

15− ++ json

16− (notification:enjs:lsp-json not)

17− --

18−--

base-desk/mar/language-server/rpc/request.hoondeleted−16

@@ -1,16 +0,0 @@

1−/- *language-server

2−/+ lsp-json=language-server-json

3−|_ req=all:request

4−++ grad %noun

5−++ grow

6− |%

7− ++ noun req

8− --

9−++ grab

10− |%

11− ++ noun all:request

12− ++ json

13− |= jon=^json

14− (request:dejs:lsp-json jon)

15− --

16−--

base-desk/mar/language-server/rpc/response.hoondeleted−17

@@ -1,17 +0,0 @@

1−/- *language-server

2−/+ lsp=language-server-json

3−|_ res=all:response

4−::

5−++ grad %noun

6−++ grow

7− |%

8− ++ noun res

9− ++ json (response:enjs:lsp res)

10− --

11−::

12−++ grab

13− |%

14− ++ noun all:response

15− --

16−::

17−--

base-desk/mar/mime.hoondeleted−32

@@ -1,32 +0,0 @@

1−::

2−:::: /hoon/mime/mar

3− ::

4−/? 310

5−::

6−|_ own=mime

7−++ grow

8− ^?

9− |%

10− ++ jam `@`q.q.own

11− --

12−::

13−++ grab :: convert from

14− ^?

15− |%

16− ++ noun mime :: clam from %noun

17− ++ tape

18− |=(a=_"" [/application/x-urb-unknown (as-octt:mimes:html a)])

19− --

20−++ grad

21− ^?

22− |%

23− ++ form %mime

24− ++ diff |=(mime +<)

25− ++ pact |=(mime +<)

26− ++ join |=([mime mime] `(unit mime)`~)

27− ++ mash

28− |= [[ship desk mime] [ship desk mime]]

29− ^- mime

30− ~|(%mime-mash !!)

31− --

32−--

base-desk/mar/noun.hoondeleted−22

@@ -1,22 +0,0 @@

1−::

2−:::: /hoon/noun/mar

3− ::

4−/? 310

5−!:

6−:::: A minimal noun mark

7−|_ non=*

8−++ grab |%

9− ++ noun *

10− --

11−++ grow |%

12− ++ mime [/application/x-urb-jam (as-octs:mimes:html (jam non))]

13− --

14−++ grad

15− |%

16− ++ form %noun

17− ++ diff |=(* +<)

18− ++ pact |=(* +<)

19− ++ join |=([* *] *(unit *))

20− ++ mash |=([[ship desk *] [ship desk *]] `*`~|(%noun-mash !!))

21− --

22−--

base-desk/mar/path.hoondeleted−11

@@ -1,11 +0,0 @@

1−|_ pax=path

2−++ grad %noun

3−++ grow

4− |%

5− ++ noun pax

6− --

7−++ grab

8− |%

9− ++ noun path

10− --

11−--

base-desk/mar/png.hoondeleted−12

@@ -1,12 +0,0 @@

1−|_ dat=@

2−++ grow

3− |%

4− ++ mime [/image/png (as-octs:mimes:html dat)]

5− --

6−++ grab

7− |%

8− ++ mime |=([p=mite q=octs] q.q)

9− ++ noun @

10− --

11−++ grad %mime

12−--

base-desk/mar/purl.hoondeleted−18

@@ -1,18 +0,0 @@

1−::

2−:::: /hoon/purl/mar

3− ::

4−/? 310

5−=, eyre

6−|_ url=purl

7−++ grad %noun

8−::

9−++ grow

10− |%

11− ++ noun url

12− ++ hiss [url %get ~ ~]

13− --

14−++ grab :: convert from

15− |%

16− ++ noun purl :: clam from %noun

17− --

18−--

base-desk/mar/ship.hoondeleted−20

@@ -1,20 +0,0 @@

1−|_ s=ship

2−++ grad %noun

3−++ grow

4− |%

5− ++ noun s

6− ++ json s+(scot %p s)

7− ++ mime

8− ^- ^mime

9− [/text/x-ship (as-octt:mimes:html (scow %p s))]

10−

11− --

12−++ grab

13− |%

14− ++ noun ship

15− ++ json (su:dejs:format ;~(pfix sig fed:ag))

16− ++ mime

17− |= [=mite len=@ tex=@]

18− (slav %p (snag 0 (to-wain:format tex)))

19− --

20−--

base-desk/mar/sole/action.hoondeleted−52

@@ -1,52 +0,0 @@

1−::

2−:::: /hoon/action/sole/mar

3− ::

4−/? 310

5−/- sole

6−::

7−::::

8− ::

9−=, sole

10−|_ sole-action

11−::

12−++ grad %noun

13−++ grow

14− |%

15− ++ noun +<.grad

16− --

17−++ grab :: convert from

18− |%

19− ++ json

20− |= jon=^json ^- sole-action

21− %- need %. jon

22− => [dejs-soft:format ..sole-action]

23− |^ (ot id+id dat+(fo %ret (of det+change tab+ni ~)) ~)

24− ++ id

25− (ot who+(su ;~(pfix sig fed:ag)) ses+so ~)

26− ++ fo

27− |* [a=term b=fist]

28− |=(c=json ?.(=([%s a] c) (b c) (some [a ~])))

29− ::

30− ++ ra

31− |* [a=[term fist] b=fist]

32− |= c=json %. c

33− ?.(=(%a -.c) b (pe -.a (ar +.a)))

34− ::

35− ++ ke :: callbacks

36− |* [gar=* sef=(trap fist)]

37− |= jon=json ^- (unit _gar)

38− =- ~! gar ~! (need -) -

39− ((sef) jon)

40− ::

41− ++ change (ot ler+(at ni ni ~) ted+(pe 0v0 edit) ~)

42− ++ char (cu taft so)

43− ++ edit

44− %+ ke *sole-edit |. ~+

45− %+ fo %nop

46− %+ ra mor+edit

47− (of del+ni set+(cu tuba sa) ins+(ot at+ni cha+char ~) ~)

48− --

49− ::

50− ++ noun sole-action :: clam from %noun

51− --

52−--

base-desk/mar/sole/effect.hoondeleted−82

@@ -1,82 +0,0 @@

1−::

2−:::: /hoon/effect/sole/mar

3− ::

4−/? 310

5−/- sole

6−!:

7−::

8−::::

9− ::

10−=, sole

11−=, format

12−|%

13−++ mar-sole-change :: XX dependency

14− |_ cha=sole-change

15− ++ grow

16− |% ++ json

17− ^- ^json

18− =, enjs

19− =; edi

20− =,(cha (pairs ted+(edi ted) ler+a+~[(numb own.ler) (numb his.ler)] ~))

21− |= det=sole-edit

22− ?- -.det

23− %nop [%s 'nop']

24− %mor [%a (turn p.det ..$)]

25− %del (frond %del (numb p.det))

26− %set (frond %set (tape (tufa p.det)))

27− %ins (frond %ins (pairs at+(numb p.det) cha+s+(tuft q.det) ~))

28− ==

29− --

30− --

31−++ wush

32− |= [wid=@u tan=tang]

33− ^- tape

34− (of-wall (turn (flop tan) |=(a=tank (of-wall (wash 0^wid a)))))

35−::

36−++ purge :: discard ++styx style

37− |= a=styx ^- tape

38− %- zing %+ turn a

39− |= a=_?>(?=(^ a) i.a)

40− ?@(a (trip a) ^$(a q.a))

41−--

42−::

43−|_ sef=sole-effect

44−::

45−++ grad %noun

46−++ grab :: convert from

47− |%

48− ++ noun sole-effect :: clam from %noun

49− --

50−++ grow

51− =, enjs

52− |%

53− ++ noun sef

54− ++ json

55− ^- ^json

56− ?+ -.sef

57− ~|(unsupported-effect+-.sef !!)

58− %mor [%a (turn p.sef |=(a=sole-effect json(sef a)))]

59− %err (frond %hop (numb p.sef))

60− %txt (frond %txt (tape p.sef))

61− %tan (frond %tan (tape (wush 160 p.sef)))

62− %det (frond %det json:~(grow mar-sole-change +.sef))

63− ::

64− %pro

65− %+ frond %pro

66− (pairs vis+b+vis.sef tag+s+tag.sef cad+(tape (purge cad.sef)) ~)

67− ::

68− %tab

69− :- %a

70− %+ turn p.sef

71− |= [=cord =^tank]

72− %+ frond %tab

73− %- pairs

74− :~ match+s+cord

75− info+(tape ~(ram re tank))

76− ==

77− ::

78− ?(%bel %clr %nex %bye)

79− (frond %act %s -.sef)

80− ==

81− --

82−--

base-desk/mar/story-diff.hoondeleted−16

@@ -1,16 +0,0 @@

1−::

2−::::

3− ::

4−/- *story

5−|_ =story-diff

6−::

7−++ grad %noun

8−++ grow

9− |%

10− ++ noun story-diff

11− --

12−++ grab :: convert from

13− |%

14− ++ noun ^story-diff :: make from %noun

15− --

16−--

base-desk/mar/story.hoondeleted−65

@@ -1,65 +0,0 @@

1−/- *story

2−/+ *story

3−|_ tale=story

4−++ grad

5− |%

6− ++ form %story-diff

7− ++ diff

8− |= tory=story

9− ^- story-diff

10− :: Given new story (tory), old story (tale), compute the diff

11− :: additions = new - old

12− :: deletions = old - new

13− [(dif-ju tory tale) (dif-ju tale tory)]

14− ++ pact

15− |= dif=story-diff

16− :: Compute the new story after applying dif to tale.

17− ::

18− ^- story

19− =. tale (uni-ju tale additions.dif)

20− =. tale (dif-ju tale deletions.dif)

21− tale

22− ++ join

23− |= [ali=story-diff bob=story-diff]

24− ^- (unit story-diff)

25− =/ joined-additions (uni-ju additions.ali additions.bob)

26− =/ joined-deletions (uni-ju deletions.ali deletions.bob)

27− ::

28− :: In a true join, we'd do a set intersection on the keys.

29− :: If they're not equal, we have a conflict.

30− :: In this case, we'd produce null and kick the flow to +mash

31− ::

32− %- some

33− [joined-additions joined-deletions]

34− ++ mash

35− :: called by meld, force merge, annotating conflicts

36− |= $: [als=ship ald=desk ali=story-diff]

37− [bos=ship bod=desk bob=story-diff]

38− ==

39− ^- story-diff

40− (need (join ali bob)) :: XX temporary, only because join doesn't fail

41− --

42−::

43−++ grow :: convert to

44− |% ::

45− ++ mime :: to %mime

46− [/text/x-urb-story (as-octs:mimes:html (of-wain:format txt))]

47− ++ txt

48− ^- wain

49− %- zing

50− %+ join `wain`~['---']

51− %+ murn ~(tap by tale)

52− |= [=tako:clay =proses]

53− ^- (unit wain)

54− ?~ proses ~

55− (some (chapter-to-text tako proses))

56− --

57−++ grab

58− |% :: convert from

59− ++ noun story :: clam from %noun

60− ++ mime :: retrieve from %mime

61− |= [p=mite q=octs]

62− =/ story-text `@t`q.q

63− `story`(rash story-text parse-story)

64− --

65−--

base-desk/mar/svg.hoondeleted−12

@@ -1,12 +0,0 @@

1−|_ dat=@

2−++ grow

3− |%

4− ++ mime [/image/'svg+xml' (as-octs:mimes:html dat)]

5− --

6−++ grab

7− |%

8− ++ mime |=([p=mite q=octs] q.q)

9− ++ noun @

10− --

11−++ grad %mime

12−--

base-desk/mar/tang.hoondeleted−30

@@ -1,30 +0,0 @@

1−::

2−:::: /hoon/tang/mar

3− ::

4−/? 310

5−::

6−=, format

7−|_ tan=(list tank)

8−++ grad %noun

9−++ grow

10− |%

11− ++ noun tan

12− ++ json

13− =/ result=(each (list ^json) tang)

14− (mule |.((turn tan tank:enjs:format)))

15− ?- -.result

16− %& a+p.result

17− %| a+[a+[%s '[[output rendering error]]']~]~

18− ==

19− ++ txt

20− ^- wain

21− %+ turn (flop tan)

22− |=(=tank (crip ~(ram re tank)))

23− --

24−++ grab :: convert from

25− |%

26− ++ noun (list ^tank) :: clam from %noun

27− ++ tank |=(a=^tank [a]~)

28− ++ txt |=(=wain (flop (turn wain tank)))

29− --

30−--

base-desk/mar/tape.hoondeleted−12

@@ -1,12 +0,0 @@

1−|_ tap=tape

2−++ grad %noun

3−++ grow

4− |%

5− ++ noun tap

6− ++ json s+(crip tap)

7− --

8−++ grab

9− |%

10− ++ noun tape

11− --

12−--

base-desk/mar/thread-done.hoondeleted−11

@@ -1,11 +0,0 @@

1−|_ res=*

2−++ grab

3− |%

4− ++ noun *

5− --

6−++ grow

7− |%

8− ++ noun res

9− --

10−++ grad %noun

11−--

base-desk/mar/thread-fail.hoondeleted−11

@@ -1,11 +0,0 @@

1−|_ err=[term tang]

2−++ grab

3− |%

4− ++ noun (pair term tang)

5− --

6−++ grow

7− |%

8− ++ noun err

9− --

10−++ grad %noun

11−--

base-desk/mar/txt-diff.hoondeleted−16

@@ -1,16 +0,0 @@

1−::

2−:::: /hoon/txt-diff/mar

3− ::

4−/? 310

5−|_ txt-diff=(urge:clay cord)

6−::

7−++ grad %noun

8−++ grow

9− |%

10− ++ noun txt-diff

11− --

12−++ grab :: convert from

13− |%

14− ++ noun (urge:clay cord) :: make from %noun

15− --

16−--

base-desk/mar/txt.hoondeleted−274

@@ -1,274 +0,0 @@

1−::

2−:::: /hoon/txt/mar

3− ::

4−/? 310

5−::

6−=, clay

7−=, differ

8−=, format

9−=, mimes:html

10−|_ txt=wain

11−::

12−++ grab :: convert from

13− |%

14− ++ mime |=((pair mite octs) (to-wain q.q))

15− ++ noun wain :: clam from %noun

16− --

17−++ grow

18− => v=.

19− |%

20− ++ mime => v [/text/plain (as-octs (of-wain txt))]

21− --

22−++ grad

23− |%

24− ++ form %txt-diff

25− ++ diff

26− |= tyt=wain

27− ^- (urge cord)

28− (lusk txt tyt (loss txt tyt))

29− ::

30− ++ pact

31− |= dif=(urge cord)

32− ~| [%pacting dif]

33− ^- wain

34− (lurk txt dif)

35− ::

36− ++ join

37− |= [ali=(urge cord) bob=(urge cord)]

38− ^- (unit (urge cord))

39− |^

40− =. ali (clean ali)

41− =. bob (clean bob)

42− |- ^- (unit (urge cord))

43− ?~ ali `bob

44− ?~ bob `ali

45− ?- -.i.ali

46− %&

47− ?- -.i.bob

48− %&

49− ?: =(p.i.ali p.i.bob)

50− %+ bind $(ali t.ali, bob t.bob)

51− |=(cud=(urge cord) [i.ali cud])

52− ?: (gth p.i.ali p.i.bob)

53− %+ bind $(p.i.ali (sub p.i.ali p.i.bob), bob t.bob)

54− |=(cud=(urge cord) [i.bob cud])

55− %+ bind $(ali t.ali, p.i.bob (sub p.i.bob p.i.ali))

56− |=(cud=(urge cord) [i.ali cud])

57− ::

58− %|

59− ?: =(p.i.ali (lent p.i.bob))

60− %+ bind $(ali t.ali, bob t.bob)

61− |=(cud=(urge cord) [i.bob cud])

62− ?: (gth p.i.ali (lent p.i.bob))

63− %+ bind $(p.i.ali (sub p.i.ali (lent p.i.bob)), bob t.bob)

64− |=(cud=(urge cord) [i.bob cud])

65− ~

66− ==

67− ::

68− %|

69− ?- -.i.bob

70− %|

71− ?. =(i.ali i.bob)

72− ~

73− %+ bind $(ali t.ali, bob t.bob)

74− |=(cud=(urge cord) [i.ali cud])

75− ::

76− %&

77− ?: =(p.i.bob (lent p.i.ali))

78− %+ bind $(ali t.ali, bob t.bob)

79− |=(cud=(urge cord) [i.ali cud])

80− ?: (gth p.i.bob (lent p.i.ali))

81− %+ bind $(ali t.ali, p.i.bob (sub p.i.bob (lent p.i.ali)))

82− |=(cud=(urge cord) [i.ali cud])

83− ~

84− ==

85− ==

86− ++ clean :: clean

87− |= wig=(urge cord)

88− ^- (urge cord)

89− ?~ wig ~

90− ?~ t.wig wig

91− ?: ?=(%& -.i.wig)

92− ?: ?=(%& -.i.t.wig)

93− $(wig [[%& (add p.i.wig p.i.t.wig)] t.t.wig])

94− [i.wig $(wig t.wig)]

95− ?: ?=(%| -.i.t.wig)

96− $(wig [[%| (welp p.i.wig p.i.t.wig) (welp q.i.wig q.i.t.wig)] t.t.wig])

97− [i.wig $(wig t.wig)]

98− --

99− ::

100− ++ mash

101− |= $: [als=ship ald=desk ali=(urge cord)]

102− [bos=ship bod=desk bob=(urge cord)]

103− ==

104− ^- (urge cord)

105− |^

106− =. ali (clean ali)

107− =. bob (clean bob)

108− |- ^- (urge cord)

109− ?~ ali bob

110− ?~ bob ali

111− ?- -.i.ali

112− %&

113− ?- -.i.bob

114− %&

115− ?: =(p.i.ali p.i.bob)

116− [i.ali $(ali t.ali, bob t.bob)]

117− ?: (gth p.i.ali p.i.bob)

118− [i.bob $(p.i.ali (sub p.i.ali p.i.bob), bob t.bob)]

119− [i.ali $(ali t.ali, p.i.bob (sub p.i.bob p.i.ali))]

120− ::

121− %|

122− ?: =(p.i.ali (lent p.i.bob))

123− [i.bob $(ali t.ali, bob t.bob)]

124− ?: (gth p.i.ali (lent p.i.bob))

125− [i.bob $(p.i.ali (sub p.i.ali (lent p.i.bob)), bob t.bob)]

126− =/ [fic=(unce cord) ali=(urge cord) bob=(urge cord)]

127− (resolve ali bob)

128− [fic $(ali ali, bob bob)]

129− :: ~ :: here, alice is good for a while, but not for the whole

130− == :: length of bob's changes

131− ::

132− %|

133− ?- -.i.bob

134− %|

135− =/ [fic=(unce cord) ali=(urge cord) bob=(urge cord)]

136− (resolve ali bob)

137− [fic $(ali ali, bob bob)]

138− ::

139− %&

140− ?: =(p.i.bob (lent p.i.ali))

141− [i.ali $(ali t.ali, bob t.bob)]

142− ?: (gth p.i.bob (lent p.i.ali))

143− [i.ali $(ali t.ali, p.i.bob (sub p.i.bob (lent p.i.ali)))]

144− =/ [fic=(unce cord) ali=(urge cord) bob=(urge cord)]

145− (resolve ali bob)

146− [fic $(ali ali, bob bob)]

147− ==

148− ==

149− ::

150− ++ annotate :: annotate conflict

151− |= $: ali=(list @t)

152− bob=(list @t)

153− bas=(list @t)

154− ==

155− ^- (list @t)

156− %- zing

157− ^- (list (list @t))

158− %- flop

159− ^- (list (list @t))

160− :- :_ ~

161− %^ cat 3 '<<<<<<<<<<<<'

162− %^ cat 3 ' '

163− %^ cat 3 `@t`(scot %p bos)

164− %^ cat 3 '/'

165− bod

166−

167− :- bob

168− :- ~['------------']

169− :- bas

170− :- ~['++++++++++++']

171− :- ali

172− :- :_ ~

173− %^ cat 3 '>>>>>>>>>>>>'

174− %^ cat 3 ' '

175− %^ cat 3 `@t`(scot %p als)

176− %^ cat 3 '/'

177− ald

178− ~

179− ::

180− ++ clean :: clean

181− |= wig=(urge cord)

182− ^- (urge cord)

183− ?~ wig ~

184− ?~ t.wig wig

185− ?: ?=(%& -.i.wig)

186− ?: ?=(%& -.i.t.wig)

187− $(wig [[%& (add p.i.wig p.i.t.wig)] t.t.wig])

188− [i.wig $(wig t.wig)]

189− ?: ?=(%| -.i.t.wig)

190− $(wig [[%| (welp p.i.wig p.i.t.wig) (welp q.i.wig q.i.t.wig)] t.t.wig])

191− [i.wig $(wig t.wig)]

192− ::

193− ++ resolve

194− |= [ali=(urge cord) bob=(urge cord)]

195− ^- [fic=[%| p=(list cord) q=(list cord)] ali=(urge cord) bob=(urge cord)]

196− =- [[%| bac (annotate alc boc bac)] ali bob]

197− |- ^- $: $: bac=(list cord)

198− alc=(list cord)

199− boc=(list cord)

200− ==

201− ali=(urge cord)

202− bob=(urge cord)

203− ==

204− ?~ ali [[~ ~ ~] ali bob]

205− ?~ bob [[~ ~ ~] ali bob]

206− ?- -.i.ali

207− %&

208− ?- -.i.bob

209− %& [[~ ~ ~] ali bob] :: no conflict

210− %|

211− =+ lob=(lent p.i.bob)

212− ?: =(lob p.i.ali)

213− [[p.i.bob p.i.bob q.i.bob] t.ali t.bob]

214− ?: (lth lob p.i.ali)

215− [[p.i.bob p.i.bob q.i.bob] [[%& (sub p.i.ali lob)] t.ali] t.bob]

216− =+ wat=(scag (sub lob p.i.ali) p.i.bob)

217− =+ ^= res

218− %= $

219− ali t.ali

220− bob [[%| (scag (sub lob p.i.ali) p.i.bob) ~] t.bob]

221− ==

222− :* :* (welp bac.res wat)

223− (welp alc.res wat)

224− (welp boc.res q.i.bob)

225− ==

226− ali.res

227− bob.res

228− ==

229− ==

230− ::

231− %|

232− ?- -.i.bob

233− %&

234− =+ loa=(lent p.i.ali)

235− ?: =(loa p.i.bob)

236− [[p.i.ali q.i.ali p.i.ali] t.ali t.bob]

237− ?: (lth loa p.i.bob)

238− [[p.i.ali q.i.ali p.i.ali] t.ali [[%& (sub p.i.bob loa)] t.bob]]

239− =+ wat=(slag (sub loa p.i.bob) p.i.ali)

240− =+ ^= res

241− %= $

242− ali [[%| (scag (sub loa p.i.bob) p.i.ali) ~] t.ali]

243− bob t.bob

244− ==

245− :* :* (welp bac.res wat)

246− (welp alc.res q.i.ali)

247− (welp boc.res wat)

248− ==

249− ali.res

250− bob.res

251− ==

252− ::

253− %|

254− =+ loa=(lent p.i.ali)

255− =+ lob=(lent p.i.bob)

256− ?: =(loa lob)

257− [[p.i.ali q.i.ali q.i.bob] t.ali t.bob]

258− =+ ^= res

259− ?: (gth loa lob)

260− $(ali [[%| (scag (sub loa lob) p.i.ali) ~] t.ali], bob t.bob)

261− ~& [%scagging loa=loa pibob=p.i.bob slag=(scag loa p.i.bob)]

262− $(ali t.ali, bob [[%| (scag (sub lob loa) p.i.bob) ~] t.bob])

263− :* :* (welp bac.res ?:((gth loa lob) p.i.bob p.i.ali))

264− (welp alc.res q.i.ali)

265− (welp boc.res q.i.bob)

266− ==

267− ali.res

268− bob.res

269− ==

270− ==

271− ==

272− --

273− --

274−--

base-desk/mar/udon.hoondeleted−27

@@ -1,27 +0,0 @@

1−::

2−:::: /hoon/udon/mar

3− ::

4−/+ cram

5−::

6−|_ mud=@t

7−++ grow

8− |%

9− ++ mime [/text/x-unmark (as-octs:mimes:html mud)]

10− ++ txt

11− (to-wain:format mud)

12− ++ front :: XX performance, types

13− ^- (map term knot)

14− %- ~(run by inf:(static:cram (ream mud)))

15− |= a=dime ^- cord

16− ?+ (end 3 p.a) (scot a)

17− %t q.a

18− ==

19− --

20−++ grab

21− |%

22− ++ mime |=((pair mite octs) q.q)

23− ++ noun @t

24− ++ txt of-wain:format

25− --

26−++ grad %txt

27−--

base-desk/mar/umd.hoondeleted−28

@@ -1,28 +0,0 @@

1−::

2−:::: /hoon/umd/mar

3− ::

4−/+ cram

5−::

6−|_ mud=@t

7−++ grow

8− |%

9− ++ mime [/text/x-unmark (as-octs:mimes:html mud)]

10− ++ txt

11− (to-wain:format mud)

12− ++ front :: XX performance, types

13− ^- (map term knot)

14− %- ~(run by inf:(static:cram (ream mud)))

15− |= a=dime ^- cord

16− ?+ (end 3 p.a) (scot a)

17− %t q.a

18− ==

19− --

20−++ grab

21− |%

22− ++ mime |=((pair mite octs) q.q)

23− ++ noun @t

24− ++ txt of-wain:format

25− --

26−++ grad %txt

27−++ garb /down

28−--

base-desk/mar/urb.hoondeleted−18

@@ -1,18 +0,0 @@

1−::

2−:::: /hoon/urb/mar

3− ::

4−/? 310

5−=, mimes:html

6−=, html

7−|_ own=manx

8−::

9−++ grad %noun

10−++ grow :: convert to

11− |%

12− ++ hymn ;html:(head body:"+{own}") :: convert to %hymn

13− ++ html (crip (en-xml hymn)) :: convert to %html

14− ++ mime [/text/html (as-octs html)] :: convert to %mime

15− --

16−++ grab |% :: convert from

17− ++ noun manx :: clam from %noun

18−-- --

base-desk/mar/urbit.hoondeleted−17

@@ -1,17 +0,0 @@

1−::

2−:::: /hoon/urbit/mar

3− ::

4−/? 310

5−:::: A minimal urbit mark

6−::

7−|_ her=@p

8−++ grab

9− |%

10− ++ noun @p

11− --

12−++ grow

13− |%

14− ++ noun her

15− --

16−++ grad %noun

17−--

base-desk/mar/woff2.hoondeleted−12

@@ -1,12 +0,0 @@

1−|_ dat=octs

2−++ grow

3− |%

4− ++ mime [/font/woff2 dat]

5− --

6−++ grab

7− |%

8− ++ mime |=([=mite =octs] octs)

9− ++ noun octs

10− --

11−++ grad %mime

12−--

base-desk/mar/xml.hoondeleted−21

@@ -1,21 +0,0 @@

1−::

2−:::: /hoon/xml/mar

3− ::

4−/? 310

5− ::

6−:::: compute

7− ::

8−=, mimes:html

9−=, html

10−|_ xml=@t

11−::

12−++ grad %mime

13−++ grow :: convert to

14− |% ::

15− ++ mime [/application/xml (as-octs xml)] :: to %mime

16− ++ hymn (need (de-xml xml)) :: to %hymn

17− -- ::

18−++ grab |% :: convert from

19− ++ noun @t :: clam from %noun

20− ++ mime |=([p=mite q=octs] q.q) :: retrieve form %mime

21−-- --

base-desk/sources.txtdeleted−3

@@ -1,3 +0,0 @@

1−urbit-src/pkg/base-dev

2−urbit-src/pkg/landscape

3−urbit-src/pkg/arvo

base-desk/sur/aquarium.hoondeleted−89

@@ -1,89 +0,0 @@

1−:: Traditionally, ovo refers to an ovum -- (pair wire card) -- and ova

2−:: refers to a list of them. We have several versions of each of these

3−:: depending on context, so we do away with that naming scheme and use

4−:: the following naming scheme.

5−::

6−:: Every card is either an `event` or an `effect`. Prepended to this

7−:: is `unix` if it has no ship associated with it, or `aqua` if it

8−:: does. `timed` is added if it includes the time of the event.

9−::

10−:: Short names are simply the first letter of each word plus `s` if

11−:: it's a list.

12−::

13−|%

14−+$ az-log [topics=(lest @) data=@t]

15−+$ az-state

16− $: logs=(list az-log)

17− lives=(map ship [lyfe=life rut=rift])

18− tym=@da

19− ==

20−++ ph-event

21− $% [%test-done p=?]

22− aqua-event

23− ==

24−::

25−+$ unix-event ::NOTE like unix-event:pill-lib but for all tasks

26− %+ pair wire

27− $% [%wack p=@]

28− [%what p=(list (pair path (cask)))]

29− [%whom p=ship]

30− [%boot ? $%($>(%fake task:jael) $>(%dawn task:jael))]

31− [%wyrd p=vere]

32− [%verb p=(unit ?)]

33− task-arvo

34− ==

35−::

36−+$ aqua-event

37− $% [%init-ship who=ship fake=? feed=(unit feed:jael)]

38− [%pause-events who=ship]

39− [%snap-ships lab=term hers=(list ship)]

40− [%restore-snap lab=term]

41− [%read [from=[=ship life=@ubC] =path] for=[=lane:ames life=@ubC] num=@ud]

42− [%event who=ship ue=unix-event]

43− ==

44−::

45−+$ azimuth-action

46− $% [%init-azimuth ~]

47− [%spawn who=ship]

48− [%breach who=ship]

49− ==

50−::

51−+$ aqua-effects

52− [who=ship ufs=(list unix-effect)]

53−::

54−+$ aqua-effect

55− [who=ship ufs=unix-effect]

56−::

57−+$ aqua-events

58− [who=ship utes=(list unix-timed-event)]

59−::

60−+$ aqua-boths

61− [who=ship ub=(list unix-both)]

62−::

63−+$ unix-both

64− $% [%event unix-timed-event]

65− [%effect unix-effect]

66− ==

67−::

68−+$ unix-timed-event [tym=@da ue=unix-event]

69−::

70−+$ unix-effect

71− %+ pair wire

72− $% [%blit p=(list blit:dill)]

73− [%send p=lane:ames q=@]

74− [%push p=(list lane:pact:ames) q=@]

75− [%saxo sponsors=(list ship)]

76− [%nail =ship lanes=(list lane:ames)]

77− [%doze p=(unit @da)]

78− [%thus p=@ud q=(unit hiss:eyre)]

79− [%ergo p=@tas q=mode:clay]

80− [%sleep ~]

81− [%restore ~]

82− [%kill ~]

83− [%init ~]

84− [%request id=@ud request=request:http]

85− [%turf p=(list turf)]

86− [%unto =unto:gall] :: internal gifts to host ships

87− :: (%facts are transformed to %raw-facts)

88− ==

89−--

base-desk/sur/asn1.hoondeleted−80

@@ -1,80 +0,0 @@

1−:: |asn1: small selection of types and constants for ASN.1

2−::

3−:: A minimal representation of some basic ASN.1 types,

4−:: created to support PKCS keys, digests, and cert requests.

5−::

6−^?

7−|%

8−:: +bespoke:asn1: context-specific, generic ASN.1 tag type

9−::

10−:: Note that *explicit* implies *constructed* (ie, bit 5 is set in DER).

11−::

12−+$ bespoke

13− :: imp: & is implicit, | is explicit

14− :: tag: 5 bits for the custom tag number

15− ::

16− [imp=? tag=@ud]

17−:: +spec:asn1: minimal representations of basic ASN.1 types

18−::

19−+$ spec

20− $% :: %int: arbitrary-sized, unsigned integers

21− ::

22− :: Unsigned integers, represented as having a positive sign.

23− :: Negative integers would be two's complement in DER,

24− :: but we don't need them.

25− ::

26− [%int int=@u]

27− :: %bit: very minimal support for bit strings

28− ::

29− :: Specifically, values must already be padded and byte-aligned.

30− :: len: bitwidth

31− :: bit: data

32− ::

33− [%bit len=@ud bit=@ux]

34− :: %oct: octets in little-endian byte order

35− ::

36− :: len: bytewidth

37− :: bit: data

38− ::

39− [%oct len=@ud oct=@ux]

40− :: %nul: fully supported!

41− ::

42− [%nul ~]

43− :: %obj: object identifiers, pre-packed

44− ::

45− :: Object identifiers are technically a sequence of integers,

46− :: represented here in their already-encoded form.

47− ::

48− [%obj obj=@ux]

49− :: %seq: a list of specs

50− ::

51− [%seq seq=(list spec)]

52− :: %set: a logical set of specs

53− ::

54− :: Implemented here as a list for the sake of simplicity.

55− :: must be already deduplicated and sorted!

56− ::

57− [%set set=(list spec)]

58− :: %con: context-specific

59− ::

60− :: General support for context-specific tags.

61− :: bes: custom tag number, implicit or explicit

62− :: con: already-encoded bytes

63− ::

64− [%con bes=bespoke con=(list @D)]

65− ==

66−:: |obj:asn1: constant object ids, pre-encoded

67−::

68−++ obj

69− ^?

70− |% :: rfc4055

71− ++ sha-256 0x1.0204.0365.0148.8660 :: 2.16.840.1.101.3.4.2.1

72− ++ rsa 0x1.0101.0df7.8648.862a :: 1.2.840.113549.1.1.1

73− ++ rsa-sha-256 0xb.0101.0df7.8648.862a :: 1.2.840.113549.1.1.11

74− :: rfc2985

75− ++ csr-ext 0xe.0901.0df7.8648.862a :: 1.2.840.113549.1.9.14

76− :: rfc3280

77− ++ sub-alt 0x11.1d55 :: 2.5.29.17

78− --

79−--

80−

base-desk/sur/bitcoin.hoondeleted−84

@@ -1,84 +0,0 @@

1−:: sur/btc.hoon

2−:: Utilities for working with BTC data types and transactions

3−::

4−:: chyg: whether account is (non-)change. 0 or 1

5−:: bytc: "btc-byts" with dat cast to @ux

6−|%

7−+$ network ?(%main %testnet %regtest)

8−+$ hexb [wid=@ dat=@ux] :: hex byts

9−+$ bits [wid=@ dat=@ub]

10−+$ xpub @ta

11−+$ address

12− $% [%base58 @uc]

13− [%bech32 cord]

14− ==

15−+$ fprint hexb

16−+$ bipt $?(%44 %49 %84)

17−+$ chyg $?(%0 %1)

18−+$ idx @ud

19−+$ hdkey [=fprint pubkey=hexb =network =bipt =chyg =idx]

20−+$ sats @ud

21−+$ vbytes @ud

22−+$ txid hexb

23−+$ utxo [pos=@ =txid height=@ value=sats recvd=(unit @da)]

24−++ address-info

25− $: =address

26− confirmed-value=sats

27− unconfirmed-value=sats

28− utxos=(set utxo)

29− ==

30−++ tx

31− |%

32− +$ data

33− $: is=(list input)

34− os=(list output)

35− locktime=@ud

36− nversion=@ud

37− segwit=(unit @ud)

38− ==

39− +$ val

40− $: =txid

41− pos=@ud

42− =address

43− value=sats

44− ==

45− :: included: whether tx is in the mempool or blockchain

46− ::

47− +$ info

48− $: included=?

49− =txid

50− confs=@ud

51− recvd=(unit @da)

52− inputs=(list val)

53− outputs=(list val)

54− ==

55− +$ input

56− $: =txid

57− pos=@ud

58− sequence=hexb

59− script-sig=(unit hexb)

60− pubkey=(unit hexb)

61− value=sats

62− ==

63− +$ output

64− $: script-pubkey=hexb

65− value=sats

66− ==

67− --

68−++ psbt

69− |%

70− +$ base64 cord

71− +$ in [=utxo rawtx=hexb =hdkey]

72− +$ out [=address hk=(unit hdkey)]

73− +$ target $?(%input %output)

74− +$ keyval [key=hexb val=hexb]

75− +$ map (list keyval)

76− --

77−++ ops

78− |%

79− ++ op-dup 118

80− ++ op-equalverify 136

81− ++ op-hash160 169

82− ++ op-checksig 172

83− --

84−--

base-desk/sur/docket.hoondeleted−82

@@ -1,82 +0,0 @@

1−|%

2−::

3−+$ version

4− [major=@ud minor=@ud patch=@ud]

5−::

6−+$ glob (map path mime)

7−::

8−+$ url cord

9−:: $glob-location: How to retrieve a glob

10−::

11−+$ glob-reference

12− [hash=@uvH location=glob-location]

13−::

14−+$ glob-location

15− $% [%http =url]

16− [%ames =ship]

17− ==

18−:: $href: Where a tile links to

19−::

20−+$ href

21− $% [%glob base=term =glob-reference]

22− [%site =path]

23− ==

24−:: $chad: State of a docket

25−::

26−+$ chad

27− $~ [%install ~]

28− $% :: Done

29− [%glob =glob]

30− [%site ~]

31− :: Waiting

32− [%install ~]

33− [%suspend glob=(unit glob)]

34− :: Error

35− [%hung err=cord]

36− ==

37−::

38−:: $charge: A realized $docket

39−::

40−+$ charge

41− $: =docket

42− =chad

43− ==

44−::

45−:: $clause: A key and value, as part of a docket

46−::

47−:: Only used to parse $docket

48−::

49−+$ clause

50− $% [%title title=@t]

51− [%info info=@t]

52− [%color color=@ux]

53− [%glob-http url=cord hash=@uvH]

54− [%glob-ames =ship hash=@uvH]

55− [%image =url]

56− [%site =path]

57− [%base base=term]

58− [%version =version]

59− [%website website=url]

60− [%license license=cord]

61− ==

62−::

63−:: $docket: A description of JS bundles for a desk

64−::

65−+$ docket

66− $: %1

67− title=@t

68− info=@t

69− color=@ux

70− =href

71− image=(unit url)

72− =version

73− website=url

74− license=cord

75− ==

76−::

77−+$ charge-update

78− $% [%initial initial=(map desk charge)]

79− [%add-charge =desk =charge]

80− [%del-charge =desk]

81− ==

82−--

base-desk/sur/hark-store.hoondeleted−159

@@ -1,159 +0,0 @@

1−^?

2−::

3−:: %hark-store: Notification, unreads store

4−::

5−:: Timeboxing & binning:

6−::

7−:: Unread notifications accumulate in $unreads. They are grouped by

8−:: their $bin. A notification may become read by either:

9−:: a) being read by a %read-count or %read-each or %read-note

10−:: b) being read by a %seen

11−::

12−:: If a) then we insert the corresponding bin into $reads at the

13−:: current timestamp

14−:: If b) then we empty $unreads and move all bins to $reads at the

15−:: current timestamp

16−::

17−:: Unread tracking:

18−:: Unread tracking has two 'modes' which may be used concurrently,

19−:: if necessary.

20−::

21−:: count:

22−:: This stores the unreads as a simple atom, describing the number

23−:: of unread items. May be increased with %unread-count and

24−:: set to zero with %read-count. Ideal for high-frequency linear

25−:: datastructures, e.g. chat

26−:: each:

27−:: This stores the unreads as a set of paths, describing the set of

28−:: unread items. Unreads may be added to the set with %unread-each

29−:: and removed with %read-each. Ideal for non-linear, low-frequency

30−:: datastructures, e.g. blogs

31−::

32−|%

33−:: $place: A location, under which landscape stores stats

34−::

35−:: .desk must match q.byk.bowl

36−:: Examples:

37−:: A chat:

38−:: [%landscape /~dopzod/urbit-help]

39−:: A note in a notebook:

40−:: [%landscape /~darrux-landes/feature-requests/12374893234232]

41−:: A group:

42−:: [%hark-group-hook /~bitbet-bolbel/urbit-community]

43−:: Comments on a link

44−:: [%landscape /~dabben-larbet/urbit-in-the-news/17014118450499614194868/2]

45−::

46−+$ place [=desk =path]

47−::

48−:: $bin: Identifier for grouping notifications

49−::

50−:: Examples

51−:: A mention in a chat:

52−:: [/mention %landscape /~dopzod/urbit-help]

53−:: New messages in a chat

54−:: [/message %landscape /~dopzod/urbit-help]

55−:: A new comment in a notebook:

56−:: [/comment %landscape /~darrux-landes/feature-requests/12374893234232/2]

57−::

58−+$ bin [=path =place]

59−::

60−:: $lid: Reference to a timebox

61−::

62−+$ lid

63− $% [%archive =time]

64− [%seen ~]

65− [%unseen ~]

66− ==

67−:: $content: Notification content

68−+$ content

69− $% [%ship =ship]

70− [%text =cord]

71− ==

72−::

73−:: $body: A notification body

74−::

75−+$ body

76− $: title=(list content)

77− content=(list content)

78− =time

79− binned=path

80− link=path

81− ==

82−::

83−+$ notification

84− [date=@da =bin body=(list body)]

85−:: $timebox: Group of notificatons

86−+$ timebox

87− (map bin notification)

88−:: $archive: Archived notifications, ordered by time

89−+$ archive

90− ((mop @da timebox) gth)

91−::

92−+$ action

93− $% :: hook actions

94− ::

95− :: %add-note: add a notification

96− [%add-note =bin =body]

97− ::

98− :: %del-place: Underlying resource disappeared, remove all

99− :: associated notifications

100− [%del-place =place]

101− :: %unread-count: Change unread count by .count

102− [%unread-count =place inc=? count=@ud]

103− :: %unread-each: Add .path to list of unreads for .place

104− [%unread-each =place =path]

105− :: %saw-place: Update last-updated for .place to now.bowl

106− [%saw-place =place time=(unit time)]

107− :: store actions

108− ::

109− :: %archive: archive single notification

110− :: if .time is ~, then archiving unread notification

111− :: else, archiving read notification

112− [%archive =lid =bin]

113− :: %read-count: set unread count to zero

114− [%read-count =place]

115− :: %read-each: remove path from unreads for .place

116− [%read-each =place =path]

117− :: %read-note: Read note at .bin

118− [%read-note =bin]

119− :: %archive-all: Archive all notifications

120− [%archive-all ~]

121− :: %opened: User opened notifications, reset timeboxing logic.

122− ::

123− [%opened ~]

124− ::

125− :: XX: previously in hark-store, now deprecated

126− :: the hooks responsible for creating notifications may offer pokes

127− :: similar to this

128− :: [%read-graph =resource]

129− :: [%read-group =resource]

130− :: [%remove-graph =resource]

131− ::

132− ==

133−:: .stats: Statistics for a .place

134−::

135−+$ stats

136− $: count=@ud

137− each=(set path)

138− last=@da

139− timebox=(unit @da)

140− ==

141−::

142−+$ update

143− $% action

144− :: %more: more updates

145− [%archived =time =lid =notification]

146− [%more more=(list update)]

147− :: %note-read: note has been read with timestamp

148− [%note-read =time =bin]

149− [%added =notification]

150− :: %timebox: description of timebox.

151− ::

152− [%timebox =lid =(list notification)]

153− :: %place-stats: description of .stats for a .place

154− [%place-stats =place =stats]

155− :: %place-stats: stats for all .places

156− [%all-stats places=(map place stats)]

157− ==

158−--

159−

base-desk/sur/hood.hoondeleted−401

@@ -1,401 +0,0 @@

1−/% kelvin %kelvin

2−=, clay

3−=* dude dude:gall

4−|%

5−+$ pike

6− $: sync=(unit [=ship =desk])

7− hash=@uv

8− =zest

9− wic=(set weft)

10− ==

11−::

12−+$ pikes (map desk pike)

13−:: $jump: changes to update source change requests

14−::

15−+$ jump

16− $% [%all all=(map dock dock)] :: pending requests

17− [%add old=dock new=dock] :: new request

18− [%yea old=dock new=dock] :: approved

19− [%nay old=dock new=dock] :: denied

20− ==

21−:: $rung: reference to upstream commit

22−::

23−+$ rung [=aeon =weft]

24−:: #sync-record: source and destination of a kiln sync

25−::

26−+$ sync-record ::

27− $: syd=desk :: local desk

28− her=ship :: foreign ship

29− sud=desk :: foreign desk

30− ==

31−::

32−+$ sync-state ::

33− $: nun=@ta :: nonce

34− kid=(unit desk) :: has kids desk too?

35− let=@ud :: next revision

36− nit=(unit ?) :: automerge or default

37− hav=(unit @ud) :: update available

38− yea=? :: update approved

39− ==

40−::

41−+$ sync-update

42− $% [%new for=sync-record rev=@ud]

43− [%done for=sync-record rev=@ud]

44− [%drop for=sync-record rev=@ud]

45− [%pending pending=(set [for=sync-record rev=@ud])]

46− ==

47−::

48−+$ sink (unit [her=@p sud=desk kid=(unit desk) let=@ud])

49−:: +truncate-hash: get last 5 digits of hash and convert to tape

50−::

51−++ truncate-hash

52− |= hash=@uv

53− ^- tape

54− (slag 2 <`@uv`(mod hash 0v1.00000)>)

55−:: +report-prep: get data required for reports

56−::

57−++ report-prep

58− |= [our=@p now=@da]

59− =/ ego (scot %p our)

60− =/ wen (scot %da now)

61− :* .^(rock:tire %cx /[ego]//[wen]/tire)

62− .^(cone %cx /[ego]//[wen]/domes)

63− .^((map desk [ship desk]) %gx /[ego]/hood/[wen]/kiln/sources/noun)

64− .^ (map [desk ship desk] sync-state) %gx

65− /[ego]/hood/[wen]/kiln/syncs/noun

66− ==

67− ==

68−:: +report-vats: report on all desk installations

69−::

70−++ report-vats

71− |= [our=@p now=@da desks=(list desk) filt=@tas verb=?]

72− ^- tang

73− =/ ego (scot %p our)

74− =/ wen (scot %da now)

75− =+ prep=[tyr cone sor zyn]=(report-prep our now)

76− ?: =(%$ filt)

77− %- zing

78− %+ turn

79− ?^ desks

80− (flop desks)

81− %+ sort ~(tap in ~(key by tyr.prep))

82− |= [a=desk b=desk]

83− ?: |(=(a %kids) =(b %base)) &

84− ?: |(=(a %base) =(b %kids)) |

85− (aor b a)

86− |=(syd=@tas (report-vat prep our now syd verb))

87− =/ deks=(list [=desk =zest wic=(set weft)])

88− ?~ desks

89− %+ sort ~(tap by tyr.prep)

90− |= [[a=desk *] [b=desk *]]

91− ?: |(=(a %kids) =(b %base)) &

92− ?: |(=(a %base) =(b %kids)) |

93− (aor b a)

94− %+ murn (flop desks)

95− |= des=desk

96− ^- (unit [=desk =zest wic=(set weft)])

97− ?~ got=(~(get by tyr.prep) des)

98− ~

99− `[des u.got]

100− ?: =(filt %blocking)

101− =/ base-weft=(unit weft)

102− %- ~(rep in wic:(~(got by tyr.prep) %base))

103− |= [=weft out=(unit weft)]

104− ?~ out

105− `weft

106− ?: (lth num.weft num.u.out)

107− out

108− `weft

109− ?~ base-weft ~['%base already up-to-date']

110− =/ blockers=(list desk)

111− %+ sort

112− ^- (list desk)

113− %+ murn deks

114− |= [=desk =zest wic=(set weft)]

115− ^- (unit ^desk)

116− ?. =(%live zest)

117− ~

118− ?: (~(has in wic) u.base-weft)

119− ~

120− `desk

121− aor

122− ?~ blockers ~['No desks blocking upgrade']

123− %- zing

124− ^- (list tang)

125− :- :~ %+ rap 3

126− :~ 'These desks are blocking upgrade to [%zuse '

127− (scot %ud num.u.base-weft)

128− ']:'

129− == ==

130− %+ turn blockers

131− |=(syd=desk (report-vat prep our now syd verb))

132− ::

133− %- zing

134− %+ turn

135− ?+ filt !!

136− %exists

137− %+ skip deks

138− |= [syd=desk *]

139− ?~ got=(~(get by cone.prep) our syd)

140− &

141− =(0 let.u.got)

142− ::

143− %running

144− %+ skim deks

145− |=([* [zest=@tas *]] =(zest %live))

146− ::

147− %suspended

148− %+ skip deks

149− |= [syd=@tas [zest=@tas *]]

150− ?| =(syd %kids)

151− =(zest %live)

152− ?~ got=(~(get by cone.prep) our syd)

153− &

154− =(0 let.u.got)

155− ==

156− ::

157− %exists-not

158− %+ skim deks

159− |= [syd=desk *]

160− ?~ got=(~(get by cone.prep) our syd)

161− |

162− =(0 let.u.got)

163− ==

164− |=([syd=desk *] (report-vat prep our now syd verb))

165−:: +report-vat: report on a single desk installation

166−::

167−++ report-vat

168− |= $: $: tyr=rock:tire =cone sor=(map desk (pair ship desk))

169− zyn=(map [desk ship desk] sync-state)

170− ==

171− our=ship now=@da syd=desk verb=?

172− ==

173− |^ ^- tang

174− =/ ego (scot %p our)

175− =/ wen (scot %da now)

176− ?. ((sane %tas) syd)

177− ~[(cat 3 'insane desk: %' syd)]

178− ?. (~(has by cone) our syd)

179− ~[(cat 3 'desk does not yet exist: %' syd)]

180− =/ hash .^(@uv %cz /[ego]/[syd]/[wen])

181− ?: =(%kids syd)

182− ~[(cat 3 '%kids %cz hash: ' (scot %uv hash))]

183− =/ kel-path /[ego]/[syd]/[wen]/sys/kelvin

184− ?. .^(? %cu kel-path)

185− ~[(cat 3 'bad desk: %' syd)]

186− =+ .^(=waft %cx kel-path)

187− ^- tang

188− =/ =sink

189− ?~ s=(~(get by sor) syd)

190− ~

191− ?~ z=(~(get by zyn) syd u.s)

192− ~

193− `[p.u.s q.u.s [kid let]:u.z]

194− =/ meb=(list @uv)

195− ?~ sink ~[hash]

196− %+ turn

197− .^ (list tako) %cs

198− /[ego]/[syd]/[wen]/base/(scot %p her.u.sink)/[sud.u.sink]

199− ==

200− |=(=tako .^(@uv %cs /[ego]/[syd]/[wen]/hash/(scot %uv tako)))

201− =/ dek (~(got by tyr) syd)

202− =/ sat

203− ?- zest.dek

204− %live 'running'

205− %dead 'suspended'

206− %held 'suspended until next update'

207− ==

208− =/ kul=cord (print-wefts (waft-to-wefts waft))

209− =/ ese=cord

210− ?:(.^(? %cx /[ego]//[wen]/esse/[syd]) 'yes' 'no')

211− =/ pax=path /(scot %p our)/[syd]/(scot %da now)

212− ?. verb

213− :~ '::'

214− =+ .^(exist=? cu+(weld pax /desk/bill))

215− ?. exist ' /desk/bill: missing'

216− =+ .^(dudes=(list dude:gall) cx+(weld pax /desk/bill))

217− (cat 3 ' /desk/bill: ' (crip "{<dudes>}"))

218− (cat 3 ' pending updates: ' (print-wefts wic.dek))

219− (cat 3 ' source ship: ' ?~(sink '~' (scot %p her.u.sink)))

220− (cat 3 ' app status: ' sat)

221− (cat 3 ' essential desk: ' ese)

222− (cat 3 ' %cz hash ends in: ' (print-shorthash hash))

223− (cat 3 ' /sys/kelvin: ' (print-wefts (waft-to-wefts waft)))

224− (cat 3 '%' syd)

225− ==

226− ::

227− =/ [on=(list @tas) of=(list @tas)]

228− =/ [on=(list @tas) of=(list @tas)]

229− %- ~(rep by ren:(~(got by cone) our syd))

230− |= [[=dude:gall is-on=?] on=(list @tas) of=(list @tas)]

231− ?: is-on

232− [[dude on] of]

233− [on [dude of]]

234− [(sort on aor) (sort of aor)]

235− :~ '::'

236− (cat 3 ' pending updates: ' (print-wefts wic.dek))

237− %^ cat 3 ' kids desk: ' ?~ sink '~'

238− ?~ kid.u.sink '~'

239− (cat 3 '%' u.kid.u.sink)

240− (cat 3 ' source aeon: ' ?~(sink '~' (scot %ud let.u.sink)))

241− (cat 3 ' source desk: ' ?~(sink '~' (cat 3 '%' sud.u.sink)))

242− (cat 3 ' source ship: ' ?~(sink '~' (scot %p her.u.sink)))

243− (cat 3 ' updates: ' ?~(sink 'local' 'remote'))

244− %^ cat 3 ' publishing ship: ' ?~ got=(get-publisher our syd now)

245− '~'

246− (scot %p u.got)

247− ::

248− (cat 3 ' force off: ' (print-agents of))

249− (cat 3 ' force on: ' (print-agents on))

250− (cat 3 ' app status: ' sat)

251− (cat 3 ' essential desk: ' ese)

252− ::

253− (cat 3 ' %cz hash: ' (scot %uv hash))

254− (cat 3 ' base hash: ' (print-mergebases meb))

255− (cat 3 ' /sys/kelvin: ' (print-wefts (waft-to-wefts waft)))

256− (cat 3 '%' syd)

257− ==

258− ++ print-wefts

259− |= wefts=(set weft)

260− ^- @t

261− ?: =(~ wefts)

262− '~'

263− %+ roll (sort ~(tap in wefts) aor)

264− |= [=weft out=@t]

265− ?: =('' out)

266− (rap 3 '[%' lal.weft ' ' (scot %ud num.weft) ']' ~)

267− (rap 3 out ' [%' lal.weft ' ' (scot %ud num.weft) ']' ~)

268− ::

269− ++ print-shorthash

270− |= hash=@uv

271− ^- @t

272− (crip ((v-co:co 5) (end [0 25] hash)))

273− ::

274− ++ print-mergebases

275− |= hashes=(list @uv)

276− ^- @t

277− ?~ hashes

278− '~'

279− ?~ t.hashes

280− (scot %uv i.hashes)

281− %+ roll `(list @uv)`hashes

282− |= [hash=@uv out=@t]

283− ?: =('' out)

284− (print-shorthash hash)

285− (rap 3 out ' ' (print-shorthash hash) ~)

286− ::

287− ++ print-agents

288− |= agents=(list @tas)

289− ^- @t

290− ?~ agents

291− '~'

292− %+ roll `(list @tas)`agents

293− |= [agent=@tas out=@tas]

294− ?: =('' out)

295− (cat 3 '%' agent)

296− (rap 3 out ' %' agent ~)

297− --

298−:: +report-kids: non-vat cz hash report for kids desk

299−::

300−++ report-kids

301− |= [our=ship now=@da]

302− ^- tank

303− =/ syd %kids

304− =/ ego (scot %p our)

305− =/ wen (scot %da now)

306− ?. (~(has in .^((set desk) %cd /[ego]//[wen])) syd)

307− 'no %kids desk'

308− =+ .^(hash=@uv %cz /[ego]/[syd]/[wen])

309− (cat 3 '%kids %cz hash: ' (scot %uv hash))

310−:: +read-bill-foreign: read /desk/bill from a foreign desk

311−::

312−++ read-bill-foreign

313− |= [=ship =desk =aeon]

314− ^- (list dude)

315− ~| +<

316− =/ her (scot %p ship)

317− =/ syd (scot %tas desk)

318− =/ yon (scot %ud aeon)

319− ::

320− =/ dom .^(domo cv/~[her syd yon])

321− =/ tak ~| aeons=~(key by hit.dom)

322− (scot %uv (~(got by hit.dom) aeon))

323− =/ yak .^(yaki cs/~[her syd yon %yaki tak])

324− =/ fil (~(get by q.yak) /desk/bill)

325− ?~ fil ~

326− =/ lob (scot %uv u.fil)

327− =/ peg .^(page cs/~[her syd yon %blob lob])

328− ;;((list dude) q.peg)

329−:: +read-bill: read contents of /desk/bill manifest

330−::

331−++ read-bill

332− |= [our=ship =desk now=@da]

333− =/ pax (en-beam [our desk da+now] /desk/bill)

334− ?. .^(? cu/pax)

335− *(list dude)

336− .^((list dude) cx/pax)

337−::

338−++ get-remote-diff

339− |= [our=ship here=desk now=@da her=ship there=desk when=aeon]

340− =+ .^(our-hash=@uv cz/[(scot %p our) here (scot %da now) ~])

341− =+ .^(her-hash=@uv cz/[(scot %p her) there (scot %ud when) ~])

342− !=(our-hash her-hash)

343−::

344−++ get-publisher

345− |= [our=ship =desk now=@da]

346− ^- (unit ship)

347− =/ pax /(scot %p our)/[desk]/(scot %da now)/desk/ship

348− ?. .^(? %cu pax) ~

349− `.^(ship %cx pax)

350−::

351−++ get-apps-live

352− |= [our=ship =desk now=@da]

353− ^- (list dude)

354− %+ murn (get-apps-have our desk now)

355− |=([=dude live=?] ?.(live ~ `dude))

356−:: +get-apps-have: find which apps Gall is running on a desk

357−::

358−++ get-apps-have

359− |= [our=ship =desk now=@da]

360− ^- (list [=dude live=?])

361− %~ tap in

362− .^((set [=dude live=?]) ge+/(scot %p our)/[desk]/(scot %da now)/$)

363−::

364−++ mergebase-hashes

365− |= [our=@p syd=desk now=@da her=ship sud=desk]

366− =/ her (scot %p her)

367− =/ ego (scot %p our)

368− =/ wen (scot %da now)

369− %+ turn .^((list tako) %cs /[ego]/[syd]/[wen]/base/[her]/[sud])

370− |=(=tako .^(@uv %cs /[ego]/[syd]/[wen]/hash/(scot %uv tako)))

371−::

372−++ enjs

373− =, enjs:format

374− |%

375− ++ tim

376− |= t=@

377− ^- json

378− (numb (fall (mole |.((unm:chrono:userlib t))) 0))

379− ::

380− ++ cass

381− |= c=^cass

382− %- pairs

383− :~ ud+(numb ud.c)

384− da+(tim da.c)

385− ==

386− ::

387− ++ weft

388− |= w=^weft

389− %- pairs

390− :~ name+s+lal.w

391− kelvin+(numb num.w)

392− ==

393− ::

394− ++ rung

395− |= r=^rung

396− %- pairs

397− :~ aeon+(numb aeon.r)

398− weft+(weft weft.r)

399− ==

400− --

401−--

base-desk/sur/json/rpc.hoondeleted−28

@@ -1,28 +0,0 @@

1−:: json-rpc: protocol types

2−::

3−|%

4−+$ batch-request

5− $% [%a p=(list request)]

6− [%o p=request]

7− ==

8−::

9−+$ request

10− $: id=@t

11− jsonrpc=@t

12− method=@t

13− params=request-params

14− ==

15−::

16−+$ request-params

17− $% [%list (list json)]

18− [%map (map @t json)]

19− [%object (list (pair @t json))]

20− ==

21−+$ response

22− $~ [%fail *httr:eyre]

23− $% [%result id=@t res=json]

24− [%error id=@t code=@t message=@t] ::TODO data?

25− [%fail hit=httr:eyre]

26− [%batch bas=(list response)]

27− ==

28−--

base-desk/sur/keygen.hoondeleted−23

@@ -1,23 +0,0 @@

1−|%

2−+$ revision @ud

3−+$ nodetype tape

4−+$ mnemonic tape

5−::

6−+$ vault

7− $: ownership=node

8− voting=node

9− management=node

10− transfer=node

11− spawn=node

12− network=uode

13− ==

14−::

15−+$ node [type=nodetype seed=mnemonic keys=wallet]

16−+$ uode [revi=revision seed=@ux keys=edkeys]

17−::

18−+$ wallet [keys=[public=@ux private=@ux] addr=@ux chain=@ux]

19−::

20−+$ edkeys [auth=keypair crypt=keypair]

21−::

22−+$ keypair [public=@ux secret=@ux]

23−--

base-desk/sur/language-server.hoondeleted−114

@@ -1,114 +0,0 @@

1−|%

2−::

3−+$ versioned-doc-id

4− [uri=@t version=(unit @)]

5−::

6−++ request

7− |%

8− +$ all

9− $%

10− text-document--hover

11− text-document--completion

12− unknown

13− ==

14− +$ text-document--hover

15− [%text-document--hover id=cord position versioned-doc-id]

16− +$ text-document--completion

17− [%text-document--completion id=cord position versioned-doc-id]

18− +$ unknown

19− [%unknown json]

20− --

21−++ response

22− |%

23− +$ all

24− $%

25− text-document--hover

26− text-document--completion

27− ==

28− +$ text-document--hover

29− [%text-document--hover id=cord contents=(unit @t)]

30− +$ text-document--completion

31− [%text-document--completion id=cord completion=(list completion-item)]

32− --

33−::

34−+$ completion-item

35− $:

36− label=cord

37− kind=@ud

38− detail=cord

39− doc=cord

40− insert-text=cord

41− insert-text-format=@ud

42− ==

43−

44−

45−

46−::

47−+$ diagnostic

48− [=range severity=@ud message=@t]

49−::

50−+$ position

51− [row=@ud col=@ud]

52−::

53−+$ text-document-item

54− [uri=@t version=(unit @) text=@t]

55−::

56−++ notification

57− |%

58− ::

59− +$ in

60− $%

61− text-document--did-change

62− text-document--did-open

63− text-document--did-save

64− text-document--did-close

65− exit

66− unknown

67− ==

68− ::

69− +$ out

70− $%

71− text-document--publish-diagnostics

72− ==

73− ::

74− +$ all

75− $%

76− out

77− in

78− ==

79− ::

80− +$ text-document--did-change

81− [%text-document--did-change versioned-doc-id changes=(list change)]

82− ::

83− +$ text-document--did-open

84− [%text-document--did-open text-document-item]

85− ::

86− +$ text-document--did-save

87− [%text-document--did-save versioned-doc-id]

88− ::

89− +$ text-document--did-close

90− [%text-document--did-close versioned-doc-id]

91− ::

92− +$ exit

93− [%exit ~]

94− ::

95− +$ unknown

96− [%unknown =json]

97− ::

98− +$ text-document--publish-diagnostics

99− [%text-document--publish-diagnostics uri=@t diagnostics=(list diagnostic)]

100− ::

101− --

102−::

103−+$ change

104− $: range=(unit range)

105− range-length=(unit @ud)

106− text=@t

107− ==

108−::

109−+$ range

110− $: start=position

111− end=position

112− ==

113−::

114−--

base-desk/sur/ring.hoondeleted−47

@@ -1,47 +0,0 @@

1−|%

2−:: +raw-ring-signature: low level ring signature type

3−::

4−:: The :s field of a ring signature grows O(n) with the number of

5−:: participants in the ring.

6−::

7−++ raw-ring-signature

8− $: ch0=@

9− ::

10− s=(list @)

11− :: linked ring signature tag

12− ::

13− :: Two linked ring signatures with the same link scope can be shown to

14− :: have been made by the same private key, leading to Sybil

15− :: resistance...but if your private keys are compromised, your

16− :: adversary can determine which signatures you made.

17− ::

18− y=(unit @uxpoint)

19− ==

20−:: +ring-signature: higher level ring signature type

21−::

22−:: This contains all the identifying information to verify a ring signature

23−:: in an urbit context.

24−::

25−++ ring-signature

26− $: :: a ring signature is computed over a set of public keys. the

27− :: participants set is not those keys, but static references to them.

28− ::

29− participants=(set [ship=@p =life])

30− :: the linkage scope this signature was made on

31− ::

32− link-scope=(unit *)

33− :: the rest of the low level ring signature is appended

34− ::

35− raw=raw-ring-signature

36− ==

37−::

38−+$ ring-group

39− $: :: a ring signature is computed over a set of public keys. the

40− :: participants set is not those keys, but static references to them.

41− ::

42− participants=(set [ship=@p =life])

43− :: the linkage scope this signature was made on

44− ::

45− link-scope=(unit *)

46− ==

47−--

base-desk/sur/settings.hoondeleted−44

@@ -1,44 +0,0 @@

1−/+ *mip

2−|%

3−::

4−++ settings-0

5− =< settings

6− |%

7− +$ settings (map key bucket)

8− +$ bucket (map key val)

9− +$ val

10− $% [%s p=@t]

11− [%b p=?]

12− [%n p=@]

13− ==

14− --

15−::

16−++ settings-1

17− =< settings

18− |%

19− +$ settings (map key bucket)

20− --

21−+$ bucket (map key val)

22−+$ key term

23−+$ val

24− $~ [%n 0]

25− $% [%s p=@t]

26− [%b p=?]

27− [%n p=@]

28− [%a p=(list val)]

29− ==

30−::

31−+$ settings (mip desk key bucket)

32−+$ event

33− $% [%put-bucket =desk =key =bucket]

34− [%del-bucket =desk =key]

35− [%put-entry =desk buc=key =key =val]

36− [%del-entry =desk buc=key =key]

37− ==

38−+$ data

39− $% [%all =settings]

40− [%bucket =bucket]

41− [%desk desk=(map key bucket)]

42− [%entry =val]

43− ==

44−--

base-desk/sur/sole.hoondeleted−88

@@ -1,88 +0,0 @@

1−::

2−:::: /hoon/sole/sur

3− ::

4−^?

5−|%

6−+$ sole-id [who=@p ses=@ta]

7−+$ sole-action :: sole to app

8− $: id=sole-id :: session id

9− $= dat

10− $% :: [%abo ~] :: reset interaction

11− [%det sole-change] :: command line edit

12− [%ret ~] :: submit and clear

13− [%clr ~] :: exit context

14− [%tab pos=@ud] :: tab complete

15− == ::

16− ==

17−+$ sole-buffer (list @c) :: command state

18−+$ sole-change :: network change

19− $: ler=sole-clock :: destination clock

20− haw=@uvH :: source hash

21− ted=sole-edit :: state change

22− == ::

23−+$ sole-clock [own=@ud his=@ud] :: vector clock

24−+$ sole-edit :: shared state change

25− $% [%del p=@ud] :: delete one at

26− [%ins p=@ud q=@c] :: insert at

27− [%mor p=(list sole-edit)] :: combination

28− [%nop ~] :: no-op

29− [%set p=sole-buffer] :: discontinuity

30− == ::

31−+$ sole-effect :: app to sole

32− $% [%bel ~] :: beep

33− [%blk p=@ud q=@c] :: blink+match char at

34− [%bye ~] :: close session

35− [%clr ~] :: clear screen

36− [%det sole-change] :: edit command

37− [%err p=@ud] :: error point

38− [%klr p=styx] :: styled text line

39− [%mor p=(list sole-effect)] :: multiple effects

40− [%nex ~] :: save clear command

41− [%pro sole-prompt] :: set prompt

42− [%sag p=path q=*] :: save to jamfile

43− [%sav p=path q=@] :: save to file

44− [%tab p=(list [=cord =tank])] :: tab-complete list

45− [%tan p=(list tank)] :: classic tank

46− :: [%taq p=tanq] :: modern tank

47− [%txt p=tape] :: text line

48− [%url p=@t] :: activate url

49− == ::

50−+$ sole-command :: command state

51− $: pos=@ud :: cursor position

52− say=sole-share :: cursor

53− == ::

54−+$ sole-prompt :: prompt definition

55− $: vis=? :: command visible

56− tag=term :: history mode

57− cad=styx :: caption

58− == ::

59−+$ sole-share :: symmetric state

60− $: ven=sole-clock :: our vector clock

61− leg=(list sole-edit) :: unmerged edits

62− buf=sole-buffer :: sole state

63− == ::

64−:: ::

65−:: ::

66−++ sole-dialog :: standard dialog

67− |* out=$-(* *) :: output structure

68− $-(sole-input (sole-result out)) :: output function

69−:: ::

70−+$ sole-input tape :: prompt input

71−++ sole-result :: conditional result

72− |* out=$-(* *) :: output structure

73− $@(@ud (sole-product out)) :: error position

74−:: ::

75−++ sole-product :: success result

76− |* out=$-(* *) ::

77− %+ pair (list tank) ::

78− %+ each (unit out) :: ~ is abort

79− (pair sole-prompt (sole-dialog out)) :: ask and continue

80−:: ::

81−+$ sole-gen :: XX virtual type

82− $% [%say $-((sole-args) (cask))] :: direct noun

83− [%ask $-((sole-args) (sole-product (cask)))] :: dialog

84− == ::

85−++ sole-args :: generator arguments

86− |* _[* *] ::

87− ,[[now=@da eny=@uvJ bek=beak] [,+<- ,+<+]] ::

88−--

base-desk/sur/spider.hoondeleted−27

@@ -1,27 +0,0 @@

1−/+ libstrand=strand

2−=, strand=strand:libstrand

3−|%

4−+$ thread $-(vase shed:khan)

5−+$ input [=tid =cage]

6−+$ tid tid:strand

7−+$ bowl bowl:strand

8−+$ http-error

9− $? %bad-request :: 400

10− %forbidden :: 403

11− %nonexistent :: 404

12− %offline :: 504

13− ==

14−+$ start-args

15− $: parent=(unit tid)

16− use=(unit tid)

17− =beak

18− file=term

19− =vase

20− ==

21−+$ inline-args

22− $: parent=(unit tid)

23− use=(unit tid)

24− =beak

25− =shed:khan

26− ==

27−--

base-desk/sur/sss.hoondeleted−39

@@ -1,39 +0,0 @@

1−|%

2−++ lake

3− |$ [rock wave]

4− $_ ^?

5− |%

6− ++ name *term

7− +$ rock ^rock

8− +$ wave ^wave

9− ++ wash |~ [rock wave] *rock

10− --

11−+$ aeon @ud

12−+$ dude dude:agent:gall

13−++ poke

14− |%

15− ++ request

16− |* paths=mold

17− $: path=paths

18− =dude

19− ==

20− ++ response

21− |* [=(lake) paths=mold]

22− $: path=paths

23− =dude

24− $% [what=%tomb ~]

25− [what=%rock =aeon =rock:lake]

26− [what=%wave =aeon =wave:lake]

27− == ==

28− ++ on-rock

29− |* [=(lake) paths=mold]

30− $: path=paths

31− src=ship

32− from=dude

33− stale=?

34− fail=?

35− =rock:lake

36− wave=(unit wave:lake)

37− ==

38− --

39−--

base-desk/sur/story.hoondeleted−9

@@ -1,9 +0,0 @@

1−^?

2−|%

3−+$ prose [title=@t body=@t]

4−+$ proses (set prose)

5−+$ story (jug tako:clay prose) :: set len > 1 means conflicting messages have been assigned

6−+$ chapter [tako:clay proses] :: prose entry type

7−+$ cash $%([%tako p=tako:clay] case) :: used in generators to accept a tako directly as well

8−+$ story-diff [additions=story deletions=story]

9−--

base-desk/sur/verb.hoondeleted−48

@@ -1,48 +0,0 @@

1−|%

2−+$ event

3− $% [%on-init ~]

4− [%on-load ~]

5− [%on-poke =mark]

6− [%on-watch =path]

7− [%on-leave =path]

8− [%on-agent =wire sign=term]

9− [%on-arvo =wire vane=term sign=term]

10− [%on-fail =term]

11− ==

12−::

13−+$ event-plus

14− $: act=@ud

15− now=@da

16− src=@p

17− sap=path

18− =cause

19− effects=(list effect)

20− ==

21−::

22−+$ cause

23− $% [%on-init ~]

24− [%on-load ~]

25− [%on-poke =mark mug=@ux]

26− [%on-watch =path]

27− [%on-leave =path]

28− [%on-agent =wire =sign]

29− [%on-arvo =wire vane=term sign=term]

30− [%on-fail =term]

31− ==

32−::

33−+$ sign

34− $% [%poke-ack ack=?]

35− [%watch-ack ack=?]

36− [%kick ~]

37− [%fact =mark mug=@ux]

38− ==

39−::

40−+$ effect

41− $% [%poke =wire =gill:gall =mark mug=@ux]

42− [%watch =wire =gill:gall =path]

43− [%leave =wire =gill:gall]

44− [%fact paths=(list path) =mark mug=@ux]

45− [%kick paths=(list path)]

46− [%arvo =wire vane=term task=term]

47− ==

48−--

bin/commit.shdeleted−24

@@ -1,24 +0,0 @@

1−#!/bin/bash

2−

3−usage() { printf "Usage: $0 URBIT_DESK_DIRECTORY\n" 1>&2; exit 1; }

4−

5−cdir=$(dirname $0)

6−

7−if [ $# -eq 0 ]; then

8− usage

9− exit 2

10−fi

11−DESK_DIR=${@: -1}

12−DESK_DIR="${DESK_DIR/#\~/$HOME}"

13−PIER=$(dirname $DESK_DIR)

14−DESK=$(basename $DESK_DIR)

15−

16−port=$(cat $PIER/.http.ports | grep loopback | tr -s ' ' '\n' | head -n 1)

17−

18−lensa() {

19− curl -s \

20− --data "{\"source\":{\"dojo\":\"$2\"},\"sink\":{\"app\":\"$1\"}}" \

21− "http://localhost:$port" | xargs printf %s | sed 's/\\n/\n/g'

22−}

23−

24−lensa 'hood' "+hood/commit %$DESK"

bin/get_glob.shdeleted−19

@@ -1,19 +0,0 @@

1−#!/bin/bash

2−

3−usage() { printf "Usage: $0 URBIT_GLOBBER_DESK_DIRECTORY" 1>&2; exit 1; }

4−

5−cdir=$(dirname $0)

6−

7−if [ $# -eq 0 ]; then

8− usage

9− exit 2

10−fi

11−DESK="${1//\~/$HOME}"

12−GLOBS="$DESK/../.urb/put"

13−GLOB=$(ls -t $GLOBS | head -1)

14−TARGET_GLOBS="$cdir"/../globs/

15−mkdir -p $TARGET_GLOBS

16−cp "$GLOBS/$GLOB" $TARGET_GLOBS/

17−HASH="${GLOB//glob-/}"

18−HASH="${HASH//.glob/}"

19−echo $HASH

bin/install.shdeleted−82

@@ -1,82 +0,0 @@

1−#!/bin/bash

2−#

3−# Taken from: https://github.com/timlucmiptev/btc-agents/blob/master/install.sh

4−# by ~timluc-miptev

5−#

6−# Modified HEAVILY

7−#

8−usage() { printf "Usage: $0 [-w] [-g] URBIT_DESK_DIRECTORY\n(-w: flag to watch and live copy code)\n(-g: install built ui to globber desk)\n" 1>&2; exit 1; }

9−

10−cdir=$(dirname $0)

11−

12−if [ $# -eq 0 ]; then

13− usage

14− exit 2

15−fi

16−DESK_DIR=${@: -1}

17−DESK_DIR="${DESK_DIR/#\~/$HOME}"

18−PIER=$(dirname $DESK_DIR)

19−DESK=$(basename $DESK_DIR)

20−EXCLUDE_FILE="${cdir}"/../config/ignore_files_on_install.txt

21−

22−port=$(cat $PIER/.http.ports | grep loopback | tr -s ' ' '\n' | head -n 1)

23−

24−lensd() {

25− curl -s \

26− --data "{\"source\":{\"dojo\":\"$1\"},\"sink\":{\"stdout\":null}}" \

27− "http://localhost:$port" | xargs printf %s | sed 's/\\n/\n/g'

28−}

29−

30−lensa() {

31− curl -s \

32− --data "{\"source\":{\"dojo\":\"$2\"},\"sink\":{\"app\":\"$1\"}}" \

33− "http://localhost:$port" | xargs printf %s | sed 's/\\n/\n/g'

34−}

35−

36−sync() {

37− rsync -r --copy-links --exclude-from=$EXCLUDE_FILE "${cdir}"/../base-desk/* $DESK_DIR/

38− rsync -r --copy-links --exclude-from=$EXCLUDE_FILE "${cdir}"/../docs-dev-desk/* $DESK_DIR/

39− rsync -r --copy-links --exclude-from=$EXCLUDE_FILE "${cdir}"/../desk/* $DESK_DIR/

40− if [ "$GLOBBER" ]; then

41− rsync -r --copy-links "${cdir}"/../ui/dist/* $DESK_DIR/astrolabe

42− fi

43−}

44−

45−

46−while getopts "wg" opt; do

47− case ${opt} in

48− w) WATCH_MODE="true"

49− ;;

50− g) GLOBBER="true"

51− ;;

52− *) usage

53− ;;

54− esac

55−done

56−

57−if [ -z "$WATCH_MODE" ]; then

58− echo "Installed %astrolabe to ${DESK_DIR}"

59− rm -r $DESK_DIR/*

60− sync

61− lensa 'hood' "+hood/commit %$DESK"

62− if [ "$GLOBBER" ]; then

63− lensd '-garden!make-glob %globber /astrolabe'

64− GLOBS="$PIER/.urb/put"

65− GLOB=$(ls -t $GLOBS | head -1)

66− TARGET_GLOBS="$cdir"/../globs/

67− mkdir -p $TARGET_GLOBS

68− cp "$GLOBS/$GLOB" $TARGET_GLOBS/

69− echo "copied from $GLOBS to $TARGET_GLOBS"

70− HASH="${GLOB//glob-/}"

71− HASH="${HASH//.glob/}"

72− echo $HASH

73− fi

74−else

75− echo "Watching for changes to copy to ${DESK_DIR}..."

76− rm -r $DESK_DIR/*

77− while [ 0 ]

78− do

79− sleep 0.8

80− sync

81− done

82−fi

bin/make_glob.pydeleted−208

@@ -1,208 +0,0 @@

1−#!/usr/bin/env python3

2−

3−import hashlib

4−import sys

5−from pathlib import Path

6−from urllib.parse import quote

7−

8−from noun import Cell, deep, intbytes, mug

9−

10−MIME_TYPES = {

11− "css": "text/css",

12− "gif": "image/gif",

13− "html": "text/html",

14− "ico": "image/x-icon",

15− "jpeg": "image/jpeg",

16− "jpg": "image/jpeg",

17− "js": "application/javascript",

18− "json": "application/json",

19− "png": "image/png",

20− "svg": "image/svg+xml",

21− "ttf": "font/ttf",

22− "webmanifest": "application/manifest+json",

23− "woff": "font/woff",

24− "woff2": "font/woff2",

25−}

26−BASE32 = "0123456789abcdefghijklmnopqrstuv"

27−

28−

29−class BitWriter:

30− def __init__(self):

31− self.output = bytearray()

32− self.buffer = 0

33− self.used = 0

34− self.cursor = 0

35−

36− def write(self, value, count):

37− if count == 0:

38− return

39− self.buffer |= value << self.used

40− self.used += count

41− self.cursor += count

42− byte_count = self.used // 8

43− if byte_count:

44− self.output.extend(self.buffer.to_bytes((self.used + 7) // 8, "little")[:byte_count])

45− self.buffer >>= byte_count * 8

46− self.used -= byte_count * 8

47−

48− def finish(self):

49− if self.used:

50− self.output.append(self.buffer)

51− self.buffer = 0

52− self.used = 0

53− return bytes(self.output)

54−

55−

56−def jam_bytes(value):

57− writer = BitWriter()

58− references = {}

59−

60− def save(noun):

61− references[noun] = writer.cursor

62−

63− def mat(atom):

64− if atom == 0:

65− writer.write(1, 1)

66− return

67− atom_length = atom.bit_length()

68− length_size = atom_length.bit_length()

69− writer.write(1 << length_size, length_size + 1)

70− writer.write(atom_length & ((1 << (length_size - 1)) - 1), length_size - 1)

71− writer.write(atom, atom_length)

72−

73− def back(reference):

74− writer.write(3, 2)

75− mat(reference)

76−

77− def serialize(noun):

78− duplicate = references.get(noun)

79− if deep(noun):

80− if duplicate is not None:

81− back(duplicate)

82− return

83− save(noun)

84− writer.write(1, 1)

85− writer.write(0, 1)

86− serialize(noun.head)

87− serialize(noun.tail)

88− return

89− if duplicate is not None:

90− atom_size = noun.bit_length()

91− reference_size = duplicate.bit_length()

92− if atom_size >= reference_size:

93− back(duplicate)

94− return

95− save(noun)

96− writer.write(0, 1)

97− mat(noun)

98−

99− serialize(value)

100− return writer.finish()

101−

102−

103−def cord(value):

104− return int.from_bytes(value.encode(), "little")

105−

106−

107−def path_noun(parts):

108− result = 0

109− for part in reversed(parts):

110− result = Cell(cord(part), result)

111− return result

112−

113−

114−def dor(a, b):

115− if a == b:

116− return True

117− if deep(a):

118− if not deep(b):

119− return False

120− if a.head == b.head:

121− return dor(a.tail, b.tail)

122− return dor(a.head, b.head)

123− if deep(b):

124− return True

125− return a < b

126−

127−

128−def gor(a, b):

129− a_mug = mug(a)

130− b_mug = mug(b)

131− return dor(a, b) if a_mug == b_mug else a_mug < b_mug

132−

133−

134−def map_put(tree, entry):

135− if tree == 0:

136− return Cell(entry, Cell(0, 0))

137− node = tree.head

138− if entry.head == node.head:

139− return Cell(entry, tree.tail)

140− left = tree.tail.head

141− right = tree.tail.tail

142− if gor(entry.head, node.head):

143− return Cell(node, Cell(map_put(left, entry), right))

144− return Cell(node, Cell(left, map_put(right, entry)))

145−

146−

147−def shas(salt, serialized):

148− value_hash = int.from_bytes(hashlib.sha256(serialized).digest(), "little")

149− length = max(32, len(intbytes(salt)))

150− digest = hashlib.sha256((salt ^ value_hash).to_bytes(length, "little")).digest()

151− return int.from_bytes(digest, "little")

152−

153−

154−def sham(serialized):

155− hashed = shas(cord("sham"), serialized)

156− mask = (1 << 128) - 1

157− return (hashed & mask) ^ (hashed >> 128)

158−

159−

160−def scow_uv(value):

161− if value == 0:

162− return "0v0"

163− digits = []

164− while value:

165− value, digit = divmod(value, 32)

166− digits.append(BASE32[digit])

167− digits = "".join(reversed(digits))

168− first_length = (len(digits) - 1) % 5 + 1

169− groups = [digits[:first_length]]

170− groups.extend(digits[i:i + 5] for i in range(first_length, len(digits), 5))

171− return "0v" + ".".join(groups)

172−

173−

174−def file_entry(root, file_path):

175− relative = file_path.relative_to(root)

176− parts = []

177− for part in relative.parts:

178− parts.extend(quote(segment, safe="-_~") for segment in part.split("."))

179− extension = relative.suffix.removeprefix(".").lower()

180− if extension not in MIME_TYPES:

181− raise ValueError(f"no MIME type configured for {relative}")

182− data = file_path.read_bytes()

183− mime = Cell(path_noun(MIME_TYPES[extension].split("/")), Cell(len(data), int.from_bytes(data, "little")))

184− return Cell(path_noun(parts), mime)

185−

186−

187−def make_glob(source, destination):

188− root = Path(source)

189− files = sorted((path for path in root.rglob("*") if path.is_file()), key=lambda path: path.as_posix())

190− if not (root / "index.html").is_file():

191− raise ValueError("glob source must contain index.html")

192− glob = 0

193− for file_path in files:

194− glob = map_put(glob, file_entry(root, file_path))

195− serialized = jam_bytes(glob)

196− glob_hash = scow_uv(sham(serialized))

197− output = Path(destination)

198− output.mkdir(parents=True, exist_ok=True)

199− filename = f"glob-{glob_hash}.glob"

200− (output / filename).write_bytes(serialized)

201− (output / "hash").write_text(glob_hash + "\n")

202− print(filename)

203−

204−

205−if __name__ == "__main__":

206− if len(sys.argv) != 3:

207− raise SystemExit(f"usage: {sys.argv[0]} SOURCE_DIRECTORY OUTPUT_DIRECTORY")

208− make_glob(sys.argv[1], sys.argv[2])

config/ignore_files_on_install.txtdeleted−4

@@ -1,4 +0,0 @@

1−.*

2−*.sh

3−*.md

4−*.txt

desk/app/astrolabe.hoondeleted−345

@@ -1,345 +0,0 @@

1−/- *astrolabe

2−/+ *astrolabe, *search, slib=state

3−/+ *mip, naive, default-agent, dbug, agentio

4−/$ udon-to-docu %udon %docu

5−|%

6−+$ card card:agent:gall

7−--

8−%- agent:dbug

9−=| state-latest

10−=* state -

11−^- agent:gall

12−=<

13−|_ =bowl:gall

14−+* this .

15− def ~(. (default-agent this %.n) bowl)

16− hc ~(. +> bowl)

17−::

18−++ on-init

19− ^- (quip card _this)

20− :_ this

21− :~ ug-handler-card:hc

22− groups-link-patch-card:hc

23− talk-link-patch-card:hc

24− az-events-card:hc

25− ==

26−::

27−++ on-save !>(state)

28−++ on-load

29− |= old-state=vase

30− ^- (quip card _this)

31− =/ old !<(versioned-state old-state)

32− =/ [cards-01=(list card) new=state-latest]

33− ?. |(?=(?(%0 %1 %2 %3) -.old) (lth bump.old bump)) `old

34− (on-naive-state:hc get-nas:hc)

35− ?> ?=(%4 -.new)

36− =/ cards=(list card)

37− :~ ug-handler-card:hc

38− groups-link-patch-card:hc

39− talk-link-patch-card:hc

40− ==

41− =. cards (weld cards-01 cards)

42− [cards this(state new)]

43−++ on-poke on-poke:def

44−++ on-watch on-watch:def

45−++ on-leave on-leave:def

46−::

47−++ on-peek

48− |= =path

49− ^- (unit (unit cage))

50− ?+ path (on-peek:def path)

51− [%x %nop ~]

52− ``noun+!>(~)

53− [%x %point @ ~]

54− ``astrolabe-point+!>((get-point:hc &3.path))

55− [%x %point @ %spawned ?(~ [spawned-filter ~])]

56− =/ =ship `@p`(slav %p &3.path)

57− =/ filter t.t.t.t.path

58− =/ arg ?~(filter %all -.filter)

59− ``astrolabe-point-set+!>((get-spawned-points:hc ship arg))

60− [%x %search %patp @ ?(~ [%narrow ~])]

61− =/ =search-text (trip &4.path)

62− ?~ search-text ~|(%search-predicted-too-broad !!)

63− =/ expand-search =(t.t.t.path ~)

64− ``astrolabe-point-set+!>((search-opoints-patp:hc search-text expand-search))

65− [%x %search %sigil @ ~]

66− =/ =search-text (trip &4.path)

67− ?~ search-text ~|(%search-predicted-too-broad !!)

68− ``astrolabe-point-set+!>((search-opoints-sigil:hc search-text))

69− [%x %peers ~]

70− =/ peers .^((map ship ?(%alien %known)) %ax (scrio:hc %$ /peers))

71− ``astrolabe-point-set+!>((turn ~(tap in peers) head))

72− [%x %chart-data ~]

73− ``json+!>(get-chart-data:hc)

74− [%x %doc ^]

75− =/ doc-path=^path t.t.path

76− =/ doc (read-doc:hc doc-path)

77− ?~ doc

78− `~

79− ``json+!>(s+u.doc)

80− ==

81−++ on-agent

82− |= [=wire =sign:agent:gall]

83− ^- (quip card _this)

84− |^

85− ?+ wire (on-agent:def wire sign)

86− [%azimuth-events ~] (azimuth-event sign)

87− ==

88− ::

89− ++ azimuth-event

90− |= =sign:agent:gall

91− ^- (quip card _this)

92− ?+ -.sign [~ this]

93− %watch-ack

94− ?~ p.sign [~ this]

95− =/ =tank leaf+"{(trip dap.bowl)} couldn't start listen to %azimuth"

96− %- (slog tank u.p.sign)

97− [~ this]

98− ::

99− %fact

100− ?+ p.cage.sign (on-agent:def wire sign)

101− %naive-diffs

102− =+ !<(=diff:naive q.cage.sign)

103− =^ cards state

104− (on-naive-diff:hc diff)

105− [cards this]

106− ::

107− %naive-state

108− :: ~& > %received-azimuth-state

109− :: =+ !<([nas=^state:naive =indices:dice] q.cage.sign)

110− =+ !<([nas=^state:naive indices=*] q.cage.sign)

111− =^ cards state

112− (on-naive-state:hc nas)

113− [cards this]

114− ==

115− ==

116− --

117−::

118−++ on-arvo on-arvo:def

119−++ on-fail on-fail:def

120−--

121−::

122−:: Helper Core

123−|_ =bowl:gall

124−++ scrio ~(scry agentio bowl)

125−++ az-events-card [%pass /azimuth-events %agent [our.bowl %azimuth] %watch /event]

126−++ get-nas .^(^state:naive %gx (scrio %azimuth /nas/noun))

127−++ put-in-fropoints

128− |= =ship

129− ^- _state

130− =. fopoints

131− (put:ors fopoints (to-q ship) ~)

132− =. ropoints

133− (put:ors ropoints (switch-words (to-q ship)) ~)

134− state

135−::

136−++ put-in-spawn-mip

137− |= [child=ship nas=^state:naive]

138− ^- _state

139− =/ =npoint (get-npoint-from-nas child nas)

140− (put-in-spawn-mip:slib child npoint state)

141−::

142−++ on-naive-state

143− |= nas=^state:naive

144− ^- (quip card _state)

145− =+ points=points.nas :: =points, eh?

146− :- ~

147− |-

148− ^- _state

149− ?~ points state

150− =/ =ship -.n.points

151− =. state (put-in-fropoints ship)

152− =. state (put-in-spawn-mip ship nas)

153− $(points l.points, state $(points r.points))

154−::

155−++ on-naive-diff

156− |= =diff:naive

157− ^- (quip card _state)

158− :: ~& %+ weld "received diff:naive: {<-.diff>}"

159− :: ?+ -.diff ""

160− :: %nonce " ship: {<ship.diff>}"

161− :: %tx " from: {<ship.from.tx.raw-tx.diff>} - {<+<.tx.raw-tx.diff>}"

162− :: %point " ship: {<ship.diff>} - {<+>-.diff>}"

163− :: ==

164− =? state ?=([%tx [* * * %spawn ship *] *] diff)

165− %- put-in-fropoints

166− ship.tx.raw-tx.diff

167− =? state ?=([%point @ %owner *] diff)

168− %- put-in-fropoints

169− ship.diff

170− =? state ?=([%point @ *] diff)

171− %+ put-in-spawn-mip

172− ship.diff

173− get-nas

174− `state

175−::

176−++ is-spawn-tx

177− |= =diff:naive

178− ^- ?

179− ?= [%tx [* * * %spawn ship *] *] diff

180−::

181−++ get-unpoint-term

182− |= ship-name=term

183− .^(unpoint %gx (scrio %azimuth /point/[ship-name]/noun))

184−::

185−++ get-unpoint

186− |= =ship

187− (get-unpoint-term (scot %p ship))

188−::

189−++ get-point

190− |= ship-name=term

191− ^- point

192− =/ =ship `@p`(slav %p ship-name)

193− =/ unpoint (get-unpoint-term ship-name)

194− :* ship

195− unpoint

196− (spa-count ship)

197− (sponsor-chain ship unpoint)

198− (probable-dominion ship unpoint)

199− ==

200−++ get-npoint-from-nas

201− |= [=ship nas=^state:naive]

202− ^- npoint

203− (need (get:orm:naive points.nas ship))

204−::

205−++ run-spawned-points

206− |* [agg=mold targ=ship nas=^state:naive filter=spawned-filter]

207− |= f=$-([agg [ship npoint]] agg)

208− ^- agg

209− =| =agg

210− ?. ?=(?(%czar %king) (clan:title targ))

211− agg

212− =+ points=points.nas

213− |-

214− ^- _agg

215− ?~ points

216− agg

217− =* n -.n.points

218− =/ gt=? (por:naive targ n)

219− ?: |(=(targ n) !gt)

220− $(points r.points)

221− =? agg =(targ (end (add 2 (xeb (met 3 targ))) n))

222− $(points r.points)

223− =/ should-agg

224− ?& =(targ (^sein:title n))

225− ?| =(filter %all)

226− .= =(filter %locked) (is-npoint-locked +.n.points)

227− ==

228− ==

229− =? agg should-agg

230− (f agg n.points)

231− $(points l.points)

232−++ get-spawned-points

233− |= [targ=ship filter=spawned-filter]

234− =/ nas get-nas

235− %- (run-spawned-points (list ship) targ nas filter)

236− |= [agg=(list ship) [spawn=ship *]]

237− [spawn agg]

238−::

239−++ spa-count

240− |= targ=ship

241− %- (run-spawned-points @ud targ get-nas %all)

242− |= [agg=@ud [spawn=ship *]]

243− +(agg)

244−::

245−++ search-opoints-patp

246− |= [=search-text expand-search=?]

247− ^- (list ship)

248− =/ search-fulls

249− ?: expand-search

250− (search-text-to-fulls search-text)

251− ~[(search-text-to-full search-text)]

252− (search-opoints search-fulls)

253−::

254−++ search-opoints-sigil

255− |= [=search-text]

256− ^- (list ship)

257− =/ search-fulls

258− ~[(sigil-search-text-to-full search-text)]

259− (search-opoints search-fulls)

260−::

261−++ search-opoints

262− |= [search-fulls=(list search-full)]

263− ^- (list ship)

264− =/ mr-searches (maybe-reverse-searches search-fulls 1.000)

265− :: ~& (turn mr-searches |=(=mr-search pain.mr-search))

266− :: ~& mr-searches

267− ?~ mr-searches ~|(%search-predicted-too-broad !!)

268− =/ res

269− %+ roll `(list mr-search)`mr-searches

270− (run-mr-search fopoints ropoints)

271− :: ~& "search for {<search-text>}".

272− :: " returning {<~(wyt by agg.res)>}".

273− :: " of {<count.res>} results"

274− (turn ~(tap in agg.res) head)

275−::

276−++ sponsor-chain

277− |= [=ship =unpoint]

278− ^- (list ^ship)

279− ?~ unpoint ~

280− =/ sponsor sponsor.net.u.unpoint

281− ?. has.sponsor ~

282− =/ spon who.sponsor

283− ?: =(spon ship) ~

284− :- spon

285− =/ spon-point (get-unpoint spon)

286− $(ship spon, unpoint spon-point)

287−::

288−++ probable-dominion

289− |= [=ship =unpoint]

290− ^- dominion:naive

291− ?^ unpoint

292− dominion.u.unpoint

293− =/ parent (^sein:title ship)

294− ?: =(parent ship) %l1

295− =/ parent-point (get-unpoint parent)

296− $(ship parent, unpoint parent-point)

297−::

298−++ get-chart-data

299− ^- json

300− =/ nas get-nas

301− =/ main-data

302− ^- tape

303− %- ~(rep by spam)

304− |= [[=ship kids=(map ship tape)] agg=tape]

305− ^- tape

306− %+ weld agg

307− %+ pdata:smel (ship:smel ship)

308− (flop ~(val by kids))

309− =/ gal-data

310− %+ pdata:smel "base"

311− %+ turn galaxies

312− |= gal=ship

313− =/ npoint (get-npoint-from-nas gal nas)

314− (pdata:smel (pmeta:smel gal npoint) ~)

315− s+(crip :(weld "[" gal-data main-data "]"))

316−::

317−::

318−++ ug-handler-card

319− =/ ug-vase !>([/astrolabe '/apps/astrolabe/#'])

320− [%pass /monkey-ug %agent [our.bowl %monkey] %poke [%bind-ug ug-vase]]

321−++ groups-link-patch-card

322− =/ catch [%cord '/apps/groups/desk.js']

323− =/ hatch [%before "."]

324− =/ patch [/apps/groups catch hatch groups-link-thatch]

325− =/ patch-kit-vase !>([/groups/astrolabe/link patch])

326− [%pass /monkey/patch/groups/link %agent [our.bowl %monkey] %poke [%patch patch-kit-vase]]

327−++ talk-link-patch-card

328− =/ catch [%cord '/apps/talk/desk.js']

329− =/ hatch [%before "."]

330− =/ patch [/apps/talk catch hatch groups-link-thatch]

331− =/ patch-kit-vase !>([/talk/astrolabe/link patch])

332− [%pass /monkey/patch/talk/link %agent [our.bowl %monkey] %poke [%patch patch-kit-vase]]

333−::

334−++ read-doc

335− |= =path

336− =/ doc-path=^path :(weld /doc/usr path /udon)

337− ^- (unit @t)

338− ?. .^(? %cu (scrio q.byk.bowl doc-path))

339− ~

340− =/ mme=(each manx tang) (mule |.((udon-to-docu .^(@t %cx (scrio q.byk.bowl doc-path)))))

341− ?: ?=(%.n -.mme)

342− %- (slog p.mme)

343− ~

344− `(crip (en-xml:html p.mme))

345−--

desk/desk.bill+1−2

@@ -1,2 +1 @@

1−:~ %astrolabe

2−==

1+~

desk/desk.docket-0+5−6

@@ -1,10 +1,9 @@

11:~ title+'Astrolabe'

2− info+'Your guide to the Urbit constellations. Search for ships, view their info, and explore the Star Chart.'

3− color+0x1f.243c

4− image+'https://raw.githubusercontent.com/johnhyde/astrolabe/main/ui/src/assets/astrolabe-tile.svg'

5− glob-http+['https://s3.us-east-2.amazonaws.com/warkgnall.com/urbit/astrolabe/globs/glob-0v4.88rt1.guqn5.nnatp.lca68.ej9aj.glob' 0v4.88rt1.guqn5.nnatp.lca68.ej9aj]

2+ info+'An Urbit app that does great things'

3+ color+0x2e.4347

4+ glob-http+['https://bootstrap.urbit.org/glob-0v5.hurm4.ejod5.ngg9h.iub9i.n1j7o.glob' 0v5.hurm4.ejod5.ngg9h.iub9i.n1j7o]

65 base+'astrolabe'

7− version+[1 0 7]

8− website+'https://github.com/johnhyde/astrolabe'

6+ version+[0 0 1]

7+ website+'https://github.com'

98 license+'MIT'

109==

desk/desk.sealdeleted−7

@@ -1,7 +0,0 @@

1−:- :~ [%watch & %azimuth /event]

2− [%reads %gall `%x `%azimuth /]

3− [%reads %clay `%u ~ /]

4− [%reads %clay `%x ~ /]

5− [%reads %ames `%x ~ /peers]

6− ==

7−~

desk/doc.tocdeleted−15

@@ -1,15 +0,0 @@

1−/overview/udon Overview

2−/usr User

3− /urbit-id/udon What is an Urbit ID?

4− /galaxy/udon Galaxies

5− /star/udon Stars

6− /planet/udon Planets

7− /moon/udon Moons

8− /comet/udon Comets

9− /patpee/udon What is a @p?

10− /phonemes/udon Phonemes - Prefixes & Suffixes

11− /sigil/udon What is a Sigil?

12− /azimuth/udon What is Azimuth?

13− /l2/udon Layer 1 and Layer 2

14− /keys/udon Networking Keys

15− /astrolabe/udon About Astrolabe

desk/doc/overview.udondeleted−26

@@ -1,26 +0,0 @@

1−;>

2−# Astrolabe

3−

4−Currently Astrolabe lets you input `@p`s, Azimuth point numbers, or sigils

5−to look up ships on the network. Use the Star Chart to explore visually.

6−There's also Help Documentation if you want to learn more about how Urbit IDs work.

7−

8−[How to Use Astrolabe](/~/scry/docs/usr/astrolabe/astrolabe.html)

9−

10−## Info

11−

12−- Developer: ~midlev-mindyr

13−- License: MIT

14−- App link: [~dister-midlev-mindyr/astrolabe](web+urbitgraph://~dister-midlev-mindyr/astrolabe)

15−- Source repo: [https://github.com/johnhyde/astrolabe](https://github.com/johnhyde/astrolabe)

16−- Bug reports: [https://github.com/johnhyde/astrolabe/issues](https://github.com/johnhyde/astrolabe/issues)

17−

18−## Feedback

19−

20−If you run into issues with the app, or want to voice comments or concerns,

21−please post in the group `~poster-hoster-midlev-mindyr/astrolabe`, send a DM to `~midlev-mindyr`,

22−or [create an Issue on GitHub](https://github.com/johnhyde/astrolabe/issues).

23−

24−If you see something you want to improve, please fork the [GitHub repository](https://github.com/johnhyde/astrolabe) and make a pull request.

25−

26−Thanks for using Astrolabe. I hope it serves you well.

desk/doc/usr/astrolabe.udondeleted−107

@@ -1,107 +0,0 @@

1−;>

2−# Astrolabe

3−

4−Astrolabe is your one-stop shop for exploring Urbit address space.

5−Currently, Astrolabe lets you type in `@p`s or Azimuth point numbers

6−to look up ships on the network. You can search your contacts and

7−spawned ships with partial or wildcard searches, e.g. `sampel-***net`.

8−

9−There's also Help Documentation if

10−you want to learn more about how Urbit IDs work.

11−

12−## Keyboard Shortcuts

13−

14−- `/` - focus the search bar

15−- `escape` - leave text fields, close help pages, etc

16−- `?` - open the help docs

17−- `s` - switch to sigil search

18−- `p` - switch to patp search

19−- `backspace` or `x` - clear sigil input info

20−

21−

22−## How to Use Search

23−

24−When you type part of a `@p` into the search bar, all your contacts and peers will be

25−searched for IDs matching that string. You can use an asterisk (`*`) to

26−stand in for any character. If you wanted to search for both `~samnec` and `~sarbec`,

27−you could type `~sa**ec`.

28−Contacts are listed before other ships, with a gold border on the left.

29−

30−You can exclude moons or include comets you've met with the toggles in the gold

31−settings box under the search bar.

32−

33−The records of all spawned ships will also be searched, but if the search is

34−too general it will be narrowed in scope, or not run at all. For example,

35−if you search for `***hec`, it will search for all stars under `~hec`,

36−and all planets that match `~***hec-******`, but planets matching `~******-***hec`

37−will be ignored to prevent the search from taking too long.

38−

39−## Sigil Search

40−

41−Clicking the symbol at the right of the search bar opens the Sigil Input Tool.

42−Use the dropdown at the top to select Galaxy, Star, or Planet.

43−Click on a square to start selecting sigil components.

44−

45−Select component categories on the right, and then click the options on the sigil

46−to add them to your search.

47−

48−The ^ button goes up a level so you can select another category.

49−The X button will clear sigil components from the current symbol,

50−except the basic shape. If only the basic shape remains, the X button will clear that.

51−At the top level, the X button will clear all inputs.

52−

53−Your contacts will be searched for any input.

54−When the search has become specific enough,

55−all spawned ships with matching sigils will be shown.

56−If your input is unambiguous, the page for the matching ship will be shown,

57−whether the ship is spawned or not.

58−

59−NOTE: Some sigil inputs are considered ambiguous, even if they exactly match

60−a particular sigil, because further details could match a different sigil.

61−E.g. `~zod` is a circle, but a circle in the suffix position might be intended as a more general search.

62−A future version of Astrolabe will allow you to view the ship

63−whose sigil most closely matches your search, even if the search is ambiguous.

64−

65−Read more about Sigils [here](/~/scry/docs/usr/astrolabe/sigil.html).

66−

67−## The Star Chart

68−

69−Click and drag to move your view; use the mouse wheel to zoom in and out. Click on a dot

70−to see the full Ship View. Enter full `@p`s in the search bar to find a specific point.

71−

72−Please note that stars [locked in the Linear Release Contract](/~/scry/docs/usr/astrolabe/star.html)

73−are not shown in the Star Chart, as they are not yet a part of the network (though they've technically

74−been spawned).

75−

76−The Sponsors/Parents toggle lets you switch between two different views of the network.

77−The default Sponsors view shows each planet under its sponsoring star and each

78−star under its sponsoring galaxy. Planets and Stars without sponsors are not

79−present in this view.

80−The Parent view simply shows each point under the point that spawned it. All spawned points

81−are shown in this view, with the exception of locked stars.

82−In both views, all galaxies are shown for completeness.

83−

84−The All/Peers/Pals selector lets you filter which points are easily visible in the graph.

85−If you select Peers, only those ships that your ship has talked to will be full-colored.

86−If you select Pals, only ships you've added in `%pals` will be full-colored.

87−

88−## Info

89−

90−- Developer: ~midlev-mindyr

91−- License: MIT

92−- App link: [~dister-midlev-mindyr/astrolabe](web+urbitgraph://~dister-midlev-mindyr/astrolabe)

93−- Discussion Group: [~poster-hoster-midlev-mindyr/astrolabe](web+urbitgraph://group/~poster-hoster-midlev-mindyr/astrolabe)

94−- [%quorum](web+urbitgraph://~dister-dister-sidnym-ladrut/quorum) board: ~poster-hoster-midlev-mindyr/astrolabe

95−- Grant/Proposal: [https://urbit.org/grants/astrolabe](https://urbit.org/grants/astrolabe)

96−- Source repo: [https://github.com/johnhyde/astrolabe](https://github.com/johnhyde/astrolabe)

97−- Bug reports: [https://github.com/johnhyde/astrolabe/issues](https://github.com/johnhyde/astrolabe/issues)

98−

99−## Feedback

100−

101−If you run into issues with the app, or want to voice comments or concerns,

102−please post in the group `~poster-hoster-midlev-mindyr/astrolabe`, send a DM to `~midlev-mindyr`,

103−or [create an Issue on GitHub](https://github.com/johnhyde/astrolabe/issues).

104−

105−If you see something you want to improve, please fork the [GitHub repository](https://github.com/johnhyde/astrolabe) and make a pull request.

106−

107−Thanks for using Astrolabe. I hope it serves you well.

desk/doc/usr/azimuth.udondeleted−51

@@ -1,51 +0,0 @@

1−;>

2−# Azimuth

3−

4−_Adapted from [the Glossary](https://urbit.org/docs/glossary/azimuth)_

5−

6−Azimuth is Urbit's identity layer, built as a suite of smart contracts on

7−the Ethereum blockchain and several apps running locally on your

8−[ship](/~/scry/docs/usr/astrolabe/urbit-id.html).

9−It is Urbit's method of securing the digital identities that are required to use

10−the [Arvo](https://urbit.org/docs/glossary/arvo) peer-to-peer network,

11−without the need for a central authority.

12−Azimuth identities (also called points) exist as non-fungible tokens (NFTs),

13−which are owned by Ethereum addresses and can be transferred between such addresses.

14−Identities can use the [claims](https://urbit.org/docs/glossary/claims)

15−contract to make assertions – real-world or otherwise – about their owner.

16−

17−The primary way to interact with Azimuth and to manage your (also called points)

18−is through the [Bridge](https://bridge.urbit.org/) application.

19−Bridge is a front-end for [Ecliptic](https://urbit.org/docs/glossary/ecliptic),

20−the Azimuth contract that's used to perform actions on the blockchain.

21−

22−There are a limited number of Azimuth identities, which results in identities having value.

23−Users are therefore more careful to maintain a good reputation,

24−rather than using identities disposably.

25−Undesirable behavior—spamming, scamming, and malware-spreading—will generally result in

26−a [censure](https://urbit.org/docs/glossary/censure)

27−from [galaxies](/~/scry/docs/usr/astrolabe/galaxy.html)

28−and [stars](/~/scry/docs/usr/astrolabe/star.html), marking the bad actor.

29−

30−It should be noted that Azimuth isn't built just for Arvo.

31−It can be used as an identity system for other projects.

32−

33−## Layer 1 and Layer 2

34−

35−All Azimuth transactions that happen directly on Ethereum (the default) are considered to

36−be on "Layer 1", or L1 for short.

37−However, Ethereum gas prices can make simple L1 transactions like spawning a planet very

38−expensive.

39−In 2021, Tlon developed a "Layer 2" solution (a.k.a. L2) whereby many transactions can be

40−"rolled up" and posted to Ethereum at once, to be validated by each Urbit ship.

41−This dramatically reduces gas costs, and Tlon provides a roller which is free for public use.

42−

43−[Read More about L1 and L2](/~/scry/docs/usr/astrolabe/l2.html)

44−

45−## Further Reading

46−

47−- [The Azimuth concepts page](https://urbit.org/docs/azimuth/azimuth):

48− A more in-depth explanation of Azimuth.

49−- [Install instructions](https://urbit.org/getting-started/):

50− Guide to installing Urbit, which includes instructions on booting with your Urbit identity.

51−- [Understanding Urbit ID](https://urbit.org/understanding-urbit/urbit-id)

desk/doc/usr/comet.udondeleted−10

@@ -1,10 +0,0 @@

1−;>

2−[< What is an Urbit ID?](/~/scry/docs/usr/astrolabe/urbit-id.html)

3−

4−# Comets

5−

6−Comets are essentially unlimited, and can be created for free by anyone.

7−They're good for new people exploring the network, operating somewhat anonymously,

8−and testing things out. However, the keys for a comet can't be changed, so it's not

9−not a viable long-term ID. Also, since anyone can boot a comet, comets might be viewed

10−with distrust in some contexts.

desk/doc/usr/galaxy.udondeleted−36

@@ -1,36 +0,0 @@

1−;>

2−[< What is an Urbit ID?](/~/scry/docs/usr/astrolabe/urbit-id.html)

3−

4−# Galaxies

5−

6−Galaxies are the rarest and highest ranking class of Urbit ID, as there are only 256 of them.

7−Together, they form the [Galactic Senate](https://urbit.org/docs/glossary/senate)

8−which has the power make changes to the Urbit ID system.

9−Galaxies help route communication on the network, and each one can spawn 255 [stars](/~/scry/docs/usr/astrolabe/star.html).

10−

11−## @p

12−

13−A galaxy `@p` is just one phoneme, 3 letters. E.g. `~zod`, `~bus`, and `~fes` are galaxies.

14−

15−## Spawning

16−

17−Each galaxy can spawn 255 stars.

18−These stars will have 2-phoneme `@p`s starting with a prefix, and ending with the galaxy's `@p`.

19−E.g. `~zod` spawned `~marzod`, `~binzod`, and `~wanzod`, among others.

20−

21−## Sponsoring

22−

23−A galaxy can sponsor stars and planets, although usually planets are sponsored by stars.

24−By default, a galaxy will sponsor all its children, although it can sponsor others as well.

25−

26−Galaxies perform peer discovery for their sponsees, meaning that they tell other Urbit IDs

27−where they can find their sponsees so that they can communicate directly withthem—similar to

28−asking a DNS server to tell you where to look for google.com.

29−Thus, it is crucially important that galaxies be online and reachable.

30−

31−## The Galactic Senate

32−

33−All galaxy owners are members of the [Galactic Senate](https://urbit.org/docs/glossary/senate).

34−Galaxy owners can [vote](https://urbit.org/docs/glossary/voting) on proposals

35−to upgrade the logic of [Azimuth](/~/scry/docs/usr/astrolabe/azimuth.html)

36−or approve the content of a document.

desk/doc/usr/keys.udondeleted−63

@@ -1,63 +0,0 @@

1−;>

2−# Networking Keys

3−

4−Each Urbit ship proves its identity on the network by signing its messages

5−with a pair of networking keys. By signing a message with a private key,

6−you prove that you are the owner of the associated public key.

7−

8−Since public keys are stored in [Azimuth](/~/scry/docs/usr/astrolabe/azimuth.html),

9−other ships can verify your identity by checking your signatures.

10−

11−## Keyfile

12−

13−A keyfile is just a file containing your networking keys. It is used when

14−booting Arvo (Urbit's OS) for the first time, and the information within

15−is baked into the resulting ship. After this, the keyfile should be deleted

16−to prevent accidentally double-booting in the future.

17−

18−## Changing Keys

19−

20−If your private key is compromised, you can change your keys in Bridge and

21−update your ship by running `|rekey 'new-private-key-goes-here'` in Dojo (the terminal).

22−This will increase your `life` number in Azimuth, which is just a record of how many

23−times your keys have been revised. This number will also be incremented if you

24−set new keys in the course of performing a factory reset.

25−

26−Since keys must be set before a ship can be booted,

27−all active Urbit IDs will have a `life` of at least 1.

28−

29−# Performing a Factory Reset (a.k.a. Breaching)

30−

31−When using the network, ships keep track of the order of all the messages they've sent

32−and received, and use this to ensure that they process messages properly.

33−This is called continuity.

34−

35−Performing a factory reset means breaking continuity—asking the rest of the network

36−to forget your past messages and treat you like a new ship. It also involves clearing

37−your own event log, and consequently all apps and data on the ship.

38−Sometimes this is done to resolve networking errors, like those caused by double-booting.

39−This is also appropriate when transferring an ID to someone else, to give them a fresh start.

40−

41−Because factory resets involve booting a fresh ship, you'll need to rejoin groups,

42−reinstall apps, and generally start from scratch. Trying to continue using your old pier

43−(the folder containing your data) will just cause more networking issues.

44−There are, however, a few unofficial tools with which you can restore some data from

45−a previous pier, and more will likely be built over time.

46−

47−If you want to avoid breaching, avoid double-booting and don't delete your pier.

48−If you want to move your pier (e.g. to host your ship on a remote server), it is

49−crucial that you shut down your ship before you start it somewhere else.

50−If you have two different instances of the same ship trying to run at the same time,

51−other ships will get confused and you will need to breach to communicate with them properly.

52−Deleting your pier, or using an outdated archive of your pier will have the same effect.

53−

54−Breaching, or performing a factory reset, will increment your `rift` number in Azimuth,

55−so this number is an indicator of how many times a ship has breached.

56−Ships which have never breached have a `rift` of 0.

57−

58−# Further Reading

59−

60−- [Setting initial networking keys](https://urbit.org/using/id/using-bridge#set-your-networking-keys)

61−- [Guide to Factory Resets](https://urbit.org/using/id/guide-to-resets)

62−- [Life and Rift](https://urbit.org/docs/azimuth/life-and-rift)

63−- [Glossary: Keyfile](https://urbit.org/docs/glossary/keyfile)

desk/doc/usr/l2.udondeleted−60

@@ -1,60 +0,0 @@

1−;>

2−# What are Layer 1 and Layer 2?

3−

4−## Layer 1 (L1) - Azimuth smart contracts

5−

6−All Azimuth transactions that happen directly on Ethereum (the default) are considered to

7−be on "Layer 1", or L1 for short. The effects of these transactions are calculated and

8−stored on the Ethereum blockchain, so a nontrivial amount of "gas" must be expended for

9−each L1 transaction.

10−

11−## The need for a workaround

12−

13−In 2021, the Ethereum blockchain saw a large increase in traffic which caused

14−gas prices to skyrocket. It became prohibitively expensive for many to spawn or set keys

15−for new IDs, so Tlon started developing a workaround.

16−

17−## Layer 2 (L2) - Naive Rollups

18−

19−Tlon developed a "Layer 2" solution (a.k.a. L2) whereby many transactions can be

20−"rolled up" and posted to Ethereum at once, to be validated by each Urbit ship.

21−

22−The technical term for this is "naive rollups" because transactions are combined and

23−posted to Ethereum without being validated.

24−Each Urbit ship validates the transactions locally to determine who actually owns what.

25−

26−Combining transactions and offloading computation

27−from Ethereum to Urbit dramatically reduces gas costs.

28−Using L2 is so cheap that Tlon provides a free "roller" which is used when performing

29−L2 actions through Bridge.

30−

31−The introduction of L2 also makes it possible for new users to receive and start using

32−Urbit IDs without ever interacting with the blockchain themselves, making Urbit generally

33−more accessible.

34−

35−### Moving to Layer 2

36−

37−Most L2 actions require the ship to first "move to L2", which can be done through Bridge.

38−Technically, this consists of transferring the ID to `0x1111111111111111111111111111111111111111`.

39−This tells the Layer 2 code that the ship is on L2.

40−After that, all Azimuth transactions will be done on L2. It is not possible to move

41−an L2 ship back to L1.

42−

43−For galaxies and stars that want to spawn new IDs on L2, they can move only their spawn proxy

44−to L2. They will remain on L1, but any new children will be on L2. This change is also irreversible.

45−

46−Galaxies cannot move fully to L2, but they can move their spawn proxy to L2. Note, however, that

47−any stars locked in the Linear Release Contract are technically already spawned on L1,

48−and would need to be transferred to L2 separately.

49−

50−### Sponsorship between L1 and L2

51−

52−A sponsor and its sponsee can live on separate layers, but unless they are both on L1,

53−most sponsorship actions will need to take place on L2. This is the situation where an L1 ID

54−can take actions on L2 without moving to L2.

55−

56−# Further Reading

57−

58−- [Technical Overview of L2](https://urbit.org/docs/azimuth/l2/layer2)

59−- [Blog on Naive Rollups](https://urbit.org/blog/rollups)

60−- [Technical Details about which ships can perform which L2 actions](https://urbit.org/docs/azimuth/l2/l2-actions)

desk/doc/usr/moon.udondeleted−8

@@ -1,8 +0,0 @@

1−;>

2−[< What is an Urbit ID?](/~/scry/docs/usr/astrolabe/urbit-id.html)

3−

4−# Moons

5−

6−Moons are created, owned, and controlled by a parent ID, either a galaxy, star, or planet.

7−Moons are free and easy to create, and each Azimuth point can create about 4 billion.

8−Moons can use the Urbit network just like any other ID, but they are inextricably linked to their parents.

desk/doc/usr/patpee.udondeleted−104

@@ -1,104 +0,0 @@

1−;>

2−# What is a @p?

3−

4−First of all, it's pronounced "pat-pee", and we'll see why later.

5−

6−## It's a name

7−

8−Your `@p` is your name on Urbit, and it's designed to be pronounceable.

9−A `@p` starts with a tilde (`~`), and is made up of 3-letter phonemes/syllables, a combination of prefixes and suffixes.

10−There are 256 prefixes, and 256 suffixes.

11−`~zod` and `~bus` are galaxies, so their whole `@p`s are just one suffix.

12−

13−Most `@p`s are made up of 6-letter "words" ( a prefix + a suffix), joined by hyphens.

14−E.g. `~midlev-mindyr` has the prefixes `mid` and `min` and the suffixes `lev` and `dyr`.

15−You can see a list of prefixes and suffixes [here](/~/scry/docs/usr/astrolabe/phonemes.html).

16−

17−## It's a number

18−

19−A `@p` is actually just a way to write a non-negative integer with phonemes.

20−That means every `@p` can be written as a number, and any non-negative integer can be written as a `@p`.

21−- `~zod` is 0 (the first galaxy)

22−- `~marzod` is 256 (the first star)

23−- `~dapnep-ronmyl` is 65536 (256², the first planet)

24−- `~sampel-palnet` is 1624961343.

25−- `~doznec-dozzod-dozzod` is 4294967296 (256⁴, the first moon, moon of `~zod`)

26−

27−For [Azimuth points](/~/scry/docs/usr/astrolabe/azimuth.html), this number is also

28−called the Azimuth number, and it's stored on the blockchain instead of a `@p`.

29−The highest Azimuth number is 256⁴ - 1 (4294967295).

30−Everything above that is a moon, a comet, or not a valid ID number.

31−

32−## It's a username / email address / phone number

33−

34−A `@p` is the unique identifier for a ship, and it's used all throughout Urbit, in the code and in user-facing apps.

35−A `@p` can't be changed.

36−It will always refer to the same Urbit ID, and that Urbit ID will always have the same `@p`.

37−A given ID may change owners, however, and you can always buy a new ID with a new `@p`.

38−

39−## How to tell a ship's class

40−

41−It's easy to tell the class of a ship by looking at its `@p`.

42−- If it's just 1 phoneme, a suffix, like `~zod` or `~bus`, it's a [galaxy](/~/scry/docs/usr/astrolabe/galaxy.html).

43−

44−- If it has 2 phonemes, a prefix and a suffix, like `~marzod` or `~batbus`, it's a [star](/~/scry/docs/usr/astrolabe/star.html).

45−

46− The suffix of a star `@p` is its parent galaxy, so the parent of `~marzod` is `~zod`, and the parent of `~batbus` is `~bus`.

47−

48−- If it has 4 phonemes separated by a hyphen, like `~sampel-palnet`, it's a [planet](/~/scry/docs/usr/astrolabe/planet.html).

49−

50− Unlike stars, planet `@p`s don't contain the `@p` of their parent—the names are scrambled

51− to give each star a good variety of planet `@p`s to spawn.

52−

53−- If it has 8 phonemes, like `~poster-hoster-midlev-mindyr`, it's a [moon](/~/scry/docs/usr/astrolabe/moon.html).

54−

55− If it has 4 phonemes separated by a caret, like `~midlev^mindyr`, that's an abbreviated moon `@p`.

56− The last 4 phonemes of a moon `@p` give its parent, and are used in the abbreviation.

57−

58−- If it has 16 phonemes, like `~dirbec-morfeb-ritlys-timsef--padnum-mapnep-nolfel-binzod`,

59− or more likely 4 phonemes separated by an underscore, like `~dirbec_binzod`,

60− it's a [comet](/~/scry/docs/usr/astrolabe/comet.html).

61−

62− You may notice a double hyphen in the center of the full comet `@p`.

63− This is part of the required syntax of a `@p`, and makes it easier to read.

64− The abbreviation combines the first and last "words" of the `@p` with an underscore.

65−

66−

67−## The thing about `doz` and `zod`

68−

69−Remember that a `@p` is actually just a way of writing a number.

70−Technically, a `@p` is a base-256 number, as it's composed of prefixes and suffixes,

71−and there are 256 of each. Sure, you could write a number with just prefixes, or just suffixes,

72−but it wouldn't be as interesting to read, and it wouldn't be a valid `@p`.

73−

74−So each phoneme is equivalent to a number, 0-255.

75−`doz` is the prefix version of 0, and `zod` is the suffix version of 0.

76−Just as we usually don't write leading zeroes in our numbers, we omit the equivalent

77−of leading zeroes in `@p`s.

78−This is why you will never see `~dozler`, or `~dozzod-palnet`. It would be sort of like writing `000218` or `0000032591`. It's just `~ler` and `~palnet`. You might, however, run into `~dozler-palnet`, as planet `@p`s are never shortened to 3 phonemes.

79−

80−One place you're likely to see these show up is in moon `@p`s.

81−A moon `@p` is one or two "words" of the parent's choosing, plus the parent's `@p`.

82−E.g. `~sampel-palnet` could create `~dister-sampel-palnet` or `~mister-master-sampel-palnet`,

83−among others.

84−

85−If a galaxy or a star creates a moon,

86−its `@p` must be "padded out" to make up the last 4 phonemes of the moon `@p`.

87−`~ler` could thus create `~faster-dozzod-dozler` or `~poster-hoster-dozzod-dozler`.

88−See how `doz` and `zod` were used to pad out `ler` to 4 phonemes?

89−Similarly, `~palnet` could create `~walrus-dozzod-palnet` or `~doznec-tortul-dozzod-palnet`.

90−

91−## Why is it called a "patpee"?

92−

93−In Hoon, Urbit's typed programming language, numbers can have different "auras",

94−depending on what they represent. Some auras include `@u` for an unsigned integer,

95−`@t` for arbitrary text stored as a number, `@if` for an IPv4 address, and of course

96−`@p` for writing a number in phonemes.

97−

98−So why the "pat"?

99−Hoon involves a lot more symbols than most programming languages (e.g. `.!=?|+:%^$;~-` and so on).

100−To help programmers talk out loud about Hoon, each symbol is associated with a 3-letter phoneme.

101−In this system, `=/` is pronounced "tisfas", `%-` is "cenhep", and, you guessed it, `@` is "pat".

102−

103−In short, `@p` is originally a programming term, the programmers pronounce it "pat-pee",

104−so that's how it's pronounced.

desk/doc/usr/phonemes.udondeleted−45

@@ -1,45 +0,0 @@

1−;>

2−# Phonemes - Prefixes & Suffixes

3−

4−[< What is a @p?](/~/scry/docs/usr/astrolabe/patpee.html)

5−

6−`@p`s are made up of 3-letter phonemes, a mixture of prefixes and suffixes.

7−Here's an exhaustive list of each:

8−

9−## Prefixes

10−

11−`doz` `mar` `bin` `wan` `sam` `lit` `sig` `hid` `fid` `lis` `sog` `dir` `wac` `sab` `wis` `sib`

12−`rig` `sol` `dop` `mod` `fog` `lid` `hop` `dar` `dor` `lor` `hod` `fol` `rin` `tog` `sil` `mir`

13−`hol` `pas` `lac` `rov` `liv` `dal` `sat` `lib` `tab` `han` `tic` `pid` `tor` `bol` `fos` `dot`

14−`los` `dil` `for` `pil` `ram` `tir` `win` `tad` `bic` `dif` `roc` `wid` `bis` `das` `mid` `lop`

15−`ril` `nar` `dap` `mol` `san` `loc` `nov` `sit` `nid` `tip` `sic` `rop` `wit` `nat` `pan` `min`

16−`rit` `pod` `mot` `tam` `tol` `sav` `pos` `nap` `nop` `som` `fin` `fon` `ban` `mor` `wor` `sip`

17−`ron` `nor` `bot` `wic` `soc` `wat` `dol` `mag` `pic` `dav` `bid` `bal` `tim` `tas` `mal` `lig`

18−`siv` `tag` `pad` `sal` `div` `dac` `tan` `sid` `fab` `tar` `mon` `ran` `nis` `wol` `mis` `pal`

19−`las` `dis` `map` `rab` `tob` `rol` `lat` `lon` `nod` `nav` `fig` `nom` `nib` `pag` `sop` `ral`

20−`bil` `had` `doc` `rid` `moc` `pac` `rav` `rip` `fal` `tod` `til` `tin` `hap` `mic` `fan` `pat`

21−`tac` `lab` `mog` `sim` `son` `pin` `lom` `ric` `tap` `fir` `has` `bos` `bat` `poc` `hac` `tid`

22−`hav` `sap` `lin` `dib` `hos` `dab` `bit` `bar` `rac` `par` `lod` `dos` `bor` `toc` `hil` `mac`

23−`tom` `dig` `fil` `fas` `mit` `hob` `har` `mig` `hin` `rad` `mas` `hal` `rag` `lag` `fad` `top`

24−`mop` `hab` `nil` `nos` `mil` `fop` `fam` `dat` `nol` `din` `hat` `nac` `ris` `fot` `rib` `hoc`

25−`nim` `lar` `fit` `wal` `rap` `sar` `nal` `mos` `lan` `don` `dan` `lad` `dov` `riv` `bac` `pol`

26−`lap` `tal` `pit` `nam` `bon` `ros` `ton` `fod` `pon` `sov` `noc` `sor` `lav` `mat` `mip` `fip`

27−

28−## Suffixes

29−

30−`zod` `nec` `bud` `wes` `sev` `per` `sut` `let` `ful` `pen` `syt` `dur` `wep` `ser` `wyl` `sun`

31−`ryp` `syx` `dyr` `nup` `heb` `peg` `lup` `dep` `dys` `put` `lug` `hec` `ryt` `tyv` `syd` `nex`

32−`lun` `mep` `lut` `sep` `pes` `del` `sul` `ped` `tem` `led` `tul` `met` `wen` `byn` `hex` `feb`

33−`pyl` `dul` `het` `mev` `rut` `tyl` `wyd` `tep` `bes` `dex` `sef` `wyc` `bur` `der` `nep` `pur`

34−`rys` `reb` `den` `nut` `sub` `pet` `rul` `syn` `reg` `tyd` `sup` `sem` `wyn` `rec` `meg` `net`

35−`sec` `mul` `nym` `tev` `web` `sum` `mut` `nyx` `rex` `teb` `fus` `hep` `ben` `mus` `wyx` `sym`

36−`sel` `ruc` `dec` `wex` `syr` `wet` `dyl` `myn` `mes` `det` `bet` `bel` `tux` `tug` `myr` `pel`

37−`syp` `ter` `meb` `set` `dut` `deg` `tex` `sur` `fel` `tud` `nux` `rux` `ren` `wyt` `nub` `med`

38−`lyt` `dus` `neb` `rum` `tyn` `seg` `lyx` `pun` `res` `red` `fun` `rev` `ref` `mec` `ted` `rus`

39−`bex` `leb` `dux` `ryn` `num` `pyx` `ryg` `ryx` `fep` `tyr` `tus` `tyc` `leg` `nem` `fer` `mer`

40−`ten` `lus` `nus` `syl` `tec` `mex` `pub` `rym` `tuc` `fyl` `lep` `deb` `ber` `mug` `hut` `tun`

41−`byl` `sud` `pem` `dev` `lur` `def` `bus` `bep` `run` `mel` `pex` `dyt` `byt` `typ` `lev` `myl`

42−`wed` `duc` `fur` `fex` `nul` `luc` `len` `ner` `lex` `rup` `ned` `lec` `ryd` `lyd` `fen` `wel`

43−`nyd` `hus` `rel` `rud` `nes` `hes` `fet` `des` `ret` `dun` `ler` `nyr` `seb` `hul` `ryl` `lud`

44−`rem` `lys` `fyn` `wer` `ryc` `sug` `nys` `nyl` `lyn` `dyn` `dem` `lux` `fed` `sed` `bec` `mun`

45−`lyr` `tes` `mud` `nyt` `byr` `sen` `weg` `fyr` `mur` `tel` `rep` `teg` `pec` `nel` `nev` `fes`

desk/doc/usr/planet.udondeleted−9

@@ -1,9 +0,0 @@

1−;>

2−[< What is an Urbit ID?](/~/scry/docs/usr/astrolabe/urbit-id.html)

3−

4−# Planets

5−

6−There are about 4.3 billion potential planets, so while they are not unlimited, they are

7−widely accessible for the average user. Most people pilot a planet or a moon when using Urbit.

8−As planets are the lowest rank of Azimuth point, they cannot spawn other points. Like galaxies

9−and stars, however, they can create [moons](/~/scry/docs/usr/astrolabe/moon.html).

desk/doc/usr/sigil-input.udondeleted−27

@@ -1,27 +0,0 @@

1−;>

2−# How to Search by Sigil

3−

4−Use the dropdown at the top to select Galaxy, Star, or Planet.

5−Click on an empty square to start selecting sigil components.

6−

7−Select component categories on the right, and then click the options on the sigil

8−to add them to your search.

9−

10−The ^ button goes up a level so you can select another category.

11−The X button will clear sigil components from the current symbol,

12−except the basic shape. If only the basic shape remains, the X button will clear that.

13−At the top level, the X button will clear all inputs.

14−

15−Your contacts will be searched for any input.

16−When the search has become specific enough,

17−all spawned ships with matching sigils will be shown.

18−If your input is unambiguous, the page for the matching ship will be shown,

19−whether the ship is spawned or not.

20−

21−_NOTE:_ Some sigil inputs are considered ambiguous, even if they exactly match

22−a particular sigil, because further details could match a different sigil.

23−E.g. `~zod` is a circle, but a circle in the suffix position might be intended as a more general search.

24−A future version of Astrolabe will allow you to view the ship

25−whose sigil most closely matches your search, even if the search is ambiguous.

26−

27−_See Also:_ [*What is a Sigil?*](/~/scry/docs/usr/astrolabe/sigil.html)

desk/doc/usr/sigil.udondeleted−22

@@ -1,22 +0,0 @@

1−;>

2−# What is a Sigil?

3−

4−It's a default profile picture, based on your [`@p`](/~/scry/docs/usr/astrolabe/patpee.html).

5−Each 3-letter syllable corresponds to a sigil shape, or "symbol".

6−Since planet `@p`s have 4 syllables, a planet sigil is a 2x2 grid of 4 symbols.

7−Star sigils have 2 symbols, and galaxies have just 1.

8−

9−![planet sigils](/apps/astrolabe/sigil-example.png)

10−

11−## Is there a pattern to the sigil shapes?

12−

13−Some syllables which sound similar have similar symbols,

14−but there's no real system to it. The sigil shapes were manually selected and assigned,

15−with a focus on visual design rather than algorithmic purity.

16−

17−## Where did they come from?

18−

19−Tlon saw that Urbit IDs need a visual representation,

20−so they designed a system for generating default avatars.

21−You can read about it in the blog post [_Creating Sigils_](https://urbit.org/blog/creating-sigils).

22−

desk/doc/usr/star.udondeleted−21

@@ -1,21 +0,0 @@

1−;>

2−[< What is an Urbit ID?](/~/scry/docs/usr/astrolabe/urbit-id.html)

3−

4−# Stars

5−

6−Stars are scarce and valuable—a natural fit for businesses, communities, or other organizations.

7−The maximum supply of stars is 65,280.

8−

9−Each star can spawn 65,535 [planets](/~/scry/docs/usr/astrolabe/planet.html), and provides network routing, software updates,

10−and other services for the planets it sponsors.

11−Stars can also choose to de-sponsor planets which abuse the network.

12−

13−Stars are NFTs, but they can be exchanged 1:1 for WSTR at [star.market](https://star.market/),

14−and you can trade fractional amounts of WSTR for ETH [on Uniswap V3](https://info.uniswap.org/#/pools/0x7f4a0822a6e3c085df795a8d78acbcd36f210ebf).

15−

16−## Locked stars and the Linear Release Contract

17−

18−To prevent galaxies from spawning too many stars all at once, many galaxies' stars were locked

19−in an Ethereum contract, to be slowly released (at a linear rate) over time.

20−Stars which are locked in this way will show the contract address as their owner,

21−and any stars held by this contract are considered locked, even if they are ready to be released.

desk/doc/usr/test.udondeleted−24

@@ -1,24 +0,0 @@

1−;>

2−# Test Doc

3−

4−### served from /doc/usr/test/udon

5−

6−# H1

7−

8−## H2

9−

10−### H3

11−

12−#### H4

13−

14−*Urbit IDs* are _*cool*_:

15−- secure

16−- unique

17−- fun to say (_sometimes_)

18−

19−#### Todo

20−

21−+ test out markdown

22−+ write actual docs

23−+ ???

24−+ profit

desk/doc/usr/urbit-id.udondeleted−118

@@ -1,118 +0,0 @@

1−;>

2−# What is an Urbit ID?

3−

4−An Urbit ID is like an account on the Urbit network. You can’t use Urbit without an Urbit ID.

5−

6−Every active Urbit ID has a number of properties:

7−

8−- `@p` (pronounced pat-pee) - A permanent, unique identifier, e.g. `~zod` or `~midlev-mindyr`.

9− This often functions like a username or email address.

10− Every `@p` is equivalent to a number ≥ 0 and > 256¹⁶, with longer `@p`s giving larger numbers.

11− The length of a `@p` indicates what class of ID it is.

12− [Read More](/~/scry/docs/usr/astrolabe/patpee.html)

13−

14−- Public and Private Keys - These allow you to cryptographically prove your ownership of an ID.

15− This is a bit like having a password for an account, or signing a document.

16− All messages on Urbit are automatically signed and verified, so you know they’re authentic.

17−

18−- Ship - A ship is an Urbit computer, which is always tied to the Urbit ID it was booted with.

19− When you boot Urbit for the first time, you provide your keys and we call this booting a “ship”.

20− When you use this computer on the network, you are “piloting” your “ship”.

21− Your ship stores all your data and apps.

22−

23−## Azimuth Points

24−

25−An [Azimuth point](/~/scry/docs/usr/astrolabe/azimuth.html) is an Urbit ID which is secured on the Ethereum blockchain.

26−Azimuth points are NFTs, governed by the Azimuth smart contracts.

27−Owning an Azimuth point lets you reset your [keys](/~/scry/docs/usr/astrolabe/keys.html),

28−spawn new IDs, and transfer ownership to someone else, among other things.

29−

30−When Ethereum got popular and transactions became very expensive a

31−[Layer 2 solution](/~/scry/docs/usr/astrolabe/l2.html)

32−was developed (commonly called "L2"), which allows Azimuth points to be spawned, transferred,

33−etc. basically for free.

34−

35−### Spawning and Sponsoring

36−

37−By thinking about possible combinations of syllables, we can predict every Urbit ID that might exist.

38−But galaxies, stars, and planets, being Azimuth points, don't come into existence until

39−a transaction is posted to Azimuth which explicitly "spawns" that point.

40−

41−All 256 galaxies have already been spawned. Those galaxies can spawn stars.

42−Those stars can spawn planets. Planets can't spawn anything, but all Azimuth points can

43−create moons, which is sometimes called "spawning" even though it's not done through Azimuth.

44−

45−By default, a galaxy will sponsor any stars it spawns, and a star will sponsor any planets it spawns.

46−This means helping route network traffic between the sponsee and other ships, providing OTA (over the air)

47−software updates, and potentially providing other services.

48−

49−A sponsee (star or planet) may choose to leave their sponsor and find another one. Conversely,

50−a sponsor (galaxy or star) may choose to de-sponsor their sponsee or sponsor additional points

51−which they didn't spawn. This lets the network hierarchy adjust itself in case someone misbehaves.

52−

53−## Classes of Urbit ID

54−

55−There are 5 classes of Urbit ID:

56−[Galaxy](/~/scry/docs/usr/astrolabe/galaxy.html),

57−[Star](/~/scry/docs/usr/astrolabe/star.html),

58−[Planet](/~/scry/docs/usr/astrolabe/planet.html),

59−[Moon](/~/scry/docs/usr/astrolabe/moon.html), and

60−[Comet](/~/scry/docs/usr/astrolabe/comet.html).

61−

62−Galaxies, stars, and planets are [Azimuth points](/~/scry/docs/usr/astrolabe/azimuth.html),

63−and are therefore very similar anatomically, although they have different roles.

64−Moons and comets are a bit different.

65−

66−### Galaxies (e.g. `~bus`)

67−

68−Galaxies are the rarest and highest ranking class of ID, as there are only 256 of them.

69−Together, they form the Galactic Senate.

70−Galaxies help route communication on the network, and each one can spawn 255 stars.

71−

72−[Read More](/~/scry/docs/usr/astrolabe/galaxy.html)

73−

74−### Stars (e.g. `~batbus`)

75−

76−Stars are fairly scarce and valuable—a natural fit for businesses, communities, or other organizations.

77−Each star can spawn 65,535 planets, and provides network routing, software updates,

78−and other services for the planets it sponsors.

79−Stars can also choose to de-sponsor planets which abuse the network.

80−Stars are NFTs, but they can be exchanged 1:1 for WSTR at [star.market](https://star.market/),

81−and you can trade fractional amounts of WSTR for ETH [on Uniswap V3](https://info.uniswap.org/#/pools/0x7f4a0822a6e3c085df795a8d78acbcd36f210ebf).

82−

83−[Read More](/~/scry/docs/usr/astrolabe/star.html)

84−

85−### Planets (e.g. `~midlev-mindyr`)

86−

87−There are about 4.3 billion potential planets, so while they are not unlimited, they are

88−widely accessible for the average user. Most people pilot a planet or a moon when using Urbit.

89−As planets are the lowest rank of Azimuth point, they cannot spawn other points. Like galaxies

90−and stars, however, they can create moons.

91−

92−[Read More](/~/scry/docs/usr/astrolabe/planet.html)

93−

94−### Moons (e.g. `~poster-hoster-midlev-mindyr` (`~midlev^mindyr` for short))

95−

96−Moons are created, owned, and controlled by a parent ID, either a galaxy, star, or planet.

97−Moons are free and easy to create, and each Azimuth point can create about 4 billion.

98−Moons can use the Urbit network just like any other ID, but they are inextricably linked to their parents.

99−

100−[Read More](/~/scry/docs/usr/astrolabe/moon.html)

101−

102−### Comets (e.g. `~dirbec-morfeb-ritlys-timsef--padnum-mapnep-nolfel-binzod` (`~dirbec_binzod` for short))

103−

104−Comets are essentially unlimited, and can be created for free by anyone.

105−They're good for new people exploring the network, operating somewhat anonymously,

106−and testing things out. However, the keys for a comet can't be changed, so it's not

107−not a viable long-term ID. Also, since anyone can boot a comet, comets might be viewed

108−with distrust in some contexts.

109−

110−[Read More](/~/scry/docs/usr/astrolabe/comet.html)

111−

112−# Further Reading

113−

114−- [A more technical overview](https://urbit.org/using/id/overview)

115−- From the Operator’s Guide:

116− [Which ID should I buy?](https://operators.urbit.org/guides/which-id-should-i-buy)

117−- [Azimuth FAQ](https://azimuth.network/#faq)

118−- [Understanding Urbit ID](https://urbit.org/understanding-urbit/urbit-id)

desk/lib/astrolabe.hoondeleted−234

@@ -1,234 +0,0 @@

1−/- sur=astrolabe

2−/+ azimuth, naive

3−=< [sur .]

4−=, sur

5−|%

6−++ to-q fein:ob

7−++ to-p fynd:ob

8−++ rev-q

9− |= a=@

10− (rev 3 4 a)

11−++ switch-words

12− |= a=@

13− (rev 4 2 a)

14−++ add-d

15− |= [a=@ b=@]

16− (rev-q (add (rev-q a) b))

17−++ sub-d

18− |= [a=@ b=@]

19− (rev-q (sub (rev-q a) b))

20−++ rev-f

21− |* [f=$-([@ @] *) a=@ b=@]

22− (f (rev-q a) (rev-q b))

23−++ rpor :: reversed parent order

24− |= [a=@ b=@]

25− ^- ?

26− (rev-f lte a b)

27−::

28−++ ors ((on @q @) rpor)

29−++ or-meta ((on @p tape) por:naive)

30−++ bi-meta

31− =| a=(map * (map))

32− |@

33− ++ put

34− |* [b=* c=* d=*]

35− %+ ~(put by a) b

36− %+ put:or-meta

37− (~(gut by a) b ~)

38− [c d]

39− --

40−::

41−+$ page-info [size=_100 page=_0]

42−++ fits-on-page

43− |= [i=@ =page-info]

44− ^- ?

45− =, page-info

46− ?: =(0 size) %.y

47− =/ page-start (mul size page)

48− =/ page-end (add page-start size)

49− &((gte i page-start) (lth i page-end))

50−::

51−++ is-npoint-locked

52− |= p=npoint

53− .= linear-star-release:contracts:azimuth

54− address.owner.own.p

55−::

56−++ split

57− |* [nedl=(list) hstk=(list)]

58− |- ^- (list _hstk)

59− =/ brk (find nedl hstk)

60− ?~ brk ~[hstk]

61− =/ next (add u.brk (lent nedl))

62− :- (scag u.brk hstk)

63− $(hstk (slag next hstk))

64−::

65−++ smel

66− |%

67− ++ ship

68− |= =^ship

69− ^- tape

70− (slag 1 (scow %p ship))

71− ++ dom

72− |= =dominion:naive

73− ?- dominion

74− %l1 ""

75− %l2 "t"

76− %spawn "s"

77− ==

78− ++ spo

79− |= [self=^ship has=? spo=^ship]

80− ?. has "~"

81− =/ parent (^sein:title self)

82− ?: =(spo parent)

83− ""

84− :(weld ":" (ship spo) "!" (ship parent))

85− ++ pmeta

86− |= [self=^ship point=npoint]

87− ^- tape

88− =/ self-str (ship self)

89− =/ extras (weld (dom dominion.point) (spo self sponsor.net.point))

90− ?~ extras self-str

91− :(weld self-str ":" extras)

92− ++ spa

93− |= children=(list tape)

94− =/ chil-str=tape (zing children)

95− :: =/ chil-str=tape (reel children |=([a=tape b=tape] (weld a b)))

96− ?~ chil-str ";"

97− :(weld "[" chil-str "]")

98− ++ pdata

99− |= [pmeta=tape children=(list tape)]

100− ^- tape

101− (weld pmeta (spa children))

102− --

103−::

104−++ nu :: parse number as hex

105− |= jon=json

106− ?> ?=([%s *] jon)

107− (rash p.jon hex)

108−::

109−++ enjs

110− =, enjs:format

111− |%

112− ++ point-set

113− |= points=(list ^ship)

114− ^- json

115− %+ frond %points

116− :- %a

117− %+ turn

118− points

119− |= who=^ship

120− (ship who)

121− ++ point

122− |= =^point

123− ^- json

124− =* unpoint unpoint.point

125− =* npoint u.unpoint

126− %+ frond %point

127− %- pairs :*

128− ship+(ship ship.point)

129− spa-count+(numb spa-count.point)

130− [%probable-dominion s+probable-dominion.point]

131− [%sponsor-chain a+(turn sponsor-chain.point ship)]

132− ?~ unpoint ~

133− :_ ~

134− :- %npoint

135− %- pairs :~

136− [%dominion s+dominion.npoint]

137− :- %own

138− =* own own.npoint

139− %- pairs :~

140− owner+(address owner.own)

141− spawn-proxy+(address spawn-proxy.own)

142− management-proxy+(address management-proxy.own)

143− voting-proxy+(address voting-proxy.own)

144− transfer-proxy+(address transfer-proxy.own)

145− ==

146− :- %net

147− =* net net.npoint

148− %- pairs

149− :~ rift+(numb rift.net)

150− :- %keys

151− %- pairs :~

152− life+(numb life.keys.net)

153− suite+(numb suite.keys.net)

154− auth+(numb auth.keys.net)

155− crypt+(numb crypt.keys.net)

156− ==

157− :- %sponsor

158− %- pairs :~

159− has+b+has.sponsor.net

160− who+(ship who.sponsor.net)

161− ==

162− :- %escape

163− (biff escape.net ship)

164− ==

165− ==

166− ==

167− ++ address

168− |= [address=@ux nonce=@ud]

169− ^- json

170− %- pairs

171− :~ address+(numb-ux address)

172− nonce+(numb nonce)

173− ==

174− ++ numb-ux

175− |= a=@

176− ^- json

177− ?~ a ~

178− s+(remove-dots (scot %ux a))

179− ++ remove-dots

180− |= a=@ta

181− ^- @ta

182− =+ b=(rip 3 a)

183− %+ rap 3

184− |- ^- ^tape

185− ?~ b

186− ~

187− ?: =('.' i.b) $(b t.b)

188− [i.b $(b t.b)]

189− --

190−::

191−++ dejs

192− =, dejs:format

193− |%

194− ++ point

195− |= jon=json

196− *^point

197− --

198−::

199−++ share-dejs

200− =, dejs:format

201− |%

202− ++ share

203− ^- $-(json [%share ship])

204− (of share+(su ;~(pfix sig fed:ag)) ~)

205− --

206−::

207−::

208−++ groups-link-thatch

209−'''

210−const buttonText = 'View in Astrolabe';

211−setInterval(() => {

212− const footer = document.querySelectorAll('section > div > footer')?.[0];

213− if (!footer) return;

214− if (footer.children[0].innerText === buttonText) return;

215− const spans = document.querySelectorAll('section > div > div > div > span > span:first-child');

216− spans.forEach((span) => {

217− if (span.innerHTML !== '~') return;

218− if (footer.children[0].innerText === buttonText) return;

219− let cspan = span.parentElement;

220− let patp = cspan.innerText;

221− let b = document.createElement('a');

222− b.innerHTML = buttonText;

223− b.className = 'button';

224− // b.href = 'web+urbitgraph://astrolabe/ship/' + patp;

225− b.href = '/apps/astrolabe/#/ship/' + patp;

226− b.target = '_blank';

227− b.style.backgroundColor = "navy";

228− b.style.marginLeft = "1rem";

229− b.style.color = "white";

230− footer.prepend(b);

231− });

232−}, 100);

233−'''

234−--

desk/lib/search.hoondeleted−373

This diff is too big to show here.

desk/lib/state.hoondeleted−21

This diff is too big to show here.

desk/mar/astrolabe/point-set.hoondeleted−13

This diff is too big to show here.

desk/mar/astrolabe/point.hoondeleted−14

This diff is too big to show here.

desk/mar/ico.hoondeleted−12

This diff is too big to show here.

desk/mar/seal.hoondeleted−12

This diff is too big to show here.

desk/mar/webmanifest.hoondeleted−12

This diff is too big to show here.

desk/sur/astrolabe.hoondeleted−58

This diff is too big to show here.

desk/sys.kelvin+1−1

This diff is too big to show here.

desk/tests/lib/state.hoondeleted−59

This diff is too big to show here.

docs-dev-desk/lib/docs.hoondeleted−205

This diff is too big to show here.

docs-dev-desk/lib/gemtext.hoondeleted−190

This diff is too big to show here.

docs-dev-desk/mar/clue.hoondeleted−28

This diff is too big to show here.

docs-dev-desk/mar/docu.hoondeleted−23

This diff is too big to show here.

docs-dev-desk/mar/elem.hoondeleted−18

This diff is too big to show here.

docs-dev-desk/mar/gmi-diff.hoondeleted−13

This diff is too big to show here.

docs-dev-desk/mar/gmi.hoondeleted−37

This diff is too big to show here.

docs-dev-desk/mar/toc.hoondeleted−16

This diff is too big to show here.

docs-dev-desk/mar/x-htm.hoondeleted−12

This diff is too big to show here.

docs-dev-desk/sur/docs.hoondeleted−9

This diff is too big to show here.

docs-dev-desk/sur/gemtext.hoondeleted−10

This diff is too big to show here.

flake.lockdeleted−27

This diff is too big to show here.

flake.nixdeleted−73

This diff is too big to show here.

install.shnew file+39

This diff is too big to show here.

ui/.envdeleted−3

This diff is too big to show here.

ui/index.html+3−7

This diff is too big to show here.

ui/package-lock.json+55−401

This diff is too big to show here.

ui/package.json+7−28

This diff is too big to show here.

ui/public/android-chrome-192x192.pngdeleted

Binary file not shown.

ui/public/android-chrome-512x512.pngdeleted

Binary file not shown.

ui/public/apple-touch-icon.pngdeleted

Binary file not shown.

ui/public/favicon-16x16.pngdeleted

Binary file not shown.

ui/public/favicon-32x32.pngdeleted

Binary file not shown.

ui/public/favicon.ico

Binary file not shown.

ui/public/sigil-example.pngdeleted

Binary file not shown.

ui/public/site.webmanifestdeleted−1

This diff is too big to show here.

ui/scraps/tirrel-graph-main.jsdeleted−198

This diff is too big to show here.

ui/src/App.svelte+13−63

This diff is too big to show here.

ui/src/actions/docLinks.tsdeleted−26

This diff is too big to show here.

ui/src/actions/symbolPartClick.tsdeleted−27

This diff is too big to show here.

ui/src/actions/tooltip.tsdeleted−73

This diff is too big to show here.

ui/src/assets/astrolabe-tile.svgdeleted−23

This diff is too big to show here.

ui/src/assets/astrolabe.svgdeleted−206

This diff is too big to show here.

ui/src/assets/up-arrow.svgdeleted−1

This diff is too big to show here.

ui/src/assets/x.svgdeleted−1

This diff is too big to show here.

ui/src/components/CollapsibleContent.sveltedeleted−18

This diff is too big to show here.

ui/src/components/ExtensionWindow.sveltedeleted−25

This diff is too big to show here.

ui/src/components/HomeScreenTiles.sveltedeleted−42

This diff is too big to show here.

ui/src/components/SearchBar.sveltenew file+54

This diff is too big to show here.

ui/src/components/search/SearchResultNavButtons.svelte → ui/src/components/SearchResultNavButtons.svelterenamed

The content is the same.

ui/src/components/SearchResults.sveltenew file+68

This diff is too big to show here.

ui/src/components/ShipListing.svelte+11−37

This diff is too big to show here.

ui/src/components/ShipListings.sveltedeleted−19

This diff is too big to show here.

ui/src/components/ShipView.sveltenew file+58

This diff is too big to show here.

ui/src/components/Sigil.sveltenew file+36

This diff is too big to show here.

ui/src/components/StarChart.sveltedeleted−233

This diff is too big to show here.

ui/src/components/ValidationProblems.svelte+2−4

This diff is too big to show here.

ui/src/components/buttons/CloseButton.sveltedeleted−4

This diff is too big to show here.

ui/src/components/buttons/Hamburger.sveltedeleted−5

This diff is too big to show here.

ui/src/components/buttons/InlineSelect.sveltedeleted−16

This diff is too big to show here.

ui/src/components/buttons/ToggleButton.sveltedeleted−11

This diff is too big to show here.

ui/src/components/common/ChartLink.sveltedeleted−11

This diff is too big to show here.

ui/src/components/common/EthAddressLink.sveltedeleted−37

This diff is too big to show here.

ui/src/components/common/GoldBadge.sveltedeleted−10

This diff is too big to show here.

ui/src/components/common/Legil.sveltedeleted−47

This diff is too big to show here.

ui/src/components/common/LoadingSpinner.sveltedeleted−8

This diff is too big to show here.

ui/src/components/common/ShipLink.sveltedeleted−10

This diff is too big to show here.

ui/src/components/common/Sigil.sveltedeleted−65

This diff is too big to show here.

ui/src/components/common/Tooltip.sveltedeleted−37

This diff is too big to show here.

ui/src/components/common/TooltipAndDocLink.sveltedeleted−14

This diff is too big to show here.

ui/src/components/docs/Doc.sveltedeleted−50

This diff is too big to show here.

ui/src/components/docs/DocContent.sveltedeleted−37

This diff is too big to show here.

ui/src/components/docs/DocHome.sveltedeleted−76

This diff is too big to show here.

ui/src/components/docs/DocLink.sveltedeleted−26

This diff is too big to show here.

ui/src/components/docs/HelpModal.sveltedeleted−25

This diff is too big to show here.

ui/src/components/extensions/AppIcon.sveltedeleted−61

This diff is too big to show here.

ui/src/components/extensions/AppsShipViewExtension.sveltedeleted−56

This diff is too big to show here.

ui/src/components/extensions/GroupsShipViewExtension.sveltedeleted−15

This diff is too big to show here.

ui/src/components/extensions/ProfileShipViewExtension.sveltedeleted−52

This diff is too big to show here.

ui/src/components/pals/PalStatusIndicator.sveltedeleted−191

This diff is too big to show here.

ui/src/components/pals/PalTagger.sveltedeleted−40

This diff is too big to show here.

ui/src/components/pals/PalsShipViewExtension.sveltedeleted−34

This diff is too big to show here.

ui/src/components/search/SearchBar.sveltedeleted−152

This diff is too big to show here.

ui/src/components/search/SearchResults.sveltedeleted−147

This diff is too big to show here.

ui/src/components/search/SearchResultsNavButtons.sveltedeleted−54

This diff is too big to show here.

ui/src/components/search/SearchSettings.sveltedeleted−25

This diff is too big to show here.

ui/src/components/search/sigil/ClanSelect.sveltedeleted−44

This diff is too big to show here.

ui/src/components/search/sigil/ClanSelectOption.sveltedeleted−17

This diff is too big to show here.

ui/src/components/search/sigil/GeonSelector.sveltedeleted−30

This diff is too big to show here.

ui/src/components/search/sigil/MiniFakeSigil.sveltedeleted−25

This diff is too big to show here.

ui/src/components/search/sigil/SigilInput.sveltedeleted−104

This diff is too big to show here.

ui/src/components/search/sigil/Symbol.sveltedeleted−79

This diff is too big to show here.

ui/src/components/search/sigil/SymbolInput.sveltedeleted−105

This diff is too big to show here.

ui/src/components/search/sigil/SymbolInputModeSelector.sveltedeleted−168

This diff is too big to show here.

ui/src/components/search/sigil/SymbolInputModeSelectorButton.sveltedeleted−33

This diff is too big to show here.

ui/src/components/search/sigil/SymbolInputNavButtons.sveltedeleted−30

This diff is too big to show here.

ui/src/components/ship_view/AzimuthDetails.sveltedeleted−90

This diff is too big to show here.

ui/src/components/ship_view/ShipChain.sveltedeleted−11

This diff is too big to show here.

ui/src/components/ship_view/ShipChildrenTabs.sveltedeleted−136

This diff is too big to show here.

ui/src/components/ship_view/ShipView.sveltedeleted−130

This diff is too big to show here.

ui/src/fake_data/fake-contacts.ts+1−6

This diff is too big to show here.

ui/src/lib/api.tsdeleted−102

This diff is too big to show here.

ui/src/lib/apps.tsdeleted−177

This diff is too big to show here.

ui/src/lib/colors.tsdeleted−17

This diff is too big to show here.

ui/src/lib/graph.tsdeleted−422

This diff is too big to show here.

ui/src/lib/id.ts+14−101

This diff is too big to show here.

ui/src/lib/link.ts+2−15

This diff is too big to show here.

ui/src/lib/pals.tsdeleted−91

This diff is too big to show here.

ui/src/lib/ship.tsdeleted−114

This diff is too big to show here.

ui/src/lib/sigil.tsdeleted−387

This diff is too big to show here.

ui/src/lib/utils.ts+6−52

This diff is too big to show here.

ui/src/main.ts+2−5

This diff is too big to show here.

ui/src/routes/HelpPage.sveltedeleted−26

This diff is too big to show here.

ui/src/routes/Home.svelte+7−191

This diff is too big to show here.

ui/src/routes/ShipViewPage.sveltenew file+25

This diff is too big to show here.

ui/src/routes/SigilPage.sveltedeleted−61

This diff is too big to show here.

ui/src/stores/docs.tsdeleted−44

This diff is too big to show here.

ui/src/stores/keys.tsdeleted−68

This diff is too big to show here.

ui/src/stores/pageName.tsdeleted−12

This diff is too big to show here.

ui/src/stores/searchStores.tsdeleted−66

This diff is too big to show here.

ui/src/stores/store.ts+24−66

This diff is too big to show here.

ui/src/styles/docs.scssdeleted−49

This diff is too big to show here.

ui/src/styles/styles.scssdeleted−13

This diff is too big to show here.

ui/src/styles/tailwind-output.css+79−1553

This diff is too big to show here.

ui/src/styles/tippy.cssdeleted−5

This diff is too big to show here.

ui/src/types/sigil.tsdeleted−148

This diff is too big to show here.

ui/src/types/store.ts+4−66

This diff is too big to show here.

ui/svelte.config.js+2−2

This diff is too big to show here.

ui/tailwind.config.cjs+3−38

This diff is too big to show here.

ui/tsconfig.json−9

This diff is too big to show here.

ui/vite.config.ts+2−22

This diff is too big to show here.