0000: 5c 20 6e 65 74 32 6f 20 63 6f 6e 6e 65 63 74 65 \ net2o connecte
0010: 64 20 63 6f 6d 6d 61 6e 64 73 0a 0a 5c 20 43 6f d commands..\ Co
0020: 70 79 72 69 67 68 74 20 28 43 29 20 32 30 31 31 pyright (C) 2011
0030: 2d 32 30 31 34 20 20 20 42 65 72 6e 64 20 50 61 -2014 Bernd Pa
0040: 79 73 61 6e 0a 0a 5c 20 54 68 69 73 20 70 72 6f ysan..\ This pro
0050: 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 gram is free sof
0060: 74 77 61 72 65 3a 20 79 6f 75 20 63 61 6e 20 72 tware: you can r
0070: 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 edistribute it a
0080: 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 5c 20 69 nd/or modify.\ i
0090: 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d t under the term
00a0: 73 20 6f 66 20 74 68 65 20 47 4e 55 20 41 66 66 s of the GNU Aff
00b0: 65 72 6f 20 47 65 6e 65 72 61 6c 20 50 75 62 6c ero General Publ
00c0: 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 ic License as pu
00d0: 62 6c 69 73 68 65 64 20 62 79 0a 5c 20 74 68 65 blished by.\ the
00e0: 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 Free Software F
00f0: 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 oundation, eithe
0100: 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 r version 3 of t
0110: 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 5c he License, or.\
0120: 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e (at your option
0130: 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 ) any later vers
0140: 69 6f 6e 2e 0a 0a 5c 20 54 68 69 73 20 70 72 6f ion...\ This pro
0150: 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 gram is distribu
0160: 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 ted in the hope
0170: 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 that it will be
0180: 75 73 65 66 75 6c 2c 0a 5c 20 62 75 74 20 57 49 useful,.\ but WI
0190: 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e THOUT ANY WARRAN
01a0: 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e TY; without even
01b0: 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 the implied war
01c0: 72 61 6e 74 79 20 6f 66 0a 5c 20 4d 45 52 43 48 ranty of.\ MERCH
01d0: 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 ANTABILITY or FI
01e0: 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 TNESS FOR A PART
01f0: 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 ICULAR PURPOSE.
0200: 20 53 65 65 20 74 68 65 0a 5c 20 47 4e 55 20 41 See the.\ GNU A
0210: 66 66 65 72 6f 20 47 65 6e 65 72 61 6c 20 50 75 ffero General Pu
0220: 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 blic License for
0230: 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a more details...
0240: 5c 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 \ You should hav
0250: 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 e received a cop
0260: 79 20 6f 66 20 74 68 65 20 47 4e 55 20 41 66 66 y of the GNU Aff
0270: 65 72 6f 20 47 65 6e 65 72 61 6c 20 50 75 62 6c ero General Publ
0280: 69 63 20 4c 69 63 65 6e 73 65 0a 5c 20 61 6c 6f ic License.\ alo
0290: 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f ng with this pro
02a0: 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 gram. If not, s
02b0: 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 67 ee <http://www.g
02c0: 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f nu.org/licenses/
02d0: 3e 2e 0a 0a 5c 20 65 76 65 72 79 74 68 69 6e 67 >...\ everything
02e0: 20 74 68 61 74 20 66 6f 6c 6c 6f 77 73 20 68 65 that follows he
02f0: 72 65 20 63 61 6e 20 61 73 73 75 6d 65 20 74 6f re can assume to
0300: 20 68 61 76 65 20 61 20 63 6f 6e 6e 65 63 74 69 have a connecti
0310: 6f 6e 20 63 6f 6e 74 65 78 74 0a 0a 73 63 6f 70 on context..scop
0320: 65 7b 20 6e 65 74 32 6f 2d 62 61 73 65 0a 0a 63 e{ net2o-base..c
0330: 6f 6e 6e 65 63 74 2d 74 61 62 6c 65 20 24 40 20 onnect-table $@
0340: 69 6e 68 65 72 69 74 2d 74 61 62 6c 65 20 63 6f inherit-table co
0350: 6e 74 65 78 74 2d 74 61 62 6c 65 0a 0a 5c 20 67 ntext-table..\ g
0360: 65 6e 65 72 69 63 20 66 75 6e 63 74 69 6f 6e 73 eneric functions
0370: 0a 5c 67 20 0a 5c 67 20 23 23 23 20 63 6f 6e 6e .\g .\g ### conn
0380: 65 63 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 20 ection commands
0390: 23 23 23 0a 5c 67 20 0a 2b 6e 65 74 32 6f 3a 20 ###.\g .+net2o:
03a0: 64 69 73 63 6f 6e 6e 65 63 74 20 28 20 2d 2d 20 disconnect ( --
03b0: 29 20 5c 67 20 63 6c 6f 73 65 20 63 6f 6e 6e 65 ) \g close conne
03c0: 63 74 69 6f 6e 0a 20 20 20 20 6f 20 49 46 20 20 ction. o IF
03d0: 6f 20 65 6c 69 74 2c 20 3a 3e 64 69 73 70 6f 73 o elit, :>dispos
03e0: 65 2d 63 6f 6e 74 65 78 74 20 20 54 48 45 4e 20 e-context THEN
03f0: 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 74 2d 69 70 ;.+net2o: set-ip
0400: 20 28 20 24 3a 73 74 72 69 6e 67 20 2d 2d 20 29 ( $:string -- )
0410: 20 5c 67 20 73 65 74 20 61 64 64 72 65 73 73 20 \g set address
0420: 69 6e 66 6f 72 6d 61 74 69 6f 6e 0a 20 20 20 20 information.
0430: 24 3e 20 73 65 74 69 70 2d 78 74 20 3b 0a 2b 6e $> setip-xt ;.+n
0440: 65 74 32 6f 3a 20 67 65 74 2d 69 70 20 28 20 2d et2o: get-ip ( -
0450: 2d 20 29 20 5c 67 20 72 65 71 75 65 73 74 20 61 - ) \g request a
0460: 64 64 72 65 73 73 20 69 6e 66 6f 72 6d 61 74 69 ddress informati
0470: 6f 6e 0a 20 20 20 20 3e 73 6f 63 6b 61 64 64 72 on. >sockaddr
0480: 20 24 2c 20 73 65 74 2d 69 70 20 5b 3a 20 24 2c $, set-ip [: $,
0490: 20 73 65 74 2d 69 70 20 3b 5d 20 6e 32 6f 61 64 set-ip ;] n2oad
04a0: 64 72 73 20 3b 0a 0a 2b 6e 65 74 32 6f 3a 20 73 drs ;..+net2o: s
04b0: 65 74 2d 62 6c 6f 63 6b 73 69 7a 65 20 28 20 6e et-blocksize ( n
04c0: 20 2d 2d 20 29 20 5c 67 20 73 65 74 20 62 6c 6f -- ) \g set blo
04d0: 63 6b 73 69 7a 65 20 74 6f 20 32 5e 6e 0a 20 20 cksize to 2^n.
04e0: 20 20 36 34 3e 6e 20 31 20 73 77 61 70 20 6d 61 64>n 1 swap ma
04f0: 78 2d 62 6c 6f 63 6b 23 20 75 6d 69 6e 20 6c 73 x-block# umin ls
0500: 68 69 66 74 20 6e 65 74 32 6f 3a 62 6c 6f 63 6b hift net2o:block
0510: 73 69 7a 65 73 21 20 3b 0a 2b 6e 65 74 32 6f 3a sizes! ;.+net2o:
0520: 20 73 65 74 2d 62 6c 6f 63 6b 61 6c 69 67 6e 20 set-blockalign
0530: 28 20 6e 20 2d 2d 20 29 20 5c 67 20 73 65 74 20 ( n -- ) \g set
0540: 62 6c 6f 63 6b 20 61 6c 69 67 6e 6d 65 6e 74 20 block alignment
0550: 74 6f 20 32 5e 6e 0a 20 20 20 20 36 34 3e 6e 20 to 2^n. 64>n
0560: 31 20 73 77 61 70 20 6d 61 78 2d 62 6c 6f 63 6b 1 swap max-block
0570: 23 20 75 6d 69 6e 20 6c 73 68 69 66 74 20 62 6c # umin lshift bl
0580: 6f 63 6b 61 6c 69 67 6e 20 21 20 3b 0a 2b 6e 65 ockalign ! ;.+ne
0590: 74 32 6f 3a 20 63 6c 6f 73 65 2d 61 6c 6c 20 28 t2o: close-all (
05a0: 20 2d 2d 20 29 20 5c 67 20 63 6c 6f 73 65 20 61 -- ) \g close a
05b0: 6c 6c 20 66 69 6c 65 73 0a 20 20 20 20 6e 65 74 ll files. net
05c0: 32 6f 3a 63 6c 6f 73 65 2d 61 6c 6c 20 3b 0a 5c 2o:close-all ;.\
05d0: 20 62 65 74 74 65 72 20 73 6c 75 72 70 69 6e 67 better slurping
05e0: 0a 0a 2b 6e 65 74 32 6f 3a 20 73 65 74 2d 74 6f ..+net2o: set-to
05f0: 70 20 28 20 75 74 6f 70 20 66 6c 61 67 20 2d 2d p ( utop flag --
0600: 20 29 20 5c 67 20 73 65 74 20 74 6f 70 2c 20 66 ) \g set top, f
0610: 6c 61 67 20 69 73 20 74 72 75 65 20 77 68 65 6e lag is true when
0620: 20 61 6c 6c 20 64 61 74 61 20 69 73 20 73 65 6e all data is sen
0630: 74 0a 20 20 20 20 3e 72 20 36 34 3e 6e 20 72 3e t. >r 64>n r>
0640: 20 64 61 74 61 2d 72 6d 61 70 20 77 69 74 68 20 data-rmap with
0650: 6d 61 70 63 0a 09 6f 76 65 72 20 64 65 73 74 2d mapc..over dest-
0660: 74 6f 70 20 3c 3e 20 61 6e 64 20 66 61 6c 73 65 top <> and false
0670: 20 64 65 73 74 2d 65 6e 64 20 3f 21 40 20 64 72 dest-end ?!@ dr
0680: 6f 70 20 5c 20 61 74 6f 6d 69 63 2c 20 72 65 70 op \ atomic, rep
0690: 6c 61 63 65 73 20 6f 72 21 0a 09 64 65 73 74 2d laces or!..dest-
06a0: 74 6f 70 21 0a 20 20 20 20 65 6e 64 77 69 74 68 top!. endwith
06b0: 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 6c 75 72 70 ;.+net2o: slurp
06c0: 20 28 20 2d 2d 20 29 20 5c 67 20 73 6c 75 72 70 ( -- ) \g slurp
06d0: 20 69 6e 20 74 72 61 63 6b 65 64 20 66 69 6c 65 in tracked file
06e0: 73 0a 20 20 20 20 5c 20 21 21 46 49 58 4d 45 21 s. \ !!FIXME!
06f0: 21 20 74 68 69 73 20 73 68 6f 75 6c 64 20 70 72 ! this should pr
0700: 6f 62 61 62 6c 79 20 62 65 20 61 73 79 6e 63 68 obably be asynch
0710: 72 6f 6e 6f 75 73 0a 20 20 20 20 6e 65 74 32 6f ronous. net2o
0720: 3a 73 6c 75 72 70 20 73 77 61 70 20 75 6c 69 74 :slurp swap ulit
0730: 2c 20 66 6c 61 67 2c 20 73 65 74 2d 74 6f 70 0a , flag, set-top.
0740: 20 20 20 20 5b 27 5d 20 64 6f 2d 74 72 61 63 6b ['] do-track
0750: 2d 73 65 65 6b 20 6e 65 74 32 6f 3a 74 72 61 63 -seek net2o:trac
0760: 6b 2d 61 6c 6c 2d 73 65 65 6b 73 20 6e 65 74 32 k-all-seeks net2
0770: 6f 3a 73 65 6e 64 2d 63 68 75 6e 6b 73 20 3b 0a o:send-chunks ;.
0780: 2b 6e 65 74 32 6f 3a 20 61 63 6b 2d 72 65 73 65 +net2o: ack-rese
0790: 74 20 28 20 2d 2d 20 29 20 5c 67 20 72 65 73 65 t ( -- ) \g rese
07a0: 74 20 61 63 6b 20 73 74 61 74 65 0a 20 20 20 20 t ack state.
07b0: 30 20 61 63 6b 2d 73 74 61 74 65 20 63 21 20 3b 0 ack-state c! ;
07c0: 0a 0a 5c 20 6f 62 6a 65 63 74 20 68 61 6e 64 6c ..\ object handl
07d0: 65 73 0a 5c 67 20 0a 5c 67 20 23 23 23 20 66 69 es.\g .\g ### fi
07e0: 6c 65 20 63 6f 6d 6d 61 6e 64 73 20 23 23 23 0a le commands ###.
07f0: 5c 67 20 0a 0a 24 33 30 20 6e 65 74 32 6f 3a 20 \g ..$30 net2o:
0800: 66 69 6c 65 2d 69 64 20 28 20 75 69 64 20 2d 2d file-id ( uid --
0810: 20 6f 3a 66 69 6c 65 20 29 20 5c 67 20 63 68 6f o:file ) \g cho
0820: 6f 73 65 20 61 20 66 69 6c 65 20 6f 62 6a 65 63 ose a file objec
0830: 74 0a 20 20 20 20 36 34 3e 6e 20 73 74 61 74 65 t. 64>n state
0840: 2d 61 64 64 72 20 6e 3a 3e 6f 20 3b 0a 66 73 2d -addr n:>o ;.fs-
0850: 74 61 62 6c 65 20 3e 74 61 62 6c 65 0a 0a 72 65 table >table..re
0860: 70 6c 79 2d 74 61 62 6c 65 20 24 40 20 69 6e 68 ply-table $@ inh
0870: 65 72 69 74 2d 74 61 62 6c 65 20 66 73 2d 74 61 erit-table fs-ta
0880: 62 6c 65 0a 0a 3a 20 66 69 6c 65 2d 73 74 61 72 ble..: file-star
0890: 74 2d 72 65 71 20 66 73 2d 69 64 20 40 20 75 6c t-req fs-id @ ul
08a0: 69 74 2c 20 66 69 6c 65 2d 69 64 20 3b 0a 27 20 it, file-id ;.'
08b0: 66 69 6c 65 2d 73 74 61 72 74 2d 72 65 71 0a 66 file-start-req.f
08c0: 69 6c 65 2d 63 6c 61 73 73 65 73 20 66 69 6c 65 ile-classes file
08d0: 2d 63 6c 61 73 73 65 73 23 20 63 65 6c 6c 73 20 -classes# cells
08e0: 62 6f 75 6e 64 73 0a 5b 44 4f 5d 20 64 75 70 20 bounds.[DO] dup
08f0: 5b 49 5d 20 40 20 74 6f 20 73 74 61 72 74 2d 72 [I] @ to start-r
0900: 65 71 20 63 65 6c 6c 20 5b 2b 4c 4f 4f 50 5d 0a eq cell [+LOOP].
0910: 64 72 6f 70 0a 0a 24 32 30 20 6e 65 74 32 6f 3a drop..$20 net2o:
0920: 20 6f 70 65 6e 2d 66 69 6c 65 20 28 20 24 3a 73 open-file ( $:s
0930: 74 72 69 6e 67 20 6d 6f 64 65 20 2d 2d 20 29 20 tring mode -- )
0940: 5c 67 20 6f 70 65 6e 20 66 69 6c 65 20 77 69 74 \g open file wit
0950: 68 20 6d 6f 64 65 0a 20 20 20 20 70 61 72 65 6e h mode. paren
0960: 74 20 2e 70 65 72 6d 2d 6d 61 73 6b 20 40 20 3e t .perm-mask @ >
0970: 72 20 72 40 20 66 73 2d 70 65 72 6d 3f 0a 20 20 r r@ fs-perm?.
0980: 20 20 36 34 3e 6e 20 2d 32 20 61 6e 64 20 34 20 64>n -2 and 4
0990: 75 6d 69 6e 20 64 75 70 20 72 3e 20 3f 72 77 2d umin dup r> ?rw-
09a0: 70 65 72 6d 20 20 3e 72 20 24 3e 20 72 3e 20 66 perm >r $> r> f
09b0: 73 2d 6f 70 65 6e 20 3b 0a 2b 6e 65 74 32 6f 3a s-open ;.+net2o:
09c0: 20 66 69 6c 65 2d 74 79 70 65 20 28 20 6e 20 2d file-type ( n -
09d0: 2d 20 29 20 5c 67 20 63 68 6f 6f 73 65 20 66 69 - ) \g choose fi
09e0: 6c 65 20 74 79 70 65 0a 20 20 20 20 36 34 3e 6e le type. 64>n
09f0: 20 66 73 2d 63 6c 61 73 73 21 20 3b 0a 2b 6e 65 fs-class! ;.+ne
0a00: 74 32 6f 3a 20 63 6c 6f 73 65 2d 66 69 6c 65 20 t2o: close-file
0a10: 28 20 2d 2d 20 29 20 5c 67 20 63 6c 6f 73 65 20 ( -- ) \g close
0a20: 66 69 6c 65 0a 20 20 20 20 66 73 2d 63 6c 6f 73 file. fs-clos
0a30: 65 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 74 2d e ;.+net2o: set-
0a40: 73 69 7a 65 20 28 20 73 69 7a 65 20 2d 2d 20 29 size ( size -- )
0a50: 20 5c 67 20 73 65 74 20 73 69 7a 65 20 61 74 74 \g set size att
0a60: 72 69 62 75 74 65 20 6f 66 20 63 75 72 72 65 6e ribute of curren
0a70: 74 20 66 69 6c 65 0a 20 20 20 20 74 72 61 63 6b t file. track
0a80: 28 20 2e 22 20 66 69 6c 65 20 3c 22 20 66 73 2d ( ." file <" fs-
0a90: 69 64 20 40 20 30 20 2e 72 20 2e 22 20 3e 20 73 id @ 0 .r ." > s
0aa0: 69 7a 65 3a 20 22 20 36 34 64 75 70 20 75 36 34 ize: " 64dup u64
0ab0: 2e 20 66 6f 72 74 68 3a 63 72 20 29 20 73 69 7a . forth:cr ) siz
0ac0: 65 21 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 74 e! ;.+net2o: set
0ad0: 2d 73 65 65 6b 20 28 20 75 73 65 65 6b 20 2d 2d -seek ( useek --
0ae0: 20 29 20 5c 67 20 73 65 74 20 73 65 65 6b 20 61 ) \g set seek a
0af0: 74 74 72 69 62 75 74 65 20 6f 66 20 63 75 72 72 ttribute of curr
0b00: 65 6e 74 20 66 69 6c 65 0a 20 20 20 20 74 72 61 ent file. tra
0b10: 63 6b 28 20 2e 22 20 66 69 6c 65 20 3c 22 20 66 ck( ." file <" f
0b20: 73 2d 69 64 20 40 20 30 20 2e 72 20 2e 22 20 3e s-id @ 0 .r ." >
0b30: 20 73 65 65 6b 3a 20 22 20 36 34 64 75 70 20 75 seek: " 64dup u
0b40: 36 34 2e 20 66 6f 72 74 68 3a 63 72 20 29 20 73 64. forth:cr ) s
0b50: 65 65 6b 74 6f 21 20 3b 0a 2b 6e 65 74 32 6f 3a eekto! ;.+net2o:
0b60: 20 73 65 74 2d 6c 69 6d 69 74 20 28 20 75 6c 69 set-limit ( uli
0b70: 6d 69 74 20 2d 2d 20 29 20 5c 67 20 73 65 74 20 mit -- ) \g set
0b80: 6c 69 6d 69 74 20 61 74 74 72 69 62 75 74 65 20 limit attribute
0b90: 6f 66 20 63 75 72 72 65 6e 74 20 66 69 6c 65 0a of current file.
0ba0: 20 20 20 20 74 72 61 63 6b 28 20 2e 22 20 66 69 track( ." fi
0bb0: 6c 65 20 3c 22 20 66 73 2d 69 64 20 40 20 30 20 le <" fs-id @ 0
0bc0: 2e 72 20 2e 22 20 3e 20 73 65 65 6b 20 74 6f 3a .r ." > seek to:
0bd0: 20 22 20 36 34 64 75 70 20 75 36 34 2e 20 66 6f " 64dup u64. fo
0be0: 72 74 68 3a 63 72 20 29 20 6c 69 6d 69 74 2d 6d rth:cr ) limit-m
0bf0: 69 6e 21 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 in! ;.+net2o: se
0c00: 74 2d 73 74 61 74 20 28 20 75 6d 74 69 6d 65 20 t-stat ( umtime
0c10: 75 6d 6f 64 20 2d 2d 20 29 20 5c 67 20 73 65 74 umod -- ) \g set
0c20: 20 74 69 6d 65 20 61 6e 64 20 6d 6f 64 65 20 6f time and mode o
0c30: 66 20 63 75 72 72 65 6e 74 20 66 69 6c 65 0a 20 f current file.
0c40: 20 20 20 36 34 3e 6e 20 66 73 2d 73 65 74 2d 73 64>n fs-set-s
0c50: 74 61 74 20 3b 0a 2b 6e 65 74 32 6f 3a 20 67 65 tat ;.+net2o: ge
0c60: 74 2d 73 69 7a 65 20 28 20 2d 2d 20 29 20 5c 67 t-size ( -- ) \g
0c70: 20 72 65 71 75 65 73 74 20 66 69 6c 65 20 73 69 request file si
0c80: 7a 65 0a 20 20 20 20 66 73 2d 73 69 7a 65 20 6c ze. fs-size l
0c90: 69 74 2c 20 73 65 74 2d 73 69 7a 65 20 3b 0a 2b it, set-size ;.+
0ca0: 6e 65 74 32 6f 3a 20 67 65 74 2d 73 74 61 74 20 net2o: get-stat
0cb0: 28 20 2d 2d 20 29 20 5c 67 20 72 65 71 75 65 73 ( -- ) \g reques
0cc0: 74 20 73 74 61 74 20 6f 66 20 63 75 72 72 65 6e t stat of curren
0cd0: 74 20 66 69 6c 65 0a 20 20 20 20 66 73 2d 67 65 t file. fs-ge
0ce0: 74 2d 73 74 61 74 20 3e 72 20 6c 69 74 2c 20 72 t-stat >r lit, r
0cf0: 3e 20 75 6c 69 74 2c 20 73 65 74 2d 73 74 61 74 > ulit, set-stat
0d00: 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 74 2d 66 ;.+net2o: set-f
0d10: 6f 72 6d 20 28 20 77 20 68 20 2d 2d 20 29 20 5c orm ( w h -- ) \
0d20: 67 20 69 66 20 66 69 6c 65 20 69 73 20 61 20 74 g if file is a t
0d30: 65 72 6d 69 6e 61 6c 2c 20 73 65 74 20 73 69 7a erminal, set siz
0d40: 65 0a 20 20 20 20 74 65 72 6d 2d 68 20 21 20 74 e. term-h ! t
0d50: 65 72 6d 2d 77 20 21 20 3b 0a 2b 6e 65 74 32 6f erm-w ! ;.+net2o
0d60: 3a 20 67 65 74 2d 66 6f 72 6d 20 28 20 2d 2d 20 : get-form ( --
0d70: 29 20 5c 67 20 69 66 20 66 69 6c 65 20 69 73 20 ) \g if file is
0d80: 61 20 74 65 72 6d 69 6e 61 6c 2c 20 72 65 71 75 a terminal, requ
0d90: 65 73 74 20 73 69 7a 65 0a 20 20 20 20 74 65 72 est size. ter
0da0: 6d 2d 77 20 40 20 75 6c 69 74 2c 20 74 65 72 6d m-w @ ulit, term
0db0: 2d 68 20 40 20 75 6c 69 74 2c 20 73 65 74 2d 66 -h @ ulit, set-f
0dc0: 6f 72 6d 20 3b 0a 2b 6e 65 74 32 6f 3a 20 70 6f orm ;.+net2o: po
0dd0: 6c 6c 2d 72 65 71 75 65 73 74 20 28 20 75 6c 69 ll-request ( uli
0de0: 6d 69 74 20 2d 2d 20 29 20 5c 67 20 70 6f 6c 6c mit -- ) \g poll
0df0: 20 61 20 66 69 6c 65 20 74 6f 20 63 68 65 63 6b a file to check
0e00: 20 66 6f 72 20 73 69 7a 65 20 63 68 61 6e 67 65 for size change
0e10: 73 0a 20 20 20 20 70 6f 6c 6c 21 20 6c 69 74 2c s. poll! lit,
0e20: 20 73 65 74 2d 73 69 7a 65 20 3b 0a 0a 67 65 6e set-size ;..gen
0e30: 2d 74 61 62 6c 65 20 24 66 72 65 65 7a 65 0a 27 -table $freeze.'
0e40: 20 63 6f 6e 74 65 78 74 2d 74 61 62 6c 65 20 69 context-table i
0e50: 73 20 67 65 6e 2d 74 61 62 6c 65 0a 0a 3a 6e 6f s gen-table..:no
0e60: 6e 61 6d 65 20 28 20 75 69 64 20 75 73 65 65 6b name ( uid useek
0e70: 20 2d 2d 20 29 20 36 34 3e 72 20 75 6c 69 74 2c -- ) 64>r ulit,
0e80: 20 66 69 6c 65 2d 69 64 0a 20 20 20 20 36 34 72 file-id. 64r
0e90: 3e 20 6c 69 74 2c 20 73 65 74 2d 73 65 65 6b 20 > lit, set-seek
0ea0: 65 6e 64 2d 77 69 74 68 20 3b 20 69 73 20 64 6f end-with ; is do
0eb0: 2d 74 72 61 63 6b 2d 73 65 65 6b 0a 0a 5c 20 66 -track-seek..\ f
0ec0: 6c 6f 77 20 63 6f 6e 74 72 6f 6c 20 66 75 6e 63 low control func
0ed0: 74 69 6f 6e 73 0a 5c 67 20 0a 5c 67 20 23 23 23 tions.\g .\g ###
0ee0: 20 61 63 6b 20 63 6f 6d 6d 61 6e 64 73 20 23 23 ack commands ##
0ef0: 23 0a 5c 67 20 0a 0a 24 33 31 20 6e 65 74 32 6f #.\g ..$31 net2o
0f00: 3a 20 61 63 6b 20 28 20 2d 2d 20 6f 3a 61 63 6b : ack ( -- o:ack
0f10: 6f 20 29 20 5c 67 20 61 63 6b 20 6f 62 6a 65 63 o ) \g ack objec
0f20: 74 0a 20 20 20 20 61 63 6b 40 20 6e 3a 3e 6f 20 t. ack@ n:>o
0f30: 3b 0a 61 63 6b 2d 74 61 62 6c 65 20 3e 74 61 62 ;.ack-table >tab
0f40: 6c 65 0a 72 65 70 6c 79 2d 74 61 62 6c 65 20 24 le.reply-table $
0f50: 40 20 69 6e 68 65 72 69 74 2d 74 61 62 6c 65 20 @ inherit-table
0f60: 61 63 6b 2d 74 61 62 6c 65 0a 0a 3a 6e 6f 6e 61 ack-table..:nona
0f70: 6d 65 20 61 63 6b 20 3b 20 61 63 6b 2d 63 6c 61 me ack ; ack-cla
0f80: 73 73 20 74 6f 20 73 74 61 72 74 2d 72 65 71 0a ss to start-req.
0f90: 24 32 30 20 6e 65 74 32 6f 3a 20 61 63 6b 2d 61 $20 net2o: ack-a
0fa0: 64 64 72 74 69 6d 65 20 28 20 75 74 69 6d 65 20 ddrtime ( utime
0fb0: 61 64 64 72 20 2d 2d 20 29 20 5c 67 20 70 61 63 addr -- ) \g pac
0fc0: 6b 65 74 20 61 74 20 61 64 64 72 20 72 65 63 65 ket at addr rece
0fd0: 69 76 65 64 20 61 74 20 74 69 6d 65 0a 20 20 20 ived at time.
0fe0: 20 6e 65 74 32 6f 3a 61 63 6b 2d 61 64 64 72 74 net2o:ack-addrt
0ff0: 69 6d 65 20 3b 0a 2b 6e 65 74 32 6f 3a 20 61 63 ime ;.+net2o: ac
1000: 6b 2d 72 65 73 65 6e 64 20 28 20 66 6c 61 67 20 k-resend ( flag
1010: 2d 2d 20 29 20 5c 67 20 73 65 74 20 72 65 73 65 -- ) \g set rese
1020: 6e 64 20 74 6f 67 67 6c 65 20 66 6c 61 67 0a 20 nd toggle flag.
1030: 20 20 20 36 34 3e 6e 20 20 70 61 72 65 6e 74 20 64>n parent
1040: 2e 6e 65 74 32 6f 3a 61 63 6b 2d 72 65 73 65 6e .net2o:ack-resen
1050: 64 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 74 2d d ;.+net2o: set-
1060: 72 61 74 65 20 28 20 75 72 61 74 65 20 75 64 65 rate ( urate ude
1070: 6c 74 61 2d 74 20 2d 2d 20 29 20 5c 67 20 73 65 lta-t -- ) \g se
1080: 74 20 72 61 74 65 20 0a 20 20 20 20 70 61 72 65 t rate . pare
1090: 6e 74 20 3e 6f 20 63 6f 6f 6b 69 65 3f 20 49 46 nt >o cookie? IF
10a0: 20 20 61 63 6b 40 20 2e 6e 65 74 32 6f 3a 73 65 ack@ .net2o:se
10b0: 74 2d 72 61 74 65 0a 20 20 20 20 45 4c 53 45 20 t-rate. ELSE
10c0: 20 36 34 64 72 6f 70 20 36 34 64 72 6f 70 20 61 64drop 64drop a
10d0: 63 6b 2d 6f 72 64 65 72 3f 0a 09 49 46 20 20 61 ck-order?..IF a
10e0: 63 6b 40 20 2e 6e 73 2f 62 75 72 73 74 20 64 75 ck@ .ns/burst du
10f0: 70 20 3e 72 20 36 34 40 20 36 34 2d 32 2a 20 36 p >r 64@ 64-2* 6
1100: 34 2d 32 2a 20 72 3e 20 36 34 21 0a 09 54 48 45 4-2* r> 64!..THE
1110: 4e 0a 20 20 20 20 54 48 45 4e 20 6f 3e 20 3b 0a N. THEN o> ;.
1120: 2b 6e 65 74 32 6f 3a 20 72 65 73 65 6e 64 2d 6d +net2o: resend-m
1130: 61 73 6b 20 28 20 61 64 64 72 20 75 6d 61 73 6b ask ( addr umask
1140: 20 2d 2d 20 29 20 5c 67 20 72 65 73 65 6e 64 20 -- ) \g resend
1150: 6d 61 73 6b 20 62 6c 6f 63 6b 73 20 73 74 61 72 mask blocks star
1160: 74 69 6e 67 20 61 74 20 61 64 64 72 0a 20 20 20 ting at addr.
1170: 20 32 2a 36 34 3e 6e 20 70 61 72 65 6e 74 20 3e 2*64>n parent >
1180: 6f 20 6e 65 74 32 6f 3a 72 65 73 65 6e 64 2d 6d o net2o:resend-m
1190: 61 73 6b 20 6e 65 74 32 6f 3a 73 65 6e 64 2d 63 ask net2o:send-c
11a0: 68 75 6e 6b 73 20 6f 3e 20 3b 0a 2b 6e 65 74 32 hunks o> ;.+net2
11b0: 6f 3a 20 74 72 61 63 6b 2d 74 69 6d 69 6e 67 20 o: track-timing
11c0: 28 20 2d 2d 20 29 20 5c 67 20 74 72 61 63 6b 20 ( -- ) \g track
11d0: 74 69 6d 69 6e 67 0a 20 20 20 20 6e 65 74 32 6f timing. net2o
11e0: 3a 74 72 61 63 6b 2d 74 69 6d 69 6e 67 20 3b 0a :track-timing ;.
11f0: 2b 6e 65 74 32 6f 3a 20 72 65 63 2d 74 69 6d 69 +net2o: rec-timi
1200: 6e 67 20 28 20 24 3a 73 74 72 69 6e 67 20 2d 2d ng ( $:string --
1210: 20 29 20 5c 67 20 72 65 63 6f 72 64 65 64 20 74 ) \g recorded t
1220: 69 6d 69 6e 67 0a 20 20 20 20 24 3e 20 6e 65 74 iming. $> net
1230: 32 6f 3a 72 65 63 2d 74 69 6d 69 6e 67 20 3b 0a 2o:rec-timing ;.
1240: 2b 6e 65 74 32 6f 3a 20 73 65 6e 64 2d 74 69 6d +net2o: send-tim
1250: 69 6e 67 20 28 20 2d 2d 20 29 20 5c 67 20 72 65 ing ( -- ) \g re
1260: 71 75 65 73 74 20 72 65 63 6f 72 64 65 64 20 74 quest recorded t
1270: 69 6d 69 6e 67 0a 20 20 20 20 6e 65 74 32 6f 3a iming. net2o:
1280: 74 69 6d 69 6e 67 24 20 6d 61 78 74 69 6d 69 6e timing$ maxtimin
1290: 67 20 75 6d 69 6e 20 74 75 63 6b 20 24 2c 20 6e g umin tuck $, n
12a0: 65 74 32 6f 3a 2f 74 69 6d 69 6e 67 20 72 65 63 et2o:/timing rec
12b0: 2d 74 69 6d 69 6e 67 20 3b 0a 2b 6e 65 74 32 6f -timing ;.+net2o
12c0: 3a 20 61 63 6b 2d 62 32 62 74 69 6d 65 20 28 20 : ack-b2btime (
12d0: 75 74 69 6d 65 20 61 64 64 72 20 2d 2d 20 29 20 utime addr -- )
12e0: 5c 67 20 62 75 72 73 74 2d 74 6f 2d 62 75 72 73 \g burst-to-burs
12f0: 74 20 74 69 6d 65 20 61 74 20 70 61 63 6b 65 74 t time at packet
1300: 20 61 64 64 72 0a 20 20 20 20 6e 65 74 32 6f 3a addr. net2o:
1310: 61 63 6b 2d 62 32 62 74 69 6d 65 20 3b 0a 2b 6e ack-b2btime ;.+n
1320: 65 74 32 6f 3a 20 61 63 6b 2d 72 65 73 65 6e 64 et2o: ack-resend
1330: 23 20 28 20 61 64 64 72 20 24 3a 73 74 72 69 6e # ( addr $:strin
1340: 67 20 2d 2d 20 29 20 5c 67 20 72 65 73 65 6e 64 g -- ) \g resend
1350: 20 6e 75 6d 62 65 72 73 0a 20 20 20 20 36 34 3e numbers. 64>
1360: 6e 20 24 3e 0a 20 20 20 20 61 63 6b 2d 6f 72 64 n $>. ack-ord
1370: 65 72 3f 20 49 46 0a 09 70 61 72 65 6e 74 20 2e er? IF..parent .
1380: 64 61 74 61 2d 6d 61 70 20 2e 6d 61 70 63 3a 72 data-map .mapc:r
1390: 65 73 65 6e 64 23 3f 20 64 75 70 20 30 3d 20 49 esend#? dup 0= I
13a0: 46 0a 09 20 20 20 20 64 72 6f 70 20 74 69 6d 65 F.. drop time
13b0: 6f 75 74 28 20 2e 22 20 72 65 73 65 6e 64 23 20 out( ." resend#
13c0: 64 6f 6e 27 74 20 6d 61 74 63 68 21 22 20 66 6f don't match!" fo
13d0: 72 74 68 3a 63 72 0a 09 20 20 20 20 70 61 72 65 rth:cr.. pare
13e0: 6e 74 20 2e 6e 65 74 32 6f 3a 73 65 65 2d 6d 65 nt .net2o:see-me
13f0: 20 29 0a 09 20 20 20 20 5b 20 63 6f 6f 6b 69 65 ).. [ cookie
1400: 2d 76 61 6c 20 31 20 76 61 6c 69 64 61 74 65 64 -val 1 validated
1410: 23 20 6c 73 68 69 66 74 20 31 2d 20 78 6f 72 20 # lshift 1- xor
1420: 5d 4c 20 76 61 6c 69 64 61 74 65 64 20 61 6e 64 ]L validated and
1430: 21 0a 09 45 4c 53 45 0a 09 20 20 20 20 76 61 6c !..ELSE.. val
1440: 69 64 61 74 65 64 23 20 6c 73 68 69 66 74 20 76 idated# lshift v
1450: 61 6c 69 64 61 74 65 64 20 2b 21 20 63 6f 6f 6b alidated +! cook
1460: 69 65 2d 76 61 6c 20 76 61 6c 69 64 61 74 65 64 ie-val validated
1470: 20 6f 72 21 0a 09 54 48 45 4e 0a 20 20 20 20 45 or!..THEN. E
1480: 4c 53 45 20 20 74 69 6d 65 6f 75 74 28 20 2e 22 LSE timeout( ."
1490: 20 6f 75 74 20 6f 66 20 6f 72 64 65 72 20 61 72 out of order ar
14a0: 72 69 76 61 6c 20 6f 66 20 61 63 6b 22 20 66 6f rival of ack" fo
14b0: 72 74 68 3a 63 72 20 29 0a 09 32 64 72 6f 70 20 rth:cr )..2drop
14c0: 64 72 6f 70 0a 20 20 20 20 54 48 45 4e 20 3b 0a drop. THEN ;.
14d0: 2b 6e 65 74 32 6f 3a 20 61 63 6b 2d 66 6c 75 73 +net2o: ack-flus
14e0: 68 20 28 20 61 64 64 72 20 2d 2d 20 29 20 5c 67 h ( addr -- ) \g
14f0: 20 66 6c 75 73 68 65 64 20 74 6f 20 61 64 64 72 flushed to addr
1500: 0a 20 20 20 20 36 34 3e 6e 20 70 61 72 65 6e 74 . 64>n parent
1510: 20 2e 6e 65 74 32 6f 3a 72 65 77 69 6e 64 2d 73 .net2o:rewind-s
1520: 65 6e 64 65 72 2d 70 61 72 74 69 61 6c 20 3b 0a ender-partial ;.
1530: 5c 20 2b 6e 65 74 32 6f 3a 20 73 65 74 2d 68 65 \ +net2o: set-he
1540: 61 64 20 28 20 61 64 64 72 20 2d 2d 20 29 20 5c ad ( addr -- ) \
1550: 67 20 73 65 74 20 68 65 61 64 0a 5c 20 20 20 20 g set head.\
1560: 20 36 34 3e 6e 20 70 61 72 65 6e 74 20 2e 64 61 64>n parent .da
1570: 74 61 2d 72 6d 61 70 20 3e 6f 20 61 64 64 72 20 ta-rmap >o addr
1580: 6d 61 70 63 3a 64 65 73 74 2d 68 65 61 64 20 6f mapc:dest-head o
1590: 3e 20 75 6d 61 78 21 20 3b 0a 5c 20 2b 6e 65 74 > umax! ;.\ +net
15a0: 32 6f 3a 20 74 69 6d 65 6f 75 74 20 28 20 75 74 2o: timeout ( ut
15b0: 69 63 6b 73 20 2d 2d 20 29 20 5c 67 20 74 69 6d icks -- ) \g tim
15c0: 65 6f 75 74 20 72 65 71 75 65 73 74 0a 5c 20 20 eout request.\
15d0: 20 20 20 70 61 72 65 6e 74 20 3e 6f 20 6e 65 74 parent >o net
15e0: 32 6f 3a 74 69 6d 65 6f 75 74 20 64 61 74 61 2d 2o:timeout data-
15f0: 6d 61 70 20 2e 6d 61 70 63 3a 64 65 73 74 2d 62 map .mapc:dest-b
1600: 61 63 6b 20 75 6c 69 74 2c 20 73 65 74 2d 68 65 ack ulit, set-he
1610: 61 64 20 6f 3e 20 3b 0a 24 32 43 20 6e 65 74 32 ad o> ;.$2C net2
1620: 6f 3a 20 73 65 74 2d 72 74 64 65 6c 61 79 20 28 o: set-rtdelay (
1630: 20 74 69 63 6b 73 20 2d 2d 20 29 20 5c 67 20 73 ticks -- ) \g s
1640: 65 74 20 72 6f 75 6e 64 20 74 72 69 70 20 64 65 et round trip de
1650: 6c 61 79 20 6f 6e 6c 79 0a 20 20 20 20 72 74 64 lay only. rtd
1660: 65 6c 61 79 21 20 3b 0a 2b 6e 65 74 32 6f 3a 20 elay! ;.+net2o:
1670: 73 65 71 23 20 28 20 6e 20 2d 2d 20 29 20 5c 67 seq# ( n -- ) \g
1680: 20 73 65 74 20 74 68 65 20 61 63 6b 20 6e 75 6d set the ack num
1690: 62 65 72 20 61 6e 64 20 63 68 65 63 6b 20 66 6f ber and check fo
16a0: 72 20 73 6d 61 6c 6c 65 72 0a 20 20 20 20 36 34 r smaller. 64
16b0: 3e 6e 20 70 61 72 65 6e 74 20 2e 64 61 74 61 2d >n parent .data-
16c0: 6d 61 70 20 77 69 74 68 20 6d 61 70 63 0a 20 20 map with mapc.
16d0: 20 20 64 75 70 20 73 65 6e 64 2d 61 63 6b 23 20 dup send-ack#
16e0: 75 3e 20 49 46 20 20 74 6f 20 73 65 6e 64 2d 61 u> IF to send-a
16f0: 63 6b 23 20 20 61 63 6b 2d 6f 72 64 65 72 2d 76 ck# ack-order-v
1700: 61 6c 20 76 61 6c 69 64 61 74 65 64 20 6f 72 21 al validated or!
1710: 20 20 45 4c 53 45 0a 09 64 72 6f 70 20 5b 20 61 ELSE..drop [ a
1720: 63 6b 2d 6f 72 64 65 72 2d 76 61 6c 20 69 6e 76 ck-order-val inv
1730: 65 72 74 20 5d 4c 20 76 61 6c 69 64 61 74 65 64 ert ]L validated
1740: 20 61 6e 64 21 0a 20 20 20 20 54 48 45 4e 0a 20 and!. THEN.
1750: 20 20 20 65 6e 64 77 69 74 68 20 3b 0a 0a 5c 20 endwith ;..\
1760: 70 72 6f 66 69 6c 69 6e 67 2c 20 6e 61 74 20 74 profiling, nat t
1770: 72 61 76 65 72 73 61 6c 0a 0a 67 65 6e 2d 74 61 raversal..gen-ta
1780: 62 6c 65 20 24 66 72 65 65 7a 65 0a 27 20 63 6f ble $freeze.' co
1790: 6e 74 65 78 74 2d 74 61 62 6c 65 20 69 73 20 67 ntext-table is g
17a0: 65 6e 2d 74 61 62 6c 65 0a 0a 69 6e 20 6e 65 74 en-table..in net
17b0: 32 6f 20 3a 20 67 65 6e 2d 72 65 73 65 6e 64 20 2o : gen-resend
17c0: 28 20 2d 2d 20 29 0a 20 20 20 20 61 63 6b 2d 72 ( -- ). ack-r
17d0: 65 63 65 69 76 65 20 69 6e 76 65 72 74 20 72 65 eceive invert re
17e0: 73 65 6e 64 2d 74 6f 67 67 6c 65 23 20 61 6e 64 send-toggle# and
17f0: 20 75 6c 69 74 2c 20 61 63 6b 2d 72 65 73 65 6e ulit, ack-resen
1800: 64 20 3b 0a 69 6e 20 6e 65 74 32 6f 20 3a 20 67 d ;.in net2o : g
1810: 65 6e 2d 72 65 73 65 74 20 28 20 2d 2d 20 29 0a en-reset ( -- ).
1820: 20 20 20 20 61 63 6b 2d 72 65 73 65 74 20 30 20 ack-reset 0
1830: 74 6f 20 61 63 6b 2d 72 65 63 65 69 76 65 20 3b to ack-receive ;
1840: 0a 0a 3a 20 72 65 77 69 6e 64 20 28 20 2d 2d 20 ..: rewind ( --
1850: 29 0a 20 20 20 20 64 61 74 61 2d 72 6d 61 70 20 ). data-rmap
1860: 2e 6d 61 70 63 3a 64 65 73 74 2d 62 61 63 6b 20 .mapc:dest-back
1870: 75 6c 69 74 2c 20 61 63 6b 2d 66 6c 75 73 68 20 ulit, ack-flush
1880: 3b 0a 0a 5c 20 73 61 66 65 20 69 6e 69 74 69 61 ;..\ safe initia
1890: 6c 69 7a 61 74 69 6f 6e 0a 0a 3a 20 6c 69 74 3c lization..: lit<
18a0: 20 20 20 6c 69 74 2c 20 70 75 73 68 2d 6c 69 74 lit, push-lit
18b0: 20 3b 0a 3a 6e 6f 6e 61 6d 65 20 28 20 74 68 72 ;.:noname ( thr
18c0: 6f 77 63 6f 64 65 20 2d 2d 20 29 0a 20 20 20 20 owcode -- ).
18d0: 72 65 6d 6f 74 65 3f 20 40 20 49 46 0a 09 3f 64 remote? @ IF..?d
18e0: 75 70 2d 49 46 20 20 69 6e 69 74 2d 72 65 70 6c up-IF init-repl
18f0: 79 0a 09 20 20 20 20 24 65 72 72 6f 72 2d 69 64 y.. $error-id
1900: 20 24 40 20 64 75 70 20 49 46 20 20 24 2c 20 65 $@ dup IF $, e
1910: 72 72 6f 72 2d 69 64 20 20 45 4c 53 45 20 20 32 rror-id ELSE 2
1920: 64 72 6f 70 20 20 54 48 45 4e 0a 09 20 20 20 20 drop THEN..
1930: 6e 6c 69 74 2c 20 6b 6f 20 20 54 48 45 4e 0a 20 nlit, ko THEN.
1940: 20 20 20 45 4c 53 45 0a 09 65 72 72 6f 72 2d 69 ELSE..error-i
1950: 64 3e 6f 20 3f 64 75 70 2d 49 46 0a 09 20 20 20 d>o ?dup-IF..
1960: 20 3e 6f 20 3c 65 76 65 6e 74 20 65 6c 69 74 2c >o <event elit,
1970: 20 3a 3e 74 68 72 6f 77 20 77 61 69 74 2d 74 61 :>throw wait-ta
1980: 73 6b 20 40 20 65 76 65 6e 74 3e 20 6f 3e 0a 09 sk @ event> o>..
1990: 45 4c 53 45 20 20 74 68 72 6f 77 20 20 54 48 45 ELSE throw THE
19a0: 4e 0a 20 20 20 20 54 48 45 4e 20 3b 20 49 53 20 N. THEN ; IS
19b0: 3e 74 68 72 6f 77 0a 0a 61 6c 73 6f 20 7d 73 63 >throw..also }sc
19c0: 6f 70 65 0a 0a 3a 20 62 6c 6f 63 6b 73 69 7a 65 ope..: blocksize
19d0: 21 20 28 20 6e 20 2d 2d 20 29 20 20 6d 61 78 2d ! ( n -- ) max-
19e0: 62 6c 6f 63 6b 23 20 75 6d 69 6e 20 64 75 70 20 block# umin dup
19f0: 75 6c 69 74 2c 20 73 65 74 2d 62 6c 6f 63 6b 73 ulit, set-blocks
1a00: 69 7a 65 0a 20 20 20 20 31 20 73 77 61 70 20 6c ize. 1 swap l
1a10: 73 68 69 66 74 20 6e 65 74 32 6f 3a 62 6c 6f 63 shift net2o:bloc
1a20: 6b 73 69 7a 65 73 21 20 3b 0a 3a 20 62 6c 6f 63 ksizes! ;.: bloc
1a30: 6b 61 6c 69 67 6e 21 20 28 20 6e 20 2d 2d 20 29 kalign! ( n -- )
1a40: 20 6d 61 78 2d 62 6c 6f 63 6b 23 20 75 6d 69 6e max-block# umin
1a50: 20 64 75 70 20 75 6c 69 74 2c 20 73 65 74 2d 62 dup ulit, set-b
1a60: 6c 6f 63 6b 61 6c 69 67 6e 0a 20 20 20 20 31 20 lockalign. 1
1a70: 73 77 61 70 20 6c 73 68 69 66 74 20 62 6c 6f 63 swap lshift bloc
1a80: 6b 61 6c 69 67 6e 20 21 20 3b 0a 0a 3a 20 6f 70 kalign ! ;..: op
1a90: 65 6e 2d 73 69 7a 65 64 2d 66 69 6c 65 20 28 20 en-sized-file (
1aa0: 61 64 64 72 20 75 20 6d 6f 64 65 20 2d 2d 29 0a addr u mode --).
1ab0: 20 20 20 20 6f 70 65 6e 2d 66 69 6c 65 20 67 65 open-file ge
1ac0: 74 2d 73 69 7a 65 20 3b 0a 3a 20 6f 70 65 6e 2d t-size ;.: open-
1ad0: 74 72 61 63 6b 65 64 2d 66 69 6c 65 20 28 20 61 tracked-file ( a
1ae0: 64 64 72 20 75 20 6d 6f 64 65 20 2d 2d 29 0a 20 ddr u mode --).
1af0: 20 20 20 6f 70 65 6e 2d 73 69 7a 65 64 2d 66 69 open-sized-fi
1b00: 6c 65 20 67 65 74 2d 73 74 61 74 20 3b 0a 0a 3a le get-stat ;..:
1b10: 20 6e 32 6f 3e 66 69 6c 65 20 28 20 78 74 20 2d n2o>file ( xt -
1b20: 2d 20 29 0a 20 20 20 20 66 69 6c 65 2d 72 65 67 - ). file-reg
1b30: 23 20 40 20 75 6c 69 74 2c 20 66 69 6c 65 2d 69 # @ ulit, file-i
1b40: 64 20 20 63 61 74 63 68 20 20 65 6e 64 2d 77 69 d catch end-wi
1b50: 74 68 0a 20 20 20 20 74 68 72 6f 77 20 20 31 20 th. throw 1
1b60: 66 69 6c 65 2d 72 65 67 23 20 2b 21 20 3b 0a 0a file-reg# +! ;..
1b70: 69 6e 20 6e 65 74 32 6f 20 3a 20 63 6f 70 79 20 in net2o : copy
1b80: 28 20 61 64 64 72 73 72 63 20 75 73 20 61 64 64 ( addrsrc us add
1b90: 72 64 65 73 74 20 75 64 20 2d 2d 20 29 0a 20 20 rdest ud -- ).
1ba0: 20 20 5b 3a 20 66 69 6c 65 28 20 2e 22 20 63 6f [: file( ." co
1bb0: 70 79 20 27 22 20 32 6f 76 65 72 20 66 6f 72 74 py '" 2over fort
1bc0: 68 3a 74 79 70 65 20 2e 22 20 27 20 2d 3e 20 27 h:type ." ' -> '
1bd0: 22 20 32 64 75 70 20 66 6f 72 74 68 3a 74 79 70 " 2dup forth:typ
1be0: 65 0a 20 20 20 20 20 20 2e 22 20 27 22 20 66 6f e. ." '" fo
1bf0: 72 74 68 3a 63 72 20 29 0a 20 20 20 20 20 20 32 rth:cr ). 2
1c00: 73 77 61 70 20 24 2c 20 72 2f 6f 20 75 6c 69 74 swap $, r/o ulit
1c10: 2c 20 6f 70 65 6e 2d 74 72 61 63 6b 65 64 2d 66 , open-tracked-f
1c20: 69 6c 65 0a 20 20 20 20 20 20 66 69 6c 65 2d 72 ile. file-r
1c30: 65 67 23 20 40 20 73 61 76 65 2d 74 6f 20 3b 5d eg# @ save-to ;]
1c40: 20 6e 32 6f 3e 66 69 6c 65 0a 20 20 20 20 31 20 n2o>file. 1
1c50: 66 69 6c 65 2d 63 6f 75 6e 74 20 2b 21 20 3b 0a file-count +! ;.
1c60: 0a 69 6e 20 6e 65 74 32 6f 20 3a 20 63 6f 70 79 .in net2o : copy
1c70: 23 20 28 20 61 64 64 72 68 61 73 68 20 75 20 2d # ( addrhash u -
1c80: 2d 20 29 0a 20 20 20 20 5b 3a 20 66 69 6c 65 28 - ). [: file(
1c90: 20 2e 22 20 63 6f 70 79 23 20 22 20 32 64 75 70 ." copy# " 2dup
1ca0: 20 38 35 74 79 70 65 20 66 6f 72 74 68 3a 63 72 85type forth:cr
1cb0: 20 29 0a 20 20 20 20 20 20 31 20 75 6c 69 74 2c ). 1 ulit,
1cc0: 20 66 69 6c 65 2d 74 79 70 65 20 32 64 75 70 20 file-type 2dup
1cd0: 24 2c 20 72 2f 6f 20 75 6c 69 74 2c 20 6f 70 65 $, r/o ulit, ope
1ce0: 6e 2d 74 72 61 63 6b 65 64 2d 66 69 6c 65 0a 20 n-tracked-file.
1cf0: 20 20 20 20 20 66 69 6c 65 2d 72 65 67 23 20 40 file-reg# @
1d00: 20 73 61 76 65 2d 74 6f 23 20 3b 5d 20 6e 32 6f save-to# ;] n2o
1d10: 3e 66 69 6c 65 0a 20 20 20 20 31 20 66 69 6c 65 >file. 1 file
1d20: 2d 63 6f 75 6e 74 20 2b 21 20 3b 0a 0a 3a 20 73 -count +! ;..: s
1d30: 65 65 6b 21 20 28 20 70 6f 73 20 69 64 20 2d 2d eek! ( pos id --
1d40: 20 29 20 3e 72 20 64 3e 36 34 0a 20 20 20 20 36 ) >r d>64. 6
1d50: 34 64 75 70 20 72 40 20 73 74 61 74 65 2d 61 64 4dup r@ state-ad
1d60: 64 72 20 3e 6f 20 74 6f 20 66 73 2d 73 65 65 6b dr >o to fs-seek
1d70: 20 6f 3e 0a 20 20 20 20 72 3e 20 75 6c 69 74 2c o>. r> ulit,
1d80: 20 66 69 6c 65 2d 69 64 20 6c 69 74 2c 20 73 65 file-id lit, se
1d90: 74 2d 73 65 65 6b 20 65 6e 64 2d 77 69 74 68 20 t-seek end-with
1da0: 3b 0a 0a 3a 20 6c 69 6d 69 74 21 20 28 20 70 6f ;..: limit! ( po
1db0: 73 20 69 64 20 2d 2d 20 29 20 3e 72 20 64 3e 36 s id -- ) >r d>6
1dc0: 34 0a 20 20 20 20 72 40 20 75 6c 69 74 2c 20 66 4. r@ ulit, f
1dd0: 69 6c 65 2d 69 64 20 36 34 64 75 70 20 6c 69 74 ile-id 64dup lit
1de0: 2c 20 73 65 74 2d 6c 69 6d 69 74 20 65 6e 64 2d , set-limit end-
1df0: 77 69 74 68 0a 20 20 20 20 72 3e 20 69 6e 69 74 with. r> init
1e00: 2d 6c 69 6d 69 74 21 20 3b 0a 0a 70 72 65 76 69 -limit! ;..previ
1e10: 6f 75 73 0a 0a 5c 20 63 6c 69 65 6e 74 20 73 69 ous..\ client si
1e20: 64 65 20 74 69 6d 69 6e 67 0a 0a 3a 20 61 63 6b de timing..: ack
1e30: 2d 73 69 7a 65 20 28 20 2d 2d 20 29 20 20 31 20 -size ( -- ) 1
1e40: 61 63 6b 73 20 2b 21 0a 20 20 20 20 61 63 6b 40 acks +!. ack@
1e50: 20 2e 72 65 63 76 2d 74 69 63 6b 20 36 34 40 20 .recv-tick 64@
1e60: 36 34 64 75 70 20 6c 61 73 74 62 2d 74 69 63 6b 64dup lastb-tick
1e70: 73 20 36 34 21 40 20 36 34 2d 20 6d 61 78 2d 64 s 64!@ 64- max-d
1e80: 74 69 63 6b 73 20 36 34 6d 61 78 21 20 3b 0a 3a ticks 64max! ;.:
1e90: 20 61 63 6b 2d 66 69 72 73 74 20 28 20 2d 2d 20 ack-first ( --
1ea0: 29 0a 20 20 20 20 6c 61 73 74 62 2d 74 69 63 6b ). lastb-tick
1eb0: 73 20 36 34 40 20 66 69 72 73 74 62 2d 74 69 63 s 64@ firstb-tic
1ec0: 6b 73 20 36 34 40 20 36 34 2d 20 64 65 6c 74 61 ks 64@ 64- delta
1ed0: 2d 74 69 63 6b 73 20 36 34 2b 21 0a 20 20 20 20 -ticks 64+!.
1ee0: 61 63 6b 40 20 2e 72 65 63 76 2d 74 69 63 6b 20 ack@ .recv-tick
1ef0: 36 34 40 20 36 34 64 75 70 20 66 69 72 73 74 62 64@ 64dup firstb
1f00: 2d 74 69 63 6b 73 20 36 34 21 20 20 36 34 64 75 -ticks 64! 64du
1f10: 70 20 6c 61 73 74 62 2d 74 69 63 6b 73 20 36 34 p lastb-ticks 64
1f20: 21 0a 20 20 20 20 6c 61 73 74 2d 72 74 69 63 6b !. last-rtick
1f30: 20 36 34 21 20 20 72 65 63 76 2d 61 64 64 72 20 64! recv-addr
1f40: 36 34 40 20 6c 61 73 74 2d 72 61 64 64 72 20 36 64@ last-raddr 6
1f50: 34 21 20 3b 0a 0a 3a 20 61 63 6b 2d 74 69 6d 69 4! ;..: ack-timi
1f60: 6e 67 20 28 20 6e 20 2d 2d 20 29 0a 20 20 20 20 ng ( n -- ).
1f70: 62 32 62 2d 74 6f 67 67 6c 65 23 20 61 6e 64 20 b2b-toggle# and
1f80: 20 49 46 20 20 61 63 6b 2d 66 69 72 73 74 20 20 IF ack-first
1f90: 45 4c 53 45 20 20 61 63 6b 2d 73 69 7a 65 20 20 ELSE ack-size
1fa0: 54 48 45 4e 20 3b 0a 0a 61 6c 73 6f 20 6e 65 74 THEN ;..also net
1fb0: 32 6f 2d 62 61 73 65 0a 0a 3a 20 73 65 74 72 61 2o-base..: setra
1fc0: 74 65 2d 6c 69 6d 69 74 20 28 20 72 61 74 65 20 te-limit ( rate
1fd0: 2d 2d 20 72 61 74 65 27 20 29 0a 20 20 20 20 5c -- rate' ). \
1fe0: 20 64 6f 20 6e 6f 74 20 63 68 61 6e 67 65 20 72 do not change r
1ff0: 65 71 75 65 73 74 65 64 20 72 61 74 65 20 62 79 equested rate by
2000: 20 6d 6f 72 65 20 74 68 61 6e 20 61 20 66 61 63 more than a fac
2010: 74 6f 72 20 32 0a 20 20 20 20 6c 61 73 74 2d 72 tor 2. last-r
2020: 61 74 65 20 36 34 40 0a 20 20 20 20 36 34 64 75 ate 64@. 64du
2030: 70 20 36 34 2d 30 3c 3e 20 49 46 20 20 36 34 74 p 64-0<> IF 64t
2040: 75 63 6b 20 36 34 2d 32 2a 20 36 34 6d 69 6e 20 uck 64-2* 64min
2050: 36 34 73 77 61 70 20 36 34 2d 32 2f 20 36 34 6d 64swap 64-2/ 64m
2060: 61 78 20 20 45 4c 53 45 20 20 36 34 64 72 6f 70 ax ELSE 64drop
2070: 20 20 54 48 45 4e 0a 20 20 20 20 36 34 64 75 70 THEN. 64dup
2080: 20 6c 61 73 74 2d 72 61 74 65 20 36 34 21 20 3b last-rate 64! ;
2090: 0a 0a 3a 20 3e 72 61 74 65 20 28 20 2d 2d 20 29 ..: >rate ( -- )
20a0: 20 20 64 65 6c 74 61 2d 74 69 63 6b 73 20 36 34 delta-ticks 64
20b0: 40 20 36 34 2d 30 3d 20 61 63 6b 73 20 40 20 30 @ 64-0= acks @ 0
20c0: 3d 20 6f 72 20 3f 45 58 49 54 0a 20 20 20 20 61 = or ?EXIT. a
20d0: 63 6b 40 20 2e 72 65 63 76 2d 74 69 63 6b 20 36 ck@ .recv-tick 6
20e0: 34 40 20 36 34 64 75 70 20 62 75 72 73 74 2d 74 4@ 64dup burst-t
20f0: 69 63 6b 73 20 36 34 21 40 20 36 34 64 75 70 20 icks 64!@ 64dup
2100: 36 34 2d 30 3c 3e 20 49 46 0a 09 36 34 2d 20 6d 64-0<> IF..64- m
2110: 61 78 2d 64 74 69 63 6b 73 20 36 34 40 20 74 69 ax-dticks 64@ ti
2120: 63 6b 2d 69 6e 69 74 20 31 2b 20 6e 3e 36 34 20 ck-init 1+ n>64
2130: 36 34 2a 20 36 34 6d 61 78 20 36 34 3e 72 0a 09 64* 64max 64>r..
2140: 64 65 6c 74 61 2d 74 69 63 6b 73 20 36 34 40 20 delta-ticks 64@
2150: 74 69 63 6b 2d 69 6e 69 74 20 31 2b 20 61 63 6b tick-init 1+ ack
2160: 73 20 40 20 36 34 2a 2f 20 73 65 74 72 61 74 65 s @ 64*/ setrate
2170: 2d 6c 69 6d 69 74 0a 09 6c 69 74 2c 20 36 34 72 -limit..lit, 64r
2180: 3e 20 6c 69 74 2c 20 73 65 74 2d 72 61 74 65 0a > lit, set-rate.
2190: 20 20 20 20 45 4c 53 45 0a 09 36 34 64 72 6f 70 ELSE..64drop
21a0: 20 36 34 64 72 6f 70 0a 20 20 20 20 54 48 45 4e 64drop. THEN
21b0: 0a 20 20 20 20 64 65 6c 74 61 2d 74 69 63 6b 73 . delta-ticks
21c0: 20 36 34 6f 66 66 20 20 6d 61 78 2d 64 74 69 63 64off max-dtic
21d0: 6b 73 20 36 34 6f 66 66 20 20 61 63 6b 73 20 6f ks 64off acks o
21e0: 66 66 20 3b 0a 0a 69 6e 20 6e 65 74 32 6f 20 3a ff ;..in net2o :
21f0: 20 61 63 6b 74 69 6d 65 20 28 20 2d 2d 20 29 0a acktime ( -- ).
2200: 20 20 20 20 72 65 63 76 2d 61 64 64 72 20 36 34 recv-addr 64
2210: 40 20 61 63 6b 40 20 2e 72 65 63 76 2d 74 69 63 @ ack@ .recv-tic
2220: 6b 20 36 34 40 20 61 63 6b 40 20 2e 74 69 6d 65 k 64@ ack@ .time
2230: 2d 6f 66 66 73 65 74 20 36 34 40 20 36 34 2d 0a -offset 64@ 64-.
2240: 20 20 20 20 74 69 6d 69 6e 67 28 20 36 34 3e 72 timing( 64>r
2250: 20 36 34 64 75 70 20 78 36 34 2e 20 36 34 72 3e 64dup x64. 64r>
2260: 20 36 34 64 75 70 20 75 36 34 2e 20 2e 22 20 61 64dup u64. ." a
2270: 63 6b 74 69 6d 65 22 20 66 6f 72 74 68 3a 63 72 cktime" forth:cr
2280: 20 29 0a 20 20 20 20 6c 69 74 2c 20 6c 69 74 2c ). lit, lit,
2290: 20 61 63 6b 2d 61 64 64 72 74 69 6d 65 20 3b 0a ack-addrtime ;.
22a0: 69 6e 20 6e 65 74 32 6f 20 3a 20 62 32 62 74 69 in net2o : b2bti
22b0: 6d 65 20 28 20 2d 2d 20 29 0a 20 20 20 20 6c 61 me ( -- ). la
22c0: 73 74 2d 72 61 64 64 72 20 36 34 40 20 6c 61 73 st-raddr 64@ las
22d0: 74 2d 72 74 69 63 6b 20 36 34 40 20 36 34 64 75 t-rtick 64@ 64du
22e0: 70 20 36 34 2d 30 3d 0a 20 20 20 20 49 46 20 20 p 64-0=. IF
22f0: 36 34 64 72 6f 70 20 36 34 64 72 6f 70 0a 20 20 64drop 64drop.
2300: 20 20 45 4c 53 45 20 20 61 63 6b 40 20 2e 74 69 ELSE ack@ .ti
2310: 6d 65 2d 6f 66 66 73 65 74 20 36 34 40 20 36 34 me-offset 64@ 64
2320: 2d 20 6c 69 74 2c 20 6c 69 74 2c 20 61 63 6b 2d - lit, lit, ack-
2330: 62 32 62 74 69 6d 65 20 20 54 48 45 4e 20 3b 0a b2btime THEN ;.
2340: 0a 5c 20 61 63 6b 20 62 69 74 73 2c 20 6e 65 77 .\ ack bits, new
2350: 20 63 6f 64 65 0a 0a 69 6e 20 6e 65 74 32 6f 20 code..in net2o
2360: 3a 20 61 63 6b 2d 72 65 73 65 6e 64 23 20 28 20 : ack-resend# (
2370: 2d 2d 20 29 20 20 64 61 74 61 2d 72 6d 61 70 20 -- ) data-rmap
2380: 7b 20 6d 61 70 20 7d 0a 20 20 20 20 6d 61 70 20 { map }. map
2390: 2e 6d 61 70 63 3a 64 61 74 61 2d 72 65 73 65 6e .mapc:data-resen
23a0: 64 23 2d 62 75 66 20 24 40 0a 20 20 20 20 62 6f d#-buf $@. bo
23b0: 75 6e 64 73 20 3f 44 4f 0a 09 49 20 24 40 20 6f unds ?DO..I $@ o
23c0: 76 65 72 20 40 20 3e 72 20 63 65 6c 6c 20 2f 73 ver @ >r cell /s
23d0: 74 72 69 6e 67 20 24 46 46 20 2d 73 6b 69 70 0a tring $FF -skip.
23e0: 09 64 75 70 20 3e 72 20 24 46 46 20 73 6b 69 70 .dup >r $FF skip
23f0: 20 64 75 70 20 49 46 0a 09 20 20 20 20 72 3e 20 dup IF.. r>
2400: 6f 76 65 72 20 2d 20 72 3e 20 2b 20 75 6c 69 74 over - r> + ulit
2410: 2c 20 24 2c 20 61 63 6b 2d 72 65 73 65 6e 64 23 , $, ack-resend#
2420: 0a 09 45 4c 53 45 20 20 32 64 72 6f 70 20 72 64 ..ELSE 2drop rd
2430: 72 6f 70 20 72 64 72 6f 70 20 20 54 48 45 4e 0a rop rdrop THEN.
2440: 20 20 20 20 63 65 6c 6c 20 2b 4c 4f 4f 50 0a 20 cell +LOOP.
2450: 20 20 20 6d 61 70 20 2e 6d 61 70 63 3a 64 61 74 map .mapc:dat
2460: 61 2d 72 65 73 65 6e 64 23 2d 62 75 66 20 24 5b a-resend#-buf $[
2470: 5d 6f 66 66 20 3b 0a 0a 5c 20 63 6c 69 65 6e 74 ]off ;..\ client
2480: 20 73 69 64 65 20 61 63 6b 6e 6f 77 6c 65 64 67 side acknowledg
2490: 65 0a 0a 69 6e 20 6e 65 74 32 6f 20 3a 20 67 65 e..in net2o : ge
24a0: 6e 61 63 6b 20 28 20 2d 2d 20 29 0a 20 20 20 20 nack ( -- ).
24b0: 6e 65 74 32 6f 3a 61 63 6b 2d 72 65 73 65 6e 64 net2o:ack-resend
24c0: 23 20 20 6e 65 74 32 6f 3a 62 32 62 74 69 6d 65 # net2o:b2btime
24d0: 20 20 6e 65 74 32 6f 3a 61 63 6b 74 69 6d 65 20 net2o:acktime
24e0: 20 3e 72 61 74 65 20 3b 0a 0a 3a 20 21 72 64 61 >rate ;..: !rda
24f0: 74 61 2d 74 61 69 6c 20 28 20 2d 2d 20 29 0a 20 ta-tail ( -- ).
2500: 20 20 20 64 61 74 61 2d 72 6d 61 70 20 77 69 74 data-rmap wit
2510: 68 20 6d 61 70 63 0a 20 20 20 20 64 61 74 61 2d h mapc. data-
2520: 61 63 6b 23 20 40 20 62 79 74 65 73 3e 61 64 64 ack# @ bytes>add
2530: 72 0a 20 20 20 20 64 65 73 74 2d 68 65 61 64 20 r. dest-head
2540: 75 6d 69 6e 20 64 65 73 74 2d 74 6f 70 20 75 6d umin dest-top um
2550: 69 6e 0a 20 20 20 20 64 65 73 74 2d 74 61 69 6c in. dest-tail
2560: 20 75 6d 61 78 20 64 75 70 20 61 64 64 72 20 64 umax dup addr d
2570: 65 73 74 2d 74 61 69 6c 20 21 40 20 65 6e 64 77 est-tail !@ endw
2580: 69 74 68 0a 20 20 20 20 61 63 6b 28 20 2e 22 20 ith. ack( ."
2590: 74 61 69 6c 3a 20 22 20 6f 76 65 72 20 68 65 78 tail: " over hex
25a0: 2e 20 64 75 70 20 68 65 78 2e 20 66 6f 72 74 68 . dup hex. forth
25b0: 3a 63 72 20 29 0a 20 20 20 20 75 3e 20 49 46 20 :cr ). u> IF
25c0: 20 6e 65 74 32 6f 3a 73 61 76 65 26 20 36 34 23 net2o:save& 64#
25d0: 30 20 62 75 72 73 74 2d 74 69 63 6b 73 20 36 34 0 burst-ticks 64
25e0: 21 20 20 54 48 45 4e 20 3b 0a 0a 24 32 30 20 56 ! THEN ;..$20 V
25f0: 61 6c 75 65 20 6d 61 78 2d 72 65 73 65 6e 64 23 alue max-resend#
2600: 0a 0a 3a 20 70 72 65 70 61 72 65 2d 72 65 73 65 ..: prepare-rese
2610: 6e 64 20 28 20 66 6c 61 67 20 2d 2d 20 65 6e 64 nd ( flag -- end
2620: 20 73 74 61 72 74 20 61 63 6b 73 20 61 63 6b 6d start acks ackm
2630: 20 74 61 69 62 69 74 73 20 62 61 63 6b 62 69 74 taibits backbit
2640: 73 20 29 0a 20 20 20 20 64 61 74 61 2d 72 6d 61 s ). data-rma
2650: 70 20 77 69 74 68 20 6d 61 70 63 0a 20 20 20 20 p with mapc.
2660: 61 63 6b 28 20 2e 22 20 68 65 61 64 2f 74 61 69 ack( ." head/tai
2670: 6c 3a 20 22 20 64 75 70 20 66 6f 72 74 68 3a 2e l: " dup forth:.
2680: 20 64 65 73 74 2d 68 65 61 64 20 68 65 78 2e 20 dest-head hex.
2690: 64 65 73 74 2d 74 61 69 6c 20 68 65 78 2e 20 66 dest-tail hex. f
26a0: 6f 72 74 68 3a 63 72 20 29 0a 20 20 20 20 49 46 orth:cr ). IF
26b0: 20 20 20 20 64 65 73 74 2d 68 65 61 64 20 61 64 dest-head ad
26c0: 64 72 3e 62 79 74 65 73 20 2d 34 20 61 6e 64 0a dr>bytes -4 and.
26d0: 20 20 20 20 45 4c 53 45 20 20 64 65 73 74 2d 68 ELSE dest-h
26e0: 65 61 64 20 31 2d 20 61 64 64 72 3e 62 79 74 65 ead 1- addr>byte
26f0: 73 20 31 2b 20 20 54 48 45 4e 20 30 20 6d 61 78 s 1+ THEN 0 max
2700: 0a 20 20 20 20 64 65 73 74 2d 74 61 69 6c 20 61 . dest-tail a
2710: 64 64 72 3e 62 79 74 65 73 20 2d 34 20 61 6e 64 ddr>bytes -4 and
2720: 20 5c 20 64 75 70 20 64 61 74 61 2d 61 63 6b 23 \ dup data-ack#
2730: 20 75 6d 69 6e 21 0a 20 20 20 20 64 61 74 61 2d umin!. data-
2740: 61 63 6b 62 69 74 73 20 40 20 64 65 73 74 2d 73 ackbits @ dest-s
2750: 69 7a 65 20 61 64 64 72 3e 62 79 74 65 73 20 31 ize addr>bytes 1
2760: 2d 0a 20 20 20 20 64 65 73 74 2d 74 61 69 6c 20 -. dest-tail
2770: 61 64 64 72 3e 62 69 74 73 20 64 65 73 74 2d 62 addr>bits dest-b
2780: 61 63 6b 20 64 65 73 74 2d 73 69 7a 65 20 2b 20 ack dest-size +
2790: 61 64 64 72 3e 62 69 74 73 20 65 6e 64 77 69 74 addr>bits endwit
27a0: 68 20 3b 0a 0a 69 6e 20 6e 65 74 32 6f 20 3a 20 h ;..in net2o :
27b0: 64 6f 2d 72 65 73 65 6e 64 20 28 20 66 6c 61 67 do-resend ( flag
27c0: 20 2d 2d 20 29 0a 20 20 20 20 6f 20 30 3d 20 49 -- ). o 0= I
27d0: 46 20 20 64 72 6f 70 20 45 58 49 54 20 20 54 48 F drop EXIT TH
27e0: 45 4e 20 20 64 61 74 61 2d 72 6d 61 70 20 30 3d EN data-rmap 0=
27f0: 20 49 46 20 20 64 72 6f 70 20 45 58 49 54 20 20 IF drop EXIT
2800: 54 48 45 4e 0a 20 20 20 20 30 20 73 77 61 70 20 THEN. 0 swap
2810: 20 70 72 65 70 61 72 65 2d 72 65 73 65 6e 64 20 prepare-resend
2820: 7b 20 61 63 6b 73 20 61 63 6b 6d 20 74 61 69 6c { acks ackm tail
2830: 62 69 74 73 20 62 61 63 6b 62 69 74 73 20 7d 0a bits backbits }.
2840: 20 20 20 20 61 63 6b 28 20 2e 22 20 61 63 6b 20 ack( ." ack
2850: 6c 6f 6f 70 3a 20 22 20 6f 76 65 72 20 68 65 78 loop: " over hex
2860: 2e 20 64 75 70 20 68 65 78 2e 20 66 6f 72 74 68 . dup hex. forth
2870: 3a 63 72 20 29 0a 20 20 20 20 2b 44 4f 0a 09 61 :cr ). +DO..a
2880: 63 6b 73 20 49 20 61 63 6b 6d 20 61 6e 64 20 2b cks I ackm and +
2890: 20 6c 40 0a 09 61 63 6b 73 28 20 2e 22 20 61 63 l@..acks( ." ac
28a0: 6b 73 5b 22 20 49 20 62 79 74 65 73 3e 62 69 74 ks[" I bytes>bit
28b0: 73 20 68 65 78 2e 0a 09 49 20 64 61 74 61 2d 72 s hex...I data-r
28c0: 6d 61 70 20 2e 6d 61 70 63 3a 64 61 74 61 2d 61 map .mapc:data-a
28d0: 63 6b 23 20 40 20 3d 20 49 46 20 27 2a 27 20 65 ck# @ = IF '*' e
28e0: 6d 69 74 20 54 48 45 4e 0a 09 2e 22 20 5d 3d 22 mit THEN..." ]="
28f0: 20 64 75 70 20 68 65 78 2e 20 62 61 63 6b 62 69 dup hex. backbi
2900: 74 73 20 68 65 78 2e 20 66 6f 72 74 68 3a 63 72 ts hex. forth:cr
2910: 20 29 0a 09 49 20 62 79 74 65 73 3e 62 69 74 73 )..I bytes>bits
2920: 20 74 61 69 6c 62 69 74 73 20 75 3c 20 49 46 0a tailbits u< IF.
2930: 09 20 20 20 20 2d 31 20 74 61 69 6c 62 69 74 73 . -1 tailbits
2940: 20 49 20 62 79 74 65 73 3e 62 69 74 73 20 2d 20 I bytes>bits -
2950: 6c 73 68 69 66 74 20 69 6e 76 65 72 74 20 6f 72 lshift invert or
2960: 0a 09 54 48 45 4e 0a 09 64 75 70 20 24 46 46 46 ..THEN..dup $FFF
2970: 46 46 46 46 46 20 3c 3e 20 49 46 0a 09 20 20 20 FFFFF <> IF..
2980: 20 72 65 73 65 6e 64 28 20 2e 22 20 72 65 73 65 resend( ." rese
2990: 6e 64 3a 20 22 20 64 75 70 20 68 65 78 2e 20 6f nd: " dup hex. o
29a0: 76 65 72 20 68 65 78 2e 20 66 6f 72 74 68 3a 63 ver hex. forth:c
29b0: 72 20 29 0a 09 20 20 20 20 49 20 61 63 6b 6d 20 r ).. I ackm
29c0: 61 6e 64 20 62 79 74 65 73 3e 61 64 64 72 20 75 and bytes>addr u
29d0: 6c 69 74 2c 20 24 46 46 46 46 46 46 46 46 20 78 lit, $FFFFFFFF x
29e0: 6f 72 20 75 6c 69 74 2c 20 72 65 73 65 6e 64 2d or ulit, resend-
29f0: 6d 61 73 6b 20 20 31 2b 0a 09 45 4c 53 45 0a 09 mask 1+..ELSE..
2a00: 20 20 20 20 64 72 6f 70 20 64 75 70 20 30 3d 20 drop dup 0=
2a10: 49 46 20 5c 20 69 66 20 77 65 20 64 69 64 6e 27 IF \ if we didn'
2a20: 74 20 68 61 76 65 20 61 20 72 65 73 65 6e 64 20 t have a resend
2a30: 79 65 74 2c 20 69 6e 63 72 65 61 73 65 20 64 61 yet, increase da
2a40: 74 61 2d 61 63 6b 23 0a 09 09 49 20 34 20 2b 20 ta-ack#...I 4 +
2a50: 62 79 74 65 73 3e 62 69 74 73 20 62 61 63 6b 62 bytes>bits backb
2a60: 69 74 73 20 75 3c 3d 20 49 46 20 5c 20 6e 6f 20 its u<= IF \ no
2a70: 62 61 63 6b 62 69 74 73 2c 20 70 6c 65 61 73 65 backbits, please
2a80: 0a 09 09 20 20 20 20 49 20 34 20 2b 20 64 61 74 ... I 4 + dat
2a90: 61 2d 72 6d 61 70 20 2e 6d 61 70 63 3a 64 61 74 a-rmap .mapc:dat
2aa0: 61 2d 61 63 6b 23 20 75 6d 61 78 21 0a 09 09 54 a-ack# umax!...T
2ab0: 48 45 4e 0a 09 20 20 20 20 54 48 45 4e 0a 09 54 HEN.. THEN..T
2ac0: 48 45 4e 0a 09 64 75 70 20 6d 61 78 2d 72 65 73 HEN..dup max-res
2ad0: 65 6e 64 23 20 3e 3d 20 3f 4c 45 41 56 45 20 5c end# >= ?LEAVE \
2ae0: 20 6e 6f 20 6d 6f 72 65 20 74 68 61 6e 20 78 20 no more than x
2af0: 72 65 73 65 6e 64 73 0a 20 20 20 20 34 20 2b 4c resends. 4 +L
2b00: 4f 4f 50 20 20 64 72 6f 70 20 21 72 64 61 74 61 OOP drop !rdata
2b10: 2d 74 61 69 6c 20 3b 0a 0a 3a 20 64 6f 2d 65 78 -tail ;..: do-ex
2b20: 70 65 63 74 2d 72 65 70 6c 79 20 28 20 2d 2d 20 pect-reply ( --
2b30: 29 0a 20 20 20 20 63 6d 64 62 75 66 23 20 40 20 ). cmdbuf# @
2b40: 30 3e 20 49 46 20 5c 20 74 68 65 72 65 27 73 20 0> IF \ there's
2b50: 61 63 74 75 61 6c 6c 20 73 6f 6d 65 74 68 69 6e actuall somethin
2b60: 67 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 0a g in the buffer.
2b70: 09 72 65 70 6c 79 2d 69 6e 64 65 78 20 75 6c 69 .reply-index uli
2b80: 74 2c 20 6f 6b 3f 20 20 65 6e 64 2d 63 6d 64 0a t, ok? end-cmd.
2b90: 09 6e 65 74 32 6f 3a 65 78 70 65 63 74 2d 72 65 .net2o:expect-re
2ba0: 70 6c 79 20 20 6d 61 78 64 61 74 61 20 63 6f 64 ply maxdata cod
2bb0: 65 2b 20 5c 20 64 6f 6e 27 74 20 72 65 75 73 65 e+ \ don't reuse
2bc0: 20 74 68 69 73 20 62 75 66 66 65 72 0a 20 20 20 this buffer.
2bd0: 20 54 48 45 4e 20 20 5b 27 5d 20 65 6e 64 2d 63 THEN ['] end-c
2be0: 6d 64 20 49 53 20 65 78 70 65 63 74 2d 72 65 70 md IS expect-rep
2bf0: 6c 79 3f 20 3b 0a 0a 3a 20 64 6f 2d 65 78 70 65 ly? ;..: do-expe
2c00: 63 74 2b 73 6c 75 72 70 20 28 20 2d 2d 20 29 0a ct+slurp ( -- ).
2c10: 20 20 20 20 63 6d 64 62 75 66 23 20 40 20 30 3e cmdbuf# @ 0>
2c20: 20 49 46 20 5c 20 74 68 65 72 65 27 73 20 61 63 IF \ there's ac
2c30: 74 75 61 6c 6c 20 73 6f 6d 65 74 68 69 6e 67 20 tuall something
2c40: 69 6e 20 74 68 65 20 62 75 66 66 65 72 0a 09 73 in the buffer..s
2c50: 6c 75 72 70 20 6e 65 78 74 2d 72 65 71 75 65 73 lurp next-reques
2c60: 74 20 66 69 6c 65 72 65 71 23 20 21 20 20 74 72 t filereq# ! tr
2c70: 75 65 20 64 61 74 61 2d 72 6d 61 70 20 3e 6f 20 ue data-rmap >o
2c80: 74 6f 20 6d 61 70 63 3a 64 65 73 74 2d 72 65 71 to mapc:dest-req
2c90: 20 6f 3e 0a 09 72 65 70 6c 79 2d 69 6e 64 65 78 o>..reply-index
2ca0: 20 75 6c 69 74 2c 20 6f 6b 3f 20 20 65 6e 64 2d ulit, ok? end-
2cb0: 63 6d 64 0a 09 6e 65 74 32 6f 3a 65 78 70 65 63 cmd..net2o:expec
2cc0: 74 2d 72 65 70 6c 79 20 20 6d 61 78 64 61 74 61 t-reply maxdata
2cd0: 20 63 6f 64 65 2b 20 5c 20 64 6f 6e 27 74 20 72 code+ \ don't r
2ce0: 65 75 73 65 20 74 68 69 73 20 62 75 66 66 65 72 euse this buffer
2cf0: 0a 20 20 20 20 54 48 45 4e 20 20 5b 27 5d 20 65 . THEN ['] e
2d00: 6e 64 2d 63 6d 64 20 49 53 20 65 78 70 65 63 74 nd-cmd IS expect
2d10: 2d 72 65 70 6c 79 3f 20 3b 0a 0a 3a 20 65 78 70 -reply? ;..: exp
2d20: 65 63 74 2d 72 65 70 6c 79 2d 78 74 20 28 20 78 ect-reply-xt ( x
2d30: 74 20 2d 2d 20 29 20 5c 20 63 6d 64 28 20 2e 22 t -- ) \ cmd( ."
2d40: 20 65 78 70 65 63 74 20 72 65 70 6c 79 3a 22 20 expect reply:"
2d50: 66 6f 72 74 68 3a 63 72 20 29 0a 20 20 20 20 5b forth:cr ). [
2d60: 27 5d 20 64 6f 2d 65 78 70 65 63 74 2d 72 65 70 '] do-expect-rep
2d70: 6c 79 20 49 53 20 65 78 70 65 63 74 2d 72 65 70 ly IS expect-rep
2d80: 6c 79 3f 0a 20 20 20 20 63 6d 64 2d 72 65 70 6c ly?. cmd-repl
2d90: 79 2d 78 74 20 21 20 3b 0a 0a 3a 20 65 78 70 65 y-xt ! ;..: expe
2da0: 63 74 2d 72 65 70 6c 79 20 28 20 2d 2d 20 29 0a ct-reply ( -- ).
2db0: 20 20 20 20 5b 27 5d 20 64 72 6f 70 20 65 78 70 ['] drop exp
2dc0: 65 63 74 2d 72 65 70 6c 79 2d 78 74 20 3b 0a 0a ect-reply-xt ;..
2dd0: 3a 20 65 78 70 65 63 74 2b 73 6c 75 72 70 2d 78 : expect+slurp-x
2de0: 74 20 28 20 78 74 20 2d 2d 20 29 20 5c 20 63 6d t ( xt -- ) \ cm
2df0: 64 28 20 2e 22 20 65 78 70 65 63 74 20 72 65 70 d( ." expect rep
2e00: 6c 79 3a 22 20 66 6f 72 74 68 3a 63 72 20 29 0a ly:" forth:cr ).
2e10: 20 20 20 20 5b 27 5d 20 64 6f 2d 65 78 70 65 63 ['] do-expec
2e20: 74 2b 73 6c 75 72 70 20 49 53 20 65 78 70 65 63 t+slurp IS expec
2e30: 74 2d 72 65 70 6c 79 3f 0a 20 20 20 20 63 6d 64 t-reply?. cmd
2e40: 2d 72 65 70 6c 79 2d 78 74 20 21 20 3b 0a 0a 3a -reply-xt ! ;..:
2e50: 20 65 78 70 65 63 74 2b 73 6c 75 72 70 20 28 20 expect+slurp (
2e60: 2d 2d 20 29 0a 20 20 20 20 5b 27 5d 20 64 72 6f -- ). ['] dro
2e70: 70 20 65 78 70 65 63 74 2b 73 6c 75 72 70 2d 78 p expect+slurp-x
2e80: 74 20 3b 0a 0a 55 56 61 6c 75 65 20 72 65 63 2d t ;..UValue rec-
2e90: 61 63 6b 2d 70 6f 73 23 0a 0a 3a 20 73 65 71 23 ack-pos#..: seq#
2ea0: 2c 20 28 20 2d 2d 20 29 0a 20 20 20 20 63 6d 64 , ( -- ). cmd
2eb0: 62 75 66 23 20 40 20 31 20 3d 20 49 46 0a 09 64 buf# @ 1 = IF..d
2ec0: 61 74 61 2d 72 6d 61 70 20 2e 6d 61 70 63 3a 72 ata-rmap .mapc:r
2ed0: 65 63 2d 61 63 6b 23 20 75 6c 69 74 2c 20 73 65 ec-ack# ulit, se
2ee0: 71 23 0a 09 63 6d 64 62 75 66 23 20 40 20 74 6f q#..cmdbuf# @ to
2ef0: 20 72 65 63 2d 61 63 6b 2d 70 6f 73 23 0a 20 20 rec-ack-pos#.
2f00: 20 20 54 48 45 4e 20 3b 0a 0a 3a 20 72 65 73 65 THEN ;..: rese
2f10: 6e 64 2d 61 6c 6c 20 28 20 2d 2d 20 29 0a 20 20 nd-all ( -- ).
2f20: 20 20 73 65 71 23 2c 0a 20 20 20 20 66 61 6c 73 seq#,. fals
2f30: 65 20 6e 65 74 32 6f 3a 64 6f 2d 72 65 73 65 6e e net2o:do-resen
2f40: 64 0a 20 20 20 20 61 63 6b 40 20 2e 2b 74 69 6d d. ack@ .+tim
2f50: 65 6f 75 74 73 20 72 65 73 65 6e 64 2d 61 6c 6c eouts resend-all
2f60: 2d 74 6f 20 36 34 21 20 3b 0a 0a 30 20 56 61 6c -to 64! ;..0 Val
2f70: 75 65 20 72 65 71 75 65 73 74 2d 73 74 61 74 73 ue request-stats
2f80: 3f 0a 0a 3a 20 75 70 64 61 74 65 2d 72 74 64 65 ?..: update-rtde
2f90: 6c 61 79 20 28 20 2d 2d 20 29 0a 20 20 20 20 74 lay ( -- ). t
2fa0: 69 63 6b 73 20 6c 69 74 2c 20 70 75 73 68 2d 6c icks lit, push-l
2fb0: 69 74 20 70 75 73 68 27 20 73 65 74 2d 72 74 64 it push' set-rtd
2fc0: 65 6c 61 79 20 3b 0a 0a 3a 20 64 61 74 61 2d 65 elay ;..: data-e
2fd0: 6e 64 3f 20 28 20 2d 2d 20 66 6c 61 67 20 29 0a nd? ( -- flag ).
2fe0: 20 20 20 20 30 20 64 61 74 61 2d 72 6d 61 70 20 0 data-rmap
2ff0: 2e 6d 61 70 63 3a 64 65 73 74 2d 65 6e 64 20 21 .mapc:dest-end !
3000: 40 20 3b 0a 0a 3a 20 65 78 70 65 63 74 65 64 40 @ ;..: expected@
3010: 20 28 20 2d 2d 20 68 65 61 64 20 74 6f 70 20 29 ( -- head top )
3020: 0a 20 20 20 20 6f 20 49 46 20 20 64 61 74 61 2d . o IF data-
3030: 72 6d 61 70 20 77 69 74 68 20 6d 61 70 63 0a 09 rmap with mapc..
3040: 6f 20 49 46 20 20 64 65 73 74 2d 74 61 69 6c 20 o IF dest-tail
3050: 64 65 73 74 2d 74 6f 70 0a 09 20 20 20 20 6d 73 dest-top.. ms
3060: 67 28 20 2e 22 20 65 78 70 65 63 74 65 64 3a 20 g( ." expected:
3070: 22 20 6f 76 65 72 20 68 65 78 2e 20 64 75 70 20 " over hex. dup
3080: 68 65 78 2e 20 66 6f 72 74 68 3a 63 72 20 29 0a hex. forth:cr ).
3090: 09 45 4c 53 45 20 20 23 30 2e 20 6d 73 67 28 20 .ELSE #0. msg(
30a0: 2e 22 20 65 78 70 65 63 74 65 64 3a 20 6e 6f 20 ." expected: no
30b0: 64 61 74 61 2d 72 6d 61 70 22 20 66 6f 72 74 68 data-rmap" forth
30c0: 3a 63 72 20 29 20 20 54 48 45 4e 20 65 6e 64 77 :cr ) THEN endw
30d0: 69 74 68 0a 20 20 20 20 45 4c 53 45 20 20 23 30 ith. ELSE #0
30e0: 2e 20 6d 73 67 28 20 2e 22 20 65 78 70 65 63 74 . msg( ." expect
30f0: 65 64 3a 20 6e 6f 20 6f 62 6a 65 63 74 22 20 66 ed: no object" f
3100: 6f 72 74 68 3a 63 72 20 29 20 20 54 48 45 4e 20 orth:cr ) THEN
3110: 20 3b 0a 0a 3a 20 72 65 77 69 6e 64 2d 74 72 61 ;..: rewind-tra
3120: 6e 73 66 65 72 20 28 20 2d 2d 20 66 6c 61 67 20 nsfer ( -- flag
3130: 29 0a 20 20 20 20 64 61 74 61 2d 65 6e 64 3f 20 ). data-end?
3140: 49 46 20 20 66 69 6c 65 72 65 71 23 20 40 20 6e IF filereq# @ n
3150: 65 74 32 6f 3a 72 65 71 75 65 73 74 2d 64 6f 6e et2o:request-don
3160: 65 20 20 66 61 6c 73 65 0a 09 64 61 74 61 2d 72 e false..data-r
3170: 6d 61 70 20 3e 6f 20 64 75 70 20 74 6f 20 6d 61 map >o dup to ma
3180: 70 63 3a 64 65 73 74 2d 72 65 71 20 6f 3e 0a 20 pc:dest-req o>.
3190: 20 20 20 45 4c 53 45 20 20 64 61 74 61 2d 72 6d ELSE data-rm
31a0: 61 70 20 2e 6d 61 70 63 3a 64 65 73 74 2d 72 65 ap .mapc:dest-re
31b0: 71 20 20 54 48 45 4e 20 3b 0a 0a 3a 20 72 65 71 q THEN ;..: req
31c0: 75 65 73 74 2d 73 74 61 74 73 20 20 20 66 6f 72 uest-stats for
31d0: 74 68 3a 74 72 75 65 20 74 6f 20 72 65 71 75 65 th:true to reque
31e0: 73 74 2d 73 74 61 74 73 3f 20 20 61 63 6b 20 74 st-stats? ack t
31f0: 72 61 63 6b 2d 74 69 6d 69 6e 67 20 65 6e 64 2d rack-timing end-
3200: 77 69 74 68 20 3b 0a 0a 3a 20 65 78 70 65 63 74 with ;..: expect
3210: 65 64 3f 20 28 20 2d 2d 20 66 6c 61 67 20 29 0a ed? ( -- flag ).
3220: 20 20 20 20 65 78 70 65 63 74 65 64 40 20 75 3e expected@ u>
3230: 3d 20 49 46 0a 09 65 78 70 65 63 74 2d 72 65 70 = IF..expect-rep
3240: 6c 79 0a 09 6d 73 67 28 20 2e 22 20 63 68 65 63 ly..msg( ." chec
3250: 6b 3a 20 22 20 64 61 74 61 2d 72 6d 61 70 20 77 k: " data-rmap w
3260: 69 74 68 20 6d 61 70 63 0a 09 64 65 73 74 2d 62 ith mapc..dest-b
3270: 61 63 6b 20 68 65 78 2e 20 64 65 73 74 2d 74 61 ack hex. dest-ta
3280: 69 6c 20 68 65 78 2e 20 64 65 73 74 2d 68 65 61 il hex. dest-hea
3290: 64 20 68 65 78 2e 0a 09 64 61 74 61 2d 61 63 6b d hex...data-ack
32a0: 62 69 74 73 20 40 20 64 61 74 61 2d 61 63 6b 23 bits @ data-ack#
32b0: 20 40 20 64 75 70 20 68 65 78 2e 20 2b 20 6c 40 @ dup hex. + l@
32c0: 20 68 65 78 2e 0a 09 65 6e 64 77 69 74 68 0a 09 hex...endwith..
32d0: 66 6f 72 74 68 3a 63 72 20 2e 22 20 42 6c 6f 63 forth:cr ." Bloc
32e0: 6b 20 74 72 61 6e 73 66 65 72 20 64 6f 6e 65 3a k transfer done:
32f0: 20 22 20 65 78 70 65 63 74 65 64 40 20 68 65 78 " expected@ hex
3300: 2e 20 68 65 78 2e 20 66 6f 72 74 68 3a 63 72 20 . hex. forth:cr
3310: 29 0a 09 73 65 71 23 2c 0a 09 6e 65 74 32 6f 3a )..seq#,..net2o:
3320: 73 61 76 65 26 64 6f 6e 65 20 20 6e 65 74 32 6f save&done net2o
3330: 3a 61 63 6b 2d 72 65 73 65 6e 64 23 20 20 72 65 :ack-resend# re
3340: 77 69 6e 64 20 20 72 65 77 69 6e 64 2d 74 72 61 wind rewind-tra
3350: 6e 73 66 65 72 0a 09 36 34 23 30 20 62 75 72 73 nsfer..64#0 burs
3360: 74 2d 74 69 63 6b 73 20 36 34 21 0a 20 20 20 20 t-ticks 64!.
3370: 45 4c 53 45 20 20 66 61 6c 73 65 20 20 54 48 45 ELSE false THE
3380: 4e 20 3b 0a 0a 63 65 6c 6c 20 38 20 3d 20 5b 49 N ;..cell 8 = [I
3390: 46 5d 20 36 20 5b 45 4c 53 45 5d 20 35 20 5b 54 F] 6 [ELSE] 5 [T
33a0: 48 45 4e 5d 20 43 6f 6e 73 74 61 6e 74 20 63 65 HEN] Constant ce
33b0: 6c 6c 3e 3e 0a 0a 43 72 65 61 74 65 20 6e 6f 2d ll>>..Create no-
33c0: 72 65 73 65 6e 64 23 20 62 75 72 73 74 73 23 20 resend# bursts#
33d0: 34 20 2a 20 30 20 5b 44 4f 5d 20 2d 31 20 63 2c 4 * 0 [DO] -1 c,
33e0: 20 5b 4c 4f 4f 50 5d 0a 0a 73 63 6f 70 65 7b 20 [LOOP]..scope{
33f0: 6d 61 70 63 0a 0a 3a 20 2b 72 65 73 65 6e 64 23 mapc..: +resend#
3400: 20 28 20 62 69 74 20 2d 2d 20 29 20 3e 72 0a 20 ( bit -- ) >r.
3410: 20 20 20 64 65 73 74 2d 61 64 64 72 20 36 34 40 dest-addr 64@
3420: 20 36 34 3e 6e 20 5b 20 6d 69 6e 2d 73 69 7a 65 64>n [ min-size
3430: 20 31 2d 20 5d 4c 20 61 6e 64 0a 20 20 20 20 72 1- ]L and. r
3440: 40 20 5b 20 62 75 72 73 74 73 23 20 34 20 2a 20 @ [ bursts# 4 *
3450: 31 2d 20 5d 4c 20 61 6e 64 0a 20 20 20 20 72 3e 1- ]L and. r>
3460: 20 5b 20 62 75 72 73 74 73 23 20 2d 34 20 2a 20 [ bursts# -4 *
3470: 5d 4c 20 61 6e 64 20 5c 20 6f 6e 65 20 62 6c 6f ]L and \ one blo
3480: 63 6b 20 70 65 72 20 62 75 72 73 74 0a 20 20 20 ck per burst.
3490: 20 64 61 74 61 2d 72 65 73 65 6e 64 23 2d 62 75 data-resend#-bu
34a0: 66 20 24 5b 5d 23 20 30 20 3f 44 4f 0a 09 64 75 f $[]# 0 ?DO..du
34b0: 70 20 49 20 64 61 74 61 2d 72 65 73 65 6e 64 23 p I data-resend#
34c0: 2d 62 75 66 20 24 5b 5d 40 20 64 72 6f 70 20 40 -buf $[]@ drop @
34d0: 20 3d 20 49 46 0a 09 20 20 20 20 64 72 6f 70 20 = IF.. drop
34e0: 49 20 64 61 74 61 2d 72 65 73 65 6e 64 23 2d 62 I data-resend#-b
34f0: 75 66 20 24 5b 5d 40 20 64 72 6f 70 20 63 65 6c uf $[]@ drop cel
3500: 6c 2b 20 2b 20 63 21 0a 09 20 20 20 20 55 4e 4c l+ + c!.. UNL
3510: 4f 4f 50 20 20 45 58 49 54 20 20 54 48 45 4e 0a OOP EXIT THEN.
3520: 20 20 20 20 4c 4f 4f 50 0a 20 20 20 20 64 61 74 LOOP. dat
3530: 61 2d 72 65 73 65 6e 64 23 2d 62 75 66 20 24 5b a-resend#-buf $[
3540: 5d 23 20 7b 20 77 5e 20 62 75 72 73 74 62 6c 6f ]# { w^ burstblo
3550: 63 6b 20 6e 20 7d 0a 20 20 20 20 62 75 72 73 74 ck n }. burst
3560: 62 6c 6f 63 6b 20 63 65 6c 6c 20 64 61 74 61 2d block cell data-
3570: 72 65 73 65 6e 64 23 2d 62 75 66 20 24 2b 5b 5d resend#-buf $+[]
3580: 21 0a 20 20 20 20 6e 6f 2d 72 65 73 65 6e 64 23 !. no-resend#
3590: 20 5b 20 62 75 72 73 74 73 23 20 34 20 2a 20 5d [ bursts# 4 * ]
35a0: 4c 20 6e 20 64 61 74 61 2d 72 65 73 65 6e 64 23 L n data-resend#
35b0: 2d 62 75 66 20 24 5b 5d 2b 21 0a 20 20 20 20 6e -buf $[]+!. n
35c0: 20 64 61 74 61 2d 72 65 73 65 6e 64 23 2d 62 75 data-resend#-bu
35d0: 66 20 24 5b 5d 40 20 64 72 6f 70 20 63 65 6c 6c f $[]@ drop cell
35e0: 2b 20 2b 20 63 21 20 3b 0a 0a 7d 73 63 6f 70 65 + + c! ;..}scope
35f0: 0a 0a 3a 20 2b 63 6f 6f 6b 69 65 20 28 20 2d 2d ..: +cookie ( --
3600: 20 29 0a 20 20 20 20 64 61 74 61 2d 72 6d 61 70 ). data-rmap
3610: 20 77 69 74 68 20 6d 61 70 63 20 20 61 63 6b 2d with mapc ack-
3620: 62 69 74 23 20 40 20 3e 72 20 20 72 40 20 2b 72 bit# @ >r r@ +r
3630: 65 73 65 6e 64 23 0a 20 20 20 20 64 61 74 61 2d esend#. data-
3640: 61 63 6b 62 69 74 73 20 40 20 72 3e 20 2b 62 69 ackbits @ r> +bi
3650: 74 40 0a 20 20 20 20 65 6e 64 77 69 74 68 20 6e t@. endwith n
3660: 65 67 61 74 65 20 70 61 63 6b 65 74 72 32 20 2b egate packetr2 +
3670: 21 20 3b 0a 0a 3a 20 72 65 73 65 6e 64 2d 61 6c ! ;..: resend-al
3680: 6c 3f 20 28 20 2d 2d 20 66 6c 61 67 20 29 0a 20 l? ( -- flag ).
3690: 20 20 20 64 61 74 61 2d 72 6d 61 70 20 77 69 74 data-rmap wit
36a0: 68 20 6d 61 70 63 0a 20 20 20 20 61 63 6b 2d 61 h mapc. ack-a
36b0: 64 76 61 6e 63 65 3f 20 20 64 65 73 74 2d 68 65 dvance? dest-he
36c0: 61 64 20 64 65 73 74 2d 74 6f 70 20 75 3e 3d 20 ad dest-top u>=
36d0: 20 61 6e 64 20 65 6e 64 77 69 74 68 0a 20 20 20 and endwith.
36e0: 20 74 69 63 6b 65 72 20 36 34 40 20 72 65 73 65 ticker 64@ rese
36f0: 6e 64 2d 61 6c 6c 2d 74 6f 20 36 34 40 20 36 34 nd-all-to 64@ 64
3700: 75 3e 3d 20 61 6e 64 0a 20 20 20 20 74 69 6d 65 u>= and. time
3710: 6f 75 74 28 20 64 75 70 20 49 46 20 20 2e 22 20 out( dup IF ."
3720: 72 65 73 65 6e 64 20 61 6c 6c 22 20 66 6f 72 74 resend all" fort
3730: 68 3a 63 72 20 20 54 48 45 4e 20 29 20 3b 0a 0a h:cr THEN ) ;..
3740: 3a 20 2b 65 78 70 65 63 74 65 64 20 28 20 2d 2d : +expected ( --
3750: 20 66 6c 61 67 20 29 0a 20 20 20 20 72 65 73 65 flag ). rese
3760: 6e 64 2d 61 6c 6c 3f 20 20 49 46 20 20 20 72 65 nd-all? IF re
3770: 73 65 6e 64 2d 61 6c 6c 20 20 54 48 45 4e 20 20 send-all THEN
3780: 65 78 70 65 63 74 65 64 3f 20 3b 0a 0a 5c 20 68 expected? ;..\ h
3790: 69 67 68 65 72 20 6c 65 76 65 6c 20 66 75 6e 63 igher level func
37a0: 74 69 6f 6e 73 0a 0a 3a 20 6d 61 70 2d 72 65 71 tions..: map-req
37b0: 75 65 73 74 2c 20 28 20 75 63 6f 64 65 20 75 64 uest, ( ucode ud
37c0: 61 74 61 20 2d 2d 20 29 0a 20 20 20 20 6e 65 74 ata -- ). net
37d0: 32 6f 3a 6e 65 77 2d 6d 61 70 20 6c 69 74 2c 20 2o:new-map lit,
37e0: 73 77 61 70 20 75 6c 69 74 2c 20 75 6c 69 74 2c swap ulit, ulit,
37f0: 20 6d 61 70 2d 72 65 71 75 65 73 74 20 3b 0a 0a map-request ;..
3800: 61 6c 73 6f 20 6e 65 74 32 6f 2d 62 61 73 65 0a also net2o-base.
3810: 3a 20 6e 61 74 2d 70 75 6e 63 68 20 28 20 6f 3a : nat-punch ( o:
3820: 63 6f 6e 6e 65 63 74 69 6f 6e 20 2d 2d 20 29 0a connection -- ).
3830: 20 20 20 20 70 69 6e 67 73 20 6e 65 77 2d 72 65 pings new-re
3840: 71 75 65 73 74 20 66 61 6c 73 65 20 67 65 6e 2d quest false gen-
3850: 70 75 6e 63 68 6c 6f 61 64 20 67 65 6e 2d 70 75 punchload gen-pu
3860: 6e 63 68 20 3b 0a 70 72 65 76 69 6f 75 73 0a 0a nch ;.previous..
3870: 3a 20 70 75 6e 63 68 2d 72 65 70 6c 79 20 28 20 : punch-reply (
3880: 61 64 64 72 20 75 20 2d 2d 20 29 0a 20 20 20 20 addr u -- ).
3890: 6f 75 74 66 6c 61 67 20 40 20 3e 72 20 20 63 6d outflag @ >r cm
38a0: 64 62 75 66 2d 6f 20 40 20 3e 72 0a 20 20 20 20 dbuf-o @ >r.
38b0: 5b 3a 20 63 6d 64 30 21 20 63 6d 64 72 65 73 65 [: cmd0! cmdrese
38c0: 74 20 69 6e 69 74 2d 72 65 70 6c 79 20 61 6c 73 t init-reply als
38d0: 6f 20 6e 65 74 32 6f 2d 62 61 73 65 0a 20 20 20 o net2o-base.
38e0: 20 20 20 5b 20 61 6c 73 6f 20 6e 65 74 32 6f 2d [ also net2o-
38f0: 62 61 73 65 20 5d 0a 20 20 20 20 20 20 24 2c 20 base ]. $,
3900: 6e 65 73 74 20 65 6e 64 2d 63 6f 64 65 20 3b 5d nest end-code ;]
3910: 20 63 61 74 63 68 0a 20 20 20 20 72 3e 20 63 6d catch. r> cm
3920: 64 62 75 66 2d 6f 20 21 20 20 72 3e 20 6f 75 74 dbuf-o ! r> out
3930: 66 6c 61 67 20 21 20 20 74 68 72 6f 77 20 3b 0a flag ! throw ;.
3940: 0a 3a 20 30 2d 72 65 73 65 6e 64 3f 20 28 20 2d .: 0-resend? ( -
3950: 2d 20 6e 20 29 0a 20 20 20 20 72 65 73 65 6e 64 - n ). resend
3960: 30 20 40 20 49 46 0a 09 5c 20 2e 22 20 52 65 73 0 @ IF..\ ." Res
3970: 65 6e 64 20 74 6f 20 30 22 20 63 72 0a 09 63 6d end to 0" cr..cm
3980: 64 30 21 0a 09 5b 3a 0a 09 20 20 72 65 73 65 6e d0!..[:.. resen
3990: 64 28 20 2e 22 20 72 65 73 65 6e 64 30 3a 20 22 d( ." resend0: "
39a0: 20 72 65 73 65 6e 64 30 20 24 40 20 6e 65 74 32 resend0 $@ net2
39b0: 6f 3a 73 65 65 20 66 6f 72 74 68 3a 63 72 20 29 o:see forth:cr )
39c0: 0a 09 20 20 6d 73 67 28 20 2e 22 20 72 65 73 65 .. msg( ." rese
39d0: 6e 64 30 3a 20 22 20 72 65 73 65 6e 64 30 20 24 nd0: " resend0 $
39e0: 40 20 73 77 61 70 20 68 65 78 2e 20 68 65 78 2e @ swap hex. hex.
39f0: 20 66 6f 72 74 68 3a 63 72 20 29 0a 09 20 20 63 forth:cr ).. c
3a00: 6d 64 72 65 73 65 74 20 69 6e 69 74 2d 72 65 70 mdreset init-rep
3a10: 6c 79 20 72 65 73 65 6e 64 30 20 24 40 20 2b 63 ly resend0 $@ +c
3a20: 6d 64 62 75 66 0a 09 20 20 72 30 2d 61 64 64 72 mdbuf.. r0-addr
3a30: 65 73 73 20 72 65 74 75 72 6e 2d 61 64 64 72 20 ess return-addr
3a40: 24 31 30 20 6d 6f 76 65 0a 09 20 20 63 6d 64 62 $10 move.. cmdb
3a50: 75 66 24 20 72 6e 67 36 34 20 73 65 6e 64 2d 63 uf$ rng64 send-c
3a60: 6d 64 20 64 72 6f 70 0a 09 20 20 31 20 70 61 63 md drop.. 1 pac
3a70: 6b 65 74 73 32 20 2b 21 20 3b 5d 0a 09 63 6d 64 kets2 +! ;]..cmd
3a80: 6c 6f 63 6b 20 63 2d 73 65 63 74 69 6f 6e 20 20 lock c-section
3a90: 31 0a 20 20 20 20 45 4c 53 45 20 20 30 20 20 54 1. ELSE 0 T
3aa0: 48 45 4e 20 3b 0a 0a 3a 20 6d 61 70 2d 72 65 73 HEN ;..: map-res
3ab0: 65 6e 64 3f 20 28 20 2d 2d 20 6e 20 29 0a 20 20 end? ( -- n ).
3ac0: 20 20 63 6f 64 65 2d 6d 61 70 20 3f 64 75 70 2d code-map ?dup-
3ad0: 49 46 20 20 77 69 74 68 20 6d 61 70 63 20 30 20 IF with mapc 0
3ae0: 20 6f 75 74 66 6c 61 67 20 6f 66 66 0a 09 64 65 outflag off..de
3af0: 73 74 2d 72 65 70 6c 69 65 73 0a 09 64 65 73 74 st-replies..dest
3b00: 2d 73 69 7a 65 20 61 64 64 72 3e 72 65 70 6c 69 -size addr>repli
3b10: 65 73 20 62 6f 75 6e 64 73 20 65 6e 64 77 69 74 es bounds endwit
3b20: 68 20 55 2b 44 4f 0a 09 20 20 20 20 49 20 61 63 h U+DO.. I ac
3b30: 74 69 6f 6e 2d 6f 66 20 72 65 70 6c 79 2d 78 74 tion-of reply-xt
3b40: 20 49 46 0a 09 09 74 69 6d 65 6f 75 74 28 20 2e IF...timeout( .
3b50: 22 20 72 65 73 65 6e 64 3a 20 22 20 49 20 61 63 " resend: " I ac
3b60: 74 69 6f 6e 2d 6f 66 20 72 65 70 6c 79 2d 78 74 tion-of reply-xt
3b70: 20 2e 6e 61 6d 65 20 66 6f 72 74 68 3a 63 72 20 .name forth:cr
3b80: 29 0a 09 09 72 65 73 65 6e 64 28 20 2e 22 20 72 )...resend( ." r
3b90: 65 73 65 6e 64 3a 20 22 20 49 20 72 65 70 6c 79 esend: " I reply
3ba0: 2d 64 65 73 74 20 36 34 40 20 78 36 34 2e 20 49 -dest 64@ x64. I
3bb0: 20 32 40 20 6e 65 74 32 6f 3a 73 65 65 20 66 6f 2@ net2o:see fo
3bc0: 72 74 68 3a 63 72 20 29 0a 09 09 6d 73 67 28 20 rth:cr )...msg(
3bd0: 2e 22 20 72 65 73 65 6e 64 3a 20 22 20 49 20 72 ." resend: " I r
3be0: 65 70 6c 79 2d 64 65 73 74 20 36 34 40 20 78 36 eply-dest 64@ x6
3bf0: 34 2e 20 49 20 32 40 20 73 77 61 70 20 68 65 78 4. I 2@ swap hex
3c00: 2e 20 68 65 78 2e 20 66 6f 72 74 68 3a 63 72 20 . hex. forth:cr
3c10: 29 0a 09 09 74 69 63 6b 73 20 49 20 72 65 70 6c )...ticks I repl
3c20: 79 2d 74 69 6d 65 20 36 34 21 0a 09 09 49 20 32 y-time 64!...I 2
3c30: 40 20 49 20 72 65 70 6c 79 2d 64 65 73 74 20 36 @ I reply-dest 6
3c40: 34 40 20 73 65 6e 64 2d 63 6d 64 20 64 72 6f 70 4@ send-cmd drop
3c50: 0a 09 09 31 20 70 61 63 6b 65 74 73 32 20 2b 21 ...1 packets2 +!
3c60: 20 31 2b 0a 09 20 20 20 20 54 48 45 4e 0a 09 72 1+.. THEN..r
3c70: 65 70 6c 79 20 2b 4c 4f 4f 50 0a 20 20 20 20 45 eply +LOOP. E
3c80: 4c 53 45 20 20 30 20 20 54 48 45 4e 20 3b 0a 0a LSE 0 THEN ;..
3c90: 3a 20 63 6d 64 2d 72 65 73 65 6e 64 3f 20 28 20 : cmd-resend? (
3ca0: 2d 2d 20 6e 20 29 0a 20 20 20 20 30 2d 72 65 73 -- n ). 0-res
3cb0: 65 6e 64 3f 20 6d 61 70 2d 72 65 73 65 6e 64 3f end? map-resend?
3cc0: 0a 20 20 20 20 74 69 6d 65 6f 75 74 28 20 32 64 . timeout( 2d
3cd0: 75 70 20 64 30 3c 3e 20 49 46 20 2e 22 20 72 65 up d0<> IF ." re
3ce0: 73 65 6e 64 20 22 20 6f 76 65 72 20 2e 20 64 75 send " over . du
3cf0: 70 20 2e 20 2e 22 20 63 6f 6d 6d 61 6e 64 73 20 p . ." commands
3d00: 30 2f 6d 61 70 22 20 63 72 20 54 48 45 4e 20 29 0/map" cr THEN )
3d10: 20 2b 20 3b 0a 0a 3a 20 2e 65 78 70 65 63 74 65 + ;..: .expecte
3d20: 64 20 28 20 2d 2d 20 29 0a 20 20 20 20 66 6f 72 d ( -- ). for
3d30: 74 68 3a 2e 74 69 6d 65 20 2e 22 20 65 78 70 65 th:.time ." expe
3d40: 63 74 65 64 2f 72 65 63 65 69 76 65 64 3a 20 22 cted/received: "
3d50: 20 72 65 63 76 2d 61 64 64 72 20 40 20 68 65 78 recv-addr @ hex
3d60: 2e 0a 20 20 20 20 64 61 74 61 2d 72 6d 61 70 20 .. data-rmap
3d70: 2e 6d 61 70 63 3a 64 61 74 61 2d 61 63 6b 23 20 .mapc:data-ack#
3d80: 40 20 68 65 78 2e 0a 20 20 20 20 65 78 70 65 63 @ hex.. expec
3d90: 74 65 64 40 20 68 65 78 2e 20 68 65 78 2e 20 66 ted@ hex. hex. f
3da0: 6f 72 74 68 3a 63 72 20 3b 0a 0a 5c 20 61 63 6b orth:cr ;..\ ack
3db0: 6e 6f 77 6c 65 64 67 65 20 74 6f 70 6c 65 76 65 nowledge topleve
3dc0: 6c 0a 0a 69 6e 20 6e 65 74 32 6f 20 3a 20 61 63 l..in net2o : ac
3dd0: 6b 2d 63 6f 64 65 20 28 20 61 63 6b 66 6c 61 67 k-code ( ackflag
3de0: 20 2d 2d 20 61 63 6b 66 6c 61 67 20 29 20 20 3e -- ackflag ) >
3df0: 72 0a 20 20 20 20 66 61 6c 73 65 20 64 75 70 20 r. false dup
3e00: 7b 20 73 6c 75 72 70 3f 20 73 74 61 74 73 3f 20 { slurp? stats?
3e10: 7d 0a 20 20 20 20 6e 65 74 32 6f 2d 63 6f 64 65 }. net2o-code
3e20: 0a 20 20 20 20 61 63 6b 20 65 78 70 65 63 74 2d . ack expect-
3e30: 72 65 70 6c 79 20 20 31 20 74 6f 20 72 65 63 2d reply 1 to rec-
3e40: 61 63 6b 2d 70 6f 73 23 0a 20 20 20 20 61 63 6b ack-pos#. ack
3e50: 28 20 2e 22 20 61 63 6b 3a 20 22 20 72 40 20 68 ( ." ack: " r@ h
3e60: 65 78 2e 20 66 6f 72 74 68 3a 63 72 20 29 0a 20 ex. forth:cr ).
3e70: 20 20 20 72 40 20 61 63 6b 2d 74 6f 67 67 6c 65 r@ ack-toggle
3e80: 23 20 61 6e 64 20 49 46 0a 09 73 65 71 23 2c 0a # and IF..seq#,.
3e90: 09 6e 65 74 32 6f 3a 67 65 6e 2d 72 65 73 65 6e .net2o:gen-resen
3ea0: 64 20 20 6e 65 74 32 6f 3a 67 65 6e 61 63 6b 0a d net2o:genack.
3eb0: 09 72 40 20 72 65 73 65 6e 64 2d 74 6f 67 67 6c .r@ resend-toggl
3ec0: 65 23 20 61 6e 64 20 49 46 0a 09 20 20 20 20 61 e# and IF.. a
3ed0: 63 6b 28 20 2e 22 20 61 63 6b 3a 20 64 6f 2d 72 ck( ." ack: do-r
3ee0: 65 73 65 6e 64 22 20 66 6f 72 74 68 3a 63 72 20 esend" forth:cr
3ef0: 29 0a 09 20 20 20 20 74 72 75 65 20 6e 65 74 32 ).. true net2
3f00: 6f 3a 64 6f 2d 72 65 73 65 6e 64 0a 09 54 48 45 o:do-resend..THE
3f10: 4e 0a 09 30 20 64 61 74 61 2d 72 6d 61 70 20 2e N..0 data-rmap .
3f20: 6d 61 70 63 3a 64 6f 2d 73 6c 75 72 70 20 21 40 mapc:do-slurp !@
3f30: 0a 09 3f 64 75 70 2d 49 46 20 20 75 6c 69 74 2c ..?dup-IF ulit,
3f40: 20 61 63 6b 2d 66 6c 75 73 68 0a 09 20 20 20 20 ack-flush..
3f50: 72 65 71 75 65 73 74 2d 73 74 61 74 73 3f 20 74 request-stats? t
3f60: 6f 20 73 74 61 74 73 3f 20 20 74 72 75 65 20 74 o stats? true t
3f70: 6f 20 73 6c 75 72 70 3f 20 20 54 48 45 4e 0a 20 o slurp? THEN.
3f80: 20 20 20 54 48 45 4e 20 20 2b 65 78 70 65 63 74 THEN +expect
3f90: 65 64 0a 20 20 20 20 73 6c 75 72 70 3f 20 6f 72 ed. slurp? or
3fa0: 20 74 6f 20 73 6c 75 72 70 3f 0a 20 20 20 20 73 to slurp?. s
3fb0: 74 61 74 73 3f 20 49 46 20 20 73 65 6e 64 2d 74 tats? IF send-t
3fc0: 69 6d 69 6e 67 20 20 54 48 45 4e 0a 20 20 20 20 iming THEN.
3fd0: 65 6e 64 2d 77 69 74 68 20 20 63 6d 64 62 75 66 end-with cmdbuf
3fe0: 23 20 40 20 72 65 63 2d 61 63 6b 2d 70 6f 73 23 # @ rec-ack-pos#
3ff0: 20 31 2b 20 73 74 61 74 73 3f 20 2d 20 3d 20 49 1+ stats? - = I
4000: 46 20 20 63 6d 64 62 75 66 23 20 6f 66 66 0a 20 F cmdbuf# off.
4010: 20 20 20 45 4c 53 45 20 20 31 20 64 61 74 61 2d ELSE 1 data-
4020: 72 6d 61 70 20 77 69 74 68 20 6d 61 70 63 20 2b rmap with mapc +
4030: 74 6f 20 72 65 63 2d 61 63 6b 23 20 65 6e 64 77 to rec-ack# endw
4040: 69 74 68 20 20 54 48 45 4e 0a 20 20 20 20 73 6c ith THEN. sl
4050: 75 72 70 3f 20 49 46 20 20 73 6c 75 72 70 20 20 urp? IF slurp
4060: 54 48 45 4e 0a 20 20 20 20 65 6e 64 2d 63 6f 64 THEN. end-cod
4070: 65 20 72 3e 20 28 20 64 75 70 20 61 63 6b 2d 74 e r> ( dup ack-t
4080: 6f 67 67 6c 65 23 20 61 6e 64 20 49 46 20 20 6d oggle# and IF m
4090: 61 70 2d 72 65 73 65 6e 64 3f 20 20 54 48 45 4e ap-resend? THEN
40a0: 20 29 20 3b 0a 0a 69 6e 20 6e 65 74 32 6f 20 3a ) ;..in net2o :
40b0: 20 64 6f 2d 61 63 6b 2d 72 65 73 74 20 28 20 61 do-ack-rest ( a
40c0: 63 6b 66 6c 61 67 20 2d 2d 20 29 0a 20 20 20 20 ckflag -- ).
40d0: 64 75 70 20 72 65 73 65 6e 64 2d 74 6f 67 67 6c dup resend-toggl
40e0: 65 23 20 61 6e 64 20 49 46 0a 09 63 6d 64 2d 72 e# and IF..cmd-r
40f0: 65 73 65 6e 64 3f 20 64 72 6f 70 0a 20 20 20 20 esend? drop.
4100: 54 48 45 4e 0a 20 20 20 20 61 63 6b 73 23 20 61 THEN. acks# a
4110: 6e 64 20 64 61 74 61 2d 72 6d 61 70 20 2e 6d 61 nd data-rmap .ma
4120: 70 63 3a 61 63 6b 2d 61 64 76 61 6e 63 65 3f 0a pc:ack-advance?.
4130: 20 20 20 20 49 46 20 20 6e 65 74 32 6f 3a 61 63 IF net2o:ac
4140: 6b 2d 63 6f 64 65 20 20 54 48 45 4e 20 20 61 63 k-code THEN ac
4150: 6b 2d 74 69 6d 69 6e 67 20 3b 0a 0a 69 6e 20 6e k-timing ;..in n
4160: 65 74 32 6f 20 3a 20 64 6f 2d 61 63 6b 20 28 20 et2o : do-ack (
4170: 2d 2d 20 29 0a 20 20 20 20 64 65 73 74 2d 61 64 -- ). dest-ad
4180: 64 72 20 36 34 40 20 72 65 63 76 2d 61 64 64 72 dr 64@ recv-addr
4190: 20 36 34 21 20 20 2b 63 6f 6f 6b 69 65 20 5c 20 64! +cookie \
41a0: 6c 61 73 74 20 72 65 63 65 69 76 65 64 20 70 61 last received pa
41b0: 63 6b 65 74 0a 20 20 20 20 69 6e 62 75 66 20 31 cket. inbuf 1
41c0: 2b 20 63 40 20 61 63 6b 2d 72 65 63 65 69 76 65 + c@ ack-receive
41d0: 20 6f 76 65 72 20 74 6f 20 61 63 6b 2d 72 65 63 over to ack-rec
41e0: 65 69 76 65 20 78 6f 72 0a 20 20 20 20 2b 74 69 eive xor. +ti
41f0: 6d 65 6f 75 74 30 20 72 65 73 65 6e 64 2d 61 6c meout0 resend-al
4200: 6c 2d 74 6f 20 36 34 21 0a 20 20 20 20 6e 65 74 l-to 64!. net
4210: 32 6f 3a 64 6f 2d 61 63 6b 2d 72 65 73 74 20 3b 2o:do-ack-rest ;
4220: 0a 0a 3a 20 2b 66 6c 6f 77 2d 63 6f 6e 74 72 6f ..: +flow-contro
4230: 6c 20 5b 27 5d 20 6e 65 74 32 6f 3a 64 6f 2d 61 l ['] net2o:do-a
4240: 63 6b 20 69 73 20 61 63 6b 2d 78 74 20 3b 0a 0a ck is ack-xt ;..
4250: 5c 20 6b 65 65 70 61 6c 69 76 65 0a 0a 61 6c 73 \ keepalive..als
4260: 6f 20 6e 65 74 32 6f 2d 62 61 73 65 0a 3a 20 2e o net2o-base.: .
4270: 6b 65 65 70 61 6c 69 76 65 20 28 20 2d 2d 20 29 keepalive ( -- )
4280: 20 20 2e 22 20 74 72 61 6e 73 66 65 72 20 6b 65 ." transfer ke
4290: 65 70 61 6c 69 76 65 20 65 2f 65 20 68 20 74 20 epalive e/e h t
42a0: 62 20 22 20 65 78 70 65 63 74 65 64 40 20 68 65 b " expected@ he
42b0: 78 2e 20 68 65 78 2e 0a 20 20 20 20 64 61 74 61 x. hex.. data
42c0: 2d 72 6d 61 70 20 77 69 74 68 20 6d 61 70 63 20 -rmap with mapc
42d0: 20 64 65 73 74 2d 68 65 61 64 20 68 65 78 2e 20 dest-head hex.
42e0: 64 65 73 74 2d 74 61 69 6c 20 68 65 78 2e 20 64 dest-tail hex. d
42f0: 65 73 74 2d 62 61 63 6b 20 68 65 78 2e 0a 20 20 est-back hex..
4300: 20 20 64 61 74 61 2d 61 63 6b 62 69 74 73 20 40 data-ackbits @
4310: 20 64 65 73 74 2d 73 69 7a 65 20 61 64 64 72 3e dest-size addr>
4320: 62 79 74 65 73 20 64 75 6d 70 0a 20 20 20 20 65 bytes dump. e
4330: 6e 64 77 69 74 68 0a 20 20 20 20 66 6f 72 74 68 ndwith. forth
4340: 3a 63 72 20 3b 0a 3a 20 74 72 61 6e 73 66 65 72 :cr ;.: transfer
4350: 2d 6b 65 65 70 61 6c 69 76 65 3f 20 28 20 2d 2d -keepalive? ( --
4360: 20 66 6c 61 67 20 29 0a 20 20 20 20 6f 20 74 6f flag ). o to
4370: 20 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 connection.
4380: 74 69 6d 65 6f 75 74 28 20 2e 6b 65 65 70 61 6c timeout( .keepal
4390: 69 76 65 20 29 0a 20 20 20 20 64 61 74 61 2d 72 ive ). data-r
43a0: 6d 61 70 20 77 69 74 68 20 6d 61 70 63 20 64 65 map with mapc de
43b0: 73 74 2d 72 65 71 20 64 75 70 20 61 63 6b 2d 61 st-req dup ack-a
43c0: 64 76 61 6e 63 65 3f 20 6f 72 20 74 6f 20 61 63 dvance? or to ac
43d0: 6b 2d 61 64 76 61 6e 63 65 3f 20 65 6e 64 77 69 k-advance? endwi
43e0: 74 68 0a 20 20 20 20 64 75 70 20 49 46 0a 09 21 th. dup IF..!
43f0: 74 69 63 6b 73 20 74 69 63 6b 65 72 20 36 34 40 ticks ticker 64@
4400: 20 72 65 73 65 6e 64 2d 61 6c 6c 2d 74 6f 20 36 resend-all-to 6
4410: 34 21 0a 09 5b 20 61 63 6b 2d 74 6f 67 67 6c 65 4!..[ ack-toggle
4420: 23 20 72 65 73 65 6e 64 2d 74 6f 67 67 6c 65 23 # resend-toggle#
4430: 20 6f 72 20 5d 4c 20 6e 65 74 32 6f 3a 64 6f 2d or ]L net2o:do-
4440: 61 63 6b 2d 72 65 73 74 20 20 54 48 45 4e 20 3b ack-rest THEN ;
4450: 0a 70 72 65 76 69 6f 75 73 0a 0a 3a 20 63 6d 64 .previous..: cmd
4460: 2d 74 69 6d 65 6f 75 74 20 28 20 2d 2d 20 29 20 -timeout ( -- )
4470: 20 3e 6e 65 78 74 2d 74 69 6d 65 6f 75 74 20 63 >next-timeout c
4480: 6d 64 2d 72 65 73 65 6e 64 3f 0a 20 20 20 20 49 md-resend?. I
4490: 46 20 20 70 75 73 68 2d 74 69 6d 65 6f 75 74 20 F push-timeout
44a0: 20 45 4c 53 45 20 20 61 63 6b 40 20 2e 74 69 6d ELSE ack@ .tim
44b0: 65 6f 75 74 73 20 6f 66 66 20 20 54 48 45 4e 20 eouts off THEN
44c0: 3b 0a 3a 20 63 6f 6e 6e 65 63 74 65 64 2d 74 69 ;.: connected-ti
44d0: 6d 65 6f 75 74 20 28 20 2d 2d 20 29 20 74 69 6d meout ( -- ) tim
44e0: 65 6f 75 74 28 20 2e 22 20 63 6f 6e 6e 65 63 74 eout( ." connect
44f0: 65 64 20 74 69 6d 65 6f 75 74 20 22 20 61 63 6b ed timeout " ack
4500: 40 20 3e 6f 20 72 74 64 65 6c 61 79 20 36 34 40 @ >o rtdelay 64@
4510: 20 75 36 34 2e 20 74 69 6d 65 6f 75 74 73 20 3f u64. timeouts ?
4520: 20 6f 3e 20 66 6f 72 74 68 3a 63 72 20 29 0a 20 o> forth:cr ).
4530: 20 20 20 3e 6e 65 78 74 2d 74 69 6d 65 6f 75 74 >next-timeout
4540: 20 63 6d 64 2d 72 65 73 65 6e 64 3f 0a 20 20 20 cmd-resend?.
4550: 20 49 46 0a 09 70 75 73 68 2d 74 69 6d 65 6f 75 IF..push-timeou
4560: 74 0a 20 20 20 20 45 4c 53 45 0a 09 74 72 61 6e t. ELSE..tran
4570: 73 66 65 72 2d 6b 65 65 70 61 6c 69 76 65 3f 20 sfer-keepalive?
4580: 30 3d 0a 09 49 46 20 20 61 63 6b 40 20 2e 74 69 0=..IF ack@ .ti
4590: 6d 65 6f 75 74 73 20 6f 66 66 20 20 45 4c 53 45 meouts off ELSE
45a0: 20 20 70 75 73 68 2d 74 69 6d 65 6f 75 74 20 20 push-timeout
45b0: 54 48 45 4e 0a 20 20 20 20 54 48 45 4e 20 3b 0a THEN. THEN ;.
45c0: 0a 5c 20 3a 20 2b 63 6f 6e 6e 65 63 74 69 6e 67 .\ : +connecting
45d0: 20 20 20 5b 27 5d 20 63 6f 6e 6e 65 63 74 69 6e ['] connectin
45e0: 67 2d 74 69 6d 65 6f 75 74 20 69 73 20 74 69 6d g-timeout is tim
45f0: 65 6f 75 74 2d 78 74 20 3b 0a 3a 20 2b 72 65 73 eout-xt ;.: +res
4600: 65 6e 64 20 28 20 2d 2d 20 29 20 72 65 73 65 6e end ( -- ) resen
4610: 64 28 20 2e 22 20 2b 72 65 73 65 6e 64 22 20 63 d( ." +resend" c
4620: 72 20 29 0a 20 20 20 20 5b 27 5d 20 63 6f 6e 6e r ). ['] conn
4630: 65 63 74 65 64 2d 74 69 6d 65 6f 75 74 20 20 69 ected-timeout i
4640: 73 20 74 69 6d 65 6f 75 74 2d 78 74 20 6f 2b 74 s timeout-xt o+t
4650: 69 6d 65 6f 75 74 0a 20 20 20 20 36 34 23 30 20 imeout. 64#0
4660: 72 65 73 65 6e 64 2d 61 6c 6c 2d 74 6f 20 36 34 resend-all-to 64
4670: 21 20 3b 0a 3a 20 2b 72 65 73 65 6e 64 2d 63 6d ! ;.: +resend-cm
4680: 64 20 28 20 2d 2d 20 29 20 72 65 73 65 6e 64 28 d ( -- ) resend(
4690: 20 2e 22 20 2b 72 65 73 65 6e 64 2d 63 6d 64 22 ." +resend-cmd"
46a0: 20 63 72 20 29 0a 20 20 20 20 5b 27 5d 20 63 6d cr ). ['] cm
46b0: 64 2d 74 69 6d 65 6f 75 74 20 20 20 20 20 20 20 d-timeout
46c0: 20 69 73 20 74 69 6d 65 6f 75 74 2d 78 74 20 6f is timeout-xt o
46d0: 2b 74 69 6d 65 6f 75 74 20 3b 0a 0a 3a 20 2b 67 +timeout ;..: +g
46e0: 65 74 2d 74 69 6d 65 20 20 20 20 20 5b 27 5d 20 et-time [']
46f0: 67 65 74 2d 74 69 63 6b 20 69 73 20 6f 74 68 65 get-tick is othe
4700: 72 20 3b 0a 0a 3a 20 72 65 71 73 69 7a 65 21 20 r ;..: reqsize!
4710: 28 20 75 63 6f 64 65 20 75 64 61 74 61 20 2d 2d ( ucode udata --
4720: 20 29 20 20 74 6f 20 72 65 71 2d 64 61 74 61 73 ) to req-datas
4730: 69 7a 65 20 20 74 6f 20 72 65 71 2d 63 6f 64 65 ize to req-code
4740: 73 69 7a 65 20 3b 0a 3a 20 63 6f 6e 6e 65 63 74 size ;.: connect
4750: 2d 72 65 73 74 20 28 20 6e 20 2d 2d 20 29 0a 20 -rest ( n -- ).
4760: 20 20 20 63 6c 65 61 6e 2d 72 65 71 75 65 73 74 clean-request
4770: 20 2d 74 69 6d 65 6f 75 74 20 74 73 6b 63 20 4b -timeout tskc K
4780: 45 59 42 59 54 45 53 20 65 72 61 73 65 20 63 6f EYBYTES erase co
4790: 6e 74 65 78 74 21 20 3b 0a 0a 3a 20 65 6e 64 2d ntext! ;..: end-
47a0: 63 6f 64 65 7c 20 28 20 2d 2d 20 29 20 20 5d 5d code| ( -- ) ]]
47b0: 20 65 6e 64 2d 63 6f 64 65 20 63 6c 69 65 6e 74 end-code client
47c0: 2d 6c 6f 6f 70 20 5b 5b 20 3b 20 69 6d 6d 65 64 -loop [[ ; immed
47d0: 69 61 74 65 20 63 6f 6d 70 69 6c 65 2d 6f 6e 6c iate compile-onl
47e0: 79 0a 0a 3a 20 67 65 6e 2d 72 65 71 75 65 73 74 y..: gen-request
47f0: 20 28 20 2d 2d 20 29 0a 20 20 20 20 73 65 74 75 ( -- ). setu
4800: 70 21 20 20 2b 72 65 73 65 6e 64 2d 63 6d 64 20 p! +resend-cmd
4810: 20 67 65 6e 2d 74 6d 70 6b 65 79 73 20 20 5b 27 gen-tmpkeys ['
4820: 5d 20 63 6f 6e 6e 65 63 74 2d 72 65 73 74 20 72 ] connect-rest r
4830: 71 64 3f 0a 20 20 20 20 63 6d 64 28 20 69 6e 64 qd?. cmd( ind
4840: 2d 61 64 64 72 20 40 20 49 46 20 20 2e 22 20 69 -addr @ IF ." i
4850: 6e 22 20 54 48 45 4e 20 2e 22 20 64 69 72 65 63 n" THEN ." direc
4860: 74 20 63 6f 6e 6e 65 63 74 22 20 66 6f 72 74 68 t connect" forth
4870: 3a 63 72 20 29 0a 20 20 20 20 69 76 73 28 20 2e :cr ). ivs( .
4880: 22 20 67 65 6e 20 72 65 71 75 65 73 74 22 20 66 " gen request" f
4890: 6f 72 74 68 3a 63 72 20 29 0a 20 20 20 20 6e 65 orth:cr ). ne
48a0: 74 32 6f 2d 63 6f 64 65 30 0a 20 20 20 20 6e 65 t2o-code0. ne
48b0: 74 32 6f 2d 76 65 72 73 69 6f 6e 20 24 2c 20 76 t2o-version $, v
48c0: 65 72 73 69 6f 6e 3f 20 20 30 6b 65 79 2c 0a 20 ersion? 0key,.
48d0: 20 20 20 74 70 6b 63 20 6b 65 79 73 69 7a 65 20 tpkc keysize
48e0: 24 2c 20 72 65 63 65 69 76 65 2d 74 6d 70 6b 65 $, receive-tmpke
48f0: 79 0a 20 20 20 20 6e 65 73 74 5b 20 63 6f 6f 6b y. nest[ cook
4900: 69 65 2c 20 67 65 6e 2d 72 65 70 6c 79 20 72 65 ie, gen-reply re
4910: 71 75 65 73 74 2c 20 5d 6e 65 73 74 20 20 6f 74 quest, ]nest ot
4920: 68 65 72 0a 20 20 20 20 74 6d 70 6b 65 79 2d 72 her. tmpkey-r
4930: 65 71 75 65 73 74 0a 20 20 20 20 69 6e 64 2d 61 equest. ind-a
4940: 64 64 72 20 40 20 20 49 46 20 20 70 75 6e 63 68 ddr @ IF punch
4950: 3f 20 20 54 48 45 4e 0a 20 20 20 20 72 65 71 2d ? THEN. req-
4960: 63 6f 64 65 73 69 7a 65 20 20 72 65 71 2d 64 61 codesize req-da
4970: 74 61 73 69 7a 65 20 20 6d 61 70 2d 72 65 71 75 tasize map-requ
4980: 65 73 74 2c 20 20 63 6c 6f 73 65 2d 74 6d 70 6e est, close-tmpn
4990: 65 73 74 0a 20 20 20 20 5b 27 5d 20 70 75 73 68 est. ['] push
49a0: 2d 63 6d 64 20 49 53 20 65 78 70 65 63 74 2d 72 -cmd IS expect-r
49b0: 65 70 6c 79 3f 0a 20 20 20 20 65 6e 64 2d 63 6f eply?. end-co
49c0: 64 65 7c 20 3b 0a 0a 69 6e 20 6e 65 74 32 6f 20 de| ;..in net2o
49d0: 3a 20 63 6f 6e 6e 65 63 74 20 28 20 75 63 6f 64 : connect ( ucod
49e0: 65 20 75 64 61 74 61 20 2d 2d 20 29 20 20 72 65 e udata -- ) re
49f0: 71 73 69 7a 65 21 20 67 65 6e 2d 72 65 71 75 65 qsize! gen-reque
4a00: 73 74 20 3b 0a 0a 70 72 65 76 69 6f 75 73 0a 0a st ;..previous..
4a10: 30 20 5b 49 46 5d 0a 4c 6f 63 61 6c 20 56 61 72 0 [IF].Local Var
4a20: 69 61 62 6c 65 73 3a 0a 66 6f 72 74 68 2d 6c 6f iables:.forth-lo
4a30: 63 61 6c 2d 77 6f 72 64 73 3a 0a 20 20 20 20 28 cal-words:. (
4a40: 0a 20 20 20 20 20 28 28 22 6e 65 74 32 6f 3a 22 . (("net2o:"
4a50: 20 22 2b 6e 65 74 32 6f 3a 22 29 20 64 65 66 69 "+net2o:") defi
4a60: 6e 69 74 69 6f 6e 2d 73 74 61 72 74 65 72 20 28 nition-starter (
4a70: 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 font-lock-keywor
4a80: 64 2d 66 61 63 65 20 2e 20 31 29 0a 20 20 20 20 d-face . 1).
4a90: 20 20 22 5b 20 5c 74 5c 6e 5d 22 20 74 20 6e 61 "[ \t\n]" t na
4aa0: 6d 65 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 75 me (font-lock-fu
4ab0: 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 66 61 63 65 nction-name-face
4ac0: 20 2e 20 33 29 29 0a 20 20 20 20 20 28 22 5b 61 . 3)). ("[a
4ad0: 2d 7a 5c 2d 30 2d 39 5d 2b 28 22 20 69 6d 6d 65 -z\-0-9]+(" imme
4ae0: 64 69 61 74 65 20 28 66 6f 6e 74 2d 6c 6f 63 6b diate (font-lock
4af0: 2d 63 6f 6d 6d 65 6e 74 2d 66 61 63 65 20 2e 20 -comment-face .
4b00: 31 29 0a 20 20 20 20 20 20 22 29 22 20 6e 69 6c 1). ")" nil
4b10: 20 63 6f 6d 6d 65 6e 74 20 28 66 6f 6e 74 2d 6c comment (font-l
4b20: 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 2d 66 61 63 65 ock-comment-face
4b30: 20 2e 20 31 29 29 0a 20 20 20 20 29 0a 66 6f 72 . 1)). ).for
4b40: 74 68 2d 6c 6f 63 61 6c 2d 69 6e 64 65 6e 74 2d th-local-indent-
4b50: 77 6f 72 64 73 3a 0a 20 20 20 20 28 0a 20 20 20 words:. (.
4b60: 20 20 28 28 22 6e 65 74 32 6f 3a 22 20 22 2b 6e (("net2o:" "+n
4b70: 65 74 32 6f 3a 22 29 20 28 30 20 2e 20 32 29 20 et2o:") (0 . 2)
4b80: 28 30 20 2e 20 32 29 20 6e 6f 6e 2d 69 6d 6d 65 (0 . 2) non-imme
4b90: 64 69 61 74 65 29 0a 20 20 20 20 20 28 28 22 5b diate). (("[
4ba0: 3a 22 29 20 28 30 20 2e 20 31 29 20 28 30 20 2e :") (0 . 1) (0 .
4bb0: 20 31 29 20 69 6d 6d 65 64 69 61 74 65 29 0a 20 1) immediate).
4bc0: 20 20 20 20 28 28 22 3b 5d 22 29 20 28 2d 31 20 ((";]") (-1
4bd0: 2e 20 30 29 20 28 30 20 2e 20 2d 31 29 20 69 6d . 0) (0 . -1) im
4be0: 6d 65 64 69 61 74 65 29 0a 20 20 20 20 29 0a 45 mediate). ).E
4bf0: 6e 64 3a 0a 5b 54 48 45 4e 5d 0a nd:.[THEN].