├── LICENSE
├── README.md
├── build.cfg
├── buildjs.sh
├── compiler
    ├── build.sh
    ├── core.lua
    ├── emitter.lua
    ├── lexer.lua
    ├── main.lua
    ├── parser.lua
    ├── statestack.lua
    └── transpiler.lua
├── index.html
├── manual.css
├── manual.html
├── playground
    ├── build.sh
    ├── console.css
    ├── console.html
    ├── console.lua
    ├── demo.lua
    ├── document.lua
    ├── editor.css
    ├── editor.html
    ├── editor.lua
    ├── finder.css
    ├── finder.html
    ├── finder.lua
    ├── handlebars.lua
    ├── index.css
    ├── index.html
    ├── mysql_compat.php
    ├── raytracer
    │   ├── 00_main.lua
    │   ├── build.sh
    │   ├── compile.sh
    │   ├── driver.lua
    │   ├── group.lua
    │   ├── index.html
    │   ├── light.lua
    │   ├── sphere.lua
    │   ├── tracer.lua
    │   ├── vector.lua
    │   └── worker.js
    ├── samples
    │   ├── hello_html.lua
    │   ├── hello_html_doc.html
    │   ├── hello_io.lua
    │   ├── hello_world.lua
    │   ├── plot2d.lua
    │   ├── print_self.lua
    │   └── simple_canvas.lua
    ├── schema.sql
    ├── serverdb.php
    └── storage.lua
└── tests
    ├── build.sh
    ├── compile.sh
    ├── runtest.sh
    ├── test-bits.lua
    ├── test-compiler.lua
    ├── test-coroutine.lua
    ├── test-datetime.lua
    ├── test-fastcall.lua
    ├── test-goto.lua
    ├── test-load.lua
    ├── test-manual.lua
    ├── test-math.lua
    ├── test-misc.lua
    ├── test-next-pairs.lua
    ├── test-pcall.lua
    ├── test-string-basic.lua
    ├── test-string-format.lua
    ├── test-string-regex.lua
    ├── test-table-lib.lua
    └── test-vector.lua


/LICENSE:
--------------------------------------------------------------------------------
 1 | MIT License
 2 | 
 3 | Copyright (c) 2018 spaceflint7
 4 | 
 5 | Permission is hereby granted, free of charge, to any person obtaining a copy
 6 | of this software and associated documentation files (the "Software"), to deal
 7 | in the Software without restriction, including without limitation the rights
 8 | to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 9 | copies of the Software, and to permit persons to whom the Software is
10 | furnished to do so, subject to the following conditions:
11 | 
12 | The above copyright notice and this permission notice shall be included in all
13 | copies or substantial portions of the Software.
14 | 
15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
18 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
20 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
21 | SOFTWARE.


--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
 1 | 
 2 | Loulabelle version 5203, released May 2018.
 3 | 
 4 | Compiler/transpiler from Lua 5.2 to JavaScript.
 5 | Written in Lua 5.2 and can be compiled to JavaScript.
 6 | 
 7 | Project home page:
 8 | https://www.spaceflint.com/loulabelle/
 9 | https://www.spaceflint.com/?p=161
10 | 
11 | Online playground:
12 | https://www.spaceflint.com/loulabelle/playground/
13 | 
14 | Source code download:
15 | https://www.spaceflint.com/loulabelle/loulabelle-5203.zip
16 | 
17 | GitHub page:
18 | https://github.com/spaceflint7/loulabelle
19 | 
20 | For documentation see the file manual.html,
21 | or visit the project home page.
22 | 


--------------------------------------------------------------------------------
/build.cfg:
--------------------------------------------------------------------------------
 1 | 
 2 | #
 3 | # TARGET - select target directory,
 4 | # for the following directory hierarchy:
 5 | #
 6 | # $TARGET - compiler and core library, documentation
 7 | # $TARGET/playground - playground demo
 8 | #
 9 | 
10 | TARGET=~/scoop/persist/apache/htdocs/loulabelle
11 | 
12 | #
13 | # JSOBJ - select name for the JavaScript Lua object.
14 | # compiler generates $lua by default, but this must
15 | # be specified explicitly here, for compiler/build.sh
16 | #
17 | 
18 | JSOBJ="\$lua"
19 | 
20 | #
21 | # LFLAGS - compilation flags for Loulabelle compiler.
22 | #
23 | 
24 | LFLAGS="-L $JSOBJ"
25 | # LFLAGS="-L $JSOBJ -o"
26 | 


--------------------------------------------------------------------------------
/buildjs.sh:
--------------------------------------------------------------------------------
 1 | #! /bin/bash
 2 | 
 3 | TARGET=Loulabelle.js
 4 | JSOBJ="\$lua"
 5 | # LFLAGS="-o"
 6 | 
 7 | pushd compiler > /dev/null
 8 | TARGET=../$TARGET
 9 | 
10 | echo "$JSOBJ.preload_chunk('Loulabelle*statestack'," > $TARGET
11 | lua main.lua $LFLAGS statestack.lua | sed 1,1d >> $TARGET
12 | 
13 | echo "$JSOBJ.preload_chunk('Loulabelle*lexer'," >> $TARGET
14 | lua main.lua $LFLAGS lexer.lua | sed 1,1d >> $TARGET
15 | 
16 | echo "$JSOBJ.preload_chunk('Loulabelle*parser'," >> $TARGET
17 | lua main.lua $LFLAGS parser.lua | sed 1,1d >> $TARGET
18 | 
19 | echo "$JSOBJ.preload_chunk('Loulabelle*emitter'," >> $TARGET
20 | lua main.lua $LFLAGS emitter.lua | sed 1,1d >> $TARGET
21 | 
22 | echo "$JSOBJ.preload_chunk('Loulabelle'," >> $TARGET
23 | lua main.lua $LFLAGS transpiler.lua | sed 1,1d >> $TARGET
24 | 


--------------------------------------------------------------------------------
/compiler/build.sh:
--------------------------------------------------------------------------------
 1 | #! /bin/bash
 2 | 
 3 | source ../build.cfg
 4 | if [ -n "$1" ]; then
 5 |     TARGET=$1
 6 | else
 7 |     echo "Usage: ./build.sh directory"
 8 |     echo "Compiles Loulabelle compiler and core library"
 9 |     echo "   into Loulabelle.js and core.js files"
10 |     echo "   in the specified directory"
11 |     echo "Build flags are taken from ../build.cfg"
12 |     exit 1
13 | fi
14 | 
15 | #
16 | # if need to compile any one of the modules making up
17 | # the compiler, compile all of them, and merge into
18 | # the single file $TARGET/Loulabelle.js
19 | #
20 | # this file is designed to be preloaded via a SCRIPT
21 | # tag, and it is then available to Lua using
22 | #       require "Loulabelle".
23 | # see Loulabelle manual, sections 4 and 6.3, and also
24 | # playground/console.html and playground/console.lua
25 | #
26 | 
27 | for f in {statestack,lexer,parser,emitter,transpiler}.lua; do
28 | 
29 |     if [ $f -nt $TARGET/Loulabelle.js ]; then
30 | 
31 |         echo Compiling compiler
32 | 
33 |         echo "$JSOBJ.preload_chunk('Loulabelle*statestack'," > $TARGET/Loulabelle.js
34 |         lua main.lua $LFLAGS statestack.lua | sed 1,1d >> $TARGET/Loulabelle.js
35 | 
36 |         echo "$JSOBJ.preload_chunk('Loulabelle*lexer'," >> $TARGET/Loulabelle.js
37 |         lua main.lua $LFLAGS lexer.lua | sed 1,1d >> $TARGET/Loulabelle.js
38 | 
39 |         echo "$JSOBJ.preload_chunk('Loulabelle*parser'," >> $TARGET/Loulabelle.js
40 |         lua main.lua $LFLAGS parser.lua | sed 1,1d >> $TARGET/Loulabelle.js
41 | 
42 |         echo "$JSOBJ.preload_chunk('Loulabelle*emitter'," >> $TARGET/Loulabelle.js
43 |         lua main.lua $LFLAGS emitter.lua | sed 1,1d >> $TARGET/Loulabelle.js
44 | 
45 |         echo "$JSOBJ.preload_chunk('Loulabelle'," >> $TARGET/Loulabelle.js
46 |         lua main.lua $LFLAGS transpiler.lua | sed 1,1d >> $TARGET/Loulabelle.js
47 | 
48 |         break
49 |     fi
50 | done
51 | 
52 | #
53 | # compile the core library
54 | #
55 | 
56 | if [ core.lua -nt $TARGET/core.js ]; then
57 | 
58 |     echo Compiling core library
59 | 
60 |     lua main.lua $LFLAGS core.lua > $TARGET/core.js
61 | fi
62 | 


--------------------------------------------------------------------------------
/compiler/lexer.lua:
--------------------------------------------------------------------------------
  1 | 
  2 | 
  3 | local class = {}
  4 | 
  5 | 
  6 | function class.new(text)
  7 | 
  8 |     local self = {
  9 | 
 10 |         text = text,
 11 |         text_pos = 0,
 12 |         text_len = #text,
 13 | 
 14 |         line = 1,
 15 |         column = 1,
 16 |         token_line = nil,
 17 |         token_column = nil,
 18 |     }
 19 | 
 20 |     for k,_ in pairs(class) do self[k] = class[k] end
 21 | 
 22 |     return self
 23 | 
 24 | end
 25 | 
 26 | 
 27 | local function isalpha_(c) return c and (c == '_' or (c >= 'a' and c <= 'z') or (c >= 'A' and c <= 'Z')) end
 28 | local function isspace(c) return c and (c == ' ' or c == '\t' or c == '\n' or c == '\r') end
 29 | local function isdigit(c) return c and (c >= '0' and c <= '9') end
 30 | local function isxdigit(c) return c and ((c >= '0' and c <= '9') or (c >= 'a' and c <= 'f') or (c >= 'A' and c <= 'F')) end
 31 | 
 32 | 
 33 | function class:next_token()
 34 | 
 35 |     while true do
 36 | 
 37 |         local c
 38 |         while true do
 39 |             c = self:get_char()
 40 |             if not isspace(c) then
 41 |                 if c then break
 42 |                 else -- end of file
 43 |                     self.token_line, self.token_column = self.line, self.column
 44 |                     return c
 45 |                 end
 46 |             end
 47 |         end
 48 | 
 49 |         self.token_line, self.token_column = self.line, self.column
 50 | 
 51 |         if c == '-' and self:peek_chars(1) == '-' then
 52 | 
 53 |             self:get_char()
 54 |             c = self:get_char()
 55 |             local lvl = (c == '[') and self:check_long_bracket()
 56 |             if lvl then
 57 |                 local _, err = self:next_long_string(lvl, 'comment')
 58 |                 if err then return nil, err end
 59 |             else
 60 |                 while c and c ~= '\n' do c = self:get_char() end
 61 |             end
 62 | 
 63 |         elseif not isalpha_(c) then
 64 | 
 65 |             if isdigit(c) then return self:next_number(c) end
 66 |             if c == '\'' or c == '\"' then return self:next_short_string(c) end
 67 |             if c == '[' then
 68 |                 local lvl = self:check_long_bracket()
 69 |                 if lvl then return self:next_long_string(lvl, 'string') end
 70 |             end
 71 | 
 72 |             return self:next_symbol(c)
 73 | 
 74 |         else
 75 | 
 76 |             local s = ''
 77 |             while true do
 78 |                 s = s .. c
 79 |                 c = self:get_char()
 80 |                 if not (isalpha_(c) or isdigit(c)) then
 81 |                     if c and not isspace(c) then
 82 |                         self.text_pos = self.text_pos - 1
 83 |                         self.column = self.column - 1
 84 |                     end
 85 |                     break
 86 |                 end
 87 |             end
 88 | 
 89 |             return s
 90 |         end
 91 | 
 92 |     end
 93 | 
 94 | end
 95 | 
 96 | 
 97 | local lower_a_byte = ('a'):byte()
 98 | local upper_A_byte = ('A'):byte()
 99 | 
100 | function class:next_short_string(quote_char)
101 | 
102 |     local t, n = { quote_char }, 2
103 | 
104 |     local skip_ws = false
105 |     while true do
106 |         local c = self:get_char()
107 |         while skip_ws do
108 |             if isspace(c) then c = self:get_char() else skip_ws = false end
109 |         end
110 |         if c == quote_char then break end
111 |         if c == '\n' or c == '\r' or (not c) then
112 |             return nil, 'unfinished string'
113 |         end
114 |         if c == '\\' then
115 |             c = self:get_char()
116 |             -- backslash followed by newline: always generates "\n"
117 |             if c == '\r' or c == '\n' then
118 |                 self:skip_newline()
119 |                 c = '\n'
120 |             -- backslash followed by 'z': skip to next non-whitespace character
121 |             elseif c == 'z' then
122 |                 c = ''
123 |                 skip_ws = true
124 |             -- backslash followed by a C escape character
125 |             elseif c == 'a' then c = '\x07'
126 |             elseif c == 'b' then c = '\x08'
127 |             elseif c == 't' then c = '\x09'
128 |             elseif c == 'n' then c = '\x0A'
129 |             elseif c == 'v' then c = '\x0B'
130 |             elseif c == 'f' then c = '\x0C'
131 |             elseif c == 'r' then c = '\x0D'
132 |             elseif c == '"' or c == "'" or c == '\\' then ;
133 |             -- character code in hex
134 |             elseif c == 'x' then
135 |                 local x1 = self:get_char()
136 |                 local x2 = self:get_char()
137 |                 if not isxdigit(x1) or not isxdigit(x2) then
138 |                     return nil, 'hexadecimal digit expected in string escape sequence'
139 |                 end
140 |                     if x1 >= 'a' then x1 = 10 + x1:byte() - lower_a_byte
141 |                 elseif x1 >= 'A' then x1 = 10 + x1:byte() - upper_A_byte end
142 |                     if x2 >= 'a' then x2 = 10 + x2:byte() - lower_a_byte
143 |                 elseif x2 >= 'A' then x2 = 10 + x2:byte() - upper_A_byte end
144 |                 c = string.char(x1 * 16 + x2)
145 |             -- character code in decimal
146 |             elseif isdigit(c) then
147 |                 local d1, d2, d3 = 0, 0, c
148 |                 if isdigit(self:peek_chars(1)) then
149 |                     d2 = d3
150 |                     d3 = self:get_char()
151 |                     if isdigit(self:peek_chars(1)) then
152 |                         d1 = d2
153 |                         d2 = d3
154 |                         d3 = self:get_char()
155 |                     end
156 |                 end
157 |                 c = string.char(d1 * 100 + d2 * 10 + d3)
158 |             else
159 |                 return nil, 'invalid escape sequence'
160 |             end
161 |         end
162 |         t[n] = c
163 |         n = n + 1
164 |     end
165 | 
166 |     t[n] = quote_char
167 |     return table.concat(t)
168 | end
169 | 
170 | 
171 | function class:next_long_string(lvl, string_or_comment)
172 | 
173 |     local t, n = { "'" }, 2
174 | 
175 |     local chk = string.rep('=', lvl) .. ']'
176 |     local c = self:peek_chars(1)
177 |     if c == '\r' or c == '\n' then
178 |         self:get_char()
179 |         self:skip_newline() -- skip initial newline
180 |     end
181 |     while true do
182 |         c = self:get_char()
183 |         if c == '\r' or c == '\n' then
184 |             self:skip_newline()
185 |             c = '\n'
186 |         else
187 |             if c == ']' and self:peek_chars(lvl + 1) == chk then
188 |                 for i = 0, lvl do self:get_char() end
189 |                 break
190 |             elseif (not c) then
191 |                 return nil, 'unfinished long ' .. string_or_comment
192 |             end
193 |         end
194 |         t[n] = c
195 |         n = n + 1
196 |     end
197 | 
198 |     t[n] = "'"
199 |     return table.concat(t)
200 | end
201 | 
202 | 
203 | function class:check_long_bracket()
204 | 
205 |     local c = self:peek_chars(1)
206 |     if c == '[' then
207 |         self:get_char()
208 |         return 0
209 |     end
210 |     if c == '=' then
211 |         local lvl = 1
212 |         local chk = '='
213 |         while true do
214 |             local s = self:peek_chars(lvl + 1)
215 |             if s == chk .. '[' then
216 |                 --print ('Compared', s, 'with', chk..'[', 'and selecting level', lvl)
217 |                 for i = 0, lvl do self:get_char() end
218 |                 return lvl
219 |             elseif s == chk .. '=' then
220 |                 lvl = lvl + 1
221 |                 chk = chk .. '='
222 |                 --print ('Compared', s, 'with', chk, 'and advancing level')
223 |             else
224 |                 break
225 |             end
226 |         end
227 |     end
228 |     return nil
229 | end
230 | 
231 | 
232 | function class:next_number(c)
233 | 
234 |     local initial_pos = self.text_pos
235 | 
236 |     local x, exp1, exp2 = self:peek_chars(1), 'e', 'E'
237 |     x = (c == '0' and (x == 'x' or x == 'X'))
238 |     if x then
239 |         self:get_char()
240 |         c = self:peek_chars(1)
241 |         if isxdigit(c) then exp1, exp2 = 'p', 'P'
242 |         else exp1 = nil end
243 |     end
244 | 
245 |     if exp1 then
246 |         while true do
247 |             c = self:peek_chars(1)
248 |             if c == exp1 or c == exp2 then
249 |                 exp1, exp2 = nil, nil
250 |                 self:get_char()
251 |                 c = self:get_char()
252 |                 if not (c == '-' or c == '+' or isdigit(c)) then break end
253 |             elseif isdigit(c) or isalpha_(c) or c == '.' then self:get_char()
254 |             else break end
255 |         end
256 |     end
257 | 
258 |     local num = tonumber(self.text:sub(initial_pos, self.text_pos))
259 |     if num then return string.format("%.17g", num) else return nil, "invalid number" end
260 | 
261 | end
262 | 
263 | 
264 | function class:next_symbol(c)
265 | 
266 |     -- we can convert a minus token followed by digits (i.e. a number token)
267 |     -- into a negative) number token, but only if the minus token is separated
268 |     -- from the previous token by a space character.
269 |     if c == '-' then
270 |         if (not isdigit(self:peek_chars(1)))
271 |         or (self.text_pos > 0 and
272 |                 (not isspace(self.text:sub(self.text_pos - 1, self.text_pos - 1))))
273 |             then return c
274 |         else
275 |             local num, err = self:next_number(self:get_char())
276 |             --if type(num) == "number" then num = -num end
277 |             if num then num = "-" .. num end
278 |             return num, err
279 |         end
280 |     end
281 | 
282 |     if c == '+' or c == '*' or c == '/' or c == '%' or c == '^' or c == '#'
283 |     or c == '(' or c == ')' or c == '{' or c == '}' or c == '[' or c == ']'
284 |     or c == ';' or c == ',' then return c end
285 | 
286 |     if c == '.' then
287 |         local c2 = self:peek_chars(1)
288 |         if isdigit(c2) then return self:next_number(c)
289 |         elseif c2 ~= '.' then return '.' end
290 |         self:get_char(1)
291 |         if self:peek_chars(1) ~= '.' then return '..' end
292 |         self:get_char(1)
293 |         return '...'
294 |     end
295 | 
296 |     if c == ':' or c == '=' then
297 |         if self:peek_chars(1) ~= c then return c end
298 |         self:get_char()
299 |         return c .. c
300 |     end
301 | 
302 |     if c == '<' or c == '>' then
303 |         if self:peek_chars(1) ~= '=' then return c end
304 |         self:get_char()
305 |         return c .. '='
306 |     end
307 | 
308 |     if c == '~' and self:peek_chars(1) == '=' then
309 |         self:get_char()
310 |         return c .. '='
311 |     end
312 | 
313 |     return nil, 'unrecognized symbol ' .. c
314 | 
315 | end
316 | 
317 | 
318 | function class:get_char()
319 | 
320 |     local c
321 |     if (self.text_pos < self.text_len) then
322 |         self.text_pos = self.text_pos + 1
323 |         c = self.text:sub(self.text_pos, self.text_pos)
324 |         if c == '\n' then
325 |             self.line = self.line + 1
326 |             self.column = 1
327 |         else
328 |             self.column = self.column + 1
329 |         end
330 |     end
331 |     return c
332 | 
333 | end
334 | 
335 | 
336 | function class:peek_chars(n)
337 | 
338 |     local s
339 |     if (self.text_pos + n <= self.text_len) then
340 |         s = self.text:sub(self.text_pos + 1, self.text_pos + n)
341 |     end
342 |     return s
343 | 
344 | end
345 | 
346 | 
347 | function class:skip_newline()
348 | 
349 |     local n = self.text_pos
350 |     local c1 = self.text:sub(n, n)
351 |     if c1 == '\r' or c1 == '\n' then
352 |         local c2 = self.text:sub(n + 1, n + 1)
353 |         if (c2 == '\r' or c2 == '\n') and (c2 ~= c1) then
354 |             self:get_char()
355 |         end
356 |     end
357 | 
358 | end
359 | 
360 | 
361 | return class
362 | 


--------------------------------------------------------------------------------
/compiler/main.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | local ok, transpiler = pcall(function() return require("transpiler") end)
 3 | if not ok then
 4 |     local idx = arg[0]:reverse():find('/', 1, true) or 0
 5 |     package.path = arg[0]:sub(1, -idx) .. "?.lua;" .. (package.path or "")
 6 |     transpiler = require("transpiler")
 7 | end
 8 | 
 9 | local pgmname = arg[0] or "Loulabelle"
10 | 
11 | local function usage()
12 |     local version = transpiler(nil, nil, {version=true})
13 |     print ("Loulabelle, Lua to JavaScript compiler, version " .. version)
14 |     print ("usage: " .. pgmname .. " [-h] [-o] [-J] [-L var] [-n chunkname] inputfile")
15 |     print ("-h: display usage")
16 |     print ("-o: optimize function calls and turn off call stack")
17 |     print ("-G: disallow assignment to globals without table reference")
18 |     print ("-J: disallow JavaScript statements")
19 |     print ("-A: disallow assume keywords")
20 |     print ("-L: set object name for JavaScript (default $lua)")
21 |     print ("-n: set chunk name (default same as inputfile argument)")
22 |     return 1
23 | end
24 | 
25 | local debug, jsallow, globals, assumes = true, true, true, true
26 | local jsobject, chunkname
27 | local i = 1
28 | while true do
29 |     local s = arg[i]
30 |     if not s or s:sub(1,1) ~= '-' then break end
31 |     if s == '-o' then
32 |         debug = false
33 |         table.remove(arg, i)
34 |     elseif s == '-G' then
35 |         globals = false
36 |         table.remove(arg, i)
37 |     elseif s == '-J' then
38 |         jsallow = false
39 |         table.remove(arg, i)
40 |     elseif s == '-A' then
41 |         assumes = false
42 |         table.remove(arg, i)
43 |     elseif s == '-L' then
44 |         table.remove(arg, i)
45 |         jsobject = arg[i]
46 |         if not jsobject then return usage() end
47 |         table.remove(arg, i)
48 |     elseif s == '-n' then
49 |         table.remove(arg, i)
50 |         chunkname = arg[i]
51 |         if not chunkname then return usage() end
52 |         table.remove(arg, i)
53 |     else return usage() end
54 | end
55 | 
56 | local infile, filename
57 | if #arg == 0 then
58 |     infile = io.stdin
59 |     filename = "(stdin)"
60 | elseif #arg <= 1 then
61 |     filename = arg[i]
62 |     infile = assert(io.open(arg[i], "r"))
63 |     i = i + 1
64 | else return usage() end
65 | 
66 | if not chunkname then
67 |     local idx = filename:reverse():find('/', 1, true) or 0
68 |     chunkname = filename:sub(-idx + 1)
69 | end
70 | 
71 | local source = infile:read("*all")
72 | local javascript, errmsg = transpiler(
73 |     chunkname, source, {
74 |         debug = debug,
75 |         jsobject = jsobject,
76 |         globals = globals,
77 |         assumes = assumes,
78 |         JavaScript = jsallow
79 |     })
80 | if errmsg then
81 |     io.stderr:write(filename..': '..errmsg..'\n')
82 |     os.exit(2)
83 | end
84 | 
85 | print (javascript)
86 | 
87 | return 0
88 | 


--------------------------------------------------------------------------------
/compiler/statestack.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | 
 3 | local class = {}
 4 | 
 5 | 
 6 | function class.new()
 7 | 
 8 |     local self = { }
 9 |     for k,_ in pairs(class) do self[k] = class[k] end
10 |     return self
11 | 
12 | end
13 | 
14 | 
15 | function class:push()
16 | 
17 |     local n = self.n or 0
18 |     local new_st = {}
19 |     if n > 0 then
20 |         local old_st = self[self.n]
21 |         for k,v in pairs(old_st) do new_st[k] = v end
22 |     end
23 |     n = n + 1
24 |     self[n] = new_st
25 |     self.n = n
26 | 
27 | end
28 | 
29 | 
30 | function class:pop()
31 | 
32 |     local n = self.n or 0
33 |     if n > 0 then
34 |         self[n] = nil
35 |         n = n - 1
36 |         self.n = n
37 |     end
38 | 
39 | end
40 | 
41 | 
42 | function class:set(k, v)
43 | 
44 |     local n = self.n or 0
45 |     if n > 0 then self[n][k] = v end
46 | 
47 | end
48 | 
49 | 
50 | function class:get(k)
51 | 
52 |     local n = self.n or 0
53 |     if n > 0 then return self[n][k] else return nil end
54 | 
55 | end
56 | 
57 | 
58 | function class:count()
59 | 
60 |     local n = self.n or 0
61 |     if n > 0 then return #self[n] else return 0 end
62 | 
63 | end
64 | 
65 | 
66 | return class
67 | 


--------------------------------------------------------------------------------
/compiler/transpiler.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | local jspfx = package.JavaScript and "Loulabelle*" or ""
 3 | local Parser = require(jspfx.."parser")
 4 | local Emitter = require(jspfx.."emitter")
 5 | 
 6 | return function(source_name, source_text, source_options)
 7 | 
 8 |     if source_options then
 9 |         assert(type(source_options) == "table")
10 |         if source_options.version then
11 |             return "1.0", 1.0
12 |         end
13 |     end
14 |     assert(type(source_name) == "string")
15 |     assert(type(source_text) == "string")
16 | 
17 |     local result
18 |     local tree, err = Parser.parse(source_text, source_name)
19 |     if not err then
20 | 
21 |         source_options = source_options or {}
22 |         tree.jsobject = source_options.jsobject
23 |         tree.debug = source_options.debug == nil and true or source_options.debug
24 |         tree.JavaScript = source_options.JavaScript == nil and true or source_options.JavaScript
25 |         tree.globals = source_options.globals == nil and true or source_options.globals
26 |         tree.assumes = source_options.assumes == nil and true or source_options.assumes
27 | 
28 |         result, err = Emitter.generate(tree)
29 |     end
30 | 
31 |     if (not err) and source_options.env then
32 | 
33 |         local idx1 = result:index("function*func")
34 |         local idx2 = result:rindex("}")
35 |         if idx1 and idx2 then
36 | 
37 |             result = result:sub(idx1, idx2)
38 |             JavaScript("try{var f=Function('return '+$1)()}catch(e){$2=e.toString()}", result, err)
39 |             if not err then
40 |                 JavaScript("$3=$L.func(f,$1,undefined,$2,1)", source_options.env, source_name, result)
41 |             end
42 | 
43 |         else
44 |             result = nil
45 |             err = "Internal error in compiler output"
46 |         end
47 |     end
48 | 
49 |     return result, err
50 | 
51 | end
52 | 


--------------------------------------------------------------------------------
/index.html:
--------------------------------------------------------------------------------
 1 | 
 2 | <h1>Loulabelle</h1>
 3 | <h2>version 5203, released May 2018</h2>
 4 | 
 5 | <h4>Compiler/transpiler from Lua 5.2 to JavaScript.
 6 | Written in Lua 5.2 and can be compiled to JavaScript.</h4>
 7 | 
 8 | <h4>Project home page:</h4>
 9 | <p><a href="https://www.spaceflint.com/loulabelle/">https://www.spaceflint.com/loulabelle</a></p>
10 | <p><a href="https://www.spaceflint.com/?p=161">https://www.spaceflint.com/?p=161</a>
11 | 
12 | <h4>Online playground:</h4>
13 | <p><a href="https://www.spaceflint.com/loulabelle/playground/">https://www.spaceflint.com/loulabelle/playground</a></p>
14 | 
15 | <h4>Reference <a href="https://www.spaceflint.com/loulabelle/manual.html">manual</a>:</h4>
16 | <p><a href="https://www.spaceflint.com/loulabelle/manual.html">https://www.spaceflint.com/loulabelle/manual.html</a></p>
17 | 
18 | <h4>Source code download:</h4>
19 | <p><a href="https://www.spaceflint.com/loulabelle/loulabelle-5203.zip">https://www.spaceflint.com/loulabelle/loulabelle-5203.zip</a></p>
20 | 
21 | <h4>GitHub page:</h4>
22 | <p><a href="https://github.com/spaceflint7/loulabelle">https://github.com/spaceflint7/loulabelle</a></p>
23 | 


