struct vfont_file
get_font(const char* fontname, void (*vfont_log)(const char *fmt, ...))
{
struct vfont_file font;
struct header lochdr;
static char fname[FONTNAMESZ];
/* Initialize vfont */
memset(&font, 0, sizeof(struct vfont_file));
if (fontname == NULL)
fontname = FONTNAME;
if (fontname[0] != '/') {
/* absolute path */
const char *vfont = bu_brlcad_data("vfont", 1);
if (vfont)
snprintf(fname, FONTNAMESZ, "%s/%s", vfont, fontname);
else
bu_strlcpy(fname, fontname, sizeof(fname));
} else
bu_strlcpy(fname, fontname, sizeof(fname));
/* Open the file and read in the header information. */
font.ffdes = fopen(fname, "rb");
if (font.ffdes == NULL) {
if (vfont_log)
vfont_log("Error opening font file '%s'\n", fname);
font.ffdes = NULL;
return font;
}
if (fread((char *)&lochdr, (int)sizeof(struct header), 1, font.ffdes) != 1) {
if (vfont_log)
vfont_log("get_Font() read failed!\n");
font.ffdes = NULL;
return font;
}
SWAB(lochdr.magic);
SWAB(lochdr.size);
SWAB(lochdr.maxx);
SWAB(lochdr.maxy);
SWAB(lochdr.xtend);
if (lochdr.magic != 0436) {
if (vfont_log)
vfont_log("Not a font file \"%s\": magic=0%o\n", fname, (int)lochdr.magic);
font.ffdes = NULL;
return font;
}
font.hdr = lochdr;
/* Read in the directory for the font. */
if (fread((char *) font.dir, (int)sizeof(struct dispatch), 256, font.ffdes) != 256) {
if (vfont_log)
vfont_log("get_Font() read failed!\n");
font.ffdes = NULL;
return font;
}
/* Addresses of characters in the file are relative to point in
* the file after the directory, so grab the current position.
*/
font.offset = bu_ftell(font.ffdes);
return font;
}
int main(int argc, char *argv[])
{
int fd_vmlinux, fd_initrd, fd_outfile;
FILHDR efile;
AOUTHDR eaout;
SCNHDR esecs[3];
struct stat st;
char buf[1024];
unsigned long loadaddr;
unsigned long initrd_header[2];
int i, cnt;
int swab = 0;
if (argc != 4) {
printf("Usage: %s <vmlinux> <initrd> <outfile>\n", argv[0]);
exit(1);
}
if ((fd_vmlinux = open (argv[1], O_RDONLY)) < 0)
die("open vmlinux");
if (read (fd_vmlinux, &efile, sizeof efile) != sizeof efile)
die("read file header");
if (read (fd_vmlinux, &eaout, sizeof eaout) != sizeof eaout)
die("read aout header");
if (read (fd_vmlinux, esecs, sizeof esecs) != sizeof esecs)
die("read section headers");
/*
* check whether the file is good for us
*/
/* TBD */
/*
* check, if we have to swab words
*/
if (ntohs(0xaa55) == 0xaa55) {
if (efile.f_magic == swab16(MIPSELMAGIC))
swab = 1;
} else {
if (efile.f_magic == swab16(MIPSEBMAGIC))
swab = 1;
}
/* make sure we have an empty data segment for the initrd */
if (eaout.dsize || esecs[1].s_size) {
fprintf(stderr, "Data segment not empty. Giving up!\n");
exit(1);
}
if ((fd_initrd = open (argv[2], O_RDONLY)) < 0)
die("open initrd");
if (fstat (fd_initrd, &st) < 0)
die("fstat initrd");
loadaddr = ((SWAB(esecs[2].s_vaddr) + SWAB(esecs[2].s_size)
+ MIPS_PAGE_SIZE-1) & ~MIPS_PAGE_MASK) - 8;
if (loadaddr < (SWAB(esecs[2].s_vaddr) + SWAB(esecs[2].s_size)))
loadaddr += MIPS_PAGE_SIZE;
initrd_header[0] = SWAB(0x494E5244);
initrd_header[1] = SWAB(st.st_size);
eaout.dsize = esecs[1].s_size = initrd_header[1] = SWAB(st.st_size+8);
eaout.data_start = esecs[1].s_vaddr = esecs[1].s_paddr = SWAB(loadaddr);
if ((fd_outfile = open (argv[3], O_RDWR|O_CREAT|O_TRUNC, 0666)) < 0)
die("open outfile");
if (write (fd_outfile, &efile, sizeof efile) != sizeof efile)
die("write file header");
if (write (fd_outfile, &eaout, sizeof eaout) != sizeof eaout)
die("write aout header");
if (write (fd_outfile, esecs, sizeof esecs) != sizeof esecs)
die("write section headers");
/* skip padding */
if(lseek(fd_vmlinux, SWAB(esecs[0].s_scnptr), SEEK_SET) == (off_t)-1)
die("lseek vmlinux");
if(lseek(fd_outfile, SWAB(esecs[0].s_scnptr), SEEK_SET) == (off_t)-1)
die("lseek outfile");
/* copy text segment */
cnt = SWAB(eaout.tsize);
while (cnt) {
if ((i = read (fd_vmlinux, buf, sizeof buf)) <= 0)
die("read vmlinux");
if (write (fd_outfile, buf, i) != i)
die("write vmlinux");
cnt -= i;
}
if (write (fd_outfile, initrd_header, sizeof initrd_header) != sizeof initrd_header)
die("write initrd header");
while ((i = read (fd_initrd, buf, sizeof buf)) > 0)
if (write (fd_outfile, buf, i) != i)
die("write initrd");
close(fd_vmlinux);
close(fd_initrd);
return 0;
}
