Messages posted by: z00n

smz wrote:И тут Остапа понесло...
Нижеследующая ф-ция - претендент по номинации "самый быстрый".

У меня она падает при n == 15000. Мне кажется проблема в match.
По поводу алгоритма - понятно, что в старом способе главным замедлителем было поштучное чтение из потока - стандартный способ ускориться в таких случаях - читать в буфер с конца по 4-8K и матчить по нему. Мне кажется, должно быть соизмеримо.

smz wrote:Увы, теперь выдаются 9 последних строк, когда задаёшь 10. А кроме этого, неверно обрабатывается файл, последний байт которого не '\n'.

То что, что написано выше работает правильно, если считать "/nEOF" сторокой. Впрочем я внял, и привел tail в состояние, в котором для 'n' >= 0 он работает как POSIX tail. Ваш вариант тоже правильный (и проходит тесты если заменить nil на "")

--// tail behaves like POSIX tail (not for negative 'n')
local function tail(fname,n)
  if n <= 0 then return "" end
  local file = assert(io.open(fname,"rb"))
  local last_LF = nil
  local from = file:seek("end")-2 --// NOTE: skip last char
  for i=from,0,-1 do
    file:seek("set",i)
    if file:read(1) == '\n' then
      n = n - 1
      if n == 0 then last_LF = i break end
    end
  end
  local first = not last_LF and 0 or last_LF+1
  file:seek("set",first)
  local result = file:read("*a")
  file:close()
  return result
end;

--// TEST:

assert(io.open('test.txt','rb'):read("*a") == "1\r\n2\r\n3")
assert(tail("test.txt",0) == "")
assert(tail("test.txt",1) == "3")
assert(tail("test.txt",2) == "2\r\n3")
assert(tail("test.txt",3) == "1\r\n2\r\n3")
assert(tail("test.txt",4) == "1\r\n2\r\n3")

assert(io.open('test-lf.txt','rb'):read("*a") == "1\n2\n3\n")
assert(tail("test-lf.txt",0) == "")
assert(tail("test-lf.txt",1) == "3\n")
assert(tail("test-lf.txt",2) == "2\n3\n")
assert(tail("test-lf.txt",3) == "1\n2\n3\n")
assert(tail("test-lf.txt",4) == "1\n2\n3\n")

assert(io.open('test-crlf.txt','rb'):read("*a") == "1\r\n2\r\n3\r\n")
assert(tail("test-crlf.txt",0) == "")
assert(tail("test-crlf.txt",1) == "3\r\n")
assert(tail("test-crlf.txt",2) == "2\r\n3\r\n")
assert(tail("test-crlf.txt",3) == "1\r\n2\r\n3\r\n")
assert(tail("test-crlf.txt",4) == "1\r\n2\r\n3\r\n")

assert(io.open("empty.txt","rb"):read("*a") == "")
assert(tail("empty.txt",0) == "")
assert(tail("empty.txt",1) == "")

assert(io.open("crlf.txt","rb"):read("*a")  == "\r\n")
assert(tail("crlf.txt",0) == "")
assert(tail("crlf.txt",1) == "\r\n")
assert(tail("crlf.txt",2) == "\r\n")

http://www.lua.org/pil/16.html

