1. Lua / Говнокод #21705

    −67

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    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, 22 Ноября 2016

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

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