You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2078 lines
73 KiB
2078 lines
73 KiB
/*
|
|
* Created by CSD YACC (IBM PC) from "implib.y" */
|
|
# define T_FALIAS 257
|
|
# define T_KCLASS 258
|
|
# define T_KNAME 259
|
|
# define T_KLIBRARY 260
|
|
# define T_KBASE 261
|
|
# define T_KDEVICE 262
|
|
# define T_KPHYSICAL 263
|
|
# define T_KVIRTUAL 264
|
|
# define T_ID 265
|
|
# define T_NUMBER 266
|
|
# define T_KDESCRIPTION 267
|
|
# define T_KHEAPSIZE 268
|
|
# define T_KSTACKSIZE 269
|
|
# define T_KMAXVAL 270
|
|
# define T_KCODE 271
|
|
# define T_KCONSTANT 272
|
|
# define T_FDISCARDABLE 273
|
|
# define T_FNONDISCARDABLE 274
|
|
# define T_FEXEC 275
|
|
# define T_FFIXED 276
|
|
# define T_FMOVABLE 277
|
|
# define T_FSWAPPABLE 278
|
|
# define T_FSHARED 279
|
|
# define T_FMIXED 280
|
|
# define T_FNONSHARED 281
|
|
# define T_FPRELOAD 282
|
|
# define T_FINVALID 283
|
|
# define T_FLOADONCALL 284
|
|
# define T_FRESIDENT 285
|
|
# define T_FPERM 286
|
|
# define T_FCONTIG 287
|
|
# define T_FDYNAMIC 288
|
|
# define T_FNONPERM 289
|
|
# define T_KDATA 290
|
|
# define T_FNONE 291
|
|
# define T_FSINGLE 292
|
|
# define T_FMULTIPLE 293
|
|
# define T_KSEGMENTS 294
|
|
# define T_KOBJECTS 295
|
|
# define T_KSECTIONS 296
|
|
# define T_KSTUB 297
|
|
# define T_KEXPORTS 298
|
|
# define T_KEXETYPE 299
|
|
# define T_KSUBSYSTEM 300
|
|
# define T_FDOS 301
|
|
# define T_FOS2 302
|
|
# define T_FUNKNOWN 303
|
|
# define T_FWINDOWS 304
|
|
# define T_FDEV386 305
|
|
# define T_FMACINTOSH 306
|
|
# define T_FWINDOWSNT 307
|
|
# define T_FWINDOWSCHAR 308
|
|
# define T_FPOSIX 309
|
|
# define T_FNT 310
|
|
# define T_FUNIX 311
|
|
# define T_KIMPORTS 312
|
|
# define T_KNODATA 313
|
|
# define T_KOLD 314
|
|
# define T_KCONFORM 315
|
|
# define T_KNONCONFORM 316
|
|
# define T_KEXPANDDOWN 317
|
|
# define T_KNOEXPANDDOWN 318
|
|
# define T_EQ 319
|
|
# define T_AT 320
|
|
# define T_KRESIDENTNAME 321
|
|
# define T_KNONAME 322
|
|
# define T_STRING 323
|
|
# define T_DOT 324
|
|
# define T_COLON 325
|
|
# define T_COMA 326
|
|
# define T_ERROR 327
|
|
# define T_FHUGE 328
|
|
# define T_FIOPL 329
|
|
# define T_FNOIOPL 330
|
|
# define T_PROTMODE 331
|
|
# define T_FEXECREAD 332
|
|
# define T_FRDWR 333
|
|
# define T_FRDONLY 334
|
|
# define T_FINITGLOB 335
|
|
# define T_FINITINST 336
|
|
# define T_FTERMINST 337
|
|
# define T_FWINAPI 338
|
|
# define T_FWINCOMPAT 339
|
|
# define T_FNOTWINCOMPAT 340
|
|
# define T_FPRIVATE 341
|
|
# define T_FNEWFILES 342
|
|
# define T_REALMODE 343
|
|
# define T_FUNCTIONS 344
|
|
# define T_APPLOADER 345
|
|
# define T_OVL 346
|
|
# define T_KVERSION 347
|
|
|
|
|
|
/* SCCSID = %W% %E% */
|
|
#if _M_IX86 >= 300
|
|
#define M_I386 1
|
|
#define HOST32
|
|
#ifndef _WIN32
|
|
#define i386
|
|
#endif
|
|
#endif
|
|
|
|
#ifdef _WIN32
|
|
#ifndef HOST32
|
|
#define HOST32
|
|
#endif
|
|
#endif
|
|
|
|
#include <basetsd.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <malloc.h>
|
|
#include <stdlib.h>
|
|
#include <process.h>
|
|
#include <stdarg.h>
|
|
#include <io.h>
|
|
#include "impliber.h"
|
|
#include "verimp.h" /* VERSION_STRING header */
|
|
|
|
#ifdef _MBCS
|
|
#define _CRTVAR1
|
|
#include <mbctype.h>
|
|
#include <mbstring.h>
|
|
#endif
|
|
|
|
|
|
#define EXE386 0
|
|
#define NOT !
|
|
#define AND &&
|
|
#define OR ||
|
|
#define NEAR
|
|
#include <newexe.h>
|
|
|
|
typedef unsigned char BYTE; /* Byte */
|
|
#ifdef HOST32
|
|
#define FAR
|
|
#define HUGE
|
|
#define NEAR
|
|
#define FSTRICMP _stricmp
|
|
#define PASCAL
|
|
#else
|
|
#define FAR far
|
|
#define HUGE huge
|
|
#define FSTRICMP _fstricmp
|
|
#define PASCAL __pascal
|
|
#endif
|
|
#ifndef TRUE
|
|
#define TRUE 1
|
|
#endif
|
|
#ifndef FALSE
|
|
#define FALSE 0
|
|
#endif
|
|
#define C8_IDE TRUE
|
|
|
|
#ifndef LOCAL
|
|
#ifndef _WIN32
|
|
#define LOCAL static
|
|
#else
|
|
#define LOCAL
|
|
#endif
|
|
#endif
|
|
#define WRBIN "wb" /* Write only binary mode */
|
|
#define RDBIN "rb" /* Read only binary mode */
|
|
#define UPPER(c) (((c)>='a' && (c)<='z')? (c) - 'a' + 'A': (c))
|
|
/* Raise char to upper case */
|
|
|
|
|
|
#define YYS_WD(x) (x)._wd /* Access macro */
|
|
#define YYS_BP(x) (x)._bp /* Access macro */
|
|
#define SBMAX 255 /* Max. of length-prefixed string */
|
|
#define MAXDICLN 997 /* Max. no. of pages in dictionary */
|
|
#define PAGLEN 512 /* 512 bytes per page */
|
|
#define THEADR 0x80 /* THEADR record type */
|
|
#define COMENT 0x88 /* COMENT record type */
|
|
#define MODEND 0x8A /* MODEND record type */
|
|
#define PUBDEF 0x90 /* PUBDEF record type */
|
|
#define LIBHDR 0xF0 /* Library header recod */
|
|
#define DICHDR 0xF1 /* Dictionary header record */
|
|
#define MSEXT 0xA0 /* OMF extension comment class */
|
|
#define IMPDEF 0x01 /* IMPort DEFinition record */
|
|
#define NBUCKETS 37 /* Thirty-seven buckets per page */
|
|
#define PAGEFULL ((char)(0xFF)) /* Page full flag */
|
|
#define FREEWD 19 /* Word index of first free word */
|
|
#define WPP (PAGLEN >> 1) /* Number of words per page */
|
|
#define pagout(pb) fwrite(pb,1,PAGLEN,fo)
|
|
/* Write dictionary page to library */
|
|
#define INCLUDE_DIR 0xffff /* Include directive for the lexer */
|
|
#define MAX_NEST 7
|
|
#define IO_BUF_SIZE 512
|
|
|
|
typedef struct import /* Import record */
|
|
{
|
|
struct import *i_next; /* Link to next in list */
|
|
char *i_extnam; /* Pointer to external name */
|
|
char *i_internal; /* Pointer to internal name */
|
|
unsigned short i_ord; /* Ordinal number */
|
|
unsigned short i_flags; /* Extra flags */
|
|
}
|
|
IMPORT; /* Import record */
|
|
|
|
#define I_NEXT(x) (x).i_next
|
|
#define I_EXTNAM(x) (x).i_extnam
|
|
#define I_INTNAM(x) (x).i_internal
|
|
#define I_ORD(x) (x).i_ord
|
|
#define I_FLAGS(x) (x).i_flags
|
|
|
|
|
|
typedef unsigned char byte;
|
|
typedef unsigned short word;
|
|
|
|
|
|
#ifdef M68000
|
|
#define strrchr rindex
|
|
#endif
|
|
|
|
LOCAL int fIgnorecase = 1;/* True if ignoring case - default */
|
|
LOCAL int fBannerOnScreen;/* True if banner on screen */
|
|
LOCAL int fFileNameExpected = 1;
|
|
LOCAL int fNTdll; /* If true add file name extension to module names */
|
|
LOCAL int fIgnorewep = 0; /* True if ignoring multiple WEPs */
|
|
LOCAL FILE *includeDisp[MAX_NEST];
|
|
// Include file stack
|
|
LOCAL short curLevel; // Current include nesting level
|
|
// Zero means main .DEF file
|
|
char prognam[] = "IMPLIB";
|
|
FILE *fi; /* Input file */
|
|
FILE *fo; /* Output file */
|
|
int yylineno = 1; /* Line number */
|
|
char rgbid[SBMAX]; /* I.D. buffer */
|
|
char sbModule[SBMAX];/* Module name */
|
|
IMPORT *implist; /* List of importable symbols */
|
|
IMPORT *lastimp; /* Pointer to end of list */
|
|
IMPORT *newimps; /* List of importable symbols */
|
|
word csyms; /* Symbol count */
|
|
word csymsmod; /* Per-module symbol count */
|
|
long cbsyms; /* Symbol byte count */
|
|
word diclength; /* Dictionary length in PAGEs */
|
|
char *mpdpnpag[MAXDICLN];
|
|
/* Page buffer array */
|
|
char *defname; /* Name of definitions file */
|
|
|
|
int exitCode; /* code returned to OS */
|
|
#if C8_IDE
|
|
int fC8IDE = FALSE;
|
|
char msgBuf[_MAX_PATH];
|
|
#endif
|
|
LOCAL char moduleEXE[] = ".exe";
|
|
LOCAL char moduleDLL[] = ".dll";
|
|
|
|
word prime[] = /* Array of primes */
|
|
{
|
|
2, 3, 5, 7, 11, 13, 17, 19, 23, 29,
|
|
31, 37, 41, 43, 47, 53, 59, 61, 67, 71,
|
|
73, 79, 83, 89, 97, 101, 103, 107, 109, 113,
|
|
127, 131, 137, 139, 149, 151, 157, 163, 167, 173,
|
|
179, 181, 191, 193, 197, 199, 211, 223, 227, 229,
|
|
233, 239, 241, 251, 257, 263, 269, 271, 277, 281,
|
|
283, 293, 307, 311, 313, 317, 331, 337, 347, 349,
|
|
353, 359, 367, 373, 379, 383, 389, 397, 401, 409,
|
|
419, 421, 431, 433, 439, 443, 449, 457, 461, 463,
|
|
467, 479, 487, 491, 499, 503, 509, 521, 523, 541,
|
|
547, 557, 563, 569, 571, 577, 587, 593, 599, 601,
|
|
607, 613, 617, 619, 631, 641, 643, 647, 653, 659,
|
|
661, 673, 677, 683, 691, 701, 709, 719, 727, 733,
|
|
739, 743, 751, 757, 761, 769, 773, 787, 797, 809,
|
|
811, 821, 823, 827, 829, 839, 853, 857, 859, 863,
|
|
877, 881, 883, 887, 907, 911, 919, 929, 937, 941,
|
|
947, 953, 961, 967, 971, 977, 983, 991, MAXDICLN,
|
|
0
|
|
};
|
|
|
|
LOCAL void MOVE(int cb, char *src, char *dst);
|
|
LOCAL void DefaultModule(char *defaultExt);
|
|
LOCAL void NewModule(char *sbNew, char *defaultExt);
|
|
LOCAL char *alloc(word cb);
|
|
LOCAL void export(char *sbEntry, char *sbInternal, word ordno, word flags);
|
|
LOCAL word theadr(char *sbName);
|
|
LOCAL void outimpdefs(void);
|
|
LOCAL short symeq(char *ps1,char *ps2);
|
|
LOCAL void initsl(void);
|
|
LOCAL word rol(word x, word n);
|
|
LOCAL word ror(word x, word n);
|
|
LOCAL void hashsym(char *pf, word *pdpi, word *pdpid,word *pdpo, word *pdpod);
|
|
LOCAL void nullfill(char *pbyte, word length);
|
|
LOCAL int pagesearch(char *psym, char *dicpage, word *pdpo, word dpod);
|
|
LOCAL word instsym(IMPORT *psym);
|
|
LOCAL void nulpagout(void);
|
|
LOCAL void writedic(void);
|
|
LOCAL int IsPrefix(char *prefix, char *s);
|
|
LOCAL void DisplayBanner(void);
|
|
int NEAR yyparse(void);
|
|
LOCAL void yyerror(char *);
|
|
|
|
|
|
char *keywds[] = /* Keyword array */
|
|
{
|
|
"ALIAS", (char *) T_FALIAS,
|
|
"APPLOADER", (char *) T_APPLOADER,
|
|
"BASE", (char *) T_KBASE,
|
|
"CLASS", (char *) T_KCLASS,
|
|
"CODE", (char *) T_KCODE,
|
|
"CONFORMING", (char *) T_KCONFORM,
|
|
"CONSTANT", (char *) T_KCONSTANT,
|
|
"CONTIGUOUS", (char *) T_FCONTIG,
|
|
"DATA", (char *) T_KDATA,
|
|
"DESCRIPTION", (char *) T_KDESCRIPTION,
|
|
"DEV386", (char *) T_FDEV386,
|
|
"DEVICE", (char *) T_KDEVICE,
|
|
"DISCARDABLE", (char *) T_FDISCARDABLE,
|
|
"DOS", (char *) T_FDOS,
|
|
"DYNAMIC", (char *) T_FDYNAMIC,
|
|
"EXECUTE-ONLY", (char *) T_FEXEC,
|
|
"EXECUTEONLY", (char *) T_FEXEC,
|
|
"EXECUTEREAD", (char *) T_FEXECREAD,
|
|
"EXETYPE", (char *) T_KEXETYPE,
|
|
"EXPANDDOWN", (char *) T_KEXPANDDOWN,
|
|
"EXPORTS", (char *) T_KEXPORTS,
|
|
"FIXED", (char *) T_FFIXED,
|
|
"FUNCTIONS", (char *) T_FUNCTIONS,
|
|
"HEAPSIZE", (char *) T_KHEAPSIZE,
|
|
"HUGE", (char *) T_FHUGE,
|
|
"IMPORTS", (char *) T_KIMPORTS,
|
|
"IMPURE", (char *) T_FNONSHARED,
|
|
"INCLUDE", (char *) INCLUDE_DIR,
|
|
"INITGLOBAL", (char *) T_FINITGLOB,
|
|
"INITINSTANCE", (char *) T_FINITINST,
|
|
"INVALID", (char *) T_FINVALID,
|
|
"IOPL", (char *) T_FIOPL,
|
|
"LIBRARY", (char *) T_KLIBRARY,
|
|
"LOADONCALL", (char *) T_FLOADONCALL,
|
|
"LONGNAMES", (char *) T_FNEWFILES,
|
|
"MACINTOSH", (char *) T_FMACINTOSH,
|
|
"MAXVAL", (char *) T_KMAXVAL,
|
|
"MIXED1632", (char *) T_FMIXED,
|
|
"MOVABLE", (char *) T_FMOVABLE,
|
|
"MOVEABLE", (char *) T_FMOVABLE,
|
|
"MULTIPLE", (char *) T_FMULTIPLE,
|
|
"NAME", (char *) T_KNAME,
|
|
"NEWFILES", (char *) T_FNEWFILES,
|
|
"NODATA", (char *) T_KNODATA,
|
|
"NOEXPANDDOWN", (char *) T_KNOEXPANDDOWN,
|
|
"NOIOPL", (char *) T_FNOIOPL,
|
|
"NONAME", (char *) T_KNONAME,
|
|
"NONCONFORMING", (char *) T_KNONCONFORM,
|
|
"NONDISCARDABLE", (char *) T_FNONDISCARDABLE,
|
|
"NONE", (char *) T_FNONE,
|
|
"NONPERMANENT", (char *) T_FNONPERM,
|
|
"NONSHARED", (char *) T_FNONSHARED,
|
|
"NOTWINDOWCOMPAT", (char *) T_FNOTWINCOMPAT,
|
|
"NT", (char *) T_FNT,
|
|
"OBJECTS", (char *) T_KOBJECTS,
|
|
"OLD", (char *) T_KOLD,
|
|
"OS2", (char *) T_FOS2,
|
|
"OVERLAY", (char *) T_OVL,
|
|
"OVL", (char *) T_OVL,
|
|
"PERMANENT", (char *) T_FPERM,
|
|
"PHYSICAL", (char *) T_KPHYSICAL,
|
|
"POSIX", (char *) T_FPOSIX,
|
|
"PRELOAD", (char *) T_FPRELOAD,
|
|
"PRIVATE", (char *) T_FPRIVATE,
|
|
"PRIVATELIB", (char *) T_FPRIVATE,
|
|
"PROTMODE", (char *) T_PROTMODE,
|
|
"PURE", (char *) T_FSHARED,
|
|
"READONLY", (char *) T_FRDONLY,
|
|
"READWRITE", (char *) T_FRDWR,
|
|
"REALMODE", (char *) T_REALMODE,
|
|
"RESIDENT", (char *) T_FRESIDENT,
|
|
"RESIDENTNAME", (char *) T_KRESIDENTNAME,
|
|
"SECTIONS", (char *) T_KSECTIONS,
|
|
"SEGMENTS", (char *) T_KSEGMENTS,
|
|
"SHARED", (char *) T_FSHARED,
|
|
"SINGLE", (char *) T_FSINGLE,
|
|
"STACKSIZE", (char *) T_KSTACKSIZE,
|
|
"STUB", (char *) T_KSTUB,
|
|
"SUBSYSTEM", (char *) T_KSUBSYSTEM,
|
|
"SWAPPABLE", (char *) T_FSWAPPABLE,
|
|
"TERMINSTANCE", (char *) T_FTERMINST,
|
|
"UNIX", (char *) T_FUNIX,
|
|
"UNKNOWN", (char *) T_FUNKNOWN,
|
|
"VERSION", (char *) T_KVERSION,
|
|
"VIRTUAL", (char *) T_KVIRTUAL,
|
|
"WINDOWAPI", (char *) T_FWINAPI,
|
|
"WINDOWCOMPAT", (char *) T_FWINCOMPAT,
|
|
"WINDOWS", (char *) T_FWINDOWS,
|
|
"WINDOWSCHAR", (char *) T_FWINDOWSCHAR,
|
|
"WINDOWSNT", (char *) T_FWINDOWSNT,
|
|
NULL
|
|
};
|
|
|
|
|
|
|
|
#define UNION 1
|
|
typedef union
|
|
{
|
|
word _wd;
|
|
char *_bp;
|
|
} YYSTYPE;
|
|
#define yyclearin yychar = -1
|
|
#define yyerrok yyerrflag = 0
|
|
#ifndef YYMAXDEPTH
|
|
#define YYMAXDEPTH 150
|
|
#endif
|
|
YYSTYPE yylval, yyval;
|
|
# define YYERRCODE 256
|
|
|
|
|
|
#ifndef M_I386
|
|
extern char * PASCAL __FMSG_TEXT ( unsigned );
|
|
#else
|
|
#ifdef _WIN32
|
|
extern char * PASCAL __FMSG_TEXT ( unsigned );
|
|
#endif
|
|
#endif
|
|
|
|
/*** Error - display error message
|
|
*
|
|
* Purpose:
|
|
* Display error message.
|
|
*
|
|
* Input:
|
|
* errNo - error number
|
|
*
|
|
* Output:
|
|
* No explicit value is returned. Error message written out to stderr.
|
|
*
|
|
* Exceptions:
|
|
* None.
|
|
*
|
|
* Notes:
|
|
* This function takes variable number of parameters. MUST be in
|
|
* C calling convention.
|
|
*
|
|
*************************************************************************/
|
|
|
|
|
|
LOCAL void cdecl Error(unsigned errNo,...)
|
|
{
|
|
va_list pArgList;
|
|
|
|
|
|
if (!fBannerOnScreen)
|
|
DisplayBanner();
|
|
|
|
va_start(pArgList, errNo); /* Get start of argument list */
|
|
|
|
/* Write out standard error prefix */
|
|
|
|
fprintf(stderr, "%s : %s IM%d: ", prognam, GET_MSG(M_error), errNo);
|
|
|
|
/* Write out error message */
|
|
|
|
vfprintf(stderr, GET_MSG(errNo), pArgList);
|
|
fprintf(stderr, "\n");
|
|
|
|
if (!exitCode)
|
|
exitCode = (errNo >= ER_Min && errNo <= ER_Max)
|
|
|| (errNo >= ER_MinFatal && errNo <= ER_MaxFatal);
|
|
}
|
|
|
|
|
|
/*** Fatal - display error message
|
|
*
|
|
* Purpose:
|
|
* Display error message and exit to operating system.
|
|
*
|
|
* Input:
|
|
* errNo - error number
|
|
*
|
|
* Output:
|
|
* No explicit value is returned. Error message written out to stderr.
|
|
*
|
|
* Exceptions:
|
|
* None.
|
|
*
|
|
* Notes:
|
|
* This function takes variable number of parameters. MUST be in
|
|
* C calling convention.
|
|
*
|
|
*************************************************************************/
|
|
|
|
|
|
LOCAL void cdecl Fatal(unsigned errNo,...)
|
|
{
|
|
va_list pArgList;
|
|
|
|
|
|
if (!fBannerOnScreen)
|
|
DisplayBanner();
|
|
|
|
va_start(pArgList, errNo); /* Get start of argument list */
|
|
|
|
/* Write out standard error prefix */
|
|
|
|
fprintf(stderr, "%s : %s %s IM%d: ", prognam, GET_MSG(M_fatal), GET_MSG(M_error),errNo);
|
|
|
|
/* Write out fatal error message */
|
|
|
|
vfprintf(stderr, GET_MSG(errNo), pArgList);
|
|
fprintf(stderr, "\n");
|
|
exit(1);
|
|
}
|
|
|
|
|
|
/*
|
|
* Check if error in output file, abort if there is.
|
|
*/
|
|
|
|
void chkerror ()
|
|
{
|
|
if(ferror(fo))
|
|
{
|
|
Fatal(ER_outfull, strerror(errno));
|
|
}
|
|
}
|
|
|
|
LOCAL void MOVE(int cb, char *src, char *dst)
|
|
{
|
|
while(cb--) *dst++ = *src++;
|
|
}
|
|
|
|
LOCAL char *alloc(word cb)
|
|
{
|
|
char *cp; /* Pointer */
|
|
|
|
|
|
if((cp = malloc(cb)) != NULL) return(cp);
|
|
/* Call malloc() to get the space */
|
|
Fatal(ER_nomem, "far");
|
|
return 0;
|
|
}
|
|
|
|
LOCAL int lookup() /* Keyword lookup */
|
|
{
|
|
char **pcp; /* Pointer to character pointer */
|
|
int i; /* Comparison value */
|
|
|
|
for(pcp = keywds; *pcp != NULL; pcp += 2)
|
|
{ /* Look through keyword table */
|
|
if(!(i = FSTRICMP(&rgbid[1],*pcp)))
|
|
return((int)(INT_PTR) pcp[1]); /* If found, return token type */
|
|
if(i < 0) break; /* Break if we've gone too far */
|
|
}
|
|
return(T_ID); /* Just your basic identifier */
|
|
}
|
|
|
|
LOCAL int GetChar(void)
|
|
{
|
|
int c; /* A character */
|
|
|
|
c = getc(fi);
|
|
if (c == EOF && curLevel > 0)
|
|
{
|
|
fclose(fi);
|
|
fi = includeDisp[curLevel];
|
|
curLevel--;
|
|
c = GetChar();
|
|
}
|
|
return(c);
|
|
}
|
|
|
|
|
|
|
|
LOCAL int yylex() /* Lexical analyzer */
|
|
{
|
|
int c = 0; /* A character */
|
|
word x; /* Numeric token value */
|
|
int state; /* State variable */
|
|
char *cp; /* Character pointer */
|
|
char *sz; /* Zero-terminated string */
|
|
static int lastc; /* Previous character */
|
|
int fFileNameSave;
|
|
|
|
state = 0; /* Assume we're not in a comment */
|
|
for(;;) /* Loop to skip white space */
|
|
{
|
|
lastc = c;
|
|
if((c = GetChar()) == EOF || c == '\032' || c == '\377') return(EOF);
|
|
/* Get a character */
|
|
if(c == ';') state = 1; /* If comment, set flag */
|
|
else if(c == '\n') /* If end of line */
|
|
{
|
|
state = 0; /* End of comment */
|
|
if(!curLevel)
|
|
++yylineno; /* Increment line number count */
|
|
}
|
|
else if(state == 0 && c != ' ' && c != '\t' && c != '\r') break;
|
|
/* Break on non-white space */
|
|
}
|
|
switch(c) /* Handle one-character tokens */
|
|
{
|
|
case '.': /* Name separator */
|
|
if (fFileNameExpected)
|
|
break;
|
|
return(T_DOT);
|
|
|
|
case '@': /* Ordinal specifier */
|
|
/*
|
|
* Require that whitespace precede '@' if introducing an
|
|
* ordinal, to allow '@' in identifiers.
|
|
*/
|
|
if(lastc == ' ' || lastc == '\t' || lastc == '\r')
|
|
return(T_AT);
|
|
break;
|
|
|
|
case '=': /* Name assignment */
|
|
return(T_EQ);
|
|
|
|
case ':':
|
|
return(T_COLON);
|
|
|
|
case ',':
|
|
return(T_COMA);
|
|
}
|
|
|
|
if(c >= '0' && c <= '9' && !fFileNameExpected)
|
|
{ /* If token is a number */
|
|
x = c - '0'; /* Get first digit */
|
|
c = GetChar(); /* Get next character */
|
|
if(x == 0) /* If octal or hex */
|
|
{
|
|
if(c == 'x' || c == 'X')/* If it is an 'x' */
|
|
{
|
|
state = 16; /* Base is hexadecimal */
|
|
c = GetChar(); /* Get next character */
|
|
}
|
|
else state = 8; /* Else octal */
|
|
}
|
|
else state = 10; /* Else decimal */
|
|
for(;;)
|
|
{
|
|
if(c >= '0' && c <= '9') c -= '0';
|
|
else if(c >= 'A' && c <= 'F') c -= 'A' - 10;
|
|
else if(c >= 'a' && c <= 'f') c -= 'a' - 10;
|
|
else break;
|
|
if(c >= state) break;
|
|
x = x*state + c;
|
|
c = GetChar();
|
|
}
|
|
ungetc(c,fi);
|
|
YYS_WD(yylval) = x;
|
|
return(T_NUMBER);
|
|
}
|
|
if(c == '\'' || c == '"') /* If token is a string */
|
|
{
|
|
sz = &rgbid[1]; /* Initialize */
|
|
for(state = 0; state != 2;) /* State machine loop */
|
|
{
|
|
if((c = GetChar()) == EOF) return(EOF);
|
|
/* Check for EOF */
|
|
if (sz >= &rgbid[sizeof(rgbid)])
|
|
{
|
|
Error(ER_linemax, yylineno, sizeof(rgbid)-1);
|
|
state = 2;
|
|
}
|
|
switch(state) /* Transitions */
|
|
{
|
|
case 0: /* Inside quote */
|
|
if(c == '\'' || c == '"') state = 1;
|
|
/* Change state if quote found */
|
|
else *sz++ = (char) c;/* Else save character */
|
|
break;
|
|
|
|
case 1: /* Inside quote with quote */
|
|
if(c == '\'' || c == '"')/* If consecutive quotes */
|
|
{
|
|
*sz++ = (char) c;/* Quote inside string */
|
|
state = 0; /* Back to state 0 */
|
|
}
|
|
else state = 2; /* Else end of string */
|
|
break;
|
|
}
|
|
}
|
|
ungetc(c,fi); /* Put back last character */
|
|
*sz = '\0'; /* Null-terminate the string */
|
|
rgbid[0] = (char)(sz - &rgbid[1]);
|
|
/* Set length of string */
|
|
YYS_BP(yylval) = rgbid; /* Save ptr. to identifier */
|
|
return(T_STRING); /* String found */
|
|
}
|
|
sz = &rgbid[1]; /* Initialize */
|
|
for(;;) /* Loop to get i.d.'s */
|
|
{
|
|
if (fFileNameExpected)
|
|
cp = " \t\r\n\f";
|
|
else
|
|
cp = " \t\r\n.=';\032";
|
|
while(*cp && *cp != (char) c)
|
|
++cp;
|
|
/* Check for end of identifier */
|
|
if(*cp) break; /* Break if end of identifier found */
|
|
if (sz >= &rgbid[sizeof(rgbid)])
|
|
Fatal(ER_linemax, yylineno, sizeof(rgbid)-1);
|
|
*sz++ = (byte) c; /* Save the character */
|
|
if((c = GetChar()) == EOF) break;
|
|
/* Get next character */
|
|
}
|
|
ungetc(c,fi); /* Put character back */
|
|
*sz = '\0'; /* Null-terminate the string */
|
|
rgbid[0] = (char)(sz - &rgbid[1]); /* Set length of string */
|
|
YYS_BP(yylval) = rgbid; /* Save ptr. to identifier */
|
|
|
|
state = lookup(); /* Look up the identifier */
|
|
if (state == INCLUDE_DIR)
|
|
{
|
|
// Process include directive
|
|
|
|
fFileNameSave = fFileNameExpected;
|
|
fFileNameExpected = 1;
|
|
state = yylex();
|
|
fFileNameExpected = fFileNameSave;
|
|
if (state == T_ID || state == T_STRING)
|
|
{
|
|
if (curLevel < MAX_NEST - 1)
|
|
{
|
|
curLevel++;
|
|
includeDisp[curLevel] = fi;
|
|
fi = fopen(&rgbid[1], RDBIN);
|
|
if (fi == NULL)
|
|
Fatal(ER_badopen, &rgbid[1], strerror(errno));
|
|
return(yylex());
|
|
}
|
|
else
|
|
Fatal(ER_toomanyincl);
|
|
}
|
|
else
|
|
Fatal(ER_badinclname);
|
|
|
|
return (0);
|
|
}
|
|
else
|
|
return(state);
|
|
}
|
|
|
|
LOCAL void yyerror(s) /* Error routine */
|
|
char *s; /* Error message */
|
|
{
|
|
|
|
fprintf(stderr, "%s(%d) : %s %s IM%d: %s %s\n",
|
|
defname, yylineno, GET_MSG(M_fatal), GET_MSG(M_error),
|
|
ER_syntax, s, GET_MSG(ER_syntax));
|
|
exit(1);
|
|
}
|
|
|
|
|
|
/*
|
|
* Use the basename of the current .DEF file name as the module name.
|
|
*/
|
|
|
|
LOCAL void DefaultModule(char *defaultExt)
|
|
{
|
|
char drive[_MAX_DRIVE];
|
|
char dir[_MAX_DIR];
|
|
char fname[_MAX_FNAME];
|
|
char ext[_MAX_EXT];
|
|
|
|
|
|
_splitpath(defname, drive, dir, fname, ext);
|
|
if (fNTdll)
|
|
{
|
|
if (ext[0] == '\0')
|
|
_makepath(&sbModule[1], NULL, NULL, fname, defaultExt);
|
|
else if (ext[0] == '.' && ext[1] == '\0')
|
|
strcpy(&sbModule[1], fname);
|
|
else
|
|
_makepath(&sbModule[1], NULL, NULL, fname, ext);
|
|
}
|
|
else
|
|
_makepath(&sbModule[1], NULL, NULL, fname, NULL);
|
|
sbModule[0] = (unsigned char) strlen(&sbModule[1]);
|
|
}
|
|
|
|
LOCAL void NewModule(char *sbNew, char *defaultExt)
|
|
{
|
|
char drive[_MAX_DRIVE];
|
|
char dir[_MAX_DIR];
|
|
char fname[_MAX_FNAME];
|
|
char ext[_MAX_EXT];
|
|
|
|
|
|
sbNew[sbNew[0]+1] = '\0';
|
|
_splitpath(&sbNew[1], drive, dir, fname, ext);
|
|
if (fNTdll)
|
|
{
|
|
if (ext[0] == '\0')
|
|
_makepath(&sbModule[1], NULL, NULL, fname, defaultExt);
|
|
else if (ext[0] == '.' && ext[1] == '\0')
|
|
strcpy(&sbModule[1], fname);
|
|
else
|
|
_makepath(&sbModule[1], NULL, NULL, fname, ext);
|
|
}
|
|
else
|
|
strcpy(&sbModule[1], fname);
|
|
sbModule[0] = (unsigned char) strlen(&sbModule[1]);
|
|
}
|
|
|
|
|
|
LOCAL void export(char *sbEntry, char *sbInternal, word ordno, word flags)
|
|
{
|
|
IMPORT *imp; /* Import definition */
|
|
|
|
if(fIgnorewep && strcmp(sbEntry+1, "WEP") == 0)
|
|
return;
|
|
|
|
|
|
imp = (IMPORT *) alloc(sizeof(IMPORT));
|
|
/* Allocate a cell */
|
|
if (newimps == NULL) /* If list empty */
|
|
newimps = imp; /* Define start of list */
|
|
else
|
|
I_NEXT(*lastimp) = imp; /* Append it to list */
|
|
I_NEXT(*imp) = NULL;
|
|
I_EXTNAM(*imp) = sbEntry; /* Save the external name */
|
|
I_INTNAM(*imp) = sbInternal; /* Save the internal name */
|
|
I_ORD(*imp) = ordno; /* Save the ordinal number */
|
|
I_FLAGS(*imp) = flags; /* Save extra flags */
|
|
lastimp = imp; /* Save pointer to end of list */
|
|
}
|
|
|
|
/* Output a THEADR record */
|
|
|
|
LOCAL word theadr(char *sbName)
|
|
{
|
|
fputc(THEADR,fo);
|
|
fputc(sbName[0] + 2,fo);
|
|
fputc(0,fo);
|
|
fwrite(sbName,sizeof(char),sbName[0] + 1,fo);
|
|
fputc(0,fo);
|
|
chkerror();
|
|
return(sbName[0] + 5);
|
|
}
|
|
|
|
word modend() /* Output a MODEND record */
|
|
{
|
|
fwrite("\212\002\0\0\0",sizeof(char),5,fo);
|
|
/* Write a MODEND record */
|
|
chkerror();
|
|
return(5); /* It is 5 bytes long */
|
|
}
|
|
|
|
LOCAL void outimpdefs(void)/* Output import definitions */
|
|
{
|
|
IMPORT *imp; /* Pointer to import record */
|
|
word reclen; /* Record length */
|
|
word ord; /* Ordinal number */
|
|
long lfa; /* File address */
|
|
word tlen; /* Length of THEADR */
|
|
byte impFlags;
|
|
|
|
|
|
for (imp = newimps; imp != NULL; imp = I_NEXT(*imp))
|
|
{ /* Traverse the list */
|
|
lfa = ftell(fo); /* Find out where we are */
|
|
tlen = theadr(I_EXTNAM(*imp));
|
|
/* Output a THEADR record */
|
|
|
|
// 1 1 1 1 n + 1 n + 1 n + 1 or 2 1
|
|
// +---+----+---+-----+-----------+-----------+------------------+---+
|
|
// | 0 | A0 | 1 | Flg | Ext. Name | Mod. Name | Int. Name or Ord | 0 |
|
|
// +---+----+---+-----+-----------+-----------+------------------+---+
|
|
|
|
reclen = 4 + sbModule[0] + 1 + I_EXTNAM(*imp)[0] + 1 + 1;
|
|
/* Initialize */
|
|
ord = I_ORD(*imp);
|
|
if (ord != 0)
|
|
reclen +=2; /* Two bytes for ordinal number */
|
|
else if (I_INTNAM(*imp))
|
|
reclen += I_INTNAM(*imp)[0] + 1;
|
|
/* Length of internal name */
|
|
else
|
|
reclen++;
|
|
|
|
I_ORD(*imp) = (word)(lfa >> 4);
|
|
/* Save page number */
|
|
++csymsmod; /* Increment symbol count */
|
|
cbsyms += (long) I_EXTNAM(*imp)[0] + 4;
|
|
/* Increment symbol space count */
|
|
fputc(COMENT,fo); /* Comment record */
|
|
fputc(reclen & 0xFF,fo); /* Lo-byte of record length */
|
|
fputc(reclen >> 8,fo); /* Hi-byte of length */
|
|
fputc(0,fo); /* Purgable, listable */
|
|
fputc(MSEXT,fo); /* Microsoft OMF extension class */
|
|
fputc(IMPDEF,fo); /* IMPort DEFinition record */
|
|
impFlags = 0;
|
|
if (ord != 0)
|
|
impFlags |= 0x1;
|
|
if (I_FLAGS(*imp) & 0x1)
|
|
impFlags |= 0x2;
|
|
fputc(impFlags, fo); /* Import type (name or ordinal or constant) */
|
|
fwrite(I_EXTNAM(*imp),sizeof(char),I_EXTNAM(*imp)[0] + 1,fo);
|
|
/* Write the external name */
|
|
fwrite(sbModule,sizeof(char),sbModule[0] + 1,fo);
|
|
/* Write the module name */
|
|
if (ord != 0) /* If import by ordinal */
|
|
{
|
|
fputc(ord & 0xFF,fo); /* Lo-byte of ordinal */
|
|
fputc(ord >> 8,fo); /* Hi-byte of ordinal */
|
|
}
|
|
else if (I_INTNAM(*imp))
|
|
fwrite(I_INTNAM(*imp), sizeof(char), I_INTNAM(*imp)[0] + 1, fo);
|
|
/* Write internal name */
|
|
else
|
|
fputc(0, fo); /* No internal name */
|
|
fputc(0,fo); /* Checksum byte */
|
|
reclen += tlen + modend() + 3; /* Output a MODEND record */
|
|
if(reclen &= 0xF) /* If padding needed */
|
|
{
|
|
reclen = 0x10 - reclen; /* Calculate needed padding */
|
|
while(reclen--) fputc(0,fo);/* Pad to page boundary */
|
|
}
|
|
chkerror();
|
|
}
|
|
}
|
|
|
|
/* Compare two symbols */
|
|
|
|
LOCAL short symeq(char *ps1,char *ps2)
|
|
{
|
|
int length; /* No. of char.s to compare */
|
|
|
|
length = *ps1 + 1; /* Take length of first symbol */
|
|
if (length != *ps2 + 1)
|
|
return(0); /* Length must match */
|
|
while(length--) /* While not at end of symbol */
|
|
if (fIgnorecase)
|
|
{
|
|
if (UPPER(*ps1) != UPPER(*ps2))
|
|
return(0); /* If not equal, return zero */
|
|
++ps1;
|
|
++ps2;
|
|
}
|
|
else if (*ps1++ != *ps2++)
|
|
return(0); /* If not equal, return zero */
|
|
return(1); /* Symbols match */
|
|
}
|
|
|
|
LOCAL word calclen() /* Calculate dictionary length */
|
|
{
|
|
word avglen; /* Average entry length */
|
|
word avgentries; /* Average no. of entries per page */
|
|
word minpages; /* Min. no. of pages in dictionary */
|
|
register word i; /* Index variable */
|
|
|
|
if(!csyms) return(1); /* One page for an empty dictionary */
|
|
avglen = (word)(cbsyms/csyms) + 1;
|
|
/* Average entry length */
|
|
avgentries = (PAGLEN - NBUCKETS - 1)/avglen;
|
|
/* Average no. of entries per page */
|
|
minpages = (word) csyms/avgentries + 1;
|
|
/* Minimum no. of pages in dict. */
|
|
if(minpages < (i = (word) csyms/NBUCKETS + 1))
|
|
{
|
|
minpages = i;
|
|
}
|
|
else
|
|
{
|
|
/* Add some extra pages if there is a lot long symbol names */
|
|
#define MAXOVERHEAD 10
|
|
i = (word)(((avglen+5L) * minpages *4)/(3*PAGLEN)); // The more symbols the larger increase...
|
|
if(i>MAXOVERHEAD)
|
|
i = MAXOVERHEAD; /* Do not add more than MAXOVERHEAD pages */
|
|
minpages += i;
|
|
}
|
|
|
|
/* Insure enough buckets allotted */
|
|
i = 0; /* Initialize index */
|
|
do /* Look through prime array */
|
|
{
|
|
if(minpages <= prime[i]) return(prime[i]);
|
|
/* Return smallest prime >= minpages */
|
|
}
|
|
while(prime[i++]); /* Until end of table found */
|
|
return(0); /* Too many symbols */
|
|
}
|
|
|
|
/* Initialize Symbol Lookup */
|
|
|
|
LOCAL void initsl(void)
|
|
{
|
|
register word i; /* Index variable */
|
|
|
|
diclength = calclen(); /* Calculate dictionaly length */
|
|
for(i = 0; i < diclength; ++i) mpdpnpag[i] = NULL;
|
|
/* Initialize page table */
|
|
}
|
|
|
|
LOCAL word ror(word x, word n) /* Rotate right */
|
|
{
|
|
#if ODDWORDLN
|
|
return(((x << (16 - n)) | ((x >> n) & ~(~0 << (16 - n))))
|
|
& ~(~0 << 16));
|
|
#else
|
|
return((x << (16 - n)) | ((x >> n) & ~(~0 << (16 - n))));
|
|
#endif
|
|
}
|
|
|
|
LOCAL word rol(word x, word n) /* Rotate left */
|
|
{
|
|
#if ODDWORDLN
|
|
return(((x << n) | ((x >> (16 - n)) & ~(~0 << n))) & ~(~0 << 16));
|
|
#else
|
|
return((x << n) | ((x >> (16 - n)) & ~(~0 << n)));
|
|
#endif
|
|
}
|
|
|
|
LOCAL void hashsym(char *pf, word *pdpi, word *pdpid,word *pdpo, word *pdpod)
|
|
{
|
|
char *pb; /* Pointer to back of symbol */
|
|
register word len; /* Length of symbol */
|
|
register word ch; /* Character */
|
|
|
|
len = *pf; /* Get length */
|
|
pb = &pf[len]; /* Get pointer to back */
|
|
*pdpi = 0; /* Initialize */
|
|
*pdpid = 0; /* Initialize */
|
|
*pdpo = 0; /* Initialize */
|
|
*pdpod = 0; /* Initialize */
|
|
while(len--) /* Loop */
|
|
{
|
|
ch = *pf++ | 32; /* Force char to lower case */
|
|
*pdpi = rol(*pdpi,2) ^ ch; /* Hash */
|
|
*pdpod = ror(*pdpod,2) ^ ch; /* Hash */
|
|
ch = *pb-- | 32; /* Force char to lower case */
|
|
*pdpo = ror(*pdpo,2) ^ ch; /* Hash */
|
|
*pdpid = rol(*pdpid,2) ^ ch; /* Hash */
|
|
}
|
|
*pdpi %= diclength; /* Calculate page index */
|
|
if(!(*pdpid %= diclength)) *pdpid = 1;
|
|
/* Calculate page index delta */
|
|
*pdpo %= NBUCKETS; /* Calculate page bucket no. */
|
|
if(!(*pdpod %= NBUCKETS)) *pdpod = 1;
|
|
/* Calculate page bucket delta */
|
|
}
|
|
|
|
LOCAL void nullfill(char *pbyte, word length)
|
|
{
|
|
while(length--) *pbyte++ = '\0'; /* Load with nulls */
|
|
}
|
|
|
|
/*
|
|
* Returns:
|
|
* -1 Symbol not in dictionary
|
|
* 0 Search inconclusive
|
|
* 1 Symbol on this page
|
|
*/
|
|
LOCAL int pagesearch(char *psym, char *dicpage, word *pdpo, word dpod)
|
|
{
|
|
register word i; /* Index variable */
|
|
word dpo; /* Initial bucket number */
|
|
|
|
dpo = *pdpo; /* Remember starting position */
|
|
for(;;) /* Forever */
|
|
{
|
|
if(i = ((word) dicpage[*pdpo] & 0xFF) << 1)
|
|
{ /* If bucket is not empty */
|
|
if(symeq(psym,&dicpage[i])) /* If we've found a match */
|
|
return(1); /* Found */
|
|
else /* Otherwise */
|
|
{
|
|
if((*pdpo += dpod) >= NBUCKETS) *pdpo -= NBUCKETS;
|
|
/* Try next bucket */
|
|
if(*pdpo == dpo) return(0);
|
|
/* Symbol not on this page */
|
|
}
|
|
}
|
|
else if(dicpage[NBUCKETS] == PAGEFULL) return(0);
|
|
/* Search inconclusive */
|
|
else return(-1); /* Symbol not in dictionary */
|
|
}
|
|
}
|
|
|
|
/* Install symbol in dictionary */
|
|
|
|
LOCAL word instsym(IMPORT *psym)
|
|
{
|
|
word dpi; /* Dictionary page index */
|
|
word dpid; /* Dictionary page index delta */
|
|
word dpo; /* Dictionary page offset */
|
|
word dpod; /* Dict. page offset delta */
|
|
word dpii; /* Initial dict. page index */
|
|
register int erc; /* Error code */
|
|
char *dicpage; /* Pointer to dictionary page */
|
|
|
|
|
|
hashsym(I_EXTNAM(*psym),&dpi,&dpid,&dpo,&dpod);
|
|
/* Hash the symbol */
|
|
dpii = dpi; /* Save initial page index */
|
|
for(;;) /* Forever */
|
|
{
|
|
if(mpdpnpag[dpi] == NULL) /* If page unallocated */
|
|
{
|
|
mpdpnpag[dpi] = alloc(PAGLEN);
|
|
/* Allocate a page */
|
|
nullfill(mpdpnpag[dpi],PAGLEN);
|
|
/* Fill it with nulls */
|
|
mpdpnpag[dpi][NBUCKETS] = FREEWD;
|
|
/* Initialize pointer to free space */
|
|
}
|
|
dicpage = mpdpnpag[dpi]; /* Set pointer to page */
|
|
if((erc = pagesearch(I_EXTNAM(*psym),dicpage,&dpo,dpod)) > 0)
|
|
return(1); /* Return 1 if symbol in table */
|
|
if(erc == -1) /* If empty bucket found */
|
|
{
|
|
if(((I_EXTNAM(*psym)[0] + 4) >> 1) <
|
|
WPP - ((int) dicpage[NBUCKETS] & 0xFF))
|
|
{ /* If enough free space on page */
|
|
dicpage[dpo] = dicpage[NBUCKETS];
|
|
/* Load bucket with pointer */
|
|
erc = ((int) dicpage[NBUCKETS] & 0xFF) << 1;
|
|
/* Get byte index to free space */
|
|
dpi = I_EXTNAM(*psym)[0];
|
|
/* Get symbol length */
|
|
for(dpo = 0; dpo <= dpi;)
|
|
dicpage[erc++] = I_EXTNAM(*psym)[dpo++];
|
|
/* Install the symbol text */
|
|
dicpage[erc++] = (char)(I_ORD(*psym) & 0xFF);
|
|
/* Load low-order byte */
|
|
dicpage[erc++] = (char)(I_ORD(*psym) >> 8);
|
|
/* Load high-order byte */
|
|
if(++erc >= PAGLEN) dicpage[NBUCKETS] = PAGEFULL;
|
|
else dicpage[NBUCKETS] = (char)(erc >> 1);
|
|
/* Update free word pointer */
|
|
return(0); /* Mission accomplished */
|
|
}
|
|
else dicpage[NBUCKETS] = PAGEFULL;
|
|
/* Mark page as full */
|
|
}
|
|
if((dpi += dpid) >= diclength) dpi -= diclength;
|
|
/* Try next page */
|
|
if(dpi == dpii) return(2); /* Once around without finding it */
|
|
}
|
|
}
|
|
|
|
/* Output empty dictionary page */
|
|
|
|
LOCAL void nulpagout(void)
|
|
{
|
|
register word i; /* Counter */
|
|
char temp[PAGLEN]; /* Page buffer */
|
|
|
|
i = 0; /* Initialize */
|
|
while(i < NBUCKETS) temp[i++] = '\0';
|
|
/* Empty hash table */
|
|
temp[i++] = FREEWD; /* Set free word pointer */
|
|
while(i < PAGLEN) temp[i++] = '\0'; /* Clear rest of page */
|
|
fwrite(temp,1,PAGLEN,fo); /* Write empty page */
|
|
chkerror();
|
|
}
|
|
|
|
/* Write dictionary to library */
|
|
|
|
LOCAL void writedic(void)
|
|
{
|
|
register IMPORT *imp; /* Symbol record */
|
|
word i; /* Index variable */
|
|
|
|
initsl(); /* Initialize */
|
|
for(imp = implist; imp != NULL; imp = I_NEXT(*imp))
|
|
{
|
|
if(instsym(imp)) /* If symbol already in dictionary */
|
|
Error(ER_multdef, &I_EXTNAM(*imp)[1]);
|
|
/* Issue error message */
|
|
}
|
|
for(i = 0; i < diclength; ++i) /* Look through mapping table */
|
|
{
|
|
if(mpdpnpag[i] != NULL) pagout(mpdpnpag[i]);
|
|
/* Write page if it exists */
|
|
else nulpagout(); /* Else write an empty page */
|
|
}
|
|
chkerror();
|
|
}
|
|
|
|
LOCAL void DisplayBanner(void)
|
|
{
|
|
if (!fBannerOnScreen)
|
|
{
|
|
fprintf( stdout, "\nMicrosoft (R) Import Library Manager NtGroup "VERSION_STRING );
|
|
fputs("\nCopyright (C) Microsoft Corp 1984-1996. All rights reserved.\n\n", stdout);
|
|
fflush(stdout);
|
|
fBannerOnScreen = 1;
|
|
#if C8_IDE
|
|
if(fC8IDE)
|
|
{ sprintf(msgBuf, "@I0\r\n");
|
|
_write(_fileno(stderr), msgBuf, strlen(msgBuf));
|
|
|
|
sprintf(msgBuf, "@I1Microsoft (R) Import Library Manager "VERSION_STRING"\r\n" );
|
|
_write(_fileno(stderr), msgBuf, strlen(msgBuf));
|
|
|
|
sprintf(msgBuf, "@I2Copyright (C) Microsoft Corp 1984-1992. All rights reserved.\r\n");
|
|
_write(_fileno(stderr), msgBuf, strlen(msgBuf));
|
|
}
|
|
#endif
|
|
}
|
|
}
|
|
|
|
/****************************************************************
|
|
* *
|
|
* IsPrefix: *
|
|
* *
|
|
* This function takes as its arguments a pointer to a *
|
|
* null-terminated character string and a pointer to a second *
|
|
* null-terminated character string. The function returns *
|
|
* true if the first string is a prefix of the second; *
|
|
* otherwise, it returns false. *
|
|
* *
|
|
****************************************************************/
|
|
|
|
LOCAL int IsPrefix(char *prefix, char *s)
|
|
{
|
|
while(*prefix) /* While not at end of prefix */
|
|
{
|
|
if(UPPER(*prefix) != UPPER(*s)) return(0);
|
|
/* Return zero if mismatch */
|
|
++prefix; /* Increment pointer */
|
|
++s; /* Increment pointer */
|
|
}
|
|
return(1); /* We have a prefix */
|
|
}
|
|
|
|
|
|
/*** ScanTable - build list of exports
|
|
*
|
|
* Purpose:
|
|
* Scans Resident or Nonresident Name Table, Entry Table and
|
|
* builds list of exported entries.
|
|
*
|
|
* Input:
|
|
* pbTable - pointer to Name Table
|
|
* cbTable - size of Name Table
|
|
* fNoRes - TRUE if non resident name table
|
|
*
|
|
* Output:
|
|
* List of exported entries by DLL.
|
|
*
|
|
* Exceptions:
|
|
* None.
|
|
*
|
|
* Notes:
|
|
* None.
|
|
*
|
|
*************************************************************************/
|
|
|
|
|
|
LOCAL void ScanTable(word cbTable, int fNoRes)
|
|
{
|
|
word eno;
|
|
char buffer[256];
|
|
register char *pch;
|
|
register byte *pb;
|
|
byte *pTable;
|
|
|
|
pb = alloc(cbTable);
|
|
pTable = pb;
|
|
if (fread(pb, sizeof(char), cbTable, fi) != cbTable) {
|
|
Error(ER_baddll);
|
|
free(pTable);
|
|
return;
|
|
}
|
|
while(cbTable != 0)
|
|
{
|
|
/* Get exported name length - if zero continue */
|
|
|
|
--cbTable;
|
|
if (!(eno = (word) *pb++ & 0xff))
|
|
break;
|
|
cbTable -= eno + 2;
|
|
|
|
/* Copy name - length prefixed */
|
|
|
|
pch = &buffer[1];
|
|
buffer[0] = (byte) eno;
|
|
while(eno--)
|
|
*pch++ = *pb++;
|
|
*pch = '\0';
|
|
|
|
/* Get ordinal */
|
|
|
|
eno = ((word) pb[0] & 0xff) + (((word) pb[1] & 0xff) << 8);
|
|
pb += 2;
|
|
|
|
/* If WEP and fIgnorewep is TRUE, ignore this symbol */
|
|
|
|
if(fIgnorewep && strcmp(&buffer[1], "WEP") == 0)
|
|
continue;
|
|
|
|
if (eno != 0)
|
|
{
|
|
|
|
pch = alloc((word)(buffer[0] + 1));
|
|
strncpy(pch, buffer, buffer[0] + 1);
|
|
|
|
// If Implib is run on a DLL, it exports symbols:
|
|
// - by names for symbols in the resident name table
|
|
// - by ordinal for symbols in the non-resident name table
|
|
|
|
export(pch, pch, (word)(fNoRes ? eno : 0), (word)0);
|
|
}
|
|
else if (!fNoRes)
|
|
strncpy(sbModule, buffer, buffer[0] + 1);
|
|
/* eno == 0 && !fNoRes --> module name */
|
|
}
|
|
if (cbTable != 0)
|
|
Error(ER_baddll);
|
|
free(pTable);
|
|
}
|
|
|
|
|
|
|
|
/*** ProcessDLL - extract information about exports from DLL
|
|
*
|
|
* Purpose:
|
|
* Read in header of DLL and create list of exported entries.
|
|
*
|
|
* Input:
|
|
* lfahdr - seek offset to segmented executable header.
|
|
*
|
|
* Output:
|
|
* List of exported entries by DLL.
|
|
*
|
|
* Exceptions:
|
|
* None.
|
|
*
|
|
* Notes:
|
|
* None.
|
|
*
|
|
*************************************************************************/
|
|
|
|
LOCAL void ProcessDLL(long lfahdr)
|
|
{
|
|
struct new_exe hdr; /* .EXE header */
|
|
|
|
|
|
if (fseek(fi, lfahdr, SEEK_SET) == -1) {
|
|
return;
|
|
}
|
|
if (fread(&hdr, sizeof(char), sizeof(struct new_exe), fi) != sizeof(struct new_exe)) {
|
|
return;
|
|
}
|
|
if(NE_CSEG(hdr) != 0)
|
|
{
|
|
/* If there are segments - read in tables */
|
|
|
|
if (NE_MODTAB(hdr) > NE_RESTAB(hdr))
|
|
{
|
|
/* Process resident names table */
|
|
|
|
if (fseek(fi, lfahdr + NE_RESTAB(hdr), SEEK_SET) == -1)
|
|
return;
|
|
ScanTable((word)(NE_MODTAB(hdr) - NE_RESTAB(hdr)), 0);
|
|
}
|
|
|
|
if (NE_CBNRESTAB(hdr) != 0)
|
|
{
|
|
/* Process non-resident names table */
|
|
|
|
if (fseek(fi, (long) NE_NRESTAB(hdr), SEEK_SET) == -1)
|
|
return;
|
|
ScanTable(NE_CBNRESTAB(hdr), 1);
|
|
}
|
|
}
|
|
}
|
|
|
|
/* Print usage message */
|
|
void usage(int fShortHelp)
|
|
{
|
|
int nRetCode;
|
|
#if NOT C8_IDE
|
|
// in C8 implib /? == /HELP
|
|
if (!fShortHelp)
|
|
{
|
|
nRetCode = spawnlp(P_WAIT, "qh", "qh", "/u implib.exe", NULL);
|
|
fShortHelp = nRetCode<0 || nRetCode==3;
|
|
}
|
|
if (fShortHelp)
|
|
#endif
|
|
{
|
|
DisplayBanner();
|
|
fprintf(stderr,"%s\n", GET_MSG(M_usage1));
|
|
fprintf(stderr,"%s\n", GET_MSG(M_usage2));
|
|
fprintf(stderr," %s\n", GET_MSG(M_usage3));
|
|
// fprintf(stderr," %s\n", GET_MSG(M_usage4));
|
|
fprintf(stderr," %s\n", GET_MSG(M_usage8));
|
|
fprintf(stderr," %s\n", GET_MSG(M_usage5));
|
|
fprintf(stderr," %s\n", GET_MSG(M_usage6));
|
|
fprintf(stderr," %s\n", GET_MSG(M_usage7));
|
|
}
|
|
exit(0);
|
|
}
|
|
|
|
|
|
void cdecl main(int argc, char *argv[]) /* Parse the definitions file */
|
|
{
|
|
int i; /* Counter */
|
|
long lfadic; /* File address of dictionary */
|
|
int iArg; /* Argument index */
|
|
word magic; /* Magic number */
|
|
struct exe_hdr exe; /* Old .EXE header */
|
|
int fNologo;
|
|
char drive[_MAX_DRIVE], dir[_MAX_DIR]; /* Needed for _splitpath */
|
|
char fname[_MAX_FNAME], ext[_MAX_EXT];
|
|
int fDefdllfound = 0; /* Flag will be set if the user
|
|
specifies dll/def file */
|
|
#if C8_IDE
|
|
char *pIDE = getenv("_MSC_IDE_FLAGS");
|
|
#endif
|
|
exitCode = 0;
|
|
fNologo = 0;
|
|
iArg = 1;
|
|
#if C8_IDE
|
|
if(pIDE)
|
|
{
|
|
if(strstr(pIDE, "FEEDBACK"))
|
|
{
|
|
fC8IDE = TRUE;
|
|
#if DEBUG_IDE
|
|
fprintf(stdout, "\r\nIDE ACTIVE - FEEDBACK is ON");
|
|
#endif
|
|
}
|
|
}
|
|
#endif
|
|
|
|
if (argc > 1)
|
|
{
|
|
while (iArg < argc && (argv[iArg][0] == '-' || argv[iArg][0] == '/'))
|
|
{
|
|
if (argv[iArg][1] == '?')
|
|
usage(1);
|
|
else if (IsPrefix(&argv[iArg][1], "help"))
|
|
usage(0);
|
|
else if(IsPrefix(&argv[iArg][1], "ignorecase"))
|
|
fIgnorecase = 1;
|
|
else if(IsPrefix(&argv[iArg][1], "noignorecase"))
|
|
fIgnorecase = 0;
|
|
else if(IsPrefix(&argv[iArg][1], "nologo"))
|
|
fNologo = 1;
|
|
else if(IsPrefix(&argv[iArg][1], "ntdll"))
|
|
fNTdll = 1;
|
|
else if(IsPrefix(&argv[iArg][1], "nowep"))
|
|
fIgnorewep = 1;
|
|
else
|
|
Error(ER_badoption, argv[iArg]);
|
|
iArg++;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
DisplayBanner();
|
|
exit(exitCode); /* All done */
|
|
}
|
|
|
|
if (!fNologo)
|
|
DisplayBanner();
|
|
|
|
_splitpath( argv[iArg], drive, dir, fname, ext );
|
|
if(!_stricmp(ext,".DEF")||!_stricmp(ext,".DLL")) /* Ext. not allowed-bug #3*/
|
|
{
|
|
Fatal(ER_badtarget, ext);
|
|
}
|
|
#if C8_IDE
|
|
if(fC8IDE)
|
|
{
|
|
sprintf(msgBuf, "@I3%s\r\n", GET_MSG(M_IDEco));
|
|
_write(_fileno(stderr), msgBuf, strlen(msgBuf));
|
|
|
|
sprintf(msgBuf, "@I4%s\r\n", argv[iArg]);
|
|
_write(_fileno(stderr), msgBuf, strlen(msgBuf));
|
|
}
|
|
#endif
|
|
|
|
|
|
if((fo = fopen(argv[iArg],WRBIN)) == NULL)
|
|
{ /* If open fails */
|
|
Fatal(ER_badcreate, argv[iArg], strerror(errno));
|
|
}
|
|
for(i = 0; i < 16; ++i) fputc(0,fo);/* Skip zeroth page for now */
|
|
chkerror();
|
|
implist = NULL; /* Initialize */
|
|
csyms = 0;
|
|
cbsyms = 0L;
|
|
#if C8_IDE
|
|
if(fC8IDE)
|
|
{
|
|
sprintf(msgBuf, "@I3%s\r\n", GET_MSG(M_IDEri));
|
|
_write(_fileno(stderr), msgBuf, strlen(msgBuf));
|
|
}
|
|
#endif
|
|
for(iArg++; iArg < argc; ++iArg)
|
|
{
|
|
if (argv[iArg][0] == '-' || argv[iArg][0] == '/')
|
|
{
|
|
fIgnorecase = IsPrefix(&argv[iArg][1], "ignorecase");
|
|
iArg++;
|
|
continue;
|
|
}
|
|
#if C8_IDE
|
|
if(fC8IDE)
|
|
{
|
|
sprintf(msgBuf, "@I4%s\r\n",argv[iArg]);
|
|
_write(_fileno(stderr), msgBuf, strlen(msgBuf));
|
|
}
|
|
#endif
|
|
if((fi = fopen(defname = argv[iArg],RDBIN)) == NULL)
|
|
{ /* If open fails */
|
|
Fatal(ER_badopen, argv[iArg], strerror(errno));
|
|
/* Print error message */
|
|
}
|
|
fDefdllfound = 1;
|
|
newimps = NULL; /* Initialize */
|
|
lastimp = NULL; /* Initialize */
|
|
csymsmod = 0; /* Initialize */
|
|
if (fread(&exe, 1, sizeof(struct exe_hdr), fi))
|
|
Fatal(ER_baddll1, argv[iArg]);
|
|
/* Read old .EXE header */
|
|
if(E_MAGIC(exe) == EMAGIC) /* If old header found */
|
|
{
|
|
if(E_LFARLC(exe) == sizeof(struct exe_hdr))
|
|
{
|
|
if(fseek(fi, E_LFANEW(exe), 0))
|
|
Fatal(ER_baddll1, argv[iArg]);
|
|
/* Read magic number */
|
|
magic = (word) (getc(fi) & 0xff);
|
|
magic += (word) ((getc(fi) & 0xff) << 8);
|
|
if (magic == NEMAGIC)
|
|
ProcessDLL(E_LFANEW(exe));
|
|
/* Scan .DLL */
|
|
else
|
|
{
|
|
Error(ER_baddll1, argv[iArg]);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
Error(ER_baddll1, argv[iArg]);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (fseek(fi, 0L, SEEK_SET))
|
|
Fatal(ER_baddll1, argv[iArg]);
|
|
yyparse(); /* Parse the definitions file */
|
|
}
|
|
fclose(fi); /* Close the definitions file */
|
|
if(newimps != NULL) /* If at least one new IMPDEF */
|
|
{
|
|
outimpdefs(); /* Output the library modules */
|
|
I_NEXT(*lastimp) = implist; /* Concatenate lists */
|
|
implist = newimps; /* New head of list */
|
|
csyms += csymsmod; /* Increment symbol count */
|
|
}
|
|
}
|
|
if (!fDefdllfound) /* No .def or .dll source was given */
|
|
Fatal(ER_nosource);
|
|
|
|
|
|
if(i = (int)((ftell(fo) + 4) & (PAGLEN - 1))) i = PAGLEN - i;
|
|
/* Calculate padding needed */
|
|
++i; /* One for the checksum */
|
|
fputc(DICHDR,fo); /* Dictionary header */
|
|
fputc(i & 0xFF,fo); /* Lo-byte */
|
|
fputc(i >> 8,fo); /* Hi-byte */
|
|
while(i--) fputc(0,fo); /* Padding */
|
|
lfadic = ftell(fo); /* Get dictionary offset */
|
|
writedic(); /* Write the dictionary */
|
|
if (fseek(fo,0L,0)) /* Seek to header */
|
|
Fatal(ER_baddll1, argv[iArg]);
|
|
fputc(LIBHDR,fo); /* Library header */
|
|
fputc(13,fo); /* Length */
|
|
fputc(0,fo); /* Length */
|
|
fputc((int)(lfadic & 0xFF),fo); /* Dictionary offset */
|
|
fputc((int)((lfadic >> 8) & 0xFF),fo);
|
|
/* Dictionary offset */
|
|
fputc((int)((lfadic >> 16) & 0xFF),fo);
|
|
/* Dictionary offset */
|
|
fputc((int)(lfadic >> 24),fo); /* Dictionary offset */
|
|
fputc(diclength & 0xFF,fo); /* Dictionary length */
|
|
fputc(diclength >> 8,fo); /* Dictionary length */
|
|
if (fIgnorecase) /* Dictionary case sensivity */
|
|
fputc(0, fo);
|
|
else
|
|
fputc(1, fo);
|
|
chkerror();
|
|
fclose(fo); /* Close the library */
|
|
exit(exitCode); /* All done */
|
|
}
|
|
short yyexca[] ={
|
|
-1, 1,
|
|
0, -1,
|
|
-2, 0,
|
|
};
|
|
# define YYNPROD 185
|
|
# define YYLAST 413
|
|
short yyact[]={
|
|
|
|
10, 13, 14, 170, 27, 134, 135, 136, 137, 225,
|
|
140, 143, 144, 143, 144, 149, 41, 208, 128, 189,
|
|
167, 41, 166, 28, 185, 50, 49, 29, 30, 31,
|
|
12, 32, 34, 35, 218, 219, 187, 48, 210, 157,
|
|
41, 101, 205, 161, 221, 33, 215, 11, 223, 112,
|
|
113, 114, 115, 116, 119, 217, 53, 51, 117, 118,
|
|
54, 122, 121, 123, 15, 73, 124, 125, 126, 206,
|
|
192, 178, 131, 46, 42, 45, 16, 36, 17, 42,
|
|
37, 81, 82, 79, 66, 67, 71, 61, 74, 62,
|
|
68, 63, 69, 72, 76, 77, 78, 75, 42, 102,
|
|
4, 5, 154, 195, 6, 7, 220, 194, 181, 88,
|
|
169, 60, 142, 133, 129, 109, 59, 106, 156, 58,
|
|
52, 9, 164, 83, 84, 96, 97, 73, 139, 162,
|
|
47, 99, 127, 98, 120, 55, 70, 64, 65, 86,
|
|
80, 95, 94, 92, 93, 87, 66, 67, 71, 61,
|
|
74, 62, 68, 63, 69, 72, 76, 77, 78, 75,
|
|
47, 89, 90, 91, 103, 104, 8, 191, 130, 111,
|
|
38, 108, 216, 204, 203, 105, 180, 150, 179, 153,
|
|
100, 85, 57, 26, 25, 24, 23, 96, 97, 73,
|
|
22, 21, 20, 19, 18, 141, 148, 176, 70, 64,
|
|
65, 146, 87, 95, 94, 81, 82, 79, 66, 67,
|
|
71, 61, 74, 62, 68, 63, 69, 72, 76, 77,
|
|
78, 75, 107, 155, 158, 151, 160, 39, 43, 159,
|
|
152, 174, 44, 138, 40, 152, 152, 132, 3, 2,
|
|
56, 1, 224, 214, 186, 0, 168, 83, 84, 0,
|
|
172, 0, 0, 0, 173, 0, 110, 0, 0, 0,
|
|
70, 64, 65, 184, 80, 183, 0, 171, 145, 147,
|
|
182, 0, 0, 0, 0, 175, 0, 177, 0, 193,
|
|
197, 0, 196, 199, 0, 201, 0, 0, 0, 202,
|
|
184, 0, 183, 0, 0, 0, 0, 182, 0, 0,
|
|
0, 209, 0, 198, 211, 200, 212, 0, 213, 0,
|
|
0, 0, 0, 0, 0, 222, 0, 0, 0, 0,
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
|
0, 110, 0, 0, 0, 0, 0, 0, 0, 0,
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
|
163, 165, 0, 0, 0, 0, 0, 0, 0, 0,
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
|
188, 0, 0, 0, 0, 190, 0, 0, 0, 0,
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
|
0, 0, 207 };
|
|
short yypact[]={
|
|
|
|
-159,-1000,-267,-267,-225,-225,-187,-189,-267,-1000,
|
|
-286,-297,-266,-210,-210,-1000,-1000,-225,-1000,-1000,
|
|
-1000,-1000,-1000,-1000,-1000,-1000,-1000, -68,-130,-224,
|
|
-224,-224,-225,-225,-252,-241,-307,-194,-267,-1000,
|
|
-333,-1000,-1000,-1000,-325,-225,-225,-1000,-1000,-1000,
|
|
-1000,-1000,-1000,-311,-1000,-1000,-1000, -68,-1000,-1000,
|
|
-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,
|
|
-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,
|
|
-1000,-1000,-1000,-1000,-1000,-130,-1000,-1000,-1000,-1000,
|
|
-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-224,-1000,
|
|
-156,-1000,-1000,-224,-224,-225,-1000,-280,-225,-1000,
|
|
-280,-194,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-235,
|
|
-1000,-1000,-1000,-1000,-1000,-1000,-1000,-225,-244,-1000,
|
|
-304,-1000,-333,-339,-1000,-1000,-1000,-1000,-325,-339,
|
|
-1000,-323,-1000,-1000,-1000,-1000,-325,-1000,-325,-195,
|
|
-1000,-1000,-1000,-192,-299,-1000,-284,-225,-1000,-305,
|
|
-1000,-1000,-225,-1000,-1000,-1000,-1000,-196,-339,-158,
|
|
-1000,-339,-158,-1000,-325,-158,-325,-158,-1000,-1000,
|
|
-192,-1000,-1000,-1000,-1000,-1000,-271,-197,-1000,-249,
|
|
-1000,-1000,-1000,-158,-1000,-281,-158,-1000,-158,-1000,
|
|
-158,-1000,-1000,-226,-211,-1000,-287,-228,-228,-1000,
|
|
-218,-1000,-1000,-1000,-332,-1000,-1000,-1000,-1000,-1000,
|
|
-1000,-1000,-1000,-1000,-1000,-1000 };
|
|
short yypgo[]={
|
|
|
|
0, 222, 118, 244, 243, 242, 241, 239, 166, 238,
|
|
237, 113, 110, 107, 234, 233, 128, 232, 231, 201,
|
|
197, 196, 195, 112, 121, 120, 194, 193, 192, 191,
|
|
190, 186, 185, 184, 183, 182, 119, 116, 111, 181,
|
|
139, 109, 133, 131, 180, 179, 178, 108, 176, 175,
|
|
117, 174, 173, 172, 171, 115, 106, 169, 114, 168,
|
|
167, 134, 132, 129, 122 };
|
|
short yyr1[]={
|
|
|
|
0, 6, 6, 9, 6, 10, 7, 14, 7, 15,
|
|
7, 17, 7, 18, 7, 19, 7, 20, 7, 21,
|
|
7, 16, 16, 16, 22, 22, 23, 23, 13, 13,
|
|
11, 11, 11, 11, 11, 12, 12, 8, 8, 24,
|
|
24, 24, 24, 24, 24, 24, 24, 24, 24, 24,
|
|
24, 24, 24, 24, 24, 24, 24, 25, 25, 25,
|
|
26, 35, 35, 36, 36, 38, 38, 38, 38, 38,
|
|
38, 27, 39, 39, 40, 40, 40, 40, 40, 40,
|
|
40, 41, 41, 41, 41, 28, 28, 28, 28, 28,
|
|
28, 42, 42, 43, 44, 44, 45, 45, 47, 47,
|
|
47, 48, 48, 46, 46, 37, 37, 37, 37, 37,
|
|
37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
|
|
37, 37, 37, 29, 29, 49, 49, 50, 2, 2,
|
|
3, 3, 3, 3, 51, 52, 52, 53, 53, 4,
|
|
4, 5, 5, 30, 30, 54, 54, 55, 55, 1,
|
|
1, 56, 56, 31, 31, 57, 57, 57, 57, 57,
|
|
57, 57, 57, 57, 58, 58, 59, 59, 60, 60,
|
|
34, 32, 61, 61, 61, 61, 61, 61, 33, 62,
|
|
62, 64, 64, 63, 63 };
|
|
short yyr2[]={
|
|
|
|
0, 2, 1, 0, 2, 0, 6, 0, 5, 0,
|
|
6, 0, 5, 0, 6, 0, 5, 0, 6, 0,
|
|
5, 1, 1, 0, 2, 1, 1, 1, 3, 0,
|
|
1, 1, 1, 1, 0, 1, 0, 2, 1, 2,
|
|
2, 2, 2, 2, 2, 1, 1, 2, 1, 1,
|
|
1, 1, 1, 1, 1, 1, 1, 3, 1, 1,
|
|
2, 2, 1, 1, 1, 1, 1, 1, 1, 1,
|
|
1, 2, 2, 1, 1, 1, 1, 1, 1, 1,
|
|
1, 1, 1, 1, 1, 2, 1, 2, 1, 2,
|
|
1, 2, 1, 3, 1, 1, 2, 0, 1, 1,
|
|
1, 2, 1, 1, 0, 1, 1, 1, 1, 1,
|
|
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
|
|
1, 1, 1, 2, 1, 2, 1, 6, 2, 0,
|
|
3, 3, 2, 0, 2, 1, 0, 1, 0, 1,
|
|
0, 1, 0, 2, 1, 2, 1, 5, 5, 1,
|
|
1, 1, 0, 3, 1, 1, 1, 1, 1, 1,
|
|
1, 1, 2, 1, 3, 1, 1, 0, 1, 0,
|
|
2, 2, 1, 1, 1, 1, 1, 1, 3, 2,
|
|
0, 1, 1, 2, 1 };
|
|
short yychk[]={
|
|
|
|
-1000, -6, -7, -9, 259, 260, 263, 264, -8, -24,
|
|
267, 314, 297, 268, 269, 331, 343, 345, -26, -27,
|
|
-28, -29, -30, -31, -32, -33, -34, 271, 290, 294,
|
|
295, 296, 298, 312, 299, 300, 344, 347, -8, -1,
|
|
-14, 265, 323, -1, -17, 262, 262, -24, 323, 323,
|
|
291, 323, -25, 266, 270, -25, -1, -35, -36, -37,
|
|
-38, 279, 281, 283, 329, 330, 276, 277, 282, 284,
|
|
328, 278, 285, 257, 280, 289, 286, 287, 288, 275,
|
|
332, 273, 274, 315, 316, -39, -40, -37, -41, 291,
|
|
292, 293, 273, 274, 334, 333, 317, 318, -42, -43,
|
|
-44, 265, 323, -42, -42, -49, -50, -1, -54, -55,
|
|
-1, -57, 301, 302, 303, 304, 305, 310, 311, 306,
|
|
-61, 303, 302, 304, 307, 308, 309, -62, 325, -58,
|
|
-59, 266, -10, -11, 338, 339, 340, 341, -15, -16,
|
|
335, -22, -23, 336, 337, -1, -19, -1, -21, 326,
|
|
-36, -40, -43, -45, 258, -50, -2, 319, -55, -2,
|
|
-58, 278, -63, -1, -64, -1, 266, 324, -11, -12,
|
|
342, -16, -12, -23, -18, -16, -20, -16, 266, -46,
|
|
-48, -47, -37, -38, -41, 323, -3, 320, -1, 324,
|
|
-1, -60, 266, -12, -13, 261, -12, -13, -16, -13,
|
|
-16, -13, -47, -51, -52, 313, 266, -1, 266, -13,
|
|
319, -13, -13, -13, -4, 272, -53, 266, 321, 322,
|
|
-56, 272, -56, 266, -5, 341 };
|
|
short yydef[]={
|
|
|
|
3, -2, 2, 0, 7, 11, 0, 0, 1, 38,
|
|
0, 0, 0, 0, 0, 45, 46, 0, 48, 49,
|
|
50, 51, 52, 53, 54, 55, 56, 0, 0, 86,
|
|
88, 90, 124, 144, 154, 0, 180, 167, 4, 5,
|
|
34, 149, 150, 9, 23, 15, 19, 37, 39, 40,
|
|
41, 42, 43, 58, 59, 44, 47, 60, 62, 63,
|
|
64, 105, 106, 107, 108, 109, 110, 111, 112, 113,
|
|
114, 115, 116, 117, 118, 119, 120, 121, 122, 65,
|
|
66, 67, 68, 69, 70, 71, 73, 74, 75, 76,
|
|
77, 78, 79, 80, 81, 82, 83, 84, 85, 92,
|
|
97, 94, 95, 87, 89, 123, 126, 129, 143, 146,
|
|
129, 167, 155, 156, 157, 158, 159, 160, 161, 163,
|
|
171, 172, 173, 174, 175, 176, 177, 0, 0, 170,
|
|
165, 166, 34, 36, 30, 31, 32, 33, 23, 36,
|
|
21, 22, 25, 26, 27, 13, 23, 17, 23, 0,
|
|
61, 72, 91, 104, 0, 125, 133, 0, 145, 0,
|
|
153, 162, 178, 184, 179, 181, 182, 169, 36, 29,
|
|
35, 36, 29, 24, 23, 29, 23, 29, 57, 93,
|
|
103, 102, 98, 99, 100, 96, 136, 0, 128, 0,
|
|
183, 164, 168, 29, 8, 0, 29, 12, 29, 16,
|
|
29, 20, 101, 140, 138, 135, 132, 152, 152, 6,
|
|
0, 10, 14, 18, 142, 139, 134, 137, 130, 131,
|
|
147, 151, 148, 28, 127, 141 };
|
|
# define YYFLAG -1000
|
|
# define YYERROR goto yyerrlab
|
|
# define YYACCEPT return(0)
|
|
# define YYABORT return(1)
|
|
|
|
#ifdef YYDEBUG /* RRR - 10/9/85 */
|
|
#define yyprintf(a, b, c) printf(a, b, c)
|
|
#else
|
|
#define yyprintf(a, b, c)
|
|
#endif
|
|
|
|
/* parser for yacc output */
|
|
|
|
YYSTYPE yyv[YYMAXDEPTH]; /* where the values are stored */
|
|
int yychar = -1; /* current input token number */
|
|
int yynerrs = 0; /* number of errors */
|
|
short yyerrflag = 0; /* error recovery flag */
|
|
|
|
int NEAR yyparse(void)
|
|
{
|
|
|
|
short yys[YYMAXDEPTH];
|
|
short yyj, yym;
|
|
register YYSTYPE *yypvt;
|
|
register short yystate, *yyps, yyn;
|
|
register YYSTYPE *yypv;
|
|
register short *yyxi;
|
|
|
|
yystate = 0;
|
|
yychar = -1;
|
|
yynerrs = 0;
|
|
yyerrflag = 0;
|
|
yyps= &yys[-1];
|
|
yypv= &yyv[-1];
|
|
|
|
yystack: /* put a state and value onto the stack */
|
|
|
|
yyprintf( "state %d, char 0%o\n", yystate, yychar );
|
|
if( ++yyps> &yys[YYMAXDEPTH] )
|
|
{
|
|
yyerror( "yacc stack overflow" );
|
|
return(1);
|
|
}
|
|
*yyps = yystate;
|
|
++yypv;
|
|
*yypv = yyval;
|
|
yynewstate:
|
|
|
|
yyn = yypact[yystate];
|
|
|
|
if( yyn<= YYFLAG ) goto yydefault; /* simple state */
|
|
|
|
if( yychar<0 ) if( (yychar=yylex())<0 ) yychar=0;
|
|
if( (yyn += (short)yychar)<0 || yyn >= YYLAST ) goto yydefault;
|
|
|
|
if( yychk[ yyn=yyact[ yyn ] ] == yychar )
|
|
{
|
|
/* valid shift */
|
|
yychar = -1;
|
|
yyval = yylval;
|
|
yystate = yyn;
|
|
if( yyerrflag > 0 ) --yyerrflag;
|
|
goto yystack;
|
|
}
|
|
yydefault:
|
|
/* default state action */
|
|
|
|
if( (yyn=yydef[yystate]) == -2 )
|
|
{
|
|
if( yychar<0 ) if( (yychar=yylex())<0 ) yychar = 0;
|
|
/* look through exception table */
|
|
|
|
for( yyxi=yyexca; (*yyxi!= (-1)) || (yyxi[1]!=yystate) ; yyxi += 2 ) ; /* VOID */
|
|
|
|
for(yyxi+=2; *yyxi >= 0; yyxi+=2)
|
|
{
|
|
if( *yyxi == yychar ) break;
|
|
}
|
|
if( (yyn = yyxi[1]) < 0 ) return(0); /* accept */
|
|
}
|
|
|
|
if( yyn == 0 )
|
|
{
|
|
/* error */
|
|
/* error ... attempt to resume parsing */
|
|
|
|
switch( yyerrflag )
|
|
{
|
|
|
|
case 0: /* brand new error */
|
|
|
|
yyerror( "syntax error" );
|
|
++yynerrs;
|
|
|
|
case 1:
|
|
case 2: /* incompletely recovered error ... try again */
|
|
|
|
yyerrflag = 3;
|
|
|
|
/* find a state where "error" is a legal shift action */
|
|
|
|
while ( yyps >= yys )
|
|
{
|
|
yyn = yypact[*yyps] + YYERRCODE;
|
|
if( yyn>= 0 && yyn < YYLAST && yychk[yyact[yyn]] == YYERRCODE )
|
|
{
|
|
yystate = yyact[yyn]; /* simulate a shift of "error" */
|
|
goto yystack;
|
|
}
|
|
yyn = yypact[*yyps];
|
|
|
|
/* the current yyps has no shift onn "error", pop stack */
|
|
|
|
yyprintf( "error recovery pops state %d, uncovers %d\n", *yyps, yyps[-1] );
|
|
--yyps;
|
|
--yypv;
|
|
}
|
|
|
|
/* there is no state on the stack with an error shift ... abort */
|
|
|
|
yyabort:
|
|
return(1);
|
|
|
|
|
|
case 3: /* no shift yet; clobber input char */
|
|
yyprintf( "error recovery discards char %d\n", yychar, 0 );
|
|
|
|
if( yychar == 0 ) goto yyabort; /* don't discard EOF, quit */
|
|
yychar = -1;
|
|
goto yynewstate; /* try again in the same state */
|
|
|
|
}
|
|
|
|
}
|
|
|
|
/* reduction by production yyn */
|
|
|
|
yyprintf("reduce %d\n",yyn, 0);
|
|
yyps -= yyr2[yyn];
|
|
yypvt = yypv;
|
|
yypv -= yyr2[yyn];
|
|
yyval = yypv[1];
|
|
yym=yyn;
|
|
/* consult goto table to find next state */
|
|
yyn = yyr1[yyn];
|
|
yyj = yypgo[yyn] + *yyps + 1;
|
|
if( yyj>=YYLAST || yychk[ yystate = yyact[yyj] ] != -yyn ) yystate = yyact[yypgo[yyn]];
|
|
switch(yym)
|
|
{
|
|
|
|
case 3:
|
|
|
|
{
|
|
DefaultModule(moduleEXE);
|
|
} break;
|
|
case 5:
|
|
|
|
{
|
|
fFileNameExpected = 0;
|
|
} break;
|
|
case 6:
|
|
|
|
{
|
|
NewModule(yypvt[-4]._bp, moduleEXE);
|
|
} break;
|
|
case 7:
|
|
|
|
{
|
|
fFileNameExpected = 0;
|
|
} break;
|
|
case 8:
|
|
|
|
{
|
|
DefaultModule(moduleEXE);
|
|
} break;
|
|
case 9:
|
|
|
|
{
|
|
fFileNameExpected = 0;
|
|
} break;
|
|
case 10:
|
|
|
|
{
|
|
NewModule(yypvt[-4]._bp, moduleDLL);
|
|
} break;
|
|
case 11:
|
|
|
|
{
|
|
fFileNameExpected = 0;
|
|
} break;
|
|
case 12:
|
|
|
|
{
|
|
DefaultModule(moduleDLL);
|
|
} break;
|
|
case 13:
|
|
|
|
{
|
|
fFileNameExpected = 0;
|
|
} break;
|
|
case 14:
|
|
|
|
{
|
|
NewModule(yypvt[-3]._bp, moduleDLL);
|
|
} break;
|
|
case 15:
|
|
|
|
{
|
|
fFileNameExpected = 0;
|
|
} break;
|
|
case 16:
|
|
|
|
{
|
|
DefaultModule(moduleDLL);
|
|
} break;
|
|
case 17:
|
|
|
|
{
|
|
fFileNameExpected = 0;
|
|
} break;
|
|
case 18:
|
|
|
|
{
|
|
NewModule(yypvt[-3]._bp, moduleDLL);
|
|
} break;
|
|
case 19:
|
|
|
|
{
|
|
fFileNameExpected = 0;
|
|
} break;
|
|
case 20:
|
|
|
|
{
|
|
DefaultModule(moduleDLL);
|
|
} break;
|
|
case 21:
|
|
|
|
{
|
|
} break;
|
|
case 127:
|
|
|
|
{
|
|
if (yypvt[-0]._wd)
|
|
{
|
|
// Skip private exports
|
|
|
|
free(yypvt[-5]._bp);
|
|
free(yypvt[-4]._bp);
|
|
}
|
|
else
|
|
export(yypvt[-5]._bp,yypvt[-4]._bp,yypvt[-3]._wd,yypvt[-1]._wd);
|
|
} break;
|
|
case 128:
|
|
|
|
{
|
|
yyval._bp = yypvt[-0]._bp;
|
|
} break;
|
|
case 129:
|
|
|
|
{
|
|
yyval._bp = NULL;
|
|
} break;
|
|
case 130:
|
|
|
|
{
|
|
yyval._wd = yypvt[-1]._wd;
|
|
} break;
|
|
case 131:
|
|
|
|
{
|
|
yyval._wd = yypvt[-1]._wd;
|
|
} break;
|
|
case 132:
|
|
|
|
{
|
|
yyval._wd = yypvt[-0]._wd;
|
|
} break;
|
|
case 133:
|
|
|
|
{
|
|
yyval._wd = 0;
|
|
} break;
|
|
case 139:
|
|
|
|
{
|
|
yyval._wd = 0x1;
|
|
} break;
|
|
case 140:
|
|
|
|
{
|
|
yyval._wd = 0;
|
|
} break;
|
|
case 141:
|
|
|
|
{
|
|
yyval._wd = 1;
|
|
} break;
|
|
case 142:
|
|
|
|
{
|
|
yyval._wd = 0;
|
|
} break;
|
|
case 149:
|
|
|
|
{
|
|
yyval._bp = _strdup(rgbid);
|
|
} break;
|
|
case 150:
|
|
|
|
{
|
|
yyval._bp = _strdup(rgbid);
|
|
} break;/* End of actions */
|
|
}
|
|
goto yystack; /* stack new state and value */
|
|
|
|
}
|