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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
--[[
module for format changes in table,string,files...
try to keep non input specific
]]--
module (..., package.seeall)
require ("posix")
require ("fs")
require ("session")
-- find all return characters and removes them, may get this from a browser
-- that is why didn't do file specific
function dostounix ( a )
local data = string.gsub(a, "\r", "")
return data
end
-- search and remove all blank lines and commented lines in a file
function remove_blanks_comments ( path )
f = fs.read_file_as_array(path)
local lines = {}
for _,line in pairs(f) do
local c = string.match(line, "^$") or string.match(line, "^%#")
if c == nil then lines[#lines + 1] = line end
end
-- returns a table to iterate over without the blank or commented lines
return lines
end
function cap_begin_word ( a )
--first need to do the first word
local data = string.gsub(a, "^%l", string.upper)
--word is any space cause no <> regex
data = string.gsub(data, " %l", string.upper)
return data
end
-- This code comes from http://lua-users.org/wiki/SplitJoin
-- -- example: format.table_to_string(", ", {"Anna", "Bob", "Charlie", "Dolores"})
function table_to_string (delimiter, list)
local len = getn(list)
if len == 0 then
return ""
end
local string = list[1]
for i = 2, len do
string = string .. delimiter .. list[i]
end
return string
end
-- This code comes from http://lua-users.org/wiki/SplitJoin
-- example: format.string_to_table(",%s*", "Anna, Bob, Charlie,Dolores")
function string_to_table (delimiter, text)
local list = {}
local pos = 1
-- this would result in endless loops
if string.find("", delimiter, 1) then
error("delimiter matches empty string!")
end
while 1 do
local first, last = string.find(text, delimiter, pos)
if first then -- found?
table.insert(list, string.sub(text, pos, first-1))
pos = last+1
else
table.insert(list, string.sub(text, pos))
break
end
end
return list
end
--these maybe moved to html or something like that
-- give a cfe and get back a string of what is inside
function cfe_unpack ( a )
if type(a) == "table" then
value = session.serialize("cfe", a)
return value
end
end
-- going to build more cfe to html functions below is just seeing what needed to be
-- done for a test
--give a lua table and unpack as html table
--t = { {row1}, {row2} ,options= {border = 2,align="left" } }
-- row one could technically be a title for the table ??? or t.title
function table_unpack_html ( t )
--first need the options
if t.options ~= nil then
for a,b in pairs(t.options) do
if opt == nil then opt = a .. "=" .. "\"" .. b .. "\"" else
opt = opt .. " " .. a .. "=" .. "\"" .. b .. "\"" end
end
html_table = "<table " .. opt .. ">"
else
html_table = "<table>"
end
for i = 1,table.maxn(t) do
html_table = html_table .. "<tr>"
for a,b in ipairs(t[i]) do
html_table = html_table .. "<td>" .. b .. "</td>"
end
html_table = html_table .. "</tr>"
end
html_table = html_table .. "</table>"
return html_table
end
|
