aontu 0.62.0 → 0.64.0

package/src/aontumodel.ts

@@ -0,0 +1,26 @@
+/* Copyright (c) 2025 Richard Rodger, MIT License */
+
+// GENERATED by ts/scripts/aontu.cjs (`make aontu`) from aontu/ —
+// DO NOT EDIT. The tree is the source;
+// ts/test/aontumodel.test.ts asserts this copy is identical with
+// it.
+
+const AONTU_SCHEME = 'aontu:'
+
+const AONTU_SOURCES: Record<string, string> = {
+  "aontu:lang/markdown": "# aontu:lang/markdown --- THE MARKDOWN PROFILE. The text profile plus\n# markdown's own two: the HTML comment form, and the template marker\n# its files carry.\n\n@\"aontu:profile\"\n\naontu: Lang: lang: \"markdown\"\naontu: Lang: indent: { unit:\" \" width:2 }\naontu: Lang: comment: block: { open:\"<!--\" close:\"-->\" }\naontu: Lang: template: { marker:\"<!---\" ext: [\"md\" \"markdown\"] }\n",
+  "aontu:lang/text": "# aontu:lang/text --- THE TEXT PROFILE. Indentation and nothing else.\n# Every language without one of its own is read under it.\n\n@\"aontu:profile\"\n\naontu: Lang: { lang:\"text\" indent: { unit:\" \" width:2 } }\n",
+  "aontu:profile": "# aontu:profile --- THE PROFILE VOCABULARY. A language declared as\n# data: its name, its indentation, its comment forms and the marker its\n# generators carry. `aontu template` and `aontu fmt` read one through\n# --profile. EXPERIMENTAL, versioned by canon-hash later.\n\n%comment = close({ open?:string prefix?:string close?:string })\n\n%profile = close({\n  lang: string & length(min(1))\n  indent: close({\n    unit: *\" \"|string & length(min(1))\n    width: *2|integer & min(0) & max(16)\n  })\n  comment?: close({ line?:%comment block?:%comment doc?:%comment })\n  template?: close({\n    marker: string & length(min(1))\n    close?: string & length(min(1))\n    ext?: [&: string & re(\"^[A-Za-z0-9_+-]+$\")]\n  })\n})\n\n# Profile names the schema; Lang is where one lands. type() so naming\n# the schema neither generates it nor asks a document to fill it.\naontu: { Profile:type(%profile) Lang:%profile }\n",
+  "aontu:system": "# aontu:system --- the SYSTEM VOCABULARY. EXPERIMENTAL until the\n# distribution layer can version it by canon-hash.\n\naontu: System: {\n  Port: type({ direction: *in|out|inout protocol?:string })\n\n  Component: type({ ports?: { &: $.aontu.System.Port } })\n\n  # Written out rather than Component & { kind: service }: a reference\n  # to a type()-marked member does not survive the include.\n  Service: type({ kind:service ports?: { &: $.aontu.System.Port } })\n\n  # A grammar, not re(): the identifier shape is a quantified group\n  # holding a quantifier, which re() refuses. hide()n so a schema's\n  # grammar does not generate into the document it checks.\n  semverPreRelease: hide(\n    abnf(\n      `pre-release = pre-release-id *( \".\" pre-release-id )\npre-release-id = \"0\" [ *digit alnum-tail ]\n  / positive-digit *digit [ alnum-tail ] / alnum-tail\nalnum-tail = non-digit *id-char\nid-char = digit / non-digit\nnon-digit = letter / \"-\"\ndigit = \"0\" / positive-digit\npositive-digit = %x31-39\nletter = %x41-5A / %x61-7A\n`\n    )\n  )\n  semverBuild: hide(\n    abnf(\n      `build = build-id *( \".\" build-id )\nbuild-id = 1*id-char\nid-char = digit / non-digit\nnon-digit = letter / \"-\"\ndigit = \"0\" / positive-digit\npositive-digit = %x31-39\nletter = %x41-5A / %x61-7A\n`\n    )\n  )\n\n  # major minor patch pre-release build, tail defaulted.\n  Semver: type(\n    [\n      integer & min(0)\n      *0|(integer & min(0))\n      *0|(integer & min(0))\n      *\"\"|parse($.aontu.System.semverPreRelease)\n      *\"\"|parse($.aontu.System.semverBuild)\n    ] & length(5)\n  )\n}\n",
+  "aontu:view": "# aontu:view --- the FIGURE VOCABULARY. EXPERIMENTAL until the\n# distribution layer can version it by canon-hash.\n\naontu: View: Figure: type({\n  kind: doc|lattice|tree|matrix|graph|layer|sets|layers\n    | ladder\n  out: string\n\n  # Every kind.\n  as?: text|mermaid|dot|er|svg\n  at?: string\n  maxRows?: integer & min(0)\n\n  # doc.\n  depth?: integer & min(0)\n\n  # tree, matrix, layer, graph.\n  relation?: string\n  relations?: [&: string]\n  roots?: [&: string]\n\n  # matrix.\n  order?: canon|partition\n  closure?: boolean\n\n  # graph, layer.\n  groupBy?: string\n  label?: string\n  layers?: [&: string]\n  edges?: upward|all|none\n\n  # sets, layers.\n  sets?: string\n  member?: string\n  universe?: string\n  minDegree?: integer & min(0)\n  maxCols?: integer & min(0)\n  minSize?: integer & min(0)\n})\n"
+}
+
+const AONTU_MODELS: string[] = [
+  "aontu:lang/markdown",
+  "aontu:lang/text",
+  "aontu:profile",
+  "aontu:system",
+  "aontu:view"
+]
+
+export { AONTU_SCHEME, AONTU_SOURCES, AONTU_MODELS }

