Replace msg-logs by msg:log[]

parent c3b96abf
......@@ -709,11 +709,10 @@ previous
: cmdtmpnest ( addr u -- )
$>align tmpkey@ key| dup IF
key( ." tmpnest key: " 2dup 85type forth:cr ) decrypt$
IF tmp-crypt-val do-nest
ELSE
<err> ." tmpnest failed, uncmd" <default> forth:cr
net2o:see-me 2drop un-cmd THEN
ELSE 2drop 2drop un-cmd THEN ;
IF tmp-crypt-val do-nest EXIT THEN
cmd( <err> ." tmpnest failed, uncmd" <default> forth:cr
net2o:see-me )
ELSE 2drop THEN 2drop un-cmd ;
: cmdencnest ( addr u -- )
$>align tmpkey@ dup IF
key( ." encnest key: " 2dup 85type forth:cr ) decrypt$
......
......@@ -613,14 +613,14 @@ previous
: .hash ( addr -- )
[: dup $@ 85type ." -> " cell+ $@ 85type cr ;] #map ;
: chat>branches-loop ( o:commit -- )
last# msg-log@ over { log } bounds ?DO
msg-log@ over { log } bounds ?DO
re$ $free object$ $free
I $@ ['] msg:display catch IF ." invalid entry" cr 2drop THEN
cell +LOOP log free throw
dvcs( ." === id>patch ===" cr id>patch# .hash
." === id>snap ===" cr id>snap# .hash ) ;
: chat>branches ( o:dvcs -- )
project:project$ $@ @/ 2drop ?msg-log dvcs:commits @ .chat>branches-loop ;
project:project$ $@ @/ 2drop >group dvcs:commits @ .chat>branches-loop ;
: >branches ( addr u -- )
$make branches[] >back ;
......@@ -675,7 +675,7 @@ scope{ dvcs
: display-logn ( addr u n -- )
project:branch$ $@ { d: branch }
dvcs:new-dvcs-log >o
cells >r ?msg-log last# msg-log@ 2dup { log u }
cells >r >group msg-log@ 2dup { log u }
dup r> - 0 max dup >r /string r> cell/ -rot bounds ?DO
dvcs:clear-log I $@ ['] msg:display catch
IF ." invalid entry" cr 2drop
......@@ -862,11 +862,11 @@ previous
dvcs:dispose-dvcs o> ;
: chat>searchs-loop ( o:commit -- )
last# msg-log@ over { log } bounds ?DO
msg-log@ over { log } bounds ?DO
I $@ ['] msg:display catch IF ." invalid entry" cr 2drop THEN
cell +LOOP log free throw ;
: search-last-rev ( -- addr u )
project:project$ $@ @/ 2drop ?msg-log
project:project$ $@ @/ 2drop >group
project:branch$ $@
dvcs:searchs @ >o match:tag$ $!
chat>searchs-loop match:id$ $@ o> ;
......@@ -985,7 +985,7 @@ previous
: dvcs-data-sync ( -- )
sync-file-list[] $[]off branches[] $[]off
msg-group$ $@ ?msg-log
msg-group$ $@ >group
dvcs:commits @ .chat>branches-loop
dvcs:commits @ .dvcs-needed-files
sync-file-list[] $[]# 0> connection and
......
This diff is collapsed.
......@@ -106,7 +106,7 @@ $400 Constant pow-align#
: vault-aligned ( len -- len' )
\G Align vault to minimum granularity plus relative alignment
\G to hide the actual file-size
1- 0 >r BEGIN dup pow-align# u> WHILE 2/ r> 1+ >r REPEAT
1- 0 >r BEGIN dup pow-align# u> WHILE 1 rshift r> 1+ >r REPEAT
1+ r> lshift min-align# 1- + min-align# negate and ;
Variable enc-mode
......
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