kotofyt/funnygame
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

some work on fpc

Browse Source
This commit is contained in:
kotofyt
2025-12-30 22:13:01 +02:00
parent 842eeabbde
commit 773a541199
27 changed files with 298 additions and 101 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
fpc/library/builder.cpp
View File

@@ -2,6 +2,9 @@
#include "ld.h"
#include "c.h"
CUtlVector<BuildFileInfo_t> buildFileInfos = {};
class CProjectBuilder : public IProjectBuilder
{
public:
@@ -20,6 +23,26 @@ IProjectBuilder *ProjectBuilder()
return &s_projectBuilder;
};
CUtlString FPC_GetProjectObject( const char *szName, const char *szObjectName )
{
for (auto b: buildFileInfos)
{
for (auto s: b.m_stages)
{
if (strcmp(s->m_psz, szName))
continue;
for (auto o: s->m_outputs)
{
if (strcmp(o.m_szName, szObjectName))
continue;
return o.m_szPath;
}
}
}
return NULL;
}
BuildFile_t *CProjectBuilder::BuildProject( const char *szProjectName, const char *szPath )
{
CProject_t stCompileProject = {};
@@ -30,7 +53,8 @@ BuildFile_t *CProjectBuilder::BuildProject( const char *szProjectName, const cha
BuildFileInfo_t *pBuildFileInfo;
BuildFileInfo_t stBuildFileInfo;
BuildFile_t *pBuildFile = NULL;
CBuildStage **ppExecutedBuildStage = NULL;
GetProjectObjectFn *pfnGetProjectObject = NULL;
CUtlString szWd = CUtlString(szPath).GetDirectory();
Plat_SetWorkingDir(szWd);
@@ -40,16 +64,17 @@ BuildFile_t *CProjectBuilder::BuildProject( const char *szProjectName, const cha
stCompileProject.files = {
szPath,
};
stCompileProject.includeDirectories = {CUtlString("%s/public",filesystem2->OwnDirectory()),CUtlString("%s/public", filesystem2->BuildDirectory()), CUtlString("%s/../public",filesystem2->OwnDirectory()),CUtlString("%s/../public", filesystem2->BuildDirectory())};
stCompileProject.includeDirectories = {CUtlString("%s/public",filesystem2->OwnDirectory())};
stCompileProject.bFPIC = true;
stCompileProject.m_target = Target_t::HostTarget();
stLinkProject = ccompiler->Compile(&stCompileProject);
stLinkProject.linkType = ELINK_DYNAMIC_LIBRARY;
stLinkProject.m_target = Target_t::HostTarget();
stLinkProject.objects.AppendHead({CUtlString("%s/libfpcbuild.a",filesystem2->OwnDirectory())});
stLinkProject.objects.AppendHead({CUtlString("%s/libtier2.a",filesystem2->OwnDirectory())});
stLinkProject.objects.AppendHead({CUtlString("%s/libtier1.a",filesystem2->OwnDirectory())});
stLinkProject.libraryObjects.AppendHead({CUtlString("%s/libfpcbuild.a",filesystem2->OwnDirectory())});
stLinkProject.libraryObjects.AppendHead({CUtlString("%s/libfpc.so",filesystem2->OwnDirectory())});
stLinkProject.libraryObjects.AppendHead({CUtlString("%s/libtier2.a",filesystem2->OwnDirectory())});
stLinkProject.libraryObjects.AppendHead({CUtlString("%s/libtier1.a",filesystem2->OwnDirectory())});
szBuildLibrary = linker->Link(&stLinkProject);
pLibrary = Plat_LoadLibrary(szBuildLibrary);
@@ -64,17 +89,21 @@ BuildFile_t *CProjectBuilder::BuildProject( const char *szProjectName, const cha
return NULL;
}
pBuildFileInfo = (BuildFileInfo_t*)pBuildFactory(BUILD_FILE_INFO_INTERFACE_NAME, NULL);
if (!pBuildFileInfo)
pBuildFileInfo = (BuildFileInfo_t*)pBuildFactory(BUILD_FILE_INFO_INTERFACE_VERSION, NULL);
ppExecutedBuildStage = (CBuildStage**)pBuildFactory(BUILD_CURRENT_STAGE_INTERFACE_VERSION, NULL);
pfnGetProjectObject = (GetProjectObjectFn*)pBuildFactory(BUILD_GET_PROJECT_OBJECT_INTERFACE_VERSION, NULL);
if (!pBuildFileInfo || !ppExecutedBuildStage || !pfnGetProjectObject)
{
V_printf("Failed to find build file info interface\n");
V_printf("Required interfaces are not present\n");
Plat_UnloadLibrary(szBuildLibrary);
return NULL;
}
stBuildFileInfo = *pBuildFileInfo;
buildFileInfos.AppendTail(stBuildFileInfo);
*pfnGetProjectObject = FPC_GetProjectObject;
for (auto a: stBuildFileInfo.m_dependantFiles)
{
BuildProject("something", CUtlString("%s/build.cpp",a));
BuildProject("something", CUtlString("%s/%s/build.cpp",szWd.GetString(),a));
}
Plat_SetWorkingDir(szWd);
@@ -82,7 +111,14 @@ BuildFile_t *CProjectBuilder::BuildProject( const char *szProjectName, const cha
for (auto &build: stBuildFileInfo.m_stages)
{
*ppExecutedBuildStage = build;
build->m_pMainFn();
for ( auto &o: build->m_outputs)
{
o.m_szPath.AppendHead("/");
o.m_szPath.AppendHead(Plat_GetWorkingDir());
printf("%s: %s = %s\n",build->m_psz,o.m_szName, o.m_szPath.GetString());
};
};
pBuildFile = new BuildFile_t;