package/src/casing.ts

@@ -0,0 +1,95 @@
+/* Copyright (c) 2026 Richard Rodger, MIT License */
+
+
+function isUpper(c: string): boolean {
+  return 'A' <= c && c <= 'Z'
+}
+
+function isLower(c: string): boolean {
+  return 'a' <= c && c <= 'z'
+}
+
+function isDigit(c: string): boolean {
+  return '0' <= c && c <= '9'
+}
+
+function isASCII(c: string): boolean {
+  return (c.codePointAt(0) as number) < 0x80
+}
+
+export function splitWords(name: string): string[] {
+  const words: string[] = []
+  let cur = ''
+  const chars = Array.from(name)
+  for (let i = 0; i < chars.length; i++) {
+    const c = chars[i]
+    if ('_' === c || '-' === c || ' ' === c) {
+      if ('' !== cur) {
+        words.push(cur)
+      }
+      cur = ''
+      continue
+    }
+    if ('' !== cur) {
+      const prev = chars[i - 1]
+      const next = chars[i + 1]
+      const boundary = isASCII(c) && isASCII(prev) && (
+        (isUpper(c) && (isLower(prev) || isDigit(prev))) ||
+        (isDigit(c) !== isDigit(prev)) ||
+        (isUpper(c) && isUpper(prev) && undefined !== next && isLower(next)))
+      if (boundary) {
+        words.push(cur)
+        cur = ''
+      }
+    }
+    cur += c
+  }
+  if ('' !== cur) {
+    words.push(cur)
+  }
+  return words
+}
+
+export function lowerASCII(s: string): string {
+  return Array.from(s).map((c) =>
+    isUpper(c) ? String.fromCharCode(c.charCodeAt(0) + 32) : c).join('')
+}
+
+export function upperASCII(s: string): string {
+  return Array.from(s).map((c) =>
+    isLower(c) ? String.fromCharCode(c.charCodeAt(0) - 32) : c).join('')
+}
+
+// A word capitalised: the acronym set wins, so `id` is `ID` under a
+// profile that lists it and `Id` under one that does not.
+export function capitalise(word: string, acronyms: string[]): string {
+  const low = lowerASCII(word)
+  for (const a of acronyms) {
+    if (lowerASCII(a) === low) {
+      return a
+    }
+  }
+  const chars = Array.from(low)
+  return upperASCII(chars[0]) + chars.slice(1).join('')
+}
+
+// THE CASE STYLES, over the words. `nom` maps its own style names
+// onto these.
+export function caseName(name: string, style: string, acronyms: string[]): string {
+  const words = splitWords(name)
+  if ('snake' === style) {
+    return words.map(lowerASCII).join('_')
+  }
+  if ('screaming' === style) {
+    return words.map(upperASCII).join('_')
+  }
+  if ('kebab' === style) {
+    return words.map(lowerASCII).join('-')
+  }
+  const caps = words.map((w) => capitalise(w, acronyms))
+  if ('pascal' === style) {
+    return caps.join('')
+  }
+  // camel: the first word lower, and never an acronym.
+  return lowerASCII(words[0]) + caps.slice(1).join('')
+}