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.943 |
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 |
: 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
| > > | 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 2030 2031 2032 2033 |
: 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
|
| ︙ | ︙ | |||
2053 2054 2055 2056 2057 2058 2059 |
: 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
| | | 2055 2056 2057 2058 2059 2060 2061 2062 2063 2064 2065 2066 2067 2068 2069 |
: 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
|
| ︙ | ︙ |