smz wrote:[... то-есть оказался съеден последний байт файла.

Да, это была плохая мысль обрезать последний байт.

local function tail(fname,n)
  if n <= 0 then return nil end
  local file = assert(io.open(fname,"rb"))
  local last_LF = nil
  for i=file:seek("end")-1,0,-1 do
    file:seek("set",i)
    if file:read(1) == '\n' then
      n = n - 1
      if n == 0 then last_LF = i break end
    end;
  end;
  local first = not last_LF and 0 or last_LF+1
  file:seek("set",first)
  local result = file:read("*a")
  file:close()
  return result
end;

--// TEST:

assert(io.open('test.txt','rb'):read("*a") == "1\r\n2\r\n3")
assert(tail("test.txt",0) == nil)
assert(tail("test.txt",1) == "3")
assert(tail("test.txt",2) == "2\r\n3")
assert(tail("test.txt",3) == "1\r\n2\r\n3")
assert(tail("test.txt",4) == "1\r\n2\r\n3")

assert(io.open('test-lf.txt','rb'):read("*a") == "1\n2\n3\n")
assert(tail("test-lf.txt",0) == nil)
assert(tail("test-lf.txt",1) == "")
assert(tail("test-lf.txt",2) == "3\n")
assert(tail("test-lf.txt",3) == "2\n3\n")
assert(tail("test-lf.txt",4) == "1\n2\n3\n")
assert(tail("test-lf.txt",5) == "1\n2\n3\n")

assert(io.open('test-crlf.txt','rb'):read("*a") == "1\r\n2\r\n3\r\n")
assert(tail("test-crlf.txt",0) == nil)
assert(tail("test-crlf.txt",1) == "")
assert(tail("test-crlf.txt",2) == "3\r\n")
assert(tail("test-crlf.txt",3) == "2\r\n3\r\n")
assert(tail("test-crlf.txt",4) == "1\r\n2\r\n3\r\n")
assert(tail("test-crlf.txt",5) == "1\r\n2\r\n3\r\n")

smz wrote:
Идея хорошая, только надо подчистить баги (я проверил при n=10, получил последние 6 строк).

Главный баг - это лень - я скопипастил io.open без "rb".

Под windows это имеет страшные последствия:
"\r\n" два раза матчится как "\n" (и, кстати, ни разу как "\r").

Чуть почищенный вариант:

Вторая ветка получилась со сложностью O(N) от длины файла - это как-то неправильно. Вот так для файла порядка мегабайта будет раз в 100 быстрее:

Попробуйте убрать : перед Voice

Если будут вопросы - спрашивайте.

miha-ha wrote:z00n

Тут http://harkal.sylphis3d.com/2005/08/10/multithreaded-game-scripting-with-stackless-python/ говорят, что ваш(наш) способ устарел...

Я пока знаю всего одну игру, где применили Stackless Phython - EVE Online. Я в целом согласен с автором по поводу игровой логики, но физику так никто не считает (и не будет в обозримом будущем).
По поводу луа и тредов. Вам нужен шедулер - который будет каждый игровой цикл будить треды, передавать им информацию etc.
Один пример есть в PIL: http://www.lua.org/pil/9.4.html
Пример шедулера со стороны С есть в Game Programming Gems 5. Пример со стороны луа есть в GPG 6 (сейчас я код из статей поищу).

1. Перепишите свои функции, чтобы они были функциями от времени.

2. Координаты в любой момент времени - интеграл скорости игрового
объекта по времени.

3. В современных играх итегрирование производят 60-100
раз в скунду. Самый простой и хреновый способ интегрирования: по Эйлеру:

Хороший, но относительно дорогой способ, Рунге-Кутты 4.
(http://en.wikipedia.org/wiki/Runge–Kutta_methods). На практике
применяется несколько способов быстрее чем RK4 и точнее чем Эйлер -
см. игродельческую литературу.

Немного на эту тему я уже тут писал:
http://www.lua.ru/forum/posts/list/128.page

mozers™ wrote:2moteus
Может быть можно как нить узнать тип и кол-во входных параметров у этих функций?

Забиваете их в google, находите исходники и смотрите в них.
Например ваш пример из Scite

Просто можно только список экспорта посмотреть, ну или метатаблицы распечатать, если объекты создаются. Дальше нужно дизассемблировать оптимизированный машинный код.

А вот так вы, кстати, и состояние стека сможете посмотреть (код по мотивам PIL):

#include <stdio.h>
#include "lua.h"
#include "lauxlib.h"

void luaZ_stack_dump(lua_State *L) {
    int i, type;
    int top = lua_gettop(L);
    fprintf(stderr,"++++++++++++\n");
    for(i=-1; i >= (-top); --i) { /* repeat for each level */
        type = lua_type(L, i);
        fprintf(stderr,"pos bottom: %d: pos top: %d: = ",top+i+1,i);
        switch (type) {
        case LUA_TSTRING:
            fprintf(stderr,"'%s'\n", lua_tostring(L, i));
            break;
        case LUA_TBOOLEAN:
            fprintf(stderr,lua_toboolean(L, i)? "true":"false");
            break;
        case LUA_TNUMBER:
            fprintf(stderr,"%g\n", lua_tonumber(L, i));
            break;
        default:                 /* all other values */
            fprintf(stderr,"%s\n", lua_typename(L, type));
            break;
        }
    }
    fprintf(stderr,"++++++++++++\n");
}

int get_int(lua_State *L,const char *name) {
    
    int result = 0;
    lua_getglobal(L,name);            // val --
    result = luaL_checkinteger(L,-1); // val --
    luaZ_stack_dump(L);
    lua_pop(L,1);                     // --
    return result;
}

void set_int(lua_State *L, const char *name, int val) {
    lua_pushinteger(L,val); // val --
    lua_setglobal(L,name);  // --
}

int main() {
    lua_State *L = lua_open();
    int x = 42;
    lua_pushnumber(L,111);
    lua_pushstring(L,"Bar");

set_int(L,"X",x);
    printf("X = %d\n",get_int(L,"X"));
    return 0;
}

Выдает:

Mister_SER wrote:пару постов назат, ваш код)
не верите что вылетает, сами хоть раз проверить

Я, конечно, проверил перед тем как постить:

andrew@artemis: ~/lua/lua_c
bash$ cat temp.c
#include <stdio.h>
#include "lua.h"
#include "lauxlib.h"

int get_int(lua_State *L,const char *name) {
    int result = 0;
    lua_getglobal(L,name);            // val --
    result = luaL_checkinteger(L,-1); // val --
    lua_pop(L,1);                     // --
    return result;
}

void set_int(lua_State *L, const char *name, int val) {
    lua_pushinteger(L,val); // val --
    lua_setglobal(L,name);  // --
}

int main() {
    lua_State *L = lua_open();
    int x = 42;
    lua_pushnumber(L,111);

set_int(L,"X",x);
    printf("X = %d\n",get_int(L,"X"));
    return 0;
}
andrew@artemis: ~/lua/lua_c
bash$ cl /MD /I/dev/_include/lua temp.c lua51.lib /link /LIBPATH:/dev/_lib/lua
Microsoft (R) 32-bit C/C++ Optimizing Compiler Version 14.00.50727.762 for 80x86
Copyright (C) Microsoft Corporation.  All rights reserved.

/out:temp.exe 
/LIBPATH:/dev/_lib/lua 
temp.obj 
lua51.lib 
andrew@artemis: ~/lua/lua_c
bash$ ./temp.exe
X = 42

Mister_SER wrote:но почему же тогда когда я делаю как говорите вы, у меня постояно вылетает, а когда я делаю, как говорю я, у меня все ок

Код покажите - на слово я вам не верю