mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-29 21:49:17 +00:00
7 lines
251 B
Bash
7 lines
251 B
Bash
|
#!/bin/sh
|
||
|
|
# small tool to dump all screens of a block-file
|
||
|
|
# on screen. Used to create source files for fossil
|
||
|
|
# checkin. Depends on GNU-Forth (gforth)
|
||
|
|
|
||
|
|
gforth -e ": bdump 0 do i list loop ; use $1 get-block-fid file-size drop drop 1024 / bdump bye"
|