antcolony

4.1 KB

1. // util.hl — small helpers the language does not ship (statics only; importing runs nothing).
2. // Workarounds noted where a Hybriel ticket is the reason (see the worker guide on Byrodin:
3. // /CONTAINERS/projects/antcolony/docs/hybriel-for-app-workers.md).
4. import { readFile, exists } from 'hl:fs'
5. import { cwd } from 'hl:proc'
6. import { jsonErrorAt } from './jsoncheck.hl'
8. static NL = "
9. "
11. // hlTypeName says 'Hybrid' for objects AND lists (hybriel#14): a list has a length, an object has not
12. static isList = (v) => { return v != null && hlTypeName(v) == 'Hybrid' && JSON.stringify(v).startsWith('[') }
13. static isObject = (v) => { return v != null && hlTypeName(v) == 'Hybrid' && !isList(v) }
14. static isString = (v) => { return v != null && hlTypeName(v) == 'String' }
15. static nonEmpty = (v) => { return isString(v) && v.trim() != '' }
17. // a path the USER typed (argument or env) is relative to where they ran us, not to this
18. // script (hl:fs resolves relative paths against the entry script's directory)
19. static fromCwd = (p) => {
20. if (p == null || p == '') { return p }
21. if (p.startsWith('/')) { return p }
22. return cwd() + '/' + p
23. }
25. // a file as JSON: { value } or { error } — JSON.parse cannot fail softly (hybriel#6), so the
26. // syntax is checked first (jsoncheck.hl, a copy of tickets')
27. static readJson = (path) => {
28. if (!exists(path)) { return { error = 'no such file: ' + path } }
29. let text = readFile(path)
30. let at = jsonErrorAt(text)
31. if (at >= 0) { return { error = path + ': invalid JSON at character ' + at } }
32. return { value = JSON.parse(text) text = text }
33. }
35. // sort a list IN PLACE by a numeric key, ascending, stable (list sort() is NotCallable, hybriel#1)
36. static sortByNumber = (list, keyOf) => {
37. let i = 1
38. while (i < list.length) {
39. let cur = list[i]
40. let k = keyOf(cur)
41. let j = i - 1
42. while (j >= 0 && keyOf(list[j]) > k) {
43. list[j + 1] = list[j]
44. j = j - 1
45. }
46. list[j + 1] = cur
47. i = i + 1
48. }
49. return list
50. }
52. // a > b for strings by char code (no string ordering operators, hybriel#2)
53. static after = (a, b) => {
54. let i = 0
55. while (i < a.length && i < b.length) {
56. let x = a.charCodeAt(i)
57. let y = b.charCodeAt(i)
58. if (x != y) { return x > y }
59. i = i + 1
60. }
61. return a.length > b.length
62. }
64. static sortStrings = (list) => {
65. let i = 1
66. while (i < list.length) {
67. let cur = list[i]
68. let j = i - 1
69. while (j >= 0 && after(list[j], cur)) {
70. list[j + 1] = list[j]
71. j = j - 1
72. }
73. list[j + 1] = cur
74. i = i + 1
75. }
76. return list
77. }
79. // a Markdown code fence longer than any backtick run inside `text`
80. static fenceFor = (text) => {
81. let longest = 0
82. let run = 0
83. let i = 0
84. while (i < text.length) {
85. if (text.charCodeAt(i) == 96) { run = run + 1 } else { run = 0 }
86. if (run > longest) { longest = run }
87. i = i + 1
88. }
89. let f = '```'
90. while (f.length <= longest) { f = f + '`' }
91. return f
92. }
94. // `--name value` from an argument list, or null
95. static option = (argv, name) => {
96. let i = 0
97. while (i < argv.length) {
98. if (argv[i] == name && i + 1 < argv.length) { return argv[i + 1] }
99. i = i + 1
100. }
101. return null
102. }
104. // the positional arguments (no --options and their values; --post, --dry-run, --again, --once, --live, --expire and the
105. // librarian's --post-files, --render, --retry-refused are flags)
106. static positionals = (argv) => {
107. let out = []
108. let i = 0
109. while (i < argv.length) {
110. let a = argv[i]
111. if (a == '--post' || a == '--dry-run' || a == '--again' || a == '--once' || a == '--live' || a == '--expire' || a == '--deploy' || a == '--post-files' || a == '--render' || a == '--retry-refused') {
112. i = i + 1
113. } else if (a.startsWith('--')) {
114. i = i + 2
115. } else {
116. out.push(a)
117. i = i + 1
118. }
119. }
120. return out
121. }
123. // capabilities (antcolony#15): "gpu, chrome ,deploy" → ['gpu','chrome','deploy'] (trimmed, lower case, no empties, no repeats)
124. static parseCapabilities = (text) => {
125. let out = []
126. if (text == null) { return out }
127. for (p of text.split(',')) {
128. let c = p.trim().toLowerCase()
129. if (c != '' && !out.includes(c)) { out.push(c) }
130. }
131. return out
132. }
133. // what of `needs` a host with `offers` lacks (both lists of lower-case names)
134. static missingCapabilities = (needs, offers) => {
135. let out = []
136. for (n of needs) { if (!offers.includes(n)) { out.push(n) } }
137. return out
138. }