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: |
4214d5811cd64012659b164e5ef9a4ec |
| 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
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
|