@smallpen/local-package 0.1.0-alpha.2 → 0.1.0-alpha.5

package/assets/fonts/SourceSansPro-OFL.txt

@@ -0,0 +1,46 @@
+Applies to: SourceSansPro-Regular.ttf, SourceSansPro-Semibold.ttf, SourceSansPro-Bold.ttf
+
+Copyright 2010, 2012 Adobe Systems Incorporated (http://www.adobe.com/), with Reserved Font Name 'Source'. All Rights Reserved. Source is a trademark of Adobe Systems Incorporated in the United States and/or other countries.
+
+This Font Software is licensed under the SIL Open Font License, Version 1.1.
+
+This license is copied below, and is also available with a FAQ at: http://scripts.sil.org/OFL
+
+-----------------------------------------------------------
+SIL OPEN FONT LICENSE Version 1.1 - 26 February 2007
+-----------------------------------------------------------
+
+PREAMBLE
+The goals of the Open Font License (OFL) are to stimulate worldwide development of collaborative font projects, to support the font creation efforts of academic and linguistic communities, and to provide a free and open framework in which fonts may be shared and improved in partnership with others.
+
+The OFL allows the licensed fonts to be used, studied, modified and redistributed freely as long as they are not sold by themselves. The fonts, including any derivative works, can be bundled, embedded, redistributed and/or sold with any software provided that any reserved names are not used by derivative works. The fonts and derivatives, however, cannot be released under any other type of license. The requirement for fonts to remain under this license does not apply to any document created using the fonts or their derivatives.
+
+DEFINITIONS
+"Font Software" refers to the set of files released by the Copyright Holder(s) under this license and clearly marked as such. This may include source files, build scripts and documentation.
+
+"Reserved Font Name" refers to any names specified as such after the copyright statement(s).
+
+"Original Version" refers to the collection of Font Software components as distributed by the Copyright Holder(s).
+
+"Modified Version" refers to any derivative made by adding to, deleting, or substituting -- in part or in whole -- any of the components of the Original Version, by changing formats or by porting the Font Software to a new environment.
+
+"Author" refers to any designer, engineer, programmer, technical writer or other person who contributed to the Font Software.
+
+PERMISSION & CONDITIONS
+Permission is hereby granted, free of charge, to any person obtaining a copy of the Font Software, to use, study, copy, merge, embed, modify, redistribute, and sell modified and unmodified copies of the Font Software, subject to the following conditions:
+
+1) Neither the Font Software nor any of its individual components, in Original or Modified Versions, may be sold by itself.
+
+2) Original or Modified Versions of the Font Software may be bundled, redistributed and/or sold with any software, provided that each copy contains the above copyright notice and this license. These can be included either as stand-alone text files, human-readable headers or in the appropriate machine-readable metadata fields within text or binary files as long as those fields can be easily viewed by the user.
+
+3) No Modified Version of the Font Software may use the Reserved Font Name(s) unless explicit written permission is granted by the corresponding Copyright Holder. This restriction only applies to the primary font name as presented to the users.
+
+4) The name(s) of the Copyright Holder(s) or the Author(s) of the Font Software shall not be used to promote, endorse or advertise any Modified Version, except to acknowledge the contribution(s) of the Copyright Holder(s) and the Author(s) or with their explicit written permission.
+
+5) The Font Software, modified or unmodified, in part or in whole, must be distributed entirely under this license, and must not be distributed under any other license. The requirement for fonts to remain under this license does not apply to any document created using the Font Software.
+
+TERMINATION
+This license becomes null and void if any of the above conditions are not met.
+
+DISCLAIMER
+THE FONT SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO ANY WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT OF COPYRIGHT, PATENT, TRADEMARK, OR OTHER RIGHT. IN NO EVENT SHALL THE COPYRIGHT HOLDER BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, INCLUDING ANY GENERAL, SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF THE USE OR INABILITY TO USE THE FONT SOFTWARE OR FROM OTHER DEALINGS IN THE FONT SOFTWARE.

package/assets/fonts/WorkSans-OFL.txt

