Messages posted by: B4rr4cuda

Компилируем tinyxpath

затем

Компилируем ltxml:
редактируем Makefile. В TYNYXML_INC указываем путь к сорцам tynyxpath. TYNYXML_INC=/usr/lib
и выполняем make.
Полученную shared библиотеку (so файл) тоже копируем в /usr/lib и снова выполняем ldconfig из под рута.
Вот и все собсно.

Сцылко живое.

Небольшая статейка в спец выпуске "ксакепа"
Описание языка в Прогопедии
Young Game Developer (блог) - есть интересные заметки
Очень серьезный блог

Попробуйте прописать полный путь к скрипту.

folibis wrote:PS. Протестую против присваивания мне статуса "Гуру".

Бага форума. Админы обещают новый движок, так что потерпи пока

.

ПС. И на будущее, не надо создавать такие провокационные темы.

Оффсайт Лазаруса
Русский сайт и форум
Аналог Lua4Delphi, но для Лазаруса
Некоторые примеры использования Lua и Lazarus-a я выкладывал здесь на форуме.
Если будут вопросы - попробую помочь, хотя я луа использую в основном в скриптах для Ion3 wm.

Lua в Delphi\FreePascal\Kylix
Если есть желание поэкспериментировать - можете попробовать FPC\Lazarus, в него включены более-менее актуальные заголовки.

Модули использовать что ли?
Читаем тут

Variant - один из самых низкоскоростных типов. Простейшие операции примерно в двадцать раз медленнее "простых" типов.
Не рекомендую.

Пишу в Lazarus-е, но для Делфи думаю тоже подойдет. По поводу вложенных таблиц - сам не прбовал, но предполагаю, что нужна рекурсивная функция с входом, если lua_type возвращает LUA_TTABLE.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,lua,lauxlib,lualib;

type

{ TLuaVm }

TLuaVm = class
    private
      L:Plua_State;
    public
      constructor Create;
      destructor Destroy; override;
      function GetTableByName(aName:string):string;
      function LoadScriptByName(aName:string):boolean;
      function LoadScriptfromString(src:string):boolean;
    end;

{ TForm1 }

TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1; 
  vm:TLuaVm;

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
 vm:=TLuaVm.Create;
// if not vm.LoadScriptByName('1.lua') then showmessage('error loading');
 if not vm.LoadScriptfromString(memo1.Text) then showmessage('error loading');

memo2.Lines.Add(vm.GetTableByName('bbb'));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  memo1.lines.LoadFromFile('1.lua');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  vm.Free;
end;

{ TLuaVm }

constructor TLuaVm.Create;
begin
  L:=lua_open;
  if not assigned(L) then exit;
  luaL_openlibs(L);
end;

destructor TLuaVm.Destroy;
begin
  lua_close(L);
end;

function TLuaVm.GetTableByName(aName: string): string;
var i:integer;
begin
  lua_getglobal(L,Pchar(aName));
  if not lua_istable(L,-1) then
    begin
      Result:='';
      Exit;
    end;
  lua_pushnil(L);
  i:=1;

while lua_next(L,i)<>0 do
   begin
     case lua_type(L,-2) of
        LUA_TNUMBER: Result:=Result+string(inttostr(lua_tointeger(L,-2)))+' ';
        LUA_TSTRING: Result:=Result+string(lua_tostring(L,-2))+' ';
     end;

case lua_type(L,-1) of
        LUA_TNUMBER: Result:=Result+string(inttostr(lua_tointeger(L,-1)))+' ';
        LUA_TSTRING: Result:=Result+string(lua_tostring(L,-1))+' ';
     end;
     lua_pop(L,1);
   end;
end;

function TLuaVm.LoadScriptByName(aName: string): boolean;
begin
  Result:=lua_dofile(L,pchar(aName))<1;
end;

function TLuaVm.LoadScriptfromString(src: string): boolean;
begin
  Result:=lua_dostring(L,pchar(src))<1;;
end;

initialization
  {$I unit1.lrs}

end.

Ogre и Lua

http://www.lua.ru/forum/posts/list/80.page

Вызов в сообщении, выше кода ошибки.

А вообще, просто пишем код в файле, например 1.lua, и выполняем его интерпретатором lua.
У меня линукс, поэтому первой строкой я просто указываю путь к интерпретатору, даю права на выполнение и выполняю.
Последнее время, код пишу в SciTe там все еще проще...

Mister_SER
Вам не кажется, что прежде чем использовать какой-либо инструмент, нужно научиться им пользоваться?

Вот неверный код:

Вот пример ошибки:

Lua сообщает что не может вызвать функцию prnt, т.к. она nil (т.е. не существует).

Что я делаю не так? ©LOR

Вам следует почитать документацию и статьи. Некоторые ссылки здесь.

ЗЫ: Я все же рекомендую почитать хотя бы основы....