--------------------------------------------------------------------------------
/manual.css:
--------------------------------------------------------------------------------
  1 | 
  2 | /*
  3 |  * from Lua 5.2 lua.css
  4 |  */
  5 | 
  6 | html {
  7 |     background-color: #F8F8F8 ;
  8 | }
  9 | 
 10 | body {
 11 |     border: solid #a0a0a0 1px ;
 12 |     border-radius: 20px ;
 13 |     padding: 26px ;
 14 |     margin: 16px ;
 15 |     color: #000000 ;
 16 |     background-color: #FFFFFF ;
 17 |     font-family: Helvetica, Arial, sans-serif ;
 18 |     text-align: justify ;
 19 |     line-height: 1.25 ;
 20 | }
 21 | 
 22 | h1, h2, h3, h4 {
 23 |     font-family: Verdana, Geneva, sans-serif ;
 24 |     font-weight: normal ;
 25 |     font-style: normal ;
 26 | }
 27 | 
 28 | h2 {
 29 |     padding-top: 0.4em ;
 30 |     padding-bottom: 0.4em ;
 31 |     padding-left: 0.8em ;
 32 |     padding-right: 0.8em ;
 33 |     background-color: #D0D0FF ;
 34 |     border-radius: 8px ;
 35 |     border: solid #a0a0a0 1px ;
 36 | }
 37 | 
 38 | h3 {
 39 |     padding-left: 0.5em ;
 40 |     border-left: solid #D0D0FF 1em ;
 41 | }
 42 | 
 43 | table h3 {
 44 |     padding-left: 0px ;
 45 |     border-left: none ;
 46 | }
 47 | 
 48 | a:link {
 49 |     color: #000080 ;
 50 |     background-color: inherit ;
 51 |     text-decoration: none ;
 52 | }
 53 | 
 54 | a:visited {
 55 |     background-color: inherit ;
 56 |     text-decoration: none ;
 57 | }
 58 | 
 59 | a:link:hover, a:visited:hover {
 60 |     color: #000080 ;
 61 |     background-color: #D0D0FF ;
 62 |     border-radius: 4px ;
 63 | }
 64 | 
 65 | a:link:active, a:visited:active {
 66 |     color: #FF0000 ;
 67 | }
 68 | 
 69 | h1 a img {
 70 |     vertical-align: text-bottom ;
 71 | }
 72 | 
 73 | hr {
 74 |     border: 0 ;
 75 |     height: 1px ;
 76 |     color: #a0a0a0 ;
 77 |     background-color: #a0a0a0 ;
 78 |     display: none ;
 79 | }
 80 | 
 81 | table hr {
 82 |     display: block ;
 83 | }
 84 | 
 85 | :target {
 86 |     background-color: #F8F8F8 ;
 87 |     padding: 8px ;
 88 |     border: solid #a0a0a0 2px ;
 89 |     border-radius: 8px ;
 90 | }
 91 | 
 92 | .footer {
 93 |     color: gray ;
 94 |     font-size: x-small ;
 95 | }
 96 | 
 97 | input[type=text] {
 98 |     border: solid #a0a0a0 2px ;
 99 |     border-radius: 2em ;
100 |     background-image: url('images/search.png') ;
101 |     background-repeat: no-repeat ;
102 |     background-position: 4px center ;
103 |     padding-left: 20px ;
104 |     height: 2em ;
105 | }
106 | 
107 | pre.session {
108 |     background-color: #F8F8F8 ;
109 |     padding: 1em ;
110 |     border-radius: 8px ;
111 | }
112 | 
113 | /*
114 |  * from Lua 5.2 manual.css
115 |  */
116 | 
117 | h3 code {
118 |     font-family: inherit ;
119 |     font-size: inherit ;
120 | }
121 | 
122 | pre, code {
123 |     font-size: 12pt ;
124 | }
125 | 
126 | span.apii {
127 |     float: right ;
128 |     font-family: inherit ;
129 |     font-style: normal ;
130 |     font-size: small ;
131 |     color: gray ;
132 | }
133 | 
134 | p+h1, ul+h1 {
135 |     font-style: normal ;
136 |     padding-top: 0.4em ;
137 |     padding-bottom: 0.4em ;
138 |     padding-left: 16px ;
139 |     margin-left: -16px ;
140 |     background-color: #D0D0FF ;
141 |     border-radius: 8px ;
142 |     border: solid #000080 1px ;
143 | }
144 | 
145 | /*
146 |  * some additions
147 |  */
148 | 
149 | pre {
150 |     overflow-x: auto;
151 |     background-color: lightyellow;
152 |     border: solid black 1px;
153 |     padding: 3px;
154 | }
155 | 


--------------------------------------------------------------------------------
/playground/build.sh:
--------------------------------------------------------------------------------
 1 | #! /bin/bash
 2 | 
 3 | source ../build.cfg
 4 | 
 5 | pushd ../compiler > /dev/null
 6 | ./build.sh $TARGET
 7 | popd > /dev/null
 8 | 
 9 | MYDIR=`pwd`
10 | TARGET=$TARGET/playground
11 | 
12 | function copy() {
13 |     while [ -n "$1" ]; do
14 |         if [ ${1: -4} == ".lua" ]; then
15 |             if [ $1 -nt $TARGET/${1%.lua}.js ]; then
16 |                 echo Compiling $1
17 |                 pushd ../compiler > /dev/null
18 |                 lua main.lua $LFLAGS $MYDIR/$1 > $TARGET/${1%.lua}.js
19 |                 if [ $? != 0 ]; then rm $TARGET/${1%.lua}.js; fi
20 |                 popd > /dev/null
21 |             fi
22 |         else
23 |             if [ $1 -nt $TARGET/$1 ]; then
24 |                 echo Copying $1
25 |                 cp $1 $TARGET
26 |             fi
27 |         fi
28 |         shift
29 |     done
30 | }
31 | 
32 | copy handlebars.lua document.lua storage.lua
33 | 
34 | copy index.html index.css demo.lua
35 | 
36 | copy finder.html finder.css finder.lua
37 | copy editor.html editor.css editor.lua
38 | copy console.html console.css console.lua
39 | 
40 | copy serverdb.php mysql_compat.php
41 | 


--------------------------------------------------------------------------------
/playground/console.css:
--------------------------------------------------------------------------------
 1 | 
 2 | #console-section {
 3 |     height: 100%;
 4 |     width: 80vw;
 5 |     font-family: Lucida Console, monaco, Courier New, monospace;
 6 |     font-size: 16pt;
 7 | }
 8 | 
 9 | #console-placeholder {
10 |     display: none;
11 | }
12 | 
13 | #console-iframe {
14 |     position: absolute;
15 |     left: 20vw;
16 |     width: 80vw;
17 |     top: 0;
18 |     z-index: 99;
19 | }
20 | 
21 | #console-section .CodeMirror {
22 |     font-family: inherit;
23 |     font-size: inherit;
24 |     height: 100%;
25 |     width: 100%;
26 | }
27 | 
28 | #console-input {
29 |     display: block;
30 |     font-family: inherit;
31 |     font-size: inherit;
32 |     flex-grow: 20;
33 |     width: 95%;
34 |     background: yellow;
35 | }
36 | 
37 | /*
38 |  * mobile
39 |  */
40 | 
41 | @media only screen and (max-device-width: 768px) {
42 | 
43 | #console-section {
44 |     width: 100vw;
45 | }
46 | 
47 | #console-iframe {
48 |     left: 0vw;
49 |     width: 100vw;
50 | }
51 | 
52 | }
53 | 


--------------------------------------------------------------------------------
/playground/console.html:
--------------------------------------------------------------------------------
 1 | <!DOCTYPE html><html><head><meta charset="utf-8"/></head><body>
 2 | 
 3 | <div id="console-container">
 4 | <textarea id="console-placeholder"></textarea>
 5 | </div>
 6 | <input id="console-input" tabindex="0" type="text" autocomplete="off" autocorrect="off" autocapitalize="none" spellcheck="false">
 7 | 
 8 | <iframe id="console-iframe" sandbox="allow-scripts allow-popups allow-modal" srcdoc='
 9 | <script type="text/javascript" src="../core.js"></script>
10 | <script type="text/javascript" src="../Loulabelle.js"></script>
11 | <script type="text/javascript" src="console.js"></script>
12 | '>
13 | 
14 | </body></html>
15 | 


