Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Slight change of chat check |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8ec50e8d7cf98fc8604aff37658c6b5b |
| User & Date: | bernd 2020-02-06 21:49:25 |
Context
|
2020-02-12
| ||
| 22:44 | Add pen to edit name check-in: bf93e8b4ed user: bernd tags: trunk | |
|
2020-02-06
| ||
| 21:49 | Slight change of chat check check-in: 8ec50e8d7c user: bernd tags: trunk | |
| 12:37 | Bump version number check-in: 8981ab964e user: bernd tags: trunk, 0.9.7-20200206 | |
Changes
Changes to msg.fs.
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
....
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
|
: wait-key ( -- )
BEGIN key-ctrlbit [ 1 ctrl L lshift 1 ctrl Z lshift or ]L
and 0= UNTIL ;
: chats# ( -- n )
0 [: msg:peers[] $[]# 1 min + ;] group#map ;
: wait-chat ( -- )
chat-keys [: @/2 dup 0= IF 2drop EXIT THEN
2dup keysize2 safe/string tuck <info> type IF '.' emit THEN
.key-id space ;] $[]map
." is not online. press key to recheck."
[: 0 to connection -56 throw ;] is do-disconnect
................................................................................
: chat-connects ( -- )
chat-keys [: key>group ?load-msgn
dup 0= IF 2drop msg-group$ $@ >group EXIT THEN
2dup search-connect ?dup-IF >o +group greet o> 2drop EXIT THEN
2dup pk-peek? IF chat-connect ELSE 2drop THEN ;] $[]map ;
: ?wait-chat ( -- addr u ) #0. /chat:/chats
BEGIN chats# 0= WHILE wait-chat chat-connects REPEAT
msg-group$ $@ ; \ stub
scope{ /chat
:noname ( addr u -- )
chat-keys $[]off nick>chat 0 chat-keys $[]@ key>group
msg-group$ $@ >group msg-group-o .msg:peers[] $@ dup 0= IF 2drop
nip IF chat-connects
|
>
>
|
|
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
....
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
|
: wait-key ( -- )
BEGIN key-ctrlbit [ 1 ctrl L lshift 1 ctrl Z lshift or ]L
and 0= UNTIL ;
: chats# ( -- n )
0 [: msg:peers[] $[]# 1 min + ;] group#map ;
: chat-keys# ( -- n )
0 chat-keys [: @/2 nip 0<> - ;] $[]map ;
: wait-chat ( -- )
chat-keys [: @/2 dup 0= IF 2drop EXIT THEN
2dup keysize2 safe/string tuck <info> type IF '.' emit THEN
.key-id space ;] $[]map
." is not online. press key to recheck."
[: 0 to connection -56 throw ;] is do-disconnect
................................................................................
: chat-connects ( -- )
chat-keys [: key>group ?load-msgn
dup 0= IF 2drop msg-group$ $@ >group EXIT THEN
2dup search-connect ?dup-IF >o +group greet o> 2drop EXIT THEN
2dup pk-peek? IF chat-connect ELSE 2drop THEN ;] $[]map ;
: ?wait-chat ( -- addr u ) #0. /chat:/chats
BEGIN chats# 0= chat-keys# 0> and WHILE wait-chat chat-connects REPEAT
msg-group$ $@ ; \ stub
scope{ /chat
:noname ( addr u -- )
chat-keys $[]off nick>chat 0 chat-keys $[]@ key>group
msg-group$ $@ >group msg-group-o .msg:peers[] $@ dup 0= IF 2drop
nip IF chat-connects
|