Handle library incompatibilities

Add a mechanism for libraries to resolve incompatibilities between
library versions before linking.

This is currently used for ChipmunkSpriteEngine and GoatGUIEngine,
where early versions used integer IDs when loading CGs (later versions
use strings).

include/parts.h

@@ -29,13 +29,15 @@ void PE_UpdateParts(int passed_time, bool is_skip, bool message_window_show);
 bool PE_SetPartsCG(int parts_no, struct string *cg_name, int sprite_deform, int state);
 bool PE_SetPartsCG_by_index(int parts_no, int cg_no, int sprite_deform, int state);
 int PE_GetPartsCGNumber(int parts_no, int state);
-bool PE_SetLoopCG(int parts_no, int cg_no, int nr_frames, int frame_time, int state);
-bool PE_SetHGaugeCG(int parts_no, int cg_no, int state);
+bool PE_SetLoopCG_by_index(int parts_no, int cg_no, int nr_frames, int frame_time, int state);
+bool PE_SetHGaugeCG(int parts_no, struct string *cg_name, int state);
+bool PE_SetHGaugeCG_by_index(int parts_no, int cg_no, int state);
 bool PE_SetHGaugeRate(int parts_no, int numerator, int denominator, int state);
-bool PE_SetVGaugeCG(int parts_no, int cg_no, int state);
+bool PE_SetVGaugeCG(int parts_no, struct string *cg_name, int state);
+bool PE_SetVGaugeCG_by_index(int parts_no, int cg_no, int state);
 bool PE_SetVGaugeRate(int parts_no, int numerator, int denominator, int state);
-bool PE_SetNumeralCG(int parts_no, int cg_no, int state);
-bool PE_SetNumeralLinkedCGNumberWidthWidthList(int parts_no, int cg_no, int w0, int w1, int w2, int w3, int w4, int w5, int w6, int w7, int w8, int w9, int w_minus, int w_comma, int state);
+bool PE_SetNumeralCG_by_index(int parts_no, int cg_no, int state);
+bool PE_SetNumeralLinkedCGNumberWidthWidthList_by_index(int parts_no, int cg_no, int w0, int w1, int w2, int w3, int w4, int w5, int w6, int w7, int w8, int w9, int w_minus, int w_comma, int state);
 bool PE_SetNumeralNumber(int parts_no, int n, int state);
 bool PE_SetNumeralShowComma(int parts_no, bool show_comma, int state);
 bool PE_SetNumeralSpace(int parts_no, int space, int state);
@@ -103,7 +105,7 @@ int PE_GetClickPartsNumber(void);
 // motion.c
 void PE_AddMotionPos(int parts_no, int begin_x, int begin_y, int end_x, int end_y, int begin_t, int end_t);
 void PE_AddMotionAlpha(int parts_no, int begin_a, int end_a, int begin_t, int end_t);
-void PE_AddMotionCG(int parts_no, int begin_cg_no, int nr_cg, int begin_t, int end_t);
+void PE_AddMotionCG_by_index(int parts_no, int begin_cg_no, int nr_cg, int begin_t, int end_t);
 void PE_AddMotionHGaugeRate(int parts_no, int begin_numerator, int begin_denominator,
 			    int end_numerator, int end_denominator, int begin_t, int end_t);
 void PE_AddMotionVGaugeRate(int parts_no, int begin_numerator, int begin_denominator,

include/sprite.h

@@ -66,6 +66,7 @@ void sprite_set_cg(struct sact_sprite *sp, struct cg *cg);
 void sprite_set_cg_2x(struct sact_sprite *sp, struct cg *cg);
 int sprite_set_cg_from_asset(struct sact_sprite *sp, int cg_no);
 int sprite_set_cg_2x_from_asset(struct sact_sprite *sp, int cg_no);
+int sprite_set_cg_by_name(struct sact_sprite *sp, const char *name);
 int sprite_set_cg_from_file(struct sact_sprite *sp, const char *path);
 int sprite_save_cg(struct sact_sprite *sp, const char *path);
 void sprite_init(struct sact_sprite *sp, int w, int h, int r, int g, int b, int a);

src/ffi.c

@@ -527,6 +527,7 @@ static void link_libraries(void)
 
 void init_libraries(void)
 {
+	library_run_all("_PreLink");
 	link_libraries();
 	library_run_all("_ModuleInit");
 }
@@ -535,3 +536,14 @@ void exit_libraries(void)
 {
 	library_run_all("_ModuleFini");
 }
+
+void static_library_replace(struct static_library *lib, const char *name, void *fun)
+{
+	for (int i = 0; lib->functions[i].name; i++) {
+		if (!strcmp(lib->functions[i].name, name)) {
+			lib->functions[i].fun = fun;
+			return;
+		}
+	}
+	ERROR("No library function '%s.%s'", lib->name, name);
+}

src/hacks.c

@@ -169,6 +169,8 @@ void apply_game_specific_hacks(struct ain *ain)
 		apply_rance7_hacks(ain);
 	} else if (!strcmp(game_name, "しゃーまんず・さんくちゅあり　巫女の聖域")) {
 		id_indexed_afa = true;
+	} else if (!strcmp(game_name, "大帝国")) {
+		id_indexed_afa = true;
 	}
 	free(game_name);
 }

