Commit 3cf439e6 authored by Bernd Paysan's avatar Bernd Paysan

Bump version number

parent 740ab7f0
......@@ -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.4-20191205], [bernd@net2o.de], [net2o], [https://fossil.net2o.de/net2o/reportlist])
AC_INIT([net2o], [0.9.4-20191212], [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_20191121
GFORTH=gforth-0.7.9_20191212
if [ "$(uname -o)" = "Cygwin" ]
then
......
......@@ -709,7 +709,7 @@ true Value add-object?
dvcs:type !
dvcs:hash$ $@len 0= IF #0. last-signed 2! EXIT THEN
msg-group$ @ >r
project:project$ @ msg-group$ !
project:project$ @ msg-group$ ! msg-group$ $@ >group
o [: with dvcs
project:chain$ $@ base85>$
fileref[]
......
......@@ -1318,6 +1318,8 @@ end-class net2o-actor
k-f6 of color-theme 0<> IF anim-end 0.25e o
[: 1e fswap f- fdup f>s to color-theme 0.5e f+ ColorMode! +sync +vpsync ;]
>animate THEN endof
k-f7 of >normalscreen endof
k-f8 of >fullscreen endof
[ box-actor :: ekeyed ] EXIT
endcase ; net2o-actor to ekeyed
......
......@@ -350,7 +350,7 @@ also net2o-base
2Variable post-ref
: add-message ( xt -- )
project:project$ $@ ?msg-log
project:project$ $@ >group
[: sign[ msg-start execute post-ref 2@ chain, ]pksign ;] gen-cmd$
+last-signed last-signed 2@ >msg-log 2drop ;
......@@ -460,7 +460,7 @@ Variable comment#
THEN
['] .plain $tmp $80 umin -trailing-garbage
dup 0= IF 2drop "<no text>" THEN ['] .project $tmp
groups[] [: msg-group$ $! 0 .?make-group
groups[] [: msg-group$ $! 0 .?make-group msg-group$ $@ >group
[ also net2o-base ]
[: 2over $, msg-text 2dup $, msg:posting# ulit, msg-object ;]
[ previous ]
......@@ -492,9 +492,9 @@ Variable comment#
dvcs-o add-reshares
dvcs-o add-votes
dvcs-o add-comments
dvcs-o .dvcs:dispose-dvcs
create>never
dvcs-o ['] add-collection mkey wrap-key
dvcs-o .dvcs:dispose-dvcs
dir> redate-mode off
dvcs-objects #frees ;
......@@ -506,6 +506,7 @@ Variable comment#
#-21 0 at-deltaxy
I @ .write-out-article
1 +to nn
!save-all-msgs
cell +LOOP
img-req-fid close-file throw 0 to img-req-fid
nn [: ." write " 6 .r ." postings in " .time ;]
......@@ -521,5 +522,5 @@ Variable comment#
." Read JSON files" cr dir json-load-dir
." Write entries" cr write-articles
." Get avatars" cr get-avatars hash-in-avatars
!save-all-msgs save-keys
save-keys
save-chatgroups .chatgroups ;
......@@ -88,15 +88,15 @@ $10 stack: array-stack
0 Value previous-type
: set-val ( value -- )
key$ $@ find-name ?dup-IF (int-to) EXIT THEN
key$ $@ find-name ?dup-IF (to) EXIT THEN
json-err ;
: set-int ( value -- )
key$ $@ find-name ?dup-IF (int-to) EXIT THEN
key$ $@ find-name ?dup-IF (to) EXIT THEN
'%' key$ $@ + 1- c! key$ $@ find-name ?dup-IF
>r s>f r> (int-to) EXIT THEN
>r s>f r> (to) EXIT THEN
'!' key$ $@ + 1- c! key$ $@ find-name ?dup-IF
>r #1000000000 um* d>64 r> (int-to) EXIT THEN
>r #1000000000 um* d>64 r> (to) EXIT THEN
json-err ;
Defer next-element
......@@ -196,12 +196,12 @@ Defer next-element
: json-string! ( addr u -- )
over >r
'$' key$ c$+! key$ $@ find-name ?dup-IF (int-to) r> free throw EXIT THEN
'$' key$ c$+! key$ $@ find-name ?dup-IF (to) r> free throw EXIT THEN
\ workaround if you mean number but wrote string
'&' key-find? ?dup-IF
>r s>number? IF r> (int-to) r> free throw EXIT THEN json-err THEN
>r s>number? IF r> (to) r> free throw EXIT THEN json-err THEN
'#' key-find? ?dup-IF
>r s>number? IF drop r> (int-to) r> free throw EXIT THEN json-err THEN
>r s>number? IF drop r> (to) r> free throw EXIT THEN json-err THEN
'!' key-find? ?dup-IF drop
?date IF date>ticks set-val r> free throw EXIT THEN json-err THEN
'%' key-find? ?dup-IF drop
......
......@@ -45,6 +45,7 @@ Variable otr-mode \ global otr mode
cell +LOOP ;
Variable msg-group$
Variable redate-mode
User replay-mode
User skip-sig?
......@@ -133,7 +134,6 @@ event: :>load-msg ( group-o -- )
: !save-all-msgs ( -- )
syncfile( save-all-msgs )else(
<event :>save-all-msgs ?file-task event| ) ;
: save-msgs& ( -- )
syncfile( msg-group-o saved-msg$ +unique$ )else(
<event msg-group-o elit, :>save-msgs ?file-task event> ) ;
......
# Commands #
Version 0.9.4-20191205.
Version 0.9.4-20191212.
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