annotate src/lib/Utils.luan @ 39:df72d5d5d9dc

add cache_control
author Franklin Schmidt <fschmidt@gmail.com>
date Sun, 10 Aug 2025 06:25:35 +0900
parents d34d709a7a8e
children cc20eebaa74a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
1 local Luan = require "luan:Luan.luan"
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
2 local error = Luan.error
9
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
3 local pairs = Luan.pairs or error()
39
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
4 local type = Luan.type or error()
2
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
5 local Http = require "luan:http/Http.luan"
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
6
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
7
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
8 local Utils = {}
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
9
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
10 function Utils.base_url()
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
11 local request = Http.request
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
12 return request.scheme.."://"..request.headers["Host"]
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
13 end
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
14
9
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
15 function Utils.shallow_copy(t)
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
16 local rtn = {}
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
17 for key, val in pairs(t) do
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
18 rtn[key] = val
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
19 end
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
20 return rtn
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
21 end
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
22
39
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
23 local function deep_copy2(v,map)
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
24 if type(v) ~= "table" then
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
25 return v
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
26 end
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
27 local v2 = map[v]
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
28 if v2 ~= nil then
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
29 return v2
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
30 end
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
31 local t = {}
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
32 map[v] = t
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
33 for key, val in pairs(v) do
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
34 t[deep_copy2(key,map)] = deep_copy2(val,map)
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
35 end
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
36 return t
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
37 end
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
38
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
39 local function deep_copy(v)
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
40 return deep_copy2(v,{})
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
41 end
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
42 Utils.deep_copy = deep_copy
df72d5d5d9dc add cache_control
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
43
32
Franklin Schmidt <fschmidt@gmail.com>
parents: 16
diff changeset
44 --[[
16
f5425a3c1898 add languages
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
45 function Utils.get_first(t)
f5425a3c1898 add languages
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
46 return pairs(t)()
f5425a3c1898 add languages
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
47 end
32
Franklin Schmidt <fschmidt@gmail.com>
parents: 16
diff changeset
48 ]]
16
f5425a3c1898 add languages
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
49
2
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
50 return Utils