encounter
/
MWCC
mirror of https://git.wuffs.org/MWCC
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
MWCC/command_line/CmdLine/Src/Callbacks/CLDropinCallbacks_V10.cpp

1306 lines
42 KiB
C++
Raw Normal View History

let's commit all this before my VM blows up and nukes my work
2022-10-19 20:16:13 +00:00
#include "cmdline.h"
#include "plugin_internal.h"
extern char STSbuf[256];
static void ANSI_To_Mac_GMT_Time(time_t sectm, UInt32 *secs) {
struct tm *tmrec;
int years;
int ydays;
tmrec = localtime(&sectm);
years = tmrec->tm_year - 4;
ydays =
(years * 365) +
((years + 3) / 4) -
((years + 4) / 100) +
((years - 296) / 400);
*secs =
((ydays + tmrec->tm_yday) * 86400)
+ (tmrec->tm_hour * 3600)
+ (tmrec->tm_min * 60)
+ (tmrec->tm_sec);
}
static void Mac_To_ANSI_Time(UInt32 secs, time_t *sectm) {
static int monthdays[12] = {
31, 28, 31, 30,
31, 30, 31, 31,
30, 31, 30, 31
};
struct tm tmrec;
int month;
memset(&tmrec, 0, sizeof(tmrec));
tmrec.tm_sec = secs % 60; // line 1523
tmrec.tm_min = (secs / 60) % 60; // line 1524
tmrec.tm_hour = (secs / 3600) % 24; // line 1525
tmrec.tm_yday = (secs / 86400) % 365;
tmrec.tm_year = (secs / 31536000) + 4; // line 1533
tmrec.tm_yday -=
((((secs / 31536000) + 3) / 4)
-
(((secs / 31536000) + 4) / 100)
+
((SInt32)((secs / 31536000) - 296) / 400))
;
if ((tmrec.tm_year % 4) && ((tmrec.tm_year % 100) || !(tmrec.tm_year % 400))) {
monthdays[1] = 28;
} else {
monthdays[1] = 29;
}
for (month = 0; tmrec.tm_yday >= monthdays[month]; month++) {
tmrec.tm_yday -= monthdays[month];
}
tmrec.tm_mon = month;
tmrec.tm_mday = tmrec.tm_yday + 1;
*sectm = mktime(&tmrec);
if (month >= 4 && month < 10)
*sectm += 3600;
}
CWResult UCBGetFileInfo(CWPluginContext context, SInt32 whichfile, Boolean checkFileLocation, CWProjectFileInfo *fileinfo) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBGetFileInfo");
File *file;
SInt16 id;
int ret;
char fullpath[256];
time_t tmptime;
file = Files_GetFile(&gTarg->files, whichfile);
if (!file)
return cwErrUnknownFile;
memset(fileinfo, 0, sizeof(CWProjectFileInfo));
OS_OSSpec_To_FSSpec(&file->srcfss, &fileinfo->filespec);
OS_TimeToMac(file->srcmoddate, &fileinfo->moddate);
Mac_To_ANSI_Time(fileinfo->moddate, &tmptime);
ANSI_To_Mac_GMT_Time(tmptime, &fileinfo->moddate);
fileinfo->segment = file->segnum;
fileinfo->hasobjectcode = file->hasobjectcode;
fileinfo->hasresources = file->hasresources;
fileinfo->isresourcefile = file->isresourcefile;
fileinfo->weakimport = file->weakimport;
fileinfo->initbefore = file->initbefore;
fileinfo->mergeintooutput = file->mergeintooutput;
fileinfo->reserved = 0;
fileinfo->gendebug = file->gendebug;
OS_TimeToMac(file->outmoddate, &fileinfo->objmoddate);
if (file->compiler) {
strncpy(fileinfo->dropinname, Plugin_GetDropInName(file->compiler), 31);
fileinfo->dropinname[31] = 0;
} else {
fileinfo->dropinname[0] = 0;
}
fileinfo->fileID = file->browseFileID;
fileinfo->recordbrowseinfo = file->recordbrowseinfo;
fileinfo->filetype = file->filetype;
fileinfo->filecreator = file->filecreator;
if (optsCompiler.browserEnabled) {
ret = Browser_SearchFile(&clState.browseTableHandle, OS_SpecToString(&file->srcfss, fullpath, sizeof(fullpath)), &id);
if (ret) {
fileinfo->recordbrowseinfo = 1;
fileinfo->fileID = id;
} else {
fileinfo->recordbrowseinfo = 0;
fileinfo->fileID = id;
}
} else {
fileinfo->recordbrowseinfo = 0;
fileinfo->fileID = 0;
}
fileinfo->unitdatadependencytag = 0;
fileinfo->hasunitdata = 0;
return cwNoErr;
}
static Boolean FindAndLoad_VirtualFile(CWPluginContext context, const char *filename, CWFileInfo *fileinfo, OSSpec *spec, Boolean *loaded) {
VFile *vf;
char *fnameptr;
fnameptr = OS_GetFileNamePtr(const_cast<char *>(filename));
vf = VFiles_Find(gTarg->virtualFiles, fnameptr);
if (vf) {
if (!fileinfo->suppressload) {
CopyFileText(vf->data, const_cast<char **>(&fileinfo->filedata), &fileinfo->filedatalength);
*loaded = 1;
}
fileinfo->filedatatype = cwFileTypeText;
fileinfo->fileID = 0;
fileinfo->alreadyincluded = 0;
fileinfo->recordbrowseinfo = 0;
fileinfo->filespec.parID = 0;
fileinfo->filespec.vRefNum = 0;
c2pstrcpy(fileinfo->filespec.name, fnameptr);
OS_MakeFileSpec(fnameptr, spec);
if (optsCompiler.printHeaderNames)
CLPrint("%s\n", fnameptr);
return 1;
}
return 0;
}
static Boolean FindAndLoad_AccessPathFile(CWPluginContext context, const char *filename, CWFileInfo *fileinfo, OSSpec *spec, Boolean *loaded) {
SInt32 incl;
shellContextType *sc;
File *depfile;
SInt16 id;
int ret;
char fullpath[256];
if (Incls_FindFileInPaths(&gTarg->incls, const_cast<char *>(filename), fileinfo->fullsearch || optsCompiler.noSysPath, spec, &incl)) {
if (context->pluginType == CWDROPINCOMPILERTYPE) {
depfile = Files_GetFile(
&gTarg->files,
(fileinfo->isdependentoffile < 0) ? static_cast<CWCompilerLinkerContext *>(context)->whichfile : fileinfo->isdependentoffile);
if (depfile)
Deps_AddDependency(&depfile->deps, incl, NULL, 0, fileinfo->dependencyType, &fileinfo->alreadyincluded);
if (optsCompiler.browserEnabled) {
ret = Browser_SearchAndAddFile(&clState.browseTableHandle, OS_SpecToString(spec, fullpath, sizeof(fullpath)), &id);
if (ret == 0) {
return 2;
} else if (ret < 0) {
fileinfo->recordbrowseinfo = 1;
fileinfo->fileID = id;
} else {
fileinfo->recordbrowseinfo = 0;
fileinfo->fileID = id;
}
} else {
fileinfo->recordbrowseinfo = 0;
fileinfo->fileID = 0;
}
}
OS_OSSpec_To_FSSpec(spec, &fileinfo->filespec);
return 1;
}
return 0;
}
static Boolean FindAndLoad_MissingFile(CWPluginContext context, const char *filename, CWFileInfo *fileinfo, OSSpec *spec, Boolean *loaded) {
File *file;
CWCompilerLinkerContext *c;
if (optsCompiler.ignoreMissingFiles) {
if (context->pluginType == CWDROPINCOMPILERTYPE || context->pluginType == CWDROPINLINKERTYPE)
c = static_cast<CWCompilerLinkerContext *>(context);
else
return 0;
file = Files_GetFile(&gTarg->files, c->whichfile);
#line 486
OPTION_ASSERT(file != NULL);
OS_MakeSpecWithPath(&file->srcfss.path, filename, 1, spec);
Deps_AddDependency(&file->deps, -1, spec, !fileinfo->fullsearch && !optsCompiler.noSysPath, fileinfo->dependencyType, &fileinfo->alreadyincluded);
fileinfo->fileID = 0;
fileinfo->recordbrowseinfo = 0;
if (!fileinfo->suppressload) {
fileinfo->filedata = xstrdup("");
fileinfo->filedatalength = 0;
fileinfo->filedatatype = cwFileTypeText;
*loaded = 1;
} else {
fileinfo->filedata = NULL;
fileinfo->filedatalength = 0;
fileinfo->filedatatype = cwFileTypeUnknown;
}
OS_OSSpec_To_FSSpec(spec, &fileinfo->filespec);
return 1;
}
return 0;
}
CWResult UCBFindAndLoadFile(CWPluginContext context, const char *infilename, CWFileInfo *fileinfo) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBFindAndLoadFile");
OSSpec spec;
Boolean loaded;
char filename[256];
char browseinfo[64];
ShowWorking(8);
if (CheckForUserBreak())
return cwErrUserCanceled;
if (optsCompiler.canonicalIncludes)
strcpy(filename, infilename);
else if (OS_CanonPath(infilename, filename))
return cwErrInvalidParameter;
loaded = 0;
if (!FindAndLoad_VirtualFile(context, filename, fileinfo, &spec, &loaded) && !FindAndLoad_AccessPathFile(context, filename, fileinfo, &spec, &loaded) && !FindAndLoad_MissingFile(context, filename, fileinfo, &spec, &loaded)) {
return cwErrFileNotFound;
}
if (optsCompiler.printHeaderNames)
CLPrint("%s\n", OS_SpecToStringRelative(&spec, NULL, STSbuf, sizeof(STSbuf)));
if (context->pluginType == CWDROPINCOMPILERTYPE) {
if (optsCmdLine.verbose > 2) {
sprintf(browseinfo, " (browse fileID %d)", fileinfo->fileID);
CLReport(
CLStr21,
fileinfo->alreadyincluded ? "Included" : "Including",
OS_SpecToString(&spec, STSbuf, sizeof(STSbuf)),
fileinfo->recordbrowseinfo ? browseinfo : "");
} else if (optsCmdLine.verbose > 1 && !fileinfo->alreadyincluded) {
CLReport(
CLStr21,
"Including",
OS_SpecToString(&spec, STSbuf, sizeof(STSbuf)),
"");
}
} else {
fileinfo->fileID = 0;
fileinfo->recordbrowseinfo = 0;
fileinfo->alreadyincluded = 0;
}
if (!loaded) {
if (!fileinfo->suppressload) {
return UCBGetFileText(context, &fileinfo->filespec, &fileinfo->filedata, &fileinfo->filedatalength, &fileinfo->filedatatype);
} else {
fileinfo->filedata = NULL;
fileinfo->filedatalength = 0;
fileinfo->filedatatype = cwFileTypeUnknown;
return cwNoErr;
}
} else {
return cwNoErr;
}
}
CWResult UCBGetFileText(CWPluginContext context, const CWFileSpec *filespec, const char **text, SInt32 *textLength, short *filedatatype) {
int err;
Handle texthandle = NULL;
Boolean precomp;
OSSpec spec;
VFile *vf;
char filename[64];
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBGetFileText");
OS_FSSpec_To_OSSpec(filespec, &spec);
err = LoadAndCacheFile(&spec, &texthandle, &precomp);
if (err) {
p2cstrcpy(filename, filespec->name);
if (filespec->vRefNum || filespec->parID || !(vf = VFiles_Find(gTarg->virtualFiles, filename))) {
CLReportOSError(CLStr93, err, OS_SpecToString(&spec, STSbuf, sizeof(STSbuf)));
return cwErrFileNotFound;
}
CopyFileText(vf->data, const_cast<char **>(text), textLength);
*filedatatype = cwFileTypeText;
int err = OS_MakeFileSpec(filename, &spec);
} else {
if (texthandle) {
if (!precomp) {
CopyFileText(texthandle, const_cast<char **>(text), textLength);
FreeIncludeFile(texthandle);
} else {
HLock(texthandle);
*text = *texthandle;
*textLength = GetHandleSize(texthandle);
}
}
if (texthandle) {
if (!precomp)
*filedatatype = cwFileTypeText;
else
*filedatatype = cwFileTypePrecompiledHeader;
} else {
*filedatatype = cwFileTypeUnknown;
}
}
return cwNoErr;
}
CWResult UCBReleaseFileText(CWPluginContext context, const char *text) {
short callbackResult = 0;
CWCompilerLinkerContext *cc = static_cast<CWCompilerLinkerContext *>(context);
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBReleaseFileText");
if (text) {
if (text != cc->sourcetext)
xfree((void *) text);
} else {
callbackResult = cwErrInvalidParameter;
}
return callbackResult;
}
CWResult UCBGetSegmentInfo(CWPluginContext context, SInt32 whichsegment, CWProjectSegmentInfo *segmentinfo) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBGetSegmentInfo");
if (gTarg->linkmodel != LinkModel1)
return cwErrInvalidCallback;
Segment *seg = Segments_GetSegment(&gTarg->linkage.segs, whichsegment);
if (!seg)
return cwErrUnknownSegment;
strcpy(segmentinfo->name, seg->name);
segmentinfo->attributes = seg->attrs;
return cwNoErr;
}
CWResult UCBGetOverlay1GroupInfo(CWPluginContext context, SInt32 whichgroup, CWOverlay1GroupInfo *groupinfo) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBGetOverlay1GroupInfo");
OvlGroup *grp = Overlays_GetOvlGroup(&gTarg->linkage.overlays, whichgroup);
if (gTarg->linkmodel != LinkModel2)
return cwErrInvalidCallback;
if (grp) {
strcpy(groupinfo->name, grp->name);
groupinfo->address.lo = grp->addr.lo;
groupinfo->address.hi = grp->addr.hi;
groupinfo->numoverlays = OvlGroup_CountOverlays(grp);
return cwNoErr;
} else {
return cwErrInvalidParameter;
}
}
CWResult UCBGetOverlay1FileInfo(CWPluginContext context, SInt32 whichgroup, SInt32 whichoverlay, SInt32 whichoverlayfile, CWOverlay1FileInfo *fileinfo) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBGetOverlay1FileInfo");
if (gTarg->linkmodel != LinkModel2)
return cwErrInvalidCallback;
SInt32 filenum = Overlays_GetFileInOverlay(&gTarg->linkage.overlays, whichgroup, whichoverlay, whichoverlayfile);
if (filenum >= 0) {
fileinfo->whichfile = filenum;
return cwNoErr;
} else {
return cwErrInvalidParameter;
}
}
CWResult UCBGetOverlay1Info(CWPluginContext context, SInt32 whichgroup, SInt32 whichoverlay, CWOverlay1Info *overlayinfo) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBGetOverlay1Info");
if (gTarg->linkmodel != LinkModel2)
return cwErrInvalidCallback;
Overlay *oly = Overlays_GetOverlayInGroup(&gTarg->linkage.overlays, whichgroup, whichoverlay);
if (oly) {
strcpy(overlayinfo->name, oly->name);
overlayinfo->numfiles = Overlay_CountFiles(oly);
return cwNoErr;
} else {
return cwErrInvalidParameter;
}
}
CWResult UCBReportMessage(CWPluginContext context, const CWMessageRef *msgRef, const char *line1, const char *line2, short errorlevel, SInt32 errorNumber) {
if (optsCmdLine.verbose > 4)
CLPrint("Callback: %s\n", "UCBReportMessage");
short msgType;
int eeol;
const char *eeptr;
char *tptr;
MessageRef ref;
CWCompilerLinkerContext *clx;
static const char *fmts[2][2][2] = {
"%\n", "%",
"%\n", "%",
"%\n%\n", "%%\n",
"%\n%", "%%"
};
if (line1 == NULL) {
line1 = "";
eeol = 0;
} else {
eeptr = line1 + strlen(line1) - 1;
eeol = *eeptr == '\r' || *eeptr == '\n';
}
if (CheckForUserBreak())
return cwErrUserCanceled;
if (errorlevel == messagetypeError)
msgType = CLStyledMessageDispatch_Type3;
else if (errorlevel == messagetypeWarning)
msgType = CLStyledMessageDispatch_Type2;
else
msgType = CLStyledMessageDispatch_Type1;
clx = static_cast<CWCompilerLinkerContext *>(context);
if (!msgRef) {
if (line2 && line2[0]) {
eeptr = line2 + strlen(line2) - 1;
int eeol2 = *eeptr == '\r' || *eeptr == '\n';
CLStyledMessageDispatch(
static_cast<shellContextType *>(clx->shellContext)->plugin,
NULL,
errorNumber,
msgType,
fmts[1][eeol2][eeol],
line1,
line2
);
} else {
CLStyledMessageDispatch(
static_cast<shellContextType *>(clx->shellContext)->plugin,
NULL,
errorNumber,
msgType,
fmts[0][0][eeol],
line1
);
}
} else {
OS_FSSpec_To_OSSpec(&clx->sourcefile, &ref.sourcefile);
OS_FSSpec_To_OSSpec(&msgRef->sourcefile, &ref.errorfile);
ref.sourceline = const_cast<char *>(line2);
ref.linenumber = msgRef->linenumber;
ref.tokenoffset = msgRef->tokenoffset;
ref.tokenlength = msgRef->tokenlength;
ref.selectionoffset = msgRef->selectionoffset;
ref.selectionlength = msgRef->selectionlength;
if (ref.tokenoffset < 0)
ref.tokenoffset = 0;
if (ref.tokenlength < 0)
ref.tokenlength = 0;
if (ref.selectionoffset < 0)
ref.selectionoffset = 0;
if (ref.selectionlength < 0)
ref.selectionlength = 0;
CLStyledMessageDispatch(
static_cast<shellContextType *>(clx->shellContext)->plugin,
&ref,
errorNumber,
msgType,
fmts[0][0][eeol],
line1
);
}
return cwNoErr;
}
CWResult UCBAlert(CWPluginContext context, const char *msg1, const char *msg2, const char *msg3, const char *msg4) {
if (optsCmdLine.verbose > 4)
CLPrint("Callback: %s\n", "UCBAlert");
if (CheckForUserBreak())
return cwErrUserCanceled;
if (msg4) {
CLStyledMessageDispatch(
static_cast<shellContextType *>(context->shellContext)->plugin,
NULL,
0,
CLStyledMessageDispatch_Type4,
"%\n%\n%\n%\n",
msg1 ? msg1 : "",
msg2 ? msg2 : "",
msg3 ? msg3 : "",
msg4
);
} else if (msg3) {
CLStyledMessageDispatch(
static_cast<shellContextType *>(context->shellContext)->plugin,
NULL,
0,
CLStyledMessageDispatch_Type4,
"%\n%\n%\n",
msg1 ? msg1 : "",
msg2 ? msg2 : "",
msg3
);
} else if (msg2) {
CLStyledMessageDispatch(
static_cast<shellContextType *>(context->shellContext)->plugin,
NULL,
0,
CLStyledMessageDispatch_Type4,
"%\n%\n",
msg1 ? msg1 : "",
msg2
);
} else {
CLStyledMessageDispatch(
static_cast<shellContextType *>(context->shellContext)->plugin,
NULL,
0,
CLStyledMessageDispatch_Type4,
"%\n",
msg1 ? msg1 : ""
);
}
return cwNoErr;
}
CWResult UCBShowStatus(CWPluginContext context, const char *line1, const char *line2) {
if (optsCmdLine.verbose > 4)
CLPrint("Callback: %s\n", "UCBShowStatus");
if (CheckForUserBreak())
return cwErrUserCanceled;
if (optsCmdLine.verbose > 1) {
if ((!line1 || !*line1) && (!line2 || !*line2))
return cwNoErr;
if (line2 && *line2) {
CLStyledMessageDispatch(
static_cast<shellContextType *>(context->shellContext)->plugin,
NULL,
0,
CLStyledMessageDispatch_Type5,
"%\n%\n",
line1 ? line1 : "",
line2 ? line2 : ""
);
} else {
CLStyledMessageDispatch(
static_cast<shellContextType *>(context->shellContext)->plugin,
NULL,
0,
CLStyledMessageDispatch_Type5,
"%\n",
line1 ? line1 : ""
);
}
}
return cwNoErr;
}
CWResult UCBUserBreak(CWPluginContext context) {
if (optsCmdLine.verbose > 4)
CLPrint("Callback: %s\n", "UCBUserBreak");
ShowWorking(8);
if (CheckForUserBreak())
return cwErrUserCanceled;
else
return cwNoErr;
}
CWResult UCBGetNamedPreferences(CWPluginContext context, const char *prefsname, CWMemHandle *prefsdata) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBGetNamedPreferences");
PrefPanel *pnl = Prefs_FindPanel(prefsname);
if (pnl) {
if (optsCmdLine.verbose > 2)
CLReport(83, prefsname);
UCBSecretAttachHandle(context, PrefPanel_GetHandle(pnl), prefsdata);
return cwNoErr;
} else {
CLReportError(91, prefsname);
*prefsdata = NULL;
return cwErrRequestFailed;
}
}
CWResult UCBStorePluginData(CWPluginContext context, SInt32 whichfile, CWDataType type, CWMemHandle prefsdata) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBStorePluginData");
#line 1267
DO_INTERNAL_ERROR("UCBStorePluginData not implemented");
return cwErrRequestFailed;
}
CWResult UCBGetPluginData(CWPluginContext context, SInt32 whichfile, CWDataType type, CWMemHandle *prefsdata) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBGetPluginData");
#line 1286
DO_INTERNAL_ERROR("UCBGetPluginData not implemented");
return cwErrRequestFailed;
}
CWResult UCBSetModDate(CWPluginContext context, const CWFileSpec *filespec, CWFileTime *moddate, Boolean isGenerated) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBSetModDate");
OSSpec spec;
time_t mdtm;
int err;
SInt32 idx;
File *file;
OS_FSSpec_To_OSSpec(filespec, &spec);
if (!moddate || !*moddate)
OS_GetTime(&mdtm);
else
OS_MacToTime(*moddate, &mdtm);
for (idx = 0; idx < Files_Count(&gTarg->files); idx++) {
file = Files_GetFile(&gTarg->files, idx);
if (OS_EqualSpec(&file->srcfss, &spec))
file->srcmoddate = mdtm;
else if (OS_EqualSpec(&file->outfss, &spec))
file->outmoddate = mdtm;
}
err = OS_SetFileTime(&spec, NULL, &mdtm);
if (err == 0)
return cwNoErr;
else
return cwErrRequestFailed;
}
CWResult UCBAddProjectEntry(CWPluginContext context, const CWFileSpec *fileSpec, Boolean isGenerated, const CWNewProjectEntryInfo *entry, SInt32 *whichfile) {
// two registers are awkwardly swapped here...
File *file;
OSSpec fss;
UInt32 filetype;
Plugin *plugin;
char *extptr;
char ext[16];
UInt32 flags;
char filename[256];
const DropInFlags *df;
OvlGroup *ovg;
Overlay *oly;
SInt32 idx;
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBAddProjectEntry");
OS_FSSpec_To_OSSpec(fileSpec, &fss);
if (OS_IsDir(&fss))
return cwErrInvalidParameter;
OS_NameSpecToString(&fss.name, filename, sizeof(filename));
if (gTarg->linker && !(gTarg->linkerDropinFlags & (linkAllowDupFileNames | dropInExecutableTool))) {
if (Files_FindFile(&gTarg->files, &fss)) {
if (optsCmdLine.verbose > 1)
CLReportWarning(CLStr106, filename);
return cwNoErr;
}
}
extptr = filename + strlen(filename) - 1;
while (extptr > filename && *extptr != '.')
--extptr;
if (extptr <= filename)
extptr = ".";
strncpy(ext, extptr, sizeof(ext) - 1);
ext[sizeof(ext) - 1] = 0;
OS_SpecToStringRelative(&fss, NULL, filename, sizeof(filename));
if (optsCmdLine.verbose > 2)
CLReport(CLStr77, " to project", filename);
if (OS_GetMacFileType(&fss, &filetype))
filetype = CWFOURCHAR('T','E','X','T');
plugin = Plugins_GetPluginForFile(NULL, CWDROPINANYTYPE, targetCPUAny, targetOSAny, filetype, ext, Lang_Any);
if (plugin && gTarg->linker && !Plugin_CL_MatchesTarget(plugin, gTarg->cpu, gTarg->os, 0))
CLReportError(CLStr76, filename);
if (!plugin)
plugin = Plugins_CL_MatchTarget(NULL, gTarg->cpu, gTarg->os, clState.plugintype, clState.language);
if (plugin) {
if (!Plugin_CL_GetCompilerMapping(plugin, filetype, ext, &flags)) {
flags = 0;
if (!isGenerated && !optsCompiler.compileIgnored && optsCompiler.forcePrecompile != 1) {
CLReportWarning(
CLStr73,
"file", filename,
(clState.plugintype == CWDROPINCOMPILERTYPE) ? "treating as source text" : "passing unknown file to linker"
);
}
if (isGenerated)
flags = kIgnored;
} else if (!isGenerated && (flags & kIgnored) && !optsCompiler.compileIgnored) {
if ((!optsCmdLine.stages || (optsCmdLine.stages & (CmdLineStageMask_Cg | CmdLineStageMask_Ds))) && (optsCompiler.forcePrecompile != 1))
CLReportWarning(CLStr28, filename);
else
flags &= ~kIgnored;
}
if (optsCompiler.compileIgnored && !isGenerated)
flags &= ~kIgnored;
if (clState.pluginDebug) {
CLPrint("Using plugin '%s' for '%s'\n", Plugin_GetDropInName(plugin), filename);
CLPrint(
"[flags: %s, %s, %s, %s]\n",
(flags & kPrecompile) ? "precompile" : "don't precompile",
(flags & kLaunchable) ? "launchable" : "not launchable",
(flags & kRsrcfile) ? "resource file" : "not resource file",
(flags & kIgnored) ? "ignored" : "used"
);
}
} else {
CLReportError(CLStr74, filename);
flags = kIgnored;
}
file = File_New();
if (!file)
return cwErrOutOfMemory;
Deps_Initialize(&file->deps, &gTarg->incls);
file->segnum = (entry->segment == -1) ? (Segments_Count(&gTarg->linkage.segs) - 1) : entry->segment;
strcpy(file->srcfilename, filename);
file->srcfss = fss;
OS_GetFileTime(&file->srcfss, NULL, &file->srcmoddate);
OS_GetTime(&file->outmoddate);
file->outfilename[0] = 0;
memset(&file->outfss, 0, sizeof(file->outfss));
file->outfileowner = 0;
file->tempOnDisk = 0;
file->wroteToDisk = 0;
file->writeToDisk = 0;
if (plugin && Plugin_GetPluginType(plugin) != CWDROPINCOMPILERTYPE)
file->compiler = NULL;
else
file->compiler = plugin;
file->filetype = filetype;
file->mappingflags = flags;
if (file->compiler) {
df = Plugin_GetDropInFlags(file->compiler);
file->dropinflags = df->dropinflags;
} else {
file->dropinflags = 0;
}
file->weakimport = entry->weakimport;
file->initbefore = entry->initbefore;
file->mergeintooutput = entry->mergeintooutput;
file->isresourcefile = (flags & kRsrcfile) != 0;
if (file->compiler)
file->objectflags = Plugin_CL_GetObjectFlags(file->compiler)->flags;
else
file->objectflags = 0;
file->sourceUsage = 0;
if (!(file->mappingflags & kIgnored)) {
if (file->compiler) {
file->sourceUsage |= CmdLineStageMask_Pp;
if (!(file->objectflags & 0x80000000))
file->sourceUsage |= CmdLineStageMask_Cg;
} else if (plugin) {
file->sourceUsage |= CmdLineStageMask_Cg;
}
}
if (file->isresourcefile)
file->sourceUsage |= CmdLineStageMask_Cg;
file->objectUsage = file->sourceUsage & CmdLineStageMask_Pp;
if ((file->sourceUsage & CmdLineStageMask_Pp) && !(file->mappingflags & kPrecompile) && (optsCompiler.forcePrecompile != 1) && (file->objectflags & 0x80000000))
file->objectUsage |= CmdLineStageMask_Cg;
*whichfile = 0;
if ((entry->position != -1) ? (Files_AddFile(&gTarg->files, file) == 0) : (Files_InsertFile(&gTarg->files, file, entry->position) == 0))
return cwErrRequestFailed;
*whichfile = file->filenum;
context->numFiles++;
if (gTarg->linkmodel == LinkModel2) {
ovg = Overlays_GetOvlGroup(
&gTarg->linkage.overlays,
(entry->overlayGroup == -1) ? (Overlays_CountGroups(&gTarg->linkage.overlays) - 1) : entry->overlayGroup);
if (ovg) {
oly = OvlGroup_GetOverlay(
ovg,
(entry->overlay == -1) ? (OvlGroup_CountOverlays(ovg) - 1) : entry->overlay);
if (oly) {
if (!Overlay_AddFile(oly, file->filenum, &idx))
return cwErrRequestFailed;
} else {
return cwErrRequestFailed;
}
} else {
return cwErrRequestFailed;
}
}
return cwNoErr;
}
CWResult UCBCreateNewTextDocument(CWPluginContext context, const CWNewTextDocumentInfo *docinfo) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBCreateNewTextDocument");
if (context->pluginType == CWDROPINCOMPILERTYPE || context->pluginType == CWDROPINLINKERTYPE) {
if (!docinfo->documentname) {
CWCompilerLinkerContext *clcontext = static_cast<CWCompilerLinkerContext *>(context);
File *file = Files_GetFile(&gTarg->files, clcontext->whichfile);
if (!file)
return cwErrUnknownFile;
if (file->textdata) {
if (!ShowHandle(file->textdata, GetHandleSize(file->textdata), 1))
return cwErrRequestFailed;
DisposeHandle(file->textdata);
}
UCBSecretDetachHandle(context, docinfo->text, &file->textdata);
OS_GetTime(&file->outmoddate);
return cwNoErr;
} else {
Handle texth;
UCBSecretDetachHandle(context, docinfo->text, &texth);
UInt32 size = GetHandleSize(texth);
if (strcmp(docinfo->documentname, ">stdout") || clState.stdout_base) {
FILE *stdfile;
if (!strcmp(docinfo->documentname, ">stdout")) {
stdfile = clState.stdout_written ? fopen(clState.stdout_base, "at") : fopen(clState.stdout_base, "wt");
clState.stdout_written = 1;
} else {
stdfile = fopen(docinfo->documentname, "wt");
}
if (stdfile) {
HLock(texth);
fwrite(*texth, size, 1, stdfile);
fclose(stdfile);
HUnlock(texth);
return cwNoErr;
}
}
if (!ShowHandle(texth, size, 0))
return cwErrRequestFailed;
else
return cwNoErr;
}
} else if (context->pluginType == CWDROPINPARSERTYPE) {
Str255 filename;
VFile *vf;
Handle texth;
FSSpec fss;
CWNewProjectEntryInfo entry;
SInt32 pos;
UCBSecretDetachHandle(context, docinfo->text, &texth);
if (docinfo->markDirty) {
if (!docinfo->documentname)
return cwErrInvalidParameter;
vf = VFile_New(docinfo->documentname, texth);
if (!vf)
return cwErrOutOfMemory;
if (!VFiles_Add(&gTarg->virtualFiles, vf))
return cwErrRequestFailed;
entry.overlay = -1;
entry.overlayGroup = -1;
entry.segment = -1;
entry.position = -1;
entry.groupPath = NULL;
entry.initbefore = 0;
entry.weakimport = 0;
entry.mergeintooutput = 0;
c2pstrcpy(filename, docinfo->documentname);
FSMakeFSSpec(0, 0, filename, &fss);
return UCBAddProjectEntry(context, &fss, 1, &entry, &pos);
} else {
if (ShowHandle(texth, GetHandleSize(texth), docinfo->documentname != NULL))
return cwNoErr;
else
return cwErrRequestFailed;
}
} else {
#line 1755
DO_INTERNAL_ERROR("Cannot deal with unexpected document");
return cwErrInvalidCallback;
}
}
CWResult UCBAllocateMemory(CWPluginContext context, SInt32 size, Boolean isPermanent, void **ptr) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBAllocateMemory");
*ptr = xmalloc(NULL, size);
return (*ptr == NULL) ? cwErrRequestFailed : cwNoErr;
}
CWResult UCBFreeMemory(CWPluginContext context, void *ptr, Boolean isPermanent) {
if (optsCmdLine.verbose > 4)
CLPrint("Callback: %s\n", "UCBFreeMemory");
if (ptr) {
xfree(ptr);
return cwNoErr;
} else {
return cwErrRequestFailed;
}
}
CWResult UCBAllocMemHandle(CWPluginContext context, SInt32 size, Boolean useTempMemory, CWMemHandle *memhandle) {
if (optsCmdLine.verbose > 4)
CLPrint("Callback: %s\n", "UCBAllocMemHandle");
Handle handle = NewHandle(size);
if (!handle)
return cwErrOutOfMemory;
UCBSecretAttachHandle(context, handle, memhandle);
return cwNoErr;
}
CWResult UCBFreeMemHandle(CWPluginContext context, CWMemHandle memhandle) {
if (optsCmdLine.verbose > 4)
CLPrint("Callback: %s\n", "UCBFreeMemHandle");
Handle handle;
UCBSecretDetachHandle(context, memhandle, &handle);
DisposeHandle(handle);
return cwNoErr;
}
CWResult UCBGetMemHandleSize(CWPluginContext context, CWMemHandle memhandle, SInt32 *size) {
if (optsCmdLine.verbose > 4)
CLPrint("Callback: %s\n", "UCBGetMemHandleSize");
Handle handle;
UCBSecretDetachHandle(context, memhandle, &handle);
*size = GetHandleSize(handle);
return cwNoErr;
}
CWResult UCBResizeMemHandle(CWPluginContext context, CWMemHandle memhandle, SInt32 newSize) {
if (optsCmdLine.verbose > 4)
CLPrint("Callback: %s\n", "UCBResizeMemHandle");
Handle handle;
UCBSecretDetachHandle(context, memhandle, &handle);
SetHandleSize(handle, newSize);
return (MemError() == noErr) ? cwNoErr : cwErrOutOfMemory;
}
CWResult UCBLockMemHandle(CWPluginContext context, CWMemHandle handle, Boolean moveHi, void **ptr) {
if (optsCmdLine.verbose > 4)
CLPrint("Callback: %s\n", "UCBLockMemHandle");
HLock(reinterpret_cast<Handle>(handle));
*ptr = *reinterpret_cast<Handle>(handle);
return cwNoErr;
}
CWResult UCBUnlockMemHandle(CWPluginContext context, CWMemHandle handle) {
if (optsCmdLine.verbose > 4)
CLPrint("Callback: %s\n", "UCBUnlockMemHandle");
HUnlock(reinterpret_cast<Handle>(handle));
return cwNoErr;
}
CWResult UCBGetTargetName(CWPluginContext context, char *name, short maxLength) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBGetTargetName");
strncpy(name, "command-line target", maxLength);
return cwNoErr;
}
CWResult UCBPreDialog(CWPluginContext context) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBPreDialog");
return cwNoErr;
}
CWResult UCBPostDialog(CWPluginContext context) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBPostDialog");
return cwNoErr;
}
CWResult UCBPreFileAction(CWPluginContext context, const CWFileSpec *theFile) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBPreFileAction");
#line 1963
DO_INTERNAL_ERROR("UCBPreFileAction not implemented");
return cwErrRequestFailed;
}
CWResult UCBPostFileAction(CWPluginContext context, const CWFileSpec *theFile) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBPostFileAction");
#line 1977
DO_INTERNAL_ERROR("UCBPostFileAction not implemented");
return cwErrRequestFailed;
}
CWResult UCBCacheAccessPathList(CWPluginContext context) {
IDEAccessPathList *apl;
shellContextType *sc;
int x;
sc = static_cast<shellContextType *>(context->shellContext);
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBCacheAccessPathList");
apl = context->accessPathList;
if (!apl)
apl = context->accessPathList = static_cast<IDEAccessPathList *>(calloc(sizeof(IDEAccessPathList), 1));
if (sc->userAccessPathsChanged || !apl->userPaths) {
OSSpec spec;
Path *path;
IDEAccessPath *ap;
apl->userPathCount = Paths_Count(&gTarg->userPaths);
apl->userPaths = static_cast<IDEAccessPath *>(xrealloc("access paths", apl->userPaths, sizeof(IDEAccessPath) * apl->userPathCount));
for (x = 0; x < apl->userPathCount; x++) {
ap = &apl->userPaths[x];
path = Paths_GetPath(&gTarg->userPaths, x);
#line 2010
OPTION_ASSERT(path);
OS_MakeSpecWithPath(path->spec, NULL, 0, &spec);
OS_OSSpec_To_FSSpec(&spec, &ap->pathSpec);
ap->recursive = path->recursive != 0;
if (path->recursive) {
ap->subdirectoryCount = Paths_CountRecurse(path->recursive);
if (ap->subdirectories)
xfree(ap->subdirectories);
ap->subdirectories = static_cast<FSSpec *>(xmalloc(NULL, sizeof(FSSpec) * ap->subdirectoryCount));
Paths_CopyRecurseFSS(ap->subdirectories, path->recursive, ap->subdirectoryCount);
} else {
ap->subdirectoryCount = 0;
ap->subdirectories = NULL;
}
}
sc->userAccessPathsChanged = 0;
}
if (sc->systemAccessPathsChanged || !apl->systemPaths) {
OSSpec spec;
Path *path;
IDEAccessPath *ap;
apl->systemPathCount = Paths_Count(&gTarg->sysPaths);
apl->systemPaths = static_cast<IDEAccessPath *>(xrealloc("access paths", apl->systemPaths, sizeof(IDEAccessPath) * apl->systemPathCount));
for (x = 0; x < apl->systemPathCount; x++) {
ap = &apl->systemPaths[x];
path = Paths_GetPath(&gTarg->sysPaths, x);
#line 2044
OPTION_ASSERT(path);
OS_MakeSpecWithPath(path->spec, NULL, 0, &spec);
OS_OSSpec_To_FSSpec(&spec, &ap->pathSpec);
ap->recursive = path->recursive != 0;
if (path->recursive) {
ap->subdirectoryCount = Paths_CountRecurse(path->recursive);
if (ap->subdirectories)
xfree(ap->subdirectories);
ap->subdirectories = static_cast<FSSpec *>(xmalloc(NULL, sizeof(FSSpec) * ap->subdirectoryCount));
Paths_CopyRecurseFSS(ap->subdirectories, path->recursive, ap->subdirectoryCount);
} else {
ap->subdirectoryCount = 0;
ap->subdirectories = NULL;
}
}
sc->systemAccessPathsChanged = 0;
}
return cwNoErr;
}
CWResult UCBSecretAttachHandle(CWPluginContext context, Handle handle, CWMemHandle *memHandle) {
if (optsCmdLine.verbose > 4)
CLPrint("Callback: %s\n", "UCBSecretAttachHandle");
*memHandle = reinterpret_cast<CWMemHandle>(handle);
return cwNoErr;
}
CWResult UCBSecretDetachHandle(CWPluginContext context, CWMemHandle memHandle, Handle *handle) {
if (optsCmdLine.verbose > 4)
CLPrint("Callback: %s\n", "UCBSecretDetachHandle");
if (!memHandle || !handle) {
*handle = NULL;
return cwErrInvalidParameter;
} else {
*handle = reinterpret_cast<Handle>(memHandle);
return cwNoErr;
}
}
CWResult UCBSecretPeekHandle(CWPluginContext context, CWMemHandle memHandle, Handle *handle) {
if (optsCmdLine.verbose > 4)
CLPrint("Callback: %s\n", "UCBSecretPeekHandle");
if (!memHandle || !handle) {
*handle = NULL;
return cwErrInvalidParameter;
} else {
*handle = reinterpret_cast<Handle>(memHandle);
return cwNoErr;
}
}
CWResult UCBCheckoutLicense(CWPluginContext context, const char *a, const char *b, SInt32 c, void *d, SInt32 *cookiePtr) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBCheckoutLicense");
if (cookiePtr)
*cookiePtr = 0xD0A;
return cwErrInvalidCallback;
}
CWResult UCBCheckinLicense(CWPluginContext context, SInt32 cookie) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBCheckinLicense");
return cwErrInvalidCallback;
}
CWResult UCBResolveRelativePath(CWPluginContext context, const CWRelativePath *relativePath, CWFileSpec *fileSpec, Boolean create) {
#line 2255
DO_INTERNAL_ERROR("UCBResolveRelativePath not implemented");
return cwErrRequestFailed;
}
CWResult UCBMacOSErrToCWResult(CWPluginContext context, OSErr err) {
if (optsCmdLine.verbose > 4)
CLPrint("Callback: %s\n", "UCBMacOSErrToCWResult");
return OSErrtoCWResult(err);
}
CW_BasePluginCallbacks sBasePluginCallbacks = {
UCBGetFileInfo,
UCBFindAndLoadFile,
UCBGetFileText,
UCBReleaseFileText,
UCBGetSegmentInfo,
UCBGetOverlay1GroupInfo,
UCBGetOverlay1Info,
UCBGetOverlay1FileInfo,
UCBReportMessage,
UCBAlert,
UCBShowStatus,
UCBUserBreak,
UCBGetNamedPreferences,
UCBStorePluginData,
UCBGetPluginData,
UCBSetModDate,
UCBAddProjectEntry,
UCBCreateNewTextDocument,
UCBAllocateMemory,
UCBFreeMemory,
UCBAllocMemHandle,
UCBFreeMemHandle,
UCBGetMemHandleSize,
UCBResizeMemHandle,
UCBLockMemHandle,
UCBUnlockMemHandle,
reinterpret_cast<void *>(UCBSecretAttachHandle),
reinterpret_cast<void *>(UCBSecretDetachHandle),
reinterpret_cast<void *>(UCBSecretPeekHandle),
NULL,
NULL,
NULL,
NULL,
NULL,
UCBGetTargetName,
UCBCacheAccessPathList,
UCBPreDialog,
UCBPostDialog,
UCBPreFileAction,
UCBPostFileAction,
UCBCheckoutLicense,
UCBCheckinLicense,
UCBResolveRelativePath
};
static CWIDEInfo sIDEInfo = {
3, 3, 0, 0, 10
};
CWPluginPrivateContext::CWPluginPrivateContext(SInt32 thePluginType, SInt32 totalSize) {
if (totalSize <= 0)
totalSize = sizeof(CWPluginPrivateContext);
memset(this, 0, totalSize);
shellSignature = CWFOURCHAR('C','W','I','E');
pluginType = thePluginType;
shellInfo = &sIDEInfo;
callbacks = &sBasePluginCallbacks;
}
CWPluginPrivateContext::~CWPluginPrivateContext() {
int x;
if (accessPathList) {
if (accessPathList->userPathCount) {
for (x = 0; x < accessPathList->userPathCount; x++) {
if (accessPathList->userPaths[x].subdirectories)
xfree(accessPathList->userPaths[x].subdirectories);
}
}
if (accessPathList->systemPathCount) {
for (x = 0; x < accessPathList->systemPathCount; x++) {
if (accessPathList->systemPaths[x].subdirectories)
xfree(accessPathList->systemPaths[x].subdirectories);
}
}
xfree(accessPathList->userPaths);
xfree(accessPathList->systemPaths);
xfree(accessPathList);
accessPathList = NULL;
}
}