Commit 645e15c9 authored by Bernd Paysan's avatar Bernd Paysan

Bump version number

parent 88b19b99
......@@ -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.1-20190822], [bernd@net2o.de], [net2o], [https://fossil.net2o.de/net2o/reportlist])
AC_INIT([net2o], [0.9.1-20190829], [bernd@net2o.de], [net2o], [https://fossil.net2o.de/net2o/reportlist])
AC_PREREQ([2.59])
AC_CONFIG_MACRO_DIR([m4])
AC_USE_SYSTEM_EXTENSIONS
......
......@@ -2,7 +2,7 @@
echo "This script builds net2o from scratch"
GFORTH=gforth-0.7.9_20190822
GFORTH=gforth-0.7.9_20190829
if [ "$(uname -o)" = "Cygwin" ]
then
......
......@@ -920,7 +920,7 @@ in net2o : ack-resend ( flag -- ) resend-toggle# and to ack-resend~ ;
data-resend $@len 0 U+DO
data-resend $@ I /string drop @ 0= IF
data-resend I 2 cells $del
0 data-resend $@len I unloop U+DO NOPE
0 data-resend $@len I replace-loop
ELSE
[ 2 cells ]L
THEN
......@@ -1183,10 +1183,10 @@ Create chunk-adder chunks-struct allot
ticker 64@ ack@ .ticks-init ;
: o-chunks ( -- )
[: chunks $@ bounds ?DO
[: chunks $@ bounds U+DO
I chunk-context @ o = IF
chunks I chunks-struct del$one
unloop chunks next$ ?DO NOPE 0
chunks next$ replace-loop 0
ELSE chunks-struct THEN +LOOP ;]
resize-sema c-section ;
......@@ -1348,11 +1348,11 @@ queue-class >osize @ buffer: queue-adder
: eval-queue ( -- )
queue $@len 0= ?EXIT ticker 64@
queue $@ bounds ?DO I >o
queue $@ bounds U+DO I >o
64dup queue-timestamp 64@ 64u> IF
addr queue-xt @ queue-job @ .execute o>
queue I queue-struct del$one
unloop queue next$ ?DO NOPE 0
queue next$ replace-loop 0
ELSE o> queue-struct THEN
+LOOP 64drop ;
......@@ -1918,7 +1918,7 @@ cookie-size# buffer: tmp-cookie
: do-?cookie ( cookie -- context true / false )
ticker 64@ connect-timeout# 64- { 64: timeout }
cookies $@ bounds ?DO
cookies $@ bounds U+DO
64dup I .cc-timeout 64@ 64= IF \ if we have a hit, use that
64drop I .cc-context @
I .cc-secret [ tmp-cookie .cc-secret ]L KEYBYTES move
......@@ -1928,7 +1928,7 @@ cookie-size# buffer: tmp-cookie
I .cc-timeout 64@ timeout 64u< IF
cookies I cookie-size# del$one
cookies next$
unloop ?DO NOPE \ this replaces the loop variables
replace-loop
0 \ we re-iterate over the exactly same index
ELSE
cookie-size#
......
......@@ -180,6 +180,8 @@ debug: dummy(
\G removes a control structure sys from the stack
drop 2drop ; immediate restrict
[THEN]
: replace-loop ( end start -- )
]] unloop U+DO NOPE [[ ; immediate restrict
require bits.fs
......@@ -867,10 +869,10 @@ compsem: sourcefilename postpone sliteral ['] search-help compile, ;
: next$ ( pos string -- addre addrs )
$@ rot /string bounds ;
: del$cell ( addr stringaddr -- ) { string }
string $@ bounds ?DO
string $@ bounds U+DO
dup I @ = IF
string I cell del$one
unloop string next$ ?DO NOPE 0
string next$ replace-loop 0
ELSE cell THEN
+LOOP drop ;
......
# Commands #
Version 0.9.1-20190822.
Version 0.9.1-20190829.
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