calendar

1.6 KB

1. // lib/util.hl — SMALL SHARED HELPERS (calendar mission 001, code order; as in notes): the environment, the table folder, lists and the
2. // id checks. Each lives here once; the topic files import them.
3. import { env } from 'hl:proc'
5. // an environment variable (or `.env` beside project.hl), trimmed; unset or blank → fallback
6. static envOr = (name, fallback) => {
7. v = env(name)
8. return v != null && v.trim() != '' ? v.trim() : fallback
9. }
11. // CALENDAR_STORAGE = the table directory (default ./storage/mpackdb, relative to project.hl)
12. static storageDir = envOr('CALENDAR_STORAGE', './storage/mpackdb')
14. static countOfList = (list) => {
15. if (list == null) { return 0 }
16. n = list.length
17. return n == null ? 0 : n
18. }
19. static firstOf = (list) => { return countOfList(list) > 0 ? list[0] : null }
21. // only lowercase hex (ident's one-time codes are 48 hex)
22. static isHex = (s, max) => {
23. if (s == null || hlTypeName(s) != 'String' || s.length == 0 || s.length > max) { return false }
24. let i = 0
25. while (i < s.length) {
26. let c = s.charCodeAt(i)
27. if (!((c >= 48 && c <= 57) || (c >= 97 && c <= 102))) { return false }
28. i = i + 1
29. }
30. return true
31. }
33. // an identity id as ident answers it: its public SHORT ID since ident#23 (5 characters like `a68sz`: 2-9 and a-z),
34. // before that the old per-app id (32 hex) — lower case letters and digits, at most 64 (mission 039; isHex refused `a68sz`)
35. static isIdentId = (s) => {
36. if (s == null || hlTypeName(s) != 'String' || s.length == 0 || s.length > 64) { return false }
37. let i = 0
38. while (i < s.length) {
39. let c = s.charCodeAt(i)
40. if (!((c >= 48 && c <= 57) || (c >= 97 && c <= 122))) { return false }
41. i = i + 1
42. }
43. return true
44. }