| 0,0 → 1,224 |
|---|
| /* |
| Copyright (c) 1990-2000 Info-ZIP. All rights reserved. |
| |
| See the accompanying file LICENSE, version 2000-Apr-09 or later |
| (the contents of which are also included in unzip.h) for terms of use. |
| If, for some reason, these files are missing, the Info-ZIP license |
| also may be found at: ftp://ftp.info-zip.org/pub/infozip/license.html |
| */ |
| #include <qdos.h> |
| #include <limits.h> |
| #include <string.h> |
| |
| struct |
| { |
| short flag1; |
| short flag2; |
| long offset; // The offset from &ds to unzipsfx exe |
| long sfxlen; // size of unzipsfx program |
| long sfxdsiz; // data size of unzipsfx program |
| long sfxnam; // Name offset from start of sfxprog |
| long ziplen; // size of zip file |
| } ds = {0x4afb, 0x4afb, 0}; |
| |
| |
| typedef struct {short len; char chrs[1];} __QP_t; |
| |
| #define __QA(l) struct {short len; char chrs[(l)+1];} |
| |
| #define T1 \ |
| "\nThis is a self-extracting zip archive. In order to process the\n" \ |
| "archive you will be asked to give the name of a temporary directory\n" \ |
| "which must have at least as much free space as this SFX file.\n\n" \ |
| "You will also be asked for the name of the directory to which the\n" \ |
| "files are extracted. This directory _MUST_ exist. If you do not give\n" \ |
| "an output directory, the current default is used.\n\n\n" \ |
| "Device/directory for temporary files: " |
| #define T2 "Device/directory to extract to : " |
| |
| #define T1LEN (sizeof(T1)-1) |
| #define T2LEN (sizeof(T2)-1) |
| |
| static void xgetcwd (__QP_t *s) |
| { |
| extern char *_sys_var; |
| static __QP_t **q; |
| |
| if (q = (__QP_t ** q) (_sys_var + 0xAC + 4)) |
| { |
| memcpy (s->chrs, (*q)->chrs, (*q)->len); |
| s->len = (*q)->len; |
| *(s->chrs+s->len) = 0; |
| } |
| } |
| |
| int checkdir(__QP_t *dir) |
| { |
| qdirect_t s; |
| int r,ch; |
| |
| if(dir->len > 1) |
| { |
| if(*(dir->chrs + dir->len-2) == '_') |
| { |
| *(dir->chrs + dir->len-1) = 0; |
| dir->len--; |
| } |
| else |
| { |
| *(dir->chrs + dir->len-1) = '_'; |
| } |
| } |
| else |
| { |
| xgetcwd(dir); |
| } |
| |
| r = ERR_NF; |
| |
| if((ch = io_open(dir->chrs, 4)) > 0) |
| { |
| if((r = fs_headr(ch, -1, &s, sizeof(s))) > 0) |
| { |
| r = (s.d_type == 0xff) ? 0 : ERR_NF; |
| } |
| io_close(ch); |
| } |
| return r; |
| } |
| |
| int makesfx(__QP_t *tmp) |
| { |
| char *p = (char *)&ds; |
| char *q; |
| char txt[PATH_MAX]; |
| int fd,r = 0; |
| qdirect_t qd; |
| |
| memcpy(txt, tmp->chrs, tmp->len); |
| memcpy(txt+tmp->len, "SFX_EXE", 8); |
| |
| q = p + ds.offset; |
| if((fd = io_open(txt, NEW_OVER)) > 0) |
| { |
| memcpy(txt+tmp->len+4, "DAT", 4); |
| memcpy(q+ds.sfxnam, txt, tmp->len+8); |
| fs_save(fd, q, ds.sfxlen); |
| qd.d_length = ds.sfxlen; |
| qd.d_datalen = ds.sfxdsiz; |
| qd.d_type = 1; |
| fs_heads(fd, -1, &qd, sizeof(qd)); |
| io_close(fd); |
| if((fd = io_open(txt, NEW_OVER)) > 0) |
| { |
| q += ds.sfxlen; |
| fs_save(fd, q, ds.ziplen); |
| io_close(fd); |
| } |
| else r = fd; |
| } |
| else r = fd; |
| return r; |
| } |
| |
| #define T3 "\n\nTo extract the files, run the command \"LRUN " |
| #define T4 "Press any key to exit " |
| #define T3LEN (sizeof(T3)-1) |
| #define T4LEN (sizeof(T4)-1) |
| |
| int unpackit ( __QP_t *tmpdir, __QP_t *outdir, char *basfil, int con) |
| { |
| int ch, r = 0; |
| char c; |
| |
| memcpy(basfil, tmpdir->chrs,tmpdir->len); |
| memcpy(basfil+tmpdir->len,"SFX_BAS", 8); |
| |
| if((ch = io_open(basfil, NEW_OVER)) > 0) |
| { |
| char *p,txt[80]; |
| int l; |
| |
| p = txt; |
| *p++ = 'E'; |
| *p++ = 'W'; |
| *p++ = ' '; |
| memcpy(p, tmpdir->chrs, tmpdir->len); |
| p += tmpdir->len; |
| memcpy(p, "SFX_EXE;'-d ", 12); |
| p += 12; |
| memcpy(p, outdir->chrs, outdir->len); |
| p += outdir->len; |
| *p++ = '\''; |
| *p++ = '\n'; |
| io_sstrg(ch, -1, txt, (int)(p-txt)); |
| |
| memcpy(txt, "delete ", 7); |
| p = txt + 7; |
| memcpy(p, tmpdir->chrs, tmpdir->len); |
| p += tmpdir->len; |
| memcpy(p, "SFX_EXE\n", 8); |
| p += 4; |
| l = (int)(p+4-txt); |
| io_sstrg(ch, -1, txt, l); |
| memcpy(p, "DAT\n", 4); |
| io_sstrg(ch, -1, txt, l); |
| memcpy(p, "BAS\n", 4); |
| io_sstrg(ch, -1, txt, l); |
| io_close(ch); |
| makesfx((__QP_t *)tmpdir); |
| } |
| else r = ch; |
| |
| if(r == 0) |
| { |
| char t3[80]; |
| char *p; |
| p = t3; |
| memcpy(p, T3, T3LEN); |
| p += T3LEN; |
| memcpy (p, basfil, tmpdir->len+7); |
| p += tmpdir->len+7; |
| *p++ = '"'; |
| *p++ = '\n'; |
| io_sstrg(con, -1, t3, (int)(p-t3)); |
| } |
| io_sstrg(con, -1, T4, T4LEN); |
| io_fbyte(con, (5*60*50), &c); |
| return r; |
| } |
| |
| int main(void) |
| { |
| int con; |
| int r,n; |
| __QA(PATH_MAX) tmpdir; |
| __QA(PATH_MAX) outdir; |
| char basfil[PATH_MAX]; |
| |
| con = io_open("con_480x160a16x38", 0); |
| sd_bordr(con, -1, 7, 2); |
| sd_clear(con, -1); |
| sd_cure (con, -1); |
| |
| io_sstrg(con, -1, T1, T1LEN); |
| if((tmpdir.len = io_fline(con, -1, tmpdir.chrs, PATH_MAX-1)) > 1) |
| { |
| if((r = checkdir((__QP_t *)&tmpdir)) == 0) |
| { |
| io_sstrg(con, -1, T2, T2LEN); |
| if((outdir.len = io_fline(con, -1, outdir.chrs, PATH_MAX-1)) > 0) |
| { |
| if((r = checkdir((__QP_t *)&outdir)) == 0) |
| { |
| r = unpackit ((__QP_t *)&tmpdir, (__QP_t *)&outdir, |
| basfil, con); |
| } |
| } |
| } |
| } |
| sd_bordr(con, -1, 0, 0); |
| sd_clear(con, -1); |
| io_close(con); |
| return r; |
| } |