1/*
2  Copyright (c) 1990-2000 Info-ZIP.  All rights reserved.
3
4  See the accompanying file LICENSE, version 2000-Apr-09 or later
5  (the contents of which are also included in unzip.h) for terms of use.
6  If, for some reason, all these files are missing, the Info-ZIP license
7  also may be found at:  ftp://ftp.info-zip.org/pub/infozip/license.html
8*/
9/*---------------------------------------------------------------------------
10
11  globalsf.c
12	*** This is only needed to build funzip correctly and is a direct copy
13	of globals.c. Don't forget to update here if you update globals.c!! ***
14
15  ---------------------------------------------------------------------------*/
16
17
18#define FUNZIP
19#define UNZIP_INTERNAL
20#include "unzip.h"
21
22#ifndef FUNZIP
23/* initialization of sigs is completed at runtime so unzip(sfx) executable
24 * won't look like a zipfile
25 */
26char central_hdr_sig[4] = {0, 0, 0x01, 0x02};
27char local_hdr_sig[4]   = {0, 0, 0x03, 0x04};
28char end_central_sig[4] = {0, 0, 0x05, 0x06};
29/* extern char extd_local_sig[4] = {0, 0, 0x07, 0x08};  NOT USED YET */
30
31ZCONST char *fnames[2] = {"*", NULL};   /* default filenames vector */
32#endif
33
34
35#ifndef REENTRANT
36   Uz_Globs G;
37#else /* REENTRANT */
38
39#  ifndef USETHREADID
40     Uz_Globs *GG;
41#  else /* USETHREADID */
42#    define THREADID_ENTRIES  0x40
43
44     int lastScan;
45     Uz_Globs  *threadPtrTable[THREADID_ENTRIES];
46     ulg        threadIdTable [THREADID_ENTRIES] = {
47         0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0,
48         0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0,    /* Make sure there are */
49         0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0,    /* THREADID_ENTRIES 0s */
50         0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0
51     };
52
53     static ZCONST char Far TooManyThreads[] =
54       "error:  more than %d simultaneous threads.\n\
55        Some threads are probably not calling DESTROYTHREAD()\n";
56     static ZCONST char Far EntryNotFound[] =
57       "error:  couldn't find global pointer in table.\n\
58        Maybe somebody accidentally called DESTROYTHREAD() twice.\n";
59     static ZCONST char Far GlobalPointerMismatch[] =
60       "error:  global pointer in table does not match pointer passed as\
61 parameter\n";
62
63static void registerGlobalPointer OF((__GPRO));
64
65
66
67static void registerGlobalPointer(__G)
68    __GDEF
69{
70    int scan=0;
71    ulg tid = GetThreadId();
72
73    while (threadIdTable[scan] && scan < THREADID_ENTRIES)
74        scan++;
75
76    if (scan == THREADID_ENTRIES) {
77        ZCONST char *tooMany = LoadFarString(TooManyThreads);
78        Info(slide, 0x421, ((char *)slide, tooMany, THREADID_ENTRIES));
79        free(pG);
80        EXIT(PK_MEM);   /* essentially memory error before we've started */
81    }
82
83    threadIdTable [scan] = tid;
84    threadPtrTable[scan] = pG;
85    lastScan = scan;
86}
87
88
89
90void deregisterGlobalPointer(__G)
91    __GDEF
92{
93    int scan=0;
94    ulg tid = GetThreadId();
95
96
97    while (threadIdTable[scan] != tid && scan < THREADID_ENTRIES)
98        scan++;
99
100/*---------------------------------------------------------------------------
101    There are two things we can do if we can't find the entry:  ignore it or
102    scream.  The most likely reason for it not to be here is the user calling
103    this routine twice.  Since this could cause BIG problems if any globals
104    are accessed after the first call, we'd better scream.
105  ---------------------------------------------------------------------------*/
106
107    if (scan == THREADID_ENTRIES || threadPtrTable[scan] != pG) {
108        ZCONST char *noEntry;
109        if (scan == THREADID_ENTRIES)
110            noEntry = LoadFarString(EntryNotFound);
111        else
112            noEntry = LoadFarString(GlobalPointerMismatch);
113        Info(slide, 0x421, ((char *)slide, noEntry));
114        EXIT(PK_WARN);   /* programming error, but after we're all done */
115    }
116
117    threadIdTable [scan] = 0;
118    lastScan = scan;
119    free(threadPtrTable[scan]);
120}
121
122
123
124Uz_Globs *getGlobalPointer()
125{
126    int scan=0;
127    ulg tid = GetThreadId();
128
129    while (threadIdTable[scan] != tid && scan < THREADID_ENTRIES)
130        scan++;
131
132/*---------------------------------------------------------------------------
133    There are two things we can do if we can't find the entry:  ignore it or
134    scream.  The most likely reason for it not to be here is the user calling
135    this routine twice.  Since this could cause BIG problems if any globals
136    are accessed after the first call, we'd better scream.
137  ---------------------------------------------------------------------------*/
138
139    if (scan == THREADID_ENTRIES) {
140        ZCONST char *noEntry = LoadFarString(EntryNotFound);
141        fprintf(stderr, noEntry);  /* can't use Info w/o a global pointer */
142        EXIT(PK_ERR);   /* programming error while still working */
143    }
144
145    return threadPtrTable[scan];
146}
147
148#  endif /* ?USETHREADID */
149#endif /* ?REENTRANT */
150
151
152
153Uz_Globs *globalsCtor()
154{
155#ifdef REENTRANT
156    Uz_Globs *pG = (Uz_Globs *)malloc(sizeof(Uz_Globs));
157
158    if (!pG)
159        return (Uz_Globs *)NULL;
160#endif /* REENTRANT */
161
162    /* for REENTRANT version, G is defined as (*pG) */
163
164    memzero(&G, sizeof(Uz_Globs));
165
166#ifndef FUNZIP
167#ifdef CMS_MVS
168    uO.aflag=1;
169    uO.C_flag=1;
170#endif
171#ifdef TANDEM
172    uO.aflag=1;     /* default to '-a' auto create Text Files as type 101 */
173#endif
174
175    uO.lflag=(-1);
176    G.wildzipfn = "";
177    G.pfnames = (char **)fnames;
178    G.pxnames = (char **)&fnames[1];
179    G.pInfo = G.info;
180    G.sol = TRUE;          /* at start of line */
181
182    G.message = UzpMessagePrnt;
183    G.input = UzpInput;           /* not used by anyone at the moment... */
184#if defined(WINDLL) || defined(MACOS)
185    G.mpause = NULL;              /* has scrollbars:  no need for pausing */
186#else
187    G.mpause = UzpMorePause;
188#endif
189    G.decr_passwd = UzpPassword;
190#endif /* !FUNZIP */
191
192#if (!defined(DOS_FLX_H68_NLM_OS2_W32) && !defined(AMIGA) && !defined(RISCOS))
193#if (!defined(MACOS) && !defined(ATARI) && !defined(VMS))
194    G.echofd = -1;
195#endif /* !(MACOS || ATARI || VMS) */
196#endif /* !(DOS_FLX_H68_NLM_OS2_W32 || AMIGA || RISCOS) */
197
198#ifdef SYSTEM_SPECIFIC_CTOR
199    SYSTEM_SPECIFIC_CTOR(__G);
200#endif
201
202#ifdef REENTRANT
203#ifdef USETHREADID
204    registerGlobalPointer(__G);
205#else
206    GG = &G;
207#endif /* ?USETHREADID */
208#endif /* REENTRANT */
209
210    return &G;
211}
212