encounter
/
MWCC
mirror of https://git.wuffs.org/MWCC
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

let's commit all this before my VM blows up and nukes my work

This commit is contained in:
Ash Wolf 2022-10-19 21:16:13 +01:00
parent 775b686166
commit d1f153d34b
147 changed files with 19447 additions and 1766 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
CMakeLists.txt
View File

@ -43,7 +43,6 @@ add_executable(mwcc
command_line/CmdLine/Src/CLLicenses.c
command_line/CmdLine/Src/CLLoadAndCache.c
command_line/CmdLine/Src/CLMain.c
command_line/CmdLine/Src/CLPluginAPI.c
command_line/CmdLine/Src/CLPrefs.c
command_line/CmdLine/Src/CLTarg.c
command_line/CmdLine/Src/CLToolExec.c
@ -52,4 +51,27 @@ add_executable(mwcc
unsorted/uContext1.cpp
unsorted/uContextCL.cpp
unsorted/uContextParser.cpp
unsorted/uContextSecret.cpp unsorted/StaticParserGlue.c unsorted/ParserHelpers.c unsorted/ToolHelpers.c unsorted/ParserHelpers-cc.c unsorted/ToolHelpers-cc.c unsorted/IO.c unsorted/Projects.c unsorted/Targets.c unsorted/ParserErrors.c)
unsorted/uContextSecret.cpp
unsorted/StaticParserGlue.c
unsorted/ParserHelpers.c
unsorted/ToolHelpers.c
unsorted/ParserHelpers-cc.c
unsorted/ToolHelpers-cc.c
unsorted/IO.c
unsorted/Projects.c
unsorted/Targets.c
unsorted/ParserErrors.c
unsorted/Utils.c
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Src/Static/cc-mach-ppc-mw.c
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Src/Plugin/cc-mach-ppc.c
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Src/Plugin/libimp-mach-ppc.c
command_line/C++_Parser/Src/Library/WarningHelpers.c
unsorted/uLibImporter.c
command_line/CmdLine/Src/CLPluginRequests.cpp
unsorted/uCOS.c
command_line/CmdLine/Src/uFileTypeMappings.c
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Src/Options/Glue/ParserGlue-mach-ppc-cc.c
unsorted/Arguments.c
unsorted/Help.c
unsorted/Option.c
unsorted/Parameter.c unsorted/TargetOptimizer-ppc-mach.c unsorted/OptimizerHelpers.c compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Src/Options/Glue/TargetWarningHelpers-ppc-cc.c)

30
CompilerTools.c
View File

@ -192,10 +192,12 @@ void RemoveGListData(GList *list, long size) {
char GetGListByte(GList *list) {
unsigned char *p;
char r;
p = (unsigned char *) (*list->data + list->size);
list->size++;
return p[0];
r = p[0];
return r;
}
short GetGListWord(GList *list) {
@ -266,10 +268,9 @@ static short PHash(const unsigned char *str) {
unsigned char work;
const unsigned char *p;
result = str[0];
result &= 0xFF;
result = str[0] & 0xFF;
p = &str[1];
if (str[0]) {
if (str[0] & 0xFF) {
counter = result;
work = 0;
while (counter > 0) {
@ -287,21 +288,34 @@ static short PHash(const unsigned char *str) {
short CHash(const char *str) {
/* not matching :( */
unsigned char len;
short result; // orig r4
unsigned char work; // orig r5
short counter; // orig r3
// counter,result,work -> r3=work, r4=counter, r5=result
// result,counter,work -> r3=work, r4=result, r5=counter
// work,result,counter -> r3=work, r4=result, r5=counter
// work,counter,result -> r3=work, r4=counter, r5=result
// counter,work,result -> r3=work, r4=counter, r5=result
// result,work,counter -> r3=work, r4=result, r5=counter
// i am: r4 = result, r5 = counter, r3 = work
if (result = strlen(str) & 0xFF) {
counter = result;
len = strlen(str);
result = len;
if (len) {
counter = len;
work = 0;
while (counter > 0) {
work = (work >> 3) | (work << 5);
work = work + *(str++);
work = work + *str;
//work = *(str++) + (unsigned char) ((work >> 3) | (work << 5));
counter--;
str++;
}
result = (result << 8) | work;
result = result << 8;
result = result | work;
}
return result & 0x7FF;

84
command_line/C++_Parser/Src/Library/WarningHelpers.c Normal file
View File

@ -0,0 +1,84 @@
#include "parser.h"
int SetWarningFlags(const char *opt, void *str, const char *, int flags) {
// this is very similar to ToolHelper
// might also fail to match
unsigned char *ptr;
Boolean set;
Boolean no;
UInt16 flag;
ptr = (unsigned char *) str;
no = (Boolean) ((flags & PARAMPARSEFLAGS_8) >> 3);
set = (Boolean) (no ^ 1);
while (*ptr) {
if (*ptr == '+') {
set = !no;
} else if (*ptr == '-') {
set = no;
} else if (*ptr == '|') {
set = (Boolean) (no ^ 1);
} else {
flag = (ptr[0] << 8) | ptr[1];
if (set)
pCmdLine.noWarnings = 0;
switch (flag) {
case 'Nw':
pCmdLine.noWarnings = set;
break;
case 'Aw':
TargetSetWarningFlags(flag, set);
break;
case 'Cw':
pCmdLine.noCmdLineWarnings = !set;
break;
case 'We':
pCmdLine.warningsAreErrors = set;
TargetSetWarningFlags(flag, set);
break;
default:
if (!TargetSetWarningFlags(flag, set))
CLPFatalError("Bad warning settings in %s (%c%c)\n", str, ptr[0], ptr[1]);
}
++ptr;
}
++ptr;
}
Parser_StorePanels(parseopts.context);
return 1;
}
int DisplayWarningOptions() {
Handle h;
h = NewHandle(0);
if (!h)
exit(-23);
HPrintF(h, "Command-line warning options:\n");
if (pCmdLine.noCmdLineWarnings)
HPrintF(h, "\t- no command-line warnings\n");
else
HPrintF(h, "\t- command-line warnings\n");
if (pCmdLine.warningsAreErrors)
HPrintF(h, "\t- warnings are errors\n");
else
HPrintF(h, "\t- warnings are not errors\n");
if (pCmdLine.noWarnings)
HPrintF(h, "\t- no warnings at all\n");
TargetDisplayWarningOptions(h);
ShowTextHandle(NULL, h);
DisposeHandle(h);
return 1;
}

217
command_line/CmdLine/Src/CLBrowser.c
View File

@ -0,0 +1,217 @@
#include "cmdline.h"
typedef struct {
UInt16 fileID;
char *filepath;
} S43;
typedef struct {
UInt16 fileID;
char unused[12];
UInt16 filename_length;
char filepath[1];
} S49;
typedef struct {
char magic_word[4];
char version;
char big_endian;
char padding[16];
UInt16 file_data_count;
UInt32 browse_data_offset;
UInt32 browse_data_length;
UInt32 file_data_offset;
UInt32 file_data_length;
} T53;
static void GetBrowseTableInfoAndLock(OSHandle *browsetable, S43 **scan, SInt32 *num, SInt32 *size) {
UInt32 tsize;
OS_GetHandleSize(browsetable, &tsize);
if (scan)
*scan = OS_LockHandle(browsetable);
if (num)
*num = tsize / sizeof(S43);
if (size)
*size = tsize;
}
int Browser_Initialize(OSHandle *browsetableptr) {
int err = OS_NewHandle(0, browsetableptr);
if (err) {
CLReportOSError(63, err, "allocate", "browse file table");
return 0;
} else {
return 1;
}
}
static int Destroy(OSHandle *browsetable) {
S43 *scan;
SInt32 num;
GetBrowseTableInfoAndLock(browsetable, &scan, &num, NULL);
while (num--) {
xfree(scan->filepath);
scan++;
}
OS_UnlockHandle(browsetable);
return 1;
}
int Browser_Terminate(OSHandle *browsetableptr) {
if (!Destroy(browsetableptr)) {
return 0;
} else {
OS_FreeHandle(browsetableptr);
return 1;
}
}
int Browser_SearchFile(OSHandle *browsetable, const char *fullpath, SInt16 *ID) {
S43 *scan;
SInt32 cnt;
SInt32 idx;
SInt32 size;
Boolean found = 0;
#line 114
OPTION_ASSERT(OS_IsFullPath(fullpath));
OPTION_ASSERT(browsetable!=NULL);
GetBrowseTableInfoAndLock(browsetable, &scan, &cnt, &size);
for (idx = 0; idx < cnt; idx++) {
if (OS_EqualPath(fullpath, scan->filepath)) {
found = 1;
break;
}
scan++;
}
if (found)
*ID = scan->fileID;
else
*ID = 0;
OS_UnlockHandle(browsetable);
return found;
}
int Browser_SearchAndAddFile(OSHandle *browsetable, const char *fullpath, SInt16 *ID) {
S43 *scan;
SInt32 cnt;
SInt32 size;
char *pathptr;
if (!Browser_SearchFile(browsetable, fullpath, ID)) {
pathptr = xstrdup(fullpath);
GetBrowseTableInfoAndLock(browsetable, &scan, &cnt, &size);
OS_UnlockHandle(browsetable);
if (OS_ResizeHandle(browsetable, sizeof(S43) * (cnt + 1))) {
fprintf(stderr, "\n*** Out of memory\n");
exit(-23);
}
scan = (S43 *) (((char *) OS_LockHandle(browsetable)) + size);
scan->filepath = pathptr;
scan->fileID = cnt + 1;
OS_UnlockHandle(browsetable);
*ID = scan->fileID;
return -1;
} else {
return 1;
}
}
static SInt32 CalcDiskSpaceRequirements(S43 *mem, int num) {
SInt32 space = 0;
while (num--) {
space += 0x10;
space += (strlen(mem->filepath) + 7) & ~7;
mem++;
}
return space;
}
static int ConvertMemToDisk(S43 *mem, S49 *disk, int num) {
int slen;
int blen;
while (num--) {
disk->fileID = mem->fileID;
memset(disk->unused, 0, sizeof(disk->unused));
slen = strlen(mem->filepath);
blen = (slen + 7) & ~7;
disk->filename_length = slen;
memset(disk->filepath, 0, blen);
strncpy(disk->filepath, mem->filepath, slen);
disk = (S49 *) (((unsigned char *) disk) + 0x10 + blen);
mem++;
}
return 1;
}
int Browser_PackBrowseFile(Handle browsedata, OSHandle *browsetable, OSHandle *browsefileptr) {
OSHandle h;
char *ptr;
T53 header;
S43 *scan;
SInt32 entries;
UInt32 datasize;
UInt32 tableoffs;
UInt32 tablesize;
UInt32 totalsize;
SInt32 a_long = 1;
int err;
void *bptr;
#line 253
OPTION_ASSERT(browsedata!=NULL);
OPTION_ASSERT(browsetable!=NULL);
datasize = GetHandleSize(browsedata);
tableoffs = (datasize + sizeof(header) + 7) & ~7;
GetBrowseTableInfoAndLock(browsetable, &scan, &entries, NULL);
tablesize = CalcDiskSpaceRequirements(scan, entries);
OS_UnlockHandle(browsetable);
totalsize = tablesize + tableoffs;
memcpy(header.magic_word, "DubL", 4);
header.version = 1;
header.big_endian = *((char *) &a_long) == 0;
memset(header.padding, 0, sizeof(header.padding));
header.browse_data_offset = sizeof(header);
header.browse_data_length = datasize;
header.file_data_offset = tableoffs;
header.file_data_length = tablesize;
header.file_data_count = entries;
err = OS_NewHandle(totalsize, &h);
*browsefileptr = h;
if (err) {
fprintf(stderr, "\n*** Out of memory\n");
exit(-23);
}
ptr = OS_LockHandle(&h);
memcpy(ptr, &header, sizeof(header));
HLock(browsedata);
memcpy(&ptr[sizeof(header)], *browsedata, datasize);
// an 'add' for this is swapped around and i cannot fucking figure out why
memset(&ptr[sizeof(header) + datasize], 0, tableoffs - sizeof(header) - datasize);
HUnlock(browsedata);
GetBrowseTableInfoAndLock(browsetable, &scan, &entries, NULL);
ConvertMemToDisk(scan, bptr = ptr + tableoffs, entries);
memset((char *) bptr + tablesize, 0, totalsize - tableoffs - tablesize);
OS_UnlockHandle(browsetable);
OS_UnlockHandle(&h);
return 1;
}

407
command_line/CmdLine/Src/CLDependencies.c
View File

@ -0,0 +1,407 @@
#include "cmdline.h"
extern char STSbuf[256];
static Path *specialAccessPath;
SInt16 *CLT_filesp;
CPrepFileInfoStack *CLT_filestack;
// forward decl
static Boolean FindFileInPaths(Paths *paths, const char *filename, Path **thepath, OSSpec *spec);
static void SetSpecialAccessPathFromIncludeStackTOS();
Boolean Incls_Initialize(Incls *incls, Target *targ) {
specialAccessPath = NULL;
incls->targ = targ;
incls->maxincls = 0;
incls->numincls = 0;
incls->bufpos = 0;
incls->buflen = 0;
incls->buffer = NULL;
incls->files = NULL;
incls->allPaths = xmalloc(NULL, sizeof(Paths));
Paths_Initialize(incls->allPaths);
return 1;
}
void Incls_Terminate(Incls *incls) {
if (incls->buffer)
xfree(incls->buffer);
if (incls->files)
xfree(incls->files);
Paths_Terminate(incls->allPaths);
xfree(incls->allPaths);
}
static Boolean IsSysIncl(Incls *incls, SInt32 idx) {
InclFile *i = &incls->files[idx];
return i->syspath;
}
static void MakeInclFileSpec(Incls *incls, SInt32 idx, OSSpec *spec) {
InclFile *f = &incls->files[idx];
OS_MakeSpecWithPath(
f->globalpath->spec,
&incls->buffer[f->filenameoffs],
0,
spec);
}
static Boolean QuickFindFileInIncls(Incls *incls, Boolean fullsearch, const char *filename, OSSpec *spec, SInt32 *index, InclFile **f) {
int idx;
for (idx = 0; idx < incls->numincls; idx++) {
*f = &incls->files[idx];
if (OS_EqualPath(&incls->buffer[(*f)->filenameoffs], filename)) {
if (fullsearch || (*f)->syspath) {
MakeInclFileSpec(incls, idx, spec);
*index = idx;
return 1;
}
}
}
return 0;
}
static Boolean SameIncl(Incls *incls, SInt32 a, SInt32 b) {
InclFile *ia;
InclFile *ib;
if (a == b)
return 1;
ia = &incls->files[a];
ib = &incls->files[b];
return ia->globalpath == ib->globalpath && OS_EqualPath(&incls->buffer[ia->filenameoffs], &incls->buffer[ib->filenameoffs]);
}
static Path *FindOrAddGlobalInclPath(Paths *paths, OSPathSpec *spec) {
Path *path = Paths_FindPathSpec(paths, spec);
if (!path) {
path = Path_New(spec);
Paths_AddPath(paths, path);
}
return path;
}
static Boolean _FindFileInPath(Path *path, const char *filename, Path **thepath, OSSpec *spec) {
if (!OS_MakeSpecWithPath(path->spec, filename, 0, spec) && OS_IsFile(spec)) {
*thepath = path;
return 1;
}
if (path->recursive && FindFileInPaths(path->recursive, filename, thepath, spec))
return 1;
return 0;
}
static Boolean FindFileInPaths(Paths *paths, const char *filename, Path **thepath, OSSpec *spec) {
UInt16 idx;
Path *path;
for (idx = 0; idx < Paths_Count(paths); idx++) {
path = Paths_GetPath(paths, idx);
#line 175
OPTION_ASSERT(path);
if (_FindFileInPath(path, filename, thepath, spec))
return 1;
}
return 0;
}
static void AddFileToIncls(Incls *incls, char *infilename, Boolean syspath, Path *accesspath, Path *globalpath, Path *specialpath, SInt32 *index) {
InclFile *f;
int fnlen;
char *filename;
OSSpec spec;
if (!accesspath && !globalpath)
filename = OS_GetFileNamePtr(infilename);
else
filename = infilename;
fnlen = strlen(filename) + 1;
if (incls->numincls >= incls->maxincls) {
incls->maxincls += 16;
incls->files = xrealloc("include list", incls->files, sizeof(InclFile) * incls->maxincls);
}
f = &incls->files[incls->numincls];
f->filenameoffs = incls->bufpos;
f->syspath = syspath;
f->accesspath = accesspath;
if (globalpath) {
f->globalpath = globalpath;
} else if (accesspath) {
f->globalpath = FindOrAddGlobalInclPath(incls->allPaths, accesspath->spec);
} else {
OS_MakeFileSpec(infilename, &spec);
f->globalpath = FindOrAddGlobalInclPath(incls->allPaths, &spec.path);
}
f->specialpath = Deps_GetSpecialAccessPath();
if (incls->bufpos + fnlen > incls->buflen) {
incls->buflen += 1024;
incls->buffer = xrealloc("include list", incls->buffer, incls->buflen);
}
strcpy(&incls->buffer[incls->bufpos], filename);
incls->bufpos += fnlen;
*index = incls->numincls++;
}
Boolean Incls_FindFileInPaths(Incls *incls, char *filename, Boolean fullsearch, OSSpec *spec, SInt32 *inclidx) {
Boolean found;
InclFile *incl;
Boolean foundglobal;
Path *globalpath;
Path *accesspath;
Path *specialpath;
Boolean userpath;
char rel_path[256];
found = 0;
if (optsCompiler.includeSearch == 3 && fullsearch)
SetSpecialAccessPathFromIncludeStackTOS();
*inclidx = -1;
foundglobal = QuickFindFileInIncls(incls, fullsearch, filename, spec, inclidx, &incl);
if (foundglobal) {
if (incl->specialpath == specialAccessPath && incl->syspath && !fullsearch)
found = 1;
else if (!incl->accesspath)
foundglobal = 0;
}
if (!found) {
accesspath = globalpath = NULL;
userpath = fullsearch;
if (OS_IsFullPath(filename)) {
found = !OS_MakeFileSpec(filename, spec) && !OS_Status(spec);
accesspath = globalpath = specialpath = NULL;
} else {
specialpath = Deps_GetSpecialAccessPath();
globalpath = specialpath;
if (specialpath) {
found = _FindFileInPath(specialpath, filename, &globalpath, spec);
accesspath = NULL;
}
if (!found && foundglobal && incl->syspath && !fullsearch) {
globalpath = incl->globalpath;
accesspath = incl->accesspath;
specialpath = NULL;
MakeInclFileSpec(incls, *inclidx, spec);
found = 1;
}
if (!found && fullsearch) {
userpath = 1;
globalpath = NULL;
found = FindFileInPaths(&incls->targ->userPaths, filename, &accesspath, spec);
}
if (!found) {
userpath = 0;
globalpath = NULL;
found = FindFileInPaths(&incls->targ->sysPaths, filename, &accesspath, spec);
}
if (!found) {
specialpath = Deps_GetSpecialAccessPath();
globalpath = specialpath;
if (!found && MakeFrameworkPath(rel_path, filename, specialpath)) {
filename = rel_path;
found = FindFileInPaths(&FrameworkPaths, filename, &globalpath, spec);
}
}
}
if (found && *inclidx < 0)
AddFileToIncls(incls, filename, !userpath, accesspath, globalpath, specialpath, inclidx);
}
return found;
}
Boolean Deps_Initialize(Deps *deps, Incls *incls) {
deps->numDeps = 0;
deps->maxDeps = 0;
deps->list = NULL;
deps->incls = incls;
return 1;
}
void Deps_Terminate(Deps *deps) {
if (deps->list)
xfree(deps->list);
}
int Deps_ChangeSpecialAccessPath(OSSpec *srcfss, Boolean initialize) {
static OSSpec *currentsrcfss;
OSPathSpec pathspec;
OSPathSpec *pathspecptr;
if (initialize && srcfss)
currentsrcfss = srcfss;
switch (optsCompiler.includeSearch) {
case IncludeSearch_Type2:
specialAccessPath = NULL;
return 1;
case IncludeSearch_Type0:
if (!initialize)
return 1;
OS_GetCWD(&pathspec);
pathspecptr = &pathspec;
break;
case IncludeSearch_Type1:
if (!initialize)
return 1;
case IncludeSearch_Type3:
if (srcfss) {
pathspecptr = &srcfss->path;
} else if (currentsrcfss) {
pathspecptr = &currentsrcfss->path;
} else {
OS_GetCWD(&pathspec);
pathspecptr = &pathspec;
}
break;
default:
#line 468
DO_INTERNAL_ERROR("Unhandled include file search type (%d)\n", optsCompiler.includeSearch);
}
specialAccessPath = FindOrAddGlobalInclPath(gTarg->incls.allPaths, pathspecptr);
if (optsCmdLine.verbose > 2)
CLReport(105, OS_PathSpecToString(pathspecptr, STSbuf, sizeof(STSbuf)));
return 1;
}
Path *Deps_GetSpecialAccessPath() {
return specialAccessPath;
}
static void SetSpecialAccessPathFromIncludeStackTOS() {
// does not match, some registers are in the wrong order
OSSpec spec;
SInt16 index;
char *fnameptr;
VFile *vf;
if (optsCompiler.includeSearch == IncludeSearch_Type3 && CLT_filesp && CLT_filestack) {
if (*CLT_filesp >= 0) {
index = *CLT_filesp;
while (index) {
if (!(*CLT_filestack)[index])
break;
OS_FSSpec_To_OSSpec(&(*CLT_filestack)[index--]->textfile, &spec);
fnameptr = OS_GetFileNamePtr(OS_NameSpecToString(&spec.name, STSbuf, sizeof(STSbuf)));
vf = VFiles_Find(gTarg->virtualFiles, fnameptr);
if (!vf) {
if (!specialAccessPath || !OS_EqualPathSpec(&spec.path, specialAccessPath->spec)) {
Deps_ChangeSpecialAccessPath(&spec, 0);
return;
}
return;
}
}
}
Deps_ChangeSpecialAccessPath(NULL, 0);
}
}
static Boolean FindDepFile(Deps *deps, SInt32 incl) {
int idx;
for (idx = 0; idx < deps->numDeps; idx++) {
if (SameIncl(&gTarg->incls, deps->list[idx], incl))
return 1;
}
return 0;
}
static void AddDepFile(Deps *deps, SInt32 incl, SInt16 dependencyType) {
if (deps->numDeps >= deps->maxDeps) {
deps->maxDeps += 16;
deps->list = xrealloc("dependency list", deps->list, sizeof(SInt32) * deps->maxDeps);
}
deps->list[deps->numDeps++] = incl;
}
void Deps_AddDependency(Deps *deps, SInt32 incl, OSSpec *spec, Boolean unk, SInt16 dependencyType, Boolean *alreadyincluded) {
Boolean included;
if (incl < 0) {
AddFileToIncls(
&gTarg->incls,
OS_SpecToString(spec, STSbuf, sizeof(STSbuf)),
0,
NULL, NULL, NULL,
&incl);
}
included = FindDepFile(deps, incl);
if (!included) {
if (!(optsCompiler.depsOnlyUserFiles ? IsSysIncl(deps->incls, incl) : 0))
AddDepFile(deps, incl, dependencyType);
}
if (alreadyincluded)
*alreadyincluded = included;
}
static char *EscapeName(Boolean spaces, char *escbuf, char *path) {
char *ret;
if (!spaces)
return path;
ret = escbuf;
while (*path) {
if (*path == ' ')
*(escbuf++) = '\\';
*(escbuf++) = *(path++);
}
*escbuf = 0;
return ret;
}
void Deps_ListDependencies(Incls *incls, File *file, OSHandle *h) {
Boolean spaces;
int idx;
char linebuf[512];
char outfilename[256];
int totdeps;
char path[256];
char escbuf[320];
OSSpec spec;
#define LIST_DEP(format, name, ...) \
do { \
sprintf(linebuf, format, spaces ? "" : "", EscapeName(spaces, escbuf, (name)), spaces ? "" : "", __VA_ARGS__); \
if (OS_AppendHandle(h, linebuf, strlen(linebuf))) goto memFail; \
} while (0)
if (!OS_NewHandle(0, h)) {
totdeps = file->deps.numDeps;
OS_SpecToStringRelative(&file->outfss, NULL, outfilename, sizeof(outfilename));
if (outfilename[0]) {
spaces = strchr(outfilename, ' ') != NULL;
LIST_DEP("%s%s%s%s ", outfilename, ":");
spaces = strchr(file->srcfilename, ' ') != NULL;
LIST_DEP("%s%s%s %s\n", file->srcfilename, totdeps ? "\\" : "");
} else {
spaces = strchr(file->srcfilename, ' ') != NULL;
LIST_DEP("%s%s%s%s %s\n", file->srcfilename, ":", totdeps ? "\\" : "");
}
for (idx = 0; idx < file->deps.numDeps; idx++) {
totdeps--;
MakeInclFileSpec(incls, file->deps.list[idx], &spec);
OS_SpecToString(&spec, path, sizeof(path));
spaces = strchr(path, ' ') != NULL;
LIST_DEP("\t%s%s%s %s\n", path, totdeps ? "\\" : "");
}
} else {
memFail:
fprintf(stderr, "\n*** Out of memory\n");
exit(-23);
}
}

803
command_line/CmdLine/Src/CLFileOps.c
View File

@ -0,0 +1,803 @@
#include "cmdline.h"
extern char STSbuf[256];
static int OutputTextData(File *file, SInt16 stage, OSType maccreator, OSType mactype) {
int ret = 0;
SInt32 size;
if (file->textdata) {
size = GetHandleSize(file->textdata);
if (stage != CmdLineStageMask_Dp || optsCmdLine.toDisk & CmdLineStageMask_Dp) {
if (!(file->writeToDisk & stage)) {
ret = ShowHandle(file->textdata, size, 0);
} else {
if (optsCmdLine.verbose)
CLReport(15, OS_SpecToStringRelative(&file->outfss, NULL, STSbuf, sizeof(STSbuf)));
ret = WriteHandleToFile(&file->outfss, file->textdata, size, maccreator, mactype);
file->wroteToDisk |= stage;
}
} else {
if (optsCompiler.outMakefile[0]) {
ret = AppendHandleToFile(&clState.makefileSpec, file->textdata, size, maccreator, mactype);
} else {
ret = ShowHandle(file->textdata, size, 0);
}
}
DisposeHandle(file->textdata);
file->textdata = NULL;
}
return ret;
}
static int fstrcat(char *file, const char *add, SInt32 length) {
if (strlen(file) + strlen(add) >= length) {
return 0;
} else {
strcat(file, add);
return 1;
}
}
static void extstrcat(char *file, const char *ext) {
if (!fstrcat(file, ext, 64))
strcpy(file + 63 - strlen(ext), ext);
}
int GetOutputFile(File *file, SInt16 stage) {
int err;
char tempoutfilename[256];
char *targetoutfilename;
Boolean specifiedName;
const char *ext;
const CWObjectFlags *cof;
char tmpname[256];
char *env;
char *extptr;
char *fnptr;
char text[64];
char *inname;
OSPathSpec tmppath;
if (optsCmdLine.toDisk & stage)
file->writeToDisk |= stage;
if (file->outfileowner == stage) {
targetoutfilename = file->outfilename;
specifiedName = file->outfilename[0] && !(file->tempOnDisk & stage);
if (specifiedName) {
file->writeToDisk |= stage;
file->tempOnDisk &= ~stage;
}
} else {
targetoutfilename = tempoutfilename;
specifiedName = 0;
}
if (!(stage & (optsCmdLine.toDisk | file->writeToDisk | file->tempOnDisk))) {
if ((stage == CmdLineStageMask_Cg) && (optsCmdLine.stages & CmdLineStageMask_Ds) && (optsCmdLine.state == OptsCmdLineState_2) && optsCompiler.keepObjects)
file->writeToDisk |= stage;
else
file->tempOnDisk |= stage;
}
if (!specifiedName && (stage & (optsCmdLine.toDisk | file->writeToDisk | file->tempOnDisk))) {
cof = Plugin_CL_GetObjectFlags(file->compiler);
if (stage == CmdLineStageMask_Pp) {
ext = optsCompiler.ppFileExt[0] ? optsCompiler.ppFileExt : cof->ppFileExt;
} else if (stage == CmdLineStageMask_Ds) {
ext = optsCompiler.disFileExt[0] ? optsCompiler.disFileExt : cof->disFileExt;
} else if (stage == CmdLineStageMask_Dp) {
ext = optsCompiler.depFileExt[0] ? optsCompiler.depFileExt : cof->depFileExt;
} else if (stage == CmdLineStageMask_Cg) {
ext = optsCompiler.objFileExt[0] ? optsCompiler.objFileExt : cof->objFileExt;
if (!(file->objectflags & 0x80000000) && !specifiedName)
ext = NULL;
} else {
ext = NULL;
}
if (ext && ext[0]) {
if (ext[0] != '.') {
snprintf(text, sizeof(text), ".%s", ext);
} else {
strncpy(text, ext, sizeof(text) - 1);
text[sizeof(text) - 1] = 0;
}
if ((file->tempOnDisk & stage) && !(optsCmdLine.stages & CmdLineStageMask_Dp)) {
env = getenv("TEMP");
if (!env || !env[0] || OS_MakePathSpec(NULL, env, &tmppath))
env = getenv("TMP");
if (!env || !env[0] || OS_MakePathSpec(NULL, env, &tmppath))
env = getenv("TMPDIR");
if (!env || !env[0] || OS_MakePathSpec(NULL, env, &tmppath))
env = "/tmp";
if (!env || !env[0] || OS_MakePathSpec(NULL, env, &tmppath))
env = ".";
snprintf(tmpname, sizeof(tmpname), "%s%c%s", env, OS_PATHSEP, OS_GetFileNamePtr(file->srcfilename));
inname = tmpname;
} else if (!optsCompiler.relPathInOutputDir) {
inname = OS_GetFileNamePtr(file->srcfilename);
} else {
inname = file->srcfilename;
}
fnptr = OS_GetFileNamePtr(inname);
extptr = strrchr(fnptr, '.');
if (!extptr || ext[0] == '.')
extptr = fnptr + strlen(fnptr);
if (extptr - fnptr + strlen(text) >= sizeof(text))
extptr = &fnptr[sizeof(text) - 1] - strlen(text);
snprintf(targetoutfilename, 256, "%.*s%s", extptr - inname, inname, text);
} else {
*targetoutfilename = 0;
file->writeToDisk &= ~stage;
file->tempOnDisk &= ~stage;
}
}
if (stage & (file->writeToDisk | file->tempOnDisk)) {
err = OS_MakeSpecWithPath(&gTarg->outputDirectory, targetoutfilename, !optsCompiler.relPathInOutputDir, &file->outfss);
if (!err) {
if (OS_EqualSpec(&file->srcfss, &file->outfss)) {
if (specifiedName) {
CLReportError(102, targetoutfilename);
file->writeToDisk &= ~stage;
file->tempOnDisk &= ~stage;
return 0;
}
file->writeToDisk &= ~stage;
file->tempOnDisk &= ~stage;
}
} else {
CLReportOSError(9, err, targetoutfilename, OS_PathSpecToString(&gTarg->outputDirectory, STSbuf, sizeof(STSbuf)));
}
return err == 0;
}
return 1;
}
static int SyntaxCheckFile(File *file) {
return SendCompilerRequest(file->compiler, file, 0) != 0;
}
static int PreprocessFile(File *file) {
const CWObjectFlags *cof;
if (!(file->dropinflags & kCanpreprocess)) {
CLReportWarning(53, Plugin_GetDropInName(file->compiler), file->srcfilename);
return 1;
}
if (!SendCompilerRequest(file->compiler, file, 1))
return 0;
if (!GetOutputFile(file, CmdLineStageMask_Pp))
return 0;
if (file->textdata) {
cof = Plugin_CL_GetObjectFlags(file->compiler);
return OutputTextData(
file, CmdLineStageMask_Pp,
optsCompiler.ppFileCreator ? optsCompiler.ppFileCreator : cof->ppFileCreator,
optsCompiler.ppFileType ? optsCompiler.ppFileType : cof->ppFileType);
}
CLReportError(96, "preprocessing", file->srcfilename);
return 0;
}
static int DependencyMapFile(File *file, Boolean compileifnecessary) {
OSHandle mf;
const CWObjectFlags *cof;
cof = Plugin_CL_GetObjectFlags(file->compiler);
if (!(optsCmdLine.stages & (CmdLineStageMask_Pp | CmdLineStageMask_Cg)) && compileifnecessary) {
if (!SendCompilerRequest(file->compiler, file, CmdLineStageMask_Dp))
return 0;
}
if (!GetOutputFile(file, CmdLineStageMask_Cg))
return 0;
Deps_ListDependencies(&gTarg->incls, file, &mf);
file->textdata = OS_CreateMacHandle(&mf);
if (!GetOutputFile(file, CmdLineStageMask_Dp))
return 0;
if (OutputTextData(
file, CmdLineStageMask_Dp,
optsCompiler.depFileCreator ? optsCompiler.depFileCreator : cof->depFileCreator,
optsCompiler.depFileType ? optsCompiler.depFileType : cof->depFileType)) {
return 1;
} else {
return 0;
}
}
static int RecordBrowseInfo(File *file) {
const CWObjectFlags *cof;
if (!file->recordbrowseinfo)
return 1;
if (!file->browsedata) {
CLReportError(101, Plugin_GetDropInName(file->compiler), OS_SpecToStringRelative(&file->srcfss, NULL, STSbuf, sizeof(STSbuf)));
return 0;
}
if ((optsCmdLine.toDisk & CmdLineStageMask_Cg) && optsCompiler.browserEnabled) {
cof = Plugin_CL_GetObjectFlags(file->compiler);
if (!WriteBrowseData(file, optsCompiler.brsFileCreator ? optsCompiler.brsFileCreator : cof->brsFileCreator, optsCompiler.brsFileType ? optsCompiler.brsFileType : cof->brsFileType))
return 0;
}
return 1;
}
static int RecordObjectData(File *file) {
const CWObjectFlags *cof = Plugin_CL_GetObjectFlags(file->compiler);
if (!file->objectdata)
return 1;
if (!WriteObjectFile(file, optsCompiler.objFileCreator ? optsCompiler.objFileCreator : cof->objFileCreator, optsCompiler.objFileType ? optsCompiler.objFileType : cof->objFileType))
return 0;
return 1;
}
int StoreObjectFile(File *file) {
if (file->wroteToDisk & CmdLineStageMask_Cg)
return 1;
if (!file->objectdata && !file->browsedata)
return 1;
if (GetOutputFile(file, CmdLineStageMask_Cg)) {
if (!((file->writeToDisk | file->tempOnDisk) & CmdLineStageMask_Cg))
return 1;
if (!RecordBrowseInfo(file) || !RecordObjectData(file))
return 0;
file->wroteToDisk |= CmdLineStageMask_Cg;
return 1;
}
return 0;
}
static int CompileFile(File *file) {
int ret = 1;
if (!(file->dropinflags & kCanprecompile) && ((optsCompiler.forcePrecompile == 1) || (file->mappingflags & kPrecompile))) {
CLReportWarning(54, Plugin_GetDropInName(file->compiler), file->srcfilename);
return 1;
}
if (optsCompiler.browserEnabled) {
SInt16 id;
int ret;
char fullpath[256];
memset(file->browseoptions, 1, sizeof(file->browseoptions));
OS_SpecToString(&file->srcfss, fullpath, sizeof(fullpath));
ret = Browser_SearchAndAddFile(&clState.browseTableHandle, fullpath, &id);
if (!ret)
return 0;
file->recordbrowseinfo = ret < 0;
file->browseFileID = id;
if (optsCmdLine.verbose > 1)
CLReport(22, file->srcfilename, file->browseFileID);
} else {
memset(file->browseoptions, 0, sizeof(file->browseoptions));
file->recordbrowseinfo = 0;
file->recordbrowseinfo = 0;
file->browseFileID = 0;
}
if (!SendCompilerRequest(file->compiler, file, 2)) {
ret = 0;
} else {
if ((!file->hasobjectcode || !file->objectdata) && (file->dropinflags & kGeneratescode) && (file->objectUsage & 2)) {
CLReportError(96, "compiling", file->srcfilename);
ret = 0;
} else if (optsCmdLine.state == OptsCmdLineState_2 && !StoreObjectFile(file)) {
ret = 0;
}
}
return ret;
}
static int DisassembleWithLinker(File *file, Plugin *linker, SInt32 linkerDropinFlags) {
char filename[256];
int ret;
if (file->writeToDisk & CmdLineStageMask_Ds) {
OS_SpecToString(&file->outfss, filename, sizeof(filename));
ret = ExecuteLinker(linker, linkerDropinFlags, file, (optsCmdLine.toDisk & CmdLineStageMask_Ds) ? NULL : filename, NULL);
file->wroteToDisk |= CmdLineStageMask_Ds;
return ret;
}
return ExecuteLinker(linker, linkerDropinFlags, file, NULL, NULL);
}
static int DisassembleFile(File *file) {
Plugin *disasm;
if (!file->hasobjectcode && !file->hasresources) {
CLReportError(56, file->srcfilename);
return 0;
}
if (!GetOutputFile(file, CmdLineStageMask_Ds))
return 0;
if (file->dropinflags & kCandisassemble) {
if (!SendDisassemblerRequest(file->compiler, file))
return 0;
if (file->textdata) {
const CWObjectFlags *cof = Plugin_CL_GetObjectFlags(file->compiler);
return OutputTextData(
file, CmdLineStageMask_Ds,
optsCompiler.disFileCreator ? optsCompiler.disFileCreator : cof->disFileCreator,
optsCompiler.disFileType ? optsCompiler.disFileType : cof->disFileType);
}
CLReportError(96, "disassembling", file->srcfilename);
return 0;
} else {
if ((gTarg->linkerDropinFlags & dropInExecutableTool) && !(gTarg->linkerDropinFlags & cantDisassemble))
return DisassembleWithLinker(file, gTarg->linker, gTarg->linkerDropinFlags);
if ((gTarg->preLinkerDropinFlags & dropInExecutableTool) && !(gTarg->preLinkerDropinFlags & cantDisassemble))
return DisassembleWithLinker(file, gTarg->preLinker, gTarg->preLinkerDropinFlags);
if (gTarg->linker && !(gTarg->linkerDropinFlags & cantDisassemble)) {
if (SendDisassemblerRequest(gTarg->linker, file)) {
if (file->textdata && GetHandleSize(file->textdata) > 0) {
const CWObjectFlags *cof = Plugin_CL_GetObjectFlags(file->compiler);
return OutputTextData(
file, CmdLineStageMask_Ds,
optsCompiler.disFileCreator ? optsCompiler.disFileCreator : cof->disFileCreator,
optsCompiler.disFileType ? optsCompiler.disFileType : cof->disFileType);
}
CLReportError(96, "disassembling", file->srcfilename);
}
return 0;
}
if (gTarg->preLinker && !(gTarg->preLinkerDropinFlags & cantDisassemble)) {
if (SendDisassemblerRequest(gTarg->preLinker, file)) {
if (file->textdata && GetHandleSize(file->textdata) > 0) {
const CWObjectFlags *cof = Plugin_CL_GetObjectFlags(file->compiler);
return OutputTextData(
file, CmdLineStageMask_Ds,
optsCompiler.disFileCreator ? optsCompiler.disFileCreator : cof->disFileCreator,
optsCompiler.disFileType ? optsCompiler.disFileType : cof->disFileType);
}
CLReportError(96, "disassembling", file->srcfilename);
}
return 0;
}
if (gTarg->linker)
CLReportError(58, Plugin_GetDropInName(gTarg->linker), Plugin_GetDropInName(file->compiler), file->srcfilename);
else
CLReportError(57, Plugin_GetDropInName(file->compiler), file->srcfilename);
return 0;
}
}
static int CompileEntry(File *file, Boolean *compiled) {
UInt32 beginWork;
UInt32 endWork;
struct BuildInfo *tinfo = &gTarg->info;
*compiled = 0;
if (optsCmdLine.dryRun) {
*compiled = 1;
return 1;
}
if (!(file->sourceUsage & 1)) {
if (file->mappingflags & kRsrcfile)
*compiled = 1;
return 1;
}
#line 835
OPTION_ASSERT(file->compiler);
*compiled = 1;
beginWork = OS_GetMilliseconds();
Browser_Initialize(&clState.browseTableHandle);
Deps_ChangeSpecialAccessPath(&file->srcfss, 1);
if ((optsCmdLine.stages == 0) && !SyntaxCheckFile(file))
return 0;
if ((optsCmdLine.stages & CmdLineStageMask_Pp) && !PreprocessFile(file))
return 0;
if ((optsCmdLine.stages & (CmdLineStageMask_Cg | CmdLineStageMask_Ds)) && !CompileFile(file))
return 0;
if ((optsCmdLine.stages & CmdLineStageMask_Dp) && !DependencyMapFile(file, 1))
return 0;
if ((optsCmdLine.stages & CmdLineStageMask_Ds) && !DisassembleFile(file))
return 0;
if (optsCmdLine.verbose && (optsCmdLine.stages & CmdLineStageMask_Cg)) {
const char *cun;
const char *dun;
const char *uun;
CLReport(25, file->compiledlines);
tinfo->linesCompiled += file->compiledlines;
cun = dun = uun = "bytes";
CLReport(26, file->codesize, cun, file->idatasize, dun, file->udatasize, uun);
}
tinfo->codeSize += file->codesize;
tinfo->iDataSize += file->idatasize;
tinfo->uDataSize += file->udatasize;
Browser_Terminate(&clState.browseTableHandle);
endWork = OS_GetMilliseconds();
if (optsCmdLine.timeWorking) {
if (optsCmdLine.verbose)
CLReport(24, (endWork - beginWork) / 1000.0, "compile", "", "", "");
else
CLReport(24, (endWork - beginWork) / 1000.0, "compile", "'", file->srcfilename, "'");
}
return 1;
}
static void DumpFileAndPathInfo() {
int i;
int n;
CLReport(84, "Framework search paths ([d] = default, [r] = recursive)");
n = Paths_Count(&FrameworkPaths);
if (!n) {
CLReport(85, "(none)", "");
} else {
for (i = 0; i < n; i++) {
Path *path = Paths_GetPath(&FrameworkPaths, i);
#line 961
OPTION_ASSERT(path != NULL);
CLReport(85,
OS_PathSpecToString(path->spec, STSbuf, sizeof(STSbuf)),
((path->flags & 2) && path->recursive) ? " [d] [r]" : (path->flags & 2) ? " [d]" : path->recursive ? " [r]" : ""
);
if (path->recursive && optsCmdLine.verbose > 2) {
UInt16 j;
for (j = 0; j < Paths_Count(path->recursive); j++) {
Path *sub = Paths_GetPath(path->recursive, j);
#line 976
OPTION_ASSERT(sub);
CLReport(85, "\t", OS_PathSpecToString(sub->spec, STSbuf, sizeof(STSbuf)));
}
}
}
}
n = Frameworks_GetCount();
if (Frameworks_GetCount()) {
CLReport(84, "Included frameworks");
for (i = 0; i < n; i++) {
char version[80];
Paths_FWInfo *info = Frameworks_GetInfo(i);
#line 993
OPTION_ASSERT(info);
version[0] = 0;
strcpy(version, "\t(");
if (!info->version.s[0]) {
strcat(version, "Current)");
} else {
strncat(version, info->version.s, sizeof(version) - 4);
strcat(version, ")");
}
CLReport(85, info->name.s, version);
}
}
if (clState.plugintype == CWDROPINCOMPILERTYPE)
CLReport(84, "User include search paths ([d] = default, [r] = recursive)");
else
CLReport(84, "Library search paths ([d] = default, [r] = recursive)");
if (!Paths_Count(&gTarg->userPaths) && clState.plugintype == CWDROPINCOMPILERTYPE) {
CLReport(85, "(none)", "");
} else {
for (i = 0; i < Paths_Count(&gTarg->userPaths); i++) {
Path *path = Paths_GetPath(&gTarg->userPaths, i);
#line 1024
OPTION_ASSERT(path != NULL);
CLReport(85,
OS_PathSpecToString(path->spec, STSbuf, sizeof(STSbuf)),
((path->flags & 2) && path->recursive) ? " [d] [r]" : (path->flags & 2) ? " [d]" : path->recursive ? " [r]" : ""
);
if (path->recursive && optsCmdLine.verbose > 2) {
UInt16 j;
for (j = 0; j < Paths_Count(path->recursive); j++) {
Path *sub = Paths_GetPath(path->recursive, j);
#line 1039
OPTION_ASSERT(sub);
CLReport(85, "\t", OS_PathSpecToString(sub->spec, STSbuf, sizeof(STSbuf)));
}
}
}
}
if (clState.plugintype == CWDROPINCOMPILERTYPE)
CLReport(84, "System include search paths ([d] = default, [r] = recursive)");
if (!Paths_Count(&gTarg->sysPaths))
CLReport(85, "(none)", "");
for (i = 0; i < Paths_Count(&gTarg->sysPaths); i++) {
Path *path = Paths_GetPath(&gTarg->sysPaths, i);
#line 1054
OPTION_ASSERT(path != NULL);
CLReport(85,
OS_PathSpecToString(path->spec, STSbuf, sizeof(STSbuf)),
((path->flags & 2) && path->recursive) ? " [d] [r]" : (path->flags & 2) ? " [d]" : path->recursive ? " [r]" : ""
);
if (path->recursive && optsCmdLine.verbose > 2) {
UInt16 j;
for (j = 0; j < Paths_Count(path->recursive); j++) {
Path *sub = Paths_GetPath(path->recursive, j);
#line 1069
OPTION_ASSERT(sub);
CLReport(85, "\t", OS_PathSpecToString(sub->spec, STSbuf, sizeof(STSbuf)));
}
}
}
if (clState.plugintype == CWDROPINCOMPILERTYPE)
CLReport(84, "Files in project (relative to CWD)");
else
CLReport(84, "Link order for project (relative to CWD)");
for (i = 0; i < Files_Count(&gTarg->files); i++) {
File *file = Files_GetFile(&gTarg->files, i);
if (!VFiles_Find(gTarg->virtualFiles, file->srcfilename))
CLReport(85, OS_SpecToStringRelative(&file->srcfss, NULL, STSbuf, sizeof(STSbuf)), "");
else
CLReport(85, file->srcfilename, "\t(virtual file)");
}
}
int CompileFilesInProject() {
struct BuildInfo *tinfo;
SInt32 index;
SInt32 startTime;
SInt32 endTime;
int ignored;
int compiled;
Boolean failed;
failed = 0;
startTime = OS_GetMilliseconds();
InitializeIncludeCache();
if (optsCmdLine.verbose > 1)
DumpFileAndPathInfo();
if (!SendTargetInfoRequest(gTarg, gTarg->linker, gTarg->linkerDropinFlags))
return Result_Failed;
ignored = 0;
compiled = 0;
for (index = 0; index < Files_Count(&gTarg->files); index++) {
int ret;
File *file;
Boolean wascompiled;
file = Files_GetFile(&gTarg->files, index);
if (!file->outfileowner)
file->outfileowner = CmdLineStageMask_Cg;
ret = CompileEntry(file, &wascompiled);
if (ret) {
if (wascompiled)
compiled++;
if (!wascompiled)
ignored++;
if (CheckForUserBreak())
return Result_Cancelled;
}
if (!ret) {
if (optsCompiler.noFail) {
failed = 1;
clState.countWarnings = 0;
clState.countErrors = 0;
clState.withholdWarnings = 0;
clState.withholdErrors = 0;
} else {
return CheckForUserBreak() ? Result_Cancelled : Result_Failed;
}
}
}
if (optsCmdLine.stages & CmdLineStageMask_Dp) {
for (index = 0; index < Files_Count(&gTarg->pchs); index++) {
int ret;
File *file;
file = Files_GetFile(&gTarg->pchs, index);
ret = DependencyMapFile(file, 0);
if (!ret) {
if (optsCompiler.noFail) {
failed = 1;
clState.countWarnings = 0;
clState.countErrors = 0;
clState.withholdWarnings = 0;
clState.withholdErrors = 0;
} else {
return CheckForUserBreak() ? Result_Cancelled : Result_Failed;
}
}
}
}
CleanupIncludeCache();
tinfo = &gTarg->info;
if (optsCmdLine.verbose && compiled > 1) {
const char *cun;
const char *dun;
const char *uun;
cun = dun = uun = "bytes";
CLReport(27, tinfo->codeSize, cun, tinfo->iDataSize, dun, tinfo->uDataSize, uun);
}
endTime = OS_GetMilliseconds();
if (optsCmdLine.timeWorking)
CLReport(24, (endTime - startTime) / 1000.0, "compile", "", "", "project");
if (ignored > 0 && compiled == 0 && (gTarg->preLinker || gTarg->linker))
CLReportError(29);
if (failed)
return Result_Failed;
return CheckForUserBreak() ? Result_Cancelled : Result_Success;
}
static int PostLinkFilesInProject() {
SInt32 index;
SInt32 startTime;
SInt32 endTime;
File *file;
FSSpec fss;
startTime = OS_GetMilliseconds();
for (index = 0; index < Files_Count(&gTarg->files); index++) {
file = Files_GetFile(&gTarg->files, index);
OS_OSSpec_To_FSSpec(&file->srcfss, &fss);
gTarg->targetinfo->outfile = fss;
gTarg->targetinfo->runfile = fss;
gTarg->targetinfo->symfile = fss;
if (!SendLinkerRequest(gTarg->postLinker, gTarg->postLinkerDropinFlags, gTarg->targetinfo)) {
return CheckForUserBreak() ? Result_Cancelled : Result_Failed;
} else {
if (CheckForUserBreak())
return Result_Cancelled;
}
}
endTime = OS_GetMilliseconds();
if (optsCmdLine.timeWorking)
CLReport(24, (endTime - startTime) / 1000.0, "compile", "", "", "project");
return CheckForUserBreak() ? Result_Cancelled : Result_Success;
}
int LinkProject() {
SInt32 startTime;
SInt32 endTime;
startTime = OS_GetMilliseconds();
if (!SendTargetInfoRequest(gTarg, gTarg->linker, gTarg->linkerDropinFlags))
return Result_Failed;
if (!SetupTemporaries())
return Result_Failed;
if (gTarg->preLinker && optsLinker.callPreLinker && optsCmdLine.state == OptsCmdLineState_3) {
SInt32 subStart;
SInt32 subEnd;
subStart = OS_GetMilliseconds();
if (gTarg->preLinkerDropinFlags & dropInExecutableTool) {
if (!ExecuteLinker(gTarg->preLinker, gTarg->preLinkerDropinFlags, NULL, NULL, NULL))
return Result_Failed;
} else if (!optsCmdLine.dryRun) {
if (!SendLinkerRequest(gTarg->preLinker, gTarg->preLinkerDropinFlags, gTarg->targetinfo))
return CheckForUserBreak() ? Result_Cancelled : Result_Failed;
}
subEnd = OS_GetMilliseconds();
if (optsCmdLine.timeWorking)
CLReport(24, (subEnd - subStart) / 1000.0, "prelink project", "", "", "");
}
if (gTarg->linker && optsLinker.callLinker && optsCmdLine.state == OptsCmdLineState_3) {
SInt32 subStart;
SInt32 subEnd;
subStart = OS_GetMilliseconds();
if (gTarg->linkerDropinFlags & dropInExecutableTool) {
if (!ExecuteLinker(gTarg->linker, gTarg->linkerDropinFlags, NULL, NULL, NULL))
return Result_Failed;
} else if (!optsCmdLine.dryRun) {
if (!SendLinkerRequest(gTarg->linker, gTarg->linkerDropinFlags, gTarg->targetinfo))
return CheckForUserBreak() ? Result_Cancelled : Result_Failed;
}
subEnd = OS_GetMilliseconds();
if (optsCmdLine.timeWorking)
CLReport(24, (subEnd - subStart) / 1000.0, "link project", "", "", "");
}
if (gTarg->postLinker && optsLinker.callPostLinker && optsCmdLine.state == OptsCmdLineState_3) {
SInt32 subStart;
SInt32 subEnd;
FSSpec fss;
OSSpec outfile;
subStart = OS_GetMilliseconds();
if (gTarg->postLinkerDropinFlags & dropInExecutableTool) {
if (!ExecuteLinker(gTarg->postLinker, gTarg->postLinkerDropinFlags, NULL, NULL, NULL))
return Result_Failed;
} else if (!optsCmdLine.dryRun) {
if (!SendTargetInfoRequest(gTarg, gTarg->linker, gTarg->linkerDropinFlags))
return Result_Failed;
if (gTarg->targetinfo->outputType == linkOutputFile)
fss = gTarg->targetinfo->outfile;
if (gTarg->targetinfo->outputType != linkOutputNone) {
if (!SendLinkerRequest(gTarg->postLinker, gTarg->postLinkerDropinFlags, gTarg->targetinfo))
return CheckForUserBreak() ? Result_Cancelled : Result_Failed;
if (!SendTargetInfoRequest(gTarg, gTarg->postLinker, gTarg->postLinkerDropinFlags))
return Result_Failed;
}
}
subEnd = OS_GetMilliseconds();
if (optsCmdLine.timeWorking)
CLReport(24, (subEnd - subStart) / 1000.0, "postlink project", "", "", "");
if (!optsLinker.keepLinkerOutput && gTarg->targetinfo->outputType == linkOutputFile) {
if (optsCmdLine.verbose > 1) {
OS_FSSpec_To_OSSpec(&fss, &outfile);
CLReport(19, OS_SpecToString(&outfile, STSbuf, sizeof(STSbuf)));
}
FSpDelete(&fss);
}
}
if (!DeleteTemporaries())
return Result_Failed;
endTime = OS_GetMilliseconds();
if (optsCmdLine.timeWorking)
CLReport(24, (endTime - startTime) / 1000.0, "finish link stage", "", "", "");
return Result_Success;
}

159
command_line/CmdLine/Src/CLIncludeFileCache.c
View File

@ -0,0 +1,159 @@
#include "cmdline.h"
typedef struct CacheEntry {
struct CacheEntry *next;
struct CacheEntry *prev;
int locked;
int precompiled;
Handle text;
OSSpec spec;
UInt32 size;
UInt32 when;
} CacheEntry;
enum {
CACHE_SIZE = 0x800000
};
static CacheEntry *cachelist;
static CacheEntry *freelist;
static UInt32 availablecache;
static CacheEntry *makecacheentry() {
CacheEntry *c = freelist;
if (c) {
freelist = c->next;
return c;
} else {
return xmalloc("include file cache", sizeof(CacheEntry));
}
}
static void insertcacheentry(CacheEntry *c) {
if (cachelist)
cachelist->prev = c;
c->next = cachelist;
c->prev = NULL;
cachelist = c;
}
static void deletecacheentry(CacheEntry *c) {
if (c->next)
c->next->prev = c->prev;
if (c->prev)
c->prev->next = c->next;
else
cachelist = c->next;
}
void InitializeIncludeCache() {
freelist = NULL;
cachelist = NULL;
availablecache = CACHE_SIZE;
}
void CleanupIncludeCache() {
CacheEntry *c;
CacheEntry *c1;
for (c = cachelist; c; c = c1) {
c1 = c->next;
if (c->text)
DisposeHandle(c->text);
xfree(c);
}
for (c = freelist; c; c = c1) {
c1 = c->next;
xfree(c);
}
InitializeIncludeCache();
}
void CacheIncludeFile(OSSpec *spec, Handle text, Boolean precompiled) {
UInt32 size;
CacheEntry *c;
CacheEntry *lru;
size = GetHandleSize(text);
if (precompiled) {
lru = NULL;
for (c = cachelist; c; c = c->next) {
if (c->precompiled) {
lru = c;
break;
}
}
if (lru) {
DisposeHandle(lru->text);
lru->text = NULL;
deletecacheentry(lru);
lru->next = freelist;
freelist = lru;
}
} else {
if ((SInt32) size > (SInt32) CACHE_SIZE) {
return;
} else {
while (size > availablecache) {
lru = NULL;
for (c = cachelist; c; c = c->next) {
if (!c->locked && !c->precompiled && (lru == NULL || c->when < lru->when))
lru = c;
}
if (lru) {
DisposeHandle(lru->text);
lru->text = NULL;
availablecache += lru->size;
deletecacheentry(lru);
lru->next = freelist;
freelist = lru;
} else {
return;
}
}
}
}
c = makecacheentry();
c->locked = 1;
c->precompiled = precompiled;
c->spec = *spec;
c->text = text;
c->size = size;
c->when = OS_GetMilliseconds();
insertcacheentry(c);
if (!precompiled)
availablecache -= size;
}
Handle CachedIncludeFile(OSSpec *spec, Boolean *precompiled) {
CacheEntry *c;
for (c = cachelist; c; c = c->next) {
if (OS_EqualSpec(&c->spec, spec)) {
c->when = OS_GetMilliseconds();
*precompiled = c->precompiled;
c->locked++;
return c->text;
}
}
return NULL;
}
void FreeIncludeFile(Handle text) {
CacheEntry *c;
for (c = cachelist; c; c = c->next) {
if (c->text == text) {
c->locked--;
return;
}
}
DisposeHandle(text);
}

23
command_line/CmdLine/Src/CLLicenses.c
View File

@ -0,0 +1,23 @@
#include "cmdline.h"
void License_Initialize() {
}
void License_Terminate() {
}
SInt32 License_Checkout() {
return 0xD0AD0A;
}
void License_Refresh() {
}
void License_Checkin() {
}
void License_AutoCheckin() {
}

85
command_line/CmdLine/Src/CLLoadAndCache.c
View File

@ -0,0 +1,85 @@
#include "cmdline.h"
short FixTextHandle(Handle txt) {
char *tptr;
UInt32 tlen;
char *scan;
HLock(txt);
tptr = *txt;
tlen = GetHandleSize(txt);
scan = tptr;
while (scan < (tptr + tlen)) {
if (scan[0] == '\r') {
if (scan[1] == '\n')
scan += 2;
else
scan += 1;
} else if (scan[0] == '\n') {
scan[0] = '\r';
scan++;
} else {
scan++;
}
}
HUnlock(txt);
return 0;
}
int LoadAndCacheFile(OSSpec *spec, Handle *texthandle, Boolean *precomp) {
Handle h;
int err;
OSType mactype;
int refnum;
UInt32 ltxtlen;
if ((*texthandle = CachedIncludeFile(spec, precomp)))
return 0;
*precomp = !OS_GetMacFileType(spec, &mactype) && mactype != CWFOURCHAR('T','E','X','T');
*texthandle = NULL;
err = OS_Open(spec, OSReadOnly, &refnum);
if (err)
return err;
err = OS_GetSize(refnum, &ltxtlen);
if (err)
return err;
h = NewHandle(ltxtlen + 1);
if (!h) {
fprintf(stderr, "\n*** Out of memory\n");
exit(-23);
}
HLock(h);
err = OS_Read(refnum, *h, &ltxtlen);
if (err) {
DisposeHandle(h);
OS_Close(refnum);
return err;
}
OS_Close(refnum);
(*h)[ltxtlen] = 0;
HUnlock(h);
if (!*precomp)
FixTextHandle(h);
CacheIncludeFile(spec, h, *precomp);
*texthandle = h;
return 0;
}
void CopyFileText(Handle src, char **text, SInt32 *textsize) {
*textsize = GetHandleSize(src);
*text = xmalloc(NULL, *textsize);
HLock(src);
memcpy(*text, *src, *textsize);
*textsize -= 1;
HUnlock(src);
}

34
command_line/CmdLine/Src/CLMain.c
View File

@ -1,10 +1,10 @@
#include "mwcc_decomp.h"
#include "cmdline.h"
jmp_buf exit_program;
int numPlugins;
CLPluginInfo *pluginInfo;
int numPanels;
char **panelNames;
const char **panelNames;
CWCommandLineArgs *panel_args;
CWCommandLineArgs *plugin_args;
Project mainProj;
@ -18,14 +18,14 @@ char cmdline_build_date[32];
char cmdline_build_time[32];
Project *gProj = &mainProj;
static SInt16 CLT_dummymain(void *context) {
static CWPLUGIN_ENTRY(CLT_dummymain)(CWPluginContext) {
return 0;
}
static SInt16 CLT_GetDropInFlags(const DropInFlags **flags, SInt32 *flagsSize) {
static CWPLUGIN_ENTRY(CLT_GetDropInFlags)(const DropInFlags **flags, SInt32 *flagsSize) {
static const DropInFlags sFlags = {
kCurrentDropInFlagsVersion,
CWFOURCHAR('c','l','d','r'),
CWDROPINDRIVERTYPE,
7,
0,
0,
@ -36,19 +36,19 @@ static SInt16 CLT_GetDropInFlags(const DropInFlags **flags, SInt32 *flagsSize) {
return 0;
}
static SInt16 CLT_GetDropInName(const char **dropinName) {
static CWPLUGIN_ENTRY(CLT_GetDropInName)(const char **dropinName) {
static const char *sDropInName = "Command-Line Driver";
*dropinName = sDropInName;
return 0;
}
static SInt16 CLT_GetDisplayName(const char **displayName) {
static CWPLUGIN_ENTRY(CLT_GetDisplayName)(const char **displayName) {
static const char *sDisplayName = "Command-Line Driver";
*displayName = sDisplayName;
return 0;
}
static SInt16 CLT_GetPanelList(const CWPanelList **panelList) {
static CWPLUGIN_ENTRY(CLT_GetPanelList)(const CWPanelList **panelList) {
static const char *sPanelNames[4];
static CWPanelList sPanelList = {
kCurrentCWPanelListVersion,
@ -70,7 +70,7 @@ static SInt16 CLT_GetPanelList(const CWPanelList **panelList) {
return 0;
}
static SInt16 CLT_GetTargetList(const CWTargetList **targetList) {
static CWPLUGIN_ENTRY(CLT_GetTargetList)(const CWTargetList **targetList) {
static FourCharCode sCPU = targetCPUAny;
static FourCharCode sOS = targetOSAny;
static CWTargetList sTargetList = {
@ -84,7 +84,7 @@ static SInt16 CLT_GetTargetList(const CWTargetList **targetList) {
return 0;
}
static SInt16 CLT_GetVersionInfo(const VersionInfo **versioninfo) {
static CWPLUGIN_ENTRY(CLT_GetVersionInfo)(const VersionInfo **versioninfo) {
static const VersionInfo vi = {
3, 0, 0, 0
};
@ -92,7 +92,7 @@ static SInt16 CLT_GetVersionInfo(const VersionInfo **versioninfo) {
return 0;
}
static SInt16 CLT_GetFileTypeMappings(const OSFileTypeMappingList **mappinglist) {
static CWPLUGIN_ENTRY(CLT_GetFileTypeMappings)(const OSFileTypeMappingList **mappinglist) {
static const OSFileTypeMapping ftmes[2] = {
{CWFOURCHAR('B','r','w','s'), "DubL", 4, 0, 0},
{CWFOURCHAR('M','M','P','r'), "looc", 4, 0, 0}
@ -278,12 +278,6 @@ int Main_Terminate(int exitcode) {
return exitcode;
}
enum {
ResultCode_0 = 0,
ResultCode_1 = 1,
ResultCode_2 = 2
};
static int Main_ParseCommandLine() {
Plugin *parser;
CWCommandLineArgs myargs;
@ -308,7 +302,7 @@ static int Main_ParseCommandLine() {
myargs.envp = 0;
if (!SendParserRequest(parser, gTarg, &myargs, gTarg->cpu, gTarg->os, numPlugins, pluginInfo, numPanels, panelNames, plugin_args, panel_args, cmdline_build_date, cmdline_build_time, Plugin_GetToolVersionInfo())) {
return CheckForUserBreak() ? ResultCode_2 : ResultCode_1;
return CheckForUserBreak() ? Result_Cancelled : Result_Failed;
}
if (clState.pluginDebug) {
@ -340,7 +334,7 @@ static int Main_ParseCommandLine() {
}
}
return ResultCode_0;
return Result_Success;
}
static int Main_SetupParamBlock() {
@ -622,7 +616,7 @@ static int Main_SetupContext() {
CLFatalError("The linker plugin was not found!");
}
gTarg->linkmodel = 0;
gTarg->linkmodel = LinkModel0;
Framework_GetEnvInfo();
return 1;

348
command_line/CmdLine/Src/CLPluginRequests.cpp Normal file
View File

@ -0,0 +1,348 @@
#include "cmdline.h"
#include "plugin_internal.h"
extern "C" {
static CWResult CallPlugin(Plugin *plugin) {
return Plugin_Call(plugin, plugin->context);
}
}
static void SetupPluginContext(Plugin *plugin, CWResult request) {
OSSpec spec;
shellContextType *sc;
OSPathSpec cwd;
sc = static_cast<shellContextType *>(plugin->context->shellContext);
sc->plugin = plugin;
sc->systemAccessPathsChanged = 1;
sc->userAccessPathsChanged = 1;
plugin->context->request = request;
plugin->context->apiVersion = 12;
plugin->context->pluginStorage = NULL;
OS_MakeFileSpec("Project.mcp", &spec);
OS_OSSpec_To_FSSpec(&spec, &plugin->context->projectFile);
if (gTarg) {
OS_MakeSpecWithPath(&gTarg->outputDirectory, NULL, 0, &spec);
OS_OSSpec_To_FSSpec(&spec, &plugin->context->outputFileDirectory);
} else {
OS_GetCWD(&cwd);
OS_MakeSpecWithPath(&cwd, NULL, 0, &spec);
OS_OSSpec_To_FSSpec(&spec, &plugin->context->outputFileDirectory);
}
plugin->context->shellSignature = CWFOURCHAR('C','W','I','E');
plugin->context->pluginType = Plugin_GetDropInFlags(plugin)->dropintype;
if (gTarg)
plugin->context->numFiles = Files_Count(&gTarg->files);
else
plugin->context->numFiles = 0;
if (gTarg)
plugin->context->numOverlayGroups = Overlays_CountGroups(&gTarg->linkage.overlays);
else
plugin->context->numOverlayGroups = 0;
plugin->context->pluginOSError = noErr;
plugin->context->callbackOSError = noErr;
plugin->context->accessPathList = NULL;
}
static void DestroyPluginContext(CWPluginContext context) {
}
Boolean SendParserRequest(
Plugin *plugin,
Target *target,
CWCommandLineArgs *args,
OSType cpu,
OSType os,
int numPlugins,
CLPluginInfo *pluginInfo,
int numPanels,
const char **panelNames,
CWCommandLineArgs *plugin_args,
CWCommandLineArgs *panel_args,
const char *build_date,
const char *build_time,
const ToolVersionInfo *build_tool
) {
int result;
CWParserContext *pc;
SetupPluginContext(plugin, 1);
pc = static_cast<CWParserContext *>(plugin->context);
pc->build_date = build_date;
pc->build_time = build_time;
pc->build_tool = build_tool;
pc->args = args;
pc->cpu = cpu;
pc->os = os;
pc->numPlugins = numPlugins;
pc->plugins = pluginInfo;
pc->numPanels = numPanels;
pc->panelNames = panelNames;
pc->plugin_args = plugin_args;
pc->panel_args = panel_args;
if (CallPlugin(plugin) != cwNoErr)
return 0;
if (!SendTargetInfoRequest(target, target->linker, target->linkerDropinFlags))
return 0;
target->linkmodel =
(target->targetinfo->linkType == exelinkageSegmented) ? LinkModel1 :
(target->targetinfo->linkType == exelinkageOverlay1) ? LinkModel2 :
LinkModel0;
if (!Plugin_VerifyPanels(plugin))
return 0;
SetupPluginContext(plugin, 2);
pc->args = args;
pc->cpu = cpu;
pc->os = os;
pc->numPlugins = numPlugins;
pc->plugins = pluginInfo;
pc->numPanels = numPanels;
pc->panelNames = panelNames;
pc->plugin_args = plugin_args;
pc->panel_args = panel_args;
result = CallPlugin(plugin);
return (result == cwNoErr);
}
Boolean SendCompilerRequest(Plugin *plugin, File *file, SInt16 stage) {
CWResult result;
CWCompilerLinkerContext *cc;
Boolean precompiling;
SInt16 type;
OSType mactype;
const char *pn;
int v;
if (stage & CmdLineStageMask_Cg) {
if (optsCompiler.forcePrecompile == 1)
precompiling = 1;
else if (optsCompiler.forcePrecompile == 2)
precompiling = 0;
else
precompiling = !!(file->mappingflags & kPrecompile);
} else {
precompiling = 0;
}
if (optsCmdLine.verbose) {
pn = Plugin_GetDropInName(plugin);
v = optsCmdLine.verbose > 1;
if (stage & CmdLineStageMask_Pp) {
CLReport(CLStr34 + v, file->srcfilename, pn);
} else if (stage & CmdLineStageMask_Cg) {
if (precompiling)
CLReport(CLStr32 + v, file->srcfilename, pn);
else
CLReport(CLStr30 + v, file->srcfilename, pn);
} else if (stage & CmdLineStageMask_Dp) {
CLReport(CLStr36 + v, file->srcfilename, pn);
} else if (stage & CmdLineStageMask_Ds) {
CLReport(CLStr46 + v, file->srcfilename, pn);
} else if (!stage) {
CLReport(CLStr48 + v, file->srcfilename, pn);
}
}
if (!Plugin_VerifyPanels(plugin))
return 0;
SetupPluginContext(plugin, reqCompile);
cc = static_cast<CWCompilerLinkerContext *>(plugin->context);
*cc->targetinfo = *gTarg->targetinfo;
OS_OSSpec_To_FSSpec(&file->srcfss, &cc->sourcefile);
if (!OS_GetMacFileType(&file->srcfss, &mactype) && mactype == CWFOURCHAR('T','E','X','T')) {
if (UCBGetFileText(cc, &cc->sourcefile, &cc->sourcetext, &cc->sourcetextsize, &type) != cwNoErr)
return 0;
} else {
cc->sourcetext = NULL;
cc->sourcetextsize = 0;
}
cc->whichfile = file->filenum;
cc->debuginfo = optsCmdLine.debugInfo;
cc->recordbrowseinfo = file->recordbrowseinfo;
cc->fileID = file->browseFileID;
memcpy(&cc->browseoptions, file->browseoptions, sizeof(cc->browseoptions));
if (stage & (CmdLineStageMask_Pp | CmdLineStageMask_Dp)) {
if (stage & CmdLineStageMask_Pp)
cc->preprocess = 1;
else
cc->preprocess = 2;
} else {
cc->preprocess = 0;
}
if ((stage & CmdLineStageMask_Cg) && precompiling) {
cc->precompile = 1;
cc->autoprecompile = 1;
} else {
cc->precompile = 0;
cc->autoprecompile = 0;
}
if (!(stage & (CmdLineStageMask_Pp | CmdLineStageMask_Cg | CmdLineStageMask_Dp))) {
cc->preprocess = 2;
cc->precompile = 2;
}
result = CallPlugin(plugin);
if (cc->sourcetext) {
UCBReleaseFileText(cc, cc->sourcetext);
cc->sourcetext = NULL;
cc->sourcetextsize = 0;
}
return (result == cwNoErr);
}
Boolean SendTargetInfoRequest(Target *targ, Plugin *linker, SInt32 dropinflags) {
CWResult result;
CWCompilerLinkerContext *cc;
OSSpec spec;
FSSpec fss;
if (linker && !(dropinflags & dropInExecutableTool)) {
if (optsCmdLine.verbose > 1)
CLReport(CLStr50, Plugin_GetDropInName(linker));
#line 298
OPTION_ASSERT(Plugin_GetPluginType(linker) == CWDROPINLINKERTYPE);
if (!Plugin_VerifyPanels(linker))
return 0;
SetupPluginContext(linker, reqTargetInfo);
cc = static_cast<CWCompilerLinkerContext *>(linker->context);
*cc->targetinfo = *targ->targetinfo;
result = CallPlugin(linker);
*targ->targetinfo = *cc->targetinfo;
} else {
OS_MakeFileSpec("(unknown file)", &spec);
OS_OSSpec_To_FSSpec(&spec, &fss);
targ->targetinfo->outputType = linkOutputFile;
targ->targetinfo->outfile = fss;
targ->targetinfo->symfile = fss;
targ->targetinfo->runfile = fss;
targ->targetinfo->linkType = exelinkageFlat;
targ->targetinfo->canRun = 0;
targ->targetinfo->canDebug = 0;
targ->targetinfo->targetCPU = targ->cpu;
targ->targetinfo->targetOS = targ->os;
targ->targetinfo->outfileCreator = CWFOURCHAR('C','W','I','E');
targ->targetinfo->outfileType = CWFOURCHAR('A','P','P','L');
targ->targetinfo->debuggerCreator = CWFOURCHAR('M','W','D','B');
targ->targetinfo->runHelperCreator = CWFOURCHAR('?','?','?','?');
result = cwNoErr;
}
return (result == cwNoErr);
}
Boolean SendLinkerRequest(Plugin *plugin, SInt32 dropinflags, CWTargetInfo *targetInfo) {
CWResult result;
CWCompilerLinkerContext *cc;
const char *nm;
int v;
if (optsCmdLine.verbose) {
nm = Plugin_GetDropInName(plugin);
v = optsCmdLine.verbose > 1;
if (dropinflags & isPostLinker)
CLReport(CLStr44 + v, nm);
else if (dropinflags & isPreLinker)
CLReport(CLStr42 + v, nm);
else
CLReport(CLStr40 + v, nm);
}
if (!Plugin_VerifyPanels(plugin))
return 0;
SetupPluginContext(plugin, reqLink);
cc = static_cast<CWCompilerLinkerContext *>(plugin->context);
*cc->targetinfo = *targetInfo;
result = CallPlugin(plugin);
*targetInfo = *cc->targetinfo;
return (result == cwNoErr);
}
Boolean SendDisassemblerRequest(Plugin *linker, File *file) {
CWResult result;
Plugin *plugin;
if (linker == NULL)
plugin = file->compiler;
else
plugin = linker;
if (optsCmdLine.verbose)
CLReport((optsCmdLine.verbose > 1) + CLStr46, file->srcfilename, Plugin_GetDropInName(linker));
if (!Plugin_VerifyPanels(plugin))
return 0;
if (!linker) {
SetupPluginContext(plugin, reqCompDisassemble);
static_cast<CWCompilerLinkerContext *>(plugin->context)->whichfile = file->filenum;
result = CallPlugin(plugin);
} else {
SetupPluginContext(plugin, reqDisassemble);
static_cast<CWCompilerLinkerContext *>(plugin->context)->whichfile = file->filenum;
result = CallPlugin(plugin);
}
return (result == cwNoErr);
}
Boolean SendInitOrTermRequest(Plugin *plugin, Boolean reqIsInitialize) {
CWResult result;
OSType ty;
result = cwErrRequestFailed;
if (plugin) {
if (clState.pluginDebug)
CLReport(reqIsInitialize ? CLStr51 : CLStr52, Plugin_GetDropInName(plugin));
if (reqIsInitialize) {
ty = Plugin_GetDropInFlags(plugin)->dropintype;
if (ty == CWDROPINDRIVERTYPE) {
plugin->context = new CWPluginPrivateContext(ty);
} else if (ty == CWDROPINPARSERTYPE) {
plugin->context = new CWParserContext();
} else if (ty == CWDROPINCOMPILERTYPE || ty == CWDROPINLINKERTYPE) {
plugin->context = new CWCompilerLinkerContext();
} else {
plugin->context = NULL;
}
plugin->context->shellContext = new shellContextType;
}
if (plugin->context) {
SetupPluginContext(plugin, reqIsInitialize ? reqInitialize : reqTerminate);
result = CallPlugin(plugin);
} else {
result = cwNoErr;
}
if (!reqIsInitialize)
License_AutoCheckin();
}
return (result == cwNoErr);
}

123
command_line/CmdLine/Src/CLPrefs.c
View File

@ -0,0 +1,123 @@
#include "cmdline.h"
struct PrefPanel {
char *name;
Handle data;
Handle workHandle;
PrefPanel *next;
};
static PrefPanel *panellist;
PrefPanel *PrefPanel_New(const char *name, void *initdata, SInt32 initdatasize) {
PrefPanel *pnl;
pnl = xmalloc(NULL, sizeof(PrefPanel));
if (!pnl)
return pnl;
pnl->name = xstrdup(name);
pnl->data = NewHandle(initdatasize);
if (!pnl->data) {
fprintf(stderr, "\n*** Out of memory\n");
exit(-23);
}
pnl->workHandle = NULL;
HLock(pnl->data);
if (initdata)
memcpy(*pnl->data, initdata, initdatasize);
else
memset(*pnl->data, 0, initdatasize);
HUnlock(pnl->data);
pnl->next = NULL;
return pnl;
}
Handle PrefPanel_GetHandle(PrefPanel *panel) {
UInt32 len = GetHandleSize(panel->data);
if (!panel->workHandle || !*panel->workHandle)
panel->workHandle = NewHandle(len);
else
SetHandleSize(panel->workHandle, len);
#line 60
OPTION_ASSERT(MemError()==noErr);
HLock(panel->data);
HLock(panel->workHandle);
memcpy(*panel->workHandle, *panel->data, len);
HUnlock(panel->workHandle);
HUnlock(panel->data);
return panel->workHandle;
}
int PrefPanel_PutHandle(PrefPanel *panel, Handle data) {
UInt32 len = GetHandleSize(data);
if (data != panel->workHandle) {
if (!panel->workHandle)
panel->workHandle = NewHandle(len);
else
SetHandleSize(panel->workHandle, len);
if (MemError() != noErr)
return 0;
HLock(panel->workHandle);
HLock(data);
memcpy(*panel->workHandle, *data, len);
HUnlock(data);
HUnlock(panel->workHandle);
}
HLock(panel->data);
HLock(panel->workHandle);
memcpy(*panel->data, *panel->workHandle, len);
HUnlock(panel->workHandle);
HUnlock(panel->data);
return 1;
}
void Prefs_Initialize() {
panellist = NULL;
}
void Prefs_Terminate() {
PrefPanel *scan;
PrefPanel *next;
for (scan = panellist; scan; scan = next) {
xfree(scan->name);
DisposeHandle(scan->data);
next = scan->next;
xfree(scan);
}
}
Boolean Prefs_AddPanel(PrefPanel *panel) {
PrefPanel **scan;
for (scan = &panellist; *scan; scan = &(*scan)->next) {
if (!strcmp((*scan)->name, panel->name)) {
CLReportError(90, panel->name);
return 0;
}
}
if (clState.pluginDebug)
CLPrint("Defining/adding pref panel '%s'\n", panel->name);
*scan = panel;
return 1;
}
PrefPanel *Prefs_FindPanel(const char *name) {
PrefPanel *scan;
for (scan = panellist; scan; scan = scan->next) {
if (!ustrcmp(scan->name, name))
break;
}
return scan;
}

55
command_line/CmdLine/Src/CLTarg.c
View File

@ -0,0 +1,55 @@
#include "cmdline.h"
Target *Target_New(const char *name, OSType cpu, OSType os, OSType lang) {
Target *targ;
targ = xcalloc("target", sizeof(Target));
strncpy(targ->targetName, name, sizeof(targ->targetName));
targ->targetinfo = xcalloc("target info", sizeof(CWTargetInfo));
targ->cpu = cpu;
targ->os = os;
targ->lang = lang;
OS_GetCWD(&targ->outputDirectory);
#line 25
OPTION_ASSERT(Segments_Initialize(&targ->linkage.segs));
#line 28
OPTION_ASSERT(Overlays_Initialize(&targ->linkage.overlays));
#line 35
OPTION_ASSERT(Files_Initialize(&targ->files) && Files_Initialize(&targ->pchs) && VFiles_Initialize(&targ->virtualFiles) &&
Paths_Initialize(&targ->sysPaths) && Paths_Initialize(&targ->userPaths) && Incls_Initialize(&targ->incls, targ));
return targ;
}
void Target_Free(Target *targ) {
Segments_Terminate(&targ->linkage.segs);
Overlays_Terminate(&targ->linkage.overlays);
Paths_Terminate(&targ->sysPaths);
Paths_Terminate(&targ->userPaths);
Files_Terminate(&targ->files);
Files_Terminate(&targ->pchs);
VFiles_Terminate(&targ->virtualFiles);
Incls_Terminate(&targ->incls);
xfree(targ);
}
void Targets_Term(Target *list) {
Target *scan;
Target *next;
for (scan = list; scan; scan = next) {
next = scan->next;
Target_Free(scan);
}
}
void Target_Add(Target **list, Target *targ) {
Target **scan;
for (scan = list; *scan; scan = &(*scan)->next) {}
*scan = targ;
}

243
command_line/CmdLine/Src/CLToolExec.c
View File

@ -0,0 +1,243 @@
#include "cmdline.h"
extern char STSbuf[256];
extern PCmdLine pCmdLine;
void AppendArgumentList(int *argc, char ***argv, const char *str) {
*argv = xrealloc("command-line arguments", *argv, sizeof(char *) * (*argc + 2));
(*argv)[(*argc)++] = xstrdup(str);
}
static int CopyArgumentList(int argc, char **argv, int *Argc, char ***Argv) {
int x;
int y;
y = Argc ? *Argc : 0;
*Argv = xrealloc("command-line arguments", *Argv, sizeof(char *) * (y + argc + 1));
if (argv) {
for (x = 0; x < argc; x++) {
(*Argv)[y++] = xstrdup(argv[x]);
}
}
(*Argv)[y] = NULL;
if (Argc)
*Argc = y;
return 1;
}
static int FreeArgumentList(char **argv) {
char **scan;
for (scan = argv; *scan; scan++)
xfree(*scan);
xfree(argv);
return 1;
}
static int SetupLinkerCommandLine(SInt32 dropinflags, File *file, CWCommandLineArgs *args) {
CWCommandLineArgs *baseargs;
int x;
SInt32 idx;
OSSpec spec;
for (x = 0; x < numPlugins; x++) {
if (pluginInfo[x].plugintype == CWDROPINLINKERTYPE && ((dropinflags & (isPostLinker | isPreLinker)) == (pluginInfo[x].dropinflags & (isPostLinker | isPreLinker))))
break;
}
#line 89
OPTION_ASSERT(x < numPlugins);
args->argc = 1;
args->argv = xmalloc("command-line arguments", 2 * sizeof(char *));
Main_PassSpecialArgs(&args->argc, &args->argv);
baseargs = &plugin_args[x];
CopyArgumentList(baseargs->argc - 1, baseargs->argv + 1, &args->argc, &args->argv);
x = 0;
if (baseargs->envp) {
while (baseargs->envp[x])
x++;
}
args->envp = NULL;
CopyArgumentList(x, baseargs->envp, NULL, &args->envp);
if (!file && !(dropinflags & isPostLinker)) {
for (idx = 0; idx < Files_Count(&gTarg->files); idx++) {
file = Files_GetFile(&gTarg->files, idx);
if (file->sourceUsage & CmdLineStageMask_Cg) {
AppendArgumentList(&args->argc, &args->argv, file->srcfilename);
}
if (file->objectUsage & CmdLineStageMask_Cg) {
if (GetOutputFile(file, CmdLineStageMask_Cg) != 0 && StoreObjectFile(file))
AppendArgumentList(&args->argc, &args->argv, OS_SpecToString(&file->outfss, STSbuf, sizeof(STSbuf)));
else
return 0;
}
}
} else if (file) {
args->argv = xrealloc("command-line arguments", args->argv, sizeof(char *) * (args->argc + 1));
if (file->sourceUsage & CmdLineStageMask_Cg) {
AppendArgumentList(&args->argc, &args->argv, file->srcfilename);
}
if (file->objectUsage & CmdLineStageMask_Cg) {
if (GetOutputFile(file, CmdLineStageMask_Cg) != 0 && StoreObjectFile(file)) {
AppendArgumentList(&args->argc, &args->argv, OS_SpecToString(&file->outfss, STSbuf, sizeof(STSbuf)));
}
}
if ((pCmdLine.toDisk & CmdLineStageMask_Ds) && (file->objectUsage & CmdLineStageMask_Pp) && file->outfilename[0] && GetOutputFile(file, CmdLineStageMask_Ds)) {
AppendArgumentList(&args->argc, &args->argv, "-o");
AppendArgumentList(&args->argc, &args->argv, OS_SpecToString(&file->outfss, STSbuf, sizeof(STSbuf)));
}
} else if (dropinflags & isPostLinker) {
OS_FSSpec_To_OSSpec(&gTarg->targetinfo->outfile, &spec);
AppendArgumentList(&args->argc, &args->argv, OS_SpecToString(&spec, STSbuf, sizeof(STSbuf)));
}
args->argv[args->argc] = NULL;
return 1;
}
int SetupTemporaries() {
SInt32 idx;
File *file;
for (idx = 0; idx < Files_Count(&gTarg->files); idx++) {
file = Files_GetFile(&gTarg->files, idx);
if ((file->objectUsage & CmdLineStageMask_Cg) && !(optsCmdLine.toDisk & CmdLineStageMask_Cg) && !(file->writeToDisk & CmdLineStageMask_Cg)) {
if (!optsCompiler.keepObjects)
file->tempOnDisk |= CmdLineStageMask_Cg;
else
file->writeToDisk |= CmdLineStageMask_Cg;
}
}
return 1;
}
int DeleteTemporaries() {
SInt32 idx;
File *file;
for (idx = 0; idx < Files_Count(&gTarg->files); idx++) {
file = Files_GetFile(&gTarg->files, idx);
if ((file->objectUsage & CmdLineStageMask_Cg) && (file->tempOnDisk & CmdLineStageMask_Cg) && (file->wroteToDisk & CmdLineStageMask_Cg)) {
GetOutputFile(file, CmdLineStageMask_Cg);
if (optsCmdLine.verbose > 1)
CLReport(19, OS_SpecToString(&file->outfss, STSbuf, sizeof(STSbuf)));
OS_Delete(&file->outfss);
file->tempOnDisk &= ~CmdLineStageMask_Cg;
file->wroteToDisk &= ~CmdLineStageMask_Cg;
}
}
return 1;
}
int ExecuteLinker(Plugin *plugin, SInt32 dropinflags, File *file, char *stdoutfile, char *stderrfile) {
char cname[64];
const char *linkername;
OSSpec linkerspec;
CWCommandLineArgs args;
int exitcode;
int execerr;
const char *linkertype;
int ret;
char *ptr;
char *ptr2;
int x;
// TODO rename this flag to isExecutableTool
#line 269
OPTION_ASSERT(dropinflags & dropInExecutableTool);
args.argc = 0;
args.argv = args.envp = NULL;
if (dropinflags & isPreLinker)
linkertype = "pre-linker";
else if (dropinflags & isPostLinker)
linkertype = "post-linker";
else
linkertype = "linker";
linkername = Plugin_GetDropInName(plugin);
if (!(dropinflags & (isPreLinker | isPostLinker)) && optsCompiler.linkerName[0])
linkername = optsCompiler.linkerName;
if (OS_FindProgram(linkername, &linkerspec)) {
strcpy(cname, clState.programName);
for (ptr = cname; *ptr; ptr++)
*ptr = tolower(*ptr);
if ((ptr = strstr(cname, "cc")) || (ptr = strstr(cname, "pas")) || (ptr = strstr(cname, "asm"))) {
if (ptr[0] != 'c') {
memmove(ptr + 2, ptr + 3, strlen(ptr) - 3);
ptr[strlen(ptr) - 1] = 0;
}
ptr[0] = 'l';
ptr[1] = 'd';
} else {
if ((ptr = strstr(cname, "mwc"))) {
// this ptr2 seems redundant, but it's needed to generate the same code
ptr2 = ptr + 2;
memmove(ptr2 + 3, ptr2, strlen(ptr2));
memcpy(ptr + 2, "Link", 4);
}
}
if (!OS_FindProgram(cname, &linkerspec)) {
ptr = cname;
if (optsCompiler.linkerName[0]) {
CLReportWarning(66, linkertype, optsCompiler.linkerName);
CLReport(65, ptr, clState.programName);
} else if (optsCmdLine.verbose) {
CLReport(65, ptr, clState.programName);
}
} else {
CLReportError(66, linkertype, linkername);
return 0;
}
}
ret = 1;
SetupLinkerCommandLine(dropinflags, file, &args);
args.argv[0] = xstrdup(OS_SpecToString(&linkerspec, STSbuf, sizeof(STSbuf)));
args.argv[args.argc] = 0;
if (optsCmdLine.verbose || optsCmdLine.dryRun) {
CLPrint("\nCommand line:\n");
for (x = 0; x < args.argc && args.argv[x]; x++) {
if (strchr(args.argv[x], ' '))
CLPrint("\"%s\" ", args.argv[x]);
else
CLPrint("%s ", args.argv[x]);
}
CLPrint("\n\n");
}
fflush(stdout);
fflush(stderr);
if (optsCmdLine.verbose)
CLReport(67, linkertype, OS_SpecToString(&linkerspec, STSbuf, sizeof(STSbuf)));
if (!optsCmdLine.dryRun) {
execerr = OS_Execute(&linkerspec, args.argv, args.envp, stdoutfile, stderrfile, &exitcode);
if (execerr) {
CLReportError(68, linkertype, args.argv[0], OS_GetErrText(execerr));
ret = 0;
} else if (exitcode) {
CLReportError(69 /*nice*/, linkertype, args.argv[0], exitcode);
ret = 0;
}
}
FreeArgumentList(args.argv);
FreeArgumentList(args.envp);
return ret;
}

44
command_line/CmdLine/Src/CLWriteObjectFile.c
View File

@ -0,0 +1,44 @@
#include "cmdline.h"
extern char STSbuf[256];
int WriteObjectFile(File *file, OSType maccreator, OSType mactype) {
FSSpec srcfss;
FSSpec outfss;
#line 22
OPTION_ASSERT(file->objectdata && file->compiler);
OS_OSSpec_To_FSSpec(&file->outfss, &outfss);
OS_OSSpec_To_FSSpec(&file->srcfss, &srcfss);
if (optsCmdLine.verbose) {
CLReport(16,
(file->tempOnDisk & CmdLineStageMask_Cg) ? "temporary " : "",
OS_SpecToStringRelative(&file->outfss, NULL, STSbuf, sizeof(STSbuf)));
}
if (!Plugin_CL_WriteObjectFile(file->compiler, &srcfss, &outfss, maccreator, mactype, file->objectdata))
return 0;
else
return 1;
}
int WriteBrowseData(File *file, OSType maccreator, OSType mactype) {
OSHandle browsehandle;
OSSpec outfss;
const CWObjectFlags *cof;
cof = Plugin_CL_GetObjectFlags(file->compiler);
outfss = file->outfss;
OS_NameSpecSetExtension(&outfss.name, optsCompiler.brsFileExt[0] ? optsCompiler.brsFileExt : cof->brsFileExt);
if (optsCmdLine.verbose) {
CLReport(17, OS_SpecToStringRelative(&outfss, NULL, STSbuf, sizeof(STSbuf)));
}
if (!Browser_PackBrowseFile(file->browsedata, &clState.browseTableHandle, &browsehandle))
return 0;
return WriteBinaryHandleToFile(&outfss, maccreator, mactype, &browsehandle) != 0;
}

663
command_line/CmdLine/Src/Callbacks/CLCompilerLinkerDropin_V10.cpp
View File

@ -1,27 +1,636 @@
/**
P 1F458 | _UCBCachePrecompiledHeader
P 1F4F8 | _UCBLoadObjectData
P 1F5BC | _UCBStoreObjectData
P 1F860 | _UCBFreeObjectData
P 1F90C | _UCBDisplayLines
P 1F980 | _UCBBeginSubCompile
P 1F9F0 | _UCBEndSubCompile
P 1FA60 | _UCBGetPrecompiledHeaderSpec
P 1FD38 | _UCBGetResourceFile
P 1FDA8 | _UCBPutResourceFile
1FE18 | _UnitNameToSBMName__FP6OSSpecP4File
P 1FEA0 | _UCBLookUpUnit
P 20544 | _UCBSBMfiles
P 20594 | _UCBStoreUnit
P 20848 | _UCBReleaseUnit
P 208C8 | _UCBUnitNameToFileName
P 20978 | _UCBOSAlert
P 20A50 | _UCBOSErrorMessage
P 20B38 | _UCBGetModifiedFiles
P 20BBC | _UCBGetSuggestedObjectFileSpec
P 20C78 | _UCBGetStoredObjectFileSpec
P 20D4C | _UCBGetFrameworkCount
P 20DB0 | _UCBGetFrameworkInfo
P 20E48 | ___ct__23CWCompilerLinkerContextFv
P 20FEC | ___dt__23CWCompilerLinkerContextFv
*/
#include "cmdline.h"
#include "plugin_internal.h"
extern char STSbuf[256];
CWResult UCBCachePrecompiledHeader(CWPluginContext context, const CWFileSpec *filespec, CWMemHandle pchhandle) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBCachePrecompiledHeader");
OSSpec spec;
Handle handle;
OS_FSSpec_To_OSSpec(filespec, &spec);
UCBSecretDetachHandle(context, pchhandle, &handle);
CacheIncludeFile(&spec, handle, 1);
return cwNoErr;
}
CWResult UCBLoadObjectData(CWPluginContext context, SInt32 whichfile, CWMemHandle *objectdata) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBLoadObjectData");
File *file = Files_GetFile(&gTarg->files, whichfile);
if (!file)
return cwErrUnknownFile;
if (file->objectdata) {
UCBSecretAttachHandle(context, file->objectdata, objectdata);
return cwNoErr;
} else {
return cwErrRequestFailed;
}
}
CWResult UCBStoreObjectData(CWPluginContext context, SInt32 whichfile, CWObjectData *object) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBStoreObjectData");
if (CheckForUserBreak())
return cwErrUserCanceled;
File *filedata = Files_GetFile(&gTarg->files, whichfile);
if (!filedata)
return cwErrUnknownFile;
if (!object->objectfile) {
Handle objecthand;
Handle browsehand;
UCBSecretDetachHandle(context, object->objectdata, &objecthand);
UCBSecretDetachHandle(context, object->browsedata, &browsehand);
filedata->objectdata = objecthand;
filedata->browsedata = browsehand;
UCBSecretAttachHandle(context, objecthand, &object->objectdata);
UCBSecretAttachHandle(context, browsehand, &object->browsedata);
} else {
if (filedata->outfileowner && filedata->outfileowner != CmdLineStageMask_Cg) {
#line 240
DO_INTERNAL_ERROR("Cannot store object file spec for '%s'\n", filedata->srcfilename);
}
OS_FSSpec_To_OSSpec(object->objectfile, &filedata->outfss);
filedata->wroteToDisk |= CmdLineStageMask_Cg;
}
filedata->codesize = object->codesize;
filedata->udatasize = object->udatasize;
filedata->idatasize = object->idatasize;
filedata->compiledlines = object->compiledlines;
if (filedata->dropinflags & kGeneratesrsrcs)
filedata->hasresources = 1;
else
filedata->hasobjectcode = 1;
filedata->recompileDependents = object->dependencyCount && object->interfaceChanged;
OS_GetTime(&filedata->outmoddate);
if (object->reserved1)
filedata->filetype = object->reserved1;
if (object->reserved2) {
char *newname = reinterpret_cast<char *>(object->reserved2);
CWFileInfo fi;
if (OS_MakeSpec(newname, &filedata->srcfss, NULL) || OS_Status(&filedata->srcfss)) {
fi.fullsearch = 1;
fi.dependencyType = cwNoDependency;
fi.isdependentoffile = -1;
fi.suppressload = 1;
if (UCBFindAndLoadFile(context, newname, &fi) == cwNoErr) {
OS_FSSpec_To_OSSpec(&fi.filespec, &filedata->srcfss);
} else {
char *fnptr = OS_GetFileNamePtr(newname);
if (fnptr != newname) {
fi.fullsearch = 1;
fi.dependencyType = cwNoDependency;
fi.isdependentoffile = -1;
fi.suppressload = 1;
if (UCBFindAndLoadFile(context, fnptr, &fi) == cwNoErr) {
OS_FSSpec_To_OSSpec(&fi.filespec, &filedata->srcfss);
}
}
}
}
}
return cwNoErr;
}
CWResult UCBFreeObjectData(CWPluginContext context, SInt32 whichfile, CWMemHandle objectdata) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBFreeObjectData");
File *file = Files_GetFile(&gTarg->files, whichfile);
if (!file)
return cwErrUnknownFile;
if (file->objectdata) {
DisposeHandle(file->objectdata);
file->objectdata = NULL;
return cwNoErr;
} else {
return cwErrInvalidParameter;
}
}
CWResult UCBDisplayLines(CWPluginContext context, SInt32 nlines) {
ShowWorking(12);
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBDisplayLines");
if (CheckForUserBreak())
return cwErrUserCanceled;
else
return cwNoErr;
}
CWResult UCBBeginSubCompile(CWPluginContext context, SInt32 whichfile, CWPluginContext *subContext) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBBeginSubCompile");
#line 372
DO_INTERNAL_ERROR("UCBBeginSubCompile not implemented");
return cwErrRequestFailed;
}
CWResult UCBEndSubCompile(CWPluginContext subContext) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBEndSubCompile");
#line 384
DO_INTERNAL_ERROR("UCBEndSubCompile not implemented");
return cwErrRequestFailed;
}
CWResult UCBGetPrecompiledHeaderSpec(CWPluginContext context, CWFileSpec *pchspec, const char *intarget) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBGetPrecompiledHeaderSpec");
CWCompilerLinkerContext *c;
int err;
OSSpec outfss;
File *file;
const CWObjectFlags *cof;
char target[256];
if (context->pluginType == CWDROPINCOMPILERTYPE || context->pluginType == CWDROPINLINKERTYPE)
c = static_cast<CWCompilerLinkerContext *>(context);
else
return cwErrInvalidCallback;
file = Files_GetFile(&gTarg->files, c->whichfile);
#line 420
OPTION_ASSERT(file != NULL);
cof = Plugin_CL_GetObjectFlags(file->compiler);
if (!file->outfilename[0]) {
if (intarget) {
if (optsCompiler.canonicalIncludes)
strcpy(target, intarget);
else if (OS_CanonPath(intarget, target) != noErr)
return cwErrInvalidParameter;
err = OS_MakeSpecWithPath(&file->srcfss.path, target, 0, &outfss);
if (err) {
CLReportOSError(CLStr97, err, target);
return cwErrRequestFailed;
}
if (!file->outfileowner || file->outfileowner == CmdLineStageMask_Cg) {
file->outfileowner = CmdLineStageMask_Cg;
OS_SpecToStringRelative(&outfss, NULL, file->outfilename, sizeof(file->outfilename));
}
if (optsCmdLine.verbose)
CLReport(CLStr16, "precompiled ", OS_SpecToStringRelative(&outfss, NULL, STSbuf, sizeof(STSbuf)));
} else {
OS_MakeSpecWithPath(&gTarg->outputDirectory, file->srcfilename, optsCompiler.relPathInOutputDir == 0, &outfss);
OS_NameSpecSetExtension(&outfss.name, optsCompiler.pchFileExt[0] ? optsCompiler.pchFileExt : cof->pchFileExt);
if (!file->outfileowner || file->outfileowner == CmdLineStageMask_Cg) {
file->outfileowner = CmdLineStageMask_Cg;
OS_NameSpecToString(&outfss.name, file->outfilename, sizeof(file->outfilename));
}
CLReport(CLStr59, OS_SpecToStringRelative(&outfss, NULL, STSbuf, sizeof(STSbuf)));
}
OS_OSSpec_To_FSSpec(&outfss, pchspec);
} else {
err = OS_MakeSpecWithPath(&gTarg->outputDirectory, file->outfilename, 0, &outfss);
if (err) {
CLReportOSError(CLStr97, err, file->outfilename);
return cwErrRequestFailed;
}
OS_OSSpec_To_FSSpec(&outfss, pchspec);
if (intarget)
CLReport(CLStr60, OS_SpecToStringRelative(&outfss, NULL, STSbuf, sizeof(STSbuf)), intarget);
}
return cwNoErr;
}
CWResult UCBGetResourceFile(CWPluginContext context, CWFileSpec *filespec) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBGetResourceFile");
#line 514
DO_INTERNAL_ERROR("UCBGetResourceFile not implemented");
return cwErrRequestFailed;
}
CWResult UCBPutResourceFile(CWPluginContext context, const char *prompt, const char *name, CWFileSpec *filespec) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBPutResourceFile");
#line 529
DO_INTERNAL_ERROR("UCBPutResourceFile not implemented");
return cwErrRequestFailed;
}
static int UnitNameToSBMName(OSSpec *spec, File *srcfile) {
const CWObjectFlags *cof;
int err;
cof = Plugin_CL_GetObjectFlags(srcfile->compiler);
err = OS_NameSpecChangeExtension(
&spec->name,
cof->pchFileExt ? cof->pchFileExt : ".sbm",
cof->pchFileExt ? (cof->pchFileExt[0] == '.') : 0
);
return err;
}
CWResult UCBLookUpUnit(CWPluginContext context, const char *name, Boolean isdependency, const void **unitdata, SInt32 *unitdatalength) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBLookUpUnit");
CWFileInfo includeinfo;
OSSpec unitspec;
OSSpec sbmspec;
time_t unittime;
UInt32 unitmactime;
char sbmpath[256];
int err;
CWCompilerLinkerContext *c;
File *srcfile;
File *sbmfile;
if (context->pluginType == CWDROPINCOMPILERTYPE || context->pluginType == CWDROPINLINKERTYPE)
c = static_cast<CWCompilerLinkerContext *>(context);
else
return cwErrInvalidCallback;
srcfile = Files_GetFile(&gTarg->files, c->whichfile);
#line 591
OPTION_ASSERT(srcfile != NULL);
*unitdata = NULL;
*unitdatalength = 0;
if (optsCompiler.sbmState == OptsCompilerSbmState_1 || optsCompiler.sbmState == OptsCompilerSbmState_3) {
if (clState.pluginDebug)
CLPrint("UCBLookUpUnit: sbmState == sbmRebuild or sbmClean; failing\n");
return cwErrSBMNotFound;
}
includeinfo.fullsearch = 1;
includeinfo.dependencyType = isdependency ? cwNormalDependency : cwNoDependency;
includeinfo.isdependentoffile = -1;
includeinfo.suppressload = 1;
if (UCBFindAndLoadFile(context, name, &includeinfo) != cwNoErr) {
if (clState.pluginDebug)
CLPrint("UCBLookUpUnit: could not find source '%s'; failing\n", name);
return cwErrFileNotFound;
}
OS_FSSpec_To_OSSpec(&includeinfo.filespec, &unitspec);
sbmspec = unitspec;
err = UnitNameToSBMName(&sbmspec, srcfile);
if (err) {
if (clState.pluginDebug)
CLPrint("UCBLookUpUnit: could not make precompiled unit spec for '%s' (%s)\n", name, OS_GetErrText(err));
return cwErrRequestFailed;
}
if (optsCompiler.sbmPath[0]) {
sbmspec.path = clState.sbmPathSpec;
OS_SpecToString(&sbmspec, sbmpath, sizeof(sbmpath));
if (clState.pluginDebug)
CLPrint("UCBLookUpUnit: Only looking at '%s'\n", sbmpath);
} else {
OS_NameSpecToString(&sbmspec.name, sbmpath, sizeof(sbmpath));
if (clState.pluginDebug)
CLPrint("UCBLookUpUnit: searching paths for '%s'\n", sbmpath);
}
includeinfo.fullsearch = 1;
includeinfo.dependencyType = isdependency ? cwNormalDependency : cwNoDependency;
includeinfo.isdependentoffile = -1;
includeinfo.suppressload = 0;
if (UCBFindAndLoadFile(context, sbmpath, &includeinfo) != cwNoErr || !includeinfo.filedata) {
if (clState.pluginDebug)
CLPrint("UCBLookUpUnit: could not find or load precompiled unit file '%s'; failing\n", sbmpath);
return cwErrFileNotFound;
}
OS_FSSpec_To_OSSpec(&includeinfo.filespec, &sbmspec);
if (includeinfo.filedatatype != cwFileTypePrecompiledHeader) {
CLPrint("UCBLookUpUnit: file '%s' does not appear to be precompiled\n", OS_SpecToString(&sbmspec, STSbuf, sizeof(STSbuf)));
UCBReleaseFileText(context, includeinfo.filedata);
return cwErrRequestFailed;
}
OS_GetFileTime(&unitspec, NULL, &unittime);
OS_TimeToMac(unittime, &unitmactime);
if (unitmactime != *reinterpret_cast<const UInt32 *>(includeinfo.filedata)) {
if (clState.pluginDebug)
CLPrint(
"UCBLookUpUnit: file '%s' does not have internal timestamp that matches source unit's timestamp (0x%8x != 0x%8x)\n",
OS_SpecToString(&sbmspec, STSbuf, sizeof(STSbuf)),
unitmactime,
*reinterpret_cast<const UInt32 *>(includeinfo.filedata));
UCBReleaseFileText(context, includeinfo.filedata);
return cwErrRequestFailed;
}
sbmfile = Files_FindFile(&gTarg->pchs, &sbmspec);
if (!sbmfile) {
sbmfile = File_New();
sbmfile->srcfss = unitspec;
OS_SpecToString(&sbmfile->srcfss, sbmfile->srcfilename, sizeof(sbmfile->srcfilename));
sbmfile->outfss = sbmspec;
OS_SpecToString(&sbmfile->outfss, sbmfile->outfilename, sizeof(sbmfile->outfilename));
sbmfile->compiler = srcfile->compiler;
sbmfile->outfileowner = CmdLineStageMask_Cg;
sbmfile->writeToDisk = srcfile->writeToDisk;
sbmfile->dropinflags = srcfile->dropinflags;
sbmfile->objectflags = srcfile->objectflags;
sbmfile->mappingflags = srcfile->mappingflags;
Deps_Initialize(&sbmfile->deps, &gTarg->incls);
if (!Files_AddFile(&gTarg->pchs, sbmfile))
return cwErrRequestFailed;
}
if (clState.pluginDebug)
CLPrint("UCBLookUpUnit: success for '%s'\n", name);
if (optsCmdLine.verbose)
CLReport(CLStr62, "unit symbol table", OS_SpecToStringRelative(&sbmspec, NULL, STSbuf, sizeof(STSbuf)));
*unitdata = includeinfo.filedata;
*unitdatalength = includeinfo.filedatalength;
return cwNoErr;
}
CWResult UCBSBMfiles(CWPluginContext context, short libref) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBSBMfiles");
return cwNoErr;
}
CWResult UCBStoreUnit(CWPluginContext context, const char *inunitname, CWMemHandle unitdata, CWDependencyTag dependencytag) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBStoreUnit");
char unitname[256];
OSSpec sbmspec;
int err;
Handle h;
OSHandle unithand;
OSFileHandle fhand;
CWCompilerLinkerContext *c;
File *srcfile;
if (optsCompiler.canonicalIncludes) {
strcpy(unitname, inunitname);
} else if (OS_CanonPath(inunitname, unitname)) {
return cwErrInvalidParameter;
}
if (optsCompiler.sbmState == OptsCompilerSbmState_0 || optsCompiler.sbmState == OptsCompilerSbmState_1) {
if (context->pluginType == CWDROPINCOMPILERTYPE || context->pluginType == CWDROPINLINKERTYPE)
c = static_cast<CWCompilerLinkerContext *>(context);
else
return cwErrInvalidCallback;
srcfile = Files_GetFile(&gTarg->files, c->whichfile);
#line 791
OPTION_ASSERT(srcfile != NULL);
if (optsCompiler.sbmPath[0]) {
err = OS_MakeSpecWithPath(&clState.sbmPathSpec, unitname, 1, &sbmspec);
if (err) {
if (clState.pluginDebug)
CLPrint("UCBStoreUnit: '%s' is a bad unit name (%s)\n", unitname, OS_GetErrText(err));
return cwErrInvalidParameter;
}
} else {
err = OS_MakeFileSpec(unitname, &sbmspec);
if (err) {
if (clState.pluginDebug)
CLPrint("UCBStoreUnit: '%s' is a bad filename (%s)\n", unitname, OS_GetErrText(err));
return cwErrInvalidParameter;
}
}
err = UnitNameToSBMName(&sbmspec, srcfile);
if (err) {
if (clState.pluginDebug)
CLPrint("UCBStoreUnit: could not make precompiled unit form of '%s' (%s)\n", unitname, OS_GetErrText(err));
return cwErrInvalidParameter;
}
if (optsCmdLine.verbose)
CLReport(CLStr61, "unit symbol table", OS_SpecToStringRelative(&sbmspec, NULL, STSbuf, sizeof(STSbuf)));
UCBSecretDetachHandle(context, unitdata, &h);
OS_DestroyMacHandle(h, &unithand);
err = OS_NewFileHandle(&sbmspec, &unithand, 1, &fhand);
if (err || (err = OS_FreeFileHandle(&fhand))) {
CLReportOSError(CLStr18, err, "precompiled unit", OS_SpecToStringRelative(&sbmspec, NULL, STSbuf, sizeof(STSbuf)));
return cwErrRequestFailed;
}
}
return cwNoErr;
}
CWResult UCBReleaseUnit(CWPluginContext context, void *unitdata) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBReleaseUnit");
if (!unitdata)
return cwErrRequestFailed;
return UCBReleaseFileText(context, static_cast<const char *>(unitdata));
}
CWResult UCBUnitNameToFileName(CWPluginContext context, const char *unitname, char *filename) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBUnitNameToFileName");
strcpy(filename, unitname);
if (!OS_EqualPath(filename + strlen(filename) - 2, ".p"))
strcat(filename, ".p");
return cwNoErr;
}
CWResult UCBOSAlert(CWPluginContext context, const char *message, OSErr errorcode) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBOSAlert");
if (CheckForUserBreak())
return cwErrUserCanceled;
char errormessage[256];
GetSysErrText(errorcode, errormessage);
CLStyledMessageDispatch(
static_cast<shellContextType *>(context->shellContext)->plugin,
NULL,
errorcode,
CLStyledMessageDispatch_Type4,
"%\n(%)\n",
message ? message : "",
errormessage
);
return cwNoErr;
}
CWResult UCBOSErrorMessage(CWPluginContext context, const char *message, OSErr errorcode) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBOSErrorMessage");
if (!errorcode)
return cwNoErr;
if (CheckForUserBreak())
return cwErrUserCanceled;
char errormessage[256];
GetSysErrText(errorcode, errormessage);
CLStyledMessageDispatch(
static_cast<shellContextType *>(context->shellContext)->plugin,
NULL,
errorcode,
CLStyledMessageDispatch_Type4,
"%\n%\n",
message ? message : "",
errormessage
);
return cwNoErr;
}
CWResult UCBGetModifiedFiles(CWPluginContext context, SInt32 *modifiedFileCount, const SInt32 **modifiedFiles) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBGetModifiedFiles");
*modifiedFileCount = 0;
#line 949
DO_INTERNAL_ERROR("CWGetModifiedFiles not implemented!\n");
return cwNoErr;
}
CWResult UCBGetSuggestedObjectFileSpec(CWPluginContext context, SInt32 whichfile, CWFileSpec *fileSpec) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBGetSuggestedObjectFileSpec");
File *file;
if (!(file = Files_GetFile(&gTarg->files, whichfile)))
return cwErrUnknownFile;
if (!GetOutputFile(file, CmdLineStageMask_Cg))
return cwErrRequestFailed;
OS_OSSpec_To_FSSpec(&file->outfss, fileSpec);
return cwNoErr;
}
CWResult UCBGetStoredObjectFileSpec(CWPluginContext context, SInt32 whichfile, CWFileSpec *fileSpec) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBGetStoredObjectFileSpec");
File *file;
if (!(file = Files_GetFile(&gTarg->files, whichfile)))
return cwErrUnknownFile;
if (file->outfileowner != CmdLineStageMask_Cg) {
#line 993
DO_INTERNAL_ERROR("Lost stored object file spec for '%s'\n", file->srcfilename);
return cwErrRequestFailed;
} else {
OS_OSSpec_To_FSSpec(&file->outfss, fileSpec);
return cwNoErr;
}
}
CWResult UCBGetFrameworkCount(CWPluginContext context, SInt32 *frameworkCount) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBGetFrameworkCount");
*frameworkCount = Frameworks_GetCount();
return cwNoErr;
}
CWResult UCBGetFrameworkInfo(CWPluginContext context, SInt32 whichFramework, CWFrameworkInfo *frameworkInfo) {
if (optsCmdLine.verbose > 3)
CLPrint("Callback: %s\n", "UCBGetFrameworkCount");
Paths_FWInfo *info;
if ((info = Frameworks_GetInfo(whichFramework))) {
OS_OSSpec_To_FSSpec(&info->fileSpec, &frameworkInfo->fileSpec);
strncpy(frameworkInfo->version, info->version.s, sizeof(frameworkInfo->version));
return cwNoErr;
}
return cwErrFileNotFound;
}
CWCompilerLinkerCallbacks sCompilerLinkerCallbacks = {
UCBCachePrecompiledHeader,
UCBLoadObjectData,
UCBStoreObjectData,
UCBFreeObjectData,
UCBDisplayLines,
UCBBeginSubCompile,
UCBEndSubCompile,
UCBGetPrecompiledHeaderSpec,
UCBGetResourceFile,
UCBPutResourceFile,
UCBLookUpUnit,
UCBSBMfiles,
UCBStoreUnit,
UCBReleaseUnit,
UCBUnitNameToFileName,
UCBOSErrorMessage,
UCBOSAlert,
UCBGetModifiedFiles,
UCBGetSuggestedObjectFileSpec,
UCBGetStoredObjectFileSpec,
NULL,
UCBGetFrameworkCount,
UCBGetFrameworkInfo
};
CWCompilerLinkerContext::CWCompilerLinkerContext()
:
CWPluginPrivateContext(clState.plugintype, sizeof(CWCompilerLinkerContext)) {
targetinfo = static_cast<CWTargetInfo *>(xmalloc("context", sizeof(CWTargetInfo)));
memset(targetinfo, 0, sizeof(CWTargetInfo));
if (gTarg) {
targetinfo->targetCPU = gTarg->cpu;
targetinfo->targetOS = gTarg->os;
} else {
targetinfo->targetOS = targetOSAny;
targetinfo->targetCPU = targetCPUAny;
}
whichfile = 0;
memset(&sourcefile, 0, sizeof(sourcefile));
sourcetext = NULL;
sourcetextsize = 0;
preprocess = 0;
autoprecompile = 0;
precompile = 0;
cachingPCH = 0;
debuginfo = 0;
fileID = 0;
memset(&browseoptions, 0, sizeof(browseoptions));
reserved = NULL;
sequenceID = 0;
parentPB = NULL;
targetStorage = NULL;
texthandle = NULL;
memset(&targetinfo_V7, 0, sizeof(targetinfo_V7));
callbacks = &sCompilerLinkerCallbacks;
}
CWCompilerLinkerContext::~CWCompilerLinkerContext() {
xfree(targetinfo);
}

1353
command_line/CmdLine/Src/Callbacks/CLDropinCallbacks_V10.cpp
View File

File diff suppressed because it is too large Load Diff

233
command_line/CmdLine/Src/Callbacks/CLParserCallbacks_v1.cpp
View File

@ -1,13 +1,220 @@
/*
P 9C50 | _UCBParserAddAccessPath
P 9DE4 | _UCBParserSwapAccessPaths
P 9E90 | _UCBParserSetNamedPreferences
P 9F50 | _UCBParserSetFileOutputName
P A03C | _UCBParserSetOutputFileDirectory
P A110 | _UCBParserAddOverlay1Group
P A1EC | _UCBParserAddOverlay1
P A2D0 | _UCBParserAddSegment
P A364 | _UCBParserSetSegment
P A400 | ___ct__15CWParserContextFv
P A480 | ___dt__15CWParserContextFv
*/
#include "cmdline.h"
#include "plugin_internal.h"
extern char STSbuf[256];
CWResult UCBParserAddAccessPath(CWPluginContext context, const CWNewAccessPathInfo *api) {
OSSpec oss;
Paths *paths;
Path *path;
int err;
if ((err = OS_FSSpec_To_OSSpec(&api->pathSpec, &oss))) {
context->callbackOSError = OS_MacError(err);
return cwErrInvalidParameter;
}
if (optsCmdLine.verbose > 2)
CLReport(CLStr77, " search path", OS_PathSpecToString(&oss.path, STSbuf, sizeof(STSbuf)));
if ((api->type & cwAccessPathTypeFlag1) == 0)
paths = &gTarg->sysPaths;
else
paths = &gTarg->userPaths;
path = Path_New(&oss.path);
path->flags = api->type & cwAccessPathTypeFlag2;
if ((api->position >= 0) ? (Paths_InsertPath(paths, api->position, path) == 0) : (Paths_AddPath(paths, path) == 0))
return cwErrRequestFailed;
if (api->recursive) {
Paths_GatherRecurse(path);
if (CheckForUserBreak())
return cwErrUserCanceled;
}
if (!(api->type & cwAccessPathTypeFlag1))
static_cast<shellContextType *>(context->shellContext)->systemAccessPathsChanged = 1;
else
static_cast<shellContextType *>(context->shellContext)->userAccessPathsChanged = 1;
return cwNoErr;
}
CWResult UCBParserSwapAccessPaths(CWPluginContext context) {
Path *tmp;
UInt16 idx;
for (idx = 0; idx < Paths_Count(&gTarg->sysPaths); idx++) {
tmp = Paths_GetPath(&gTarg->sysPaths, idx);
if (!(tmp->flags & cwAccessPathTypeFlag2)) {
Paths_AddPath(&gTarg->userPaths, tmp);
Paths_RemovePath(&gTarg->sysPaths, idx);
idx--;
}
}
return cwNoErr;
}
int (*PrefPanelsChangedCallback)(const char *);
CWResult UCBParserSetNamedPreferences(CWPluginContext context, const char *panelName, Handle paneldata) {
PrefPanel *panel;
panel = Prefs_FindPanel(panelName);
if (!panel) {
panel = PrefPanel_New(panelName, *paneldata, GetHandleSize(paneldata));
if (!panel || !Prefs_AddPanel(panel))
return cwErrRequestFailed;
} else {
if (!PrefPanel_PutHandle(panel, paneldata))
return cwErrRequestFailed;
}
if (PrefPanelsChangedCallback)
PrefPanelsChangedCallback(panelName);
return cwNoErr;
}
CWResult UCBParserSetFileOutputName(CWPluginContext context, SInt32 position, short which, const char *outfilename) {
if (position < 0)
return cwErrInvalidParameter;
File *file = Files_GetFile(&gTarg->files, position);
if (!file)
return cwErrUnknownFile;
if (file->outfileowner)
CLReportError(CLStr103, file->srcfilename, file->outfilename);
strcpy(file->outfilename, outfilename);
if (which == 1)
file->outfileowner = CmdLineStageMask_Cg;
else if (which == 2)
file->outfileowner = CmdLineStageMask_Pp;
else if (which == 3)
file->outfileowner = CmdLineStageMask_Ds;
else
return cwErrInvalidParameter;
return cwNoErr;
}
CWResult UCBParserSetOutputFileDirectory(CWPluginContext context, const CWFileSpec *idefss) {
OSSpec fss;
int err;
if ((err = OS_FSSpec_To_OSSpec(idefss, &fss))) {
context->callbackOSError = OS_MacError(err);
return cwErrInvalidParameter;
}
gTarg->outputDirectory = fss.path;
context->outputFileDirectory = *idefss;
return cwNoErr;
}
CWResult UCBParserAddOverlay1Group(CWPluginContext context, const char *name, const CWAddr64 *addr, SInt32 *newGroupNumber) {
if (gTarg->linkmodel != LinkModel2)
return cwErrInvalidCallback;
OvlGroup *grp;
OvlAddr oaddr;
oaddr.hi = addr->hi;
oaddr.lo = addr->lo;
grp = OvlGroup_New(name, oaddr);
if (!grp)
return cwErrRequestFailed;
if (!Overlays_AddOvlGroup(&gTarg->linkage.overlays, grp, newGroupNumber))
return cwErrRequestFailed;
++context->numOverlayGroups;
if (optsCmdLine.verbose > 2)
CLReport(CLStr79, name, oaddr.hi, oaddr.lo);
return cwNoErr;
}
CWResult UCBParserAddOverlay1(CWPluginContext context, const char *name, SInt32 groupNumber, SInt32 *newOverlayNumber) {
if (gTarg->linkmodel != LinkModel2)
return cwErrInvalidCallback;
OvlGroup *grp;
Overlay *ovl;
grp = Overlays_GetOvlGroup(&gTarg->linkage.overlays, groupNumber);
if (!grp)
return cwErrRequestFailed;
ovl = Overlay_New(name);
if (!ovl)
return cwErrOutOfMemory;
if (!OvlGroup_AddOverlay(grp, ovl, newOverlayNumber))
return cwErrOutOfMemory;
if (optsCmdLine.verbose > 2)
CLReport(CLStr78, name, grp->name);
return cwNoErr;
}
CWResult UCBParserAddSegment(CWPluginContext context, const char *name, short attrs, SInt32 *newSegmentNumber) {
if (gTarg->linkmodel != LinkModel1)
return cwErrInvalidCallback;
Segment *seg;
UInt16 index;
seg = Segment_New(name, attrs);
if (!Segments_AddSegment(&gTarg->linkage.segs, seg, &index))
return cwErrRequestFailed;
*newSegmentNumber = index;
return cwNoErr;
}
CWResult UCBParserSetSegment(CWPluginContext context, SInt32 segmentNumber, const char *name, short attrs) {
if (gTarg->linkmodel != LinkModel1)
return cwErrInvalidCallback;
Segment *seg = Segments_GetSegment(&gTarg->linkage.segs, segmentNumber);
if (!seg)
return cwErrUnknownSegment;
strncpy(seg->name, name, sizeof(seg->name));
seg->name[sizeof(seg->name) - 1] = 0;
seg->attrs = attrs;
return cwNoErr;
}
static CWParserCallbacks parser_cb = {
UCBParserAddAccessPath,
UCBParserSwapAccessPaths,
UCBParserSetNamedPreferences,
UCBParserSetFileOutputName,
UCBParserSetOutputFileDirectory,
UCBParserAddOverlay1Group,
UCBParserAddOverlay1,
UCBParserAddSegment,
UCBParserSetSegment
};
CWParserContext::CWParserContext() : CWPluginPrivateContext(CWDROPINPARSERTYPE, -1) {
args = NULL;
os = 0;
cpu = 0;
numPlugins = 0;
plugins = NULL;
numPanels = 0;
panelNames = NULL;
panel_args = NULL;
plugin_args = NULL;
callbacks = &parser_cb;
}
CWParserContext::~CWParserContext() {
}

19
command_line/CmdLine/Src/Clients/CLStaticMain.c
View File

@ -1,6 +1,21 @@
#include "mwcc_decomp.h"
#include "cmdline.h"
int main(int argc, const char **argv) {
extern const char *CMDLINE_BUILD_TIME;
extern const char *CMDLINE_BUILD_DATE;
// Glue functions
extern int RegisterStaticParserPlugins();
extern int RegisterStaticParserResources();
extern void GetStaticTarget(OSType *cpu, OSType *os);
extern void GetStaticPluginType(OSType *language, OSType *plugintype);
extern void GetStaticParserPluginType(OSType *style);
extern int RegisterStaticTargetResources();
extern int RegisterStaticTargetPlugins();
extern int RegisterStaticParserToolInfo();
int main(int argc, char **argv) {
OSType cpu;
OSType os;
OSType lang;

4
command_line/CmdLine/Src/Clients/ClientGlue.c
View File

@ -1,4 +1,4 @@
#include "mwcc_decomp.h"
#include "cmdline.h"
int RegisterResource(const char *name, SInt16 rsrcid, const char **list) {
Handle h;
@ -42,7 +42,7 @@ void SetPluginType(OSType lang, OSType type) {
clState.plugintype = type;
}
int CmdLine_Initialize(int argc, const char **argv, const char *builddate, const char *buildtime) {
int CmdLine_Initialize(int argc, char **argv, const char *builddate, const char *buildtime) {
strncpy(cmdline_build_date, builddate, sizeof(cmdline_build_date));
strncpy(cmdline_build_time, buildtime, sizeof(cmdline_build_time));
return Main_Initialize(argc, argv);

89
command_line/CmdLine/Src/Envir/CLErrors.c
View File

@ -1,37 +1,114 @@
#include "mwcc_decomp.h"
static void CLGetErrorString(SInt16 errid, char *buffer) {
#include "cmdline.h"
static char *CLGetErrorString(SInt16 errid, char *buffer) {
getindstring(buffer, 12000, errid);
strcat(buffer, "\n");
return buffer;
}
static void CLMessageReporter(int flags, SInt16 errid, va_list va) {
static char stmsg[256];
static char stbuf[256];
char *ptr;
CLGetErrorString(errid, stmsg);
ptr = mvprintf(stbuf, sizeof(stbuf), stmsg, va);
CLStyledMessageDispatch(
NULL,
NULL,
0,
(flags == messagetypeError) ? CLStyledMessageDispatch_Type3 : (flags == messagetypeWarning) ? CLStyledMessageDispatch_Type2 : CLStyledMessageDispatch_Type5,
"%",
ptr);
if (ptr != stbuf)
free(ptr);
}
void CLReportError(SInt16 errid, ...) {
va_list va;
va_start(va, errid);
CLMessageReporter(messagetypeError, errid, va);
va_end(va);
}
void CLReportWarning(SInt16 errid, ...) {
va_list va;
va_start(va, errid);
CLMessageReporter(messagetypeWarning, errid, va);
va_end(va);
}
void CLReport(SInt16 errid, ...) {
va_list va;
va_start(va, errid);
CLMessageReporter(messagetypeInfo, errid, va);
va_end(va);
}
void CLReportOSError(SInt16 errid, int err, ...) {
char *txt;
const char *oserr;
char mybuf[256];
char myerr[256];
va_list va;
va_start(va, err);
txt = mvprintf(mybuf, sizeof(mybuf), CLGetErrorString(errid, myerr), va);
va_end(va);
oserr = OS_GetErrText(err);
CLReportError(99, txt, oserr, err);
if (txt != mybuf)
free(txt);
}
void CLReportCError(SInt16 errid, int err_no, ...) {
char *txt;
const char *serr;
char mybuf[256];
char myerr[256];
va_list va;
va_start(va, err_no);
txt = mvprintf(mybuf, sizeof(mybuf), CLGetErrorString(errid, myerr), va);
va_end(va);
serr = strerror(err_no);
CLReportError(100, txt, serr, err_no);
if (txt != mybuf)
free(txt);
}
void CLInternalError(const char *file, int line, const char *format, ...) {
char mybuf[256];
char *txt;
va_list va;
va_start(va, format);
txt = mvprintf(mybuf, sizeof(mybuf), format, va);
va_end(va);
CLPrintErr("INTERNAL ERROR [%s:%d]:\n%s\n", file, line, txt);
if (txt != mybuf)
free(txt);
}
void CLFatalError(const char *format, ...) {
char mybuf[256];
char *txt;
va_list va;
va_start(va, format);
txt = mvprintf(mybuf, sizeof(mybuf), format, va);
va_end(va);
CLPrintErr("FATAL ERROR:\n%s\n", txt);
if (txt != mybuf)
free(txt);
exit(-123);
}

794
command_line/CmdLine/Src/Envir/CLIO.c
View File

@ -1,79 +1,251 @@
#include "mwcc_decomp.h"
#include "cmdline.h"
#include <errno.h>
#include <sys/ioctl.h>
#include <sys/stat.h>
#include <util.h>
extern char STSbuf[256];
static int ioLineNum;
static Boolean printedAnything;
static char arrowBuf[256];
static Boolean newErr;
static Boolean newSrc;
static Boolean srcIsErr;
static OSSpec errSpec;
static OSSpec srcSpec;
static Boolean validErr;
static Boolean validSrc;
static SInt32 lastPrintingPlugin;
static Boolean ioInHelp;
static Boolean ioPiping;
static void catchinterrupt() {
clState.userBreak = 1;
}
static void SetupConsoleInfo() {
struct winsize ws;
struct stat st;
signal(SIGINT, catchinterrupt);
ioPiping = 0;
fstat(stdout->_file, &st);
if (st.st_mode & 0x1000)
ioPiping = 1;
fstat(stderr->_file, &st);
if (st.st_mode & 0x1000)
ioPiping = 1;
if (ioPiping) {
ws.ws_row = 0;
ws.ws_col = 80;
} else if (ioctl(stdout->_file, TIOCGWINSZ, &ws) < 0) {
ioPiping = 1;
ws.ws_row = 0;
ws.ws_col = 80;
}
optsEnvir.rows = ws.ws_row;
optsEnvir.cols = ws.ws_col;
if (optsEnvir.cols > 256)
optsEnvir.cols = 256;
}
static void Crash() {
*((unsigned char *) NULL) = 0;
}
void SetupDebuggingTraps() {
signal(SIGABRT, Crash);
}
Boolean IO_Initialize() {
ioPiping = 0;
ioInHelp = 0;
ioLineNum = 0;
SetupConsoleInfo();
if (ioPiping) {
setvbuf(stdout, NULL, 0, 1024);
setvbuf(stderr, NULL, 0, 1024);
} else {
setvbuf(stdout, NULL, 1, 1024);
setvbuf(stderr, NULL, 1, 1024);
}
InitWorking();
return 1;
}
Boolean IO_Terminate() {
if (ioInHelp)
IO_HelpTerminate();
TermWorking();
return 1;
}
Boolean IO_HelpInitialize() {
ioInHelp = 1;
return 1;
}
Boolean IO_HelpTerminate() {
ioInHelp = 0;
return 1;
}
static Boolean SendHandleToFile(FILE *file, OSHandle *text) {
static Boolean SendHandleToFile(FILE *file, Handle text, SInt32 size) {
Boolean ret;
char *ptr;
char *lineEnd;
char *end;
if (file != stdout && file != stderr)
setvbuf(file, NULL, 0, 1024);
HLock(text);
ptr = *text;
if (size && ptr[size - 1] == 0)
size--;
if (size <= 0) {
ret = 1;
} else {
end = ptr + size;
while (ptr < end) {
lineEnd = ptr;
while (lineEnd < end && *lineEnd != '\n' && *lineEnd != '\r')
lineEnd++;
if (lineEnd - ptr) {
if (fwrite(ptr, lineEnd - ptr, 1, file) != 1) {
CLReportCError(10, errno);
ret = 0;
goto fail;
}
}
if (CheckForUserBreak()) {
ret = 1;
goto fail;
}
// I have a hunch that this "\n" might be a define
if (fwrite("\n", strlen("\n"), 1, file) != 1) {
CLReportCError(10, errno);
ret = 0;
goto fail;
}
if (lineEnd < end && *(lineEnd++) == '\r' && *lineEnd == '\n')
++lineEnd;
ptr = lineEnd;
}
ret = 1;
}
fail:
HUnlock(text);
fflush(file);
if (file != stdout && file != stderr)
setvbuf(file, NULL, 2, 1024);
return ret;
}
void FixHandleForIDE(OSHandle *text) {
void FixHandleForIDE(Handle text, UInt32 size) {
char *ptr;
HLock(text);
for (ptr = *text; ptr < (*text + size); ptr++) {
if (*ptr == '\r')
*ptr = '\n';
}
HUnlock(text);
}
Boolean ShowHandle(OSHandle *text, Boolean decorate) {
Boolean ShowHandle(Handle text, UInt32 size, Boolean decorate) {
static const char *border = "===============\n";
if (decorate)
fprintf(stdout, border);
if (!SendHandleToFile(stdout, text, size))
return 0;
if (decorate)
fprintf(stdout, border);
fflush(stdout);
return 1;
}
Boolean WriteHandleToFile(OSSpec *spec, OSHandle *text, CWDataType creator, CWDataType type) {
Boolean WriteHandleToFile(OSSpec *spec, Handle text, UInt32 size, OSType creator, OSType type) {
FILE *file;
char path[256];
OS_SpecToString(spec, path, sizeof(path));
file = fopen(path, "w+b");
if (!file) {
CLReportCError(8, errno, path);
return 0;
}
SendHandleToFile(file, text, size);
fclose(file);
OS_SetMacFileCreatorAndType(spec, creator, type);
return 1;
}
Boolean WriteBinaryHandleToFile(OSSpec *spec, CWDataType maccreator, CWDataType mactype, OSHandle *text) {
int err;
OSFileHandle file;
if ((err = OS_NewFileHandle(spec, text, 1, &file)) || (err = OS_FreeFileHandle(&file)) || (err = OS_SetMacFileCreatorAndType(spec, maccreator, mactype))) {
CLReportOSError(8, err, OS_SpecToString(spec, STSbuf, sizeof(STSbuf)));
return 0;
}
return 1;
}
Boolean AppendHandleToFile(OSSpec *spec, OSHandle *text, CWDataType maccreator, CWDataType mactype) {
Boolean AppendHandleToFile(OSSpec *spec, Handle text, UInt32 size, CWDataType maccreator, CWDataType mactype) {
FILE *file;
char path[256];
OS_SpecToString(spec, path, sizeof(path));
file = fopen(path, "a+b");
if (!file) {
CLReportCError(8, errno, path);
return 0;
}
SendHandleToFile(file, text, size);
fclose(file);
OS_SetMacFileCreatorAndType(spec, maccreator, mactype);
return 1;
}
void InitWorking() {
}
void ShowWorking() {
void ShowWorking(int x) {
}
void TermWorking() {
}
static void ProgressFunction(const char *functionname) {
if (optsCmdLine.verbose)
CLReport(7, functionname);
}
Boolean CheckForUserBreak() {
ShowWorking(4);
return clState.userBreak;
}
typedef struct {
@ -81,90 +253,650 @@ typedef struct {
int pos;
int maxlen;
SInt16 col;
Boolean origina;
Boolean original;
char *newline;
} UnkCLIOStruct;
static void StartLine(UnkCLIOStruct *f) {
// unknown names for these inlines
inline void appendText(UnkCLIOStruct *f, const char *str) {
int len = strlen(str);
if (f->pos + len >= f->maxlen) {
f->maxlen = f->maxlen * 2 + len;
if (f->original) {
char *oldbuf;
oldbuf = f->buffer;
f->buffer = xmalloc("message buffer", f->maxlen);
memcpy(f->buffer, oldbuf, f->pos);
} else {
f->buffer = xrealloc("message buffer", f->original ? NULL : f->buffer, f->maxlen);
}
f->original = 0;
}
memcpy(f->buffer + f->pos, str, len);
f->pos += len;
f->col += len;
}
inline void appendChar(UnkCLIOStruct *f, char c) {
if (f->pos >= f->maxlen) {
f->maxlen *= 2;
if (f->original) {
char *oldbuf = f->buffer;
f->buffer = xmalloc("message buffer", f->maxlen);
memcpy(f->buffer, oldbuf, f->pos);
} else {
f->buffer = xrealloc("message buffer", f->buffer, f->maxlen);
}
f->original = 0;
}
f->buffer[f->pos++] = c;
f->col++;
}
static void StartLine(UnkCLIOStruct *f) {
f->col = 0;
if (!optsEnvir.underIDE && f->newline)
appendText(f, f->newline);
}
inline void newLine(UnkCLIOStruct *f) {
if (f->newline)
appendChar(f, '\n');
else
appendChar(f, ' ');
StartLine(f);
}
static void WrapText(UnkCLIOStruct *f) {
int wrapped;
char wrapbuf[256];
char c;
wrapped = 0;
if (optsCmdLine.noWrapOutput)
return;
if (!f->newline)
return;
if (strlen(f->newline) > optsEnvir.cols / 2)
return;
while (wrapped < (optsEnvir.cols - 1) && f->col > strlen(f->newline)) {
c = f->buffer[f->pos - 1];
if (c == ' ') break;
if (c == '/') break;
if (c == '-') break;
wrapbuf[wrapped] = c;
f->pos = f->pos - 1;
f->col = f->col - 1;
wrapped++;
}
if (f->col <= strlen(f->newline)) {
while (f->col < (optsEnvir.cols - 1) && wrapped > 0) {
appendChar(f, wrapbuf[--wrapped]);
}
}
newLine(f);
while (wrapped > 0 && f->maxlen > 0) {
appendChar(f, wrapbuf[--wrapped]);
}
}
static char *IO_VFormatText(char *buffer, SInt32 size, char *newline, const char *format, va_list ap) {
UnkCLIOStruct f;
char *arg;
f.buffer = buffer;
f.pos = 0;
f.maxlen = size;
f.col = 0;
f.original = 1;
f.newline = newline;
StartLine(&f);
while (*format && f.maxlen > 0) {
if (*format == '%') {
arg = va_arg(ap, char *);
while (*arg && f.maxlen > 0) {
if (*arg == '\r' || *arg == '\n') {
newLine(&f);
arg++;
} else if (*arg == '\t') {
if (f.maxlen > 0) {
do {
appendChar(&f, ' ');
} while (f.col & 7);
}
arg++;
} else {
appendChar(&f, *(arg++));
if (!optsCmdLine.noWrapOutput && f.newline && f.col >= optsEnvir.cols - 1)
WrapText(&f);
}
}
format++;
} else if (*format == '\r' || *format == '\n') {
format++;
newLine(&f);
} else {
appendChar(&f, *(format++));
if (!optsCmdLine.noWrapOutput && f.col >= optsEnvir.cols - 1)
WrapText(&f);
}
}
if (f.newline) {
if (f.col == strlen(f.newline)) {
f.pos -= f.col;
f.col = 0;
}
}
appendChar(&f, 0);
return f.buffer;
}
char *IO_FormatText(char *buffer, SInt32 size, char *newline, const char *format, ...) {
va_list ap;
char *ret;
va_start(ap, format);
ret = IO_VFormatText(buffer, size, newline, format, ap);
va_end(ap);
return ret;
}
void CLPrintDispatch(SInt16 msgtype, const char *message, FILE *out, char *ptr, char *nptr) {
// TODO unify me with the one in the header
enum {
Msg_Note = 1,
Msg_Warning = 2,
Msg_Error = 3,
Msg_Alert = 4,
Msg_Status = 5
};
void CLPrintDispatch(int unk, SInt16 msgtype, const char *message) {
FILE *out;
const char *ptr;
const char *nptr;
if (optsCmdLine.stderr2stdout == 1 || msgtype == Msg_Note || msgtype == Msg_Status) {
out = stdout;
} else if (msgtype == Msg_Warning || msgtype == Msg_Error || msgtype == Msg_Alert) {
out = stderr;
} else {
#line 847
OPTION_ASSERT(0);
}
if (!printedAnything && !ioPiping) {
printedAnything = 1;
ioLineNum = 0;
}
ptr = message;
while (*ptr) {
nptr = ptr;
while (*nptr && *nptr != '\n' && *nptr != '\r')
++nptr;
if (nptr - ptr) {
if (fwrite(ptr, nptr - ptr, 1, out) != 1)
clState.userBreak = 1;
}
if (*nptr) {
ioLineNum++;
fwrite("\n", strlen("\n"), 1, out);
if (*nptr == '\r')
nptr++;
if (*nptr == '\n')
nptr++;
if (nptr[0] && !nptr[1] && (nptr[0] == '\n' || nptr[0] == '\r'))
nptr++;
}
ptr = nptr;
}
if (out == stdout && optsCmdLine.verbose > 1)
fflush(out);
}
static void GetFileInfo(MessageRef *ref) {
if (ref) {
srcIsErr = OS_EqualSpec(&ref->sourcefile, &ref->errorfile);
if (!validSrc || !OS_EqualSpec(&ref->sourcefile, &srcSpec)) {
newSrc = 1;
srcSpec = ref->sourcefile;
validSrc = 1;
} else {
newSrc = 0;
}
if (!validErr || !OS_EqualSpec(&ref->errorfile, &errSpec)) {
newErr = 1;
errSpec = ref->errorfile;
validErr = 1;
} else {
newErr = 0;
}
}
}
static char *Arrows(MessageRef *ref) {
int start;
int len;
arrowBuf[0] = 0;
start = ref->tokenoffset;
start %= optsEnvir.cols;
if (start >= 0 && start < sizeof(arrowBuf)) {
len = ref->tokenlength;
if (len + start > sizeof(arrowBuf))
len = sizeof(arrowBuf) - start;
if (len == 0)
len = 1;
memset(arrowBuf, ' ', start);
memset(arrowBuf + start, '^', len);
arrowBuf[start + len] = 0;
}
return arrowBuf;
}
static Boolean IsLikelyAnImporter(Plugin *plugin) {
if (Plugin_CL_GetObjectFlags(plugin)->flags & 0x80000000)
return 0;
return plugin != Plugins_CL_MatchTarget(NULL, gTarg->cpu, gTarg->os, clState.plugintype, clState.language);
}
static char *GuessTool(Plugin *plugin) {
if (plugin) {
DropInFlags *df = Plugin_GetDropInFlags(plugin);
switch (df->dropintype) {
case CWDROPINDRIVERTYPE: return "Driver";
case CWDROPINPARSERTYPE: return "Usage";
case CWDROPINCOMPILERTYPE:
if (df->edit_language == Lang_C_CPP || df->edit_language == Lang_Pascal)
return "Compiler";
else if (df->edit_language == CWFOURCHAR('A','s','m',' '))
return "Assembler";
else if (IsLikelyAnImporter(plugin))
return "Importer";
else
return "Compiler";
case CWDROPINLINKERTYPE:
return "Linker";
}
}
return "Driver";
}
static char *GuessDoing(Plugin *plugin) {
if (plugin) {
DropInFlags *df = Plugin_GetDropInFlags(plugin);
switch (df->dropintype) {
case CWDROPINPARSERTYPE: return "parsing";
case CWDROPINCOMPILERTYPE: return "compiling";
case CWDROPINLINKERTYPE: return "linking";
}
}
return "processing";
}
static void styledMessage_MPW(Plugin *plugin, MessageRef *ref, SInt16 msgType, const char *format, va_list va) {
static const char *msgnames[6] = {
"",
"Note",
"Warning",
"Error",
"Alert",
"Status"
};
static const char *msgnames_gcc[6] = {
"",
" note",
" warning",
"",
" alert",
" status"
};
static void styledMessage_MPW(Plugin *plugin, MessageRef *ref, SInt32 errorNumber, SInt16 msgType, const char *format, va_list va) {
char msgBuf[256];
char *msgPtr;
msgPtr = IO_VFormatText(msgBuf, sizeof(msgBuf), "# ", format, va);
if (msgType != Msg_Status)
CLPrintType(msgType, "### %s %s %s:\n", clState.programName, GuessTool(plugin), msgnames[msgType]);
if (ref) {
CLPrintType(msgType, "#\t%s\n", ref->sourceline);
CLPrintType(msgType, "#\t%s\n", Arrows(ref));
}
CLPrintDispatch(0, msgType, msgPtr);
if (ref) {
CLPrintType(msgType, "#----------------------------------------------------------\n");
CLPrintType(msgType, " File \"%s\"; Line %d\n", OS_SpecToString(&ref->errorfile, STSbuf, sizeof(STSbuf)), ref->linenumber);
GetFileInfo(ref);
if (!srcIsErr)
CLPrintType(msgType, "#\twhile %s \"%s\"\n", GuessDoing(plugin), OS_SpecToString(&ref->sourcefile, STSbuf, sizeof(STSbuf)));
CLPrintType(msgType, "#----------------------------------------------------------\n");
}
if (msgPtr != msgBuf)
free(msgPtr);
}
static void styledMessage_Default(Plugin *plugin, MessageRef *ref, SInt16 msgType, const char *format, va_list va) {
static void styledMessage_Default(Plugin *plugin, MessageRef *ref, SInt32 errorNumber, SInt16 msgType, const char *format, va_list va) {
char lineBuf[320];
char msgBuf[256];
char *msgPtr;
char *ptr;
msgPtr = IO_VFormatText(msgBuf, sizeof(msgBuf), "# ", format, va);
if (ref) {
CLPrintType(msgType, "### %s %s:\n", clState.programName, GuessTool(plugin));
} else if (msgType != Msg_Status) {
CLPrintType(msgType, "### %s %s %s:\n", clState.programName, GuessTool(plugin), msgnames[msgType]);
}
if (ref) {
GetFileInfo(ref);
if (newErr || (newSrc && srcIsErr)) {
if (srcIsErr) {
sprintf(lineBuf, "#%8s: %s\n", "File", OS_SpecToStringRelative(&errSpec, NULL, STSbuf, sizeof(STSbuf)));
} else {
sprintf(lineBuf, "#%8s: %s\n", "In", OS_SpecToStringRelative(&errSpec, NULL, STSbuf, sizeof(STSbuf)));
}
CLPrintDispatch(0, msgType, lineBuf);
}
if (newSrc && !srcIsErr) {
sprintf(lineBuf, "# %7s: %s\n", "From", OS_SpecToStringRelative(&srcSpec, NULL, STSbuf, sizeof(STSbuf)));
CLPrintDispatch(0, msgType, lineBuf);
}
if (newErr || newSrc) {
ptr = &lineBuf[2];
while (*ptr && *ptr != '\n')
*(ptr++) = '-';
*ptr = 0;
if (ptr - lineBuf >= optsEnvir.cols - 1)
lineBuf[optsEnvir.cols - 1] = 0;
strcat(lineBuf, "\n");
CLPrintDispatch(0, msgType, lineBuf);
}
CLPrintType(msgType, "#%8d: %s\n", ref->linenumber, ref->sourceline);
CLPrintType(msgType, "#%8s: %s\n", msgnames[msgType], Arrows(ref));
}
CLPrintDispatch(0, msgType, msgPtr);
if (msgPtr != msgBuf)
free(msgPtr);
}
static void styledMessage_Terse(Plugin *plugin, MessageRef *ref, SInt16 msgType, const char *format, va_list va) {
static void styledMessage_Terse(Plugin *plugin, MessageRef *ref, SInt32 errorNumber, SInt16 msgType, const char *format, va_list va) {
char *msg;
char *ptr;
char msgBuf[256];
char *msgPtr;
char header[256];
char *headPtr;
char errBuf[256];
char *errPtr;
if (ref) {
if (msgnames_gcc[msgType][0]) {
headPtr = mprintf(
header, sizeof(header),
"%s:%d:%s: ",
OS_SpecToStringRelative(&ref->errorfile, NULL, STSbuf, sizeof(STSbuf)),
ref->linenumber,
msgnames_gcc[msgType]
);
} else {
headPtr = mprintf(
header, sizeof(header),
"%s:%d: ",
OS_SpecToStringRelative(&ref->errorfile, NULL, STSbuf, sizeof(STSbuf)),
ref->linenumber
);
}
} else if (msgType != Msg_Status) {
headPtr = mprintf(header, sizeof(header), "%s: ", clState.programName);
} else {
header[0] = 0;
headPtr = header;
}
msgPtr = IO_VFormatText(msgBuf, sizeof(msgBuf), headPtr, format, va);
if ((strstr(msgPtr, "#warning") || strstr(msgPtr, "#error")) && ref->sourceline[0]) {
errPtr = IO_FormatText(errBuf, sizeof(errBuf), headPtr, "%", ref->sourceline);
} else {
errPtr = 0;
}
if (headPtr != header)
free(headPtr);
msg = msgPtr;
while (*msg) {
ptr = msg;
while (*ptr && *ptr != '\n')
ptr++;
CLPrintType(msgType, "%.*s\n", ptr - msg, msg);
if (errPtr) {
CLPrintType(msgType, "%s\n", errPtr);
if (errPtr != errBuf)
free(errPtr);
errPtr = NULL;
}
if (*ptr)
msg = ptr + 1;
else
msg = ptr;
}
if (msgPtr != msgBuf)
free(msgPtr);
}
static void styledMessage_IDE(Plugin *plugin, MessageRef *ref, SInt16 msgType, const char *format, va_list va) {
static void styledMessage_IDE(Plugin *plugin, MessageRef *ref, SInt32 errorNumber, SInt16 msgType, const char *format, va_list va) {
char msgBuf[256];
char *msgPtr;
SInt16 oldCols;
oldCols = optsEnvir.cols;
msgPtr = IO_VFormatText(msgBuf, sizeof(msgBuf), " ", format, va);
optsEnvir.cols = oldCols;
CLPrintType(msgType, "%8s : %s\n", msgnames[msgType], msgPtr + 11);
if (msgPtr != msgBuf)
free(msgPtr);
if (ref) {
msgPtr = IO_FormatText(msgBuf, sizeof(msgBuf), "\t", "%", ref->sourceline);
CLPrintType(msgType, "%s line %d%s\n", OS_SpecToStringRelative(&ref->errorfile, NULL, STSbuf, sizeof(STSbuf)), ref->linenumber, msgPtr);
if (msgPtr != msgBuf)
free(msgPtr);
}
}
static void styledMessage_Parseable(Plugin *plugin, MessageRef *ref, SInt16 msgType, const char *format, va_list va) {
static void styledMessage_Parseable(Plugin *plugin, MessageRef *ref, SInt32 errorNumber, SInt16 msgType, const char *format, va_list va) {
char msgBuf[256];
char *msgPtr;
CLPrintType(msgType, "%s|%s|%s\n", clState.programName, GuessTool(plugin), msgnames[msgType]);
if (ref) {
CLPrintType(
msgType,
"(%s|%d|%d|%d|%d|%d)\n",
OS_SpecToString(&ref->errorfile, STSbuf, sizeof(STSbuf)),
ref->linenumber,
ref->tokenoffset,
ref->tokenlength,
ref->selectionoffset,
ref->selectionlength
);
CLPrintType(msgType, "=%s\n", ref->sourceline);
}
msgPtr = IO_VFormatText(msgBuf, sizeof(msgBuf), ">", format, va);
CLPrintType(msgType, "%s\n", msgPtr);
if (msgPtr != msgBuf)
free(msgPtr);
}
void CLPrintType(SInt16 msgtype, ...) {
void CLPrintType(SInt16 msgtype, const char *format, ...) {
char printbuffer[256];
char *ptr;
va_list va;
va_start(va, format);
ptr = mvprintf(printbuffer, sizeof(printbuffer), format, va);
va_end(va);
CLPrintDispatch(0, msgtype, ptr);
if (ptr != printbuffer)
free(ptr);
}
void CLPrint(const char *format, ...) {
char printbuffer[256];
char *ptr;
va_list va;
va_start(va, format);
ptr = mvprintf(printbuffer, sizeof(printbuffer), format, va);
va_end(va);
CLPrintDispatch(0, Msg_Note, ptr);
if (ptr != printbuffer)
free(ptr);
}
void CLPrintWarning(const char *format, ...) {
char printbuffer[256];
char *ptr;
va_list va;
va_start(va, format);
ptr = mvprintf(printbuffer, sizeof(printbuffer), format, va);
va_end(va);
CLPrintDispatch(0, Msg_Warning, ptr);
if (ptr != printbuffer)
free(ptr);
}
void CLPrintErr(const char *format, ...) {
char printbuffer[256];
char *ptr;
va_list va;
va_start(va, format);
ptr = mvprintf(printbuffer, sizeof(printbuffer), format, va);
va_end(va);
CLPrintDispatch(0, Msg_Error, ptr);
if (ptr != printbuffer)
free(ptr);
}
static void FixupMessageRef(MessageRef *ref) {
char *bol;
char *eol;
int len;
int scan;
if (ref->sourceline && *ref->sourceline) {
bol = ref->sourceline + ref->tokenoffset;
eol = ref->sourceline + ref->tokenoffset + ref->tokenlength - 1;
if (eol < bol)
eol = bol;
while (bol > ref->sourceline && bol[-1] != '\r')
bol--;
while (*eol && *eol != '\r' && *eol != '\n')
eol++;
len = eol - bol;
ref->sourceline = xmalloc("text buffer", len + 1);
strncpy(ref->sourceline, bol, len);
ref->sourceline[len] = 0;
for (scan = 0; scan < len; scan++) {
if (ref->sourceline[scan] < ' ' || ref->sourceline[scan] >= 127)
ref->sourceline[scan] = ' ';
}
} else {
ref->sourceline = 0;
}
}
SInt16 CLStyledMessageDispatch(Plugin *plugin, MessageRef *ref, SInt32 errorNumber, SInt16 msgType) {
SInt16 CLStyledMessageDispatch(Plugin *plugin, MessageRef *ref, SInt32 errorNumber, SInt16 msgType, const char *format, ...) {
va_list va;
MessageRef myref;
UInt32 ptype;
if (msgType == Msg_Warning) {
ptype = plugin ? Plugin_GetPluginType(plugin) : CWDROPINDRIVERTYPE;
if (optsCmdLine.noWarnings)
return 0;
if ((ptype == CWDROPINDRIVERTYPE || ptype == CWDROPINPARSERTYPE) && optsCmdLine.noCmdLineWarnings)
return 0;
if (optsCmdLine.warningsAreErrors)
msgType = Msg_Error;
}
if (msgType == Msg_Error && clState.withholdErrors)
return 0;
if (msgType == Msg_Warning && clState.withholdWarnings)
return 0;
if (ref) {
myref = *ref;
FixupMessageRef(&myref);
}
va_start(va, format);
if (optsCmdLine.msgStyle == 2) {
styledMessage_MPW(plugin, ref ? &myref : 0, errorNumber, msgType, format, va);
} else if (optsCmdLine.msgStyle == 1) {
styledMessage_Terse(plugin, ref ? &myref : 0, errorNumber, msgType, format, va);
} else if (optsCmdLine.msgStyle == 3) {
styledMessage_IDE(plugin, ref ? &myref : 0, errorNumber, msgType, format, va);
} else if (optsCmdLine.msgStyle == 4) {
styledMessage_Parseable(plugin, ref ? &myref : 0, errorNumber, msgType, format, va);
} else {
styledMessage_Default(plugin, ref ? &myref : 0, errorNumber, msgType, format, va);
}
va_end(va);
if (ref && myref.sourceline)
xfree(myref.sourceline);
if (msgType == Msg_Error && optsCmdLine.maxErrors) {
if (++clState.countErrors >= optsCmdLine.maxErrors) {
clState.withholdErrors = 1;
if (!optsCompiler.noFail) {
CLReport(70);
clState.userBreak = 1;
} else {
CLReport(71);
}
}
}
if (msgType == Msg_Warning && optsCmdLine.maxWarnings) {
if (++clState.countWarnings >= optsCmdLine.maxWarnings) {
clState.withholdWarnings = 1;
CLReport(72);
}
}
return msgType;
}

2
command_line/CmdLine/Src/MacEmul/ErrMgr.c
View File

@ -1,4 +1,4 @@
#include "mwcc_decomp.h"
#include "cmdline.h"
static const char *getsyserr(SInt16 msgNbr) {
switch (msgNbr) {

2
command_line/CmdLine/Src/MacEmul/Files.c
View File

@ -1,4 +1,4 @@
#include "mwcc_decomp.h"
#include "cmdline.h"
typedef struct MacFileInfo {
UInt32 ioFlCrDat;

2
command_line/CmdLine/Src/MacEmul/LowMem.c
View File

@ -1,4 +1,4 @@
#include "mwcc_decomp.h"
#include "cmdline.h"
static OSErr memErr;

2
command_line/CmdLine/Src/MacEmul/Memory.c
View File

@ -1,4 +1,4 @@
#include "mwcc_decomp.h"
#include "cmdline.h"
static OSErr memError;

6
command_line/CmdLine/Src/MacEmul/ResourceStrings.c
View File

@ -1,9 +1,9 @@
#include "mwcc_decomp.h"
#include "cmdline.h"
typedef struct {
const char *name;
SInt16 rsrcid;
Handle strings;
const char **strings;
} Res;
static Res rlist[16];
@ -12,7 +12,7 @@ void Res_Initialize() {
memset(rlist, 0, sizeof(rlist));
}
int Res_AddResource(const char *name, SInt16 rsrcid, Handle strings) {
int Res_AddResource(const char *name, SInt16 rsrcid, const char **strings) {
int scan;
for (scan = 0; scan < 16 && rlist[scan].rsrcid; scan++) {

39
command_line/CmdLine/Src/MacEmul/Resources.c
View File

@ -1,4 +1,4 @@
#include "mwcc_decomp.h"
#include "cmdline.h"
// Fork Attributes
enum {
@ -284,6 +284,7 @@ memcpy(buf, ((unsigned char *) file_data) + __offs, (count)); \
} while(0)
static void ReadResourceFork(SInt16 ref, SInt8 permission, void *file_data, SInt32 file_size) {
// this function has various awkwardly swapped registers
MemRsrcMap *rm;
Ty70 thdr;
Ty70 *dhdr;
@ -316,27 +317,29 @@ static void ReadResourceFork(SInt16 ref, SInt8 permission, void *file_data, SInt
cnt = sizeof(Ty70);
RF_READ(&thdr, 0, cnt, mapFail);
dhdr = &thdr;
ref_offs = cnt;
cnt = ((thdr.map_offs < thdr.data_offs) ? thdr.map_offs : thdr.data_offs) - sizeof(Ty70);
if (cnt > sizeof(MemRsrcSysData))
cnt = sizeof(MemRsrcSysData);
RF_READ(&tsys, ref_offs, cnt, mapFail);
dsys = &tsys;
msize = thdr.map_len;
msize = dhdr->map_len;
buffer = malloc(msize);
if (!buffer)
goto memFail;
ref_offs = thdr.map_offs;
ref_offs = dhdr->map_offs;
RF_READ(buffer, ref_offs, msize, mapFail);
if (
(thdr.map_offs > file_size)
|| ((thdr.map_offs + thdr.map_len) > file_size)
|| (thdr.data_offs > file_size)
|| ((thdr.data_offs + thdr.data_len) > file_size)
|| ((thdr.map_offs < thdr.data_offs) ? ((thdr.map_offs + thdr.map_len) != thdr.data_offs) : ((thdr.data_offs + thdr.data_len) != thdr.map_offs))
(dhdr->map_offs > file_size)
|| ((dhdr->map_offs + dhdr->map_len) > file_size)
|| (dhdr->data_offs > file_size)
|| ((dhdr->data_offs + dhdr->data_len) > file_size)
|| ((dhdr->map_offs < dhdr->data_offs) ? ((dhdr->map_offs + dhdr->map_len) > dhdr->data_offs) : ((dhdr->data_offs + dhdr->data_len) > dhdr->map_offs))
)
goto mapFail;
@ -344,13 +347,13 @@ static void ReadResourceFork(SInt16 ref, SInt8 permission, void *file_data, SInt
if (!rm)
goto memFail;
rm->sys_data = tsys;
rm->sys_data = *dsys;
dmap = (Ty73 *) buffer;
if ((dmap->typelist_offs + thdr.map_offs) > file_size)
if ((dmap->typelist_offs + dhdr->map_offs) > file_size)
goto freeAndMapFail;
dtyp = (Ty75 *) (((unsigned char *) buffer) + dmap->typelist_offs + 2);
if ((dmap->namelist_offs + thdr.map_offs) > file_size)
if ((dmap->namelist_offs + dhdr->map_offs) > file_size)
goto freeAndMapFail;
dnam = (Ty80 *) (((unsigned char *) buffer) + dmap->namelist_offs);
if (dmap->types_idx != 0xFFFF) {
@ -359,21 +362,21 @@ static void ReadResourceFork(SInt16 ref, SInt8 permission, void *file_data, SInt
if (!mtyp)
goto freeAndReturn;
if ((thdr.map_offs + dmap->typelist_offs + dtyp[cnt].ref_list_offs) > file_size)
if ((dmap->typelist_offs + dtyp[cnt].ref_list_offs + dhdr->map_offs) > file_size)
goto freeAndMapFail;
drle = (Ty77 *) (((unsigned char *) dtyp) + dtyp[cnt].ref_list_offs - 2);
if (dtyp[cnt].rsrc_idx != 0xFFFF) {
for (rcnt = 0; rcnt <= dtyp[cnt].rsrc_idx; rcnt++) {
ref_offs = (drle[rcnt].data_offs[0] << 16) | (drle[rcnt].data_offs[1] << 8) | drle[rcnt].data_offs[2];
offs = thdr.data_offs + ref_offs;
offs = ref_offs + dhdr->data_offs;
if (offs > file_size)
goto freeAndMapFail;
esize = 4;
RF_READ(&tent, offs, esize, freeAndMapFail);
offs += esize;
if ((thdr.data_offs + ref_offs + tent.len) > file_size)
if ((tent.len + ref_offs + dhdr->data_offs) > file_size)
goto freeAndMapFail;
hand = NewHandle(tent.len);
@ -385,7 +388,7 @@ static void ReadResourceFork(SInt16 ref, SInt8 permission, void *file_data, SInt
HUnlock(hand);
if (drle[rcnt].name_offs != 0xFFFF) {
nameptr = (StringPtr) (dnam + drle[rcnt].name_offs);
nameptr = (StringPtr) dnam + drle[rcnt].name_offs;
name = malloc(nameptr[0] + 1);
memcpy(name, nameptr, nameptr[0] + 1);
} else {
@ -1250,14 +1253,14 @@ void HCreateResFile(SInt16 vRefNum, SInt32 dirID, ConstStringPtr fileName) {
}
}
OSErr FSpOpenResFile(const FSSpec *fss, SInt8 permission) {
OSErr FSpOpenResFile(const FSSpec *spec, SInt8 permission) {
SInt16 ref;
SInt32 size;
if (permission != fsRdPerm)
FSpCreate(fss, 'CWIE', 'TEXT', -1);
FSpCreate(spec, 'CWIE', 'TEXT', -1);
resError = FSpOpenRF(fss, (permission == fsWrPerm) ? fsRdWrPerm : permission, &ref);
resError = FSpOpenRF(spec, (permission == fsWrPerm) ? fsRdWrPerm : permission, &ref);
if (!resError) {
GetEOF(ref, &size);
if (size == 0 && permission != fsRdPerm)

2
command_line/CmdLine/Src/MacEmul/TextUtils.c
View File

@ -1,4 +1,4 @@
#include "mwcc_decomp.h"
#include "cmdline.h"
StringPtr c2pstr(char *s) {
unsigned int l;

6
command_line/CmdLine/Src/OSLib/MacFileTypes.c
View File

@ -4,7 +4,7 @@ static OSFileTypeMappings *defaultList;
static OSFileTypeMappings **fmList = &defaultList;
int (*__OS_ExtendedGetMacFileTypeHook)(const OSSpec *, OSType *);
void OS_AddFileTypeMappingList(OSFileTypeMappings **list, OSFileTypeMappingList *entry) {
void OS_AddFileTypeMappingList(OSFileTypeMappings **list, const OSFileTypeMappingList *entry) {
OSFileTypeMappings **scan;
if (!list)
@ -27,7 +27,7 @@ void OS_UseFileTypeMappings(OSFileTypeMappings *list) {
void OS_MacType_To_OSType(OSType mactype, uOSTypePair *type) {
OSFileTypeMappings *list;
OSFileTypeMappingList *scan;
const OSFileTypeMappingList *scan;
int idx;
for (list = *fmList; list; list = list->next) {
@ -51,7 +51,7 @@ int OS_SetMacFileType(const OSSpec *spec, OSType mactype) {
Boolean OS_GetMacFileTypeMagic(const char *buffer, int count, OSType *mactype) {
OSFileTypeMappings *list;
OSFileTypeMappingList *scan;
const OSFileTypeMappingList *scan;
int idx;
*mactype = 0;

6
command_line/CmdLine/Src/OSLib/Posix.c
View File

@ -408,14 +408,14 @@ int OS_EqualPath(const char *a, const char *b) {
return !strcmp(a, b);
}
int OS_CanonPath(char *src, char *dst) {
int OS_CanonPath(const char *src, char *dst) {
int idx;
if (strlen(src) > 255)
return ENAMETOOLONG;
if (!dst)
dst = src;
dst = (char *) src;
for (idx = 0; src[idx]; idx++) {
if (src[idx] == '\\')
@ -956,6 +956,6 @@ int OS_LoadMacResourceFork(const OSSpec *spec, void **file_data, SInt32 *file_le
return ENOENT;
}
int OS_IsMultiByte(const char *str, int offset) {
Boolean OS_IsMultiByte(const char *str, int offset) {
return 0;
}

981
command_line/CmdLine/Src/Plugins/CLPlugins.c
View File

@ -0,0 +1,981 @@
#include "cmdline.h"
static Plugin *pluginlist;
static ToolVersionInfo toolVersionInfo;
static VersionInfo toolVersion;
static Boolean useToolVersion;
static void GetToolVersionInfo() {
useToolVersion = 0;
}
const ToolVersionInfo *Plugin_GetToolVersionInfo() {
return useToolVersion ? &toolVersionInfo : 0;
}
static const char *Plugin_GetDisplayName(Plugin *pl) {
const char *name;
#line 251
OPTION_ASSERT(pl);
if (pl->cb->GetDisplayName && pl->cb->GetDisplayName(&name) == 0)
return name;
else
return "(no name found)";
}
const char *Plugin_GetDropInName(Plugin *pl) {
const char *name;
#line 263
OPTION_ASSERT(pl);
if (pl->cb->GetDropInName && pl->cb->GetDropInName(&name) == 0)
return name;
else
return "(no name found)";
}
const VersionInfo *Plugin_GetVersionInfo(Plugin *pl) {
static const VersionInfo fakeversion = {0, 0, 0, 0};
const VersionInfo *vi;
#line 276
OPTION_ASSERT(pl);
if (pl->cb->GetVersionInfo && pl->cb->GetVersionInfo(&vi) == 0)
return vi;
else
return &fakeversion;
}
char *Plugin_GetVersionInfoASCII(Plugin *pl) {
const VersionInfo *vi;
char *buffer;
char vernum[16];
char *bptr;
if (!pl && useToolVersion) {
vi = &toolVersion;
} else if (!pl) {
return NULL;
} else {
vi = Plugin_GetVersionInfo(pl);
}
buffer = xmalloc("version info", 64);
if (vi->major | vi->minor | vi->patch | vi->build != 0) {
bptr = vernum;
bptr += sprintf(bptr, "%u", vi->major);
bptr += sprintf(bptr, ".%u", vi->minor);
if (vi->patch)
bptr += sprintf(bptr, ".%u", vi->patch);
if (vi->build)
bptr += sprintf(bptr, " build %u", vi->build);
sprintf(buffer, "Version %s", vernum);
return buffer;
} else {
return NULL;
}
}
DropInFlags *Plugin_GetDropInFlags(Plugin *pl) {
static DropInFlags retdf;
const DropInFlags *df;
SInt32 dfsize;
#line 329
OPTION_ASSERT(pl);
if (pl->cb->GetDropInFlags && pl->cb->GetDropInFlags(&df, &dfsize) == 0) {
memset(&retdf, 0, sizeof(retdf));
memcpy(&retdf, df, dfsize);
return &retdf;
} else {
return NULL;
}
}
OSType Plugin_GetPluginType(Plugin *pl) {
DropInFlags *df;
#line 345
OPTION_ASSERT(pl);
df = Plugin_GetDropInFlags(pl);
if (df)
return df->dropintype;
else
return CWFOURCHAR('N','O','N','E');
}
const CWTargetList *Plugin_CL_GetTargetList(Plugin *pl) {
static const CWTargetList faketl = {
kCurrentCWTargetListVersion,
0, NULL,
0, NULL
};
const CWTargetList *tl;
#line 358
OPTION_ASSERT(pl);
OPTION_ASSERT(pl->cl_cb != NULL);
if (pl->cl_cb->GetTargetList && pl->cl_cb->GetTargetList(&tl) == 0)
return tl;
else
return &faketl;
}
const CWPanelList *Plugin_GetPanelList(Plugin *pl) {
static CWPanelList fakepnl = {
kCurrentCWPanelListVersion, 0, NULL
};
const CWPanelList *pnl;
#line 381
OPTION_ASSERT(pl);
if (pl->cb->GetPanelList && pl->cb->GetPanelList(&pnl) == 0)
return pnl;
else
return &fakepnl;
}
const CWExtMapList *Plugin_CL_GetExtMapList(Plugin *pl) {
static CWExtMapList fakeel = {
kCurrentCWExtMapListVersion,
0, NULL
};
const CWExtMapList *el;
#line 401
OPTION_ASSERT(pl);
OPTION_ASSERT(pl->cl_cb != NULL);
if (pl->cl_cb->GetDefaultMappingList && pl->cl_cb->GetDefaultMappingList(&el) == 0)
return el;
else
return &fakeel;
}
const OSFileTypeMappingList *Plugin_GetFileTypeMappingList(Plugin *pl) {
const OSFileTypeMappingList *ftml;
#line 422
OPTION_ASSERT(pl);
if (pl->cb->GetFileTypeMappings && pl->cb->GetFileTypeMappings(&ftml) == 0)
return ftml;
else
return NULL;
}
const CWObjectFlags *Plugin_CL_GetObjectFlags(Plugin *pl) {
static CWObjectFlags fake = {
2, 0,
"", "", "", "", "", "",
0, 0, 0, 0, 0, 0, 0, 0, 0, 0
};
const CWObjectFlags *cof;
#line 434
OPTION_ASSERT(pl);
OPTION_ASSERT(pl->cl_cb != NULL);
if (pl->cl_cb->GetObjectFlags && pl->cl_cb->GetObjectFlags(&cof) == 0)
return cof;
else if (Plugin_GetDropInFlags(pl)->dropintype == CWDROPINCOMPILERTYPE)
return NULL;
else
return &fake;
}
Boolean Plugin_MatchesName(Plugin *pl, const char *name) {
const char *pname = Plugin_GetDropInName(pl);
return !strcmp(pname, name);
}
Boolean Plugin_CL_MatchesTarget(Plugin *pl, OSType cpu, OSType os, Boolean exact) {
const CWTargetList *tl;
int idx;
int ix;
tl = Plugin_CL_GetTargetList(pl);
for (idx = 0; idx < tl->cpuCount; idx++) {
if (cpu == targetCPUAny || cpu == tl->cpus[idx] || (tl->cpus[idx] == targetCPUAny && !exact)) {
for (ix = 0; ix < tl->osCount; ix++) {
if (os == targetOSAny || os == tl->oss[ix] || (tl->oss[ix] == targetOSAny && !exact))
return 1;
}
}
}
return 0;
}
Boolean Plugins_CL_HaveMatchingTargets(Plugin *p1, Plugin *p2, Boolean exact) {
// does not match, annoyingly
const CWTargetList *t1;
const CWTargetList *t2;
int ic1;
int ic2;
int io1;
int io2;
t1 = Plugin_CL_GetTargetList(p1);
t2 = Plugin_CL_GetTargetList(p2);
for (ic1 = 0; ic1 < t1->cpuCount; ic1++) {
for (ic2 = 0; ic2 < t2->cpuCount; ic2++) {
if ((t2->cpus[ic2] == targetCPUAny && !exact) || (t1->cpus[ic1] == t2->cpus[ic2]) || (t1->cpus[ic1] == targetCPUAny && !exact)) {
for (io1 = 0; io1 < t1->osCount; io1++) {
for (io2 = 0; io2 < t2->osCount; io2++) {
if ((t2->oss[io2] == targetOSAny && !exact) || (t1->oss[io1] == t2->oss[io2]) || (t1->oss[io1] == targetOSAny && !exact)) {
return 1;
}
}
}
}
}
}
return 0;
}
static Boolean CL_MatchesExtMapping(CWExtensionMapping *map, OSType type, const char *ext, Boolean exact) {
if (exact && type && map->type && type == map->type)
return 1;
if (
(((!map->extension[0] && !exact) || (!ext[0] && !exact)) && map->type == type)
||
(((!map->type && !exact) || (!type && !exact)) && !ustrcmp(map->extension, ext))
||
(!ustrcmp(map->extension, ext) && map->type == type)
) {
return 1;
}
return 0;
}
Boolean Plugin_CL_MatchesFileType(Plugin *pl, OSType type, const char *extension, Boolean exact) {
const CWExtMapList *el;
int idx;
el = Plugin_CL_GetExtMapList(pl);
for (idx = 0; idx < el->nMappings; idx++) {
if (CL_MatchesExtMapping(&el->mappings[idx], type, extension, exact))
return 1;
}
return 0;
}
Boolean Plugin_MatchesType(Plugin *pl, OSType type, OSType lang, Boolean exact) {
const DropInFlags *df;
df = Plugin_GetDropInFlags(pl);
if (df->dropintype == type || type == CWDROPINANYTYPE) {
if (df->edit_language == lang || lang == Lang_Any || (df->edit_language == Lang_Any && !exact))
return 1;
}
return 0;
}
Boolean Plugin_Pr_MatchesPlugin(Plugin *pl, CLPluginInfo *pluginfo, OSType cpu, OSType os) {
Boolean isSupported;
#line 566
OPTION_ASSERT(pl->pr_cb != NULL);
if (pl->pr_cb->SupportsPlugin && pl->pr_cb->SupportsPlugin(pluginfo, cpu, os, &isSupported) == 0)
return isSupported;
else
return 0;
}
Boolean Plugin_Pr_MatchesPanels(Plugin *pl, int numPanels, const char **panelNames) {
Boolean isSupported;
#line 578
OPTION_ASSERT(pl->pr_cb != NULL);
if (pl->pr_cb->SupportsPanels && pl->pr_cb->SupportsPanels(numPanels, panelNames, &isSupported) == 0)
return isSupported;
else
return 0;
}
Boolean Plugin_CL_WriteObjectFile(Plugin *pl, FSSpec *srcfss, FSSpec *outfss, OSType creator, OSType type, Handle data) {
OSSpec outoss;
#line 590
OPTION_ASSERT(pl->cl_cb != NULL);
OPTION_ASSERT(data != NULL && srcfss != NULL && outfss != NULL);
if (pl->cl_cb->WriteObjectFile) {
return pl->cl_cb->WriteObjectFile(srcfss, outfss, creator, type, data) == 0;
}
OS_FSSpec_To_OSSpec(outfss, &outoss);
return WriteBinaryHandleToFile(&outoss, creator, type, OS_PeekMacHandle(data));
}
Boolean Plugin_CL_GetCompilerMapping(Plugin *pl, OSType type, const char *ext, UInt32 *flags) {
const CWExtMapList *el;
int idx;
int pick;
el = Plugin_CL_GetExtMapList(pl);
pick = -1;
for (idx = 0; idx < el->nMappings; idx++) {
if (CL_MatchesExtMapping(&el->mappings[idx], type, ext, 0)) {
pick = idx;
if (CL_MatchesExtMapping(&el->mappings[idx], type, ext, 1))
break;
}
}
if (pick < 0) {
*flags = 0;
return 0;
} else {
*flags = el->mappings[pick].flags;
return 1;
}
}
static Boolean SupportedPlugin(Plugin *pl, const char **reason) {
static const SInt32 DropInFlagsSize[3] = {0, 0x10, 0x12};
const DropInFlags *df;
const CWObjectFlags *cof;
SInt32 dfsize;
*reason = "";
if (pl->cb->GetDropInFlags == NULL) {
*reason = "GetDropInFlags callback not found";
return 0;
}
if (pl->cb->GetDropInFlags(&df, &dfsize)) {
*reason = "GetDropInFlags callback failed";
return 0;
}
if (df->dropintype != CWDROPINCOMPILERTYPE && df->dropintype != CWDROPINLINKERTYPE && df->dropintype != CWDROPINPARSERTYPE && df->dropintype != CWDROPINDRIVERTYPE) {
*reason = "The plugin type is not supported by this driver";
return 0;
}
if (df->earliestCompatibleAPIVersion > 11) {
*reason = "The plugin's earliest compatible API version is too new for this driver";
return 0;
}
if (df->earliestCompatibleAPIVersion > 1 && df->newestAPIVersion < 11 && clState.pluginDebug) {
CLPrintErr("%s's newest compatible API version is probably too old for this driver\n", Plugin_GetDropInName(pl));
}
if (dfsize != DropInFlagsSize[df->rsrcversion]) {
*reason = "The plugin's DropInFlags has an unexpected size";
return 0;
}
if (!(df->dropinflags & dropInExecutableTool) && !pl->cb->main) {
*reason = "The plugin has no entry point";
return 0;
}
if ((df->dropinflags & dropInExecutableTool) && pl->cb->main) {
*reason = "The executable tool stub has an entry point";
return 0;
}
if (pl->cl_cb) {
if (pl->cl_cb->GetObjectFlags == NULL && df->dropintype == CWDROPINCOMPILERTYPE) {
*reason = "GetObjectFlags callback not found in compiler plugin";
return 0;
}
cof = Plugin_CL_GetObjectFlags(pl);
if (cof->version < 2 || cof->flags & 0x7FFFFFFF) {
*reason = "The object flags data is out-of-date or invalid";
return 0;
}
}
return 1;
}
static Boolean VerifyPanels(Plugin *pl) {
const CWPanelList *pls;
Boolean failed;
int idx;
failed = 0;
if (pl->cb->GetPanelList && pl->cb->GetPanelList(&pls) == 0) {
for (idx = 0; idx < pls->count; idx++) {
if (Prefs_FindPanel(pls->names[idx]) == NULL) {
CLReportError(91, pls->names[idx]);
failed = 1;
}
}
}
return !failed;
}
Plugin *Plugin_New(const BasePluginCallbacks *cb, const CompilerLinkerPluginCallbacks *cl_cb, const ParserPluginCallbacks *pr_cb) {
Plugin *p;
p = xmalloc(NULL, sizeof(Plugin));
if (!p)
return NULL;
if (!cb)
return NULL;
p->cb = xmalloc(NULL, sizeof(BasePluginCallbacks));
if (!p->cb)
return NULL;
*p->cb = *cb;
if (cl_cb) {
p->cl_cb = xmalloc(NULL, sizeof(CompilerLinkerPluginCallbacks));
if (!p->cl_cb)
return NULL;
*p->cl_cb = *cl_cb;
} else {
p->cl_cb = NULL;
}
if (pr_cb) {
p->pr_cb = xmalloc(NULL, sizeof(ParserPluginCallbacks));
if (!p->pr_cb)
return NULL;
*p->pr_cb = *pr_cb;
} else {
p->pr_cb = NULL;
}
p->context = NULL;
p->next = NULL;
return p;
}
void Plugin_Free(Plugin *pl) {
if (pl) {
if (pl->cb)
xfree(pl->cb);
if (pl->cl_cb)
xfree(pl->cl_cb);
if (pl->pr_cb)
xfree(pl->pr_cb);
xfree(pl);
}
}
Boolean Plugin_VerifyPanels(Plugin *pl) {
if (!VerifyPanels(pl)) {
CLReportError(92, Plugin_GetDropInName(pl));
return 0;
} else {
return 1;
}
}
void Plugins_Init() {
pluginlist = NULL;
GetToolVersionInfo();
}
void Plugins_Term() {
Plugin *scan;
Plugin *next;
scan = pluginlist;
while (scan) {
next = scan->next;
SendInitOrTermRequest(scan, 0);
Plugin_Free(scan);
scan = next;
}
if (toolVersionInfo.company)
xfree(toolVersionInfo.company);
if (toolVersionInfo.product)
xfree(toolVersionInfo.product);
if (toolVersionInfo.tool)
xfree(toolVersionInfo.tool);
if (toolVersionInfo.copyright)
xfree(toolVersionInfo.copyright);
if (toolVersionInfo.version)
xfree(toolVersionInfo.version);
}
int Plugins_Add(Plugin *pl) {
Plugin **scan;
const char *dropinname;
const DropInFlags *df;
const CWTargetList *tl;
const CWExtMapList *el;
const CWPanelList *pnl;
const char *failreason;
CWDataType vislang;
SInt16 step;
dropinname = Plugin_GetDropInName(pl);
pl->cached_ascii_version = Plugin_GetVersionInfoASCII(pl);
if (!SupportedPlugin(pl, &failreason)) {
CLReportError(88, dropinname, pl->cached_ascii_version, failreason);
return 0;
}
scan = &pluginlist;
while (*scan) {
if (Plugin_MatchesName(*scan, dropinname)) {
CLReportError(89, dropinname);
return 0;
}
scan = &(*scan)->next;
}
*scan = pl;
df = Plugin_GetDropInFlags(pl);
if (!(df->dropinflags & dropInExecutableTool) && !SendInitOrTermRequest(pl, 1)) {
CLReportError(3, dropinname);
return 0;
}
if (df->dropintype == CWDROPINCOMPILERTYPE && df->dropinflags & 0x17C000)
CLReportError(4, "compiler", dropinname);
if (df->dropintype == CWDROPINLINKERTYPE && df->dropinflags & 0x5FE4000)
CLReportError(4, "linker", dropinname);
if (clState.pluginDebug) {
vislang = df->edit_language ? df->edit_language : CWFOURCHAR('-','-','-','-');
CLPrint("Added plugin '%s', version '%s'\n", dropinname, pl->cached_ascii_version);
CLPrint("Type: '%c%c%c%c'; Lang: '%c%c%c%c'; API range: %d-%d\n",
(df->dropintype & 0xFF000000) >> 24,
(df->dropintype & 0x00FF0000) >> 16,
(df->dropintype & 0x0000FF00) >> 8,
(df->dropintype & 0x000000FF),
(vislang & 0xFF000000) >> 24,
(vislang & 0x00FF0000) >> 16,
(vislang & 0x0000FF00) >> 8,
(vislang & 0x000000FF),
df->earliestCompatibleAPIVersion,
df->newestAPIVersion
);
if (pl->cl_cb) {
tl = Plugin_CL_GetTargetList(pl);
CLPrint("Target CPUs: ");
for (step = 0; step < tl->cpuCount; step++) {
CLPrint("'%c%c%c%c', ",
(tl->cpus[step] & 0xFF000000) >> 24,
(tl->cpus[step] & 0x00FF0000) >> 16,
(tl->cpus[step] & 0x0000FF00) >> 8,
(tl->cpus[step] & 0x000000FF)
);
}
CLPrint("\nTarget OSes: ");
for (step = 0; step < tl->osCount; step++) {
CLPrint("'%c%c%c%c', ",
(tl->oss[step] & 0xFF000000) >> 24,
(tl->oss[step] & 0x00FF0000) >> 16,
(tl->oss[step] & 0x0000FF00) >> 8,
(tl->oss[step] & 0x000000FF)
);
}
CLPrint("\n");
el = Plugin_CL_GetExtMapList(pl);
CLPrint("File mappings:\n");
for (step = 0; step < el->nMappings; step++) {
if (el->mappings[step].type) {
CLPrint("\tFile type: '%c%c%c%c' Extension: '%s'\n",
(el->mappings[step].type & 0xFF000000) >> 24,
(el->mappings[step].type & 0x00FF0000) >> 16,
(el->mappings[step].type & 0x0000FF00) >> 8,
(el->mappings[step].type & 0x000000FF),
el->mappings[step].extension
);
} else {
CLPrint("\tFile type: <none> Extension: '%s'\n",
el->mappings[step].extension
);
}
}
}
pnl = Plugin_GetPanelList(pl);
CLPrint("Pref panels needed:\n");
for (step = 0; step < pnl->count; step++) {
CLPrint("\t'%s'\n", pnl->names[step]);
}
CLPrint("Dropin flags:\n");
if (df->dropinflags & dropInExecutableTool) CLPrint("\texecutable tool,\n");
if (df->dropintype == CWDROPINCOMPILERTYPE) {
if (df->dropinflags & kGeneratescode) CLPrint("\tgenerates code,\n");
if (df->dropinflags & kGeneratesrsrcs) CLPrint("\tgenerates resources, \n");
if (df->dropinflags & kCanpreprocess) CLPrint("\tcan preprocess, \n");
if (df->dropinflags & kCanprecompile) CLPrint("\tcan precompile, \n");
if (df->dropinflags & kIspascal) CLPrint("\tis Pascal, \n");
if (df->dropinflags & kCanimport) CLPrint("\tcan import, \n");
if (df->dropinflags & kCandisassemble) CLPrint("\tcan disassemble, \n");
if (df->dropinflags & kCompAllowDupFileNames) CLPrint("\tallow duplicate filenames, \n");
if (df->dropinflags & kCompMultiTargAware) CLPrint("\tallow multiple targets, \n");
if (df->dropinflags & kCompUsesTargetStorage) CLPrint("\tuses target storage, \n");
if (df->dropinflags & kCompEmitsOwnBrSymbols) CLPrint("\temits own browser symbols, \n");
if (df->dropinflags & kCompAlwaysReload) CLPrint("\tshould be always reloaded, \n");
if (df->dropinflags & kCompRequiresProjectBuildStartedMsg) CLPrint("\trequires project build started msg, \n");
if (df->dropinflags & kCompRequiresTargetBuildStartedMsg) CLPrint("\trequires target build started msg, \n");
if (df->dropinflags & kCompRequiresSubProjectBuildStartedMsg) CLPrint("\trequires subproject build started msg, \n");
if (df->dropinflags & kCompRequiresFileListBuildStartedMsg) CLPrint("\trequires file list build started msg, \n");
}
if (df->dropintype == CWDROPINLINKERTYPE) {
if (df->dropinflags & cantDisassemble) CLPrint("\tcan't disassemble, \n");
if (df->dropinflags & isPostLinker) CLPrint("\tis a post-linker, \n");
if (df->dropinflags & linkAllowDupFileNames) CLPrint("\tallow duplicate filenames, \n");
if (df->dropinflags & linkMultiTargAware) CLPrint("\tallow multiple targets, \n");
if (df->dropinflags & isPreLinker) CLPrint("\tis a pre-linker, \n");
if (df->dropinflags & linkerUsesTargetStorage) CLPrint("\tuses target storage, \n");
if (df->dropinflags & linkerUnmangles) CLPrint("\tsupports unmangling, \n");
if (df->dropinflags & magicCapLinker) CLPrint("\tis Magic Cap linker, \n");
if (df->dropinflags & linkAlwaysReload) CLPrint("\tshould be always reloaded, \n");
if (df->dropinflags & linkRequiresProjectBuildStartedMsg) CLPrint("\trequires project build started msg, \n");
if (df->dropinflags & linkRequiresTargetBuildStartedMsg) CLPrint("\trequires target build started msg, \n");
if (df->dropinflags & linkRequiresSubProjectBuildStartedMsg) CLPrint("\trequires subproject build started msg, \n");
if (df->dropinflags & linkRequiresFileListBuildStartedMsg) CLPrint("\trequires file list build started msg, \n");
if (df->dropinflags & linkRequiresTargetLinkStartedMsg) CLPrint("\trequires target link started msg, \n");
if (df->dropinflags & linkerWantsPreRunRequest) CLPrint("\twants pre-run request, \n");
}
CLPrint("\n");
}
return 1;
}
Plugin *Plugins_MatchName(Plugin *list, const char *name) {
Plugin *scan;
scan = list ? list : pluginlist;
while (scan) {
if (Plugin_MatchesName(scan, name))
break;
scan = scan->next;
}
return scan;
}
Plugin *Plugins_CL_MatchTarget(Plugin *list, OSType cpu, OSType os, OSType type, OSType lang) {
Plugin *scan;
Plugin *pick;
scan = list ? list : pluginlist;
pick = NULL;
while (scan) {
if (scan->cl_cb) {
if (Plugin_CL_MatchesTarget(scan, cpu, os, 0) && Plugin_MatchesType(scan, type, lang, 0)) {
pick = scan;
if (Plugin_CL_MatchesTarget(scan, cpu, os, 1) && Plugin_MatchesType(scan, type, lang, 1))
break;
}
}
scan = scan->next;
}
return pick;
}
Plugin *Plugins_CL_MatchFileType(Plugin *list, OSType type, const char *ext, Boolean exact) {
Plugin *scan;
scan = list ? list : pluginlist;
while (scan) {
if (Plugin_CL_MatchesFileType(scan, type, ext, exact))
break;
scan = scan->next;
}
return scan;
}
Plugin *Plugins_GetPluginForFile(Plugin *list, OSType plugintype, OSType cpu, OSType os, OSType type, const char *ext, OSType lang) {
Plugin *scan;
Plugin *pick;
scan = list ? list : pluginlist;
pick = NULL;
while (scan) {
if (Plugin_MatchesType(scan, plugintype, lang, 1) && scan->cl_cb) {
if (Plugin_CL_MatchesTarget(scan, cpu, os, 0) && Plugin_CL_MatchesFileType(scan, type, ext, 0)) {
pick = scan;
if (Plugin_CL_MatchesTarget(scan, cpu, os, 1) && Plugin_CL_MatchesFileType(scan, type, ext, 1))
break;
}
}
scan = scan->next;
}
return pick;
}
Plugin *Plugins_GetLinker(Plugin *list, OSType cpu, OSType os) {
Plugin *scan;
Plugin *pick;
scan = list ? list : pluginlist;
pick = NULL;
while (scan) {
if (Plugin_MatchesType(scan, CWDROPINLINKERTYPE, Lang_Any, 1)) {
if (!(Plugin_GetDropInFlags(scan)->dropinflags & (isPreLinker | isPostLinker))) {
if (Plugin_CL_MatchesTarget(scan, cpu, os, 0)) {
pick = scan;
if (Plugin_CL_MatchesTarget(scan, cpu, os, 1))
break;
}
}
}
scan = scan->next;
}
return pick;
}
Plugin *Plugins_GetPreLinker(Plugin *list, OSType cpu, OSType os) {
Plugin *scan;
Plugin *pick;
scan = list ? list : pluginlist;
pick = NULL;
while (scan) {
if (Plugin_MatchesType(scan, CWDROPINLINKERTYPE, Lang_Any, 1)) {
if (Plugin_GetDropInFlags(scan)->dropinflags & isPreLinker) {
if (Plugin_CL_MatchesTarget(scan, cpu, os, 0)) {
pick = scan;
if (Plugin_CL_MatchesTarget(scan, cpu, os, 1))
break;
}
}
}
scan = scan->next;
}
return pick;
}
Plugin *Plugins_GetPostLinker(Plugin *list, OSType cpu, OSType os) {
Plugin *scan;
Plugin *pick;
scan = list ? list : pluginlist;
pick = NULL;
while (scan) {
if (Plugin_MatchesType(scan, CWDROPINLINKERTYPE, Lang_Any, 1)) {
if (Plugin_GetDropInFlags(scan)->dropinflags & isPostLinker) {
if (Plugin_CL_MatchesTarget(scan, cpu, os, 0)) {
pick = scan;
if (Plugin_CL_MatchesTarget(scan, cpu, os, 1))
break;
}
}
}
scan = scan->next;
}
return pick;
}
Plugin *Plugins_GetParserForPlugin(Plugin *list, OSType style, int numPlugins, CLPluginInfo *plugins, OSType cpu, OSType os, int numPanels, const char **panelNames) {
Plugin *scan;
Plugin *pick;
Boolean allpanels;
Boolean hasplugintype;
Boolean *supports;
scan = list ? list : pluginlist;
pick = NULL;
supports = alloca(numPanels);
while (scan) {
if (Plugin_MatchesType(scan, CWDROPINPARSERTYPE, style, 1)) {
int idx;
int pnl;
hasplugintype = 0;
for (idx = 0; idx < numPlugins; idx++) {
if (plugins[idx].plugintype != CWDROPINPARSERTYPE && plugins[idx].plugintype != CWDROPINDRIVERTYPE && !plugins[idx].storeCommandLine) {
if (Plugin_Pr_MatchesPlugin(scan, &plugins[idx], cpu, os))
hasplugintype = 1;
}
}
if (hasplugintype) {
pick = scan;
allpanels = 1;
for (pnl = 0; pnl < numPanels; pnl++) {
allpanels &= (supports[pnl] = Plugin_Pr_MatchesPanels(scan, 1, &panelNames[pnl]));
}
if (allpanels)
break;
}
}
scan = scan->next;
}
if (pick && !allpanels) {
int idx;
CLReport(5);
for (idx = 0; idx < numPanels; idx++) {
if (!supports[idx])
CLReport(6, panelNames[idx]);
}
}
return pick;
}
Plugin *Plugins_GetCompilerForLinker(Plugin *list, Plugin *linker, OSType type, const char *ext, OSType edit) {
Plugin *scan;
Plugin *pick;
scan = list ? list : pluginlist;
pick = NULL;
while (scan) {
if (Plugin_MatchesType(scan, CWDROPINCOMPILERTYPE, edit, 1)) {
if (Plugin_CL_MatchesFileType(scan, type, ext, 0) && Plugins_CL_HaveMatchingTargets(scan, linker, 0)) {
pick = scan;
if (Plugin_CL_MatchesFileType(scan, type, ext, 1) && Plugins_CL_HaveMatchingTargets(scan, linker, 1))
break;
}
}
scan = scan->next;
}
return pick;
}
int Plugins_GetPluginList(Plugin *list, int *numPlugins, CLPluginInfo **pluginInfo) {
Plugin *scan;
int idx;
const DropInFlags *df;
const VersionInfo *vi;
scan = list ? list : pluginlist;
idx = 0;
while (scan) {
scan = scan->next;
idx++;
}
*numPlugins = idx;
*pluginInfo = xmalloc(NULL, sizeof(CLPluginInfo) * idx);
if (!*pluginInfo)
return 0;
scan = list ? list : pluginlist;
idx = 0;
while (scan) {
df = Plugin_GetDropInFlags(scan);
vi = Plugin_GetVersionInfo(scan);
#line 1270
OPTION_ASSERT(df != NULL);
OPTION_ASSERT(vi != NULL);
(*pluginInfo)[idx].plugintype = df->dropintype;
(*pluginInfo)[idx].language = df->edit_language;
(*pluginInfo)[idx].dropinflags = df->dropinflags;
(*pluginInfo)[idx].version = scan->cached_ascii_version;
(*pluginInfo)[idx].storeCommandLine = df->dropinflags & 1;
scan = scan->next;
idx++;
}
return 1;
}
int Plugins_GetPrefPanelUnion(Plugin *list, int *numPanels, const char ***panelNames) {
Plugin *scan;
int tempNum;
int idx;
const char **tempPanels;
scan = list ? list : pluginlist;
tempNum = 0;
while (scan) {
const CWPanelList *pl;
pl = Plugin_GetPanelList(scan);
tempNum += pl->count;
scan = scan->next;
}
tempPanels = xmalloc("plugin preference union", sizeof(const char *) * tempNum);
idx = 0;
scan = list ? list : pluginlist;
while (scan) {
const CWPanelList *pl;
int step;
pl = Plugin_GetPanelList(scan);
for (step = 0; step < pl->count; step++) {
int cmp;
for (cmp = 0; cmp < idx; cmp++) {
if (!ustrcmp(tempPanels[cmp], pl->names[step]))
break;
}
if (cmp >= idx)
tempPanels[idx++] = pl->names[step];
}
scan = scan->next;
}
*panelNames = xmalloc(NULL, idx * sizeof(const char *));
if (!*panelNames)
return 0;
*panelNames = xrealloc("plugin preference union", tempPanels, idx * sizeof(const char *));
*numPanels = idx;
return 1;
}
int Plugin_AddFileTypeMappings(Plugin *pl, OSFileTypeMappings **mlist) {
const OSFileTypeMappingList *ftml;
ftml = Plugin_GetFileTypeMappingList(pl);
if (!ftml) {
return 1;
} else {
AddFileTypeMappingList(NULL, ftml);
return 1;
}
}
int Plugins_AddFileTypeMappingsForTarget(Plugin *list, OSFileTypeMappings **mlist, OSType cpu, OSType os) {
if (!list)
list = pluginlist;
while (list) {
if (!list->cl_cb || Plugin_CL_MatchesTarget(list, cpu, os, 0))
Plugin_AddFileTypeMappings(list, mlist);
list = list->next;
}
return 1;
}
SInt16 Plugin_Call(Plugin *pl, void *context) {
if (pl->cb->main)
return pl->cb->main(context);
else
return cwErrRequestFailed;
}

525
command_line/CmdLine/Src/Project/CLAccessPaths.c
View File

@ -0,0 +1,525 @@
#include "cmdline.h"
// TODO check where this should be!
Paths FrameworkPaths;
Frameworks FrameworkInfo;
Path *Path_Init(const OSPathSpec *dir, Path *path) {
path->spec = xmalloc(NULL, sizeof(OSPathSpec));
*path->spec = *dir;
path->recursive = NULL;
path->dirlist = NULL;
path->flags = 0;
return path;
}
Path *Path_New(const OSPathSpec *dir) {
Path *path;
path = xmalloc(NULL, sizeof(Path));
return Path_Init(dir, path);
}
void Path_Free(Path *path) {
if (path) {
if (path->spec)
xfree(path->spec);
if (path->recursive) {
Paths_Terminate(path->recursive);
xfree(path->recursive);
}
xfree(path);
}
}
Boolean Paths_Initialize(Paths *paths) {
#line 52
OPTION_ASSERT(paths != NULL);
memset(paths, 0, sizeof(Paths));
paths->pathsArray = NULL;
return 1;
}
Boolean Paths_Terminate(Paths *paths) {
UInt16 index;
#line 63
OPTION_ASSERT(paths != NULL);
if (paths->pathsArray) {
for (index = 0; index < paths->pathsCount; index++)
Path_Free(paths->pathsArray[index]);
xfree(paths->pathsArray);
}
paths->pathsArray = NULL;
return 1;
}
static Boolean Paths_GrowPaths(Paths *paths, UInt16 *index) {
Path **newArray;
#line 84
OPTION_ASSERT(paths != NULL);
if (paths->pathsCount >= paths->arraySize) {
paths->arraySize += 20;
newArray = xrealloc("access paths", paths->pathsArray, sizeof(Path *) * paths->arraySize);
paths->pathsArray = newArray;
}
*index = paths->pathsCount++;
return 1;
}
Boolean Paths_AddPath(Paths *paths, Path *path) {
UInt16 ni;
if (Paths_GrowPaths(paths, &ni)) {
paths->pathsArray[ni] = path;
return 1;
} else {
return 0;
}
}
Boolean Paths_InsertPath(Paths *paths, UInt16 index, Path *path) {
UInt16 ni;
if (Paths_GrowPaths(paths, &ni)) {
if (index > ni) {
index = (ni != 0) ? (ni - 1) : 0;
}
memmove(&paths->pathsArray[index + 1], &paths->pathsArray[index], sizeof(Path *) * (paths->pathsCount - index));
paths->pathsArray[index] = path;
return 1;
} else {
return 0;
}
}
Boolean Paths_RemovePath(Paths *paths, UInt16 index) {
if (index >= paths->pathsCount)
return 0;
memmove(&paths->pathsArray[index], &paths->pathsArray[index + 1], sizeof(Path *) * (paths->pathsCount - index - 1));
paths->pathsCount--;
return 1;
}
Boolean Paths_DeletePath(Paths *paths, UInt16 index) {
if (index >= paths->pathsCount)
return 0;
Path_Free(paths->pathsArray[index]);
return Paths_RemovePath(paths, index);
}
Path *Paths_GetPath(Paths *paths, UInt16 pathnum) {
#line 151
OPTION_ASSERT(paths != NULL);
if (pathnum < paths->pathsCount)
return paths->pathsArray[pathnum];
else
return NULL;
}
UInt16 Paths_Count(const Paths *paths) {
#line 161
OPTION_ASSERT(paths != NULL);
return paths->pathsCount;
}
Boolean Paths_FindPath(const Paths *paths, const Path *path) {
UInt16 idx;
#line 169
OPTION_ASSERT(paths != NULL);
for (idx = 0; idx < paths->pathsCount; idx++) {
if (paths->pathsArray[idx] == path)
return 1;
}
return 0;
}
Path *Paths_FindPathSpec(const Paths *paths, const OSPathSpec *dir) {
UInt16 idx;
Path *path;
#line 182
OPTION_ASSERT(paths != NULL);
for (idx = 0; idx < paths->pathsCount; idx++) {
path = paths->pathsArray[idx];
if (OS_EqualPathSpec(path->spec, dir))
return path;
}
return NULL;
}
static Boolean GatherRecurse(Paths *list, Path *path) {
int err;
OSOpenedDir rf;
OSSpec ent;
int count;
char filename[64];
Boolean isfile;
char *nptr;
char *eptr;
UInt16 added;
Path *nw;
count = 0;
if (CheckForUserBreak())
return 1;
err = OS_OpenDir(path->spec, &rf);
while (!err) {
err = OS_ReadDir(&rf, &ent, filename, &isfile);
if (!err) {
if (!isfile) {
nw = Path_New(&ent.path);
nptr = OS_GetFileNamePtr(filename);
eptr = nptr + strlen(nptr) - 1;
if (eptr[0] == OS_PATHSEP)
eptr--;
if (eptr > nptr && *nptr == '(' && *eptr == ')')
continue;
if (!Paths_AddPath(list, nw))
break;
added = Paths_Count(list) - 1;
if (!GatherRecurse(list, nw))
Paths_DeletePath(list, added);
} else {
if (!(++count % 50) && CheckForUserBreak())
return 0;
}
}
}
OS_CloseDir(&rf);
return count > 0;
}
Boolean Paths_GatherRecurse(Path *path) {
path->recursive = xcalloc(NULL, sizeof(Paths));
GatherRecurse(path->recursive, path);
return Paths_Count(path->recursive) != 0;
}
int Paths_CountRecurse(Paths *paths) {
UInt16 idx;
int mine;
Path *path;
mine = Paths_Count(paths);
for (idx = 0; idx < mine; idx++) {
path = Paths_GetPath(paths, idx);
#line 336
OPTION_ASSERT(path);
if (path->recursive)
mine += Paths_CountRecurse(path->recursive);
}
return mine;
}
static void CopyRecurseFSS(FSSpec **list, Paths *paths, UInt16 *count) {
UInt16 idx;
OSSpec spec;
Path *path;
for (idx = 0; idx < Paths_Count(paths); idx++) {
path = Paths_GetPath(paths, idx);
#line 353
OPTION_ASSERT(path && *count > 0);
OS_MakeSpecWithPath(path->spec, NULL, 0, &spec);
#line 355
OPTION_ASSERT(OS_OSSpec_To_FSSpec(&spec, *list));
(*list)++;
(*count)--;
if (path->recursive)
CopyRecurseFSS(list, path->recursive, count);
}
}
void Paths_CopyRecurseFSS(FSSpec *list, Paths *paths, UInt16 count) {
CopyRecurseFSS(&list, paths, &count);
#line 367
OPTION_ASSERT(count == 0);
}
static Boolean Frameworks_Initialize(Frameworks *fws) {
#line 405
OPTION_ASSERT(fws != NULL);
memset(fws, 0, sizeof(Frameworks));
fws->fwsArray = NULL;
return 1;
}
static Boolean Frameworks_Grow(Frameworks *fws, UInt16 *index) {
Paths_FWInfo **newArray;
#line 418
OPTION_ASSERT(fws != NULL);
if (fws->fwsCount >= fws->arraySize) {
fws->arraySize += 20;
newArray = xrealloc("access frameworks", fws->fwsArray, sizeof(Paths_FWInfo *) * fws->arraySize);
fws->fwsArray = newArray;
}
*index = fws->fwsCount++;
return 1;
}
static Boolean Frameworks_Add(Frameworks *fws, Paths_FWInfo *info) {
UInt16 ni;
if (Frameworks_Grow(fws, &ni)) {
fws->fwsArray[ni] = info;
return 1;
} else {
return 0;
}
}
static Paths_FWInfo *Framework_Init(OSSpec *dir, const char *name, const char *version, Paths_FWInfo *info, Path *p, Boolean hidden) {
info->fileSpec = *dir;
if (version && version[0])
strncpy(info->version.s, version, sizeof(info->version.s));
else
info->version.s[0] = 0;
strncpy(info->name.s, name, sizeof(info->name.s));
info->path = p;
info->hidden = hidden;
return info;
}
static Paths_FWInfo *Framework_New(OSSpec *dir, const char *name, const char *version, Path *p, Boolean hidden) {
Paths_FWInfo *info;
info = xmalloc(NULL, sizeof(Paths_FWInfo));
return Framework_Init(dir, name, version, info, p, hidden);
}
static Boolean CheckForFileInFrameworkDir(char *out, const char *framework_path, OSPathSpec *osps, const char *fname) {
int err;
OSSpec oss;
sprintf(out, "%s/%s", framework_path, fname);
err = OS_MakeSpecWithPath(osps, out, 0, &oss);
if (err == 0 && OS_IsFile(&oss))
return 1;
sprintf(out, "%s/Headers/%s", framework_path, fname);
err = OS_MakeSpecWithPath(osps, out, 0, &oss);
if (err == 0 && OS_IsFile(&oss))
return 1;
sprintf(out, "%s/Resources/%s", framework_path, fname);
err = OS_MakeSpecWithPath(osps, out, 0, &oss);
if (err == 0 && OS_IsFile(&oss))
return 1;
sprintf(out, "%s/Resources/%s", framework_path, fname);
err = OS_MakeSpecWithPath(osps, out, 0, &oss);
if (err == 0 && OS_IsFile(&oss))
return 1;
return 0;
}
static Boolean CheckForFileInFramework(char *out, int i, const char *fname) {
Paths_FWInfo *info;
char framework_path[256];
info = Frameworks_GetInfo(i);
if (strlen(info->version.s))
sprintf(framework_path, "%s.framework/Versions/%s", info->name.s, info->version.s);
else
sprintf(framework_path, "%s.framework", info->name.s);
if (CheckForFileInFrameworkDir(out, framework_path, info->path->spec, fname))
return 1;
else
return 0;
}
Boolean MakeFrameworkPath(char *out, const char *filename, Path *globalpath) {
Paths_FWInfo *info;
int err;
char *end;
char *fname;
char framework_name[256];
char framework_path[256];
const char *s;
char *d;
int i;
int n;
n = Frameworks_GetCount();
end = strchr(filename, OS_PATHSEP);
if (!end) {
for (i = 0; i < n; i++) {
info = Frameworks_GetInfo(i);
if (!info->hidden && CheckForFileInFramework(out, i, filename))
return 1;
}
return 0;
}
fname = end + 1;
s = filename;
d = framework_name;
while (s < end)
*(d++) = *(s++);
*d = 0;
for (i = 0; i < n; i++) {
if (!strcmp(Frameworks_GetInfo(i)->name.s, framework_name)) {
return CheckForFileInFramework(out, i, fname) != 0;
}
}
if (globalpath) {
OSSpec oss;
sprintf(framework_path, "../Frameworks/%s.framework", framework_name);
err = OS_MakeSpecWithPath(globalpath->spec, framework_path, 0, &oss);
if (!err && OS_IsDir(&oss)) {
if (CheckForFileInFrameworkDir(out, framework_path, globalpath->spec, fname))
return 1;
}
}
n = Paths_Count(&FrameworkPaths);
sprintf(framework_path, "%s.framework", framework_name);
for (i = 0; i < n; i++) {
OSSpec oss;
Path *p;
p = Paths_GetPath(&FrameworkPaths, i);
err = OS_MakeSpecWithPath(p->spec, framework_path, 0, &oss);
if (!err && OS_IsDir(&oss)) {
if (CheckForFileInFrameworkDir(out, framework_path, p->spec, fname)) {
Frameworks_AddFramework(framework_name, NULL, 1);
return 1;
}
}
}
return 0;
}
void Frameworks_AddPath(const OSPathSpec *oss) {
Paths_AddPath(&FrameworkPaths, Path_New(oss));
}
int Frameworks_AddFramework(const char *name, const char *version, Boolean hidden) {
char fullname[256];
int i;
Path *p;
int n_paths;
OSSpec oss;
int err;
sprintf(fullname, "%s.framework", name);
n_paths = Paths_Count(&FrameworkPaths);
for (i = 0; i < n_paths; i++) {
p = Paths_GetPath(&FrameworkPaths, i);
err = OS_MakeSpecWithPath(p->spec, fullname, 0, &oss);
if (!err && OS_IsDir(&oss)) {
if (Frameworks_Add(&FrameworkInfo, Framework_New(&oss, name, version, p, hidden))) {
if (version && strlen(version)) {
sprintf(fullname, "Versions/%s/Frameworks", version);
err = OS_MakeSpecWithPath(&oss.path, fullname, 0, &oss);
} else {
err = OS_MakeSpecWithPath(&oss.path, "Frameworks", 0, &oss);
}
if (!err && OS_IsDir(&oss))
Frameworks_AddPath(&oss.path);
return 1;
}
}
}
return 0;
}
void Framework_GetEnvInfo() {
char path[256];
char *env;
char *ptr;
OSSpec spec;
char name[64];
char version[16];
int err;
Boolean is_file;
#line 672
OPTION_ASSERT(Paths_Initialize(&FrameworkPaths) == 1);
OPTION_ASSERT(Frameworks_Initialize(&FrameworkInfo) == 1);
env = getenv("MWFrameworkPaths");
if (env) {
while (*env) {
ptr = path;
while (*env && *env != ':' && (ptr + 1) < &path[sizeof(path)])
*(ptr++) = *(env++);
*ptr = 0;
while (*env && *env == ':')
env++;
if (path[0]) {
if (strlen(path) >= sizeof(path)) {
CLReportError(64, sizeof(path), path);
} else {
err = OS_MakeSpec(path, &spec, &is_file);
if (!is_file && !err) {
Frameworks_AddPath(&spec.path);
} else {
CLReportError(23, path);
}
}
}
}
}
env = getenv("MWFrameworkVersions");
if (env) {
while (*env) {
ptr = name;
while (*env && *env != ':' && (ptr + 1) < &name[sizeof(name)])
*(ptr++) = *(env++);
*ptr = 0;
while (*env && *env == ':')
env++;
ptr = version;
while (*env && *env != ',' && (ptr + 1) < &version[sizeof(version)])
*(ptr++) = *(env++);
*ptr = 0;
while (*env && *env == ',')
env++;
if (name[0])
Frameworks_AddFramework(name, version, 0);
}
}
}
int Frameworks_GetCount() {
return FrameworkInfo.fwsCount;
}
Paths_FWInfo *Frameworks_GetInfo(int which) {
#line 762
OPTION_ASSERT(FrameworkInfo.fwsArray);
OPTION_ASSERT(FrameworkInfo.fwsCount > which);
return FrameworkInfo.fwsArray[which];
}

165
command_line/CmdLine/Src/Project/CLFiles.c
View File

@ -0,0 +1,165 @@
#include "cmdline.h"
File *File_New() {
File *file;
file = xmalloc(NULL, sizeof(File));
if (!file) {
return NULL;
} else {
memset(file, 0, sizeof(File));
return file;
}
}
void File_Free(File *file) {
if (file) {
if (file->textdata) {
DisposeHandle(file->textdata);
file->textdata = NULL;
}
if (file->objectdata) {
DisposeHandle(file->objectdata);
file->objectdata = NULL;
}
if (file->browsedata) {
DisposeHandle(file->browsedata);
file->browsedata = NULL;
}
xfree(file);
}
}
Boolean Files_Initialize(Files *this) {
#line 47
OPTION_ASSERT(this != NULL);
return 1;
}
Boolean Files_Terminate(Files *this) {
File *file;
File *next;
#line 56
OPTION_ASSERT(this != NULL);
for (file = this->fileList; file; file = next) {
next = file->next;
File_Free(file);
}
return 1;
}
Boolean Files_AddFile(Files *this, File *file) {
return Files_InsertFile(this, file, this->fileCount);
}
Boolean Files_InsertFile(Files *this, File *file, SInt32 position) {
File **scan;
#line 80
OPTION_ASSERT(this != NULL);
OPTION_ASSERT(file != NULL);
if (position < 0)
position = 0;
else if (position > this->fileCount)
position = this->fileCount;
scan = &this->fileList;
while (position > 0) {
scan = &(*scan)->next;
position--;
}
file->filenum = this->fileCount++;
file->next = *scan;
*scan = file;
return 1;
}
File *Files_GetFile(Files *this, SInt32 filenum) {
File *file;
#line 104
OPTION_ASSERT(this != NULL);
OPTION_ASSERT(filenum >= 0);
file = this->fileList;
while (file && file->filenum != filenum)
file = file->next;
return file;
}
File *Files_FindFile(Files *this, OSSpec *spec) {
File *file;
file = this->fileList;
while (file && !OS_EqualSpec(&file->srcfss, spec))
file = file->next;
return file;
}
int Files_Count(Files *this) {
#line 127
OPTION_ASSERT(this != NULL);
return this->fileCount;
}
Boolean VFiles_Initialize(VFile **list) {
*list = NULL;
return 1;
}
void VFiles_Terminate(VFile **list) {
VFile *next;
while (*list) {
next = (*list)->next;
DisposeHandle((*list)->data);
xfree(*list);
list = &next;
}
*list = NULL;
}
VFile *VFile_New(const char *name, Handle data) {
VFile *vf;
vf = xmalloc(NULL, sizeof(VFile));
if (!vf)
return NULL;
strncpy(vf->displayName, name, sizeof(vf->displayName));
vf->displayName[sizeof(vf->displayName) - 1] = 0;
vf->data = NewHandle(0);
if (!vf->data || HandAndHand(data, vf->data)) {
xfree(vf);
return NULL;
}
FixTextHandle(vf->data);
vf->next = NULL;
return vf;
}
Boolean VFiles_Add(VFile **list, VFile *entry) {
VFile **scan = list;
while (*scan)
scan = &(*scan)->next;
*scan = entry;
return 1;
}
VFile *VFiles_Find(VFile *list, const char *name) {
VFile *scan = list;
while (scan) {
if (!strcmp(scan->displayName, name))
break;
scan = scan->next;
}
return scan;
}

296
command_line/CmdLine/Src/Project/CLOverlays.c
View File

@ -0,0 +1,296 @@
#include "cmdline.h"
Boolean Overlays_Initialize(Overlays *this) {
OvlGroup *grp;
Overlay *ovl;
OvlAddr addr;
SInt32 idx;
#line 24
OPTION_ASSERT(this);
this->groups = NULL;
this->lastgrp = NULL;
this->grpcnt = 0;
addr.hi = 0;
addr.lo = 0;
grp = OvlGroup_New("main_application", addr);
if (!grp)
return 0;
ovl = Overlay_New("MAIN");
if (!ovl)
return 0;
OvlGroup_AddOverlay(grp, ovl, &idx);
#line 42
OPTION_ASSERT(idx==0);
Overlays_AddOvlGroup(this, grp, &idx);
#line 45
OPTION_ASSERT(idx==0);
return 1;
}
Boolean Overlays_Terminate(Overlays *this) {
OvlGroup *grp;
OvlGroup *nxtgrp;
#line 54
OPTION_ASSERT(this);
for (grp = this->groups; grp; grp = nxtgrp) {
nxtgrp = grp->next;
OvlGroup_Delete(grp);
xfree(grp);
}
this->groups = NULL;
return 1;
}
Boolean Overlays_AddOvlGroup(Overlays *this, OvlGroup *grp, SInt32 *grpnum) {
#line 70
OPTION_ASSERT(this);
OPTION_ASSERT(grp);
if (this->groups == NULL)
this->groups = grp;
else
this->lastgrp->next = grp;
this->lastgrp = grp;
if (grpnum)
*grpnum = this->grpcnt;
this->grpcnt++;
return 1;
}
OvlGroup *Overlays_GetOvlGroup(Overlays *this, SInt32 grpnum) {
OvlGroup *grp;
SInt32 cnt = 0;
#line 93
OPTION_ASSERT(this);
grp = this->groups;
while (grp && cnt < grpnum) {
grp = grp->next;
cnt++;
}
if (cnt == grpnum)
return grp;
else
return NULL;
}
SInt32 Overlays_CountGroups(Overlays *this) {
OvlGroup *scan;
int num = 0;
#line 112
OPTION_ASSERT(this);
scan = this->groups;
while (scan) {
scan = scan->next;
num++;
}
return num;
}
Boolean Overlays_AddFileToOverlay(Overlays *this, SInt32 grpnum, SInt32 ovlnum, SInt32 filenum) {
Overlay *oly;
#line 130
OPTION_ASSERT(this);
oly = Overlays_GetOverlayInGroup(this, grpnum, ovlnum);
if (oly)
return Overlay_AddFile(oly, filenum, NULL);
else
return 0;
}
Overlay *Overlays_GetOverlayInGroup(Overlays *this, SInt32 grpnum, SInt32 ovlnum) {
OvlGroup *grp;
#line 144
OPTION_ASSERT(this);
grp = Overlays_GetOvlGroup(this, grpnum);
if (grp)
return OvlGroup_GetOverlay(grp, ovlnum);
else
return NULL;
}
SInt32 Overlays_GetFileInOverlay(Overlays *this, SInt32 grpnum, SInt32 ovlnum, SInt32 filnum) {
Overlay *oly;
#line 160
OPTION_ASSERT(this);
oly = Overlays_GetOverlayInGroup(this, grpnum, ovlnum);
if (oly)
return Overlay_GetFile(oly, filnum);
else
return -1;
}
OvlGroup *OvlGroup_New(const char *name, OvlAddr addr) {
OvlGroup *grp;
#line 175
OPTION_ASSERT(name);
grp = xmalloc(NULL, sizeof(OvlGroup));
if (grp) {
strncpy(grp->name, name, sizeof(grp->name));
grp->name[sizeof(grp->name) - 1] = 0;
grp->addr = addr;
grp->lastoly = NULL;
grp->olys = NULL;
grp->olycnt = 0;
grp->next = NULL;
} else {
#line 188
DO_INTERNAL_ERROR("Could not allocate %s", "overlay group");
}
return grp;
}
void OvlGroup_Delete(OvlGroup *grp) {
Overlay *scan;
Overlay *next;
#line 197
OPTION_ASSERT(grp);
for (scan = grp->olys; scan; scan = next) {
next = scan->next;
Overlay_Delete(scan);
xfree(scan);
}
grp->olys = NULL;
}
Boolean OvlGroup_AddOverlay(OvlGroup *this, Overlay *oly, SInt32 *olynum) {
#line 211
OPTION_ASSERT(this);
OPTION_ASSERT(oly);
if (!this->lastoly)
this->olys = oly;
else
this->lastoly->next = oly;
this->lastoly = oly;
if (olynum)
*olynum = this->olycnt;
this->olycnt++;
return 1;
}
Overlay *OvlGroup_GetOverlay(OvlGroup *this, SInt32 olynum) {
Overlay *oly;
SInt32 cnt = 0;
#line 234
OPTION_ASSERT(this);
oly = this->olys;
while (oly && cnt < olynum) {
oly = oly->next;
cnt++;
}
if (cnt == olynum)
return oly;
else
return NULL;
}
SInt32 OvlGroup_CountOverlays(OvlGroup *this) {
Overlay *scan;
int num = 0;
#line 254
OPTION_ASSERT(this);
scan = this->olys;
while (scan) {
scan = scan->next;
num++;
}
return num;
}
Overlay *Overlay_New(const char *name) {
Overlay *oly;
oly = xmalloc(NULL, sizeof(Overlay));
if (oly) {
strncpy(oly->name, name, sizeof(oly->name));
oly->name[sizeof(oly->name) - 1] = 0;
oly->list = NULL;
oly->max = 0;
oly->cnt = 0;
oly->next = NULL;
} else {
#line 281
DO_INTERNAL_ERROR("Could not allocate %s", "overlay");
}
return oly;
}
void Overlay_Delete(Overlay *oly) {
#line 288
OPTION_ASSERT(oly);
if (oly->list)
xfree(oly->list);
oly->list = NULL;
}
Boolean Overlay_AddFile(Overlay *oly, SInt32 filenum, SInt32 *filnum) {
#line 296
OPTION_ASSERT(oly);
if (oly->cnt >= oly->max) {
oly->max += 16;
oly->list = xrealloc("overlay file list", oly->list, sizeof(SInt32) * oly->max);
}
oly->list[oly->cnt] = filenum;
if (filnum)
*filnum = oly->cnt;
oly->cnt++;
return 1;
}
SInt32 Overlay_GetFile(Overlay *oly, SInt32 filnum) {
#line 314
OPTION_ASSERT(oly);
if (filnum < oly->cnt)
return oly->list[filnum];
else
return -1;
}
SInt32 Overlay_CountFiles(Overlay *oly) {
#line 323
OPTION_ASSERT(oly);
return oly->cnt;
}

16
command_line/CmdLine/Src/Project/CLProj.c
View File

@ -0,0 +1,16 @@
#include "cmdline.h"
Boolean Proj_Initialize(Project *this) {
this->targets = NULL;
OS_GetCWD(&this->projectDirectory.path);
OS_MakeNameSpec("", &this->projectDirectory.name);
return 1;
}
Boolean Proj_Terminate(Project *this) {
#line 25
OPTION_ASSERT(this != NULL);
Targets_Term(this->targets);
return 1;
}

123
command_line/CmdLine/Src/Project/CLSegs.c
View File

@ -0,0 +1,123 @@
#include "cmdline.h"
Segment *Segment_New(const char *name, UInt16 attrs) {
Segment *seg = xmalloc(NULL, sizeof(Segment));
strncpy(seg->name, name, sizeof(seg->name));
seg->name[sizeof(seg->name) - 1] = 0;
seg->attrs = attrs;
return seg;
}
void Segment_Free(Segment *seg) {
if (seg)
xfree(seg);
}
Boolean Segments_Initialize(Segments *segs) {
Segment *jump;
Segment *main;
UInt16 idx;
#line 36
OPTION_ASSERT(segs != NULL);
memset(segs, 0, sizeof(Segments));
segs->segsArray = NULL;
jump = Segment_New("Jump Table", 0x28);
Segments_AddSegment(segs, jump, &idx);
#line 44
OPTION_ASSERT(idx==0);
main = Segment_New("Main", 0xFFFF);
Segments_AddSegment(segs, main, &idx);
#line 49
OPTION_ASSERT(idx==1);
return 1;
}
Boolean Segments_Terminate(Segments *segs) {
UInt16 index;
#line 57
OPTION_ASSERT(segs != NULL);
if (segs->segsArray) {
for (index = 0; index < segs->segsCount; index++)
Segment_Free(segs->segsArray[index]);
xfree(segs->segsArray);
}
segs->segsArray = NULL;
return 1;
}
static Boolean Segments_GrowSegments(Segments *segs, UInt16 *index) {
Segment **newArray;
#line 78
OPTION_ASSERT(segs != NULL);
if (segs->segsCount >= segs->arraySize) {
segs->arraySize += 20;
newArray = xrealloc("segments", segs->segsArray, sizeof(Segment *) * segs->arraySize);
segs->segsArray = newArray;
}
*index = segs->segsCount++;
return 1;
}
Boolean Segments_AddSegment(Segments *segs, Segment *seg, UInt16 *index) {
UInt16 ni;
if (Segments_GrowSegments(segs, &ni)) {
segs->segsArray[ni] = seg;
*index = ni;
return 1;
} else {
return 0;
}
}
Boolean Segments_InsertSegment(Segments *segs, UInt16 index, Segment *seg) {
UInt16 ni;
if (Segments_GrowSegments(segs, &ni)) {
if (index > ni)
index = ni - 1;
memmove(&segs->segsArray[index + 1], &segs->segsArray[index], sizeof(Segment *) * (segs->segsCount - index));
segs->segsArray[index] = seg;
return 1;
} else {
return 0;
}
}
Boolean Segments_DeleteSegment(Segments *segs, UInt16 index) {
if (index >= segs->segsCount)
return 0;
Segment_Free(segs->segsArray[index]);
memmove(&segs->segsArray[index], &segs->segsArray[index + 1], sizeof(Segment *) * (segs->segsCount - index));
segs->segsCount--;
return 1;
}
Segment *Segments_GetSegment(Segments *segs, UInt16 segnum) {
#line 137
OPTION_ASSERT(segs != NULL);
if (segnum < segs->segsCount)
return segs->segsArray[segnum];
else
return NULL;
}
UInt16 Segments_Count(const Segments *segs) {
#line 147
OPTION_ASSERT(segs != NULL);
return segs->segsCount;
}

31
command_line/CmdLine/Src/uFileTypeMappings.c Normal file
View File

@ -0,0 +1,31 @@
#include "cmdline.h"
// I don't actually have a name for this file, annoyingly enough
void AddFileTypeMappingList(OSFileTypeMappings **list, const OSFileTypeMappingList *entry) {
OS_AddFileTypeMappingList(list, entry);
}
void UseFileTypeMappings(OSFileTypeMappings *list) {
OS_UseFileTypeMappings(list);
}
OSErr SetMacFileType(const FSSpec *spec, OSType mactype) {
OSSpec ospec;
OSErr err;
err = OS_FSSpec_To_OSSpec(spec, &ospec);
if (err)
return err;
return OS_SetMacFileType(&ospec, mactype);
}
OSErr GetMacFileType(const FSSpec *spec, OSType *mactype) {
OSSpec ospec;
OSErr err;
err = OS_FSSpec_To_OSSpec(spec, &ospec);
if (err)
return err;
return OS_GetMacFileType(&ospec, mactype);
}

0
command_line/CmdLine/Src/CLPluginAPI.c → compiler_and_linker/BackEnd/PowerPC/Disassembler/InstPPC.c
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/dumpmacho.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/4byte_literals.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/8byte_literals.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/coalesced_sections.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/cstring_literals.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/dylibs.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/fvmlibs.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/generic_reloc.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/hppa_reloc.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/i860_reloc.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/indirect_sections.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/layout.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/ld.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/literal_pointers.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/m68k_reloc.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/mod_sections.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/objects.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/pass1.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/pass2.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/ppc_reloc.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/sections.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/sparc_reloc.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/specs.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/ld/symbols.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/libstuff/arch.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/libstuff/best_arch.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/libstuff/bytesex.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/libstuff/get_arch_from_host.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/libstuff/get_toc_byte_sex.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/libstuff/guess_short_name.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/libstuff/hppa.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/libstuff/ofile.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/libstuff/reloc.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/libstuff/seg_addr_table.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/libstuff/set_arch_flag_name.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/libstuff/swap_headers.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/libstuff/version_number.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/misc/libtool.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/mwerks_allocate.c Normal file
View File

0
compiler_and_linker/BackEnd/PowerPC/MachLinker/mwerks_execute.c Normal file
View File

786
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsBackEnd.opt Normal file
View File

@ -0,0 +1,786 @@
/* forward declare */ extern OptionList alignPPC_conflicts;
/* forward declare */ extern OptionList tbtables_conflicts;
/* BackEnd */
SET_T optlstBackEnd882 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x2,
/* num = */ (char *) &pBackEnd.structalignment
};
Option alignPPC_883 = {
/* names = */ "power|powerpc",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstBackEnd882,
/* sub = */ 0,
/* conflicts = */ &alignPPC_conflicts,
/* help = */ "PowerPC alignment"
};
SET_T optlstBackEnd879 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pBackEnd.structalignment
};
Option alignPPC_880 = {
/* names = */ "mac68k",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstBackEnd879,
/* sub = */ 0,
/* conflicts = */ &alignPPC_conflicts,
/* help = */ "Macintosh 680x0 alignment"
};
SET_T optlstBackEnd876 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pBackEnd.structalignment
};
Option alignPPC_877 = {
/* names = */ "mac68k4byte",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstBackEnd876,
/* sub = */ 0,
/* conflicts = */ &alignPPC_conflicts,
/* help = */ "Mac 680x0 4-byte alignment"
};
GENERIC_T optlstBackEnd873 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &Opt_AddStringToDefines,
/* arg = */ (void *) "#pragma align_array_members on\n",
/* help = */ 0
};
Option optlstBackEnd_874 = {
/* names = */ "array|arraymembers",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd873,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "align members of arrays"
};
Option *optlstBackEnd_884_list[] = {
&alignPPC_883,
&alignPPC_880,
&alignPPC_877,
&optlstBackEnd_874,
0
};
OptionList optlstBackEnd_884 = {
/* help = */ 0,
/* flags = */ LISTFLAGS_COMPILER,
/* list = */ optlstBackEnd_884_list
};
Option optlstBackEnd_885 = {
/* names = */ "align",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_SUB_OPTIONS,
/* param = */ 0,
/* sub = */ &optlstBackEnd_884,
/* conflicts = */ 0,
/* help = */ "specify structure/array alignment options"
};
ONOFF_T optlstBackEnd887 = {
/* which = */ PARAMWHICH_OnOff,
/* flags = */ 0x00,
/* myname = */ 0,
/* next = */ 0,
/* var = */ &pBackEnd.common
};
Option optlstBackEnd_888 = {
/* names = */ "common",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd887,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "common variables"
};
SET_T optlstBackEnd891 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pBackEnd.dynamic
};
Option optlstBackEnd_892 = {
/* names = */ "dynamic",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd891,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "dynamic addressing mode"
};
ONOFF_T optlstBackEnd894 = {
/* which = */ PARAMWHICH_OnOff,
/* flags = */ 0x00,
/* myname = */ 0,
/* next = */ 0,
/* var = */ &pBackEnd.fpcontract
};
Option optlstBackEnd_895 = {
/* names = */ "fp_contract",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd894,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "generate fused multiply-add instructions"
};
ONOFF_T optlstBackEnd897 = {
/* which = */ PARAMWHICH_OnOff,
/* flags = */ 0x00,
/* myname = */ 0,
/* next = */ 0,
/* var = */ &pBackEnd.implicit_templates
};
Option optlstBackEnd_898 = {
/* names = */ "imp_templates",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd897,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "implicit templates"
};
ONOFF_T optlstBackEnd900 = {
/* which = */ PARAMWHICH_OnOff,
/* flags = */ 0x00,
/* myname = */ 0,
/* next = */ 0,
/* var = */ &pBackEnd.pic
};
Option optlstBackEnd_901 = {
/* names = */ "pic",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd900,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "generate position independent code"
};
/* forward declare */ extern OptionList optlstBackEnd_932_conflicts;
SET_T optlstBackEnd930 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pBackEnd.processor
};
Option optlstBackEnd_932_931 = {
/* names = */ "generic||ppc|power|powerc",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstBackEnd930,
/* sub = */ 0,
/* conflicts = */ &optlstBackEnd_932_conflicts,
/* help = */ "generic PowerPC"
};
SET_T optlstBackEnd927 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pBackEnd.processor
};
Option optlstBackEnd_932_928 = {
/* names = */ "601",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstBackEnd927,
/* sub = */ 0,
/* conflicts = */ &optlstBackEnd_932_conflicts,
/* help = */ "PPC 601"
};
SET_T optlstBackEnd924 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x2,
/* num = */ (char *) &pBackEnd.processor
};
Option optlstBackEnd_932_925 = {
/* names = */ "603",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstBackEnd924,
/* sub = */ 0,
/* conflicts = */ &optlstBackEnd_932_conflicts,
/* help = */ "PPC 603"
};
SET_T optlstBackEnd921 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x3,
/* num = */ (char *) &pBackEnd.processor
};
Option optlstBackEnd_932_922 = {
/* names = */ "603e",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstBackEnd921,
/* sub = */ 0,
/* conflicts = */ &optlstBackEnd_932_conflicts,
/* help = */ "PPC 603e"
};
SET_T optlstBackEnd918 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x4,
/* num = */ (char *) &pBackEnd.processor
};
Option optlstBackEnd_932_919 = {
/* names = */ "604",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstBackEnd918,
/* sub = */ 0,
/* conflicts = */ &optlstBackEnd_932_conflicts,
/* help = */ "PPC 604"
};
SET_T optlstBackEnd915 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x5,
/* num = */ (char *) &pBackEnd.processor
};
Option optlstBackEnd_932_916 = {
/* names = */ "604e",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstBackEnd915,
/* sub = */ 0,
/* conflicts = */ &optlstBackEnd_932_conflicts,
/* help = */ "PPC 604e"
};
SET_T optlstBackEnd912 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x6,
/* num = */ (char *) &pBackEnd.processor
};
Option optlstBackEnd_932_913 = {
/* names = */ "750",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstBackEnd912,
/* sub = */ 0,
/* conflicts = */ &optlstBackEnd_932_conflicts,
/* help = */ "PPC 750"
};
SET_T optlstBackEnd909 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x7,
/* num = */ (char *) &pBackEnd.processor
};
Option optlstBackEnd_932_910 = {
/* names = */ "7400",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstBackEnd909,
/* sub = */ 0,
/* conflicts = */ &optlstBackEnd_932_conflicts,
/* help = */ "PPC 7400 (AltiVec)"
};
SET_T optlstBackEnd906 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x8,
/* num = */ (char *) &pBackEnd.processor
};
Option optlstBackEnd_932_907 = {
/* names = */ "7450",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstBackEnd906,
/* sub = */ 0,
/* conflicts = */ &optlstBackEnd_932_conflicts,
/* help = */ "PPC 7450 (AltiVec)"
};
SET_T optlstBackEnd903 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x7,
/* num = */ (char *) &pBackEnd.processor
};
Option optlstBackEnd_932_904 = {
/* names = */ "altivec",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstBackEnd903,
/* sub = */ 0,
/* conflicts = */ &optlstBackEnd_932_conflicts,
/* help = */ "Altivec"
};
Option *optlstBackEnd_932_list[] = {
&optlstBackEnd_932_931,
&optlstBackEnd_932_928,
&optlstBackEnd_932_925,
&optlstBackEnd_932_922,
&optlstBackEnd_932_919,
&optlstBackEnd_932_916,
&optlstBackEnd_932_913,
&optlstBackEnd_932_910,
&optlstBackEnd_932_907,
&optlstBackEnd_932_904,
0
};
OptionList optlstBackEnd_932 = {
/* help = */ 0,
/* flags = */ LISTFLAGS_EXCLUSIVE | LISTFLAGS_COMPILER,
/* list = */ optlstBackEnd_932_list
};
OptionList optlstBackEnd_932_conflicts = {
/* help = */ 0,
/* flags = */ LISTFLAGS_EXCLUSIVE | LISTFLAGS_COMPILER,
/* list = */ optlstBackEnd_932_list
};
Option optlstBackEnd_933 = {
/* names = */ "proc|processor||scheduling|target",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_SUB_OPTIONS,
/* param = */ 0,
/* sub = */ &optlstBackEnd_932,
/* conflicts = */ 0,
/* help = */ "specify target processor; currently used only for scheduling"
};
ONOFF_T optlstBackEnd935 = {
/* which = */ PARAMWHICH_OnOff,
/* flags = */ 0x00,
/* myname = */ 0,
/* next = */ 0,
/* var = */ &pBackEnd.profiler
};
Option optlstBackEnd_936 = {
/* names = */ "profile",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd935,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "enable calls to profiler"
};
SET_T optlstBackEnd939 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pBackEnd.readonlystrings
};
Option optlstBackEnd_940 = {
/* names = */ "rostr|readonlystrings",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd939,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "make string constants read-only"
};
/* forward declare */ extern OptionList optlstBackEnd_950_conflicts;
SET_T optlstBackEnd948 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pBackEnd.tracebacktables
};
Option optlstBackEnd_950_949 = {
/* names = */ "none",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstBackEnd948,
/* sub = */ 0,
/* conflicts = */ &optlstBackEnd_950_conflicts,
/* help = */ "don't generate traceback tables"
};
SET_T optlstBackEnd945 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pBackEnd.tracebacktables
};
Option optlstBackEnd_950_946 = {
/* names = */ "inline",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstBackEnd945,
/* sub = */ 0,
/* conflicts = */ &optlstBackEnd_950_conflicts,
/* help = */ "generate inline traceback tables"
};
SET_T optlstBackEnd942 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x2,
/* num = */ (char *) &pBackEnd.tracebacktables
};
Option optlstBackEnd_950_943 = {
/* names = */ "outofline",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstBackEnd942,
/* sub = */ 0,
/* conflicts = */ &optlstBackEnd_950_conflicts,
/* help = */ "generate out-of-line traceback tables"
};
Option *optlstBackEnd_950_list[] = {
&optlstBackEnd_950_949,
&optlstBackEnd_950_946,
&optlstBackEnd_950_943,
0
};
OptionList optlstBackEnd_950 = {
/* help = */ 0,
/* flags = */ LISTFLAGS_EXCLUSIVE | LISTFLAGS_COMPILER,
/* list = */ optlstBackEnd_950_list
};
OptionList optlstBackEnd_950_conflicts = {
/* help = */ 0,
/* flags = */ LISTFLAGS_EXCLUSIVE | LISTFLAGS_COMPILER,
/* list = */ optlstBackEnd_950_list
};
Option tbtables_951 = {
/* names = */ "tbtable",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_SUB_OPTIONS | OTF_HAS_CONFLICTS,
/* param = */ 0,
/* sub = */ &optlstBackEnd_950,
/* conflicts = */ &tbtables_conflicts,
/* help = */ "specify traceback tables generation"
};
Option optlstBackEnd_964 = {
/* names = */ "on",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ 0,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "turn on support for vector types / codegen"
};
SET_T optlstBackEnd962 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pBackEnd.altivec
};
Option optlstBackEnd_963 = {
/* names = */ "off",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd962,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "turn off vectorization"
};
SET_T optlstBackEnd958 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pBackEnd.vrsave
};
Option optlstBackEnd_959 = {
/* names = */ "vrsave",
/* avail = */ OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd958,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "use VRSAVE prologue/epilogue code"
};
SET_T optlstBackEnd954 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pBackEnd.autovectorize
};
Option optlstBackEnd_955 = {
/* names = */ "auto",
/* avail = */ OTF_SECRET | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd954,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "auto-vectorize"
};
Option *optlstBackEnd_965_list[] = {
&optlstBackEnd_964,
&optlstBackEnd_963,
&optlstBackEnd_959,
&optlstBackEnd_955,
0
};
OptionList optlstBackEnd_965 = {
/* help = */ 0,
/* flags = */ LISTFLAGS_COMPILER,
/* list = */ optlstBackEnd_965_list
};
SET_T optlstBackEnd968 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pBackEnd.altivec
};
Option optlstBackEnd_969 = {
/* names = */ "vector",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_SUB_OPTIONS,
/* param = */ (PARAM_T *) &optlstBackEnd968,
/* sub = */ &optlstBackEnd_965,
/* conflicts = */ 0,
/* help = */ "specify Altivec options"
};
SET_T optlstBackEnd972 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pBackEnd.dynamic
};
Option optlstBackEnd_973 = {
/* names = */ "static",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd972,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "static addressing mode"
};
SET_T optlstBackEnd976 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pBackEnd.altivec
};
Option optlstBackEnd_977 = {
/* names = */ "faltivec",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd976,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "turn on support for vector types / codegen"
};
SET_T optlstBackEnd980 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pBackEnd.altivec
};
Option optlstBackEnd_981 = {
/* names = */ "fno-altivec",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd980,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "turn off support for vector types / codegen"
};
SET_T optlstBackEnd984 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pBackEnd.common
};
Option optlstBackEnd_985 = {
/* names = */ "fcommon",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd984,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "allow common variable definitions"
};
SET_T optlstBackEnd988 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pBackEnd.common
};
Option optlstBackEnd_989 = {
/* names = */ "fno-common",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd988,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "dont allow common variable definitions"
};
SET_T optlstBackEnd992 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pBackEnd.pic
};
Option optlstBackEnd_993 = {
/* names = */ "fpic",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd992,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "generate position independent code"
};
SET_T optlstBackEnd996 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pBackEnd.pic
};
Option optlstBackEnd_997 = {
/* names = */ "fno-pic",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd996,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "dont generate position independent code"
};
SET_T optlstBackEnd1000 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pBackEnd.readonlystrings
};
Option optlstBackEnd_1001 = {
/* names = */ "fwritable-strings",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd1000,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "string constants are writable"
};
SET_T optlstBackEnd1004 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pBackEnd.implicit_templates
};
Option optlstBackEnd_1005 = {
/* names = */ "fimplicit-templates",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd1004,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "implicit templates"
};
SET_T optlstBackEnd1008 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pBackEnd.implicit_templates
};
Option optlstBackEnd_1009 = {
/* names = */ "fno-implicit-templates",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstBackEnd1008,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "no implicit templates"
};
Option *optlstBackEnd_1010_list[] = {
&optlstBackEnd_885,
&optlstBackEnd_888,
&optlstBackEnd_892,
&optlstBackEnd_895,
&optlstBackEnd_898,
&optlstBackEnd_901,
&optlstBackEnd_933,
&optlstBackEnd_936,
&optlstBackEnd_940,
&tbtables_951,
&optlstBackEnd_969,
&optlstBackEnd_973,
&optlstBackEnd_977,
&optlstBackEnd_981,
&optlstBackEnd_985,
&optlstBackEnd_989,
&optlstBackEnd_993,
&optlstBackEnd_997,
&optlstBackEnd_1001,
&optlstBackEnd_1005,
&optlstBackEnd_1009,
0
};
OptionList optlstBackEnd = {
/* help = */ "Mach-O PowerPC CodeGen Options\n",
/* flags = */ LISTFLAGS_COMPILER,
/* list = */ optlstBackEnd_1010_list
};
Option *alignPPC_000_list[] = {
&alignPPC_883,
&alignPPC_880,
&alignPPC_877,
0
};
OptionList alignPPC_conflicts = {
/* help = */ 0,
/* flags = */ 0,
/* list = */ alignPPC_000_list
};
Option *tbtables_001_list[] = {
&tbtables_951,
0
};
OptionList tbtables_conflicts = {
/* help = */ 0,
/* flags = */ 0,
/* list = */ tbtables_001_list
};

809
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsCmdLine.opt Normal file
View File

@ -0,0 +1,809 @@
/* forward declare */ extern OptionList helpAllNormal_conflicts;
/* forward declare */ extern OptionList helpkey_conflicts;
/* forward declare */ extern OptionList helpTool_conflicts;
/* CmdLine */
MASK_T optlstCmdLine070 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* ormask = */ 0x4000,
/* andmask = */ 0x0,
/* num = */ &parseopts.helpFlags
};
Option optlstCmdLine_071 = {
/* names = */ "usage",
/* avail = */ OTF_GLOBAL | OTF_HIDE_DEFAULT | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstCmdLine070,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "show usage information"
};
MASK_T optlstCmdLine066 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* ormask = */ 0x100,
/* andmask = */ 0x0,
/* num = */ &parseopts.helpFlags
};
Option optlstCmdLine_067 = {
/* names = */ "spaces",
/* avail = */ OTF_GLOBAL | OTF_HIDE_DEFAULT | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstCmdLine066,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "insert blank lines between options in printout"
};
MASK_T optlstCmdLine062 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* ormask = */ 0x6A,
/* andmask = */ 0x0,
/* num = */ &parseopts.helpFlags
};
Option helpAllNormal_063 = {
/* names = */ "all",
/* avail = */ OTF_GLOBAL | OTF_HIDE_DEFAULT | OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstCmdLine062,
/* sub = */ 0,
/* conflicts = */ &helpAllNormal_conflicts,
/* help = */ "show all standard options"
};
MASK_T optlstCmdLine058 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* ormask = */ 0x80,
/* andmask = */ 0xE,
/* num = */ &parseopts.helpFlags
};
Option helpAllNormal_059 = {
/* names = */ "normal",
/* avail = */ OTF_GLOBAL | OTF_HIDE_DEFAULT | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstCmdLine058,
/* sub = */ 0,
/* conflicts = */ &helpAllNormal_conflicts,
/* help = */ "show only standard options"
};
MASK_T optlstCmdLine055 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* ormask = */ 0x4,
/* andmask = */ 0x0,
/* num = */ &parseopts.helpFlags
};
Option optlstCmdLine_056 = {
/* names = */ "obsolete",
/* avail = */ OTF_GLOBAL | OTF_HIDE_DEFAULT | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstCmdLine055,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "show obsolete options"
};
MASK_T optlstCmdLine051 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* ormask = */ 0x2,
/* andmask = */ 0x0,
/* num = */ &parseopts.helpFlags
};
Option optlstCmdLine_052 = {
/* names = */ "ignored",
/* avail = */ OTF_GLOBAL | OTF_HIDE_DEFAULT | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstCmdLine051,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "show ignored options"
};
MASK_T optlstCmdLine047 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* ormask = */ 0x8,
/* andmask = */ 0x0,
/* num = */ &parseopts.helpFlags
};
Option optlstCmdLine_048 = {
/* names = */ "deprecated",
/* avail = */ OTF_GLOBAL | OTF_HIDE_DEFAULT | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstCmdLine047,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "show deprecated options"
};
MASK_T optlstCmdLine043 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* ormask = */ 0x20,
/* andmask = */ 0x0,
/* num = */ &parseopts.helpFlags
};
Option optlstCmdLine_044 = {
/* names = */ "meaningless",
/* avail = */ OTF_GLOBAL | OTF_HIDE_DEFAULT | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstCmdLine043,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "show options meaningless for this target"
};
MASK_T optlstCmdLine039 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* ormask = */ 0x40,
/* andmask = */ 0x0,
/* num = */ &parseopts.helpFlags
};
Option optlstCmdLine_040 = {
/* names = */ "compatible",
/* avail = */ OTF_GLOBAL | OTF_HIDE_DEFAULT | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstCmdLine039,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "show compatibility options"
};
MASK_T optlstCmdLine035 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* ormask = */ 0x10,
/* andmask = */ 0x0,
/* num = */ &parseopts.helpFlags
};
Option optlstCmdLine_036 = {
/* names = */ "secret",
/* avail = */ OTF_GLOBAL | OTF_SECRET | OTF_HIDE_DEFAULT | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstCmdLine035,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ 0
};
MASK_T optlstCmdLine029 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* ormask = */ 0x1,
/* andmask = */ 0x0,
/* num = */ &parseopts.helpFlags
};
STRING_T optlstCmdLine031 = {
/* which = */ PARAMWHICH_String,
/* flags = */ 0x00,
/* myname = */ "name",
/* next = */ (PARAM_T *) &optlstCmdLine029,
/* maxlen = */ 64,
/* pstring = */ 0,
/* str = */ parseopts.helpKey
};
Option helpkey_032 = {
/* names = */ "opt|option",
/* avail = */ OTF_GLOBAL | OTF_HIDE_DEFAULT | OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstCmdLine031,
/* sub = */ 0,
/* conflicts = */ &helpkey_conflicts,
/* help = */ "show help for a given option"
};
STRING_T optlstCmdLine025 = {
/* which = */ PARAMWHICH_String,
/* flags = */ 0x00,
/* myname = */ "keyword",
/* next = */ 0,
/* maxlen = */ 64,
/* pstring = */ 0,
/* str = */ parseopts.helpKey
};
Option helpkey_026 = {
/* names = */ "search",
/* avail = */ OTF_GLOBAL | OTF_HIDE_DEFAULT | OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstCmdLine025,
/* sub = */ 0,
/* conflicts = */ &helpkey_conflicts,
/* help = */ "show help for an option whose name or help contains 'keyword' (case-sensitive)"
};
MASK_T optlstCmdLine020 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* ormask = */ 0x8000,
/* andmask = */ 0x0,
/* num = */ &parseopts.helpFlags
};
STRING_T optlstCmdLine022 = {
/* which = */ PARAMWHICH_String,
/* flags = */ 0x00,
/* myname = */ "keyword",
/* next = */ (PARAM_T *) &optlstCmdLine020,
/* maxlen = */ 64,
/* pstring = */ 0,
/* str = */ parseopts.helpKey
};
Option helpkey_023 = {
/* names = */ "group",
/* avail = */ OTF_GLOBAL | OTF_HIDE_DEFAULT | OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstCmdLine022,
/* sub = */ 0,
/* conflicts = */ &helpkey_conflicts,
/* help = */ "show help for groups whose names contain 'keyword' (case-sensitive)"
};
MASK_T optlstCmdLine011 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* ormask = */ 0xC00,
/* andmask = */ 0x0,
/* num = */ &parseopts.helpFlags
};
Option helpTool_012 = {
/* names = */ "all",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstCmdLine011,
/* sub = */ 0,
/* conflicts = */ &helpTool_conflicts,
/* help = */ "show all options available in this tool"
};
MASK_T optlstCmdLine007 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* ormask = */ 0x400,
/* andmask = */ 0x800,
/* num = */ &parseopts.helpFlags
};
Option helpTool_008 = {
/* names = */ "this",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstCmdLine007,
/* sub = */ 0,
/* conflicts = */ &helpTool_conflicts,
/* help = */ "show options executed by this tool"
};
MASK_T optlstCmdLine004 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* ormask = */ 0x800,
/* andmask = */ 0x400,
/* num = */ &parseopts.helpFlags
};
Option helpTool_005 = {
/* names = */ "other|skipped",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstCmdLine004,
/* sub = */ 0,
/* conflicts = */ &helpTool_conflicts,
/* help = */ "show options passed to another tool"
};
MASK_T optlstCmdLine001 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* ormask = */ 0xC00,
/* andmask = */ 0x200,
/* num = */ &parseopts.helpFlags
};
Option helpTool_002 = {
/* names = */ "both",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstCmdLine001,
/* sub = */ 0,
/* conflicts = */ &helpTool_conflicts,
/* help = */ "show options used in all tools"
};
Option *optlstCmdLine_013_list[] = {
&helpTool_012,
&helpTool_008,
&helpTool_005,
&helpTool_002,
0
};
OptionList optlstCmdLine_013 = {
/* help = */ 0,
/* flags = */ LISTFLAGS_COMPILER,
/* list = */ optlstCmdLine_013_list
};
MASK_T optlstCmdLine016 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* ormask = */ 0x200,
/* andmask = */ 0x0,
/* num = */ &parseopts.helpFlags
};
Option optlstCmdLine_017 = {
/* names = */ "tool",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_HAS_SUB_OPTIONS,
/* param = */ (PARAM_T *) &optlstCmdLine016,
/* sub = */ &optlstCmdLine_013,
/* conflicts = */ 0,
/* help = */ "categorize groups of options by tool"
};
Option *optlstCmdLine_072_list[] = {
&optlstCmdLine_071,
&optlstCmdLine_067,
&helpAllNormal_063,
&helpAllNormal_059,
&optlstCmdLine_056,
&optlstCmdLine_052,
&optlstCmdLine_048,
&optlstCmdLine_044,
&optlstCmdLine_040,
&optlstCmdLine_036,
&helpkey_032,
&helpkey_026,
&helpkey_023,
&optlstCmdLine_017,
0
};
OptionList optlstCmdLine_072 = {
/* help = */ 0,
/* flags = */ LISTFLAGS_COMPILER,
/* list = */ optlstCmdLine_072_list
};
MASK_T optlstCmdLine075 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* ormask = */ 0x680,
/* andmask = */ 0x0,
/* num = */ &parseopts.helpFlags
};
SET_T optlstCmdLine078 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstCmdLine075,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &parseopts.hadAnyOutput
};
SET_T optlstCmdLine081 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstCmdLine078,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &parseopts.showHelp
};
Option optlstCmdLine_082 = {
/* names = */ "help||-help",
/* avail = */ OTF_GLOBAL | OTF_HIDE_DEFAULT | OTF_ONLY_ONCE | OTF_TOOL_COMPILER | OTF_HAS_SUB_OPTIONS | OTF_SUB_OPTIONS_OPTIONAL,
/* param = */ (PARAM_T *) &optlstCmdLine081,
/* sub = */ &optlstCmdLine_072,
/* conflicts = */ 0,
/* help = */ "display help"
};
SET_T optlstCmdLine085 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &parseopts.hadAnyOutput
};
GENERIC_T optlstCmdLine087 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstCmdLine085,
/* parse = */ &Opt_PrintVersion,
/* arg = */ (void *) 0,
/* help = */ 0
};
Option optlstCmdLine_088 = {
/* names = */ "version",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstCmdLine087,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "show version, configuration, and build date"
};
SET_T optlstCmdLine091 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pCmdLine.timeWorking
};
Option optlstCmdLine_092 = {
/* names = */ "timing",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstCmdLine091,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "collect timing statistics"
};
GENERIC_T optlstCmdLine094 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &Opt_PrintVersion,
/* arg = */ (void *) 0,
/* help = */ 0
};
SET_T optlstCmdLine096 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstCmdLine094,
/* size = */ 2,
/* value = */ 0x1,
/* num = */ (char *) &pCmdLine.verbose
};
Option optlstCmdLine_progress = {
/* names = */ "progress",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstCmdLine096,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "show progress and version"
};
GENERIC_T optlstCmdLine099 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &Opt_PrintVersion,
/* arg = */ (void *) 0,
/* help = */ 0
};
GENERIC_T optlstCmdLine101 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstCmdLine099,
/* parse = */ &Opt_IncreaseVerbosity,
/* arg = */ (void *) 0,
/* help = */ 0
};
Option optlstCmdLine_102 = {
/* names = */ "v|verbose",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstCmdLine101,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "verbose information; cumulative; implies ~~progress"
};
SET_T optlstCmdLine105 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &parseopts.alwaysUsePaths
};
Option optlstCmdLine_106 = {
/* names = */ "search",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstCmdLine105,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "search access paths for source files specified on the command line; may specify object code and libraries as well; this option provides the IDE's 'access paths' functionality"
};
SET_T optlstCmdLine109 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pCmdLine.showLines
};
Option optlstCmdLine_110 = {
/* names = */ "lines",
/* avail = */ OTF_GLOBAL | OTF_SECRET | OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstCmdLine109,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "show line count"
};
SET_T optlstCmdLine113 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pCmdLine.noWrapOutput
};
Option optlstCmdLine_114 = {
/* names = */ "wraplines",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstCmdLine113,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "word wrap messages"
};
NUM_T optlstCmdLine116 = {
/* which = */ PARAMWHICH_Number,
/* flags = */ 0x00,
/* myname = */ "max",
/* next = */ 0,
/* size = */ 2,
/* fit = */ 0,
/* lo = */ 0,
/* hi = */ 0,
/* num = */ &pCmdLine.maxErrors
};
Option optlstCmdLine_117 = {
/* names = */ "maxerrors",
/* avail = */ OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstCmdLine116,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "specify maximum number of errors to print, zero means no maximum"
};
NUM_T optlstCmdLine119 = {
/* which = */ PARAMWHICH_Number,
/* flags = */ 0x00,
/* myname = */ "max",
/* next = */ 0,
/* size = */ 2,
/* fit = */ 0,
/* lo = */ 0,
/* hi = */ 0,
/* num = */ &pCmdLine.maxWarnings
};
Option optlstCmdLine_120 = {
/* names = */ "maxwarnings",
/* avail = */ OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstCmdLine119,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "specify maximum number of warnings to print, zero means no maximum"
};
/* forward declare */ extern OptionList optlstCmdLine_136_conflicts;
SET_T optlstCmdLine134 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 2,
/* value = */ 0x2,
/* num = */ (char *) &pCmdLine.msgStyle
};
Option optlstCmdLine_136_135 = {
/* names = */ "mpw",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstCmdLine134,
/* sub = */ 0,
/* conflicts = */ &optlstCmdLine_136_conflicts,
/* help = */ "use MPW message style"
};
SET_T optlstCmdLine131 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 2,
/* value = */ 0x0,
/* num = */ (char *) &pCmdLine.msgStyle
};
Option optlstCmdLine_136_132 = {
/* names = */ "std",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstCmdLine131,
/* sub = */ 0,
/* conflicts = */ &optlstCmdLine_136_conflicts,
/* help = */ "use standard message style"
};
SET_T optlstCmdLine128 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 2,
/* value = */ 0x1,
/* num = */ (char *) &pCmdLine.msgStyle
};
Option optlstCmdLine_136_129 = {
/* names = */ "gcc",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstCmdLine128,
/* sub = */ 0,
/* conflicts = */ &optlstCmdLine_136_conflicts,
/* help = */ "use GCC-like message style"
};
SET_T optlstCmdLine125 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 2,
/* value = */ 0x3,
/* num = */ (char *) &pCmdLine.msgStyle
};
Option optlstCmdLine_136_126 = {
/* names = */ "IDE",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstCmdLine125,
/* sub = */ 0,
/* conflicts = */ &optlstCmdLine_136_conflicts,
/* help = */ "use CW IDE-like message style"
};
SET_T optlstCmdLine122 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 2,
/* value = */ 0x4,
/* num = */ (char *) &pCmdLine.msgStyle
};
Option optlstCmdLine_136_123 = {
/* names = */ "parseable",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstCmdLine122,
/* sub = */ 0,
/* conflicts = */ &optlstCmdLine_136_conflicts,
/* help = */ "use context-free machine-parseable message style"
};
Option *optlstCmdLine_136_list[] = {
&optlstCmdLine_136_135,
&optlstCmdLine_136_132,
&optlstCmdLine_136_129,
&optlstCmdLine_136_126,
&optlstCmdLine_136_123,
0
};
OptionList optlstCmdLine_136 = {
/* help = */ 0,
/* flags = */ LISTFLAGS_EXCLUSIVE | LISTFLAGS_COMPILER | LISTFLAGS_LINKER | LISTFLAGS_DISASSEMBLER,
/* list = */ optlstCmdLine_136_list
};
OptionList optlstCmdLine_136_conflicts = {
/* help = */ 0,
/* flags = */ LISTFLAGS_EXCLUSIVE | LISTFLAGS_COMPILER | LISTFLAGS_LINKER | LISTFLAGS_DISASSEMBLER,
/* list = */ optlstCmdLine_136_list
};
Option optlstCmdLine_137 = {
/* names = */ "msgstyle",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER | OTF_HAS_SUB_OPTIONS,
/* param = */ 0,
/* sub = */ &optlstCmdLine_136,
/* conflicts = */ 0,
/* help = */ "set error/warning message style"
};
GENERIC_T optlstCmdLine139 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &Opt_SavePrefs,
/* arg = */ (void *) 0,
/* help = */ 0
};
SET_T optlstCmdLine142 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstCmdLine139,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pCmdLine.stderr2stdout
};
Option optlstCmdLine_143 = {
/* names = */ "stderr",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstCmdLine142,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "use separate stderr and stdout streams; if using ~~nostderr, stderr goes to stdout"
};
GENERIC_T optlstCmdLine145 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &Opt_FindAndAddFile,
/* arg = */ (void *) 0,
/* help = */ 0
};
Option optlstCmdLine_146 = {
/* names = */ "",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstCmdLine145,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ 0
};
Option *optlstCmdLine_147_list[] = {
&optlstCmdLine_082,
&optlstCmdLine_088,
&optlstCmdLine_092,
&optlstCmdLine_progress,
&optlstCmdLine_102,
&optlstCmdLine_106,
&optlstCmdLine_110,
&optlstCmdLine_114,
&optlstCmdLine_117,
&optlstCmdLine_120,
&optlstCmdLine_137,
&optlstCmdLine_143,
&optlstCmdLine_146,
0
};
OptionList optlstCmdLine = {
/* help = */ "General Command-Line Options\n\tAll the options are passed to the linker unless otherwise noted.\b\tPlease see '~~help usage' for details about the meaning of this help.\b",
/* flags = */ LISTFLAGS_COMPILER | LISTFLAGS_LINKER | LISTFLAGS_DISASSEMBLER,
/* list = */ optlstCmdLine_147_list
};
Option *helpAllNormal_000_list[] = {
&helpAllNormal_063,
&helpAllNormal_059,
0
};
OptionList helpAllNormal_conflicts = {
/* help = */ 0,
/* flags = */ 0,
/* list = */ helpAllNormal_000_list
};
Option *helpkey_001_list[] = {
&helpkey_032,
&helpkey_026,
&helpkey_023,
0
};
OptionList helpkey_conflicts = {
/* help = */ 0,
/* flags = */ 0,
/* list = */ helpkey_001_list
};
Option *helpTool_002_list[] = {
&helpTool_012,
&helpTool_008,
&helpTool_005,
&helpTool_002,
0
};
OptionList helpTool_conflicts = {
/* help = */ 0,
/* flags = */ 0,
/* list = */ helpTool_002_list
};

1028
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsCmdLineCompiler.opt Normal file
View File

File diff suppressed because it is too large Load Diff

199
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsCmdLineLinker.opt Normal file
View File

@ -0,0 +1,199 @@
/* CmdLineLinker */
GENERIC_T optlstCmdLineLinker346 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &Opt_SetStage,
/* arg = */ (void *) "Ds",
/* help = */ 0
};
SET_T optlstCmdLineLinker349 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstCmdLineLinker346,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ 0
};
SET_T optlstCmdLineLinker351 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstCmdLineLinker349,
/* size = */ 2,
/* value = */ 0x2,
/* num = */ (char *) &pCmdLine.state
};
Option optlstCmdLineLinker_352 = {
/* names = */ "dis|disassemble",
/* avail = */ OTF_GLOBAL | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstCmdLineLinker351,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "disassemble object code and do not link; implies '~~nostdlib'"
};
GENERIC_T optlstCmdLineLinker354 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x00,
/* myname = */ "path",
/* next = */ 0,
/* parse = */ &Opt_DummyLinkerRoutine,
/* arg = */ (void *) 0,
/* help = */ 0
};
Option optlstCmdLineLinker_355 = {
/* names = */ "L|l",
/* avail = */ OTF_GLOBAL | OTF_STICKY | OTF_CASED | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstCmdLineLinker354,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "add library search path; default is to search current working directory and then system directories (see '~~defaults'); search paths have global scope over the command line and are searched in the order given"
};
GENERIC_T optlstCmdLineLinker357 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x00,
/* myname = */ "path",
/* next = */ 0,
/* parse = */ &Opt_DummyLinkerRoutine,
/* arg = */ (void *) 1,
/* help = */ 0
};
Option optlstCmdLineLinker_358 = {
/* names = */ "lr",
/* avail = */ OTF_GLOBAL | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstCmdLineLinker357,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "like '~~l', but add recursive library search path"
};
GENERIC_T optlstCmdLineLinker360 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x00,
/* myname = */ "file",
/* next = */ 0,
/* parse = */ &Opt_DummyLinkerRoutine,
/* arg = */ (void *) 0,
/* help = */ 0
};
Option optlstCmdLineLinker_361 = {
/* names = */ "l",
/* avail = */ OTF_STICKY | OTF_CASED | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstCmdLineLinker360,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "add a library by searching access paths for file named lib<file>.<ext> where <ext> is a typical library extension; added before system libraries (see '~~defaults')"
};
SET_T optlstCmdLineLinker364 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ 0
};
Option optlstCmdLineLinker_365 = {
/* names = */ "defaults",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_LINKER,
/* param = */ (PARAM_T *) &optlstCmdLineLinker364,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as ~~[no]stdlib"
};
SET_T optlstCmdLineLinker368 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pCmdLineCompiler.noFail
};
Option optlstCmdLineLinker_369 = {
/* names = */ "nofail",
/* avail = */ OTF_TOOL_LINKER,
/* param = */ (PARAM_T *) &optlstCmdLineLinker368,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "continue importing or disassembling after errors in earlier files"
};
SET_T optlstCmdLineLinker372 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ 0
};
Option optlstCmdLineLinker_373 = {
/* names = */ "stdlib",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_LINKER,
/* param = */ (PARAM_T *) &optlstCmdLineLinker372,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "use system library access paths (specified by {MWLibraries}) and add system libraries (specified by {MWLibraryFiles})"
};
GENERIC_T optlstCmdLineLinker375 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &Opt_SetStage,
/* arg = */ (void *) "Ds",
/* help = */ 0
};
MASK_T optlstCmdLineLinker378 = {
/* which = */ PARAMWHICH_Mask,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstCmdLineLinker375,
/* size = */ 2,
/* ormask = */ 0x4,
/* andmask = */ 0x0,
/* num = */ &pCmdLine.toDisk
};
SET_T optlstCmdLineLinker381 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstCmdLineLinker378,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ 0
};
SET_T optlstCmdLineLinker383 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstCmdLineLinker381,
/* size = */ 2,
/* value = */ 0x2,
/* num = */ (char *) &pCmdLine.state
};
Option optlstCmdLineLinker_384 = {
/* names = */ "S",
/* avail = */ OTF_GLOBAL | OTF_CASED | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstCmdLineLinker383,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "disassemble and send output to file; do not link; implies '~~nostdlib'"
};
Option *optlstCmdLineLinker_385_list[] = {
&optlstCmdLineLinker_352,
&optlstCmdLineLinker_355,
&optlstCmdLineLinker_358,
&optlstCmdLineLinker_361,
&optlstCmdLineLinker_365,
&optlstCmdLineLinker_369,
&optlstCmdLineLinker_373,
&optlstCmdLineLinker_384,
0
};
OptionList optlstCmdLineLinker = {
/* help = */ "Command-Line Linker Options\n",
/* flags = */ LISTFLAGS_LINKER,
/* list = */ optlstCmdLineLinker_385_list
};

80
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsDebugging.opt Normal file
View File

@ -0,0 +1,80 @@
/* Debugging */
SET_T optlstDebugging388 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pCmdLine.debugInfo
};
Option optlstDebugging_389 = {
/* names = */ "g",
/* avail = */ OTF_GLOBAL | OTF_CASED | OTF_TOOL_COMPILER | OTF_TOOL_LINKER,
/* param = */ (PARAM_T *) &optlstDebugging388,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "generate debugging information; same as '~~sym on'"
};
SET_T optlstDebugging396 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pCmdLine.debugInfo
};
Option optlstDebugging_397 = {
/* names = */ "off",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_TOOL_LINKER,
/* param = */ (PARAM_T *) &optlstDebugging396,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "do not generate debugging information"
};
SET_T optlstDebugging392 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pCmdLine.debugInfo
};
Option optlstDebugging_393 = {
/* names = */ "on",
/* avail = */ OTF_GLOBAL | OTF_HIDE_DEFAULT | OTF_TOOL_COMPILER | OTF_TOOL_LINKER,
/* param = */ (PARAM_T *) &optlstDebugging392,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "turn on debugging information"
};
Option *optlstDebugging_398_list[] = {
&optlstDebugging_397,
&optlstDebugging_393,
0
};
OptionList optlstDebugging_398 = {
/* help = */ 0,
/* flags = */ LISTFLAGS_ALLOW_UNKNOWNS | LISTFLAGS_COMPILER | LISTFLAGS_LINKER,
/* list = */ optlstDebugging_398_list
};
Option optlstDebugging_399 = {
/* names = */ "sym",
/* avail = */ OTF_GLOBAL | OTF_HIDE_DEFAULT | OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_HAS_SUB_OPTIONS,
/* param = */ 0,
/* sub = */ &optlstDebugging_398,
/* conflicts = */ 0,
/* help = */ "specify debugging options"
};
Option *optlstDebugging_400_list[] = {
&optlstDebugging_389,
&optlstDebugging_399,
0
};
OptionList optlstDebugging = {
/* help = */ "Debugging Control Options\n",
/* flags = */ LISTFLAGS_COMPILER | LISTFLAGS_LINKER,
/* list = */ optlstDebugging_400_list
};

368
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsDumper.opt Normal file
View File

@ -0,0 +1,368 @@
/* Dumper */
SET_T optlstDumper1187 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pDisassembler.shownames
};
SET_T optlstDumper1190 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstDumper1187,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pDisassembler.showsym
};
SET_T optlstDumper1193 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstDumper1190,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pDisassembler.showexceptions
};
SET_T optlstDumper1196 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstDumper1193,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pDisassembler.showdata
};
SET_T optlstDumper1199 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstDumper1196,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pDisassembler.nohex
};
SET_T optlstDumper1202 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstDumper1199,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pDisassembler.mix
};
SET_T optlstDumper1205 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstDumper1202,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pDisassembler.extended
};
SET_T optlstDumper1208 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstDumper1205,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pDisassembler.showcode
};
Option optlstDumper_1209 = {
/* names = */ "only|none",
/* avail = */ OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstDumper1208,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "as in '~~show none' or, e.g.,\r'~~show only,code,data'"
};
SET_T optlstDumper1162 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.shownames
};
SET_T optlstDumper1165 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstDumper1162,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.showsym
};
SET_T optlstDumper1168 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstDumper1165,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.showexceptions
};
SET_T optlstDumper1171 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstDumper1168,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.showdata
};
SET_T optlstDumper1174 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstDumper1171,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.nohex
};
SET_T optlstDumper1177 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstDumper1174,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.mix
};
SET_T optlstDumper1180 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstDumper1177,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.extended
};
SET_T optlstDumper1183 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstDumper1180,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.showcode
};
Option optlstDumper_1184 = {
/* names = */ "all",
/* avail = */ OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstDumper1183,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "show everything"
};
SET_T optlstDumper1158 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.showcode
};
Option optlstDumper_1159 = {
/* names = */ "code|text",
/* avail = */ OTF_SLFLAGS_8 | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstDumper1158,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "show disassembly of code sections"
};
SET_T optlstDumper1151 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.showcode
};
SET_T optlstDumper1154 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstDumper1151,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.extended
};
Option optlstDumper_1155 = {
/* names = */ "extended",
/* avail = */ OTF_SLFLAGS_8 | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstDumper1154,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "show extended mnemonics"
};
SET_T optlstDumper1144 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.showcode
};
SET_T optlstDumper1147 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstDumper1144,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.mix
};
Option optlstDumper_1148 = {
/* names = */ "mix",
/* avail = */ OTF_SLFLAGS_8 | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstDumper1147,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "mix code and assembly; requires that modules were compiled with '~~sym on'"
};
SET_T optlstDumper1137 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.showcode
};
SET_T optlstDumper1140 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstDumper1137,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pDisassembler.nohex
};
Option optlstDumper_1141 = {
/* names = */ "hex",
/* avail = */ OTF_SLFLAGS_8 | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstDumper1140,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "show addresses and opcodes"
};
SET_T optlstDumper1133 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.showdata
};
Option optlstDumper_1134 = {
/* names = */ "data",
/* avail = */ OTF_SLFLAGS_8 | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstDumper1133,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "show data modules"
};
SET_T optlstDumper1126 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.showdata
};
SET_T optlstDumper1129 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstDumper1126,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.showexceptions
};
Option optlstDumper_1130 = {
/* names = */ "exceptions",
/* avail = */ OTF_SLFLAGS_8 | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstDumper1129,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "show exception tables"
};
SET_T optlstDumper1122 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.showsym
};
Option optlstDumper_1123 = {
/* names = */ "sym",
/* avail = */ OTF_SLFLAGS_8 | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstDumper1122,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "show SYM info"
};
SET_T optlstDumper1118 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pDisassembler.shownames
};
Option optlstDumper_1119 = {
/* names = */ "names",
/* avail = */ OTF_SLFLAGS_8 | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstDumper1118,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "show symbol and string tables"
};
Option *optlstDumper_1210_list[] = {
&optlstDumper_1209,
&optlstDumper_1184,
&optlstDumper_1159,
&optlstDumper_1155,
&optlstDumper_1148,
&optlstDumper_1141,
&optlstDumper_1134,
&optlstDumper_1130,
&optlstDumper_1123,
&optlstDumper_1119,
0
};
OptionList optlstDumper_1210 = {
/* help = */ 0,
/* flags = */ LISTFLAGS_LINKER | LISTFLAGS_DISASSEMBLER,
/* list = */ optlstDumper_1210_list
};
Option optlstDumper_1211 = {
/* names = */ "show",
/* avail = */ OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER | OTF_HAS_SUB_OPTIONS,
/* param = */ 0,
/* sub = */ &optlstDumper_1210,
/* conflicts = */ 0,
/* help = */ "specify disassembly options"
};
Option *optlstDumper_1212_list[] = {
&optlstDumper_1211,
0
};
OptionList optlstDumper = {
/* help = */ "Mach-O PowerPC Disassembler Options\n",
/* flags = */ LISTFLAGS_LINKER | LISTFLAGS_DISASSEMBLER,
/* list = */ optlstDumper_1212_list
};

1208
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsFrontEndC.opt Normal file
View File

File diff suppressed because it is too large Load Diff

321
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsLinker.opt Normal file
View File

@ -0,0 +1,321 @@
/* Linker */
STRING_T optlstLinker1061 = {
/* which = */ PARAMWHICH_String,
/* flags = */ 0x00,
/* myname = */ 0,
/* next = */ 0,
/* maxlen = */ 64,
/* pstring = */ 0,
/* str = */ pLinker.mainname
};
SET_T optlstLinker1064 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstLinker1061,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ 0
};
Option optlstLinker_1065 = {
/* names = */ "m|main",
/* avail = */ OTF_TOOL_LINKER,
/* param = */ (PARAM_T *) &optlstLinker1064,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "set main entry point for application, executable, orshared library"
};
FILEPATH_T optlstLinker1070 = {
/* which = */ PARAMWHICH_FilePath,
/* flags = */ 0x00,
/* myname = */ "filename",
/* next = */ 0,
/* fflags = */ 1,
/* defaultstr = */ 0,
/* filename = */ pCLTExtras.mapfilename,
/* maxlen = */ 255
};
SET_T optlstLinker1068 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pCLTExtras.gPrintMapToStdOutput
};
IFARG_T optlstLinker1072 = {
/* which = */ PARAMWHICH_IfArg,
/* flags = */ 0x12,
/* myname = */ 0,
/* next = */ 0,
/* parg = */ (PARAM_T *) &optlstLinker1070,
/* helpa = */ "write map to 'filename'",
/* pnone = */ (PARAM_T *) &optlstLinker1068,
/* helpn = */ "write map to stdout"
};
SET_T optlstLinker1075 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstLinker1072,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pLinker.linkmap
};
Option optlstLinker_1076 = {
/* names = */ "map",
/* avail = */ OTF_TOOL_LINKER,
/* param = */ (PARAM_T *) &optlstLinker1075,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "generate link map"
};
SET_T optlstLinker1079 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pLinker.multisymerror
};
Option optlstLinker_1080 = {
/* names = */ "multisymerr",
/* avail = */ OTF_SLFLAGS_8 | OTF_TOOL_LINKER,
/* param = */ (PARAM_T *) &optlstLinker1079,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "generate errors for multiply defined symbols"
};
GENERIC_T optlstLinker1082 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x00,
/* myname = */ "file",
/* next = */ 0,
/* parse = */ &Opt_DummyLinkerRoutine,
/* arg = */ (void *) 0,
/* help = */ 0
};
Option optlstLinker_1083 = {
/* names = */ "o",
/* avail = */ OTF_ONLY_ONCE | OTF_TOOL_LINKER,
/* param = */ (PARAM_T *) &optlstLinker1082,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "specify output filename"
};
ONOFF_T optlstLinker1085 = {
/* which = */ PARAMWHICH_OnOff,
/* flags = */ 0x00,
/* myname = */ 0,
/* next = */ 0,
/* var = */ &pLinker.use_objectivec_semantics
};
Option optlstLinker_1086 = {
/* names = */ "objc",
/* avail = */ OTF_TOOL_LINKER,
/* param = */ (PARAM_T *) &optlstLinker1085,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "use objective C semantics"
};
/* forward declare */ extern OptionList optlstLinker_1096_conflicts;
SET_T optlstLinker1094 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pLinker.readonlyrelocs
};
Option optlstLinker_1096_1095 = {
/* names = */ "errors",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstLinker1094,
/* sub = */ 0,
/* conflicts = */ &optlstLinker_1096_conflicts,
/* help = */ "as errors"
};
SET_T optlstLinker1091 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pLinker.readonlyrelocs
};
Option optlstLinker_1096_1092 = {
/* names = */ "warnings",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstLinker1091,
/* sub = */ 0,
/* conflicts = */ &optlstLinker_1096_conflicts,
/* help = */ "as warnings"
};
SET_T optlstLinker1088 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x2,
/* num = */ (char *) &pLinker.readonlyrelocs
};
Option optlstLinker_1096_1089 = {
/* names = */ "supressed",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstLinker1088,
/* sub = */ 0,
/* conflicts = */ &optlstLinker_1096_conflicts,
/* help = */ "supressed"
};
Option *optlstLinker_1096_list[] = {
&optlstLinker_1096_1095,
&optlstLinker_1096_1092,
&optlstLinker_1096_1089,
0
};
OptionList optlstLinker_1096 = {
/* help = */ 0,
/* flags = */ LISTFLAGS_EXCLUSIVE | LISTFLAGS_LINKER,
/* list = */ optlstLinker_1096_list
};
OptionList optlstLinker_1096_conflicts = {
/* help = */ 0,
/* flags = */ LISTFLAGS_EXCLUSIVE | LISTFLAGS_LINKER,
/* list = */ optlstLinker_1096_list
};
Option optlstLinker_1097 = {
/* names = */ "roreloc|readonlyrelocs",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_SUB_OPTIONS,
/* param = */ 0,
/* sub = */ &optlstLinker_1096,
/* conflicts = */ 0,
/* help = */ "treat read only relocations"
};
/* forward declare */ extern OptionList optlstLinker_1107_conflicts;
SET_T optlstLinker1105 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x0,
/* num = */ (char *) &pLinker.undefinedsymbols
};
Option optlstLinker_1107_1106 = {
/* names = */ "errors",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstLinker1105,
/* sub = */ 0,
/* conflicts = */ &optlstLinker_1107_conflicts,
/* help = */ "as errors"
};
SET_T optlstLinker1102 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pLinker.undefinedsymbols
};
Option optlstLinker_1107_1103 = {
/* names = */ "warnings",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstLinker1102,
/* sub = */ 0,
/* conflicts = */ &optlstLinker_1107_conflicts,
/* help = */ "as warnings"
};
SET_T optlstLinker1099 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 1,
/* value = */ 0x2,
/* num = */ (char *) &pLinker.undefinedsymbols
};
Option optlstLinker_1107_1100 = {
/* names = */ "supressed",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstLinker1099,
/* sub = */ 0,
/* conflicts = */ &optlstLinker_1107_conflicts,
/* help = */ "supressed"
};
Option *optlstLinker_1107_list[] = {
&optlstLinker_1107_1106,
&optlstLinker_1107_1103,
&optlstLinker_1107_1100,
0
};
OptionList optlstLinker_1107 = {
/* help = */ 0,
/* flags = */ LISTFLAGS_EXCLUSIVE | LISTFLAGS_LINKER,
/* list = */ optlstLinker_1107_list
};
OptionList optlstLinker_1107_conflicts = {
/* help = */ 0,
/* flags = */ LISTFLAGS_EXCLUSIVE | LISTFLAGS_LINKER,
/* list = */ optlstLinker_1107_list
};
Option optlstLinker_1108 = {
/* names = */ "undefsym",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_SUB_OPTIONS,
/* param = */ 0,
/* sub = */ &optlstLinker_1107,
/* conflicts = */ 0,
/* help = */ "treat undefined symbols"
};
ONOFF_T optlstLinker1110 = {
/* which = */ PARAMWHICH_OnOff,
/* flags = */ 0x00,
/* myname = */ 0,
/* next = */ 0,
/* var = */ &pLinker.whatfileloaded
};
Option optlstLinker_1111 = {
/* names = */ "whatfile",
/* avail = */ OTF_TOOL_LINKER,
/* param = */ (PARAM_T *) &optlstLinker1110,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "report what files are loaded"
};
ONOFF_T optlstLinker1113 = {
/* which = */ PARAMWHICH_OnOff,
/* flags = */ 0x00,
/* myname = */ 0,
/* next = */ 0,
/* var = */ &pLinker.whyfileloaded
};
Option optlstLinker_1114 = {
/* names = */ "whyfile",
/* avail = */ OTF_TOOL_LINKER,
/* param = */ (PARAM_T *) &optlstLinker1113,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "report why files are loaded"
};
Option *optlstLinker_1115_list[] = {
&optlstLinker_1065,
&optlstLinker_1076,
&optlstLinker_1080,
&optlstLinker_1083,
&optlstLinker_1086,
&optlstLinker_1097,
&optlstLinker_1108,
&optlstLinker_1111,
&optlstLinker_1114,
0
};
OptionList optlstLinker = {
/* help = */ "Mach-O PowerPC Linker Options\n",
/* flags = */ LISTFLAGS_LINKER,
/* list = */ optlstLinker_1115_list
};

765
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsOptimizer.opt Normal file
View File

@ -0,0 +1,765 @@
/* Optimizer */
GENERIC_T optlstOptimizer748 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "G2Pe",
/* help = */ 0
};
Option optlstOptimizer_749 = {
/* names = */ "O",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer748,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as '~~O2'"
};
GENERIC_T optlstOptimizer769 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "G0",
/* help = */ 0
};
Option optlstOptimizer_770 = {
/* names = */ "0",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer769,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as '~~opt l0'"
};
GENERIC_T optlstOptimizer766 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "G1",
/* help = */ 0
};
Option optlstOptimizer_767 = {
/* names = */ "1",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer766,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as '~~opt l1'"
};
GENERIC_T optlstOptimizer763 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "G2Pe",
/* help = */ 0
};
Option optlstOptimizer_764 = {
/* names = */ "2",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer763,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as '~~opt l2, peephole'"
};
GENERIC_T optlstOptimizer760 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "G3Pe",
/* help = */ 0
};
Option optlstOptimizer_761 = {
/* names = */ "3",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer760,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as '~~opt l3, peephole'"
};
GENERIC_T optlstOptimizer757 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "G4ShPe",
/* help = */ 0
};
Option optlstOptimizer_758 = {
/* names = */ "4||5|6|7",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer757,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as '~~opt l4, peephole, schedule'"
};
GENERIC_T optlstOptimizer754 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "Gp",
/* help = */ 0
};
Option optlstOptimizer_755 = {
/* names = */ "p",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer754,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as '~~opt speed'"
};
GENERIC_T optlstOptimizer751 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "Gs",
/* help = */ 0
};
Option optlstOptimizer_752 = {
/* names = */ "s",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer751,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as '~~opt space'"
};
Option *optlstOptimizer_771_list[] = {
&optlstOptimizer_770,
&optlstOptimizer_767,
&optlstOptimizer_764,
&optlstOptimizer_761,
&optlstOptimizer_758,
&optlstOptimizer_755,
&optlstOptimizer_752,
0
};
OptionList optlstOptimizer_771 = {
/* help = */ 0,
/* flags = */ LISTFLAGS_COMPILER,
/* list = */ optlstOptimizer_771_list
};
Option optlstOptimizer_772 = {
/* names = */ "O",
/* avail = */ OTF_STICKY | OTF_CASED | OTF_TOOL_COMPILER | OTF_HAS_SUB_OPTIONS,
/* param = */ 0,
/* sub = */ &optlstOptimizer_771,
/* conflicts = */ 0,
/* help = */ "control optimization; you may combine options as in '~~O4,p'"
};
GENERIC_T optlstOptimizer867 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "G0Sn-Pe",
/* help = */ 0
};
Option optlstOptimizer_868 = {
/* names = */ "off|none",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer867,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "suppress all optimizations"
};
GENERIC_T optlstOptimizer864 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "G2Pe",
/* help = */ 0
};
Option optlstOptimizer_865 = {
/* names = */ "on",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer864,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as '~~opt l2, peephole'"
};
GENERIC_T optlstOptimizer861 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "G4GpShPe",
/* help = */ 0
};
Option optlstOptimizer_862 = {
/* names = */ "all|full",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer861,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as '~~opt l4, speed, peephole, schedule'"
};
GENERIC_T optlstOptimizer858 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "Gs",
/* help = */ 0
};
Option optlstOptimizer_859 = {
/* names = */ "space|size",
/* avail = */ OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer858,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "optimize for space"
};
GENERIC_T optlstOptimizer855 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "Gp",
/* help = */ 0
};
Option optlstOptimizer_856 = {
/* names = */ "speed",
/* avail = */ OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer855,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "optimize for speed"
};
GENERIC_T optlstOptimizer850 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetPragmaOptimizationsToUnspecified,
/* arg = */ (void *) 0,
/* help = */ 0
};
NUM_T optlstOptimizer852 = {
/* which = */ PARAMWHICH_Number,
/* flags = */ 0x00,
/* myname = */ "num",
/* next = */ (PARAM_T *) &optlstOptimizer850,
/* size = */ 1,
/* fit = */ 0,
/* lo = */ 0,
/* hi = */ 4,
/* num = */ &pGlobalOptimizer.optimizationlevel
};
Option optlstOptimizer_853 = {
/* names = */ "l|level",
/* avail = */ OTF_ONLY_ONCE | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer852,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "set optimization level:\rlevel 0: global register allocation only for temporary values\rlevel 1: adds dead code elimination\rlevel 2: adds common subexpression elimination and copy propagation\rlevel 3: adds loop transformations, strength reducation, and loop-invariant code motion\rlevel 4: adds repeated common subexpression elimination and loop-invariant code motion"
};
GENERIC_T optlstOptimizer847 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "G0",
/* help = */ 0
};
Option optlstOptimizer_848 = {
/* names = */ "l0",
/* avail = */ OTF_SECRET | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer847,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "level 0: global register allocation only for temporary values"
};
GENERIC_T optlstOptimizer844 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "G1",
/* help = */ 0
};
Option optlstOptimizer_845 = {
/* names = */ "l1",
/* avail = */ OTF_SECRET | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer844,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "level 1: adds dead code elimination"
};
GENERIC_T optlstOptimizer841 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "G2",
/* help = */ 0
};
Option optlstOptimizer_842 = {
/* names = */ "l2",
/* avail = */ OTF_SECRET | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer841,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "level 2: adds common subexpression elimination and copy propagation"
};
GENERIC_T optlstOptimizer838 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "G3",
/* help = */ 0
};
Option optlstOptimizer_839 = {
/* names = */ "l3",
/* avail = */ OTF_SECRET | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer838,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "level 3: adds loop transformations, strength reducation, and loop-invariant code motion"
};
GENERIC_T optlstOptimizer835 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "G4",
/* help = */ 0
};
Option optlstOptimizer_836 = {
/* names = */ "l4",
/* avail = */ OTF_SECRET | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer835,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "level 4: adds repeated common subexpression elimination and loop-invariant code motion"
};
GENERIC_T optlstOptimizer832 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "Cs",
/* help = */ 0
};
Option optlstOptimizer_833 = {
/* names = */ "cse|commonsubs",
/* avail = */ OTF_COMPATIBILITY | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer832,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "common subexpression elimination"
};
GENERIC_T optlstOptimizer829 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "Dc",
/* help = */ 0
};
Option optlstOptimizer_830 = {
/* names = */ "deadcode",
/* avail = */ OTF_COMPATIBILITY | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer829,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "removal of dead code"
};
GENERIC_T optlstOptimizer826 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "Ds",
/* help = */ 0
};
Option optlstOptimizer_827 = {
/* names = */ "deadstore",
/* avail = */ OTF_COMPATIBILITY | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer826,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "removal of dead assignments"
};
GENERIC_T optlstOptimizer823 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "Lt",
/* help = */ 0
};
Option optlstOptimizer_824 = {
/* names = */ "lifetimes",
/* avail = */ OTF_COMPATIBILITY | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer823,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "computation of variable lifetimes"
};
GENERIC_T optlstOptimizer820 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "Li",
/* help = */ 0
};
Option optlstOptimizer_821 = {
/* names = */ "loop|loopinvariants",
/* avail = */ OTF_COMPATIBILITY | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer820,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "removal of loop invariants"
};
GENERIC_T optlstOptimizer817 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "Pr",
/* help = */ 0
};
Option optlstOptimizer_818 = {
/* names = */ "prop|propagation",
/* avail = */ OTF_COMPATIBILITY | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer817,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "propagation of constant and copy assignments"
};
GENERIC_T optlstOptimizer814 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "Sr",
/* help = */ 0
};
Option optlstOptimizer_815 = {
/* names = */ "strength",
/* avail = */ OTF_COMPATIBILITY | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer814,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "strength reduction; reducing multiplication by an index variable into addition"
};
Option optlstOptimizer_812 = {
/* names = */ "global",
/* avail = */ OTF_IGNORED | OTF_HIDE_DEFAULT | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ 0,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "global optimization is controlled through '-opt level=X'"
};
GENERIC_T optlstOptimizer810 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "Pe",
/* help = */ 0
};
Option optlstOptimizer_811 = {
/* names = */ "peep|peephole",
/* avail = */ OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer810,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "peephole optimization"
};
GENERIC_T optlstOptimizer807 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "Rc",
/* help = */ 0
};
Option optlstOptimizer_808 = {
/* names = */ "color",
/* avail = */ OTF_COMPATIBILITY | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer807,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "register coloring"
};
GENERIC_T optlstOptimizer804 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "Sh",
/* help = */ 0
};
Option optlstOptimizer_805 = {
/* names = */ "schedule",
/* avail = */ OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer804,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "schedule instructions (see '~~proc')"
};
GENERIC_T optlstOptimizer801 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "S1",
/* help = */ 0
};
Option optlstOptimizer_802 = {
/* names = */ "schedule601",
/* avail = */ OTF_SECRET | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer801,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "-opt schedule, -proc 601"
};
GENERIC_T optlstOptimizer798 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "S3",
/* help = */ 0
};
Option optlstOptimizer_799 = {
/* names = */ "schedule603",
/* avail = */ OTF_SECRET | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer798,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "-opt schedule, -proc 603"
};
GENERIC_T optlstOptimizer795 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "S#",
/* help = */ 0
};
Option optlstOptimizer_796 = {
/* names = */ "schedule603e",
/* avail = */ OTF_SECRET | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer795,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "-opt schedule, -proc 603e"
};
GENERIC_T optlstOptimizer792 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "S4",
/* help = */ 0
};
Option optlstOptimizer_793 = {
/* names = */ "schedule604",
/* avail = */ OTF_SECRET | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer792,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "-opt schedule, -proc 604"
};
GENERIC_T optlstOptimizer789 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "S$",
/* help = */ 0
};
Option optlstOptimizer_790 = {
/* names = */ "schedule604e",
/* avail = */ OTF_SECRET | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer789,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "-opt schedule, -proc 604e"
};
GENERIC_T optlstOptimizer786 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "S7",
/* help = */ 0
};
Option optlstOptimizer_787 = {
/* names = */ "schedule750",
/* avail = */ OTF_SECRET | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer786,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "-opt schedule, -proc 750"
};
GENERIC_T optlstOptimizer783 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "SA",
/* help = */ 0
};
Option optlstOptimizer_784 = {
/* names = */ "schedulealtivec",
/* avail = */ OTF_SECRET | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer783,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "-opt schedule, -proc altivec"
};
GENERIC_T optlstOptimizer780 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "G1PeS1",
/* help = */ 0
};
Option optlstOptimizer_781 = {
/* names = */ "inter|local|unroll",
/* avail = */ OTF_SECRET | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer780,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "opt level=1, peep, schedule=601"
};
GENERIC_T optlstOptimizer777 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetOptFlags,
/* arg = */ (void *) "G2PeS1",
/* help = */ 0
};
Option optlstOptimizer_778 = {
/* names = */ "rep",
/* avail = */ OTF_SECRET | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer777,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "opt level=2, peep, schedule=601"
};
GENERIC_T optlstOptimizer774 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &DisplayOptimizationOptions,
/* arg = */ (void *) 0,
/* help = */ 0
};
Option optlstOptimizer_775 = {
/* names = */ "display|dump",
/* avail = */ OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstOptimizer774,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "display list of active optimizations"
};
Option *optlstOptimizer_869_list[] = {
&optlstOptimizer_868,
&optlstOptimizer_865,
&optlstOptimizer_862,
&optlstOptimizer_859,
&optlstOptimizer_856,
&optlstOptimizer_853,
&optlstOptimizer_848,
&optlstOptimizer_845,
&optlstOptimizer_842,
&optlstOptimizer_839,
&optlstOptimizer_836,
&optlstOptimizer_833,
&optlstOptimizer_830,
&optlstOptimizer_827,
&optlstOptimizer_824,
&optlstOptimizer_821,
&optlstOptimizer_818,
&optlstOptimizer_815,
&optlstOptimizer_812,
&optlstOptimizer_811,
&optlstOptimizer_808,
&optlstOptimizer_805,
&optlstOptimizer_802,
&optlstOptimizer_799,
&optlstOptimizer_796,
&optlstOptimizer_793,
&optlstOptimizer_790,
&optlstOptimizer_787,
&optlstOptimizer_784,
&optlstOptimizer_781,
&optlstOptimizer_778,
&optlstOptimizer_775,
0
};
OptionList optlstOptimizer_869 = {
/* help = */ 0,
/* flags = */ LISTFLAGS_ALLOW_UNKNOWNS | LISTFLAGS_COMPILER,
/* list = */ optlstOptimizer_869_list
};
Option optlstOptimizer_870 = {
/* names = */ "opt",
/* avail = */ OTF_TOOL_COMPILER | OTF_HAS_SUB_OPTIONS,
/* param = */ 0,
/* sub = */ &optlstOptimizer_869,
/* conflicts = */ 0,
/* help = */ "specify optimization options"
};
Option *optlstOptimizer_871_list[] = {
&optlstOptimizer_749,
&optlstOptimizer_772,
&optlstOptimizer_870,
0
};
OptionList optlstOptimizer = {
/* help = */ "Optimizer Options\n\tNote that all options besides '-opt off|on|all|space|speed|level=...' (marked with 'compatibility') are for backwards compatibility or special needs only; other optimization options may be superceded by use of '~~opt level=xxx'.\b",
/* flags = */ LISTFLAGS_COMPILER,
/* list = */ optlstOptimizer_871_list
};

320
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsProject.opt Normal file
View File

@ -0,0 +1,320 @@
/* forward declare */ extern OptionList projtype_conflicts;
/* Project */
SET_T optlstProject1012 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 2,
/* value = */ 0x0,
/* num = */ (char *) &pProject.type
};
Option projtype_1013 = {
/* names = */ "app|application",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstProject1012,
/* sub = */ 0,
/* conflicts = */ &projtype_conflicts,
/* help = */ "generate an application bundle; same as '~~xm a'"
};
SET_T optlstProject1015 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 2,
/* value = */ 0x1,
/* num = */ (char *) &pProject.type
};
Option projtype_1016 = {
/* names = */ "exe|executable",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstProject1015,
/* sub = */ 0,
/* conflicts = */ &projtype_conflicts,
/* help = */ "generate an excutable; same as '~~xm e'"
};
SET_T optlstProject1018 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 2,
/* value = */ 0x4,
/* num = */ (char *) &pProject.type
};
Option projtype_1019 = {
/* names = */ "lib|library",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstProject1018,
/* sub = */ 0,
/* conflicts = */ &projtype_conflicts,
/* help = */ "generate a static library; same as '~~xm l'"
};
SET_T optlstProject1021 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 2,
/* value = */ 0x3,
/* num = */ (char *) &pProject.type
};
Option projtype_1022 = {
/* names = */ "obj|object",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstProject1021,
/* sub = */ 0,
/* conflicts = */ &projtype_conflicts,
/* help = */ "generate an object; same as '~~xm o'"
};
SET_T optlstProject1024 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 2,
/* value = */ 0x2,
/* num = */ (char *) &pProject.type
};
Option projtype_1025 = {
/* names = */ "shared|sharedlibrary||shlib",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstProject1024,
/* sub = */ 0,
/* conflicts = */ &projtype_conflicts,
/* help = */ "generate a shared library; same as '~~xm s'"
};
/* forward declare */ extern OptionList optlstProject_1041_conflicts;
SET_T optlstProject1039 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 2,
/* value = */ 0x0,
/* num = */ (char *) &pProject.type
};
Option optlstProject_1041_1040 = {
/* names = */ "a|application",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstProject1039,
/* sub = */ 0,
/* conflicts = */ &optlstProject_1041_conflicts,
/* help = */ "application bundle"
};
SET_T optlstProject1036 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 2,
/* value = */ 0x1,
/* num = */ (char *) &pProject.type
};
Option optlstProject_1041_1037 = {
/* names = */ "e|executable",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstProject1036,
/* sub = */ 0,
/* conflicts = */ &optlstProject_1041_conflicts,
/* help = */ "executable"
};
SET_T optlstProject1033 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 2,
/* value = */ 0x4,
/* num = */ (char *) &pProject.type
};
Option optlstProject_1041_1034 = {
/* names = */ "l|library",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstProject1033,
/* sub = */ 0,
/* conflicts = */ &optlstProject_1041_conflicts,
/* help = */ "static library"
};
SET_T optlstProject1030 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 2,
/* value = */ 0x3,
/* num = */ (char *) &pProject.type
};
Option optlstProject_1041_1031 = {
/* names = */ "o|object",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstProject1030,
/* sub = */ 0,
/* conflicts = */ &optlstProject_1041_conflicts,
/* help = */ "object"
};
SET_T optlstProject1027 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 2,
/* value = */ 0x2,
/* num = */ (char *) &pProject.type
};
Option optlstProject_1041_1028 = {
/* names = */ "s|sharedlibrary",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_CONFLICTS,
/* param = */ (PARAM_T *) &optlstProject1027,
/* sub = */ 0,
/* conflicts = */ &optlstProject_1041_conflicts,
/* help = */ "shared library"
};
Option *optlstProject_1041_list[] = {
&optlstProject_1041_1040,
&optlstProject_1041_1037,
&optlstProject_1041_1034,
&optlstProject_1041_1031,
&optlstProject_1041_1028,
0
};
OptionList optlstProject_1041 = {
/* help = */ 0,
/* flags = */ LISTFLAGS_EXCLUSIVE | LISTFLAGS_LINKER,
/* list = */ optlstProject_1041_list
};
OptionList optlstProject_1041_conflicts = {
/* help = */ 0,
/* flags = */ LISTFLAGS_EXCLUSIVE | LISTFLAGS_LINKER,
/* list = */ optlstProject_1041_list
};
Option projtype_1042 = {
/* names = */ "xm",
/* avail = */ OTF_TOOL_LINKER | OTF_HAS_SUB_OPTIONS | OTF_HAS_CONFLICTS,
/* param = */ 0,
/* sub = */ &optlstProject_1041,
/* conflicts = */ &projtype_conflicts,
/* help = */ "specify project type"
};
FTYPE_T optlstProject1043 = {
/* which = */ PARAMWHICH_FTypeCreator,
/* flags = */ 0x00,
/* myname = */ "creator",
/* next = */ 0,
/* fc = */ &pProject.filecreator,
/* iscreator = */ 30
};
SET_T optlstProject1046 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstProject1043,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pCLTExtras.userSetCreator
};
Option optlstProject_1047 = {
/* names = */ "fc",
/* avail = */ OTF_TOOL_LINKER,
/* param = */ (PARAM_T *) &optlstProject1046,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "specify output file creator; not used with static libs and MPW tools"
};
FTYPE_T optlstProject1048 = {
/* which = */ PARAMWHICH_FTypeCreator,
/* flags = */ 0x00,
/* myname = */ "type",
/* next = */ 0,
/* fc = */ &pProject.filetype,
/* iscreator = */ 156
};
SET_T optlstProject1051 = {
/* which = */ PARAMWHICH_Set,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ (PARAM_T *) &optlstProject1048,
/* size = */ 1,
/* value = */ 0x1,
/* num = */ (char *) &pCLTExtras.userSetType
};
Option optlstProject_1052 = {
/* names = */ "ft",
/* avail = */ OTF_ONLY_ONCE | OTF_TOOL_LINKER,
/* param = */ (PARAM_T *) &optlstProject1051,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "specify output file type; not used with static libs and MPW tools"
};
NUM_T optlstProject1054 = {
/* which = */ PARAMWHICH_Number,
/* flags = */ 0x00,
/* myname = */ 0,
/* next = */ 0,
/* size = */ 4,
/* fit = */ 0,
/* lo = */ 0,
/* hi = */ 0,
/* num = */ &pProject.stackaddress
};
Option optlstProject_1055 = {
/* names = */ "stackaddr",
/* avail = */ OTF_HIDE_DEFAULT | OTF_TOOL_LINKER,
/* param = */ (PARAM_T *) &optlstProject1054,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "specify stack address; default is 0"
};
NUM_T optlstProject1057 = {
/* which = */ PARAMWHICH_Number,
/* flags = */ 0x00,
/* myname = */ "kB",
/* next = */ 0,
/* size = */ 4,
/* fit = */ 0,
/* lo = */ 0,
/* hi = */ 0,
/* num = */ &pProject.stacksize
};
Option optlstProject_1058 = {
/* names = */ "stacksize",
/* avail = */ OTF_HIDE_DEFAULT | OTF_TOOL_LINKER,
/* param = */ (PARAM_T *) &optlstProject1057,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "specify stack size in kilobytes default is kDefaultStackSize (i.e., determined by loader)"
};
Option *optlstProject_1059_list[] = {
&projtype_1013,
&projtype_1016,
&projtype_1019,
&projtype_1022,
&projtype_1025,
&projtype_1042,
&optlstProject_1047,
&optlstProject_1052,
&optlstProject_1055,
&optlstProject_1058,
0
};
OptionList optlstProject = {
/* help = */ "Mach-O PowerPC Project Options\n",
/* flags = */ LISTFLAGS_LINKER,
/* list = */ optlstProject_1059_list
};
Option *projtype_000_list[] = {
&projtype_1013,
&projtype_1016,
&projtype_1019,
&projtype_1022,
&projtype_1025,
&projtype_1042,
0
};
OptionList projtype_conflicts = {
/* help = */ 0,
/* flags = */ 0,
/* list = */ projtype_000_list
};

583
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsWarningC.opt Normal file
View File

@ -0,0 +1,583 @@
/* WarningC */
GENERIC_T optlstWarningC659 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "IpEdPuUvUaEcPdHvIcNiCw",
/* help = */ 0
};
Option optlstWarningC_660 = {
/* names = */ "1",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC659,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as ~~w on"
};
GENERIC_T optlstWarningC656 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "IpEdPuUvUaEcPdHvIcNiCpLaScCw",
/* help = */ 0
};
Option optlstWarningC_657 = {
/* names = */ "2",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC656,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as ~~w all"
};
GENERIC_T optlstWarningC653 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "IpEdPuUvUaEcPdHvIcNiCw-UvUa",
/* help = */ 0
};
Option optlstWarningC_654 = {
/* names = */ "3",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC653,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as ~~w on,nounused"
};
Option *optlstWarningC_661_list[] = {
&optlstWarningC_660,
&optlstWarningC_657,
&optlstWarningC_654,
0
};
OptionList optlstWarningC_661 = {
/* help = */ 0,
/* flags = */ LISTFLAGS_COMPILER,
/* list = */ optlstWarningC_661_list
};
Option optlstWarningC_662 = {
/* names = */ "w",
/* avail = */ OTF_GLOBAL | OTF_STICKY | OTF_CASED | OTF_TOOL_COMPILER | OTF_HAS_SUB_OPTIONS,
/* param = */ 0,
/* sub = */ &optlstWarningC_661,
/* conflicts = */ 0,
/* help = */ "compatibility warning options"
};
GENERIC_T optlstWarningC727 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "Cw",
/* help = */ 0
};
Option optlstWarningC_728 = {
/* names = */ "options|cmdline",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstWarningC727,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "command-line parser warnings"
};
GENERIC_T optlstWarningC724 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "-IpEdPuUvUaEcPdHvIcNiCpLaScWeCw|Nw",
/* help = */ 0
};
Option optlstWarningC_725 = {
/* names = */ "off",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstWarningC724,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "turn off all warnings"
};
GENERIC_T optlstWarningC721 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "IpEdPuUvUaEcPdHvIcNiCw",
/* help = */ 0
};
Option optlstWarningC_722 = {
/* names = */ "on",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstWarningC721,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "turn on most warnings, except 'largeargs' and 'structclass'"
};
GENERIC_T optlstWarningC718 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "IpEdPuUvUaEcPdHvIcNiCw",
/* help = */ 0
};
Option optlstWarningC_719 = {
/* names = */ "conformance|usage",
/* avail = */ OTF_GLOBAL | OTF_SECRET | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC718,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as '-w on'"
};
GENERIC_T optlstWarningC715 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "IpEdPuUvUaEcPdHvIcNiCpLaScCw",
/* help = */ 0
};
Option optlstWarningC_716 = {
/* names = */ "all|full",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC715,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "turn on all warnings, require prototypes"
};
GENERIC_T optlstWarningC712 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "We",
/* help = */ 0
};
Option optlstWarningC_713 = {
/* names = */ "err|error|iserr|iserror",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstWarningC712,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "warnings are errors"
};
GENERIC_T optlstWarningC709 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "Ip",
/* help = */ 0
};
Option optlstWarningC_710 = {
/* names = */ "pragmas|illpragmas",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC709,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "illegal #pragmas"
};
GENERIC_T optlstWarningC706 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "Ed",
/* help = */ 0
};
Option optlstWarningC_707 = {
/* names = */ "empty|emptydecl",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC706,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "empty declarations"
};
GENERIC_T optlstWarningC703 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "Pu",
/* help = */ 0
};
Option optlstWarningC_704 = {
/* names = */ "possible|unwanted",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC703,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "possible unwanted effects"
};
GENERIC_T optlstWarningC700 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "UaUv",
/* help = */ 0
};
Option optlstWarningC_701 = {
/* names = */ "unused",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC700,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "unused arguments and variables"
};
GENERIC_T optlstWarningC697 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "Ua",
/* help = */ 0
};
Option optlstWarningC_698 = {
/* names = */ "unusedarg",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC697,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "unused arguments"
};
GENERIC_T optlstWarningC694 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "Uv",
/* help = */ 0
};
Option optlstWarningC_695 = {
/* names = */ "unusedvar",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC694,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "unused variables"
};
GENERIC_T optlstWarningC691 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "UaUv",
/* help = */ 0
};
Option optlstWarningC_692 = {
/* names = */ "unused",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC691,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as ~~w [no]unusedarg,[no]unusedvar"
};
GENERIC_T optlstWarningC688 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "Ec",
/* help = */ 0
};
Option optlstWarningC_689 = {
/* names = */ "extracomma|comma",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC688,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "extra commas"
};
GENERIC_T optlstWarningC685 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "Pd",
/* help = */ 0
};
Option optlstWarningC_686 = {
/* names = */ "pedantic|extended",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC685,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "pedantic error checking"
};
GENERIC_T optlstWarningC682 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "Hv",
/* help = */ 0
};
Option optlstWarningC_683 = {
/* names = */ "hidevirtual|hidden|hiddenvirtual",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC682,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "hidden virtual functions"
};
GENERIC_T optlstWarningC679 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "Ic",
/* help = */ 0
};
Option optlstWarningC_680 = {
/* names = */ "implicit|implicitconv",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC679,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "implicit arithmetic conversions"
};
GENERIC_T optlstWarningC676 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "Ni",
/* help = */ 0
};
Option optlstWarningC_677 = {
/* names = */ "notinlined",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC676,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "'inline' functions not inlined"
};
GENERIC_T optlstWarningC673 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "La",
/* help = */ 0
};
Option optlstWarningC_674 = {
/* names = */ "largeargs",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC673,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "passing large arguments to unprototyped functions"
};
GENERIC_T optlstWarningC670 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "Sc",
/* help = */ 0
};
Option optlstWarningC_671 = {
/* names = */ "structclass",
/* avail = */ OTF_GLOBAL | OTF_SLFLAGS_8 | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC670,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "inconsistent use of 'class' and 'struct'"
};
GENERIC_T optlstWarningC667 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "-IpEdPuUvUaEcPdHvIcNiCpLaScCw|Nw",
/* help = */ 0
};
Option optlstWarningC_668 = {
/* names = */ "",
/* avail = */ OTF_GLOBAL | OTF_WARNING | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC667,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "Option 'w' deprecated, use 'w off' instead;\r'w' not passed to linker;\rparse error will occur if a non-option follows"
};
GENERIC_T optlstWarningC664 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &DisplayWarningOptions,
/* arg = */ (void *) 0,
/* help = */ 0
};
Option optlstWarningC_665 = {
/* names = */ "display|dump",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER,
/* param = */ (PARAM_T *) &optlstWarningC664,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "display list of active warnings"
};
Option *optlstWarningC_729_list[] = {
&optlstWarningC_728,
&optlstWarningC_725,
&optlstWarningC_722,
&optlstWarningC_719,
&optlstWarningC_716,
&optlstWarningC_713,
&optlstWarningC_710,
&optlstWarningC_707,
&optlstWarningC_704,
&optlstWarningC_701,
&optlstWarningC_698,
&optlstWarningC_695,
&optlstWarningC_692,
&optlstWarningC_689,
&optlstWarningC_686,
&optlstWarningC_683,
&optlstWarningC_680,
&optlstWarningC_677,
&optlstWarningC_674,
&optlstWarningC_671,
&optlstWarningC_668,
&optlstWarningC_665,
0
};
OptionList optlstWarningC_729 = {
/* help = */ 0,
/* flags = */ LISTFLAGS_ALLOW_UNKNOWNS | LISTFLAGS_COMPILER,
/* list = */ optlstWarningC_729_list
};
Option optlstWarningC_730 = {
/* names = */ "w|warnings",
/* avail = */ OTF_GLOBAL | OTF_TOOL_COMPILER | OTF_HAS_SUB_OPTIONS,
/* param = */ 0,
/* sub = */ &optlstWarningC_729,
/* conflicts = */ 0,
/* help = */ "warning options"
};
GENERIC_T optlstWarningC732 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "IpPuHvEd",
/* help = */ 0
};
Option optlstWarningC_733 = {
/* names = */ "Wmost",
/* avail = */ OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstWarningC732,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "turn on pragmas, emptydecl, possible, hidevirtual"
};
GENERIC_T optlstWarningC735 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "IpEdPuUvUaEcPdHvIcNiCpLaSc",
/* help = */ 0
};
Option optlstWarningC_736 = {
/* names = */ "Wall",
/* avail = */ OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstWarningC735,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as -w all"
};
GENERIC_T optlstWarningC738 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "We",
/* help = */ 0
};
Option optlstWarningC_739 = {
/* names = */ "Werror",
/* avail = */ OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstWarningC738,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as -w iserror"
};
GENERIC_T optlstWarningC741 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "UaUv",
/* help = */ 0
};
Option optlstWarningC_742 = {
/* names = */ "Wunused",
/* avail = */ OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstWarningC741,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "same as -w unusedarg,unusedvar"
};
GENERIC_T optlstWarningC744 = {
/* which = */ PARAMWHICH_Generic,
/* flags = */ 0x01,
/* myname = */ 0,
/* next = */ 0,
/* parse = */ &SetWarningFlags,
/* arg = */ (void *) "-UaUv",
/* help = */ 0
};
Option optlstWarningC_745 = {
/* names = */ "Wno-unused",
/* avail = */ OTF_TOOL_COMPILER | OTF_TOOL_LINKER | OTF_TOOL_DISASSEMBLER,
/* param = */ (PARAM_T *) &optlstWarningC744,
/* sub = */ 0,
/* conflicts = */ 0,
/* help = */ "turns off -w unusedarg,unusedvar"
};
Option *optlstWarningC_746_list[] = {
&optlstWarningC_662,
&optlstWarningC_730,
&optlstWarningC_733,
&optlstWarningC_736,
&optlstWarningC_739,
&optlstWarningC_742,
&optlstWarningC_745,
0
};
OptionList optlstWarningC = {
/* help = */ "Warning Options\n",
/* flags = */ LISTFLAGS_COMPILER | LISTFLAGS_LINKER | LISTFLAGS_DISASSEMBLER,
/* list = */ optlstWarningC_746_list
};

0
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-ld/OptsCmdLine.opt Normal file
View File

0
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-ld/OptsCmdLineLinker.opt Normal file
View File

0
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-ld/OptsDebugging.opt Normal file
View File

0
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-ld/OptsDumper.opt Normal file
View File

0
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-ld/OptsLinker.opt Normal file
View File

0
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-ld/OptsProject.opt Normal file
View File

0
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-ld/OptsWarning.opt Normal file
View File

137
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Src/Options/Glue/ParserGlue-mach-ppc-cc.c Normal file
View File

@ -0,0 +1,137 @@
#include "cmdline.h"
#include "parser.h"
#include "compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Src/Options/Glue/ParserGlue-mach-ppc-common.h"
static Boolean useDefaultIncludes = 1;
static Boolean useDefaultLibraries = 1;
#include "compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsCmdLine.opt"
#include "compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsCmdLineCompiler.opt"
#include "compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsCmdLineLinker.opt"
#include "compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsFrontEndC.opt"
#include "compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsDebugging.opt"
#include "compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsOptimizer.opt"
#include "compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsWarningC.opt"
#include "compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsBackEnd.opt"
#include "compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsProject.opt"
#include "compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsLinker.opt"
#include "compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Lib/mac-ppc-cc/OptsDumper.opt"
char *prefs[] = {
"PPC CodeGen Mach-O",
"PPC Mach-O Linker",
"PPC Mach-O Target",
"PPC Disassembler",
"PPC Global Optimizer",
"C/C++ Compiler",
"C/C++ Warnings",
"CmdLine Panel",
"CmdLine Compiler Panel",
"CmdLine Linker Panel"
};
OptionList *optLists[] = {
&optlstCmdLine,
&optlstCmdLineCompiler,
&optlstFrontEndC,
&optlstBackEnd,
&optlstOptimizer,
&optlstDebugging,
&optlstWarningC,
&optlstProject,
&optlstCmdLineLinker,
&optlstLinker,
&optlstDumper
};
static PrefDataPanel stPrefPanels[] = {
"PPC CodeGen Mach-O", &pBackEnd, sizeof(pBackEnd),
"PPC Mach-O Linker", &pLinker, sizeof(pLinker),
"PPC Mach-O Target", &pProject, sizeof(pProject),
"PPC Disassembler", &pDisassembler, sizeof(pDisassembler),
"PPC Global Optimizer", &pGlobalOptimizer, sizeof(pGlobalOptimizer),
"C/C++ Compiler", &pFrontEndC, sizeof(pFrontEndC),
"C/C++ Warnings", &pWarningC, sizeof(pWarningC),
"CmdLine Panel", &pCmdLine, sizeof(pCmdLine),
"CmdLine Compiler Panel", &pCmdLineCompiler, sizeof(pCmdLineCompiler),
"CmdLine Linker Panel", &pCmdLineLinker, sizeof(pCmdLineLinker)
};
static int PreParse() {
setLinkerOutputFilename = 0;
linkerOutputFilename[0] = 0;
definesHandle = NULL;
useDefaultIncludes = 1;
schedule_ppc_default = 0;
return 1;
}
static int MidParse() {
const char *match;
const char *env;
if (!pCmdLine.state)
pCmdLine.state = OptsCmdLineState_2;
if (parseopts.possibleFiles > 0 && useDefaultIncludes) {
if ((env = GetEnvVar("MWCMachPPCIncludes", 1, &match))) {
// FIXME can probably get rid of this cast later
if (!AddAccessPathList(env, ':', ',', 1, (char *) match, 1, -1, 0))
return 0;
}
}
return 1;
}
static int PostParse() {
if (!SetupPragmas(irPragmas) || !SetupPragmas(warningPragmas))
return 0;
if (definesHandle) {
static const char *name = "(command-line defines)";
if (pCmdLine.verbose)
ShowTextHandle(name, definesHandle);
AddVirtualFile(name, &definesHandle);
c2pstrcpy(pFrontEndC.oldprefixname, name);
} else {
pFrontEndC.oldprefixname[0] = 0;
}
FinishCompilerTool();
if (!ValidateToolState(1))
return 0;
if (linkerOutputFilename[0]) {
Arg_AddToToolArgs(&linkargs, ATK_ARG_END, NULL);
Arg_AddToToolArgs(&linkargs, ATK_ARG, "-o");
Arg_AddToToolArgs(&linkargs, ATK_ARG_END, NULL);
Arg_AddToToolArgs(&linkargs, ATK_ARG, linkerOutputFilename);
Arg_AddToToolArgs(&linkargs, ATK_ARG_END, NULL);
}
return 1;
}
static ParserTool parser = {
CWDROPINCOMPILERTYPE,
Lang_C_CPP,
targetCPUPowerPC,
CWFOURCHAR('R','h','a','p'),
10,
prefs,
"Metrowerks C/C++ Compiler for Mach-O/PPC",
"1993-2000",
11,
optLists,
10,
stPrefPanels,
&PreParse,
&MidParse,
&PostParse
};
int RegisterStaticParserToolInfo() {
return SetParserToolInfo(&parser);
}

147
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Src/Options/Glue/ParserGlue-mach-ppc-common.h Normal file
View File

@ -0,0 +1,147 @@
PCmdLine pCmdLine = {
0x1002,
3,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
2
};
PCmdLineCompiler pCmdLineCompiler = {
0x1005,
0,
0,
0,
"",
"",
"",
"",
"",
"",
"",
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
1,
0,
0,
"",
0,
0,
0,
0,
"",
0,
1
};
PCmdLineLinker pCmdLineLinker = {
0x1001,
1,
1
};
PFrontEndC pFrontEndC = { // compiler only?
0xC,
0,
0,
0,
0,
0,
1,
0,
"",
0,
0,
0,
1,
0,
0,
0,
1,
0,
0,
0,
1
};
PWarningC pWarningC = { // compiler only?
4
};
PGlobalOptimizer pGlobalOptimizer = { // compiler only?
1,
2
};
PBackEnd pBackEnd = {
1,
2,
0,
0,
1,
0,
1,
1,
1,
0,
0,
1,
0,
0,
1,
1,
0,
1
};
PDisassembler pDisassembler = {
1,
1,
1,
0,
0,
1,
1,
0,
1
};
PMachOLinker pLinker = {
1,
0,
0,
0,
0,
1,
0,
0,
1,
0,
0,
0,
0,
2
};
PMachOProject pProject = {
1,
1,
"",
CWFOURCHAR('?','?','?','?'),
CWFOURCHAR('M','E','X','E'),
0x40
};
PCLTExtras pCLTExtras = {
1
};

0
compiler_and_linker/CmdLine_Tools/MacOS_PPC/Tools_PPC/Src/Options/Glue/ParserGlue-mach-ppc-ld.c Normal file
View File

Some files were not shown because too many files have changed in this diff Show More