Check-in [b795abe718]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Snap card broken on Chromium?
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b795abe718f8f99e5fcb08c45e4d06173db7da24
User & Date: bernd 2020-07-06 13:53:54
Context
2020-07-09
14:00
Bump version number check-in: 7e5ace4262 user: bernd tags: trunk, 0.9.8-20200709
2020-07-06
13:53
Snap card broken on Chromium? check-in: b795abe718 user: bernd tags: trunk
12:48
Replace rectype-name with recognizer rev. D suggested rectype-nt check-in: bfdb6f7821 user: bernd tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to err.fs.

117
118
119
120
121
122
123

124
125
126
127
128
129
130
s" hash not last pk's state"     throwcode !!squid-hash!!
s" Double transaction!"          throwcode !!double-transaction!!
s" Insufficient asset!"          throwcode !!insufficient-asset!!
s" Transaction not balanced!"    throwcode !!not-balanced!!
s" Sink already cleared!"        throwcode !!sink-cleared!!
s" Sink not cleared!"            throwcode !!not-sunk!!
s" Invalid permission!"          throwcode !!inv-perm!!


next-exception !

: sig-enum>throw ( enum -- throwcode )
    [ ' !!inv-sig!! >body @ 1- ]L swap - ;
: !!sig!! ( n -- )
    ?dup-IF  sig-enum>throw throw  THEN ;







>







117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
s" hash not last pk's state"     throwcode !!squid-hash!!
s" Double transaction!"          throwcode !!double-transaction!!
s" Insufficient asset!"          throwcode !!insufficient-asset!!
s" Transaction not balanced!"    throwcode !!not-balanced!!
s" Sink already cleared!"        throwcode !!sink-cleared!!
s" Sink not cleared!"            throwcode !!not-sunk!!
s" Invalid permission!"          throwcode !!inv-perm!!
s" Nick too short!"              throwcode !!short-nick!!

next-exception !

: sig-enum>throw ( enum -- throwcode )
    [ ' !!inv-sig!! >body @ 1- ]L swap - ;
: !!sig!! ( n -- )
    ?dup-IF  sig-enum>throw throw  THEN ;

Changes to keys.fs.

1199
1200
1201
1202
1203
1204
1205

1206
1207
1208
1209
1210
1211
1212
    ?check-rng \ before generating a key, check the rng for health
    key>default
    key#user +gen-keys
    secret-keys# 1- secret-key >raw-key  lastkey@ drop defaultkey !
    out-me +dhtroot save-keys ;

: new-key ( nickaddr u -- )

    +newphrase new-key, ;

\ revokation

4 datesize# + keysize 9 * + Constant revsize#

Variable revtoken







>







1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
    ?check-rng \ before generating a key, check the rng for health
    key>default
    key#user +gen-keys
    secret-keys# 1- secret-key >raw-key  lastkey@ drop defaultkey !
    out-me +dhtroot save-keys ;

: new-key ( nickaddr u -- )
    dup 2 < !!short-nick!!
    +newphrase new-key, ;

\ revokation

4 datesize# + keysize 9 * + Constant revsize#

Variable revtoken

Changes to msg.fs.

2044
2045
2046
2047
2048
2049
2050

2051
2052
2053
2054
2055
2056
2057
	over ?flush-text 2dup + to last->in
	[: 1 /string
	    \ ." tag: '" forth:type ''' forth:emit forth:cr
	    $, msg-tag
	;] rectype-nt
    ELSE  2drop rectype-null  THEN ;
: pk-rec ( addr u -- )

    over c@ '@' = IF  2dup 1 /string ':' -skip nick>pk
	2dup d0= IF  2drop 2drop rectype-null
	ELSE
	    2>r over ?flush-text + to last->in  2r>
	    [:
		\ ." signal: '" 85type ''' forth:emit forth:cr
		$, msg-signal







>







2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
	over ?flush-text 2dup + to last->in
	[: 1 /string
	    \ ." tag: '" forth:type ''' forth:emit forth:cr
	    $, msg-tag
	;] rectype-nt
    ELSE  2drop rectype-null  THEN ;
: pk-rec ( addr u -- )
    dup 3 < IF  2drop rectype-null  EXIT  THEN \ minimum nick: 2 characters
    over c@ '@' = IF  2dup 1 /string ':' -skip nick>pk
	2dup d0= IF  2drop 2drop rectype-null
	ELSE
	    2>r over ?flush-text + to last->in  2r>
	    [:
		\ ." signal: '" 85type ''' forth:emit forth:cr
		$, msg-signal

Changes to wiki/get-it.md.

79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
Create an alias to run the docker:

    alias n2o="docker run -ti --rm -v ~/net2o.dk:/net2o --user $(id -u):$(id -g) forthy42/net2o"

Get it in a Snap Container
--------------------------

I created a snap container.  You need to get snap for your Linux distribution
(in Ubuntu, it's already there).

<iframe src="https://snapcraft.io/net2o/embedded?button=black" frameborder="0"
width="100%" height="300px" style="border: 1px solid #CCC; border-radius:
2px;"></iframe>

or the CLI way:

    sudo snap install net2o

And then set an alias







|
|


|







79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
Create an alias to run the docker:

    alias n2o="docker run -ti --rm -v ~/net2o.dk:/net2o --user $(id -u):$(id -g) forthy42/net2o"

Get it in a Snap Container
--------------------------

I created a [snap container](https://snapcraft.io/net2o).  You need to get
snap for your Linux distribution (in Ubuntu, it's already there).

<iframe src="https://snapcraft.io/net2o/embedded?button=black" frameborder="0"
width="100%" height="310px" style="border: 1px solid #CCC; border-radius:
2px;"></iframe>

or the CLI way:

    sudo snap install net2o

And then set an alias