@@ -0,0 +1,46 @@
+Applies to: WorkSans-Regular.ttf
+
+Copyright 2019 The Work Sans Project Authors (https://github.com/weiweihuanghuang/Work-Sans)
+
+This Font Software is licensed under the SIL Open Font License, Version 1.1.
+This license is copied below, and is also available with a FAQ at:
+https://openfontlicense.org
+
+-----------------------------------------------------------
+SIL OPEN FONT LICENSE Version 1.1 - 26 February 2007
+-----------------------------------------------------------
+
+PREAMBLE
+The goals of the Open Font License (OFL) are to stimulate worldwide development of collaborative font projects, to support the font creation efforts of academic and linguistic communities, and to provide a free and open framework in which fonts may be shared and improved in partnership with others.
+
+The OFL allows the licensed fonts to be used, studied, modified and redistributed freely as long as they are not sold by themselves. The fonts, including any derivative works, can be bundled, embedded, redistributed and/or sold with any software provided that any reserved names are not used by derivative works. The fonts and derivatives, however, cannot be released under any other type of license. The requirement for fonts to remain under this license does not apply to any document created using the fonts or their derivatives.
+
+DEFINITIONS
+"Font Software" refers to the set of files released by the Copyright Holder(s) under this license and clearly marked as such. This may include source files, build scripts and documentation.
+
+"Reserved Font Name" refers to any names specified as such after the copyright statement(s).
+
+"Original Version" refers to the collection of Font Software components as distributed by the Copyright Holder(s).
+
+"Modified Version" refers to any derivative made by adding to, deleting, or substituting -- in part or in whole -- any of the components of the Original Version, by changing formats or by porting the Font Software to a new environment.
+
+"Author" refers to any designer, engineer, programmer, technical writer or other person who contributed to the Font Software.
+
+PERMISSION & CONDITIONS
+Permission is hereby granted, free of charge, to any person obtaining a copy of the Font Software, to use, study, copy, merge, embed, modify, redistribute, and sell modified and unmodified copies of the Font Software, subject to the following conditions:
+
+1) Neither the Font Software nor any of its individual components, in Original or Modified Versions, may be sold by itself.
+
+2) Original or Modified Versions of the Font Software may be bundled, redistributed and/or sold with any software, provided that each copy contains the above copyright notice and this license. These can be included either as stand-alone text files, human-readable headers or in the appropriate machine-readable metadata fields within text or binary files as long as those fields can be easily viewed by the user.
+
+3) No Modified Version of the Font Software may use the Reserved Font Name(s) unless explicit written permission is granted by the corresponding Copyright Holder. This restriction only applies to the primary font name as presented to the users.
+
+4) The name(s) of the Copyright Holder(s) or the Author(s) of the Font Software shall not be used to promote, endorse or advertise any Modified Version, except to acknowledge the contribution(s) of the Copyright Holder(s) and the Author(s) or with their explicit written permission.
+
+5) The Font Software, modified or unmodified, in part or in whole, must be distributed entirely under this license, and must not be distributed under any other license. The requirement for fonts to remain under this license does not apply to any document created using the Font Software.
+
+TERMINATION
+This license becomes null and void if any of the above conditions are not met.
+
+DISCLAIMER
+THE FONT SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO ANY WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT OF COPYRIGHT, PATENT, TRADEMARK, OR OTHER RIGHT. IN NO EVENT SHALL THE COPYRIGHT HOLDER BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, INCLUDING ANY GENERAL, SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF THE USE OR INABILITY TO USE THE FONT SOFTWARE OR FROM OTHER DEALINGS IN THE FONT SOFTWARE.

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@smallpen/local-package",
-  "version": "0.1.0-alpha.2",
+  "version": "0.1.0-alpha.5",
   "publishConfig": {
     "access": "public"
   },
