seqlua

annotate README @ 29:2c4d9e44f704

find changesets by author, revision, files, or words in the commit message
Renamed created filter in README to "alpha_beta_x"
author jbe
date Fri Aug 22 12:27:25 2014 +0200 (2014-08-22)
parents 3287510a35e3
children 367fc70acc15
rev   line source
jbe@0 1 seqlua: Extended sequences and iterators in Lua
jbe@0 2 ===============================================
jbe@0 3
jbe@0 4 This is an experimental package to extend Lua in the following manner:
jbe@0 5
jbe@25 6 * allow ``ipairs(seq)`` to accept tables as well as functions,
jbe@25 7 * add a new function ``string.concat(separator, seq)`` to concat either table
jbe@25 8 entries or function return values,
jbe@23 9 * provide auxiliary C functions and macros to simplify iterating over both
jbe@0 10 tables and iterator functions with the same statement.
jbe@0 11
jbe@25 12 In other words:
jbe@25 13 When calling ``ipairs(seq)`` or ``string.concat(separator, seq)``,
jbe@25 14 then ``seq`` may either be a (table) sequence or a (function) iterator.
jbe@25 15 Auxiliary C functions and macros are provided to simplify extending your own
jbe@25 16 C functions in the same manner.
jbe@25 17
jbe@0 18 This library completely ignores the ``__ipairs`` metamethod (as it is
jbe@18 19 deprecated since Lua 5.3.0-alpha). It respects, however, any ``__index`` and
jbe@18 20 ``__call`` metamethods (this may cause unexpected behavior when passing
jbe@18 21 callable tables to ``ipairs``). The ``__call`` metamethod takes precedence over
jbe@18 22 an existing ``__index`` metamethod.
jbe@0 23
jbe@0 24
jbe@0 25
jbe@0 26 Lua part of the library
jbe@0 27 -----------------------
jbe@0 28
jbe@25 29 The modified ``ipairs(seq)`` function and the new ``string.concat`` function
jbe@25 30 work as demonstrated in the following examples:
jbe@0 31
jbe@0 32 require "seqlua"
jbe@0 33
jbe@0 34 t = {"a", "b", "c"}
jbe@0 35
jbe@0 36 for i, v in ipairs(t) do
jbe@0 37 print(i, v)
jbe@0 38 end
jbe@0 39 -- prints:
jbe@0 40 -- 1 a
jbe@0 41 -- 2 b
jbe@0 42 -- 3 c
jbe@0 43
jbe@25 44 print(string.concat(",", t))
jbe@25 45 -- prints: a,b,c
jbe@25 46
jbe@19 47 function alphabet()
jbe@0 48 local letter = nil
jbe@0 49 return function()
jbe@0 50 if letter == nil then
jbe@19 51 letter = "a"
jbe@19 52 elseif letter == "z" then
jbe@0 53 return nil
jbe@0 54 else
jbe@0 55 letter = string.char(string.byte(letter) + 1)
jbe@0 56 end
jbe@0 57 return letter
jbe@0 58 end
jbe@0 59 end
jbe@0 60
jbe@23 61 for i, v in ipairs(alphabet()) do
jbe@0 62 print(i, v)
jbe@0 63 end
jbe@0 64 -- prints:
jbe@0 65 -- 1 a
jbe@0 66 -- 2 b
jbe@0 67 -- 3 c
jbe@0 68 -- ...
jbe@0 69 -- 25 y
jbe@0 70 -- 26 z
jbe@0 71
jbe@25 72 print(string.concat(",", alphabet()))
jbe@25 73 -- prints: a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z
jbe@25 74
jbe@26 75 function filter(f)
jbe@26 76 return function(seq)
jbe@26 77 return coroutine.wrap(function()
jbe@26 78 for i, v in ipairs(seq) do f(v) end
jbe@26 79 end)
jbe@26 80 end
jbe@0 81 end
jbe@19 82
jbe@29 83 alpha_beta_x = filter(function(v)
jbe@28 84 if v == "a" then
jbe@28 85 coroutine.yield("alpha")
jbe@28 86 elseif v == "b" then
jbe@28 87 coroutine.yield("beta")
jbe@28 88 elseif type(v) == "number" then
jbe@23 89 for i = 1, v do
jbe@28 90 coroutine.yield("X")
jbe@23 91 end
jbe@0 92 end
jbe@26 93 end)
jbe@0 94
jbe@29 95 print((","):concat(alpha_beta_x{"a", 3, "b", "c", "d"}))
jbe@28 96 -- prints: alpha,X,X,X,beta
jbe@25 97
jbe@29 98 print((","):concat(alpha_beta_x(alphabet())))
jbe@28 99 -- prints: alpha,beta
jbe@27 100
jbe@0 101
jbe@0 102 C part of the library
jbe@0 103 ---------------------
jbe@0 104
jbe@0 105 In ``seqlualib.h``, the following macro is defined:
jbe@0 106
jbe@0 107 #define seqlua_iterloop(L, iter, idx) \
jbe@0 108 for ( \
jbe@0 109 seqlua_iterinit((L), (iter), (idx)); \
jbe@0 110 seqlua_iternext(iter); \
jbe@25 111 )
jbe@25 112
jbe@25 113 and
jbe@25 114
jbe@25 115 #define seqlua_iterloopauto(L, iter, idx) \
jbe@25 116 for ( \
jbe@25 117 seqlua_iterinit((L), (iter), (idx)); \
jbe@25 118 seqlua_iternext(iter); \
jbe@0 119 lua_pop((L), 1) \
jbe@0 120 )
jbe@0 121
jbe@23 122 This macro allows iteration over either tables or iterator functions as the
jbe@23 123 following example function demonstrates:
jbe@0 124
jbe@0 125 int printcsv(lua_State *L) {
jbe@0 126 seqlua_Iterator iter;
jbe@0 127 seqlua_iterloop(L, &iter, 1) {
jbe@0 128 if (seqlua_itercount(&iter) > 1) fputs(",", stdout);
jbe@0 129 fputs(luaL_tolstring(L, -1, NULL), stdout);
jbe@25 130 // two values need to be popped (the value pushed by
jbe@25 131 // seqlua_iternext and the value pushed by luaL_tolstring)
jbe@25 132 lua_pop(L, 2);
jbe@0 133 }
jbe@0 134 fputs("\n", stdout);
jbe@0 135 return 0;
jbe@0 136 }
jbe@0 137
jbe@11 138 printcsv{"a", "b", "c"}
jbe@11 139 -- prints: a,b,c
jbe@11 140
jbe@11 141 printcsv(assert(io.open("testfile")):lines())
jbe@11 142 -- prints: line1,line2,... of "testfile"
jbe@0 143
jbe@0 144

Impressum / About Us