--------------------------------------------------------------------------------
/playground/console.lua:
--------------------------------------------------------------------------------
  1 | 
  2 | local console_widget
  3 | local console_container
  4 | local console_status_text
  5 | 
  6 | --
  7 | -- console_run
  8 | --
  9 | 
 10 | local function console_run_placeholder(folder_name, file_name)
 11 | 
 12 |     --
 13 |     -- this is a placeholder that is used only while
 14 |     -- the console is initializing.  when initialization
 15 |     -- is complete, the console_run global is updated
 16 |     --
 17 | 
 18 |     while console_busy == nil or console_busy == true do
 19 |         coroutine.sleep(25)
 20 |     end
 21 | 
 22 |     console_run(folder_name, file_name)
 23 | end
 24 | 
 25 | --
 26 | -- install_listener
 27 | --
 28 | 
 29 | local function install_listener(handler)
 30 | 
 31 |     local callback = function(event)
 32 |         local window, data
 33 |         JavaScript("$1=$2.source", window, event)
 34 |         JavaScript("$1=$2.data", data, event)
 35 |         local msg = coroutine.jsconvert(data)
 36 |         msg.window = window
 37 |         handler(msg)
 38 |     end
 39 | 
 40 |     JavaScript("window.addEventListener('message',$1,false)",
 41 |                 (coroutine.jscallback(callback)))
 42 | end
 43 | 
 44 | --
 45 | -- post
 46 | --
 47 | 
 48 | local function post(msg)
 49 | 
 50 |     local window = msg.window
 51 |     assert(window ~= nil)
 52 |     msg.window = nil
 53 |     msg = coroutine.jsconvert(nil, msg)
 54 |     JavaScript("$1.postMessage($2,'*')", window, msg)
 55 | 
 56 | end
 57 | 
 58 | --
 59 | -- local_main
 60 | --
 61 | 
 62 | local local_main
 63 | local_main = function(document, iframe, input)
 64 | 
 65 |     --
 66 |     -- create text editor for console
 67 |     --
 68 | 
 69 |     console_busy = true
 70 | 
 71 |     local function on_key_func(cm, key, e)
 72 |         if key == "Tab" or key == "Shift-Tab" then input:focus() end
 73 |     end
 74 | 
 75 |     if not console_codemirror_loaded_once then
 76 |         local exception
 77 |         load_codemirror()
 78 |         JavaScript("try{")
 79 |         JavaScript("$1=CodeMirror.fromTextArea(document.getElementById('console-placeholder'),{mode:'none',readOnly:true,scrollbarStyle:'null',tabindex:0})", console_widget)
 80 |         JavaScript("$1.on('keyHandled',$2)", console_widget, (coroutine.jscallback(on_key_func)))
 81 |         console_codemirror_loaded_once = true
 82 |         JavaScript("}catch(e){$1='JS '+e.toString()}", exception)
 83 |         if exception then
 84 |             show_error(exception)
 85 |             return
 86 |         end
 87 |     end
 88 | 
 89 |     local console_iframe = document:fromElement(iframe)
 90 | 
 91 |     if not console_container then
 92 |         local console_container = document:getElementById("console-container")
 93 |         document:resizeCallback(function(w,h)
 94 |             local status = document:getElementById("status-section")
 95 |             h = h - status.offsetHeight - input.offsetHeight - 10
 96 |             h = tostring(h) .. 'px'
 97 |             console_container.style.height = h
 98 |             console_iframe.style.height = h
 99 |             h = tostring(status.offsetHeight) .. 'px'
100 |             console_iframe.style.top = h
101 |         end)
102 |     end
103 | 
104 |     console_focus = function()
105 |         show_status(console_status_text or "Console")
106 |         if not mobile then input:focus() end
107 |     end
108 |     console_focus()
109 | 
110 |     --
111 |     -- wait for iframe to initialize
112 |     --
113 | 
114 |     local window
115 |     JavaScript("$1=$2.contentWindow", window, iframe)
116 | 
117 |     local ping_time = tostring(os.time())
118 |     local pong_time
119 |     local local_co
120 |     local printqueue = {}
121 |     local inputqueue = {}
122 | 
123 |     input.onkeypress = function(event)
124 |         if event.key == "Enter" then
125 |             inputqueue[#inputqueue+1] = input.value:trim()
126 |             input.value = ""
127 |             if local_co then coroutine.resume(local_co) end
128 |         end -- else if event.key == "ArrowUp" then
129 |     end
130 | 
131 |     input.oninput = function() document:resizeCallback(true) end
132 | 
133 |     install_listener(function(msg)
134 |         if msg.type == "pong" then pong_time = msg.time
135 |         elseif msg.type == "print" then
136 |             printqueue[#printqueue+1] = msg.text
137 |             if local_co then coroutine.resume(local_co) end
138 |         elseif msg.type == "ready" then
139 |             console_busy = false
140 |             if console_status_text and console_status_text:sub(1,1) == 'R' then
141 |                 console_status_text = "Finished r" .. console_status_text:sub(2)
142 |             else
143 |                 console_status_text = "Console"
144 |             end
145 |             show_status(console_status_text)
146 |             console_iframe.style.pointerEvents = "none"
147 |         end
148 |     end)
149 | 
150 |     for i = 1, 100 do
151 |         post { window=window, type="ping", time=ping_time, url=document.URL }
152 |         coroutine.sleep(100)
153 |         if pong_time == ping_time then break end
154 |     end
155 | 
156 |     if pong_time ~= ping_time then
157 |         show_error('Failed to connect to iframe.  Refresh page to retry.')
158 |         return
159 |     end
160 | 
161 |     console_run = function(folder_name, file_name)
162 |         if console_busy or #inputqueue ~= 0 then
163 |             show_error("Console is already running a command at this time")
164 |         else
165 |             console_iframe.style.pointerEvents = "all"
166 |             console_status_text = 'Running <span class="filename">' .. file_name .. '</span> in folder <span class="filename">' .. folder_name .. '</span>'
167 |             console_focus()
168 |             inputqueue[1] = 'require "' .. folder_name .. '/' .. file_name .. '"'
169 |             if local_co then coroutine.resume(local_co) end
170 |         end
171 |     end
172 | 
173 |     console_busy = false
174 | 
175 |     --
176 |     --
177 |     --
178 | 
179 |     while true do
180 | 
181 |         if #printqueue == 0 and #inputqueue == 0 then
182 |             local_co = coroutine.running()
183 |             coroutine.suspend()
184 |             local_co = nil
185 |         end
186 | 
187 |         if #printqueue ~= 0 then
188 |             local text = table.concat(printqueue, '\n') .. '\n'
189 |             JavaScript("$1.replaceRange($2,{line:$1.lineCount()})", console_widget, text)
190 |             JavaScript("$1.execCommand('goDocEnd')", console_widget)
191 |             printqueue = {}
192 |         end
193 | 
194 |         if #inputqueue ~= 0 then
195 |             local cmd = table.remove(inputqueue,1)
196 |             if not console_busy and cmd:sub(1,1) == '=' then
197 |                 cmd = 'return ' .. cmd:sub(2)
198 |             end
199 |             console_busy = true
200 |             if cmd == "/clear" then
201 |                 JavaScript("$1.setValue('')", console_widget)
202 |                 console_busy = false
203 |             elseif cmd == "/restart" then
204 |                 console_run = console_run_placeholder
205 |                 console_focus = nil
206 |                 local iframe_new
207 |                 JavaScript("$2=$1.cloneNode()", iframe, iframe_new)
208 |                 JavaScript("$1.parentNode.replaceChild($2,$1)", iframe, iframe_new)
209 |                 coroutine.spawn(local_main, document, iframe_new, input)
210 |                 do return end
211 |             else
212 |                 post { window=window, type="input", text=cmd }
213 |             end
214 |         end
215 |     end
216 | 
217 | end
218 | 
219 | --
220 | -- remote_compile
221 | --
222 | 
223 | local function remote_compile(Loulabelle, res)
224 | 
225 |     local debug = true
226 |     res.source_text = res.source_text:rtrim()
227 |     if res.source_text:endswith("--nodebug") then
228 |         debug = false
229 |     end
230 | 
231 |     local filepath = res.folder_name .. '/' .. res.file_name
232 |     local func, err = Loulabelle(
233 |             res.file_name .. ".lua",
234 |             res.source_text, {
235 |                 env = _G, debug = debug })
236 |     if err then
237 |         err = err .. ' in file ' .. filepath
238 |         error(err, 2)
239 |     end
240 | 
241 |     return func
242 | 
243 | end
244 | 
245 | --
246 | -- remote_load
247 | --
248 | 
249 | local function remote_load(Loulabelle)
250 | 
251 |     local load = _G.load
252 | 
253 |     return function(text, source, mode, env)
254 | 
255 |         if type(text) ~= 'string' then
256 |             return load(text, source, mode, env)
257 |         end
258 | 
259 |         local res = {
260 |             folder_name = '(load)',
261 |             file_name = '(load)',
262 |             source_text = text
263 |         }
264 | 
265 |         local func = remote_compile(Loulabelle, res)
266 |         if func and env then
267 |             func = load(func, nil, nil, env)
268 |         end
269 |         return func
270 | 
271 |     end
272 | end
273 | 
274 | --
275 | -- remote_require
276 | --
277 | 
278 | local function remote_require(Loulabelle, document)
279 | 
280 |     local stack = {}
281 |     local cache = {}
282 | 
283 |     return function(path, require_mode)
284 | 
285 |         local result = cache[path]
286 |         if result then return result end
287 | 
288 |         if require_mode then
289 |             if path == "/document" then
290 |                 return document
291 |             end
292 |         end
293 | 
294 |         local slash, folder, file = path:index("/")
295 |         if slash then
296 |             folder = path:sub(1,slash-1):trim()
297 |             file = path:sub(slash+1)
298 |             if require_mode then stack[#stack+1] = folder end
299 |         else
300 |             folder = (#stack > 0) and stack[#stack] or "?"
301 |             file = path
302 |         end
303 | 
304 |         local form = {
305 |             op = 'read_file',
306 |             folder = folder,
307 |             file = file
308 |         }
309 |         local res, err = document.load_form("serverdb.php", form)
310 | 
311 |         if err then err = "HTTP error code " .. err .. " for operation " .. form.op
312 |         else
313 |             local idx = type(res) == "string" and res:find("<JSON>{", 1, true)
314 |             if idx then
315 |                 res = document.parse_json(res:sub(idx + 6))
316 |                 if res.error then err = res.error end
317 |             else err = "Server reports error: " .. tostring(res) end
318 |         end
319 | 
320 |         if err then error(err,3) end
321 | 
322 |         if not require_mode then result = res.source_text
323 |         else
324 | 
325 |             result = remote_compile(Loulabelle, res)
326 |             result = result()
327 | 
328 |             if result == nil then
329 |                 result = cache[path]
330 |                 if result == nil then result = true end
331 |             end
332 | 
333 |             if slash and #stack > 1 then stack[#stack] = nil end
334 |         end
335 | 
336 |         cache[path] = result
337 |         return result
338 |     end
339 | end
340 | 
341 | --
342 | -- remote_main
343 | --
344 | 
345 | local function remote_main()
346 | 
347 |     --
348 |     -- load compiler.  note that compiler was actually
349 |     -- already preloaded by console.html, so we are
350 |     -- just getting a reference to that preloaded module
351 |     --
352 | 
353 |     local Loulabelle = require "Loulabelle"
354 | 
355 |     package.playground = true
356 |     load = remote_load(Loulabelle)
357 | 
358 |     --
359 |     -- wait for initial message from iframe host
360 |     --
361 | 
362 |     local host
363 |     local remote_co = coroutine.running()
364 |     local inputqueue = {}
365 | 
366 |     install_listener(function(msg)
367 |         if msg.type == "ping" then
368 |             _G.url = msg.url:sub(1, msg.url:rindex('/'))
369 |             host = msg.window
370 |             if host ~= nil then
371 |                 msg.type = "pong"
372 |                 post (msg)
373 |             end
374 |         elseif msg.type == "input" then
375 |             if host ~= nil then
376 |                 if inputqueue.waiting then
377 |                     inputqueue.waiting = nil
378 |                     coroutine.resume(remote_co, msg.text)
379 |                 else
380 |                     inputqueue[#inputqueue+1] = msg.text
381 |                 end
382 |             end
383 |         end
384 |     end)
385 | 
386 |     while not host do
387 |         coroutine.sleep(100)
388 |     end
389 | 
390 |     --
391 |     -- io.read, io.write
392 |     --
393 | 
394 |     if not io then io = {} end
395 |     local io = io
396 | 
397 |     local read_input = function(arg)
398 |         assert(arg == nil, "read() does not support any format strings")
399 |         local line
400 |         if #inputqueue ~= 0 then
401 |             line = table.remove(inputqueue,1)
402 |         else
403 |             inputqueue.waiting = true
404 |             line = coroutine.suspend()
405 |         end
406 |         return line
407 |     end
408 |     io.read = read_input
409 | 
410 |     io.writequeue = {}
411 |     io.write = function(...)
412 |         for i = 1, select('#', ...) do
413 |             local v = select(i, ...)
414 |             if type(v) == 'number' then
415 |                 io.writequeue[#io.writequeue+1] = tostring(v)
416 |             else
417 |                 assert(type(v) == 'string', 'write() supports only numbers or strings')
418 |                 while true do
419 |                     local idx = v:index('\n')
420 |                     if not idx then break end
421 |                     if idx ~= 1 then
422 |                         io.writequeue[#io.writequeue+1] = v:sub(1,idx-1)
423 |                     end
424 |                     v = v:sub(idx + 1)
425 |                     local s = table.concat(io.writequeue)
426 |                     io.writequeue = {}
427 |                     post { window=host, type="print", text=s }
428 |                 end
429 |                 io.writequeue[#io.writequeue+1] = v
430 |             end
431 |         end
432 |     end
433 | 
434 |     --
435 |     -- coroutine creation functions
436 |     --
437 | 
438 |     local old_coroutine = {
439 |         create=coroutine.create,
440 |         wrap=coroutine.wrap,
441 |         spawn=coroutine.spawn,
442 |         status=coroutine.status
443 |     }
444 | 
445 |     local active_coroutines = { }
446 | 
447 |     coroutine.create = function(...)
448 |         local co = old_coroutine.create(...)
449 |         if co then active_coroutines[co] = true end
450 |         return co
451 |     end
452 | 
453 |     coroutine.wrap = function(...)
454 |         local fn, co = old_coroutine.wrap(...)
455 |         if co then active_coroutines[co] = true end
456 |         return fn, co
457 |     end
458 | 
459 |     coroutine.spawn = function(...)
460 |         local co = old_coroutine.spawn(...)
461 |         if co then active_coroutines[co] = true end
462 |         return co
463 |     end
464 | 
465 |     local function wait_for_coroutines()
466 |         local display = true
467 |         while true do
468 |             local nco = 0
469 |             for co,st in pairs(active_coroutines) do
470 |                 if st then
471 |                     st = old_coroutine.status(co)
472 |                     if st ~= 'dead' then nco = nco + 1
473 |                     else active_coroutines[co] = false end
474 |                 end
475 |             end
476 |             if nco == 0 then break end
477 |             if display then
478 |                 print ('(waiting for ' .. tostring(nco) .. ' coroutines to finish)')
479 |                 display = false
480 |             end
481 |             coroutine.sleep(250)
482 |         end
483 |         JavaScript("document.body.innerHTML=''")
484 |         post { window=host, type="ready" }
485 |     end
486 | 
487 |     --
488 |     -- wait for console input
489 |     --
490 | 
491 |     local document = require "document"
492 | 
493 |     post { window=host, type="print", text="\n\z
494 |         Loulabelle Playground console ready.\n\z
495 |         Console commands: /clear /restart\n" }
496 | 
497 |     printwriter = function(s)
498 |         post { window=host, type="print", text=s }
499 |     end
500 | 
501 |     while true do
502 |         local text = read_input()
503 |         post { window=host, type="print", text='>>>' .. text }
504 |         local func, err = Loulabelle('(console)', text, { env = _G, debug = true })
505 |         if err then post { window=host, type="print", text=err }
506 |         else
507 |             local require_or_load = remote_require(Loulabelle, document)
508 |             require = function(s) return require_or_load((s), true) end
509 |             io.load = function(s) return require_or_load((s), false) end
510 |             --
511 |             local ok, res = xpcall(func, function(s)
512 |                 s = debug.traceback(s, 2)
513 |                 -- discard stack trace beyond the initial xpcall
514 |                 local idx = s:rindex('xpcall')
515 |                 s = s:sub(1,idx)
516 |                 idx = s:rindex('\n')
517 |                 s = s:sub(1,idx)
518 |                 print(s)
519 |             end)
520 |             if ok and res then
521 |                 post { window=host, type="print", text=res }
522 |             end
523 |         end
524 |         --
525 |         old_coroutine.spawn(wait_for_coroutines)
526 |     end
527 | 
528 | end
529 | 
530 | --
531 | -- main
532 | --
533 | 
534 | if not call_server then return remote_main() end
535 | 
536 | console_run = console_run_placeholder
537 | 
538 | local document = require("document")
539 | 
540 | local console_html, err = document.load_html("console.css", "console.html")
541 | if err then show_error(err) return end
542 | local console_section = document:getElementById("console-section")
543 | console_section.innerHTML = console_html.body.innerHTML
544 | 
545 | local iframe = document:getElementById("console-iframe")
546 | iframe = rawget(iframe, "dom_elem")
547 | local input = document:getElementById("console-input")
548 | coroutine.spawn(local_main, document, iframe, input)
549 | 
550 | return console_section
551 | 


--------------------------------------------------------------------------------
/playground/demo.lua:
--------------------------------------------------------------------------------
  1 | 
  2 | local document = require("document")
  3 | mobile = false
  4 | 
  5 | --
  6 | -- print_table
  7 | --
  8 | 
  9 | function print_table(t,spaces)
 10 | 
 11 |     if type(t) ~= "table" then print ("print_table called on " .. type(t)) return end
 12 | 
 13 |     if not spaces then
 14 |         print "Table = {"
 15 |         spaces = 4
 16 |     end
 17 | 
 18 |     for k, v in pairs(t) do
 19 |         if type(v) == "table" then
 20 |             print (string.rep(" ",spaces) .. "Key " .. tostring(k) .. " = Table {")
 21 |             print_table(v, spaces + 4)
 22 |         else
 23 |             print (string.rep(" ",spaces) .. "Key " .. tostring(k) .. " = " .. tostring(v) .. " (" .. type(v) .. ")")
 24 |         end
 25 |     end
 26 | 
 27 |     print (string.rep(" ",spaces - 4) .. "}")
 28 | end
 29 | 
 30 | --
 31 | -- call_server
 32 | --
 33 | 
 34 | function call_server(form)
 35 | 
 36 |     local res, err = document.load_form("serverdb.php", form)
 37 |     if err then err = "HTTP error code " .. err .. " for operation " .. form.op
 38 |     else
 39 |         local idx = type(res) == "string" and res:find("<JSON>{", 1, true)
 40 |         if idx then
 41 |             res = document.parse_json(res:sub(idx + 6))
 42 |             if res.error then err = res.error end
 43 |         else err = "Server reports error: " .. tostring(res) end
 44 |     end
 45 |     if err then
 46 |         show_error(err)
 47 |         res = nil
 48 |     end
 49 |     return res, err
 50 | 
 51 | end
 52 | 
 53 | --
 54 | -- modal_dialog
 55 | --
 56 | 
 57 | modal_dialog_active = false
 58 | local modal_dialog_suspended = false
 59 | 
 60 | function modal_dialog(modal)
 61 | 
 62 |     if type(modal) == "string" then
 63 |         modal = document:getElementById(modal)
 64 |     end
 65 |     if not modal then return end
 66 | 
 67 |     if mobile then
 68 |         document.body:appendChild(modal)
 69 |     end
 70 | 
 71 |     local modal_co = coroutine.running()
 72 |     local function close_modal(event, button)
 73 |         if modal_dialog_suspended then
 74 |             coroutine.resume(modal_co, button)
 75 |         end
 76 |     end
 77 | 
 78 |     modal.onclick = function(event)
 79 |         if event.target == modal then close_modal() end
 80 |     end
 81 | 
 82 |     local onkeyup = coroutine.jscallback(function(event)
 83 |         local key
 84 |         JavaScript("$1=$2.key", key, event)
 85 |         if key == 'Escape' then close_modal() end
 86 |         if key == 'Enter' then
 87 |             local buttons = modal:getElementsByClassName("modal-button")
 88 |             if #buttons > 0 then close_modal(nil, buttons[1]) end
 89 |         end
 90 |     end)
 91 |     JavaScript("window.addEventListener('keyup',$1)", onkeyup)
 92 | 
 93 |     local close = modal:getElementsByClassName("modal-cancel")
 94 |     if #close > 0 then
 95 |         close[1].onclick = close_modal
 96 |     end
 97 | 
 98 |     local buttons = modal:getElementsByClassName("modal-button")
 99 |     for i = 1, #buttons do
100 |         buttons[i].onclick = function()
101 |             close_modal(nil, buttons[i])
102 |         end
103 |     end
104 | 
105 |     modal.style.display = "block"
106 |     rawset(modal, "close", function()
107 |         modal.style.display = "none"
108 |         modal_dialog_active = false
109 |     end)
110 | 
111 |     local focus = modal:getElementsByClassName("modal-focus")
112 |     focus = focus[1]
113 |     if focus then focus:focus() end
114 | 
115 |     modal_dialog_active = true
116 | 
117 |     modal_dialog_suspended = true
118 |     local button = coroutine.suspend()
119 |     modal_dialog_suspended = false
120 | 
121 |     JavaScript("window.removeEventListener('keyup',$1)", onkeyup)
122 |     return modal, button
123 | 
124 | end
125 | 
126 | --
127 | -- switch_view
128 | --
129 | 
130 | local console_section, editor_section, active_section
131 | 
132 | function switch_view(which)
133 | 
134 |     if which == "finder" and not mobile then return end
135 | 
136 |     local old_active_section = active_section
137 | 
138 |     if which == "console" then
139 |         if not console_section then
140 |             console_section = require "console"
141 |         end
142 |         active_section = console_section
143 | 
144 |     elseif which == "editor" then
145 |         if not editor_section then
146 |             editor_section = require "editor"
147 |         end
148 |         active_section = editor_section
149 | 
150 |     elseif which == "finder" then
151 |         if not finder_section then
152 |             finder_section = document:getElementById("finder-section")
153 |         end
154 |         active_section = finder_section
155 |     end
156 | 
157 |     if not rawequal(active_section, old_active_section) then
158 | 
159 |         local old_finder, new_finder = false, false
160 |         if old_active_section then
161 |             old_finder = rawequal(old_active_section, finder_section)
162 |             old_active_section.style.display = "none"
163 |         end
164 |         new_finder = rawequal(active_section, finder_section)
165 |         active_section.style.display = "block"
166 | 
167 |         if mobile then
168 | 
169 |             if old_finder ~= new_finder then
170 |                 local lpane = document:getElementById("index-pane-left")
171 |                 local rpane = document:getElementById("index-pane-right")
172 |                 lpane.style.display = new_finder and "block" or "none"
173 |                 rpane.style.display = new_finder and "none" or "block"
174 |             end
175 | 
176 |             local r_button = document:getElementById("status-run-button")
177 |             if editor_section and rawequal(active_section, editor_section) then
178 |                 r_button.style.display = "inline"
179 |             elseif console_section and rawequal(active_section, console_section) then
180 |                 r_button.style.display = "none"
181 |             end
182 | 
183 |             document:resizeCallback(true)
184 |         end
185 | 
186 |     end
187 | 
188 | end
189 | 
190 | --
191 | -- show_status
192 | --
193 | 
194 | local status_section, status_section_text
195 | 
196 | function show_status(text, error)
197 | 
198 |     if not status_section then
199 |         status_section = document:getElementById("status-section")
200 |     end
201 | 
202 |     if status_section_text ~= text then
203 | 
204 |         status_section.innerHTML = text
205 |         status_section_text = text
206 | 
207 |         if status_section_text == "" then
208 |             status_section.style.display = "none"
209 |         else
210 |             status_section.style.display = mobile and "inline" or "inline-block"
211 |             status_section.style.backgroundColor = error and "red" or "transparent"
212 |             status_section.style.width = error and "100%" or ""
213 |         end
214 |     end
215 | 
216 |     document:resizeCallback(true)
217 | 
218 | end
219 | 
220 | function show_error(text) show_status(text, true) end
221 | 
222 | --
223 | -- load_codemirror
224 | --
225 | 
226 | local codemirror_mutex = coroutine.mutex()
227 | 
228 | function load_codemirror(mode)
229 | 
230 |     codemirror_mutex:lock()
231 |     if not codemirror_mutex.loaded_base then
232 |         JavaScript("yield*$L.require_js('https://cdnjs.cloudflare.com/ajax/libs/codemirror/5.34.0/codemirror.min.js')")
233 |         JavaScript("yield*$L.require_css('https://cdnjs.cloudflare.com/ajax/libs/codemirror/5.34.0/codemirror.min.css')")
234 |         codemirror_mutex.loaded = true
235 |     end
236 |     if mode == "lua" and not codemirror_mutex.loaded_lua then
237 |         JavaScript("yield*$L.require_js('https://cdnjs.cloudflare.com/ajax/libs/codemirror/5.34.0/mode/lua/lua.min.js')")
238 |         codemirror_mutex.loaded_lua = true
239 |     end
240 |     if mode == "css" and not codemirror_mutex.loaded_css then
241 |         JavaScript("yield*$L.require_js('https://cdnjs.cloudflare.com/ajax/libs/codemirror/5.34.0/mode/css/css.min.js')")
242 |         codemirror_mutex.loaded_css = true
243 |     end
244 |     if mode == "xml" and not codemirror_mutex.loaded_xml then
245 |         JavaScript("yield*$L.require_js('https://cdnjs.cloudflare.com/ajax/libs/codemirror/5.34.0/mode/xml/xml.min.js')")
246 |         codemirror_mutex.loaded_xml = true
247 |     end
248 |     if mode == "js" and not codemirror_mutex.loaded_js then
249 |         JavaScript("yield*$L.require_js('https://cdnjs.cloudflare.com/ajax/libs/codemirror/5.34.0/mode/javascript/javascript.min.js')")
250 |         codemirror_mutex.loaded_js = true
251 |     end
252 |     codemirror_mutex:unlock()
253 |     if mode == "html" and not codemirror_mutex.loaded_html then
254 |         load_codemirror("css")
255 |         load_codemirror("xml")
256 |         load_codemirror("js")
257 |     end
258 | 
259 | end
260 | 
261 | --
262 | -- main
263 | --
264 | 
265 | -- on Chrome on Android, 100vh includes the address bar,
266 | -- which causes undesired vertical scrolling.
267 | document:resizeCallback(function(w,h)
268 |     local panes = document:getElementById("index-panes")
269 |     h = tostring(h) .. 'px'
270 |     panes.style.height = h
271 | end)
272 | 
273 | local menu_button = document:getElementById("status-menu-button")
274 | if menu_button:getComputedStyle().display ~= "none" then
275 |     mobile = true
276 |     switch_view("finder")
277 |     menu_button.onclick = function()
278 |         if back_button_switch_editor then
279 |             switch_view("editor")
280 |             back_button_switch_editor = false
281 |             if editor_focus then editor_focus() end
282 |         else
283 |             switch_view("finder")
284 |         end
285 |     end
286 | end
287 | 
288 | coroutine.spawn(require "finder")
289 | 


--------------------------------------------------------------------------------
/playground/document.lua:
--------------------------------------------------------------------------------
  1 | 
  2 | local self = {}
  3 | 
  4 | local priv = {}
  5 | 
  6 | -- convert javascript value (including html objects) to lua value
  7 | 
  8 | priv.make_value = function(result)
  9 | 
 10 |     result = result[1]
 11 |     JavaScript("if($1 instanceof Document){", result)
 12 |     JavaScript(     "$1=$2}", result, (setmetatable({dom_elem=result}, priv.html_doc_mt)))
 13 |     JavaScript("else if($1 instanceof Node||$1 instanceof Element||$1 instanceof CSSStyleDeclaration||$1 instanceof DOMStringMap){", result)
 14 |     JavaScript(     "$1=$2}", result, (setmetatable({dom_elem=result}, priv.html_elem_mt)))
 15 |     JavaScript("else if(typeof $1==='function'&&$1.luacallback){$1=$1.luacallback}", result)
 16 |     JavaScript("else if(typeof $1==='object'||typeof $1==='function'){$1=undefined}", result)
 17 |     return result
 18 | 
 19 | end
 20 | 
 21 | -- generate event callback function
 22 | 
 23 | priv.make_callback = function(callback_function)
 24 | 
 25 |     local new_func = coroutine.jscallback(
 26 |         function(...)
 27 |             local ev = ...
 28 |             JavaScript("if($1 instanceof Event){", ev)
 29 |                 local ev2 = {}
 30 |                 local key, value
 31 |                 JavaScript("for(var k in $1){", ev)
 32 |                 JavaScript(     "if(k===null||k===undefined)continue")
 33 |                 JavaScript(     "var v=$1[k]", ev)
 34 |                 JavaScript(     "if(v===null)v=undefined")
 35 |                 JavaScript(     "[$1,$2]=[k,v]", key, value)
 36 |                                 ev2[key] = priv.make_value { value, true }
 37 |                 JavaScript("}")
 38 |                 do return callback_function(ev2, select(2, ...)) end
 39 |             JavaScript("}")
 40 |             return callback_function(...)
 41 |         end)
 42 |     ::update_stack_frame::
 43 |     JavaScript("$1.luacallback=$2", new_func, callback_function)
 44 |     return new_func
 45 | 
 46 | end
 47 | 
 48 | -- HTML Collection
 49 | 
 50 | function priv.html_coll_index(coll, key_name)
 51 |     local key_index = tonumber(key_name)
 52 |     local dom_elem
 53 |     if key_index then
 54 |         JavaScript("$3=$1.item($2)", coll.collection, key_index - 1, dom_elem)
 55 |     else
 56 |         JavaScript("$3=$1.namedItem($2)", coll.collection, key_name, dom_elem)
 57 |     end
 58 |     JavaScript("if(!$1)return[undefined]", dom_elem)
 59 |     return setmetatable({dom_elem=dom_elem}, priv.html_elem_mt)
 60 | end
 61 | 
 62 | function priv.html_coll_length(coll)
 63 |     JavaScript("return[$1.length]", coll.collection)
 64 | end
 65 | 
 66 | priv.html_coll_mt = {
 67 |     __index = priv.html_coll_index,
 68 |     __len = priv.html_coll_length,
 69 | }
 70 | 
 71 | -- HTML Attributes
 72 | 
 73 | function priv.html_attr_index(attr, key)
 74 |     assert(type(key) == 'string')
 75 |     JavaScript("var r=$1.getAttribute($2)", attr.dom_elem, key)
 76 |     JavaScript("if(r===null)r=undefined")
 77 |     JavaScript("return[r]")
 78 | end
 79 | 
 80 | function priv.html_attr_newindex(attr, key, value)
 81 |     assert(type(key) == 'string')
 82 |     if value then
 83 |         assert(type(value) == 'string')
 84 |         JavaScript("$1.setAttribute($2,$3)", attr.dom_elem, key, value)
 85 |     else
 86 |         JavaScript("$1.removeAttribute($2)", attr.dom_elem, key)
 87 |     end
 88 | end
 89 | 
 90 | function priv.html_attr_length(attr)
 91 |     JavaScript("return[$1.length]", attr.dom_attr)
 92 | end
 93 | 
 94 | function priv.html_attr_pairs(attr)
 95 |     local dom_attr = attr.dom_attr
 96 |     local i, n = 0
 97 |     JavaScript("$2=$1.length", dom_attr, n)
 98 |     return function()
 99 |         local k, v
100 |         if i < n then
101 |             JavaScript("try{")
102 |             JavaScript(     "var r=$1.item($2)", dom_attr, i)
103 |             JavaScript(     "if(typeof r.name==='string')$1=r.name", k)
104 |             JavaScript(     "if(typeof r.value==='string')$1=r.value", v)
105 |             JavaScript("}catch(e){")
106 |                             k = nil
107 |             JavaScript("}")
108 |             i = i + 1
109 |         end
110 |         return k, v
111 |     end
112 | end
113 | 
114 | priv.html_attr_mt = {
115 |     __index = priv.html_attr_index,
116 |     __newindex = priv.html_attr_newindex,
117 |     __len = priv.html_attr_length,
118 |     __pairs = priv.html_attr_pairs
119 | }
120 | 
121 | -- HTML Element
122 | 
123 | function priv.html_elem_index(elem, key_name)
124 |     local result = getmetatable(elem)[key_name]
125 |     if result then return result end
126 |     JavaScript("$3=$1[$2]", elem.dom_elem, key_name, result)
127 |     if key_name == "attributes" then
128 |         result = setmetatable({dom_elem=elem.dom_elem, dom_attr=result}, priv.html_attr_mt)
129 |         rawset(elem, key_name, result)
130 |         return result
131 |     end
132 |     return priv.make_value{result,true} -- pass js object in table
133 | end
134 | 
135 | function priv.html_elem_newindex(elem, key_name, value)
136 |     if type(value) == 'function' then value = priv.make_callback(value) end
137 |     JavaScript("$1[$2]=$3", elem.dom_elem, key_name, value)
138 | end
139 | 
140 | function priv.html_elem_eq(elem1, elem2)
141 |     JavaScript("return[$1===$2]", elem1.dom_elem, elem2.dom_elem)
142 | end
143 | 
144 | function priv.html_elem_tostring(elem)
145 |     JavaScript("return[$1.toString()]", elem.dom_elem)
146 | end
147 | 
148 | function priv.html_elem_log(elem)
149 |     JavaScript("console.log($1)", elem.dom_elem)
150 | end
151 | 
152 | function priv.html_elem_focus(elem)
153 |     JavaScript("$1.focus()", elem.dom_elem)
154 | end
155 | 
156 | function priv.html_elem_click(elem)
157 |     JavaScript("$1.click()", elem.dom_elem)
158 | end
159 | 
160 | function priv.getElementsByClassName(elem, classes)
161 |     JavaScript("$2=$1.getElementsByClassName($2)", elem.dom_elem, classes)
162 |     return setmetatable({collection=classes}, priv.html_coll_mt)
163 | end
164 | 
165 | function priv.getElementsByTagName(elem, tag)
166 |     local children
167 |     JavaScript("$3=$1.getElementsByTagName($2)", elem.dom_elem, tag, children)
168 |     return setmetatable({collection=children}, priv.html_coll_mt)
169 | end
170 | 
171 | function priv.childNodes(elem)
172 |     local children
173 |     JavaScript("$2=$1.childNodes", elem.dom_elem, children)
174 |     return setmetatable({collection=children}, priv.html_coll_mt)
175 | end
176 | 
177 | function priv.appendChild(elem, child)
178 |     local dom_elem
179 |     JavaScript("$3=$1.appendChild($2)", elem.dom_elem, child.dom_elem, dom_elem)
180 |     return setmetatable({dom_elem=dom_elem}, priv.html_elem_mt)
181 | end
182 | 
183 | function priv.insertBefore(elem, child, ref)
184 |     local dom_elem
185 |     JavaScript("$4=$1.insertBefore($2,$3||null)", elem.dom_elem, child.dom_elem, ref and ref.dom_elem, dom_elem)
186 |     return setmetatable({dom_elem=dom_elem}, priv.html_elem_mt)
187 | end
188 | 
189 | function priv.getComputedStyle(elem, psuedo_elem)
190 |     local style
191 |     if psuedo_elem then assert(type(psuedo_elem) == 'string') end
192 |     JavaScript("$1=window.getComputedStyle($2,$3||null)", style, elem.dom_elem, psuedo_elem)
193 |     return (setmetatable({dom_elem=style}, priv.html_elem_mt))
194 | end
195 | 
196 | 
197 | 
198 | --[[function priv.observe(elem,func,flags)
199 | 
200 |     local funcs = {}
201 | 
202 |     local function callback(records,instance)
203 |         JavaScript("console.log($1)", records)
204 |     end
205 | 
206 |     local observer = priv.mutation_observer
207 |     if not observer then
208 |         JavaScript("$1=new MutationObserver($2)",
209 |             observer, (coroutine.jscallback(callback)))
210 |         priv.mutation_observer = observer
211 |     end
212 | 
213 |     flags = coroutine.jsconvert(nil, flags or { attributes=true })
214 |     JavaScript("$1.observe($2,$3)", observer, elem.dom_elem, flags)
215 |     elem:log()
216 | 
217 | end]]
218 | 
219 | priv.html_elem_mt = {
220 |     __index = priv.html_elem_index,
221 |     __newindex = priv.html_elem_newindex,
222 |     __eq = priv.html_elem_eq,
223 |     __tostring = priv.html_elem_tostring,
224 |     log = priv.html_elem_log,
225 |     print = priv.html_elem_log,
226 |     focus = priv.html_elem_focus,
227 |     click = priv.html_elem_click,
228 |     getElementsByClassName = priv.getElementsByClassName,
229 |     getElementsByTagName = priv.getElementsByTagName,
230 |     childNodes = priv.childNodes,
231 |     appendChild = priv.appendChild,
232 |     insertBefore = priv.insertBefore,
233 |     getComputedStyle = priv.getComputedStyle,
234 |     --observe = priv.observe,
235 | }
236 | 
237 | -- HTML Document
238 | 
239 | function priv.html_doc_index(doc, key_name)
240 |     return self[key_name] or priv.html_elem_index(doc, key_name)
241 | end
242 | 
243 | priv.html_doc_mt = {}
244 | for k,v in pairs(priv.html_elem_mt) do
245 |     priv.html_doc_mt[k] = v
246 | end
247 | 
248 | priv.html_doc_mt.__index = priv.html_doc_index
249 | 
250 | self.getElementById = function(elem, id)
251 |     assert(elem and id)
252 |     local dom_elem = elem.dom_elem
253 |     assert(dom_elem)
254 |     JavaScript("$1=$1.getElementById($2)", dom_elem, id)
255 |     JavaScript("if(!($1 instanceof Node))return[undefined]", dom_elem)
256 |     return setmetatable({dom_elem=dom_elem}, priv.html_elem_mt)
257 | end
258 | 
259 | self.createElement = function(elem, tag)
260 |     assert(elem and tag)
261 |     local dom_elem = elem.dom_elem
262 |     assert(dom_elem)
263 |     JavaScript("$1=$1.createElement($2)", dom_elem, tag)
264 |     JavaScript("if(!($1 instanceof Node))return[undefined]", dom_elem)
265 |     return setmetatable({dom_elem=dom_elem}, priv.html_elem_mt)
266 | end
267 | 
268 | self.fromElement = function(elem, dom_elem)
269 |     assert(elem and dom_elem)
270 |     JavaScript("if($1 instanceof Document||$1 instanceof Node||$1 instanceof Element){", dom_elem)
271 |         do return setmetatable({dom_elem=dom_elem}, priv.html_doc_mt) end
272 |     JavaScript("}")
273 |     return nil
274 | end
275 | 
276 | self.resizeCallback = function(elem, callback, enable)
277 |     assert(elem and callback)
278 | 
279 |     if callback == true then
280 | 
281 |         local w, h
282 |         JavaScript("[$1,$2]=[window.innerWidth,window.innerHeight]", w, h)
283 |         for i = 1, #priv.resize_callbacks do
284 |             callback = priv.resize_callbacks[i]
285 |             callback(w,h)
286 |         end
287 | 
288 |     elseif enable == false then
289 | 
290 |         if priv.resize_callbacks then
291 |             for i=1,#priv.resize_callbacks do
292 |                 if priv.resize_callbacks[i] == callback then
293 |                     table.remove(priv.resize_callbacks, i)
294 |                     break
295 |                 end
296 |             end
297 |         end
298 | 
299 |     else
300 | 
301 |         local function actual_callback(event)
302 |             local w, h
303 |             JavaScript("[$2,$3]=[$1.target.innerWidth,$1.target.innerHeight]", event, w, h)
304 |             for i=1,#priv.resize_callbacks do
305 |                 priv.resize_callbacks[i](w, h)
306 |             end
307 |         end
308 |         if not priv.resize_callbacks then
309 |             priv.resize_callbacks = {}
310 |             JavaScript("window.addEventListener('resize',$1)",
311 |                 (coroutine.jscallback(actual_callback)))
312 |         end
313 | 
314 |         priv.resize_callbacks[#priv.resize_callbacks+1] = callback
315 |         local w, h
316 |         JavaScript("[$1,$2]=[window.innerWidth,window.innerHeight]", w, h)
317 |         callback(w,h)
318 | 
319 |     end
320 | end
321 | 
322 | --
323 | -- load external html page
324 | --
325 | 
326 | self.load_html = function(...)
327 |     for i = 1, select('#', ...) do
328 |         local url = select(i, ...)
329 |         if url:sub(-4,-1):lower() == '.css' then
330 |             JavaScript("yield*$L.require_css($1)", url)
331 |         else
332 |             local dom_elem
333 |             JavaScript("var status,co=$L.co")
334 |             JavaScript("var xhr=new XMLHttpRequest()")
335 |             JavaScript("xhr.onloadend=function(){status=xhr.status;co.resume()};")
336 |             JavaScript("xhr.open('GET',$1)", url)
337 |             JavaScript("xhr.setRequestHeader('Cache-Control','no-cache')")
338 |             JavaScript("xhr.responseType='document'")
339 |             JavaScript("xhr.send()")
340 |             JavaScript("yield*$L.cosuspend()")
341 |             JavaScript("if(status!==200)return[undefined,status]")
342 |             JavaScript("$1=xhr.response", dom_elem)
343 |             JavaScript("if(!($1 instanceof HTMLDocument))return[undefined,418]", dom_elem)
344 |             return setmetatable({dom_elem=dom_elem}, priv.html_doc_mt)
345 |         end
346 |     end
347 |     return nil, 418
348 | end
349 | 
350 | --
351 | -- load external data
352 | --
353 | 
354 | self.load_form = function(url, form)
355 |     JavaScript("var data")
356 |     if form then
357 |         JavaScript("data=new FormData()")
358 |         for k,v in pairs(form) do
359 |             JavaScript("data.append($1,$2)", k, v)
360 |         end
361 |     end
362 |     JavaScript("var status,co=$L.co")
363 |     JavaScript("var xhr=new XMLHttpRequest()")
364 |     JavaScript("xhr.onloadend=function(){status=xhr.status;co.resume()};")
365 |     JavaScript("xhr.open('POST',$1)", url)
366 |     JavaScript("xhr.send(data)")
367 |     JavaScript("yield*$L.cosuspend()")
368 |     JavaScript("if(status!==200)return[undefined,status===0?999:status]")
369 |     JavaScript("if(typeof xhr.response!=='string')return[undefined,418]", dom_elem)
370 |     JavaScript("return[xhr.response]")
371 | end
372 | 
373 | --
374 | -- convert JSON data to table
375 | --
376 | 
377 | self.parse_json = function(data)
378 |     JavaScript("if(typeof $1==='string'){try{$1=JSON.parse($1)}catch(e){$1=undefined}}", data)
379 |     JavaScript("if(typeof $1!=='object'){return[undefined]}", data)
380 |     return coroutine.jsconvert(data, {})
381 | end
382 | 
383 | --
384 | -- create document from string
385 | --
386 | 
387 | self.parseFromString = function(html)
388 |     local dom_doc
389 |     JavaScript("$2=(new DOMParser()).parseFromString($1,'text/html')", html, dom_doc)
390 |     return setmetatable({dom_elem=dom_doc}, priv.html_doc_mt)
391 | end
392 | 
393 | --
394 | -- return a table that accesses the main document
395 | --
396 | 
397 | local dom_doc
398 | JavaScript("$1=document", dom_doc)
399 | return setmetatable({dom_elem=dom_doc}, priv.html_doc_mt)
400 | 


--------------------------------------------------------------------------------
/playground/editor.css:
--------------------------------------------------------------------------------
 1 | 
 2 | #editor-section {
 3 |     height: 100%;
 4 |     width: 80vw;
 5 | }
 6 | 
 7 | #editor-placeholder {
 8 |     display: none;
 9 | }
10 | 
11 | #editor-section .CodeMirror {
12 |     font-family: Lucida Console, monaco, Courier New, monospace;
13 |     font-size: 16pt;
14 |     height: 100%;
15 |     width: 100%;
16 | }
17 | 
18 | #editor-section .CodeMirror-linenumber {
19 |     font-size: 12pt;
20 |     padding-top: 3pt;
21 | }
22 | 
23 | /*
24 |  * mobile
25 |  */
26 | 
27 | @media only screen and (max-device-width: 768px) {
28 | 
29 | #editor-section {
30 |     width: 100vw;
31 | }
32 | 
33 | }
34 | 


--------------------------------------------------------------------------------
/playground/editor.html:
--------------------------------------------------------------------------------
1 | <!DOCTYPE html><html><head><meta charset="utf-8"/></head><body>
2 | 
3 | <textarea id="editor-placeholder"></textarea>
4 | 
5 | </body></html>
6 | 


--------------------------------------------------------------------------------
/playground/editor.lua:
--------------------------------------------------------------------------------
  1 | 
  2 | local document = require("document")
  3 | 
  4 | local editor_mutex = coroutine.mutex()
  5 | local editor_widget
  6 | local editor_changed = -1
  7 | local editor_saving = false
  8 | local editor_file_deleted = false
  9 | local editor_file_created = false
 10 | local editor_folder_name, editor_file_name
 11 | local editor_status_text
 12 | local editor_Loulabelle
 13 | 
 14 | --
 15 | -- edit_file
 16 | --
 17 | 
 18 | function edit_file(folder_name, file_name, create_file)
 19 | 
 20 |     --
 21 |     -- if already saving the file being edited, then
 22 |     -- wait for the save operation to finish.
 23 |     -- or else if the file being edited needs to be
 24 |     -- saved, then do a synchronous save operation.
 25 |     --
 26 | 
 27 |     if editor_saving then
 28 |         while editor_saving do
 29 |             editor_mutex:lock()
 30 |             editor_mutex:unlock()
 31 |         end
 32 |     elseif editor_changed > 0 then
 33 |         edit_save()
 34 |     end
 35 | 
 36 |     --
 37 |     -- read the text for the file to edit
 38 |     --
 39 | 
 40 |     local file_text, err = read_file(folder_name, file_name)
 41 |     if create_file then
 42 |         if file_text then
 43 |             err = 'File already exists:  <span class="filename">' .. file_name .. '</span> in folder <span class="filename">' .. folder_name .. '</span>'
 44 |             show_error(err)
 45 |         elseif err and err:startswith("File not found") then
 46 |             err = nil
 47 |             file_text = "(New file)"
 48 |         end
 49 |     end
 50 |     if err then return end
 51 | 
 52 |     editor_status_text = nil
 53 |     editor_folder_name, editor_file_name = nil, nil
 54 | 
 55 |     --
 56 |     -- initialize the editor component on first use
 57 |     --
 58 | 
 59 |     editor_mutex:lock()
 60 |     if not editor_mutex.loaded then
 61 | 
 62 |         local function on_update_func()
 63 |             editor_changed = editor_changed + 1
 64 |         end
 65 |         local function auto_save_func()
 66 |             while true do
 67 |                 coroutine.sleep(3000)
 68 |                 edit_save()
 69 |             end
 70 |         end
 71 | 
 72 |         --[[local ext = file_name:rindex('.')
 73 |         if ext then ext = file_name:sub(ext + 1):tolower()
 74 |         else ext = "lua" end]]
 75 | 
 76 |         load_codemirror("lua")
 77 |         JavaScript("try{")
 78 |         JavaScript("$1=CodeMirror.fromTextArea(document.getElementById('editor-placeholder'),{lineNumbers:true,indentUnit:4,tabindex:0,inputStyle:'textarea'})", editor_widget)
 79 |         JavaScript("$1.on('change',$2)", editor_widget, (coroutine.jscallback(on_update_func)))
 80 | 
 81 |         -- text input on Android:  (1) disableBrowserMagic
 82 |         -- function in CodeMirror does not set the autocomplete
 83 |         -- attribute, and (2) Chrome on Android does not
 84 |         -- respect autocomplete on contenteditable divs.
 85 |         -- we fix this by setting inputStyle:'textarea' above,
 86 |         -- and then fixing the TextArea element manually here:
 87 | 
 88 |         local input_widget
 89 |         JavaScript("$2=$1.getInputField()", editor_widget, input_widget)
 90 |         input_widget = document:fromElement(input_widget)
 91 |         input_widget.attributes["autocomplete"] = "off"
 92 |         input_widget.attributes["autocapitalize"] = "none"
 93 | 
 94 |         JavaScript("}catch(e){$1='JS '+e.toString()}", editor_status_text)
 95 |         if editor_status_text then
 96 |             show_error(editor_status_text)
 97 |             return
 98 |         end
 99 | 
100 |         coroutine.spawn(auto_save_func)
101 | 
102 |         editor_mutex.loaded = true
103 |     end
104 |     editor_mutex:unlock()
105 | 
106 |     --
107 |     -- update the text in the editor component
108 |     --
109 | 
110 |     if not editor_status_text then
111 | 
112 |         editor_changed = -1
113 |         JavaScript("$1.setValue($2)", editor_widget, file_text)
114 |         JavaScript("$1.focus()", editor_widget)
115 |     end
116 | 
117 |     --
118 |     -- report error
119 |     --
120 | 
121 |     if editor_status_text then
122 |         show_error('Error: ' .. editor_status_text)
123 |         editor_status_text = nil
124 |         return
125 |     end
126 | 
127 |     --
128 |     -- finish setting up editor state
129 |     --
130 | 
131 |     editor_folder_name, editor_file_name = folder_name, file_name
132 |     editor_status_text = ':  <span class="filename">' .. file_name .. '</span> <span style="white-space: nowrap;">in folder</span> <span class="filename">' .. folder_name .. '</span>'
133 |     editor_file_deleted, editor_file_created = false, false
134 | 
135 |     edit_show_status()
136 | 
137 |     if create_file then
138 |         editor_file_created = true
139 |         editor_changed = 1
140 |         edit_save()
141 |         JavaScript("$1.execCommand('selectAll')", editor_widget)
142 |         return (editor_changed == 0)
143 |     end
144 | 
145 | end
146 | 
147 | --
148 | -- edit_save
149 | --
150 | 
151 | function edit_save()
152 | 
153 |     if editor_saving or editor_changed < 1 then return end
154 |     if not (editor_folder_name or editor_file_name) then return end
155 | 
156 |     local file_text
157 |     JavaScript("$2=$1.getValue()", editor_widget, file_text)
158 | 
159 |     editor_mutex:lock()
160 |     editor_saving = true
161 | 
162 |     local password = folder_password(editor_folder_name)
163 |     local show_error_from_request = nil
164 |     while true do
165 | 
166 |         show_status('Saving' .. editor_status_text)
167 | 
168 |         local res, err = call_server {
169 |             op = 'save_file',
170 |             folder = editor_folder_name,
171 |             file = editor_file_name,
172 |             source = file_text,
173 |             password = password,
174 |         }
175 | 
176 |         if err and err:index("password") then
177 |             password = folder_password(editor_folder_name, "ask", show_error_from_request and err)
178 |             if password then
179 |                 show_error_from_request = true
180 |                 continue
181 |             end
182 |             show_error(err .. '--' .. editor_status_text:sub(2) .. " was <u>NOT</u> saved!")
183 |         end
184 | 
185 |         if not err then
186 |             if file_text == "" then
187 |                 show_status('<u>FILE DELETED</u>' .. editor_status_text)
188 |                 refresh_folder(editor_folder_name)
189 |                 refresh_recents(editor_folder_name, editor_file_name, true)
190 |                 editor_file_deleted = true
191 |             else
192 |                 edit_show_status()
193 |                 if editor_file_deleted or editor_file_created then
194 |                     refresh_folder(editor_folder_name)
195 |                     if editor_file_deleted then
196 |                         refresh_recents(editor_folder_name, editor_file_name)
197 |                     end
198 |                     editor_file_deleted = false
199 |                     editor_file_created = false
200 |                 end
201 |             end
202 |             JavaScript("$1.focus()", editor_widget)
203 |         end
204 | 
205 |         editor_changed = 0
206 |         break
207 |     end
208 | 
209 |     editor_saving = false
210 |     editor_mutex:unlock()
211 | 
212 | end
213 | 
214 | --
215 | -- edit_show_status
216 | --
217 | 
218 | function edit_show_status()
219 | 
220 |     if editor_status_text then
221 |         show_status('Editing' .. editor_status_text)
222 |     end
223 | 
224 | end
225 | 
226 | --
227 | -- edit_get_name
228 | --
229 | 
230 | function edit_get_name()
231 | 
232 |     return editor_folder_name, editor_file_name
233 | 
234 | end
235 | 
236 | --
237 | -- main
238 | --
239 | 
240 | local editor_html, err = document.load_html("editor.css", "editor.html")
241 | if err then show_error(err) return end
242 | 
243 | local editor_section = document:getElementById("editor-section")
244 | editor_section.innerHTML = editor_html.body.innerHTML
245 | 
246 | document:resizeCallback(function(w,h)
247 |     local status = document:getElementById("status-section")
248 |     h = h - status.offsetHeight
249 |     h = tostring(h) .. 'px'
250 |     editor_section.style.height = h
251 | end)
252 | 
253 | editor_focus = function()
254 |     if editor_widget then
255 |         edit_show_status()
256 |         JavaScript("$1.focus()", editor_widget)
257 |     end
258 | end
259 | 
260 | return editor_section
261 | 


--------------------------------------------------------------------------------
/playground/finder.css:
--------------------------------------------------------------------------------
  1 | 
  2 | #finder-section {
  3 |     height: 100%;
  4 |     background-color: rgb(235,237,239);
  5 |     overflow: scroll;
  6 | }
  7 | 
  8 | .finder-filename {
  9 |     display: inline-block;
 10 |     overflow: hidden;
 11 |     text-overflow: ellipsis;
 12 |     vertical-align: bottom;
 13 |     width: 14vw;
 14 | }
 15 | 
 16 | .finder-row-indent .finder-filename {
 17 |     width: 10vw;
 18 | }
 19 | 
 20 | .program-title {
 21 |     font-family: Impact;
 22 |     letter-spacing: 1.5pt;
 23 |     text-align: center;
 24 |     color: red;
 25 | }
 26 | 
 27 | .finder-caption {
 28 |     position: relative;
 29 | }
 30 | 
 31 | .finder-caption h2 {
 32 |     display: inline;
 33 |     font-family: Arial Black;
 34 |     font-size: 0.13in;
 35 |     color: gray;
 36 | }
 37 | 
 38 | .finder-caption img {
 39 |     position: absolute;
 40 |     cursor: pointer;
 41 | }
 42 | 
 43 | #finder-button-new-folder, .finder-button-new-file,
 44 | .finder-button-run-file, .finder-button-change-password,
 45 | .finder-button-clear-recent {
 46 |     right: 8%;
 47 | }
 48 | 
 49 | .finder-button-new-file, .finder-button-run-file,
 50 | .finder-button-change-password {
 51 |     position: relative;
 52 |     float: right;
 53 |     display: none;
 54 | }
 55 | 
 56 | /*.finder-button-change-password {
 57 |     position: relative;
 58 |     float: right;
 59 |     right: 12%;
 60 |     display: none;
 61 | }*/
 62 | 
 63 | div.finder-row:hover img.finder-button-run-file {
 64 |     display: inline;
 65 | }
 66 | 
 67 | .finder-row {
 68 |     cursor: pointer;
 69 |     padding-top: 3%;
 70 |     padding-bottom: 3%;
 71 |     overflow-x: hidden;
 72 | }
 73 | 
 74 | div.finder-row:hover {
 75 |     background-color: rgb(199,203,209);
 76 | }
 77 | 
 78 | .finder-row img, .finder-row img {
 79 |     vertical-align: bottom;
 80 | }
 81 | 
 82 | .finder-row-indent img {
 83 |     padding-left: 10%;
 84 | }
 85 | 
 86 | .finder-file-name-box {
 87 |     display: none;
 88 |     padding-left: 10%;
 89 |     padding-right: 20%;
 90 | }
 91 | 
 92 | .finder-file-name-box input {
 93 |     width: 100%;
 94 | }
 95 | 
 96 | /*
 97 |  * dialogs
 98 |  */
 99 | 
100 | /* New Folder: button and model dialog box */
101 | 
102 | .new-folder-modal {
103 |     font-family: Arial;
104 |     font-size: 11pt;
105 |     line-height: 15pt;
106 |     background-color: #40cccc;
107 |     margin: 5% auto;
108 |     padding: 20px;
109 |     border: 4px solid #888;
110 |     width: 50%;
111 |     text-align: center;
112 | }
113 | 
114 | .new-folder-modal h1 {
115 |     font-weight: bold;
116 |     text-decoration: underline;
117 | }
118 | 
119 | .new-folder-modal .modal-button {
120 |     padding: 2pt 16pt 2pt 16pt;
121 | }
122 | 
123 | .finder-error-message {
124 |     background-color: red;
125 |     color: white;
126 | }
127 | 
128 | /*
129 |  * mobile
130 |  */
131 | 
132 | @media only screen and (max-device-width: 768px) {
133 | 
134 | div.finder-row img.finder-button-run-file {
135 |     display: inline;
136 | }
137 | 
138 | .finder-filename {
139 |     width: 80vw;
140 | }
141 | 
142 | .finder-row-indent .finder-filename {
143 |     width: 68vw;
144 | }
145 | 
146 | .new-folder-modal {
147 |     width: 80%;
148 | }
149 | 


--------------------------------------------------------------------------------
/playground/finder.html:
--------------------------------------------------------------------------------
  1 | <!DOCTYPE html><html><head><meta charset="utf-8"/></head><body>
  2 | 
  3 | <br><div class="program-title"><h2>LOULABELLE PLAYGROUND</h2></div>
  4 | 
  5 | <br><div id="finder-button-console" class="finder-caption"><h2>CONSOLE</h2></div>
  6 | 
  7 | <div><script id="finder-recent-template" type="text/x-handlebars-template">
  8 | <br><div class="finder-caption"><h2>RECENT FILES</h2>
  9 | <img class="finder-button-clear-recent unselectable" draggable="false" ondragstart="return false;" tabindex="0" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABdSURBVDhPYxh0gBNK4wM41YAkrgNxAZiHHYDkQGpwGgJS8B9KowN8cigAm0KiNcMAsgaSNcMATCNZmkGAIgNgmkE0MpsogE0D0YbgU0jQEKokJJwSSIAYNXQDDAwACk4hlYRFt+kAAAAASUVORK5CYII=">
 10 | </div>
 11 | <br>
 12 | {{#each recents}}
 13 |     <div class="finder-row" data-path="{{path}}">
 14 |         <img class="unselectable" draggable="false" ondragstart="return false;" tabindex="0" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABbSURBVDhPYxh0oBWIfwLxfzT8FYjtgZggAGkWhDBRAMiQ10BM0BCQQmwAJA7STNAQfAbAMMg7OAEuA5ABXjWjBlDBAFwJCQZAciA1OAGupAzDILkmIB40gIEBALM1KTUtqLyjAAAAAElFTkSuQmCC">
 15 |         <span class="finder-filename"><span class="filename" title="{{path}}">{{path}}</span></span>
 16 |         <img class="finder-button-run-file unselectable" draggable="false" ondragstart="return false;" tabindex="0" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAD7SURBVDhPtZNNTgJBEEZb1v6sWchWhYu4IuAROASiG0+iiCHhBASOQbgCEdi7FvheTZUOKJkY5CUvU9VTPVPd05OORU0+yK5LXJWFXMi+XMm5HLrEjHHvXP4KkydyJuvyRAbETfkuqaH2BwPJ5EvLUir7NQ/3qOlZloP10SJvDj7kkzy17Bs6ofbaMudR0l6+7bXL+luyJIErYx3LnBc5zsIv4gHhVN5KoPY5CzMOfsBfl7CQ95Y5N5KNaViWsW8T7+Sn3NpE4JAUfcaKpKNXy3aIg8RS+FTRMhAzxmRq9p7GMxlHmXWO3KWk7TdJTSFXkk2Kn6ntY/9NShszrEWunkE+AwAAAABJRU5ErkJggg==">
 17 |     </div>
 18 | {{/each}}</script></div>
 19 | 
 20 | <br><div class="finder-caption"><h2>FOLDERS</h2>
 21 | <img id="finder-button-new-folder" class="unselectable" draggable="false" ondragstart="return false;" tabindex="0" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADjSURBVDhPzZLZCQIxEIYXRB/EowGPNkSxHK92xKMCjwoUe/FELcIn/b9kl7DZKPgg+MFHZpZkyM4k+gVduZZ3+YjXlezIj+TlXO5lX9ZkIV4H8ignMieDzORGlkyWhe9bSZEMXPsgiyZzPOM1oSLPMvM7/HPPhin8AjCUSxs6aFTdhilCBdh3s6GDbtMw4NA7gX3sT/HNDZoycwPmzOh8QgVGcmFDB109ybLJHH6BqmRf22QezJc5+0USGOFOjk0WgBc2lRfJy2tIGsbK6Jg/h9++xASux5xpFN2+xnlL/h1R9AJsyzIrB+D6VQAAAABJRU5ErkJggg==" alt="New folder" title="New folder">
 22 | </div><br>
 23 | 
 24 | <div><script id="finder-folder-template" type="text/x-handlebars-template">
 25 | {{#each folders}}
 26 |     <div class="finder-row" data-folder-name="{{folder_name}}" data-folder-open="">
 27 |         <img draggable="false" ondragstart="return false;" class="unselectable" tabindex="0" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABhSURBVDhPzdIxDoAgEETRvYC3xngtr0WDDoUTwEl2Ov3Jqxa0YOM37VDhggYnbGD3XB4dYLdezvQfFmDqUKZ/hKkDDqaGDqaGDqaGDqaGDqaGDqYWKTM947jKjtcifVXEDaTYk6XxJKwfAAAAAElFTkSuQmCC" alt="Open folder '{{folder_name}}'" title="Open folder '{{folder_name}}'">
 28 |         <img draggable="false" ondragstart="return false;" class="unselectable" tabindex="0" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACTSURBVDhPzdIxDsIwDIXhiL1SuVInUA/ALTgFVe/A2IGRM3AgRoRgAPpbaqwQLGIm+qRPii3HHZowm3S444UnTqjgTryc6uFOfrlEPriDxhoqkSUaa8BDExuydY0FfkpcMGCFR9L7RhMbLQ5JXaKR4owal6n20Eixx2Y6e2muaHCENWh5+41bLHGDNZz7eEj/SggjaSOCoQ+HRrsAAAAASUVORK5CYII=" alt="Close folder '{{folder_name}}'" title="Close folder '{{folder_name}}'" style="display: none;">
 29 |         <img class="finder-button-new-file unselectable" draggable="false" ondragstart="return false;" tabindex="0" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADjSURBVDhPzZLZCQIxEIYXRB/EowGPNkSxHK92xKMCjwoUe/FELcIn/b9kl7DZKPgg+MFHZpZkyM4k+gVduZZ3+YjXlezIj+TlXO5lX9ZkIV4H8ignMieDzORGlkyWhe9bSZEMXPsgiyZzPOM1oSLPMvM7/HPPhin8AjCUSxs6aFTdhilCBdh3s6GDbtMw4NA7gX3sT/HNDZoycwPmzOh8QgVGcmFDB109ybLJHH6BqmRf22QezJc5+0USGOFOjk0WgBc2lRfJy2tIGsbK6Jg/h9++xASux5xpFN2+xnlL/h1R9AJsyzIrB+D6VQAAAABJRU5ErkJggg==" alt="New file in folder '{{folder_name}}'" title="New file in folder '{{folder_name}}'">
 30 |         <img class="finder-button-change-password unselectable" draggable="false" ondragstart="return false;" tabindex="0" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAC/SURBVDhPxY9LDgFBFEV7AX4R5myEuU8wYD/CsoQBttAWYIiJMObcqupOo6qJRJzkpN6r5N2qF/2SAa7w4lxiHz9ijjEqpOgc4Q5nmIte0XDFdI/oTiE90wXQt4e2TNnixpbmJ1oniPYt2DJl7RQlPNvSzwFrtvSSG9DGIzZM52eC3hU0rNdbpvNTxT12TZchNNzEOpZxjBqe4gtXVEgWhZ1QK2nnBXbQy82dCep9oUGyAaqfA9+SDH01/E+i6A4iWyrdP02atgAAAABJRU5ErkJggg==" alt="Change password for folder '{{folder_name}}'" title="Change password for folder '{{folder_name}}'">
 31 |         <span class="finder-filename"><span class="filename" title="{{folder_name}}">{{folder_name}}</span></span>
 32 |     </div>
 33 |     <div class="finder-row-extra"></div>
 34 | {{/each}}
 35 | </script></div>
 36 | 
 37 | <script id="finder-file-template" type="text/x-handlebars-template">
 38 | {{#each files}}
 39 |     <div class="finder-row finder-row-indent" data-folder-name="{{../folder_name}}" data-file-name="{{file_name}}">
 40 |         <img class="unselectable" draggable="false" ondragstart="return false;" tabindex="0" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABbSURBVDhPYxh0oBWIfwLxfzT8FYjtgZggAGkWhDBRAMiQ10BM0BCQQmwAJA7STNAQfAbAMMg7OAEuA5ABXjWjBlDBAFwJCQZAciA1OAGupAzDILkmIB40gIEBALM1KTUtqLyjAAAAAElFTkSuQmCC">
 41 |         <img class="finder-button-run-file unselectable" draggable="false" ondragstart="return false;" tabindex="0" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAD7SURBVDhPtZNNTgJBEEZb1v6sWchWhYu4IuAROASiG0+iiCHhBASOQbgCEdi7FvheTZUOKJkY5CUvU9VTPVPd05OORU0+yK5LXJWFXMi+XMm5HLrEjHHvXP4KkydyJuvyRAbETfkuqaH2BwPJ5EvLUir7NQ/3qOlZloP10SJvDj7kkzy17Bs6ofbaMudR0l6+7bXL+luyJIErYx3LnBc5zsIv4gHhVN5KoPY5CzMOfsBfl7CQ95Y5N5KNaViWsW8T7+Sn3NpE4JAUfcaKpKNXy3aIg8RS+FTRMhAzxmRq9p7GMxlHmXWO3KWk7TdJTSFXkk2Kn6ntY/9NShszrEWunkE+AwAAAABJRU5ErkJggg==">
 42 |         <span class="finder-filename"><span class="filename" title="{{file_name}}">{{file_name}}</span></span>
 43 |     </div>
 44 | {{/each}}
 45 | </script>
 46 | 
 47 | <div id="finder-new-file-name" class="finder-file-name-box">
 48 | <input type="text" id="finder-new-file-name-input" class="filename">
 49 | </div>
 50 | 
 51 | <div id="new-folder-modal" class="modal">
 52 |     <div class="new-folder-modal">
 53 |         <span  class="modal-cancel">&times;</span>
 54 |         <br>
 55 |         <h1>Create New Folder</h1>
 56 |         <br>
 57 |         <label for="new-folder-name">Folder Name:</label>
 58 |         <input type="text" id="new-folder-name" class="modal-focus" size="20">
 59 |         <br>
 60 |         <label for="new-folder-password">Password:</label>
 61 |         <input type="password" id="new-folder-password" minlength="1" maxlength="32" size="20">
 62 |         <br>
 63 |         <label for="new-folder-password2">Confirm password:</label>
 64 |         <input type="password" id="new-folder-password2" maxlength="32" size="20">
 65 |         <br><br>
 66 |         <input class="modal-button" type="button" id="new-folder-create" value="Create Folder">
 67 |         <br>
 68 |         <span id="new-folder-error" class="finder-error-message"></span>
 69 |         <br><br>
 70 |         <span><u>PLEASE NOTE:</u><br>There is no way<br>to recover<br>lost passwords.</span>
 71 |     </div>
 72 | </div>
 73 | 
 74 | <div id="ask-password-modal" class="modal">
 75 |     <div class="new-folder-modal">
 76 |         <span  class="modal-cancel">&times;</span>
 77 |         <br>The folder
 78 |         <span id="ask-password-folder-name" class="filename"></span>
 79 |         <br>is password protected.<br><br>Enter the password below:
 80 |         <br><br>
 81 |         <label for="ask-password-password">Folder password:</label>
 82 |         <input type="password" id="ask-password-password" minlength="1" maxlength="32" size="20" class="modal-focus">
 83 |         <br><br>
 84 |         <input class="modal-button" type="button" value="OK">
 85 |         <br>
 86 |         <span id="ask-password-error" class="finder-error-message"></span>
 87 |     </div>
 88 | </div>
 89 | 
 90 | <div id="change-password-modal" class="modal">
 91 |     <div class="new-folder-modal">
 92 |         <span  class="modal-cancel">&times;</span>
 93 |         Change password for folder
 94 |         <span id="change-password-folder-name" class="filename"></span>
 95 |         <br><br>
 96 |         <label for="change-password1">Current password:</label>
 97 |         <input type="password" id="change-password1" minlength="1" maxlength="32" size="20" class="modal-focus">
 98 |         <br><br>
 99 |         <label for="change-password2">New password:</label>
100 |         <input type="password" id="change-password2" minlength="1" maxlength="32" size="20">
101 |         <br><br>
102 |         <label for="change-password3">Confirm password:</label>
103 |         <input type="password" id="change-password3" minlength="1" maxlength="32" size="20">
104 |         <br><br>
105 |         <input class="modal-button" type="button" value="Change Password">
106 |         <br>
107 |         <span id="change-password-error" class="finder-error-message"></span>
108 |     </div>
109 | </div>
110 | 
111 | </body></html>
112 | 


--------------------------------------------------------------------------------
/playground/finder.lua:
--------------------------------------------------------------------------------
  1 | 
  2 | local document = require("document")
  3 | local handlebars = require("handlebars")
  4 | 
  5 | local finder_div, finder_folder_tmpl, finder_file_tmpl
  6 | local finder_input_div, finder_input_box
  7 | local finder_recent_tmpl, finder_recent_div
  8 | 
  9 | --
 10 | -- refresh_recents
 11 | --
 12 | 
 13 | local finder_recents = nil
 14 | local storage = nil -- different from folder_password storage!
 15 | 
 16 | function refresh_recents(folder_name, file_name, remove_entry)
 17 | 
 18 |     local modified = false
 19 | 
 20 |     --
 21 |     -- reload list of recent folders from previous use
 22 |     --
 23 | 
 24 |     if not finder_recents then
 25 | 
 26 |         if not storage then
 27 |             storage = require("storage")["local"]
 28 |         end
 29 | 
 30 |         finder_recents = {}
 31 | 
 32 |         local index = 1
 33 |         while true do
 34 |             local key = "recent_" .. string.format("%04d",index)
 35 |             local value = storage[key]
 36 |             if not value then break end
 37 |             finder_recents[index] = { path=value }
 38 |             index = index + 1
 39 |         end
 40 | 
 41 |         if index > 1 then modified = true end
 42 | 
 43 |     end
 44 | 
 45 |     --
 46 |     -- update list of recent folders
 47 |     --
 48 | 
 49 |     if folder_name and file_name then
 50 | 
 51 |         local path = folder_name .. "/" .. file_name
 52 | 
 53 |         for index = 2, #finder_recents do
 54 |             if finder_recents[index].path == path then
 55 |                 table.remove(finder_recents, index)
 56 |                 modified = true
 57 |                 break
 58 |             end
 59 |         end
 60 | 
 61 |         if remove_entry then
 62 |             if finder_recents[1].path == path then
 63 |                 table.remove(finder_recents, 1)
 64 |                 modified = true
 65 |             end
 66 | 
 67 |         elseif #finder_recents == 0 or finder_recents[1].path ~= path then
 68 |             table.insert(finder_recents, 1, { path = path })
 69 |             modified = true
 70 |         end
 71 | 
 72 |         if modified then
 73 | 
 74 |             local key = "recent_" .. string.format("%04d", #finder_recents + 1)
 75 |             storage[key] = nil
 76 |             for index = 1, #finder_recents do
 77 |                 local key = "recent_" .. string.format("%04d", index)
 78 |                 storage[key] = finder_recents[index].path
 79 |             end
 80 |         end
 81 | 
 82 |     end
 83 | 
 84 |     --
 85 |     -- refresh list of recent folders
 86 |     --
 87 | 
 88 |     if modified then
 89 | 
 90 |         if #finder_recents == 0 then
 91 |             finder_recent_div.innerHTML = ""
 92 |         else
 93 | 
 94 |             local function click_recent(event)
 95 |                 local elem = event.target
 96 |                 local run_file = elem.className:startswith("finder-button-run-file")
 97 |                 if elem.tagName:lower() ~= "div" then elem = elem.parentNode end
 98 |                 if elem.tagName:lower() == "span" then elem = elem.parentNode end
 99 |                 local path = elem.dataset.path
100 |                 local idx = path:index('/')
101 |                 if not idx then return end
102 |                 local folder_name = path:sub(1,idx-1)
103 |                 local file_name = path:sub(idx+1)
104 |                 if run_file then
105 |                     if edit_save then edit_save() end
106 |                     switch_view("console")
107 |                     console_run(folder_name, file_name)
108 |                 else
109 |                     switch_view("editor")
110 |                     edit_file(folder_name, file_name)
111 |                 end
112 |             end
113 | 
114 |             local function clear_recent(event)
115 |                 local index = 1
116 |                 while true do
117 |                     local key = "recent_" .. string.format("%04d",index)
118 |                     local value = storage[key]
119 |                     if not value then break end
120 |                     storage[key] = nil
121 |                     index = index + 1
122 |                 end
123 |                 finder_recents = {}
124 |                 finder_recent_div.innerHTML = ""
125 |             end
126 | 
127 |             local res, err = finder_recent_tmpl { recents = finder_recents }
128 |             if err then show_error('Error in template: ' .. err) return end
129 | 
130 |             finder_recent_div.innerHTML = res
131 | 
132 |             local rows = finder_recent_div:getElementsByClassName("finder-row")
133 |             for i = 1, #rows do rows[i].onclick = click_recent end
134 | 
135 |             finder_recent_div:getElementsByClassName("finder-button-clear-recent")[1].onclick = clear_recent
136 | 
137 |         end
138 | 
139 |     end
140 | 
141 | end
142 | 
143 | --
144 | -- reload_folders
145 | --
146 | 
147 | function reload_folders(event)
148 | 
149 |     local res, err = call_server {
150 |         op = 'list_folders',
151 |         folder = (event and event.target.value or "")
152 |     }
153 | 
154 |     if not err then
155 |         res.n = nil
156 |         res, err = finder_folder_tmpl {folders=res}
157 |         if err then err = 'Error in template: ' .. err end
158 |     end
159 | 
160 |     if err then
161 |         show_error(err)
162 |     else
163 | 
164 |         finder_div.innerHTML = res
165 | 
166 |         local links = finder_div:getElementsByClassName("finder-row")
167 |         for i = 1, #links do links[i].onclick = click_folder end
168 | 
169 |         links = finder_div:getElementsByClassName("finder-button-change-password")
170 |         for i = 1, #links do
171 |             links[i].style.display = "inline"
172 |             links[i].onclick = folder_password
173 |         end
174 | 
175 |     end
176 | 
177 | end
178 | 
179 | --
180 | -- click_folder
181 | --
182 | 
183 | function click_folder(event)
184 | 
185 |     local target_div = event.target
186 |     if target_div.className:startswith("finder-button-") then return end
187 |     if not target_div.className:startswith("finder-row") then
188 |         target_div = target_div.parentNode
189 |         if target_div.tagName:lower() == "span" then target_div = target_div.parentNode end
190 |     end
191 | 
192 |     local images = target_div:getElementsByTagName("img")
193 | 
194 |     if target_div.dataset.folderOpen == "open" then
195 | 
196 |         target_div.dataset.folderOpen = ""
197 |         images[1].style.display = "inline"
198 |         images[2].style.display = "none"
199 |         images[3].style.display = "none"
200 |         images[4].style.display = "inline"
201 | 
202 |         target_div.nextElementSibling.innerHTML = ""
203 | 
204 |     else
205 | 
206 |         local folder_name = target_div.dataset.folderName
207 |         local res, err = call_server {
208 |             op = 'list_files',
209 |             folder = folder_name,
210 |         }
211 | 
212 |         if not err then
213 |             res.n = nil
214 |             res = { files = res, folder_name = folder_name }
215 |             res, err = finder_file_tmpl (res)
216 |             if err then err = 'Error in template: ' .. err end
217 |         end
218 | 
219 |         if err then
220 |             show_error(err)
221 |         else
222 | 
223 |             target_div.dataset.folderOpen = "open"
224 |             images[1].style.display = "none"
225 |             images[2].style.display = "inline"
226 |             images[3].style.display = "inline"
227 |             images[3].onclick = make_new_file
228 |             images[4].style.display = "none"
229 | 
230 |             local files_div = target_div.nextElementSibling
231 |             files_div.innerHTML = res
232 | 
233 |             local links = files_div:getElementsByClassName("finder-row")
234 |             for i = 1, #links do
235 |                 links[i].onclick = click_file
236 |                 if not mobile then
237 |                     local span = links[i]:getElementsByClassName("filename")[1]
238 |                     if span and #span.title > 10 then
239 |                         span.style.fontSize = "100%"
240 |                     end
241 |                 end
242 |             end
243 |         end
244 | 
245 |     end
246 | 
247 | end
248 | 
249 | --
250 | -- refresh_folder
251 | --
252 | 
253 | function refresh_folder(folder_name)
254 | 
255 |     local children = finder_div:childNodes()
256 |     for i = 1, #children do
257 |         local row = children[i]
258 |         if row.tagName and row.tagName:lower() == "div"
259 |                        and row.className:startswith("finder-row") then
260 |             if row.dataset.folderName == folder_name then
261 |                 if row.dataset.folderOpen == "open" then
262 |                     local event = { target = row }
263 |                     click_folder(event) -- close folder
264 |                     click_folder(event) -- reopen folder
265 |                 end
266 |                 break
267 |             end
268 |         end
269 |     end
270 | 
271 | end
272 | 
273 | --
274 | -- click_file
275 | --
276 | 
277 | function click_file(event)
278 | 
279 |     local target_div = event.target
280 |     local run_file = target_div.className:startswith("finder-button-run-file")
281 |     if not target_div.className:startswith("finder-row") then
282 |         target_div = target_div.parentNode
283 |         if target_div.tagName:lower() == "span" then target_div = target_div.parentNode end
284 |     end
285 | 
286 |     local folder_name = target_div.dataset.folderName
287 |     local file_name = target_div.dataset.fileName
288 |     if run_file then
289 |         if edit_save then edit_save() end
290 |         switch_view("console")
291 |         console_run(folder_name, file_name)
292 |     else
293 |         refresh_recents(folder_name, file_name)
294 |         switch_view("editor")
295 |         edit_file(folder_name, file_name)
296 |     end
297 | 
298 | end
299 | 
300 | --
301 | -- make_new_folder
302 | --
303 | 
304 | function make_new_folder(event)
305 | 
306 |     local folder_name = document:getElementById("new-folder-name")
307 |     local password_field = document:getElementById("new-folder-password")
308 |     local password2_field = document:getElementById("new-folder-password2")
309 |     local folder_error = document:getElementById("new-folder-error")
310 | 
311 |     folder_name.value, folder_error.innerHTML = "", ""
312 | 
313 |     while true do
314 |         password_field.value, password2_field.value = "", ""
315 | 
316 |         local modal, button = modal_dialog("new-folder-modal")
317 |         if not button then
318 |             modal.close()
319 |             break
320 |         end
321 | 
322 |         local new_folder = folder_name.value
323 |         local new_password = password_field.value
324 | 
325 |         if password2_field.value ~= new_password then
326 |             folder_error.innerHTML = "Password fields must be same"
327 |             continue
328 |         end
329 | 
330 |         local res, err = call_server {
331 |             op = 'new_folder',
332 |             folder = new_folder,
333 |             password = new_password }
334 |         if not err and (not res or not res.ok) then err = "Unknown error" end
335 |         if err then
336 |             folder_error.innerHTML = err
337 |             continue
338 |         end
339 | 
340 |         folder_password(new_folder, "set", new_password)
341 |         modal.close()
342 |         coroutine.spawn(reload_folders)
343 |         break
344 |     end
345 | 
346 | end
347 | 
348 | --
349 | -- make_new_file
350 | --
351 | 
352 | local make_new_file_in_folder
353 | 
354 | function make_new_file(event)
355 | 
356 |     if event.type == "blur" then
357 |         event.type = "keydown"
358 |         event.keyCode = 27
359 |     end
360 | 
361 |     if event.type ~= "keydown" then
362 | 
363 |         --
364 |         -- pop up new file name input box
365 |         --
366 | 
367 |         local target_div = event.target
368 |         if not target_div.className:startswith("finder-row") then
369 |             target_div = target_div.parentNode
370 |         end
371 |         make_new_file_in_folder = target_div.dataset.folderName
372 | 
373 |         finder_input_div.style.display = "block"
374 | 
375 |         local files_div = target_div.nextElementSibling
376 |         files_div:insertBefore(finder_input_div, files_div:childNodes()[1])
377 | 
378 |         finder_input_box.value = ""
379 |         finder_input_box:focus()
380 | 
381 |     elseif event.keyCode == 13 then
382 | 
383 |         --
384 |         -- enter key was pressed in the input box
385 |         --
386 | 
387 |         local folder_name = make_new_file_in_folder
388 |         local file_name = event.target.value
389 | 
390 |         if folder_name and folder_name ~= ""
391 |             and file_name and file_name ~= "" then
392 | 
393 |             switch_view("editor")
394 |             if edit_file(folder_name, file_name, true) then
395 | 
396 |                 make_new_file_in_folder = nil
397 |                 finder_input_div.style.display = "none"
398 |                 refresh_recents(folder_name, file_name)
399 |             end
400 |         end
401 | 
402 |     elseif event.keyCode == 27 then
403 | 
404 |         --
405 |         -- escape key was pressed, or input box lost focus
406 |         --
407 | 
408 |         make_new_file_in_folder = nil
409 |         finder_input_div.style.display = "none"
410 | 
411 |     end
412 | 
413 | end
414 | 
415 | --
416 | -- folder_password
417 | --
418 | 
419 | local storage = nil -- different from folder_recents storage!
420 | 
421 | function folder_password(folder, dlg, extra)
422 | 
423 |     if not storage then
424 |         storage = require("storage")["session"]
425 |     end
426 | 
427 |     if type(folder) == "table" and folder.target then
428 |         -- first parameter is an event object
429 |         folder = folder.target.parentNode.dataset.folderName
430 |         if folder then dlg = "change" else return nil end
431 |     end
432 | 
433 |     local key = "password_" .. folder
434 | 
435 |     if dlg == "set" then
436 | 
437 |         storage[key] = extra
438 | 
439 |     elseif dlg == "ask" then
440 | 
441 |         --
442 |         -- ask password for folder
443 |         --
444 | 
445 |         while modal_dialog_active do coroutine.sleep(1000) end
446 | 
447 |         document:getElementById("ask-password-folder-name").innerHTML = folder
448 |         document:getElementById("ask-password-error").innerHTML = extra or ""
449 | 
450 |         local password_field = document:getElementById("ask-password-password")
451 |         password_field.value = ""
452 | 
453 |         local modal, button = modal_dialog("ask-password-modal")
454 |         modal.close()
455 | 
456 |         if not button then return nil end
457 |         storage[key] = password_field.value
458 | 
459 |     elseif dlg == "change" then
460 | 
461 |         --
462 |         -- change folder password
463 |         --
464 | 
465 |         if modal_dialog_active then return end
466 | 
467 |         document:getElementById("change-password-folder-name").innerHTML = folder
468 | 
469 |         local password1_field = document:getElementById("change-password1")
470 |         local password2_field = document:getElementById("change-password2")
471 |         local password3_field = document:getElementById("change-password3")
472 |         local error_field = document:getElementById("change-password-error")
473 | 
474 |         error_field.innerHTML = "", ""
475 | 
476 |         while true do
477 |             password1_field.value, password2_field.value, password3_field.value = "", "", ""
478 | 
479 |             local modal, button = modal_dialog("change-password-modal")
480 |             if not button then
481 |                 modal.close()
482 |                 break
483 |             end
484 | 
485 |             local new_password = password2_field.value
486 |             if new_password ~= password3_field.value then
487 |                 error_field.innerHTML = "Password fields must be same"
488 |                 continue
489 |             end
490 | 
491 |             local res, err = call_server {
492 |                 op = 'change_password',
493 |                 folder = folder,
494 |                 password = password1_field.value,
495 |                 password2 = new_password }
496 | 
497 |             if res and res.ok == "ok" then
498 |                 storage[key] = new_password
499 |                 modal.close()
500 |                 break
501 |             else
502 |                 error_field.innerHTML = err or "Unknown error"
503 |             end
504 |         end
505 | 
506 |     end
507 | 
508 |     return storage[key] or ""
509 | 
510 | end
511 | 
512 | --
513 | -- read_file
514 | --
515 | 
516 | function read_file(folder_name, file_name)
517 | 
518 |     local res, err = call_server {
519 |         op = 'read_file',
520 |         folder = folder_name,
521 |         file = file_name
522 |     }
523 | 
524 |     if err then return nil, err
525 |     else return res.source_text end
526 | 
527 | end
528 | 
529 | --
530 | -- main
531 | --
532 | 
533 | return function ()
534 | 
535 | local finder_html, err = document.load_html("finder.css", "finder.html")
536 | if err then show_error(err) return end
537 | document:getElementById("finder-section").innerHTML = finder_html.body.innerHTML
538 | 
539 | local template_element = document:getElementById("finder-folder-template")
540 | finder_folder_tmpl = handlebars.compile(template_element.innerHTML)
541 | finder_div = template_element.parentElement
542 | 
543 | template_element = document:getElementById("finder-file-template")
544 | finder_file_tmpl = handlebars.compile(template_element.innerHTML)
545 | 
546 | template_element = document:getElementById("finder-recent-template")
547 | finder_recent_tmpl = handlebars.compile(template_element.innerHTML)
548 | finder_recent_div = template_element.parentElement
549 | 
550 | document:getElementById("finder-button-new-folder").onclick = make_new_folder
551 | 
552 | finder_input_div = document:getElementById("finder-new-file-name")
553 | finder_input_box = finder_input_div:getElementsByTagName("input")[1]
554 | finder_input_box.onkeydown, finder_input_box.onblur = make_new_file, make_new_file
555 | 
556 | document:getElementById("finder-button-console").onclick =
557 |     function()
558 |         if edit_save then edit_save() end
559 |         switch_view("console")
560 |         if console_focus then console_focus() end
561 |     end
562 | 
563 | if mobile then
564 |     document:getElementById("status-run-button").onclick =
565 |         function()
566 |             if edit_save then
567 |                 edit_save()
568 |                 switch_view("console")
569 |                 back_button_switch_editor = true
570 |                 console_run(edit_get_name())
571 |             end
572 |         end
573 | end
574 | 
575 | coroutine.spawn(reload_folders)
576 | coroutine.spawn(refresh_recents)
577 | 
578 | end
579 | 


--------------------------------------------------------------------------------
/playground/handlebars.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | local self = {}
 3 | 
 4 | JavaScript("yield*$L.require_js('https://cdnjs.cloudflare.com/ajax/libs/handlebars.js/4.0.11/handlebars.min.js')")
 5 | local handlebars
 6 | JavaScript("$1=Handlebars.noConflict()", handlebars)
 7 | 
 8 | self.compile = function(template, options)
 9 |     ::update_stack_frame::
10 |     JavaScript("var html=yield*$L.checkstring($1,1)", template)
11 |     options = options and coroutine.jsconvert(nil, options)
12 |     JavaScript("var fn=$1.compile(html,$2)", handlebars, options)
13 |     return function(context)
14 |         ::update_stack_frame::
15 |         context = context and coroutine.jsconvert(nil, context)
16 |         JavaScript("var res,err")
17 |         JavaScript("try{res=fn($1)}", context)
18 |         JavaScript("catch(e){err='Handlebars: '+e.toString()}")
19 |         JavaScript("return[res,err]")
20 |     end
21 | end
22 | 
23 | return self
24 | 


--------------------------------------------------------------------------------
/playground/index.css:
--------------------------------------------------------------------------------
  1 | 
  2 | /* Modal dialog box: background and buttons */
  3 | 
  4 | .modal {
  5 |     display: none;
  6 |     position: fixed;
  7 |     z-index: 99;
  8 |     left: 0;
  9 |     top: 0;
 10 |     width: 100%;
 11 |     height: 100%;
 12 |     overflow: auto;
 13 |     background-color: rgba(0,0,0,0.4);
 14 | }
 15 | 
 16 | .modal-cancel {
 17 |     color: #aaa;
 18 |     float: right;
 19 |     font-size: 28px;
 20 |     font-weight: bold;
 21 | }
 22 | 
 23 | .modal-cancel:hover,
 24 | .modal-cancel:focus {
 25 |     color: black;
 26 |     text-decoration: none;
 27 |     cursor: pointer;
 28 | }
 29 | 
 30 | /*
 31 | .link-button {
 32 |     color: blue;
 33 |     font-size: small;
 34 | }
 35 | 
 36 | .link-button:hover,
 37 | .link-button:focus {
 38 |     color: black;
 39 |     text-decoration: none;
 40 |     cursor: pointer;
 41 | }*/
 42 | 
 43 | /* General styles */
 44 | 
 45 | html {
 46 |     box-sizing: border-box;
 47 | }
 48 | 
 49 | *, *:before, *:after {
 50 |     box-sizing: inherit;
 51 | }
 52 | 
 53 | #index-panes {
 54 |     display: flex;
 55 |     width: 100vw;
 56 |     height: 100vh;
 57 |     overflow: hidden;
 58 | }
 59 | 
 60 | #index-pane-left {
 61 |     flex: 0 0 20vw;
 62 | }
 63 | 
 64 | #index-pane-right {
 65 |     flex: 0 0 80vw;
 66 |     display: flex;
 67 |     flex-direction: column;
 68 | }
 69 | 
 70 | #index-pane-right-top {
 71 |     font-family: Arial;
 72 |     font-size: 12pt;
 73 |     flex: 0 0 4ex;
 74 |     background: green;
 75 | }
 76 | 
 77 | #index-pane-right-bottom {
 78 |     flex: 1;
 79 | }
 80 | 
 81 | .status-button {
 82 |     display: none;
 83 | }
 84 | 
 85 | #status-section {
 86 |     display: inline-block;
 87 |     padding-top: 0.5ex;
 88 |     padding-left: 1em;
 89 |     min-height: 1.5rem;
 90 |     color: white;
 91 |     height: 100%;
 92 |     background-color: green;
 93 | }
 94 | 
 95 | .filename {
 96 |     font-family: monospace;
 97 |     font-size: 125%;
 98 | }
 99 | 
100 | .unselectable {
101 |     -webkit-user-select: none;
102 |     -moz-user-select: none;
103 |     -ms-user-select: none;
104 |     user-select: none;
105 | }
106 | 
107 | /*
108 |  * mobile
109 |  */
110 | 
111 | @media only screen and (max-device-width: 768px) {
112 | 
113 | #status-section {
114 |     padding-left: 0;
115 |     vertical-align: super;
116 |     background-color: transparent;
117 | }
118 | 
119 | .status-button {
120 |     display: inline;
121 |     margin-left: 2px;
122 |     padding-left: 4px;
123 |     padding-right: 8px;
124 |     color: white;
125 |     background-color: orange;
126 |     font-size: 24pt;
127 | }
128 | 
129 | #index-pane-left {
130 |     flex: 0 0 100vw;
131 | }
132 | 
133 | #index-pane-right {
134 |     display: none;
135 |     flex: 0 0 100vw;
136 | }
137 | 
138 | }
139 | 


--------------------------------------------------------------------------------
/playground/index.html:
--------------------------------------------------------------------------------
 1 | <!DOCTYPE html>
 2 | <html>
 3 |   <head>
 4 |     <meta charset="utf-8"/>
 5 |     <meta name="viewport" content="width=device-width, initial-scale=1.0">
 6 |     <title>Loulabelle Playground</title>
 7 |     <link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/meyer-reset/2.0/reset.min.css" type="text/css" media="screen" />
 8 |     <link rel="stylesheet" href="index.css" media="screen" />
 9 |     <script type="text/javascript" src="../core.js"></script>
10 |     <script type="text/javascript" src="demo.js"></script>
11 |   </head>
12 |   <body>
13 |     <div id="index-panes">
14 |       <div id="index-pane-left">
15 |         <div id="finder-section"></div>
16 |       </div>
17 |       <div id="index-pane-right">
18 |         <div id="index-pane-right-top">
19 |           <span id="status-menu-button" class="unselectable status-button" draggable="false" ondragstart="return false;" tabindex="0">&#9664;</span>
20 |           <span id="status-run-button" class="unselectable status-button" draggable="false" ondragstart="return false;" tabindex="0">&#9654;</span>
21 |           <div id="status-section">&nbsp;</div>
22 |         </div>
23 |         <div id="index-pane-right-bottom">
24 |           <div id="editor-section" style="display:none;"></div>
25 |           <div id="console-section" style="display:none;"></div>
26 |         </div>
27 |       </div>
28 |     </div>
29 |   </body>
30 | </html>
31 | 


--------------------------------------------------------------------------------
/playground/mysql_compat.php:
--------------------------------------------------------------------------------
 1 | <?php
 2 | 
 3 | /**
 4 |  * replacement for all mysql functions
 5 |  * https://gist.github.com/rubo77/1db052edd8d723b59c79790b42635f1e
 6 |  */
 7 | 
 8 | if (!function_exists("mysql_connect")){
 9 | 
10 |     /* warning: fatal error "cannot redeclare" if a function was disabled in php.ini with disable_functions:
11 |     disable_functions =mysql_connect,mysql_pconnect,mysql_select_db,mysql_ping,mysql_query,mysql_fetch_assoc,mysql_num_rows,mysql_fetch_array,mysql_error,mysql_insert_id,mysql_close,mysql_real_escape_string,mysql_data_seek,mysql_result
12 |     */
13 | 
14 |     function mysql_error($link = NULL) { return $link ? mysqli_error($link) : mysqli_connect_error(); }
15 | 
16 |     function mysql_connect($host, $username, $password) { return @mysqli_connect($host, $username, $password); }
17 | 
18 |     function mysql_pconnect($host, $username, $password) { return @mysqli_connect("p:" . $host, $username, $password); }
19 | 
20 |     function mysql_close($link) { return mysqli_close($link); }
21 | 
22 |     function mysql_select_db($dbname, $link) { return mysqli_select_db($link, $dbname); }
23 | 
24 |     function mysql_ping($link) { return mysqli_ping($link); }
25 | 
26 |     function mysql_query($query, $link) { return mysqli_query($link, $query); }
27 | 
28 |     function mysql_num_rows($result) { return mysqli_num_rows($result); }
29 | 
30 |     function mysql_num_fields($result) { return mysqli_num_fields($result); }
31 | 
32 |     function mysql_fetch_row($result) { return mysqli_fetch_row($result); }
33 | 
34 |     function mysql_fetch_assoc($result) { return mysqli_fetch_assoc($result); }
35 | 
36 |     function mysql_real_escape_string($str, $link) { return mysqli_real_escape_string($link, $str); }
37 | 
38 | 
39 | 
40 | 
41 | 
42 | 
43 |     function mysql_affected_rows($e=NULL){
44 |         return mysqli_affected_rows ($e );
45 |     }
46 |     function mysql_insert_id($cnx){
47 |         return mysqli_insert_id ( $cnx );
48 |     }
49 |     function mysql_data_seek($re,$row){
50 |         return mysqli_data_seek($re,$row);
51 |     }
52 | 
53 |     function mysql_result($res,$row=0,$col=0){
54 |         $numrows = mysqli_num_rows($res);
55 |         if ($numrows && $row <= ($numrows-1) && $row >=0){
56 |             mysqli_data_seek($res,$row);
57 |             $resrow = (is_numeric($col)) ? mysqli_fetch_row($res) : mysqli_fetch_assoc($res);
58 |             if (isset($resrow[$col])){
59 |                 return $resrow[$col];
60 |             }
61 |         }
62 |         return false;
63 |     }
64 | }


--------------------------------------------------------------------------------
/playground/raytracer/00_main.lua:
--------------------------------------------------------------------------------
1 | require "driver"
2 | 


--------------------------------------------------------------------------------
/playground/raytracer/build.sh:
--------------------------------------------------------------------------------
 1 | #! /bin/bash
 2 | 
 3 | # here we build a standalone version of the raytracer.
 4 | # another version of the raytracer is in the playground.
 5 | 
 6 | source ../../build.cfg
 7 | 
 8 | LFLAGS=-o
 9 | TARGET=$TARGET/ray2
10 | COMPILER=../../compiler
11 | LCC="lua $COMPILER/main.lua $LFLAGS"
12 | 
13 | function copy() {
14 |     while [ -n "$1" ]; do
15 |         if [ ${1: -4} == ".lua" ]; then
16 |             if [ $1 -nt $TARGET/${1%.lua}.js ]; then
17 |                 echo Compiling $1
18 |                 $LCC $1 > $TARGET/${1%.lua}.js
19 |                 if [ $? != 0 ]; then rm $TARGET/${1%.lua}.js; fi
20 |             fi
21 |         else
22 |             if [ $1 -nt $TARGET/$1 ]; then
23 |                 echo Copying $1
24 |                 cp $1 $TARGET
25 |             fi
26 |         fi
27 |         shift
28 |     done
29 | }
30 | 
31 | if [ $COMPILER/core.lua -nt $TARGET/core.js ]; then
32 |     echo Compiling core library
33 |     $LCC $COMPILER/core.lua > $TARGET/core.js
34 |     if [ $? != 0 ]; then rm $TARGET/core.js; fi
35 | fi
36 | 
37 | copy index.html driver.lua tracer.lua worker.js
38 | copy vector.lua light.lua sphere.lua group.lua
39 | 


--------------------------------------------------------------------------------
/playground/raytracer/compile.sh:
--------------------------------------------------------------------------------
1 | #! /bin/bash
2 | 
3 | export LUA_PATH=../Loulabelle/compiler/?.lua
4 | LCC="lua ../Loulabelle/compiler/main.lua -o"
5 | $LCC $1
6 | 


--------------------------------------------------------------------------------
/playground/raytracer/driver.lua:
--------------------------------------------------------------------------------
  1 | 
  2 | ----------------------------------------------------
  3 | -- import modules into global variables
  4 | ----------------------------------------------------
  5 | 
  6 | if package.playground then
  7 | 
  8 |     --
  9 |     -- when running in the playground, our rendering
 10 |     -- threads (which will be spawned in a web worker)
 11 |     -- don't have the playground require() to load
 12 |     -- stuff from the playground database.  so we are
 13 |     -- going to pre-load everything here, and pass
 14 |     -- the compiled javascript text to the web worker
 15 |     --
 16 | 
 17 |     print 'Loading modules...'
 18 | 
 19 |     Vector_chunk = load(io.load("raytracer/vector"), nil, nil, nil)
 20 |     Sphere_chunk = load(io.load("raytracer/sphere"), nil, nil, nil)
 21 |     Light_chunk = load(io.load("raytracer/light"), nil, nil, nil)
 22 |     Group_chunk = load(io.load("raytracer/group"), nil, nil, nil)
 23 |     Tracer_chunk = load(io.load("raytracer/tracer"), nil, nil, nil)
 24 | 
 25 |     print 'Modules loaded.'
 26 | 
 27 |     --
 28 |     -- on the main thread, we can just run the
 29 |     -- loaded/compiled chunks, and store their
 30 |     -- return values, as if we require()d them
 31 |     --
 32 | 
 33 |     Vector = Vector_chunk()
 34 |     Sphere = Sphere_chunk()
 35 |     Light = Light_chunk()
 36 |     Group = Group_chunk()
 37 | 
 38 | else
 39 | 
 40 |     --
 41 |     -- standalone version can just require stuff
 42 |     --
 43 | 
 44 |     Vector = require "vector"
 45 |     Sphere = require "sphere"
 46 |     Light  = require "light"
 47 |     Group  = require "group"
 48 | 
 49 | end
 50 | 
 51 | local comain
 52 | 
 53 | coroutine.spawn(function()
 54 | 
 55 | ----------------------------------------------------
 56 | -- define scene
 57 | ----------------------------------------------------
 58 | 
 59 | local group = Group()
 60 | local group_save = assume_function(group.save)
 61 | group:define(Light(Vector(0,0,0)), 'light')
 62 | group:define(Sphere(Vector(0,0,0),0))
 63 | 
 64 | local my_sphere1 = Sphere(Vector(0,0,20),2.5)
 65 | local my_sphere2 = Sphere(Vector(0,0,20),2.5)
 66 | group:insert(my_sphere1, Vector(0,0,1))
 67 | group:insert(my_sphere2, Vector(1,1,0))
 68 | group:insert(Sphere(Vector(0,0,20),8), Vector(0,1,0))
 69 | group:insert(Light(Vector(100,0,-100)))
 70 | 
 71 | local sin = assume_function(math.sin)
 72 | local cos = assume_function(math.cos)
 73 | 
 74 | ----------------------------------------------------
 75 | -- create canvas
 76 | ----------------------------------------------------
 77 | 
 78 | local canvas = { width=320, height=240 }
 79 | 
 80 | (function ()
 81 | 
 82 |     assert(canvas.width % 4 == 0, 'canvas width not divisable by 4')
 83 |     local tmp
 84 |     JavaScript("$1=document.body.appendChild(document.createElement('canvas'))", tmp)
 85 |     canvas.elem = tmp
 86 |     JavaScript("$1.width=$2", tmp, canvas.width)
 87 |     JavaScript("$1.height=$2", tmp, canvas.height)
 88 |     JavaScript("$1=$1.getContext('2d',{alpha:false})", tmp)
 89 |     canvas.ctx = tmp
 90 |     JavaScript("$1=$2.createImageData($3,$4)", tmp, canvas.ctx, canvas.width, canvas.height)
 91 |     canvas.image = tmp
 92 |     JavaScript("$1=$2.width", tmp, canvas.image)
 93 |     assert(tmp == canvas.width, 'canvas width != image width')
 94 |     JavaScript("$1=$2.height", tmp, canvas.image)
 95 |     assert(tmp == canvas.height, 'canvas width != image width')
 96 |     JavaScript("$1=new Uint32Array($2.data.buffer)", tmp, canvas.image)
 97 |     canvas.view = tmp
 98 | 
 99 |     if package.playground then
100 |         JavaScript("$1.onclick=$2", canvas.elem,
101 |             (coroutine.jscallback(function()
102 |                 print 'Stopping raytracer'
103 |                 coroutine.resume(comain)
104 |             end)))
105 |     end
106 | 
107 | end)()
108 | 
109 | ----------------------------------------------------
110 | -- handle response from worker
111 | ----------------------------------------------------
112 | 
113 | JavaScript("var time0,time1")
114 | 
115 | local workers = {}
116 | local n
117 | JavaScript("$1=window.navigator.hardwareConcurrency", n)
118 | local run_workers
119 | 
120 | local function onmessage(msg)
121 | 
122 |     local tdiff
123 | 
124 |     local array, worker, view
125 |     JavaScript("$1=$1.data", msg)
126 |     JavaScript("[$2,$3]=[$1.array,$1.worker]", msg, array, worker)
127 | 
128 |     JavaScript("$1=new Uint32Array($2)", view, array)
129 |     worker = workers[worker]
130 |     JavaScript("$1.set($2,$3)", canvas.view, view, worker.y * canvas.width)
131 |     worker.array = array
132 | 
133 |     local num_ready = 0
134 |     for i = 1, n do
135 |         if workers[i].array then num_ready = num_ready + 1 end
136 |     end
137 |     if num_ready == n then
138 | 
139 |         JavaScript("time1 = performance.now() / 1000")
140 |         JavaScript("$1=time1-time0", tdiff)
141 | 
142 |         JavaScript("$1.putImageData($2,0,0)", canvas.ctx, canvas.image)
143 | 
144 |     JavaScript("var p=document.getElementById('p')")
145 |     JavaScript("if(!p){")
146 |     JavaScript("p=document.createElement('p')")
147 |     JavaScript("p.id='p'")
148 |     JavaScript("p.style='position:absolute;top:0;color:yellow'")
149 |     JavaScript("document.body.appendChild(p)}")
150 |     local str = tdiff .. ' (' .. n .. ' threads)'
151 |     if package.playground then
152 |         str = str .. '<br>Click to stop'
153 |     end
154 |     JavaScript("p.innerHTML=$1", str)
155 | 
156 |     run_workers()
157 |     end
158 | 
159 | end
160 | 
161 | ----------------------------------------------------
162 | -- select source for web worker:
163 | -- use worker.js file if standalone version,
164 | -- load worker_js text if running in playground
165 | ----------------------------------------------------
166 | 
167 | local worker_url, worker_msg
168 | 
169 | if package.playground then
170 | 
171 |     worker_url = io.load("worker_js")
172 |     JavaScript("$1=window.URL.createObjectURL(new Blob([$1],{type:'text/javascript'}))", worker_url)
173 |     -- we can't require() in the worker, but we can
174 |     -- send JavaScript function text for our chunks
175 |     local Vector_js, Sphere_js, Light_js, Group_js, Tracer_js
176 |     JavaScript("$2=$1.toString()", Vector_chunk, Vector_js)
177 |     JavaScript("$2=$1.toString()", Sphere_chunk, Sphere_js)
178 |     JavaScript("$2=$1.toString()", Light_chunk, Light_js)
179 |     JavaScript("$2=$1.toString()", Group_chunk, Group_js)
180 |     JavaScript("$2=$1.toString()", Tracer_chunk, Tracer_js)
181 |     worker_msg = { core_url = _G.url .. "../core.js",
182 |         Vector = Vector_js, Sphere = Sphere_js,
183 |         Light = Light_js, Group = Group_js,
184 |         main = Tracer_js }
185 | else                -- standalone
186 |     worker_url = 'worker.js'
187 |     worker_msg = 'tracer.js'
188 | end
189 | 
190 | ----------------------------------------------------
191 | -- create workers
192 | ----------------------------------------------------
193 | 
194 | local region_height = canvas.height / n
195 | local region_width = canvas.width
196 | 
197 | for i = 1, n do
198 | 
199 |     local worker, array, view
200 |     local y0 = region_height * (i - 1)
201 |     local y1 = y0 + region_height - 1
202 |     JavaScript("$1=new Worker($2)", worker, worker_url)
203 |     JavaScript("$1.postMessage($2)", worker, worker_msg)
204 |     coroutine.fastcall(function()
205 |         JavaScript("$1.onmessage=$2", worker, (coroutine.jscallback(onmessage)))
206 |     end)
207 |     JavaScript("$1=new ArrayBuffer($2)", array, region_width * region_height * 4)
208 |     workers[i] = { worker = worker, y = y0, array = array }
209 | 
210 | end
211 | 
212 | g_workers = workers
213 | g_num_workers = n
214 | 
215 | ----------------------------------------------------
216 | -- run workers
217 | ----------------------------------------------------
218 | 
219 | local timestamp = 0
220 | assume_number(timestamp)
221 | 
222 | run_workers = function()
223 | 
224 |     local center = my_sphere1[1]
225 |     center[1] = cos(timestamp / 66) * 15
226 |     center[2] = sin(timestamp / 66) * 10 * cos(timestamp / 66)
227 |     center[3] = sin(timestamp / 66) * 15 + 22
228 | 
229 |     center = my_sphere2[1]
230 |     center[1] = 0
231 |     center[2] = sin(100 - timestamp / 55) * 20
232 |     center[3] = cos(100 - timestamp / 55) * 15 + 22
233 | 
234 |     timestamp = timestamp + 1
235 | 
236 |     JavaScript("time0 = performance.now() / 1000")
237 | 
238 |     local database = group_save(group)
239 | 
240 |     for i = 1, n do
241 | 
242 |         local worker = workers[i]
243 |         JavaScript("$1.postMessage({array:$2,y0:$3,y1:$4,width:$5,worker:$6,scene:$7},[$2])",
244 |             worker.worker, worker.array,
245 |             worker.y, worker.y + region_height - 1,
246 |             region_width, i, database)
247 |         worker.array = nil
248 | 
249 |     end
250 | 
251 | end
252 | 
253 | coroutine.fastcall(run_workers)
254 | 
255 | end)
256 | 
257 | --
258 | -- Suspend while raytracer is running,
259 | -- stop all worker threads when we wake up
260 | --
261 | 
262 | comain = coroutine.running()
263 | coroutine.suspend()
264 | 
265 | for i = 1, g_num_workers do
266 |     print ('Stopping worker #' .. i)
267 |     local worker = g_workers[i].worker
268 |     JavaScript("$1.terminate()", worker)
269 | end
270 | print 'Stopped'
271 | 
272 | --compiler flags: --nodebug
273 | 


--------------------------------------------------------------------------------
/playground/raytracer/group.lua:
--------------------------------------------------------------------------------
  1 | 
  2 | ----------------------------------------------------
  3 | -- group object
  4 | ----------------------------------------------------
  5 | 
  6 | local new
  7 | 
  8 | ----------------------------------------------------
  9 | 
 10 | local vec_one = Vector(1,1,1)
 11 | local vec_save = assume_function(vec_one.save)
 12 | local vec_load = assume_function(vec_one.load)
 13 | 
 14 | ----------------------------------------------------
 15 | 
 16 | local infinity = assume_number(math.huge)
 17 | 
 18 | local obj_types = assume_nometa({[0]=0})
 19 | local lights    = assume_nometa({[0]=0})
 20 | 
 21 | local intersect, save, load
 22 | 
 23 | ----------------------------------------------------
 24 | -- tostring
 25 | ----------------------------------------------------
 26 | 
 27 | local function tostring(self)
 28 | 
 29 |     local n_types = #obj_types
 30 |     local n_objs = self[0]
 31 | 
 32 |     return "scene with " .. n_types .. " types"
 33 |         .. " and " .. n_objs .. " objects"
 34 | 
 35 | end
 36 | 
 37 | ----------------------------------------------------
 38 | -- define
 39 | ----------------------------------------------------
 40 | 
 41 | local function prepare_object(obj, obj_type, obj_type_index, color)
 42 | 
 43 |     assume_nometa(obj, obj_type)
 44 |     obj[-1] = obj_type_index
 45 |     obj[-2] = obj_type[2]   -- intersect
 46 |     obj[-3] = obj_type[3]   -- material
 47 |     obj[-4] = obj_type[4]   -- save
 48 |     obj[-5] = obj_type[5]   -- load
 49 |     obj[-7] = obj_type[7]   -- is light
 50 |     obj[-8] = color or vec_one
 51 | 
 52 | end
 53 | 
 54 | ----------------------------------------------------
 55 | 
 56 | local class_mt = { __index = {
 57 | 
 58 | ----------------------------------------------------
 59 | -- define
 60 | ----------------------------------------------------
 61 | 
 62 | define = function(self, obj, kind)
 63 | 
 64 |     local obj_mt = getmetatable(obj)
 65 |     local n = obj_types[0] + 1
 66 |     obj_types[n] = {
 67 |         --[[1]] obj,
 68 |         --[[2]] obj.intersect,
 69 |         --[[3]] obj.colorize,
 70 |         --[[4]] obj.save,
 71 |         --[[5]] obj.load,
 72 |         --[[6]] obj.clone,
 73 |         --[[7]] kind,
 74 |     }
 75 |     obj_types[assume_string(obj_mt)] = n
 76 |     obj_types[0] = n
 77 |     return n
 78 | 
 79 | end,
 80 | 
 81 | ----------------------------------------------------
 82 | -- insert
 83 | ----------------------------------------------------
 84 | 
 85 | insert = function(self, obj, color)
 86 | 
 87 |     assume_nometa(self)
 88 | 
 89 |     -- get the type index for the object
 90 |     local obj_mt = getmetatable(obj)
 91 |     local obj_type_index = obj_types[obj_mt]
 92 |     assert(tonumber(obj_type_index), 'unknown object type')
 93 |     local obj_type = obj_types[obj_type_index]
 94 | 
 95 |     -- prepare object to add to group
 96 |     prepare_object(obj, obj_type, obj_type_index, color)
 97 | 
 98 |     if obj_type[7] == 'light' then
 99 |         -- light object goes in the lights table,
100 |         -- which is shared by all groups
101 |         self = lights
102 |     end
103 | 
104 |     -- store the object in self[n],
105 |     -- update object count in self[0]
106 |     local n = assume_number(self[0]) + 1
107 |     self[n] = obj
108 |     self[0] = n
109 | 
110 | end,
111 | 
112 | ----------------------------------------------------
113 | -- intersect
114 | ----------------------------------------------------
115 | 
116 | intersect = function(self, ro, rd)
117 | 
118 |     assume_nometa(self)
119 | 
120 |     local min_dist = infinity
121 |     local min_obj, dist
122 | 
123 |     for i = 1, assume_number(self[0]) do
124 | 
125 |         local obj = assume_nometa(self[i])
126 | 
127 |         local obj_intersect = assume_function(obj[-2])
128 |         assume_untyped(obj)
129 |         dist, obj = obj_intersect(obj, ro, rd)
130 |         assume_number(dist)
131 | 
132 |         if dist and dist < min_dist then
133 | 
134 |             min_dist = dist
135 |             min_obj = obj
136 |         end
137 |     end
138 | 
139 |     return min_dist, min_obj
140 | 
141 | end,
142 | 
143 | ----------------------------------------------------
144 | -- colorize
145 | ----------------------------------------------------
146 | 
147 | colorize = function(self, obj, point, normal)
148 | 
149 |     assume_function(assume_nometa(obj)[-3])(obj, point, normal)
150 |     local color = assume_nometa(assume_nometa(obj)[-8])
151 |     return color[1], color[2], color[3]
152 | 
153 | end,
154 | 
155 | ----------------------------------------------------
156 | -- lighting
157 | ----------------------------------------------------
158 | 
159 | lighting = function(self, hitobj, point, normal)
160 | 
161 |     local sum = 0
162 |     for i = 1, assume_number(lights[0]) do
163 |         local obj = assume_nometa(lights[i])
164 |         local contrib = assume_number(
165 |             assume_function(obj[-3])(obj, point, normal, self, intersect, hitobj))
166 |         if contrib > 0 then sum = sum + contrib end
167 |     end
168 | 
169 |     if sum > 1 then sum = 1 end
170 |     return sum
171 | 
172 | end,
173 | 
174 | ----------------------------------------------------
175 | -- save
176 | ----------------------------------------------------
177 | 
178 | save = function(self, jsarray, jsindex)
179 | 
180 |     assume_nometa(self, jsarray)
181 | 
182 |     local return_jsarray
183 |     if not jsarray then
184 |         JavaScript("$1={array:[]};", jsarray)
185 |         jsindex = save(lights, jsarray, 0)
186 |         return_jsarray = jsarray
187 |     end
188 | 
189 |     assume_number(jsindex)
190 |     local n = self[0]
191 |     jsarray[jsindex] = n
192 |     jsindex = jsindex + 1
193 | 
194 |     for i = 1, assume_number(n) do
195 | 
196 |         local obj = assume_nometa(self[i])
197 | 
198 |         -- store object type index from obj[-1]
199 |         jsarray[jsindex] = obj[-1]
200 | 
201 |         -- call obj:save(jsarray, jsindex)
202 |         local obj_save = assume_function(obj[-4])
203 |         jsindex = assume_number(obj_save(obj, jsarray, jsindex + 1))
204 | 
205 |         -- call vec:save(jsarray, jsindex) on color
206 |         jsindex = assume_number(vec_save(obj[-8], jsarray, jsindex))
207 | 
208 |     end
209 | 
210 |     return return_jsarray or jsindex
211 | 
212 | end,
213 | 
214 | ----------------------------------------------------
215 | -- load
216 | ----------------------------------------------------
217 | 
218 | load = function(self, jsarray, jsindex)
219 | 
220 |     assume_nometa(self, jsarray)
221 | 
222 |     if not jsindex then
223 |         jsindex = load(lights, jsarray, 0)
224 |     end
225 | 
226 |     assume_number(jsindex)
227 |     local n = jsarray[jsindex]
228 |     self[0] = n
229 |     jsindex = jsindex + 1
230 | 
231 |     for i = 1, assume_number(n) do
232 | 
233 |         -- get object type index from the array
234 |         local obj_type_index = assume_number(jsarray[jsindex])
235 | 
236 |         -- get scene object at index i
237 |         local obj = assume_nometa(self[i])
238 |         if obj == nil or assume_number(obj[-1]) ~= obj_type_index then
239 |             -- create if no scene object, or different type
240 |             local obj_type = assume_nometa(obj_types[obj_type_index])
241 |             local obj_clone = assume_function(obj_type[6])  -- clone
242 |             obj = assume_nometa(obj_clone(obj_type[1]))     -- object
243 |             prepare_object(obj, obj_type, obj_type_index, Vector(0,0,0))
244 |             self[i] = obj
245 |         end
246 | 
247 |         -- call obj:load(jsarray, jsindex)
248 |         local obj_load = assume_function(obj[-5])
249 |         jsindex = assume_number(obj_load(obj, jsarray, jsindex + 1))
250 | 
251 |         -- call vec:load(jsarray, jsindex) on color
252 |         jsindex = assume_number(vec_load(obj[-8], jsarray, jsindex))
253 |     end
254 | 
255 |     return jsindex
256 | 
257 | end,
258 | 
259 | ----------------------------------------------------
260 | -- tostring
261 | ----------------------------------------------------
262 | 
263 | tostring = tostring,
264 | },
265 | __tostring = tostring,
266 | 
267 | }
268 | 
269 | intersect = class_mt.__index.intersect
270 | save = class_mt.__index.save
271 | load = class_mt.__index.load
272 | 
273 | ----------------------------------------------------
274 | -- constructor
275 | ----------------------------------------------------
276 | 
277 | new = function()
278 | 
279 |     local self = {
280 |         [-1]={},     -- types
281 |         [0]=0,       -- count
282 |     }
283 | 
284 |     setmetatable(self, class_mt)
285 |     return self
286 | 
287 | end
288 | 
289 | return new
290 | 
291 | --compiler flags: --nodebug
292 | 


--------------------------------------------------------------------------------
/playground/raytracer/index.html:
--------------------------------------------------------------------------------
 1 | <!DOCTYPE html>
 2 | <html>
 3 | <head>
 4 | <meta charset="utf-8"/>
 5 | <meta name="viewport" content="width=device-width, initial-scale=1.0">
 6 | <title>Ray Tracer Demo - Ray2</title>
 7 | <script type="text/javascript" src="core.js"></script>
 8 | <script type="text/javascript" src="driver.js"></script>
 9 | </head><body></body></html>
10 | 


--------------------------------------------------------------------------------
/playground/raytracer/light.lua:
--------------------------------------------------------------------------------
  1 | 
  2 | --
  3 | -- light
  4 | --
  5 | 
  6 | local new
  7 | 
  8 | local vtmp = Vector(0, 0, 0)
  9 | local vec_save = assume_function(vtmp.save)
 10 | local vec_load = assume_function(vtmp.load)
 11 | local vec_clone = assume_function(vtmp.clone)
 12 | local vec_set_subtracted_normalized = assume_function(vtmp.set_subtracted_normalized)
 13 | local vec_negate = assume_function(vtmp.negate)
 14 | local vec_dot = assume_function(vtmp.dot)
 15 | 
 16 | --
 17 | -- tostring
 18 | --
 19 | 
 20 | local function tostring(self)
 21 | 
 22 |     return "(light @ " .. tostring(self[1]) .. ")"
 23 | 
 24 | end
 25 | 
 26 | --
 27 | -- metatable
 28 | --
 29 | 
 30 | local class_mt = { __index = {
 31 | 
 32 | ----------------------------------------------------
 33 | -- intersect
 34 | ----------------------------------------------------
 35 | 
 36 | intersect = function(self, ro, rd)
 37 | 
 38 | end,
 39 | 
 40 | ----------------------------------------------------
 41 | -- colorize
 42 | ----------------------------------------------------
 43 | 
 44 | colorize = function(self, point, normal, group, group_intersect, hitobj)
 45 | 
 46 |     local origin = assume_nometa(self)[1]
 47 |     local dir = vtmp
 48 |     vec_set_subtracted_normalized(dir, point, origin)
 49 |     local dist, obj = group_intersect(group, origin, dir)
 50 |     if (not obj) or assume_nometa(obj) == hitobj then
 51 |         local contrib = assume_number(vec_dot(dir, normal))
 52 |         if contrib < 0 then
 53 |             return -contrib
 54 |         end
 55 |     end
 56 |     return 0
 57 | 
 58 | end,
 59 | 
 60 | ----------------------------------------------------
 61 | -- save
 62 | ----------------------------------------------------
 63 | 
 64 | save = function(self, jsarray, jsindex)
 65 | 
 66 |     assume_nometa(self)
 67 |     assume_nometa(jsarray)
 68 | 
 69 |     return vec_save(self[1], jsarray, jsindex)
 70 | 
 71 | end,
 72 | 
 73 | ----------------------------------------------------
 74 | -- load
 75 | ----------------------------------------------------
 76 | 
 77 | load = function(self, jsarray, jsindex)
 78 | 
 79 |     assume_nometa(self)
 80 |     assume_nometa(jsarray)
 81 | 
 82 |     return vec_load(self[1], jsarray, jsindex)
 83 | 
 84 | end,
 85 | 
 86 | --
 87 | -- clone
 88 | --
 89 | 
 90 | clone = function(self)
 91 | 
 92 |     assume_nometa(self)
 93 |     return new(self[1])
 94 | 
 95 | end,
 96 | 
 97 | --
 98 | -- tostring
 99 | --
100 | 
101 | tostring = tostring,
102 | },
103 | __tostring = tostring,
104 | 
105 | }
106 | 
107 | --
108 | -- constructor
109 | --
110 | 
111 | new = function(point)
112 | 
113 |     local self = {
114 |         --[[1]] vec_clone(point or vtmp),
115 |     }
116 | 
117 |     setmetatable(self, class_mt)
118 |     return self
119 | 
120 | end
121 | 
122 | return new
123 | 
124 | --compiler flags: --nodebug
125 | 


--------------------------------------------------------------------------------
/playground/raytracer/sphere.lua:
--------------------------------------------------------------------------------
  1 | 
  2 | --
  3 | -- sphere
  4 | --
  5 | 
  6 | local new
  7 | 
  8 | local vtmp = Vector(0, 0, 0)
  9 | local vec_save = assume_function(vtmp.save)
 10 | local vec_load = assume_function(vtmp.load)
 11 | local vec_clone = assume_function(vtmp.clone)
 12 | local vec_set_subtracted = assume_function(vtmp.set_subtracted)
 13 | local vec_set_subtracted_normalized = assume_function(vtmp.set_subtracted_normalized)
 14 | local dot = assume_function(vtmp.dot)
 15 | 
 16 | local sqrt = assume_function(math.sqrt)
 17 | 
 18 | --
 19 | -- tostring
 20 | --
 21 | 
 22 | local function tostring(self)
 23 | 
 24 |     return "(sphere,center=" .. tostring(self[1])
 25 |         .. ",radius=" .. tostring(self[3]) .. ")"
 26 | 
 27 | end
 28 | 
 29 | --
 30 | -- metatable
 31 | --
 32 | 
 33 | local class_mt = { __index = {
 34 | 
 35 | ----------------------------------------------------
 36 | -- intersect
 37 | ----------------------------------------------------
 38 | 
 39 | intersect = function(self, ro, rd)
 40 | 
 41 |     assume_nometa(self)
 42 |     local v = self[4]
 43 | 
 44 |     vec_set_subtracted(v, self[1], ro)
 45 |     local d = assume_number(dot(v, rd))
 46 | 
 47 |     if d >= 0 then
 48 | 
 49 |         local d2 = assume_number(dot(v, v)) - d * d
 50 |         local r2 = assume_number(self[2])
 51 | 
 52 |         if d2 <= r2 then
 53 | 
 54 |             d2 = assume_number(sqrt(r2 - d2))
 55 |             local t = d - d2
 56 |             if t < 0 then t = d + d2 end
 57 |             return t, self
 58 |         end
 59 |     end
 60 | 
 61 | end,
 62 | 
 63 | ----------------------------------------------------
 64 | -- colorize
 65 | ----------------------------------------------------
 66 | 
 67 | colorize = function(self, point, normal)
 68 | 
 69 |     assume_nometa(self)
 70 |     vec_set_subtracted_normalized(normal, point, self[1])
 71 | 
 72 | end,
 73 | 
 74 | ----------------------------------------------------
 75 | -- save
 76 | ----------------------------------------------------
 77 | 
 78 | save = function(self, jsarray, jsindex)
 79 | 
 80 |     assume_nometa(self)
 81 |     assume_nometa(jsarray)
 82 | 
 83 |     -- store center vector
 84 |     jsindex = vec_save(self[1], jsarray, jsindex)
 85 |     assume_number(jsindex)
 86 | 
 87 |     -- store radius and radius2 values
 88 |     jsarray[jsindex]     = self[3]
 89 |     jsarray[jsindex + 1] = self[2]
 90 | 
 91 |     return jsindex + 2
 92 | 
 93 | end,
 94 | 
 95 | ----------------------------------------------------
 96 | -- load
 97 | ----------------------------------------------------
 98 | 
 99 | load = function(self, jsarray, jsindex)
100 | 
101 |     assume_nometa(self)
102 |     assume_nometa(jsarray)
103 | 
104 |     -- get center vector
105 |     jsindex = vec_load(self[1], jsarray, jsindex)
106 |     assume_number(jsindex)
107 | 
108 |     -- get radius and radius2
109 |     self[3] = jsarray[jsindex]
110 |     self[2] = jsarray[jsindex + 1]
111 | 
112 |     return jsindex + 2
113 | 
114 | end,
115 | 
116 | --
117 | -- clone
118 | --
119 | 
120 | clone = function(self)
121 | 
122 |     assume_nometa(self)
123 |     return new(self[1], self[3], self[2])
124 | 
125 | end,
126 | 
127 | --
128 | -- tostring
129 | --
130 | 
131 | tostring = tostring,
132 | },
133 | __tostring = tostring,
134 | 
135 | }
136 | 
137 | --
138 | -- constructor
139 | --
140 | 
141 | new = function(center, radius, radius2)
142 | 
143 |     center = vec_clone(center or vtmp)
144 |     radius = assume_number(radius) or 0
145 |     radius2 = radius2 or (radius * radius)
146 | 
147 |     local self = {
148 |         --[[1]] center,
149 |         --[[2]] radius2,
150 |         --[[3]] radius,
151 |         --[[4]] vtmp,
152 |     }
153 | 
154 |     setmetatable(self, class_mt)
155 |     return self
156 | 
157 | end
158 | 
159 | return new
160 | 
161 | --compiler flags: --nodebug
162 | 


--------------------------------------------------------------------------------
/playground/raytracer/tracer.lua:
--------------------------------------------------------------------------------
  1 | 
  2 | ----------------------------------------------------
  3 | -- import modules into global variables
  4 | ----------------------------------------------------
  5 | 
  6 | if not Vector then
  7 | 
  8 |     --
  9 |     -- if running under playground, then worker_js
 10 |     -- already assigned these globals.  if running
 11 |     -- standalone, we need to require these.
 12 |     --
 13 | 
 14 |     Vector = require "vector"
 15 |     Sphere = require "sphere"
 16 |     Light  = require "light"
 17 |     Group  = require "group"
 18 | 
 19 | end
 20 | 
 21 | ----------------------------------------------------
 22 | 
 23 | local infinity = math.huge
 24 | assume_number(infinity)
 25 | 
 26 | ----------------------------------------------------
 27 | 
 28 | local vec_zero = Vector(0,0,0)
 29 | local vec_set_normalized = assume_function(vec_zero.set_normalized)
 30 | local vec_set_add_multiply = assume_function(vec_zero.set_add_multiply)
 31 | 
 32 | local vec_point = Vector(0,0,0)
 33 | local vec_normal = Vector(0,0,0)
 34 | 
 35 | ----------------------------------------------------
 36 | 
 37 | local group = Group()
 38 | group:define(Light(Vector(0,0,0)), 'light')
 39 | group:define(Sphere(Vector(0,0,0),0))
 40 | 
 41 | local group_load = assume_function(group.load)
 42 | local group_intersect = assume_function(group.intersect)
 43 | local group_colorize = assume_function(group.colorize)
 44 | local group_lighting = assume_function(group.lighting)
 45 | 
 46 | ----------------------------------------------------
 47 | -- ray_trace_pixel
 48 | ----------------------------------------------------
 49 | 
 50 | local function ray_trace_pixel(ro, rd)
 51 | 
 52 |     local dist, obj = group_intersect(group, ro, rd)
 53 |     if not obj then return 0.11,0.11,0.22 end
 54 | 
 55 |     --
 56 |     -- calculate color and normal at intersection
 57 |     --
 58 | 
 59 |     vec_set_add_multiply(vec_point, ro, rd, dist)
 60 |     local r, g, b = group_colorize(group, obj, vec_point, vec_normal)
 61 |     local diffuse = group_lighting(group, obj, vec_point, vec_normal)
 62 |     assume_number(r, g, b, diffuse)
 63 | 
 64 |     if (not diffuse) or diffuse < 0.1 then diffuse = 0.1 end
 65 |     diffuse = diffuse * 0.75
 66 |     r = r * diffuse
 67 |     g = g * diffuse
 68 |     b = b * diffuse
 69 |     if r > 1 then r = 1 end
 70 |     if g > 1 then g = 1 end
 71 |     if b > 1 then b = 1 end
 72 |     return r, g, b
 73 | 
 74 | end
 75 | 
 76 | ----------------------------------------------------
 77 | -- onmessage event
 78 | ----------------------------------------------------
 79 | 
 80 | local dir = Vector()
 81 | 
 82 | local function onmessage(msg)
 83 | 
 84 |     --
 85 |     -- grab the rendering parameters
 86 |     -- from the incoming message
 87 |     --
 88 | 
 89 |     local array, y0, y1, w, worker, view
 90 |     JavaScript("$1=$1.data", msg)
 91 |     local scene_jsobj
 92 |     JavaScript("[$2,$3,$4,$5,$6,$7]=[$1.array,$1.y0,$1.y1,$1.width,$1.worker,$1.scene]", msg, array, y0, y1, w, worker, scene_jsobj)
 93 |     group_load(group, scene_jsobj, nil)
 94 |     assume_number(y0,y1,w)
 95 |     JavaScript("$1=new Uint32Array($2)", view, array)
 96 | 
 97 |     --
 98 |     -- trace a ray through each pixel.  note that
 99 |     -- canvas size is hardcoded 320x240.
100 |     --
101 | 
102 |     for y = y0, y1 do
103 |         local yy = (1 - 2 * ((y + 0.5) / 240))
104 |         for x = 0, w do
105 |             local xx = (2 * ((x + 0.5) / 320) - 1)
106 |             vec_set_normalized(dir, xx, yy, 1)
107 |             local r, g, b = ray_trace_pixel(vec_zero, dir, 1)
108 |             local y = y - y0
109 |             JavaScript("$4[($6|0)*$7+($5|0)]=0xFF000000|((($3*255)&255)<<16)|((($2*255)&255)<<8)|(($1*255)&255)", r, g, b, view, x, y, w)
110 |         end
111 |     end
112 |     JavaScript("postMessage({array:$1,worker:$2},[$1])", array, worker)
113 | end
114 | 
115 | coroutine.fastcall(function()
116 |     JavaScript("onmessage=$1", (coroutine.jscallback(onmessage)))
117 | end)
118 | 
119 | --compiler flags: --nodebug
120 | 


--------------------------------------------------------------------------------
/playground/raytracer/vector.lua:
--------------------------------------------------------------------------------
  1 | 
  2 | --
  3 | -- vector
  4 | --
  5 | 
  6 | local new
  7 | 
  8 | local sqrt = assume_function(math.sqrt)
  9 | 
 10 | --
 11 | -- tostring
 12 | --
 13 | 
 14 | local function tostring(self)
 15 | 
 16 |     return "(x=" .. self[1]
 17 |         .. ",y=" .. self[2]
 18 |         .. ",z=" .. self[3] .. ")"
 19 | 
 20 | end
 21 | 
 22 | local set_normalized
 23 | 
 24 | --
 25 | -- metatable
 26 | --
 27 | 
 28 | local class_mt = { __index = {
 29 | 
 30 | --
 31 | -- set_normalized
 32 | --
 33 | 
 34 | set_normalized = function(self, x, y, z)
 35 | 
 36 |     assume_number(x, y, z)
 37 |     local len = x*x + y*y + z*z
 38 |     if len > 0 then
 39 |         JavaScript("$1=Math.sqrt($1)", len)
 40 |         --len = assume_number(sqrt(len))
 41 |         x = x / len
 42 |         y = y / len
 43 |         z = z / len
 44 |     end
 45 | 
 46 |     assume_nometa(self)
 47 |     self[1], self[2], self[3] = x, y, z
 48 | 
 49 | end,
 50 | 
 51 | --
 52 | -- set_subtracted
 53 | --
 54 | 
 55 | set_subtracted = function(self, a, b)
 56 | 
 57 |     assume_nometa(self, a, b)
 58 | 
 59 |     self[1] = assume_number(a[1]) - assume_number(b[1])
 60 |     self[2] = assume_number(a[2]) - assume_number(b[2])
 61 |     self[3] = assume_number(a[3]) - assume_number(b[3])
 62 | 
 63 | end,
 64 | 
 65 | --
 66 | -- set_subtracted_normalized
 67 | --
 68 | 
 69 | set_subtracted_normalized = function(self, a, b)
 70 | 
 71 |     assume_nometa(a, b)
 72 | 
 73 |     local x = assume_number(a[1]) - assume_number(b[1])
 74 |     local y = assume_number(a[2]) - assume_number(b[2])
 75 |     local z = assume_number(a[3]) - assume_number(b[3])
 76 | 
 77 |     set_normalized(self, x, y, z)
 78 | 
 79 | end,
 80 | 
 81 | --
 82 | -- set_add_multiply
 83 | --
 84 | 
 85 | set_add_multiply = function(self, a, b, c)
 86 | 
 87 |     assume_nometa(self, a, b)
 88 |     assume_number(c)
 89 | 
 90 |     self[1] = assume_number(a[1]) + assume_number(b[1]) * c
 91 |     self[2] = assume_number(a[2]) + assume_number(b[2]) * c
 92 |     self[3] = assume_number(a[3]) + assume_number(b[3]) * c
 93 | 
 94 | end,
 95 | 
 96 | --
 97 | -- dot
 98 | --
 99 | 
100 | dot = function(a, b)
101 | 
102 |     assume_nometa(a)
103 |     assume_nometa(b)
104 | 
105 |     -- xa * xb + ya * yb + za * zb
106 |     return assume_number(a[1]) * assume_number(b[1])
107 |     +      assume_number(a[2]) * assume_number(b[2])
108 |     +      assume_number(a[3]) * assume_number(b[3])
109 | 
110 | end,
111 | 
112 | --
113 | -- negate
114 | --
115 | 
116 | --[[negate = function(self)
117 | 
118 |     assume_nometa(self)
119 | 
120 |     self[1] = -assume_number(self[1])
121 |     self[2] = -assume_number(self[2])
122 |     self[3] = -assume_number(self[3])
123 | 
124 | end,]]
125 | 
126 | --
127 | -- reflect
128 | --
129 | 
130 | --[[reflect = function(a, b)
131 | 
132 |     assume_nometa(a, b)
133 | 
134 |     local dot = 2 * (
135 |            assume_number(a[1]) * assume_number(b[1])
136 |     +      assume_number(a[2]) * assume_number(b[2])
137 |     +      assume_number(a[3]) * assume_number(b[3]))
138 |     b[1] = b[1] * dot - a[1]
139 |     b[2] = b[2] * dot - a[2]
140 |     b[3] = b[3] * dot - a[3]
141 | 
142 | end,]]
143 | 
144 | ----------------------------------------------------
145 | -- save
146 | ----------------------------------------------------
147 | 
148 | save = function(self, jsarray, jsindex)
149 | 
150 |     assume_nometa(self)
151 |     assume_nometa(jsarray)
152 |     assume_number(jsindex)
153 | 
154 |     jsarray[jsindex + 0] = self[1]
155 |     jsarray[jsindex + 1] = self[2]
156 |     jsarray[jsindex + 2] = self[3]
157 | 
158 |     return jsindex + 3
159 | 
160 | end,
161 | 
162 | ----------------------------------------------------
163 | -- load
164 | ----------------------------------------------------
165 | 
166 | load = function(self, jsarray, jsindex)
167 | 
168 |     assume_nometa(self)
169 |     assume_nometa(jsarray)
170 |     assume_number(jsindex)
171 | 
172 |     self[1] = jsarray[jsindex + 0]
173 |     self[2] = jsarray[jsindex + 1]
174 |     self[3] = jsarray[jsindex + 2]
175 | 
176 |     return jsindex + 3
177 | 
178 | end,
179 | 
180 | --
181 | -- clone
182 | --
183 | 
184 | clone = function(self)
185 | 
186 |     assume_nometa(self)
187 |     return new(self[1], self[2], self[3])
188 | 
189 | end,
190 | 
191 | --
192 | -- tostring
193 | --
194 | 
195 | tostring = tostring,
196 | },
197 | __tostring = tostring,
198 | 
199 | }
200 | 
201 | set_normalized = class_mt.__index.set_normalized
202 | 
203 | --
204 | -- constructor
205 | --
206 | 
207 | new = function(x, y, z)
208 | 
209 |     local self = {
210 |         --[[1,2,3]] x, y, z
211 |     }
212 |     setmetatable(self, class_mt)
213 |     return self
214 | 
215 | end
216 | 
217 | return new
218 | 
219 | --compiler flags: --nodebug
220 | 


--------------------------------------------------------------------------------
/playground/raytracer/worker.js:
--------------------------------------------------------------------------------
 1 | 
 2 | onmessage = function(msg) {
 3 | 
 4 |     onmessage = undefined;
 5 | 
 6 |     if (typeof msg.data === 'object' && msg.data.hash) {
 7 | 
 8 |         //
 9 |         // invoked from playground.  first we load
10 |         // core.js from the core_url argument.
11 |         //
12 |         //
13 | 
14 |         msg = msg.data.hash;
15 |         importScripts(msg.get('core_url'));
16 |         msg.delete('core_url');
17 | 
18 |         //
19 |         // store the main chunk for processing later
20 |         //
21 | 
22 |         var main = msg.get('main');
23 |         msg.delete('main');
24 |         //console.log('main chunk', main);
25 | 
26 |         //
27 |         // we got a number of pre-compiled chunks,
28 |         // we run these and store them in _G / _ENV
29 |         //
30 | 
31 |         var load = function(func,name){
32 |             func = Function('return ' + func)();
33 |             func.env = $lua.env;
34 |             if (name) {
35 |                 var result = func().next().value;
36 |                 if (Array.isArray(result)) result = result[0];
37 |                 $lua.env.hash.set(name, result);
38 |             } else { $lua.chunk(func); }
39 |         }
40 | 
41 |         msg.forEach(load);
42 |         load(main);
43 | 
44 |     } else {
45 | 
46 |         //
47 |         // standalone version
48 |         //
49 | 
50 |         var data = msg.data;
51 |         if (typeof data === 'string')
52 |             data = [data];
53 |         if (!Array.isArray(data))
54 |             console.error('wrong argument to worker.js');
55 |         importScripts('core.js');
56 |         while (data.length > 0)
57 |             importScripts(data.shift());
58 |     }
59 | }
60 | 


--------------------------------------------------------------------------------
/playground/samples/hello_html.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | local document = require "/document"
 3 | 
 4 | 
 5 | -- load a file from the current folder as a string,
 6 | -- parse it as a new DOM document, and embed it
 7 | 
 8 | local loaded_text = io.load("hello_html_doc")
 9 | local loaded_document = document.parseFromString(loaded_text)
10 | 
11 | document.body.innerHTML = loaded_document.body.innerHTML
12 | 
13 | 
14 | -- install an onchange event handler on the input box,
15 | -- which updates the contents of the output span
16 | 
17 | document:getElementById("input").onchange =
18 | 
19 |     function(event)
20 | 
21 |         document:getElementById("output").innerHTML =
22 |             "Nice to meet you, " .. event.target.value .. "!"
23 |     end
24 | 
25 | 
26 | -- install an onclick event handler on the close button,
27 | -- which wakes up the main coroutine
28 | 
29 | local main_co = coroutine.running()
30 | 
31 | document:getElementById("close").onclick =
32 | 
33 |     function() coroutine.resume(main_co) end
34 | 
35 | 
36 | -- suspend the main coroutine.  when it is woken up
37 | -- (by the onclick event handler), the program finishes
38 | 
39 | print 'Waiting for button click'
40 | coroutine.suspend()
41 | print 'Done'
42 | 


--------------------------------------------------------------------------------
/playground/samples/hello_html_doc.html:
--------------------------------------------------------------------------------
 1 | <div style="
 2 |             width:100vw;
 3 |             height:100vh;
 4 |             background-color:red;
 5 |             color:white;
 6 |             font:18pt Arial;">
 7 | 
 8 | Hello there!
 9 | <br><br>
10 | What is your name?
11 | 
12 | <input type="text" id="input">
13 | 
14 | <br><br>
15 | <span id="output"></span>
16 | 
17 | <br><br>
18 | <input type="button" id="close" value="Close Example"
19 | style="padding: 12pt; margin-left: 25%;">
20 | 
21 | </div>
22 | 


--------------------------------------------------------------------------------
/playground/samples/hello_io.lua:
--------------------------------------------------------------------------------
1 | io.write('Hello there!\nWhat is your name?\n')
2 | local name = io.read()
3 | io.write('Hello <',name,'>,\nnice to meet you!\n')
4 | 


--------------------------------------------------------------------------------
/playground/samples/hello_world.lua:
--------------------------------------------------------------------------------
1 | print "Hello, world!"
2 | 


--------------------------------------------------------------------------------
/playground/samples/plot2d.lua:
--------------------------------------------------------------------------------
 1 | local canvas = require "includes/simple_canvas"
 2 | 
 3 | local canvas_callback = function(timestamp, width, height)
 4 |     local r = (timestamp * 11) % 255
 5 |     local g = (timestamp * 22) % 255
 6 |     local b = (timestamp * 33) % 255
 7 |     for i = 1, 25 do
 8 |         local x = math.cos(timestamp) * (100 + timestamp % 10)
 9 |         local y = math.sin(timestamp) * (100 + timestamp % 10)
10 |         canvas(x + width / 2, y + height / 2, r, g, b)
11 |         timestamp = timestamp + 0.01
12 |     end
13 | end
14 | 
15 | local document = require "/document"
16 | local input = document.body:appendChild(document:createElement("input"))
17 | input.type = "button"
18 | input.value = "STOP"
19 | input.style = "position:absolute;left:46.5vw;top:42vh;padding:25px"
20 | local main_co = coroutine.running()
21 | input.onclick = function() coroutine.resume(main_co) end
22 | 
23 | canvas = (require "includes/simple_canvas")("canvas", canvas_callback)
24 | 
25 | coroutine.suspend()
26 | 


--------------------------------------------------------------------------------
/playground/samples/print_self.lua:
--------------------------------------------------------------------------------
1 | local src
2 | JavaScript("$1=func.toString()", src)
3 | print (src)
4 | --compiler flags: --nodebug
5 | 


--------------------------------------------------------------------------------
/playground/samples/simple_canvas.lua:
--------------------------------------------------------------------------------
  1 | 
  2 | --
  3 | -- very simple canvas wrapper.  sample usage:
  4 | --
  5 | -- local canvas = require "includes/simple_canvas"
  6 | --
  7 | --      require this file, which returns a factory function
  8 | --      to create a canvas.
  9 | --
 10 | -- local function callback(timestamp, width, height)
 11 | --      canvas(
 12 | --
 13 | -- canvas = canvas(id, callback)
 14 | -- arguments:
 15 | --      id is HTML id for canvas, can be passed as nil.
 16 | --      callback, a function that will be invoked
 17 | --      through requestAnimationFrame.
 18 | --
 19 | -- for example use, see 'samples/plot2d'
 20 | --
 21 | 
 22 | local function canvas_gen_funcs(canvas)
 23 | 
 24 |     local w
 25 |     JavaScript("var ctx=$1", canvas.ctx)
 26 |     JavaScript("var img=ctx.getImageData(0,0,$1,$2)", canvas.width, canvas.height)
 27 |     JavaScript("$1=img.width", w)
 28 | 
 29 |     --[[JavaScript("var data=img.data")
 30 |     JavaScript("var data32=new Uint32Array(data.buffer)")
 31 |     local slow_pixel = function(x, y, r, g, b, a)
 32 | 
 33 |         ::update_stack_frame::
 34 |         JavaScript("var i=(($2|0)*$3+($1|0))*4", x, y, w)
 35 | 
 36 |         if r ~= nil then
 37 |             JavaScript("data[i]=($1*255)&255",   r)
 38 |             JavaScript("data[i+1]=($1*255)&255", g)
 39 |             JavaScript("data[i+2]=($1*255)&255", b)
 40 |             JavaScript("data[i+3]=($1*255)&255", a)
 41 |         else
 42 |             JavaScript("$1=data[i]",   r)
 43 |             JavaScript("$1=data[i+1]", g)
 44 |             JavaScript("$1=data[i+2]", b)
 45 |             JavaScript("$1=data[i+3]", a)
 46 |             return r, g, b, a
 47 |         end
 48 |     end]]
 49 | 
 50 |     JavaScript("var data=new Uint32Array(img.data.buffer)")
 51 |     local fast_pixel = function(x, y, r, g, b, a)
 52 | 
 53 |         ::update_stack_frame::
 54 |         JavaScript("var i=(($2|0)*$3+($1|0))", x, y, w)
 55 |         JavaScript("data[i]=((($4*255)&255)<<24)|((($3*255)&255)<<16)|((($2*255)&255)<<8)|(($1*255)&255)", r, g, b, a)
 56 |     end
 57 | 
 58 |     local paint = function()
 59 |         ::update_stack_frame::
 60 |         JavaScript("ctx.putImageData(img,0,0)")
 61 |     end
 62 | 
 63 |     return fast_pixel, paint
 64 | 
 65 | end
 66 | 
 67 | local function canvas_setup_callback(canvas_elem, callback, paint, width, height)
 68 | 
 69 |     local wrapper
 70 |     local last_timestamp = 0
 71 |     wrapper = coroutine.jscallback(
 72 |         function(_callback, _width, _height, timestamp)
 73 | 
 74 |             local ok, err =
 75 |                 pcall(_callback, timestamp, _width, _height)
 76 |             if not ok then
 77 |                 print ('canvas callback error:', err)
 78 |                 _callback(timestamp, _width, _height)
 79 |                 err = false
 80 |             end
 81 | 
 82 |             paint()
 83 |             if err == false then return end
 84 | 
 85 |             -- request another animation frame, as long
 86 |             -- as the program is still running.  assume
 87 |             -- that if the canvas is no longer in the
 88 |             -- DOM, it is because the program stopped.
 89 | 
 90 |             if timestamp - last_timestamp > 1000 then
 91 |                 local alive
 92 |                 JavaScript("$2=document.body.contains($1)", canvas_elem, alive)
 93 |                 if not alive then return end
 94 |                 last_timestamp = timestamp
 95 |             end
 96 | 
 97 |             JavaScript("window.requestAnimationFrame($1)", wrapper)
 98 |         end, callback, width, height)
 99 | 
100 |     JavaScript("window.requestAnimationFrame($1)", wrapper)
101 | 
102 | end
103 | 
104 | 
105 | local function canvas_create(canvas_id, callback_func)
106 | 
107 |     local canvas_elem
108 |     JavaScript("$1=document.getElementById($2)", canvas_elem, canvas_id)
109 |     JavaScript("if($1==null){", canvas_elem)
110 |     JavaScript(     "$1=document.createElement('canvas')", canvas_elem)
111 |     JavaScript(     "$1.id=$2", canvas_elem, canvas_id or 'canvas')
112 |     JavaScript(     "$1.width=window.innerWidth", canvas_elem)
113 |     JavaScript(     "$1.height=window.innerHeight", canvas_elem)
114 |     JavaScript(     "document.body.appendChild($1)", canvas_elem)
115 |     JavaScript("}")
116 | 
117 |     local canvas_ctx, canvas_width, canvas_height
118 |     JavaScript("$1=$2.getContext('2d')", canvas_ctx, canvas_elem)
119 |     JavaScript("$1=$2.width", canvas_width, canvas_elem)
120 |     JavaScript("$1=$2.height", canvas_height, canvas_elem)
121 | 
122 |     local t = {
123 |         elem = canvas_elem, id = canvas_id, ctx = canvas_ctx,
124 |         width = canvas_width, height = canvas_height,
125 |         image = canvas_image, data = canvas_data
126 |     }
127 |     local pixel, paint = canvas_gen_funcs(t)
128 |     canvas_setup_callback(canvas_elem, callback_func, paint, canvas_width, canvas_height)
129 | 
130 |     return pixel
131 | 
132 | end
133 | 
134 | return canvas_create
135 | 


--------------------------------------------------------------------------------
/playground/schema.sql:
--------------------------------------------------------------------------------
 1 | SET SQL_MODE = "NO_AUTO_VALUE_ON_ZERO";
 2 | SET time_zone = "+00:00";
 3 | CREATE DATABASE IF NOT EXISTS `loulabelle_playground` DEFAULT CHARACTER SET utf8 COLLATE utf8_general_ci;
 4 | USE `loulabelle_playground`;
 5 | 
 6 | CREATE TABLE `loulabelle_files` (
 7 |   `folder_name` varchar(99) NOT NULL,
 8 |   `file_name` varchar(99) NOT NULL,
 9 |   `source_text` varchar(20000) NOT NULL,
10 |   `create_time` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
11 |   `update_time` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP
12 | ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
13 | 
14 | CREATE TABLE `loulabelle_folders` (
15 |   `folder_name` varchar(99) NOT NULL,
16 |   `password` varchar(255) NOT NULL,
17 |   `public` tinyint(1) NOT NULL DEFAULT '0',
18 |   `create_time` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
19 |   `update_time` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP
20 | ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
21 | 
22 | ALTER TABLE `loulabelle_files`
23 |   ADD PRIMARY KEY (`folder_name`,`file_name`) USING BTREE;
24 | 
25 | ALTER TABLE `loulabelle_folders`
26 |   ADD PRIMARY KEY (`folder_name`) USING BTREE,
27 |   ADD KEY `system` (`public`);
28 | 
29 | ALTER TABLE `loulabelle_files`
30 |   ADD CONSTRAINT `loulabelle_files_ibfk_1` FOREIGN KEY (`folder_name`) REFERENCES `loulabelle_folders` (`folder_name`);
31 | 


--------------------------------------------------------------------------------
/playground/serverdb.php:
--------------------------------------------------------------------------------
  1 | <?php
  2 | include "mysql_compat.php";
  3 | 
  4 | function abort($error) {
  5 |     exit("<JSON>" . json_encode(array('error' => $error)));
  6 | }
  7 | 
  8 | function dbabort() {
  9 |     global $link;
 10 |     $backtrace = debug_backtrace();
 11 |     $line = $backtrace[0]['line'];
 12 |     $errstr = (isset($link) && $link != false) ? mysql_error($link) : mysql_error();
 13 |     abort("database error (line " . $line . "): " . $errstr);
 14 | }
 15 | 
 16 | $dbname = "loulabelle_playground";
 17 | $usrname = $dbname;
 18 | $usrpass = "";
 19 | if (file_exists('serverdb2.php'))
 20 |     include "serverdb2.php";
 21 | 
 22 | $link = mysql_pconnect("localhost", $usrname, $usrpass) or dbabort();
 23 | mysql_select_db($dbname, $link) or dbabort();
 24 | 
 25 | $operation = preg_replace("/\W+/", "", $_POST["op"]);
 26 | $folder = mysql_real_escape_string(preg_replace("/\W+/", "?", $_POST["folder"]), $link);
 27 | 
 28 | if ($operation == "list_folders")
 29 |     $response = op_list_folders($link, $folder);
 30 | elseif ($operation == "list_files")
 31 |     $response = op_list_files($link, $folder);
 32 | elseif ($operation == "read_file")
 33 |     $response = op_read_file($link, $folder);
 34 | elseif ($operation == "new_folder")
 35 |     $response = op_new_folder($link, $folder);
 36 | elseif ($operation == "save_file")
 37 |     $response = op_save_file($link, $folder);
 38 | elseif ($operation == "change_password")
 39 |     $response = op_change_password($link, $folder);
 40 | else
 41 |     $response = "unknown request " . $operation;
 42 | 
 43 | echo "<JSON>" . json_encode($response);
 44 | 
 45 | function op_list_folders($link, $folder) {
 46 | 
 47 |     $sql = "
 48 |         select folder_name from loulabelle_folders
 49 |         where folder_name like '" . $folder . "%'
 50 |         order by public desc, folder_name";
 51 |     $result = mysql_query($sql, $link) or dbabort();
 52 | 
 53 |     $num_rows = mysql_num_rows($result);
 54 |     $response = array('n' => $num_rows);
 55 |     for ($row_num = 0; $row_num < $num_rows; $row_num++) {
 56 |         $row = mysql_fetch_assoc($result);
 57 |         $response[$row_num + 1] = $row;
 58 |     }
 59 | 
 60 |     return $response;
 61 | }
 62 | 
 63 | function op_list_files($link, $folder) {
 64 | 
 65 |     $sql = "
 66 |         select file_name from loulabelle_files
 67 |         where folder_name = '" . $folder . "'
 68 |         order by file_name";
 69 |     $result = mysql_query($sql, $link) or dbabort();
 70 | 
 71 |     $num_rows = mysql_num_rows($result);
 72 |     $response = array('n' => $num_rows);
 73 |     for ($row_num = 0; $row_num < $num_rows; $row_num++) {
 74 |         $row = mysql_fetch_assoc($result);
 75 |         $response[$row_num + 1] = $row;
 76 |     }
 77 | 
 78 |     return $response;
 79 | }
 80 | 
 81 | function op_read_file($link, $folder) {
 82 | 
 83 |     header('Access-Control-Allow-Origin: *');
 84 | 
 85 |     $file = mysql_real_escape_string(preg_replace("/\W+/", "?", $_POST["file"]), $link);
 86 | 
 87 |     $sql = "
 88 |         select folder_name, file_name, source_text from loulabelle_files
 89 |         where folder_name = '" . $folder . "'
 90 |           and file_name = '" . $file . "'";
 91 |     $result = mysql_query($sql, $link) or dbabort();
 92 | 
 93 |     if (mysql_num_rows($result) == 0) {
 94 | 
 95 |         $sql = "
 96 |             select folder_name from loulabelle_folders
 97 |             where folder_name = '" . $folder . "'";
 98 |         $result = mysql_query($sql, $link) or dbabort();
 99 | 
100 |         if (mysql_num_rows($result) == 0)
101 |             abort('Folder not found: ' . $folder);
102 |         else
103 |             abort('File not found: ' . $file);
104 |     }
105 | 
106 |     return mysql_fetch_assoc($result);
107 | }
108 | 
109 | function op_new_folder($link, $folder) {
110 | 
111 |     if ($folder != $_POST["folder"] || strlen($folder) < 1 || strlen($folder) > 99)
112 |         abort('Invalid folder name');
113 | 
114 |     $password = $_POST["password"];
115 |     if (! preg_match("/^[a-zA-Z0-9!@#$%^&*();:<>,.?]{1,32}$/", $password))
116 |         abort('Invalid password');
117 |     $password = password_hash($password, PASSWORD_DEFAULT);
118 |     $password = mysql_real_escape_string($password, $link);
119 | 
120 |     $sql = "
121 |         insert into loulabelle_folders (folder_name, password)
122 |         values ('" . $folder . "','" . $password . "')";
123 |     $result = mysql_query($sql, $link) or dbabort();
124 | 
125 |     return array('ok' => 'ok');
126 | }
127 | 
128 | function op_save_file($link, $folder) {
129 | 
130 |     $file = mysql_real_escape_string(preg_replace("/\W+/", "?", $_POST["file"]), $link);
131 |     if ($file != $_POST["file"] || strlen($file) < 1 || strlen($file) > 99)
132 |         abort('Invalid file name');
133 | 
134 |     $sql = "
135 |         select password from loulabelle_folders
136 |         where folder_name = '" . $folder . "'";
137 |     $result = mysql_query($sql, $link) or dbabort();
138 | 
139 |     if (mysql_num_rows($result) != 1)
140 |         abort('Folder does not exist');
141 | 
142 |     $row = mysql_fetch_assoc($result);
143 |     if (! password_verify($_POST["password"], $row["password"]))
144 |         abort('Wrong password for folder');
145 | 
146 |     $source = mysql_real_escape_string($_POST["source"], $link);
147 | 
148 |     if ($source == "") {
149 | 
150 |         dbclean($link);
151 | 
152 |         $sql = "
153 |             delete from loulabelle_files
154 |             where folder_name = '" . $folder . "'
155 |               and file_name = '" . $file . "'";
156 | 
157 |     } else {
158 | 
159 |         $sql = "
160 |             insert into loulabelle_files (folder_name, file_name, source_text)
161 |             values ('" . $folder . "','" . $file . "', '" . $source . "')
162 |             on duplicate key update source_text = '" . $source . "'";
163 |     }
164 | 
165 |     $result = mysql_query($sql, $link) or dbabort();
166 | 
167 |     return array('ok' => 'ok');
168 | }
169 | 
170 | function op_change_password($link, $folder) {
171 | 
172 |     $sql = "
173 |         select password from loulabelle_folders
174 |         where folder_name = '" . $folder . "'";
175 |     $result = mysql_query($sql, $link) or dbabort();
176 | 
177 |     if (mysql_num_rows($result) != 1)
178 |         abort('Folder does not exist');
179 | 
180 |     $row = mysql_fetch_assoc($result);
181 |     if (! password_verify($_POST["password"], $row["password"]))
182 |         abort('Wrong password for folder');
183 | 
184 |     $password = $_POST["password2"];
185 |     if (! preg_match("/^[a-zA-Z0-9!@#$%^&*();:<>,.?]{1,32}$/", $password))
186 |         abort('Invalid new password');
187 |     $password = password_hash($password, PASSWORD_DEFAULT);
188 |     $password = mysql_real_escape_string($password, $link);
189 | 
190 |     $sql = "
191 |         update loulabelle_folders
192 |         set password = '" . $password . "'
193 |         where folder_name = '" . $folder . "'";
194 |     $result = mysql_query($sql, $link) or dbabort();
195 | 
196 |     return array('ok' => 'ok');
197 | }
198 | 
199 | function dbclean($link) {
200 | 
201 |     $sql = "delete from loulabelle_folders
202 |             where timestampdiff(
203 |                     minute,update_time,current_timestamp) > 0
204 |             and folder_name not in (
205 |                 select folder_name
206 |                 from loulabelle_files
207 |                 where loulabelle_folders.folder_name =
208 |                             loulabelle_files.folder_name)";
209 |     mysql_query($sql, $link);
210 | }
211 | 
212 | ?>
213 | 


--------------------------------------------------------------------------------
/playground/storage.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | local self = {}
 3 | 
 4 | local function storage_table(jsobjname)
 5 |     local jsobj
 6 |     JavaScript("try{var $1=window[$2]}catch(e){$1=undefined}", jsobj, jsobjname)
 7 |     local mt = {}
 8 | 
 9 |     mt.__index = function(self, k)
10 |         assert(getmetatable(self) == mt)
11 |         assert(type(k)=='string')
12 |         local v
13 |         if jsobj then
14 |             JavaScript("try{")
15 |             JavaScript(     "var v=$1.getItem($2)", jsobj, k)
16 |             JavaScript(     "if(typeof v==='string')$1=v", v)
17 |             JavaScript("}catch(e){}")
18 |         end
19 |         return v
20 |     end
21 | 
22 |     mt.__newindex = function(self, k, v)
23 |         assert(getmetatable(self) == mt)
24 |         assert(type(k)=='string')
25 |         if v then assert(type(v)=='string') end
26 |         local r = false
27 |         if jsobj then
28 |             JavaScript("try{")
29 |             if v then
30 |                 JavaScript( "$1.setItem($2,$3)", jsobj, k, v)
31 |             else
32 |                 JavaScript( "$1.removeItem($2)", jsobj, k)
33 |             end
34 |                             r = true
35 |             JavaScript("}catch(e){}")
36 |         end
37 |         return r
38 |     end
39 | 
40 |     mt.__pairs = function(self)
41 |         assert(getmetatable(self) == mt)
42 |         local i, n = 0
43 |         JavaScript("$2=$1.length", jsobj, n)
44 |         return function()
45 |             local k, v
46 |             if i < n then
47 |                 JavaScript("try{")
48 |                 JavaScript(     "$3=$1.key($2)", jsobj, i, k)
49 |                 JavaScript(     "var v=$1.getItem($2)", jsobj, k, v)
50 |                 JavaScript(     "if(typeof v==='string')$1=v", v)
51 |                 JavaScript("}catch(e){")
52 |                                 k = nil
53 |                 JavaScript("}")
54 |                 i = i + 1
55 |             end
56 |             return k, v
57 |         end
58 |     end
59 | 
60 |     return setmetatable({}, mt)
61 | end
62 | 
63 | --
64 | --
65 | --
66 | 
67 | return setmetatable({}, { __index = function(t, k)
68 |     local s
69 |     if k == "local" or k == "localStorage" then
70 |         s = storage_table("localStorage")
71 |         if s then
72 |             t["local"] = s
73 |             t["localStorage"] = s
74 |         end
75 |     elseif k == "session" or k == "sessionStorage" then
76 |         s = storage_table("sessionStorage")
77 |         if s then
78 |             t["session"] = s
79 |             t["sessionStorage"] = s
80 |         end
81 |     end
82 |     return s
83 | end })
84 | 


--------------------------------------------------------------------------------
/tests/build.sh:
--------------------------------------------------------------------------------
 1 | #! /bin/bash
 2 | 
 3 | LCC="lua main.lua"
 4 | TMP=/tmp/Loulabelle-test-$RANDOM
 5 | TMP_CORE=${TMP}-core
 6 | TMP_JSCR=${TMP}-jscr
 7 | TMP_OUT1=${TMP}-out1
 8 | TMP_OUT2=${TMP}-out2
 9 | 
10 | function runtest() {
11 |     while [ -n "$1" ]; do
12 | 
13 |         echo -n "Testing $1 ... "
14 |         pushd ../compiler > /dev/null
15 |         $LCC ../tests/test-$1.lua > $TMP_JSCR
16 |         popd > /dev/null
17 |         cat $TMP_CORE $TMP_JSCR | node > $TMP_OUT1
18 |         lua test-$1.lua > $TMP_OUT2
19 |         dos2unix $TMP_OUT1 > /dev/null
20 |         dos2unix $TMP_OUT2 > /dev/null
21 |         if cmp $TMP_OUT1 $TMP_OUT2; then
22 |             echo OK
23 |         else
24 |             echo FAIL
25 |             exit 0
26 |         fi
27 | 
28 |         shift
29 |     done
30 | }
31 | 
32 | function runtest2() {
33 |     while [ -n "$1" ]; do
34 | 
35 |         echo -n "Testing $1 ... "
36 |         pushd ../compiler > /dev/null
37 |         $LCC ../tests/test-$1.lua > $TMP_JSCR
38 |         popd > /dev/null
39 |         cat $TMP_CORE $TMP_JSCR | node > $TMP_OUT1
40 |         if grep -q -- "--ALL OK--" $TMP_OUT1; then
41 |             echo OK
42 |         else
43 |             echo FAIL
44 |             exit 0
45 |         fi
46 | 
47 |         shift
48 |     done
49 | }
50 | 
51 | pushd ../compiler > /dev/null
52 | $LCC core.lua > $TMP_CORE
53 | popd > /dev/null
54 | 
55 | if [ -n "$1" ]; then
56 |     runtest $1
57 |     exit 0
58 | else
59 |     runtest bits goto math misc pcall \
60 |             string-basic string-format string-regex \
61 |             table-lib vector
62 |     runtest2 coroutine datetime fastcall next-pairs
63 | fi
64 | 
65 | rm ${TMP}-*
66 | 


--------------------------------------------------------------------------------
/tests/compile.sh:
--------------------------------------------------------------------------------
1 | #! /bin/bash
2 | export LUA_PATH=../compiler/?.lua
3 | LCC="lua ../compiler/main.lua"
4 | $LCC test-$1.lua
5 | 


--------------------------------------------------------------------------------
/tests/runtest.sh:
--------------------------------------------------------------------------------
1 | #! /bin/bash
2 | export LUA_PATH=../compiler/?.lua
3 | LCC="lua ../compiler/main.lua"
4 | ($LCC ../compiler/core.lua && $LCC test-$1.lua) | node
5 | 


--------------------------------------------------------------------------------
/tests/test-bits.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | local function printBits(x) print(string.format("%X", x)) end
 3 | 
 4 | printBits (bit32.bnot(0))
 5 | printBits (bit32.bnot(bit32.bnot(0)))
 6 | 
 7 | print (bit32.btest())
 8 | print (bit32.btest(0x10,0x20))
 9 | 
10 | printBits (bit32.band())
11 | printBits (bit32.band(0x11, 0x12, 0x13, 0x14))
12 | 
13 | printBits (bit32.bor())
14 | printBits (bit32.bor(0x101, 0x202, 0x303, 0x404))
15 | 
16 | printBits (bit32.bxor())
17 | printBits (bit32.bxor(0x101, 0x202, 0x303, 0x404))
18 | 
19 | print "\tLSHIFT"
20 | 
21 | printBits (bit32.lshift(0x111, 4))
22 | printBits (bit32.lshift(0x111, -4))
23 | printBits (bit32.lshift(-0x111, 4))
24 | printBits (bit32.lshift(-0x111, -4))
25 | 
26 | print "\tRSHIFT"
27 | 
28 | printBits (bit32.rshift(0x111, 4))
29 | printBits (bit32.rshift(0x111, -4))
30 | printBits (bit32.rshift(-0x111, 4))
31 | printBits (bit32.rshift(-0x111, -4))
32 | 
33 | print "\tARSHIFT"
34 | 
35 | printBits (bit32.arshift(0x12345678, 4))
36 | printBits (bit32.arshift(-0x12345678, 4))
37 | printBits (bit32.arshift(0x12345678, -4))
38 | printBits (bit32.arshift(-0x12345678, -4))
39 | 
40 | print "\tLROTATE"
41 | 
42 | printBits (bit32.lrotate(0x12345678, 4))
43 | printBits (bit32.lrotate(-0x12345678, 4))
44 | printBits (bit32.lrotate(0x12345678, -4))
45 | printBits (bit32.lrotate(-0x12345678, -4))
46 | 
47 | print "\tRROTATE"
48 | 
49 | printBits (bit32.rrotate(0x12345678, 4))
50 | printBits (bit32.rrotate(-0x12345678, 4))
51 | printBits (bit32.rrotate(0x12345678, -4))
52 | printBits (bit32.rrotate(-0x12345678, -4))
53 | 
54 | print "\tEXTRACT"
55 | 
56 | printBits (bit32.extract(0x12345678, 0, 32))
57 | printBits (bit32.extract(0x12345678, 8, 16))
58 | 
59 | 
60 | print "\tREPLACE"
61 | 
62 | printBits (bit32.replace(0x12345678, 0x90ABCDEF, 0, 32))
63 | printBits (bit32.replace(0x12345678, 0xABCD, 8, 16))
64 | 


--------------------------------------------------------------------------------
/tests/test-compiler.lua:
--------------------------------------------------------------------------------
1 | 
2 | --local source_text = "print (1,2,3,'Hello World\n')"
3 | local source_text = "local a='Hello\\nWorld'"
4 | 
5 | local Compiler = require "Loulabelle"
6 | local js, err = Compiler("name", source_text, {})
7 | print (js,err)
8 | 


--------------------------------------------------------------------------------
/tests/test-coroutine.lua:
--------------------------------------------------------------------------------
  1 | 
  2 | local comain=coroutine.running()
  3 | 
  4 | function myco(a, coself)
  5 |     print ('entered coroutine', coroutine.running())
  6 |     print ('resuming main', comain, coroutine.resume(comain))
  7 |     if not coself then coself = coroutine.running() end
  8 |     print ('resuming self', coself, coroutine.resume(coself))
  9 |     print ('status in coroutine', coroutine.status(comain), coroutine.status(coself))
 10 |     print ((coroutine.running()),'a='..tostring(a))
 11 |     local b=coroutine.yield(a+1,a+2)
 12 |     print ((coroutine.running()),'b='..tostring(b))
 13 |     local c,d=coroutine.yield(b+1,b+2)
 14 |     print ((coroutine.running()),'c='..tostring(c)..',d='..tostring(d))
 15 |     return c+1,c+2
 16 | end
 17 | 
 18 | print '-----create-----'
 19 | 
 20 | local co = coroutine.create(myco)
 21 | print(type(myco),type(co))
 22 | print('RUNNING',coroutine.running())
 23 | print('STATE',coroutine.status(co))
 24 | print((coroutine.running()),coroutine.resume(co, 10, co))
 25 | print ('status in main', coroutine.status(comain), coroutine.status(co))
 26 | print((coroutine.running()),coroutine.resume(co, 20))
 27 | print((coroutine.running()),coroutine.resume(co, 30, 40))
 28 | print ('status in main', coroutine.status(comain), coroutine.status(co))
 29 | print((coroutine.running()),coroutine.resume(co, 40))
 30 | print ('status in main', coroutine.status(comain), coroutine.status(co))
 31 | 
 32 | print '-----wrap-----'
 33 | 
 34 | local wr = coroutine.wrap(myco)
 35 | print(type(wr))
 36 | print(wr(100))
 37 | print(wr(200))
 38 | print(wr(300,400))
 39 | 
 40 | ---
 41 | ---
 42 | ---
 43 | 
 44 | print '-----counter-----'
 45 | 
 46 | local counter=0
 47 | 
 48 | function test()
 49 |     local co, main = coroutine.running()
 50 |     if main then
 51 |         counter=counter+1
 52 |         return counter, main
 53 |     else
 54 |         while true do
 55 |             counter=counter+1
 56 |             coroutine.yield(counter, main)
 57 |         end
 58 |     end
 59 | end
 60 | 
 61 | print(test())
 62 | local test2 = coroutine.wrap(test)
 63 | print(test())
 64 | print(test2())
 65 | print(test())
 66 | print(test2())
 67 | print(test())
 68 | print(test2())
 69 | 
 70 | print '-----meta-----'
 71 | 
 72 | ---
 73 | ---
 74 | ---
 75 | 
 76 | local co1 = coroutine.create(myco)
 77 | local co2 = coroutine.create(myco)
 78 | debug.setmetatable(co1, {__index=coroutine})
 79 | print (debug.getmetatable(co1), debug.getmetatable(co2))
 80 | print (co1:resume(10))
 81 | print (co2:resume(10))
 82 | 
 83 | 
 84 | ---
 85 | --- multival resume
 86 | ---
 87 | 
 88 | 
 89 | local function multiRet1() return 1, 2, 3 end
 90 | local function multiRet2() return 4, 5, 6 end
 91 | 
 92 | local co = coroutine.create(function(a, b, c)
 93 |     print ('#1', a, b, c)
 94 |     assert(a == 1 and b == 2 and c == 3)
 95 |     a, b, c = coroutine.yield()
 96 |     print ('#2', a, b, c)
 97 |     assert(a == 4 and b == 5 and c == 6)
 98 | end)
 99 | 
100 | local ok = coroutine.resume(co, multiRet1())
101 | if ok then ok = coroutine.resume(co, multiRet2()) end
102 | if not ok then error ('MULTIVAL TEST FAIL') end
103 | 
104 | 
105 | ---
106 | ---
107 | ---
108 | 
109 | if coroutine.spawn then
110 | 
111 |     coroutine.sleep(1000)
112 | 
113 |     print '-----spawn-----'
114 | 
115 |     local function spawned()
116 |         print 'spawn'
117 |         coroutine.sleep(1000)
118 |         print 'slept'
119 |         print '-----ALL OK-----'
120 |     end
121 | 
122 |     coroutine.spawn(spawned)
123 | 
124 | end
125 | 


--------------------------------------------------------------------------------
/tests/test-datetime.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | local function prt(...)
 3 |     local n = select('#', ...)
 4 |     for i = 1, n do
 5 |         local t = select(i, ...)
 6 |         if type(t) == "table" then
 7 |             print ("YYYY/MM/DD [YDAY,WDAY] HH:MM:SS [DST] = "
 8 |                 .. tostring(t.year) .. "/" .. tostring(t.month) .. "/" .. tostring(t.day)
 9 |                 .. " [" .. tostring(t.yday) .. "," .. tostring(t.wday) .. "] "
10 |                 .. tostring(t.hour) .. ":" .. tostring(t.min) .. ":" .. tostring(t.sec)
11 |                 .. " [" .. tostring(t.isdst) .. "]")
12 |         elseif type(t) == "number" then
13 |             print ("UNIX Time = " .. tostring(t))
14 |         else
15 |             print ("Date String = " .. t)
16 |         end
17 |     end
18 | end
19 | 
20 | --
21 | -- note, this test may fail in some timezones,
22 | -- because Date() in Node.js does not handle timezones correctly
23 | --
24 | 
25 | local time = (os.time { year = 1989, day = 0, month = 11, isdst = false })
26 | local date = os.date("*t", 0)
27 | prt(time,date)
28 | 
29 | local time = (os.time { year = 1989, day = 0, month = 1, isdst = false})
30 | local date = os.date("*t", time)
31 | prt(time,date)
32 | 
33 | print '-----ALL OK-----'
34 | 


--------------------------------------------------------------------------------
/tests/test-fastcall.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | --local TIMES = 8555111
 3 | local TIMES = 555111
 4 | 
 5 | function clock(start1,start2)
 6 |     JavaScript("if (typeof window === 'undefined') {\z
 7 |         if (!$1) return process.hrtime();\z
 8 |         var end = process.hrtime([$1,$2]);\z
 9 |         return [Math.round((end[0]*1000) + (end[1]/1000000))];\z
10 |     } else {\z
11 |         if (!$1) return [performance.now()];\z
12 |         var end = performance.now();\z
13 |         return [end - $1];\z
14 |     }", start1, start2)
15 | end
16 | 
17 | function timeIt(f, TIMES, msg)
18 |     local start1, start2 = clock()
19 |     local sum = 0
20 |     for i = 0, TIMES-1 do
21 |         sum = sum + f(i)
22 |     end
23 |     local diff = clock(start1, start2)
24 |     print(msg, 'SUM=', sum, 'TIME=', diff)
25 | end
26 | 
27 | function f1a(i) return i*i end
28 | 
29 | t = { [1]=1, k=2 }
30 | function f2a(i) local z = 'k' return t[1]+t.k+t[z] end
31 | 
32 | print "TIMING SLOW 1" timeIt(f1a, TIMES, 'SLOW')
33 | print "TIMING FAST 1" coroutine.fastcall(timeIt, f1a, TIMES, 'FAST')
34 | 
35 | print "TIMING SLOW 2" timeIt(f2a, TIMES, 'SLOW')
36 | print "TIMING FAST 2" coroutine.fastcall(timeIt, f2a, TIMES, 'FAST')
37 | 
38 | -----------------------------------
39 | 
40 | --
41 | -- test upvalue references in fastcall
42 | --
43 | 
44 | local function gen_test()
45 | 
46 |     local v0
47 |     local v = 'v1'
48 |     return function()
49 |         return (function() return v end)()
50 |     end
51 | 
52 | end
53 | 
54 | local function test_test(f)
55 | 
56 |     local v = 'v2'
57 |     coroutine.fastcall(f)
58 | 
59 | end
60 | 
61 | local f = gen_test()
62 | assert(f() == coroutine.fastcall(f))
63 | 
64 | --------------------------------------
65 | 
66 | print '-----ALL OK-----'
67 | 


--------------------------------------------------------------------------------
/tests/test-goto.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | local str = "abcdefghi"
 3 | while true do
 4 |     do
 5 |         local idx = 1
 6 |         repeat
 7 |             ::start_loop::  -- ignored label
 8 |             repeat
 9 |                 local x = str:sub(idx,idx)
10 |                 print (x)
11 |                 -- breaking out of the main 'while' loop:
12 |                 if x >= "e" then goto exit_program end
13 |                 -- breaking out of this loop
14 |                 goto exit_loop;
15 |             until false
16 |             ::exit_loop::
17 |             idx = idx + 1
18 |             -- continue into outer loop
19 |             while true do
20 |                 goto continue_loop;
21 |                 print 'unreachable 1'
22 |             end
23 |             ::continue_loop::
24 |         until idx == 99
25 |     end
26 |     print 'unreachable 2'
27 |     ::cont::
28 | end
29 | ::exit_program::
30 | 


--------------------------------------------------------------------------------
/tests/test-load.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | local sep = '-------------'
 3 | 
 4 | function t1(arg)
 5 |     print (sep)
 6 |     print 'Global Table:'
 7 |     for k,v in pairs(_G) do print(k) end
 8 |     --[[if t2 then
 9 |         local t3 = load(string.dump(t2), nil, nil)
10 |         t3()
11 |     end]]
12 |     ;(function()
13 |         print ('LUA VERSION IS', _VERSION)
14 |     end)()
15 | end
16 | 
17 | t1()
18 | local dummy_env = { print = print, pairs = pairs, string = string, load = load }
19 | dummy_env._G = dummy_env
20 | local t2 = load(string.dump(t1), nil, nil, dummy_env)
21 | dummy_env.t2 = t2
22 | t2()
23 | 


--------------------------------------------------------------------------------
/tests/test-manual.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | --
 3 | -- next
 4 | --
 5 | 
 6 | t = { 1000, 2000, 3000, 4000 }
 7 | 
 8 | k1 = next(t)
 9 | while k1 do
10 |     print ('K1', k1)
11 |     k2 = next(t)
12 |     while k2 do
13 |         print ('K2', k2)
14 |         k2 = next(t, k2)
15 |     end
16 |     k1 = next(t, k1)
17 | end
18 | 
19 | --
20 | -- next
21 | --
22 | 
23 | local main = coroutine.running()
24 | local f = function(three, four, six)
25 |     print (three)
26 |     coroutine.resume(main)
27 |     print (four)
28 |     coroutine.suspend()
29 |     print (six)
30 | end
31 | print '#1'
32 | local co = coroutine.spawn(f, '#3', '#4', '#6')
33 | print '#2'
34 | coroutine.suspend()
35 | print '#5'
36 | coroutine.resume(co)
37 | 
38 | --
39 | -- regex
40 | --
41 | 
42 | if not string.regex then
43 |     string.regex = function(s) return s end
44 | end
45 | 
46 | local pattern = string.regex("([A-Z])([a-z]*)")
47 | local iterator = string.gmatch("Quick Brown Fox", pattern)
48 | while true do
49 |     local cap1, cap2 = iterator()
50 |     if cap1 then print (cap1, cap2) else break end
51 | end
52 | 


--------------------------------------------------------------------------------
/tests/test-math.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | if not math.acosh then
 3 |     local rngseed = 1
 4 |     math.random = function(a)
 5 |         local r = math.sin(rngseed)*10000
 6 |         r = r - math.floor(r)
 7 |         rngseed = rngseed + 1
 8 |         return r
 9 |     end
10 | end
11 | 
12 | --print ("Formatted", "Printed")
13 | 
14 | local printnum=function(n)
15 |     n = tostring(math.floor(n * 1000000) / 1000000)
16 |     -- print(string.format("%6f", n), n)
17 |     print(string.format("%6f", n))
18 | end
19 | 
20 | for i=1,10 do
21 |     local n1 = math.random()
22 |     n1 = math.pow(n1,math.random()*math.exp(i))
23 |     local m, e = math.frexp(n1)
24 |     local n2 = math.ldexp(m, e)
25 |     printnum(n2)
26 | end
27 | 


--------------------------------------------------------------------------------
/tests/test-misc.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | 
 3 | --
 4 | -- variables scope
 5 | --
 6 | 
 7 | local x = 5
 8 | repeat
 9 |     print('Loop Iteration')
10 |     local x = 1
11 | until x == 1
12 | print(x)
13 | 
14 | 
15 | --
16 | -- multiple results
17 | --
18 | 
19 | function x(...) return ... end
20 | function y(...) return 4, 5, 6, ... end
21 | 
22 | print ('global x?', _G.x ~= nil)
23 | print ('global y?', _G.y ~= nil)
24 | 
25 | print (x(1,2,3))
26 | print (y(1,2,3))
27 | 
28 | local flag = false
29 | local f = function() return "OneOfTwo", "TwoOfTwo" end
30 | local a, b = flag and f() or "JustOne"
31 | print (a,b)
32 | 
33 | 
34 | --
35 | -- select
36 | --
37 | 
38 | 
39 | print(select('#'))
40 | print(select('#', 123, 456, 789))
41 | print(select(1, 123, 456, 789))
42 | print(select(2, 123, 456, 789))
43 | print(select(3, 123, 456, 789))
44 | print(select(-3, 123, 456, 789))
45 | print(select(4, 123, 456, 789))     -- empty line
46 | print(tonumber("X"))                -- prints 'nil'
47 | 
48 | 


--------------------------------------------------------------------------------
/tests/test-next-pairs.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | --
 3 | -- this is not a good test, and produces different results
 4 | -- between Lua and Loulabelle, due to different ordering
 5 | -- of Lua tables vs JavaScript hashes
 6 | --
 7 | 
 8 | local t = { 123, 456, 111, 789, a='val_a', b='val_b', c=nil, [true]='val_true', [false]='val_false' }
 9 | t[3]=nil
10 | 
11 | local i, j
12 | repeat
13 |     i = next(t, i)
14 |     if i == 4 then
15 |         print("out of order 'next' for 2 = ", next(t, 2))
16 |         print("out of order 'next' for 'c' = ", next(t, 'c'))
17 |         i = nil
18 |     end
19 | until i == nil
20 | 
21 | print('NEXT LOOP')
22 | local i
23 | while true do
24 |     i = next(t, i)
25 |     if i == nil then break end
26 |     print(i, t[i])
27 | end
28 | 
29 | print('PAIRS LOOP')
30 | local t_save=t
31 | for k,v in pairs(t) do
32 |     print(k,v)
33 |     if (#tostring(k) < 20 and t) then
34 |         t[tostring(k)..tostring(k)]='HELLO'
35 |     else t = nil end
36 | end
37 | 
38 | print('IPAIRS LOOP')
39 | t=t_save
40 | t[3]=102030
41 | for k,v in ipairs(t) do
42 |     print(k,v)
43 | end
44 | 
45 | print('TABLE CONSTRUCTION WITH MULTIPLE VALUES')
46 | local function ret123() return 4, 5, 6 end
47 | t = { 1, 2, 3, ret123() }
48 | for k,v in pairs(t) do print (k,v) end
49 | 
50 | print('TABLE DELETE LOOP')
51 | t[0x5p-5] = 'Test'
52 | t['Test'] = 'Test'
53 | while true do
54 |     local k = next(t)
55 |     if not k then break end
56 |     print ('DELETING', k)
57 |     t[k] = nil
58 | end
59 | for k,v in pairs(t) do print (k,v) end
60 | 
61 | print('ANOTHER ITERATION TEST')
62 | local t = {}
63 | t[-7] = 'MinusSeven'
64 | t[-1] = 'MinusOne'
65 | t[0] = 'Zero'
66 | t[1] = 'PlusOne'
67 | t[7] = 'PlusSeven'
68 | print 'IPAIRS'
69 | for k,v in ipairs(t) do print (k,v) end
70 | print 'PAIRS'
71 | for k,v in pairs(t) do print (k,v) end
72 | 
73 | print '-----ALL OK-----'
74 | 


--------------------------------------------------------------------------------
/tests/test-pcall.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | function fError(a,b,c)
 3 |     print("function entered with argument", a,b,c)
 4 |     if a > 600 then error(99) end
 5 |     if a > 400 then error("error_message") end
 6 |     return 99, 98, 97, 96
 7 | end
 8 | 
 9 | print "* normal"
10 | 
11 | local x1, x2, x3 = fError(111, 222, 333)
12 | print("results:", x1, x2, x3)
13 | 
14 | print "* pcall"
15 | 
16 | x1, x2, x3 = pcall(fError, 111, 222, 333)
17 | print("results:", x1, x2, x3)
18 | 
19 | x1, x2, x3 = pcall(fError, 456)
20 | print("results:", x1, x2, x3)
21 | 
22 | x1, x2, x3 = pcall(fError, 789)
23 | print("results:", x1, x2, x3)
24 | 
25 | print "* xpcall"
26 | 
27 | local x_count=0
28 | tMsgH=function(a,b,c)
29 |     print ("error handler args:", a, b, c)
30 |     x_count = x_count + 1
31 |     error("X" .. tostring(x_count))
32 |     return "?"
33 | end
34 | 
35 | x1, x2, x3 = xpcall(fError, nil, 111, 222, 333)
36 | print("results:", x1, x2, x3)
37 | 
38 | --[[
39 | 
40 | x1, x2, x3 = xpcall(fError, tMsgH, 456)
41 | print("results:", x1, x2, x3)
42 | 
43 | x1, x2, x3 = xpcall(fError, tMsgH, 789)
44 | print("results:", x1, x2, x3)
45 | 
46 | print '---'
47 | x1, x2, x3 = xpcall('ABC', tMsgH, 10101010)
48 | print("results:", x1, x2, x3)
49 | 
50 | ]]
51 | 


--------------------------------------------------------------------------------
/tests/test-string-basic.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | print (tostring(0x5678), string.len(0x5678))
 3 | 
 4 | print ('<'..''..'>')
 5 | print (string.rep('X', -1, ',')..'Z')
 6 | print (string.rep('X', 0, nil)..'Z')
 7 | print (string.rep('X', 1, ',')..'Z')
 8 | print (string.rep('X', 2, ',')..'Z')
 9 | print (string.rep('X', 3)..'Z')
10 | 
11 | print (("Hello"):lower())
12 | print (("World"):upper())
13 | print (("abcdef"):reverse())
14 | 
15 | print (string.sub("Hello,World",2,-2))
16 | print (string.sub("Hello,World",4,-4))
17 | print (string.sub("Hello,World",6,-6))
18 | print (string.sub("Hello,World",6,6))
19 | print (string.sub("Hello,World",7))
20 | print (string.sub("Hello,World",-5))
21 | 
22 | print (string.char())
23 | print (string.char(65,66,67,68,69))
24 | 
25 | print (string.byte("Hello,World"))
26 | print (string.byte("Hello,World", -1))
27 | print (string.byte("Hello,World", 1, -1))
28 | print (string.byte("Hello,World", -4, -1))
29 | 


--------------------------------------------------------------------------------
/tests/test-string-format.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | if string.format("%.0e", 0.00001) == "1e-005" then
 3 |     print "===================================================================="
 4 |     print "warning, detected printf() which prints a three-digit exponent."
 5 |     print "see https://msdn.microsoft.com/en-us/library/0fatw238(v=vs.110).aspx"
 6 |     print "to fix, recompile lua with _set_output_format(_TWO_DIGIT_EXPONENT)"
 7 |     print "===================================================================="
 8 | end
 9 | 
10 | --
11 | -- in addition to above, note also that Windows printf rounds
12 | -- differently than other implementations, including Node.js,
13 | -- which means this test might fail when it runs on Windows,
14 | -- unless we carefully pick fractions that round the same on
15 | -- all implementations, for example .125.
16 | --
17 | 
18 | print "123456789012345678901234567890123456789012345678901234567890"
19 | 
20 | print (string.format("%#.12X", 1e6))
21 | 
22 | print (string.format("%f", 3433543453))
23 | print (string.format("%f", 3453534335434534550930986598459684956849568364564563))
24 | 
25 | print (string.format("%.10f", 123456789.125))
26 | print (string.format("%.16f", .34335434534550930986598459684956849568364564563))
27 | print (string.format("%.20f", 1e-20))
28 | 
29 | print (string.format("%.0f", 0.34335434534550930986598459684956849568e22))
30 | print (string.format("%g", 44))
31 | 
32 | print (string.format("%.0g", 0.1))
33 | print (string.format("%.0g", 0.01))
34 | print (string.format("%.0g", 0.001))
35 | print (string.format("%.0g", 0.0001))
36 | print (string.format("%.0g", 0.00001))
37 | 
38 | print (string.format("%.20e", 1.4140625))
39 | print (string.format("%.20g", 1.4140625))
40 | print (string.format("%.20f", 1.4140625))
41 | 
42 | print (string.format("%.20e", 1234.4853515625))
43 | print (string.format("%.20g", 1234.4853515625))
44 | print (string.format("%.20f", 1234.4853515625))
45 | 
46 | print (string.format("%#.10e", 1234.4853515625))
47 | print (string.format("%#.10g", 1234.4853515625))
48 | print (string.format("%#.10f", 1234.4853515625))
49 | 
50 | print (string.format("%#.10e", 1.4140625))
51 | print (string.format("%#.10g", 1.4140625))
52 | print (string.format("%#.10f", 1.4140625))
53 | 


--------------------------------------------------------------------------------
/tests/test-string-regex.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | string.regex = string.regex or function(s) return s end
 3 | 
 4 | local pattern_wcap = string.regex("([A-Z])([a-z]*)([ ]?)")  -- with capture
 5 | local pattern_ncap = string.regex("[A-Z][a-z]*[ ]?")        -- no captures
 6 | 
 7 | --print "12345678901234567890"
 8 | --print "Quick Brown Fox"
 9 | 
10 | --print ("find  own @", string.find("Quick Brown Fox", "own", nil, true))
11 | --print ("match own @", string.match("Quick Brown Fox", "own\\"))
12 | 
13 | print "FIND-1"
14 | 
15 | local idx = -20
16 | while idx do
17 |     local idx1, idx2, cap1, cap2, cap3, cap4 = string.find("Quick Brown Fox", pattern_wcap, idx + 1)
18 |     print ("find ", idx1, idx2, cap1, cap2, '<'..tostring(cap3)..'>', cap4)
19 |     idx = idx1
20 | end
21 | 
22 | print "FIND-2"
23 | 
24 | local idx = -20
25 | while idx do
26 |     local idx1, idx2, cap1, cap2, cap3, cap4 = string.find("Quick Brown Fox", pattern_ncap, idx + 1)
27 |     print ("find ", idx1, idx2, cap1, cap2, '<'..tostring(cap3)..'>', cap4)
28 |     idx = idx1
29 | end
30 | 
31 | print "MATCH-1"
32 | 
33 | local idx = -20
34 | while idx do
35 |     local cap1, cap2, cap3, cap4 = string.match("Quick Brown Fox", pattern_wcap, idx + 1)
36 |     print ("match ", idx, cap1, cap2, '<'..tostring(cap3)..'>', cap4)
37 |     idx = cap1 and (idx + 2)
38 | end
39 | 
40 | print "MATCH-2"
41 | 
42 | local idx = -20
43 | while idx do
44 |     local cap1, cap2 = string.match("Quick Brown Fox", pattern_ncap, idx + 1)
45 |     print ("match ", idx, '<'..tostring(cap1)..'>', cap2)
46 |     idx = cap1 and (idx + 2)
47 | end
48 | 
49 | print "GMATCH-1"
50 | 
51 | local iter = string.gmatch("Quick Brown Fox", pattern_wcap)
52 | while true do
53 |     local cap1, cap2, cap3, cap4 = iter()
54 |     print (cap1,cap2,'<'..tostring(cap3)..'>', cap4)
55 |     if not cap1 then break end
56 | end
57 | 
58 | print "GMATCH-2"
59 | 
60 | local iter = string.gmatch("Quick Brown Fox", pattern_ncap)
61 | while true do
62 |     local cap1, cap2, cap3, cap4 = iter()
63 |     print (cap1,cap2,'<'..tostring(cap3)..'>', cap4)
64 |     if not cap1 then break end
65 | end
66 | 
67 | print "GSUB-1"
68 | 
69 | print (string.gsub("12345: Hello, World Today: 54321", pattern_wcap, "<%1:%2:%3>"))
70 | print (string.gsub("12345: Hello, World Today: 54321", pattern_wcap, "<%0>"))
71 | print (string.gsub("12345: Hello, World Today: 54321", pattern_ncap, "<%1>"))
72 | 
73 | print (string.gsub("12345: Hello, World Today: 54321", pattern_wcap, function(a,b,c) print(a,b,c) return false end))
74 | print (string.gsub("12345: Hello, World Today: 54321", pattern_wcap, function(a,b,c) print(a,b,c) return false end))
75 | 
76 | local t_rep = setmetatable({}, {__index=function(t,k) print("index event for",k) return string.upper(k) end })
77 | print (string.gsub("12345: Hello, World Today: 54321", pattern_ncap, t_rep))
78 | 


--------------------------------------------------------------------------------
/tests/test-table-lib.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | t = { 'a', 'b', 'c' }
 3 | 
 4 | print (t[1], t[2], t[3])
 5 | print (t['1'], t['2'], t['3'])
 6 | 
 7 | print (table.concat(t, ':'))
 8 | 
 9 | table.insert(t, 'z')
10 | 
11 | for k,v in pairs(t) do print (k,v) end print('---')
12 | 
13 | print(table.remove(t, 4))
14 | 
15 | for k,v in pairs(t) do print (k,v) end print('---')
16 | 
17 | t = table.pack('x', 'y', 666, 'z')
18 | for k,v in pairs(t) do print (k,v) end print('---')
19 | 
20 | print (table.unpack(t)) print('---')
21 | 
22 | for i=5, 55 do t[i] = string.char((i % 13) + 65) end
23 | table.sort(t, function(a,b)
24 |     a=tostring(a)
25 |     b=tostring(b)
26 |     print ('comparing', a, b)
27 |     return (tostring(a)<tostring(b))
28 | end)
29 | for k,v in pairs(t) do print (k,v) end print('---')
30 | 
31 | t = {  }
32 | t[1] = '1'
33 | t[-70] = 'Minus'
34 | t[7.5] = 'Dot'
35 | t["X"] = 'Y'
36 | table.insert(t,1,'First')
37 | t[2] = 'Second'
38 | t[12] = 'Twelve'
39 | t2 = {}
40 | for k,v in pairs(t) do
41 |     table.insert(t2, tostring(k) .. '\t' .. tostring(v))
42 | end
43 | table.sort(t2)
44 | print (table.concat(t2, "\n"))
45 | print('---')
46 | 


--------------------------------------------------------------------------------
/tests/test-vector.lua:
--------------------------------------------------------------------------------
 1 | 
 2 | local Vector = {}
 3 | setmetatable(Vector, {
 4 | 
 5 |     __index = {
 6 |         class = 'Vector',
 7 |         self = function(v) return v end,
 8 |         print = function(v) print (v) end,
 9 |         constant = 1234
10 |     },
11 | 
12 |     __add = function(a,b)
13 |                 return Vector(a.x+b.x, a.y+b.y)
14 |             end,
15 | 
16 |     __call = function(v, x, y)
17 |                 return setmetatable({ x=x, y=y }, getmetatable(Vector))
18 |             end,
19 | 
20 |     __tostring = function(v)
21 |                 return v.class.." X="..tostring(v.x).." Y="..tostring(v.y)
22 |             end,
23 | 
24 |     __len = function(v) return ("length as string") end
25 | 
26 | })
27 | 
28 | local v1 = Vector(10, 20)
29 | local v2 = Vector(30, 40)
30 | 
31 | print (v1)
32 | print (v2)
33 | print (v1 + v2)
34 | 
35 | print (v1:self().constant)
36 | v1:self():print()
37 | 
38 | print (#v1)
39 | 


--------------------------------------------------------------------------------