From 094b96ca1df4a035b5f93c351f773306c0241f3f Mon Sep 17 00:00:00 2001 From: Ash Wolf Date: Thu, 26 Jan 2023 11:30:47 +0000 Subject: move lots of source files around to match their actual placement in the original tree --- compiler_and_linker/unsorted/CBrowse.c | 737 --------------------------------- 1 file changed, 737 deletions(-) delete mode 100644 compiler_and_linker/unsorted/CBrowse.c (limited to 'compiler_and_linker/unsorted/CBrowse.c') diff --git a/compiler_and_linker/unsorted/CBrowse.c b/compiler_and_linker/unsorted/CBrowse.c deleted file mode 100644 index 12ea4c8..0000000 --- a/compiler_and_linker/unsorted/CBrowse.c +++ /dev/null @@ -1,737 +0,0 @@ -#include "compiler/CBrowse.h" -#include "compiler/CDecl.h" -#include "compiler/CError.h" -#include "compiler/CMangler.h" -#include "compiler/CParser.h" -#include "compiler/CPrep.h" -#include "compiler/CompilerTools.h" -#include "compiler/Unmangle.h" -#include "compiler/objects.h" -#include "compiler/templates.h" -#include "cos.h" -#include "plugin.h" - -Boolean gUseTokenStreamSource; -Boolean gForceSourceLoc; -Boolean gUseNameTable; -static GList gBrowseData; -static GList gClassData; -static GList gMemberFuncList; -static int gNextMemberFuncID; - -enum ELanguage { - langUnknown, - langC, - langCPlus, - langPascal, - langObjectPascal, - langJava, - langAssembler, - langFortran, - langRez -}; - -enum EBrowserItem { - browseFunction, - browseGlobal, - browseClass, - browseMacro, - browseEnum, - browseTypedef, - browseConstant, - browseTemplate, - browsePackage, - browseCompSymbolStart = 0x70, - browseEnd = 0xFF -}; - -enum { - kAbstract = 1, - kStatic = 2, - kFinal = 4, - kMember = 8, - - kInterface = 0x80, - kPublic = 0x100, - - kInline = 0x80, - kPascal = 0x100, - kAsm = 0x200, - kVirtual = 0x400, - kCtor = 0x800, - kDtor = 0x1000, - kNative = 0x2000, - kSynch = 0x4000, - kIntrinsic = 0x8000, - kConst = 0x10000, - - kTransient = 0x80, - kVolatile = 0x100 -}; - -enum EAccess { - accessNone = 0, - accessPrivate = 1, - accessProtected = 2, - accessPublic = 4 -}; - -enum EMember { - memberFunction, - memberData, - memberEnd = 0xFF -}; - -enum ETemplateType { - templateClass, - templateFunction -}; - -static enum EAccess gFromAccessType[] = { - accessPublic, - accessPrivate, - accessProtected, - accessNone -}; - -typedef struct BrowseHeader { - SInt32 browse_header; - SInt32 browse_version; - SInt16 browse_language; - SInt16 uses_name_table; - SInt32 earliest_compatible_version; - SInt32 reserved[15]; -} BrowseHeader; - -// forward decls -static void RecordUndefinedMemberFunctions(void); - -void CBrowse_Setup(CompilerLinkerParamBlk *params) { - BrowseHeader hdr; - - CError_ASSERT(123, params != NULL); - - params->object.browsedata = NULL; - - InitGList(&gBrowseData, 0x10000); - InitGList(&gMemberFuncList, 1024); - - gNextMemberFuncID = 1; - gForceSourceLoc = 0; - gUseNameTable = 0; - - memclrw(&hdr, sizeof(hdr)); - hdr.browse_header = 0xBEABBAEB; - hdr.browse_version = 2; - hdr.earliest_compatible_version = 2; - hdr.browse_language = copts.cplusplus ? langCPlus : langC; - hdr.uses_name_table = gUseNameTable; - - AppendGListData(&gBrowseData, &hdr, sizeof(hdr)); -} - -void CBrowse_Finish(CompilerLinkerParamBlk *params) { - CWMemHandle hnd; - - CError_ASSERT(151, params != NULL); - - if (gBrowseData.size >= sizeof(BrowseHeader)) { - RecordUndefinedMemberFunctions(); - AppendGListByte(&gBrowseData, -1); - - COS_ResizeHandle(gBrowseData.data, gBrowseData.size); - - if (CWSecretAttachHandle(params->context, gBrowseData.data, &hnd) == cwNoErr) { - params->object.browsedata = hnd; - gBrowseData.data = NULL; - } - } -} - -void CBrowse_Cleanup(CompilerLinkerParamBlk *params) { - FreeGList(&gBrowseData); - FreeGList(&gClassData); - FreeGList(&gMemberFuncList); -} - -static void AppendGList(GList *dst, GList *src) { - SInt32 offset = dst->size; - - AppendGListNoData(dst, src->size); - memcpy(*dst->data + offset, *src->data, src->size); -} - -static void RecordName(GList *gl, const char *str, SInt32 id) { - HashNameNode *name; - - CError_ASSERT(190, gl && str && *str); - - if (id < 0 && gUseNameTable) { - for (name = name_hash_nodes[CHash(str)]; name; name = name->next) { - if (!strcmp(str, name->name)) { - id = name->id; - break; - } - } - } - - if (id >= 0 && gUseNameTable) { - AppendGListWord(gl, -1); - AppendGListLong(gl, id); - } else { - int len = strlen(str); - AppendGListWord(gl, len); - if (len) - AppendGListData(gl, str, len + 1); - } -} - -void CBrowse_BeginClass(DeclInfo *di, GList *gl) { - char *buf; - ClassList *base; - SInt32 i; - TypeClass *tclass; - - CError_ASSERT(227, di && di->thetype && gl); - - *gl = gClassData; - - if ( - !di->file || - !di->file->fileID || - !di->file->recordbrowseinfo || - !di->file2 || - !di->file2->fileID || - di->sourceoffset <= 0 - ) - { - memclrw(&gClassData, sizeof(gClassData)); - return; - } - - if (IsTempName(TYPE_CLASS(di->thetype)->classname)) { - memclrw(&gClassData, sizeof(gClassData)); - return; - } - - InitGList(&gClassData, 0x4000); - AppendGListByte(&gClassData, browseClass); - AppendGListWord(&gClassData, di->file->fileID); - AppendGListWord(&gClassData, di->file2->fileID); - AppendGListLong(&gClassData, di->sourceoffset - 1); - CError_ASSERT(270, gClassData.size == 9); - AppendGListLong(&gClassData, di->sourceoffset - 1); - AppendGListLong(&gClassData, 0); - RecordName(&gClassData, TYPE_CLASS(di->thetype)->classname->name, TYPE_CLASS(di->thetype)->classname->id); - - CMangler_MangleType(di->thetype, 0); - AppendGListByte(&name_mangle_list, 0); - - buf = lalloc(name_mangle_list.size + 1); - strcpy(buf, *name_mangle_list.data); - - while (*buf && *buf >= '0' && *buf <= '9') - buf++; - - if (strcmp(TYPE_CLASS(di->thetype)->classname->name, buf)) - RecordName(&gClassData, buf, -1); - else - AppendGListWord(&gClassData, 0); - - AppendGListLong(&gClassData, 0); - - i = 0; - base = TYPE_CLASS(di->thetype)->bases; - while (base) { - base = base->next; - i++; - } - - AppendGListByte(&gClassData, i); - - for (base = TYPE_CLASS(di->thetype)->bases; base; base = base->next) { - AppendGListByte(&gClassData, gFromAccessType[base->access]); - AppendGListByte(&gClassData, base->is_virtual); - - tclass = base->base; - if ((tclass->flags & CLASS_IS_TEMPL_INST) && !TEMPL_CLASS_INST(tclass)->is_specialized) - tclass = TYPE_CLASS(TEMPL_CLASS_INST(tclass)->templ); - - CMangler_MangleType(TYPE(tclass), 0); - AppendGListByte(&name_mangle_list, 0); - - buf = lalloc(name_mangle_list.size + 1); - strcpy(buf, *name_mangle_list.data); - - while (*buf && *buf >= '0' && *buf <= '9') - buf++; - - i = base->base->classname->id; - while (*buf && *buf >= '0' && *buf <= '9') { - i = -1; - buf++; - } - - RecordName(&gClassData, buf, i); - } -} - -void CBrowse_AddClassMemberVar(ObjMemberVar *ivar, SInt32 startOffset, SInt32 endOffset) { - short len; - - CError_ASSERT(360, ivar); - - if (gClassData.data && startOffset > 0 && endOffset >= startOffset) { - if (tk == ';') - endOffset++; - - AppendGListByte(&gClassData, memberData); - AppendGListByte(&gClassData, gFromAccessType[ivar->access]); - AppendGListLong(&gClassData, 0); - AppendGListLong(&gClassData, startOffset - 1); - AppendGListLong(&gClassData, endOffset - 1); - - len = strlen(ivar->name->name); - AppendGListWord(&gClassData, len); - AppendGListData(&gClassData, ivar->name->name, len + 1); - } -} - -void CBrowse_AddClassMemberFunction(Object *object, SInt32 startOffset, SInt32 endOffset) { - SInt32 flags; - SInt32 id; - TypeMemberFunc *tfunc; - - CError_ASSERT(380, object); - - if ( - !IsTempName(object->name) && - gClassData.data && - startOffset > 0 && - endOffset >= startOffset - ) - { - flags = 0; - CError_ASSERT(391, object->type && IS_TYPE_FUNC(object->type)); - tfunc = TYPE_METHOD(object->type); - - if (tfunc->flags & FUNC_AUTO_GENERATED) - return; - - if (object->datatype == DVFUNC) - flags |= kVirtual; - if (tfunc->flags & FUNC_PURE) - flags |= kAbstract; - if (tfunc->is_static) - flags |= kStatic; - if (tfunc->flags & FUNC_IS_CTOR) - flags |= kCtor; - if (tfunc->flags & FUNC_IS_DTOR) - flags |= kDtor; - - AppendGListByte(&gClassData, memberFunction); - AppendGListByte(&gClassData, gFromAccessType[object->access]); - AppendGListLong(&gClassData, flags); - - id = tfunc->funcid; - if (id <= 0) { - // TODO: this is not 64-bit safe - if (!(tfunc->flags & FUNC_DEFINED) || id == -1) - AppendGListLong(&gMemberFuncList, (SInt32) object); - tfunc->funcid = id = gNextMemberFuncID++; - } - - AppendGListLong(&gClassData, id); - AppendGListLong(&gClassData, startOffset - 1); - AppendGListLong(&gClassData, endOffset); - } -} - -void CBrowse_AddClassMemberData(Object *object, SInt32 startOffset, SInt32 endOffset) { - short len; - - CError_ASSERT(435, object); - - if (gClassData.data && startOffset > 0 && endOffset >= startOffset && object->datatype == DDATA) { - if (tk == ';') - endOffset++; - - AppendGListByte(&gClassData, memberData); - AppendGListByte(&gClassData, gFromAccessType[object->access]); - AppendGListLong(&gClassData, kStatic); - AppendGListLong(&gClassData, startOffset - 1); - AppendGListLong(&gClassData, endOffset - 1); - - len = strlen(object->name->name); - AppendGListWord(&gClassData, len); - AppendGListData(&gClassData, object->name->name, len + 1); - } -} - -void CBrowse_EndClass(SInt32 offset, GList *gl) { - CError_ASSERT(453, gl); - - if (gClassData.data) { - if (gClassData.size > 0) { - if (tk == ';') - offset++; - memcpy(*gClassData.data + 9, &offset, 4); - AppendGList(&gBrowseData, &gClassData); - AppendGListByte(&gBrowseData, memberEnd); - } - FreeGList(&gClassData); - } - - gClassData = *gl; -} - -void CBrowse_BeginStruct(DeclInfo *di, TypeStruct *tstruct, GList *gl) { - HashNameNode *name; - - CError_ASSERT(480, di && gl); - - *gl = gClassData; - - if ( - !di->file || - !di->file->fileID || - !di->file->recordbrowseinfo || - !di->file2 || - !di->file2->fileID || - di->sourceoffset <= 0 - ) - { - memclrw(&gClassData, sizeof(gClassData)); - return; - } - - name = tstruct->name; - if (!name || IsTempName(name)) { - memclrw(&gClassData, sizeof(gClassData)); - return; - } - - InitGList(&gClassData, 0x4000); - AppendGListByte(&gClassData, browseClass); - AppendGListWord(&gClassData, di->file->fileID); - AppendGListWord(&gClassData, di->file2->fileID); - AppendGListLong(&gClassData, di->sourceoffset - 1); - CError_ASSERT(521, gClassData.size == 9); - AppendGListLong(&gClassData, di->sourceoffset - 1); - AppendGListLong(&gClassData, 0); - RecordName(&gClassData, name->name, name->id); - AppendGListWord(&gClassData, 0); - AppendGListLong(&gClassData, 0); - AppendGListByte(&gClassData, 0); -} - -void CBrowse_AddStructMember(StructMember *member, SInt32 startOffset, SInt32 endOffset) { - short len; - - if (tk == ';') - endOffset++; - - if (gClassData.data && member && startOffset > 0 && endOffset >= startOffset) { - AppendGListByte(&gClassData, memberData); - AppendGListByte(&gClassData, accessPublic); - AppendGListLong(&gClassData, 0); - AppendGListLong(&gClassData, startOffset - 1); - AppendGListLong(&gClassData, endOffset - 1); - - len = strlen(member->name->name); - AppendGListWord(&gClassData, len); - AppendGListData(&gClassData, member->name->name, len + 1); - } -} - -void CBrowse_EndStruct(SInt32 offset, GList *gl) { - CError_ASSERT(558, gl); - - if (gClassData.data) { - if (offset > 0 && gClassData.size > 0) { - memcpy(*gClassData.data + 9, &offset, 4); - AppendGList(&gBrowseData, &gClassData); - AppendGListByte(&gBrowseData, memberEnd); - } - FreeGList(&gClassData); - } - - gClassData = *gl; -} - -static void EmitStandardData(int item, int fileID1, int fileID2, SInt32 startOffset, SInt32 endOffset, const char *str, SInt32 id, const char *str2, SInt32 id2) { - CError_ASSERT(584, str); - - AppendGListByte(&gBrowseData, item); - AppendGListWord(&gBrowseData, fileID1); - AppendGListWord(&gBrowseData, fileID2); - AppendGListLong(&gBrowseData, startOffset - 1); - AppendGListLong(&gBrowseData, endOffset - 1); - AppendGListLong(&gBrowseData, 0); - - RecordName(&gBrowseData, str, id); - if (str2 && str2 != str) - RecordName(&gBrowseData, str2, id2); - else - AppendGListWord(&gBrowseData, 0); -} - -void CBrowse_NewTypedef(NameSpace *nspace, HashNameNode *name, CPrepFileInfo *file1, CPrepFileInfo *file2, SInt32 startOffset, SInt32 endOffset) { - CError_ASSERT(618, file1 && file1->recordbrowseinfo); - - if (file2 && file2->fileID && startOffset > 0 && endOffset >= startOffset) { - EmitStandardData(browseTypedef, - file1->fileID, file2->fileID, - startOffset, endOffset, - name->name, name->id, - CError_GetQualifiedName(nspace, name), -1); - } -} - -void CBrowse_NewEnum(NameSpace *nspace, HashNameNode *name, CPrepFileInfo *file1, CPrepFileInfo *file2, SInt32 startOffset, SInt32 endOffset) { - CError_ASSERT(632, file1 && file1->recordbrowseinfo); - - if (file2 && file2->fileID && startOffset > 0 && endOffset >= startOffset) { - EmitStandardData(browseEnum, - file1->fileID, file2->fileID, - startOffset, endOffset, - name->name, name->id, - CError_GetQualifiedName(nspace, name), -1); - } -} - -void CBrowse_NewEnumConstant(NameSpace *nspace, HashNameNode *name, CPrepFileInfo *file1, CPrepFileInfo *file2, SInt32 startOffset, SInt32 endOffset) { - CError_ASSERT(646, file1 && file1->recordbrowseinfo); - - if (tk == ',') - endOffset++; - - if (file2 && file2->fileID && startOffset > 0 && endOffset >= startOffset) { - EmitStandardData(browseConstant, - file1->fileID, file2->fileID, - startOffset, endOffset, - name->name, name->id, - CError_GetQualifiedName(nspace, name), -1); - } -} - -static HashNameNode *CBrowse_GetLinkName(Object *object) { - return CMangler_GetLinkName(object); -} - -static void RecordFunction(Object *object, int fileID1, int fileID2, SInt32 startOffset, SInt32 endOffset) { - TypeFunc *tfunc; - char *tmp; - Boolean flag; - char *str29; - HashNameNode *linkname; - SInt32 flags; - char *namestr; - SInt32 nameid; - char *namestr2; - SInt32 nameid2; - int funcid; - char buf[2048]; - char buf2[256]; - - CError_ASSERT(740, object->type && IS_TYPE_FUNC(object->type)); - - if (IsTempName(object->name)) - return; - - tfunc = TYPE_FUNC(object->type); - if ((tfunc->flags & (FUNC_AUTO_GENERATED | FUNC_INTRINSIC)) && (!fileID2 || startOffset < 0)) - return; - - linkname = object->name; - tmp = linkname->name; - if (!(linkname->name[0] == '_' && linkname->name[1] == '_')) { - namestr = tmp; - nameid = linkname->id; - switch (tmp[0]) { - case '.': - nameid = -1; - namestr += 1; - break; - case '_': - switch (tmp[1]) { - case '#': - case '%': - case '@': - nameid = -1; - namestr += 2; - break; - } - break; - } - } else { - flag = 1; - if (tfunc->flags & (FUNC_IS_CTOR | FUNC_IS_DTOR)) { - tmp = TYPE_METHOD(tfunc)->theclass->classname->name; - while (*tmp >= '0' && *tmp <= '9') - tmp++; - MWUnmangleClassName(tmp, buf, sizeof(buf)); - - str29 = buf; - if ((tmp = strrchr(str29, ':'))) - str29 = tmp + 1; - - if (tfunc->flags & FUNC_IS_DTOR) { - buf2[0] = '~'; - strncpy(&buf2[1], str29, sizeof(buf2) - 1); - namestr = buf2; - } else { - namestr = str29; - } - - flag = 0; - } - - if (flag) { - MWUnmangle(object->name->name, buf, sizeof(buf)); - namestr = buf; - } - - nameid = -1; - } - - while (*namestr >= '0' && *namestr <= '9') { - nameid = -1; - namestr++; - } - - namestr2 = NULL; - nameid2 = -1; - - linkname = CBrowse_GetLinkName(object); - if (object->name != linkname) { - namestr2 = linkname->name; - if (linkname->name[0] == '.') - namestr2++; - else - nameid2 = linkname->id; - } - - EmitStandardData(browseFunction, fileID1, fileID2, startOffset, endOffset, namestr, nameid, namestr2, nameid2); - - flags = 0; - if (object->qual & Q_INLINE) - flags |= kInline; - if (object->qual & Q_PASCAL) - flags |= kPascal; - if (object->qual & Q_ASM) - flags |= kAsm; - if (object->sclass == TK_STATIC) - flags |= kStatic; - if (tfunc->flags & FUNC_METHOD) - flags |= kMember; - AppendGListLong(&gBrowseData, flags); - - funcid = 0; - if (tfunc->flags & FUNC_METHOD) { - funcid = TYPE_METHOD(tfunc)->funcid; - if (funcid <= 0) { - TYPE_METHOD(tfunc)->funcid = funcid = gNextMemberFuncID++; - } - } - AppendGListLong(&gBrowseData, funcid); -} - -void CBrowse_NewFunction(Object *object, CPrepFileInfo *file1, CPrepFileInfo *file2, SInt32 startOffset, SInt32 endOffset) { - CError_ASSERT(890, file1 && file1->recordbrowseinfo); - - if (file2 && file2->fileID && startOffset > 0 && (endOffset + 1) >= startOffset) - RecordFunction(object, file1->fileID, file2->fileID, startOffset, endOffset + 1); -} - -void CBrowse_NewData(Object *object, CPrepFileInfo *file1, CPrepFileInfo *file2, SInt32 startOffset, SInt32 endOffset) { - char *namestr = NULL; - SInt32 flags = 0; - Boolean is_const = is_const_object(object); - - CError_ASSERT(912, file1 && file1->recordbrowseinfo); - CError_ASSERT(913, object); - - if (tk == ';') - endOffset++; - - if (file2 && file2->fileID && startOffset > 0 && endOffset >= startOffset) { - HashNameNode *name = CBrowse_GetLinkName(object); - if (object->name != name) - namestr = name->name; - - EmitStandardData( - is_const ? browseConstant : browseGlobal, - file1->fileID, file2->fileID, - startOffset, endOffset, - object->name->name, object->name->id, - namestr, name->id - ); - - if (!is_const) { - if (object->sclass == TK_STATIC) - flags |= kStatic; - AppendGListLong(&gBrowseData, flags); - } - } -} - -void CBrowse_NewMacro(Macro *macro, CPrepFileInfo *file, SInt32 startOffset, SInt32 endOffset) { - CError_ASSERT(951, !file || (file->recordbrowseinfo && !macro->is_special)); - - if (file && file->fileID && startOffset > 0 && endOffset >= startOffset) - EmitStandardData( - browseMacro, - file->fileID, file->fileID, - startOffset, endOffset, - macro->name->name, macro->name->id, - NULL, -1 - ); -} - -void CBrowse_NewTemplateClass(TemplClass *tmclass, CPrepFileInfo *file, SInt32 startOffset, SInt32 endOffset) { - CError_ASSERT(965, !file || file->recordbrowseinfo); - - if (file && file->fileID && startOffset > 0 && endOffset >= startOffset) { - EmitStandardData( - browseTemplate, - file->fileID, file->fileID, - startOffset, endOffset, - tmclass->theclass.classname->name, tmclass->theclass.classname->id, - NULL, -1 - ); - AppendGListByte(&gBrowseData, templateClass); - } -} - -void CBrowse_NewTemplateFunc(TemplateFunction *tmfunc) { - CError_ASSERT(979, !tmfunc->srcfile || tmfunc->srcfile->recordbrowseinfo); - - if (tmfunc->srcfile && tmfunc->srcfile->fileID && tmfunc->startoffset > 0 && tmfunc->endoffset >= tmfunc->startoffset) { - EmitStandardData( - browseTemplate, - tmfunc->srcfile->fileID, tmfunc->srcfile->fileID, - tmfunc->startoffset, tmfunc->endoffset, - tmfunc->name->name, tmfunc->name->id, - NULL, -1 - ); - AppendGListByte(&gBrowseData, templateFunction); - } -} - -static void RecordUndefinedMemberFunctions(void) { - int i; - int count; - Object **array; - - COS_LockHandleHi(gMemberFuncList.data); - - count = gMemberFuncList.size / sizeof(Object *); - array = (Object **) *gMemberFuncList.data; - for (i = 0; i < count; i++, array++) { - if (IS_TYPE_FUNC((*array)->type) && !(TYPE_FUNC((*array)->type)->flags & FUNC_DEFINED)) - RecordFunction(*array, 0, 0, -1, -1); - } - - COS_UnlockHandle(gMemberFuncList.data); -} -- cgit v1.2.3