229 lines
6.6 KiB
C
229 lines
6.6 KiB
C
|
|
||
|
|
// bsc.h
|
||
|
|
//
|
||
|
|
|
||
|
|
#include <stdarg.h>
|
||
|
|
|
||
|
|
#define BSC_API far
|
||
|
|
|
||
|
|
#if defined (OS2)
|
||
|
|
typedef int FILEHANDLE;
|
||
|
|
typedef int FILEMODE;
|
||
|
|
#else
|
||
|
|
typedef HANDLE FILEHANDLE;
|
||
|
|
typedef DWORD FILEMODE;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
//////////////////////////////////////////////////////////////////////
|
||
|
|
// you must define the following callbacks for the library to use
|
||
|
|
// to avoid dependancy on the C standard io library. If you don't
|
||
|
|
// define these then you accept the defaults which call C runtime
|
||
|
|
//
|
||
|
|
|
||
|
|
// malloc and free workalikes
|
||
|
|
|
||
|
|
LPV BSC_API LpvAllocCb(WORD cb);
|
||
|
|
VOID BSC_API FreeLpv(LPV lpv);
|
||
|
|
|
||
|
|
// open, read, close, seek workalikes
|
||
|
|
|
||
|
|
FILEHANDLE BSC_API BSCOpen(LSZ lszFileName, FILEMODE mode);
|
||
|
|
int BSC_API BSCRead(FILEHANDLE handle, LPCH lpchBuf, WORD cb);
|
||
|
|
int BSC_API BSCSeek(FILEHANDLE handle, long lPos, FILEMODE mode);
|
||
|
|
int BSC_API BSCClose(FILEHANDLE handle);
|
||
|
|
|
||
|
|
|
||
|
|
// ascii text output routine
|
||
|
|
|
||
|
|
VOID BSC_API BSCOutput(LSZ lsz);
|
||
|
|
|
||
|
|
#ifdef DEBUG
|
||
|
|
VOID BSC_API BSCDebugOut(LSZ lsz);
|
||
|
|
VOID BSC_API BSCDebug(LSZ lszFormat, ...);
|
||
|
|
#endif
|
||
|
|
|
||
|
|
// error handling routines
|
||
|
|
//
|
||
|
|
VOID BSC_API SeekError(LSZ lszFileName); // (may choose to not return)
|
||
|
|
VOID BSC_API ReadError(LSZ lszFileName); // (may choose to not return)
|
||
|
|
VOID BSC_API BadBSCVer(LSZ lszFileName); // (may choose to not return)
|
||
|
|
|
||
|
|
// end of callbacks
|
||
|
|
//
|
||
|
|
///////////////////////////////////////////////////////////////////////
|
||
|
|
|
||
|
|
// an IDX is guaranteed to be big enough to hold any of the
|
||
|
|
// database index types, i.e. it is a generic index
|
||
|
|
|
||
|
|
typedef DWORD IDX;
|
||
|
|
|
||
|
|
#define idxNil 0xffffffffL
|
||
|
|
#define isymNil 0xffffL
|
||
|
|
#define imodNil 0xffffL
|
||
|
|
|
||
|
|
// definition and prototypes for use with the bsc library
|
||
|
|
//
|
||
|
|
typedef WORD IMOD;
|
||
|
|
typedef WORD IMS;
|
||
|
|
typedef WORD ISYM;
|
||
|
|
typedef WORD IINST;
|
||
|
|
typedef DWORD IREF;
|
||
|
|
typedef WORD IDEF;
|
||
|
|
typedef WORD IUSE;
|
||
|
|
typedef WORD IUBY;
|
||
|
|
typedef WORD TYP;
|
||
|
|
typedef WORD ATR;
|
||
|
|
|
||
|
|
// Open the specified data base.
|
||
|
|
// Return TRUE iff successful, FALSE if database can't be read
|
||
|
|
//
|
||
|
|
BOOL BSC_API FOpenBSC (LSZ lszName);
|
||
|
|
|
||
|
|
// close database and free as much memory as possible
|
||
|
|
//
|
||
|
|
VOID BSC_API CloseBSC(VOID);
|
||
|
|
|
||
|
|
// return the length of the largest symbol in the database
|
||
|
|
//
|
||
|
|
WORD BSC_API BSCMaxSymLen(VOID);
|
||
|
|
|
||
|
|
// is this database built with a case sensitive language?
|
||
|
|
//
|
||
|
|
BOOL BSC_API FCaseBSC(VOID);
|
||
|
|
|
||
|
|
// override the case sensitivity of the database, symbol lookups become
|
||
|
|
// case (in)sensistive as specified
|
||
|
|
//
|
||
|
|
VOID BSC_API SetCaseBSC(BOOL fCaseSensitive);
|
||
|
|
|
||
|
|
// do a case insenstive compare qualified by a case sensitive compare
|
||
|
|
// if fCase is true -- this is the order of symbols in the symbol list
|
||
|
|
int BSC_API CaseCmp(LSZ lsz1, LSZ lsz2);
|
||
|
|
|
||
|
|
// return the name of the given symbol
|
||
|
|
//
|
||
|
|
LSZ BSC_API LszNameFrSym (ISYM isym);
|
||
|
|
|
||
|
|
// return the name of the given module
|
||
|
|
//
|
||
|
|
LSZ BSC_API LszNameFrMod (IMOD imod);
|
||
|
|
|
||
|
|
// return the imod with the given name -- imodNil if none
|
||
|
|
//
|
||
|
|
IMOD BSC_API ImodFrLsz(LSZ lszModName);
|
||
|
|
|
||
|
|
// return the isym with the given name -- isymNil if none
|
||
|
|
//
|
||
|
|
ISYM BSC_API IsymFrLsz(LSZ lszSymName);
|
||
|
|
|
||
|
|
// return the biggest isym in this database, isyms run from 0 to this value - 1
|
||
|
|
//
|
||
|
|
ISYM BSC_API IsymMac(VOID);
|
||
|
|
|
||
|
|
// return the biggest imod in this database, imods run from 0 to this value - 1
|
||
|
|
//
|
||
|
|
IMOD BSC_API ImodMac(VOID);
|
||
|
|
|
||
|
|
// return the biggest iinst in this database, iinsts run from 0 to the value -1
|
||
|
|
IINST BSC_API IinstMac(VOID);
|
||
|
|
|
||
|
|
// fill in the range of MS items valid for this module
|
||
|
|
//
|
||
|
|
VOID BSC_API MsRangeOfMod(IMOD imod, IMS far *pimsFirst, IMS far *pimsLast);
|
||
|
|
|
||
|
|
// give the instance index of the module symbol (MS)
|
||
|
|
//
|
||
|
|
IINST BSC_API IinstOfIms(IMS ims);
|
||
|
|
|
||
|
|
// fill in the range of inst values for this symbol
|
||
|
|
//
|
||
|
|
VOID BSC_API InstRangeOfSym(ISYM isym, IINST far *piinstFirst, IINST far *piinstLast);
|
||
|
|
|
||
|
|
// get the information that qualifies this instance
|
||
|
|
//
|
||
|
|
VOID BSC_API InstInfo(IINST iinst, ISYM far *pisymInst, TYP far *typ, ATR far *atr);
|
||
|
|
|
||
|
|
// fill in the reference ranges from the inst
|
||
|
|
//
|
||
|
|
VOID BSC_API RefRangeOfInst(IINST iinst, IREF far *pirefFirst, IREF far *pirefLast);
|
||
|
|
|
||
|
|
// fill in the definition ranges from the inst
|
||
|
|
//
|
||
|
|
VOID BSC_API DefRangeOfInst(IINST iinst, IDEF far *pidefFirst, IDEF far *pidefLast);
|
||
|
|
|
||
|
|
// fill in the use ranges from the inst
|
||
|
|
//
|
||
|
|
VOID BSC_API UseRangeOfInst(IINST iinst, IUSE far *piuseFirst, IUSE far *piuseLast);
|
||
|
|
|
||
|
|
// fill in the used by ranges from the inst
|
||
|
|
//
|
||
|
|
VOID BSC_API UbyRangeOfInst(IINST iinst, IUBY far *piubyFirst, IUBY far *piubyLast);
|
||
|
|
|
||
|
|
// fill in the information about this things which an inst uses
|
||
|
|
//
|
||
|
|
VOID BSC_API UseInfo(IUSE iuse, IINST far *piinst, WORD far *pcnt);
|
||
|
|
|
||
|
|
// fill in the information about this things which an inst is used by
|
||
|
|
//
|
||
|
|
VOID BSC_API UbyInfo(IUBY iuby, IINST far *piinst, WORD far *pcnt);
|
||
|
|
|
||
|
|
// fill in the information about this reference
|
||
|
|
//
|
||
|
|
VOID BSC_API RefInfo(IREF iref, LSZ far *plszName, WORD far *pline);
|
||
|
|
|
||
|
|
// fill in the information about this definition
|
||
|
|
//
|
||
|
|
VOID BSC_API DefInfo(IDEF idef, LSZ far *plszName, WORD far *pline);
|
||
|
|
|
||
|
|
// these are the bit values for the InstInfo() TYP and ATR types
|
||
|
|
//
|
||
|
|
//
|
||
|
|
|
||
|
|
// this is the type part of the field, it describes what sort of object
|
||
|
|
// we are talking about. Note the values are sequential -- the item will
|
||
|
|
// be exactly one of these things
|
||
|
|
//
|
||
|
|
|
||
|
|
#define INST_TYP_FUNCTION 0x01
|
||
|
|
#define INST_TYP_LABEL 0x02
|
||
|
|
#define INST_TYP_PARAMETER 0x03
|
||
|
|
#define INST_TYP_VARIABLE 0x04
|
||
|
|
#define INST_TYP_CONSTANT 0x05
|
||
|
|
#define INST_TYP_MACRO 0x06
|
||
|
|
#define INST_TYP_TYPEDEF 0x07
|
||
|
|
#define INST_TYP_STRUCNAM 0x08
|
||
|
|
#define INST_TYP_ENUMNAM 0x09
|
||
|
|
#define INST_TYP_ENUMMEM 0x0A
|
||
|
|
#define INST_TYP_UNIONNAM 0x0B
|
||
|
|
#define INST_TYP_SEGMENT 0x0C
|
||
|
|
#define INST_TYP_GROUP 0x0D
|
||
|
|
|
||
|
|
// this is the attribute part of the field, it describes the storage
|
||
|
|
// class and/or scope of the instance. Any combination of the bits
|
||
|
|
// might be set by some language compiler, but there are some combinations
|
||
|
|
// that done make sense.
|
||
|
|
|
||
|
|
#define INST_ATR_LOCAL 0x001
|
||
|
|
#define INST_ATR_STATIC 0x002
|
||
|
|
#define INST_ATR_SHARED 0x004
|
||
|
|
#define INST_ATR_NEAR 0x008
|
||
|
|
#define INST_ATR_COMMON 0x010
|
||
|
|
#define INST_ATR_DECL_ONLY 0x020
|
||
|
|
#define INST_ATR_PUBLIC 0x040
|
||
|
|
#define INST_ATR_NAMED 0x080
|
||
|
|
#define INST_ATR_MODULE 0x100
|
||
|
|
|
||
|
|
// simple minded printf replacements, only %d, %s supported -- SMALL
|
||
|
|
|
||
|
|
VOID BSC_API BSCFormat(LPCH lpchOut, LSZ lszFormat, va_list va);
|
||
|
|
VOID BSC_API BSCSprintf(LPCH lpchOut, LSZ lszFormat, ...);
|
||
|
|
VOID BSC_API BSCPrintf(LSZ lszFormat, ...);
|
||
|
|
|
||
|
|
|
||
|
|
// rjsa 10/22/90
|
||
|
|
// Some runtime library functions are broken, so intrinsics have
|
||
|
|
// to be used.
|
||
|
|
// BUGBUG
|
||
|
|
//#pragma intrinsic (memset, memcpy, memcmp)
|
||
|
|
//#pragma intrinsic (strset, strcpy, strcmp, strcat, strlen)
|