src/hll/ChipmunkSpriteEngine.c

@@ -14,25 +14,59 @@
  * along with this program; if not, see <http://gnu.org/licenses/>.
  */
 
+#include <assert.h>
+
+#include "system4/cg.h"
 #include "system4/string.h"
 #include "system4/utfsjis.h"
 
 #include "asset_manager.h"
 #include "gfx/font.h"
+#include "vm/page.h"
 #include "input.h"
 #include "sact.h"
 #include "CharSpriteManager.h"
 #include "xsystem4.h"
 #include "hll.h"
 
+static void ChipmunkSpriteEngine_PreLink(void);
+
 static void ChipmunkSpriteEngine_ModuleFini(void)
 {
 	sact_ModuleFini();
 }
 
-static int ChipmunkSpriteEngine_Init(void *imain_system, int cg_cache_size)
+static int ChipmunkSpriteEngine_Init(void *imain_system)
 {
-	return sact_Init(imain_system, cg_cache_size);
+	return sact_Init(imain_system, 16);
+}
+
+static int ChipmunkSpriteEngine_SP_SetCG(int sp_no, struct string *cg_name)
+{
+	struct sact_sprite *sp = sact_get_sprite(sp_no);
+	if (!sp) return 0;
+	return sprite_set_cg_by_name(sp, cg_name->text);
+}
+
+static int ChipmunkSpriteEngine_CG_IsExist(struct string *cg_name)
+{
+	return asset_exists_by_name(ASSET_CG, cg_name->text, NULL);
+}
+
+static int ChipmunkSpriteEngine_CG_GetMetrics(struct string *cg_name, struct page **page)
+{
+	union vm_value *cgm = (*page)->values;
+	struct cg_metrics metrics;
+	if (!asset_cg_get_metrics_by_name(cg_name->text, &metrics))
+		return 0;
+	cgm[0].i = metrics.w;
+	cgm[1].i = metrics.h;
+	cgm[2].i = metrics.bpp;
+	cgm[3].i = metrics.has_pixel;
+	cgm[4].i = metrics.has_alpha;
+	cgm[5].i = metrics.pixel_pitch;
+	cgm[6].i = metrics.alpha_pitch;
+	return 1;
 }
 
 HLL_WARN_UNIMPLEMENTED(0, int,  ChipmunkSpriteEngine, SP_SetBrightness, int sp_no, int brightness);
