Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Clean up nick\! |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8fca31bb94ee1a10cc79f1dc2e24ec9d |
| User & Date: | bernd 2020-02-03 18:16:12 |
Context
|
2020-02-04
| ||
| 21:35 | Improve history browsing check-in: b5815e53f6 user: bernd tags: trunk | |
|
2020-02-03
| ||
| 18:16 | Clean up nick\! check-in: 8fca31bb94 user: bernd tags: trunk | |
| 18:08 | map finding process updated check-in: 85279f2ea6 user: bernd tags: trunk | |
Changes
Changes to keys.fs.
139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 |
optr cell ke-nick $@ nick# #! 0
ELSE
last# cell+ $@ bounds DO
ke-pk $@ I @ .ke-pk $@ str= IF
I @ .ke-nick# @ ke-nick# !
I @ .ke-offset 64@ ke-offset 64!
I @ .ke-sk sec@ dup IF ke-sk sec! ELSE 2drop THEN
I @ .ke-selfsig $@ drop 64@ ke-selfsig $@ drop 64@ 64u<
IF optr @ I ! THEN
UNLOOP EXIT
THEN
cell +LOOP
last# cell+ $@len cell/
optr cell last# cell+ $+!
THEN ke-nick# ! ;
|
| > > | > > |
139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 |
optr cell ke-nick $@ nick# #! 0
ELSE
last# cell+ $@ bounds DO
ke-pk $@ I @ .ke-pk $@ str= IF
I @ .ke-nick# @ ke-nick# !
I @ .ke-offset 64@ ke-offset 64!
I @ .ke-sk sec@ dup IF ke-sk sec! ELSE 2drop THEN
I @ .ke-selfsig $@ IF
64@ ke-selfsig $@ IF
64@ 64u<
IF optr @ I ! THEN
ELSE drop 64drop THEN
ELSE drop THEN
UNLOOP EXIT
THEN
cell +LOOP
last# cell+ $@len cell/
optr cell last# cell+ $+!
THEN ke-nick# ! ;
|