Commit ab2be575 authored by Bernd Paysan's avatar Bernd Paysan

Bump version number

parent 4a16db0f
......@@ -586,7 +586,9 @@ compsem: ['] net2o-code0 compile, also net2o-base ;
also net2o-base
: cmd-send? ( -- )
cmdbuf# @ 1 u> IF expect-reply? cmd THEN ;
cmdbuf# @ 1 u> IF
trace( ." expect reply " action-of expect-reply? .name cr )
expect-reply? cmd THEN ;
previous
......@@ -649,7 +651,8 @@ in net2o : ok ( tag -- ) \ ." ok" forth:cr
THEN
string-stack $free object-stack $free nest-stack $free
[: outflag @ >r cmdreset init-reply do-cmd-loop
r> outflag ! cmd-send? ;] cmdlock c-section ;
r> outflag ! cmd-send? ;] cmdlock c-section
o IF wait-task @ ?dup-IF event> THEN THEN ;
\ nested commands
......
......@@ -15,7 +15,7 @@ dnl Process this file with autoconf to produce a configure script.
# 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/>.
AC_INIT([net2o], [0.9.3-20191107], [bernd@net2o.de], [net2o], [https://fossil.net2o.de/net2o/reportlist])
AC_INIT([net2o], [0.9.3-20191114], [bernd@net2o.de], [net2o], [https://fossil.net2o.de/net2o/reportlist])
AC_PREREQ([2.59])
AC_CONFIG_MACRO_DIR([m4])
AC_USE_SYSTEM_EXTENSIONS
......
......@@ -205,8 +205,7 @@ Variable id#
Sema id-sema
: new-error-id ( -- addr u )
$10 rng$ o { w^ idcon } idcon cell 2over
[: id# #! ;] id-sema c-section
[: o { w^ idcon } $10 rng$ idcon cell 2over id# #! ;] id-sema c-section
2dup my-error-id $! ;
: error-id>o ( addr u -- o/0 )
$error-id $@ ?dup-IF
......
......@@ -2,7 +2,7 @@
echo "This script builds net2o from scratch"
GFORTH=gforth-0.7.9_20191107
GFORTH=gforth-0.7.9_20191114
if [ "$(uname -o)" = "Cygwin" ]
then
......
......@@ -4,7 +4,7 @@
\ this computes a cryptographic somewhat secure hash over the input string
2 64s buffer: hash-state
User hash-state 2 64s cell- uallot
: string-hash ( addr u -- ) hashinit hash-state [ 2 64s ]L move
false hash-state hashkey2 ;
......
#! @GFORTH@
#! @GFORTHFAST@
\ -*- mode: Forth -*-
warnings off \ in production mode, we don't want any warnings
......
......@@ -1903,7 +1903,7 @@ in net2o : request-done ( n -- ) elit, o elit, :>request ;
: requests->0 ( -- ) request( ." wait reqmask=" o IF reqmask @ hex. THEN cr )
BEGIN stop
o IF reqmask @ file-count @ or 0= ( reqcount @ 0= and )
ELSE false THEN
ELSE false THEN request( ." waiting... " dup . cr )
UNTIL
o IF o-timeout THEN request( ." wait done" cr ) ;
......
......@@ -198,12 +198,12 @@ User ?salt-init ?salt-init off
rng-pos @ 64aligned dup 64'+ rng-pos !
rng-buffer + 64@ ;
: rng$ ( u -- addr u ) >r
: rng$ { u -- addr u }
\G return a @i{u} bytes stream (@i{u} must be smaller than the
\G buffer size}
?rng
rng-pos @ r@ + rng-step?
rng-buffer rng-pos @ + r> dup rng-pos +! ;
rng-pos @ u + rng-step?
rng-buffer rng-pos @ + u dup rng-pos +! ;
: rng32 ( -- x )
\G return a 32 bit random number
......
# Commands #
Version 0.9.3-20191107.
Version 0.9.3-20191114.
net2o separates data and commands. Data is passed through to higher
layers, commands are interpreted when they arrive. For connection
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment