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 74 72 75 65 20 e-context true
03f0: 74 6f 20 63 6c 6f 73 69 6e 67 3f 20 20 54 48 45 to closing? THE
0400: 4e 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 74 2d N ;.+net2o: set-
0410: 69 70 20 28 20 24 3a 73 74 72 69 6e 67 20 2d 2d ip ( $:string --
0420: 20 29 20 5c 67 20 73 65 74 20 61 64 64 72 65 73 ) \g set addres
0430: 73 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 0a 20 20 s information.
0440: 20 20 24 3e 20 73 65 74 69 70 2d 78 74 20 3b 0a $> setip-xt ;.
0450: 2b 6e 65 74 32 6f 3a 20 67 65 74 2d 69 70 20 28 +net2o: get-ip (
0460: 20 2d 2d 20 29 20 5c 67 20 72 65 71 75 65 73 74 -- ) \g request
0470: 20 61 64 64 72 65 73 73 20 69 6e 66 6f 72 6d 61 address informa
0480: 74 69 6f 6e 0a 20 20 20 20 3e 73 6f 63 6b 61 64 tion. >sockad
0490: 64 72 20 24 2c 20 73 65 74 2d 69 70 20 5b 3a 20 dr $, set-ip [:
04a0: 24 2c 20 73 65 74 2d 69 70 20 3b 5d 20 6e 32 6f $, set-ip ;] n2o
04b0: 61 64 64 72 73 20 3b 0a 0a 2b 6e 65 74 32 6f 3a addrs ;..+net2o:
04c0: 20 73 65 74 2d 62 6c 6f 63 6b 73 69 7a 65 20 28 set-blocksize (
04d0: 20 6e 20 2d 2d 20 29 20 5c 67 20 73 65 74 20 62 n -- ) \g set b
04e0: 6c 6f 63 6b 73 69 7a 65 20 74 6f 20 32 5e 6e 0a locksize to 2^n.
04f0: 20 20 20 20 36 34 3e 6e 20 31 20 73 77 61 70 20 64>n 1 swap
0500: 6d 61 78 2d 62 6c 6f 63 6b 23 20 75 6d 69 6e 20 max-block# umin
0510: 6c 73 68 69 66 74 20 6e 65 74 32 6f 3a 62 6c 6f lshift net2o:blo
0520: 63 6b 73 69 7a 65 73 21 20 3b 0a 2b 6e 65 74 32 cksizes! ;.+net2
0530: 6f 3a 20 73 65 74 2d 62 6c 6f 63 6b 61 6c 69 67 o: set-blockalig
0540: 6e 20 28 20 6e 20 2d 2d 20 29 20 5c 67 20 73 65 n ( n -- ) \g se
0550: 74 20 62 6c 6f 63 6b 20 61 6c 69 67 6e 6d 65 6e t block alignmen
0560: 74 20 74 6f 20 32 5e 6e 0a 20 20 20 20 36 34 3e t to 2^n. 64>
0570: 6e 20 31 20 73 77 61 70 20 6d 61 78 2d 62 6c 6f n 1 swap max-blo
0580: 63 6b 23 20 75 6d 69 6e 20 6c 73 68 69 66 74 20 ck# umin lshift
0590: 62 6c 6f 63 6b 61 6c 69 67 6e 20 21 20 3b 0a 2b blockalign ! ;.+
05a0: 6e 65 74 32 6f 3a 20 63 6c 6f 73 65 2d 61 6c 6c net2o: close-all
05b0: 20 28 20 2d 2d 20 29 20 5c 67 20 63 6c 6f 73 65 ( -- ) \g close
05c0: 20 61 6c 6c 20 66 69 6c 65 73 0a 20 20 20 20 6e all files. n
05d0: 65 74 32 6f 3a 63 6c 6f 73 65 2d 61 6c 6c 20 3b et2o:close-all ;
05e0: 0a 5c 20 62 65 74 74 65 72 20 73 6c 75 72 70 69 .\ better slurpi
05f0: 6e 67 0a 0a 2b 6e 65 74 32 6f 3a 20 73 65 74 2d ng..+net2o: set-
0600: 74 6f 70 20 28 20 75 74 6f 70 20 66 6c 61 67 20 top ( utop flag
0610: 2d 2d 20 29 20 5c 67 20 73 65 74 20 74 6f 70 2c -- ) \g set top,
0620: 20 66 6c 61 67 20 69 73 20 74 72 75 65 20 77 68 flag is true wh
0630: 65 6e 20 61 6c 6c 20 64 61 74 61 20 69 73 20 73 en all data is s
0640: 65 6e 74 0a 20 20 20 20 3e 72 20 36 34 3e 6e 20 ent. >r 64>n
0650: 72 3e 20 64 61 74 61 2d 72 6d 61 70 20 77 69 74 r> data-rmap wit
0660: 68 20 6d 61 70 63 0a 09 6f 76 65 72 20 64 65 73 h mapc..over des
0670: 74 2d 74 6f 70 20 3c 3e 20 61 6e 64 20 66 61 6c t-top <> and fal
0680: 73 65 20 64 65 73 74 2d 65 6e 64 20 3f 21 40 20 se dest-end ?!@
0690: 64 72 6f 70 20 5c 20 61 74 6f 6d 69 63 2c 20 72 drop \ atomic, r
06a0: 65 70 6c 61 63 65 73 20 6f 72 21 0a 09 64 65 73 eplaces or!..des
06b0: 74 2d 74 6f 70 21 0a 20 20 20 20 65 6e 64 77 69 t-top!. endwi
06c0: 74 68 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 6c 75 th ;.+net2o: slu
06d0: 72 70 20 28 20 2d 2d 20 29 20 5c 67 20 73 6c 75 rp ( -- ) \g slu
06e0: 72 70 20 69 6e 20 74 72 61 63 6b 65 64 20 66 69 rp in tracked fi
06f0: 6c 65 73 0a 20 20 20 20 5c 20 21 21 46 49 58 4d les. \ !!FIXM
0700: 45 21 21 20 74 68 69 73 20 73 68 6f 75 6c 64 20 E!! this should
0710: 70 72 6f 62 61 62 6c 79 20 62 65 20 61 73 79 6e probably be asyn
0720: 63 68 72 6f 6e 6f 75 73 0a 20 20 20 20 6e 65 74 chronous. net
0730: 32 6f 3a 73 6c 75 72 70 20 73 77 61 70 20 75 6c 2o:slurp swap ul
0740: 69 74 2c 20 66 6c 61 67 2c 20 73 65 74 2d 74 6f it, flag, set-to
0750: 70 0a 20 20 20 20 5b 27 5d 20 64 6f 2d 74 72 61 p. ['] do-tra
0760: 63 6b 2d 73 65 65 6b 20 6e 65 74 32 6f 3a 74 72 ck-seek net2o:tr
0770: 61 63 6b 2d 61 6c 6c 2d 73 65 65 6b 73 20 6e 65 ack-all-seeks ne
0780: 74 32 6f 3a 73 65 6e 64 2d 63 68 75 6e 6b 73 20 t2o:send-chunks
0790: 3b 0a 2b 6e 65 74 32 6f 3a 20 61 63 6b 2d 72 65 ;.+net2o: ack-re
07a0: 73 65 74 20 28 20 2d 2d 20 29 20 5c 67 20 72 65 set ( -- ) \g re
07b0: 73 65 74 20 61 63 6b 20 73 74 61 74 65 0a 20 20 set ack state.
07c0: 20 20 30 20 61 63 6b 2d 73 74 61 74 65 20 63 21 0 ack-state c!
07d0: 20 3b 0a 0a 5c 20 6f 62 6a 65 63 74 20 68 61 6e ;..\ object han
07e0: 64 6c 65 73 0a 5c 67 20 0a 5c 67 20 23 23 23 20 dles.\g .\g ###
07f0: 66 69 6c 65 20 63 6f 6d 6d 61 6e 64 73 20 23 23 file commands ##
0800: 23 0a 5c 67 20 0a 0a 24 33 30 20 6e 65 74 32 6f #.\g ..$30 net2o
0810: 3a 20 66 69 6c 65 2d 69 64 20 28 20 75 69 64 20 : file-id ( uid
0820: 2d 2d 20 6f 3a 66 69 6c 65 20 29 20 5c 67 20 63 -- o:file ) \g c
0830: 68 6f 6f 73 65 20 61 20 66 69 6c 65 20 6f 62 6a hoose a file obj
0840: 65 63 74 0a 20 20 20 20 36 34 3e 6e 20 73 74 61 ect. 64>n sta
0850: 74 65 2d 61 64 64 72 20 6e 3a 3e 6f 20 3b 0a 66 te-addr n:>o ;.f
0860: 73 2d 74 61 62 6c 65 20 3e 74 61 62 6c 65 0a 0a s-table >table..
0870: 72 65 70 6c 79 2d 74 61 62 6c 65 20 24 40 20 69 reply-table $@ i
0880: 6e 68 65 72 69 74 2d 74 61 62 6c 65 20 66 73 2d nherit-table fs-
0890: 74 61 62 6c 65 0a 0a 3a 20 66 69 6c 65 2d 73 74 table..: file-st
08a0: 61 72 74 2d 72 65 71 20 66 73 2d 69 64 20 40 20 art-req fs-id @
08b0: 75 6c 69 74 2c 20 66 69 6c 65 2d 69 64 20 3b 0a ulit, file-id ;.
08c0: 27 20 66 69 6c 65 2d 73 74 61 72 74 2d 72 65 71 ' file-start-req
08d0: 0a 66 69 6c 65 2d 63 6c 61 73 73 65 73 20 66 69 .file-classes fi
08e0: 6c 65 2d 63 6c 61 73 73 65 73 23 20 63 65 6c 6c le-classes# cell
08f0: 73 20 62 6f 75 6e 64 73 0a 5b 44 4f 5d 20 64 75 s bounds.[DO] du
0900: 70 20 5b 49 5d 20 40 20 74 6f 20 73 74 61 72 74 p [I] @ to start
0910: 2d 72 65 71 20 63 65 6c 6c 20 5b 2b 4c 4f 4f 50 -req cell [+LOOP
0920: 5d 0a 64 72 6f 70 0a 0a 24 32 30 20 6e 65 74 32 ].drop..$20 net2
0930: 6f 3a 20 6f 70 65 6e 2d 66 69 6c 65 20 28 20 24 o: open-file ( $
0940: 3a 73 74 72 69 6e 67 20 6d 6f 64 65 20 2d 2d 20 :string mode --
0950: 29 20 5c 67 20 6f 70 65 6e 20 66 69 6c 65 20 77 ) \g open file w
0960: 69 74 68 20 6d 6f 64 65 0a 20 20 20 20 70 61 72 ith mode. par
0970: 65 6e 74 20 2e 70 65 72 6d 2d 6d 61 73 6b 20 40 ent .perm-mask @
0980: 20 3e 72 20 72 40 20 66 73 2d 70 65 72 6d 3f 0a >r r@ fs-perm?.
0990: 20 20 20 20 36 34 3e 6e 20 2d 32 20 61 6e 64 20 64>n -2 and
09a0: 34 20 75 6d 69 6e 20 64 75 70 20 72 3e 20 3f 72 4 umin dup r> ?r
09b0: 77 2d 70 65 72 6d 20 20 3e 72 20 24 3e 20 72 3e w-perm >r $> r>
09c0: 20 66 73 2d 6f 70 65 6e 20 3b 0a 2b 6e 65 74 32 fs-open ;.+net2
09d0: 6f 3a 20 66 69 6c 65 2d 74 79 70 65 20 28 20 6e o: file-type ( n
09e0: 20 2d 2d 20 29 20 5c 67 20 63 68 6f 6f 73 65 20 -- ) \g choose
09f0: 66 69 6c 65 20 74 79 70 65 0a 20 20 20 20 36 34 file type. 64
0a00: 3e 6e 20 66 73 2d 63 6c 61 73 73 21 20 3b 0a 2b >n fs-class! ;.+
0a10: 6e 65 74 32 6f 3a 20 63 6c 6f 73 65 2d 66 69 6c net2o: close-fil
0a20: 65 20 28 20 2d 2d 20 29 20 5c 67 20 63 6c 6f 73 e ( -- ) \g clos
0a30: 65 20 66 69 6c 65 0a 20 20 20 20 66 73 2d 63 6c e file. fs-cl
0a40: 6f 73 65 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 ose ;.+net2o: se
0a50: 74 2d 73 69 7a 65 20 28 20 73 69 7a 65 20 2d 2d t-size ( size --
0a60: 20 29 20 5c 67 20 73 65 74 20 73 69 7a 65 20 61 ) \g set size a
0a70: 74 74 72 69 62 75 74 65 20 6f 66 20 63 75 72 72 ttribute of curr
0a80: 65 6e 74 20 66 69 6c 65 0a 20 20 20 20 74 72 61 ent file. tra
0a90: 63 6b 28 20 2e 22 20 66 69 6c 65 20 3c 22 20 66 ck( ." file <" f
0aa0: 73 2d 69 64 20 40 20 30 20 2e 72 20 2e 22 20 3e s-id @ 0 .r ." >
0ab0: 20 73 69 7a 65 3a 20 22 20 36 34 64 75 70 20 75 size: " 64dup u
0ac0: 36 34 2e 20 66 6f 72 74 68 3a 63 72 20 29 20 73 64. forth:cr ) s
0ad0: 69 7a 65 21 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 ize! ;.+net2o: s
0ae0: 65 74 2d 73 65 65 6b 20 28 20 75 73 65 65 6b 20 et-seek ( useek
0af0: 2d 2d 20 29 20 5c 67 20 73 65 74 20 73 65 65 6b -- ) \g set seek
0b00: 20 61 74 74 72 69 62 75 74 65 20 6f 66 20 63 75 attribute of cu
0b10: 72 72 65 6e 74 20 66 69 6c 65 0a 20 20 20 20 74 rrent file. t
0b20: 72 61 63 6b 28 20 2e 22 20 66 69 6c 65 20 3c 22 rack( ." file <"
0b30: 20 66 73 2d 69 64 20 40 20 30 20 2e 72 20 2e 22 fs-id @ 0 .r ."
0b40: 20 3e 20 73 65 65 6b 3a 20 22 20 36 34 64 75 70 > seek: " 64dup
0b50: 20 75 36 34 2e 20 66 6f 72 74 68 3a 63 72 20 29 u64. forth:cr )
0b60: 20 73 65 65 6b 74 6f 21 20 3b 0a 2b 6e 65 74 32 seekto! ;.+net2
0b70: 6f 3a 20 73 65 74 2d 6c 69 6d 69 74 20 28 20 75 o: set-limit ( u
0b80: 6c 69 6d 69 74 20 2d 2d 20 29 20 5c 67 20 73 65 limit -- ) \g se
0b90: 74 20 6c 69 6d 69 74 20 61 74 74 72 69 62 75 74 t limit attribut
0ba0: 65 20 6f 66 20 63 75 72 72 65 6e 74 20 66 69 6c e of current fil
0bb0: 65 0a 20 20 20 20 74 72 61 63 6b 28 20 2e 22 20 e. track( ."
0bc0: 66 69 6c 65 20 3c 22 20 66 73 2d 69 64 20 40 20 file <" fs-id @
0bd0: 30 20 2e 72 20 2e 22 20 3e 20 73 65 65 6b 20 74 0 .r ." > seek t
0be0: 6f 3a 20 22 20 36 34 64 75 70 20 75 36 34 2e 20 o: " 64dup u64.
0bf0: 66 6f 72 74 68 3a 63 72 20 29 20 6c 69 6d 69 74 forth:cr ) limit
0c00: 2d 6d 69 6e 21 20 3b 0a 2b 6e 65 74 32 6f 3a 20 -min! ;.+net2o:
0c10: 73 65 74 2d 73 74 61 74 20 28 20 75 6d 74 69 6d set-stat ( umtim
0c20: 65 20 75 6d 6f 64 20 2d 2d 20 29 20 5c 67 20 73 e umod -- ) \g s
0c30: 65 74 20 74 69 6d 65 20 61 6e 64 20 6d 6f 64 65 et time and mode
0c40: 20 6f 66 20 63 75 72 72 65 6e 74 20 66 69 6c 65 of current file
0c50: 0a 20 20 20 20 36 34 3e 6e 20 66 73 2d 73 65 74 . 64>n fs-set
0c60: 2d 73 74 61 74 20 3b 0a 2b 6e 65 74 32 6f 3a 20 -stat ;.+net2o:
0c70: 67 65 74 2d 73 69 7a 65 20 28 20 2d 2d 20 29 20 get-size ( -- )
0c80: 5c 67 20 72 65 71 75 65 73 74 20 66 69 6c 65 20 \g request file
0c90: 73 69 7a 65 0a 20 20 20 20 66 73 2d 73 69 7a 65 size. fs-size
0ca0: 20 6c 69 74 2c 20 73 65 74 2d 73 69 7a 65 20 3b lit, set-size ;
0cb0: 0a 2b 6e 65 74 32 6f 3a 20 67 65 74 2d 73 74 61 .+net2o: get-sta
0cc0: 74 20 28 20 2d 2d 20 29 20 5c 67 20 72 65 71 75 t ( -- ) \g requ
0cd0: 65 73 74 20 73 74 61 74 20 6f 66 20 63 75 72 72 est stat of curr
0ce0: 65 6e 74 20 66 69 6c 65 0a 20 20 20 20 66 73 2d ent file. fs-
0cf0: 67 65 74 2d 73 74 61 74 20 3e 72 20 6c 69 74 2c get-stat >r lit,
0d00: 20 72 3e 20 75 6c 69 74 2c 20 73 65 74 2d 73 74 r> ulit, set-st
0d10: 61 74 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 74 at ;.+net2o: set
0d20: 2d 66 6f 72 6d 20 28 20 77 20 68 20 2d 2d 20 29 -form ( w h -- )
0d30: 20 5c 67 20 69 66 20 66 69 6c 65 20 69 73 20 61 \g if file is a
0d40: 20 74 65 72 6d 69 6e 61 6c 2c 20 73 65 74 20 73 terminal, set s
0d50: 69 7a 65 0a 20 20 20 20 74 65 72 6d 2d 68 20 21 ize. term-h !
0d60: 20 74 65 72 6d 2d 77 20 21 20 3b 0a 2b 6e 65 74 term-w ! ;.+net
0d70: 32 6f 3a 20 67 65 74 2d 66 6f 72 6d 20 28 20 2d 2o: get-form ( -
0d80: 2d 20 29 20 5c 67 20 69 66 20 66 69 6c 65 20 69 - ) \g if file i
0d90: 73 20 61 20 74 65 72 6d 69 6e 61 6c 2c 20 72 65 s a terminal, re
0da0: 71 75 65 73 74 20 73 69 7a 65 0a 20 20 20 20 74 quest size. t
0db0: 65 72 6d 2d 77 20 40 20 75 6c 69 74 2c 20 74 65 erm-w @ ulit, te
0dc0: 72 6d 2d 68 20 40 20 75 6c 69 74 2c 20 73 65 74 rm-h @ ulit, set
0dd0: 2d 66 6f 72 6d 20 3b 0a 2b 6e 65 74 32 6f 3a 20 -form ;.+net2o:
0de0: 70 6f 6c 6c 2d 72 65 71 75 65 73 74 20 28 20 75 poll-request ( u
0df0: 6c 69 6d 69 74 20 2d 2d 20 29 20 5c 67 20 70 6f limit -- ) \g po
0e00: 6c 6c 20 61 20 66 69 6c 65 20 74 6f 20 63 68 65 ll a file to che
0e10: 63 6b 20 66 6f 72 20 73 69 7a 65 20 63 68 61 6e ck for size chan
0e20: 67 65 73 0a 20 20 20 20 70 6f 6c 6c 21 20 6c 69 ges. poll! li
0e30: 74 2c 20 73 65 74 2d 73 69 7a 65 20 3b 0a 0a 66 t, set-size ;..f
0e40: 73 2d 74 61 62 6c 65 20 24 73 61 76 65 0a 0a 27 s-table $save..'
0e50: 20 63 6f 6e 74 65 78 74 2d 74 61 62 6c 65 20 69 context-table i
0e60: 73 20 67 65 6e 2d 74 61 62 6c 65 0a 0a 3a 6e 6f s gen-table..:no
0e70: 6e 61 6d 65 20 28 20 75 69 64 20 75 73 65 65 6b name ( uid useek
0e80: 20 2d 2d 20 29 20 36 34 3e 72 20 75 6c 69 74 2c -- ) 64>r ulit,
0e90: 20 66 69 6c 65 2d 69 64 0a 20 20 20 20 36 34 72 file-id. 64r
0ea0: 3e 20 6c 69 74 2c 20 73 65 74 2d 73 65 65 6b 20 > lit, set-seek
0eb0: 65 6e 64 2d 77 69 74 68 20 3b 20 69 73 20 64 6f end-with ; is do
0ec0: 2d 74 72 61 63 6b 2d 73 65 65 6b 0a 0a 5c 20 66 -track-seek..\ f
0ed0: 6c 6f 77 20 63 6f 6e 74 72 6f 6c 20 66 75 6e 63 low control func
0ee0: 74 69 6f 6e 73 0a 5c 67 20 0a 5c 67 20 23 23 23 tions.\g .\g ###
0ef0: 20 61 63 6b 20 63 6f 6d 6d 61 6e 64 73 20 23 23 ack commands ##
0f00: 23 0a 5c 67 20 0a 0a 24 33 31 20 6e 65 74 32 6f #.\g ..$31 net2o
0f10: 3a 20 61 63 6b 20 28 20 2d 2d 20 6f 3a 61 63 6b : ack ( -- o:ack
0f20: 6f 20 29 20 5c 67 20 61 63 6b 20 6f 62 6a 65 63 o ) \g ack objec
0f30: 74 0a 20 20 20 20 61 63 6b 40 20 6e 3a 3e 6f 20 t. ack@ n:>o
0f40: 3b 0a 61 63 6b 2d 74 61 62 6c 65 20 3e 74 61 62 ;.ack-table >tab
0f50: 6c 65 0a 72 65 70 6c 79 2d 74 61 62 6c 65 20 24 le.reply-table $
0f60: 40 20 69 6e 68 65 72 69 74 2d 74 61 62 6c 65 20 @ inherit-table
0f70: 61 63 6b 2d 74 61 62 6c 65 0a 0a 3a 6e 6f 6e 61 ack-table..:nona
0f80: 6d 65 20 61 63 6b 20 3b 20 61 63 6b 2d 63 6c 61 me ack ; ack-cla
0f90: 73 73 20 74 6f 20 73 74 61 72 74 2d 72 65 71 0a ss to start-req.
0fa0: 24 32 30 20 6e 65 74 32 6f 3a 20 61 63 6b 2d 61 $20 net2o: ack-a
0fb0: 64 64 72 74 69 6d 65 20 28 20 75 74 69 6d 65 20 ddrtime ( utime
0fc0: 61 64 64 72 20 2d 2d 20 29 20 5c 67 20 70 61 63 addr -- ) \g pac
0fd0: 6b 65 74 20 61 74 20 61 64 64 72 20 72 65 63 65 ket at addr rece
0fe0: 69 76 65 64 20 61 74 20 74 69 6d 65 0a 20 20 20 ived at time.
0ff0: 20 6e 65 74 32 6f 3a 61 63 6b 2d 61 64 64 72 74 net2o:ack-addrt
1000: 69 6d 65 20 3b 0a 2b 6e 65 74 32 6f 3a 20 61 63 ime ;.+net2o: ac
1010: 6b 2d 72 65 73 65 6e 64 20 28 20 66 6c 61 67 20 k-resend ( flag
1020: 2d 2d 20 29 20 5c 67 20 73 65 74 20 72 65 73 65 -- ) \g set rese
1030: 6e 64 20 74 6f 67 67 6c 65 20 66 6c 61 67 0a 20 nd toggle flag.
1040: 20 20 20 36 34 3e 6e 20 20 70 61 72 65 6e 74 20 64>n parent
1050: 2e 6e 65 74 32 6f 3a 61 63 6b 2d 72 65 73 65 6e .net2o:ack-resen
1060: 64 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 74 2d d ;.+net2o: set-
1070: 72 61 74 65 20 28 20 75 72 61 74 65 20 75 64 65 rate ( urate ude
1080: 6c 74 61 2d 74 20 2d 2d 20 29 20 5c 67 20 73 65 lta-t -- ) \g se
1090: 74 20 72 61 74 65 20 0a 20 20 20 20 70 61 72 65 t rate . pare
10a0: 6e 74 20 3e 6f 20 63 6f 6f 6b 69 65 3f 20 49 46 nt >o cookie? IF
10b0: 20 20 61 63 6b 40 20 2e 6e 65 74 32 6f 3a 73 65 ack@ .net2o:se
10c0: 74 2d 72 61 74 65 0a 20 20 20 20 45 4c 53 45 20 t-rate. ELSE
10d0: 20 36 34 64 72 6f 70 20 36 34 64 72 6f 70 20 61 64drop 64drop a
10e0: 63 6b 2d 6f 72 64 65 72 3f 0a 09 49 46 20 20 61 ck-order?..IF a
10f0: 63 6b 40 20 2e 6e 73 2f 62 75 72 73 74 20 64 75 ck@ .ns/burst du
1100: 70 20 3e 72 20 36 34 40 20 36 34 2d 32 2a 20 36 p >r 64@ 64-2* 6
1110: 34 2d 32 2a 20 72 3e 20 36 34 21 0a 09 54 48 45 4-2* r> 64!..THE
1120: 4e 0a 20 20 20 20 54 48 45 4e 20 6f 3e 20 3b 0a N. THEN o> ;.
1130: 2b 6e 65 74 32 6f 3a 20 72 65 73 65 6e 64 2d 6d +net2o: resend-m
1140: 61 73 6b 20 28 20 61 64 64 72 20 75 6d 61 73 6b ask ( addr umask
1150: 20 2d 2d 20 29 20 5c 67 20 72 65 73 65 6e 64 20 -- ) \g resend
1160: 6d 61 73 6b 20 62 6c 6f 63 6b 73 20 73 74 61 72 mask blocks star
1170: 74 69 6e 67 20 61 74 20 61 64 64 72 0a 20 20 20 ting at addr.
1180: 20 32 2a 36 34 3e 6e 20 70 61 72 65 6e 74 20 3e 2*64>n parent >
1190: 6f 20 6e 65 74 32 6f 3a 72 65 73 65 6e 64 2d 6d o net2o:resend-m
11a0: 61 73 6b 20 6e 65 74 32 6f 3a 73 65 6e 64 2d 63 ask net2o:send-c
11b0: 68 75 6e 6b 73 20 6f 3e 20 3b 0a 2b 6e 65 74 32 hunks o> ;.+net2
11c0: 6f 3a 20 74 72 61 63 6b 2d 74 69 6d 69 6e 67 20 o: track-timing
11d0: 28 20 2d 2d 20 29 20 5c 67 20 74 72 61 63 6b 20 ( -- ) \g track
11e0: 74 69 6d 69 6e 67 0a 20 20 20 20 6e 65 74 32 6f timing. net2o
11f0: 3a 74 72 61 63 6b 2d 74 69 6d 69 6e 67 20 3b 0a :track-timing ;.
1200: 2b 6e 65 74 32 6f 3a 20 72 65 63 2d 74 69 6d 69 +net2o: rec-timi
1210: 6e 67 20 28 20 24 3a 73 74 72 69 6e 67 20 2d 2d ng ( $:string --
1220: 20 29 20 5c 67 20 72 65 63 6f 72 64 65 64 20 74 ) \g recorded t
1230: 69 6d 69 6e 67 0a 20 20 20 20 24 3e 20 6e 65 74 iming. $> net
1240: 32 6f 3a 72 65 63 2d 74 69 6d 69 6e 67 20 3b 0a 2o:rec-timing ;.
1250: 2b 6e 65 74 32 6f 3a 20 73 65 6e 64 2d 74 69 6d +net2o: send-tim
1260: 69 6e 67 20 28 20 2d 2d 20 29 20 5c 67 20 72 65 ing ( -- ) \g re
1270: 71 75 65 73 74 20 72 65 63 6f 72 64 65 64 20 74 quest recorded t
1280: 69 6d 69 6e 67 0a 20 20 20 20 6e 65 74 32 6f 3a iming. net2o:
1290: 74 69 6d 69 6e 67 24 20 6d 61 78 74 69 6d 69 6e timing$ maxtimin
12a0: 67 20 75 6d 69 6e 20 74 75 63 6b 20 24 2c 20 6e g umin tuck $, n
12b0: 65 74 32 6f 3a 2f 74 69 6d 69 6e 67 20 72 65 63 et2o:/timing rec
12c0: 2d 74 69 6d 69 6e 67 20 3b 0a 2b 6e 65 74 32 6f -timing ;.+net2o
12d0: 3a 20 61 63 6b 2d 62 32 62 74 69 6d 65 20 28 20 : ack-b2btime (
12e0: 75 74 69 6d 65 20 61 64 64 72 20 2d 2d 20 29 20 utime addr -- )
12f0: 5c 67 20 62 75 72 73 74 2d 74 6f 2d 62 75 72 73 \g burst-to-burs
1300: 74 20 74 69 6d 65 20 61 74 20 70 61 63 6b 65 74 t time at packet
1310: 20 61 64 64 72 0a 20 20 20 20 6e 65 74 32 6f 3a addr. net2o:
1320: 61 63 6b 2d 62 32 62 74 69 6d 65 20 3b 0a 2b 6e ack-b2btime ;.+n
1330: 65 74 32 6f 3a 20 61 63 6b 2d 72 65 73 65 6e 64 et2o: ack-resend
1340: 23 20 28 20 61 64 64 72 20 24 3a 73 74 72 69 6e # ( addr $:strin
1350: 67 20 2d 2d 20 29 20 5c 67 20 72 65 73 65 6e 64 g -- ) \g resend
1360: 20 6e 75 6d 62 65 72 73 0a 20 20 20 20 36 34 3e numbers. 64>
1370: 6e 20 24 3e 0a 20 20 20 20 61 63 6b 2d 6f 72 64 n $>. ack-ord
1380: 65 72 3f 20 49 46 0a 09 70 61 72 65 6e 74 20 2e er? IF..parent .
1390: 64 61 74 61 2d 6d 61 70 20 2e 6d 61 70 63 3a 72 data-map .mapc:r
13a0: 65 73 65 6e 64 23 3f 20 64 75 70 20 30 3d 20 49 esend#? dup 0= I
13b0: 46 0a 09 20 20 20 20 64 72 6f 70 20 74 69 6d 65 F.. drop time
13c0: 6f 75 74 28 20 2e 22 20 72 65 73 65 6e 64 23 20 out( ." resend#
13d0: 64 6f 6e 27 74 20 6d 61 74 63 68 21 22 20 66 6f don't match!" fo
13e0: 72 74 68 3a 63 72 0a 09 20 20 20 20 70 61 72 65 rth:cr.. pare
13f0: 6e 74 20 2e 6e 65 74 32 6f 3a 73 65 65 2d 6d 65 nt .net2o:see-me
1400: 20 29 0a 09 20 20 20 20 5b 20 63 6f 6f 6b 69 65 ).. [ cookie
1410: 2d 76 61 6c 20 31 20 76 61 6c 69 64 61 74 65 64 -val 1 validated
1420: 23 20 6c 73 68 69 66 74 20 31 2d 20 78 6f 72 20 # lshift 1- xor
1430: 5d 4c 20 76 61 6c 69 64 61 74 65 64 20 61 6e 64 ]L validated and
1440: 21 0a 09 45 4c 53 45 0a 09 20 20 20 20 76 61 6c !..ELSE.. val
1450: 69 64 61 74 65 64 23 20 6c 73 68 69 66 74 20 76 idated# lshift v
1460: 61 6c 69 64 61 74 65 64 20 2b 21 20 63 6f 6f 6b alidated +! cook
1470: 69 65 2d 76 61 6c 20 76 61 6c 69 64 61 74 65 64 ie-val validated
1480: 20 6f 72 21 0a 09 54 48 45 4e 0a 20 20 20 20 45 or!..THEN. E
1490: 4c 53 45 20 20 74 69 6d 65 6f 75 74 28 20 2e 22 LSE timeout( ."
14a0: 20 6f 75 74 20 6f 66 20 6f 72 64 65 72 20 61 72 out of order ar
14b0: 72 69 76 61 6c 20 6f 66 20 61 63 6b 22 20 66 6f rival of ack" fo
14c0: 72 74 68 3a 63 72 20 29 0a 09 32 64 72 6f 70 20 rth:cr )..2drop
14d0: 64 72 6f 70 0a 20 20 20 20 54 48 45 4e 20 3b 0a drop. THEN ;.
14e0: 2b 6e 65 74 32 6f 3a 20 61 63 6b 2d 66 6c 75 73 +net2o: ack-flus
14f0: 68 20 28 20 61 64 64 72 20 2d 2d 20 29 20 5c 67 h ( addr -- ) \g
1500: 20 66 6c 75 73 68 65 64 20 74 6f 20 61 64 64 72 flushed to addr
1510: 0a 20 20 20 20 36 34 3e 6e 20 70 61 72 65 6e 74 . 64>n parent
1520: 20 2e 6e 65 74 32 6f 3a 72 65 77 69 6e 64 2d 73 .net2o:rewind-s
1530: 65 6e 64 65 72 2d 70 61 72 74 69 61 6c 20 3b 0a ender-partial ;.
1540: 5c 20 2b 6e 65 74 32 6f 3a 20 73 65 74 2d 68 65 \ +net2o: set-he
1550: 61 64 20 28 20 61 64 64 72 20 2d 2d 20 29 20 5c ad ( addr -- ) \
1560: 67 20 73 65 74 20 68 65 61 64 0a 5c 20 20 20 20 g set head.\
1570: 20 36 34 3e 6e 20 70 61 72 65 6e 74 20 2e 64 61 64>n parent .da
1580: 74 61 2d 72 6d 61 70 20 3e 6f 20 61 64 64 72 20 ta-rmap >o addr
1590: 6d 61 70 63 3a 64 65 73 74 2d 68 65 61 64 20 6f mapc:dest-head o
15a0: 3e 20 75 6d 61 78 21 20 3b 0a 5c 20 2b 6e 65 74 > umax! ;.\ +net
15b0: 32 6f 3a 20 74 69 6d 65 6f 75 74 20 28 20 75 74 2o: timeout ( ut
15c0: 69 63 6b 73 20 2d 2d 20 29 20 5c 67 20 74 69 6d icks -- ) \g tim
15d0: 65 6f 75 74 20 72 65 71 75 65 73 74 0a 5c 20 20 eout request.\
15e0: 20 20 20 70 61 72 65 6e 74 20 3e 6f 20 6e 65 74 parent >o net
15f0: 32 6f 3a 74 69 6d 65 6f 75 74 20 64 61 74 61 2d 2o:timeout data-
1600: 6d 61 70 20 2e 6d 61 70 63 3a 64 65 73 74 2d 62 map .mapc:dest-b
1610: 61 63 6b 20 75 6c 69 74 2c 20 73 65 74 2d 68 65 ack ulit, set-he
1620: 61 64 20 6f 3e 20 3b 0a 24 32 43 20 6e 65 74 32 ad o> ;.$2C net2
1630: 6f 3a 20 73 65 74 2d 72 74 64 65 6c 61 79 20 28 o: set-rtdelay (
1640: 20 74 69 63 6b 73 20 2d 2d 20 29 20 5c 67 20 73 ticks -- ) \g s
1650: 65 74 20 72 6f 75 6e 64 20 74 72 69 70 20 64 65 et round trip de
1660: 6c 61 79 20 6f 6e 6c 79 0a 20 20 20 20 72 74 64 lay only. rtd
1670: 65 6c 61 79 21 20 3b 0a 2b 6e 65 74 32 6f 3a 20 elay! ;.+net2o:
1680: 73 65 71 23 20 28 20 6e 20 2d 2d 20 29 20 5c 67 seq# ( n -- ) \g
1690: 20 73 65 74 20 74 68 65 20 61 63 6b 20 6e 75 6d set the ack num
16a0: 62 65 72 20 61 6e 64 20 63 68 65 63 6b 20 66 6f ber and check fo
16b0: 72 20 73 6d 61 6c 6c 65 72 0a 20 20 20 20 36 34 r smaller. 64
16c0: 3e 6e 20 70 61 72 65 6e 74 20 2e 64 61 74 61 2d >n parent .data-
16d0: 6d 61 70 20 77 69 74 68 20 6d 61 70 63 0a 20 20 map with mapc.
16e0: 20 20 64 75 70 20 73 65 6e 64 2d 61 63 6b 23 20 dup send-ack#
16f0: 75 3e 20 49 46 20 20 74 6f 20 73 65 6e 64 2d 61 u> IF to send-a
1700: 63 6b 23 20 20 61 63 6b 2d 6f 72 64 65 72 2d 76 ck# ack-order-v
1710: 61 6c 20 76 61 6c 69 64 61 74 65 64 20 6f 72 21 al validated or!
1720: 20 20 45 4c 53 45 0a 09 64 72 6f 70 20 5b 20 61 ELSE..drop [ a
1730: 63 6b 2d 6f 72 64 65 72 2d 76 61 6c 20 69 6e 76 ck-order-val inv
1740: 65 72 74 20 5d 4c 20 76 61 6c 69 64 61 74 65 64 ert ]L validated
1750: 20 61 6e 64 21 0a 20 20 20 20 54 48 45 4e 0a 20 and!. THEN.
1760: 20 20 20 65 6e 64 77 69 74 68 20 3b 0a 0a 61 63 endwith ;..ac
1770: 6b 2d 74 61 62 6c 65 20 24 73 61 76 65 0a 0a 5c k-table $save..\
1780: 20 70 72 6f 66 69 6c 69 6e 67 2c 20 6e 61 74 20 profiling, nat
1790: 74 72 61 76 65 72 73 61 6c 0a 0a 27 20 63 6f 6e traversal..' con
17a0: 74 65 78 74 2d 74 61 62 6c 65 20 69 73 20 67 65 text-table is ge
17b0: 6e 2d 74 61 62 6c 65 0a 0a 69 6e 20 6e 65 74 32 n-table..in net2
17c0: 6f 20 3a 20 67 65 6e 2d 72 65 73 65 6e 64 20 28 o : gen-resend (
17d0: 20 2d 2d 20 29 0a 20 20 20 20 61 63 6b 2d 72 65 -- ). ack-re
17e0: 63 65 69 76 65 20 69 6e 76 65 72 74 20 72 65 73 ceive invert res
17f0: 65 6e 64 2d 74 6f 67 67 6c 65 23 20 61 6e 64 20 end-toggle# and
1800: 75 6c 69 74 2c 20 61 63 6b 2d 72 65 73 65 6e 64 ulit, ack-resend
1810: 20 3b 0a 69 6e 20 6e 65 74 32 6f 20 3a 20 67 65 ;.in net2o : ge
1820: 6e 2d 72 65 73 65 74 20 28 20 2d 2d 20 29 0a 20 n-reset ( -- ).
1830: 20 20 20 61 63 6b 2d 72 65 73 65 74 20 30 20 74 ack-reset 0 t
1840: 6f 20 61 63 6b 2d 72 65 63 65 69 76 65 20 3b 0a o ack-receive ;.
1850: 0a 3a 20 72 65 77 69 6e 64 20 28 20 2d 2d 20 29 .: rewind ( -- )
1860: 0a 20 20 20 20 64 61 74 61 2d 72 6d 61 70 20 2e . data-rmap .
1870: 6d 61 70 63 3a 64 65 73 74 2d 62 61 63 6b 20 75 mapc:dest-back u
1880: 6c 69 74 2c 20 61 63 6b 2d 66 6c 75 73 68 20 3b lit, ack-flush ;
1890: 0a 0a 5c 20 73 61 66 65 20 69 6e 69 74 69 61 6c ..\ safe initial
18a0: 69 7a 61 74 69 6f 6e 0a 0a 3a 20 6c 69 74 3c 20 ization..: lit<
18b0: 20 20 6c 69 74 2c 20 70 75 73 68 2d 6c 69 74 20 lit, push-lit
18c0: 3b 0a 3a 6e 6f 6e 61 6d 65 20 28 20 74 68 72 6f ;.:noname ( thro
18d0: 77 63 6f 64 65 20 2d 2d 20 29 0a 20 20 20 20 72 wcode -- ). r
18e0: 65 6d 6f 74 65 3f 20 40 20 49 46 0a 09 3f 64 75 emote? @ IF..?du
18f0: 70 2d 49 46 20 20 69 6e 69 74 2d 72 65 70 6c 79 p-IF init-reply
1900: 0a 09 20 20 20 20 24 65 72 72 6f 72 2d 69 64 20 .. $error-id
1910: 24 40 20 64 75 70 20 49 46 20 20 24 2c 20 65 72 $@ dup IF $, er
1920: 72 6f 72 2d 69 64 20 20 45 4c 53 45 20 20 32 64 ror-id ELSE 2d
1930: 72 6f 70 20 20 54 48 45 4e 0a 09 20 20 20 20 6e rop THEN.. n
1940: 6c 69 74 2c 20 6b 6f 20 20 54 48 45 4e 0a 20 20 lit, ko THEN.
1950: 20 20 45 4c 53 45 0a 09 65 72 72 6f 72 2d 69 64 ELSE..error-id
1960: 3e 6f 20 3f 64 75 70 2d 49 46 0a 09 20 20 20 20 >o ?dup-IF..
1970: 3e 6f 20 3c 65 76 65 6e 74 20 65 6c 69 74 2c 20 >o <event elit,
1980: 3a 3e 74 68 72 6f 77 20 77 61 69 74 2d 74 61 73 :>throw wait-tas
1990: 6b 20 40 20 65 76 65 6e 74 3e 20 6f 3e 0a 09 45 k @ event> o>..E
19a0: 4c 53 45 20 20 74 68 72 6f 77 20 20 54 48 45 4e LSE throw THEN
19b0: 0a 20 20 20 20 54 48 45 4e 20 3b 20 49 53 20 3e . THEN ; IS >
19c0: 74 68 72 6f 77 0a 0a 61 6c 73 6f 20 7d 73 63 6f throw..also }sco
19d0: 70 65 0a 0a 3a 20 62 6c 6f 63 6b 73 69 7a 65 21 pe..: blocksize!
19e0: 20 28 20 6e 20 2d 2d 20 29 20 20 6d 61 78 2d 62 ( n -- ) max-b
19f0: 6c 6f 63 6b 23 20 75 6d 69 6e 20 64 75 70 20 75 lock# umin dup u
1a00: 6c 69 74 2c 20 73 65 74 2d 62 6c 6f 63 6b 73 69 lit, set-blocksi
1a10: 7a 65 0a 20 20 20 20 31 20 73 77 61 70 20 6c 73 ze. 1 swap ls
1a20: 68 69 66 74 20 6e 65 74 32 6f 3a 62 6c 6f 63 6b hift net2o:block
1a30: 73 69 7a 65 73 21 20 3b 0a 3a 20 62 6c 6f 63 6b sizes! ;.: block
1a40: 61 6c 69 67 6e 21 20 28 20 6e 20 2d 2d 20 29 20 align! ( n -- )
1a50: 6d 61 78 2d 62 6c 6f 63 6b 23 20 75 6d 69 6e 20 max-block# umin
1a60: 64 75 70 20 75 6c 69 74 2c 20 73 65 74 2d 62 6c dup ulit, set-bl
1a70: 6f 63 6b 61 6c 69 67 6e 0a 20 20 20 20 31 20 73 ockalign. 1 s
1a80: 77 61 70 20 6c 73 68 69 66 74 20 62 6c 6f 63 6b wap lshift block
1a90: 61 6c 69 67 6e 20 21 20 3b 0a 0a 3a 20 6f 70 65 align ! ;..: ope
1aa0: 6e 2d 73 69 7a 65 64 2d 66 69 6c 65 20 28 20 61 n-sized-file ( a
1ab0: 64 64 72 20 75 20 6d 6f 64 65 20 2d 2d 29 0a 20 ddr u mode --).
1ac0: 20 20 20 6f 70 65 6e 2d 66 69 6c 65 20 67 65 74 open-file get
1ad0: 2d 73 69 7a 65 20 3b 0a 3a 20 6f 70 65 6e 2d 74 -size ;.: open-t
1ae0: 72 61 63 6b 65 64 2d 66 69 6c 65 20 28 20 61 64 racked-file ( ad
1af0: 64 72 20 75 20 6d 6f 64 65 20 2d 2d 29 0a 20 20 dr u mode --).
1b00: 20 20 6f 70 65 6e 2d 73 69 7a 65 64 2d 66 69 6c open-sized-fil
1b10: 65 20 67 65 74 2d 73 74 61 74 20 3b 0a 0a 3a 20 e get-stat ;..:
1b20: 6e 32 6f 3e 66 69 6c 65 20 28 20 78 74 20 2d 2d n2o>file ( xt --
1b30: 20 29 0a 20 20 20 20 66 69 6c 65 2d 72 65 67 23 ). file-reg#
1b40: 20 40 20 75 6c 69 74 2c 20 66 69 6c 65 2d 69 64 @ ulit, file-id
1b50: 20 20 63 61 74 63 68 20 20 65 6e 64 2d 77 69 74 catch end-wit
1b60: 68 0a 20 20 20 20 74 68 72 6f 77 20 20 31 20 66 h. throw 1 f
1b70: 69 6c 65 2d 72 65 67 23 20 2b 21 20 3b 0a 0a 69 ile-reg# +! ;..i
1b80: 6e 20 6e 65 74 32 6f 20 3a 20 63 6f 70 79 20 28 n net2o : copy (
1b90: 20 61 64 64 72 73 72 63 20 75 73 20 61 64 64 72 addrsrc us addr
1ba0: 64 65 73 74 20 75 64 20 2d 2d 20 29 0a 20 20 20 dest ud -- ).
1bb0: 20 5b 3a 20 66 69 6c 65 28 20 2e 22 20 63 6f 70 [: file( ." cop
1bc0: 79 20 27 22 20 32 6f 76 65 72 20 66 6f 72 74 68 y '" 2over forth
1bd0: 3a 74 79 70 65 20 2e 22 20 27 20 2d 3e 20 27 22 :type ." ' -> '"
1be0: 20 32 64 75 70 20 66 6f 72 74 68 3a 74 79 70 65 2dup forth:type
1bf0: 0a 20 20 20 20 20 20 2e 22 20 27 22 20 66 6f 72 . ." '" for
1c00: 74 68 3a 63 72 20 29 0a 20 20 20 20 20 20 32 73 th:cr ). 2s
1c10: 77 61 70 20 24 2c 20 72 2f 6f 20 75 6c 69 74 2c wap $, r/o ulit,
1c20: 20 6f 70 65 6e 2d 74 72 61 63 6b 65 64 2d 66 69 open-tracked-fi
1c30: 6c 65 0a 20 20 20 20 20 20 66 69 6c 65 2d 72 65 le. file-re
1c40: 67 23 20 40 20 73 61 76 65 2d 74 6f 20 3b 5d 20 g# @ save-to ;]
1c50: 6e 32 6f 3e 66 69 6c 65 0a 20 20 20 20 31 20 66 n2o>file. 1 f
1c60: 69 6c 65 2d 63 6f 75 6e 74 20 2b 21 20 3b 0a 0a ile-count +! ;..
1c70: 69 6e 20 6e 65 74 32 6f 20 3a 20 63 6f 70 79 23 in net2o : copy#
1c80: 20 28 20 61 64 64 72 68 61 73 68 20 75 20 2d 2d ( addrhash u --
1c90: 20 29 0a 20 20 20 20 5b 3a 20 66 69 6c 65 28 20 ). [: file(
1ca0: 2e 22 20 63 6f 70 79 23 20 22 20 32 64 75 70 20 ." copy# " 2dup
1cb0: 38 35 74 79 70 65 20 66 6f 72 74 68 3a 63 72 20 85type forth:cr
1cc0: 29 0a 20 20 20 20 20 20 31 20 75 6c 69 74 2c 20 ). 1 ulit,
1cd0: 66 69 6c 65 2d 74 79 70 65 20 32 64 75 70 20 24 file-type 2dup $
1ce0: 2c 20 72 2f 6f 20 75 6c 69 74 2c 20 6f 70 65 6e , r/o ulit, open
1cf0: 2d 74 72 61 63 6b 65 64 2d 66 69 6c 65 0a 20 20 -tracked-file.
1d00: 20 20 20 20 66 69 6c 65 2d 72 65 67 23 20 40 20 file-reg# @
1d10: 73 61 76 65 2d 74 6f 23 20 3b 5d 20 6e 32 6f 3e save-to# ;] n2o>
1d20: 66 69 6c 65 0a 20 20 20 20 31 20 66 69 6c 65 2d file. 1 file-
1d30: 63 6f 75 6e 74 20 2b 21 20 3b 0a 0a 3a 20 73 65 count +! ;..: se
1d40: 65 6b 21 20 28 20 70 6f 73 20 69 64 20 2d 2d 20 ek! ( pos id --
1d50: 29 20 3e 72 20 64 3e 36 34 0a 20 20 20 20 36 34 ) >r d>64. 64
1d60: 64 75 70 20 72 40 20 73 74 61 74 65 2d 61 64 64 dup r@ state-add
1d70: 72 20 3e 6f 20 74 6f 20 66 73 2d 73 65 65 6b 20 r >o to fs-seek
1d80: 6f 3e 0a 20 20 20 20 72 3e 20 75 6c 69 74 2c 20 o>. r> ulit,
1d90: 66 69 6c 65 2d 69 64 20 6c 69 74 2c 20 73 65 74 file-id lit, set
1da0: 2d 73 65 65 6b 20 65 6e 64 2d 77 69 74 68 20 3b -seek end-with ;
1db0: 0a 0a 3a 20 6c 69 6d 69 74 21 20 28 20 70 6f 73 ..: limit! ( pos
1dc0: 20 69 64 20 2d 2d 20 29 20 3e 72 20 64 3e 36 34 id -- ) >r d>64
1dd0: 0a 20 20 20 20 72 40 20 75 6c 69 74 2c 20 66 69 . r@ ulit, fi
1de0: 6c 65 2d 69 64 20 36 34 64 75 70 20 6c 69 74 2c le-id 64dup lit,
1df0: 20 73 65 74 2d 6c 69 6d 69 74 20 65 6e 64 2d 77 set-limit end-w
1e00: 69 74 68 0a 20 20 20 20 72 3e 20 69 6e 69 74 2d ith. r> init-
1e10: 6c 69 6d 69 74 21 20 3b 0a 0a 70 72 65 76 69 6f limit! ;..previo
1e20: 75 73 0a 0a 5c 20 63 6c 69 65 6e 74 20 73 69 64 us..\ client sid
1e30: 65 20 74 69 6d 69 6e 67 0a 0a 3a 20 61 63 6b 2d e timing..: ack-
1e40: 73 69 7a 65 20 28 20 2d 2d 20 29 20 20 31 20 61 size ( -- ) 1 a
1e50: 63 6b 73 20 2b 21 0a 20 20 20 20 61 63 6b 40 20 cks +!. ack@
1e60: 2e 72 65 63 76 2d 74 69 63 6b 20 36 34 40 20 36 .recv-tick 64@ 6
1e70: 34 64 75 70 20 6c 61 73 74 62 2d 74 69 63 6b 73 4dup lastb-ticks
1e80: 20 36 34 21 40 20 36 34 2d 20 6d 61 78 2d 64 74 64!@ 64- max-dt
1e90: 69 63 6b 73 20 36 34 6d 61 78 21 20 3b 0a 3a 20 icks 64max! ;.:
1ea0: 61 63 6b 2d 66 69 72 73 74 20 28 20 2d 2d 20 29 ack-first ( -- )
1eb0: 0a 20 20 20 20 6c 61 73 74 62 2d 74 69 63 6b 73 . lastb-ticks
1ec0: 20 36 34 40 20 66 69 72 73 74 62 2d 74 69 63 6b 64@ firstb-tick
1ed0: 73 20 36 34 40 20 36 34 2d 20 64 65 6c 74 61 2d s 64@ 64- delta-
1ee0: 74 69 63 6b 73 20 36 34 2b 21 0a 20 20 20 20 61 ticks 64+!. a
1ef0: 63 6b 40 20 2e 72 65 63 76 2d 74 69 63 6b 20 36 ck@ .recv-tick 6
1f00: 34 40 20 36 34 64 75 70 20 66 69 72 73 74 62 2d 4@ 64dup firstb-
1f10: 74 69 63 6b 73 20 36 34 21 20 20 36 34 64 75 70 ticks 64! 64dup
1f20: 20 6c 61 73 74 62 2d 74 69 63 6b 73 20 36 34 21 lastb-ticks 64!
1f30: 0a 20 20 20 20 6c 61 73 74 2d 72 74 69 63 6b 20 . last-rtick
1f40: 36 34 21 20 20 72 65 63 76 2d 61 64 64 72 20 36 64! recv-addr 6
1f50: 34 40 20 6c 61 73 74 2d 72 61 64 64 72 20 36 34 4@ last-raddr 64
1f60: 21 20 3b 0a 0a 3a 20 61 63 6b 2d 74 69 6d 69 6e ! ;..: ack-timin
1f70: 67 20 28 20 6e 20 2d 2d 20 29 0a 20 20 20 20 62 g ( n -- ). b
1f80: 32 62 2d 74 6f 67 67 6c 65 23 20 61 6e 64 20 20 2b-toggle# and
1f90: 49 46 20 20 61 63 6b 2d 66 69 72 73 74 20 20 45 IF ack-first E
1fa0: 4c 53 45 20 20 61 63 6b 2d 73 69 7a 65 20 20 54 LSE ack-size T
1fb0: 48 45 4e 20 3b 0a 0a 61 6c 73 6f 20 6e 65 74 32 HEN ;..also net2
1fc0: 6f 2d 62 61 73 65 0a 0a 3a 20 73 65 74 72 61 74 o-base..: setrat
1fd0: 65 2d 6c 69 6d 69 74 20 28 20 72 61 74 65 20 2d e-limit ( rate -
1fe0: 2d 20 72 61 74 65 27 20 29 0a 20 20 20 20 5c 20 - rate' ). \
1ff0: 64 6f 20 6e 6f 74 20 63 68 61 6e 67 65 20 72 65 do not change re
2000: 71 75 65 73 74 65 64 20 72 61 74 65 20 62 79 20 quested rate by
2010: 6d 6f 72 65 20 74 68 61 6e 20 61 20 66 61 63 74 more than a fact
2020: 6f 72 20 32 0a 20 20 20 20 6c 61 73 74 2d 72 61 or 2. last-ra
2030: 74 65 20 36 34 40 0a 20 20 20 20 36 34 64 75 70 te 64@. 64dup
2040: 20 36 34 2d 30 3c 3e 20 49 46 20 20 36 34 74 75 64-0<> IF 64tu
2050: 63 6b 20 36 34 2d 32 2a 20 36 34 6d 69 6e 20 36 ck 64-2* 64min 6
2060: 34 73 77 61 70 20 36 34 2d 32 2f 20 36 34 6d 61 4swap 64-2/ 64ma
2070: 78 20 20 45 4c 53 45 20 20 36 34 64 72 6f 70 20 x ELSE 64drop
2080: 20 54 48 45 4e 0a 20 20 20 20 36 34 64 75 70 20 THEN. 64dup
2090: 6c 61 73 74 2d 72 61 74 65 20 36 34 21 20 3b 0a last-rate 64! ;.
20a0: 0a 3a 20 3e 72 61 74 65 20 28 20 2d 2d 20 29 20 .: >rate ( -- )
20b0: 20 64 65 6c 74 61 2d 74 69 63 6b 73 20 36 34 40 delta-ticks 64@
20c0: 20 36 34 2d 30 3d 20 61 63 6b 73 20 40 20 30 3d 64-0= acks @ 0=
20d0: 20 6f 72 20 3f 45 58 49 54 0a 20 20 20 20 61 63 or ?EXIT. ac
20e0: 6b 40 20 2e 72 65 63 76 2d 74 69 63 6b 20 36 34 k@ .recv-tick 64
20f0: 40 20 36 34 64 75 70 20 62 75 72 73 74 2d 74 69 @ 64dup burst-ti
2100: 63 6b 73 20 36 34 21 40 20 36 34 64 75 70 20 36 cks 64!@ 64dup 6
2110: 34 2d 30 3c 3e 20 49 46 0a 09 36 34 2d 20 6d 61 4-0<> IF..64- ma
2120: 78 2d 64 74 69 63 6b 73 20 36 34 40 20 74 69 63 x-dticks 64@ tic
2130: 6b 2d 69 6e 69 74 20 31 2b 20 6e 3e 36 34 20 36 k-init 1+ n>64 6
2140: 34 2a 20 36 34 6d 61 78 20 36 34 3e 72 0a 09 64 4* 64max 64>r..d
2150: 65 6c 74 61 2d 74 69 63 6b 73 20 36 34 40 20 74 elta-ticks 64@ t
2160: 69 63 6b 2d 69 6e 69 74 20 31 2b 20 61 63 6b 73 ick-init 1+ acks
2170: 20 40 20 36 34 2a 2f 20 73 65 74 72 61 74 65 2d @ 64*/ setrate-
2180: 6c 69 6d 69 74 0a 09 6c 69 74 2c 20 36 34 72 3e limit..lit, 64r>
2190: 20 6c 69 74 2c 20 73 65 74 2d 72 61 74 65 0a 20 lit, set-rate.
21a0: 20 20 20 45 4c 53 45 0a 09 36 34 64 72 6f 70 20 ELSE..64drop
21b0: 36 34 64 72 6f 70 0a 20 20 20 20 54 48 45 4e 0a 64drop. THEN.
21c0: 20 20 20 20 64 65 6c 74 61 2d 74 69 63 6b 73 20 delta-ticks
21d0: 36 34 6f 66 66 20 20 6d 61 78 2d 64 74 69 63 6b 64off max-dtick
21e0: 73 20 36 34 6f 66 66 20 20 61 63 6b 73 20 6f 66 s 64off acks of
21f0: 66 20 3b 0a 0a 69 6e 20 6e 65 74 32 6f 20 3a 20 f ;..in net2o :
2200: 61 63 6b 74 69 6d 65 20 28 20 2d 2d 20 29 0a 20 acktime ( -- ).
2210: 20 20 20 72 65 63 76 2d 61 64 64 72 20 36 34 40 recv-addr 64@
2220: 20 61 63 6b 40 20 2e 72 65 63 76 2d 74 69 63 6b ack@ .recv-tick
2230: 20 36 34 40 20 61 63 6b 40 20 2e 74 69 6d 65 2d 64@ ack@ .time-
2240: 6f 66 66 73 65 74 20 36 34 40 20 36 34 2d 0a 20 offset 64@ 64-.
2250: 20 20 20 74 69 6d 69 6e 67 28 20 36 34 3e 72 20 timing( 64>r
2260: 36 34 64 75 70 20 78 36 34 2e 20 36 34 72 3e 20 64dup x64. 64r>
2270: 36 34 64 75 70 20 75 36 34 2e 20 2e 22 20 61 63 64dup u64. ." ac
2280: 6b 74 69 6d 65 22 20 66 6f 72 74 68 3a 63 72 20 ktime" forth:cr
2290: 29 0a 20 20 20 20 6c 69 74 2c 20 6c 69 74 2c 20 ). lit, lit,
22a0: 61 63 6b 2d 61 64 64 72 74 69 6d 65 20 3b 0a 69 ack-addrtime ;.i
22b0: 6e 20 6e 65 74 32 6f 20 3a 20 62 32 62 74 69 6d n net2o : b2btim
22c0: 65 20 28 20 2d 2d 20 29 0a 20 20 20 20 6c 61 73 e ( -- ). las
22d0: 74 2d 72 61 64 64 72 20 36 34 40 20 6c 61 73 74 t-raddr 64@ last
22e0: 2d 72 74 69 63 6b 20 36 34 40 20 36 34 64 75 70 -rtick 64@ 64dup
22f0: 20 36 34 2d 30 3d 0a 20 20 20 20 49 46 20 20 36 64-0=. IF 6
2300: 34 64 72 6f 70 20 36 34 64 72 6f 70 0a 20 20 20 4drop 64drop.
2310: 20 45 4c 53 45 20 20 61 63 6b 40 20 2e 74 69 6d ELSE ack@ .tim
2320: 65 2d 6f 66 66 73 65 74 20 36 34 40 20 36 34 2d e-offset 64@ 64-
2330: 20 6c 69 74 2c 20 6c 69 74 2c 20 61 63 6b 2d 62 lit, lit, ack-b
2340: 32 62 74 69 6d 65 20 20 54 48 45 4e 20 3b 0a 0a 2btime THEN ;..
2350: 5c 20 61 63 6b 20 62 69 74 73 2c 20 6e 65 77 20 \ ack bits, new
2360: 63 6f 64 65 0a 0a 69 6e 20 6e 65 74 32 6f 20 3a code..in net2o :
2370: 20 61 63 6b 2d 72 65 73 65 6e 64 23 20 28 20 2d ack-resend# ( -
2380: 2d 20 29 20 20 64 61 74 61 2d 72 6d 61 70 20 7b - ) data-rmap {
2390: 20 6d 61 70 20 7d 0a 20 20 20 20 6d 61 70 20 2e map }. map .
23a0: 6d 61 70 63 3a 64 61 74 61 2d 72 65 73 65 6e 64 mapc:data-resend
23b0: 23 2d 62 75 66 20 24 40 0a 20 20 20 20 62 6f 75 #-buf $@. bou
23c0: 6e 64 73 20 3f 44 4f 0a 09 49 20 24 40 20 6f 76 nds ?DO..I $@ ov
23d0: 65 72 20 40 20 3e 72 20 63 65 6c 6c 20 2f 73 74 er @ >r cell /st
23e0: 72 69 6e 67 20 24 46 46 20 2d 73 6b 69 70 0a 09 ring $FF -skip..
23f0: 64 75 70 20 3e 72 20 24 46 46 20 73 6b 69 70 20 dup >r $FF skip
2400: 64 75 70 20 49 46 0a 09 20 20 20 20 72 3e 20 6f dup IF.. r> o
2410: 76 65 72 20 2d 20 72 3e 20 2b 20 75 6c 69 74 2c ver - r> + ulit,
2420: 20 24 2c 20 61 63 6b 2d 72 65 73 65 6e 64 23 0a $, ack-resend#.
2430: 09 45 4c 53 45 20 20 32 64 72 6f 70 20 72 64 72 .ELSE 2drop rdr
2440: 6f 70 20 72 64 72 6f 70 20 20 54 48 45 4e 0a 20 op rdrop THEN.
2450: 20 20 20 63 65 6c 6c 20 2b 4c 4f 4f 50 0a 20 20 cell +LOOP.
2460: 20 20 6d 61 70 20 2e 6d 61 70 63 3a 64 61 74 61 map .mapc:data
2470: 2d 72 65 73 65 6e 64 23 2d 62 75 66 20 24 5b 5d -resend#-buf $[]
2480: 6f 66 66 20 3b 0a 0a 5c 20 63 6c 69 65 6e 74 20 off ;..\ client
2490: 73 69 64 65 20 61 63 6b 6e 6f 77 6c 65 64 67 65 side acknowledge
24a0: 0a 0a 69 6e 20 6e 65 74 32 6f 20 3a 20 67 65 6e ..in net2o : gen
24b0: 61 63 6b 20 28 20 2d 2d 20 29 0a 20 20 20 20 6e ack ( -- ). n
24c0: 65 74 32 6f 3a 61 63 6b 2d 72 65 73 65 6e 64 23 et2o:ack-resend#
24d0: 20 20 6e 65 74 32 6f 3a 62 32 62 74 69 6d 65 20 net2o:b2btime
24e0: 20 6e 65 74 32 6f 3a 61 63 6b 74 69 6d 65 20 20 net2o:acktime
24f0: 3e 72 61 74 65 20 3b 0a 0a 3a 20 21 72 64 61 74 >rate ;..: !rdat
2500: 61 2d 74 61 69 6c 20 28 20 2d 2d 20 29 0a 20 20 a-tail ( -- ).
2510: 20 20 64 61 74 61 2d 72 6d 61 70 20 77 69 74 68 data-rmap with
2520: 20 6d 61 70 63 0a 20 20 20 20 64 61 74 61 2d 61 mapc. data-a
2530: 63 6b 23 20 40 20 62 79 74 65 73 3e 61 64 64 72 ck# @ bytes>addr
2540: 0a 20 20 20 20 64 65 73 74 2d 68 65 61 64 20 75 . dest-head u
2550: 6d 69 6e 20 64 65 73 74 2d 74 6f 70 20 75 6d 69 min dest-top umi
2560: 6e 0a 20 20 20 20 64 65 73 74 2d 74 61 69 6c 20 n. dest-tail
2570: 75 6d 61 78 20 64 75 70 20 61 64 64 72 20 64 65 umax dup addr de
2580: 73 74 2d 74 61 69 6c 20 21 40 20 65 6e 64 77 69 st-tail !@ endwi
2590: 74 68 0a 20 20 20 20 61 63 6b 28 20 2e 22 20 74 th. ack( ." t
25a0: 61 69 6c 3a 20 22 20 6f 76 65 72 20 68 65 78 2e ail: " over hex.
25b0: 20 64 75 70 20 68 65 78 2e 20 66 6f 72 74 68 3a dup hex. forth:
25c0: 63 72 20 29 0a 20 20 20 20 75 3e 20 49 46 20 20 cr ). u> IF
25d0: 6e 65 74 32 6f 3a 73 61 76 65 26 20 36 34 23 30 net2o:save& 64#0
25e0: 20 62 75 72 73 74 2d 74 69 63 6b 73 20 36 34 21 burst-ticks 64!
25f0: 20 20 54 48 45 4e 20 3b 0a 0a 24 32 30 20 56 61 THEN ;..$20 Va
2600: 6c 75 65 20 6d 61 78 2d 72 65 73 65 6e 64 23 0a lue max-resend#.
2610: 0a 3a 20 70 72 65 70 61 72 65 2d 72 65 73 65 6e .: prepare-resen
2620: 64 20 28 20 66 6c 61 67 20 2d 2d 20 65 6e 64 20 d ( flag -- end
2630: 73 74 61 72 74 20 61 63 6b 73 20 61 63 6b 6d 20 start acks ackm
2640: 74 61 69 62 69 74 73 20 62 61 63 6b 62 69 74 73 taibits backbits
2650: 20 29 0a 20 20 20 20 64 61 74 61 2d 72 6d 61 70 ). data-rmap
2660: 20 77 69 74 68 20 6d 61 70 63 0a 20 20 20 20 61 with mapc. a
2670: 63 6b 28 20 2e 22 20 68 65 61 64 2f 74 61 69 6c ck( ." head/tail
2680: 3a 20 22 20 64 75 70 20 66 6f 72 74 68 3a 2e 20 : " dup forth:.
2690: 64 65 73 74 2d 68 65 61 64 20 68 65 78 2e 20 64 dest-head hex. d
26a0: 65 73 74 2d 74 61 69 6c 20 68 65 78 2e 20 66 6f est-tail hex. fo
26b0: 72 74 68 3a 63 72 20 29 0a 20 20 20 20 49 46 20 rth:cr ). IF
26c0: 20 20 20 64 65 73 74 2d 68 65 61 64 20 61 64 64 dest-head add
26d0: 72 3e 62 79 74 65 73 20 2d 34 20 61 6e 64 0a 20 r>bytes -4 and.
26e0: 20 20 20 45 4c 53 45 20 20 64 65 73 74 2d 68 65 ELSE dest-he
26f0: 61 64 20 31 2d 20 61 64 64 72 3e 62 79 74 65 73 ad 1- addr>bytes
2700: 20 31 2b 20 20 54 48 45 4e 20 30 20 6d 61 78 0a 1+ THEN 0 max.
2710: 20 20 20 20 64 65 73 74 2d 74 61 69 6c 20 61 64 dest-tail ad
2720: 64 72 3e 62 79 74 65 73 20 2d 34 20 61 6e 64 20 dr>bytes -4 and
2730: 5c 20 64 75 70 20 64 61 74 61 2d 61 63 6b 23 20 \ dup data-ack#
2740: 75 6d 69 6e 21 0a 20 20 20 20 64 61 74 61 2d 61 umin!. data-a
2750: 63 6b 62 69 74 73 20 40 20 64 65 73 74 2d 73 69 ckbits @ dest-si
2760: 7a 65 20 61 64 64 72 3e 62 79 74 65 73 20 31 2d ze addr>bytes 1-
2770: 0a 20 20 20 20 64 65 73 74 2d 74 61 69 6c 20 61 . dest-tail a
2780: 64 64 72 3e 62 69 74 73 20 64 65 73 74 2d 62 61 ddr>bits dest-ba
2790: 63 6b 20 64 65 73 74 2d 73 69 7a 65 20 2b 20 61 ck dest-size + a
27a0: 64 64 72 3e 62 69 74 73 20 65 6e 64 77 69 74 68 ddr>bits endwith
27b0: 20 3b 0a 0a 69 6e 20 6e 65 74 32 6f 20 3a 20 64 ;..in net2o : d
27c0: 6f 2d 72 65 73 65 6e 64 20 28 20 66 6c 61 67 20 o-resend ( flag
27d0: 2d 2d 20 29 0a 20 20 20 20 6f 20 30 3d 20 49 46 -- ). o 0= IF
27e0: 20 20 64 72 6f 70 20 45 58 49 54 20 20 54 48 45 drop EXIT THE
27f0: 4e 20 20 64 61 74 61 2d 72 6d 61 70 20 30 3d 20 N data-rmap 0=
2800: 49 46 20 20 64 72 6f 70 20 45 58 49 54 20 20 54 IF drop EXIT T
2810: 48 45 4e 0a 20 20 20 20 30 20 73 77 61 70 20 20 HEN. 0 swap
2820: 70 72 65 70 61 72 65 2d 72 65 73 65 6e 64 20 7b prepare-resend {
2830: 20 61 63 6b 73 20 61 63 6b 6d 20 74 61 69 6c 62 acks ackm tailb
2840: 69 74 73 20 62 61 63 6b 62 69 74 73 20 7d 0a 20 its backbits }.
2850: 20 20 20 61 63 6b 28 20 2e 22 20 61 63 6b 20 6c ack( ." ack l
2860: 6f 6f 70 3a 20 22 20 6f 76 65 72 20 68 65 78 2e oop: " over hex.
2870: 20 64 75 70 20 68 65 78 2e 20 66 6f 72 74 68 3a dup hex. forth:
2880: 63 72 20 29 0a 20 20 20 20 2b 44 4f 0a 09 61 63 cr ). +DO..ac
2890: 6b 73 20 49 20 61 63 6b 6d 20 61 6e 64 20 2b 20 ks I ackm and +
28a0: 6c 40 0a 09 61 63 6b 73 28 20 2e 22 20 61 63 6b l@..acks( ." ack
28b0: 73 5b 22 20 49 20 62 79 74 65 73 3e 62 69 74 73 s[" I bytes>bits
28c0: 20 68 65 78 2e 0a 09 49 20 64 61 74 61 2d 72 6d hex...I data-rm
28d0: 61 70 20 2e 6d 61 70 63 3a 64 61 74 61 2d 61 63 ap .mapc:data-ac
28e0: 6b 23 20 40 20 3d 20 49 46 20 27 2a 27 20 65 6d k# @ = IF '*' em
28f0: 69 74 20 54 48 45 4e 0a 09 2e 22 20 5d 3d 22 20 it THEN..." ]="
2900: 64 75 70 20 68 65 78 2e 20 62 61 63 6b 62 69 74 dup hex. backbit
2910: 73 20 68 65 78 2e 20 66 6f 72 74 68 3a 63 72 20 s hex. forth:cr
2920: 29 0a 09 49 20 62 79 74 65 73 3e 62 69 74 73 20 )..I bytes>bits
2930: 74 61 69 6c 62 69 74 73 20 75 3c 20 49 46 0a 09 tailbits u< IF..
2940: 20 20 20 20 2d 31 20 74 61 69 6c 62 69 74 73 20 -1 tailbits
2950: 49 20 62 79 74 65 73 3e 62 69 74 73 20 2d 20 6c I bytes>bits - l
2960: 73 68 69 66 74 20 69 6e 76 65 72 74 20 6f 72 0a shift invert or.
2970: 09 54 48 45 4e 0a 09 64 75 70 20 24 46 46 46 46 .THEN..dup $FFFF
2980: 46 46 46 46 20 3c 3e 20 49 46 0a 09 20 20 20 20 FFFF <> IF..
2990: 72 65 73 65 6e 64 28 20 2e 22 20 72 65 73 65 6e resend( ." resen
29a0: 64 3a 20 22 20 64 75 70 20 68 65 78 2e 20 6f 76 d: " dup hex. ov
29b0: 65 72 20 68 65 78 2e 20 66 6f 72 74 68 3a 63 72 er hex. forth:cr
29c0: 20 29 0a 09 20 20 20 20 49 20 61 63 6b 6d 20 61 ).. I ackm a
29d0: 6e 64 20 62 79 74 65 73 3e 61 64 64 72 20 75 6c nd bytes>addr ul
29e0: 69 74 2c 20 24 46 46 46 46 46 46 46 46 20 78 6f it, $FFFFFFFF xo
29f0: 72 20 75 6c 69 74 2c 20 72 65 73 65 6e 64 2d 6d r ulit, resend-m
2a00: 61 73 6b 20 20 31 2b 0a 09 45 4c 53 45 0a 09 20 ask 1+..ELSE..
2a10: 20 20 20 64 72 6f 70 20 64 75 70 20 30 3d 20 49 drop dup 0= I
2a20: 46 20 5c 20 69 66 20 77 65 20 64 69 64 6e 27 74 F \ if we didn't
2a30: 20 68 61 76 65 20 61 20 72 65 73 65 6e 64 20 79 have a resend y
2a40: 65 74 2c 20 69 6e 63 72 65 61 73 65 20 64 61 74 et, increase dat
2a50: 61 2d 61 63 6b 23 0a 09 09 49 20 34 20 2b 20 62 a-ack#...I 4 + b
2a60: 79 74 65 73 3e 62 69 74 73 20 62 61 63 6b 62 69 ytes>bits backbi
2a70: 74 73 20 75 3c 3d 20 49 46 20 5c 20 6e 6f 20 62 ts u<= IF \ no b
2a80: 61 63 6b 62 69 74 73 2c 20 70 6c 65 61 73 65 0a ackbits, please.
2a90: 09 09 20 20 20 20 49 20 34 20 2b 20 64 61 74 61 .. I 4 + data
2aa0: 2d 72 6d 61 70 20 2e 6d 61 70 63 3a 64 61 74 61 -rmap .mapc:data
2ab0: 2d 61 63 6b 23 20 75 6d 61 78 21 0a 09 09 54 48 -ack# umax!...TH
2ac0: 45 4e 0a 09 20 20 20 20 54 48 45 4e 0a 09 54 48 EN.. THEN..TH
2ad0: 45 4e 0a 09 64 75 70 20 6d 61 78 2d 72 65 73 65 EN..dup max-rese
2ae0: 6e 64 23 20 3e 3d 20 3f 4c 45 41 56 45 20 5c 20 nd# >= ?LEAVE \
2af0: 6e 6f 20 6d 6f 72 65 20 74 68 61 6e 20 78 20 72 no more than x r
2b00: 65 73 65 6e 64 73 0a 20 20 20 20 34 20 2b 4c 4f esends. 4 +LO
2b10: 4f 50 20 20 64 72 6f 70 20 21 72 64 61 74 61 2d OP drop !rdata-
2b20: 74 61 69 6c 20 3b 0a 0a 3a 20 64 6f 2d 65 78 70 tail ;..: do-exp
2b30: 65 63 74 2d 72 65 70 6c 79 20 28 20 2d 2d 20 29 ect-reply ( -- )
2b40: 0a 20 20 20 20 63 6d 64 62 75 66 23 20 40 20 30 . cmdbuf# @ 0
2b50: 3e 20 49 46 20 5c 20 74 68 65 72 65 27 73 20 61 > IF \ there's a
2b60: 63 74 75 61 6c 6c 20 73 6f 6d 65 74 68 69 6e 67 ctuall something
2b70: 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 0a 09 in the buffer..
2b80: 72 65 70 6c 79 2d 69 6e 64 65 78 20 75 6c 69 74 reply-index ulit
2b90: 2c 20 6f 6b 3f 20 20 65 6e 64 2d 63 6d 64 0a 09 , ok? end-cmd..
2ba0: 6e 65 74 32 6f 3a 65 78 70 65 63 74 2d 72 65 70 net2o:expect-rep
2bb0: 6c 79 20 20 6d 61 78 64 61 74 61 20 63 6f 64 65 ly maxdata code
2bc0: 2b 20 5c 20 64 6f 6e 27 74 20 72 65 75 73 65 20 + \ don't reuse
2bd0: 74 68 69 73 20 62 75 66 66 65 72 0a 20 20 20 20 this buffer.
2be0: 54 48 45 4e 20 20 5b 27 5d 20 65 6e 64 2d 63 6d THEN ['] end-cm
2bf0: 64 20 49 53 20 65 78 70 65 63 74 2d 72 65 70 6c d IS expect-repl
2c00: 79 3f 20 3b 0a 0a 3a 20 64 6f 2d 65 78 70 65 63 y? ;..: do-expec
2c10: 74 2b 73 6c 75 72 70 20 28 20 2d 2d 20 29 0a 20 t+slurp ( -- ).
2c20: 20 20 20 63 6d 64 62 75 66 23 20 40 20 30 3e 20 cmdbuf# @ 0>
2c30: 49 46 20 5c 20 74 68 65 72 65 27 73 20 61 63 74 IF \ there's act
2c40: 75 61 6c 6c 20 73 6f 6d 65 74 68 69 6e 67 20 69 uall something i
2c50: 6e 20 74 68 65 20 62 75 66 66 65 72 0a 09 73 6c n the buffer..sl
2c60: 75 72 70 20 6e 65 78 74 2d 72 65 71 75 65 73 74 urp next-request
2c70: 20 66 69 6c 65 72 65 71 23 20 21 20 20 74 72 75 filereq# ! tru
2c80: 65 20 64 61 74 61 2d 72 6d 61 70 20 3e 6f 20 74 e data-rmap >o t
2c90: 6f 20 6d 61 70 63 3a 64 65 73 74 2d 72 65 71 20 o mapc:dest-req
2ca0: 6f 3e 0a 09 72 65 70 6c 79 2d 69 6e 64 65 78 20 o>..reply-index
2cb0: 75 6c 69 74 2c 20 6f 6b 3f 20 20 65 6e 64 2d 63 ulit, ok? end-c
2cc0: 6d 64 0a 09 6e 65 74 32 6f 3a 65 78 70 65 63 74 md..net2o:expect
2cd0: 2d 72 65 70 6c 79 20 20 6d 61 78 64 61 74 61 20 -reply maxdata
2ce0: 63 6f 64 65 2b 20 5c 20 64 6f 6e 27 74 20 72 65 code+ \ don't re
2cf0: 75 73 65 20 74 68 69 73 20 62 75 66 66 65 72 0a use this buffer.
2d00: 20 20 20 20 54 48 45 4e 20 20 5b 27 5d 20 65 6e THEN ['] en
2d10: 64 2d 63 6d 64 20 49 53 20 65 78 70 65 63 74 2d d-cmd IS expect-
2d20: 72 65 70 6c 79 3f 20 3b 0a 0a 3a 20 65 78 70 65 reply? ;..: expe
2d30: 63 74 2d 72 65 70 6c 79 2d 78 74 20 28 20 78 74 ct-reply-xt ( xt
2d40: 20 2d 2d 20 29 20 5c 20 63 6d 64 28 20 2e 22 20 -- ) \ cmd( ."
2d50: 65 78 70 65 63 74 20 72 65 70 6c 79 3a 22 20 66 expect reply:" f
2d60: 6f 72 74 68 3a 63 72 20 29 0a 20 20 20 20 5b 27 orth:cr ). ['
2d70: 5d 20 64 6f 2d 65 78 70 65 63 74 2d 72 65 70 6c ] do-expect-repl
2d80: 79 20 49 53 20 65 78 70 65 63 74 2d 72 65 70 6c y IS expect-repl
2d90: 79 3f 0a 20 20 20 20 63 6d 64 2d 72 65 70 6c 79 y?. cmd-reply
2da0: 2d 78 74 20 21 20 3b 0a 0a 3a 20 65 78 70 65 63 -xt ! ;..: expec
2db0: 74 2d 72 65 70 6c 79 20 28 20 2d 2d 20 29 0a 20 t-reply ( -- ).
2dc0: 20 20 20 5b 27 5d 20 64 72 6f 70 20 65 78 70 65 ['] drop expe
2dd0: 63 74 2d 72 65 70 6c 79 2d 78 74 20 3b 0a 0a 3a ct-reply-xt ;..:
2de0: 20 65 78 70 65 63 74 2b 73 6c 75 72 70 2d 78 74 expect+slurp-xt
2df0: 20 28 20 78 74 20 2d 2d 20 29 20 5c 20 63 6d 64 ( xt -- ) \ cmd
2e00: 28 20 2e 22 20 65 78 70 65 63 74 20 72 65 70 6c ( ." expect repl
2e10: 79 3a 22 20 66 6f 72 74 68 3a 63 72 20 29 0a 20 y:" forth:cr ).
2e20: 20 20 20 5b 27 5d 20 64 6f 2d 65 78 70 65 63 74 ['] do-expect
2e30: 2b 73 6c 75 72 70 20 49 53 20 65 78 70 65 63 74 +slurp IS expect
2e40: 2d 72 65 70 6c 79 3f 0a 20 20 20 20 63 6d 64 2d -reply?. cmd-
2e50: 72 65 70 6c 79 2d 78 74 20 21 20 3b 0a 0a 3a 20 reply-xt ! ;..:
2e60: 65 78 70 65 63 74 2b 73 6c 75 72 70 20 28 20 2d expect+slurp ( -
2e70: 2d 20 29 0a 20 20 20 20 5b 27 5d 20 64 72 6f 70 - ). ['] drop
2e80: 20 65 78 70 65 63 74 2b 73 6c 75 72 70 2d 78 74 expect+slurp-xt
2e90: 20 3b 0a 0a 55 56 61 6c 75 65 20 72 65 63 2d 61 ;..UValue rec-a
2ea0: 63 6b 2d 70 6f 73 23 0a 0a 3a 20 73 65 71 23 2c ck-pos#..: seq#,
2eb0: 20 28 20 2d 2d 20 29 0a 20 20 20 20 63 6d 64 62 ( -- ). cmdb
2ec0: 75 66 23 20 40 20 31 20 3d 20 49 46 0a 09 64 61 uf# @ 1 = IF..da
2ed0: 74 61 2d 72 6d 61 70 20 2e 6d 61 70 63 3a 72 65 ta-rmap .mapc:re
2ee0: 63 2d 61 63 6b 23 20 75 6c 69 74 2c 20 73 65 71 c-ack# ulit, seq
2ef0: 23 0a 09 63 6d 64 62 75 66 23 20 40 20 74 6f 20 #..cmdbuf# @ to
2f00: 72 65 63 2d 61 63 6b 2d 70 6f 73 23 0a 20 20 20 rec-ack-pos#.
2f10: 20 54 48 45 4e 20 3b 0a 0a 3a 20 72 65 73 65 6e THEN ;..: resen
2f20: 64 2d 61 6c 6c 20 28 20 2d 2d 20 29 0a 20 20 20 d-all ( -- ).
2f30: 20 73 65 71 23 2c 0a 20 20 20 20 66 61 6c 73 65 seq#,. false
2f40: 20 6e 65 74 32 6f 3a 64 6f 2d 72 65 73 65 6e 64 net2o:do-resend
2f50: 0a 20 20 20 20 61 63 6b 40 20 2e 2b 74 69 6d 65 . ack@ .+time
2f60: 6f 75 74 73 20 72 65 73 65 6e 64 2d 61 6c 6c 2d outs resend-all-
2f70: 74 6f 20 36 34 21 20 3b 0a 0a 30 20 56 61 6c 75 to 64! ;..0 Valu
2f80: 65 20 72 65 71 75 65 73 74 2d 73 74 61 74 73 3f e request-stats?
2f90: 0a 0a 3a 20 75 70 64 61 74 65 2d 72 74 64 65 6c ..: update-rtdel
2fa0: 61 79 20 28 20 2d 2d 20 29 0a 20 20 20 20 74 69 ay ( -- ). ti
2fb0: 63 6b 73 20 6c 69 74 2c 20 70 75 73 68 2d 6c 69 cks lit, push-li
2fc0: 74 20 70 75 73 68 27 20 73 65 74 2d 72 74 64 65 t push' set-rtde
2fd0: 6c 61 79 20 3b 0a 0a 3a 20 64 61 74 61 2d 65 6e lay ;..: data-en
2fe0: 64 3f 20 28 20 2d 2d 20 66 6c 61 67 20 29 0a 20 d? ( -- flag ).
2ff0: 20 20 20 30 20 64 61 74 61 2d 72 6d 61 70 20 2e 0 data-rmap .
3000: 6d 61 70 63 3a 64 65 73 74 2d 65 6e 64 20 21 40 mapc:dest-end !@
3010: 20 3b 0a 0a 3a 20 65 78 70 65 63 74 65 64 40 20 ;..: expected@
3020: 28 20 2d 2d 20 68 65 61 64 20 74 6f 70 20 29 0a ( -- head top ).
3030: 20 20 20 20 6f 20 49 46 20 20 64 61 74 61 2d 72 o IF data-r
3040: 6d 61 70 20 77 69 74 68 20 6d 61 70 63 0a 09 6f map with mapc..o
3050: 20 49 46 20 20 64 65 73 74 2d 74 61 69 6c 20 64 IF dest-tail d
3060: 65 73 74 2d 74 6f 70 0a 09 20 20 20 20 6d 73 67 est-top.. msg
3070: 28 20 2e 22 20 65 78 70 65 63 74 65 64 3a 20 22 ( ." expected: "
3080: 20 6f 76 65 72 20 68 65 78 2e 20 64 75 70 20 68 over hex. dup h
3090: 65 78 2e 20 66 6f 72 74 68 3a 63 72 20 29 0a 09 ex. forth:cr )..
30a0: 45 4c 53 45 20 20 23 30 2e 20 6d 73 67 28 20 2e ELSE #0. msg( .
30b0: 22 20 65 78 70 65 63 74 65 64 3a 20 6e 6f 20 64 " expected: no d
30c0: 61 74 61 2d 72 6d 61 70 22 20 66 6f 72 74 68 3a ata-rmap" forth:
30d0: 63 72 20 29 20 20 54 48 45 4e 20 65 6e 64 77 69 cr ) THEN endwi
30e0: 74 68 0a 20 20 20 20 45 4c 53 45 20 20 23 30 2e th. ELSE #0.
30f0: 20 6d 73 67 28 20 2e 22 20 65 78 70 65 63 74 65 msg( ." expecte
3100: 64 3a 20 6e 6f 20 6f 62 6a 65 63 74 22 20 66 6f d: no object" fo
3110: 72 74 68 3a 63 72 20 29 20 20 54 48 45 4e 20 20 rth:cr ) THEN
3120: 3b 0a 0a 3a 20 72 65 77 69 6e 64 2d 74 72 61 6e ;..: rewind-tran
3130: 73 66 65 72 20 28 20 2d 2d 20 66 6c 61 67 20 29 sfer ( -- flag )
3140: 0a 20 20 20 20 64 61 74 61 2d 65 6e 64 3f 20 49 . data-end? I
3150: 46 20 20 66 69 6c 65 72 65 71 23 20 40 20 6e 65 F filereq# @ ne
3160: 74 32 6f 3a 72 65 71 75 65 73 74 2d 64 6f 6e 65 t2o:request-done
3170: 20 20 66 61 6c 73 65 0a 09 64 61 74 61 2d 72 6d false..data-rm
3180: 61 70 20 3e 6f 20 64 75 70 20 74 6f 20 6d 61 70 ap >o dup to map
3190: 63 3a 64 65 73 74 2d 72 65 71 20 6f 3e 0a 20 20 c:dest-req o>.
31a0: 20 20 45 4c 53 45 20 20 64 61 74 61 2d 72 6d 61 ELSE data-rma
31b0: 70 20 2e 6d 61 70 63 3a 64 65 73 74 2d 72 65 71 p .mapc:dest-req
31c0: 20 20 54 48 45 4e 20 3b 0a 0a 3a 20 72 65 71 75 THEN ;..: requ
31d0: 65 73 74 2d 73 74 61 74 73 20 20 20 66 6f 72 74 est-stats fort
31e0: 68 3a 74 72 75 65 20 74 6f 20 72 65 71 75 65 73 h:true to reques
31f0: 74 2d 73 74 61 74 73 3f 20 20 61 63 6b 20 74 72 t-stats? ack tr
3200: 61 63 6b 2d 74 69 6d 69 6e 67 20 65 6e 64 2d 77 ack-timing end-w
3210: 69 74 68 20 3b 0a 0a 3a 20 65 78 70 65 63 74 65 ith ;..: expecte
3220: 64 3f 20 28 20 2d 2d 20 66 6c 61 67 20 29 0a 20 d? ( -- flag ).
3230: 20 20 20 65 78 70 65 63 74 65 64 40 20 75 3e 3d expected@ u>=
3240: 20 49 46 0a 09 65 78 70 65 63 74 2d 72 65 70 6c IF..expect-repl
3250: 79 0a 09 6d 73 67 28 20 2e 22 20 63 68 65 63 6b y..msg( ." check
3260: 3a 20 22 20 64 61 74 61 2d 72 6d 61 70 20 77 69 : " data-rmap wi
3270: 74 68 20 6d 61 70 63 0a 09 64 65 73 74 2d 62 61 th mapc..dest-ba
3280: 63 6b 20 68 65 78 2e 20 64 65 73 74 2d 74 61 69 ck hex. dest-tai
3290: 6c 20 68 65 78 2e 20 64 65 73 74 2d 68 65 61 64 l hex. dest-head
32a0: 20 68 65 78 2e 0a 09 64 61 74 61 2d 61 63 6b 62 hex...data-ackb
32b0: 69 74 73 20 40 20 64 61 74 61 2d 61 63 6b 23 20 its @ data-ack#
32c0: 40 20 64 75 70 20 68 65 78 2e 20 2b 20 6c 40 20 @ dup hex. + l@
32d0: 68 65 78 2e 0a 09 65 6e 64 77 69 74 68 0a 09 66 hex...endwith..f
32e0: 6f 72 74 68 3a 63 72 20 2e 22 20 42 6c 6f 63 6b orth:cr ." Block
32f0: 20 74 72 61 6e 73 66 65 72 20 64 6f 6e 65 3a 20 transfer done:
3300: 22 20 65 78 70 65 63 74 65 64 40 20 68 65 78 2e " expected@ hex.
3310: 20 68 65 78 2e 20 66 6f 72 74 68 3a 63 72 20 29 hex. forth:cr )
3320: 0a 09 73 65 71 23 2c 0a 09 6e 65 74 32 6f 3a 73 ..seq#,..net2o:s
3330: 61 76 65 26 64 6f 6e 65 20 20 6e 65 74 32 6f 3a ave&done net2o:
3340: 61 63 6b 2d 72 65 73 65 6e 64 23 20 20 72 65 77 ack-resend# rew
3350: 69 6e 64 20 20 72 65 77 69 6e 64 2d 74 72 61 6e ind rewind-tran
3360: 73 66 65 72 0a 09 36 34 23 30 20 62 75 72 73 74 sfer..64#0 burst
3370: 2d 74 69 63 6b 73 20 36 34 21 0a 20 20 20 20 45 -ticks 64!. E
3380: 4c 53 45 20 20 66 61 6c 73 65 20 20 54 48 45 4e LSE false THEN
3390: 20 3b 0a 0a 63 65 6c 6c 20 38 20 3d 20 5b 49 46 ;..cell 8 = [IF
33a0: 5d 20 36 20 5b 45 4c 53 45 5d 20 35 20 5b 54 48 ] 6 [ELSE] 5 [TH
33b0: 45 4e 5d 20 43 6f 6e 73 74 61 6e 74 20 63 65 6c EN] Constant cel
33c0: 6c 3e 3e 0a 0a 43 72 65 61 74 65 20 6e 6f 2d 72 l>>..Create no-r
33d0: 65 73 65 6e 64 23 20 62 75 72 73 74 73 23 20 34 esend# bursts# 4
33e0: 20 2a 20 30 20 5b 44 4f 5d 20 2d 31 20 63 2c 20 * 0 [DO] -1 c,
33f0: 5b 4c 4f 4f 50 5d 0a 0a 73 63 6f 70 65 7b 20 6d [LOOP]..scope{ m
3400: 61 70 63 0a 0a 3a 20 2b 72 65 73 65 6e 64 23 20 apc..: +resend#
3410: 28 20 62 69 74 20 2d 2d 20 29 20 3e 72 0a 20 20 ( bit -- ) >r.
3420: 20 20 64 65 73 74 2d 61 64 64 72 20 36 34 40 20 dest-addr 64@
3430: 36 34 3e 6e 20 5b 20 6d 69 6e 2d 73 69 7a 65 20 64>n [ min-size
3440: 31 2d 20 5d 4c 20 61 6e 64 0a 20 20 20 20 72 40 1- ]L and. r@
3450: 20 5b 20 62 75 72 73 74 73 23 20 34 20 2a 20 31 [ bursts# 4 * 1
3460: 2d 20 5d 4c 20 61 6e 64 0a 20 20 20 20 72 3e 20 - ]L and. r>
3470: 5b 20 62 75 72 73 74 73 23 20 2d 34 20 2a 20 5d [ bursts# -4 * ]
3480: 4c 20 61 6e 64 20 5c 20 6f 6e 65 20 62 6c 6f 63 L and \ one bloc
3490: 6b 20 70 65 72 20 62 75 72 73 74 0a 20 20 20 20 k per burst.
34a0: 64 61 74 61 2d 72 65 73 65 6e 64 23 2d 62 75 66 data-resend#-buf
34b0: 20 24 5b 5d 23 20 30 20 3f 44 4f 0a 09 64 75 70 $[]# 0 ?DO..dup
34c0: 20 49 20 64 61 74 61 2d 72 65 73 65 6e 64 23 2d I data-resend#-
34d0: 62 75 66 20 24 5b 5d 40 20 64 72 6f 70 20 40 20 buf $[]@ drop @
34e0: 3d 20 49 46 0a 09 20 20 20 20 64 72 6f 70 20 49 = IF.. drop I
34f0: 20 64 61 74 61 2d 72 65 73 65 6e 64 23 2d 62 75 data-resend#-bu
3500: 66 20 24 5b 5d 40 20 64 72 6f 70 20 63 65 6c 6c f $[]@ drop cell
3510: 2b 20 2b 20 63 21 0a 09 20 20 20 20 55 4e 4c 4f + + c!.. UNLO
3520: 4f 50 20 20 45 58 49 54 20 20 54 48 45 4e 0a 20 OP EXIT THEN.
3530: 20 20 20 4c 4f 4f 50 0a 20 20 20 20 64 61 74 61 LOOP. data
3540: 2d 72 65 73 65 6e 64 23 2d 62 75 66 20 24 5b 5d -resend#-buf $[]
3550: 23 20 7b 20 77 5e 20 62 75 72 73 74 62 6c 6f 63 # { w^ burstbloc
3560: 6b 20 6e 20 7d 0a 20 20 20 20 62 75 72 73 74 62 k n }. burstb
3570: 6c 6f 63 6b 20 63 65 6c 6c 20 64 61 74 61 2d 72 lock cell data-r
3580: 65 73 65 6e 64 23 2d 62 75 66 20 24 2b 5b 5d 21 esend#-buf $+[]!
3590: 0a 20 20 20 20 6e 6f 2d 72 65 73 65 6e 64 23 20 . no-resend#
35a0: 5b 20 62 75 72 73 74 73 23 20 34 20 2a 20 5d 4c [ bursts# 4 * ]L
35b0: 20 6e 20 64 61 74 61 2d 72 65 73 65 6e 64 23 2d n data-resend#-
35c0: 62 75 66 20 24 5b 5d 2b 21 0a 20 20 20 20 6e 20 buf $[]+!. n
35d0: 64 61 74 61 2d 72 65 73 65 6e 64 23 2d 62 75 66 data-resend#-buf
35e0: 20 24 5b 5d 40 20 64 72 6f 70 20 63 65 6c 6c 2b $[]@ drop cell+
35f0: 20 2b 20 63 21 20 3b 0a 0a 7d 73 63 6f 70 65 0a + c! ;..}scope.
3600: 0a 3a 20 2b 63 6f 6f 6b 69 65 20 28 20 2d 2d 20 .: +cookie ( --
3610: 29 0a 20 20 20 20 64 61 74 61 2d 72 6d 61 70 20 ). data-rmap
3620: 77 69 74 68 20 6d 61 70 63 20 20 61 63 6b 2d 62 with mapc ack-b
3630: 69 74 23 20 40 20 3e 72 20 20 72 40 20 2b 72 65 it# @ >r r@ +re
3640: 73 65 6e 64 23 0a 20 20 20 20 64 61 74 61 2d 61 send#. data-a
3650: 63 6b 62 69 74 73 20 40 20 72 3e 20 2b 62 69 74 ckbits @ r> +bit
3660: 40 0a 20 20 20 20 65 6e 64 77 69 74 68 20 6e 65 @. endwith ne
3670: 67 61 74 65 20 70 61 63 6b 65 74 72 32 20 2b 21 gate packetr2 +!
3680: 20 3b 0a 0a 3a 20 72 65 73 65 6e 64 2d 61 6c 6c ;..: resend-all
3690: 3f 20 28 20 2d 2d 20 66 6c 61 67 20 29 0a 20 20 ? ( -- flag ).
36a0: 20 20 64 61 74 61 2d 72 6d 61 70 20 77 69 74 68 data-rmap with
36b0: 20 6d 61 70 63 0a 20 20 20 20 61 63 6b 2d 61 64 mapc. ack-ad
36c0: 76 61 6e 63 65 3f 20 20 64 65 73 74 2d 68 65 61 vance? dest-hea
36d0: 64 20 64 65 73 74 2d 74 6f 70 20 75 3e 3d 20 20 d dest-top u>=
36e0: 61 6e 64 20 65 6e 64 77 69 74 68 0a 20 20 20 20 and endwith.
36f0: 74 69 63 6b 65 72 20 36 34 40 20 72 65 73 65 6e ticker 64@ resen
3700: 64 2d 61 6c 6c 2d 74 6f 20 36 34 40 20 36 34 75 d-all-to 64@ 64u
3710: 3e 3d 20 61 6e 64 0a 20 20 20 20 74 69 6d 65 6f >= and. timeo
3720: 75 74 28 20 64 75 70 20 49 46 20 20 2e 22 20 72 ut( dup IF ." r
3730: 65 73 65 6e 64 20 61 6c 6c 22 20 66 6f 72 74 68 esend all" forth
3740: 3a 63 72 20 20 54 48 45 4e 20 29 20 3b 0a 0a 3a :cr THEN ) ;..:
3750: 20 2b 65 78 70 65 63 74 65 64 20 28 20 2d 2d 20 +expected ( --
3760: 66 6c 61 67 20 29 0a 20 20 20 20 72 65 73 65 6e flag ). resen
3770: 64 2d 61 6c 6c 3f 20 20 49 46 20 20 20 72 65 73 d-all? IF res
3780: 65 6e 64 2d 61 6c 6c 20 20 54 48 45 4e 20 20 65 end-all THEN e
3790: 78 70 65 63 74 65 64 3f 20 3b 0a 0a 5c 20 68 69 xpected? ;..\ hi
37a0: 67 68 65 72 20 6c 65 76 65 6c 20 66 75 6e 63 74 gher level funct
37b0: 69 6f 6e 73 0a 0a 3a 20 6d 61 70 2d 72 65 71 75 ions..: map-requ
37c0: 65 73 74 2c 20 28 20 75 63 6f 64 65 20 75 64 61 est, ( ucode uda
37d0: 74 61 20 2d 2d 20 29 0a 20 20 20 20 6e 65 74 32 ta -- ). net2
37e0: 6f 3a 6e 65 77 2d 6d 61 70 20 6c 69 74 2c 20 73 o:new-map lit, s
37f0: 77 61 70 20 75 6c 69 74 2c 20 75 6c 69 74 2c 20 wap ulit, ulit,
3800: 6d 61 70 2d 72 65 71 75 65 73 74 20 3b 0a 0a 61 map-request ;..a
3810: 6c 73 6f 20 6e 65 74 32 6f 2d 62 61 73 65 0a 3a lso net2o-base.:
3820: 20 6e 61 74 2d 70 75 6e 63 68 20 28 20 6f 3a 63 nat-punch ( o:c
3830: 6f 6e 6e 65 63 74 69 6f 6e 20 2d 2d 20 29 0a 20 onnection -- ).
3840: 20 20 20 70 69 6e 67 73 20 6e 65 77 2d 72 65 71 pings new-req
3850: 75 65 73 74 20 66 61 6c 73 65 20 67 65 6e 2d 70 uest false gen-p
3860: 75 6e 63 68 6c 6f 61 64 20 67 65 6e 2d 70 75 6e unchload gen-pun
3870: 63 68 20 3b 0a 70 72 65 76 69 6f 75 73 0a 0a 3a ch ;.previous..:
3880: 20 70 75 6e 63 68 2d 72 65 70 6c 79 20 28 20 61 punch-reply ( a
3890: 64 64 72 20 75 20 2d 2d 20 29 0a 20 20 20 20 6f ddr u -- ). o
38a0: 75 74 66 6c 61 67 20 40 20 3e 72 20 20 63 6d 64 utflag @ >r cmd
38b0: 62 75 66 2d 6f 20 40 20 3e 72 0a 20 20 20 20 5b buf-o @ >r. [
38c0: 3a 20 63 6d 64 30 21 20 63 6d 64 72 65 73 65 74 : cmd0! cmdreset
38d0: 20 69 6e 69 74 2d 72 65 70 6c 79 20 61 6c 73 6f init-reply also
38e0: 20 6e 65 74 32 6f 2d 62 61 73 65 0a 20 20 20 20 net2o-base.
38f0: 20 20 5b 20 61 6c 73 6f 20 6e 65 74 32 6f 2d 62 [ also net2o-b
3900: 61 73 65 20 5d 0a 20 20 20 20 20 20 24 2c 20 6e ase ]. $, n
3910: 65 73 74 20 65 6e 64 2d 63 6f 64 65 20 3b 5d 20 est end-code ;]
3920: 63 61 74 63 68 0a 20 20 20 20 72 3e 20 63 6d 64 catch. r> cmd
3930: 62 75 66 2d 6f 20 21 20 20 72 3e 20 6f 75 74 66 buf-o ! r> outf
3940: 6c 61 67 20 21 20 20 74 68 72 6f 77 20 3b 0a 0a lag ! throw ;..
3950: 3a 20 30 2d 72 65 73 65 6e 64 3f 20 28 20 2d 2d : 0-resend? ( --
3960: 20 6e 20 29 0a 20 20 20 20 72 65 73 65 6e 64 30 n ). resend0
3970: 20 40 20 49 46 0a 09 5c 20 2e 22 20 52 65 73 65 @ IF..\ ." Rese
3980: 6e 64 20 74 6f 20 30 22 20 63 72 0a 09 63 6d 64 nd to 0" cr..cmd
3990: 30 21 0a 09 5b 3a 0a 09 20 20 72 65 73 65 6e 64 0!..[:.. resend
39a0: 28 20 2e 22 20 72 65 73 65 6e 64 30 3a 20 22 20 ( ." resend0: "
39b0: 72 65 73 65 6e 64 30 20 24 40 20 6e 65 74 32 6f resend0 $@ net2o
39c0: 3a 73 65 65 20 66 6f 72 74 68 3a 63 72 20 29 0a :see forth:cr ).
39d0: 09 20 20 6d 73 67 28 20 2e 22 20 72 65 73 65 6e . msg( ." resen
39e0: 64 30 3a 20 22 20 72 65 73 65 6e 64 30 20 24 40 d0: " resend0 $@
39f0: 20 73 77 61 70 20 68 65 78 2e 20 68 65 78 2e 20 swap hex. hex.
3a00: 66 6f 72 74 68 3a 63 72 20 29 0a 09 20 20 63 6d forth:cr ).. cm
3a10: 64 72 65 73 65 74 20 69 6e 69 74 2d 72 65 70 6c dreset init-repl
3a20: 79 20 72 65 73 65 6e 64 30 20 24 40 20 2b 63 6d y resend0 $@ +cm
3a30: 64 62 75 66 0a 09 20 20 72 30 2d 61 64 64 72 65 dbuf.. r0-addre
3a40: 73 73 20 72 65 74 75 72 6e 2d 61 64 64 72 20 24 ss return-addr $
3a50: 31 30 20 6d 6f 76 65 0a 09 20 20 63 6d 64 62 75 10 move.. cmdbu
3a60: 66 24 20 72 6e 67 36 34 20 73 65 6e 64 2d 63 6d f$ rng64 send-cm
3a70: 64 20 64 72 6f 70 0a 09 20 20 31 20 70 61 63 6b d drop.. 1 pack
3a80: 65 74 73 32 20 2b 21 20 3b 5d 0a 09 63 6d 64 6c ets2 +! ;]..cmdl
3a90: 6f 63 6b 20 63 2d 73 65 63 74 69 6f 6e 20 20 31 ock c-section 1
3aa0: 0a 20 20 20 20 45 4c 53 45 20 20 30 20 20 54 48 . ELSE 0 TH
3ab0: 45 4e 20 3b 0a 0a 3a 20 6d 61 70 2d 72 65 73 65 EN ;..: map-rese
3ac0: 6e 64 3f 20 28 20 2d 2d 20 6e 20 29 0a 20 20 20 nd? ( -- n ).
3ad0: 20 63 6f 64 65 2d 6d 61 70 20 3f 64 75 70 2d 49 code-map ?dup-I
3ae0: 46 20 20 77 69 74 68 20 6d 61 70 63 20 30 20 20 F with mapc 0
3af0: 6f 75 74 66 6c 61 67 20 6f 66 66 0a 09 64 65 73 outflag off..des
3b00: 74 2d 72 65 70 6c 69 65 73 0a 09 64 65 73 74 2d t-replies..dest-
3b10: 73 69 7a 65 20 61 64 64 72 3e 72 65 70 6c 69 65 size addr>replie
3b20: 73 20 62 6f 75 6e 64 73 20 65 6e 64 77 69 74 68 s bounds endwith
3b30: 20 55 2b 44 4f 0a 09 20 20 20 20 49 20 61 63 74 U+DO.. I act
3b40: 69 6f 6e 2d 6f 66 20 72 65 70 6c 79 2d 78 74 20 ion-of reply-xt
3b50: 49 46 0a 09 09 74 69 6d 65 6f 75 74 28 20 2e 22 IF...timeout( ."
3b60: 20 72 65 73 65 6e 64 3a 20 22 20 49 20 61 63 74 resend: " I act
3b70: 69 6f 6e 2d 6f 66 20 72 65 70 6c 79 2d 78 74 20 ion-of reply-xt
3b80: 2e 6e 61 6d 65 20 66 6f 72 74 68 3a 63 72 20 29 .name forth:cr )
3b90: 0a 09 09 72 65 73 65 6e 64 28 20 2e 22 20 72 65 ...resend( ." re
3ba0: 73 65 6e 64 3a 20 22 20 49 20 72 65 70 6c 79 2d send: " I reply-
3bb0: 64 65 73 74 20 36 34 40 20 78 36 34 2e 20 49 20 dest 64@ x64. I
3bc0: 32 40 20 6e 65 74 32 6f 3a 73 65 65 20 66 6f 72 2@ net2o:see for
3bd0: 74 68 3a 63 72 20 29 0a 09 09 6d 73 67 28 20 2e th:cr )...msg( .
3be0: 22 20 72 65 73 65 6e 64 3a 20 22 20 49 20 72 65 " resend: " I re
3bf0: 70 6c 79 2d 64 65 73 74 20 36 34 40 20 78 36 34 ply-dest 64@ x64
3c00: 2e 20 49 20 32 40 20 73 77 61 70 20 68 65 78 2e . I 2@ swap hex.
3c10: 20 68 65 78 2e 20 66 6f 72 74 68 3a 63 72 20 29 hex. forth:cr )
3c20: 0a 09 09 74 69 63 6b 73 20 49 20 72 65 70 6c 79 ...ticks I reply
3c30: 2d 74 69 6d 65 20 36 34 21 0a 09 09 49 20 32 40 -time 64!...I 2@
3c40: 20 49 20 72 65 70 6c 79 2d 64 65 73 74 20 36 34 I reply-dest 64
3c50: 40 0a 09 09 61 76 61 6c 61 6e 63 68 65 28 20 2e @...avalanche( .
3c60: 22 20 72 65 73 65 6e 64 20 63 6d 64 3a 20 22 20 " resend cmd: "
3c70: 66 74 69 6d 65 20 31 30 30 30 65 20 66 6d 6f 64 ftime 1000e fmod
3c80: 20 28 2e 74 69 6d 65 29 20 36 34 64 75 70 20 78 (.time) 64dup x
3c90: 36 34 2e 20 36 34 3e 72 20 64 75 70 20 68 65 78 64. 64>r dup hex
3ca0: 2e 20 36 34 72 3e 20 66 6f 72 74 68 3a 63 72 20 . 64r> forth:cr
3cb0: 29 0a 09 09 73 65 6e 64 2d 63 6d 64 20 64 72 6f )...send-cmd dro
3cc0: 70 0a 09 09 31 20 70 61 63 6b 65 74 73 32 20 2b p...1 packets2 +
3cd0: 21 20 31 2b 0a 09 20 20 20 20 54 48 45 4e 0a 09 ! 1+.. THEN..
3ce0: 72 65 70 6c 79 20 2b 4c 4f 4f 50 0a 20 20 20 20 reply +LOOP.
3cf0: 45 4c 53 45 20 20 30 20 20 54 48 45 4e 20 3b 0a ELSE 0 THEN ;.
3d00: 0a 3a 20 63 6d 64 2d 72 65 73 65 6e 64 3f 20 28 .: cmd-resend? (
3d10: 20 2d 2d 20 6e 20 29 0a 20 20 20 20 30 2d 72 65 -- n ). 0-re
3d20: 73 65 6e 64 3f 20 6d 61 70 2d 72 65 73 65 6e 64 send? map-resend
3d30: 3f 0a 20 20 20 20 74 69 6d 65 6f 75 74 28 20 32 ?. timeout( 2
3d40: 64 75 70 20 64 30 3c 3e 20 49 46 20 2e 22 20 72 dup d0<> IF ." r
3d50: 65 73 65 6e 64 20 22 20 6f 76 65 72 20 2e 20 64 esend " over . d
3d60: 75 70 20 2e 20 2e 22 20 63 6f 6d 6d 61 6e 64 73 up . ." commands
3d70: 20 30 2f 6d 61 70 22 20 63 72 20 54 48 45 4e 20 0/map" cr THEN
3d80: 29 20 2b 20 3b 0a 0a 3a 20 2e 65 78 70 65 63 74 ) + ;..: .expect
3d90: 65 64 20 28 20 2d 2d 20 29 0a 20 20 20 20 66 6f ed ( -- ). fo
3da0: 72 74 68 3a 2e 74 69 6d 65 20 2e 22 20 65 78 70 rth:.time ." exp
3db0: 65 63 74 65 64 2f 72 65 63 65 69 76 65 64 3a 20 ected/received:
3dc0: 22 20 72 65 63 76 2d 61 64 64 72 20 40 20 68 65 " recv-addr @ he
3dd0: 78 2e 0a 20 20 20 20 64 61 74 61 2d 72 6d 61 70 x.. data-rmap
3de0: 20 2e 6d 61 70 63 3a 64 61 74 61 2d 61 63 6b 23 .mapc:data-ack#
3df0: 20 40 20 68 65 78 2e 0a 20 20 20 20 65 78 70 65 @ hex.. expe
3e00: 63 74 65 64 40 20 68 65 78 2e 20 68 65 78 2e 20 cted@ hex. hex.
3e10: 66 6f 72 74 68 3a 63 72 20 3b 0a 0a 5c 20 61 63 forth:cr ;..\ ac
3e20: 6b 6e 6f 77 6c 65 64 67 65 20 74 6f 70 6c 65 76 knowledge toplev
3e30: 65 6c 0a 0a 69 6e 20 6e 65 74 32 6f 20 3a 20 61 el..in net2o : a
3e40: 63 6b 2d 63 6f 64 65 20 28 20 61 63 6b 66 6c 61 ck-code ( ackfla
3e50: 67 20 2d 2d 20 61 63 6b 66 6c 61 67 20 29 20 20 g -- ackflag )
3e60: 3e 72 0a 20 20 20 20 66 61 6c 73 65 20 64 75 70 >r. false dup
3e70: 20 7b 20 73 6c 75 72 70 3f 20 73 74 61 74 73 3f { slurp? stats?
3e80: 20 7d 0a 20 20 20 20 6e 65 74 32 6f 2d 63 6f 64 }. net2o-cod
3e90: 65 0a 20 20 20 20 65 78 70 65 63 74 2d 72 65 70 e. expect-rep
3ea0: 6c 79 20 61 63 6b 20 31 20 74 6f 20 72 65 63 2d ly ack 1 to rec-
3eb0: 61 63 6b 2d 70 6f 73 23 0a 20 20 20 20 61 63 6b ack-pos#. ack
3ec0: 28 20 2e 22 20 61 63 6b 3a 20 22 20 72 40 20 68 ( ." ack: " r@ h
3ed0: 65 78 2e 20 66 6f 72 74 68 3a 63 72 20 29 0a 20 ex. forth:cr ).
3ee0: 20 20 20 72 40 20 61 63 6b 2d 74 6f 67 67 6c 65 r@ ack-toggle
3ef0: 23 20 61 6e 64 20 49 46 0a 09 73 65 71 23 2c 0a # and IF..seq#,.
3f00: 09 6e 65 74 32 6f 3a 67 65 6e 2d 72 65 73 65 6e .net2o:gen-resen
3f10: 64 20 20 6e 65 74 32 6f 3a 67 65 6e 61 63 6b 0a d net2o:genack.
3f20: 09 72 40 20 72 65 73 65 6e 64 2d 74 6f 67 67 6c .r@ resend-toggl
3f30: 65 23 20 61 6e 64 20 49 46 0a 09 20 20 20 20 61 e# and IF.. a
3f40: 63 6b 28 20 2e 22 20 61 63 6b 3a 20 64 6f 2d 72 ck( ." ack: do-r
3f50: 65 73 65 6e 64 22 20 66 6f 72 74 68 3a 63 72 20 esend" forth:cr
3f60: 29 0a 09 20 20 20 20 74 72 75 65 20 6e 65 74 32 ).. true net2
3f70: 6f 3a 64 6f 2d 72 65 73 65 6e 64 0a 09 54 48 45 o:do-resend..THE
3f80: 4e 0a 09 30 20 64 61 74 61 2d 72 6d 61 70 20 2e N..0 data-rmap .
3f90: 6d 61 70 63 3a 64 6f 2d 73 6c 75 72 70 20 21 40 mapc:do-slurp !@
3fa0: 0a 09 3f 64 75 70 2d 49 46 20 20 75 6c 69 74 2c ..?dup-IF ulit,
3fb0: 20 61 63 6b 2d 66 6c 75 73 68 0a 09 20 20 20 20 ack-flush..
3fc0: 72 65 71 75 65 73 74 2d 73 74 61 74 73 3f 20 74 request-stats? t
3fd0: 6f 20 73 74 61 74 73 3f 20 20 74 72 75 65 20 74 o stats? true t
3fe0: 6f 20 73 6c 75 72 70 3f 20 20 54 48 45 4e 0a 20 o slurp? THEN.
3ff0: 20 20 20 54 48 45 4e 20 20 2b 65 78 70 65 63 74 THEN +expect
4000: 65 64 0a 20 20 20 20 73 6c 75 72 70 3f 20 6f 72 ed. slurp? or
4010: 20 74 6f 20 73 6c 75 72 70 3f 0a 20 20 20 20 73 to slurp?. s
4020: 74 61 74 73 3f 20 49 46 20 20 73 65 6e 64 2d 74 tats? IF send-t
4030: 69 6d 69 6e 67 20 20 54 48 45 4e 0a 20 20 20 20 iming THEN.
4040: 65 6e 64 2d 77 69 74 68 20 20 63 6d 64 62 75 66 end-with cmdbuf
4050: 23 20 40 20 72 65 63 2d 61 63 6b 2d 70 6f 73 23 # @ rec-ack-pos#
4060: 20 31 2b 20 73 74 61 74 73 3f 20 2d 20 3d 20 49 1+ stats? - = I
4070: 46 20 20 63 6d 64 62 75 66 23 20 6f 66 66 0a 20 F cmdbuf# off.
4080: 20 20 20 45 4c 53 45 20 20 31 20 64 61 74 61 2d ELSE 1 data-
4090: 72 6d 61 70 20 77 69 74 68 20 6d 61 70 63 20 2b rmap with mapc +
40a0: 74 6f 20 72 65 63 2d 61 63 6b 23 20 65 6e 64 77 to rec-ack# endw
40b0: 69 74 68 20 20 54 48 45 4e 0a 20 20 20 20 73 6c ith THEN. sl
40c0: 75 72 70 3f 20 49 46 20 20 73 6c 75 72 70 20 20 urp? IF slurp
40d0: 54 48 45 4e 0a 20 20 20 20 65 6e 64 2d 63 6f 64 THEN. end-cod
40e0: 65 20 72 3e 20 28 20 64 75 70 20 61 63 6b 2d 74 e r> ( dup ack-t
40f0: 6f 67 67 6c 65 23 20 61 6e 64 20 49 46 20 20 6d oggle# and IF m
4100: 61 70 2d 72 65 73 65 6e 64 3f 20 20 54 48 45 4e ap-resend? THEN
4110: 20 29 20 3b 0a 0a 69 6e 20 6e 65 74 32 6f 20 3a ) ;..in net2o :
4120: 20 64 6f 2d 61 63 6b 2d 72 65 73 74 20 28 20 61 do-ack-rest ( a
4130: 63 6b 66 6c 61 67 20 2d 2d 20 29 0a 20 20 20 20 ckflag -- ).
4140: 64 75 70 20 72 65 73 65 6e 64 2d 74 6f 67 67 6c dup resend-toggl
4150: 65 23 20 61 6e 64 20 49 46 0a 09 63 6d 64 2d 72 e# and IF..cmd-r
4160: 65 73 65 6e 64 3f 20 64 72 6f 70 0a 20 20 20 20 esend? drop.
4170: 54 48 45 4e 0a 20 20 20 20 61 63 6b 73 23 20 61 THEN. acks# a
4180: 6e 64 20 64 61 74 61 2d 72 6d 61 70 20 2e 6d 61 nd data-rmap .ma
4190: 70 63 3a 61 63 6b 2d 61 64 76 61 6e 63 65 3f 0a pc:ack-advance?.
41a0: 20 20 20 20 49 46 20 20 6e 65 74 32 6f 3a 61 63 IF net2o:ac
41b0: 6b 2d 63 6f 64 65 20 20 54 48 45 4e 20 20 61 63 k-code THEN ac
41c0: 6b 2d 74 69 6d 69 6e 67 20 3b 0a 0a 69 6e 20 6e k-timing ;..in n
41d0: 65 74 32 6f 20 3a 20 64 6f 2d 61 63 6b 20 28 20 et2o : do-ack (
41e0: 2d 2d 20 29 0a 20 20 20 20 64 65 73 74 2d 61 64 -- ). dest-ad
41f0: 64 72 20 36 34 40 20 72 65 63 76 2d 61 64 64 72 dr 64@ recv-addr
4200: 20 36 34 21 20 20 2b 63 6f 6f 6b 69 65 20 5c 20 64! +cookie \
4210: 6c 61 73 74 20 72 65 63 65 69 76 65 64 20 70 61 last received pa
4220: 63 6b 65 74 0a 20 20 20 20 69 6e 62 75 66 20 31 cket. inbuf 1
4230: 2b 20 63 40 20 61 63 6b 2d 72 65 63 65 69 76 65 + c@ ack-receive
4240: 20 6f 76 65 72 20 74 6f 20 61 63 6b 2d 72 65 63 over to ack-rec
4250: 65 69 76 65 20 78 6f 72 0a 20 20 20 20 2b 74 69 eive xor. +ti
4260: 6d 65 6f 75 74 30 20 72 65 73 65 6e 64 2d 61 6c meout0 resend-al
4270: 6c 2d 74 6f 20 36 34 21 0a 20 20 20 20 6e 65 74 l-to 64!. net
4280: 32 6f 3a 64 6f 2d 61 63 6b 2d 72 65 73 74 20 3b 2o:do-ack-rest ;
4290: 0a 0a 3a 20 2b 66 6c 6f 77 2d 63 6f 6e 74 72 6f ..: +flow-contro
42a0: 6c 20 5b 27 5d 20 6e 65 74 32 6f 3a 64 6f 2d 61 l ['] net2o:do-a
42b0: 63 6b 20 69 73 20 61 63 6b 2d 78 74 20 3b 0a 0a ck is ack-xt ;..
42c0: 5c 20 6b 65 65 70 61 6c 69 76 65 0a 0a 61 6c 73 \ keepalive..als
42d0: 6f 20 6e 65 74 32 6f 2d 62 61 73 65 0a 3a 20 2e o net2o-base.: .
42e0: 6b 65 65 70 61 6c 69 76 65 20 28 20 2d 2d 20 29 keepalive ( -- )
42f0: 20 20 2e 22 20 74 72 61 6e 73 66 65 72 20 6b 65 ." transfer ke
4300: 65 70 61 6c 69 76 65 20 65 2f 65 20 68 20 74 20 epalive e/e h t
4310: 62 20 22 20 65 78 70 65 63 74 65 64 40 20 68 65 b " expected@ he
4320: 78 2e 20 68 65 78 2e 0a 20 20 20 20 64 61 74 61 x. hex.. data
4330: 2d 72 6d 61 70 20 77 69 74 68 20 6d 61 70 63 20 -rmap with mapc
4340: 20 64 65 73 74 2d 68 65 61 64 20 68 65 78 2e 20 dest-head hex.
4350: 64 65 73 74 2d 74 61 69 6c 20 68 65 78 2e 20 64 dest-tail hex. d
4360: 65 73 74 2d 62 61 63 6b 20 68 65 78 2e 0a 20 20 est-back hex..
4370: 20 20 64 61 74 61 2d 61 63 6b 62 69 74 73 20 40 data-ackbits @
4380: 20 64 65 73 74 2d 73 69 7a 65 20 61 64 64 72 3e dest-size addr>
4390: 62 79 74 65 73 20 64 75 6d 70 0a 20 20 20 20 65 bytes dump. e
43a0: 6e 64 77 69 74 68 0a 20 20 20 20 66 6f 72 74 68 ndwith. forth
43b0: 3a 63 72 20 3b 0a 3a 20 74 72 61 6e 73 66 65 72 :cr ;.: transfer
43c0: 2d 6b 65 65 70 61 6c 69 76 65 3f 20 28 20 2d 2d -keepalive? ( --
43d0: 20 66 6c 61 67 20 29 0a 20 20 20 20 6f 20 74 6f flag ). o to
43e0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 connection.
43f0: 74 69 6d 65 6f 75 74 28 20 2e 6b 65 65 70 61 6c timeout( .keepal
4400: 69 76 65 20 29 0a 20 20 20 20 64 61 74 61 2d 72 ive ). data-r
4410: 6d 61 70 20 77 69 74 68 20 6d 61 70 63 20 64 65 map with mapc de
4420: 73 74 2d 72 65 71 20 64 75 70 20 61 63 6b 2d 61 st-req dup ack-a
4430: 64 76 61 6e 63 65 3f 20 6f 72 20 74 6f 20 61 63 dvance? or to ac
4440: 6b 2d 61 64 76 61 6e 63 65 3f 20 65 6e 64 77 69 k-advance? endwi
4450: 74 68 0a 20 20 20 20 64 75 70 20 49 46 0a 09 21 th. dup IF..!
4460: 74 69 63 6b 73 20 74 69 63 6b 65 72 20 36 34 40 ticks ticker 64@
4470: 20 72 65 73 65 6e 64 2d 61 6c 6c 2d 74 6f 20 36 resend-all-to 6
4480: 34 21 0a 09 5b 20 61 63 6b 2d 74 6f 67 67 6c 65 4!..[ ack-toggle
4490: 23 20 72 65 73 65 6e 64 2d 74 6f 67 67 6c 65 23 # resend-toggle#
44a0: 20 6f 72 20 5d 4c 20 6e 65 74 32 6f 3a 64 6f 2d or ]L net2o:do-
44b0: 61 63 6b 2d 72 65 73 74 20 20 54 48 45 4e 20 3b ack-rest THEN ;
44c0: 0a 70 72 65 76 69 6f 75 73 0a 0a 3a 20 63 6d 64 .previous..: cmd
44d0: 2d 74 69 6d 65 6f 75 74 20 28 20 2d 2d 20 29 20 -timeout ( -- )
44e0: 20 63 6d 64 2d 72 65 73 65 6e 64 3f 0a 20 20 20 cmd-resend?.
44f0: 20 49 46 20 20 3e 6e 65 78 74 2d 74 69 6d 65 6f IF >next-timeo
4500: 75 74 20 70 75 73 68 2d 74 69 6d 65 6f 75 74 20 ut push-timeout
4510: 20 45 4c 53 45 20 20 61 63 6b 40 20 2e 74 69 6d ELSE ack@ .tim
4520: 65 6f 75 74 73 20 6f 66 66 20 20 54 48 45 4e 20 eouts off THEN
4530: 3b 0a 3a 20 63 6f 6e 6e 65 63 74 65 64 2d 74 69 ;.: connected-ti
4540: 6d 65 6f 75 74 20 28 20 2d 2d 20 29 20 74 69 6d meout ( -- ) tim
4550: 65 6f 75 74 28 20 2e 22 20 63 6f 6e 6e 65 63 74 eout( ." connect
4560: 65 64 20 74 69 6d 65 6f 75 74 20 22 20 61 63 6b ed timeout " ack
4570: 40 20 3e 6f 20 72 74 64 65 6c 61 79 20 36 34 40 @ >o rtdelay 64@
4580: 20 75 36 34 2e 20 74 69 6d 65 6f 75 74 73 20 3f u64. timeouts ?
4590: 20 6f 3e 20 66 6f 72 74 68 3a 63 72 20 29 0a 20 o> forth:cr ).
45a0: 20 20 20 63 6d 64 2d 72 65 73 65 6e 64 3f 0a 20 cmd-resend?.
45b0: 20 20 20 49 46 0a 09 3e 6e 65 78 74 2d 74 69 6d IF..>next-tim
45c0: 65 6f 75 74 20 70 75 73 68 2d 74 69 6d 65 6f 75 eout push-timeou
45d0: 74 0a 20 20 20 20 45 4c 53 45 0a 09 74 72 61 6e t. ELSE..tran
45e0: 73 66 65 72 2d 6b 65 65 70 61 6c 69 76 65 3f 20 sfer-keepalive?
45f0: 30 3d 0a 09 49 46 20 20 61 63 6b 40 20 2e 74 69 0=..IF ack@ .ti
4600: 6d 65 6f 75 74 73 20 6f 66 66 20 20 45 4c 53 45 meouts off ELSE
4610: 20 20 3e 6e 65 78 74 2d 74 69 6d 65 6f 75 74 20 >next-timeout
4620: 70 75 73 68 2d 74 69 6d 65 6f 75 74 20 20 54 48 push-timeout TH
4630: 45 4e 0a 20 20 20 20 54 48 45 4e 20 3b 0a 0a 5c EN. THEN ;..\
4640: 20 3a 20 2b 63 6f 6e 6e 65 63 74 69 6e 67 20 20 : +connecting
4650: 20 5b 27 5d 20 63 6f 6e 6e 65 63 74 69 6e 67 2d ['] connecting-
4660: 74 69 6d 65 6f 75 74 20 69 73 20 74 69 6d 65 6f timeout is timeo
4670: 75 74 2d 78 74 20 3b 0a 3a 20 2b 72 65 73 65 6e ut-xt ;.: +resen
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 22 20 63 72 20 ." +resend" cr
46a0: 29 0a 20 20 20 20 5b 27 5d 20 63 6f 6e 6e 65 63 ). ['] connec
46b0: 74 65 64 2d 74 69 6d 65 6f 75 74 20 20 69 73 20 ted-timeout is
46c0: 74 69 6d 65 6f 75 74 2d 78 74 20 6f 2b 74 69 6d timeout-xt o+tim
46d0: 65 6f 75 74 0a 20 20 20 20 36 34 23 30 20 72 65 eout. 64#0 re
46e0: 73 65 6e 64 2d 61 6c 6c 2d 74 6f 20 36 34 21 20 send-all-to 64!
46f0: 3b 0a 3a 20 2b 72 65 73 65 6e 64 2d 63 6d 64 20 ;.: +resend-cmd
4700: 28 20 2d 2d 20 29 20 72 65 73 65 6e 64 28 20 2e ( -- ) resend( .
4710: 22 20 2b 72 65 73 65 6e 64 2d 63 6d 64 22 20 63 " +resend-cmd" c
4720: 72 20 29 0a 20 20 20 20 5b 27 5d 20 63 6d 64 2d r ). ['] cmd-
4730: 74 69 6d 65 6f 75 74 20 20 20 20 20 20 20 20 69 timeout i
4740: 73 20 74 69 6d 65 6f 75 74 2d 78 74 20 6f 2b 74 s timeout-xt o+t
4750: 69 6d 65 6f 75 74 20 3b 0a 0a 3a 20 2b 67 65 74 imeout ;..: +get
4760: 2d 74 69 6d 65 20 20 20 20 20 5b 27 5d 20 67 65 -time ['] ge
4770: 74 2d 74 69 63 6b 20 69 73 20 6f 74 68 65 72 20 t-tick is other
4780: 3b 0a 0a 3a 20 72 65 71 73 69 7a 65 21 20 28 20 ;..: reqsize! (
4790: 75 63 6f 64 65 20 75 64 61 74 61 20 2d 2d 20 29 ucode udata -- )
47a0: 20 20 74 6f 20 72 65 71 2d 64 61 74 61 73 69 7a to req-datasiz
47b0: 65 20 20 74 6f 20 72 65 71 2d 63 6f 64 65 73 69 e to req-codesi
47c0: 7a 65 20 3b 0a 3a 20 63 6f 6e 6e 65 63 74 2d 72 ze ;.: connect-r
47d0: 65 73 74 20 28 20 6e 20 2d 2d 20 29 0a 20 20 20 est ( n -- ).
47e0: 20 63 6c 65 61 6e 2d 72 65 71 75 65 73 74 20 2d clean-request -
47f0: 74 69 6d 65 6f 75 74 20 74 73 6b 63 20 4b 45 59 timeout tskc KEY
4800: 42 59 54 45 53 20 65 72 61 73 65 20 63 6f 6e 74 BYTES erase cont
4810: 65 78 74 21 20 3b 0a 0a 3a 20 65 6e 64 2d 63 6f ext! ;..: end-co
4820: 64 65 7c 20 28 20 2d 2d 20 29 20 20 5d 5d 20 65 de| ( -- ) ]] e
4830: 6e 64 2d 63 6f 64 65 20 63 6c 69 65 6e 74 2d 6c nd-code client-l
4840: 6f 6f 70 20 5b 5b 20 3b 20 69 6d 6d 65 64 69 61 oop [[ ; immedia
4850: 74 65 20 63 6f 6d 70 69 6c 65 2d 6f 6e 6c 79 0a te compile-only.
4860: 0a 3a 20 67 65 6e 2d 72 65 71 75 65 73 74 20 28 .: gen-request (
4870: 20 2d 2d 20 29 0a 20 20 20 20 73 65 74 75 70 21 -- ). setup!
4880: 20 20 2b 72 65 73 65 6e 64 2d 63 6d 64 20 20 67 +resend-cmd g
4890: 65 6e 2d 74 6d 70 6b 65 79 73 20 20 5b 27 5d 20 en-tmpkeys [']
48a0: 63 6f 6e 6e 65 63 74 2d 72 65 73 74 20 72 71 64 connect-rest rqd
48b0: 3f 0a 20 20 20 20 63 6d 64 28 20 69 6e 64 2d 61 ?. cmd( ind-a
48c0: 64 64 72 20 40 20 49 46 20 20 2e 22 20 69 6e 22 ddr @ IF ." in"
48d0: 20 54 48 45 4e 20 2e 22 20 64 69 72 65 63 74 20 THEN ." direct
48e0: 63 6f 6e 6e 65 63 74 22 20 66 6f 72 74 68 3a 63 connect" forth:c
48f0: 72 20 29 0a 20 20 20 20 69 76 73 28 20 2e 22 20 r ). ivs( ."
4900: 67 65 6e 20 72 65 71 75 65 73 74 22 20 66 6f 72 gen request" for
4910: 74 68 3a 63 72 20 29 0a 20 20 20 20 6e 65 74 32 th:cr ). net2
4920: 6f 2d 63 6f 64 65 30 0a 20 20 20 20 6e 65 74 32 o-code0. net2
4930: 6f 2d 76 65 72 73 69 6f 6e 20 24 2c 20 76 65 72 o-version $, ver
4940: 73 69 6f 6e 3f 20 20 30 6b 65 79 2c 0a 20 20 20 sion? 0key,.
4950: 20 74 70 6b 63 20 6b 65 79 73 69 7a 65 20 24 2c tpkc keysize $,
4960: 20 72 65 63 65 69 76 65 2d 74 6d 70 6b 65 79 0a receive-tmpkey.
4970: 20 20 20 20 6e 65 73 74 5b 20 63 6f 6f 6b 69 65 nest[ cookie
4980: 2c 20 67 65 6e 2d 72 65 70 6c 79 20 72 65 71 75 , gen-reply requ
4990: 65 73 74 2c 20 5d 6e 65 73 74 20 20 6f 74 68 65 est, ]nest othe
49a0: 72 0a 20 20 20 20 74 6d 70 6b 65 79 2d 72 65 71 r. tmpkey-req
49b0: 75 65 73 74 0a 20 20 20 20 69 6e 64 2d 61 64 64 uest. ind-add
49c0: 72 20 40 20 20 49 46 20 20 70 75 6e 63 68 3f 20 r @ IF punch?
49d0: 20 54 48 45 4e 0a 20 20 20 20 72 65 71 2d 63 6f THEN. req-co
49e0: 64 65 73 69 7a 65 20 20 72 65 71 2d 64 61 74 61 desize req-data
49f0: 73 69 7a 65 20 20 6d 61 70 2d 72 65 71 75 65 73 size map-reques
4a00: 74 2c 20 20 63 6c 6f 73 65 2d 74 6d 70 6e 65 73 t, close-tmpnes
4a10: 74 0a 20 20 20 20 5b 27 5d 20 70 75 73 68 2d 63 t. ['] push-c
4a20: 6d 64 20 49 53 20 65 78 70 65 63 74 2d 72 65 70 md IS expect-rep
4a30: 6c 79 3f 0a 20 20 20 20 65 6e 64 2d 63 6f 64 65 ly?. end-code
4a40: 7c 20 3b 0a 0a 69 6e 20 6e 65 74 32 6f 20 3a 20 | ;..in net2o :
4a50: 63 6f 6e 6e 65 63 74 20 28 20 75 63 6f 64 65 20 connect ( ucode
4a60: 75 64 61 74 61 20 2d 2d 20 29 20 20 72 65 71 73 udata -- ) reqs
4a70: 69 7a 65 21 20 67 65 6e 2d 72 65 71 75 65 73 74 ize! gen-request
4a80: 20 3b 0a 0a 70 72 65 76 69 6f 75 73 0a 0a 30 20 ;..previous..0
4a90: 5b 49 46 5d 0a 4c 6f 63 61 6c 20 56 61 72 69 61 [IF].Local Varia
4aa0: 62 6c 65 73 3a 0a 66 6f 72 74 68 2d 6c 6f 63 61 bles:.forth-loca
4ab0: 6c 2d 77 6f 72 64 73 3a 0a 20 20 20 20 28 0a 20 l-words:. (.
4ac0: 20 20 20 20 28 28 22 6e 65 74 32 6f 3a 22 20 22 (("net2o:" "
4ad0: 2b 6e 65 74 32 6f 3a 22 29 20 64 65 66 69 6e 69 +net2o:") defini
4ae0: 74 69 6f 6e 2d 73 74 61 72 74 65 72 20 28 66 6f tion-starter (fo
4af0: 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d nt-lock-keyword-
4b00: 66 61 63 65 20 2e 20 31 29 0a 20 20 20 20 20 20 face . 1).
4b10: 22 5b 20 5c 74 5c 6e 5d 22 20 74 20 6e 61 6d 65 "[ \t\n]" t name
4b20: 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 75 6e 63 (font-lock-func
4b30: 74 69 6f 6e 2d 6e 61 6d 65 2d 66 61 63 65 20 2e tion-name-face .
4b40: 20 33 29 29 0a 20 20 20 20 20 28 22 5b 61 2d 7a 3)). ("[a-z
4b50: 5c 2d 30 2d 39 5d 2b 28 22 20 69 6d 6d 65 64 69 \-0-9]+(" immedi
4b60: 61 74 65 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 ate (font-lock-c
4b70: 6f 6d 6d 65 6e 74 2d 66 61 63 65 20 2e 20 31 29 omment-face . 1)
4b80: 0a 20 20 20 20 20 20 22 29 22 20 6e 69 6c 20 63 . ")" nil c
4b90: 6f 6d 6d 65 6e 74 20 28 66 6f 6e 74 2d 6c 6f 63 omment (font-loc
4ba0: 6b 2d 63 6f 6d 6d 65 6e 74 2d 66 61 63 65 20 2e k-comment-face .
4bb0: 20 31 29 29 0a 20 20 20 20 29 0a 66 6f 72 74 68 1)). ).forth
4bc0: 2d 6c 6f 63 61 6c 2d 69 6e 64 65 6e 74 2d 77 6f -local-indent-wo
4bd0: 72 64 73 3a 0a 20 20 20 20 28 0a 20 20 20 20 20 rds:. (.
4be0: 28 28 22 6e 65 74 32 6f 3a 22 20 22 2b 6e 65 74 (("net2o:" "+net
4bf0: 32 6f 3a 22 29 20 28 30 20 2e 20 32 29 20 28 30 2o:") (0 . 2) (0
4c00: 20 2e 20 32 29 20 6e 6f 6e 2d 69 6d 6d 65 64 69 . 2) non-immedi
4c10: 61 74 65 29 0a 20 20 20 20 20 28 28 22 5b 3a 22 ate). (("[:"
4c20: 29 20 28 30 20 2e 20 31 29 20 28 30 20 2e 20 31 ) (0 . 1) (0 . 1
4c30: 29 20 69 6d 6d 65 64 69 61 74 65 29 0a 20 20 20 ) immediate).
4c40: 20 20 28 28 22 3b 5d 22 29 20 28 2d 31 20 2e 20 ((";]") (-1 .
4c50: 30 29 20 28 30 20 2e 20 2d 31 29 20 69 6d 6d 65 0) (0 . -1) imme
4c60: 64 69 61 74 65 29 0a 20 20 20 20 29 0a 45 6e 64 diate). ).End
4c70: 3a 0a 5b 54 48 45 4e 5d 0a :.[THEN].