summaryrefslogtreecommitdiff
path: root/module/tex/context/third/simpleslides/automata/parsers/parser-rle.lua
blob: e51eeea145cecc8dcd1b1787617afb1a0bb82150 (plain)
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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
-- http://psoup.math.wisc.edu/mcell/ca_files_formats.html#RLE
local C, Cs, Ct, P, R, S, match = lpeg.C, lpeg.Cs, lpeg.Ct, lpeg.P, lpeg.R, lpeg.S, lpeg.match

local rows = {}
local coords = {}

local n_row = 1
rows[n_row] = ""

local eol = P"\n"
local hashmark = P"#"
local space = S" \t"
local whitespace = S(" \n\t")^0
local num = R"09"
local comma = P","
local exclam = P"!"
local equals = P"="
local dollar = P"$"
local state = S"bo"
--local sign = S("+-")^0 -- support negative grid values? not yet, if ever…

local comment = hashmark * (1-eol)^0 * eol

local getx = space^0 * P"x" * space^0 * equals * space^0 * C(num^1) / function (x)
    coords.x = tonumber(x)
end
local gety = space^0 * P"y" * space^0 * equals * space^0 * C(num^1) / function (y) 
    coords.y = tonumber(y)
end
geometry = getx * comma * gety * (1-eol)^0 * eol

local function n_of_t (n, c)
    local tmp = ""
    if c == "o" then -- live
        c = "1"
    else -- dead
        c = "0"
    end

    for i=1, n, 1 do
        tmp = tmp .. c
    end
    return tmp
end

local cell = C(num^0) * C(state) / function (n, c)
    if n == "" then
        n = 1
    end

    if  n_of_t (tonumber(n), c) == nil then
    end
    rows[n_row] = rows[n_row] .. n_of_t (tonumber(n), c)
end

local line = whitespace * (cell * whitespace)^0 * C(num^0) / function (empty) 

    if rows[n_row]:len() < coords.x then -- fill grid with dead cells
        rows[n_row] = rows[n_row] .. n_of_t( coords.x - rows[n_row]:len(), "0" ) 
    end
        
    if empty ~= "" then
        for n=1, tonumber(empty)-1, 1 do
            n_row = n_row + 1 
            rows[n_row] = n_of_t( coords.x, "0" )
        end
    end

    n_row = n_row + 1 

    if n_row <= coords.y then
        rows[n_row] = "" 
    end
end

local p_rle = comment^0 * geometry * line * (dollar * line)^0 * whitespace * exclam

function gol.rleparser(fname)
    local file = assert(io.open(fname, "r"), "Not a file: " .. fname)
    local data = file:read("*all")
    file:close()

    if p_rle:match(data) then
        if context then
            context.writestatus("simpleslides", "Sucessfully loaded frame from "..fname..".")
        end
        return rows
    else
        if context then
            context.writestatus("simpleslides", "There were problems loading file "..fname..".")
        end
        return false
    end
end