Помогите оптимизировать код
Здравствуйте! Пытаюсь написать программу динамического импорта функций DLL для вызова из кода Lua. Столкнулся с проблемой при большом количестве импортируемых функций необходимо объявлять большое количество типов:
Код:
type
TFunc0 = function(v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16: Double): Double; cdecl; // cdecl_r_16
TFunc1 = function(v1,v2,v3,v4: PChar): Double; cdecl; // cdecl_r_ssss
TFunc2 = function(v1: Double; v2,v3,v4: PChar): Double; cdecl; // cdecl_r_rsss
TFunc3 = function(v1: PChar; v2: Double; v3,v4: PChar): Double; cdecl; // cdecl_r_srss
TFunc4 = function(v1,v2: PChar; v3: Double; v4: PChar): Double; cdecl; // cdecl_r_ssrs
TFunc5 = function(v1,v2,v3: PChar; v4: Double): Double; cdecl; // cdecl_r_sssr
TFunc6 = function(v1: PChar; v2,v3,v4: Double): Double; cdecl; // cdecl_r_srrr
TFunc7 = function(v1: Double; v2: PChar; v3,v4: Double): Double; cdecl; // cdecl_r_rsrr
TFunc8 = function(v1,v2: Double; v3: PChar; v4: Double): Double; cdecl; // cdecl_r_rrsr
TFunc9 = function(v1,v2,v3: Double; v4: PChar): Double; cdecl; // cdecl_r_rrrs
TFunc10 = function(v1,v2: Double; v3,v4: PChar): Double; cdecl; // cdecl_r_rrss
TFunc11 = function(v1,v2: PChar; v3,v4: Double): Double; cdecl; // cdecl_r_ssrr
TFunc12 = function(v1: Double; v2: PChar; v3: Double; v4: PChar): Double; cdecl; // cdecl_r_rsrs
TFunc13 = function(v1: PChar; v2: Double; v3: PChar; v4: Double): Double; cdecl; // cdecl_r_srsr
TFunc14 = function(v1: PChar; v2,v3: Double; v4: PChar): Double; cdecl; // cdecl_r_srrs
TFunc15 = function(v1: Double; v2,v3: PChar; v4: Double): Double; cdecl; // cdecl_r_rssr
Это только небольшая их часть. У меня вопрос как можно объединить эти типы в один. Поскольку при вызове придется сначала проверять к какому типу относится функция:
Код:
case FuncTp[Args[0].ForceInteger] of
cdecl_r_16: begin @Func0:=FuncId[Args[0].ForceInteger]; Result.AsDouble:=Func0(Args[1].ForceDouble,Args[2].ForceDouble,Args[3].ForceDouble,Args[4].ForceDouble,Args[5].ForceDouble,Args[6].ForceDouble,Args[7].ForceDouble,Args[8].ForceDouble,Args[9].ForceDouble,Args[10].ForceDouble,Args[11].ForceDouble,Args[12].ForceDouble,Args[13].ForceDouble,Args[14].ForceDouble,Args[15].ForceDouble,Args[16].ForceDouble); end;
cdecl_r_ssss: begin @Func1:=FuncId[Args[0].ForceInteger]; Result.AsDouble:=Func1(PChar(Args[1].ForceString),PChar(Args[2].ForceString),PChar(Args[3].ForceString),PChar(Args[4].ForceString)); end;
cdecl_r_rsss: begin @Func2:=FuncId[Args[0].ForceInteger]; Result.AsDouble:=Func2(Args[1].ForceDouble,PChar(Args[2].ForceString),PChar(Args[3].ForceString),PChar(Args[4].ForceString)); end;
cdecl_r_srss: begin @Func3:=FuncId[Args[0].ForceInteger]; Result.AsDouble:=Func3(PChar(Args[1].ForceString),Args[2].ForceDouble,PChar(Args[3].ForceString),PChar(Args[4].ForceString)); end;
cdecl_r_ssrs: begin @Func4:=FuncId[Args[0].ForceInteger]; Result.AsDouble:=Func4(PChar(Args[1].ForceString),PChar(Args[2].ForceString),Args[3].ForceDouble,PChar(Args[4].ForceString)); end;
cdecl_r_sssr: begin @Func5:=FuncId[Args[0].ForceInteger]; Result.AsDouble:=Func5(PChar(Args[1].ForceString),PChar(Args[2].ForceString),PChar(Args[3].ForceString),Args[4].ForceDouble); end;
cdecl_r_srrr: begin @Func6:=FuncId[Args[0].ForceInteger]; Result.AsDouble:=Func6(PChar(Args[1].ForceString),Args[2].ForceDouble,Args[3].ForceDouble,Args[4].ForceDouble); end;
cdecl_r_rsrr: begin @Func7:=FuncId[Args[0].ForceInteger]; Result.AsDouble:=Func7(Args[1].ForceDouble,PChar(Args[2].ForceString),Args[3].ForceDouble,Args[4].ForceDouble); end;
cdecl_r_rrsr: begin @Func8:=FuncId[Args[0].ForceInteger]; Result.AsDouble:=Func8(Args[1].ForceDouble,Args[2].ForceDouble,PChar(Args[3].ForceString),Args[4].ForceDouble); end;
cdecl_r_rrrs: begin @Func9:=FuncId[Args[0].ForceInteger]; Result.AsDouble:=Func9(Args[1].ForceDouble,Args[2].ForceDouble,Args[3].ForceDouble,PChar(Args[4].ForceString)); end;
cdecl_r_rrss: begin @Func10:=FuncId[Args[0].ForceInteger]; Result.AsDouble:=Func10(Args[1].ForceDouble,Args[2].ForceDouble,PChar(Args[3].ForceString),PChar(Args[4].ForceString)); end;
cdecl_r_ssrr: begin @Func11:=FuncId[Args[0].ForceInteger]; Result.AsDouble:=Func11(PChar(Args[1].ForceString),PChar(Args[2].ForceString),Args[3].ForceDouble,Args[4].ForceDouble); end;
cdecl_r_rsrs: begin @Func12:=FuncId[Args[0].ForceInteger]; Result.AsDouble:=Func12(Args[1].ForceDouble,PChar(Args[2].ForceString),Args[3].ForceDouble,PChar(Args[4].ForceString)); end;
cdecl_r_srsr: begin @Func13:=FuncId[Args[0].ForceInteger]; Result.AsDouble:=Func13(PChar(Args[1].ForceString),Args[2].ForceDouble,PChar(Args[3].ForceString),Args[4].ForceDouble); end;
cdecl_r_srrs: begin @Func14:=FuncId[Args[0].ForceInteger]; Result.AsDouble:=Func14(PChar(Args[1].ForceString),Args[2].ForceDouble,Args[3].ForceDouble,PChar(Args[4].ForceString)); end;
cdecl_r_rssr: begin @Func15:=FuncId[Args[0].ForceInteger]; Result.AsDouble:=Func15(Args[1].ForceDouble,PChar(Args[2].ForceString),PChar(Args[3].ForceString),Args[4].ForceDouble); end;
end;
|