- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
#define цой_жив(...) , ## __VA_ARGS__
#define COUNT_PARMS2(_1, _2, _3, _4, _5, _6, _7, _8, _9, _10, _11, _12, _13, _14, _, ...) _
#define REPEAT_PARAMS(...) (__VA_ARGS__)
#define COUNT_PARMS(...) \
COUNT_PARMS2 REPEAT_PARAMS(цой_жив(__VA_ARGS__) 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0)
template<class>
struct call_type;
#define NUM_ARGS 13
#define C_CALL_REPEAT(z,n,data) \
template<class R BOOST_PP_ENUM_TRAILING_PARAMS(n,class A)> \
struct call_type<R __cdecl(BOOST_PP_ENUM_PARAMS(n,A))> \
{ \
enum{j}; \
};
BOOST_PP_REPEAT(BOOST_PP_INC(NUM_ARGS),C_CALL_REPEAT,~);
#define STD_CALL_REPEAT(z,n,data) \
template<class R BOOST_PP_ENUM_TRAILING_PARAMS(n,class A)> \
struct call_type<R __stdcall(BOOST_PP_ENUM_PARAMS(n,A))> \
{ \
enum{j=1}; \
};
BOOST_PP_REPEAT(BOOST_PP_INC(NUM_ARGS),STD_CALL_REPEAT,~);
#define VAR_CALL_REPEAT(z,n,data) \
template<class R BOOST_PP_ENUM_TRAILING_PARAMS(n,class A)> \
struct call_type<R __cdecl(BOOST_PP_ENUM_PARAMS(n,A) BOOST_PP_COMMA_IF(n) ...)> \
{ \
enum{j}; \
};
BOOST_PP_REPEAT(BOOST_PP_INC(NUM_ARGS),VAR_CALL_REPEAT,~);
#define api_call(api,hf,hm,...) \
((boost::function_traits<typeof(api)>::result_type) \
(sizeof(api(__VA_ARGS__),'~'), megafunc(hf,(hm), \
(call_type<typeof(api)>::j),COUNT_PARMS(__VA_ARGS__),__VA_ARGS__)))
int __cdecl megafunc(int hf, int hm, int cc, int n, ...)
{
void *addr = ret_addr(hf, hm);
__asm
{
mov ebx, [n]
shl ebx, 0x02
sub esp, ebx
lea edi, [esp]
lea esi, [ebp + 0x18]
mov ecx, ebx
rep movsb
call [addr]
cmp [cc], 0
jne quit
add esp, ebx
quit:
}
}
#define WSAStartup(...) api_call(WSAStartup,0xcdde757d,0xd6bc4bcc,__VA_ARGS__)
#define sprintf(...) api_call(sprintf,0x2d3a75e1,0xb634b9cd,__VA_ARGS__)
...
разве возмжно сделать макросы с переменным числом параметров?
если есть, то мысленно плюсую гк
доказывает, что это не код из буста
http://govnokod.ru/2172
где аккуратненько?
Отсутствие инлайна бесит, да.
И ещё бесит дебильное изобретение ботланда - деструкторы, которые надо ВЫЗЫВАТЬ РУКАМИ.
такие индусы, как ты все сделают руками за еду, и не только руками
>делфи - костыли, надстройка, нарост, опухоль
>Delphi generics имеют ошибки
>Имеют недореализации, нет constraints для массивов.
>Кто-то, приводил код с TList. На дженериках оказалось не оптимально.
> делфи - костыли, надстройка, нарост, опухоль
А в С++ они изначально были? Или они в С++ были стырены с другого паскалоподобного языка названием на букву "А"?
приятно познакомиться, а меня Иван
ЛОЛ, это пиздец какой-то, ГК захвачен детсадовцами
а говно комментаторы типа тараса даже не пониманиющие
зачем этот код идут нахуй или пусть покажут функциональный аналог на паскале
а говно комментаторы типа тараса даже не пониманиющие
зачем этот код идут нахуй или пусть покажут функциональный аналог на паскале
Я вот крестокод читать умею, но только без шаблономакросового говна.
ЗЫ делфе - дерьмо кстати!)
проверка типов и количества аргуметов вычисляется автоматически
для каждой сигнатуры во время компиляции и кстати так как
функция не шаблонная механизм лкгко встравивается в шеллкод ты пишеш просто
WSAStarup(...); и даже не знаеш через какой механизм все работает
точно так же как простой вызов апи теперь напиши это на паскале очень интересно
посмотреть что получится если сделаеш тогда я неправ когда сказал
что на дельфе это невозможно если не сделаеш то докажеш что это невозможно
для каждой сигнатуры
Что-то я не вижу в коде "автоматичности".
> 0xcdde757d,0xd6bc4bcc
Это что такое?
наример (RegCloseKey) генерится отдельный хедер сразу для нескольких библиотек
в котором такое
#define WSAStartup(...) api_call(WSAStartup,0xcdde757d,0xd6bc4bc c,__VA_ARGS__)
#define sprintf(...) api_call(sprintf,0x2d3a75e1,0xb634b9cd,_ _VA_ARGS__)
...
еще вопросы не по теме и ты слил если не предоставиш реализацию
Ручного вычисления хеша и подстановки его в код?
Вызова функции по имени, не зная сигнатуры, подставляя непойми какие параметры?
Какой смысл?
Да, на Дельфи это можно сделать, если что.
Нахуя?
А я ногти на ногах грызть умею.
Народ, может вы понимаете, что он имеет в виду, и зачем всё это? Я нихера понять не могу...
--
Из разряда: "На деревьях висели почки. Опять проделки гестапо, подумал Штирлиц"
не сечешь фишку так сказать)
procedure sprintf(s: string; a: array of const); begin
api_call(module2.sprintf, $12345678, $9ABCEDF0, s, a);
end;
Не то?
слил :-Р
знать С++ - кошмарно
знать С++, не знать больше ничего - уныло
знать С++, знать остальное С++подобное - райское наслаждение.
когда унтерменш что-то обсирает это выглядит убого