Check-in [0be8970ecc]
Not logged in

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: 0be8970ecc4f4e81715169471b95017d4a7c6782
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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