gitoriaLog in with ident

tracker

All repositories: gitoria

ReadmeCodePull requestsReleasesTicketsSettings
Commit139fafd8139fafd8tracker#16: short bio (4 lines, click = all), real-data check script, README + STATUSmre139fafd8/plugins/web/WebFramework.hl

162.8 KB

  1. // The framework's server half — the SERVER REALM's entrypoint, and the EDGE
  2. // MODULE for the carriers the manifest declares.
  3. // Its jobs: answer a URL with the HTML of a constructed component (SSR), ship
  4. // the browser the client, the View tree and the state to continue from, carry
  5. // the boundary in both directions (a websocket on the same port, a POST for a
  6. // peer that has none), and run the server faces an inbound emit names.
  7. import { NativeWebSocketServer, Response, randomToken } from 'hl:http1'
  8. import HlwView from './view.hl'
  9. import HlwRouter from './router.hl'
  10. import HlwSessions from './sessions.hl'
  11. import HlwSession from './session.hl'
  12. // the Style walk — named Css here because `Style` is a well-known MEMBER name
  13. import HlwCss from './css.hl'
  14. import HlwCompile from './compile.hl'
  15. import { readFile, exists, watch } from 'hl:fs'
  16. import { file, env, args } from 'hl:proc'
  17. import { now } from 'hl:time'
  18. import { sha256 } from 'hl:crypto'
  19. import { newline, tab } from './view.hl'
  20. Hybrid routes = [] // bound by `new WebFrameworkServer(routes = …)`
  21. // THE PROJECT'S STYLES FILE, declared by the app as a property of the framework:
  22. // `new WebFrameworkServer(…, styles = './styles.hl')`. A file of statics and one
  23. // `Style { }` root member (COMPONENTS §4) — the design tokens and the global
  24. // rules, under every component's own Style in the one stylesheet. null: none.
  25. styles = null // the app's styles file: the class it imported, or a path
  26. // WHO AN OUTWARD EVENT IS FOR (creator, 2026-09-12): per event, a function the app
  27. // declares — `audience = { postCreated = (p, session) => … }` — called for every
  28. // connection that has a listener for the event mounted, with the event's
  29. // arguments and that connection's session; a true answer sends the frame. An
  30. // event with no entry reaches the emitting connection only. Only the app knows
  31. // who is entitled; the face stays pure; the framework applies the answer.
  32. Hybrid audience = {}
  33. // THE SESSION STORE (the archive's manifest members, mission 252/255): nothing said →
  34. // `<project>/.sessions`; a path → that path; `false` → memory only. The three clocks
  35. // are seconds; null takes the layer's defaults (14 days valid, 15 min resident, sweep
  36. // every 5 min).
  37. // THE DEV WATCHER (the archive's `watch`): every save under the project arrives as an
  38. // event; a save that changes the analysis re-reads the graph, drops every cache and tells
  39. // every open tab to reload. Off by default — a deploy never re-analyses itself.
  40. Boolean minify = false // production: one-line HTML, compact JavaScript modules
  41. Boolean watchMode = true
  42. lastChange = 0 // epoch ms of the last save acted on (the debounce)
  43. String | Boolean sessionDir = null
  44. Number sessionMaxAge = null
  45. Number sessionIdle = null
  46. Number sweepInterval = null
  47. // THE SESSION COOKIE'S NAME (ticket #10). Cookies ignore the port, so two apps on one
  48. // host that both answered `hlsid` overwrote each other's sessions; an app names its own.
  49. // null: `hlsid`.
  50. String sessionCookie = null
  51. // THE COOKIE'S `Secure` FLAG (ticket #27): true when the app is reached over https —
  52. // behind a TLS proxy the server itself speaks plain http and cannot tell, so the app
  53. // says so. The browser then never sends the session over plain http. false: not set.
  54. Boolean sessionSecure = false
  55. // THE COOKIE'S `Domain` (ticket #44): 'example.org' shares one session with every
  56. // <sub>.example.org, which a host-only cookie cannot. null: host-only, no attribute.
  57. String sessionDomain = null
  58. \* THE PORT: the app's own `--port=N` argument (hybriel hands every argument
  59. after the entry to the program, creator ruling 2026-09-27), else the
  60. constructor's, else HL_PORT (hybriel resolves PORT and `.env` into it),
  61. else 8080. *\
  62. Number port = null
  63. // THE OFFLINE ALLOW-LIST (COMPONENTS §10, D38): the pages this app promises with the
  64. // network down, named as the route table names them — the imported class or a path
  65. // string. null: no service worker, no cache, no IndexedDB, nothing on the device.
  66. offline = null
  67. // THE DEAD-SOCKET CLOCK (COMPONENTS §10), in seconds. The browser pings every `pingEvery`,
  68. // and a socket whose pong has not come back within `pongWithin` is taken for dead: it is
  69. // closed, and the reconnect and the queue's replay start. A network that drops without a
  70. // close frame is noticed within pingEvery + pongWithin (35 s by default). null: 25 and 10.
  71. Number pingEvery = null
  72. Number pongWithin = null
  73. // AN UPLOAD THAT GOES SILENT — no progress, no answer — is read as dropped after this
  74. // many seconds (COMPONENTS §10, an emit's file). null: 15.
  75. Number uploadStall = null
  76. // THE LARGEST FILE AN EMIT MAY CARRY (ticket #94), in bytes: a bigger one is refused
  77. // at its first request, and the emit ends with that error. 1 GiB.
  78. Number uploadMax = 1073741824
  79. String host = null // the interface to bind; null → HL_HOST/HOST, the manifest's `host`, 0.0.0.0
  80. // THE ONE RUNTIME URL, and the reason it is a member and not a literal in two
  81. // places: a module's `import … from "./hl-runtime.js"` resolves against the
  82. // MODULE's own url, so a server answering modules at two directory depths hands
  83. // the browser two runtime urls — two ES-module instances, two `globalEvents`
  84. // buses, two `__hlRealm` variables, and a crossing emit announced on a bus the
  85. // edge module never taps. Every module this server compiles is handed this one
  86. // specifier (hlJs's third argument).
  87. // THE DIRECTORY THE FRAMEWORK ANSWERS FROM, and the reason it is its own member:
  88. // a package's browser half is served BESIDE THE RUNTIME, and the compiler derives
  89. // that url from the runtime's own (`js_module.zig browserHalfUrl`:
  90. // `<dirname(runtime)>/<pkg>/client.js`). Two sides deriving one url from one
  91. // directory is what keeps the module's `import` and this server's route table
  92. // from drifting apart.
  93. static halfDir = '/__hl'
  94. static runtimeUrl = halfDir + '/hl-runtime.js'
  95. clientUrl = halfUrl('web')
  96. styleUrl = halfDir + '/app.css'
  97. // THE BUILD'S VERSION IS IN EVERY URL THE BROWSER CACHES (after ticket #82): the
  98. // runtime, the package halves, the component modules and the stylesheet were served
  99. // at fixed urls, and a browser or Cloudflare kept the old client against a new
  100. // deploy's pages. Each is now asked for as `<url>?v=<hash>`, the hash of everything
  101. // this build serves, and answered with a year's `immutable` caching — a new build is
  102. // a new url. The modules are COMPILED against this mark and it is replaced with the
  103. // hash when they are served: the hash is of the compiled texts, so it cannot be in
  104. // them while they are compiled, and a binary's baked modules carry the mark too (the
  105. // one form both paths share). The route patterns stay the bare paths.
  106. static buildMark = '?v=__hlbuild__'
  107. static runtimeSpec = runtimeUrl + buildMark
  108. // the web app manifest and the service worker's entry script (COMPONENTS §10)
  109. static manifestUrl = halfDir + '/manifest.webmanifest'
  110. static workerUrl = halfDir + '/sw.js'
  111. // THE FRAMEWORK'S OWN URLS ARE ROUTES (creator: "just use routes"), appended to
  112. // the app's table with `routes[] = …` — the append that takes on a caller's
  113. // pinned argument during construction, where `routes = routes + […]` is dropped.
  114. // Three of them here — the runtime, the REST carrier and the app's one
  115. // stylesheet — and then one per PACKAGE BROWSER HALF the app's graph holds,
  116. // appended below where the graph is known. There is no catch-all that compiles
  117. // any graph file a url names.
  118. routes[] = { pattern = runtimeUrl framework = true function = (route, req) => {
  119. return new Response(runtime, { headers = cached(req, 'text/javascript; charset=utf-8') })
  120. } }
  121. // THE REST CARRIER, the same emit/ack pair for a peer that cannot hold a socket
  122. // (SPEC: `POST /__hl/emit`).
  123. // ITS SESSION IS THE COOKIE'S (creator, 2026-09-14): this is an HTTP request like
  124. // the page request, so it resolves the SAME session the page route would for that
  125. // cookie — a `session.user` a face writes here is what the next document reads.
  126. // Before this the face was handed null and a login over the fallback was lost.
  127. // AN OUTWARD EMIT RAISED UNDER IT RIDES BACK IN THE ANSWER: there is no
  128. // connection to push to, so the frames a face raised for the CALLER are
  129. // collected while it runs and shipped in the ack as `emits`, which the client
  130. // half delivers before it resolves the emit. The audience fan-out to the other
  131. // connections of that user is the same walk it always was.
  132. routes[] = { pattern = '/__hl/emit' framework = true function = (route, req) => {
  133. if (req.method != 'POST') { return notFound(req.path) }
  134. let s = sessions.resolve(req.headers['cookie'] != null ? req.headers['cookie'] : req.headers['Cookie'])
  135. let fresh = s == null
  136. if (fresh) { s = sessions.mint() }
  137. // the session travels in a MEMBER, not an argument: a call argument is a copy,
  138. // an instance inside it included, and a copied session loses the face's write
  139. postSession = s
  140. postHost = hostOf(req.headers['host'])
  141. postHeaders = requestHeaders(req.headers)
  142. let res = new Response(inbound(null, JSON.parse(req.body)), { headers = { 'Content-Type' = 'application/json; charset=utf-8' } })
  143. if (fresh) { res.headers['Set-Cookie'] = sessions.cookieHeader(s.id) }
  144. return res
  145. } }
  146. // A FILE IN AN EMIT TRAVELS OVER HTTP (ticket #94, creator 2026-09-25): the client half
  147. // sends each file of an `emit server …` here, in parts, before the emit itself; the emit's
  148. // frame then names the upload, and `inbound` hands the face the file in its place.
  149. // POST /__hl/upload { name, type, size, q, n } → { id, have } (an upload; see uploadRequest)
  150. // POST /__hl/upload?id=&at= one part, raw → { have } (appended when `at` is what arrived so far)
  151. // GET /__hl/upload?id= → { have } (after a dropped connection)
  152. // An upload belongs to the session of the cookie that started it, and only an emit
  153. // of that session can claim it. A part cut short by a dropped connection keeps what
  154. // arrived; the client asks for `have` and goes on from there.
  155. routes[] = { pattern = '/__hl/upload' framework = true function = (route, req) => {
  156. let s = sessions.resolve(req.headers['cookie'] != null ? req.headers['cookie'] : req.headers['Cookie'])
  157. let fresh = s == null
  158. if (fresh) { s = sessions.mint() }
  159. let res = uploadRequest(&s, req)
  160. if (fresh) { res.headers['Set-Cookie'] = sessions.cookieHeader(s.id) }
  161. return res
  162. } }
  163. // THE APP'S ONE STYLESHEET — the `styles` file's rules and every mounted
  164. // component's `Style { }`, walked in style.hl and cached after the first ask.
  165. routes[] = { pattern = styleUrl framework = true function = (route, req) => {
  166. return new Response(stylesheet(), { headers = cached(req, 'text/css; charset=utf-8') })
  167. } }
  168. // THE COMPONENT MODULES ARE ROUTES TOO — the framework's, not the app's: one per
  169. // file a page route mounts and per wrapper above it (the graph's `parent`
  170. // chain), served at the file's own `.hl` url as the browser's projection. A
  171. // browser executes a module by its MIME type, so `text/javascript` at
  172. // `/components/home.hl` is a module, and the url is the path the author wrote.
  173. // Nothing else is served as a module: a file no page route reaches has no url.
  174. // THE LANGUAGE GRAPH, AND THE REALMS ARE THIS PACKAGE'S (creator, 2026-09-12: "the project.hl
  175. // defines no realms so the framework just fills them itself"). This file is the server
  176. // realm's entrypoint, client.hl beside it the browser's; the app reaches both by
  177. // importing hl:web, and the graph follows that reference into the package.
  178. graph = hlProject(
  179. realms = {
  180. server = { entrypoint = './WebFramework.hl' }
  181. client = { entrypoint = './client.hl' }
  182. }
  183. transports = [
  184. ['websocket' 'client' 'server']
  185. ['websocket' 'server' 'client']
  186. ['rest' 'client' 'server']
  187. ]
  188. )
  189. gen = graph.analysisGen // the syntax reflection's handle: the routes below read Views
  190. // TWO WEB FRAMEWORKS IN ONE APP IS NOT AN APP (creator, 15 Sep: project.hl switched
  191. // to the other framework the repo had then while styles.hl still said 'hl:web/css').
  192. // Both packages load, both `on server page` faces answer the same navigation, and
  193. // the second answers on a blank instance — a NotCallable deep inside the other framework's dispatch, which
  194. // says nothing about the two import rows that caused it. So it is refused HERE,
  195. // before anything is served, naming both rows.
  196. oneFrameworkOnly()
  197. // A VALUE-FORM EMIT HAS ONE ANSWERER (SPEC "An emit ANSWERS", ticket #20): checked here,
  198. // before anything is served, because the wire does not say which form an emit was
  199. oneAnswererEach()
  200. // THE APP'S SETTINGS come from the file that constructed this one when they were not
  201. // passed (the archive's `configure()`): `styles`, `audience`, `sessionDir`, the clocks,
  202. // `watchMode`, `minify`, `port`
  203. cfg = hlConstructor()
  204. if (cfg != null) {
  205. if (styles == null && cfg.styles != null) { styles = cfg.styles }
  206. if (cfg.audience != null && audience.keys().length == 0) { audience = cfg.audience }
  207. if (sessionDir == null && cfg.sessionDir != null) { sessionDir = cfg.sessionDir }
  208. if (sessionMaxAge == null && cfg.sessionMaxAge != null) { sessionMaxAge = cfg.sessionMaxAge }
  209. if (sessionIdle == null && cfg.sessionIdle != null) { sessionIdle = cfg.sessionIdle }
  210. if (sweepInterval == null && cfg.sweepInterval != null) { sweepInterval = cfg.sweepInterval }
  211. if (sessionCookie == null && cfg.sessionCookie != null) { sessionCookie = cfg.sessionCookie }
  212. if (cfg.sessionSecure != null && sessionSecure == false) { sessionSecure = cfg.sessionSecure }
  213. if (sessionDomain == null && cfg.sessionDomain != null) { sessionDomain = cfg.sessionDomain }
  214. if (cfg.watchMode != null) { watchMode = cfg.watchMode }
  215. if (cfg.minify != null) { minify = cfg.minify }
  216. if (cfg.port != null) { port = cfg.port }
  217. if (offline == null && cfg.offline != null) { offline = cfg.offline }
  218. if (pingEvery == null && cfg.pingEvery != null) { pingEvery = cfg.pingEvery }
  219. if (pongWithin == null && cfg.pongWithin != null) { pongWithin = cfg.pongWithin }
  220. if (uploadStall == null && cfg.uploadStall != null) { uploadStall = cfg.uploadStall }
  221. if (cfg.uploadMax != null) { uploadMax = cfg.uploadMax }
  222. }
  223. served = {}
  224. mounted = []
  225. for (r of routes) { if (r.component != null) { mounted[] = keyOf(r.component) } }
  226. for (k of mounted) {
  227. let key = k
  228. // a file the graph does not hold is refused at its route row, below (servedKeys
  229. // → routeComponentKey: this walk reads the evaluated table, which has no lines)
  230. if (graph.files[key] == null) { key = null }
  231. while (key != null) {
  232. serveComponent(key)
  233. let child = key
  234. key = graph.files[key].parent
  235. // A PARENT IS A COMPONENT (COMPONENTS §5): one without a View wraps nothing, and
  236. // every page under it answered a 500 while the boot said nothing (322 row 13)
  237. if (key != null && viewHandle(key) == 0) {
  238. hlError("hl:web: the `parent` clause of " + child + " names " + key + ", which declares no View: a parent is a component whose View places `slot` where the page renders")
  239. }
  240. }
  241. }
  242. // EVERY PACKAGE'S BROWSER HALF IS SERVED, BY ONE RULE. A package whose browser
  243. // side is written in this language ships it as `client.hl` beside its
  244. // plugin.json; the compiler compiles it like any other file and writes the
  245. // importing module `import { … } from "<halfDir>/<pkg>/client.js"`
  246. // (js_module.zig browserHalf / browserHalfUrl). Something has to answer that url,
  247. // and this is it — for EVERY such package the graph holds, because the rule
  248. // belongs to the language and not to one package. hl:web's own half is the first
  249. // case of it and no longer a hard-coded route of its own; hl:dnd is the second.
  250. //
  251. // The graph is the whole guard: a key is here only because the entry's closure
  252. // REACHED that package's half through an import, which is the same reason a
  253. // component has a module url. A package nothing imports is served nothing.
  254. for (gk of graph.files.keys()) {
  255. if (gk.startsWith('hl:') && gk.endsWith('/client.hl')) { serveHalf(gk) }
  256. }
  257. // ---- INSTALLABLE, AND OFFLINE (COMPONENTS §10, tickets #95–#97) ------------------
  258. // Two declarations in the app's manifest, and nothing written by hand in the app:
  259. // · `appIcons` (with `appTitle`, and optionally `appShortName`, `appThemeColor`,
  260. // `appBackgroundColor`, `appManifest`) makes the app INSTALLABLE — the web app
  261. // manifest below, linked from every page's head with its apple-touch-icon;
  262. // · `offline = [ … ]` makes the pages it names work OFFLINE — the service worker
  263. // (worker.hl) that keeps the shell and those pages, and in the client half the
  264. // IndexedDB copy of their state and the queue of the emits they make.
  265. // An app that declares neither is served nothing of either.
  266. offlineKeys = offlinePages()
  267. queueEvents = offlineKeys != null ? queueable() : []
  268. if (installable()) {
  269. routes[] = { pattern = manifestUrl framework = true function = (route, req) => {
  270. return new Response(JSON.stringify(webManifest()), { headers = { 'Content-Type' = 'application/manifest+json; charset=utf-8' 'Cache-Control' = 'no-cache' } })
  271. } }
  272. }
  273. if (offlineKeys != null) {
  274. // the ENTRY SCRIPT is served at the framework's directory, and its scope is the
  275. // whole app: `Service-Worker-Allowed` is what lets a script under /__hl/ say so
  276. routes[] = { pattern = workerUrl framework = true function = (route, req) => {
  277. return new Response(workerEntry(), { headers = { 'Content-Type' = 'text/javascript; charset=utf-8' 'Cache-Control' = 'no-cache' 'Service-Worker-Allowed' = '/' } })
  278. } }
  279. routes[] = { pattern = halfDir + '/web/worker.js' framework = true function = (route, req) => {
  280. return new Response(workerModule(), { headers = cached(req, 'text/javascript; charset=utf-8') })
  281. } }
  282. }
  283. // ---- WHAT THIS APP SERVES, OFF THE ANALYSIS ALONE (mission 315) ----------------
  284. // These four are STATIC, so they answer with no instance and without constructing
  285. // anything: the compiler evaluates `servedModulesOf(graph)` at BUILD time to bake
  286. // each module's text, and this file's own root uses the very same functions at
  287. // boot. One definition, two callers — a second derivation would drift, and a
  288. // compiled binary would then serve text generated against different urls.
  289. //
  290. // The seed is the entry's route table AS WRITTEN, read through `hlSyntax`, not
  291. // the evaluated `routes` member: evaluating it means constructing the app, and
  292. // constructing this class binds a socket. The graph carries the entry's record
  293. // since 2026-09-16, which is what makes that readable at all.
  294. // A ROUTE'S COMPONENT IS A PAGE: a file without a View answered every request with a 500
  295. // ("declares no View", raised without a span) while the boot said nothing (mission 322
  296. // row 13). Refused at the row instead.
  297. static routePage = (gen, entryKey, valueNode, key) => {
  298. if (!hasViewMember(gen, key)) { hlSourceError(gen, entryKey, valueNode, key + " declares no View, so it is no page: a route's component is a file whose View renders") }
  299. return key
  300. }
  301. // The key a route row's `component` names: an imported class, or a path string.
  302. // Anything else is a located refusal AT THE ROW — never silently unserved.
  303. static routeComponentKey = (graph, gen, entryKey, imports, valueNode) => {
  304. let v = hlSyntax(gen, entryKey, valueNode)
  305. if (v == null) { return null }
  306. if (v.tag == 'literal' && v.kind == 'string') {
  307. let t = v.text
  308. let k = t.startsWith('./') ? t.slice(2) : t
  309. // A PATH NO FILE OF THE APP IMPORTS IS NOT IN THE GRAPH: the analysis never read
  310. // it, so nothing can be served for it — refused here, at the row, instead of a
  311. // null deep in the framework once the server is already up (STATUS §2 item 0)
  312. if (graph.files[k] == null) { hlSourceError(gen, entryKey, valueNode, "the app never imports " + t + ", so the analysis never read it and the app would serve no module for it: import it in this file (`import Page from '" + t + "'`) and write `component = Page`") }
  313. return routePage(gen, entryKey, valueNode, k)
  314. }
  315. if (v.tag == 'identifier') {
  316. for (imp of imports) {
  317. if (imp.default == v.name && imp.key != null) { return routePage(gen, entryKey, valueNode, imp.key) }
  318. }
  319. }
  320. hlSourceError(gen, entryKey, valueNode, "a route's component must be an imported component class or a path string — this one the analysis cannot resolve to a file, so the app would serve no module for it")
  321. return null
  322. }
  323. // does the file at `key` declare a View? (a component, as opposed to a plain class)
  324. static hasViewMember = (gen, key) => {
  325. for (m of hlMembers(gen, key)) {
  326. if (m.name == 'View') { return true }
  327. }
  328. return false
  329. }
  330. // `key` and every component it composes, once each — the same walk
  331. // `serveComponent` performs, as a function of the graph.
  332. static collectServed = (graph, gen, out, key) => {
  333. if (key == null || graph.files[key] == null) { return null }
  334. for (k of out) { if (k == key) { return null } }
  335. out[] = key
  336. for (imp of graph.files[key].imports) {
  337. if (imp.default != null && imp.key != null && hasViewMember(gen, imp.key)) {
  338. collectServed(graph, gen, out, imp.key)
  339. }
  340. }
  341. return null
  342. }
  343. // Every key this app answers a module for: each route's component and the wrapper
  344. // chain above it, the components those compose, and every package's browser half.
  345. static servedKeys = (graph) => {
  346. let gen = graph.analysisGen
  347. let entryKey = graph.manifest.file
  348. let out = []
  349. if (entryKey != null && graph.files[entryKey] != null) {
  350. let imports = graph.files[entryKey].imports
  351. let routesNode = 0
  352. for (m of hlMembers(gen, entryKey)) {
  353. if (m.name == 'routes') { routesNode = m.node }
  354. }
  355. if (routesNode != 0) {
  356. let arr = hlSyntax(gen, entryKey, routesNode)
  357. if (arr != null && arr.tag == 'array_expression') {
  358. for (e of arr.elements) {
  359. let row = hlSyntax(gen, entryKey, e)
  360. if (row != null && row.tag == 'object_expression') {
  361. for (pe of row.entries) {
  362. let prop = hlSyntax(gen, entryKey, pe)
  363. if (prop != null && prop.tag == 'object_property' && prop.key == 'component') {
  364. let key = routeComponentKey(graph, gen, entryKey, imports, prop.value)
  365. // the wrapper chain above it, deepest last — a page is
  366. // served inside whatever wraps it
  367. let k = key
  368. while (k != null) {
  369. collectServed(graph, gen, out, k)
  370. k = graph.files[k] != null ? graph.files[k].parent : null
  371. }
  372. }
  373. }
  374. }
  375. }
  376. }
  377. }
  378. }
  379. return out
  380. }
  381. // EVERY PACKAGE'S BROWSER HALF, BY ONE RULE — a package whose browser side is
  382. // written in this language ships it as `client.hl`, the compiler writes
  383. // `<halfDir>/<pkg>/client.js` into every importing module, and something has to
  384. // answer that url. The graph is the whole guard: a key is here only because the
  385. // entry's closure reached that package.
  386. //
  387. // SEPARATE FROM `servedKeys` ON PURPOSE: a half gets a ROUTE but is not a module
  388. // url of this app, so it is not in the map `hlJs` is handed. That asymmetry is
  389. // the existing `serveHalf`/`serveComponent` split, stated rather than inherited
  390. // by accident — measured 2026-09-16, when folding the two together made the
  391. // analysis set one key wider than the route walk's.
  392. static packageHalfKeys = (graph) => {
  393. let out = []
  394. for (gk of graph.files.keys()) {
  395. if (gk.startsWith('hl:') && gk.endsWith('/client.hl')) { out[] = gk }
  396. }
  397. return out
  398. }
  399. // The browser realm's NAME, off the graph — the declared realm whose entrypoint
  400. // is this framework's client half. Static, so the compiler can ask it too.
  401. static clientRealmOf = (graph) => {
  402. for (name of graph.realms.keys()) {
  403. if (graph.realms[name].entrypoint == 'hl:web/client.hl') { return name }
  404. }
  405. return null
  406. }
  407. // EVERY MODULE THIS APP SERVES, COMPILED — what a native binary answers `hlJs`
  408. // with (mission 315). The emitter needs the runtime specifier, the browser
  409. // realm and the served-url map; all three are functions of the analysis, so the
  410. // whole map is, and the COMPILER can build it without an instance.
  411. //
  412. // `minify` is NOT: it is an app setting bound at construction, and the analysis
  413. // cannot evaluate a construction. The value used is recorded beside each
  414. // module so a binary asked for a different one refuses at the call instead of
  415. // answering text generated the other way.
  416. // HOW THE APP ASKED FOR ITS MODULES. A build bakes ONE form of every module and
  417. // a binary answering the other form would be different bytes, so the build must
  418. // read the app's own answer — and the app writes it where it configures the
  419. // framework: `new WebFramework(… minify = true …)` in the manifest. The analysis
  420. // carries a construction's named arguments, so this is a READ of the same syntax
  421. // `servedKeys` reads for the routes, not a second declaration.
  422. //
  423. // A COMPUTED `minify` IS NOT READ HERE, and nothing is guessed from it: a build
  424. // cannot evaluate an expression the running app has not reached yet. Such an app
  425. // bakes the unminified form, exactly as every app did before this, and if it
  426. // then asks for the other form at run time the binary says so at the request —
  427. // "this binary carries the module compiled the other way", located, which is
  428. // the refusal that already exists and the one measured on the creator's social
  429. // app (2026-09-17). Writing the literal in the manifest is what removes it.
  430. static manifestMinify = (graph) => {
  431. let gen = graph.analysisGen
  432. let key = graph.manifest.file
  433. if (key == null || graph.files[key] == null) { return false }
  434. for (m of hlMembers(gen, key)) {
  435. let s = hlSyntax(gen, key, m.node)
  436. if (s != null && s.tag == 'new_expression' && s.named != null) {
  437. for (h of s.named) {
  438. let p = hlSyntax(gen, key, h)
  439. if (p != null && p.tag == 'object_property' && p.key == 'minify') {
  440. let v = hlSyntax(gen, key, p.value)
  441. if (v != null && v.tag == 'literal' && v.kind == 'boolean') { return v.text == 'true' }
  442. }
  443. }
  444. }
  445. }
  446. return false
  447. }
  448. static bakeModules = (graph) => {
  449. let realm = clientRealmOf(graph)
  450. let served = servedModulesOf(graph)
  451. let min = manifestMinify(graph)
  452. let out = {}
  453. for (k of servedKeys(graph)) {
  454. if (graph.files[k] != null) {
  455. let p = graph.files[k].path
  456. out[p] = {
  457. text = hlJs(p, min, runtimeSpec, realm, served)
  458. minify = min
  459. runtime = runtimeSpec
  460. realm = realm
  461. }
  462. }
  463. }
  464. // EVERY PACKAGE HALF TOO. The root walk above serves `<halfDir>/<pkg>/client.js`
  465. // for every `hl:<pkg>/client.hl` the graph holds, and a compiled binary answers
  466. // from BAKED text alone — so a bake that skipped them served the page and then
  467. // 404'd on the module the page imports, leaving the client half of the app
  468. // dead with nothing reported (measured on projects/framework, 2026-09-16).
  469. // Same rule, same list, one loop later: what the server routes, the build bakes.
  470. // AN OFFLINE APP'S SERVICE WORKER MODULE (COMPONENTS §10), under its own path
  471. if (manifestOffline(graph)) {
  472. let wp = workerPathOf(graph)
  473. out[wp] = {
  474. text = hlJs(wp, min, runtimeSpec, realm, served)
  475. minify = min
  476. runtime = runtimeSpec
  477. realm = realm
  478. }
  479. }
  480. for (gk of graph.files.keys()) {
  481. if (gk.startsWith('hl:') && gk.endsWith('/client.hl') && graph.files[gk] != null) {
  482. let hp = graph.files[gk].path
  483. if (out[hp] == null) {
  484. out[hp] = {
  485. text = hlJs(hp, min, runtimeSpec, realm, served)
  486. minify = min
  487. runtime = runtimeSpec
  488. realm = realm
  489. }
  490. }
  491. }
  492. }
  493. return out
  494. }
  495. // file path → the url this server answers its module at. What `hlJs` is handed,
  496. // and what the compiler bakes against.
  497. static servedModulesOf = (graph) => {
  498. let out = {}
  499. for (k of servedKeys(graph)) {
  500. if (graph.files[k] != null) { out[graph.files[k].path] = '/' + k + buildMark }
  501. }
  502. return out
  503. }
  504. // ONE PACKAGE HALF'S ROUTE. It is a FUNCTION and not the body of the loop above
  505. // because the url's route closure must hold THIS key: a `let` in a loop body is
  506. // one binding the closures share, so every route built that way would serve the
  507. // last package's half (measured 2026-09-14 — both /__hl/web/client.js and
  508. // /__hl/dnd/client.js answered with hl:web's module). A parameter is a fresh
  509. // binding per call, which is the same reason serveComponent below is a function.
  510. serveHalf(key) {
  511. routes[] = { pattern = halfUrl(key.slice(3, key.length - 10)) framework = true function = (route, req) => { return serveHl('/' + key, req) } }
  512. return null
  513. }
  514. // a mounted file's module route, and the routes of the components it composes
  515. // (an import with a View), recursively — off the graph, once each
  516. serveComponent(key) {
  517. if (served[key] != null) { return null }
  518. served[key] = true
  519. routes[] = { pattern = modulePath(key) framework = true function = (route, req) => { return serveHl(req.path, req) } }
  520. for (imp of graph.files[key].imports) {
  521. if (imp.default != null && imp.key != null && viewHandle(imp.key) != 0) { serveComponent(imp.key) }
  522. }
  523. return null
  524. }
  525. // THE PROJECT DIRECTORY: this file lives in a package, so the app's directory is read
  526. // off a file that is the app's — the first route component's key against its path
  527. root = projectRoot()
  528. view = new HlwView
  529. css = new HlwCss(minify = minify, view = view)
  530. compiler = new HlwCompile
  531. sessions = new HlwSessions(dir = sessionDirPath(), maxAge = sessionMaxAge != null ? sessionMaxAge : 1209600, idle = sessionIdle != null ? sessionIdle : 900, sweepEvery = sweepInterval != null ? sweepInterval : 300, cookie = cookieName(), secure = sessionSecure, domain = sessionDomain != null ? sessionDomain : '')
  532. sessions.open()
  533. // THE STYLES FILE IS NAMED AT BOOT, not at the first request for the stylesheet: a value
  534. // that names no file, or a file the graph does not hold, is the app's mistake and the
  535. // app does not start with it (ticket #12)
  536. if (styles != null) {
  537. if (hlTypeName(styles) != 'String' && hlTypeName(styles) != 'Class') { refuseAtSetting('styles', "hl:web: styles is the styles file — the class the app imported (`styles = Styles`) or a path string ('./styles.hl') — and this one is a " + hlTypeName(styles)) }
  538. if (graph.files[keyOf(styles)] == null) { refuseAtSetting('styles', "hl:web: styles names " + keyOf(styles) + ", which is not in the project graph — import it from the app's entry (`import Styles from './styles.hl'`) and write `styles = Styles`") }
  539. }
  540. // the whole tree, nothing excluded: dot directories (the session store) are skipped by
  541. // the walker's own rule, and a custom store inside the tree is the app's choice to pay for
  542. if (watchMode) { __native("eventloop.register", watch(root), "hlFileChanged") }
  543. sheetText = null // the stylesheet, walked once at the first request for it
  544. router = new HlwRouter(routes = routes)
  545. trees = {} // key → the View tree, built once
  546. slotAt = {} // key → where its View places its one `slot`
  547. styleNames = {} // key → the rule names of the file's Style, off the syntax
  548. styleRefs = {} // key → [{ tag rule }] the View wrote
  549. styleTags = {} // key → the element names this file's View renders
  550. styleIds = {} // key → the literal `id` values this file's View writes (R3)
  551. staticHolders = {} // key → an instance of a file whose statics another file imports
  552. modules = {} // key → the browser module (JavaScript text), compiled once at boot
  553. buildHash = null // the hash of everything this build serves, in every cached url (build())
  554. workerCompiled = null // the service worker's module as compiled (offline apps only, workerText())
  555. shipped = {} // key → the module as served: its build marks replaced with the hash
  556. servedUrls = null // file path → the url this server answers its module at, for hlJs
  557. runtime = hlJsRuntime() // the runtime library every module imports as "./hl-runtime.js"
  558. peers = {} // connection key → the WsClient, while it is open
  559. peerSession = {} // connection key → its session, from the tab's `hello` (null = anonymous)
  560. peerHost = {} // connection key → the host its upgrade request named (null = none sent)
  561. peerHeaders = {} // connection key → its upgrade request's headers (requestHeaders)
  562. peerMounts = {} // connection key → the component keys the tab has mounted
  563. // SESSIONS (web/sessions.hl): named by the cookie, at the page request and at the
  564. // socket's handshake alike. Nothing about a session ever reaches page script.
  565. sending = null // the WsClient whose inbound emit is being handled — the peer
  566. // an outward emit reaches, and null under the POST fallback
  567. // THE POST FALLBACK'S PEER IS ITS OWN ANSWER. While a face dispatched over
  568. // `POST /__hl/emit` runs, `posting` is true and every outward emit meant for the
  569. // CALLER is appended here instead of pushed; `inbound` ships the list in the ack.
  570. Boolean posting = false
  571. postEmits = []
  572. postSession = null // the cookie's session of the POST being dispatched
  573. postHost = null // the host of the POST being dispatched
  574. faceHost = null // the host of the carrier whose inbound emit is being dispatched
  575. postHeaders = null // the headers of the POST being dispatched (requestHeaders)
  576. faceHeaders = null // the headers of the carrier whose inbound emit is being dispatched
  577. // EXACTLY ONCE (COMPONENTS §10): a queued emit carries a stable id `q`, and the ids handled
  578. // are kept per session, the last `handledKept` of them (Session.handled). A connection
  579. // with no session keeps its ids here, in one list under the same bound.
  580. Number handledKept = 200
  581. anonHandled = []
  582. // WHAT A KEPT ID WAS ANSWERED (ticket #107). An emit in flight when its socket closed
  583. // is sent again with its id, and its caller is still waiting — for a page, say. The
  584. // first delivery's ack went out on the dead socket, so the repeat is answered from
  585. // here: `answers[session id + ' ' + q]` is that ack as sent (its `i` replaced), or
  586. // `running` while the first delivery has not finished, which answers the repeat
  587. // `later` and the client asks again. In memory, the last `handledKept` of them: a
  588. // repeat comes seconds after the first try, and a restart loses nothing a live peer
  589. // still waits for but the ack, which is then plain `ok`, as before.
  590. answers = {}
  591. answerKeys = []
  592. uploads = {} // 'u' + upload id → { sid, name, type, size, have, parts, at, key }: a file on its way in (ticket #94)
  593. uploadKeys = {} // 'k' + session id + ' ' + q + ' ' + n → the upload id the n-th file of emit q went up under
  594. uploadParts = {} // 'u' + id + ':' + n → the n-th part as it arrived, a Bytes
  595. // ONE PORT, TWO CARRIERS. hl:http1's WebSocket engine answers the Upgrade
  596. // inline on the port this server already bound, so `websocket` and `rest` are
  597. // the same listener — which is why the manifest can declare both for the same
  598. // direction and this file needs no second server.
  599. // EVERY VIEW IS BUILT AT BOOT, not at the first request for its route: a View that
  600. // reads a name its file declares nowhere (checkRead) is the app's mistake, and the
  601. // app does not start with it — the port is bound on the line below this pass.
  602. // THE TWO DERIVATIONS MUST AGREE (mission 315). `served` is built above from the
  603. // EVALUATED route table; `servedKeys(graph)` derives the same set from the
  604. // analysis alone, and the compiler bakes each module's text against the second.
  605. // If they ever disagree the binary would serve modules generated against urls
  606. // this server does not answer, so the disagreement is a refusal, here, at boot.
  607. for (k of servedKeys(graph)) {
  608. if (served[k] == null) {
  609. hlError('hl:web: the analysis says this app serves ' + k + ', the route walk did not — the two derivations of the served set disagree')
  610. }
  611. }
  612. for (k of served.keys()) {
  613. let seen = false
  614. for (a of servedKeys(graph)) { if (a == k) { seen = true } }
  615. if (seen == false) {
  616. let why = ''
  617. for (imp of graph.files[k] != null ? [] : []) { why = why }
  618. hlError('hl:web: the route walk serves ' + k + ', the analysis did not — the two derivations of the served set disagree')
  619. }
  620. }
  621. for (k of served.keys()) { if (viewHandle(k) != 0) { tree(k) } }
  622. // A COMPONENT-REFERENCE CYCLE IS REFUSED HERE (COMPONENTS §12): a View that renders
  623. // itself, directly or through another, is a mount that never ends — it overflowed the
  624. // stack at the first request and the server died of a segfault with nothing said
  625. // (mission 322 row 1).
  626. acyclic = {}
  627. for (k of served.keys()) { if (viewHandle(k) != 0) { referenceCycle(k, [], []) } }
  628. // …and a page a shell wraps is placed at the shell's slot, inside its body: a page whose
  629. // root is `body` there emitted a second, nested <body> (mission 322 row 5)
  630. for (k of mounted) {
  631. if (graph.files[k] != null && graph.files[k].parent != null && viewHandle(k) != 0 && bodyRooted(k)) {
  632. hlError("hl:web: " + k + " is wrapped by " + graph.files[k].parent + " (its `parent` clause), but its View's root is `body { … }`, the page's body: the shell owns the body, so write the page's root as an element (`main { … }`, `section { … }`)")
  633. }
  634. }
  635. // THE SHEET IS WALKED AT BOOT, so the rules it drops are listed at boot (COMPONENTS §4,
  636. // css.hl's own header): walked at the first request for it, a dead rule was listed only
  637. // once some browser had asked, and a boot log said nothing (mission 322 row 11)
  638. stylesheet()
  639. // EVERY SERVED MODULE IS COMPILED AT BOOT: a free name in a View handler is a located
  640. // compile error (COMPONENTS §6b), and compiled at the first request for the module it
  641. // was a 500 behind a page that had already answered 200 (mission 322 row 14)
  642. for (k of served.keys()) { module(k) }
  643. // THE INTERFACE IS THE OPERATOR'S (ticket #24), on the ladder graph.zig's OperatorBind
  644. // states: the constructor's `host` > HL_HOST (the binary fills it from HOST) > the
  645. // manifest's > 0.0.0.0. Binding the default regardless put an app meant to sit behind
  646. // a proxy on every interface of the machine.
  647. if (host == null) { host = env('HL_HOST') }
  648. if (host == null && cfg != null && cfg.host != null) { host = cfg.host }
  649. if (host == null) { host = '0.0.0.0' }
  650. // A --PORT AFTER THE ENTRY OUTRANKS THE APP'S OWN PORT (creator ruling
  651. // 2026-09-27), but `port` ITSELF CANNOT SAY SO: the reference app passes an
  652. // explicit `port = …` to `new WebFramework(…)` (server.hl, computed from
  653. // HL_FW_PORT so a test run can sit beside a developer's own instance), which
  654. // PINS the member for the whole construction (SPEC.md "The file root is the
  655. // constructor" — "a root assignment to [a pinned] property… is a no-op").
  656. // `port = port_arg` below was exactly that no-op: `hybriel server.hl
  657. // --port=11499` still bound 44333, server.hl's own default, because this
  658. // line's write never landed. `boundPort`, a plain local nothing ever pins,
  659. // carries the actual ladder instead — CLI argument, else the (possibly
  660. // pinned) member, else HL_PORT, else 8080 — and IS what binds and what the
  661. // boot line names.
  662. let port_arg = portArgument()
  663. let boundPort = port_arg
  664. if (boundPort == null) { boundPort = port }
  665. if (boundPort == null && env('HL_PORT') != null) { boundPort = toNumber(env('HL_PORT')) }
  666. if (boundPort == null) { boundPort = 8080 }
  667. http = new NativeWebSocketServer(port = boundPort, host = host)
  668. echo 'framework listening on ' + boundPort
  669. module('web/client.hl')
  670. // ---- the browser's modules: compiled IN PROCESS, served from memory --------------
  671. // The JavaScript target is this binary's own function (hlJs), the same one `--js`
  672. // runs from the command line. No child process, no build directory.
  673. //
  674. // THE CLIENT is compiled at boot — every page needs it, and it carries the View
  675. // and the Router with it (one module, three classes). A COMPONENT is compiled ON
  676. // DEMAND, at the request for its own `.hl` url, and kept: a route nobody visits
  677. // costs nothing, and the browser asks for a component's module the first time it
  678. // mounts one.
  679. //
  680. // THE TABLE THE EMITTER WRITES IS DROPPED. `hlJs` puts each file's members,
  681. // handlers and methods — every node of every initializer, with the names it reads —
  682. // into the module, because the old hl:web's browser half reduces that table on every boot.
  683. // This framework asked the same questions at COMPILE time and wrote the answers into
  684. // the component's own statements, so the table is dead weight in the page: 58 KB of
  685. // syntax on the reference app's home page alone. What the framework SERVES is its own
  686. // text, so it leaves that statement out; the language is not asked to change, and
  687. // The old hl:web kept its table untouched.
  688. // THE TABLE STATEMENT'S NAME in this module: `hlTablesDef`, or in a compact module the
  689. // alias its import clause gives it (`hlTablesDef as _51`). Each statement stands at the
  690. // start of its own line, which is how it is found — an alias alone is a suffix of other
  691. // names (`$_51(` is a compiler temporary).
  692. tablesCall(text) {
  693. let alias = text.indexOf('hlTablesDef as ')
  694. if (alias < 0) { return newline + 'hlTablesDef(' }
  695. let first = alias + 15
  696. let stop = first
  697. while (stop < text.length && text[stop] != ',' && text[stop] != '}') { stop = stop + 1 }
  698. return newline + text.slice(first, stop) + '('
  699. }
  700. // the `fns` of the file's own table — the first table statement the module carries is
  701. // the file's; the ones after it are the classes it bundles
  702. tableFns(text) {
  703. let at = text.indexOf(tablesCall(text))
  704. if (at < 0) { return [] }
  705. let open = text.indexOf('{', at)
  706. let end = text.indexOf(');', at)
  707. if (open < 0 || end < 0) { return [] }
  708. let t = JSON.parse(text.slice(open, end))
  709. return t.fns == null ? [] : t.fns
  710. }
  711. withoutTables(text) {
  712. // one per FILE the module carries — the client half bundles three classes. A compact
  713. // module calls it by its alias, and was served with every table until ticket #98's
  714. // follow-up: 50 KB and more of syntax on a minified app's page
  715. let call = tablesCall(text)
  716. let out = text
  717. let at = out.indexOf(call)
  718. while (at >= 0) {
  719. let end = out.indexOf(');', at)
  720. if (end < 0) { return out }
  721. // the newline before it stays: it ends the statement above
  722. out = out.slice(0, at + 1) + out.slice(end + 2)
  723. at = out.indexOf(call)
  724. }
  725. return out
  726. }
  727. // THE APP RUNS ON ONE WEB FRAMEWORK. Which packages are frameworks is READ OFF THE
  728. // GRAPH and not off a list this file keeps: a package the app's entry reached that
  729. // holds a `WebFramework.hl` is one. hl:dnd, hl:http1 and every other package an app
  730. // imports hold none and are untouched by this.
  731. //
  732. // The refusal names the ROW of each import, because the mistake IS an import line —
  733. // a sub-file import (`'hl:web/css'`) counts as much as the package itself, which is
  734. // exactly the case that made it: a lone braced import of a stylesheet helper puts the
  735. // whole package into the graph, and with it a second navigation face.
  736. oneFrameworkOnly() {
  737. let frameworks = {}
  738. for (gk of graph.files.keys()) {
  739. if (gk.startsWith('hl:') && gk.endsWith('/WebFramework.hl')) { frameworks[gk.slice(0, gk.length - 16)] = true }
  740. }
  741. if (frameworks.keys().length < 2) { return null }
  742. // the first row of the app's OWN files that reached each package
  743. let sites = {}
  744. for (k of graph.files.keys()) {
  745. if (!k.startsWith('hl:')) {
  746. for (imp of graph.files[k].imports) {
  747. for (pkg of frameworks.keys()) {
  748. if (sites[pkg] == null && (imp.source == pkg || imp.source.startsWith(pkg + '/'))) {
  749. sites[pkg] = { key = k; node = imp.node; where = k + ':' + imp.line + ':' + imp.col + " imports '" + imp.source + "'" }
  750. }
  751. }
  752. }
  753. }
  754. }
  755. let said = ''
  756. for (pkg of frameworks.keys()) {
  757. if (said != '') { said = said + ', and ' }
  758. if (sites[pkg] == null) { said = said + "'" + pkg + "' (reached through a package, not from a file of the app)" }
  759. else { said = said + sites[pkg].where }
  760. }
  761. let msg = 'this app imports TWO web frameworks: ' + said + '. Both packages load, both answer a page navigation, and the second one answers on a blank instance. An app runs on ONE of them — switch EVERY hl: import in EVERY file of the app to the same package, a sub-file import like \'/css\' included. Switching one line is not switching the app.'
  762. // THE CARET GOES ON ONE OF THE ROWS, and the sentence names them all: two
  763. // import lines are equally the mistake, and a diagnostic can only underline one.
  764. for (pkg of frameworks.keys()) {
  765. if (sites[pkg] != null) { hlSourceError(gen, sites[pkg].key, sites[pkg].node, msg) }
  766. }
  767. hlError(msg)
  768. return null
  769. }
  770. // ONE ANSWERER PER VALUE-FORM EMIT. SPEC: "if more than one class in the destination
  771. // realm declares a non-tap handler for the event, the VALUE form is refused at the emit
  772. // site naming both. As a statement it stays a broadcast and every handler still fires."
  773. // The statement form is what `inbound` does — every face runs. The value form cannot be
  774. // told apart on the wire, so every `x = emit server ev()` the app's files hold is read
  775. // off the analysis here, and one whose event two files answer is refused at its site,
  776. // naming both, before anything is served. Until ticket #20 both faces ran and the first
  777. // answer was taken in silence.
  778. oneAnswererEach() {
  779. let realm = serverRealm()
  780. for (k of graph.files.keys()) {
  781. if (!k.startsWith('hl:')) {
  782. for (e of hlEvents(gen, k).emits) {
  783. if (e.value == true && e.realm == realm) {
  784. let owners = facesOf(e.event)
  785. if (owners.length > 1) {
  786. let named = ''
  787. for (o of owners) { named = named == '' ? o : named + ' and ' + o }
  788. let msg = "hl:web: " + k + ':' + e.line + ':' + e.col + " — this emit waits for the answer of '" + e.event + "', and " + owners.length + " files answer it in the '" + realm + "' realm: " + named + ". A value-form emit has ONE answerer — rename the event in one of them, or emit it as a statement (a broadcast every handler receives)"
  789. hlSourceError(gen, k, e.node, msg)
  790. hlError(msg)
  791. }
  792. }
  793. }
  794. }
  795. }
  796. return null
  797. }
  798. // WHAT THIS SERVER SERVES AS A MODULE OF ITS OWN, by the file's path (mission 314
  799. // rule 0). Handed to `hlJs`, it is what turns `import PostCard from './post_card.hl'`
  800. // into an ES import of `/components/post_card.hl` instead of PostCard's whole class
  801. // text copied into the importing module — EditHistory's class shipped three times on
  802. // the social demo's home page before this. The urls are THIS file's (`moduleUrl`);
  803. // the compiler invents none, and a file this server does not answer for is inlined
  804. // exactly as it always was.
  805. servedModules() {
  806. if (servedUrls == null) {
  807. let out = {}
  808. for (k of served.keys()) { out[pathOf(k)] = modulePath(k) + buildMark }
  809. servedUrls = out
  810. }
  811. return servedUrls
  812. }
  813. // A key the graph holds no file for is answered `null`, and the caller makes
  814. // that a 404: a file the entry's closure never referenced is not part of this
  815. // app, which is what keeps this from being a read of any path a url asks for.
  816. module(key) {
  817. if (modules[key] == null) {
  818. let f = graph.files[key]
  819. if (f == null) { return null }
  820. // THE BROWSER GETS THE BROWSER'S PROJECTION, and nothing else. hlJs's
  821. // fourth argument is the realm the module is produced for: a handler
  822. // written `on server …` is not emitted at all, and a member whose
  823. // initializer reaches a name the browser does not have is declared
  824. // without one, for this server to lay over the instance with the state
  825. // it already ships. The realm NAME comes off the manifest (clientRealm()
  826. // above), never a literal — a project names its own realms.
  827. let text = hlJs(f.path, minify, runtimeSpec, clientRealm(), servedModules())
  828. // AND THE COMPILE STEP'S OWN OUTPUT BESIDE IT (mission 313): a component with a
  829. // View carries, after its class, the paint statements this framework compiled
  830. // from that View — one per bound spot, with its read written in (compile.hl).
  831. // The browser calls them instead of walking the tree at paint time. Text
  832. // produced here and served from memory like the module itself; nothing is
  833. // written to disk and no JavaScript file lives under plugins/.
  834. // THE FUNCTION VALUES' SITES are the one part of that table the browser still
  835. // needs (tickets #98, #99): the compile step turns them into write sets
  836. let fns = tableFns(text)
  837. text = withoutTables(text)
  838. if (viewHandle(key) != 0) { text = text + newline + compiler.module(gen, key, tree(key), fns) }
  839. modules[key] = text
  840. }
  841. return modules[key]
  842. }
  843. // the file the graph knows under this key — the graph carries every file's own path
  844. pathOf(key) {
  845. let f = graph.files[key]
  846. if (f == null) { hlError('the graph holds no file ' + key + ' — nothing referenced it from the entry') }
  847. return f.path
  848. }
  849. // THE BROWSER'S REALM, off the manifest: the realm whose declared entrypoint is
  850. // this framework's client half. The framework's own two files ARE the two
  851. // realms' entrypoints, so this is a lookup and never a guess.
  852. clientRealm() {
  853. for (name of graph.realms.keys()) {
  854. if (graph.realms[name].entrypoint == 'hl:web/client.hl') { return name }
  855. }
  856. hlError('the manifest declares no realm whose entrypoint is ./client.hl — the browser half of this framework IS a realm, and a page cannot say which realm it is running in until the manifest names it')
  857. }
  858. // THIS realm, off the graph: the declared realm whose entrypoint REACHES this
  859. // file (the app's entry imports it). A face names it, and so does the refusal
  860. // when nothing answers.
  861. serverRealm() {
  862. let mine = graph.files['hl:web/WebFramework.hl'].realms
  863. if (mine.length == 1) { return mine[0] }
  864. hlError('the manifest declares no realm whose entrypoint reaches hl:web/WebFramework.hl — this file cannot dispatch a face without knowing which realm it is')
  865. }
  866. // the app's directory: a route component is the app's file, its key project-relative
  867. projectRoot() {
  868. for (r of routes) {
  869. if (r.component != null) { return rootOf(keyOf(r.component)) }
  870. }
  871. // AN APP OF FUNCTION ROUTES ONLY (ticket #19) has no component to read it off, and
  872. // needs no other: the manifest is the app's file too, and the graph knows its key
  873. if (graph.manifest.file != null && graph.files[graph.manifest.file] != null) { return rootOf(graph.manifest.file) }
  874. hlError('hl:web: the route table names no component and the graph names no manifest file, so the app\'s directory cannot be read off either')
  875. }
  876. // a project-relative key against its absolute path: what is left is the project's directory
  877. rootOf(key) {
  878. let path = pathOf(key)
  879. // A COMPILED BINARY'S PATH IS ITS KEY (mission 318): it carries no
  880. // build directory, so the file's path and its key are the same
  881. // string and the root is the process's own directory. The
  882. // interpreter's path is the script's absolute one, and the key is
  883. // its tail — the root is what stands before it.
  884. if (path == key) { return '.' }
  885. return path.slice(0, path.length - key.length - 1)
  886. }
  887. // THE KEY OF A FILE THE APP NAMED — as the class it imported (`component = SortList`,
  888. // `styles = Styles`: the import is the guarantee the graph reached it) or as a path
  889. // ('./components/home.hl'). A class knows its file (`file(cls)`), and the graph knows
  890. // the file's key.
  891. keyOf(named) {
  892. if (hlTypeName(named) == 'Class') {
  893. let path = file(named)
  894. for (k of graph.files.keys()) {
  895. if (graph.files[k].path == path) { return k }
  896. }
  897. hlError('hl:web: the class at ' + path + ' is not in the project graph — import it from the app\'s entry')
  898. }
  899. // ANYTHING ELSE NAMES NO FILE (ticket #12): `styles = {}` booted and every request
  900. // for the stylesheet was then a NotCallable on this line, with no line of the app's
  901. if (hlTypeName(named) != 'String') { hlError("hl:web: a file the app names — a route's component, or `styles` — is the class it imported or a path string ('./styles.hl'), and this one is a " + hlTypeName(named)) }
  902. if (named.startsWith('./')) { return named.slice(2) }
  903. return named
  904. }
  905. // ---- the View tree: the member's syntax, reflected into plain hybrids ----------
  906. viewHandle(key) {
  907. for (m of hlMembers(gen, key)) {
  908. if (m.name == 'View') { return m.node }
  909. }
  910. return 0
  911. }
  912. tree(key) {
  913. if (trees[key] != null) { return trees[key] }
  914. let handle = viewHandle(key)
  915. if (handle == 0) { hlError('component ' + key + ' declares no View') }
  916. let v = hlSyntax(gen, key, handle)
  917. let nodes = []
  918. for (h of v.entries) {
  919. let n = node(key, h, [], false, [])
  920. if (n != null) { nodes.push(n) }
  921. }
  922. trees[key] = nodes
  923. return nodes
  924. }
  925. // one entry of a hybrid literal → a tree node (null for an attribute: the
  926. // element that owns it reads it)
  927. node(key, handle, path, inFor, rows) {
  928. let n = hlSyntax(gen, key, handle)
  929. if (n == null) { return null }
  930. if (n.tag == 'object_property') {
  931. let v = hlSyntax(gen, key, n.value)
  932. if (v.tag == 'object_expression') {
  933. let childKey = componentKeyOf(key, n.key)
  934. if (childKey != null) { return component(key, n.key, childKey, v, v, path, inFor, rows) }
  935. return element(key, n.key, v, path, inFor, rows)
  936. }
  937. return null
  938. }
  939. if (n.tag == 'literal') { return { k = 'text'; text = n.text; kind = n.kind; } }
  940. if (n.tag == 'identifier') {
  941. // A BARE CAPITALISED REFERENCE IS A COMPOSITION WITH AN EMPTY FILL (§12:
  942. // "`Name { }` is the same reference as bare `Name`"). It is not a read, so it
  943. // is answered before the read rules below refuse the name.
  944. let bareKey = componentKeyOf(key, n.name)
  945. if (bareKey != null) { return component(key, n.name, bareKey, null, n, path, inFor, rows) }
  946. if (n.name == 'slot') { oneSlot(key, n) }
  947. // AN IMPORTED STATIC IN A VIEW IS FOLDED (the archive did the same at build):
  948. // `h1 { siteTitle }` with `import { siteTitle } from '../store.hl'` is not a
  949. // member of this class, it is a constant of another file — read off that
  950. // file's class once, here, and written into the tree as text
  951. return nameRead(key, n.name, rows, n)
  952. }
  953. if (n.tag == 'view_for') {
  954. // `for (row of list) { … }` — the list is a member (or a row field), the
  955. // body's entries are rendered once per entry with `row` bound to it
  956. let body = hlSyntax(gen, key, n.body)
  957. let children = []
  958. // THE ROW VARIABLE IS IN SCOPE INSIDE THE BODY, and nowhere else: the list is
  959. // read in the scope that stands around the `for`
  960. let list = ref(key, n.list, rows)
  961. let inner = rows.slice(0)
  962. inner.push(n.varName)
  963. for (h of body.entries) {
  964. let c = node(key, h, path, true, inner)
  965. if (c != null) { children.push(c) }
  966. }
  967. // THE SITE, as every element node carries one: the id the module's tables
  968. // file this `for`'s row under, so the browser reads what the list depends
  969. // on from the compiler instead of guessing it off `list.name`.
  970. return { k = 'for'; row = n.varName; list = list; body = children; site = baseName(pathOf(key)) + ':' + n.line + ':' + n.col; }
  971. }
  972. if (n.tag == 'view_if') {
  973. let then = []
  974. let cons = hlSyntax(gen, key, n.consequent)
  975. for (h of cons.entries) {
  976. let c = node(key, h, path, inFor, rows)
  977. if (c != null) { then.push(c) }
  978. }
  979. let other = []
  980. let alt = hlSyntax(gen, key, n.alternate) // null when there is no else
  981. if (alt != null) {
  982. if (alt.tag == 'view_if') {
  983. other.push(node(key, n.alternate, path, inFor, rows))
  984. } else {
  985. for (h of alt.entries) {
  986. let c = node(key, h, path, inFor, rows)
  987. if (c != null) { other.push(c) }
  988. }
  989. }
  990. }
  991. // A BRANCH CONDITION IS A READ (COMPONENTS: a member or a loop path).
  992. // Anything else came back null here and the branch rendered nothing, on the
  993. // server and after hydration, with no word said (ticket #17: `if (!flag)`).
  994. let cond = ref(key, n.condition, rows)
  995. if (cond == null) {
  996. let c = hlSyntax(gen, key, n.condition)
  997. hlError("hl:web: " + baseName(pathOf(key)) + ':' + c.line + ':' + c.col + " — a View `if` takes a member, a field path or a `for` row variable as its condition, and this one is an expression: declare it at the root of " + baseName(pathOf(key)) + " (`showIt = !flag`) and write `if (showIt)`")
  998. }
  999. return { k = 'if'; cond = cond; then = then; other = other; site = baseName(pathOf(key)) + ':' + n.line + ':' + n.col; }
  1000. }
  1001. if (n.tag == 'member_expression') {
  1002. // `p.title` — a field path off a member or a row variable
  1003. let r = ref(key, handle, rows)
  1004. if (r != null) { return r }
  1005. }
  1006. if (n.tag == 'on_statement') {
  1007. // a DOM event handled by the literal that carries it: the browser finds the
  1008. // literal in the instance's View by the path of keys and fires the event at it
  1009. // THE SITE IS THE HANDLER'S ID: the tables file this handler's write set
  1010. // under it, and the browser repaints exactly those members when it runs.
  1011. return { k = 'on'; event = n.event; site = baseName(pathOf(key)) + ':' + n.line + ':' + n.col; }
  1012. }
  1013. return { k = 'other'; tag = n.tag; }
  1014. }
  1015. // A COMPONENT HAS EXACTLY ONE SLOT (COMPONENTS §2 table, §12): a second one rendered the
  1016. // child a second time, with no word said (mission 322 row 4)
  1017. oneSlot(key, n) {
  1018. let here = baseName(pathOf(key)) + ':' + n.line + ':' + n.col
  1019. if (slotAt[key] != null) {
  1020. hlError("hl:web: " + here + " — a second `slot` in this View (the first is at " + slotAt[key] + "): a component has exactly one slot, where the page it wraps or the fill it is given renders")
  1021. }
  1022. slotAt[key] = here
  1023. return null
  1024. }
  1025. isMember(key, name) {
  1026. for (m of hlMembers(gen, key)) { if (m.name == name) { return true } }
  1027. return false
  1028. }
  1029. // THE READ OF A BARE NAME IN A VIEW — wherever the name stands. A text child, an
  1030. // attribute's value and a reference-site binding are ONE lookup with ONE refusal:
  1031. //
  1032. // a `for` row variable standing around the read → read at render, from the row
  1033. // a member of this file → read at render, from the instance
  1034. // a name this file imports by BRACE → a STATIC of another file:
  1035. // constant-folded here, at build
  1036. // anything else → the located refusal (checkRead)
  1037. //
  1038. // An ATTRIBUTE used to skip the middle two and record every name as a member read,
  1039. // so `a { href = brandHref }` on a braced import asked the instance for a member it
  1040. // does not have and the renderer raised error.UndefinedProperty with view.hl's line
  1041. // and nothing of the app's — while the same name as a TEXT CHILD rendered fine
  1042. // (creator, routger migration W8). A read is a read; where it stands decides
  1043. // nothing about what it names.
  1044. nameRead(key, name, rows, at) {
  1045. if (rows != null && rows.includes(name)) { return { k = 'member'; name = name; } }
  1046. if (isMember(key, name)) { return { k = 'member'; name = name; } }
  1047. // A BRACED IMPORT FOLDS EVEN WHEN ITS VALUE IS NULL: the name resolved, so the
  1048. // read is answered here and never reaches the instance (a null static used to
  1049. // fall through to a member read and raise the same UndefinedProperty).
  1050. if (importsName(key, name)) {
  1051. let folded = importedStatic(key, name)
  1052. // THE VALUE AS WELL AS THE TEXT: an attribute and a text child want the text,
  1053. // and a reference binding wants the value the author's file declared (§12)
  1054. return { k = 'text'; text = folded == null ? '' : '' + folded; kind = 'folded'; value = folded; }
  1055. }
  1056. checkRead(key, name, rows, at)
  1057. return { k = 'member'; name = name; }
  1058. }
  1059. // A VIEW READS ONLY WHAT ITS FILE DECLARES. A name that is neither a member of
  1060. // this class, nor a static it imports by brace, nor a `for` row variable standing
  1061. // around this read, is a typo or a missing declaration — refused HERE, at the
  1062. // build of the tree (boot), naming the file and the line, instead of a 500 out of
  1063. // the renderer with the language's UndefinedProperty and no line of the app's.
  1064. checkRead(key, name, rows, n) {
  1065. if (rows != null && rows.includes(name)) { return null }
  1066. if (isMember(key, name)) { return null }
  1067. if (importsName(key, name)) { return null }
  1068. let hint = name == 'session' ? "`session = null` to receive the connection's session" : name == 'host' ? "`host = null` to receive the request's host" : name == 'headers' ? "`headers = null` to receive the request's headers" : "`" + name + " = null`"
  1069. hlError("hl:web: " + baseName(pathOf(key)) + ':' + n.line + ':' + n.col + " — the View reads '" + name + "', which this file declares nowhere: declare it at the file's root (" + hint + "), or write the name it was meant to be")
  1070. }
  1071. // does this file import that name by brace from another file?
  1072. \* `--port=N` or `--port N` among the program's arguments, or null. *\
  1073. portArgument() {
  1074. let given = args()
  1075. let i = 0
  1076. while (i < given.length) {
  1077. let a = given[i]
  1078. let text = null
  1079. if (a.startsWith('--port=')) {
  1080. text = a.slice(7)
  1081. } else if (a == '--port' && i + 1 < given.length) {
  1082. text = given[i + 1]
  1083. }
  1084. if (text != null) {
  1085. let digits = text.length > 0 && text.length <= 5
  1086. let b = toBytes(text)
  1087. let k = 0
  1088. while (k < b.length) {
  1089. if (b[k] < 48 || b[k] > 57) { digits = false }
  1090. k = k + 1
  1091. }
  1092. if (!digits || toNumber(text) > 65535) {
  1093. hlError("hl:web: invalid --port value '" + text + "' — a port is a number 0-65535")
  1094. }
  1095. return toNumber(text)
  1096. }
  1097. i = i + 1
  1098. }
  1099. return null
  1100. }
  1101. importsName(key, name) {
  1102. for (imp of graph.files[key].imports) {
  1103. if (imp.key != null && imp.names.includes(name)) { return true }
  1104. }
  1105. return false
  1106. }
  1107. // the value of a static this file imports by brace from another .hl file, or null —
  1108. // read off an instance of that file (a class value takes no computed index, an
  1109. // instance does; the file is constructed once, its statics were evaluated at load)
  1110. importedStatic(key, name) {
  1111. for (imp of graph.files[key].imports) {
  1112. if (imp.key != null && imp.names.includes(name)) {
  1113. if (staticHolders[imp.key] == null) { staticHolders[imp.key] = construct(imp.key, constructionArgs(imp.key, {}, anonSession(), null, null)) }
  1114. return staticHolders[imp.key][name]
  1115. }
  1116. }
  1117. return null
  1118. }
  1119. // a READ in the View: a member (`title`), or a field path (`p.title`) whose root
  1120. // is a member or a `for` row variable — the client decides which at render time
  1121. ref(key, handle, rows) {
  1122. let n = hlSyntax(gen, key, handle)
  1123. if (n.tag == 'identifier') { checkRead(key, n.name, rows, n) return { k = 'member'; name = n.name; } }
  1124. // A LIST WRITTEN IN PLACE (`for (n of [1, 2])`) is a literal, read as its value: the
  1125. // same folded 'text' node a folded static is, so every reader takes it the way it takes
  1126. // that one. Its entries are literals — anything else has no value before a read.
  1127. if (n.tag == 'array_expression') {
  1128. let items = []
  1129. for (e of n.elements) {
  1130. let el = hlSyntax(gen, key, e)
  1131. if (el == null || el.tag != 'literal') {
  1132. hlError("hl:web: " + baseName(pathOf(key)) + ':' + n.line + ':' + n.col + " — a list written in a View can hold literals only; declare it as a member to loop over anything else")
  1133. }
  1134. items.push(view.literalValue(el.kind, el.text))
  1135. }
  1136. return { k = 'text'; text = ''; kind = 'folded'; value = items; }
  1137. }
  1138. if (n.tag == 'member_expression' && !n.computed) {
  1139. let obj = hlSyntax(gen, key, n.object)
  1140. let prop = hlSyntax(gen, key, n.property)
  1141. if (obj.tag == 'identifier') { checkRead(key, obj.name, rows, obj) return { k = 'field'; name = obj.name; path = [prop.name]; } }
  1142. let inner = ref(key, n.object, rows)
  1143. if (inner != null && inner.k == 'field') {
  1144. let path = inner.path.slice(0)
  1145. path.push(prop.name)
  1146. return { k = 'field'; name = inner.name; path = path; }
  1147. }
  1148. }
  1149. return null
  1150. }
  1151. // THE COMPOSED CHILD: an entry named after a class the file imports, whose file
  1152. // has a View. `Child { count = count on done(v) { … } }` — the entries are the
  1153. // BINDINGS (host values handed to the child's construction as named arguments)
  1154. // and the reference-site handlers. The graph says which name is which file.
  1155. componentKeyOf(key, name) {
  1156. for (imp of graph.files[key].imports) {
  1157. if (imp.default == name && imp.key != null && viewHandle(imp.key) != 0) { return imp.key }
  1158. }
  1159. return null
  1160. }
  1161. // THE REFERENCE'S SITE IS IN ITS PATH. A path of class names alone made two
  1162. // references of one class under one parent (`body/Card` twice) the SAME node key,
  1163. // so both collapsed onto one mount and one of the two fills was lost. A reference
  1164. // is a construction: each one is its own mount, so each one is its own path.
  1165. componentStep(cls, at) {
  1166. return cls + '@' + at.line + ':' + at.col
  1167. }
  1168. // is this entry a `Style.rule` reference? (the `Style` of THIS file, by name)
  1169. styleRef(key, e) {
  1170. let obj = hlSyntax(gen, key, e.object)
  1171. return obj.tag == 'identifier' && obj.name == 'Style'
  1172. }
  1173. // THE REFERENCE'S POSITIONAL SIGNATURE (§12: "a reference is a construction, so its
  1174. // POSITIONAL entries bind to the class's declared properties in declaration order —
  1175. // the same rule `new X(a, b)` follows").
  1176. //
  1177. // MEASURED, not guessed (2026-09-13, this worker): `new X(a, b, …)` fills the class's
  1178. // root PROPERTY DECLARATIONS in SOURCE ORDER, one slot each — `on` handlers and
  1179. // methods take no slot, and `hlMembers` returns exactly that list in exactly that
  1180. // order, so the tree builder reads the signature straight off it. Three of those
  1181. // declarations are not properties of the COMPOSITION and are left out here:
  1182. //
  1183. // `View` and `Style` — what the component renders and paints WITH, not what it is
  1184. // constructed from. The language does give them a slot (a
  1185. // bare `new` binds them), but §12 says `Card { "text" }` with
  1186. // no declared property takes its text as FILL, and a
  1187. // component always declares a View: counting it would make
  1188. // the positional-literal fill unreachable in every component
  1189. // there is.
  1190. // `slot` — the late-bound child, not state (§12); and with the fill
  1191. // rendered where the child places it the two readings emit
  1192. // the same HTML anyway.
  1193. // every `static` — a static belongs to the CLASS (§12 build-time constants), so
  1194. // a reference cannot seed one for every other reference.
  1195. //
  1196. // A NAMED assignment does NOT free its slot — measured: `new Q('n1', beta = 'B', 'n2')`
  1197. // puts 'n2' in the SECOND declaration and 'B' in beta. It is applied AFTER the
  1198. // positional ones and wins, which is why the positional bindings are emitted first
  1199. // below. (COMPONENTS.md:711 reads "a property the reference also assigns by name is
  1200. // not in the signature"; the interpreter says otherwise and the parenthetical in the
  1201. // same line — "named is applied after positional; the name wins, as in `new`" — is
  1202. // what this follows.)
  1203. positionalSignature(key) {
  1204. let out = []
  1205. for (m of hlMembers(gen, key)) {
  1206. if (!m.isStatic && m.name != 'View' && m.name != 'Style' && m.name != 'slot') { out.push(m.name) }
  1207. }
  1208. return out
  1209. }
  1210. component(key, cls, childKey, v, at, path, inFor, rows) {
  1211. let bindings = []
  1212. let positional = []
  1213. let ons = []
  1214. let fill = []
  1215. let here = path.slice(0)
  1216. here.push(componentStep(cls, at))
  1217. let sig = positionalSignature(childKey)
  1218. let taken = 0
  1219. if (v != null) {
  1220. for (h of v.entries) {
  1221. let e = hlSyntax(gen, key, h)
  1222. if (e.tag == 'object_property') {
  1223. let val = hlSyntax(gen, key, e.value)
  1224. // A BINDING NAMES A DECLARED MEMBER OF THE CHILD (COMPONENTS §12): the value
  1225. // otherwise went into the construction and nowhere, with no word said
  1226. // (mission 322 row 12). An element entry is the fill, not a binding.
  1227. if (val.tag != 'object_expression' && !isMember(childKey, e.key)) {
  1228. hlError("hl:web: " + baseName(pathOf(key)) + ':' + e.line + ':' + e.col + " — " + cls + " has no member '" + e.key + "' to bind: " + baseName(pathOf(childKey)) + " declares " + positionalSignature(childKey).join(', '))
  1229. }
  1230. // A LITERAL ON A REFERENCE KEEPS ITS TYPE (§12 "typed, not stringified"):
  1231. // the binding carries the literal's KIND, and `view.refValue` turns the
  1232. // pair into the value the child's member is given. Written as text alone,
  1233. // `Level2 { n = 1 }` handed the child the String "1" and `n * 97` refused
  1234. // (measured 2026-09-14, demo-nested wall 3).
  1235. if (val.tag == 'literal') { bindings.push({ name = e.key; text = val.text; kind = val.kind; }) }
  1236. else if (val.tag == 'identifier') {
  1237. // a binding is a read at the reference site, so it is the same lookup
  1238. let r = nameRead(key, val.name, rows, val)
  1239. // …and a folded static crosses as its VALUE, for the same reason
  1240. if (r.k == 'text') { bindings.push({ name = e.key; text = r.text; kind = 'folded'; value = r.value; }) }
  1241. else { bindings.push({ name = e.key; member = val.name; }) }
  1242. }
  1243. else if (val.tag == 'member_expression') { bindings.push({ name = e.key; ref = ref(key, e.value, rows); }) }
  1244. else {
  1245. // `Card { span { … } }` — an element entry is not a binding, it is the FILL
  1246. let c = node(key, h, here, inFor, rows)
  1247. // …and an EXPRESSION is neither, so it is refused rather than dropped:
  1248. // the same rule an attribute follows (mission 312 wall 4).
  1249. if (c == null) {
  1250. hlError("hl:web: " + baseName(pathOf(key)) + ':' + val.line + ':' + val.col + " — '" + e.key + "' is bound to an expression on the reference " + cls + ", and a binding is a literal, a member or a field path: declare the expression at the root of " + baseName(pathOf(key)) + " (`" + e.key + "Value = …`) and write `" + e.key + " = " + e.key + "Value`")
  1251. }
  1252. fill.push(c)
  1253. }
  1254. } else if (e.tag == 'on_statement') {
  1255. // A HANDLER WRITTEN ON A REFERENCE IS THE HOST'S, bound on the child's ROOT
  1256. // element. The reference is a literal of THIS file's View, so its behaviour
  1257. // is minted from THIS file's site and its body reaches this file through the
  1258. // owner rule — the same path an element's own handler takes. The child's own
  1259. // handler on that element is not replaced: both are listeners on one element
  1260. // and both run, the child's first, because it was bound when the child's tree
  1261. // was claimed. (Until 2026-09-13 the event was collected here and dropped: a
  1262. // reference with `on submit` never bound, and a form submitted natively.)
  1263. // …AND ITS SITE, because the tables file this handler's write set
  1264. // under it: the browser repaints exactly what it wrote (mission 309).
  1265. ons.push({ event = e.event; site = baseName(pathOf(key)) + ':' + e.line + ':' + e.col; })
  1266. } else if (e.tag == 'member_expression' && !e.computed && styleRef(key, e)) {
  1267. // a `Style.rule` written on a reference: the reference renders no element
  1268. // of its own, so there is nothing for the class to land on (§12)
  1269. hlError("hl:web: " + baseName(pathOf(key)) + ':' + at.line + ':' + at.col + " — a Style rule cannot be written on the component reference '" + cls + "': a reference renders no element of its own. Write the rule on an element inside " + baseName(pathOf(childKey)) + ", or name a '#" + cls + "' local rule in this file")
  1270. } else {
  1271. // AN ORDERED ENTRY. A literal or a read is the next declared property's
  1272. // value while the signature has room — `Button { "SD" }` is `Button
  1273. // { label = "SD" }` — and everything else, plus everything that EXCEEDS
  1274. // the signature, is the FILL: a fragment of THIS file's View, with its
  1275. // reads, its handlers and its `for` rows (§12 "host content").
  1276. let c = node(key, h, here, inFor, rows)
  1277. if (c != null) {
  1278. if (taken < sig.length && (c.k == 'text' || c.k == 'member' || c.k == 'field')) {
  1279. // the same rule as the named form above: a literal keeps its kind and a
  1280. // folded static crosses as its value
  1281. if (c.k == 'text') { positional.push({ name = sig[taken]; text = c.text; kind = c.kind; value = c.value; }) }
  1282. else if (c.k == 'member') { positional.push({ name = sig[taken]; member = c.name; }) }
  1283. else { positional.push({ name = sig[taken]; ref = c; }) }
  1284. taken = taken + 1
  1285. } else { fill.push(c) }
  1286. }
  1287. }
  1288. }
  1289. }
  1290. // THE NAMED ASSIGNMENTS COME LAST, so the name wins over the positional entry that
  1291. // landed on the same property (measured: that is what `new` does)
  1292. let allBindings = []
  1293. for (b of positional) { allBindings.push(b) }
  1294. for (b of bindings) { allBindings.push(b) }
  1295. bindings = allBindings
  1296. // FILLING WHAT PLACES NO SLOT IS A LOCATED ERROR (§12): the child would drop the
  1297. // content silently, which is exactly the bug this rule was written for.
  1298. if (fill.length > 0 && !isMember(childKey, 'slot')) {
  1299. hlError("hl:web: " + baseName(pathOf(key)) + ':' + at.line + ':' + at.col + " — " + cls + " is filled here, but " + baseName(pathOf(childKey)) + " declares no 'slot' to fill: declare `slot = null` there and place `slot` in its View, or write the content outside the reference")
  1300. }
  1301. let classes = []
  1302. if (styleRules(key).includes('#' + cls) && !viewIds(key).includes(cls)) {
  1303. classes.push(view.localClass(key))
  1304. for (t of rootTags(childKey)) { noteRef(key, t, '#' + cls) }
  1305. }
  1306. // THE NODE NAMES ITS CHILD, it does not carry it. What the browser needs to build
  1307. // a child the server never mounted — the module url and the View tree — stands
  1308. // ONCE in the seed's blueprint table, keyed by this `key` (blueprintsIn below).
  1309. // The node used to carry that pair itself, and only when it stood inside a `for`:
  1310. // a child deeper in a minted child's own tree therefore had nothing to build from
  1311. // and was silently missing after a push (a comment card's like button and its
  1312. // edit history, creator's social app, 2026-09-13).
  1313. // THE REFERENCE'S OWN SITE: `file:line:col` of the reference literal, the id the
  1314. // JavaScript target mints ITS behaviour class under — what a handler written on
  1315. // the reference is built from, in the host's frame (client.hl bindRefOns)
  1316. let site = baseName(pathOf(key)) + ':' + at.line + ':' + at.col
  1317. return { k = 'component'; cls = cls; key = childKey; path = here; bindings = bindings; ons = ons; classes = classes; row = inFor; fill = fill; site = site; }
  1318. }
  1319. // ---- Style, the View side (§4, as the archive did it) --------------------------
  1320. // The tree builder writes the class on the element and REPORTS what it wrote
  1321. // (`styleRefs[key]` = [{ tag rule }]) and the element names it rendered
  1322. // (`styleTags[key]`); web/style.hl spells the selectors from those. Three ways
  1323. // a rule reaches an element: `Style.rule` written on it (class = the tag-prefix
  1324. // strip of the rule name), a `#rule` local of this file matching the element by
  1325. // NAME (class = this file's four-character class; `#Child` matches a composed
  1326. // child's root elements), and — decided in style.hl, no class — a rule named
  1327. // like an element of this file's own View.
  1328. styleRules(key) {
  1329. if (styleNames[key] != null) { return styleNames[key] }
  1330. let names = []
  1331. for (m of hlMembers(gen, key)) {
  1332. if (m.name == 'Style') {
  1333. let v = hlSyntax(gen, key, m.node)
  1334. for (h of v.entries) {
  1335. let e = hlSyntax(gen, key, h)
  1336. if (e.tag == 'object_property' && !names.includes(e.key)) { names.push(e.key) }
  1337. }
  1338. }
  1339. }
  1340. styleNames[key] = names
  1341. return names
  1342. }
  1343. noteRef(key, tag, rule) {
  1344. if (styleRefs[key] == null) { styleRefs[key] = [] }
  1345. for (r of styleRefs[key]) { if (r.tag == tag && r.rule == rule) { return null } }
  1346. styleRefs[key].push({ tag = tag; rule = rule; })
  1347. return null
  1348. }
  1349. noteTag(key, tag) {
  1350. if (styleTags[key] == null) { styleTags[key] = [] }
  1351. if (!styleTags[key].includes(tag)) { styleTags[key].push(tag) }
  1352. return null
  1353. }
  1354. // `#name` IS AN ID WHEN THE VIEW HAS ONE (creator's ruling, ticket #51 / R3): a
  1355. // `#name` rule targets the element with `id = 'name'` if this file's View writes
  1356. // that id, and is the file-local class of the elements named `name` otherwise. The
  1357. // ids are read off the View's SYNTAX before the tree is built, because an element
  1358. // named `name` may stand before the element that carries the id. Only a literal id
  1359. // counts — a member-bound one has no value until render. A component reference's
  1360. // own `id = …` is a binding for the child, not an element of this View; its fill is.
  1361. viewIds(key) {
  1362. if (styleIds[key] != null) { return styleIds[key] }
  1363. let out = []
  1364. let handle = viewHandle(key)
  1365. if (handle != 0) { idsIn(key, hlSyntax(gen, key, handle), false, &out) }
  1366. styleIds[key] = out
  1367. return out
  1368. }
  1369. idsIn(key, block, isRef, &out) {
  1370. if (block == null || block.entries == null) { return null }
  1371. for (h of block.entries) {
  1372. let n = hlSyntax(gen, key, h)
  1373. if (n != null && n.tag == 'object_property') {
  1374. let v = hlSyntax(gen, key, n.value)
  1375. if (v.tag == 'object_expression') { idsIn(key, v, componentKeyOf(key, n.key) != null, &out) }
  1376. else if (!isRef && n.key == 'id' && v.tag == 'literal' && !out.includes(v.text)) { out.push(v.text) }
  1377. } else if (n != null && n.tag == 'view_for') {
  1378. idsIn(key, hlSyntax(gen, key, n.body), false, &out)
  1379. } else if (n != null && n.tag == 'view_if') {
  1380. idsIn(key, hlSyntax(gen, key, n.consequent), false, &out)
  1381. let alt = hlSyntax(gen, key, n.alternate)
  1382. if (alt != null && alt.tag == 'view_if') { idsIn(key, { entries = [n.alternate] }, false, &out) }
  1383. else { idsIn(key, alt, false, &out) }
  1384. }
  1385. }
  1386. return null
  1387. }
  1388. // the root element tags of a component's tree (a composed child under `#Child`)
  1389. rootTags(key) {
  1390. let out = []
  1391. for (n of tree(key)) { if (n.k == 'el' && !out.includes(n.tag)) { out.push(n.tag) } }
  1392. return out
  1393. }
  1394. baseName(p) {
  1395. let i = p.lastIndexOf('/')
  1396. return i < 0 ? p : p.slice(i + 1)
  1397. }
  1398. element(key, tag, v, path, inFor, rows) {
  1399. let attrs = []
  1400. let children = []
  1401. let here = path.slice(0)
  1402. here.push(tag)
  1403. let domTag = view.domTag(tag)
  1404. // `body { }` IS THE PAGE'S BODY, and only as the View's root (COMPONENTS §6): below
  1405. // the root it rendered a second, nested <body> no browser keeps (mission 322 row 5)
  1406. if (domTag == 'body' && path.length > 0) {
  1407. hlError("hl:web: " + baseName(pathOf(key)) + ':' + v.line + ':' + v.col + " — a `body` element below the View's root: `body { … }` is the page's body and stands only as a View's root")
  1408. }
  1409. noteTag(key, tag)
  1410. let classes = []
  1411. for (h of v.entries) {
  1412. let e = hlSyntax(gen, key, h)
  1413. let styled = false
  1414. if (e.tag == 'member_expression' && !e.computed) {
  1415. let obj = hlSyntax(gen, key, e.object)
  1416. let prop = hlSyntax(gen, key, e.property)
  1417. if (obj.tag == 'identifier' && obj.name == 'Style') {
  1418. if (!styleRules(key).includes(prop.name)) { hlError("no Style rule named '" + prop.name + "' in " + key) }
  1419. if (prop.name.startsWith('#')) { hlError("'" + prop.name + "' in " + key + " is a LOCAL rule and applies by NAMING the element, not by being referenced — every '" + prop.name.slice(1) + "' this file's View renders already carries it; delete the reference") }
  1420. let cls = view.kebab(view.className(prop.name, tag)) // the class is kebab-case (creator, 2026-09-12)
  1421. if (!classes.includes(cls)) { classes.push(cls) }
  1422. noteRef(key, tag, prop.name)
  1423. styled = true
  1424. }
  1425. }
  1426. if (styled) {
  1427. // a Style reference is not a child
  1428. } else if (e.tag == 'object_property') {
  1429. let val = hlSyntax(gen, key, e.value)
  1430. if (val.tag == 'literal' && view.isBoolAttr(e.key) && val.kind == 'boolean') {
  1431. // A BOOLEAN ATTRIBUTE IS ITS PRESENCE (ticket #33): `disabled = true` is the
  1432. // attribute, `disabled = false` its absence — decided here, once, for every
  1433. // writer of the markup
  1434. if (val.text == 'true') { attrs.push({ name = e.key; text = ''; }) }
  1435. } else if (val.tag == 'literal') {
  1436. attrs.push({ name = e.key; text = val.text; })
  1437. } else if (val.tag == 'identifier') {
  1438. // THE SAME LOOKUP A TEXT CHILD USES: a folded static becomes the
  1439. // attribute's literal text, a member or a row stays a read
  1440. let r = nameRead(key, val.name, rows, val)
  1441. if (r.k == 'text' && view.isBoolAttr(e.key)) { if (view.boolOn(r.value)) { attrs.push({ name = e.key; text = ''; }) } }
  1442. else if (r.k == 'text') { attrs.push({ name = e.key; text = r.text; }) }
  1443. else { attrs.push({ name = e.key; member = val.name; }) }
  1444. } else if (val.tag == 'member_expression') {
  1445. attrs.push({ name = e.key; ref = ref(key, e.value, rows); })
  1446. } else {
  1447. let c = node(key, h, here, inFor, rows)
  1448. // AN EXPRESSION AS AN ATTRIBUTE VALUE IS REFUSED HERE, AND WAS DROPPED IN
  1449. // SILENCE (mission 312 wall 4). `span { id = 'L3t' + n }` rendered no `id`
  1450. // at all and said nothing — the element came back with empty attributes and
  1451. // the author had no line to look at. A View attribute takes a literal, a
  1452. // member or a field path; anything else is a member of this file, declared
  1453. // at its root. The nested-element form (`div { span { … } }`) is the entry
  1454. // whose value is a hybrid, and it is what `node` answers for above.
  1455. if (c == null) {
  1456. hlError("hl:web: " + baseName(pathOf(key)) + ':' + val.line + ':' + val.col + " — the attribute '" + e.key + "' is given an expression, and a View attribute is a literal, a member or a field path: declare the expression at the root of " + baseName(pathOf(key)) + " (`" + e.key + "Value = …`) and write `" + e.key + " = " + e.key + "Value`")
  1457. }
  1458. children.push(c)
  1459. }
  1460. } else {
  1461. let c = node(key, h, here, inFor, rows)
  1462. if (c != null) { children.push(c) }
  1463. }
  1464. }
  1465. // a `#tag` LOCAL rule of this file matches this element by name: the file's class
  1466. // — unless the View writes `id = 'tag'` somewhere, then the rule is that id's (R3)
  1467. if (styleRules(key).includes('#' + tag) && !viewIds(key).includes(tag)) {
  1468. let cls = view.localClass(key)
  1469. if (!classes.includes(cls)) { classes.push(cls) }
  1470. noteRef(key, domTag, '#' + tag)
  1471. }
  1472. if (classes.length > 0) {
  1473. let joined = ''
  1474. for (c of classes) { joined = joined == '' ? c : joined + ' ' + c }
  1475. let merged = false
  1476. for (a of attrs) {
  1477. if (a.name == 'class' && a.text != null) { a.text = a.text + ' ' + joined merged = true }
  1478. }
  1479. if (!merged) { attrs.push({ name = 'class'; text = joined; }) }
  1480. }
  1481. // (§6 sibling entries: inside the literal `tag` would name the entry just written,
  1482. // so the source key is taken before the literal is built)
  1483. let srcKey = tag
  1484. // THE SITE: `file:line:col` of the literal, the id the JavaScript target mints the
  1485. // literal's class under — the browser builds this element's literal from it
  1486. // (hlLiteralNew), so a row created after a list changed has a literal too
  1487. let site = baseName(pathOf(key)) + ':' + v.line + ':' + v.col
  1488. return { k = 'el'; tag = domTag; key = srcKey; path = here; attrs = attrs; children = view.implied(domTag, children, here, site); site = site; }
  1489. }
  1490. // ---- an instance and its state -------------------------------------------------
  1491. // THE ROUTE'S GROUPS ARE THE CONSTRUCTION'S NAMED ARGUMENTS (creator ruling
  1492. // 2026-09-12): `:id` is a parameter of the class like any other, set and pinned
  1493. // before its root runs, so `_post = db.fetch(id)` on line 1 sees it. Nothing is
  1494. // laid over an instance afterwards, and nothing is spelled with a sigil.
  1495. construct(key, params) {
  1496. return hlLoad(pathOf(key), params)
  1497. }
  1498. // THE VIEW IS COMPILER OUTPUT, NOT A VALUE — and so, for a render, is the Style.
  1499. // This half reads the View's SYNTAX (`tree()` below, through hlSyntax) and never its
  1500. // value; `state()` ships neither to the browser; the stylesheet is folded into class
  1501. // names at build, by a walk that constructs its OWN instance and reads `Style` there.
  1502. // Evaluating them for a render therefore built a behaviour literal per element per
  1503. // `for` row, per request, for nobody: half the construction time of a 2000-row
  1504. // component, measured 2026-09-14.
  1505. //
  1506. // The framework says so in the one way the language already offers: it PINS them.
  1507. // An explicitly passed construction value outranks every computed default (the
  1508. // creator's rule of 2026-07-26), and a pinned member does not compute its default at
  1509. // all. No language rule about a View was needed and none was added.
  1510. renderArgs(key, args) {
  1511. let out = args
  1512. if (declares(key, 'View')) { out.View = null }
  1513. if (declares(key, 'Style')) { out.Style = null }
  1514. return out
  1515. }
  1516. // does the file-class declare a member of this name?
  1517. declares(key, name) {
  1518. for (m of hlMembers(gen, key)) { if (m.name == name && !m.isStatic) { return true } }
  1519. return false
  1520. }
  1521. // EVERY SERVER REFERENCE SITE of `key` (compile.hl `derivList`'s `srv`: an initializer
  1522. // that calls an imported class) that transitively reads `root` — the same closure
  1523. // client.hl's `moved()` walks locally for an ordinary derivation, run here instead
  1524. // because a server reference site must never run in the browser (see that file's
  1525. // `d.srv` branch). The VALUES come from `state` at the call site, already correct —
  1526. // `mount()` just constructed it — this only decides WHICH of its keys belong in
  1527. // `sync`, the same as `moved()` decides which of an instance's members to repaint.
  1528. serverSyncNames(key, root) {
  1529. let list = compiler.tableOf(gen, key).derivations
  1530. let moved = [root]
  1531. let rounds = 0
  1532. let again = true
  1533. while (again && rounds <= list.length) {
  1534. again = false
  1535. rounds = rounds + 1
  1536. for (d of list) {
  1537. if (!moved.includes(d.name)) {
  1538. for (r of compiler.memberNames(d.reads)) {
  1539. if (r != d.name && moved.includes(r)) { moved.push(d.name) again = true }
  1540. }
  1541. }
  1542. }
  1543. }
  1544. let names = []
  1545. for (d of list) { if (d.serverSite && d.name != root && moved.includes(d.name)) { names.push(d.name) } }
  1546. return names
  1547. }
  1548. // THE FRAMEWORK'S OWN CONSTRUCTIONS — the sheet walk (a component is constructed to
  1549. // read its `Style`), an imported static's holder — happen outside any request, and a
  1550. // class's root runs at construction: `me = session.user` there would meet a null,
  1551. // which a real render never has (every request carries a session, minted if the
  1552. // browser brought none). So they are handed an ANONYMOUS session — nobody logged in,
  1553. // never saved — and the root takes its logged-out branch (the creator, 2026-09-13:
  1554. // /__hl/app.css was a 500 while the page it styles was 200).
  1555. anon = null
  1556. anonSession() {
  1557. if (anon == null) { anon = new HlwSession(created = now(), seen = now()) }
  1558. return anon
  1559. }
  1560. // THE SESSION AT CONSTRUCTION. A component that declares a member `session` is
  1561. // constructed with the connection's session as that named argument — the same
  1562. // instance a server face gets as its trailing argument, and nothing ambient: a
  1563. // shell reads `me = session.user` at its root on the server, and a reload renders
  1564. // logged in (measured by the creator 2026-09-13: the shell rendered logged-out
  1565. // after a reload while the faces posted as alice). The browser gets only what a
  1566. // page may see of it (`state()` below), never the id the cookie carries.
  1567. constructionArgs(key, params, s, host, hdrs) {
  1568. let wantsSession = declares(key, 'session')
  1569. let wantsHost = declares(key, 'host')
  1570. let wantsHeaders = declares(key, 'headers')
  1571. if (!wantsSession && !wantsHost && !wantsHeaders) { return params }
  1572. let args = {}
  1573. for (k of params.keys()) { args[k] = params[k] }
  1574. if (wantsSession) { args.session = s }
  1575. if (wantsHost) { args.host = host }
  1576. if (wantsHeaders) { args.headers = hdrs }
  1577. return args
  1578. }
  1579. // THE HOST AT CONSTRUCTION (ticket #74), by the same rule: a component that declares
  1580. // a member `host` is constructed with the host the request named — the `Host`
  1581. // header without its port — so an app answering one address per subdomain renders
  1582. // the right page on the server. A navigation takes it from ITS carrier: the socket's
  1583. // upgrade request, or the POST's own. Null where the request named none, and for the
  1584. // framework's own constructions above, which answer no request.
  1585. hostOf(header) {
  1586. if (header == null || header == '') { return null }
  1587. let h = header.trim()
  1588. // an IPv6 literal keeps its brackets: `[::1]:8080` is `[::1]`
  1589. if (h.startsWith('[')) {
  1590. let close = h.indexOf(']')
  1591. return close < 0 ? h : h.slice(0, close + 1)
  1592. }
  1593. let colon = h.indexOf(':')
  1594. return colon < 0 ? h : h.slice(0, colon)
  1595. }
  1596. // THE REQUEST'S HEADERS AT CONSTRUCTION (ticket #105), by the same rule again: a
  1597. // component that declares a member `headers` is constructed with the request's
  1598. // headers as a hash, every name lowercase — `headers['accept-language']`. A
  1599. // navigation takes them from its carrier, as it takes the host: the socket's upgrade
  1600. // request, or the POST's own, so they are what this browser sends. The cookie and
  1601. // the credentials are LEFT OUT: a member is state, state is shipped to the page, and
  1602. // nothing about a session ever reaches page script (`session = null` is the way to
  1603. // it). An empty hash where the request named none; null for the framework's own
  1604. // constructions, which answer no request.
  1605. requestHeaders(raw) {
  1606. let out = {}
  1607. if (raw == null) { return out }
  1608. for (k of raw.keys()) {
  1609. let name = k.toLowerCase()
  1610. if (name != 'cookie' && name != 'authorization' && name != 'proxy-authorization') { out[name] = raw[k] }
  1611. }
  1612. return out
  1613. }
  1614. state(key, page) {
  1615. let out = {}
  1616. for (m of hlMembers(gen, key)) {
  1617. if (m.name != 'View' && m.name != 'Style' && !m.isStatic) {
  1618. // A FUNCTION MEMBER IS NOT STATE. JSON has no form for it, and shipping
  1619. // it as null would PIN null over the browser's own declaration (a
  1620. // construction argument outranks the default) — so it is left out, and
  1621. // the browser's instance evaluates `hideBadge = () => { … }` itself.
  1622. if (m.name == 'session') {
  1623. // the session's PUBLIC part: who is logged in — the id stays on the server
  1624. out.session = page.session != null ? { user = page.session.user } : null
  1625. } else if (hlTypeName(page[m.name]) != 'Function') { out[m.name] = page[m.name] }
  1626. }
  1627. }
  1628. return out
  1629. }
  1630. // everything the browser needs about one mounted component — and its children:
  1631. // every component node of its tree is a mount of its own, constructed with the
  1632. // bindings evaluated against THIS instance, keyed by the node's path
  1633. mount(key, params, s, host, hdrs) {
  1634. return mountIn(key, params, s, host, hdrs, [])
  1635. }
  1636. // `chain`: the keys of the mounts above this one — what tells a component that renders
  1637. // itself (#111) where its recursion stands
  1638. mountIn(key, params, s, host, hdrs, chain) {
  1639. let page = construct(key, renderArgs(key, constructionArgs(key, params, s, host, hdrs)))
  1640. let line = chain.slice(0)
  1641. line.push(key)
  1642. let m = { key = key; params = params; view = tree(key); state = state(key, page); page = page; kids = {}; session = s; host = host; headers = hdrs; above = line; }
  1643. mountKids(&m, m.view, {}, '', true)
  1644. return m
  1645. }
  1646. // `rowKey` is what tells one row's child from the next one's: the index of every
  1647. // enclosing `for` iteration, appended to the component node's path. A component
  1648. // outside every `for` has the empty rowKey and keeps the key it always had.
  1649. // `standing`: every `if` on the way down took this branch. A branch that does not stand is
  1650. // mounted too — the browser switches to it without asking — EXCEPT a reference to a
  1651. // component already above it: a recursive component (#111) mounted in both arms of every
  1652. // `if` doubled per level, and under an `if` whose data does not shrink it never ended.
  1653. // The browser builds such a child itself when its branch comes to stand.
  1654. mountKids(&m, nodes, rows, rowKey, standing) {
  1655. for (n of nodes) {
  1656. if (n.k == 'component' && !standing && m.above.includes(n.key)) {
  1657. // not mounted: see above
  1658. } else if (n.k == 'component') {
  1659. let args = {}
  1660. for (b of n.bindings) {
  1661. if (b.text != null) { args[b.name] = view.refValue(b) }
  1662. else if (b.member != null) { args[b.name] = view.value({ k = 'member'; name = b.member; }, m.page, rows) }
  1663. else if (b.ref != null) { args[b.name] = view.value(b.ref, m.page, rows) }
  1664. }
  1665. m.kids[view.kidKey(n.path) + rowKey] = mountIn(n.key, args, m.session, m.host, m.headers, m.above)
  1666. // THE FILL IS THIS FILE'S FRAGMENT, not the child's: a component standing
  1667. // inside it is a child of THIS mount, evaluated in THIS scope
  1668. if (n.fill != null) { mountKids(&m, n.fill, rows, rowKey, standing) }
  1669. } else if (n.k == 'el') {
  1670. mountKids(&m, n.children, rows, rowKey, standing)
  1671. } else if (n.k == 'if') {
  1672. let taken = view.value(n.cond, m.page, rows)
  1673. mountKids(&m, n.then, rows, rowKey, standing && taken)
  1674. mountKids(&m, n.other, rows, rowKey, standing && !taken)
  1675. } else if (n.k == 'for') {
  1676. // ONE MOUNT PER ROW: the row is the scope the bindings are evaluated in,
  1677. // so the child is constructed once per entry, with that entry's values
  1678. let entries = view.value(n.list, m.page, rows)
  1679. if (entries != null) {
  1680. let ri = 0
  1681. for (entry of entries) {
  1682. let inner = rows + {}
  1683. inner[n.row] = entry
  1684. // THE ROW'S KEY, not its index: a child of a row travels with the
  1685. // record it was mounted for (view.rowKey, the one rule the server's
  1686. // HTML walk and the browser's region read too)
  1687. mountKids(&m, n.body, inner, rowKey + '#' + view.rowKey(entry, ri), standing)
  1688. ri = ri + 1
  1689. }
  1690. }
  1691. }
  1692. }
  1693. return null
  1694. }
  1695. // the route component and, if it declares one, its wrapping shell.
  1696. // THE PARENT IS THE GATE (COMPONENTS §5, creator 2026-08-26): a shell whose render
  1697. // places no `slot` — none in its View, or one inside a region that stands false for
  1698. // this request — gets no page. The page is then not CONSTRUCTED, not only not shown:
  1699. // its root does not run, and nothing of it reaches the document or the seed. The
  1700. // shell is built first and rendered to learn that; `placed` is the browser's answer
  1701. // when it already has one (a navigation into its own shell, or a region that opened),
  1702. // and the server's render is not asked then.
  1703. mounts(m, s, host, hdrs, placed) {
  1704. let key = keyOf(m.route.component)
  1705. let out = { page = null; shell = null; shellHtml = null; }
  1706. let w = hlFile(gen, key).wrapper
  1707. let open = w == null || placed == true
  1708. if (w != null) { out.shell = mount(w, m.params, s, host, hdrs) }
  1709. if (w != null && placed == null) {
  1710. out.shellHtml = renderOf(out.shell, shellRoot(out.shell), minify ? null : tab, slotMarker)
  1711. open = out.shellHtml.indexOf(slotMarker) >= 0
  1712. }
  1713. if (open) { out.page = mount(key, m.params, s, host, hdrs) }
  1714. return out
  1715. }
  1716. // where the page goes in the shell's first render: the page's HTML replaces it
  1717. static slotMarker = '<!--hl:slot-->'
  1718. // `body { … }` as the shell's View root IS the page body (COMPONENTS §6): its
  1719. // children are rendered into the document's body instead of nesting one
  1720. shellRoot(shell) {
  1721. let root = shell.view
  1722. if (root.length == 1 && root[0].k == 'el' && root[0].tag == 'body') { return root[0].children }
  1723. return root
  1724. }
  1725. // A MOUNT IS NOT ITS TREE. What the browser needs per mount is what makes THIS one
  1726. // this one — its key, the route's params, the state the server evaluated, its
  1727. // children — while the View tree belongs to the COMPONENT and stands once in the
  1728. // seed's blueprint table under the same key. Shipping it per mount put the same tree
  1729. // in the payload as many times as the page mounted that component.
  1730. ship(mount) {
  1731. let kids = {}
  1732. for (k of mount.kids.keys()) { kids[k] = ship(mount.kids[k]) }
  1733. return { key = mount.key; params = shipParams(mount.params); state = mount.state; module = moduleUrl(mount.key); kids = kids; }
  1734. }
  1735. \* A FUNCTION-VALUED BINDING IS NOT SHIPPED — the same rule `state` keeps for a
  1736. function MEMBER, for the same reason. A routine a host hands a child
  1737. (`PostForm { onPosted = ... }`) has no JSON form, and shipping it as null
  1738. would PIN null over the browser's own binding: a construction argument
  1739. outranks what the client evaluates. It is left out, and the browser binds it
  1740. from the host instance when it builds the mirror, exactly as it does for a
  1741. member. Until mission 320 it rode the wire as null because `JSON.stringify`
  1742. invented that null; the language refuses to now, which is what made the lie
  1743. visible. *\
  1744. shipParams(params) {
  1745. let out = {}
  1746. for (k of params.keys()) {
  1747. if (hlTypeName(params[k]) != 'Function') { out[k] = params[k] }
  1748. }
  1749. return out
  1750. }
  1751. // A COMPONENT IS SERVED AT ITS OWN `.hl` URL. A browser executes a module by
  1752. // its MIME type, never by its extension, so `text/javascript` on
  1753. // `/components/home.hl` is a module — and the url the page loads is then the
  1754. // path the author wrote in the route table, with nothing renamed in between.
  1755. // The route that answers it is the APP's (a `function` route in the manifest),
  1756. // because where an app serves its modules from is the app's to say.
  1757. modulePath(key) {
  1758. return '/' + key
  1759. }
  1760. // the url a module is LOADED at: its path and the build's version (see buildMark)
  1761. moduleUrl(key) {
  1762. return modulePath(key) + version()
  1763. }
  1764. // `?v=<hash>`: THE BUILD'S VERSION. The hash is over every text this app serves
  1765. // under it — the runtime, each component module and package half as compiled (the
  1766. // marks still in them), and the stylesheet — so any change to any of them, a
  1767. // new compiler's output included, is a new version. Computed at the first ask and
  1768. // again after a watched save; one hash for the whole build, because the modules
  1769. // import each other and a per-module hash would have to be in its importers' text.
  1770. version() {
  1771. if (buildHash == null) {
  1772. let all = runtime + stylesheet()
  1773. for (k of served.keys()) { all = all + module(k) }
  1774. for (k of packageHalfKeys(graph)) { all = all + module(k) }
  1775. // AN OFFLINE APP'S WORKER AND MANIFEST ARE PART OF THE BUILD: the worker's entry
  1776. // script names this hash, so a changed worker or a changed icon list is a new
  1777. // script to the browser, which installs it and drops the old build's cache
  1778. if (offlineKeys != null) { all = all + workerText() }
  1779. if (installable()) { all = all + JSON.stringify(webManifest()) }
  1780. buildHash = sha256(all).slice(0, 16)
  1781. }
  1782. return '?v=' + buildHash
  1783. }
  1784. // the headers of a versioned answer: a request naming THIS build's version is cached
  1785. // for a year and never revalidated; one naming another (or none) must not be, or a
  1786. // cache would keep this build's text under a url the next build reuses
  1787. cached(req, type) {
  1788. let h = { 'Content-Type' = type }
  1789. h['Cache-Control'] = req.query != null && req.query.v == buildHash && buildHash != null ? 'public, max-age=31536000, immutable' : 'no-cache'
  1790. return h
  1791. }
  1792. // A PACKAGE'S BROWSER HALF IS SERVED BESIDE THE RUNTIME. Not a convention this
  1793. // file invents: the compiler derives the specifier it writes into every importing
  1794. // module from the runtime url it is handed, and for the same reason that url is
  1795. // one member here — one url means ONE ES-module instance, and two would be two
  1796. // copies of the package's browser state. This is that derivation, on this side.
  1797. halfUrl(pkg) {
  1798. return halfDir + '/' + pkg + '/client.js'
  1799. }
  1800. // The module of the `.hl` url a request names — the on-demand half of the
  1801. // transpile. The app's function route hands the path here.
  1802. serveHl(urlPath, req) {
  1803. let key = urlPath.slice(1)
  1804. if (shipped[key] == null) {
  1805. let js = module(key)
  1806. if (js == null) { return notFound(urlPath) }
  1807. shipped[key] = js.replaceAll(buildMark, version())
  1808. }
  1809. return new Response(shipped[key], { headers = cached(req, 'text/javascript; charset=utf-8') })
  1810. }
  1811. // ---- the stylesheet -------------------------------------------------------------
  1812. // A `Style { }` member is an ORDINARY member of the file's class, so its value
  1813. // is what a construction produces — the statics it reads already folded, the
  1814. // `+` rule merge already the language's. That is the whole input; style.hl does
  1815. // the walk. The project's styles file comes first so its global rules stand
  1816. // under every component's, then every component this server can mount, in the
  1817. // order `served` holds them (the pages and the wrapper chain above them — the
  1818. // same set that has a browser module).
  1819. stylesheet() {
  1820. if (sheetText == null) {
  1821. css.gen = gen
  1822. css.view = view
  1823. let files = []
  1824. if (styles != null) {
  1825. // THE STYLES FILE: root members, its inherits first. It has to be in the
  1826. // graph (the app imports it) — its rules are read in authored order off
  1827. // the syntax and their values off the constructed instance.
  1828. let tokenKeys = [] // the token files already walked
  1829. for (sk of inheritChain(keyOf(styles))) {
  1830. if (graph.files[sk] == null) { hlError("the styles file " + sk + " is not in the project graph — import it from the app's entry so its rules can be read in authored order") }
  1831. // A TOKEN FILE the styles file member-imports (`import { dark } from './tokens.hl'`,
  1832. // there `static dark = var('#123')`) is walked BEFORE it, so its var() tokens are
  1833. // named and written into :root first. Before ticket #39 part 2 only the chain's own
  1834. // non-static members were named, and every imported token was an unknown id: a 500
  1835. // "a css variable is used before any styles file declared it". (The architect's
  1836. // patch from mission 021 of the tickets app, taken upstream.)
  1837. for (tk of tokenFilesOf(sk)) {
  1838. if (!tokenKeys.includes(tk)) {
  1839. tokenKeys.push(tk)
  1840. files.push({ key = tk; cls = graph.files[tk].class; rules = tokenRules(tk); aliases = []; refs = []; tags = []; hasView = false; isStyles = true; })
  1841. }
  1842. }
  1843. let inst = hlLoad(pathOf(sk), {})
  1844. let rules = []
  1845. let own = {}
  1846. for (m of hlMembers(gen, sk)) {
  1847. // D32: `mode = 'static'` makes EVERY root member static (the file
  1848. // directive's whole point — a token file need not repeat the keyword),
  1849. // so `m.isStatic` cannot be what decides whether a member is a css
  1850. // rule/token: that used to exclude every rule of a mode='static' file
  1851. // and emit none of them. What a rule IS — a var() token or a block —
  1852. // is a question about its VALUE, which css.hl already answers below and
  1853. // in sheet() (isBlock / isVar); static or not, a plain-scalar helper
  1854. // constant folds into nothing there regardless.
  1855. if (m.node != 0) {
  1856. let v = hlSyntax(gen, sk, m.node)
  1857. // a merged rule (`a = b + { … }`) is a block too (css.entriesOf)
  1858. rules.push({ key = m.name; node = m.node; value = inst[m.name]; isBlock = v != null && (v.tag == 'object_expression' || (v.tag == 'binary_expression' && css.isHybridValue(inst[m.name]))); })
  1859. own[m.name] = true
  1860. }
  1861. }
  1862. // EACH FILE OF THE CHAIN IS ITS OWN INSTANCE, so a token it INHERITS is a second
  1863. // CssVar with its own id: `body { color = dark }` in the child held an id the
  1864. // walker never named (ticket #39 part 1). The inherited tokens are registered
  1865. // under their names as ALIASES — named, never written into :root a second time.
  1866. // (D32, as above: `css.isVar` alone decides it, not `m.isStatic`.)
  1867. let aliases = []
  1868. for (pk of inheritChain(sk)) {
  1869. if (pk != sk) {
  1870. for (m of hlMembers(gen, pk)) {
  1871. if (own[m.name] == null && css.isVar(inst[m.name])) { aliases.push({ key = m.name; value = inst[m.name]; }) }
  1872. }
  1873. }
  1874. }
  1875. // the styles file's ROOT is collected here and not by css.entriesOf, so the
  1876. // same refusal has to be raised here: two `@media` root members are one
  1877. // name with one value and would emit the first block empty
  1878. css.guardMedia(sk, rules)
  1879. files.push({ key = sk; cls = graph.files[sk].class; rules = rules; aliases = aliases; refs = []; tags = []; hasView = false; isStyles = true; })
  1880. }
  1881. }
  1882. for (k of served.keys()) {
  1883. if (hasStyle(k)) {
  1884. tree(k) // the refs and tags are collected while the tree is built
  1885. let inst = construct(k, constructionArgs(k, {}, anonSession(), null, null))
  1886. files.push({ key = k; cls = graph.files[k].class; rules = css.entriesOf(k, styleNode(k), inst.Style); refs = styleRefs[k] != null ? styleRefs[k] : []; tags = styleTags[k] != null ? styleTags[k] : []; ids = viewIds(k); hasView = viewHandle(k) != 0; isStyles = false; })
  1887. }
  1888. }
  1889. sheetText = css.sheet(files)
  1890. }
  1891. return sheetText
  1892. }
  1893. // the .hl files a styles file member-imports that hold var() tokens (a package like
  1894. // hl:web/css is skipped), in import order
  1895. tokenFilesOf(key) {
  1896. let out = []
  1897. for (imp of graph.files[key].imports) {
  1898. if (imp.key != null && !imp.key.startsWith('hl:') && imp.names != null && imp.names.length > 0 && graph.files[imp.key] != null) {
  1899. if (!out.includes(imp.key) && tokenRules(imp.key).length > 0) { out.push(imp.key) }
  1900. }
  1901. }
  1902. return out
  1903. }
  1904. // a token file's var() tokens as styles-file root rules, in authored order — EVERY static
  1905. // token of the file, not only the imported names (a token may name another). The values
  1906. // are the file's statics, evaluated once per process: the same CssVar instances, with the
  1907. // same ids, the importer holds.
  1908. tokenRules(key) {
  1909. let rules = []
  1910. let inst = null
  1911. for (m of hlMembers(gen, key)) {
  1912. if (m.isStatic && m.node != 0) {
  1913. if (inst == null) { inst = hlLoad(pathOf(key), {}) }
  1914. let v = inst[m.name]
  1915. if (css.isVar(v)) { rules.push({ key = m.name; node = m.node; value = v; isBlock = false; }) }

Only the first lines are shown.

Branches

Latest commits

  • 139fafd8tracker#16: short bio (4 lines, click = all), real-data check script, README + STATUSmre
  • 93be9476tracker#16: person pages /person/<slug> with the filmography fetched from TMDB on the first visit (step by step), gatemre
  • 47a3cae6STATUS: mission 053 merge commit idsmre
  • dcc5eecaMerge branch 't14-search'mre
  • 03edc783Merge branch 't15-tvmaze'mre
  • 71b46345tracker#15: numbering check by date or title, placeholder titles in other languages, docs + real-data proofmre
  • 6bb2daf1tracker#13: homepage (tiles, intro, latest movies/shows), /shows, /movies/page/N, /my/movies; lists cached in memorymre
  • b8bd1157tracker#14: README + STATUS (search, real-data numbers, gate, merge notes)mre
  • 65c694a8tracker#14: search — header magnifier, /search/<text> (in-memory word-prefix index over titles + people), Fetch from web (TMDB search/multi, ours left out), Add = import via syncShow; gate +25 checks, real-data scriptmre
  • 34f2c15btracker#15: TVmaze merge in the sync (gaps only: new episodes/seasons, empty titles/air dates; numbering check), fake TVmaze episodes + gatemre
  • cbdc4ea7tracker#12: link icons TMDB/IMDb/TVDB/TVmaze; sync fills missing ids (TVmaze lookup); movies fetched via /movie/mre
  • b105bcd8tracker#11: Hybriel master ff51cf46 (checks no longer vanish), mobile-first styles, carets, follow button, sign-in modal, inverted check, orange castmre
  • 31b758aatracker#10: installable app (manifest, service worker, offline shell), own icon + faviconmre
  • 2fa9d997tracker#9: TMDB sync (followed shows: seasons, episodes, posters), tools/sync-tmdb.hl + daily run 04:00 UTC, fake TMDB in gatemre
  • 49e1f61edeploy.sh: back up live storage/.sessions/.env before every deploy (newest 5 kept)mre
  • 54070a4etracker#8: /my/unwatched + /my/schedule (301 from old), S01E01, title (year), 1 episode, watched-set lookup (unwatched 15s -> 1s)mre
  • 3251488atracker#7: /my/shows (followed shows, newest follow first, poster, title, last watched SxxEyy); gate can take screenshots (TRACKER_GATE_SHOTS)mre
  • 44b7d9f9tracker#6: /schedule — upcoming episodes of followed shows, soonest firstmre
  • 91c9fc8ctracker#5: /unwatched — unwatched released episodes of followed shows, newest firstmre
  • a97c0295tracker#4: show page /shows/:slug (header, seasons, episodes, watch checks) + tools/relink-episode-seasons.hlmre