Check-in [4214d5811c]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Use connection for cmdreset
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:4214d5811cd64012659b164e5ef9a4ecc9639494
User & Date: bernd 2019-05-09 23:02:38
Context
2019-05-11
23:44
Add small discussion about social networks check-in: 24ed860e48 user: bernd tags: trunk
2019-05-09
23:02
Use connection for cmdreset check-in: 4214d5811c user: bernd tags: trunk
18:34
Init-dir fixes build problems check-in: 199a06d608 user: bernd tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to cmd.fs.

296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
    2r> buf-dump 2! ?dup-IF  throw  THEN ;

cmd-buf-c ' new static-a with-allocater code-buf^ !
' code-buf^ cmdbuf: code-buf

code-buf

:noname ( -- )  cmdbuf# off  o IF
	req? off  ['] send-cX code-reply is send-xt  THEN ; to cmdreset
:noname ( -- addr )   connection .code-sema ; to cmdlock
:noname ( -- addr u ) connection .code-dest cmdbuf# @ ; to cmdbuf$
:noname ( -- n )  maxdata cmdbuf# @ - ; to maxstring
:noname ( addr u -- ) dup maxstring u> IF
	cmdbuf$ ~~ net2o:see true !!cmdfit!!  THEN
    tuck cmdbuf$ + swap move cmdbuf# +! ; to +cmdbuf
:noname ( n -- )  cmdbuf# +! ; to -cmdbuf







|
|







296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
    2r> buf-dump 2! ?dup-IF  throw  THEN ;

cmd-buf-c ' new static-a with-allocater code-buf^ !
' code-buf^ cmdbuf: code-buf

code-buf

:noname ( -- )  cmdbuf# off  connection >o
	req? off  ['] send-cX code-reply is send-xt o> ; to cmdreset
:noname ( -- addr )   connection .code-sema ; to cmdlock
:noname ( -- addr u ) connection .code-dest cmdbuf# @ ; to cmdbuf$
:noname ( -- n )  maxdata cmdbuf# @ - ; to maxstring
:noname ( addr u -- ) dup maxstring u> IF
	cmdbuf$ ~~ net2o:see true !!cmdfit!!  THEN
    tuck cmdbuf$ + swap move cmdbuf# +! ; to +cmdbuf
:noname ( n -- )  cmdbuf# +! ; to -cmdbuf