block-051.fth

( Block 51 - More Blocks )

find blk-init loaded?

blk-read(blk--)
blk-norm >t t@ blk-fn fopen-rb
   
?dupif0
t> blk-clear exitthen( fn ." %n-r/%S-" )
   
>a t> blk-buf block-sz a@ fread drop a> fclose ;
blk-read-all(--)
num-blocks for i blk-read next ;

blk-write(blk--)
blk-norm >a a@ blk-dirty?if0
adrop exitthen
   
a@ blk-buf >t a@ blk-fn fopen-wb ?dup fn ." %n-w/%S-"
   if
>r t@ block-sz r@ fwrite . r> fclosethen
atdrop ;
blk-flush(--)
num-blocks for i blk-write next ;

blk-rm(blk--)
dup blk-fn fdelete blk-clear ;
blk-cp-buf(buf blk--)
dup blk-dirty! blk-buf block-sz cmove ;
blk-cp(from to--)
>t blk-buf t> blk-cp-buf blk-flush ;
blk-mv(from to--)
over swap blk-cp blk-rm blk-flush ;
blk-ins(n to--)
1+ >t >a
   begin
t@- t@ swap blk-mv t@ a@ >while
tdrop a> blk-rm blk-flush ;

blk-load(blk--)
blk-buf outer ;
blk-init(--)
blk-clear-all blk-read-all ;

blk-init