Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Resign key fixed, addr-changed added to Android |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
0be8970ecc4f4e81715169471b95017d |
User & Date: | bernd 2019-05-17 12:58:02.849 |
Context
2019-05-21
| ||
21:13 | Keep status icons floating over top bar check-in: 7e998db7e5 user: bernd tags: trunk | |
2019-05-17
| ||
12:58 | Resign key fixed, addr-changed added to Android check-in: 0be8970ecc user: bernd tags: trunk | |
2019-05-16
| ||
15:03 | Bump version check-in: 413becb19f user: bernd tags: trunk | |
Changes
Changes to android/net.fs.
︙ | ︙ | |||
11 12 13 14 15 16 17 18 19 20 | \ but WITHOUT ANY WARRANTY; without even the implied warranty of \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the \ GNU Affero General Public License for more details. \ You should have received a copy of the GNU Affero General Public License \ along with this program. If not, see <http://www.gnu.org/licenses/>. also android also jni :noname defers android-network network-info dup IF ]xref | > > | | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | \ but WITHOUT ANY WARRANTY; without even the implied warranty of \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the \ GNU Affero General Public License for more details. \ You should have received a copy of the GNU Affero General Public License \ along with this program. If not, see <http://www.gnu.org/licenses/>. Defer addr-changed ' noop is addr-changed also android also jni :noname defers android-network network-info dup IF ]xref beacons-now! !!0depth!! addr-changed true THEN to connected? ; is android-network previous previous \\\ Local Variables: forth-local-words: |
︙ | ︙ |
Changes to keys.fs.
︙ | ︙ | |||
872 873 874 875 876 877 878 | mynick-key .keynick$ ; : mypk2nick$ ( o:key -- addr u ) \G get my nick with signature mynick-key .keypk2nick$ ; : key-sign ( o:key -- o:key ) ['] pack-core gen-cmd$ [: type ke-pk $@ type ;] $tmp | | | 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 | mynick-key .keynick$ ; : mypk2nick$ ( o:key -- addr u ) \G get my nick with signature mynick-key .keypk2nick$ ; : key-sign ( o:key -- o:key ) ['] pack-core gen-cmd$ [: type ke-pk $@ type ;] $tmp now>never c:0key c:hash [: 0 ..sig ;] $tmp ke-selfsig $! ; Variable cp-tmp : sec-key? ( o:key -- flag ) ke-sk sec@ d0<> ke-groups $@ $01 scan nip 0= and ; |
︙ | ︙ |
Changes to n2o.fs.
︙ | ︙ | |||
274 275 276 277 278 279 280 | save-keys THEN ; : nick ( -- ) \U nick newnick \G nick: Change your nick to <newnick> ?get-me ?nextarg IF pk@ key| key-exist? ?dup-IF | | | 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 | save-keys THEN ; : nick ( -- ) \U nick newnick \G nick: Change your nick to <newnick> ?get-me ?nextarg IF pk@ key| key-exist? ?dup-IF >o ke-nick $! key-sign o> save-keys keylist ELSE 2drop THEN THEN ; : pet ( -- ) \U pet nick1|pet1 petnew1 .. nickn|petn petnewn \G pet: Add a new petname to existing <nick> or <pet> ?get-me [: nick-key dup 0= IF drop EXIT THEN |
︙ | ︙ |