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 0a 09 ction. o IF..
03d0: 77 61 69 74 2d 74 61 73 6b 20 40 20 3f 64 75 70 wait-task @ ?dup
03e0: 2d 49 46 0a 09 20 20 20 20 3c 65 76 65 6e 74 20 -IF.. <event
03f0: 6f 20 65 6c 69 74 2c 20 3a 3e 64 69 73 70 6f 73 o elit, :>dispos
0400: 65 2d 63 6f 6e 74 65 78 74 20 65 76 65 6e 74 3e e-context event>
0410: 0a 09 45 4c 53 45 20 20 6e 65 74 32 6f 3a 64 69 ..ELSE net2o:di
0420: 73 70 6f 73 65 2d 63 6f 6e 74 65 78 74 20 20 54 spose-context T
0430: 48 45 4e 0a 09 75 6e 2d 63 6d 64 20 20 54 48 45 HEN..un-cmd THE
0440: 4e 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 74 2d N ;.+net2o: set-
0450: 69 70 20 28 20 24 3a 73 74 72 69 6e 67 20 2d 2d ip ( $:string --
0460: 20 29 20 5c 67 20 73 65 74 20 61 64 64 72 65 73 ) \g set addres
0470: 73 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 0a 20 20 s information.
0480: 20 20 24 3e 20 73 65 74 69 70 2d 78 74 20 3b 0a $> setip-xt ;.
0490: 2b 6e 65 74 32 6f 3a 20 67 65 74 2d 69 70 20 28 +net2o: get-ip (
04a0: 20 2d 2d 20 29 20 5c 67 20 72 65 71 75 65 73 74 -- ) \g request
04b0: 20 61 64 64 72 65 73 73 20 69 6e 66 6f 72 6d 61 address informa
04c0: 74 69 6f 6e 0a 20 20 20 20 3e 73 6f 63 6b 61 64 tion. >sockad
04d0: 64 72 20 24 2c 20 73 65 74 2d 69 70 20 5b 3a 20 dr $, set-ip [:
04e0: 24 2c 20 73 65 74 2d 69 70 20 3b 5d 20 6e 32 6f $, set-ip ;] n2o
04f0: 61 64 64 72 73 20 3b 0a 0a 2b 6e 65 74 32 6f 3a addrs ;..+net2o:
0500: 20 73 65 74 2d 62 6c 6f 63 6b 73 69 7a 65 20 28 set-blocksize (
0510: 20 6e 20 2d 2d 20 29 20 5c 67 20 73 65 74 20 62 n -- ) \g set b
0520: 6c 6f 63 6b 73 69 7a 65 20 74 6f 20 32 5e 6e 0a locksize to 2^n.
0530: 20 20 20 20 36 34 3e 6e 20 31 20 73 77 61 70 20 64>n 1 swap
0540: 6d 61 78 2d 62 6c 6f 63 6b 23 20 75 6d 69 6e 20 max-block# umin
0550: 6c 73 68 69 66 74 20 6e 65 74 32 6f 3a 62 6c 6f lshift net2o:blo
0560: 63 6b 73 69 7a 65 73 21 20 3b 0a 2b 6e 65 74 32 cksizes! ;.+net2
0570: 6f 3a 20 73 65 74 2d 62 6c 6f 63 6b 61 6c 69 67 o: set-blockalig
0580: 6e 20 28 20 6e 20 2d 2d 20 29 20 5c 67 20 73 65 n ( n -- ) \g se
0590: 74 20 62 6c 6f 63 6b 20 61 6c 69 67 6e 6d 65 6e t block alignmen
05a0: 74 20 74 6f 20 32 5e 6e 0a 20 20 20 20 36 34 3e t to 2^n. 64>
05b0: 6e 20 31 20 73 77 61 70 20 6d 61 78 2d 62 6c 6f n 1 swap max-blo
05c0: 63 6b 23 20 75 6d 69 6e 20 6c 73 68 69 66 74 20 ck# umin lshift
05d0: 62 6c 6f 63 6b 61 6c 69 67 6e 20 21 20 3b 0a 2b blockalign ! ;.+
05e0: 6e 65 74 32 6f 3a 20 63 6c 6f 73 65 2d 61 6c 6c net2o: close-all
05f0: 20 28 20 2d 2d 20 29 20 5c 67 20 63 6c 6f 73 65 ( -- ) \g close
0600: 20 61 6c 6c 20 66 69 6c 65 73 0a 20 20 20 20 6e all files. n
0610: 65 74 32 6f 3a 63 6c 6f 73 65 2d 61 6c 6c 20 3b et2o:close-all ;
0620: 0a 5c 20 62 65 74 74 65 72 20 73 6c 75 72 70 69 .\ better slurpi
0630: 6e 67 0a 0a 2b 6e 65 74 32 6f 3a 20 73 65 74 2d ng..+net2o: set-
0640: 74 6f 70 20 28 20 75 74 6f 70 20 66 6c 61 67 20 top ( utop flag
0650: 2d 2d 20 29 20 5c 67 20 73 65 74 20 74 6f 70 2c -- ) \g set top,
0660: 20 66 6c 61 67 20 69 73 20 74 72 75 65 20 77 68 flag is true wh
0670: 65 6e 20 61 6c 6c 20 64 61 74 61 20 69 73 20 73 en all data is s
0680: 65 6e 74 0a 20 20 20 20 3e 72 20 36 34 3e 6e 20 ent. >r 64>n
0690: 72 3e 20 64 61 74 61 2d 72 6d 61 70 20 77 69 74 r> data-rmap wit
06a0: 68 20 6d 61 70 63 0a 09 6f 76 65 72 20 64 65 73 h mapc..over des
06b0: 74 2d 74 6f 70 20 3c 3e 20 61 6e 64 20 66 61 6c t-top <> and fal
06c0: 73 65 20 64 65 73 74 2d 65 6e 64 20 3f 21 40 20 se dest-end ?!@
06d0: 64 72 6f 70 20 5c 20 61 74 6f 6d 69 63 2c 20 72 drop \ atomic, r
06e0: 65 70 6c 61 63 65 73 20 6f 72 21 0a 09 64 65 73 eplaces or!..des
06f0: 74 2d 74 6f 70 21 0a 20 20 20 20 65 6e 64 77 69 t-top!. endwi
0700: 74 68 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 6c 75 th ;.+net2o: slu
0710: 72 70 20 28 20 2d 2d 20 29 20 5c 67 20 73 6c 75 rp ( -- ) \g slu
0720: 72 70 20 69 6e 20 74 72 61 63 6b 65 64 20 66 69 rp in tracked fi
0730: 6c 65 73 0a 20 20 20 20 5c 20 21 21 46 49 58 4d les. \ !!FIXM
0740: 45 21 21 20 74 68 69 73 20 73 68 6f 75 6c 64 20 E!! this should
0750: 70 72 6f 62 61 62 6c 79 20 62 65 20 61 73 79 6e probably be asyn
0760: 63 68 72 6f 6e 6f 75 73 0a 20 20 20 20 6e 65 74 chronous. net
0770: 32 6f 3a 73 6c 75 72 70 20 73 77 61 70 20 75 6c 2o:slurp swap ul
0780: 69 74 2c 20 66 6c 61 67 2c 20 73 65 74 2d 74 6f it, flag, set-to
0790: 70 0a 20 20 20 20 5b 27 5d 20 64 6f 2d 74 72 61 p. ['] do-tra
07a0: 63 6b 2d 73 65 65 6b 20 6e 65 74 32 6f 3a 74 72 ck-seek net2o:tr
07b0: 61 63 6b 2d 61 6c 6c 2d 73 65 65 6b 73 20 6e 65 ack-all-seeks ne
07c0: 74 32 6f 3a 73 65 6e 64 2d 63 68 75 6e 6b 73 20 t2o:send-chunks
07d0: 3b 0a 2b 6e 65 74 32 6f 3a 20 61 63 6b 2d 72 65 ;.+net2o: ack-re
07e0: 73 65 74 20 28 20 2d 2d 20 29 20 5c 67 20 72 65 set ( -- ) \g re
07f0: 73 65 74 20 61 63 6b 20 73 74 61 74 65 0a 20 20 set ack state.
0800: 20 20 30 20 61 63 6b 2d 73 74 61 74 65 20 63 21 0 ack-state c!
0810: 20 3b 0a 0a 5c 20 6f 62 6a 65 63 74 20 68 61 6e ;..\ object han
0820: 64 6c 65 73 0a 5c 67 20 0a 5c 67 20 23 23 23 20 dles.\g .\g ###
0830: 66 69 6c 65 20 63 6f 6d 6d 61 6e 64 73 20 23 23 file commands ##
0840: 23 0a 5c 67 20 0a 0a 24 33 30 20 6e 65 74 32 6f #.\g ..$30 net2o
0850: 3a 20 66 69 6c 65 2d 69 64 20 28 20 75 69 64 20 : file-id ( uid
0860: 2d 2d 20 6f 3a 66 69 6c 65 20 29 20 5c 67 20 63 -- o:file ) \g c
0870: 68 6f 6f 73 65 20 61 20 66 69 6c 65 20 6f 62 6a hoose a file obj
0880: 65 63 74 0a 20 20 20 20 36 34 3e 6e 20 73 74 61 ect. 64>n sta
0890: 74 65 2d 61 64 64 72 20 6e 3a 3e 6f 20 3b 0a 66 te-addr n:>o ;.f
08a0: 73 2d 74 61 62 6c 65 20 3e 74 61 62 6c 65 0a 0a s-table >table..
08b0: 72 65 70 6c 79 2d 74 61 62 6c 65 20 24 40 20 69 reply-table $@ i
08c0: 6e 68 65 72 69 74 2d 74 61 62 6c 65 20 66 73 2d nherit-table fs-
08d0: 74 61 62 6c 65 0a 0a 3a 20 66 69 6c 65 2d 73 74 table..: file-st
08e0: 61 72 74 2d 72 65 71 20 66 73 2d 69 64 20 40 20 art-req fs-id @
08f0: 75 6c 69 74 2c 20 66 69 6c 65 2d 69 64 20 3b 0a ulit, file-id ;.
0900: 27 20 66 69 6c 65 2d 73 74 61 72 74 2d 72 65 71 ' file-start-req
0910: 0a 66 69 6c 65 2d 63 6c 61 73 73 65 73 20 66 69 .file-classes fi
0920: 6c 65 2d 63 6c 61 73 73 65 73 23 20 63 65 6c 6c le-classes# cell
0930: 73 20 62 6f 75 6e 64 73 0a 5b 44 4f 5d 20 64 75 s bounds.[DO] du
0940: 70 20 5b 49 5d 20 40 20 74 6f 20 73 74 61 72 74 p [I] @ to start
0950: 2d 72 65 71 20 63 65 6c 6c 20 5b 2b 4c 4f 4f 50 -req cell [+LOOP
0960: 5d 0a 64 72 6f 70 0a 0a 24 32 30 20 6e 65 74 32 ].drop..$20 net2
0970: 6f 3a 20 6f 70 65 6e 2d 66 69 6c 65 20 28 20 24 o: open-file ( $
0980: 3a 73 74 72 69 6e 67 20 6d 6f 64 65 20 2d 2d 20 :string mode --
0990: 29 20 5c 67 20 6f 70 65 6e 20 66 69 6c 65 20 77 ) \g open file w
09a0: 69 74 68 20 6d 6f 64 65 0a 20 20 20 20 70 61 72 ith mode. par
09b0: 65 6e 74 20 2e 70 65 72 6d 2d 6d 61 73 6b 20 40 ent .perm-mask @
09c0: 20 3e 72 20 72 40 20 66 73 2d 70 65 72 6d 3f 0a >r r@ fs-perm?.
09d0: 20 20 20 20 36 34 3e 6e 20 2d 32 20 61 6e 64 20 64>n -2 and
09e0: 34 20 75 6d 69 6e 20 64 75 70 20 72 3e 20 3f 72 4 umin dup r> ?r
09f0: 77 2d 70 65 72 6d 20 20 3e 72 20 24 3e 20 72 3e w-perm >r $> r>
0a00: 20 66 73 2d 6f 70 65 6e 20 3b 0a 2b 6e 65 74 32 fs-open ;.+net2
0a10: 6f 3a 20 66 69 6c 65 2d 74 79 70 65 20 28 20 6e o: file-type ( n
0a20: 20 2d 2d 20 29 20 5c 67 20 63 68 6f 6f 73 65 20 -- ) \g choose
0a30: 66 69 6c 65 20 74 79 70 65 0a 20 20 20 20 36 34 file type. 64
0a40: 3e 6e 20 66 73 2d 63 6c 61 73 73 21 20 3b 0a 2b >n fs-class! ;.+
0a50: 6e 65 74 32 6f 3a 20 63 6c 6f 73 65 2d 66 69 6c net2o: close-fil
0a60: 65 20 28 20 2d 2d 20 29 20 5c 67 20 63 6c 6f 73 e ( -- ) \g clos
0a70: 65 20 66 69 6c 65 0a 20 20 20 20 66 73 2d 63 6c e file. fs-cl
0a80: 6f 73 65 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 ose ;.+net2o: se
0a90: 74 2d 73 69 7a 65 20 28 20 73 69 7a 65 20 2d 2d t-size ( size --
0aa0: 20 29 20 5c 67 20 73 65 74 20 73 69 7a 65 20 61 ) \g set size a
0ab0: 74 74 72 69 62 75 74 65 20 6f 66 20 63 75 72 72 ttribute of curr
0ac0: 65 6e 74 20 66 69 6c 65 0a 20 20 20 20 74 72 61 ent file. tra
0ad0: 63 6b 28 20 2e 22 20 66 69 6c 65 20 3c 22 20 66 ck( ." file <" f
0ae0: 73 2d 69 64 20 40 20 30 20 2e 72 20 2e 22 20 3e s-id @ 0 .r ." >
0af0: 20 73 69 7a 65 3a 20 22 20 36 34 64 75 70 20 75 size: " 64dup u
0b00: 36 34 2e 20 66 6f 72 74 68 3a 63 72 20 29 20 73 64. forth:cr ) s
0b10: 69 7a 65 21 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 ize! ;.+net2o: s
0b20: 65 74 2d 73 65 65 6b 20 28 20 75 73 65 65 6b 20 et-seek ( useek
0b30: 2d 2d 20 29 20 5c 67 20 73 65 74 20 73 65 65 6b -- ) \g set seek
0b40: 20 61 74 74 72 69 62 75 74 65 20 6f 66 20 63 75 attribute of cu
0b50: 72 72 65 6e 74 20 66 69 6c 65 0a 20 20 20 20 74 rrent file. t
0b60: 72 61 63 6b 28 20 2e 22 20 66 69 6c 65 20 3c 22 rack( ." file <"
0b70: 20 66 73 2d 69 64 20 40 20 30 20 2e 72 20 2e 22 fs-id @ 0 .r ."
0b80: 20 3e 20 73 65 65 6b 3a 20 22 20 36 34 64 75 70 > seek: " 64dup
0b90: 20 75 36 34 2e 20 66 6f 72 74 68 3a 63 72 20 29 u64. forth:cr )
0ba0: 20 73 65 65 6b 74 6f 21 20 3b 0a 2b 6e 65 74 32 seekto! ;.+net2
0bb0: 6f 3a 20 73 65 74 2d 6c 69 6d 69 74 20 28 20 75 o: set-limit ( u
0bc0: 6c 69 6d 69 74 20 2d 2d 20 29 20 5c 67 20 73 65 limit -- ) \g se
0bd0: 74 20 6c 69 6d 69 74 20 61 74 74 72 69 62 75 74 t limit attribut
0be0: 65 20 6f 66 20 63 75 72 72 65 6e 74 20 66 69 6c e of current fil
0bf0: 65 0a 20 20 20 20 74 72 61 63 6b 28 20 2e 22 20 e. track( ."
0c00: 66 69 6c 65 20 3c 22 20 66 73 2d 69 64 20 40 20 file <" fs-id @
0c10: 30 20 2e 72 20 2e 22 20 3e 20 73 65 65 6b 20 74 0 .r ." > seek t
0c20: 6f 3a 20 22 20 36 34 64 75 70 20 75 36 34 2e 20 o: " 64dup u64.
0c30: 66 6f 72 74 68 3a 63 72 20 29 20 6c 69 6d 69 74 forth:cr ) limit
0c40: 2d 6d 69 6e 21 20 3b 0a 2b 6e 65 74 32 6f 3a 20 -min! ;.+net2o:
0c50: 73 65 74 2d 73 74 61 74 20 28 20 75 6d 74 69 6d set-stat ( umtim
0c60: 65 20 75 6d 6f 64 20 2d 2d 20 29 20 5c 67 20 73 e umod -- ) \g s
0c70: 65 74 20 74 69 6d 65 20 61 6e 64 20 6d 6f 64 65 et time and mode
0c80: 20 6f 66 20 63 75 72 72 65 6e 74 20 66 69 6c 65 of current file
0c90: 0a 20 20 20 20 36 34 3e 6e 20 66 73 2d 73 65 74 . 64>n fs-set
0ca0: 2d 73 74 61 74 20 3b 0a 2b 6e 65 74 32 6f 3a 20 -stat ;.+net2o:
0cb0: 67 65 74 2d 73 69 7a 65 20 28 20 2d 2d 20 29 20 get-size ( -- )
0cc0: 5c 67 20 72 65 71 75 65 73 74 20 66 69 6c 65 20 \g request file
0cd0: 73 69 7a 65 0a 20 20 20 20 66 73 2d 73 69 7a 65 size. fs-size
0ce0: 20 6c 69 74 2c 20 73 65 74 2d 73 69 7a 65 20 3b lit, set-size ;
0cf0: 0a 2b 6e 65 74 32 6f 3a 20 67 65 74 2d 73 74 61 .+net2o: get-sta
0d00: 74 20 28 20 2d 2d 20 29 20 5c 67 20 72 65 71 75 t ( -- ) \g requ
0d10: 65 73 74 20 73 74 61 74 20 6f 66 20 63 75 72 72 est stat of curr
0d20: 65 6e 74 20 66 69 6c 65 0a 20 20 20 20 66 73 2d ent file. fs-
0d30: 67 65 74 2d 73 74 61 74 20 3e 72 20 6c 69 74 2c get-stat >r lit,
0d40: 20 72 3e 20 75 6c 69 74 2c 20 73 65 74 2d 73 74 r> ulit, set-st
0d50: 61 74 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 74 at ;.+net2o: set
0d60: 2d 66 6f 72 6d 20 28 20 77 20 68 20 2d 2d 20 29 -form ( w h -- )
0d70: 20 5c 67 20 69 66 20 66 69 6c 65 20 69 73 20 61 \g if file is a
0d80: 20 74 65 72 6d 69 6e 61 6c 2c 20 73 65 74 20 73 terminal, set s
0d90: 69 7a 65 0a 20 20 20 20 74 65 72 6d 2d 68 20 21 ize. term-h !
0da0: 20 74 65 72 6d 2d 77 20 21 20 3b 0a 2b 6e 65 74 term-w ! ;.+net
0db0: 32 6f 3a 20 67 65 74 2d 66 6f 72 6d 20 28 20 2d 2o: get-form ( -
0dc0: 2d 20 29 20 5c 67 20 69 66 20 66 69 6c 65 20 69 - ) \g if file i
0dd0: 73 20 61 20 74 65 72 6d 69 6e 61 6c 2c 20 72 65 s a terminal, re
0de0: 71 75 65 73 74 20 73 69 7a 65 0a 20 20 20 20 74 quest size. t
0df0: 65 72 6d 2d 77 20 40 20 75 6c 69 74 2c 20 74 65 erm-w @ ulit, te
0e00: 72 6d 2d 68 20 40 20 75 6c 69 74 2c 20 73 65 74 rm-h @ ulit, set
0e10: 2d 66 6f 72 6d 20 3b 0a 2b 6e 65 74 32 6f 3a 20 -form ;.+net2o:
0e20: 70 6f 6c 6c 2d 72 65 71 75 65 73 74 20 28 20 75 poll-request ( u
0e30: 6c 69 6d 69 74 20 2d 2d 20 29 20 5c 67 20 70 6f limit -- ) \g po
0e40: 6c 6c 20 61 20 66 69 6c 65 20 74 6f 20 63 68 65 ll a file to che
0e50: 63 6b 20 66 6f 72 20 73 69 7a 65 20 63 68 61 6e ck for size chan
0e60: 67 65 73 0a 20 20 20 20 70 6f 6c 6c 21 20 6c 69 ges. poll! li
0e70: 74 2c 20 73 65 74 2d 73 69 7a 65 20 3b 0a 0a 67 t, set-size ;..g
0e80: 65 6e 2d 74 61 62 6c 65 20 24 66 72 65 65 7a 65 en-table $freeze
0e90: 0a 27 20 63 6f 6e 74 65 78 74 2d 74 61 62 6c 65 .' context-table
0ea0: 20 69 73 20 67 65 6e 2d 74 61 62 6c 65 0a 0a 3a is gen-table..:
0eb0: 6e 6f 6e 61 6d 65 20 28 20 75 69 64 20 75 73 65 noname ( uid use
0ec0: 65 6b 20 2d 2d 20 29 20 36 34 3e 72 20 75 6c 69 ek -- ) 64>r uli
0ed0: 74 2c 20 66 69 6c 65 2d 69 64 0a 20 20 20 20 36 t, file-id. 6
0ee0: 34 72 3e 20 6c 69 74 2c 20 73 65 74 2d 73 65 65 4r> lit, set-see
0ef0: 6b 20 65 6e 64 2d 77 69 74 68 20 3b 20 69 73 20 k end-with ; is
0f00: 64 6f 2d 74 72 61 63 6b 2d 73 65 65 6b 0a 0a 5c do-track-seek..\
0f10: 20 66 6c 6f 77 20 63 6f 6e 74 72 6f 6c 20 66 75 flow control fu
0f20: 6e 63 74 69 6f 6e 73 0a 5c 67 20 0a 5c 67 20 23 nctions.\g .\g #
0f30: 23 23 20 61 63 6b 20 63 6f 6d 6d 61 6e 64 73 20 ## ack commands
0f40: 23 23 23 0a 5c 67 20 0a 0a 24 33 31 20 6e 65 74 ###.\g ..$31 net
0f50: 32 6f 3a 20 61 63 6b 20 28 20 2d 2d 20 6f 3a 61 2o: ack ( -- o:a
0f60: 63 6b 6f 20 29 20 5c 67 20 61 63 6b 20 6f 62 6a cko ) \g ack obj
0f70: 65 63 74 0a 20 20 20 20 61 63 6b 40 20 6e 3a 3e ect. ack@ n:>
0f80: 6f 20 3b 0a 61 63 6b 2d 74 61 62 6c 65 20 3e 74 o ;.ack-table >t
0f90: 61 62 6c 65 0a 72 65 70 6c 79 2d 74 61 62 6c 65 able.reply-table
0fa0: 20 24 40 20 69 6e 68 65 72 69 74 2d 74 61 62 6c $@ inherit-tabl
0fb0: 65 20 61 63 6b 2d 74 61 62 6c 65 0a 0a 3a 6e 6f e ack-table..:no
0fc0: 6e 61 6d 65 20 61 63 6b 20 3b 20 61 63 6b 2d 63 name ack ; ack-c
0fd0: 6c 61 73 73 20 74 6f 20 73 74 61 72 74 2d 72 65 lass to start-re
0fe0: 71 0a 24 32 30 20 6e 65 74 32 6f 3a 20 61 63 6b q.$20 net2o: ack
0ff0: 2d 61 64 64 72 74 69 6d 65 20 28 20 75 74 69 6d -addrtime ( utim
1000: 65 20 61 64 64 72 20 2d 2d 20 29 20 5c 67 20 70 e addr -- ) \g p
1010: 61 63 6b 65 74 20 61 74 20 61 64 64 72 20 72 65 acket at addr re
1020: 63 65 69 76 65 64 20 61 74 20 74 69 6d 65 0a 20 ceived at time.
1030: 20 20 20 6e 65 74 32 6f 3a 61 63 6b 2d 61 64 64 net2o:ack-add
1040: 72 74 69 6d 65 20 3b 0a 2b 6e 65 74 32 6f 3a 20 rtime ;.+net2o:
1050: 61 63 6b 2d 72 65 73 65 6e 64 20 28 20 66 6c 61 ack-resend ( fla
1060: 67 20 2d 2d 20 29 20 5c 67 20 73 65 74 20 72 65 g -- ) \g set re
1070: 73 65 6e 64 20 74 6f 67 67 6c 65 20 66 6c 61 67 send toggle flag
1080: 0a 20 20 20 20 36 34 3e 6e 20 20 70 61 72 65 6e . 64>n paren
1090: 74 20 2e 6e 65 74 32 6f 3a 61 63 6b 2d 72 65 73 t .net2o:ack-res
10a0: 65 6e 64 20 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 end ;.+net2o: se
10b0: 74 2d 72 61 74 65 20 28 20 75 72 61 74 65 20 75 t-rate ( urate u
10c0: 64 65 6c 74 61 2d 74 20 2d 2d 20 29 20 5c 67 20 delta-t -- ) \g
10d0: 73 65 74 20 72 61 74 65 20 0a 20 20 20 20 70 61 set rate . pa
10e0: 72 65 6e 74 20 3e 6f 20 63 6f 6f 6b 69 65 3f 20 rent >o cookie?
10f0: 49 46 20 20 61 63 6b 40 20 2e 6e 65 74 32 6f 3a IF ack@ .net2o:
1100: 73 65 74 2d 72 61 74 65 0a 20 20 20 20 45 4c 53 set-rate. ELS
1110: 45 20 20 36 34 64 72 6f 70 20 36 34 64 72 6f 70 E 64drop 64drop
1120: 20 61 63 6b 2d 6f 72 64 65 72 3f 0a 09 49 46 20 ack-order?..IF
1130: 20 61 63 6b 40 20 2e 6e 73 2f 62 75 72 73 74 20 ack@ .ns/burst
1140: 64 75 70 20 3e 72 20 36 34 40 20 36 34 2d 32 2a dup >r 64@ 64-2*
1150: 20 36 34 2d 32 2a 20 72 3e 20 36 34 21 0a 09 54 64-2* r> 64!..T
1160: 48 45 4e 0a 20 20 20 20 54 48 45 4e 20 6f 3e 20 HEN. THEN o>
1170: 3b 0a 2b 6e 65 74 32 6f 3a 20 72 65 73 65 6e 64 ;.+net2o: resend
1180: 2d 6d 61 73 6b 20 28 20 61 64 64 72 20 75 6d 61 -mask ( addr uma
1190: 73 6b 20 2d 2d 20 29 20 5c 67 20 72 65 73 65 6e sk -- ) \g resen
11a0: 64 20 6d 61 73 6b 20 62 6c 6f 63 6b 73 20 73 74 d mask blocks st
11b0: 61 72 74 69 6e 67 20 61 74 20 61 64 64 72 0a 20 arting at addr.
11c0: 20 20 20 32 2a 36 34 3e 6e 20 70 61 72 65 6e 74 2*64>n parent
11d0: 20 3e 6f 20 6e 65 74 32 6f 3a 72 65 73 65 6e 64 >o net2o:resend
11e0: 2d 6d 61 73 6b 20 6e 65 74 32 6f 3a 73 65 6e 64 -mask net2o:send
11f0: 2d 63 68 75 6e 6b 73 20 6f 3e 20 3b 0a 2b 6e 65 -chunks o> ;.+ne
1200: 74 32 6f 3a 20 74 72 61 63 6b 2d 74 69 6d 69 6e t2o: track-timin
1210: 67 20 28 20 2d 2d 20 29 20 5c 67 20 74 72 61 63 g ( -- ) \g trac
1220: 6b 20 74 69 6d 69 6e 67 0a 20 20 20 20 6e 65 74 k timing. net
1230: 32 6f 3a 74 72 61 63 6b 2d 74 69 6d 69 6e 67 20 2o:track-timing
1240: 3b 0a 2b 6e 65 74 32 6f 3a 20 72 65 63 2d 74 69 ;.+net2o: rec-ti
1250: 6d 69 6e 67 20 28 20 24 3a 73 74 72 69 6e 67 20 ming ( $:string
1260: 2d 2d 20 29 20 5c 67 20 72 65 63 6f 72 64 65 64 -- ) \g recorded
1270: 20 74 69 6d 69 6e 67 0a 20 20 20 20 24 3e 20 6e timing. $> n
1280: 65 74 32 6f 3a 72 65 63 2d 74 69 6d 69 6e 67 20 et2o:rec-timing
1290: 3b 0a 2b 6e 65 74 32 6f 3a 20 73 65 6e 64 2d 74 ;.+net2o: send-t
12a0: 69 6d 69 6e 67 20 28 20 2d 2d 20 29 20 5c 67 20 iming ( -- ) \g
12b0: 72 65 71 75 65 73 74 20 72 65 63 6f 72 64 65 64 request recorded
12c0: 20 74 69 6d 69 6e 67 0a 20 20 20 20 6e 65 74 32 timing. net2
12d0: 6f 3a 74 69 6d 69 6e 67 24 20 6d 61 78 74 69 6d o:timing$ maxtim
12e0: 69 6e 67 20 75 6d 69 6e 20 74 75 63 6b 20 24 2c ing umin tuck $,
12f0: 20 6e 65 74 32 6f 3a 2f 74 69 6d 69 6e 67 20 72 net2o:/timing r
1300: 65 63 2d 74 69 6d 69 6e 67 20 3b 0a 2b 6e 65 74 ec-timing ;.+net
1310: 32 6f 3a 20 61 63 6b 2d 62 32 62 74 69 6d 65 20 2o: ack-b2btime
1320: 28 20 75 74 69 6d 65 20 61 64 64 72 20 2d 2d 20 ( utime addr --
1330: 29 20 5c 67 20 62 75 72 73 74 2d 74 6f 2d 62 75 ) \g burst-to-bu
1340: 72 73 74 20 74 69 6d 65 20 61 74 20 70 61 63 6b rst time at pack
1350: 65 74 20 61 64 64 72 0a 20 20 20 20 6e 65 74 32 et addr. net2
1360: 6f 3a 61 63 6b 2d 62 32 62 74 69 6d 65 20 3b 0a o:ack-b2btime ;.
1370: 2b 6e 65 74 32 6f 3a 20 61 63 6b 2d 72 65 73 65 +net2o: ack-rese
1380: 6e 64 23 20 28 20 61 64 64 72 20 24 3a 73 74 72 nd# ( addr $:str
1390: 69 6e 67 20 2d 2d 20 29 20 5c 67 20 72 65 73 65 ing -- ) \g rese
13a0: 6e 64 20 6e 75 6d 62 65 72 73 0a 20 20 20 20 36 nd numbers. 6
13b0: 34 3e 6e 20 24 3e 0a 20 20 20 20 61 63 6b 2d 6f 4>n $>. ack-o
13c0: 72 64 65 72 3f 20 49 46 0a 09 70 61 72 65 6e 74 rder? IF..parent
13d0: 20 2e 64 61 74 61 2d 6d 61 70 20 2e 6d 61 70 63 .data-map .mapc
13e0: 3a 72 65 73 65 6e 64 23 3f 20 64 75 70 20 30 3d :resend#? dup 0=
13f0: 20 49 46 0a 09 20 20 20 20 64 72 6f 70 20 74 69 IF.. drop ti
1400: 6d 65 6f 75 74 28 20 2e 22 20 72 65 73 65 6e 64 meout( ." resend
1410: 23 20 64 6f 6e 27 74 20 6d 61 74 63 68 21 22 20 # don't match!"
1420: 66 6f 72 74 68 3a 63 72 0a 09 20 20 20 20 70 61 forth:cr.. pa
1430: 72 65 6e 74 20 2e 6e 65 74 32 6f 3a 73 65 65 2d rent .net2o:see-
1440: 6d 65 20 29 0a 09 20 20 20 20 5b 20 63 6f 6f 6b me ).. [ cook
1450: 69 65 2d 76 61 6c 20 31 20 76 61 6c 69 64 61 74 ie-val 1 validat
1460: 65 64 23 20 6c 73 68 69 66 74 20 31 2d 20 78 6f ed# lshift 1- xo
1470: 72 20 5d 4c 20 76 61 6c 69 64 61 74 65 64 20 61 r ]L validated a
1480: 6e 64 21 0a 09 45 4c 53 45 0a 09 20 20 20 20 76 nd!..ELSE.. v
1490: 61 6c 69 64 61 74 65 64 23 20 6c 73 68 69 66 74 alidated# lshift
14a0: 20 76 61 6c 69 64 61 74 65 64 20 2b 21 20 63 6f validated +! co
14b0: 6f 6b 69 65 2d 76 61 6c 20 76 61 6c 69 64 61 74 okie-val validat
14c0: 65 64 20 6f 72 21 0a 09 54 48 45 4e 0a 20 20 20 ed or!..THEN.
14d0: 20 45 4c 53 45 20 20 74 69 6d 65 6f 75 74 28 20 ELSE timeout(
14e0: 2e 22 20 6f 75 74 20 6f 66 20 6f 72 64 65 72 20 ." out of order
14f0: 61 72 72 69 76 61 6c 20 6f 66 20 61 63 6b 22 20 arrival of ack"
1500: 66 6f 72 74 68 3a 63 72 20 29 0a 09 32 64 72 6f forth:cr )..2dro
1510: 70 20 64 72 6f 70 0a 20 20 20 20 54 48 45 4e 20 p drop. THEN
1520: 3b 0a 2b 6e 65 74 32 6f 3a 20 61 63 6b 2d 66 6c ;.+net2o: ack-fl
1530: 75 73 68 20 28 20 61 64 64 72 20 2d 2d 20 29 20 ush ( addr -- )
1540: 5c 67 20 66 6c 75 73 68 65 64 20 74 6f 20 61 64 \g flushed to ad
1550: 64 72 0a 20 20 20 20 36 34 3e 6e 20 70 61 72 65 dr. 64>n pare
1560: 6e 74 20 2e 6e 65 74 32 6f 3a 72 65 77 69 6e 64 nt .net2o:rewind
1570: 2d 73 65 6e 64 65 72 2d 70 61 72 74 69 61 6c 20 -sender-partial
1580: 3b 0a 5c 20 2b 6e 65 74 32 6f 3a 20 73 65 74 2d ;.\ +net2o: set-
1590: 68 65 61 64 20 28 20 61 64 64 72 20 2d 2d 20 29 head ( addr -- )
15a0: 20 5c 67 20 73 65 74 20 68 65 61 64 0a 5c 20 20 \g set head.\
15b0: 20 20 20 36 34 3e 6e 20 70 61 72 65 6e 74 20 2e 64>n parent .
15c0: 64 61 74 61 2d 72 6d 61 70 20 3e 6f 20 61 64 64 data-rmap >o add
15d0: 72 20 6d 61 70 63 3a 64 65 73 74 2d 68 65 61 64 r mapc:dest-head
15e0: 20 6f 3e 20 75 6d 61 78 21 20 3b 0a 5c 20 2b 6e o> umax! ;.\ +n
15f0: 65 74 32 6f 3a 20 74 69 6d 65 6f 75 74 20 28 20 et2o: timeout (
1600: 75 74 69 63 6b 73 20 2d 2d 20 29 20 5c 67 20 74 uticks -- ) \g t
1610: 69 6d 65 6f 75 74 20 72 65 71 75 65 73 74 0a 5c imeout request.\
1620: 20 20 20 20 20 70 61 72 65 6e 74 20 3e 6f 20 6e parent >o n
1630: 65 74 32 6f 3a 74 69 6d 65 6f 75 74 20 64 61 74 et2o:timeout dat
1640: 61 2d 6d 61 70 20 2e 6d 61 70 63 3a 64 65 73 74 a-map .mapc:dest
1650: 2d 62 61 63 6b 20 75 6c 69 74 2c 20 73 65 74 2d -back ulit, set-
1660: 68 65 61 64 20 6f 3e 20 3b 0a 24 32 43 20 6e 65 head o> ;.$2C ne
1670: 74 32 6f 3a 20 73 65 74 2d 72 74 64 65 6c 61 79 t2o: set-rtdelay
1680: 20 28 20 74 69 63 6b 73 20 2d 2d 20 29 20 5c 67 ( ticks -- ) \g
1690: 20 73 65 74 20 72 6f 75 6e 64 20 74 72 69 70 20 set round trip
16a0: 64 65 6c 61 79 20 6f 6e 6c 79 0a 20 20 20 20 72 delay only. r
16b0: 74 64 65 6c 61 79 21 20 3b 0a 2b 6e 65 74 32 6f tdelay! ;.+net2o
16c0: 3a 20 73 65 71 23 20 28 20 6e 20 2d 2d 20 29 20 : seq# ( n -- )
16d0: 5c 67 20 73 65 74 20 74 68 65 20 61 63 6b 20 6e \g set the ack n
16e0: 75 6d 62 65 72 20 61 6e 64 20 63 68 65 63 6b 20 umber and check
16f0: 66 6f 72 20 73 6d 61 6c 6c 65 72 0a 20 20 20 20 for smaller.
1700: 36 34 3e 6e 20 70 61 72 65 6e 74 20 2e 64 61 74 64>n parent .dat
1710: 61 2d 6d 61 70 20 77 69 74 68 20 6d 61 70 63 0a a-map with mapc.
1720: 20 20 20 20 64 75 70 20 73 65 6e 64 2d 61 63 6b dup send-ack
1730: 23 20 75 3e 20 49 46 20 20 74 6f 20 73 65 6e 64 # u> IF to send
1740: 2d 61 63 6b 23 20 20 61 63 6b 2d 6f 72 64 65 72 -ack# ack-order
1750: 2d 76 61 6c 20 76 61 6c 69 64 61 74 65 64 20 6f -val validated o
1760: 72 21 20 20 45 4c 53 45 0a 09 64 72 6f 70 20 5b r! ELSE..drop [
1770: 20 61 63 6b 2d 6f 72 64 65 72 2d 76 61 6c 20 69 ack-order-val i
1780: 6e 76 65 72 74 20 5d 4c 20 76 61 6c 69 64 61 74 nvert ]L validat
1790: 65 64 20 61 6e 64 21 0a 20 20 20 20 54 48 45 4e ed and!. THEN
17a0: 0a 20 20 20 20 65 6e 64 77 69 74 68 20 3b 0a 0a . endwith ;..
17b0: 5c 20 70 72 6f 66 69 6c 69 6e 67 2c 20 6e 61 74 \ profiling, nat
17c0: 20 74 72 61 76 65 72 73 61 6c 0a 0a 67 65 6e 2d traversal..gen-
17d0: 74 61 62 6c 65 20 24 66 72 65 65 7a 65 0a 27 20 table $freeze.'
17e0: 63 6f 6e 74 65 78 74 2d 74 61 62 6c 65 20 69 73 context-table is
17f0: 20 67 65 6e 2d 74 61 62 6c 65 0a 0a 69 6e 20 6e gen-table..in n
1800: 65 74 32 6f 20 3a 20 67 65 6e 2d 72 65 73 65 6e et2o : gen-resen
1810: 64 20 28 20 2d 2d 20 29 0a 20 20 20 20 61 63 6b d ( -- ). ack
1820: 2d 72 65 63 65 69 76 65 20 69 6e 76 65 72 74 20 -receive invert
1830: 72 65 73 65 6e 64 2d 74 6f 67 67 6c 65 23 20 61 resend-toggle# a
1840: 6e 64 20 75 6c 69 74 2c 20 61 63 6b 2d 72 65 73 nd ulit, ack-res
1850: 65 6e 64 20 3b 0a 69 6e 20 6e 65 74 32 6f 20 3a end ;.in net2o :
1860: 20 67 65 6e 2d 72 65 73 65 74 20 28 20 2d 2d 20 gen-reset ( --
1870: 29 0a 20 20 20 20 61 63 6b 2d 72 65 73 65 74 20 ). ack-reset
1880: 30 20 74 6f 20 61 63 6b 2d 72 65 63 65 69 76 65 0 to ack-receive
1890: 20 3b 0a 0a 3a 20 72 65 77 69 6e 64 20 28 20 2d ;..: rewind ( -
18a0: 2d 20 29 0a 20 20 20 20 64 61 74 61 2d 72 6d 61 - ). data-rma
18b0: 70 20 2e 6d 61 70 63 3a 64 65 73 74 2d 62 61 63 p .mapc:dest-bac
18c0: 6b 20 75 6c 69 74 2c 20 61 63 6b 2d 66 6c 75 73 k ulit, ack-flus
18d0: 68 20 3b 0a 0a 5c 20 73 61 66 65 20 69 6e 69 74 h ;..\ safe init
18e0: 69 61 6c 69 7a 61 74 69 6f 6e 0a 0a 3a 20 6c 69 ialization..: li
18f0: 74 3c 20 20 20 6c 69 74 2c 20 70 75 73 68 2d 6c t< lit, push-l
1900: 69 74 20 3b 0a 3a 6e 6f 6e 61 6d 65 20 28 20 74 it ;.:noname ( t
1910: 68 72 6f 77 63 6f 64 65 20 2d 2d 20 29 0a 20 20 hrowcode -- ).
1920: 20 20 72 65 6d 6f 74 65 3f 20 40 20 49 46 0a 09 remote? @ IF..
1930: 3f 64 75 70 2d 49 46 20 20 69 6e 69 74 2d 72 65 ?dup-IF init-re
1940: 70 6c 79 0a 09 20 20 20 20 24 65 72 72 6f 72 2d ply.. $error-
1950: 69 64 20 24 40 20 64 75 70 20 49 46 20 20 24 2c id $@ dup IF $,
1960: 20 65 72 72 6f 72 2d 69 64 20 20 45 4c 53 45 20 error-id ELSE
1970: 20 32 64 72 6f 70 20 20 54 48 45 4e 0a 09 20 20 2drop THEN..
1980: 20 20 6e 6c 69 74 2c 20 6b 6f 20 20 54 48 45 4e nlit, ko THEN
1990: 0a 20 20 20 20 45 4c 53 45 0a 09 65 72 72 6f 72 . ELSE..error
19a0: 2d 69 64 3e 6f 20 3f 64 75 70 2d 49 46 0a 09 20 -id>o ?dup-IF..
19b0: 20 20 20 3e 6f 20 3c 65 76 65 6e 74 20 65 6c 69 >o <event eli
19c0: 74 2c 20 3a 3e 74 68 72 6f 77 20 77 61 69 74 2d t, :>throw wait-
19d0: 74 61 73 6b 20 40 20 65 76 65 6e 74 3e 20 6f 3e task @ event> o>
19e0: 0a 09 45 4c 53 45 20 20 74 68 72 6f 77 20 20 54 ..ELSE throw T
19f0: 48 45 4e 0a 20 20 20 20 54 48 45 4e 20 3b 20 49 HEN. THEN ; I
1a00: 53 20 3e 74 68 72 6f 77 0a 0a 61 6c 73 6f 20 7d S >throw..also }
1a10: 73 63 6f 70 65 0a 0a 3a 20 62 6c 6f 63 6b 73 69 scope..: blocksi
1a20: 7a 65 21 20 28 20 6e 20 2d 2d 20 29 20 20 6d 61 ze! ( n -- ) ma
1a30: 78 2d 62 6c 6f 63 6b 23 20 75 6d 69 6e 20 64 75 x-block# umin du
1a40: 70 20 75 6c 69 74 2c 20 73 65 74 2d 62 6c 6f 63 p ulit, set-bloc
1a50: 6b 73 69 7a 65 0a 20 20 20 20 31 20 73 77 61 70 ksize. 1 swap
1a60: 20 6c 73 68 69 66 74 20 6e 65 74 32 6f 3a 62 6c lshift net2o:bl
1a70: 6f 63 6b 73 69 7a 65 73 21 20 3b 0a 3a 20 62 6c ocksizes! ;.: bl
1a80: 6f 63 6b 61 6c 69 67 6e 21 20 28 20 6e 20 2d 2d ockalign! ( n --
1a90: 20 29 20 6d 61 78 2d 62 6c 6f 63 6b 23 20 75 6d ) max-block# um
1aa0: 69 6e 20 64 75 70 20 75 6c 69 74 2c 20 73 65 74 in dup ulit, set
1ab0: 2d 62 6c 6f 63 6b 61 6c 69 67 6e 0a 20 20 20 20 -blockalign.
1ac0: 31 20 73 77 61 70 20 6c 73 68 69 66 74 20 62 6c 1 swap lshift bl
1ad0: 6f 63 6b 61 6c 69 67 6e 20 21 20 3b 0a 0a 3a 20 ockalign ! ;..:
1ae0: 6f 70 65 6e 2d 73 69 7a 65 64 2d 66 69 6c 65 20 open-sized-file
1af0: 28 20 61 64 64 72 20 75 20 6d 6f 64 65 20 2d 2d ( addr u mode --
1b00: 29 0a 20 20 20 20 6f 70 65 6e 2d 66 69 6c 65 20 ). open-file
1b10: 67 65 74 2d 73 69 7a 65 20 3b 0a 3a 20 6f 70 65 get-size ;.: ope
1b20: 6e 2d 74 72 61 63 6b 65 64 2d 66 69 6c 65 20 28 n-tracked-file (
1b30: 20 61 64 64 72 20 75 20 6d 6f 64 65 20 2d 2d 29 addr u mode --)
1b40: 0a 20 20 20 20 6f 70 65 6e 2d 73 69 7a 65 64 2d . open-sized-
1b50: 66 69 6c 65 20 67 65 74 2d 73 74 61 74 20 3b 0a file get-stat ;.
1b60: 0a 3a 20 6e 32 6f 3e 66 69 6c 65 20 28 20 78 74 .: n2o>file ( xt
1b70: 20 2d 2d 20 29 0a 20 20 20 20 66 69 6c 65 2d 72 -- ). file-r
1b80: 65 67 23 20 40 20 75 6c 69 74 2c 20 66 69 6c 65 eg# @ ulit, file
1b90: 2d 69 64 20 20 63 61 74 63 68 20 20 65 6e 64 2d -id catch end-
1ba0: 77 69 74 68 0a 20 20 20 20 74 68 72 6f 77 20 20 with. throw
1bb0: 31 20 66 69 6c 65 2d 72 65 67 23 20 2b 21 20 3b 1 file-reg# +! ;
1bc0: 0a 0a 69 6e 20 6e 65 74 32 6f 20 3a 20 63 6f 70 ..in net2o : cop
1bd0: 79 20 28 20 61 64 64 72 73 72 63 20 75 73 20 61 y ( addrsrc us a
1be0: 64 64 72 64 65 73 74 20 75 64 20 2d 2d 20 29 0a ddrdest ud -- ).
1bf0: 20 20 20 20 5b 3a 20 66 69 6c 65 28 20 2e 22 20 [: file( ."
1c00: 63 6f 70 79 20 27 22 20 32 6f 76 65 72 20 66 6f copy '" 2over fo
1c10: 72 74 68 3a 74 79 70 65 20 2e 22 20 27 20 2d 3e rth:type ." ' ->
1c20: 20 27 22 20 32 64 75 70 20 66 6f 72 74 68 3a 74 '" 2dup forth:t
1c30: 79 70 65 0a 20 20 20 20 20 20 2e 22 20 27 22 20 ype. ." '"
1c40: 66 6f 72 74 68 3a 63 72 20 29 0a 20 20 20 20 20 forth:cr ).
1c50: 20 32 73 77 61 70 20 24 2c 20 72 2f 6f 20 75 6c 2swap $, r/o ul
1c60: 69 74 2c 20 6f 70 65 6e 2d 74 72 61 63 6b 65 64 it, open-tracked
1c70: 2d 66 69 6c 65 0a 20 20 20 20 20 20 66 69 6c 65 -file. file
1c80: 2d 72 65 67 23 20 40 20 73 61 76 65 2d 74 6f 20 -reg# @ save-to
1c90: 3b 5d 20 6e 32 6f 3e 66 69 6c 65 0a 20 20 20 20 ;] n2o>file.
1ca0: 31 20 66 69 6c 65 2d 63 6f 75 6e 74 20 2b 21 20 1 file-count +!
1cb0: 3b 0a 0a 69 6e 20 6e 65 74 32 6f 20 3a 20 63 6f ;..in net2o : co
1cc0: 70 79 23 20 28 20 61 64 64 72 68 61 73 68 20 75 py# ( addrhash u
1cd0: 20 2d 2d 20 29 0a 20 20 20 20 5b 3a 20 66 69 6c -- ). [: fil
1ce0: 65 28 20 2e 22 20 63 6f 70 79 23 20 22 20 32 64 e( ." copy# " 2d
1cf0: 75 70 20 38 35 74 79 70 65 20 66 6f 72 74 68 3a up 85type forth:
1d00: 63 72 20 29 0a 20 20 20 20 20 20 31 20 75 6c 69 cr ). 1 uli
1d10: 74 2c 20 66 69 6c 65 2d 74 79 70 65 20 32 64 75 t, file-type 2du
1d20: 70 20 24 2c 20 72 2f 6f 20 75 6c 69 74 2c 20 6f p $, r/o ulit, o
1d30: 70 65 6e 2d 74 72 61 63 6b 65 64 2d 66 69 6c 65 pen-tracked-file
1d40: 0a 20 20 20 20 20 20 66 69 6c 65 2d 72 65 67 23 . file-reg#
1d50: 20 40 20 73 61 76 65 2d 74 6f 23 20 3b 5d 20 6e @ save-to# ;] n
1d60: 32 6f 3e 66 69 6c 65 0a 20 20 20 20 31 20 66 69 2o>file. 1 fi
1d70: 6c 65 2d 63 6f 75 6e 74 20 2b 21 20 3b 0a 0a 3a le-count +! ;..:
1d80: 20 73 65 65 6b 21 20 28 20 70 6f 73 20 69 64 20 seek! ( pos id
1d90: 2d 2d 20 29 20 3e 72 20 64 3e 36 34 0a 20 20 20 -- ) >r d>64.
1da0: 20 36 34 64 75 70 20 72 40 20 73 74 61 74 65 2d 64dup r@ state-
1db0: 61 64 64 72 20 3e 6f 20 74 6f 20 66 73 2d 73 65 addr >o to fs-se
1dc0: 65 6b 20 6f 3e 0a 20 20 20 20 72 3e 20 75 6c 69 ek o>. r> uli
1dd0: 74 2c 20 66 69 6c 65 2d 69 64 20 6c 69 74 2c 20 t, file-id lit,
1de0: 73 65 74 2d 73 65 65 6b 20 65 6e 64 2d 77 69 74 set-seek end-wit
1df0: 68 20 3b 0a 0a 3a 20 6c 69 6d 69 74 21 20 28 20 h ;..: limit! (
1e00: 70 6f 73 20 69 64 20 2d 2d 20 29 20 3e 72 20 64 pos id -- ) >r d
1e10: 3e 36 34 0a 20 20 20 20 72 40 20 75 6c 69 74 2c >64. r@ ulit,
1e20: 20 66 69 6c 65 2d 69 64 20 36 34 64 75 70 20 6c file-id 64dup l
1e30: 69 74 2c 20 73 65 74 2d 6c 69 6d 69 74 20 65 6e it, set-limit en
1e40: 64 2d 77 69 74 68 0a 20 20 20 20 72 3e 20 69 6e d-with. r> in
1e50: 69 74 2d 6c 69 6d 69 74 21 20 3b 0a 0a 70 72 65 it-limit! ;..pre
1e60: 76 69 6f 75 73 0a 0a 5c 20 63 6c 69 65 6e 74 20 vious..\ client
1e70: 73 69 64 65 20 74 69 6d 69 6e 67 0a 0a 3a 20 61 side timing..: a
1e80: 63 6b 2d 73 69 7a 65 20 28 20 2d 2d 20 29 20 20 ck-size ( -- )
1e90: 31 20 61 63 6b 73 20 2b 21 0a 20 20 20 20 61 63 1 acks +!. ac
1ea0: 6b 40 20 2e 72 65 63 76 2d 74 69 63 6b 20 36 34 k@ .recv-tick 64
1eb0: 40 20 36 34 64 75 70 20 6c 61 73 74 62 2d 74 69 @ 64dup lastb-ti
1ec0: 63 6b 73 20 36 34 21 40 20 36 34 2d 20 6d 61 78 cks 64!@ 64- max
1ed0: 2d 64 74 69 63 6b 73 20 36 34 6d 61 78 21 20 3b -dticks 64max! ;
1ee0: 0a 3a 20 61 63 6b 2d 66 69 72 73 74 20 28 20 2d .: ack-first ( -
1ef0: 2d 20 29 0a 20 20 20 20 6c 61 73 74 62 2d 74 69 - ). lastb-ti
1f00: 63 6b 73 20 36 34 40 20 66 69 72 73 74 62 2d 74 cks 64@ firstb-t
1f10: 69 63 6b 73 20 36 34 40 20 36 34 2d 20 64 65 6c icks 64@ 64- del
1f20: 74 61 2d 74 69 63 6b 73 20 36 34 2b 21 0a 20 20 ta-ticks 64+!.
1f30: 20 20 61 63 6b 40 20 2e 72 65 63 76 2d 74 69 63 ack@ .recv-tic
1f40: 6b 20 36 34 40 20 36 34 64 75 70 20 66 69 72 73 k 64@ 64dup firs
1f50: 74 62 2d 74 69 63 6b 73 20 36 34 21 20 20 36 34 tb-ticks 64! 64
1f60: 64 75 70 20 6c 61 73 74 62 2d 74 69 63 6b 73 20 dup lastb-ticks
1f70: 36 34 21 0a 20 20 20 20 6c 61 73 74 2d 72 74 69 64!. last-rti
1f80: 63 6b 20 36 34 21 20 20 72 65 63 76 2d 61 64 64 ck 64! recv-add
1f90: 72 20 36 34 40 20 6c 61 73 74 2d 72 61 64 64 72 r 64@ last-raddr
1fa0: 20 36 34 21 20 3b 0a 0a 3a 20 61 63 6b 2d 74 69 64! ;..: ack-ti
1fb0: 6d 69 6e 67 20 28 20 6e 20 2d 2d 20 29 0a 20 20 ming ( n -- ).
1fc0: 20 20 62 32 62 2d 74 6f 67 67 6c 65 23 20 61 6e b2b-toggle# an
1fd0: 64 20 20 49 46 20 20 61 63 6b 2d 66 69 72 73 74 d IF ack-first
1fe0: 20 20 45 4c 53 45 20 20 61 63 6b 2d 73 69 7a 65 ELSE ack-size
1ff0: 20 20 54 48 45 4e 20 3b 0a 0a 61 6c 73 6f 20 6e THEN ;..also n
2000: 65 74 32 6f 2d 62 61 73 65 0a 0a 3a 20 73 65 74 et2o-base..: set
2010: 72 61 74 65 2d 6c 69 6d 69 74 20 28 20 72 61 74 rate-limit ( rat
2020: 65 20 2d 2d 20 72 61 74 65 27 20 29 0a 20 20 20 e -- rate' ).
2030: 20 5c 20 64 6f 20 6e 6f 74 20 63 68 61 6e 67 65 \ do not change
2040: 20 72 65 71 75 65 73 74 65 64 20 72 61 74 65 20 requested rate
2050: 62 79 20 6d 6f 72 65 20 74 68 61 6e 20 61 20 66 by more than a f
2060: 61 63 74 6f 72 20 32 0a 20 20 20 20 6c 61 73 74 actor 2. last
2070: 2d 72 61 74 65 20 36 34 40 0a 20 20 20 20 36 34 -rate 64@. 64
2080: 64 75 70 20 36 34 2d 30 3c 3e 20 49 46 20 20 36 dup 64-0<> IF 6
2090: 34 74 75 63 6b 20 36 34 2d 32 2a 20 36 34 6d 69 4tuck 64-2* 64mi
20a0: 6e 20 36 34 73 77 61 70 20 36 34 2d 32 2f 20 36 n 64swap 64-2/ 6
20b0: 34 6d 61 78 20 20 45 4c 53 45 20 20 36 34 64 72 4max ELSE 64dr
20c0: 6f 70 20 20 54 48 45 4e 0a 20 20 20 20 36 34 64 op THEN. 64d
20d0: 75 70 20 6c 61 73 74 2d 72 61 74 65 20 36 34 21 up last-rate 64!
20e0: 20 3b 0a 0a 3a 20 3e 72 61 74 65 20 28 20 2d 2d ;..: >rate ( --
20f0: 20 29 20 20 64 65 6c 74 61 2d 74 69 63 6b 73 20 ) delta-ticks
2100: 36 34 40 20 36 34 2d 30 3d 20 61 63 6b 73 20 40 64@ 64-0= acks @
2110: 20 30 3d 20 6f 72 20 3f 45 58 49 54 0a 20 20 20 0= or ?EXIT.
2120: 20 61 63 6b 40 20 2e 72 65 63 76 2d 74 69 63 6b ack@ .recv-tick
2130: 20 36 34 40 20 36 34 64 75 70 20 62 75 72 73 74 64@ 64dup burst
2140: 2d 74 69 63 6b 73 20 36 34 21 40 20 36 34 64 75 -ticks 64!@ 64du
2150: 70 20 36 34 2d 30 3c 3e 20 49 46 0a 09 36 34 2d p 64-0<> IF..64-
2160: 20 6d 61 78 2d 64 74 69 63 6b 73 20 36 34 40 20 max-dticks 64@
2170: 74 69 63 6b 2d 69 6e 69 74 20 31 2b 20 6e 3e 36 tick-init 1+ n>6
2180: 34 20 36 34 2a 20 36 34 6d 61 78 20 36 34 3e 72 4 64* 64max 64>r
2190: 0a 09 64 65 6c 74 61 2d 74 69 63 6b 73 20 36 34 ..delta-ticks 64
21a0: 40 20 74 69 63 6b 2d 69 6e 69 74 20 31 2b 20 61 @ tick-init 1+ a
21b0: 63 6b 73 20 40 20 36 34 2a 2f 20 73 65 74 72 61 cks @ 64*/ setra
21c0: 74 65 2d 6c 69 6d 69 74 0a 09 6c 69 74 2c 20 36 te-limit..lit, 6
21d0: 34 72 3e 20 6c 69 74 2c 20 73 65 74 2d 72 61 74 4r> lit, set-rat
21e0: 65 0a 20 20 20 20 45 4c 53 45 0a 09 36 34 64 72 e. ELSE..64dr
21f0: 6f 70 20 36 34 64 72 6f 70 0a 20 20 20 20 54 48 op 64drop. TH
2200: 45 4e 0a 20 20 20 20 64 65 6c 74 61 2d 74 69 63 EN. delta-tic
2210: 6b 73 20 36 34 6f 66 66 20 20 6d 61 78 2d 64 74 ks 64off max-dt
2220: 69 63 6b 73 20 36 34 6f 66 66 20 20 61 63 6b 73 icks 64off acks
2230: 20 6f 66 66 20 3b 0a 0a 69 6e 20 6e 65 74 32 6f off ;..in net2o
2240: 20 3a 20 61 63 6b 74 69 6d 65 20 28 20 2d 2d 20 : acktime ( --
2250: 29 0a 20 20 20 20 72 65 63 76 2d 61 64 64 72 20 ). recv-addr
2260: 36 34 40 20 61 63 6b 40 20 2e 72 65 63 76 2d 74 64@ ack@ .recv-t
2270: 69 63 6b 20 36 34 40 20 61 63 6b 40 20 2e 74 69 ick 64@ ack@ .ti
2280: 6d 65 2d 6f 66 66 73 65 74 20 36 34 40 20 36 34 me-offset 64@ 64
2290: 2d 0a 20 20 20 20 74 69 6d 69 6e 67 28 20 36 34 -. timing( 64
22a0: 3e 72 20 36 34 64 75 70 20 78 36 34 2e 20 36 34 >r 64dup x64. 64
22b0: 72 3e 20 36 34 64 75 70 20 75 36 34 2e 20 2e 22 r> 64dup u64. ."
22c0: 20 61 63 6b 74 69 6d 65 22 20 66 6f 72 74 68 3a acktime" forth:
22d0: 63 72 20 29 0a 20 20 20 20 6c 69 74 2c 20 6c 69 cr ). lit, li
22e0: 74 2c 20 61 63 6b 2d 61 64 64 72 74 69 6d 65 20 t, ack-addrtime
22f0: 3b 0a 69 6e 20 6e 65 74 32 6f 20 3a 20 62 32 62 ;.in net2o : b2b
2300: 74 69 6d 65 20 28 20 2d 2d 20 29 0a 20 20 20 20 time ( -- ).
2310: 6c 61 73 74 2d 72 61 64 64 72 20 36 34 40 20 6c last-raddr 64@ l
2320: 61 73 74 2d 72 74 69 63 6b 20 36 34 40 20 36 34 ast-rtick 64@ 64
2330: 64 75 70 20 36 34 2d 30 3d 0a 20 20 20 20 49 46 dup 64-0=. IF
2340: 20 20 36 34 64 72 6f 70 20 36 34 64 72 6f 70 0a 64drop 64drop.
2350: 20 20 20 20 45 4c 53 45 20 20 61 63 6b 40 20 2e ELSE ack@ .
2360: 74 69 6d 65 2d 6f 66 66 73 65 74 20 36 34 40 20 time-offset 64@
2370: 36 34 2d 20 6c 69 74 2c 20 6c 69 74 2c 20 61 63 64- lit, lit, ac
2380: 6b 2d 62 32 62 74 69 6d 65 20 20 54 48 45 4e 20 k-b2btime THEN
2390: 3b 0a 0a 5c 20 61 63 6b 20 62 69 74 73 2c 20 6e ;..\ ack bits, n
23a0: 65 77 20 63 6f 64 65 0a 0a 69 6e 20 6e 65 74 32 ew code..in net2
23b0: 6f 20 3a 20 61 63 6b 2d 72 65 73 65 6e 64 23 20 o : ack-resend#
23c0: 28 20 2d 2d 20 29 20 20 64 61 74 61 2d 72 6d 61 ( -- ) data-rma
23d0: 70 20 7b 20 6d 61 70 20 7d 0a 20 20 20 20 6d 61 p { map }. ma
23e0: 70 20 2e 6d 61 70 63 3a 64 61 74 61 2d 72 65 73 p .mapc:data-res
23f0: 65 6e 64 23 2d 62 75 66 20 24 40 0a 20 20 20 20 end#-buf $@.
2400: 62 6f 75 6e 64 73 20 3f 44 4f 0a 09 49 20 24 40 bounds ?DO..I $@
2410: 20 6f 76 65 72 20 40 20 3e 72 20 63 65 6c 6c 20 over @ >r cell
2420: 2f 73 74 72 69 6e 67 20 24 46 46 20 2d 73 6b 69 /string $FF -ski
2430: 70 0a 09 64 75 70 20 3e 72 20 24 46 46 20 73 6b p..dup >r $FF sk
2440: 69 70 20 64 75 70 20 49 46 0a 09 20 20 20 20 72 ip dup IF.. r
2450: 3e 20 6f 76 65 72 20 2d 20 72 3e 20 2b 20 75 6c > over - r> + ul
2460: 69 74 2c 20 24 2c 20 61 63 6b 2d 72 65 73 65 6e it, $, ack-resen
2470: 64 23 0a 09 45 4c 53 45 20 20 32 64 72 6f 70 20 d#..ELSE 2drop
2480: 72 64 72 6f 70 20 72 64 72 6f 70 20 20 54 48 45 rdrop rdrop THE
2490: 4e 0a 20 20 20 20 63 65 6c 6c 20 2b 4c 4f 4f 50 N. cell +LOOP
24a0: 0a 20 20 20 20 6d 61 70 20 2e 6d 61 70 63 3a 64 . map .mapc:d
24b0: 61 74 61 2d 72 65 73 65 6e 64 23 2d 62 75 66 20 ata-resend#-buf
24c0: 24 5b 5d 6f 66 66 20 3b 0a 0a 5c 20 63 6c 69 65 $[]off ;..\ clie
24d0: 6e 74 20 73 69 64 65 20 61 63 6b 6e 6f 77 6c 65 nt side acknowle
24e0: 64 67 65 0a 0a 69 6e 20 6e 65 74 32 6f 20 3a 20 dge..in net2o :
24f0: 67 65 6e 61 63 6b 20 28 20 2d 2d 20 29 0a 20 20 genack ( -- ).
2500: 20 20 6e 65 74 32 6f 3a 61 63 6b 2d 72 65 73 65 net2o:ack-rese
2510: 6e 64 23 20 20 6e 65 74 32 6f 3a 62 32 62 74 69 nd# net2o:b2bti
2520: 6d 65 20 20 6e 65 74 32 6f 3a 61 63 6b 74 69 6d me net2o:acktim
2530: 65 20 20 3e 72 61 74 65 20 3b 0a 0a 3a 20 21 72 e >rate ;..: !r
2540: 64 61 74 61 2d 74 61 69 6c 20 28 20 2d 2d 20 29 data-tail ( -- )
2550: 0a 20 20 20 20 64 61 74 61 2d 72 6d 61 70 20 77 . data-rmap w
2560: 69 74 68 20 6d 61 70 63 0a 20 20 20 20 64 61 74 ith mapc. dat
2570: 61 2d 61 63 6b 23 20 40 20 62 79 74 65 73 3e 61 a-ack# @ bytes>a
2580: 64 64 72 0a 20 20 20 20 64 65 73 74 2d 68 65 61 ddr. dest-hea
2590: 64 20 75 6d 69 6e 20 64 65 73 74 2d 74 6f 70 20 d umin dest-top
25a0: 75 6d 69 6e 0a 20 20 20 20 64 65 73 74 2d 74 61 umin. dest-ta
25b0: 69 6c 20 75 6d 61 78 20 64 75 70 20 61 64 64 72 il umax dup addr
25c0: 20 64 65 73 74 2d 74 61 69 6c 20 21 40 20 65 6e dest-tail !@ en
25d0: 64 77 69 74 68 0a 20 20 20 20 61 63 6b 28 20 2e dwith. ack( .
25e0: 22 20 74 61 69 6c 3a 20 22 20 6f 76 65 72 20 68 " tail: " over h
25f0: 65 78 2e 20 64 75 70 20 68 65 78 2e 20 66 6f 72 ex. dup hex. for
2600: 74 68 3a 63 72 20 29 0a 20 20 20 20 75 3e 20 49 th:cr ). u> I
2610: 46 20 20 6e 65 74 32 6f 3a 73 61 76 65 26 20 36 F net2o:save& 6
2620: 34 23 30 20 62 75 72 73 74 2d 74 69 63 6b 73 20 4#0 burst-ticks
2630: 36 34 21 20 20 54 48 45 4e 20 3b 0a 0a 24 32 30 64! THEN ;..$20
2640: 20 56 61 6c 75 65 20 6d 61 78 2d 72 65 73 65 6e Value max-resen
2650: 64 23 0a 0a 3a 20 70 72 65 70 61 72 65 2d 72 65 d#..: prepare-re
2660: 73 65 6e 64 20 28 20 66 6c 61 67 20 2d 2d 20 65 send ( flag -- e
2670: 6e 64 20 73 74 61 72 74 20 61 63 6b 73 20 61 63 nd start acks ac
2680: 6b 6d 20 74 61 69 62 69 74 73 20 62 61 63 6b 62 km taibits backb
2690: 69 74 73 20 29 0a 20 20 20 20 64 61 74 61 2d 72 its ). data-r
26a0: 6d 61 70 20 77 69 74 68 20 6d 61 70 63 0a 20 20 map with mapc.
26b0: 20 20 61 63 6b 28 20 2e 22 20 68 65 61 64 2f 74 ack( ." head/t
26c0: 61 69 6c 3a 20 22 20 64 75 70 20 66 6f 72 74 68 ail: " dup forth
26d0: 3a 2e 20 64 65 73 74 2d 68 65 61 64 20 68 65 78 :. dest-head hex
26e0: 2e 20 64 65 73 74 2d 74 61 69 6c 20 68 65 78 2e . dest-tail hex.
26f0: 20 66 6f 72 74 68 3a 63 72 20 29 0a 20 20 20 20 forth:cr ).
2700: 49 46 20 20 20 20 64 65 73 74 2d 68 65 61 64 20 IF dest-head
2710: 61 64 64 72 3e 62 79 74 65 73 20 2d 34 20 61 6e addr>bytes -4 an
2720: 64 0a 20 20 20 20 45 4c 53 45 20 20 64 65 73 74 d. ELSE dest
2730: 2d 68 65 61 64 20 31 2d 20 61 64 64 72 3e 62 79 -head 1- addr>by
2740: 74 65 73 20 31 2b 20 20 54 48 45 4e 20 30 20 6d tes 1+ THEN 0 m
2750: 61 78 0a 20 20 20 20 64 65 73 74 2d 74 61 69 6c ax. dest-tail
2760: 20 61 64 64 72 3e 62 79 74 65 73 20 2d 34 20 61 addr>bytes -4 a
2770: 6e 64 20 5c 20 64 75 70 20 64 61 74 61 2d 61 63 nd \ dup data-ac
2780: 6b 23 20 75 6d 69 6e 21 0a 20 20 20 20 64 61 74 k# umin!. dat
2790: 61 2d 61 63 6b 62 69 74 73 20 40 20 64 65 73 74 a-ackbits @ dest
27a0: 2d 73 69 7a 65 20 61 64 64 72 3e 62 79 74 65 73 -size addr>bytes
27b0: 20 31 2d 0a 20 20 20 20 64 65 73 74 2d 74 61 69 1-. dest-tai
27c0: 6c 20 61 64 64 72 3e 62 69 74 73 20 64 65 73 74 l addr>bits dest
27d0: 2d 62 61 63 6b 20 64 65 73 74 2d 73 69 7a 65 20 -back dest-size
27e0: 2b 20 61 64 64 72 3e 62 69 74 73 20 65 6e 64 77 + addr>bits endw
27f0: 69 74 68 20 3b 0a 0a 69 6e 20 6e 65 74 32 6f 20 ith ;..in net2o
2800: 3a 20 64 6f 2d 72 65 73 65 6e 64 20 28 20 66 6c : do-resend ( fl
2810: 61 67 20 2d 2d 20 29 0a 20 20 20 20 6f 20 30 3d ag -- ). o 0=
2820: 20 49 46 20 20 64 72 6f 70 20 45 58 49 54 20 20 IF drop EXIT
2830: 54 48 45 4e 20 20 64 61 74 61 2d 72 6d 61 70 20 THEN data-rmap
2840: 30 3d 20 49 46 20 20 64 72 6f 70 20 45 58 49 54 0= IF drop EXIT
2850: 20 20 54 48 45 4e 0a 20 20 20 20 30 20 73 77 61 THEN. 0 swa
2860: 70 20 20 70 72 65 70 61 72 65 2d 72 65 73 65 6e p prepare-resen
2870: 64 20 7b 20 61 63 6b 73 20 61 63 6b 6d 20 74 61 d { acks ackm ta
2880: 69 6c 62 69 74 73 20 62 61 63 6b 62 69 74 73 20 ilbits backbits
2890: 7d 0a 20 20 20 20 61 63 6b 28 20 2e 22 20 61 63 }. ack( ." ac
28a0: 6b 20 6c 6f 6f 70 3a 20 22 20 6f 76 65 72 20 68 k loop: " over h
28b0: 65 78 2e 20 64 75 70 20 68 65 78 2e 20 66 6f 72 ex. dup hex. for
28c0: 74 68 3a 63 72 20 29 0a 20 20 20 20 2b 44 4f 0a th:cr ). +DO.
28d0: 09 61 63 6b 73 20 49 20 61 63 6b 6d 20 61 6e 64 .acks I ackm and
28e0: 20 2b 20 6c 40 0a 09 61 63 6b 73 28 20 2e 22 20 + l@..acks( ."
28f0: 61 63 6b 73 5b 22 20 49 20 62 79 74 65 73 3e 62 acks[" I bytes>b
2900: 69 74 73 20 68 65 78 2e 0a 09 49 20 64 61 74 61 its hex...I data
2910: 2d 72 6d 61 70 20 2e 6d 61 70 63 3a 64 61 74 61 -rmap .mapc:data
2920: 2d 61 63 6b 23 20 40 20 3d 20 49 46 20 27 2a 27 -ack# @ = IF '*'
2930: 20 65 6d 69 74 20 54 48 45 4e 0a 09 2e 22 20 5d emit THEN..." ]
2940: 3d 22 20 64 75 70 20 68 65 78 2e 20 62 61 63 6b =" dup hex. back
2950: 62 69 74 73 20 68 65 78 2e 20 66 6f 72 74 68 3a bits hex. forth:
2960: 63 72 20 29 0a 09 49 20 62 79 74 65 73 3e 62 69 cr )..I bytes>bi
2970: 74 73 20 74 61 69 6c 62 69 74 73 20 75 3c 20 49 ts tailbits u< I
2980: 46 0a 09 20 20 20 20 2d 31 20 74 61 69 6c 62 69 F.. -1 tailbi
2990: 74 73 20 49 20 62 79 74 65 73 3e 62 69 74 73 20 ts I bytes>bits
29a0: 2d 20 6c 73 68 69 66 74 20 69 6e 76 65 72 74 20 - lshift invert
29b0: 6f 72 0a 09 54 48 45 4e 0a 09 64 75 70 20 24 46 or..THEN..dup $F
29c0: 46 46 46 46 46 46 46 20 3c 3e 20 49 46 0a 09 20 FFFFFFF <> IF..
29d0: 20 20 20 72 65 73 65 6e 64 28 20 2e 22 20 72 65 resend( ." re
29e0: 73 65 6e 64 3a 20 22 20 64 75 70 20 68 65 78 2e send: " dup hex.
29f0: 20 6f 76 65 72 20 68 65 78 2e 20 66 6f 72 74 68 over hex. forth
2a00: 3a 63 72 20 29 0a 09 20 20 20 20 49 20 61 63 6b :cr ).. I ack
2a10: 6d 20 61 6e 64 20 62 79 74 65 73 3e 61 64 64 72 m and bytes>addr
2a20: 20 75 6c 69 74 2c 20 24 46 46 46 46 46 46 46 46 ulit, $FFFFFFFF
2a30: 20 78 6f 72 20 75 6c 69 74 2c 20 72 65 73 65 6e xor ulit, resen
2a40: 64 2d 6d 61 73 6b 20 20 31 2b 0a 09 45 4c 53 45 d-mask 1+..ELSE
2a50: 0a 09 20 20 20 20 64 72 6f 70 20 64 75 70 20 30 .. drop dup 0
2a60: 3d 20 49 46 20 5c 20 69 66 20 77 65 20 64 69 64 = IF \ if we did
2a70: 6e 27 74 20 68 61 76 65 20 61 20 72 65 73 65 6e n't have a resen
2a80: 64 20 79 65 74 2c 20 69 6e 63 72 65 61 73 65 20 d yet, increase
2a90: 64 61 74 61 2d 61 63 6b 23 0a 09 09 49 20 34 20 data-ack#...I 4
2aa0: 2b 20 62 79 74 65 73 3e 62 69 74 73 20 62 61 63 + bytes>bits bac
2ab0: 6b 62 69 74 73 20 75 3c 3d 20 49 46 20 5c 20 6e kbits u<= IF \ n
2ac0: 6f 20 62 61 63 6b 62 69 74 73 2c 20 70 6c 65 61 o backbits, plea
2ad0: 73 65 0a 09 09 20 20 20 20 49 20 34 20 2b 20 64 se... I 4 + d
2ae0: 61 74 61 2d 72 6d 61 70 20 2e 6d 61 70 63 3a 64 ata-rmap .mapc:d
2af0: 61 74 61 2d 61 63 6b 23 20 75 6d 61 78 21 0a 09 ata-ack# umax!..
2b00: 09 54 48 45 4e 0a 09 20 20 20 20 54 48 45 4e 0a .THEN.. THEN.
2b10: 09 54 48 45 4e 0a 09 64 75 70 20 6d 61 78 2d 72 .THEN..dup max-r
2b20: 65 73 65 6e 64 23 20 3e 3d 20 3f 4c 45 41 56 45 esend# >= ?LEAVE
2b30: 20 5c 20 6e 6f 20 6d 6f 72 65 20 74 68 61 6e 20 \ no more than
2b40: 78 20 72 65 73 65 6e 64 73 0a 20 20 20 20 34 20 x resends. 4
2b50: 2b 4c 4f 4f 50 20 20 64 72 6f 70 20 21 72 64 61 +LOOP drop !rda
2b60: 74 61 2d 74 61 69 6c 20 3b 0a 0a 3a 20 64 6f 2d ta-tail ;..: do-
2b70: 65 78 70 65 63 74 2d 72 65 70 6c 79 20 28 20 2d expect-reply ( -
2b80: 2d 20 29 0a 20 20 20 20 63 6d 64 62 75 66 23 20 - ). cmdbuf#
2b90: 40 20 30 3e 20 49 46 20 5c 20 74 68 65 72 65 27 @ 0> IF \ there'
2ba0: 73 20 61 63 74 75 61 6c 6c 20 73 6f 6d 65 74 68 s actuall someth
2bb0: 69 6e 67 20 69 6e 20 74 68 65 20 62 75 66 66 65 ing in the buffe
2bc0: 72 0a 09 72 65 70 6c 79 2d 69 6e 64 65 78 20 75 r..reply-index u
2bd0: 6c 69 74 2c 20 6f 6b 3f 20 20 65 6e 64 2d 63 6d lit, ok? end-cm
2be0: 64 0a 09 6e 65 74 32 6f 3a 65 78 70 65 63 74 2d d..net2o:expect-
2bf0: 72 65 70 6c 79 20 20 6d 61 78 64 61 74 61 20 63 reply maxdata c
2c00: 6f 64 65 2b 20 5c 20 64 6f 6e 27 74 20 72 65 75 ode+ \ don't reu
2c10: 73 65 20 74 68 69 73 20 62 75 66 66 65 72 0a 20 se this buffer.
2c20: 20 20 20 54 48 45 4e 20 20 5b 27 5d 20 65 6e 64 THEN ['] end
2c30: 2d 63 6d 64 20 49 53 20 65 78 70 65 63 74 2d 72 -cmd IS expect-r
2c40: 65 70 6c 79 3f 20 3b 0a 0a 3a 20 64 6f 2d 65 78 eply? ;..: do-ex
2c50: 70 65 63 74 2b 73 6c 75 72 70 20 28 20 2d 2d 20 pect+slurp ( --
2c60: 29 0a 20 20 20 20 63 6d 64 62 75 66 23 20 40 20 ). cmdbuf# @
2c70: 30 3e 20 49 46 20 5c 20 74 68 65 72 65 27 73 20 0> IF \ there's
2c80: 61 63 74 75 61 6c 6c 20 73 6f 6d 65 74 68 69 6e actuall somethin
2c90: 67 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 0a g in the buffer.
2ca0: 09 73 6c 75 72 70 20 6e 65 78 74 2d 72 65 71 75 .slurp next-requ
2cb0: 65 73 74 20 66 69 6c 65 72 65 71 23 20 21 20 20 est filereq# !
2cc0: 74 72 75 65 20 64 61 74 61 2d 72 6d 61 70 20 3e true data-rmap >
2cd0: 6f 20 74 6f 20 6d 61 70 63 3a 64 65 73 74 2d 72 o to mapc:dest-r
2ce0: 65 71 20 6f 3e 0a 09 72 65 70 6c 79 2d 69 6e 64 eq o>..reply-ind
2cf0: 65 78 20 75 6c 69 74 2c 20 6f 6b 3f 20 20 65 6e ex ulit, ok? en
2d00: 64 2d 63 6d 64 0a 09 6e 65 74 32 6f 3a 65 78 70 d-cmd..net2o:exp
2d10: 65 63 74 2d 72 65 70 6c 79 20 20 6d 61 78 64 61 ect-reply maxda
2d20: 74 61 20 63 6f 64 65 2b 20 5c 20 64 6f 6e 27 74 ta code+ \ don't
2d30: 20 72 65 75 73 65 20 74 68 69 73 20 62 75 66 66 reuse this buff
2d40: 65 72 0a 20 20 20 20 54 48 45 4e 20 20 5b 27 5d er. THEN [']
2d50: 20 65 6e 64 2d 63 6d 64 20 49 53 20 65 78 70 65 end-cmd IS expe
2d60: 63 74 2d 72 65 70 6c 79 3f 20 3b 0a 0a 3a 20 65 ct-reply? ;..: e
2d70: 78 70 65 63 74 2d 72 65 70 6c 79 2d 78 74 20 28 xpect-reply-xt (
2d80: 20 78 74 20 2d 2d 20 29 20 5c 20 63 6d 64 28 20 xt -- ) \ cmd(
2d90: 2e 22 20 65 78 70 65 63 74 20 72 65 70 6c 79 3a ." expect reply:
2da0: 22 20 66 6f 72 74 68 3a 63 72 20 29 0a 20 20 20 " forth:cr ).
2db0: 20 5b 27 5d 20 64 6f 2d 65 78 70 65 63 74 2d 72 ['] do-expect-r
2dc0: 65 70 6c 79 20 49 53 20 65 78 70 65 63 74 2d 72 eply IS expect-r
2dd0: 65 70 6c 79 3f 0a 20 20 20 20 63 6d 64 2d 72 65 eply?. cmd-re
2de0: 70 6c 79 2d 78 74 20 21 20 3b 0a 0a 3a 20 65 78 ply-xt ! ;..: ex
2df0: 70 65 63 74 2d 72 65 70 6c 79 20 28 20 2d 2d 20 pect-reply ( --
2e00: 29 0a 20 20 20 20 5b 27 5d 20 64 72 6f 70 20 65 ). ['] drop e
2e10: 78 70 65 63 74 2d 72 65 70 6c 79 2d 78 74 20 3b xpect-reply-xt ;
2e20: 0a 0a 3a 20 65 78 70 65 63 74 2b 73 6c 75 72 70 ..: expect+slurp
2e30: 2d 78 74 20 28 20 78 74 20 2d 2d 20 29 20 5c 20 -xt ( xt -- ) \
2e40: 63 6d 64 28 20 2e 22 20 65 78 70 65 63 74 20 72 cmd( ." expect r
2e50: 65 70 6c 79 3a 22 20 66 6f 72 74 68 3a 63 72 20 eply:" forth:cr
2e60: 29 0a 20 20 20 20 5b 27 5d 20 64 6f 2d 65 78 70 ). ['] do-exp
2e70: 65 63 74 2b 73 6c 75 72 70 20 49 53 20 65 78 70 ect+slurp IS exp
2e80: 65 63 74 2d 72 65 70 6c 79 3f 0a 20 20 20 20 63 ect-reply?. c
2e90: 6d 64 2d 72 65 70 6c 79 2d 78 74 20 21 20 3b 0a md-reply-xt ! ;.
2ea0: 0a 3a 20 65 78 70 65 63 74 2b 73 6c 75 72 70 20 .: expect+slurp
2eb0: 28 20 2d 2d 20 29 0a 20 20 20 20 5b 27 5d 20 64 ( -- ). ['] d
2ec0: 72 6f 70 20 65 78 70 65 63 74 2b 73 6c 75 72 70 rop expect+slurp
2ed0: 2d 78 74 20 3b 0a 0a 55 56 61 6c 75 65 20 72 65 -xt ;..UValue re
2ee0: 63 2d 61 63 6b 2d 70 6f 73 23 0a 0a 3a 20 73 65 c-ack-pos#..: se
2ef0: 71 23 2c 20 28 20 2d 2d 20 29 0a 20 20 20 20 63 q#, ( -- ). c
2f00: 6d 64 62 75 66 23 20 40 20 31 20 3d 20 49 46 0a mdbuf# @ 1 = IF.
2f10: 09 64 61 74 61 2d 72 6d 61 70 20 2e 6d 61 70 63 .data-rmap .mapc
2f20: 3a 72 65 63 2d 61 63 6b 23 20 75 6c 69 74 2c 20 :rec-ack# ulit,
2f30: 73 65 71 23 0a 09 63 6d 64 62 75 66 23 20 40 20 seq#..cmdbuf# @
2f40: 74 6f 20 72 65 63 2d 61 63 6b 2d 70 6f 73 23 0a to rec-ack-pos#.
2f50: 20 20 20 20 54 48 45 4e 20 3b 0a 0a 3a 20 72 65 THEN ;..: re
2f60: 73 65 6e 64 2d 61 6c 6c 20 28 20 2d 2d 20 29 0a send-all ( -- ).
2f70: 20 20 20 20 73 65 71 23 2c 0a 20 20 20 20 66 61 seq#,. fa
2f80: 6c 73 65 20 6e 65 74 32 6f 3a 64 6f 2d 72 65 73 lse net2o:do-res
2f90: 65 6e 64 0a 20 20 20 20 61 63 6b 40 20 2e 2b 74 end. ack@ .+t
2fa0: 69 6d 65 6f 75 74 73 20 72 65 73 65 6e 64 2d 61 imeouts resend-a
2fb0: 6c 6c 2d 74 6f 20 36 34 21 20 3b 0a 0a 30 20 56 ll-to 64! ;..0 V
2fc0: 61 6c 75 65 20 72 65 71 75 65 73 74 2d 73 74 61 alue request-sta
2fd0: 74 73 3f 0a 0a 3a 20 75 70 64 61 74 65 2d 72 74 ts?..: update-rt
2fe0: 64 65 6c 61 79 20 28 20 2d 2d 20 29 0a 20 20 20 delay ( -- ).
2ff0: 20 74 69 63 6b 73 20 6c 69 74 2c 20 70 75 73 68 ticks lit, push
3000: 2d 6c 69 74 20 70 75 73 68 27 20 73 65 74 2d 72 -lit push' set-r
3010: 74 64 65 6c 61 79 20 3b 0a 0a 3a 20 64 61 74 61 tdelay ;..: data
3020: 2d 65 6e 64 3f 20 28 20 2d 2d 20 66 6c 61 67 20 -end? ( -- flag
3030: 29 0a 20 20 20 20 30 20 64 61 74 61 2d 72 6d 61 ). 0 data-rma
3040: 70 20 2e 6d 61 70 63 3a 64 65 73 74 2d 65 6e 64 p .mapc:dest-end
3050: 20 21 40 20 3b 0a 0a 3a 20 65 78 70 65 63 74 65 !@ ;..: expecte
3060: 64 40 20 28 20 2d 2d 20 68 65 61 64 20 74 6f 70 d@ ( -- head top
3070: 20 29 0a 20 20 20 20 6f 20 49 46 20 20 64 61 74 ). o IF dat
3080: 61 2d 72 6d 61 70 20 77 69 74 68 20 6d 61 70 63 a-rmap with mapc
3090: 0a 09 6f 20 49 46 20 20 64 65 73 74 2d 74 61 69 ..o IF dest-tai
30a0: 6c 20 64 65 73 74 2d 74 6f 70 0a 09 20 20 20 20 l dest-top..
30b0: 6d 73 67 28 20 2e 22 20 65 78 70 65 63 74 65 64 msg( ." expected
30c0: 3a 20 22 20 6f 76 65 72 20 68 65 78 2e 20 64 75 : " over hex. du
30d0: 70 20 68 65 78 2e 20 66 6f 72 74 68 3a 63 72 20 p hex. forth:cr
30e0: 29 0a 09 45 4c 53 45 20 20 23 30 2e 20 6d 73 67 )..ELSE #0. msg
30f0: 28 20 2e 22 20 65 78 70 65 63 74 65 64 3a 20 6e ( ." expected: n
3100: 6f 20 64 61 74 61 2d 72 6d 61 70 22 20 66 6f 72 o data-rmap" for
3110: 74 68 3a 63 72 20 29 20 20 54 48 45 4e 20 65 6e th:cr ) THEN en
3120: 64 77 69 74 68 0a 20 20 20 20 45 4c 53 45 20 20 dwith. ELSE
3130: 23 30 2e 20 6d 73 67 28 20 2e 22 20 65 78 70 65 #0. msg( ." expe
3140: 63 74 65 64 3a 20 6e 6f 20 6f 62 6a 65 63 74 22 cted: no object"
3150: 20 66 6f 72 74 68 3a 63 72 20 29 20 20 54 48 45 forth:cr ) THE
3160: 4e 20 20 3b 0a 0a 3a 20 72 65 77 69 6e 64 2d 74 N ;..: rewind-t
3170: 72 61 6e 73 66 65 72 20 28 20 2d 2d 20 66 6c 61 ransfer ( -- fla
3180: 67 20 29 0a 20 20 20 20 64 61 74 61 2d 65 6e 64 g ). data-end
3190: 3f 20 49 46 20 20 66 69 6c 65 72 65 71 23 20 40 ? IF filereq# @
31a0: 20 6e 65 74 32 6f 3a 72 65 71 75 65 73 74 2d 64 net2o:request-d
31b0: 6f 6e 65 20 20 66 61 6c 73 65 0a 09 64 61 74 61 one false..data
31c0: 2d 72 6d 61 70 20 3e 6f 20 64 75 70 20 74 6f 20 -rmap >o dup to
31d0: 6d 61 70 63 3a 64 65 73 74 2d 72 65 71 20 6f 3e mapc:dest-req o>
31e0: 0a 20 20 20 20 45 4c 53 45 20 20 64 61 74 61 2d . ELSE data-
31f0: 72 6d 61 70 20 2e 6d 61 70 63 3a 64 65 73 74 2d rmap .mapc:dest-
3200: 72 65 71 20 20 54 48 45 4e 20 3b 0a 0a 3a 20 72 req THEN ;..: r
3210: 65 71 75 65 73 74 2d 73 74 61 74 73 20 20 20 66 equest-stats f
3220: 6f 72 74 68 3a 74 72 75 65 20 74 6f 20 72 65 71 orth:true to req
3230: 75 65 73 74 2d 73 74 61 74 73 3f 20 20 61 63 6b uest-stats? ack
3240: 20 74 72 61 63 6b 2d 74 69 6d 69 6e 67 20 65 6e track-timing en
3250: 64 2d 77 69 74 68 20 3b 0a 0a 3a 20 65 78 70 65 d-with ;..: expe
3260: 63 74 65 64 3f 20 28 20 2d 2d 20 66 6c 61 67 20 cted? ( -- flag
3270: 29 0a 20 20 20 20 65 78 70 65 63 74 65 64 40 20 ). expected@
3280: 75 3e 3d 20 49 46 0a 09 65 78 70 65 63 74 2d 72 u>= IF..expect-r
3290: 65 70 6c 79 0a 09 6d 73 67 28 20 2e 22 20 63 68 eply..msg( ." ch
32a0: 65 63 6b 3a 20 22 20 64 61 74 61 2d 72 6d 61 70 eck: " data-rmap
32b0: 20 77 69 74 68 20 6d 61 70 63 0a 09 64 65 73 74 with mapc..dest
32c0: 2d 62 61 63 6b 20 68 65 78 2e 20 64 65 73 74 2d -back hex. dest-
32d0: 74 61 69 6c 20 68 65 78 2e 20 64 65 73 74 2d 68 tail hex. dest-h
32e0: 65 61 64 20 68 65 78 2e 0a 09 64 61 74 61 2d 61 ead hex...data-a
32f0: 63 6b 62 69 74 73 20 40 20 64 61 74 61 2d 61 63 ckbits @ data-ac
3300: 6b 23 20 40 20 64 75 70 20 68 65 78 2e 20 2b 20 k# @ dup hex. +
3310: 6c 40 20 68 65 78 2e 0a 09 65 6e 64 77 69 74 68 l@ hex...endwith
3320: 0a 09 66 6f 72 74 68 3a 63 72 20 2e 22 20 42 6c ..forth:cr ." Bl
3330: 6f 63 6b 20 74 72 61 6e 73 66 65 72 20 64 6f 6e ock transfer don
3340: 65 3a 20 22 20 65 78 70 65 63 74 65 64 40 20 68 e: " expected@ h
3350: 65 78 2e 20 68 65 78 2e 20 66 6f 72 74 68 3a 63 ex. hex. forth:c
3360: 72 20 29 0a 09 73 65 71 23 2c 0a 09 6e 65 74 32 r )..seq#,..net2
3370: 6f 3a 73 61 76 65 26 64 6f 6e 65 20 20 6e 65 74 o:save&done net
3380: 32 6f 3a 61 63 6b 2d 72 65 73 65 6e 64 23 20 20 2o:ack-resend#
3390: 72 65 77 69 6e 64 20 20 72 65 77 69 6e 64 2d 74 rewind rewind-t
33a0: 72 61 6e 73 66 65 72 0a 09 36 34 23 30 20 62 75 ransfer..64#0 bu
33b0: 72 73 74 2d 74 69 63 6b 73 20 36 34 21 0a 20 20 rst-ticks 64!.
33c0: 20 20 45 4c 53 45 20 20 66 61 6c 73 65 20 20 54 ELSE false T
33d0: 48 45 4e 20 3b 0a 0a 63 65 6c 6c 20 38 20 3d 20 HEN ;..cell 8 =
33e0: 5b 49 46 5d 20 36 20 5b 45 4c 53 45 5d 20 35 20 [IF] 6 [ELSE] 5
33f0: 5b 54 48 45 4e 5d 20 43 6f 6e 73 74 61 6e 74 20 [THEN] Constant
3400: 63 65 6c 6c 3e 3e 0a 0a 43 72 65 61 74 65 20 6e cell>>..Create n
3410: 6f 2d 72 65 73 65 6e 64 23 20 62 75 72 73 74 73 o-resend# bursts
3420: 23 20 34 20 2a 20 30 20 5b 44 4f 5d 20 2d 31 20 # 4 * 0 [DO] -1
3430: 63 2c 20 5b 4c 4f 4f 50 5d 0a 0a 73 63 6f 70 65 c, [LOOP]..scope
3440: 7b 20 6d 61 70 63 0a 0a 3a 20 2b 72 65 73 65 6e { mapc..: +resen
3450: 64 23 20 28 20 62 69 74 20 2d 2d 20 29 20 3e 72 d# ( bit -- ) >r
3460: 0a 20 20 20 20 64 65 73 74 2d 61 64 64 72 20 36 . dest-addr 6
3470: 34 40 20 36 34 3e 6e 20 5b 20 6d 69 6e 2d 73 69 4@ 64>n [ min-si
3480: 7a 65 20 31 2d 20 5d 4c 20 61 6e 64 0a 20 20 20 ze 1- ]L and.
3490: 20 72 40 20 5b 20 62 75 72 73 74 73 23 20 34 20 r@ [ bursts# 4
34a0: 2a 20 31 2d 20 5d 4c 20 61 6e 64 0a 20 20 20 20 * 1- ]L and.
34b0: 72 3e 20 5b 20 62 75 72 73 74 73 23 20 2d 34 20 r> [ bursts# -4
34c0: 2a 20 5d 4c 20 61 6e 64 20 5c 20 6f 6e 65 20 62 * ]L and \ one b
34d0: 6c 6f 63 6b 20 70 65 72 20 62 75 72 73 74 0a 20 lock per burst.
34e0: 20 20 20 64 61 74 61 2d 72 65 73 65 6e 64 23 2d data-resend#-
34f0: 62 75 66 20 24 5b 5d 23 20 30 20 3f 44 4f 0a 09 buf $[]# 0 ?DO..
3500: 64 75 70 20 49 20 64 61 74 61 2d 72 65 73 65 6e dup I data-resen
3510: 64 23 2d 62 75 66 20 24 5b 5d 40 20 64 72 6f 70 d#-buf $[]@ drop
3520: 20 40 20 3d 20 49 46 0a 09 20 20 20 20 64 72 6f @ = IF.. dro
3530: 70 20 49 20 64 61 74 61 2d 72 65 73 65 6e 64 23 p I data-resend#
3540: 2d 62 75 66 20 24 5b 5d 40 20 64 72 6f 70 20 63 -buf $[]@ drop c
3550: 65 6c 6c 2b 20 2b 20 63 21 0a 09 20 20 20 20 55 ell+ + c!.. U
3560: 4e 4c 4f 4f 50 20 20 45 58 49 54 20 20 54 48 45 NLOOP EXIT THE
3570: 4e 0a 20 20 20 20 4c 4f 4f 50 0a 20 20 20 20 64 N. LOOP. d
3580: 61 74 61 2d 72 65 73 65 6e 64 23 2d 62 75 66 20 ata-resend#-buf
3590: 24 5b 5d 23 20 7b 20 77 5e 20 62 75 72 73 74 62 $[]# { w^ burstb
35a0: 6c 6f 63 6b 20 6e 20 7d 0a 20 20 20 20 62 75 72 lock n }. bur
35b0: 73 74 62 6c 6f 63 6b 20 63 65 6c 6c 20 64 61 74 stblock cell dat
35c0: 61 2d 72 65 73 65 6e 64 23 2d 62 75 66 20 24 2b a-resend#-buf $+
35d0: 5b 5d 21 0a 20 20 20 20 6e 6f 2d 72 65 73 65 6e []!. no-resen
35e0: 64 23 20 5b 20 62 75 72 73 74 73 23 20 34 20 2a d# [ bursts# 4 *
35f0: 20 5d 4c 20 6e 20 64 61 74 61 2d 72 65 73 65 6e ]L n data-resen
3600: 64 23 2d 62 75 66 20 24 5b 5d 2b 21 0a 20 20 20 d#-buf $[]+!.
3610: 20 6e 20 64 61 74 61 2d 72 65 73 65 6e 64 23 2d n data-resend#-
3620: 62 75 66 20 24 5b 5d 40 20 64 72 6f 70 20 63 65 buf $[]@ drop ce
3630: 6c 6c 2b 20 2b 20 63 21 20 3b 0a 0a 7d 73 63 6f ll+ + c! ;..}sco
3640: 70 65 0a 0a 3a 20 2b 63 6f 6f 6b 69 65 20 28 20 pe..: +cookie (
3650: 2d 2d 20 29 0a 20 20 20 20 64 61 74 61 2d 72 6d -- ). data-rm
3660: 61 70 20 77 69 74 68 20 6d 61 70 63 20 20 61 63 ap with mapc ac
3670: 6b 2d 62 69 74 23 20 40 20 3e 72 20 20 72 40 20 k-bit# @ >r r@
3680: 2b 72 65 73 65 6e 64 23 0a 20 20 20 20 64 61 74 +resend#. dat
3690: 61 2d 61 63 6b 62 69 74 73 20 40 20 72 3e 20 2b a-ackbits @ r> +
36a0: 62 69 74 40 0a 20 20 20 20 65 6e 64 77 69 74 68 bit@. endwith
36b0: 20 6e 65 67 61 74 65 20 70 61 63 6b 65 74 72 32 negate packetr2
36c0: 20 2b 21 20 3b 0a 0a 3a 20 72 65 73 65 6e 64 2d +! ;..: resend-
36d0: 61 6c 6c 3f 20 28 20 2d 2d 20 66 6c 61 67 20 29 all? ( -- flag )
36e0: 0a 20 20 20 20 64 61 74 61 2d 72 6d 61 70 20 77 . data-rmap w
36f0: 69 74 68 20 6d 61 70 63 0a 20 20 20 20 61 63 6b ith mapc. ack
3700: 2d 61 64 76 61 6e 63 65 3f 20 20 64 65 73 74 2d -advance? dest-
3710: 68 65 61 64 20 64 65 73 74 2d 74 6f 70 20 75 3e head dest-top u>
3720: 3d 20 20 61 6e 64 20 65 6e 64 77 69 74 68 0a 20 = and endwith.
3730: 20 20 20 74 69 63 6b 65 72 20 36 34 40 20 72 65 ticker 64@ re
3740: 73 65 6e 64 2d 61 6c 6c 2d 74 6f 20 36 34 40 20 send-all-to 64@
3750: 36 34 75 3e 3d 20 61 6e 64 0a 20 20 20 20 74 69 64u>= and. ti
3760: 6d 65 6f 75 74 28 20 64 75 70 20 49 46 20 20 2e meout( dup IF .
3770: 22 20 72 65 73 65 6e 64 20 61 6c 6c 22 20 66 6f " resend all" fo
3780: 72 74 68 3a 63 72 20 20 54 48 45 4e 20 29 20 3b rth:cr THEN ) ;
3790: 0a 0a 3a 20 2b 65 78 70 65 63 74 65 64 20 28 20 ..: +expected (
37a0: 2d 2d 20 66 6c 61 67 20 29 0a 20 20 20 20 72 65 -- flag ). re
37b0: 73 65 6e 64 2d 61 6c 6c 3f 20 20 49 46 20 20 20 send-all? IF
37c0: 72 65 73 65 6e 64 2d 61 6c 6c 20 20 54 48 45 4e resend-all THEN
37d0: 20 20 65 78 70 65 63 74 65 64 3f 20 3b 0a 0a 5c expected? ;..\
37e0: 20 68 69 67 68 65 72 20 6c 65 76 65 6c 20 66 75 higher level fu
37f0: 6e 63 74 69 6f 6e 73 0a 0a 3a 20 6d 61 70 2d 72 nctions..: map-r
3800: 65 71 75 65 73 74 2c 20 28 20 75 63 6f 64 65 20 equest, ( ucode
3810: 75 64 61 74 61 20 2d 2d 20 29 0a 20 20 20 20 6e udata -- ). n
3820: 65 74 32 6f 3a 6e 65 77 2d 6d 61 70 20 6c 69 74 et2o:new-map lit
3830: 2c 20 73 77 61 70 20 75 6c 69 74 2c 20 75 6c 69 , swap ulit, uli
3840: 74 2c 20 6d 61 70 2d 72 65 71 75 65 73 74 20 3b t, map-request ;
3850: 0a 0a 61 6c 73 6f 20 6e 65 74 32 6f 2d 62 61 73 ..also net2o-bas
3860: 65 0a 3a 20 6e 61 74 2d 70 75 6e 63 68 20 28 20 e.: nat-punch (
3870: 6f 3a 63 6f 6e 6e 65 63 74 69 6f 6e 20 2d 2d 20 o:connection --
3880: 29 0a 20 20 20 20 70 69 6e 67 73 20 6e 65 77 2d ). pings new-
3890: 72 65 71 75 65 73 74 20 66 61 6c 73 65 20 67 65 request false ge
38a0: 6e 2d 70 75 6e 63 68 6c 6f 61 64 20 67 65 6e 2d n-punchload gen-
38b0: 70 75 6e 63 68 20 3b 0a 70 72 65 76 69 6f 75 73 punch ;.previous
38c0: 0a 0a 3a 20 70 75 6e 63 68 2d 72 65 70 6c 79 20 ..: punch-reply
38d0: 28 20 61 64 64 72 20 75 20 2d 2d 20 29 0a 20 20 ( addr u -- ).
38e0: 20 20 6f 75 74 66 6c 61 67 20 40 20 3e 72 20 20 outflag @ >r
38f0: 63 6d 64 62 75 66 2d 6f 20 40 20 3e 72 0a 20 20 cmdbuf-o @ >r.
3900: 20 20 5b 3a 20 63 6d 64 30 21 20 63 6d 64 72 65 [: cmd0! cmdre
3910: 73 65 74 20 69 6e 69 74 2d 72 65 70 6c 79 20 61 set init-reply a
3920: 6c 73 6f 20 6e 65 74 32 6f 2d 62 61 73 65 0a 20 lso net2o-base.
3930: 20 20 20 20 20 5b 20 61 6c 73 6f 20 6e 65 74 32 [ also net2
3940: 6f 2d 62 61 73 65 20 5d 0a 20 20 20 20 20 20 24 o-base ]. $
3950: 2c 20 6e 65 73 74 20 65 6e 64 2d 63 6f 64 65 20 , nest end-code
3960: 3b 5d 20 63 61 74 63 68 0a 20 20 20 20 72 3e 20 ;] catch. r>
3970: 63 6d 64 62 75 66 2d 6f 20 21 20 20 72 3e 20 6f cmdbuf-o ! r> o
3980: 75 74 66 6c 61 67 20 21 20 20 74 68 72 6f 77 20 utflag ! throw
3990: 3b 0a 0a 3a 20 30 2d 72 65 73 65 6e 64 3f 20 28 ;..: 0-resend? (
39a0: 20 2d 2d 20 6e 20 29 0a 20 20 20 20 72 65 73 65 -- n ). rese
39b0: 6e 64 30 20 40 20 49 46 0a 09 5c 20 2e 22 20 52 nd0 @ IF..\ ." R
39c0: 65 73 65 6e 64 20 74 6f 20 30 22 20 63 72 0a 09 esend to 0" cr..
39d0: 63 6d 64 30 21 0a 09 5b 3a 0a 09 20 20 72 65 73 cmd0!..[:.. res
39e0: 65 6e 64 28 20 2e 22 20 72 65 73 65 6e 64 30 3a end( ." resend0:
39f0: 20 22 20 72 65 73 65 6e 64 30 20 24 40 20 6e 65 " resend0 $@ ne
3a00: 74 32 6f 3a 73 65 65 20 66 6f 72 74 68 3a 63 72 t2o:see forth:cr
3a10: 20 29 0a 09 20 20 6d 73 67 28 20 2e 22 20 72 65 ).. msg( ." re
3a20: 73 65 6e 64 30 3a 20 22 20 72 65 73 65 6e 64 30 send0: " resend0
3a30: 20 24 40 20 73 77 61 70 20 68 65 78 2e 20 68 65 $@ swap hex. he
3a40: 78 2e 20 66 6f 72 74 68 3a 63 72 20 29 0a 09 20 x. forth:cr )..
3a50: 20 63 6d 64 72 65 73 65 74 20 69 6e 69 74 2d 72 cmdreset init-r
3a60: 65 70 6c 79 20 72 65 73 65 6e 64 30 20 24 40 20 eply resend0 $@
3a70: 2b 63 6d 64 62 75 66 0a 09 20 20 72 30 2d 61 64 +cmdbuf.. r0-ad
3a80: 64 72 65 73 73 20 72 65 74 75 72 6e 2d 61 64 64 dress return-add
3a90: 72 20 24 31 30 20 6d 6f 76 65 0a 09 20 20 63 6d r $10 move.. cm
3aa0: 64 62 75 66 24 20 72 6e 67 36 34 20 73 65 6e 64 dbuf$ rng64 send
3ab0: 2d 63 6d 64 20 64 72 6f 70 0a 09 20 20 31 20 70 -cmd drop.. 1 p
3ac0: 61 63 6b 65 74 73 32 20 2b 21 20 3b 5d 0a 09 63 ackets2 +! ;]..c
3ad0: 6d 64 6c 6f 63 6b 20 63 2d 73 65 63 74 69 6f 6e mdlock c-section
3ae0: 20 20 31 0a 20 20 20 20 45 4c 53 45 20 20 30 20 1. ELSE 0
3af0: 20 54 48 45 4e 20 3b 0a 0a 3a 20 6d 61 70 2d 72 THEN ;..: map-r
3b00: 65 73 65 6e 64 3f 20 28 20 2d 2d 20 6e 20 29 0a esend? ( -- n ).
3b10: 20 20 20 20 63 6f 64 65 2d 6d 61 70 20 3f 64 75 code-map ?du
3b20: 70 2d 49 46 20 20 77 69 74 68 20 6d 61 70 63 20 p-IF with mapc
3b30: 30 20 20 6f 75 74 66 6c 61 67 20 6f 66 66 0a 09 0 outflag off..
3b40: 64 65 73 74 2d 72 65 70 6c 69 65 73 0a 09 64 65 dest-replies..de
3b50: 73 74 2d 73 69 7a 65 20 61 64 64 72 3e 72 65 70 st-size addr>rep
3b60: 6c 69 65 73 20 62 6f 75 6e 64 73 20 65 6e 64 77 lies bounds endw
3b70: 69 74 68 20 55 2b 44 4f 0a 09 20 20 20 20 49 20 ith U+DO.. I
3b80: 61 63 74 69 6f 6e 2d 6f 66 20 72 65 70 6c 79 2d action-of reply-
3b90: 78 74 20 49 46 0a 09 09 74 69 6d 65 6f 75 74 28 xt IF...timeout(
3ba0: 20 2e 22 20 72 65 73 65 6e 64 3a 20 22 20 49 20 ." resend: " I
3bb0: 61 63 74 69 6f 6e 2d 6f 66 20 72 65 70 6c 79 2d action-of reply-
3bc0: 78 74 20 2e 6e 61 6d 65 20 66 6f 72 74 68 3a 63 xt .name forth:c
3bd0: 72 20 29 0a 09 09 72 65 73 65 6e 64 28 20 2e 22 r )...resend( ."
3be0: 20 72 65 73 65 6e 64 3a 20 22 20 49 20 72 65 70 resend: " I rep
3bf0: 6c 79 2d 64 65 73 74 20 36 34 40 20 78 36 34 2e ly-dest 64@ x64.
3c00: 20 49 20 32 40 20 6e 65 74 32 6f 3a 73 65 65 20 I 2@ net2o:see
3c10: 66 6f 72 74 68 3a 63 72 20 29 0a 09 09 6d 73 67 forth:cr )...msg
3c20: 28 20 2e 22 20 72 65 73 65 6e 64 3a 20 22 20 49 ( ." resend: " I
3c30: 20 72 65 70 6c 79 2d 64 65 73 74 20 36 34 40 20 reply-dest 64@
3c40: 78 36 34 2e 20 49 20 32 40 20 73 77 61 70 20 68 x64. I 2@ swap h
3c50: 65 78 2e 20 68 65 78 2e 20 66 6f 72 74 68 3a 63 ex. hex. forth:c
3c60: 72 20 29 0a 09 09 74 69 63 6b 73 20 49 20 72 65 r )...ticks I re
3c70: 70 6c 79 2d 74 69 6d 65 20 36 34 21 0a 09 09 49 ply-time 64!...I
3c80: 20 32 40 20 49 20 72 65 70 6c 79 2d 64 65 73 74 2@ I reply-dest
3c90: 20 36 34 40 20 73 65 6e 64 2d 63 6d 64 20 64 72 64@ send-cmd dr
3ca0: 6f 70 0a 09 09 31 20 70 61 63 6b 65 74 73 32 20 op...1 packets2
3cb0: 2b 21 20 31 2b 0a 09 20 20 20 20 54 48 45 4e 0a +! 1+.. THEN.
3cc0: 09 72 65 70 6c 79 20 2b 4c 4f 4f 50 0a 20 20 20 .reply +LOOP.
3cd0: 20 45 4c 53 45 20 20 30 20 20 54 48 45 4e 20 3b ELSE 0 THEN ;
3ce0: 0a 0a 3a 20 63 6d 64 2d 72 65 73 65 6e 64 3f 20 ..: cmd-resend?
3cf0: 28 20 2d 2d 20 6e 20 29 0a 20 20 20 20 30 2d 72 ( -- n ). 0-r
3d00: 65 73 65 6e 64 3f 20 6d 61 70 2d 72 65 73 65 6e esend? map-resen
3d10: 64 3f 0a 20 20 20 20 74 69 6d 65 6f 75 74 28 20 d?. timeout(
3d20: 32 64 75 70 20 64 30 3c 3e 20 49 46 20 2e 22 20 2dup d0<> IF ."
3d30: 72 65 73 65 6e 64 20 22 20 6f 76 65 72 20 2e 20 resend " over .
3d40: 64 75 70 20 2e 20 2e 22 20 63 6f 6d 6d 61 6e 64 dup . ." command
3d50: 73 20 30 2f 6d 61 70 22 20 63 72 20 54 48 45 4e s 0/map" cr THEN
3d60: 20 29 20 2b 20 3b 0a 0a 3a 20 2e 65 78 70 65 63 ) + ;..: .expec
3d70: 74 65 64 20 28 20 2d 2d 20 29 0a 20 20 20 20 66 ted ( -- ). f
3d80: 6f 72 74 68 3a 2e 74 69 6d 65 20 2e 22 20 65 78 orth:.time ." ex
3d90: 70 65 63 74 65 64 2f 72 65 63 65 69 76 65 64 3a pected/received:
3da0: 20 22 20 72 65 63 76 2d 61 64 64 72 20 40 20 68 " recv-addr @ h
3db0: 65 78 2e 0a 20 20 20 20 64 61 74 61 2d 72 6d 61 ex.. data-rma
3dc0: 70 20 2e 6d 61 70 63 3a 64 61 74 61 2d 61 63 6b p .mapc:data-ack
3dd0: 23 20 40 20 68 65 78 2e 0a 20 20 20 20 65 78 70 # @ hex.. exp
3de0: 65 63 74 65 64 40 20 68 65 78 2e 20 68 65 78 2e ected@ hex. hex.
3df0: 20 66 6f 72 74 68 3a 63 72 20 3b 0a 0a 5c 20 61 forth:cr ;..\ a
3e00: 63 6b 6e 6f 77 6c 65 64 67 65 20 74 6f 70 6c 65 cknowledge tople
3e10: 76 65 6c 0a 0a 69 6e 20 6e 65 74 32 6f 20 3a 20 vel..in net2o :
3e20: 61 63 6b 2d 63 6f 64 65 20 28 20 61 63 6b 66 6c ack-code ( ackfl
3e30: 61 67 20 2d 2d 20 61 63 6b 66 6c 61 67 20 29 20 ag -- ackflag )
3e40: 20 3e 72 0a 20 20 20 20 66 61 6c 73 65 20 64 75 >r. false du
3e50: 70 20 7b 20 73 6c 75 72 70 3f 20 73 74 61 74 73 p { slurp? stats
3e60: 3f 20 7d 0a 20 20 20 20 6e 65 74 32 6f 2d 63 6f ? }. net2o-co
3e70: 64 65 0a 20 20 20 20 61 63 6b 20 65 78 70 65 63 de. ack expec
3e80: 74 2d 72 65 70 6c 79 20 20 31 20 74 6f 20 72 65 t-reply 1 to re
3e90: 63 2d 61 63 6b 2d 70 6f 73 23 0a 20 20 20 20 61 c-ack-pos#. a
3ea0: 63 6b 28 20 2e 22 20 61 63 6b 3a 20 22 20 72 40 ck( ." ack: " r@
3eb0: 20 68 65 78 2e 20 66 6f 72 74 68 3a 63 72 20 29 hex. forth:cr )
3ec0: 0a 20 20 20 20 72 40 20 61 63 6b 2d 74 6f 67 67 . r@ ack-togg
3ed0: 6c 65 23 20 61 6e 64 20 49 46 0a 09 73 65 71 23 le# and IF..seq#
3ee0: 2c 0a 09 6e 65 74 32 6f 3a 67 65 6e 2d 72 65 73 ,..net2o:gen-res
3ef0: 65 6e 64 20 20 6e 65 74 32 6f 3a 67 65 6e 61 63 end net2o:genac
3f00: 6b 0a 09 72 40 20 72 65 73 65 6e 64 2d 74 6f 67 k..r@ resend-tog
3f10: 67 6c 65 23 20 61 6e 64 20 49 46 0a 09 20 20 20 gle# and IF..
3f20: 20 61 63 6b 28 20 2e 22 20 61 63 6b 3a 20 64 6f ack( ." ack: do
3f30: 2d 72 65 73 65 6e 64 22 20 66 6f 72 74 68 3a 63 -resend" forth:c
3f40: 72 20 29 0a 09 20 20 20 20 74 72 75 65 20 6e 65 r ).. true ne
3f50: 74 32 6f 3a 64 6f 2d 72 65 73 65 6e 64 0a 09 54 t2o:do-resend..T
3f60: 48 45 4e 0a 09 30 20 64 61 74 61 2d 72 6d 61 70 HEN..0 data-rmap
3f70: 20 2e 6d 61 70 63 3a 64 6f 2d 73 6c 75 72 70 20 .mapc:do-slurp
3f80: 21 40 0a 09 3f 64 75 70 2d 49 46 20 20 75 6c 69 !@..?dup-IF uli
3f90: 74 2c 20 61 63 6b 2d 66 6c 75 73 68 0a 09 20 20 t, ack-flush..
3fa0: 20 20 72 65 71 75 65 73 74 2d 73 74 61 74 73 3f request-stats?
3fb0: 20 74 6f 20 73 74 61 74 73 3f 20 20 74 72 75 65 to stats? true
3fc0: 20 74 6f 20 73 6c 75 72 70 3f 20 20 54 48 45 4e to slurp? THEN
3fd0: 0a 20 20 20 20 54 48 45 4e 20 20 2b 65 78 70 65 . THEN +expe
3fe0: 63 74 65 64 0a 20 20 20 20 73 6c 75 72 70 3f 20 cted. slurp?
3ff0: 6f 72 20 74 6f 20 73 6c 75 72 70 3f 0a 20 20 20 or to slurp?.
4000: 20 73 74 61 74 73 3f 20 49 46 20 20 73 65 6e 64 stats? IF send
4010: 2d 74 69 6d 69 6e 67 20 20 54 48 45 4e 0a 20 20 -timing THEN.
4020: 20 20 65 6e 64 2d 77 69 74 68 20 20 63 6d 64 62 end-with cmdb
4030: 75 66 23 20 40 20 72 65 63 2d 61 63 6b 2d 70 6f uf# @ rec-ack-po
4040: 73 23 20 31 2b 20 73 74 61 74 73 3f 20 2d 20 3d s# 1+ stats? - =
4050: 20 49 46 20 20 63 6d 64 62 75 66 23 20 6f 66 66 IF cmdbuf# off
4060: 0a 20 20 20 20 45 4c 53 45 20 20 31 20 64 61 74 . ELSE 1 dat
4070: 61 2d 72 6d 61 70 20 77 69 74 68 20 6d 61 70 63 a-rmap with mapc
4080: 20 2b 74 6f 20 72 65 63 2d 61 63 6b 23 20 65 6e +to rec-ack# en
4090: 64 77 69 74 68 20 20 54 48 45 4e 0a 20 20 20 20 dwith THEN.
40a0: 73 6c 75 72 70 3f 20 49 46 20 20 73 6c 75 72 70 slurp? IF slurp
40b0: 20 20 54 48 45 4e 0a 20 20 20 20 65 6e 64 2d 63 THEN. end-c
40c0: 6f 64 65 20 72 3e 20 28 20 64 75 70 20 61 63 6b ode r> ( dup ack
40d0: 2d 74 6f 67 67 6c 65 23 20 61 6e 64 20 49 46 20 -toggle# and IF
40e0: 20 6d 61 70 2d 72 65 73 65 6e 64 3f 20 20 54 48 map-resend? TH
40f0: 45 4e 20 29 20 3b 0a 0a 69 6e 20 6e 65 74 32 6f EN ) ;..in net2o
4100: 20 3a 20 64 6f 2d 61 63 6b 2d 72 65 73 74 20 28 : do-ack-rest (
4110: 20 61 63 6b 66 6c 61 67 20 2d 2d 20 29 0a 20 20 ackflag -- ).
4120: 20 20 64 75 70 20 72 65 73 65 6e 64 2d 74 6f 67 dup resend-tog
4130: 67 6c 65 23 20 61 6e 64 20 49 46 0a 09 63 6d 64 gle# and IF..cmd
4140: 2d 72 65 73 65 6e 64 3f 20 64 72 6f 70 0a 20 20 -resend? drop.
4150: 20 20 54 48 45 4e 0a 20 20 20 20 61 63 6b 73 23 THEN. acks#
4160: 20 61 6e 64 20 64 61 74 61 2d 72 6d 61 70 20 2e and data-rmap .
4170: 6d 61 70 63 3a 61 63 6b 2d 61 64 76 61 6e 63 65 mapc:ack-advance
4180: 3f 0a 20 20 20 20 49 46 20 20 6e 65 74 32 6f 3a ?. IF net2o:
4190: 61 63 6b 2d 63 6f 64 65 20 20 54 48 45 4e 20 20 ack-code THEN
41a0: 61 63 6b 2d 74 69 6d 69 6e 67 20 3b 0a 0a 69 6e ack-timing ;..in
41b0: 20 6e 65 74 32 6f 20 3a 20 64 6f 2d 61 63 6b 20 net2o : do-ack
41c0: 28 20 2d 2d 20 29 0a 20 20 20 20 64 65 73 74 2d ( -- ). dest-
41d0: 61 64 64 72 20 36 34 40 20 72 65 63 76 2d 61 64 addr 64@ recv-ad
41e0: 64 72 20 36 34 21 20 20 2b 63 6f 6f 6b 69 65 20 dr 64! +cookie
41f0: 5c 20 6c 61 73 74 20 72 65 63 65 69 76 65 64 20 \ last received
4200: 70 61 63 6b 65 74 0a 20 20 20 20 69 6e 62 75 66 packet. inbuf
4210: 20 31 2b 20 63 40 20 61 63 6b 2d 72 65 63 65 69 1+ c@ ack-recei
4220: 76 65 20 6f 76 65 72 20 74 6f 20 61 63 6b 2d 72 ve over to ack-r
4230: 65 63 65 69 76 65 20 78 6f 72 0a 20 20 20 20 2b eceive xor. +
4240: 74 69 6d 65 6f 75 74 30 20 72 65 73 65 6e 64 2d timeout0 resend-
4250: 61 6c 6c 2d 74 6f 20 36 34 21 0a 20 20 20 20 6e all-to 64!. n
4260: 65 74 32 6f 3a 64 6f 2d 61 63 6b 2d 72 65 73 74 et2o:do-ack-rest
4270: 20 3b 0a 0a 3a 20 2b 66 6c 6f 77 2d 63 6f 6e 74 ;..: +flow-cont
4280: 72 6f 6c 20 5b 27 5d 20 6e 65 74 32 6f 3a 64 6f rol ['] net2o:do
4290: 2d 61 63 6b 20 69 73 20 61 63 6b 2d 78 74 20 3b -ack is ack-xt ;
42a0: 0a 0a 5c 20 6b 65 65 70 61 6c 69 76 65 0a 0a 61 ..\ keepalive..a
42b0: 6c 73 6f 20 6e 65 74 32 6f 2d 62 61 73 65 0a 3a lso net2o-base.:
42c0: 20 2e 6b 65 65 70 61 6c 69 76 65 20 28 20 2d 2d .keepalive ( --
42d0: 20 29 20 20 2e 22 20 74 72 61 6e 73 66 65 72 20 ) ." transfer
42e0: 6b 65 65 70 61 6c 69 76 65 20 65 2f 65 20 68 20 keepalive e/e h
42f0: 74 20 62 20 22 20 65 78 70 65 63 74 65 64 40 20 t b " expected@
4300: 68 65 78 2e 20 68 65 78 2e 0a 20 20 20 20 64 61 hex. hex.. da
4310: 74 61 2d 72 6d 61 70 20 77 69 74 68 20 6d 61 70 ta-rmap with map
4320: 63 20 20 64 65 73 74 2d 68 65 61 64 20 68 65 78 c dest-head hex
4330: 2e 20 64 65 73 74 2d 74 61 69 6c 20 68 65 78 2e . dest-tail hex.
4340: 20 64 65 73 74 2d 62 61 63 6b 20 68 65 78 2e 0a dest-back hex..
4350: 20 20 20 20 64 61 74 61 2d 61 63 6b 62 69 74 73 data-ackbits
4360: 20 40 20 64 65 73 74 2d 73 69 7a 65 20 61 64 64 @ dest-size add
4370: 72 3e 62 79 74 65 73 20 64 75 6d 70 0a 20 20 20 r>bytes dump.
4380: 20 65 6e 64 77 69 74 68 0a 20 20 20 20 66 6f 72 endwith. for
4390: 74 68 3a 63 72 20 3b 0a 3a 20 74 72 61 6e 73 66 th:cr ;.: transf
43a0: 65 72 2d 6b 65 65 70 61 6c 69 76 65 3f 20 28 20 er-keepalive? (
43b0: 2d 2d 20 66 6c 61 67 20 29 0a 20 20 20 20 6f 20 -- flag ). o
43c0: 74 6f 20 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 to connection.
43d0: 20 20 74 69 6d 65 6f 75 74 28 20 2e 6b 65 65 70 timeout( .keep
43e0: 61 6c 69 76 65 20 29 0a 20 20 20 20 64 61 74 61 alive ). data
43f0: 2d 72 6d 61 70 20 77 69 74 68 20 6d 61 70 63 20 -rmap with mapc
4400: 64 65 73 74 2d 72 65 71 20 64 75 70 20 61 63 6b dest-req dup ack
4410: 2d 61 64 76 61 6e 63 65 3f 20 6f 72 20 74 6f 20 -advance? or to
4420: 61 63 6b 2d 61 64 76 61 6e 63 65 3f 20 65 6e 64 ack-advance? end
4430: 77 69 74 68 0a 20 20 20 20 64 75 70 20 49 46 0a with. dup IF.
4440: 09 21 74 69 63 6b 73 20 74 69 63 6b 65 72 20 36 .!ticks ticker 6
4450: 34 40 20 72 65 73 65 6e 64 2d 61 6c 6c 2d 74 6f 4@ resend-all-to
4460: 20 36 34 21 0a 09 5b 20 61 63 6b 2d 74 6f 67 67 64!..[ ack-togg
4470: 6c 65 23 20 72 65 73 65 6e 64 2d 74 6f 67 67 6c le# resend-toggl
4480: 65 23 20 6f 72 20 5d 4c 20 6e 65 74 32 6f 3a 64 e# or ]L net2o:d
4490: 6f 2d 61 63 6b 2d 72 65 73 74 20 20 54 48 45 4e o-ack-rest THEN
44a0: 20 3b 0a 70 72 65 76 69 6f 75 73 0a 0a 3a 20 63 ;.previous..: c
44b0: 6d 64 2d 74 69 6d 65 6f 75 74 20 28 20 2d 2d 20 md-timeout ( --
44c0: 29 20 20 3e 6e 65 78 74 2d 74 69 6d 65 6f 75 74 ) >next-timeout
44d0: 20 63 6d 64 2d 72 65 73 65 6e 64 3f 0a 20 20 20 cmd-resend?.
44e0: 20 49 46 20 20 70 75 73 68 2d 74 69 6d 65 6f 75 IF push-timeou
44f0: 74 20 20 45 4c 53 45 20 20 61 63 6b 40 20 2e 74 t ELSE ack@ .t
4500: 69 6d 65 6f 75 74 73 20 6f 66 66 20 20 54 48 45 imeouts off THE
4510: 4e 20 3b 0a 3a 20 63 6f 6e 6e 65 63 74 65 64 2d N ;.: connected-
4520: 74 69 6d 65 6f 75 74 20 28 20 2d 2d 20 29 20 74 timeout ( -- ) t
4530: 69 6d 65 6f 75 74 28 20 2e 22 20 63 6f 6e 6e 65 imeout( ." conne
4540: 63 74 65 64 20 74 69 6d 65 6f 75 74 20 22 20 61 cted timeout " a
4550: 63 6b 40 20 3e 6f 20 72 74 64 65 6c 61 79 20 36 ck@ >o rtdelay 6
4560: 34 40 20 75 36 34 2e 20 74 69 6d 65 6f 75 74 73 4@ u64. timeouts
4570: 20 3f 20 6f 3e 20 66 6f 72 74 68 3a 63 72 20 29 ? o> forth:cr )
4580: 0a 20 20 20 20 3e 6e 65 78 74 2d 74 69 6d 65 6f . >next-timeo
4590: 75 74 20 63 6d 64 2d 72 65 73 65 6e 64 3f 0a 20 ut cmd-resend?.
45a0: 20 20 20 49 46 0a 09 70 75 73 68 2d 74 69 6d 65 IF..push-time
45b0: 6f 75 74 0a 20 20 20 20 45 4c 53 45 0a 09 74 72 out. ELSE..tr
45c0: 61 6e 73 66 65 72 2d 6b 65 65 70 61 6c 69 76 65 ansfer-keepalive
45d0: 3f 20 30 3d 0a 09 49 46 20 20 61 63 6b 40 20 2e ? 0=..IF ack@ .
45e0: 74 69 6d 65 6f 75 74 73 20 6f 66 66 20 20 45 4c timeouts off EL
45f0: 53 45 20 20 70 75 73 68 2d 74 69 6d 65 6f 75 74 SE push-timeout
4600: 20 20 54 48 45 4e 0a 20 20 20 20 54 48 45 4e 20 THEN. THEN
4610: 3b 0a 0a 5c 20 3a 20 2b 63 6f 6e 6e 65 63 74 69 ;..\ : +connecti
4620: 6e 67 20 20 20 5b 27 5d 20 63 6f 6e 6e 65 63 74 ng ['] connect
4630: 69 6e 67 2d 74 69 6d 65 6f 75 74 20 69 73 20 74 ing-timeout is t
4640: 69 6d 65 6f 75 74 2d 78 74 20 3b 0a 3a 20 2b 72 imeout-xt ;.: +r
4650: 65 73 65 6e 64 20 28 20 2d 2d 20 29 20 72 65 73 esend ( -- ) res
4660: 65 6e 64 28 20 2e 22 20 2b 72 65 73 65 6e 64 22 end( ." +resend"
4670: 20 63 72 20 29 0a 20 20 20 20 5b 27 5d 20 63 6f cr ). ['] co
4680: 6e 6e 65 63 74 65 64 2d 74 69 6d 65 6f 75 74 20 nnected-timeout
4690: 20 69 73 20 74 69 6d 65 6f 75 74 2d 78 74 20 6f is timeout-xt o
46a0: 2b 74 69 6d 65 6f 75 74 0a 20 20 20 20 36 34 23 +timeout. 64#
46b0: 30 20 72 65 73 65 6e 64 2d 61 6c 6c 2d 74 6f 20 0 resend-all-to
46c0: 36 34 21 20 3b 0a 3a 20 2b 72 65 73 65 6e 64 2d 64! ;.: +resend-
46d0: 63 6d 64 20 28 20 2d 2d 20 29 20 72 65 73 65 6e cmd ( -- ) resen
46e0: 64 28 20 2e 22 20 2b 72 65 73 65 6e 64 2d 63 6d d( ." +resend-cm
46f0: 64 22 20 63 72 20 29 0a 20 20 20 20 5b 27 5d 20 d" cr ). [']
4700: 63 6d 64 2d 74 69 6d 65 6f 75 74 20 20 20 20 20 cmd-timeout
4710: 20 20 20 69 73 20 74 69 6d 65 6f 75 74 2d 78 74 is timeout-xt
4720: 20 6f 2b 74 69 6d 65 6f 75 74 20 3b 0a 0a 3a 20 o+timeout ;..:
4730: 2b 67 65 74 2d 74 69 6d 65 20 20 20 20 20 5b 27 +get-time ['
4740: 5d 20 67 65 74 2d 74 69 63 6b 20 69 73 20 6f 74 ] get-tick is ot
4750: 68 65 72 20 3b 0a 0a 3a 20 72 65 71 73 69 7a 65 her ;..: reqsize
4760: 21 20 28 20 75 63 6f 64 65 20 75 64 61 74 61 20 ! ( ucode udata
4770: 2d 2d 20 29 20 20 74 6f 20 72 65 71 2d 64 61 74 -- ) to req-dat
4780: 61 73 69 7a 65 20 20 74 6f 20 72 65 71 2d 63 6f asize to req-co
4790: 64 65 73 69 7a 65 20 3b 0a 3a 20 63 6f 6e 6e 65 desize ;.: conne
47a0: 63 74 2d 72 65 73 74 20 28 20 6e 20 2d 2d 20 29 ct-rest ( n -- )
47b0: 0a 20 20 20 20 63 6c 65 61 6e 2d 72 65 71 75 65 . clean-reque
47c0: 73 74 20 2d 74 69 6d 65 6f 75 74 20 74 73 6b 63 st -timeout tskc
47d0: 20 4b 45 59 42 59 54 45 53 20 65 72 61 73 65 20 KEYBYTES erase
47e0: 63 6f 6e 74 65 78 74 21 20 3b 0a 0a 3a 20 65 6e context! ;..: en
47f0: 64 2d 63 6f 64 65 7c 20 28 20 2d 2d 20 29 20 20 d-code| ( -- )
4800: 5d 5d 20 65 6e 64 2d 63 6f 64 65 20 63 6c 69 65 ]] end-code clie
4810: 6e 74 2d 6c 6f 6f 70 20 5b 5b 20 3b 20 69 6d 6d nt-loop [[ ; imm
4820: 65 64 69 61 74 65 20 63 6f 6d 70 69 6c 65 2d 6f ediate compile-o
4830: 6e 6c 79 0a 0a 3a 20 67 65 6e 2d 72 65 71 75 65 nly..: gen-reque
4840: 73 74 20 28 20 2d 2d 20 29 0a 20 20 20 20 73 65 st ( -- ). se
4850: 74 75 70 21 20 20 2b 72 65 73 65 6e 64 2d 63 6d tup! +resend-cm
4860: 64 20 20 67 65 6e 2d 74 6d 70 6b 65 79 73 20 20 d gen-tmpkeys
4870: 5b 27 5d 20 63 6f 6e 6e 65 63 74 2d 72 65 73 74 ['] connect-rest
4880: 20 72 71 64 3f 0a 20 20 20 20 63 6d 64 28 20 69 rqd?. cmd( i
4890: 6e 64 2d 61 64 64 72 20 40 20 49 46 20 20 2e 22 nd-addr @ IF ."
48a0: 20 69 6e 22 20 54 48 45 4e 20 2e 22 20 64 69 72 in" THEN ." dir
48b0: 65 63 74 20 63 6f 6e 6e 65 63 74 22 20 66 6f 72 ect connect" for
48c0: 74 68 3a 63 72 20 29 0a 20 20 20 20 69 76 73 28 th:cr ). ivs(
48d0: 20 2e 22 20 67 65 6e 20 72 65 71 75 65 73 74 22 ." gen request"
48e0: 20 66 6f 72 74 68 3a 63 72 20 29 0a 20 20 20 20 forth:cr ).
48f0: 6e 65 74 32 6f 2d 63 6f 64 65 30 0a 20 20 20 20 net2o-code0.
4900: 6e 65 74 32 6f 2d 76 65 72 73 69 6f 6e 20 24 2c net2o-version $,
4910: 20 76 65 72 73 69 6f 6e 3f 20 20 30 6b 65 79 2c version? 0key,
4920: 0a 20 20 20 20 74 70 6b 63 20 6b 65 79 73 69 7a . tpkc keysiz
4930: 65 20 24 2c 20 72 65 63 65 69 76 65 2d 74 6d 70 e $, receive-tmp
4940: 6b 65 79 0a 20 20 20 20 6e 65 73 74 5b 20 63 6f key. nest[ co
4950: 6f 6b 69 65 2c 20 67 65 6e 2d 72 65 70 6c 79 20 okie, gen-reply
4960: 72 65 71 75 65 73 74 2c 20 5d 6e 65 73 74 20 20 request, ]nest
4970: 6f 74 68 65 72 0a 20 20 20 20 74 6d 70 6b 65 79 other. tmpkey
4980: 2d 72 65 71 75 65 73 74 0a 20 20 20 20 69 6e 64 -request. ind
4990: 2d 61 64 64 72 20 40 20 20 49 46 20 20 70 75 6e -addr @ IF pun
49a0: 63 68 3f 20 20 54 48 45 4e 0a 20 20 20 20 72 65 ch? THEN. re
49b0: 71 2d 63 6f 64 65 73 69 7a 65 20 20 72 65 71 2d q-codesize req-
49c0: 64 61 74 61 73 69 7a 65 20 20 6d 61 70 2d 72 65 datasize map-re
49d0: 71 75 65 73 74 2c 20 20 63 6c 6f 73 65 2d 74 6d quest, close-tm
49e0: 70 6e 65 73 74 0a 20 20 20 20 5b 27 5d 20 70 75 pnest. ['] pu
49f0: 73 68 2d 63 6d 64 20 49 53 20 65 78 70 65 63 74 sh-cmd IS expect
4a00: 2d 72 65 70 6c 79 3f 0a 20 20 20 20 65 6e 64 2d -reply?. end-
4a10: 63 6f 64 65 7c 20 3b 0a 0a 69 6e 20 6e 65 74 32 code| ;..in net2
4a20: 6f 20 3a 20 63 6f 6e 6e 65 63 74 20 28 20 75 63 o : connect ( uc
4a30: 6f 64 65 20 75 64 61 74 61 20 2d 2d 20 29 20 20 ode udata -- )
4a40: 72 65 71 73 69 7a 65 21 20 67 65 6e 2d 72 65 71 reqsize! gen-req
4a50: 75 65 73 74 20 3b 0a 0a 70 72 65 76 69 6f 75 73 uest ;..previous
4a60: 0a 0a 30 20 5b 49 46 5d 0a 4c 6f 63 61 6c 20 56 ..0 [IF].Local V
4a70: 61 72 69 61 62 6c 65 73 3a 0a 66 6f 72 74 68 2d ariables:.forth-
4a80: 6c 6f 63 61 6c 2d 77 6f 72 64 73 3a 0a 20 20 20 local-words:.
4a90: 20 28 0a 20 20 20 20 20 28 28 22 6e 65 74 32 6f (. (("net2o
4aa0: 3a 22 20 22 2b 6e 65 74 32 6f 3a 22 29 20 64 65 :" "+net2o:") de
4ab0: 66 69 6e 69 74 69 6f 6e 2d 73 74 61 72 74 65 72 finition-starter
4ac0: 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 (font-lock-keyw
4ad0: 6f 72 64 2d 66 61 63 65 20 2e 20 31 29 0a 20 20 ord-face . 1).
4ae0: 20 20 20 20 22 5b 20 5c 74 5c 6e 5d 22 20 74 20 "[ \t\n]" t
4af0: 6e 61 6d 65 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d name (font-lock-
4b00: 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 66 61 function-name-fa
4b10: 63 65 20 2e 20 33 29 29 0a 20 20 20 20 20 28 22 ce . 3)). ("
4b20: 5b 61 2d 7a 5c 2d 30 2d 39 5d 2b 28 22 20 69 6d [a-z\-0-9]+(" im
4b30: 6d 65 64 69 61 74 65 20 28 66 6f 6e 74 2d 6c 6f mediate (font-lo
4b40: 63 6b 2d 63 6f 6d 6d 65 6e 74 2d 66 61 63 65 20 ck-comment-face
4b50: 2e 20 31 29 0a 20 20 20 20 20 20 22 29 22 20 6e . 1). ")" n
4b60: 69 6c 20 63 6f 6d 6d 65 6e 74 20 28 66 6f 6e 74 il comment (font
4b70: 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 2d 66 61 -lock-comment-fa
4b80: 63 65 20 2e 20 31 29 29 0a 20 20 20 20 29 0a 66 ce . 1)). ).f
4b90: 6f 72 74 68 2d 6c 6f 63 61 6c 2d 69 6e 64 65 6e orth-local-inden
4ba0: 74 2d 77 6f 72 64 73 3a 0a 20 20 20 20 28 0a 20 t-words:. (.
4bb0: 20 20 20 20 28 28 22 6e 65 74 32 6f 3a 22 20 22 (("net2o:" "
4bc0: 2b 6e 65 74 32 6f 3a 22 29 20 28 30 20 2e 20 32 +net2o:") (0 . 2
4bd0: 29 20 28 30 20 2e 20 32 29 20 6e 6f 6e 2d 69 6d ) (0 . 2) non-im
4be0: 6d 65 64 69 61 74 65 29 0a 20 20 20 20 20 28 28 mediate). ((
4bf0: 22 5b 3a 22 29 20 28 30 20 2e 20 31 29 20 28 30 "[:") (0 . 1) (0
4c00: 20 2e 20 31 29 20 69 6d 6d 65 64 69 61 74 65 29 . 1) immediate)
4c10: 0a 20 20 20 20 20 28 28 22 3b 5d 22 29 20 28 2d . ((";]") (-
4c20: 31 20 2e 20 30 29 20 28 30 20 2e 20 2d 31 29 20 1 . 0) (0 . -1)
4c30: 69 6d 6d 65 64 69 61 74 65 29 0a 20 20 20 20 29 immediate). )
4c40: 0a 45 6e 64 3a 0a 5b 54 48 45 4e 5d 0a .End:.[THEN].