kolibrios/programs/fs/unzip60/qdos/callstub.c
siemargl e9b1c1bac6 unzip initial commit
git-svn-id: svn://kolibrios.org@6725 a494cfbc-eb01-0410-851d-a64ba20cac60
2016-11-18 13:40:05 +00:00

225 lines
5.5 KiB
C

/*
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;
}