Mercurial > hg > index.cgi
view lwar/extract.c @ 582:1ede8f8621cf default tip
Actually treat "0b" as 0 since it matches the "b" suffix for binary numbers
author | William Astle <lost@l-w.ca> |
---|---|
date | Thu, 08 Aug 2024 13:46:19 -0600 |
parents | 45df37e81741 |
children |
line wrap: on
line source
/* extract.c Copyright © 2009 William Astle This file is part of LWAR. LWAR is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see <http://www.gnu.org/licenses/>. */ #include <errno.h> #include <stdio.h> #include <stdlib.h> #include <string.h> #include "lwar.h" void do_extract(void) { FILE *f; char buf[8]; char *filename; long l; int c; char fnbuf[1024]; int i; FILE *nf; f = fopen(archive_file, "rb"); if (!f) { perror("Opening archive file"); exit(1); } (void)(fread(buf, 1, 6, f) && 1); if (memcmp("LWAR1V", buf, 6)) { fprintf(stderr, "%s is not a valid archive file.\n", archive_file); exit(1); } for (;;) { c = fgetc(f); if (ferror(f)) { perror("Reading archive file"); exit(1); } if (c == EOF) return; // find the end of the file name if (!c) return; i = 0; while (c) { fnbuf[i++] = c; c = fgetc(f); if (c == EOF || ferror(f)) { fprintf(stderr, "Bad archive file\n"); exit(1); } } fnbuf[i] = 0; filename = get_file_name(fnbuf); // get length of archive member l = 0; c = fgetc(f); l = c << 24; c = fgetc(f); l |= c << 16; c = fgetc(f); l |= c << 8; c = fgetc(f); l |= c; for (i = 0; i < nfiles; i++) { if (!strcmp(get_file_name(files[i]), filename)) break; } if (i < nfiles || nfiles == 0) { // extract the file nf = fopen(filename, "wb"); if (!nf) { fprintf(stderr, "Cannot extract '%s': %s\n", filename, strerror(errno)); exit(1); } while (l) { c = fgetc(f); fputc(c, nf); l--; } fclose(nf); } else { // skip the file fseek(f, l, SEEK_CUR); } } }