Artifact
4b796b680bbd9a9ce6f302d7a25073c1d5c3c77b:
- File
classes.fs
— part of check-in
[94988e190b]
at
2019-07-13 00:01:13
on branch trunk
— Locked down chat works
(user:
bernd
size: 15828)
0000: 5c 20 6e 65 74 32 6f 20 63 6c 61 73 73 65 73 0a \ net2o classes.
0010: 0a 5c 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 .\ Copyright (C)
0020: 20 32 30 31 35 20 20 20 42 65 72 6e 64 20 50 61 2015 Bernd Pa
0030: 79 73 61 6e 0a 0a 5c 20 54 68 69 73 20 70 72 6f ysan..\ This pro
0040: 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 gram is free sof
0050: 74 77 61 72 65 3a 20 79 6f 75 20 63 61 6e 20 72 tware: you can r
0060: 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 edistribute it a
0070: 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 5c 20 69 nd/or modify.\ i
0080: 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d t under the term
0090: 73 20 6f 66 20 74 68 65 20 47 4e 55 20 41 66 66 s of the GNU Aff
00a0: 65 72 6f 20 47 65 6e 65 72 61 6c 20 50 75 62 6c ero General Publ
00b0: 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 ic License as pu
00c0: 62 6c 69 73 68 65 64 20 62 79 0a 5c 20 74 68 65 blished by.\ the
00d0: 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 Free Software F
00e0: 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 oundation, eithe
00f0: 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 r version 3 of t
0100: 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 5c he License, or.\
0110: 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e (at your option
0120: 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 ) any later vers
0130: 69 6f 6e 2e 0a 0a 5c 20 54 68 69 73 20 70 72 6f ion...\ This pro
0140: 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 gram is distribu
0150: 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 ted in the hope
0160: 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 that it will be
0170: 75 73 65 66 75 6c 2c 0a 5c 20 62 75 74 20 57 49 useful,.\ but WI
0180: 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e THOUT ANY WARRAN
0190: 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e TY; without even
01a0: 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 the implied war
01b0: 72 61 6e 74 79 20 6f 66 0a 5c 20 4d 45 52 43 48 ranty of.\ MERCH
01c0: 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 ANTABILITY or FI
01d0: 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 TNESS FOR A PART
01e0: 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 ICULAR PURPOSE.
01f0: 20 53 65 65 20 74 68 65 0a 5c 20 47 4e 55 20 41 See the.\ GNU A
0200: 66 66 65 72 6f 20 47 65 6e 65 72 61 6c 20 50 75 ffero General Pu
0210: 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 blic License for
0220: 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a more details...
0230: 5c 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 \ You should hav
0240: 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 e received a cop
0250: 79 20 6f 66 20 74 68 65 20 47 4e 55 20 41 66 66 y of the GNU Aff
0260: 65 72 6f 20 47 65 6e 65 72 61 6c 20 50 75 62 6c ero General Publ
0270: 69 63 20 4c 69 63 65 6e 73 65 0a 5c 20 61 6c 6f ic License.\ alo
0280: 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f ng with this pro
0290: 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 gram. If not, s
02a0: 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 67 ee <http://www.g
02b0: 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f nu.org/licenses/
02c0: 3e 2e 0a 0a 5c 20 6a 6f 62 20 63 6f 6e 74 65 78 >...\ job contex
02d0: 74 20 73 74 72 75 63 74 75 72 65 20 61 6e 64 20 t structure and
02e0: 73 75 62 63 6c 61 73 73 65 73 0a 0a 63 75 72 72 subclasses..curr
02f0: 65 6e 74 2d 6f 0a 0a 56 61 72 69 61 62 6c 65 20 ent-o..Variable
0300: 63 6f 6e 74 65 78 74 73 20 5c 47 20 63 6f 6e 74 contexts \G cont
0310: 61 69 6e 73 20 61 6c 6c 20 63 6f 6d 6d 61 6e 64 ains all command
0320: 20 6f 62 6a 65 63 74 73 0a 0a 30 20 56 61 6c 75 objects..0 Valu
0330: 65 20 6d 79 2d 6b 65 79 2d 64 65 66 61 75 6c 74 e my-key-default
0340: 20 5c 47 20 64 65 66 61 75 6c 74 20 6f 77 6e 20 \G default own
0350: 6b 65 79 0a 0a 6f 62 6a 65 63 74 20 63 6c 61 73 key..object clas
0360: 73 0a 20 20 20 20 66 69 65 6c 64 3a 20 74 6f 6b s. field: tok
0370: 65 6e 2d 74 61 62 6c 65 0a 20 20 20 20 76 61 6c en-table. val
0380: 75 65 3a 20 70 61 72 65 6e 74 0a 20 20 20 20 76 ue: parent. v
0390: 61 6c 75 65 3a 20 6d 79 2d 6b 65 79 20 20 20 20 alue: my-key
03a0: 20 20 20 20 5c 20 6b 65 79 20 75 73 65 64 20 66 \ key used f
03b0: 6f 72 20 74 68 69 73 20 63 6f 6e 74 65 78 74 0a or this context.
03c0: 20 20 20 20 66 69 65 6c 64 3a 20 72 65 71 3f 0a field: req?.
03d0: 20 20 20 20 66 69 65 6c 64 3a 20 63 2d 73 74 61 field: c-sta
03e0: 74 65 20 5c 20 73 74 61 74 65 20 66 6f 72 20 63 te \ state for c
03f0: 68 65 63 6b 73 20 77 68 65 74 68 65 72 20 65 76 hecks whether ev
0400: 65 72 79 74 68 69 6e 67 20 69 73 20 74 68 65 72 erything is ther
0410: 65 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 74 61 e. method sta
0420: 72 74 2d 72 65 71 0a 20 20 20 20 6d 65 74 68 6f rt-req. metho
0430: 64 20 6e 65 73 74 2d 73 69 67 20 20 20 20 20 5c d nest-sig \
0440: 20 63 68 65 63 6b 20 73 69 67 20 66 69 72 73 74 check sig first
0450: 20 61 6e 64 20 74 68 65 6e 20 6e 65 73 74 0a 65 and then nest.e
0460: 6e 64 2d 63 6c 61 73 73 20 63 6d 64 2d 63 6c 61 nd-class cmd-cla
0470: 73 73 20 5c 20 63 6f 6d 6d 61 6e 64 20 69 6e 74 ss \ command int
0480: 65 72 70 72 65 74 65 72 0a 27 20 6e 6f 6f 70 20 erpreter.' noop
0490: 63 6d 64 2d 63 6c 61 73 73 20 74 6f 20 73 74 61 cmd-class to sta
04a0: 72 74 2d 72 65 71 0a 3a 6e 6f 6e 61 6d 65 20 28 rt-req.:noname (
04b0: 20 61 64 64 72 20 75 20 2d 2d 20 66 6c 61 67 20 addr u -- flag
04c0: 29 20 32 64 72 6f 70 20 2d 31 20 3b 20 63 6d 64 ) 2drop -1 ; cmd
04d0: 2d 63 6c 61 73 73 20 74 6f 20 6e 65 73 74 2d 73 -class to nest-s
04e0: 69 67 0a 0a 56 61 72 69 61 62 6c 65 20 63 6d 64 ig..Variable cmd
04f0: 2d 74 61 62 6c 65 0a 56 61 72 69 61 62 6c 65 20 -table.Variable
0500: 72 65 70 6c 79 2d 74 61 62 6c 65 0a 56 61 72 69 reply-table.Vari
0510: 61 62 6c 65 20 6c 6f 67 2d 74 61 62 6c 65 0a 56 able log-table.V
0520: 61 72 69 61 62 6c 65 20 73 65 74 75 70 2d 74 61 ariable setup-ta
0530: 62 6c 65 0a 56 61 72 69 61 62 6c 65 20 63 6f 6e ble.Variable con
0540: 6e 65 63 74 2d 74 61 62 6c 65 0a 56 61 72 69 61 nect-table.Varia
0550: 62 6c 65 20 61 63 6b 2d 74 61 62 6c 65 0a 56 61 ble ack-table.Va
0560: 72 69 61 62 6c 65 20 6d 73 67 69 6e 67 2d 74 61 riable msging-ta
0570: 62 6c 65 0a 56 61 72 69 61 62 6c 65 20 6d 73 67 ble.Variable msg
0580: 2d 74 61 62 6c 65 0a 56 61 72 69 61 62 6c 65 20 -table.Variable
0590: 74 65 72 6d 2d 74 61 62 6c 65 0a 56 61 72 69 61 term-table.Varia
05a0: 62 6c 65 20 61 64 64 72 65 73 73 2d 74 61 62 6c ble address-tabl
05b0: 65 0a 56 61 72 69 61 62 6c 65 20 63 6f 6e 74 65 e.Variable conte
05c0: 78 74 2d 74 61 62 6c 65 0a 56 61 72 69 61 62 6c xt-table.Variabl
05d0: 65 20 6b 65 79 2d 65 6e 74 72 79 2d 74 61 62 6c e key-entry-tabl
05e0: 65 0a 56 61 72 69 61 62 6c 65 20 76 61 75 6c 74 e.Variable vault
05f0: 2d 74 61 62 6c 65 0a 56 61 72 69 61 62 6c 65 20 -table.Variable
0600: 70 61 79 2d 74 61 62 6c 65 0a 56 61 72 69 61 62 pay-table.Variab
0610: 6c 65 20 67 72 6f 75 70 2d 74 61 62 6c 65 0a 0a le group-table..
0620: 56 6f 63 61 62 75 6c 61 72 79 20 6d 61 70 63 0a Vocabulary mapc.
0630: 0a 61 6c 73 6f 20 6d 61 70 63 20 64 65 66 69 6e .also mapc defin
0640: 69 74 69 6f 6e 73 0a 0a 63 6d 64 2d 63 6c 61 73 itions..cmd-clas
0650: 73 20 63 6c 61 73 73 0a 20 20 20 20 36 34 76 61 s class. 64va
0660: 6c 75 65 3a 20 64 65 73 74 2d 76 61 64 64 72 0a lue: dest-vaddr.
0670: 20 20 20 20 76 61 6c 75 65 3a 20 64 65 73 74 2d value: dest-
0680: 73 69 7a 65 0a 20 20 20 20 76 61 6c 75 65 3a 20 size. value:
0690: 64 65 73 74 2d 72 61 64 64 72 0a 20 20 20 20 24 dest-raddr. $
06a0: 76 61 6c 75 65 3a 20 64 65 73 74 2d 69 76 73 24 value: dest-ivs$
06b0: 0a 20 20 20 20 76 61 6c 75 65 3a 20 64 65 73 74 . value: dest
06c0: 2d 69 76 73 67 65 6e 0a 20 20 20 20 73 63 76 61 -ivsgen. scva
06d0: 6c 75 65 3a 20 64 65 73 74 2d 69 76 73 6c 61 73 lue: dest-ivslas
06e0: 74 67 65 6e 0a 20 20 20 20 73 63 76 61 6c 75 65 tgen. scvalue
06f0: 3a 20 64 65 73 74 2d 72 65 71 20 20 20 5c 20 2d : dest-req \ -
0700: 2f 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 /-
0710: 20 20 20 20 20 20 74 72 75 65 20 69 66 20 6f 6e true if on
0720: 67 6f 69 6e 67 20 72 65 71 75 65 73 74 0a 20 20 going request.
0730: 20 20 24 76 61 6c 75 65 3a 20 64 65 73 74 2d 69 $value: dest-i
0740: 76 73 72 65 73 74 24 0a 20 20 20 20 76 61 6c 75 vsrest$. valu
0750: 65 3a 20 64 65 73 74 2d 74 69 6d 65 73 74 61 6d e: dest-timestam
0760: 70 73 0a 20 20 20 20 76 61 6c 75 65 3a 20 64 65 ps. value: de
0770: 73 74 2d 72 65 70 6c 69 65 73 0a 20 20 20 20 5c st-replies. \
0780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0790: 20 20 20 73 65 6e 64 65 72 3a 20 20 20 20 20 20 sender:
07a0: 20 20 20 20 20 20 20 20 20 20 72 65 63 65 69 76 receiv
07b0: 65 72 3a 0a 20 20 20 20 76 61 6c 75 65 3a 20 64 er:. value: d
07c0: 65 73 74 2d 74 6f 70 20 20 20 5c 20 2d 2f 2d 20 est-top \ -/-
07d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
07e0: 20 20 20 73 65 6e 64 65 72 20 72 65 61 64 20 75 sender read u
07f0: 70 20 74 6f 20 68 65 72 65 0a 20 20 20 20 76 61 p to here. va
0800: 6c 75 65 3a 20 64 65 73 74 2d 68 65 61 64 20 20 lue: dest-head
0810: 5c 20 72 65 61 64 20 75 70 20 74 6f 20 68 65 72 \ read up to her
0820: 65 20 20 20 20 20 20 20 20 72 65 63 65 69 76 65 e receive
0830: 64 20 73 6f 6d 65 0a 20 20 20 20 76 61 6c 75 65 d some. value
0840: 3a 20 64 65 73 74 2d 74 61 69 6c 20 20 5c 20 73 : dest-tail \ s
0850: 65 6e 64 20 66 72 6f 6d 20 68 65 72 65 20 20 20 end from here
0860: 20 20 20 20 20 20 72 65 63 65 69 76 65 64 20 61 received a
0870: 6c 6c 0a 20 20 20 20 76 61 6c 75 65 3a 20 64 65 ll. value: de
0880: 73 74 2d 62 61 63 6b 20 20 5c 20 66 6c 75 73 68 st-back \ flush
0890: 65 64 20 6f 6e 20 64 65 73 74 69 6e 61 74 69 6f ed on destinatio
08a0: 6e 20 66 6c 75 73 68 65 64 0a 20 20 20 20 66 69 n flushed. fi
08b0: 65 6c 64 3a 20 64 65 73 74 2d 65 6e 64 20 20 20 eld: dest-end
08c0: 5c 20 2d 2f 2d 20 20 20 20 20 20 20 20 20 20 20 \ -/-
08d0: 20 20 20 20 20 20 20 20 20 74 72 75 65 20 69 66 true if
08e0: 20 6c 61 73 74 20 63 68 75 6e 6b 0a 20 20 20 20 last chunk.
08f0: 66 69 65 6c 64 3a 20 64 6f 2d 73 6c 75 72 70 0a field: do-slurp.
0900: 20 20 20 20 6d 65 74 68 6f 64 20 66 72 65 65 2d method free-
0910: 64 61 74 61 0a 20 20 20 20 6d 65 74 68 6f 64 20 data. method
0920: 72 65 67 65 6e 2d 69 76 73 0a 20 20 20 20 6d 65 regen-ivs. me
0930: 74 68 6f 64 20 68 61 6e 64 6c 65 0a 20 20 20 20 thod handle.
0940: 6d 65 74 68 6f 64 20 72 65 77 69 6e 64 2d 74 69 method rewind-ti
0950: 6d 65 73 74 61 6d 70 73 0a 20 20 20 20 6d 65 74 mestamps. met
0960: 68 6f 64 20 72 65 77 69 6e 64 2d 70 61 72 74 69 hod rewind-parti
0970: 61 6c 0a 65 6e 64 2d 63 6c 61 73 73 20 63 6f 64 al.end-class cod
0980: 65 2d 63 6c 61 73 73 0a 27 20 64 72 6f 70 20 20 e-class.' drop
0990: 63 6f 64 65 2d 63 6c 61 73 73 20 74 6f 20 72 65 code-class to re
09a0: 67 65 6e 2d 69 76 73 0a 27 20 6e 6f 6f 70 20 20 gen-ivs.' noop
09b0: 63 6f 64 65 2d 63 6c 61 73 73 20 74 6f 20 72 65 code-class to re
09c0: 77 69 6e 64 2d 74 69 6d 65 73 74 61 6d 70 73 0a wind-timestamps.
09d0: 27 20 32 64 72 6f 70 20 63 6f 64 65 2d 63 6c 61 ' 2drop code-cla
09e0: 73 73 20 74 6f 20 72 65 77 69 6e 64 2d 70 61 72 ss to rewind-par
09f0: 74 69 61 6c 0a 0a 63 6f 64 65 2d 63 6c 61 73 73 tial..code-class
0a00: 20 63 6c 61 73 73 0a 20 20 20 20 66 69 65 6c 64 class. field
0a10: 3a 20 64 61 74 61 2d 72 65 73 65 6e 64 23 20 5c : data-resend# \
0a20: 20 72 65 73 65 6e 64 20 74 6f 6b 65 6e 73 3b 20 resend tokens;
0a30: 6f 6e 6c 79 20 66 6f 72 20 64 61 74 61 0a 20 20 only for data.
0a40: 20 20 76 61 6c 75 65 3a 20 73 65 6e 64 2d 61 63 value: send-ac
0a50: 6b 23 0a 65 6e 64 2d 63 6c 61 73 73 20 64 61 74 k#.end-class dat
0a60: 61 2d 63 6c 61 73 73 0a 0a 63 6f 64 65 2d 63 6c a-class..code-cl
0a70: 61 73 73 20 63 6c 61 73 73 0a 20 20 20 20 66 69 ass class. fi
0a80: 65 6c 64 3a 20 64 61 74 61 2d 61 63 6b 62 69 74 eld: data-ackbit
0a90: 73 0a 20 20 20 20 66 69 65 6c 64 3a 20 64 61 74 s. field: dat
0aa0: 61 2d 61 63 6b 62 69 74 73 2d 62 75 66 0a 20 20 a-ackbits-buf.
0ab0: 20 20 66 69 65 6c 64 3a 20 64 61 74 61 2d 61 63 field: data-ac
0ac0: 6b 23 20 20 20 20 20 5c 20 66 75 6c 6c 79 20 61 k# \ fully a
0ad0: 63 6b 65 64 20 62 75 72 73 74 73 0a 20 20 20 20 cked bursts.
0ae0: 66 69 65 6c 64 3a 20 61 63 6b 2d 62 69 74 23 20 field: ack-bit#
0af0: 20 20 20 20 20 5c 20 61 63 74 75 61 6c 20 61 63 \ actual ac
0b00: 6b 20 62 69 74 0a 20 20 20 20 66 69 65 6c 64 3a k bit. field:
0b10: 20 64 61 74 61 2d 72 65 73 65 6e 64 23 2d 62 75 data-resend#-bu
0b20: 66 0a 20 20 20 20 73 63 76 61 6c 75 65 3a 20 61 f. scvalue: a
0b30: 63 6b 2d 61 64 76 61 6e 63 65 3f 20 20 5c 20 61 ck-advance? \ a
0b40: 63 6b 20 69 73 20 61 64 76 61 6e 63 69 6e 67 20 ck is advancing
0b50: 73 74 61 74 65 0a 65 6e 64 2d 63 6c 61 73 73 20 state.end-class
0b60: 72 63 6f 64 65 2d 63 6c 61 73 73 0a 0a 72 63 6f rcode-class..rco
0b70: 64 65 2d 63 6c 61 73 73 20 63 6c 61 73 73 0a 20 de-class class.
0b80: 20 20 20 76 61 6c 75 65 3a 20 72 65 63 2d 61 63 value: rec-ac
0b90: 6b 23 0a 65 6e 64 2d 63 6c 61 73 73 20 72 64 61 k#.end-class rda
0ba0: 74 61 2d 63 6c 61 73 73 0a 0a 70 72 65 76 69 6f ta-class..previo
0bb0: 75 73 20 64 65 66 69 6e 69 74 69 6f 6e 73 0a 0a us definitions..
0bc0: 63 6d 64 2d 63 6c 61 73 73 20 63 6c 61 73 73 0a cmd-class class.
0bd0: 20 20 20 20 66 69 65 6c 64 3a 20 74 69 6d 69 6e field: timin
0be0: 67 2d 73 74 61 74 0a 20 20 20 20 66 69 65 6c 64 g-stat. field
0bf0: 3a 20 74 72 61 63 6b 2d 74 69 6d 69 6e 67 0a 20 : track-timing.
0c00: 20 20 20 66 69 65 6c 64 3a 20 66 6c 79 62 75 72 field: flybur
0c10: 73 74 0a 20 20 20 20 66 69 65 6c 64 3a 20 66 6c st. field: fl
0c20: 79 62 75 72 73 74 73 0a 20 20 20 20 66 69 65 6c ybursts. fiel
0c30: 64 3a 20 74 69 6d 65 6f 75 74 73 0a 20 20 20 20 d: timeouts.
0c40: 66 69 65 6c 64 3a 20 77 69 6e 64 6f 77 2d 73 69 field: window-si
0c50: 7a 65 20 5c 20 70 61 63 6b 65 74 73 20 69 6e 20 ze \ packets in
0c60: 66 6c 69 67 68 74 0a 20 20 20 20 36 34 66 69 65 flight. 64fie
0c70: 6c 64 3a 20 72 74 64 65 6c 61 79 20 5c 20 6e 73 ld: rtdelay \ ns
0c80: 0a 20 20 20 20 36 34 66 69 65 6c 64 3a 20 6c 61 . 64field: la
0c90: 73 74 2d 74 69 6d 65 0a 20 20 20 20 36 34 66 69 st-time. 64fi
0ca0: 65 6c 64 3a 20 6c 61 73 74 61 63 6b 20 5c 20 6e eld: lastack \ n
0cb0: 73 0a 20 20 20 20 36 34 66 69 65 6c 64 3a 20 72 s. 64field: r
0cc0: 65 63 76 2d 74 69 63 6b 0a 20 20 20 20 36 34 66 ecv-tick. 64f
0cd0: 69 65 6c 64 3a 20 6e 73 2f 62 75 72 73 74 0a 20 ield: ns/burst.
0ce0: 20 20 20 36 34 66 69 65 6c 64 3a 20 6c 61 73 74 64field: last
0cf0: 2d 6e 73 2f 62 75 72 73 74 0a 20 20 20 20 36 34 -ns/burst. 64
0d00: 66 69 65 6c 64 3a 20 62 61 6e 64 77 69 64 74 68 field: bandwidth
0d10: 2d 74 69 63 6b 20 5c 20 6e 73 0a 20 20 20 20 36 -tick \ ns. 6
0d20: 34 66 69 65 6c 64 3a 20 6e 65 78 74 2d 74 69 63 4field: next-tic
0d30: 6b 20 5c 20 6e 73 0a 20 20 20 20 36 34 66 69 65 k \ ns. 64fie
0d40: 6c 64 3a 20 65 78 74 72 61 2d 6e 73 0a 20 20 20 ld: extra-ns.
0d50: 20 36 34 66 69 65 6c 64 3a 20 73 6c 61 63 6b 67 64field: slackg
0d60: 72 6f 77 0a 20 20 20 20 36 34 66 69 65 6c 64 3a row. 64field:
0d70: 20 73 6c 61 63 6b 67 72 6f 77 27 0a 20 20 20 20 slackgrow'.
0d80: 36 34 66 69 65 6c 64 3a 20 6c 61 73 74 73 6c 61 64field: lastsla
0d90: 63 6b 0a 20 20 20 20 36 34 66 69 65 6c 64 3a 20 ck. 64field:
0da0: 6d 69 6e 2d 73 6c 61 63 6b 0a 20 20 20 20 36 34 min-slack. 64
0db0: 66 69 65 6c 64 3a 20 6d 61 78 2d 73 6c 61 63 6b field: max-slack
0dc0: 0a 20 20 20 20 36 34 66 69 65 6c 64 3a 20 74 69 . 64field: ti
0dd0: 6d 65 2d 6f 66 66 73 65 74 20 20 5c 20 6d 61 6b me-offset \ mak
0de0: 65 20 74 69 6d 65 73 74 61 6d 70 73 20 73 6d 61 e timestamps sma
0df0: 6c 6c 65 72 0a 20 20 20 20 36 34 66 69 65 6c 64 ller. 64field
0e00: 3a 20 6c 61 73 74 64 65 6c 74 61 74 0a 65 6e 64 : lastdeltat.end
0e10: 2d 63 6c 61 73 73 20 61 63 6b 2d 63 6c 61 73 73 -class ack-class
0e20: 0a 0a 63 6d 64 2d 63 6c 61 73 73 20 63 6c 61 73 ..cmd-class clas
0e30: 73 0a 20 20 20 20 66 69 65 6c 64 3a 20 73 69 6c s. field: sil
0e40: 65 6e 74 2d 6c 61 73 74 23 0a 65 6e 64 2d 63 6c ent-last#.end-cl
0e50: 61 73 73 20 6d 73 67 69 6e 67 2d 63 6c 61 73 73 ass msging-class
0e60: 0a 0a 0a 63 6d 64 2d 63 6c 61 73 73 20 63 6c 61 ...cmd-class cla
0e70: 73 73 7b 20 6d 73 67 0a 20 20 20 20 24 31 30 20 ss{ msg. $10
0e80: 2b 66 69 65 6c 64 20 64 75 6d 6d 79 0a 20 20 20 +field dummy.
0e90: 20 24 76 61 6c 75 65 3a 20 6e 61 6d 65 24 20 5c $value: name$ \
0ea0: 20 67 72 6f 75 70 20 6e 61 6d 65 0a 20 20 20 20 group name.
0eb0: 24 76 61 6c 75 65 3a 20 69 64 24 0a 20 20 20 20 $value: id$.
0ec0: 24 76 61 6c 75 65 3a 20 6d 73 67 24 20 20 5c 20 $value: msg$ \
0ed0: 64 65 63 72 79 70 74 65 64 20 6d 65 73 73 61 67 decrypted messag
0ee0: 65 0a 20 20 20 20 66 69 65 6c 64 3a 20 70 65 65 e. field: pee
0ef0: 72 73 5b 5d 0a 20 20 20 20 66 69 65 6c 64 3a 20 rs[]. field:
0f00: 6b 65 79 73 5b 5d 0a 20 20 20 20 66 69 65 6c 64 keys[]. field
0f10: 3a 20 6c 6f 67 5b 5d 0a 20 20 20 20 66 69 65 6c : log[]. fiel
0f20: 64 3a 20 6d 6f 64 65 0a 20 20 20 20 5c 20 6d 6f d: mode. \ mo
0f30: 64 65 20 62 69 74 73 3a 0a 20 20 20 20 31 20 34 de bits:. 1 4
0f40: 20 62 69 74 73 3a 20 6f 74 72 23 20 72 65 64 61 bits: otr# reda
0f50: 74 65 23 20 6c 6f 63 6b 23 20 76 69 73 69 62 6c te# lock# visibl
0f60: 65 23 0a 20 20 20 20 3a 20 62 69 74 2d 6f 70 73 e#. : bit-ops
0f70: 3a 20 28 20 62 69 74 20 2d 2d 20 29 0a 20 20 20 : ( bit -- ).
0f80: 20 20 20 20 20 70 61 72 73 65 2d 6e 61 6d 65 20 parse-name
0f90: 5b 7b 3a 20 64 3a 20 6e 61 6d 65 20 3a 7d 6c 20 [{: d: name :}l
0fa0: 6e 61 6d 65 20 72 6f 74 20 5b 3a 20 65 6d 69 74 name rot [: emit
0fb0: 20 74 79 70 65 20 3b 5d 20 24 74 6d 70 20 6e 65 type ;] $tmp ne
0fc0: 78 74 6e 61 6d 65 20 3b 5d 0a 09 7b 3a 20 78 74 xtname ;]..{: xt
0fd0: 3a 20 67 65 6e 2d 6e 61 6d 65 20 3a 7d 0a 09 27 : gen-name :}..'
0fe0: 2b 27 20 67 65 6e 2d 6e 61 6d 65 20 63 72 65 61 +' gen-name crea
0ff0: 74 65 20 64 75 70 20 2c 20 5b 3a 20 40 20 20 20 te dup , [: @
1000: 20 20 20 20 20 6d 6f 64 65 20 6f 72 21 20 20 3b mode or! ;
1010: 5d 20 73 65 74 2d 64 6f 65 73 3e 0a 09 27 2d 27 ] set-does>..'-'
1020: 20 67 65 6e 2d 6e 61 6d 65 20 63 72 65 61 74 65 gen-name create
1030: 20 64 75 70 20 2c 20 5b 3a 20 40 20 69 6e 76 65 dup , [: @ inve
1040: 72 74 20 6d 6f 64 65 20 61 6e 64 21 20 3b 5d 20 rt mode and! ;]
1050: 73 65 74 2d 64 6f 65 73 3e 0a 09 27 3f 27 20 67 set-does>..'?' g
1060: 65 6e 2d 6e 61 6d 65 20 63 72 65 61 74 65 20 20 en-name create
1070: 20 20 20 2c 20 5b 3a 20 40 20 6d 6f 64 65 20 40 , [: @ mode @
1080: 20 61 6e 64 20 30 3c 3e 20 20 20 3b 5d 20 73 65 and 0<> ;] se
1090: 74 2d 64 6f 65 73 3e 20 3b 0a 20 20 20 20 6f 74 t-does> ;. ot
10a0: 72 23 20 20 20 20 20 62 69 74 2d 6f 70 73 3a 20 r# bit-ops:
10b0: 6f 74 72 0a 20 20 20 20 72 65 64 61 74 65 23 20 otr. redate#
10c0: 20 62 69 74 2d 6f 70 73 3a 20 72 65 64 61 74 65 bit-ops: redate
10d0: 0a 20 20 20 20 6c 6f 63 6b 23 20 20 20 20 62 69 . lock# bi
10e0: 74 2d 6f 70 73 3a 20 6c 6f 63 6b 0a 20 20 20 20 t-ops: lock.
10f0: 76 69 73 69 62 6c 65 23 20 62 69 74 2d 6f 70 73 visible# bit-ops
1100: 3a 20 76 69 73 69 62 6c 65 0a 0a 20 20 20 20 6d : visible.. m
1110: 65 74 68 6f 64 20 73 74 61 72 74 0a 20 20 20 20 ethod start.
1120: 6d 65 74 68 6f 64 20 74 61 67 0a 20 20 20 20 6d method tag. m
1130: 65 74 68 6f 64 20 63 68 61 69 6e 0a 20 20 20 20 ethod chain.
1140: 6d 65 74 68 6f 64 20 73 69 67 6e 61 6c 0a 20 20 method signal.
1150: 20 20 6d 65 74 68 6f 64 20 72 65 0a 20 20 20 20 method re.
1160: 6d 65 74 68 6f 64 20 74 65 78 74 0a 20 20 20 20 method text.
1170: 6d 65 74 68 6f 64 20 6f 62 6a 65 63 74 0a 20 20 method object.
1180: 20 20 6d 65 74 68 6f 64 20 69 64 0a 20 20 20 20 method id.
1190: 6d 65 74 68 6f 64 20 61 63 74 69 6f 6e 0a 20 20 method action.
11a0: 20 20 6d 65 74 68 6f 64 20 63 6f 6f 72 64 0a 20 method coord.
11b0: 20 20 20 6d 65 74 68 6f 64 20 6f 74 72 69 66 79 method otrify
11c0: 0a 20 20 20 20 6d 65 74 68 6f 64 20 70 61 79 6d . method paym
11d0: 65 6e 74 0a 20 20 20 20 6d 65 74 68 6f 64 20 75 ent. method u
11e0: 72 6c 0a 20 20 20 20 6d 65 74 68 6f 64 20 6c 69 rl. method li
11f0: 6b 65 0a 20 20 20 20 6d 65 74 68 6f 64 20 6c 6f ke. method lo
1200: 63 6b 0a 20 20 20 20 6d 65 74 68 6f 64 20 75 6e ck. method un
1210: 6c 6f 63 6b 0a 20 20 20 20 6d 65 74 68 6f 64 20 lock. method
1220: 61 77 61 79 0a 20 20 20 20 6d 65 74 68 6f 64 20 away. method
1230: 65 6e 64 0a 20 20 20 20 6d 65 74 68 6f 64 20 64 end. method d
1240: 69 73 70 6c 61 79 20 20 20 5c 20 64 69 73 70 6c isplay \ displ
1250: 61 79 20 6f 6e 65 20 6d 65 73 73 61 67 65 0a 20 ay one message.
1260: 20 20 20 6d 65 74 68 6f 64 20 72 65 64 69 73 70 method redisp
1270: 6c 61 79 20 5c 20 64 69 73 70 6c 61 79 20 66 75 lay \ display fu
1280: 6c 6c 20 73 65 74 0a 20 20 20 20 6d 65 74 68 6f ll set. metho
1290: 64 20 2e 6e 6f 62 6f 64 79 20 20 20 5c 20 73 68 d .nobody \ sh
12a0: 6f 77 20 6e 6f 62 6f 64 79 20 69 73 20 6f 6e 6c ow nobody is onl
12b0: 69 6e 65 0a 7d 63 6c 61 73 73 0a 0a 63 6d 64 2d ine.}class..cmd-
12c0: 63 6c 61 73 73 20 63 6c 61 73 73 7b 20 70 61 79 class class{ pay
12d0: 0a 20 20 20 20 66 69 65 6c 64 3a 20 73 6f 75 72 . field: sour
12e0: 63 65 73 5b 5d 20 20 20 20 5c 20 61 6c 6c 20 74 ces[] \ all t
12f0: 68 65 20 73 6f 75 72 63 65 73 20 73 74 6f 72 65 he sources store
1300: 64 20 68 65 72 65 2c 20 61 6e 20 61 72 72 61 79 d here, an array
1310: 0a 20 20 20 20 66 69 65 6c 64 3a 20 73 69 6e 6b . field: sink
1320: 73 5b 5d 20 20 20 20 20 20 5c 20 61 6c 6c 20 74 s[] \ all t
1330: 68 65 20 73 69 67 6e 61 74 75 72 65 73 20 73 74 he signatures st
1340: 6f 72 65 64 20 68 65 72 65 2c 20 61 6e 20 61 72 ored here, an ar
1350: 72 61 79 0a 20 20 20 20 66 69 65 6c 64 3a 20 61 ray. field: a
1360: 73 73 65 74 73 5b 5d 20 20 20 20 20 5c 20 61 6c ssets[] \ al
1370: 6c 20 73 65 6c 65 63 74 65 64 20 61 73 73 65 74 l selected asset
1380: 73 20 28 61 72 72 61 79 20 5b 61 73 73 65 74 2c s (array [asset,
1390: 61 6d 6f 75 6e 74 5d 2a 29 0a 20 20 20 20 66 69 amount]*). fi
13a0: 65 6c 64 3a 20 62 61 6c 61 6e 63 65 73 5b 5d 20 eld: balances[]
13b0: 20 20 5c 20 61 6c 6c 20 62 61 6c 61 6e 63 65 73 \ all balances
13c0: 20 28 61 6d 6f 75 6e 74 5b 61 73 73 65 74 5d 29 (amount[asset])
13d0: 0a 20 20 20 20 76 61 6c 75 65 3a 20 63 75 72 72 . value: curr
13e0: 65 6e 74 2d 70 6b 0a 20 20 20 20 76 61 6c 75 65 ent-pk. value
13f0: 3a 20 63 75 72 72 65 6e 74 2d 61 73 73 65 74 0a : current-asset.
1400: 20 20 20 20 6d 65 74 68 6f 64 20 6c 61 73 74 2d method last-
1410: 63 6f 6e 74 72 61 63 74 0a 20 20 20 20 6d 65 74 contract. met
1420: 68 6f 64 20 73 6f 75 72 63 65 0a 20 20 20 20 6d hod source. m
1430: 65 74 68 6f 64 20 73 69 6e 6b 0a 20 20 20 20 6d ethod sink. m
1440: 65 74 68 6f 64 20 61 73 73 65 74 0a 20 20 20 20 ethod asset.
1450: 6d 65 74 68 6f 64 20 6f 62 6c 69 67 61 74 69 6f method obligatio
1460: 6e 0a 20 20 20 20 6d 65 74 68 6f 64 20 61 6d 6f n. method amo
1470: 75 6e 74 0a 20 20 20 20 6d 65 74 68 6f 64 20 63 unt. method c
1480: 6f 6d 6d 65 6e 74 0a 20 20 20 20 6d 65 74 68 6f omment. metho
1490: 64 20 23 73 6f 75 72 63 65 0a 20 20 20 20 6d 65 d #source. me
14a0: 74 68 6f 64 20 62 61 6c 61 6e 63 65 0a 20 20 20 thod balance.
14b0: 20 6d 65 74 68 6f 64 20 66 69 6e 61 6c 69 7a 65 method finalize
14c0: 0a 7d 63 6c 61 73 73 0a 0a 62 65 67 69 6e 2d 73 .}class..begin-s
14d0: 74 72 75 63 74 75 72 65 20 77 61 6c 6c 65 74 0a tructure wallet.
14e0: 20 20 20 20 66 69 65 6c 64 3a 20 63 6f 6e 74 72 field: contr
14f0: 61 63 74 23 0a 20 20 20 20 66 69 65 6c 64 3a 20 act#. field:
1500: 61 73 73 65 74 73 5b 5d 0a 20 20 20 20 66 69 65 assets[]. fie
1510: 6c 64 3a 20 61 6d 6f 75 6e 74 73 5b 5d 0a 20 20 ld: amounts[].
1520: 20 20 66 69 65 6c 64 3a 20 24 63 6f 6d 6d 65 6e field: $commen
1530: 74 73 5b 5d 0a 20 20 20 20 66 69 65 6c 64 3a 20 ts[]. field:
1540: 24 73 69 67 0a 65 6e 64 2d 73 74 72 75 63 74 75 $sig.end-structu
1550: 72 65 0a 0a 5c 20 6f 62 6a 65 63 74 2f 72 65 66 re..\ object/ref
1560: 65 72 65 6e 63 65 20 74 79 70 65 73 0a 0a 73 63 erence types..sc
1570: 6f 70 65 7b 20 6d 73 67 0a 30 0a 65 6e 75 6d 20 ope{ msg.0.enum
1580: 69 6d 61 67 65 23 0a 65 6e 75 6d 20 74 68 75 6d image#.enum thum
1590: 62 6e 61 69 6c 23 0a 65 6e 75 6d 20 70 61 74 63 bnail#.enum patc
15a0: 68 23 0a 65 6e 75 6d 20 73 6e 61 70 73 68 6f 74 h#.enum snapshot
15b0: 23 0a 65 6e 75 6d 20 6d 65 73 73 61 67 65 23 0a #.enum message#.
15c0: 65 6e 75 6d 20 70 6f 73 74 69 6e 67 23 20 20 20 enum posting#
15d0: 5c 20 64 76 63 73 20 70 72 6f 6a 65 63 74 2c 20 \ dvcs project,
15e0: 70 6f 73 74 69 6e 67 0a 65 6e 75 6d 20 66 69 6c posting.enum fil
15f0: 65 73 23 20 20 20 20 20 5c 20 64 76 63 73 20 70 es# \ dvcs p
1600: 72 6f 6a 65 63 74 2c 20 66 69 6c 65 73 0a 65 6e roject, files.en
1610: 75 6d 20 63 68 61 74 6c 6f 67 23 20 20 20 5c 20 um chatlog# \
1620: 63 68 61 74 6c 6f 67 20 6f 66 20 69 6e 73 74 61 chatlog of insta
1630: 6e 74 20 6d 65 73 73 61 67 65 73 0a 65 6e 75 6d nt messages.enum
1640: 20 74 69 6d 65 6c 69 6e 65 23 20 20 5c 20 63 68 timeline# \ ch
1650: 61 74 6c 6f 67 20 6f 66 20 70 6f 73 74 69 6e 67 atlog of posting
1660: 73 0a 65 6e 75 6d 20 6c 6f 67 67 72 6f 75 70 73 s.enum loggroups
1670: 23 20 5c 20 6c 6f 67 73 20 6f 66 20 6c 6f 67 73 # \ logs of logs
1680: 0a 64 72 6f 70 0a 7d 73 63 6f 70 65 0a 0a 73 63 .drop.}scope..sc
1690: 6f 70 65 3a 20 69 6e 76 69 74 0a 30 0a 65 6e 75 ope: invit.0.enu
16a0: 6d 20 6e 6f 6e 65 23 0a 65 6e 75 6d 20 70 65 6e m none#.enum pen
16b0: 64 23 0a 65 6e 75 6d 20 71 72 23 0a 64 72 6f 70 d#.enum qr#.drop
16c0: 0a 7d 73 63 6f 70 65 0a 0a 63 6d 64 2d 63 6c 61 .}scope..cmd-cla
16d0: 73 73 20 63 6c 61 73 73 0a 20 20 20 20 5c 20 63 ss class. \ c
16e0: 61 6c 6c 62 61 63 6b 73 0a 20 20 20 20 64 65 66 allbacks. def
16f0: 65 72 3a 20 74 69 6d 65 6f 75 74 2d 78 74 20 20 er: timeout-xt
1700: 20 20 5c 20 63 61 6c 6c 62 61 63 6b 20 66 6f 72 \ callback for
1710: 20 74 69 6d 65 6f 75 74 0a 20 20 20 20 64 65 66 timeout. def
1720: 65 72 3a 20 73 65 74 69 70 2d 78 74 20 20 20 20 er: setip-xt
1730: 20 20 5c 20 63 61 6c 6c 62 61 63 6b 20 66 6f 72 \ callback for
1740: 20 73 65 74 2d 69 70 0a 20 20 20 20 64 65 66 65 set-ip. defe
1750: 72 3a 20 61 63 6b 2d 78 74 20 20 20 20 20 20 20 r: ack-xt
1760: 20 5c 20 63 61 6c 6c 62 61 63 6b 20 66 6f 72 20 \ callback for
1770: 61 63 6b 6e 6f 77 6c 65 64 67 65 0a 20 20 20 20 acknowledge.
1780: 64 65 66 65 72 3a 20 70 75 6e 63 68 2d 64 6f 6e defer: punch-don
1790: 65 2d 78 74 20 5c 20 63 61 6c 6c 62 61 63 6b 20 e-xt \ callback
17a0: 66 6f 72 20 4e 41 54 20 74 72 61 76 65 72 73 61 for NAT traversa
17b0: 6c 20 6f 6b 0a 20 20 20 20 64 65 66 65 72 3a 20 l ok. defer:
17c0: 73 79 6e 63 2d 64 6f 6e 65 2d 78 74 20 20 5c 20 sync-done-xt \
17d0: 63 61 6c 6c 62 61 63 6b 20 66 6f 72 20 73 79 6e callback for syn
17e0: 63 20 64 6f 6e 65 0a 20 20 20 20 64 65 66 65 72 c done. defer
17f0: 3a 20 73 79 6e 63 2d 6e 6f 6e 65 2d 78 74 20 20 : sync-none-xt
1800: 5c 20 63 61 6c 6c 62 61 63 6b 20 66 6f 72 20 73 \ callback for s
1810: 79 6e 63 20 6e 6f 74 20 6e 65 65 64 65 64 0a 20 ync not needed.
1820: 20 20 20 5c 20 6d 61 70 73 20 66 6f 72 20 64 61 \ maps for da
1830: 74 61 20 61 6e 64 20 63 6f 64 65 20 74 72 61 6e ta and code tran
1840: 73 66 65 72 0a 20 20 20 20 30 20 2b 66 69 65 6c sfer. 0 +fiel
1850: 64 20 73 74 61 72 74 2d 6d 61 70 73 0a 20 20 20 d start-maps.
1860: 20 76 61 6c 75 65 3a 20 63 6f 64 65 2d 6d 61 70 value: code-map
1870: 0a 20 20 20 20 76 61 6c 75 65 3a 20 63 6f 64 65 . value: code
1880: 2d 72 6d 61 70 0a 20 20 20 20 76 61 6c 75 65 3a -rmap. value:
1890: 20 64 61 74 61 2d 6d 61 70 0a 20 20 20 20 76 61 data-map. va
18a0: 6c 75 65 3a 20 64 61 74 61 2d 72 6d 61 70 0a 20 lue: data-rmap.
18b0: 20 20 20 30 20 2b 66 69 65 6c 64 20 65 6e 64 2d 0 +field end-
18c0: 6d 61 70 73 0a 20 20 20 20 5c 20 73 74 72 69 6e maps. \ strin
18d0: 67 73 0a 20 20 20 20 30 20 2b 66 69 65 6c 64 20 gs. 0 +field
18e0: 73 74 61 72 74 2d 73 74 72 69 6e 67 73 0a 20 20 start-strings.
18f0: 20 20 66 69 65 6c 64 3a 20 72 65 73 65 6e 64 30 field: resend0
1900: 0a 20 20 20 20 66 69 65 6c 64 3a 20 64 61 74 61 . field: data
1910: 2d 72 65 73 65 6e 64 0a 20 20 20 20 66 69 65 6c -resend. fiel
1920: 64 3a 20 70 75 62 6b 65 79 20 20 20 20 20 20 20 d: pubkey
1930: 20 5c 20 6f 74 68 65 72 20 73 69 64 65 20 6f 66 \ other side of
1940: 66 69 63 69 61 6c 20 70 75 62 6b 65 79 0a 20 20 ficial pubkey.
1950: 20 20 66 69 65 6c 64 3a 20 70 75 6e 63 68 2d 61 field: punch-a
1960: 64 64 72 73 0a 20 20 20 20 66 69 65 6c 64 3a 20 ddrs. field:
1970: 72 71 64 2d 78 74 73 20 20 20 20 20 20 20 5c 20 rqd-xts \
1980: 63 61 6c 6c 62 61 63 6b 73 20 66 6f 72 20 72 65 callbacks for re
1990: 71 75 65 73 74 20 64 6f 6e 65 20 28 61 72 72 61 quest done (arra
19a0: 79 29 0a 20 20 20 20 66 69 65 6c 64 3a 20 6d 79 y). field: my
19b0: 2d 65 72 72 6f 72 2d 69 64 0a 20 20 20 20 66 69 -error-id. fi
19c0: 65 6c 64 3a 20 62 65 61 63 6f 6e 2d 68 61 73 68 eld: beacon-hash
19d0: 0a 20 20 20 20 30 20 2b 66 69 65 6c 64 20 65 6e . 0 +field en
19e0: 64 2d 73 74 72 69 6e 67 73 0a 20 20 20 20 66 69 d-strings. fi
19f0: 65 6c 64 3a 20 72 65 71 75 65 73 74 2d 67 65 6e eld: request-gen
1a00: 20 20 20 5c 20 70 72 65 2d 67 65 6e 65 72 61 74 \ pre-generat
1a10: 65 64 20 72 65 71 75 65 73 74 20 6e 75 6d 62 65 ed request numbe
1a20: 72 0a 20 20 20 20 66 69 65 6c 64 3a 20 70 65 72 r. field: per
1a30: 6d 2d 6d 61 73 6b 0a 20 20 20 20 5c 20 73 65 63 m-mask. \ sec
1a40: 72 65 74 73 0a 20 20 20 20 30 20 2b 66 69 65 6c rets. 0 +fiel
1a50: 64 20 73 74 61 72 74 2d 73 65 63 72 65 74 73 0a d start-secrets.
1a60: 20 20 20 20 66 69 65 6c 64 3a 20 63 72 79 70 74 field: crypt
1a70: 6f 2d 6b 65 79 0a 20 20 20 20 66 69 65 6c 64 3a o-key. field:
1a80: 20 64 65 73 74 2d 30 6b 65 79 20 20 20 20 20 5c dest-0key \
1a90: 20 6b 65 79 20 66 6f 72 20 73 74 61 74 65 6c 65 key for statele
1aa0: 73 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 0a 20 ss connections.
1ab0: 20 20 20 30 20 2b 66 69 65 6c 64 20 65 6e 64 2d 0 +field end-
1ac0: 73 65 63 72 65 74 73 0a 20 20 20 20 5c 20 73 65 secrets. \ se
1ad0: 6d 61 70 68 6f 72 65 73 0a 20 20 20 20 30 20 2b maphores. 0 +
1ae0: 66 69 65 6c 64 20 73 74 61 72 74 2d 73 65 6d 61 field start-sema
1af0: 73 0a 20 20 20 20 31 20 70 74 68 72 65 61 64 2d s. 1 pthread-
1b00: 6d 75 74 65 78 65 73 20 2b 66 69 65 6c 64 20 66 mutexes +field f
1b10: 69 6c 65 73 74 61 74 65 2d 73 65 6d 61 0a 20 20 ilestate-sema.
1b20: 20 20 31 20 70 74 68 72 65 61 64 2d 6d 75 74 65 1 pthread-mute
1b30: 78 65 73 20 2b 66 69 65 6c 64 20 63 6f 64 65 2d xes +field code-
1b40: 73 65 6d 61 0a 20 20 20 20 30 20 2b 66 69 65 6c sema. 0 +fiel
1b50: 64 20 65 6e 64 2d 73 65 6d 61 73 0a 20 20 20 20 d end-semas.
1b60: 5c 20 63 6f 6e 74 65 78 74 73 20 66 6f 72 20 73 \ contexts for s
1b70: 75 62 63 6c 61 73 73 65 73 0a 20 20 20 20 66 69 ubclasses. fi
1b80: 65 6c 64 3a 20 6e 65 78 74 2d 63 6f 6e 74 65 78 eld: next-contex
1b90: 74 20 20 5c 20 6c 69 6e 6b 20 66 69 65 6c 64 20 t \ link field
1ba0: 74 6f 20 63 6f 6e 6e 65 63 74 20 61 6c 6c 20 63 to connect all c
1bb0: 6f 6e 74 65 78 74 73 0a 20 20 20 20 66 69 65 6c ontexts. fiel
1bc0: 64 3a 20 6c 6f 67 2d 63 6f 6e 74 65 78 74 0a 20 d: log-context.
1bd0: 20 20 20 66 69 65 6c 64 3a 20 61 63 6b 2d 63 6f field: ack-co
1be0: 6e 74 65 78 74 0a 20 20 20 20 66 69 65 6c 64 3a ntext. field:
1bf0: 20 6d 73 67 69 6e 67 2d 63 6f 6e 74 65 78 74 0a msging-context.
1c00: 20 20 20 20 66 69 65 6c 64 3a 20 66 69 6c 65 2d field: file-
1c10: 73 74 61 74 65 20 20 20 20 5c 20 66 69 6c 65 73 state \ files
1c20: 0a 20 20 20 20 5c 20 72 65 73 74 20 6f 66 20 73 . \ rest of s
1c30: 74 61 74 65 0a 20 20 20 20 66 69 65 6c 64 3a 20 tate. field:
1c40: 63 6f 64 65 62 75 66 23 0a 20 20 20 20 66 69 65 codebuf#. fie
1c50: 6c 64 3a 20 63 6f 6e 74 65 78 74 23 0a 20 20 20 ld: context#.
1c60: 20 66 69 65 6c 64 3a 20 77 61 69 74 2d 74 61 73 field: wait-tas
1c70: 6b 0a 20 20 20 20 76 61 6c 75 65 3a 20 6d 61 78 k. value: max
1c80: 2d 74 69 6d 65 6f 75 74 73 20 5c 20 69 6e 69 74 -timeouts \ init
1c90: 69 61 6c 69 7a 65 64 20 77 69 74 68 20 74 69 6d ialized with tim
1ca0: 65 6f 75 74 73 23 0a 20 20 20 20 24 31 30 20 2b eouts#. $10 +
1cb0: 66 69 65 6c 64 20 72 65 74 75 72 6e 2d 61 64 64 field return-add
1cc0: 72 65 73 73 20 5c 20 75 73 65 64 20 61 73 20 72 ress \ used as r
1cd0: 65 74 75 72 6e 20 61 64 64 72 65 73 73 0a 20 20 eturn address.
1ce0: 20 20 24 31 30 20 2b 66 69 65 6c 64 20 72 30 2d $10 +field r0-
1cf0: 61 64 64 72 65 73 73 20 5c 20 75 73 65 64 20 66 address \ used f
1d00: 6f 72 20 72 65 73 65 6e 64 69 6e 67 20 30 0a 20 or resending 0.
1d10: 20 20 20 24 32 30 20 2b 66 69 65 6c 64 20 70 75 $20 +field pu
1d20: 6e 63 68 23 0a 20 20 20 20 36 34 66 69 65 6c 64 nch#. 64field
1d30: 3a 20 72 65 63 76 2d 61 64 64 72 0a 20 20 20 20 : recv-addr.
1d40: 66 69 65 6c 64 3a 20 72 65 61 64 2d 66 69 6c 65 field: read-file
1d50: 23 0a 20 20 20 20 66 69 65 6c 64 3a 20 77 72 69 #. field: wri
1d60: 74 65 2d 66 69 6c 65 23 0a 20 20 20 20 66 69 65 te-file#. fie
1d70: 6c 64 3a 20 72 65 73 69 64 75 61 6c 72 65 61 64 ld: residualread
1d80: 0a 20 20 20 20 66 69 65 6c 64 3a 20 72 65 73 69 . field: resi
1d90: 64 75 61 6c 77 72 69 74 65 0a 20 20 20 20 66 69 dualwrite. fi
1da0: 65 6c 64 3a 20 62 6c 6f 63 6b 73 69 7a 65 0a 20 eld: blocksize.
1db0: 20 20 20 66 69 65 6c 64 3a 20 62 6c 6f 63 6b 61 field: blocka
1dc0: 6c 69 67 6e 0a 20 20 20 20 66 69 65 6c 64 3a 20 lign. field:
1dd0: 72 65 71 6d 61 73 6b 20 5c 20 70 65 72 20 63 6f reqmask \ per co
1de0: 6e 6e 65 63 74 69 6f 6e 20 72 65 71 75 65 73 74 nnection request
1df0: 20 6d 61 73 6b 0a 20 20 20 20 66 69 65 6c 64 3a mask. field:
1e00: 20 72 65 71 63 6f 75 6e 74 20 5c 20 70 65 72 20 reqcount \ per
1e10: 63 6f 6e 6e 65 63 74 69 6f 6e 20 72 65 71 75 65 connection reque
1e20: 73 74 20 63 6f 75 6e 74 20 28 66 6f 72 20 6e 6f st count (for no
1e30: 6e 20 63 6f 6f 6b 69 65 2d 72 65 71 75 65 73 74 n cookie-request
1e40: 73 29 0a 20 20 20 20 66 69 65 6c 64 3a 20 72 65 s). field: re
1e50: 71 75 65 73 74 23 0a 20 20 20 20 66 69 65 6c 64 quest#. field
1e60: 3a 20 66 69 6c 65 72 65 71 23 0a 20 20 20 20 66 : filereq#. f
1e70: 69 65 6c 64 3a 20 66 69 6c 65 2d 63 6f 75 6e 74 ield: file-count
1e80: 20 5c 20 6f 70 65 6e 20 66 69 6c 65 20 63 6f 75 \ open file cou
1e90: 6e 74 0a 20 20 20 20 66 69 65 6c 64 3a 20 66 69 nt. field: fi
1ea0: 6c 65 2d 72 65 67 23 20 20 5c 20 6e 65 78 74 20 le-reg# \ next
1eb0: 66 69 6c 65 20 69 64 20 74 6f 20 72 65 71 75 65 file id to reque
1ec0: 73 74 0a 20 20 20 20 0a 20 20 20 20 66 69 65 6c st. . fiel
1ed0: 64 3a 20 64 61 74 61 2d 62 32 62 0a 20 20 20 20 d: data-b2b.
1ee0: 0a 20 20 20 20 76 61 6c 75 65 3a 20 61 63 6b 2d . value: ack-
1ef0: 72 65 73 65 6e 64 73 23 0a 20 20 20 20 63 66 69 resends#. cfi
1f00: 65 6c 64 3a 20 61 63 6b 2d 73 74 61 74 65 0a 20 eld: ack-state.
1f10: 20 20 20 63 76 61 6c 75 65 3a 20 61 63 6b 2d 72 cvalue: ack-r
1f20: 65 63 65 69 76 65 0a 20 20 20 20 63 76 61 6c 75 eceive. cvalu
1f30: 65 3a 20 61 63 6b 2d 72 65 73 65 6e 64 7e 0a 20 e: ack-resend~.
1f40: 20 20 20 0a 20 20 20 20 63 76 61 6c 75 65 3a 20 . cvalue:
1f50: 72 65 71 2d 63 6f 64 65 73 69 7a 65 0a 20 20 20 req-codesize.
1f60: 20 63 76 61 6c 75 65 3a 20 72 65 71 2d 64 61 74 cvalue: req-dat
1f70: 61 73 69 7a 65 0a 0a 20 20 20 20 73 63 76 61 6c asize.. scval
1f80: 75 65 3a 20 6b 65 79 2d 73 65 74 75 70 3f 20 20 ue: key-setup?
1f90: 20 20 20 5c 20 74 72 75 65 20 69 66 20 6b 65 79 \ true if key
1fa0: 20 73 65 74 75 70 20 69 73 20 64 6f 6e 65 0a 20 setup is done.
1fb0: 20 20 20 63 76 61 6c 75 65 3a 20 69 6e 76 69 74 cvalue: invit
1fc0: 65 2d 72 65 73 75 6c 74 23 20 5c 20 69 6e 76 69 e-result# \ invi
1fd0: 74 61 74 69 6f 6e 20 72 65 73 75 6c 74 0a 20 20 tation result.
1fe0: 20 20 63 76 61 6c 75 65 3a 20 63 6c 6f 73 69 6e cvalue: closin
1ff0: 67 3f 0a 20 20 20 20 5c 20 66 6c 6f 77 20 63 6f g?. \ flow co
2000: 6e 74 72 6f 6c 2c 20 73 65 6e 64 65 72 20 70 61 ntrol, sender pa
2010: 72 74 0a 0a 20 20 20 20 36 34 66 69 65 6c 64 3a rt.. 64field:
2020: 20 6e 65 78 74 2d 74 69 6d 65 6f 75 74 20 5c 20 next-timeout \
2030: 6e 73 0a 20 20 20 20 36 34 66 69 65 6c 64 3a 20 ns. 64field:
2040: 72 65 73 65 6e 64 2d 61 6c 6c 2d 74 6f 20 5c 20 resend-all-to \
2050: 6e 73 0a 20 20 20 20 5c 20 66 6c 6f 77 20 63 6f ns. \ flow co
2060: 6e 74 72 6f 6c 2c 20 72 65 63 65 69 76 65 72 20 ntrol, receiver
2070: 70 61 72 74 0a 20 20 20 20 36 34 66 69 65 6c 64 part. 64field
2080: 3a 20 62 75 72 73 74 2d 74 69 63 6b 73 0a 20 20 : burst-ticks.
2090: 20 20 36 34 66 69 65 6c 64 3a 20 66 69 72 73 74 64field: first
20a0: 62 2d 74 69 63 6b 73 0a 20 20 20 20 36 34 66 69 b-ticks. 64fi
20b0: 65 6c 64 3a 20 6c 61 73 74 62 2d 74 69 63 6b 73 eld: lastb-ticks
20c0: 0a 20 20 20 20 36 34 66 69 65 6c 64 3a 20 64 65 . 64field: de
20d0: 6c 74 61 2d 74 69 63 6b 73 0a 20 20 20 20 36 34 lta-ticks. 64
20e0: 66 69 65 6c 64 3a 20 6d 61 78 2d 64 74 69 63 6b field: max-dtick
20f0: 73 0a 20 20 20 20 36 34 66 69 65 6c 64 3a 20 6c s. 64field: l
2100: 61 73 74 2d 72 61 74 65 0a 20 20 20 20 5c 20 65 ast-rate. \ e
2110: 78 70 65 72 69 6d 65 6e 74 3a 20 74 72 61 63 6b xperiment: track
2120: 20 70 72 65 76 69 6f 75 73 20 62 32 62 2d 73 74 previous b2b-st
2130: 61 72 74 0a 20 20 20 20 36 34 66 69 65 6c 64 3a art. 64field:
2140: 20 6c 61 73 74 2d 72 74 69 63 6b 0a 20 20 20 20 last-rtick.
2150: 36 34 66 69 65 6c 64 3a 20 6c 61 73 74 2d 72 61 64field: last-ra
2160: 64 64 72 0a 20 20 20 20 66 69 65 6c 64 3a 20 61 ddr. field: a
2170: 63 6b 73 0a 20 20 20 20 66 69 65 6c 64 3a 20 72 cks. field: r
2180: 65 63 65 69 76 65 64 0a 20 20 20 20 5c 20 63 6f eceived. \ co
2190: 6f 6b 69 65 73 0a 20 20 20 20 66 69 65 6c 64 3a okies. field:
21a0: 20 6c 61 73 74 2d 61 63 6b 61 64 64 72 0a 20 20 last-ackaddr.
21b0: 20 20 5c 20 73 74 61 74 69 73 74 69 63 73 0a 20 \ statistics.
21c0: 20 20 20 4b 45 59 42 59 54 45 53 20 2b 66 69 65 KEYBYTES +fie
21d0: 6c 64 20 74 70 6b 63 0a 20 20 20 20 4b 45 59 42 ld tpkc. KEYB
21e0: 59 54 45 53 20 2b 66 69 65 6c 64 20 74 73 6b 63 YTES +field tskc
21f0: 0a 65 6e 64 2d 63 6c 61 73 73 20 63 6f 6e 74 65 .end-class conte
2200: 78 74 2d 63 6c 61 73 73 0a 0a 63 6d 64 2d 63 6c xt-class..cmd-cl
2210: 61 73 73 20 63 6c 61 73 73 0a 20 20 20 20 73 63 ass class. sc
2220: 6f 70 65 3a 20 68 6f 73 74 0a 20 20 20 20 66 69 ope: host. fi
2230: 65 6c 64 3a 20 70 72 69 23 0a 20 20 20 20 66 69 eld: pri#. fi
2240: 65 6c 64 3a 20 69 64 0a 20 20 20 20 6c 66 69 65 eld: id. lfie
2250: 6c 64 3a 20 69 70 76 34 0a 20 20 20 20 24 31 30 ld: ipv4. $10
2260: 20 2b 66 69 65 6c 64 20 69 70 76 36 0a 20 20 20 +field ipv6.
2270: 20 77 66 69 65 6c 64 3a 20 70 6f 72 74 76 34 0a wfield: portv4.
2280: 20 20 20 20 77 66 69 65 6c 64 3a 20 70 6f 72 74 wfield: port
2290: 76 36 0a 20 20 20 20 66 69 65 6c 64 3a 20 61 6e v6. field: an
22a0: 63 68 6f 72 20 5c 20 6e 65 74 32 6f 20 61 6e 63 chor \ net2o anc
22b0: 68 6f 72 20 28 69 73 20 61 20 70 75 62 6b 65 79 hor (is a pubkey
22c0: 29 0a 20 20 20 20 66 69 65 6c 64 3a 20 72 6f 75 ). field: rou
22d0: 74 65 20 20 5c 20 6e 65 74 32 6f 20 72 6f 75 74 te \ net2o rout
22e0: 65 0a 20 20 20 20 66 69 65 6c 64 3a 20 72 65 76 e. field: rev
22f0: 6f 6b 65 20 5c 20 69 73 20 61 20 72 65 76 6f 6b oke \ is a revok
2300: 65 20 70 61 74 68 0a 20 20 20 20 66 69 65 6c 64 e path. field
2310: 3a 20 6b 65 79 20 20 20 20 5c 20 70 73 6b 20 66 : key \ psk f
2320: 6f 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 65 or connection se
2330: 74 75 70 0a 20 20 20 20 66 69 65 6c 64 3a 20 65 tup. field: e
2340: 6b 65 79 20 20 20 5c 20 65 70 68 65 6d 65 72 61 key \ ephemera
2350: 6c 20 6b 65 79 20 61 20 6c 61 20 4d 69 6e 69 6d l key a la Minim
2360: 61 4c 54 0a 20 20 20 20 36 34 66 69 65 6c 64 3a aLT. 64field:
2370: 20 65 6b 65 79 2d 74 6f 20 5c 20 65 70 68 65 6d ekey-to \ ephem
2380: 65 72 61 6c 20 6b 65 79 20 74 69 6d 65 6f 75 74 eral key timeout
2390: 0a 20 20 20 20 7d 73 63 6f 70 65 0a 65 6e 64 2d . }scope.end-
23a0: 63 6c 61 73 73 20 61 64 64 72 65 73 73 2d 63 6c class address-cl
23b0: 61 73 73 0a 0a 5c 20 63 6f 6f 6b 69 65 73 0a 0a ass..\ cookies..
23c0: 6f 62 6a 65 63 74 20 63 6c 61 73 73 0a 20 20 20 object class.
23d0: 20 36 34 66 69 65 6c 64 3a 20 63 63 2d 74 69 6d 64field: cc-tim
23e0: 65 6f 75 74 0a 20 20 20 20 66 69 65 6c 64 3a 20 eout. field:
23f0: 63 63 2d 63 6f 6e 74 65 78 74 0a 20 20 20 20 4b cc-context. K
2400: 45 59 42 59 54 45 53 20 2b 66 69 65 6c 64 20 63 EYBYTES +field c
2410: 63 2d 73 65 63 72 65 74 0a 65 6e 64 2d 63 6c 61 c-secret.end-cla
2420: 73 73 20 63 6f 6e 2d 63 6f 6f 6b 69 65 0a 0a 63 ss con-cookie..c
2430: 6f 6e 2d 63 6f 6f 6b 69 65 20 3e 6f 73 69 7a 65 on-cookie >osize
2440: 20 40 20 43 6f 6e 73 74 61 6e 74 20 63 6f 6f 6b @ Constant cook
2450: 69 65 2d 73 69 7a 65 23 0a 0a 5c 20 70 65 72 6d ie-size#..\ perm
2460: 69 73 73 69 6f 6e 73 0a 0a 31 0a 62 69 74 20 70 issions..1.bit p
2470: 65 72 6d 25 63 6f 6e 6e 65 63 74 20 20 20 20 5c erm%connect \
2480: 20 6e 6f 74 20 73 65 74 20 66 6f 72 20 62 61 6e not set for ban
2490: 6e 65 64 20 70 65 6f 70 6c 65 0a 62 69 74 20 70 ned people.bit p
24a0: 65 72 6d 25 62 6c 6f 63 6b 65 64 20 20 20 20 5c erm%blocked \
24b0: 20 73 65 74 20 66 6f 72 20 62 61 6e 6e 65 64 20 set for banned
24c0: 70 65 6f 70 6c 65 20 2d 20 6d 61 6b 65 73 20 73 people - makes s
24d0: 75 72 65 20 6f 6e 65 20 62 69 74 20 69 73 20 73 ure one bit is s
24e0: 65 74 0a 62 69 74 20 70 65 72 6d 25 64 68 74 20 et.bit perm%dht
24f0: 20 20 20 20 20 20 20 5c 20 63 61 6e 20 77 72 69 \ can wri
2500: 74 65 20 69 6e 74 6f 20 74 68 65 20 44 48 54 0a te into the DHT.
2510: 62 69 74 20 70 65 72 6d 25 6d 73 67 20 20 20 20 bit perm%msg
2520: 20 20 20 20 5c 20 63 61 6e 20 73 65 6e 64 20 6d \ can send m
2530: 65 73 73 61 67 65 73 0a 62 69 74 20 70 65 72 6d essages.bit perm
2540: 25 66 69 6c 65 72 64 20 20 20 20 20 5c 20 63 61 %filerd \ ca
2550: 6e 20 72 65 61 64 20 66 69 6c 65 73 0a 62 69 74 n read files.bit
2560: 20 70 65 72 6d 25 66 69 6c 65 77 72 20 20 20 20 perm%filewr
2570: 20 5c 20 63 61 6e 20 77 72 69 74 65 20 66 69 6c \ can write fil
2580: 65 73 0a 62 69 74 20 70 65 72 6d 25 66 69 6c 65 es.bit perm%file
2590: 6e 61 6d 65 20 20 20 5c 20 63 61 6e 20 61 63 63 name \ can acc
25a0: 65 73 73 20 6e 61 6d 65 64 20 66 69 6c 65 73 0a ess named files.
25b0: 62 69 74 20 70 65 72 6d 25 66 69 6c 65 68 61 73 bit perm%filehas
25c0: 68 20 20 20 5c 20 63 61 6e 20 61 63 63 65 73 73 h \ can access
25d0: 20 66 69 6c 65 73 20 62 79 20 68 61 73 68 0a 62 files by hash.b
25e0: 69 74 20 70 65 72 6d 25 73 6f 63 6b 65 74 20 20 it perm%socket
25f0: 20 20 20 5c 20 63 61 6e 20 61 63 63 65 73 73 20 \ can access
2600: 73 6f 63 6b 65 74 73 0a 62 69 74 20 70 65 72 6d sockets.bit perm
2610: 25 74 65 72 6d 69 6e 61 6c 20 20 20 5c 20 63 61 %terminal \ ca
2620: 6e 20 61 63 63 65 73 73 20 74 65 72 6d 69 6e 61 n access termina
2630: 6c 0a 62 69 74 20 70 65 72 6d 25 74 65 72 6d 73 l.bit perm%terms
2640: 65 72 76 65 72 20 5c 20 63 61 6e 20 61 63 63 65 erver \ can acce
2650: 73 73 20 74 65 72 6d 73 65 72 76 65 72 0a 62 69 ss termserver.bi
2660: 74 20 70 65 72 6d 25 73 79 6e 63 20 20 20 20 20 t perm%sync
2670: 20 20 5c 20 69 73 20 61 6c 6c 6f 77 65 64 20 74 \ is allowed t
2680: 6f 20 73 79 6e 63 0a 62 69 74 20 70 65 72 6d 25 o sync.bit perm%
2690: 69 6e 64 69 72 65 63 74 20 20 20 5c 20 66 6f 72 indirect \ for
26a0: 63 65 20 69 6e 64 69 72 65 63 74 20 63 6f 6e 6e ce indirect conn
26b0: 65 63 74 69 6f 6e 0a 64 72 6f 70 0a 0a 70 65 72 ection.drop..per
26c0: 6d 25 63 6f 6e 6e 65 63 74 20 70 65 72 6d 25 64 m%connect perm%d
26d0: 68 74 20 70 65 72 6d 25 6d 73 67 20 70 65 72 6d ht perm%msg perm
26e0: 25 66 69 6c 65 72 64 20 70 65 72 6d 25 66 69 6c %filerd perm%fil
26f0: 65 68 61 73 68 20 6f 72 20 6f 72 20 6f 72 20 6f ehash or or or o
2700: 72 20 56 61 6c 75 65 20 70 65 72 6d 25 64 65 66 r Value perm%def
2710: 61 75 6c 74 0a 70 65 72 6d 25 63 6f 6e 6e 65 63 ault.perm%connec
2720: 74 20 70 65 72 6d 25 64 68 74 20 70 65 72 6d 25 t perm%dht perm%
2730: 69 6e 64 69 72 65 63 74 20 6f 72 20 6f 72 20 56 indirect or or V
2740: 61 6c 75 65 20 70 65 72 6d 25 64 68 74 72 6f 6f alue perm%dhtroo
2750: 74 0a 70 65 72 6d 25 62 6c 6f 63 6b 65 64 20 70 t.perm%blocked p
2760: 65 72 6d 25 69 6e 64 69 72 65 63 74 20 6f 72 20 erm%indirect or
2770: 56 61 6c 75 65 20 70 65 72 6d 25 75 6e 6b 6e 6f Value perm%unkno
2780: 77 6e 0a 70 65 72 6d 25 62 6c 6f 63 6b 65 64 20 wn.perm%blocked
2790: 70 65 72 6d 25 69 6e 64 69 72 65 63 74 20 6f 72 perm%indirect or
27a0: 20 69 6e 76 65 72 74 20 56 61 6c 75 65 20 70 65 invert Value pe
27b0: 72 6d 25 6d 79 73 65 6c 66 0a 43 72 65 61 74 65 rm%myself.Create
27c0: 20 70 65 72 6d 24 20 2c 22 20 63 62 64 6d 72 77 perm$ ," cbdmrw
27d0: 6e 68 73 74 76 79 69 22 0a 0a 5c 20 51 52 20 74 nhstvyi"..\ QR t
27e0: 61 67 73 0a 0a 73 63 6f 70 65 3a 20 71 72 0a 30 ags..scope: qr.0
27f0: 0a 65 6e 75 6d 20 6f 77 6e 6b 65 79 23 0a 65 6e .enum ownkey#.en
2800: 75 6d 20 6b 65 79 23 0a 65 6e 75 6d 20 6b 65 79 um key#.enum key
2810: 73 69 67 23 0a 65 6e 75 6d 20 68 61 73 68 23 0a sig#.enum hash#.
2820: 65 6e 75 6d 20 73 79 6e 63 23 20 20 20 20 5c 20 enum sync# \
2830: 73 79 63 68 6e 72 6f 6e 69 7a 69 6e 67 20 69 6e sychnronizing in
2840: 66 6f 3a 20 6b 65 79 2b 73 65 63 72 65 74 0a 65 fo: key+secret.e
2850: 6e 75 6d 20 70 61 79 6d 65 6e 74 23 20 5c 20 70 num payment# \ p
2860: 61 79 6d 65 6e 74 20 69 73 20 76 61 6c 75 65 2b ayment is value+
2870: 63 6f 69 6e 74 79 70 65 2b 77 61 6c 6c 65 74 0a cointype+wallet.
2880: 64 72 6f 70 0a 7d 73 63 6f 70 65 0a 0a 5c 20 74 drop.}scope..\ t
2890: 69 6d 65 73 74 61 73 74 73 20 73 74 72 75 63 74 imestasts struct
28a0: 75 72 65 0a 0a 62 65 67 69 6e 2d 73 74 72 75 63 ure..begin-struc
28b0: 74 75 72 65 20 74 69 6d 65 73 74 61 74 73 0a 73 ture timestats.s
28c0: 66 76 61 6c 75 65 3a 20 74 73 2d 64 65 6c 74 61 fvalue: ts-delta
28d0: 0a 73 66 76 61 6c 75 65 3a 20 74 73 2d 73 6c 61 .sfvalue: ts-sla
28e0: 63 6b 0a 73 66 76 61 6c 75 65 3a 20 74 73 2d 72 ck.sfvalue: ts-r
28f0: 65 71 72 61 74 65 0a 73 66 76 61 6c 75 65 3a 20 eqrate.sfvalue:
2900: 74 73 2d 72 61 74 65 0a 73 66 76 61 6c 75 65 3a ts-rate.sfvalue:
2910: 20 74 73 2d 67 72 6f 77 0a 65 6e 64 2d 73 74 72 ts-grow.end-str
2920: 75 63 74 75 72 65 0a 0a 5c 20 69 6f 20 70 65 72 ucture..\ io per
2930: 2d 74 61 73 6b 20 76 61 72 69 61 62 6c 65 73 0a -task variables.
2940: 0a 75 73 65 72 2d 6f 20 69 6f 2d 6d 65 6d 0a 0a .user-o io-mem..
2950: 6f 62 6a 65 63 74 20 75 63 6c 61 73 73 20 69 6f object uclass io
2960: 2d 6d 65 6d 0a 20 20 20 20 70 6f 6c 6c 66 64 20 -mem. pollfd
2970: 34 20 2a 20 20 20 20 20 20 75 76 61 72 20 70 6f 4 * uvar po
2980: 6c 6c 66 64 73 20 5c 20 75 70 20 74 6f 20 66 6f llfds \ up to fo
2990: 75 72 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 ur file descript
29a0: 6f 72 73 0a 20 20 20 20 73 6f 63 6b 61 64 64 72 ors. sockaddr
29b0: 5f 69 6e 20 20 20 20 20 75 76 61 72 20 73 6f 63 _in uvar soc
29c0: 6b 61 64 64 72 3c 20 5c 20 69 6e 63 6f 6d 69 6e kaddr< \ incomin
29d0: 67 20 73 6f 63 6b 65 74 0a 20 20 20 20 73 6f 63 g socket. soc
29e0: 6b 61 64 64 72 5f 69 6e 20 20 20 20 20 75 76 61 kaddr_in uva
29f0: 72 20 73 6f 63 6b 61 64 64 72 3e 20 5c 20 6f 75 r sockaddr> \ ou
2a00: 74 67 6f 69 6e 67 20 73 6f 63 6b 65 74 0a 20 20 tgoing socket.
2a10: 20 20 73 6f 63 6b 61 64 64 72 5f 69 6e 20 20 20 sockaddr_in
2a20: 20 20 75 76 61 72 20 73 6f 63 6b 61 64 64 72 31 uvar sockaddr1
2a30: 0a 20 20 20 20 5b 49 46 44 45 46 5d 20 6e 6f 2d . [IFDEF] no-
2a40: 68 79 62 72 69 64 0a 09 73 6f 63 6b 61 64 64 72 hybrid..sockaddr
2a50: 5f 69 6e 20 75 76 61 72 20 73 6f 63 6b 61 64 64 _in uvar sockadd
2a60: 72 32 0a 20 20 20 20 5b 54 48 45 4e 5d 0a 20 20 r2. [THEN].
2a70: 20 20 66 69 6c 65 2d 73 74 61 74 20 20 20 20 20 file-stat
2a80: 20 20 75 76 61 72 20 73 74 61 74 62 75 66 0a 20 uvar statbuf.
2a90: 20 20 20 61 6c 69 67 6e 65 64 0a 20 20 20 20 63 aligned. c
2aa0: 65 6c 6c 20 20 20 20 20 20 20 20 20 20 20 20 75 ell u
2ab0: 76 61 72 20 69 6e 64 2d 61 64 64 72 0a 20 20 20 var ind-addr.
2ac0: 20 63 65 6c 6c 20 20 20 20 20 20 20 20 20 20 20 cell
2ad0: 20 75 76 61 72 20 74 61 73 6b 23 0a 20 20 20 20 uvar task#.
2ae0: 24 46 20 2b 20 2d 24 31 30 20 61 6e 64 20 5c 20 $F + -$10 and \
2af0: 61 6c 69 67 6e 20 62 79 20 24 31 30 0a 20 20 20 align by $10.
2b00: 20 6d 61 78 64 61 74 61 20 20 20 20 20 20 20 20 maxdata
2b10: 20 75 76 61 72 20 61 6c 69 67 6e 65 64 24 0a 20 uvar aligned$.
2b20: 20 20 20 24 31 30 20 20 20 20 20 20 20 20 20 20 $10
2b30: 20 20 20 75 76 61 72 20 63 6d 64 74 6d 70 0a 20 uvar cmdtmp.
2b40: 20 20 20 24 31 30 20 20 20 20 20 20 20 20 20 20 $10
2b50: 20 20 20 75 76 61 72 20 72 65 74 75 72 6e 2d 61 uvar return-a
2b60: 64 64 72 0a 20 20 20 20 24 31 30 20 20 20 20 20 ddr. $10
2b70: 20 20 20 20 20 20 20 20 75 76 61 72 20 74 65 6d uvar tem
2b80: 70 2d 61 64 64 72 0a 20 20 20 20 74 69 6d 65 73 p-addr. times
2b90: 74 61 74 73 20 20 20 20 20 20 20 75 76 61 72 20 tats uvar
2ba0: 73 74 61 74 2d 74 75 70 6c 65 0a 20 20 20 20 6d stat-tuple. m
2bb0: 61 78 64 61 74 61 20 32 2f 20 6b 65 79 2d 73 61 axdata 2/ key-sa
2bc0: 6c 74 23 20 2b 20 6b 65 79 2d 63 6b 73 75 6d 23 lt# + key-cksum#
2bd0: 20 2b 20 75 76 61 72 20 69 6e 69 74 30 62 75 66 + uvar init0buf
2be0: 0a 20 20 20 20 61 6c 69 67 6e 65 64 0a 20 20 20 . aligned.
2bf0: 20 63 65 6c 6c 20 20 20 20 20 20 20 20 20 20 20 cell
2c00: 20 75 76 61 72 20 63 6f 64 65 30 2d 62 75 66 5e uvar code0-buf^
2c10: 0a 20 20 20 20 63 65 6c 6c 20 20 20 20 20 20 20 . cell
2c20: 20 20 20 20 20 75 76 61 72 20 63 6f 64 65 2d 62 uvar code-b
2c30: 75 66 5e 0a 20 20 20 20 63 65 6c 6c 20 20 20 20 uf^. cell
2c40: 20 20 20 20 20 20 20 20 75 76 61 72 20 63 6f 64 uvar cod
2c50: 65 2d 62 75 66 24 5e 0a 20 20 20 20 63 65 6c 6c e-buf$^. cell
2c60: 20 20 20 20 20 20 20 20 20 20 20 20 75 76 61 72 uvar
2c70: 20 63 6f 64 65 2d 6b 65 79 5e 0a 20 20 20 20 5c code-key^. \
2c80: 20 76 61 75 6c 74 20 76 61 72 69 61 62 6c 65 73 vault variables
2c90: 0a 20 20 20 20 63 65 6c 6c 20 20 20 20 20 20 20 . cell
2ca0: 20 20 20 20 20 75 76 61 72 20 65 6e 63 2d 66 69 uvar enc-fi
2cb0: 6c 65 6e 61 6d 65 0a 20 20 20 20 63 65 6c 6c 20 lename. cell
2cc0: 20 20 20 20 20 20 20 20 20 20 20 75 76 61 72 20 uvar
2cd0: 65 6e 63 2d 66 69 6c 65 0a 20 20 20 20 63 65 6c enc-file. cel
2ce0: 6c 20 20 20 20 20 20 20 20 20 20 20 20 75 76 61 l uva
2cf0: 72 20 65 6e 63 2d 66 64 0a 20 20 20 20 63 65 6c r enc-fd. cel
2d00: 6c 20 20 20 20 20 20 20 20 20 20 20 20 75 76 61 l uva
2d10: 72 20 65 6e 63 2d 70 61 64 64 69 6e 67 0a 20 20 r enc-padding.
2d20: 20 20 63 65 6c 6c 20 20 20 20 20 20 20 20 20 20 cell
2d30: 20 20 75 76 61 72 20 6b 65 79 2d 6c 69 73 74 0a uvar key-list.
2d40: 20 20 20 20 5c 20 6d 61 70 70 69 6e 67 20 62 75 \ mapping bu
2d50: 66 66 65 72 73 0a 20 20 20 20 31 20 36 34 73 20 ffers. 1 64s
2d60: 20 20 20 20 20 20 20 20 20 20 75 76 61 72 20 6e uvar n
2d70: 65 77 2d 63 6f 64 65 2d 73 0a 20 20 20 20 31 20 ew-code-s. 1
2d80: 36 34 73 20 20 20 20 20 20 20 20 20 20 20 75 76 64s uv
2d90: 61 72 20 6e 65 77 2d 63 6f 64 65 2d 64 0a 20 20 ar new-code-d.
2da0: 20 20 31 20 36 34 73 20 20 20 20 20 20 20 20 20 1 64s
2db0: 20 20 75 76 61 72 20 6e 65 77 2d 64 61 74 61 2d uvar new-data-
2dc0: 73 0a 20 20 20 20 31 20 36 34 73 20 20 20 20 20 s. 1 64s
2dd0: 20 20 20 20 20 20 75 76 61 72 20 6e 65 77 2d 64 uvar new-d
2de0: 61 74 61 2d 64 0a 20 20 20 20 63 65 6c 6c 20 20 ata-d. cell
2df0: 20 20 20 20 20 20 20 20 20 20 75 76 61 72 20 6e uvar n
2e00: 65 77 2d 63 6f 64 65 2d 73 69 7a 65 0a 20 20 20 ew-code-size.
2e10: 20 63 65 6c 6c 20 20 20 20 20 20 20 20 20 20 20 cell
2e20: 20 75 76 61 72 20 6e 65 77 2d 64 61 74 61 2d 73 uvar new-data-s
2e30: 69 7a 65 0a 20 20 20 20 63 65 6c 6c 20 20 20 20 ize. cell
2e40: 20 20 20 20 20 20 20 20 75 76 61 72 20 64 6f 2d uvar do-
2e50: 6b 65 79 70 61 64 0a 20 20 20 20 63 65 6c 6c 20 keypad. cell
2e60: 20 20 20 20 20 20 20 20 20 20 20 75 76 61 72 20 uvar
2e70: 74 6d 70 2d 69 76 73 0a 20 20 20 20 63 65 6c 6c tmp-ivs. cell
2e80: 20 20 20 20 20 20 20 20 20 20 20 20 75 76 61 72 uvar
2e90: 20 74 6d 70 2d 70 75 62 6b 65 79 0a 20 20 20 20 tmp-pubkey.
2ea0: 63 65 6c 6c 20 20 20 20 20 20 20 20 20 20 20 20 cell
2eb0: 75 76 61 72 20 74 6d 70 2d 6d 79 2d 6b 65 79 0a uvar tmp-my-key.
2ec0: 20 20 20 20 63 65 6c 6c 20 20 20 20 20 20 20 20 cell
2ed0: 20 20 20 20 75 76 61 72 20 74 6d 70 2d 70 65 72 uvar tmp-per
2ee0: 6d 0a 20 20 20 20 63 65 6c 6c 20 20 20 20 20 20 m. cell
2ef0: 20 20 20 20 20 20 75 76 61 72 20 24 65 72 72 6f uvar $erro
2f00: 72 2d 69 64 0a 65 6e 64 2d 63 6c 61 73 73 20 69 r-id.end-class i
2f10: 6f 2d 62 75 66 66 65 72 73 0a 0a 5c 20 72 65 70 o-buffers..\ rep
2f20: 6c 79 20 73 74 72 75 63 74 75 72 65 0a 0a 62 65 ly structure..be
2f30: 67 69 6e 2d 73 74 72 75 63 74 75 72 65 20 72 65 gin-structure re
2f40: 70 6c 79 0a 20 20 20 20 66 69 65 6c 64 3a 20 72 ply. field: r
2f50: 65 70 6c 79 2d 6c 65 6e 0a 20 20 20 20 66 69 65 eply-len. fie
2f60: 6c 64 3a 20 72 65 70 6c 79 2d 6f 66 66 73 65 74 ld: reply-offset
2f70: 0a 20 20 20 20 36 34 66 69 65 6c 64 3a 20 72 65 . 64field: re
2f80: 70 6c 79 2d 64 65 73 74 0a 20 20 20 20 36 34 66 ply-dest. 64f
2f90: 69 65 6c 64 3a 20 72 65 70 6c 79 2d 74 69 6d 65 ield: reply-time
2fa0: 0a 20 20 20 20 64 65 66 65 72 3a 20 72 65 70 6c . defer: repl
2fb0: 79 2d 78 74 20 20 5c 20 65 78 65 63 75 74 65 20 y-xt \ execute
2fc0: 77 68 65 6e 20 72 65 63 65 69 76 69 6e 67 20 61 when receiving a
2fd0: 6e 20 6f 6b 0a 20 20 20 20 64 65 66 65 72 3a 20 n ok. defer:
2fe0: 73 65 6e 64 2d 78 74 20 20 20 5c 20 65 78 65 63 send-xt \ exec
2ff0: 75 74 65 64 20 74 6f 20 28 72 65 29 73 65 6e 64 uted to (re)send
3000: 20 61 20 6d 65 73 73 61 67 65 0a 20 20 20 20 76 a message. v
3010: 61 6c 75 65 3a 20 72 65 70 6c 79 2d 74 61 67 20 alue: reply-tag
3020: 5c 20 70 6f 69 6e 74 65 72 20 74 6f 20 72 65 70 \ pointer to rep
3030: 6c 79 20 74 61 67 0a 5c 20 20 20 20 66 69 65 6c ly tag.\ fiel
3040: 64 3a 20 72 65 70 6c 79 2d 74 69 6d 65 6f 75 74 d: reply-timeout
3050: 23 20 5c 20 70 65 72 2d 72 65 70 6c 79 20 74 69 # \ per-reply ti
3060: 6d 65 6f 75 74 20 63 6f 75 6e 74 65 72 0a 5c 20 meout counter.\
3070: 20 20 20 66 69 65 6c 64 3a 20 72 65 70 6c 79 2d field: reply-
3080: 74 69 6d 65 6f 75 74 2d 78 74 20 5c 20 70 65 72 timeout-xt \ per
3090: 2d 72 65 70 6c 79 20 74 69 6d 65 6f 75 74 20 78 -reply timeout x
30a0: 74 0a 65 6e 64 2d 73 74 72 75 63 74 75 72 65 0a t.end-structure.
30b0: 0a 5c 20 61 64 64 72 65 73 73 20 74 6f 20 69 6e .\ address to in
30c0: 64 65 78 20 63 6f 6d 70 75 74 61 74 69 6f 6e 73 dex computations
30d0: 0a 0a 3a 20 61 64 64 72 3e 62 69 74 73 20 28 20 ..: addr>bits (
30e0: 61 64 64 72 20 2d 2d 20 62 69 74 73 20 29 0a 20 addr -- bits ).
30f0: 20 20 20 63 68 75 6e 6b 2d 70 32 20 72 73 68 69 chunk-p2 rshi
3100: 66 74 20 3b 0a 3a 20 61 64 64 72 3e 62 79 74 65 ft ;.: addr>byte
3110: 73 20 28 20 61 64 64 72 20 2d 2d 20 62 79 74 65 s ( addr -- byte
3120: 73 20 29 0a 20 20 20 20 5b 20 63 68 75 6e 6b 2d s ). [ chunk-
3130: 70 32 20 33 20 2b 20 5d 4c 20 72 73 68 69 66 74 p2 3 + ]L rshift
3140: 20 3b 0a 3a 20 62 79 74 65 73 3e 61 64 64 72 20 ;.: bytes>addr
3150: 28 20 62 79 74 65 73 20 61 64 64 72 20 2d 2d 20 ( bytes addr --
3160: 29 0a 20 20 20 20 5b 20 63 68 75 6e 6b 2d 70 32 ). [ chunk-p2
3170: 20 33 20 2b 20 5d 4c 20 6c 73 68 69 66 74 20 3b 3 + ]L lshift ;
3180: 0a 3a 20 62 69 74 73 3e 62 79 74 65 73 20 28 20 .: bits>bytes (
3190: 62 69 74 73 20 2d 2d 20 62 79 74 65 73 20 29 0a bits -- bytes ).
31a0: 20 20 20 20 31 2d 20 32 2f 20 32 2f 20 32 2f 20 1- 2/ 2/ 2/
31b0: 31 2b 20 3b 0a 3a 20 62 79 74 65 73 3e 62 69 74 1+ ;.: bytes>bit
31c0: 73 20 28 20 62 79 74 65 73 20 2d 2d 20 62 69 74 s ( bytes -- bit
31d0: 73 20 29 0a 20 20 20 20 33 20 6c 73 68 69 66 74 s ). 3 lshift
31e0: 20 3b 0a 3a 20 61 64 64 72 3e 74 73 20 28 20 61 ;.: addr>ts ( a
31f0: 64 64 72 20 2d 2d 20 74 73 2d 6f 66 66 73 65 74 ddr -- ts-offset
3200: 20 29 0a 20 20 20 20 61 64 64 72 3e 62 69 74 73 ). addr>bits
3210: 20 36 34 73 20 3b 0a 3a 20 61 64 64 72 3e 36 34 64s ;.: addr>64
3220: 20 28 20 61 64 64 72 20 2d 2d 20 74 73 2d 6f 66 ( addr -- ts-of
3230: 66 73 65 74 20 29 0a 20 20 20 20 5b 20 63 68 75 fset ). [ chu
3240: 6e 6b 2d 70 32 20 33 20 2d 20 5d 4c 20 72 73 68 nk-p2 3 - ]L rsh
3250: 69 66 74 20 2d 38 20 61 6e 64 20 3b 0a 3a 20 61 ift -8 and ;.: a
3260: 64 64 72 3e 72 65 70 6c 69 65 73 20 28 20 61 64 ddr>replies ( ad
3270: 64 72 20 2d 2d 20 72 65 70 6c 69 65 73 20 29 0a dr -- replies ).
3280: 20 20 20 20 61 64 64 72 3e 62 69 74 73 20 72 65 addr>bits re
3290: 70 6c 79 20 2a 20 3b 0a 3a 20 61 64 64 72 3e 6b ply * ;.: addr>k
32a0: 65 79 73 20 28 20 61 64 64 72 20 2d 2d 20 6b 65 eys ( addr -- ke
32b0: 79 73 20 29 0a 20 20 20 20 6d 61 78 2d 73 69 7a ys ). max-siz
32c0: 65 5e 32 20 72 73 68 69 66 74 20 5b 20 6d 69 6e e^2 rshift [ min
32d0: 2d 73 69 7a 65 20 6e 65 67 61 74 65 20 5d 4c 20 -size negate ]L
32e0: 61 6e 64 20 3b 0a 0a 5c 20 6e 65 74 32 6f 20 68 and ;..\ net2o h
32f0: 65 61 64 65 72 20 73 74 72 75 63 74 75 72 65 0a eader structure.
3300: 0a 62 65 67 69 6e 2d 73 74 72 75 63 74 75 72 65 .begin-structure
3310: 20 6e 65 74 32 6f 2d 68 65 61 64 65 72 0a 20 20 net2o-header.
3320: 20 20 31 20 2b 66 69 65 6c 64 20 68 64 72 66 6c 1 +field hdrfl
3330: 61 67 73 0a 20 20 20 20 31 20 2b 66 69 65 6c 64 ags. 1 +field
3340: 20 68 64 72 74 61 67 73 0a 20 20 20 31 36 20 2b hdrtags. 16 +
3350: 66 69 65 6c 64 20 64 65 73 74 69 6e 61 74 69 6f field destinatio
3360: 6e 0a 20 20 20 20 38 20 2b 66 69 65 6c 64 20 6d n. 8 +field m
3370: 61 70 61 64 64 72 0a 65 6e 64 2d 73 74 72 75 63 apaddr.end-struc
3380: 74 75 72 65 0a 0a 5c 20 6b 65 79 20 63 6c 61 73 ture..\ key clas
3390: 73 0a 0a 63 6d 64 2d 63 6c 61 73 73 20 63 6c 61 s..cmd-class cla
33a0: 73 73 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 ss. field: ke
33b0: 2d 73 6b 20 20 20 20 20 20 20 5c 20 73 65 63 72 -sk \ secr
33c0: 65 74 20 6b 65 79 0a 20 20 20 20 66 69 65 6c 64 et key. field
33d0: 3a 20 6b 65 2d 70 6b 20 20 20 20 20 20 20 5c 20 : ke-pk \
33e0: 70 75 62 6c 69 63 20 6b 65 79 0a 20 20 20 20 66 public key. f
33f0: 69 65 6c 64 3a 20 6b 65 2d 72 73 6b 20 20 20 20 ield: ke-rsk
3400: 20 20 5c 20 72 65 76 6f 6b 65 20 73 65 63 72 65 \ revoke secre
3410: 74 20 28 74 65 6d 70 6f 72 61 72 69 6c 79 20 73 t (temporarily s
3420: 74 6f 72 65 64 29 0a 20 20 20 20 66 69 65 6c 64 tored). field
3430: 3a 20 6b 65 2d 77 61 6c 6c 65 74 20 20 20 5c 20 : ke-wallet \
3440: 77 61 6c 6c 65 74 0a 20 20 20 20 66 69 65 6c 64 wallet. field
3450: 3a 20 6b 65 2d 74 79 70 65 20 20 20 20 20 5c 20 : ke-type \
3460: 6b 65 79 20 74 79 70 65 0a 20 20 20 20 66 69 65 key type. fie
3470: 6c 64 3a 20 6b 65 2d 6e 69 63 6b 20 20 20 20 20 ld: ke-nick
3480: 5c 20 6b 65 79 20 6e 69 63 6b 0a 20 20 20 20 66 \ key nick. f
3490: 69 65 6c 64 3a 20 6b 65 2d 6e 69 63 6b 23 20 20 ield: ke-nick#
34a0: 20 20 5c 20 74 6f 20 61 76 6f 69 64 20 63 6f 6c \ to avoid col
34b0: 69 73 73 69 6f 6e 73 2c 20 61 64 64 20 61 20 6e issions, add a n
34c0: 75 6d 62 65 72 20 68 65 72 65 0a 20 20 20 20 66 umber here. f
34d0: 69 65 6c 64 3a 20 6b 65 2d 70 65 74 73 5b 5d 20 ield: ke-pets[]
34e0: 20 20 5c 20 6b 65 79 20 70 65 74 6e 61 6d 65 73 \ key petnames
34f0: 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 70 . field: ke-p
3500: 65 74 73 23 20 20 20 20 5c 20 74 6f 20 61 76 6f ets# \ to avo
3510: 69 64 20 63 6f 6c 69 73 73 69 6f 6e 73 2c 20 61 id colissions, a
3520: 64 64 20 61 20 6e 75 6d 62 65 72 20 68 65 72 65 dd a number here
3530: 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 70 . field: ke-p
3540: 72 6f 66 20 20 20 20 20 5c 20 70 72 6f 66 69 6c rof \ profil
3550: 65 20 6f 62 6a 65 63 74 0a 20 20 20 20 66 69 65 e object. fie
3560: 6c 64 3a 20 6b 65 2d 61 76 61 74 61 72 20 20 20 ld: ke-avatar
3570: 5c 20 61 76 61 74 61 72 20 6f 62 6a 65 63 74 0a \ avatar object.
3580: 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 63 68 field: ke-ch
3590: 61 74 20 20 20 20 20 5c 20 63 68 61 74 20 67 72 at \ chat gr
35a0: 6f 75 70 20 66 6f 72 20 31 3a 31 20 63 68 61 74 oup for 1:1 chat
35b0: 20 77 69 74 68 20 74 68 61 74 20 70 65 72 73 6f with that perso
35c0: 6e 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d n. field: ke-
35d0: 73 65 6c 66 73 69 67 0a 20 20 20 20 66 69 65 6c selfsig. fiel
35e0: 64 3a 20 6b 65 2d 73 69 67 73 5b 5d 0a 20 20 20 d: ke-sigs[].
35f0: 20 66 69 65 6c 64 3a 20 6b 65 2d 69 6d 70 6f 72 field: ke-impor
3600: 74 73 20 20 5c 20 62 69 74 6d 61 73 6b 20 6f 66 ts \ bitmask of
3610: 20 6b 65 79 20 69 6d 70 6f 72 74 0a 20 20 20 20 key import.
3620: 66 69 65 6c 64 3a 20 6b 65 2d 5b 5d 31 0a 20 20 field: ke-[]1.
3630: 20 20 66 69 65 6c 64 3a 20 6b 65 2d 5b 5d 32 0a field: ke-[]2.
3640: 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 5b 5d field: ke-[]
3650: 33 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 3. field: ke-
3660: 5b 5d 34 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b []4. field: k
3670: 65 2d 73 65 63 31 0a 20 20 20 20 66 69 65 6c 64 e-sec1. field
3680: 3a 20 6b 65 2d 73 65 63 32 0a 20 20 20 20 36 34 : ke-sec2. 64
3690: 66 69 65 6c 64 3a 20 6b 65 2d 23 31 0a 20 20 20 field: ke-#1.
36a0: 20 36 34 66 69 65 6c 64 3a 20 6b 65 2d 23 32 0a 64field: ke-#2.
36b0: 20 20 20 20 36 34 66 69 65 6c 64 3a 20 6b 65 2d 64field: ke-
36c0: 23 33 0a 20 20 20 20 36 34 66 69 65 6c 64 3a 20 #3. 64field:
36d0: 6b 65 2d 23 34 0a 5c 20 6f 74 68 65 72 20 66 69 ke-#4.\ other fi
36e0: 65 6c 64 73 0a 20 20 20 20 66 69 65 6c 64 3a 20 elds. field:
36f0: 6b 65 2d 73 74 6f 72 65 6b 65 79 20 5c 20 75 73 ke-storekey \ us
3700: 65 64 20 74 6f 20 65 6e 63 72 79 70 74 20 6f 6e ed to encrypt on
3710: 20 73 74 6f 72 61 67 65 0a 20 20 20 20 66 69 65 storage. fie
3720: 6c 64 3a 20 6b 65 2d 6d 61 73 6b 20 20 20 20 20 ld: ke-mask
3730: 5c 20 70 65 72 6d 69 73 73 69 6f 6e 20 6d 61 73 \ permission mas
3740: 6b 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d k. field: ke-
3750: 67 72 6f 75 70 73 20 20 20 5c 20 70 65 72 6d 69 groups \ permi
3760: 73 73 69 6f 6e 20 67 72 6f 75 70 73 0a 20 20 20 ssion groups.
3770: 20 36 34 66 69 65 6c 64 3a 20 6b 65 2d 6f 66 66 64field: ke-off
3780: 73 65 74 20 5c 20 6f 66 66 73 65 74 20 69 6e 20 set \ offset in
3790: 6b 65 79 20 66 69 6c 65 0a 20 20 20 20 66 69 65 key file. fie
37a0: 6c 64 3a 20 6b 65 2d 70 77 6c 65 76 65 6c 20 20 ld: ke-pwlevel
37b0: 5c 20 70 61 73 73 77 6f 72 64 20 73 74 72 65 6e \ password stren
37c0: 67 74 68 20 6c 65 76 65 6c 0a 20 20 20 20 66 69 gth level. fi
37d0: 65 6c 64 3a 20 6b 65 2d 73 6b 73 69 67 20 20 20 eld: ke-sksig
37e0: 20 5c 20 73 69 67 6e 61 74 75 72 65 20 73 65 63 \ signature sec
37f0: 72 65 74 2c 20 63 6f 6d 70 75 74 65 64 2c 20 6e ret, computed, n
3800: 65 76 65 72 20 73 74 6f 72 65 64 0a 20 20 20 20 ever stored.
3810: 30 20 2b 66 69 65 6c 64 20 6b 65 2d 65 6e 64 0a 0 +field ke-end.
3820: 65 6e 64 2d 63 6c 61 73 73 20 6b 65 79 2d 65 6e end-class key-en
3830: 74 72 79 0a 0a 5c 20 6b 65 79 20 72 65 6c 61 74 try..\ key relat
3840: 65 64 20 20 63 6f 6e 73 74 61 6e 74 73 0a 0a 36 ed constants..6
3850: 34 20 43 6f 6e 73 74 61 6e 74 20 73 74 61 74 65 4 Constant state
3860: 23 0a 73 74 61 74 65 23 20 32 2a 20 43 6f 6e 73 #.state# 2* Cons
3870: 74 61 6e 74 20 73 74 61 74 65 32 23 0a 4b 45 59 tant state2#.KEY
3880: 42 59 54 45 53 20 43 6f 6e 73 74 61 6e 74 20 6b BYTES Constant k
3890: 65 79 73 69 7a 65 20 5c 20 6f 75 72 20 73 68 61 eysize \ our sha
38a0: 72 65 64 20 73 65 63 72 65 64 20 69 73 20 6f 6e red secred is on
38b0: 6c 79 20 33 32 20 62 79 74 65 73 20 6c 6f 6e 67 ly 32 bytes long
38c0: 0a 4b 45 59 42 59 54 45 53 20 32 2a 20 43 6f 6e .KEYBYTES 2* Con
38d0: 73 74 61 6e 74 20 6b 65 79 73 69 7a 65 32 20 5c stant keysize2 \
38e0: 20 70 75 62 6b 65 79 2b 72 65 76 6b 65 79 3d 36 pubkey+revkey=6
38f0: 34 20 62 79 74 65 73 0a 0a 3a 20 6b 65 79 7c 20 4 bytes..: key|
3900: 28 20 73 69 7a 65 20 2d 2d 20 73 69 7a 65 27 20 ( size -- size'
3910: 29 20 6b 65 79 73 69 7a 65 20 75 6d 69 6e 20 3b ) keysize umin ;
3920: 0a 3a 20 6b 65 79 32 7c 20 28 20 73 69 7a 65 20 .: key2| ( size
3930: 2d 2d 20 73 69 7a 65 27 20 29 20 6b 65 79 73 69 -- size' ) keysi
3940: 7a 65 32 20 75 6d 69 6e 20 3b 0a 0a 5c 20 73 70 ze2 umin ;..\ sp
3950: 65 63 69 66 79 20 73 74 72 65 6e 67 74 68 20 28 ecify strength (
3960: 69 6e 20 62 79 74 65 73 29 2c 20 6e 6f 74 20 6c in bytes), not l
3970: 65 6e 67 74 68 21 20 6c 65 6e 67 74 68 20 69 73 ength! length is
3980: 20 32 2a 73 74 72 65 6e 67 74 68 0a 33 32 20 43 2*strength.32 C
3990: 6f 6e 73 74 61 6e 74 20 68 61 73 68 23 31 32 38 onstant hash#128
39a0: 20 5c 20 31 32 38 20 62 69 74 20 68 61 73 68 20 \ 128 bit hash
39b0: 73 74 72 65 6e 67 74 68 20 69 73 20 65 6e 6f 75 strength is enou
39c0: 67 68 21 0a 36 34 20 43 6f 6e 73 74 61 6e 74 20 gh!.64 Constant
39d0: 68 61 73 68 23 32 35 36 20 5c 20 32 35 36 20 62 hash#256 \ 256 b
39e0: 69 74 20 68 61 73 68 20 73 74 72 65 6e 67 74 68 it hash strength
39f0: 20 69 73 20 6d 6f 72 65 20 74 68 61 6e 20 65 6e is more than en
3a00: 6f 75 67 68 21 0a 0a 5c 20 67 72 6f 75 70 20 64 ough!..\ group d
3a10: 65 73 63 72 69 70 74 69 6f 6e 0a 0a 63 6d 64 2d escription..cmd-
3a20: 63 6c 61 73 73 20 63 6c 61 73 73 7b 20 67 72 6f class class{ gro
3a30: 75 70 73 0a 20 20 20 20 24 76 61 6c 75 65 3a 20 ups. $value:
3a40: 69 64 24 20 5c 20 69 73 20 74 68 65 20 70 75 62 id$ \ is the pub
3a50: 6b 65 79 0a 20 20 20 20 66 69 65 6c 64 3a 20 6d key. field: m
3a60: 65 6d 62 65 72 5b 5d 0a 20 20 20 20 66 69 65 6c ember[]. fiel
3a70: 64 3a 20 61 64 6d 69 6e 20 20 20 20 20 5c 20 73 d: admin \ s
3a80: 65 63 72 65 74 20 6b 65 79 2c 20 6f 6e 6c 79 20 ecret key, only
3a90: 6b 6e 6f 77 6e 20 74 6f 20 74 68 65 20 61 64 6d known to the adm
3aa0: 69 6e 73 0a 20 20 20 20 36 34 76 61 6c 75 65 3a ins. 64value:
3ab0: 20 70 65 72 6d 73 23 0a 7d 63 6c 61 73 73 0a 0a perms#.}class..
3ac0: 5c 5c 5c 0a 4c 6f 63 61 6c 20 56 61 72 69 61 62 \\\.Local Variab
3ad0: 6c 65 73 3a 0a 66 6f 72 74 68 2d 6c 6f 63 61 6c les:.forth-local
3ae0: 2d 77 6f 72 64 73 3a 0a 20 20 20 20 28 0a 20 20 -words:. (.
3af0: 20 20 20 28 28 22 6e 65 74 32 6f 3a 22 20 22 2b (("net2o:" "+
3b00: 6e 65 74 32 6f 3a 22 29 20 64 65 66 69 6e 69 74 net2o:") definit
3b10: 69 6f 6e 2d 73 74 61 72 74 65 72 20 28 66 6f 6e ion-starter (fon
3b20: 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 t-lock-keyword-f
3b30: 61 63 65 20 2e 20 31 29 0a 20 20 20 20 20 20 22 ace . 1). "
3b40: 5b 20 5c 74 5c 6e 5d 22 20 74 20 6e 61 6d 65 20 [ \t\n]" t name
3b50: 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 75 6e 63 74 (font-lock-funct
3b60: 69 6f 6e 2d 6e 61 6d 65 2d 66 61 63 65 20 2e 20 ion-name-face .
3b70: 33 29 29 0a 20 20 20 20 20 28 28 22 36 34 76 61 3)). (("64va
3b80: 6c 75 65 3a 22 29 0a 20 20 20 20 20 20 20 6e 6f lue:"). no
3b90: 6e 2d 69 6d 6d 65 64 69 61 74 65 20 28 66 6f 6e n-immediate (fon
3ba0: 74 2d 6c 6f 63 6b 2d 74 79 70 65 2d 66 61 63 65 t-lock-type-face
3bb0: 20 2e 20 32 29 0a 20 20 20 20 20 20 20 22 5b 20 . 2). "[
3bc0: 5c 74 5c 6e 5d 22 20 74 20 6e 61 6d 65 20 28 66 \t\n]" t name (f
3bd0: 6f 6e 74 2d 6c 6f 63 6b 2d 76 61 72 69 61 62 6c ont-lock-variabl
3be0: 65 2d 6e 61 6d 65 2d 66 61 63 65 20 2e 20 33 29 e-name-face . 3)
3bf0: 29 0a 20 20 20 20 20 28 22 5b 61 2d 7a 30 2d 39 ). ("[a-z0-9
3c00: 5d 2b 28 22 20 69 6d 6d 65 64 69 61 74 65 20 28 ]+(" immediate (
3c10: 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e font-lock-commen
3c20: 74 2d 66 61 63 65 20 2e 20 31 29 0a 20 20 20 20 t-face . 1).
3c30: 20 20 22 29 22 20 6e 69 6c 20 63 6f 6d 6d 65 6e ")" nil commen
3c40: 74 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d t (font-lock-com
3c50: 6d 65 6e 74 2d 66 61 63 65 20 2e 20 31 29 29 0a ment-face . 1)).
3c60: 20 20 20 20 20 28 28 22 63 6c 61 73 73 7b 22 29 (("class{")
3c70: 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 74 61 72 definition-star
3c80: 74 65 72 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b ter (font-lock-k
3c90: 65 79 77 6f 72 64 2d 66 61 63 65 20 2e 20 31 29 eyword-face . 1)
3ca0: 0a 20 20 20 20 20 20 22 5b 20 5c 74 5c 6e 5d 22 . "[ \t\n]"
3cb0: 20 74 20 6e 61 6d 65 20 28 66 6f 6e 74 2d 6c 6f t name (font-lo
3cc0: 63 6b 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 ck-function-name
3cd0: 2d 66 61 63 65 20 2e 20 33 29 29 0a 20 20 20 20 -face . 3)).
3ce0: 20 28 28 22 7d 63 6c 61 73 73 22 29 20 64 65 66 (("}class") def
3cf0: 69 6e 69 74 69 6f 6e 2d 65 6e 64 65 72 20 28 66 inition-ender (f
3d00: 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 ont-lock-keyword
3d10: 2d 66 61 63 65 20 2e 20 31 29 29 0a 20 20 20 20 -face . 1)).
3d20: 29 0a 66 6f 72 74 68 2d 6c 6f 63 61 6c 2d 69 6e ).forth-local-in
3d30: 64 65 6e 74 2d 77 6f 72 64 73 3a 0a 20 20 20 20 dent-words:.
3d40: 28 0a 20 20 20 20 20 28 28 22 6e 65 74 32 6f 3a (. (("net2o:
3d50: 22 20 22 2b 6e 65 74 32 6f 3a 22 29 20 28 30 20 " "+net2o:") (0
3d60: 2e 20 32 29 20 28 30 20 2e 20 32 29 20 6e 6f 6e . 2) (0 . 2) non
3d70: 2d 69 6d 6d 65 64 69 61 74 65 29 0a 20 20 20 20 -immediate).
3d80: 20 28 28 22 63 6c 61 73 73 7b 22 29 20 28 30 20 (("class{") (0
3d90: 2e 20 32 29 20 28 30 20 2e 20 32 29 29 0a 20 20 . 2) (0 . 2)).
3da0: 20 20 20 28 28 22 7d 63 6c 61 73 73 22 29 20 28 (("}class") (
3db0: 2d 32 20 2e 20 30 29 20 28 30 20 2e 20 2d 32 29 -2 . 0) (0 . -2)
3dc0: 29 0a 20 20 20 20 29 0a 45 6e 64 3a 0a 5b 54 48 ). ).End:.[TH
3dd0: 45 4e 5d 0a EN].