annotate src/lib/Utils.luan @ 14:47b00cce8b53

stt
author Franklin Schmidt <fschmidt@gmail.com>
date Tue, 29 Jul 2025 00:12:05 -0600
parents 46097e607701
children f5425a3c1898
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()
2
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
4 local Http = require "luan:http/Http.luan"
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
5
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
6
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
7 local Utils = {}
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
8
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
9 function Utils.base_url()
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
10 local request = Http.request
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
11 return request.scheme.."://"..request.headers["Host"]
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
12 end
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
13
9
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
14 function Utils.shallow_copy(t)
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
15 local rtn = {}
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
16 for key, val in pairs(t) do
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
17 rtn[key] = val
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
18 end
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
19 return rtn
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
20 end
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
21
2
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
22 return Utils