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 |
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 21 22 23 24 25 26 27 28 |
\ 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
beacons-now! !!0depth!! true
THEN to connected? ;
is android-network
previous previous
\\\
Local Variables:
forth-local-words:
|
> > | |
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 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 ['] .sig $tmp ke-selfsig $! ;
Variable cp-tmp
: sec-key? ( o:key -- flag )
ke-sk sec@ d0<>
ke-groups $@ $01 scan nip 0= and ;
|
| |
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 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
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
|
| |
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
|