1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
require 'mmm'
import get_path from require 'build.util'
import tohtml from require 'mmm.component'
import Browser from require 'mmm.mmmfs.browser'
import header, footer from require 'build.layout'
export BROWSER
-- usage:
-- moon render.moon <path_to_root>
{ path_to_root } = arg
assert path_to_root, "please specify the relative root path"
path = get_path path_to_root
do
seed = (str) ->
len = #str
rnd = -> math.ceil math.random! * len
math.randomseed len
return if len == 0
upper, lower = 0, 0
for i=1,4
upper += str\byte rnd!
upper *= 0x100
lower += str\byte rnd!
lower *= 0x100
math.randomseed upper, lower
seed path
root = dofile '$bundle.lua'
assert root, "couldn't load $bundle.lua"
root\mount path, true
BROWSER = Browser root, path
with io.open 'index.html', 'w'
\write "<!DOCTYPE html>
<html>
<head>
<meta charset=\"UTF-8\">
<title>MMM: lunar low-gravity scripting playground</title>
<link rel=\"stylesheet\" type=\"text/css\" href=\"/main.css\" />
<!--
<link rel=\"preload\" as=\"fetch\" href=\"/mmm/dom/init.lua\" />
<link rel=\"preload\" as=\"fetch\" href=\"/mmm/component/init.lua\" />
<link rel=\"preload\" as=\"fetch\" href=\"/mmm/mmmfs/init.lua\" />
<link rel=\"preload\" as=\"fetch\" href=\"/mmm/mmmfs/fileder.lua\" />
<link rel=\"preload\" as=\"fetch\" href=\"/mmm/mmmfs/browser.lua\" />
-->
<link href=\"https://fonts.googleapis.com/css?family=Source+Sans+Pro:200,400\" rel=\"stylesheet\">
</head>
<body>
#{header}
#{assert (tohtml BROWSER), "couldn't render BROWSER"}
#{footer}
<script src=\"/highlight.pack.js\"></script>
<script src=\"//cdnjs.cloudflare.com/ajax/libs/marked/0.5.1/marked.min.js\"></script>
<script src=\"//cdnjs.cloudflare.com/ajax/libs/svg.js/2.6.6/svg.min.js\"></script>
<script src=\"/fengari-web.js\"></script>
<script type=\"application/lua\" src=\"/mmm.bundle.lua\"></script>
<script type=\"application/lua\">require 'mmm'</script>
<script type=\"application/lua\">
on_load = on_load or {}
table.insert(on_load, function()
local path = #{string.format '%q', path}
local browser = require 'mmm.mmmfs.browser'
local root = dofile '/$bundle.lua'
root:mount('', true)
BROWSER = browser.Browser(root, path, true)
end)
</script>
</body>
</html>"
\close!
|
