xref: /plan9/sys/src/cmd/aux/data2s.c (revision 219b2ee8daee37f4aad58d63f21287faa8e4ffdc)
1*219b2ee8SDavid du Colombier #include <u.h>
2*219b2ee8SDavid du Colombier #include <libc.h>
3*219b2ee8SDavid du Colombier #include <bio.h>
4*219b2ee8SDavid du Colombier 
5*219b2ee8SDavid du Colombier void
6*219b2ee8SDavid du Colombier main(int argc, char *argv[])
7*219b2ee8SDavid du Colombier {
8*219b2ee8SDavid du Colombier 	Biobuf bin, bout;
9*219b2ee8SDavid du Colombier 	long len;
10*219b2ee8SDavid du Colombier 	int c;
11*219b2ee8SDavid du Colombier 
12*219b2ee8SDavid du Colombier 	if(argc != 2){
13*219b2ee8SDavid du Colombier 		fprint(2, "usage: data2s name\n");
14*219b2ee8SDavid du Colombier 		exits("usage");
15*219b2ee8SDavid du Colombier 	}
16*219b2ee8SDavid du Colombier 	Binit(&bin, 0, OREAD);
17*219b2ee8SDavid du Colombier 	Binit(&bout, 1, OWRITE);
18*219b2ee8SDavid du Colombier 	for(len=0; (c=Bgetc(&bin))!=Beof; len++){
19*219b2ee8SDavid du Colombier 		if((len&7) == 0)
20*219b2ee8SDavid du Colombier 			Bprint(&bout, "DATA %scode+%ld(SB)/8, $\"", argv[1], len);
21*219b2ee8SDavid du Colombier 		if(c)
22*219b2ee8SDavid du Colombier 			Bprint(&bout, "\\%uo", c);
23*219b2ee8SDavid du Colombier 		else
24*219b2ee8SDavid du Colombier 			Bprint(&bout, "\\z");
25*219b2ee8SDavid du Colombier 		if((len&7) == 7)
26*219b2ee8SDavid du Colombier 			Bprint(&bout, "\"\n");
27*219b2ee8SDavid du Colombier 	}
28*219b2ee8SDavid du Colombier 	if(len & 7){
29*219b2ee8SDavid du Colombier 		while(len & 7){
30*219b2ee8SDavid du Colombier 			Bprint(&bout, "\\z");
31*219b2ee8SDavid du Colombier 			len++;
32*219b2ee8SDavid du Colombier 		}
33*219b2ee8SDavid du Colombier 		Bprint(&bout, "\"\n");
34*219b2ee8SDavid du Colombier 	}
35*219b2ee8SDavid du Colombier 	Bprint(&bout, "GLOBL %scode+0(SB), $%ld\n", argv[1], len);
36*219b2ee8SDavid du Colombier 	Bprint(&bout, "GLOBL %slen+0(SB), $4\n", argv[1]);
37*219b2ee8SDavid du Colombier 	Bprint(&bout, "DATA %slen+0(SB)/4, $%ld\n", argv[1], len);
38*219b2ee8SDavid du Colombier 	exits(0);
39*219b2ee8SDavid du Colombier }
40