@open-rap/runtime 0.0.0-stage → 0.1.1

package/dist/abap/sql.d.ts

@@ -0,0 +1,92 @@
+/**
+ * The database of the ABAP SQL of the behavior pools (decision D26): a database client of
+ * @abaplint/runtime over the transaction of the running LUW. It reads anywhere and writes in the
+ * saver only (save_modified of a BO with additional or unmanaged save).
+ *
+ * @abaplint/transpiler turns a SELECT into SQL text with its values in ABAP form (dates
+ * `YYYYMMDD`, UUIDs as hexadecimal digits) and a few ABAP keywords (`UP TO n ROWS`, `EQ`,
+ * `ORDER BY PRIMARY KEY`). The tables and CDS entities are read through the views of the ABAP SQL
+ * schema, whose columns hold the ABAP form (generated with the database schema); the text is
+ * translated to PostgreSQL here. Each statement runs in a savepoint: a failing SELECT leaves the
+ * LUW's transaction usable.
+ */
+import { type Kysely } from "kysely";
+export type AbapSqlValue = number | string | null;
+export type AbapSqlRow = Record<string, AbapSqlValue>;
+export interface AbapSelectOptions {
+    /** The SELECT, as generated by the transpiler. */
+    select: string;
+    /** Key columns (lower case) of the table, for `ORDER BY PRIMARY KEY`. */
+    primaryKey?: string[];
+}
+export declare class AbapSqlError extends Error {
+}
+/**
+ * Translates the SQL of the transpiler to PostgreSQL: `UP TO n ROWS` → `LIMIT n` (none for 0),
+ * `ORDER BY PRIMARY KEY` → the key columns, `ASCENDING`/`DESCENDING`, the comparison keywords,
+ * `alias~field`, identifiers in lower case (ABAP is case-insensitive, the views use lower case).
+ * Only the views of the ABAP SQL schema can be read.
+ */
+export declare function translateSelect(text: string, primaryKey?: string[]): string;
+/** A condition or SET list of the transpiler's ABAP SQL as PostgreSQL (identifiers, `~`, EQ…). */
+export declare function translateFragment(text: string): string;
+/** The transaction of the running LUW, and whether its saver runs (writes allowed). */
+export interface AbapSqlLuw {
+    db: Kysely<unknown>;
+    writable: boolean;
+}
+/**
+ * The DEFAULT database connection of the transpiled code (`DatabaseClient` of @abaplint/runtime).
+ * `luw` gives the transaction of the running LUW. The writes go to the views of the ABAP SQL
+ * schema, whose triggers write the tables (values converted back from their ABAP form).
+ */
+export declare class AbapSqlClient {
+    private readonly luw;
+    readonly name = "postgres";
+    constructor(luw: () => AbapSqlLuw);
+    private connection;
+    /** A write of the saver: sy-subrc 4 when no row is affected or the key exists (INSERT). */
+    private write;
+    connect(): Promise<void>;
+    disconnect(): Promise<void>;
+    /** The LUW owns the transaction: nothing to begin. */
+    beginTransaction(): Promise<void>;
+    /** COMMIT WORK: the RAP runtime ends the LUW, a handler cannot (a runtime error in RAP too). */
+    commit(): Promise<void>;
+    rollback(): Promise<void>;
+    /** Native SQL (EXEC SQL, ADBC): not available. */
+    execute(): Promise<void>;
+    insert(options: {
+        table: string;
+        columns: string[];
+        values: Array<string | number>;
+    }): Promise<{
+        subrc: number;
+        dbcnt: number;
+    }>;
+    update(options: {
+        table: string;
+        where: string;
+        set: string[];
+    }): Promise<{
+        subrc: number;
+        dbcnt: number;
+    }>;
+    delete(options: {
+        table: string;
+        where: string;
+    }): Promise<{
+        subrc: number;
+        dbcnt: number;
+    }>;
+    select(options: AbapSelectOptions): Promise<{
+        rows: AbapSqlRow[];
+    }>;
+    /** OPEN CURSOR: the result is read at once, FETCH hands it out package by package. */
+    openCursor(options: AbapSelectOptions): Promise<{
+        fetchNextCursor(size: number): Promise<{
+            rows: AbapSqlRow[];
+        }>;
+        closeCursor(): Promise<void>;
+    }>;
+}

package/dist/abap/sql.js

