Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix decompiling |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
044486945ee1eb7a6b49af1cd3ba7dd4 |
| User & Date: | bernd 2019-07-02 00:53:48.774 |
Context
|
2019-07-04
| ||
| 21:50 | Start implementing commands in GUI mode check-in: 581eb4c544 user: bernd tags: trunk | |
|
2019-07-02
| ||
| 00:53 | Fix decompiling check-in: 044486945e user: bernd tags: trunk | |
|
2019-06-27
| ||
| 12:29 | Bump version number check-in: f0a323c4e1 user: bernd tags: trunk, 0.9.0-20190627 | |
Changes
Changes to cmd.fs.
| ︙ | ︙ | |||
186 187 188 189 190 191 192 |
: n>cmd ( n -- addr ) cells >r
o IF token-table ELSE setup-table THEN
$@ r@ u<= !!function!! r> + ;
: cmd@ ( -- u ) buf-state 2@ over + >r p@+ r> over - buf-state 2! 64>n ;
standard:field
| | | 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 |
: n>cmd ( n -- addr ) cells >r
o IF token-table ELSE setup-table THEN
$@ r@ u<= !!function!! r> + ;
: cmd@ ( -- u ) buf-state 2@ over + >r p@+ r> over - buf-state 2! 64>n ;
standard:field
-5 cells 0 +field net2o.name
drop
: >net2o-name ( addr -- addr' u )
net2o.name body> name>string ;
: >net2o-sig ( addr -- addr' u )
net2o.name 3 cells + $@ ;
: .net2o-num ( off -- ) cell/ '<' emit 0 .r '>' emit space ;
|
| ︙ | ︙ |