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.
101 lines
1.8 KiB
101 lines
1.8 KiB
//
|
|
// outline.c
|
|
//
|
|
// these are the file outline routines
|
|
//
|
|
//
|
|
#include <string.h>
|
|
#if defined(OS2)
|
|
#define INCL_NOCOMMON
|
|
#define INCL_DOSPROCESS
|
|
#define INCL_DOSSEMAPHORES
|
|
#define INCL_DOSFILEMGR
|
|
#define INCL_DOSERRORS
|
|
#define INCL_DOSMISC
|
|
#include <os2.h>
|
|
#else
|
|
#include <windows.h>
|
|
#endif
|
|
|
|
#include <dos.h>
|
|
|
|
#include "hungary.h"
|
|
#include "bsc.h"
|
|
#include "bscsup.h"
|
|
|
|
// forward ref
|
|
|
|
VOID BSC_API
|
|
OutlineMod(IMOD imod, MBF mbf)
|
|
// print the outline for this module
|
|
//
|
|
{
|
|
IMS ims, imsMac;
|
|
IINST iinst;
|
|
|
|
BSCPrintf("\n%s\n", LszNameFrMod(imod));
|
|
|
|
MsRangeOfMod(imod, &ims, &imsMac);
|
|
for ( ;ims < imsMac; ims++) {
|
|
iinst = IinstOfIms(ims);
|
|
|
|
if (FInstFilter (iinst, mbf)) {
|
|
BSCPrintf(" ");
|
|
DumpInst(iinst);
|
|
BSCPrintf("\n");
|
|
}
|
|
}
|
|
}
|
|
|
|
BOOL BSC_API
|
|
FOutlineModuleLsz (LSZ lszName, MBF mbf)
|
|
// generate an outline for all files matching the given name/pattern
|
|
// showing only those items which match the required attribute
|
|
//
|
|
{
|
|
IMOD imod, imodMac;
|
|
BOOL fRet = FALSE;
|
|
|
|
if (!lszName)
|
|
return FALSE;
|
|
|
|
imodMac = ImodMac();
|
|
|
|
// we match base names only
|
|
|
|
lszName = LszBaseName(lszName);
|
|
for (imod = 0; imod < imodMac; imod++) {
|
|
if (FWildMatch(lszName, LszBaseName(LszNameFrMod(imod)))) {
|
|
OutlineMod (imod, mbf);
|
|
fRet = TRUE;
|
|
}
|
|
}
|
|
|
|
return fRet;
|
|
}
|
|
|
|
LSZ BSC_API
|
|
LszBaseName (LSZ lsz)
|
|
// return the base name part of a path
|
|
//
|
|
{
|
|
LSZ lszBase;
|
|
|
|
// check for empty string
|
|
|
|
if (!lsz || !lsz[0]) return lsz;
|
|
|
|
// remove drive
|
|
|
|
if (lsz[1] == ':') lsz += 2;
|
|
|
|
// remove up to trailing backslash
|
|
|
|
if (lszBase = strrchr(lsz, '\\')) lsz = lszBase+1;
|
|
|
|
// then remove up to trailing slash
|
|
|
|
if (lszBase = strrchr(lsz, '/')) lsz = lszBase+1;
|
|
|
|
return lsz;
|
|
}
|