@@ -0,0 +1,261 @@
+/**
+ * The database of the ABAP SQL of the behavior pools (decision D26): a database client of
+ * @abaplint/runtime over the transaction of the running LUW. It reads anywhere and writes in the
+ * saver only (save_modified of a BO with additional or unmanaged save).
+ *
+ * @abaplint/transpiler turns a SELECT into SQL text with its values in ABAP form (dates
+ * `YYYYMMDD`, UUIDs as hexadecimal digits) and a few ABAP keywords (`UP TO n ROWS`, `EQ`,
+ * `ORDER BY PRIMARY KEY`). The tables and CDS entities are read through the views of the ABAP SQL
+ * schema, whose columns hold the ABAP form (generated with the database schema); the text is
+ * translated to PostgreSQL here. Each statement runs in a savepoint: a failing SELECT leaves the
+ * LUW's transaction usable.
+ */
+import { sql } from "kysely";
+import { ABAP_SQL_SCHEMA } from "@open-rap/model";
+import { withSavepoint } from "../db/database.js";
+export class AbapSqlError extends Error {
+}
+const WORD = /[A-Za-z0-9_$#]/;
+function tokenize(text) {
+    const tokens = [];
+    let i = 0;
+    while (i < text.length) {
+        const c = text[i];
+        if (c === "'" || c === '"') {
+            let j = i + 1;
+            while (j < text.length && !(text[j] === c && text[j + 1] !== c)) {
+                j += text[j] === c ? 2 : 1;
+            }
+            if (j >= text.length) {
+                throw new AbapSqlError(`unterminated ${c === "'" ? "literal" : "identifier"} in ${text}`);
+            }
+            const value = text.slice(i, j + 1);
+            tokens.push(c === "'" ? { kind: "literal", text: value } : { kind: "identifier", text: value.toLowerCase() });
+            i = j + 1;
+        }
+        else if (/\s/.test(c)) {
+            let j = i;
+            while (j < text.length && /\s/.test(text[j])) {
+                j++;
+            }
+            tokens.push({ kind: "space", text: " " });
+            i = j;
+        }
+        else if (WORD.test(c)) {
+            let j = i;
+            while (j < text.length && (WORD.test(text[j]) || (text[j] === "." && /\d/.test(c) && /\d/.test(text[j + 1] ?? "")))) {
+                j++;
+            }
+            tokens.push({ kind: "word", text: text.slice(i, j) });
+            i = j;
+        }
+        else {
+            tokens.push({ kind: "symbol", text: c });
+            i++;
+        }
+    }
+    return tokens;
+}
+const COMPARISONS = { EQ: "=", NE: "<>", LT: "<", LE: "<=", GT: ">", GE: ">=" };
+const ORDER = { ASCENDING: "ASC", DESCENDING: "DESC" };
+const SCHEMA = `"${ABAP_SQL_SCHEMA}"`;
+/**
+ * Translates the SQL of the transpiler to PostgreSQL: `UP TO n ROWS` → `LIMIT n` (none for 0),
+ * `ORDER BY PRIMARY KEY` → the key columns, `ASCENDING`/`DESCENDING`, the comparison keywords,
+ * `alias~field`, identifiers in lower case (ABAP is case-insensitive, the views use lower case).
+ * Only the views of the ABAP SQL schema can be read.
+ */
+export function translateSelect(text, primaryKey = []) {
+    const tokens = tokenize(text);
+    const word = (t, value) => t?.kind === "word" && t.text.toUpperCase() === value;
+    const significant = (from) => {
+        let j = from;
+        while (tokens[j]?.kind === "space") {
+            j++;
+        }
+        return j;
+    };
+    let limit = 0;
+    const out = [];
+    for (let i = 0; i < tokens.length; i++) {
+        const t = tokens[i];
+        if (t.kind === "symbol" && t.text === "~") {
+            out.push({ kind: "symbol", text: "." });
+            continue;
+        }
+        if (t.kind !== "word") {
+            out.push(t);
+            continue;
+        }
+        const upper = t.text.toUpperCase();
+        if (upper === "UP") {
+            const to = significant(i + 1);
+            const n = significant(to + 1);
+            const rows = significant(n + 1);
+            if (word(tokens[to], "TO") && /^\d+$/.test(tokens[n]?.text ?? "") && word(tokens[rows], "ROWS")) {
+                limit = Number(tokens[n]?.text);
+                i = rows;
+                continue;
+            }
+        }
+        if (upper === "ORDER") {
+            const by = significant(i + 1);
+            const next = significant(by + 1);
+            if (word(tokens[by], "BY") && word(tokens[next], "ORDER")) {
+                // OPEN CURSOR … ORDER BY: the transpiler writes the keywords twice
+                i = by;
+                continue;
+            }
+            const key = significant(next + 1);
+            if (word(tokens[by], "BY") && word(tokens[next], "PRIMARY") && word(tokens[key], "KEY")) {
+                if (primaryKey.length > 0) {
+                    out.push({ kind: "word", text: `ORDER BY ${primaryKey.map((k) => `"${k.toLowerCase().replace(/"/g, '""')}"`).join(", ")}` });
+                }
+                i = key;
+                continue;
+            }
+        }
+        if (upper === "FROM" || upper === "JOIN") {
+            const source = significant(i + 1);
+            const dot = tokens[source + 1];
+            if (tokens[source]?.text !== SCHEMA || dot?.text !== ".") {
+                const name = tokens.slice(source, source + 3).map((x) => x.text).join("");
+                throw new AbapSqlError(`ABAP SQL: ${name} is not a table or a CDS entity of the application`);
+            }
+        }
+        const replaced = COMPARISONS[upper] ?? ORDER[upper];
+        out.push(replaced === undefined ? t : { kind: "word", text: replaced });
+    }
+    const translated = out
+        .filter((t, n) => t.kind !== "space" || out[n - 1]?.kind !== "space")
+        .map((t) => t.text)
+        .join("")
+        .trim();
+    return limit > 0 ? `${translated} LIMIT ${limit}` : translated;
+}
+/** A condition or SET list of the transpiler's ABAP SQL as PostgreSQL (identifiers, `~`, EQ…). */
+export function translateFragment(text) {
+    return tokenize(text)
+        .map((t) => {
+        if (t.kind === "symbol" && t.text === "~") {
+            return ".";
+        }
+        return t.kind === "word" ? (COMPARISONS[t.text.toUpperCase()] ?? t.text) : t.text;
+    })
+        .join("")
+        .trim();
+}
+/** The view of a table in the ABAP SQL schema, as `abap.buildDbTableName` gives it. */
+function viewOf(table) {
+    const prefix = `${SCHEMA}.`;
+    if (!table.toLowerCase().startsWith(prefix)) {
+        throw new AbapSqlError(`ABAP SQL: ${table} is not a table of the application`);
+    }
+    return `${prefix}${table.slice(prefix.length).toLowerCase()}`;
+}
+/** A value of a result row as @abaplint/runtime sets it into ABAP data objects. */
+function abapValue(value) {
+    if (value === null || value === undefined) {
+        return null;
+    }
+    if (typeof value === "number" || typeof value === "string") {
+        return value;
+    }
+    if (typeof value === "boolean") {
+        return value ? "X" : "";
+    }
+    if (typeof value === "bigint") {
+        return value.toString();
+    }
+    if (value instanceof Uint8Array) {
+        return Buffer.from(value).toString("hex").toUpperCase();
+    }
+    return String(value);
+}
+const READ_ONLY = "ABAP SQL writes are only possible in save_modified (with additional or unmanaged save): the RAP runtime writes the business objects, the handlers change them with EML";
+/**
+ * The DEFAULT database connection of the transpiled code (`DatabaseClient` of @abaplint/runtime).
+ * `luw` gives the transaction of the running LUW. The writes go to the views of the ABAP SQL
+ * schema, whose triggers write the tables (values converted back from their ABAP form).
+ */
+export class AbapSqlClient {
+    luw;
+    name = "postgres";
+    constructor(luw) {
+        this.luw = luw;
+    }
+    connection() {
+        return this.luw().db;
+    }
+    /** A write of the saver: sy-subrc 4 when no row is affected or the key exists (INSERT). */
+    async write(text) {
+        const { db, writable } = this.luw();
+        if (!writable) {
+            throw new AbapSqlError(READ_ONLY);
+        }
+        try {
+            const result = await withSavepoint(db, () => sql.raw(text).execute(db));
+            const dbcnt = Number(result.numAffectedRows ?? 0n);
+            return { subrc: dbcnt > 0 ? 0 : 4, dbcnt };
+        }
+        catch (error) {
+            if (error.code === "23505") {
+                return { subrc: 4, dbcnt: 0 };
+            }
+            throw error;
+        }
+    }
+    async connect() { }
+    async disconnect() { }
+    /** The LUW owns the transaction: nothing to begin. */
+    async beginTransaction() { }
+    /** COMMIT WORK: the RAP runtime ends the LUW, a handler cannot (a runtime error in RAP too). */
+    async commit() {
+        throw new AbapSqlError("COMMIT WORK is not allowed in a behavior pool: the RAP runtime ends the LUW");
+    }
+    async rollback() {
+        throw new AbapSqlError("ROLLBACK WORK is not allowed in a behavior pool: the RAP runtime ends the LUW");
+    }
+    /** Native SQL (EXEC SQL, ADBC): not available. */
+    async execute() {
+        throw new AbapSqlError("native SQL is not available in a behavior pool");
+    }
+    async insert(options) {
+        const columns = options.columns.map((c) => `"${c.toLowerCase().replace(/"/g, '""')}"`).join(", ");
+        return this.write(`INSERT INTO ${viewOf(options.table)} (${columns}) VALUES (${options.values.join(", ")})`);
+    }
+    async update(options) {
+        const where = options.where.trim() === "" ? "" : ` WHERE ${translateFragment(options.where)}`;
+        return this.write(`UPDATE ${viewOf(options.table)} SET ${options.set.map(translateFragment).join(", ")}${where}`);
+    }
+    async delete(options) {
+        if (options.where.trim() === "") {
+            // DELETE dbtab FROM @wa reaches the database without its row (a transpiler defect): refused
+            throw new AbapSqlError(`ABAP SQL: DELETE on ${options.table} without a condition is not supported`);
+        }
+        return this.write(`DELETE FROM ${viewOf(options.table)} WHERE ${translateFragment(options.where)}`);
+    }
+    async select(options) {
+        const text = translateSelect(options.select, options.primaryKey);
+        const db = this.connection();
+        const result = await withSavepoint(db, () => sql.raw(text).execute(db));
+        return { rows: result.rows.map((row) => Object.fromEntries(Object.entries(row).map(([name, value]) => [name, abapValue(value)]))) };
+    }
+    /** OPEN CURSOR: the result is read at once, FETCH hands it out package by package. */
+    async openCursor(options) {
+        const { rows } = await this.select(options);
+        let position = 0;
+        return {
+            fetchNextCursor: async (size) => {
+                const count = size > 0 ? size : rows.length - position;
+                const part = rows.slice(position, position + count);
+                position += part.length;
+                return { rows: part };
+            },
+            closeCursor: async () => {
+                position = rows.length;
+            },
+        };
+    }
+}
+//# sourceMappingURL=sql.js.map

package/dist/abap/sql.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"sql.js","sourceRoot":"","sources":["../../src/abap/sql.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;GAWG;AAEH,OAAO,EAAE,GAAG,EAAe,MAAM,QAAQ,CAAC;AAC1C,OAAO,EAAE,eAAe,EAAE,MAAM,iBAAiB,CAAC;AAClD,OAAO,EAAE,aAAa,EAAE,MAAM,mBAAmB,CAAC;AAYlD,MAAM,OAAO,YAAa,SAAQ,KAAK;CAAG;AAO1C,MAAM,IAAI,GAAG,gBAAgB,CAAC;AAE9B,SAAS,QAAQ,CAAC,IAAY;IAC5B,MAAM,MAAM,GAAY,EAAE,CAAC;IAC3B,IAAI,CAAC,GAAG,CAAC,CAAC;IACV,OAAO,CAAC,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC;QACvB,MAAM,CAAC,GAAG,IAAI,CAAC,CAAC,CAAW,CAAC;QAC5B,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;YAC3B,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC;YACd,OAAO,CAAC,GAAG,IAAI,CAAC,MAAM,IAAI,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,KAAK,CAAC,IAAI,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC;gBAChE,CAAC,IAAI,IAAI,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;YAC7B,CAAC;YACD,IAAI,CAAC,IAAI,IAAI,CAAC,MAAM,EAAE,CAAC;gBACrB,MAAM,IAAI,YAAY,CAAC,gBAAgB,CAAC,KAAK,GAAG,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,YAAY,OAAO,IAAI,EAAE,CAAC,CAAC;YAC5F,CAAC;YACD,MAAM,KAAK,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC;YACnC,MAAM,CAAC,IAAI,CAAC,CAAC,KAAK,GAAG,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,SAAS,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,YAAY,EAAE,IAAI,EAAE,KAAK,CAAC,WAAW,EAAE,EAAE,CAAC,CAAC;YAC9G,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC;QACZ,CAAC;aAAM,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC;YACxB,IAAI,CAAC,GAAG,CAAC,CAAC;YACV,OAAO,CAAC,GAAG,IAAI,CAAC,MAAM,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAW,CAAC,EAAE,CAAC;gBACvD,CAAC,EAAE,CAAC;YACN,CAAC;YACD,MAAM,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,EAAE,GAAG,EAAE,CAAC,CAAC;YAC1C,CAAC,GAAG,CAAC,CAAC;QACR,CAAC;aAAM,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC;YACxB,IAAI,CAAC,GAAG,CAAC,CAAC;YACV,OAAO,CAAC,GAAG,IAAI,CAAC,MAAM,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAW,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,KAAK,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;gBAC9H,CAAC,EAAE,CAAC;YACN,CAAC;YACD,MAAM,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,CAAC;YACtD,CAAC,GAAG,CAAC,CAAC;QACR,CAAC;aAAM,CAAC;YACN,MAAM,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,QAAQ,EAAE,IAAI,EAAE,CAAC,EAAE,CAAC,CAAC;YACzC,CAAC,EAAE,CAAC;QACN,CAAC;IACH,CAAC;IACD,OAAO,MAAM,CAAC;AAChB,CAAC;AAED,MAAM,WAAW,GAA2B,EAAE,EAAE,EAAE,GAAG,EAAE,EAAE,EAAE,IAAI,EAAE,EAAE,EAAE,GAAG,EAAE,EAAE,EAAE,IAAI,EAAE,EAAE,EAAE,GAAG,EAAE,EAAE,EAAE,IAAI,EAAE,CAAC;AACxG,MAAM,KAAK,GAA2B,EAAE,SAAS,EAAE,KAAK,EAAE,UAAU,EAAE,MAAM,EAAE,CAAC;AAC/E,MAAM,MAAM,GAAG,IAAI,eAAe,GAAG,CAAC;AAEtC;;;;;GAKG;AACH,MAAM,UAAU,eAAe,CAAC,IAAY,EAAE,UAAU,GAAa,EAAE;IACrE,MAAM,MAAM,GAAG,QAAQ,CAAC,IAAI,CAAC,CAAC;IAC9B,MAAM,IAAI,GAAG,CAAC,CAAoB,EAAE,KAAa,EAAW,EAAE,CAAC,CAAC,EAAE,IAAI,KAAK,MAAM,IAAI,CAAC,CAAC,IAAI,CAAC,WAAW,EAAE,KAAK,KAAK,CAAC;IACpH,MAAM,WAAW,GAAG,CAAC,IAAY,EAAU,EAAE;QAC3C,IAAI,CAAC,GAAG,IAAI,CAAC;QACb,OAAO,MAAM,CAAC,CAAC,CAAC,EAAE,IAAI,KAAK,OAAO,EAAE,CAAC;YACnC,CAAC,EAAE,CAAC;QACN,CAAC;QACD,OAAO,CAAC,CAAC;IACX,CAAC,CAAC;IACF,IAAI,KAAK,GAAG,CAAC,CAAC;IACd,MAAM,GAAG,GAAY,EAAE,CAAC;IACxB,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QACvC,MAAM,CAAC,GAAG,MAAM,CAAC,CAAC,CAAU,CAAC;QAC7B,IAAI,CAAC,CAAC,IAAI,KAAK,QAAQ,IAAI,CAAC,CAAC,IAAI,KAAK,GAAG,EAAE,CAAC;YAC1C,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,QAAQ,EAAE,IAAI,EAAE,GAAG,EAAE,CAAC,CAAC;YACxC,SAAS;QACX,CAAC;QACD,IAAI,CAAC,CAAC,IAAI,KAAK,MAAM,EAAE,CAAC;YACtB,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;YACZ,SAAS;QACX,CAAC;QACD,MAAM,KAAK,GAAG,CAAC,CAAC,IAAI,CAAC,WAAW,EAAE,CAAC;QACnC,IAAI,KAAK,KAAK,IAAI,EAAE,CAAC;YACnB,MAAM,EAAE,GAAG,WAAW,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;YAC9B,MAAM,CAAC,GAAG,WAAW,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC;YAC9B,MAAM,IAAI,GAAG,WAAW,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;YAChC,IAAI,IAAI,CAAC,MAAM,CAAC,EAAE,CAAC,EAAE,IAAI,CAAC,IAAI,OAAO,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,IAAI,IAAI,EAAE,CAAC,IAAI,IAAI,CAAC,MAAM,CAAC,IAAI,CAAC,EAAE,MAAM,CAAC,EAAE,CAAC;gBAChG,KAAK,GAAG,MAAM,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC;gBAChC,CAAC,GAAG,IAAI,CAAC;gBACT,SAAS;YACX,CAAC;QACH,CAAC;QACD,IAAI,KAAK,KAAK,OAAO,EAAE,CAAC;YACtB,MAAM,EAAE,GAAG,WAAW,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;YAC9B,MAAM,IAAI,GAAG,WAAW,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC;YACjC,IAAI,IAAI,CAAC,MAAM,CAAC,EAAE,CAAC,EAAE,IAAI,CAAC,IAAI,IAAI,CAAC,MAAM,CAAC,IAAI,CAAC,EAAE,OAAO,CAAC,EAAE,CAAC;gBAC1D,mEAAmE;gBACnE,CAAC,GAAG,EAAE,CAAC;gBACP,SAAS;YACX,CAAC;YACD,MAAM,GAAG,GAAG,WAAW,CAAC,IAAI,GAAG,CAAC,CAAC,CAAC;YAClC,IAAI,IAAI,CAAC,MAAM,CAAC,EAAE,CAAC,EAAE,IAAI,CAAC,IAAI,IAAI,CAAC,MAAM,CAAC,IAAI,CAAC,EAAE,SAAS,CAAC,IAAI,IAAI,CAAC,MAAM,CAAC,GAAG,CAAC,EAAE,KAAK,CAAC,EAAE,CAAC;gBACxF,IAAI,UAAU,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC;oBAC1B,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,YAAY,UAAU,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,IAAI,CAAC,CAAC,WAAW,EAAE,CAAC,OAAO,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,EAAE,CAAC,CAAC;gBAC/H,CAAC;gBACD,CAAC,GAAG,GAAG,CAAC;gBACR,SAAS;YACX,CAAC;QACH,CAAC;QACD,IAAI,KAAK,KAAK,MAAM,IAAI,KAAK,KAAK,MAAM,EAAE,CAAC;YACzC,MAAM,MAAM,GAAG,WAAW,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;YAClC,MAAM,GAAG,GAAG,MAAM,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC;YAC/B,IAAI,MAAM,CAAC,MAAM,CAAC,EAAE,IAAI,KAAK,MAAM,IAAI,GAAG,EAAE,IAAI,KAAK,GAAG,EAAE,CAAC;gBACzD,MAAM,IAAI,GAAG,MAAM,CAAC,KAAK,CAAC,MAAM,EAAE,MAAM,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;gBAC1E,MAAM,IAAI,YAAY,CAAC,aAAa,IAAI,oDAAoD,CAAC,CAAC;YAChG,CAAC;QACH,CAAC;QACD,MAAM,QAAQ,GAAG,WAAW,CAAC,KAAK,CAAC,IAAI,KAAK,CAAC,KAAK,CAAC,CAAC;QACpD,GAAG,CAAC,IAAI,CAAC,QAAQ,KAAK,SAAS,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,QAAQ,EAAE,CAAC,CAAC;IAC1E,CAAC;IACD,MAAM,UAAU,GAAG,GAAG;SACnB,MAAM,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,IAAI,KAAK,OAAO,IAAI,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,EAAE,IAAI,KAAK,OAAO,CAAC;SACpE,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC;SAClB,IAAI,CAAC,EAAE,CAAC;SACR,IAAI,EAAE,CAAC;IACV,OAAO,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,UAAU,UAAU,KAAK,EAAE,CAAC,CAAC,CAAC,UAAU,CAAC;AACjE,CAAC;AAED,kGAAkG;AAClG,MAAM,UAAU,iBAAiB,CAAC,IAAY;IAC5C,OAAO,QAAQ,CAAC,IAAI,CAAC;SAClB,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE;QACT,IAAI,CAAC,CAAC,IAAI,KAAK,QAAQ,IAAI,CAAC,CAAC,IAAI,KAAK,GAAG,EAAE,CAAC;YAC1C,OAAO,GAAG,CAAC;QACb,CAAC;QACD,OAAO,CAAC,CAAC,IAAI,KAAK,MAAM,CAAC,CAAC,CAAC,CAAC,WAAW,CAAC,CAAC,CAAC,IAAI,CAAC,WAAW,EAAE,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC;IACpF,CAAC,CAAC;SACD,IAAI,CAAC,EAAE,CAAC;SACR,IAAI,EAAE,CAAC;AACZ,CAAC;AAED,uFAAuF;AACvF,SAAS,MAAM,CAAC,KAAa;IAC3B,MAAM,MAAM,GAAG,GAAG,MAAM,GAAG,CAAC;IAC5B,IAAI,CAAC,KAAK,CAAC,WAAW,EAAE,CAAC,UAAU,CAAC,MAAM,CAAC,EAAE,CAAC;QAC5C,MAAM,IAAI,YAAY,CAAC,aAAa,KAAK,oCAAoC,CAAC,CAAC;IACjF,CAAC;IACD,OAAO,GAAG,MAAM,GAAG,KAAK,CAAC,KAAK,CAAC,MAAM,CAAC,MAAM,CAAC,CAAC,WAAW,EAAE,EAAE,CAAC;AAChE,CAAC;AAED,mFAAmF;AACnF,SAAS,SAAS,CAAC,KAAc;IAC/B,IAAI,KAAK,KAAK,IAAI,IAAI,KAAK,KAAK,SAAS,EAAE,CAAC;QAC1C,OAAO,IAAI,CAAC;IACd,CAAC;IACD,IAAI,OAAO,KAAK,KAAK,QAAQ,IAAI,OAAO,KAAK,KAAK,QAAQ,EAAE,CAAC;QAC3D,OAAO,KAAK,CAAC;IACf,CAAC;IACD,IAAI,OAAO,KAAK,KAAK,SAAS,EAAE,CAAC;QAC/B,OAAO,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC;IAC1B,CAAC;IACD,IAAI,OAAO,KAAK,KAAK,QAAQ,EAAE,CAAC;QAC9B,OAAO,KAAK,CAAC,QAAQ,EAAE,CAAC;IAC1B,CAAC;IACD,IAAI,KAAK,YAAY,UAAU,EAAE,CAAC;QAChC,OAAO,MAAM,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,QAAQ,CAAC,KAAK,CAAC,CAAC,WAAW,EAAE,CAAC;IAC1D,CAAC;IACD,OAAO,MAAM,CAAC,KAAK,CAAC,CAAC;AACvB,CAAC;AAED,MAAM,SAAS,GAAG,wKAAwK,CAAC;AAQ3L;;;;GAIG;AACH,MAAM,OAAO,aAAa;IAGY,GAAG;IAFvB,IAAI,GAAG,UAAU,CAAC;IAElC,YAAoC,GAAqB;mBAArB,GAAG;IAAqB,CAAC;IAErD,UAAU;QAChB,OAAO,IAAI,CAAC,GAAG,EAAE,CAAC,EAAE,CAAC;IACvB,CAAC;IAED,2FAA2F;IACnF,KAAK,CAAC,KAAK,CAAC,IAAY;QAC9B,MAAM,EAAE,EAAE,EAAE,QAAQ,EAAE,GAAG,IAAI,CAAC,GAAG,EAAE,CAAC;QACpC,IAAI,CAAC,QAAQ,EAAE,CAAC;YACd,MAAM,IAAI,YAAY,CAAC,SAAS,CAAC,CAAC;QACpC,CAAC;QACD,IAAI,CAAC;YACH,MAAM,MAAM,GAAG,MAAM,aAAa,CAAC,EAAE,EAAE,GAAG,EAAE,CAAC,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC,OAAO,CAAC,EAAE,CAAC,CAAC,CAAC;YACxE,MAAM,KAAK,GAAG,MAAM,CAAC,MAAM,CAAC,eAAe,IAAI,EAAE,CAAC,CAAC;YACnD,OAAO,EAAE,KAAK,EAAE,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,KAAK,EAAE,CAAC;QAC7C,CAAC;QAAC,OAAO,KAAK,EAAE,CAAC;YACf,IAAK,KAA2B,CAAC,IAAI,KAAK,OAAO,EAAE,CAAC;gBAClD,OAAO,EAAE,KAAK,EAAE,CAAC,EAAE,KAAK,EAAE,CAAC,EAAE,CAAC;YAChC,CAAC;YACD,MAAM,KAAK,CAAC;QACd,CAAC;IACH,CAAC;IAEM,KAAK,CAAC,OAAO,KAAmB,CAAC;IAEjC,KAAK,CAAC,UAAU,KAAmB,CAAC;IAE3C,sDAAsD;IAC/C,KAAK,CAAC,gBAAgB,KAAmB,CAAC;IAEjD,gGAAgG;IACzF,KAAK,CAAC,MAAM;QACjB,MAAM,IAAI,YAAY,CAAC,6EAA6E,CAAC,CAAC;IACxG,CAAC;IAEM,KAAK,CAAC,QAAQ;QACnB,MAAM,IAAI,YAAY,CAAC,+EAA+E,CAAC,CAAC;IAC1G,CAAC;IAED,kDAAkD;IAC3C,KAAK,CAAC,OAAO;QAClB,MAAM,IAAI,YAAY,CAAC,gDAAgD,CAAC,CAAC;IAC3E,CAAC;IAEM,KAAK,CAAC,MAAM,CAAC,OAA6E;QAC/F,MAAM,OAAO,GAAG,OAAO,CAAC,OAAO,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,IAAI,CAAC,CAAC,WAAW,EAAE,CAAC,OAAO,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QAClG,OAAO,IAAI,CAAC,KAAK,CAAC,eAAe,MAAM,CAAC,OAAO,CAAC,KAAK,CAAC,KAAK,OAAO,aAAa,OAAO,CAAC,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;IAC/G,CAAC;IAEM,KAAK,CAAC,MAAM,CAAC,OAAwD;QAC1E,MAAM,KAAK,GAAG,OAAO,CAAC,KAAK,CAAC,IAAI,EAAE,KAAK,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,UAAU,iBAAiB,CAAC,OAAO,CAAC,KAAK,CAAC,EAAE,CAAC;QAC9F,OAAO,IAAI,CAAC,KAAK,CAAC,UAAU,MAAM,CAAC,OAAO,CAAC,KAAK,CAAC,QAAQ,OAAO,CAAC,GAAG,CAAC,GAAG,CAAC,iBAAiB,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,GAAG,KAAK,EAAE,CAAC,CAAC;IACpH,CAAC;IAEM,KAAK,CAAC,MAAM,CAAC,OAAyC;QAC3D,IAAI,OAAO,CAAC,KAAK,CAAC,IAAI,EAAE,KAAK,EAAE,EAAE,CAAC;YAChC,4FAA4F;YAC5F,MAAM,IAAI,YAAY,CAAC,uBAAuB,OAAO,CAAC,KAAK,uCAAuC,CAAC,CAAC;QACtG,CAAC;QACD,OAAO,IAAI,CAAC,KAAK,CAAC,eAAe,MAAM,CAAC,OAAO,CAAC,KAAK,CAAC,UAAU,iBAAiB,CAAC,OAAO,CAAC,KAAK,CAAC,EAAE,CAAC,CAAC;IACtG,CAAC;IAEM,KAAK,CAAC,MAAM,CAAC,OAA0B;QAC5C,MAAM,IAAI,GAAG,eAAe,CAAC,OAAO,CAAC,MAAM,EAAE,OAAO,CAAC,UAAU,CAAC,CAAC;QACjE,MAAM,EAAE,GAAG,IAAI,CAAC,UAAU,EAAE,CAAC;QAC7B,MAAM,MAAM,GAAG,MAAM,aAAa,CAAC,EAAE,EAAE,GAAG,EAAE,CAAC,GAAG,CAAC,GAAG,CAA0B,IAAI,CAAC,CAAC,OAAO,CAAC,EAAE,CAAC,CAAC,CAAC;QACjG,OAAO,EAAE,IAAI,EAAE,MAAM,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,GAAG,EAAE,EAAE,CAAC,MAAM,CAAC,WAAW,CAAC,MAAM,CAAC,OAAO,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,EAAE,KAAK,CAAC,EAAE,EAAE,CAAC,CAAC,IAAI,EAAE,SAAS,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC;IACtI,CAAC;IAED,sFAAsF;IAC/E,KAAK,CAAC,UAAU,CAAC,OAA0B;QAChD,MAAM,EAAE,IAAI,EAAE,GAAG,MAAM,IAAI,CAAC,MAAM,CAAC,OAAO,CAAC,CAAC;QAC5C,IAAI,QAAQ,GAAG,CAAC,CAAC;QACjB,OAAO;YACL,eAAe,EAAE,KAAK,EAAE,IAAY,EAAE,EAAE;gBACtC,MAAM,KAAK,GAAG,IAAI,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,GAAG,QAAQ,CAAC;gBACvD,MAAM,IAAI,GAAG,IAAI,CAAC,KAAK,CAAC,QAAQ,EAAE,QAAQ,GAAG,KAAK,CAAC,CAAC;gBACpD,QAAQ,IAAI,IAAI,CAAC,MAAM,CAAC;gBACxB,OAAO,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC;YACxB,CAAC;YACD,WAAW,EAAE,KAAK,IAAI,EAAE;gBACtB,QAAQ,GAAG,IAAI,CAAC,MAAM,CAAC;YACzB,CAAC;SACF,CAAC;IACJ,CAAC;CACF"}

package/dist/abap/utils.d.ts

@@ -0,0 +1,41 @@
+/**
+ * The kernel side of the clean-room utilities of ABAP Cloud (decision D40): JSON (/ui2/cl_json,
+ * xco_cp_json), code pages and encodings, gzip, hashes, random seeds, regular expressions, date
+ * and time stamp arithmetic, number ranges and the application log (in the database of the
+ * application, in the LUW of the request), and the description of data objects for the RTTS.
+ */
+import { type Kysely } from "kysely";
+import { type AbapData } from "./convert.js";
+export interface UtilityServices {
+    /** The database of the LUW of the running ABAP code. */
+    db(): Kysely<unknown>;
+    /** The ABAP name of the user of the LUW. */
+    user(): string;
+}
+type JsonNode = {
+    t: "o";
+    m: Array<[string, JsonNode]>;
+} | {
+    t: "a";
+    v: JsonNode[];
+} | {
+    t: "s";
+    v: string;
+} | {
+    t: "n";
+    v: string;
+} | {
+    t: "b";
+    v: boolean;
+} | {
+    t: "z";
+};
+/** A JSON parser that keeps the numbers as written (no rounding through doubles). */
+export declare function parseJson(text: string): JsonNode;
+export declare function writeJson(node: JsonNode, indent?: boolean, level?: number): string;
+/** ABAP component name → JSON member name, for a pretty mode of /ui2/cl_json (or xco). */
+export declare function jsonName(abap: string, mode: string, mappings: Map<string, string>): string;
+type CodePage = "utf8" | "utf16le" | "utf16be" | "latin1" | "ascii" | "windows-1252";
+export declare function codePage(name: string): CodePage | undefined;
+export declare function installUtilities(kernel: AbapData, services: UtilityServices): void;
+export {};