@@ -72,9 +106,18 @@ static bool ChipmunkSpriteEngine_SP_GetFontWidth(struct string *text, int *width
 
 //static bool ChipmunkSpriteEngine_SP_SetAlphaClipperSpriteNumber(int sp_no, int ac_sp_no);
 //static int ChipmunkSpriteEngine_SP_GetAlphaClipperSpriteNumber(int sp_no);
-//static int CG_GetFormat(int cg_no);
+//static int CG_GetFormat_by_index(int cg_no);
+//static int CG_GetFormat(struct string *cg_name);
+
+//static bool ChipmunkSpriteEngine_SP_Suspend(int sp_no);
+//static bool ChipmunkSpriteEngine_SP_Resume(int sp_no);
+//static bool ChipmunkSpriteEngine_SP_IsSuspend(int sp_no);
+//static bool ChipmunkSpriteEngine_Debug_GetVideoMemoryInfo(int *max_size, int *use_size, int *use_max_size);
+//static void ChipmunkSpriteEngine_CombineTexture(void);
+//static void ChipmunkSpriteEngine_ReleaseCombinedTexture(void);
 
 HLL_LIBRARY(ChipmunkSpriteEngine,
+	    HLL_EXPORT(_PreLink, ChipmunkSpriteEngine_PreLink),
 	    HLL_EXPORT(_ModuleFini, ChipmunkSpriteEngine_ModuleFini),
 	    HLL_EXPORT(Init, ChipmunkSpriteEngine_Init),
 	    HLL_TODO_EXPORT(Error, SACT2_Error),
@@ -84,7 +127,7 @@ HLL_LIBRARY(ChipmunkSpriteEngine,
 	    HLL_EXPORT(SP_GetUnuseNum, sact_SP_GetUnuseNum),
 	    HLL_EXPORT(SP_Count, sact_SP_Count),
 	    HLL_EXPORT(SP_Enum, sact_SP_Enum),
-	    HLL_EXPORT(SP_SetCG, sact_SP_SetCG),
+	    HLL_EXPORT(SP_SetCG, ChipmunkSpriteEngine_SP_SetCG),
 	    HLL_TODO_EXPORT(SP_SetCutCG, ChipmunkSpriteEngine_SP_SetCutCG),
 	    HLL_EXPORT(SP_SetCGFromFile, sact_SP_SetCGFromFile),
 	    HLL_EXPORT(SP_SaveCG, sact_SP_SaveCG),
@@ -155,8 +198,9 @@ HLL_LIBRARY(ChipmunkSpriteEngine,
 	    HLL_EXPORT(Key_IsDown, sact_Key_IsDown),
 	    HLL_EXPORT(KEY_GetState, key_is_down),
 	    HLL_EXPORT(Timer_Get, vm_time),
-	    HLL_EXPORT(CG_IsExist, sact_CG_IsExist),
-	    HLL_EXPORT(CG_GetMetrics, sact_CG_GetMetrics),
+	    HLL_EXPORT(CG_IsExist, ChipmunkSpriteEngine_CG_IsExist),
+	    HLL_EXPORT(CG_GetMetrics, ChipmunkSpriteEngine_CG_GetMetrics),
+	    HLL_TODO_EXPORT(CG_GetFormat, ChipmunkSpriteEngine_CG_GetFormat),
 	    HLL_EXPORT(System_GetDate, get_date),
 	    HLL_EXPORT(System_GetTime, get_time),
 	    HLL_TODO_EXPORT(CG_RotateRGB, SACT2_CG_RotateRGB),
@@ -210,5 +254,48 @@ HLL_LIBRARY(ChipmunkSpriteEngine,
 	    HLL_TODO_EXPORT(Debug_GetCurrentAllocatedMemorySize, StoatSpriteEngine_Debug_GetCurrentAllocatedMemorySize),
 	    HLL_TODO_EXPORT(Debug_GetMaxAllocatedMemorySize, StoatSpriteEngine_Debug_GetMaxAllocatedMemorySize),
 	    HLL_TODO_EXPORT(Debug_GetFillRate, StoatSpriteEngine_Debug_GetFillRate),
-	    HLL_TODO_EXPORT(MUSIC_ReloadParam, StoatSpriteEngine_MUSIC_ReloadParam));
+	    HLL_TODO_EXPORT(MUSIC_ReloadParam, StoatSpriteEngine_MUSIC_ReloadParam),
+	    HLL_TODO_EXPORT(SP_Suspend, ChipmunkSpriteEngine_SP_Suspend),
+	    HLL_TODO_EXPORT(SP_Resume, ChipmunkSpriteEngine_SP_Resume),
+	    HLL_TODO_EXPORT(SP_IsSuspend, ChipmunkSpriteEngine_SP_IsSuspend),
+	    HLL_TODO_EXPORT(Debug_GetVideoMemoryInfo, ChipmunkSpriteEngine_Debug_GetVideoMemoryInfo),
+	    HLL_TODO_EXPORT(CombineTexture, ChipmunkSpriteEngine_CombineTexture),
+	    HLL_TODO_EXPORT(ReleaseCombinedTexture, ChipmunkSpriteEngine_ReleaseCombinedTexture));
 
+static struct ain_hll_function *get_fun(int libno, const char *name)
+{
+	int fno = ain_get_library_function(ain, libno, name);
+	return fno >= 0 ? &ain->libraries[libno].functions[fno] : NULL;
+}
+
+// Daiteikoku and Shaman's Sanctuary have different interface than later versions
+static void ChipmunkSpriteEngine_PreLink(void)
+{
+	struct ain_hll_function *fun;
+	int libno = ain_get_library(ain, "ChipmunkSpriteEngine");
+	assert(libno >= 0);
+
+	fun = get_fun(libno, "Init");
+	if (fun && fun->nr_arguments == 2) {
+		static_library_replace(&lib_ChipmunkSpriteEngine, "Init", sact_Init);
+	}
+
+	fun = get_fun(libno, "SP_SetCG");
+	if (fun && fun->arguments[1].type.data == AIN_INT) {
+		static_library_replace(&lib_ChipmunkSpriteEngine, "SP_SetCG", sact_SP_SetCG);
+	}
+
+	// TODO: SP_SetCutCG
+
+	fun = get_fun(libno, "CG_IsExist");
+	if (fun && fun->arguments[0].type.data == AIN_INT) {
+		static_library_replace(&lib_ChipmunkSpriteEngine, "CG_IsExist", sact_CG_IsExist);
+	}
+
+	fun = get_fun(libno, "CG_GetMetrics");
+	if (fun && fun->arguments[0].type.data == AIN_INT) {
+		static_library_replace(&lib_ChipmunkSpriteEngine, "CG_GetMetrics", sact_CG_GetMetrics);
+	}
+
+	// TODO: CG_GetFormat
+}

src/hll/GoatGUIEngine.c

@@ -14,15 +14,23 @@
  * along with this program; if not, see <http://gnu.org/licenses/>.
  */
 
+#include <assert.h>
+
+#include "system4/ain.h"
+
+#include "asset_manager.h"
 #include "parts.h"
 #include "hll.h"
 
+static void GoatGUIEngine_PreLink(void);
+
 HLL_LIBRARY(GoatGUIEngine,
+	    HLL_EXPORT(_PreLink, GoatGUIEngine_PreLink),
 	    HLL_EXPORT(Init, PE_Init),
 	    HLL_EXPORT(Update, PE_Update),
-	    HLL_EXPORT(SetPartsCG, PE_SetPartsCG_by_index),
+	    HLL_EXPORT(SetPartsCG, PE_SetPartsCG),
 	    HLL_EXPORT(GetPartsCGNumber, PE_GetPartsCGNumber),
-	    HLL_EXPORT(SetLoopCG, PE_SetLoopCG),
+	    HLL_TODO_EXPORT(SetLoopCG, PE_SetLoopCG),
 	    HLL_EXPORT(SetText, PE_SetText),
 	    HLL_EXPORT(AddPartsText, PE_AddPartsText),
 	    HLL_TODO_EXPORT(DeletePartsTopTextLine, PE_DeletePartsTopTextLine),
@@ -39,8 +47,8 @@ HLL_LIBRARY(GoatGUIEngine,
 	    HLL_EXPORT(SetHGaugeRate, PE_SetHGaugeRate),
 	    HLL_EXPORT(SetVGaugeCG, PE_SetVGaugeCG),
 	    HLL_EXPORT(SetVGaugeRate, PE_SetVGaugeRate),
-	    HLL_EXPORT(SetNumeralCG, PE_SetNumeralCG),
-	    HLL_EXPORT(SetNumeralLinkedCGNumberWidthWidthList, PE_SetNumeralLinkedCGNumberWidthWidthList),
+	    HLL_TODO_EXPORT(SetNumeralCG, PE_SetNumeralCG),
+	    HLL_TODO_EXPORT(SetNumeralLinkedCGNumberWidthWidthList, PE_SetNumeralLinkedCGNumberWidthWidthList),
 	    HLL_EXPORT(SetNumeralNumber, PE_SetNumeralNumber),
 	    HLL_EXPORT(SetNumeralShowComma, PE_SetNumeralShowComma),
 	    HLL_EXPORT(SetNumeralSpace, PE_SetNumeralSpace),
@@ -58,12 +66,16 @@ HLL_LIBRARY(GoatGUIEngine,
 	    HLL_EXPORT(SetShow, PE_SetShow),
 	    HLL_EXPORT(SetAlpha, PE_SetAlpha),
 	    HLL_TODO_EXPORT(SetPartsDrawFilter, PE_SetPartsDrawFilter),
+	    HLL_TODO_EXPORT(SetAddColor, PE_SetAddColor),
+	    HLL_TODO_EXPORT(SetMultiplyColor, PE_SetMultiplyColor),
 	    HLL_EXPORT(SetClickable, PE_SetClickable),
 	    HLL_EXPORT(GetPartsX, PE_GetPartsX),
 	    HLL_EXPORT(GetPartsY, PE_GetPartsY),
 	    HLL_EXPORT(GetPartsZ, PE_GetPartsZ),
 	    HLL_EXPORT(GetPartsShow, PE_GetPartsShow),
 	    HLL_EXPORT(GetPartsAlpha, PE_GetPartsAlpha),
+	    HLL_TODO_EXPORT(GetAddColor, PE_GetAddColor),
+	    HLL_TODO_EXPORT(GetMultiplyColor, PE_GetMultiplyColor),
 	    HLL_EXPORT(GetPartsClickable, PE_GetPartsClickable),
 	    HLL_EXPORT(SetPartsOriginPosMode, PE_SetPartsOriginPosMode),
 	    HLL_EXPORT(GetPartsOriginPosMode, PE_GetPartsOriginPosMode),
@@ -82,7 +94,7 @@ HLL_LIBRARY(GoatGUIEngine,
 	    HLL_EXPORT(GetClickPartsNumber, PE_GetClickPartsNumber),
 	    HLL_EXPORT(AddMotionPos, PE_AddMotionPos),
 	    HLL_EXPORT(AddMotionAlpha, PE_AddMotionAlpha),
-	    HLL_EXPORT(AddMotionCG, PE_AddMotionCG),
+	    HLL_TODO_EXPORT(AddMotionCG, PE_AddMotionCG),
 	    HLL_EXPORT(AddMotionHGaugeRate, PE_AddMotionHGaugeRate),
 	    HLL_EXPORT(AddMotionVGaugeRate, PE_AddMotionVGaugeRate),
 	    HLL_EXPORT(AddMotionNumeralNumber, PE_AddMotionNumeralNumber),
@@ -92,6 +104,7 @@ HLL_LIBRARY(GoatGUIEngine,
 	    HLL_EXPORT(AddMotionRotateY, PE_AddMotionRotateY),
 	    HLL_EXPORT(AddMotionRotateZ, PE_AddMotionRotateZ),
 	    HLL_EXPORT(AddMotionVibrationSize, PE_AddMotionVibrationSize),
+	    HLL_TODO_EXPORT(AddWholeMotionVibrationSize, PE_AddWholeMotionVibrationSize),
 	    HLL_EXPORT(AddMotionSound, PE_AddMotionSound),
 	    HLL_EXPORT(BeginMotion, PE_BeginMotion),
 	    HLL_EXPORT(EndMotion, PE_EndMotion),
@@ -108,4 +121,72 @@ HLL_LIBRARY(GoatGUIEngine,
 	    HLL_TODO_EXPORT(SetThumbnailReductionSize, PE_SetThumbnailReductionSize),
 	    HLL_TODO_EXPORT(SetThumbnailMode, PE_SetThumbnailMode),
 	    HLL_EXPORT(Save, PE_Save),
-	    HLL_EXPORT(Load, PE_Load));
+	    HLL_EXPORT(Load, PE_Load),
+
+	    HLL_TODO_EXPORT(SetPartsFlashAndStop, PE_SetPartsFlashAndStop),
+	    HLL_TODO_EXPORT(StopPartsFlash, PE_StopPartsFlash),
+	    HLL_TODO_EXPORT(StartPartsFlash, PE_StartPartsFlash),
+	    HLL_TODO_EXPORT(GoFramePartsFlash, PE_GoFramePartsFlash),
+	    HLL_TODO_EXPORT(GetPartsFlashEndFrame, PE_GetPartsFlashEndFrame),
+	    HLL_TODO_EXPORT(ClearPartsConstructionProcess, PE_ClearPartsConstructionProcess),
+	    HLL_TODO_EXPORT(AddCreateToPartsConstructionProcess, PE_AddCreateToPartsConstructionProcess),
+	    HLL_TODO_EXPORT(AddCreatePixelOnlyToPartsConstructionProcess, PE_AddCreatePixelOnlyToPartsConstructionProcess),
+	    HLL_TODO_EXPORT(AddFillToPartsConstructionProcess, PE_AddFillToPartsConstructionProcess),
+	    HLL_EXPORT(AddFillAlphaColorToPartsConstructionProcess, PE_AddFillAlphaColorToPartsConstructionProcess),
+	    HLL_TODO_EXPORT(AddFillAMapToPartsConstructionProcess, PE_AddFillAMapToPartsConstructionProcess),
+	    HLL_TODO_EXPORT(AddFillWithAlphaToPartsConstructionProcess, PE_AddFillWithAlphaToPartsConstructionProcess),
+	    HLL_TODO_EXPORT(AddFillGradationHorizonToPartsConstructionProcess, PE_AddFillGradationHorizonToPartsConstructionProcess),
+	    HLL_TODO_EXPORT(AddDrawRectToPartsConstructionProcess, PE_AddDrawRectToPartsConstructionProcess),
+	    HLL_EXPORT(BuildPartsConstructionProcess, PE_BuildPartsConstructionProcess),
+	    HLL_TODO_EXPORT(AddDrawTextToPartsConstructionProcess, PE_AddDrawTextToPartsConstructionProcess));
+
+static struct ain_hll_function *get_fun(int libno, const char *name)
+{
+	int fno = ain_get_library_function(ain, libno, name);
+	return fno >= 0 ? &ain->libraries[libno].functions[fno] : NULL;
+}
+
+// Daiteikoku and Shaman's Sanctuary have different interface than later versions
+static void GoatGUIEngine_PreLink(void)
+{
+	struct ain_hll_function *fun;
+	int libno = ain_get_library(ain, "GoatGUIEngine");
+	assert(libno >= 0);
+
+	fun = get_fun(libno, "SetPartsCG");
+	if (fun && fun->arguments[1].type.data == AIN_INT) {
+		static_library_replace(&lib_GoatGUIEngine, "SetPartsCG", PE_SetPartsCG_by_index);
+	}
+
+	fun = get_fun(libno, "SetLoopCG");
+	if (fun && fun->arguments[1].type.data == AIN_INT) {
+		static_library_replace(&lib_GoatGUIEngine, "SetLoopCG", PE_SetLoopCG_by_index);
+	}
+
+	fun = get_fun(libno, "SetHGaugeCG");
+	if (fun && fun->arguments[1].type.data == AIN_INT) {
+		static_library_replace(&lib_GoatGUIEngine, "SetHGaugeCG", PE_SetHGaugeCG_by_index);
+	}
+
+	fun = get_fun(libno, "SetVGaugeCG");
+	if (fun && fun->arguments[1].type.data == AIN_INT) {
+		static_library_replace(&lib_GoatGUIEngine, "SetVGaugeCG", PE_SetVGaugeCG_by_index);
+	}
+
+	fun = get_fun(libno, "SetNumeralCG");
+	if (fun && fun->arguments[1].type.data == AIN_INT) {
+		static_library_replace(&lib_GoatGUIEngine, "SetNumeralCG", PE_SetNumeralCG_by_index);
+	}
+
+	fun = get_fun(libno, "SetNumeralLinkedCGNumberWidthWidthList");
+	if (fun && fun->arguments[1].type.data == AIN_INT) {
+		static_library_replace(&lib_GoatGUIEngine, "SetNumeralLinkedCGNumberWidthWidthList",
+				PE_SetNumeralLinkedCGNumberWidthWidthList_by_index);
+	}
+
+	fun = get_fun(libno, "AddMotionCG");
+	if (fun && fun->arguments[1].type.data == AIN_INT) {
+		static_library_replace(&lib_GoatGUIEngine, "AddMotionCG", PE_AddMotionCG_by_index);
+	}
+
+}

src/hll/hll.h

@@ -24,6 +24,8 @@
 #include "vm.h"
 #include "system4.h"
 
+void static_library_replace(struct static_library *lib, const char *name, void *fun);
+
 #define HLL_WARN_UNIMPLEMENTED(rval, rtype, libname, fname, ...)	\
 	static rtype libname ## _ ## fname(__VA_ARGS__) {		\
 		WARNING("Unimplemented HLL function: " #libname "." #fname); \

src/parts/construction.c

@@ -48,6 +48,10 @@ static bool parts_add_cp_op(int parts_no, struct parts_cp_op *op, int state)
 	return true;
 }
 
+bool PE_ClearPartsConstructionProcess(int parts_no, int state);
+bool PE_AddCreateToPartsConstructionProcess(int parts_no, int w, int h, int state);
+bool PE_AddCreatePixelOnlyToPartsConstructionProcess(int parts_no, int w, int h, int state);
+
 bool PE_AddCreateCGToProcess(int parts_no, struct string *cg_name, int state)
 {
 	if (!asset_exists_by_name(ASSET_CG, cg_name->text, NULL)) {
@@ -62,6 +66,8 @@ bool PE_AddCreateCGToProcess(int parts_no, struct string *cg_name, int state)
 	return parts_add_cp_op(parts_no, op, state);
 }
 
+bool PE_AddFillToPartsConstructionProcess(int parts_no, int x, int y, int w, int h, int r, int g, int b, int state);
+
 bool PE_AddFillAlphaColorToPartsConstructionProcess(int parts_no, int x, int y, int w, int h, int r, int g, int b, int a, int state)
 {
 	struct parts_cp_op *op = xcalloc(1, sizeof(struct parts_cp_op));
@@ -74,6 +80,11 @@ bool PE_AddFillAlphaColorToPartsConstructionProcess(int parts_no, int x, int y,
 	return parts_add_cp_op(parts_no, op, state);
 }
 
+bool PE_AddFillAMapToPartsConstructionProcess(int parts_no, int x, int y, int w, int h, int a, int state);
+bool PE_AddFillWithAlphaToPartsConstructionProcess(int parts_no, int x, int y, int w, int h, int r, int g, int b, int a, int state);
+bool PE_AddFillGradationHorizonToPartsConstructionProcess(int parts_no, int x, int y, int w, int h, int top_r, int top_g, int top_b, int bot_r, int bot_g, int bot_b, int state);
+bool PE_AddDrawRectToPartsConstructionProcess(int parts_no, int x, int y, int w, int h, int r, int g, int b, int state);
+
 static void build_cg(struct parts *parts, struct parts_cp_cg *op, int state)
 {
 	// TODO: should this allow composing CGs?
@@ -105,3 +116,5 @@ bool PE_BuildPartsConstructionProcess(int parts_no, int state)
 	}
 	return true;
 }
+
+bool PE_AddDrawTextToPartsConstructionProcess(int parts_no, int x, int y, struct string *text, int type, int size, int r, int g, int b, float bold_weight, int edge_r, int edge_g, int edge_b, float edge_weight, int char_space, int line_space, int state);

src/parts/motion.c

@@ -253,7 +253,7 @@ void PE_AddMotionAlpha(int parts_no, int begin_a, int end_a, int begin_t, int en
 	parts_add_motion(parts, motion);
 }
 
-void PE_AddMotionCG(int parts_no, int begin_cg_no, int nr_cg, int begin_t, int end_t)
+void PE_AddMotionCG_by_index(int parts_no, int begin_cg_no, int nr_cg, int begin_t, int end_t)
 {
 	struct parts *parts = parts_get(parts_no);
 	struct parts_motion *motion = parts_motion_alloc(PARTS_MOTION_CG, begin_t, end_t);
@@ -344,6 +344,8 @@ void PE_AddMotionVibrationSize(int parts_no, int begin_w, int begin_h, int begin
 	parts_add_motion(parts, motion);
 }
 
+void PE_AddWholeMotionVibrationSize(int begin_width, int begin_height, int begin_time, int end_time);
+
 void PE_AddMotionSound(int sound_no, int begin_t)
 {
 	struct sound_motion *m = xcalloc(1, sizeof(struct sound_motion));

src/parts/parts.c

@@ -577,7 +577,7 @@ int PE_GetPartsCGNumber(int parts_no, int state)
 	return parts_get_cg(parts_get(parts_no), state)->no;
 }
 
-bool PE_SetLoopCG(int parts_no, int cg_no, int nr_frames, int frame_time, int state)
+bool PE_SetLoopCG_by_index(int parts_no, int cg_no, int nr_frames, int frame_time, int state)
 {
 	state--;
 	if (state < 0 || state > 2) {
@@ -614,21 +614,16 @@ bool PE_SetLoopCG(int parts_no, int cg_no, int nr_frames, int frame_time, int st
 	return true;
 }
 
-static bool set_gauge_cg(int parts_no, int cg_no, int state, bool vert)
+static bool set_gauge_cg(int parts_no, struct cg *cg, int state, bool vert)
 {
 	state--;
 	if (state < 0 || state >= PARTS_NR_STATES)
 		return false;
 
-	struct cg *cg = asset_cg_load(cg_no);
-	if (!cg)
-		return false;
-
 	struct parts *parts = parts_get(parts_no);
 	struct parts_gauge *g = vert ? parts_get_vgauge(parts, state) : parts_get_hgauge(parts, state);
 	gfx_init_texture_with_cg(&g->cg, cg);
 	gfx_init_texture_with_cg(&g->texture, cg);
-	cg_free(cg);
 
 	gfx_init_texture_rgba(&g->texture, g->cg.w, g->cg.h, (SDL_Color){0,0,0,255});
 	gfx_copy_with_alpha_map(&g->texture, 0, 0, &g->cg, 0, 0, g->cg.w, g->cg.h);
@@ -640,9 +635,24 @@ static bool set_gauge_cg(int parts_no, int cg_no, int state, bool vert)
 	return true;
 }
 
-bool PE_SetHGaugeCG(int parts_no, int cg_no, int state)
+bool PE_SetHGaugeCG(int parts_no, struct string *cg_name, int state)
 {
-	return set_gauge_cg(parts_no, cg_no, state, false);
+	struct cg *cg = asset_cg_load_by_name(cg_name->text, NULL);
+	if (!cg)
+		return false;
+	bool r = set_gauge_cg(parts_no, cg, state, false);
+	cg_free(cg);
+	return r;
+}
+
+bool PE_SetHGaugeCG_by_index(int parts_no, int cg_no, int state)
+{
+	struct cg *cg = asset_cg_load(cg_no);
+	if (!cg)
+		return false;
+	bool r = set_gauge_cg(parts_no, cg, state, false);
+	cg_free(cg);
+	return r;
 }
 
 bool PE_SetHGaugeRate(int parts_no, int numerator, int denominator, int state)
@@ -655,11 +665,25 @@ bool PE_SetHGaugeRate(int parts_no, int numerator, int denominator, int state)
 	return true;
 }
 
-bool PE_SetVGaugeCG(int parts_no, int cg_no, int state)
+bool PE_SetVGaugeCG(int parts_no, struct string *cg_name, int state)
 {
-	return set_gauge_cg(parts_no, cg_no, state, true);
+	struct cg *cg = asset_cg_load_by_name(cg_name->text, NULL);
+	if (!cg)
+		return false;
+	bool r = set_gauge_cg(parts_no, cg, state, true);
+	cg_free(cg);
+	return r;
 }
 
+bool PE_SetVGaugeCG_by_index(int parts_no, int cg_no, int state)
+{
+	struct cg *cg = asset_cg_load(cg_no);
+	if (!cg)
+		return false;
+	bool r = set_gauge_cg(parts_no, cg, state, true);
+	cg_free(cg);
+	return r;
+}
 
 bool PE_SetVGaugeRate(int parts_no, int numerator, int denominator, int state)
 {
@@ -671,7 +695,7 @@ bool PE_SetVGaugeRate(int parts_no, int numerator, int denominator, int state)
 	return true;
 }
 
-bool PE_SetNumeralCG(int parts_no, int cg_no, int state)
+bool PE_SetNumeralCG_by_index(int parts_no, int cg_no, int state)
 {
 	state--;
 	if (state < 0 || state >= PARTS_NR_STATES)
@@ -687,7 +711,7 @@ bool PE_SetNumeralCG(int parts_no, int cg_no, int state)
 	return true;
 }
 
-bool PE_SetNumeralLinkedCGNumberWidthWidthList(int parts_no, int cg_no, int w0, int w1, int w2, int w3, int w4, int w5, int w6, int w7, int w8, int w9, int w_minus, int w_comma, int state)
+bool PE_SetNumeralLinkedCGNumberWidthWidthList_by_index(int parts_no, int cg_no, int w0, int w1, int w2, int w3, int w4, int w5, int w6, int w7, int w8, int w9, int w_minus, int w_comma, int state)
 {
 	// TODO? Create a generic numeral-font object that can be shared between parts.
 	//       In the current implementation, each number stores a complete copy of
@@ -810,6 +834,8 @@ void PE_SetAlpha(int parts_no, int alpha)
 }
 
 void PE_SetPartsDrawFilter(int PartsNumber, int DrawFilter);
+void PE_SetAddColor(int PartsNumber, int nR, int nG, int nB);
+void PE_SetMultiplyColor(int PartsNumber, int nR, int nG, int nB);
 
 int PE_GetPartsX(int parts_no)
 {
@@ -848,6 +874,9 @@ int PE_GetPartsAlpha(int parts_no)
 	return parts_get(parts_no)->alpha;
 }
 
+void PE_GetAddColor(int PartsNumber, int *nR, int *nG, int *nB);
+void PE_GetMultiplyColor(int PartsNumber, int *nR, int *nG, int *nB);
+
 void PE_SetPartsOriginPosMode(int parts_no, int origin_pos_mode)
 {
 	struct parts *parts = parts_get(parts_no);
@@ -940,3 +969,8 @@ bool PE_IsExist(int parts_no)
 	return !!ht_get_int(parts_table, parts_no, NULL);
 }
 
+bool PE_SetPartsFlashAndStop(int PartsNumber, struct string *pIFlashFileName, int State);
+bool PE_StopPartsFlash(int PartsNumber, int State);
+bool PE_StartPartsFlash(int PartsNumber, int State);
+bool PE_GoFramePartsFlash(int PartsNumber, int FrameNumber, int State);
+int PE_GetPartsFlashEndFrame(int PartsNumber, int State);

src/sprite.c

@@ -137,7 +137,16 @@ int sprite_set_cg_2x_from_asset(struct sact_sprite *sp, int cg_no)
 	sp->cg_no = cg_no;
 	cg_free(cg);
 	return 1;
+}
 
+int sprite_set_cg_by_name(struct sact_sprite *sp, const char *name)
+{
+	struct cg *cg = asset_cg_load_by_name(name, &sp->cg_no);
+	if (!cg)
+		return 0;
+	sprite_set_cg(sp, cg);
+	cg_free(cg);
+	return 1;
 }
 
 int sprite_set_cg_from_file(struct sact_sprite *sp, const char *path)