code: plan9front

ref: 75d6267a5f788162d92e7a5ae126cd8b0770aa8a
dir: /sys/src/cmd/aux/data2s.c/

#include <u.h>
#include <libc.h>
#include <bio.h>

void
main(int argc, char *argv[])
{
	Biobuf bin, bout;
	long len, slen;
	int c, x;

	if(argc != 2){
		fprint(2, "usage: data2s name\n");
		exits("usage");
	}
	Binit(&bin, 0, OREAD);
	Binit(&bout, 1, OWRITE);
	Bprint(&bout, "#define D(o,s) DATA %scode+o(SB)/8, $s\n", argv[1]);
	for(len=0; (c=Bgetc(&bin))!=Beof; len++){
		if((len&7) == 0)
			Bprint(&bout, "D(%ld,\"", len);
		if(c>=0x20 && c<=0x7E){
			if(c == '\\' || c == '"')
				Bprint(&bout, "\\");
			Bprint(&bout, "%c", c);
		}else{
			if((x=Bgetc(&bin))!=Beof)
				Bungetc(&bin);
			if(x>='0' && x<='7')
				Bprint(&bout, "\\%.3uo", c);
			else
				Bprint(&bout, "\\%uo", c);
		}
		if((len&7) == 7)
			Bprint(&bout, "\")\n");
	}
	slen = len;
	if(len & 7){
		while(len & 7){
			Bprint(&bout, "\\z");
			len++;
		}
		Bprint(&bout, "\")\n");
	}
	Bprint(&bout, "#undef D\n");
	Bprint(&bout, "GLOBL %scode+0(SB), $%ld\n", argv[1], len);
	Bprint(&bout, "GLOBL %slen+0(SB), $4\n", argv[1]);
	Bprint(&bout, "DATA %slen+0(SB)/4, $%ld\n", argv[1], slen);
	exits(0);
}