@@ -12,7 +12,7 @@
   ],
   "dependencies": {
     "@jsquash/webp": "1.5.0",
-    "@smallpen/core": "0.1.0-alpha.2",
+    "@smallpen/core": "0.1.0-alpha.5",
     "opentype.js": "2.0.0"
   },
   "repository": {

package/src/draft-import.mjs

@@ -1,6 +1,5 @@
 import { randomUUID } from "node:crypto";
 import {
-  lstat,
   mkdir,
   mkdtemp,
   rename,
@@ -21,6 +20,7 @@ import {
   SmallPenError,
 } from "@smallpen/core";
 
+import { pathExists } from "./fs-utils.mjs";
 import {
   ByteBuffer,
   compileSchema,
@@ -170,16 +170,6 @@ function inspectSvg(bytes) {
   return { height, width };
 }
 
-async function pathExists(path) {
-  try {
-    await lstat(path);
-    return true;
-  } catch (error) {
-    if (error?.code === "ENOENT") return false;
-    throw error;
-  }
-}
-
 export async function writeDraftPackage(outputValue, values) {
   const output = resolve(outputValue);
   if (!output.endsWith(".smallpen")) {

package/src/font-convert.mjs

@@ -20,7 +20,9 @@ function matches(bytes, signature) {
 }
 
 export function inspectFont(bytes, mimeType) {
-  const signature = FONT_SIGNATURES[mimeType];
+  const signature = Object.hasOwn(FONT_SIGNATURES, mimeType)
+    ? FONT_SIGNATURES[mimeType]
+    : undefined;
   if (!signature || !matches(bytes, signature)) {
     failFont(
       "invalid_font_blob",
@@ -108,6 +110,26 @@ export function sfntToWoff(bytes, mimeType) {
   return output;
 }
 
+// Penpot names a Font Variant without a stored name from its weight and
+// style (app.common.media/font-display-variant), e.g. "Bold Italic".
+const FONT_WEIGHT_NAMES = {
+  100: "Hairline",
+  200: "Extra Light",
+  300: "Light",
+  400: "Regular",
+  500: "Medium",
+  600: "Semi Bold",
+  700: "Bold",
+  800: "Extra Bold",
+  900: "Black",
+  950: "Extra Black",
+};
+
+export function fontVariantName(weight, style) {
+  const base = FONT_WEIGHT_NAMES[Number(weight)] ?? String(weight);
+  return style === "italic" ? `${base} Italic` : base;
+}
+
 export function prepareFontFiles(input) {
   const files = {};
   for (const [mimeType, bytes] of Object.entries(input)) {

package/src/fs-utils.mjs

@@ -0,0 +1,95 @@
+import { constants } from "node:fs";
+import { lstat, open } from "node:fs/promises";
+import { isAbsolute, relative } from "node:path";
+
+export function isWithinRoot(rootPath, candidatePath) {
+  const child = relative(rootPath, candidatePath);
+  return child === "" || (!child.startsWith("..") && !isAbsolute(child));
+}
+
+export async function pathExists(path) {
+  try {
+    await lstat(path);
+    return true;
+  } catch (error) {
+    if (error?.code === "ENOENT") return false;
+    throw error;
+  }
+}
+
+// Reads a file only when it is a regular file. A FIFO or device in a Package
+// (an archive can carry one) would otherwise block the read, the write lock
+// and a thread-pool thread forever. Opening without blocking and checking the
+// opened handle leaves no gap between the check and the read.
+//
+// With `maxBytes`, a file larger than the limit fails with code EFILETOOBIG
+// (and `size`/`maxBytes` on the error) instead of being buffered whole; the
+// read itself is bounded too, so a file growing after the size check cannot
+// pass the limit either.
+export async function readRegularFile(path, encoding, { maxBytes } = {}) {
+  const handle = await open(path, constants.O_RDONLY | (constants.O_NONBLOCK ?? 0));
+  try {
+    const info = await handle.stat();
+    if (!info.isFile()) {
+      const error = new Error(`Not a regular file: ${path}`);
+      error.code = "ENOTREGULAR";
+      throw error;
+    }
+    if (maxBytes === undefined) return await handle.readFile(encoding);
+    const tooBig = (size) =>
+      Object.assign(new Error(`File exceeds ${maxBytes} bytes: ${path}`), {
+        code: "EFILETOOBIG",
+        maxBytes,
+        size,
+      });
+    if (info.size > maxBytes) throw tooBig(info.size);
+    const chunks = [];
+    let length = 0;
+    while (length <= maxBytes) {
+      const chunk = Buffer.alloc(Math.min(Math.max(info.size - length, 0), maxBytes - length) + 1);
+      const { bytesRead } = await handle.read(chunk, 0, chunk.length, length);
+      if (bytesRead === 0) break;
+      chunks.push(chunk.subarray(0, bytesRead));
+      length += bytesRead;
+    }
+    if (length > maxBytes) throw tooBig(length);
+    const bytes = Buffer.concat(chunks, length);
+    return encoding ? bytes.toString(encoding) : bytes;
+  } finally {
+    await handle.close();
+  }
+}
+
+// Writes a new file and flushes it to stable storage before returning. The
+// file must not exist yet: commits never truncate an inode in place because
+// unchanged candidate files are hard links shared with the live Package.
+export async function writeFileDurable(path, data, encoding) {
+  const handle = await open(path, "wx");
+  try {
+    await handle.writeFile(data, encoding);
+    await handle.sync();
+  } finally {
+    await handle.close();
+  }
+}
+
+// Flushes directory entries (creates, renames, unlinks). Some platforms and
+// file systems (notably Windows) cannot open or sync a directory; durability
+// there relies on the file-level syncs alone.
+export async function syncDirectory(path) {
+  let handle;
+  try {
+    handle = await open(path, "r");
+    await handle.sync();
+  } catch (error) {
+    if (
+      !["EISDIR", "EPERM", "EACCES", "EINVAL", "ENOTSUP", "EBADF"].includes(
+        error?.code,
+      )
+    ) {
+      throw error;
+    }
+  } finally {
+    await handle?.close();
+  }
+}

package/src/index.mjs

@@ -3,7 +3,11 @@ export {
   LocalWorkspaceSession,
   reconcilePackageViewState,
 } from "./local-workspace-session.mjs";
-export { openWorkspace, resolveWorkspace } from "./workspace.mjs";
+export {
+  localLibraryLocator,
+  openWorkspace,
+  resolveWorkspace,
+} from "./workspace.mjs";
 export {
   defaultLibraryCacheRoot,
   openRemoteLibrary,
@@ -28,6 +32,7 @@ export {
 } from "./local-package.mjs";
 export { detectMediaType, inspectMedia } from "./media-inspect.mjs";
 export {
+  fontVariantName,
   inspectFont,
   prepareFontFiles,
   sfntToWoff,

package/src/initialize.mjs

@@ -1,6 +1,5 @@
 import { randomUUID } from "node:crypto";
 import {
-  lstat,
   mkdir,
   mkdtemp,
   rename,
@@ -11,6 +10,7 @@ import { basename, dirname, join, resolve } from "node:path";
 
 import { canonicalJSON, SmallPenError } from "@smallpen/core";
 
+import { pathExists } from "./fs-utils.mjs";
 import { openPackage } from "./local-package.mjs";
 import { openWorkspace } from "./workspace.mjs";
 
@@ -320,16 +320,6 @@ async function writeFiles(packagePath, files) {
   }
 }
 
-async function pathExists(path) {
-  try {
-    await lstat(path);
-    return true;
-  } catch (error) {
-    if (error?.code === "ENOENT") return false;
-    throw error;
-  }
-}
-
 function blankPackageFiles(name) {
   const suffix = randomUUID().replaceAll("-", "");
   const screenId = `scr_${suffix}`;

package/src/kiwi-runtime.mjs

@@ -5,8 +5,13 @@
 let int32 = /* @__PURE__ */ new Int32Array(1);
 let float32 = new Float32Array(int32.buffer);
 const textDecoder = new TextDecoder();
+// Struct fields carry no tag, so a struct with no fields, or a tree of struct
+// fields, decodes to objects without consuming any bytes. Every decoded struct,
+// message, and array element counts against this budget instead.
+const MAX_DECODED_VALUES = 5e6;
 var ByteBuffer = class {
 	_data;
+	_decodedValues = 0;
 	_index;
 	length;
 	constructor(data) {
@@ -32,20 +37,36 @@ var ByteBuffer = class {
 	toUint8Array() {
 		return this._data.subarray(0, this.length);
 	}
+	// SmallPen hardening: clipboard payloads are untrusted, so every read is
+	// bounds-checked and declared lengths may not exceed the remaining bytes.
+	_require(count) {
+		if (this._index + count > this.length) throw new Error("Kiwi message ends before the declared data");
+	}
+	countDecodedValues(count) {
+		this._decodedValues += count;
+		if (this._decodedValues > MAX_DECODED_VALUES) throw new Error("Kiwi message decodes to too many values");
+	}
+	readArrayLength() {
+		const length = this.readVarUint();
+		if (length > this.length - this._index) throw new Error("Kiwi array length exceeds the message");
+		return length;
+	}
 	readByte() {
+		this._require(1);
 		return this._data[this._index++];
 	}
 	readByteArray() {
-		const length = this.readVarUint();
+		const length = this.readArrayLength();
 		const start = this._index;
 		this._index = start + length;
 		return this._data.slice(start, start + length);
 	}
 	skipByteArray() {
-		const length = this.readVarUint();
+		const length = this.readArrayLength();
 		this._index += length;
 	}
 	readVarFloat() {
+		this._require(1);
 		const index = this._index;
 		const data = this._data;
 		const first = data[index];
@@ -53,6 +74,7 @@ var ByteBuffer = class {
 			this._index = index + 1;
 			return 0;
 		}
+		this._require(4);
 		let bits = first | data[index + 1] << 8 | data[index + 2] << 16 | data[index + 3] << 24;
 		this._index = index + 4;
 		bits = bits << 23 | bits >>> 9;
@@ -60,35 +82,12 @@ var ByteBuffer = class {
 		return float32[0];
 	}
 	readVarUint() {
-		const data = this._data;
-		let i = this._index;
-		let b = data[i++];
-		let value = b & 127;
-		if (b < 128) {
-			this._index = i;
-			return value;
-		}
-		b = data[i++];
-		value |= (b & 127) << 7;
-		if (b < 128) {
-			this._index = i;
-			return value;
-		}
-		b = data[i++];
-		value |= (b & 127) << 14;
-		if (b < 128) {
-			this._index = i;
-			return value;
-		}
-		b = data[i++];
-		value |= (b & 127) << 21;
-		if (b < 128) {
-			this._index = i;
-			return value;
+		let value = 0;
+		for (let shift = 0; shift < 35; shift += 7) {
+			const b = this.readByte();
+			value |= (b & 127) << shift;
+			if (b < 128) return shift === 28 ? value >>> 0 : value;
 		}
-		b = data[i++];
-		value |= (b & 127) << 28;
-		this._index = i;
 		return value >>> 0;
 	}
 	readVarInt() {
@@ -126,8 +125,8 @@ var ByteBuffer = class {
 	findStringTerminator(start) {
 		const data = this._data;
 		let index = start;
-		while (index < data.length && data[index] !== 0) index++;
-		if (index >= data.length) throw new Error("Unterminated string in Kiwi message");
+		while (index < this.length && data[index] !== 0) index++;
+		if (index >= this.length) throw new Error("Unterminated string in Kiwi message");
 		return index;
 	}
 	_growBy(amount) {
@@ -244,6 +243,7 @@ function compileDecode(definition, definitions) {
 	lines.push("  if (!(bb instanceof this.ByteBuffer)) {");
 	lines.push("    bb = new this.ByteBuffer(bb);");
 	lines.push("  }");
+	lines.push("  bb.countDecodedValues(1);");
 	lines.push("");
 	if (definition.kind === "MESSAGE") {
 		lines.push("  while (true) {");
@@ -293,12 +293,14 @@ function compileDecode(definition, definitions) {
 			if (field.isDeprecated) {
 				if (field.type === "byte") lines.push(indent + "bb.readByteArray();");
 				else {
-					lines.push(indent + "var length = bb.readVarUint();");
+					lines.push(indent + "var length = bb.readArrayLength();");
+					lines.push(indent + "bb.countDecodedValues(length);");
 					lines.push(indent + "while (length-- > 0) " + code + ";");
 				}
 			} else if (field.type === "byte") lines.push(indent + "result[" + quote(field.name) + "] = bb.readByteArray();");
 			else {
-				lines.push(indent + "var length = bb.readVarUint();");
+				lines.push(indent + "var length = bb.readArrayLength();");
+				lines.push(indent + "bb.countDecodedValues(length);");
 				lines.push(indent + "var values = result[" + quote(field.name) + "] = Array(length);");
 				lines.push(indent + "for (var i = 0; i < length; i++) values[i] = " + code + ";");
 			}
@@ -450,12 +452,12 @@ let kinds = [
 ];
 function decodeBinarySchema(buffer) {
 	let bb = buffer instanceof ByteBuffer ? buffer : new ByteBuffer(buffer);
-	let definitionCount = bb.readVarUint();
+	let definitionCount = bb.readArrayLength();
 	let definitions = [];
 	for (let i = 0; i < definitionCount; i++) {
 		let definitionName = bb.readString();
 		let kind = bb.readByte();
-		let fieldCount = bb.readVarUint();
+		let fieldCount = bb.readArrayLength();
 		let fields = [];
 		for (let j = 0; j < fieldCount; j++) {
 			let fieldName = bb.readString();

package/src/library-network.mjs

@@ -0,0 +1,189 @@
+import { lookup as dnsLookup } from "node:dns";
+import { Agent as HttpAgent, request as httpRequest } from "node:http";
+import { Agent as HttpsAgent, request as httpsRequest } from "node:https";
+import { BlockList, isIP } from "node:net";
+import { Readable } from "node:stream";
+
+import { SmallPenError } from "@smallpen/core";
+
+// A Package can declare any Library URL, so by default the Background and CLI
+// only fetch Libraries from public addresses: a Package must not be able to
+// make them probe loopback services, cloud metadata endpoints or the LAN.
+// Local development servers opt in with this variable (or the
+// `allowPrivateNetwork` option).
+export const ALLOW_PRIVATE_LIBRARY_HOSTS_ENV = "SMALLPEN_ALLOW_PRIVATE_LIBRARY_HOSTS";
+
+export function privateLibraryHostsAllowed() {
+  return process.env[ALLOW_PRIVATE_LIBRARY_HOSTS_ENV] === "1";
+}
+
+// 198.18.0.0/15 stays allowed: proxy tools in fake-IP mode (Clash, Surge)
+// answer every public name with an address from that range.
+const nonPublic = new BlockList();
+for (const [network, prefix] of [
+  ["0.0.0.0", 8],
+  ["10.0.0.0", 8],
+  ["100.64.0.0", 10],
+  ["127.0.0.0", 8],
+  ["169.254.0.0", 16],
+  ["172.16.0.0", 12],
+  ["192.0.0.0", 24],
+  ["192.0.2.0", 24],
+  ["192.168.0.0", 16],
+  ["198.51.100.0", 24],
+  ["203.0.113.0", 24],
+  ["224.0.0.0", 4],
+  ["240.0.0.0", 4],
+]) {
+  nonPublic.addSubnet(network, prefix, "ipv4");
+}
+for (const [network, prefix] of [
+  ["::", 96],
+  ["::1", 128],
+  ["100::", 64],
+  ["2001:db8::", 32],
+  ["fc00::", 7],
+  ["fe80::", 10],
+  ["fec0::", 10],
+  ["ff00::", 8],
+]) {
+  nonPublic.addSubnet(network, prefix, "ipv6");
+}
+
+function ipv6Groups(address) {
+  let text = address.replace(/%.*$/, "").toLowerCase();
+  const dotted = /(\d+\.\d+\.\d+\.\d+)$/.exec(text);
+  if (dotted) {
+    const [a, b, c, d] = dotted[1].split(".").map(Number);
+    text = `${text.slice(0, -dotted[1].length)}${((a << 8) | b).toString(16)}:${((c << 8) | d).toString(16)}`;
+  }
+  const [head, tail] = text.split("::");
+  const left = head ? head.split(":") : [];
+  const right = tail ? tail.split(":") : [];
+  const fill = tail === undefined ? [] : Array(8 - left.length - right.length).fill("0");
+  return [...left, ...fill, ...right].map((group) => Number.parseInt(group, 16));
+}
+
+// NAT64 (64:ff9b::/96) and 6to4 (2002::/16) addresses carry an IPv4 address
+// that the network routes to; check that address too.
+function embeddedIPv4(address) {
+  const groups = ipv6Groups(address);
+  const hi = (value) => value >> 8;
+  const lo = (value) => value & 0xff;
+  let pair;
+  if (groups[0] === 0x64 && groups[1] === 0xff9b && groups.slice(2, 6).every((g) => g === 0)) {
+    pair = [groups[6], groups[7]];
+  } else if (groups[0] === 0x2002) {
+    pair = [groups[1], groups[2]];
+  }
+  return pair && `${hi(pair[0])}.${lo(pair[0])}.${hi(pair[1])}.${lo(pair[1])}`;
+}
+
+export function isPublicAddress(address) {
+  const family = isIP(address.replace(/%.*$/, ""));
+  if (family === 4) return !nonPublic.check(address, "ipv4");
+  if (family !== 6) return false;
+  if (nonPublic.check(address, "ipv6")) return false;
+  const embedded = embeddedIPv4(address);
+  return embedded === undefined || !nonPublic.check(embedded, "ipv4");
+}
+
+function privateAddressError(url) {
+  return new SmallPenError(
+    "remote_library_private_address",
+    "Remote Library host is not on a public network address",
+    { env: ALLOW_PRIVATE_LIBRARY_HOSTS_ENV, url: String(url) },
+  );
+}
+
+// Every resolved address must be public, and the socket connects to the
+// address checked here: there is no second resolution a rebinding DNS server
+// could answer differently.
+function publicLookup(url, allowPrivateNetwork) {
+  return (hostname, options, callback) => {
+    dnsLookup(hostname, { ...options, all: true }, (error, addresses) => {
+      if (error) {
+        callback(error);
+        return;
+      }
+      if (
+        !allowPrivateNetwork &&
+        (addresses.length === 0 ||
+          !addresses.every(({ address }) => isPublicAddress(address)))
+      ) {
+        callback(privateAddressError(url));
+        return;
+      }
+      if (options.all) callback(null, addresses);
+      else callback(null, addresses[0].address, addresses[0].family);
+    });
+  };
+}
+
+const NULL_BODY_STATUSES = new Set([101, 103, 204, 205, 304]);
+
+// Dedicated agents per policy: a pooled socket opened without the address
+// check (by another request in this process, or under the private-network
+// opt-in) is never reused for a checked Library fetch.
+const agentPools = new Map(
+  [false, true].map((allowPrivateNetwork) => [
+    allowPrivateNetwork,
+    {
+      "http:": new HttpAgent({ keepAlive: true }),
+      "https:": new HttpsAgent({ keepAlive: true }),
+    },
+  ]),
+);
+
+// A minimal fetch() over node:http(s) that refuses non-public destinations
+// unless `allowPrivateNetwork` is set. It supports what remote Library reads
+// use: GET, manual redirects and an abort signal.
+export function createLibraryFetch({
+  allowPrivateNetwork = privateLibraryHostsAllowed(),
+} = {}) {
+  return (input, init) =>
+    libraryFetch(input, init, allowPrivateNetwork === true);
+}
+
+function libraryFetch(input, { signal } = {}, allowPrivateNetwork) {
+  const url = new URL(input);
+  const literal = url.hostname.replace(/^\[|\]$/g, "");
+  if (!allowPrivateNetwork && isIP(literal) && !isPublicAddress(literal)) {
+    return Promise.reject(privateAddressError(url));
+  }
+  return new Promise((resolve, reject) => {
+    const request = (url.protocol === "https:" ? httpsRequest : httpRequest)(
+      url,
+      {
+        agent: agentPools.get(allowPrivateNetwork)[url.protocol],
+        headers: { accept: "application/json, */*" },
+        lookup: publicLookup(url, allowPrivateNetwork),
+        method: "GET",
+        signal,
+      },
+      (message) => {
+        try {
+          const headers = new Headers();
+          for (const [name, value] of Object.entries(message.headers)) {
+            for (const item of Array.isArray(value) ? value : [value]) {
+              headers.append(name, item);
+            }
+          }
+          const nullBody = NULL_BODY_STATUSES.has(message.statusCode);
+          if (nullBody) message.resume();
+          resolve(
+            new Response(nullBody ? null : Readable.toWeb(message), {
+              headers,
+              status: message.statusCode,
+            }),
+          );
+        } catch (error) {
+          message.destroy();
+          reject(error);
+        }
+      },
+    );
+    request.on("error", reject);
+    request.end();
+  });
+}