Метатабличный / Говнокод #21705 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
{ Delphi compatible }
{$IFNDEF PtrInt}   type PtrInt = ^Integer; {$ENDIF}
{$IFNDEF PPointer} type PPointer = ^Pointer; {$ENDIF}
{$IFNDEF PPChar}   type PPChar = ^PChar; {$ENDIF}


var
  ls_lib: array[1..3] of luaL_reg =
    (
      (name: 'MultAllNumbers'; func: forLua_MultAllNumbers),
      (name: 'GetHostAppPath'; func: forLua_GetHostAppPath),
      (name: nil; func: nil)
    );

function luaopen_SimpleDelphiLua(L: Plua_State): Integer; cdecl;
begin
    luaL_openlib(L, PChar('SimpleDelphiLua'), @ls_lib, 0);
    lua_pop(L, 1);
    Result := 0;
end;

https://quik2dde.ru/viewtopic.php?id=40
Чел пишет на луе, и юзает дельфийские либы.
Обратите внимание, как он декларирует типы.

Запостил: rotretS rotretS, (Updated )

Комментарии (5) RSS

Добавить комментарий

Где здесь C++, guest?!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