1 require "seqlua_c_example" -- defines functions "printcsv" and "printthree"

2

3 function alphabet()

4 local letter = nil

5 return function()

6 if letter == nil then

7 letter = "a"

8 elseif letter == "z" then

9 return nil

10 else

11 letter = string.char(string.byte(letter) + 1)

12 end

13 return letter

14 end

15 end

16

17 printcsv{"a", "b", "c"}

18 -- prints:

19 -- a,b,c

20

21 printcsv(alphabet())

22 -- prints:

23 -- 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

24

25 printthree(alphabet())

26 -- prints:

27 -- a

28 -- b

29 -- c

30

31 printthree(setmetatable({v="x"}, {__call=function(t) return t.v end}))

32 -- prints:

33 -- x

34 -- x

35 -- x

36