Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | ?read-enc-hashed with good stack effect |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
0ab6fe4fbd3f0005568559176cb3c52b |
| User & Date: | bernd 2019-03-26 21:39:08.287 |
Context
|
2019-03-28
| ||
| 13:43 | Bump version number check-in: 7415c3a39d user: bernd tags: trunk, 0.8.8-20190328 | |
|
2019-03-26
| ||
| 21:39 | ?read-enc-hashed with good stack effect check-in: 0ab6fe4fbd user: bernd tags: trunk | |
| 21:24 | Avatar reload when thumbnails are ditched check-in: d0bf2a8d6c user: bernd tags: trunk | |
Changes
Changes to dvcs.fs.
| ︙ | ︙ | |||
190 191 192 193 194 195 196 |
: read-enc-hashed ( hash1 u1 -- )
\ 2dup 85type space
2dup enchash>filename patch-in$ $slurp-file
patch-in$ $@ c:decrypt
patch-in$ $@ >file-hash \ 2dup 85type cr
str= 0= !!wrong-hash!! ;
| | | | | 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 |
: read-enc-hashed ( hash1 u1 -- )
\ 2dup 85type space
2dup enchash>filename patch-in$ $slurp-file
patch-in$ $@ c:decrypt
patch-in$ $@ >file-hash \ 2dup 85type cr
str= 0= !!wrong-hash!! ;
: ?read-enc-hashed ( hash1 u1 -- addr u )
2dup dvcs-objects #@ 2dup d0= IF
2drop 2dup read-enc-hashed
patch-in$ $@ 2swap dvcs-objects #!
ELSE
2drop 2drop
THEN last# cell+ $@ ;
\ in-memory file hash+contents database
: dvcs-outfile-hash ( baddr u1 fhash u2 -- )
hash#128 umin dvcs-objects #! ;
: ?fileentry-hash ( -- )
|
| ︙ | ︙ | |||
639 640 641 642 643 644 645 |
id-check# #frees
branches[] $[]off dvcs:commits @ .id>branches-loop
id-check# #frees
dvcs( ." re:" cr branches[] [: 85type cr ;] $[]map ) ;
: branches>dvcs ( -- )
branches[] [: dup IF
dvcs( ." read enc hash: " 2dup 85type cr )
| | < | 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 |
id-check# #frees
branches[] $[]off dvcs:commits @ .id>branches-loop
id-check# #frees
dvcs( ." re:" cr branches[] [: 85type cr ;] $[]map ) ;
: branches>dvcs ( -- )
branches[] [: dup IF
dvcs( ." read enc hash: " 2dup 85type cr )
?read-enc-hashed c-state off do-cmd-loop
dvcs:clean-delta
ELSE 2drop THEN
;] $[]map ;
\ push out a revision
: >revision ( addr u -- )
|
| ︙ | ︙ |
Changes to gui.fs.
| ︙ | ︙ | |||
400 401 402 403 404 405 406 | Hash: avatar# glue new Constant glue*avatar glue*avatar >o pixelsize# 64 fm* 0e 0g glue-dup hglue-c glue! vglue-c glue! 0glue dglue-c glue! o> : read-avatar ( addr u -- addr' u' ) | | | 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 |
Hash: avatar#
glue new Constant glue*avatar
glue*avatar >o pixelsize# 64 fm* 0e 0g glue-dup hglue-c glue! vglue-c glue! 0glue dglue-c glue! o>
: read-avatar ( addr u -- addr' u' )
?read-enc-hashed mem>thumb atlas-region ;
: show-avatar ( addr u -- o )
2dup avatar# #@ nip 0= IF
2dup read-avatar 2swap avatar# #!
ELSE 2drop THEN
glue*avatar last# cell+ $@ drop }}thumb
>r {{ r> }}v 40%b ;
|
| ︙ | ︙ |