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 |
︙ | ︙ |