mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-24 19:31:40 +00:00
65 lines
1.7 KiB
C
65 lines
1.7 KiB
C
|
#include <stdio.h>
|
||
|
#include <stdlib.h>
|
||
|
#include <sys/stat.h>
|
||
|
|
||
|
/* Unpacks blkfs into its source form.
|
||
|
*
|
||
|
* If numerical "startat" is specified, blkno start at this number.
|
||
|
*
|
||
|
* Whitespaces at the right of every line are trimmed.
|
||
|
*/
|
||
|
void usage()
|
||
|
{
|
||
|
fprintf(stderr, "Usage: blkunpack [startat] < blkfs > blk.fs\n");
|
||
|
}
|
||
|
|
||
|
int main(int argc, char *argv[])
|
||
|
{
|
||
|
char buf[1024];
|
||
|
int blkid = 0;
|
||
|
if (argc > 2) {
|
||
|
usage();
|
||
|
return 1;
|
||
|
}
|
||
|
if (argc == 2) {
|
||
|
blkid = strtol(argv[1], NULL, 10);
|
||
|
}
|
||
|
while (fread(buf, 1024, 1, stdin) == 1) {
|
||
|
int linecnt = 0 ;
|
||
|
for (int i=1023; i>=0; i--) {
|
||
|
if (buf[i] > ' ') {
|
||
|
linecnt = (i / 64) + 1;
|
||
|
break;
|
||
|
}
|
||
|
}
|
||
|
if (linecnt) {
|
||
|
// not an empty block
|
||
|
printf("( ----- %03d )\n", blkid);
|
||
|
for (int i=0; i<linecnt; i++) {
|
||
|
char *line = &buf[i*64];
|
||
|
// line length is *not* strlen()! it's the position of the
|
||
|
// first non-WS, starting from the right. Then, we normalize
|
||
|
// nulls to space.
|
||
|
int j;
|
||
|
for (j=63; j>=0; j--) {
|
||
|
if (line[j] > ' ') {
|
||
|
break;
|
||
|
}
|
||
|
}
|
||
|
int len = j+1;
|
||
|
if (len) {
|
||
|
for (; j>=0; j--) {
|
||
|
if (line[j] == '\0') {
|
||
|
line[j] = ' ';
|
||
|
}
|
||
|
}
|
||
|
fwrite(line, len, 1, stdout);
|
||
|
}
|
||
|
fputc('\n', stdout);
|
||
|
}
|
||
|
}
|
||
|
blkid++;
|
||
|
}
|
||
|
return 0;
|
||
|
}
|