@open-rap/compiler 0.0.0-stage → 0.1.0

package/dist/ddic/cds-types.js

@@ -0,0 +1,131 @@
+/**
+ * CDS simple types and CDS enumerated types (D55): the TDL sources `name.drty.acds`.
+ *
+ *   @EndUserText.label: 'Travel name'
+ *   define type zrt_name : abap.char(40);
+ *
+ *   @EndUserText.label: 'Status'
+ *   define type zrt_status : abap.char(1) enum {
+ *     @EndUserText.label: 'Open'
+ *     OPEN = initial;
+ *     @EndUserText.label: 'Accepted'
+ *     ACCEPTED = 'A';
+ *   }
+ *
+ *   define type zrt_status_stack : zrt_status;     // a stacked type
+ *
+ * abaplint knows the object type (DRTY) but does not parse it: the statement is read here.
+ */
+/** Comments become blanks so that the positions stay those of the source. */
+function blankComments(source) {
+    let result = "";
+    let i = 0;
+    let quote;
+    while (i < source.length) {
+        const c = source[i] ?? "";
+        const next = source[i + 1] ?? "";
+        if (quote !== undefined) {
+            result += c;
+            if (c === quote) {
+                quote = undefined;
+            }
+            i++;
+        }
+        else if (c === "'") {
+            quote = c;
+            result += c;
+            i++;
+        }
+        else if ((c === "/" && next === "/") || (c === "-" && next === "-")) {
+            while (i < source.length && source[i] !== "\n") {
+                result += " ";
+                i++;
+            }
+        }
+        else if (c === "/" && next === "*") {
+            while (i < source.length && !(source[i] === "*" && source[i + 1] === "/")) {
+                result += source[i] === "\n" ? "\n" : " ";
+                i++;
+            }
+            result += "  ";
+            i += 2;
+        }
+        else {
+            result += c;
+            i++;
+        }
+    }
+    return result;
+}
+function position(text, offset) {
+    const before = text.slice(0, offset);
+    const line = before.split("\n").length;
+    return { line, column: offset - before.lastIndexOf("\n") };
+}
+/** The `@EndUserText.label` among annotations (`@EndUserText.label: 'x'`). */
+function labelOf(annotations) {
+    const match = /@EndUserText\s*\.\s*label\s*:\s*'((?:[^']|'')*)'/i.exec(annotations);
+    return match === null ? undefined : (match[1] ?? "").replace(/''/g, "'");
+}
+export function parseCdsTypeSource(source) {
+    const issues = [];
+    const text = blankComments(source);
+    const define = /\bdefine\s+type\s+([A-Za-z0-9_/]+)\s*:\s*([A-Za-z0-9_./]+(?:\s*\(\s*\d+\s*(?:,\s*\d+\s*)?\))?)\s*(enum\b)?/i.exec(text);
+    if (define === null) {
+        const at = position(text, Math.max(0, text.search(/\S/)));
+        issues.push({ severity: "error", code: "TYPE001", message: "expected define type <name> : <type> [enum { … }]", ...at });
+        return { issues };
+    }
+    const at = position(text, define.index + define[0].indexOf(define[1] ?? ""));
+    const type = { name: define[1] ?? "", base: (define[2] ?? "").replace(/\s+/g, ""), ...at };
+    const label = labelOf(text.slice(0, define.index));
+    if (label !== undefined) {
+        type.label = label;
+    }
+    const rest = text.slice(define.index + define[0].length);
+    if (define[3] === undefined) {
+        if (!/^\s*;?\s*$/.test(rest)) {
+            const offset = define.index + define[0].length + (rest.search(/\S/) >= 0 ? rest.search(/\S/) : 0);
+            issues.push({ severity: "error", code: "TYPE001", message: "unexpected text after the type (enum { … } for an enumerated type)", ...position(text, offset) });
+        }
+        return { type, issues };
+    }
+    // enum { [annotations] CONST = value | initial; … }
+    const bodyStart = define.index + define[0].length + rest.indexOf("{");
+    const bodyEnd = text.lastIndexOf("}");
+    if (rest.indexOf("{") < 0 || bodyEnd < bodyStart) {
+        issues.push({ severity: "error", code: "TYPE001", message: "an enumerated type lists its constants in { }", ...position(text, define.index + define[0].length) });
+        return { type, issues };
+    }
+    type.enum = [];
+    const body = text.slice(bodyStart + 1, bodyEnd);
+    const constant = /((?:@[^;=]*?:\s*(?:'(?:[^']|'')*'|#?[A-Za-z0-9_.]+)\s*)*)([A-Za-z_][A-Za-z0-9_]*)\s*=\s*('(?:[^']|'')*'|-?\d+|initial)\s*;/giy;
+    let offset = 0;
+    while (offset < body.length) {
+        const blank = /\s*/y;
+        blank.lastIndex = offset;
+        blank.exec(body);
+        offset = blank.lastIndex;
+        if (offset >= body.length) {
+            break;
+        }
+        constant.lastIndex = offset;
+        const match = constant.exec(body);
+        if (match === null) {
+            issues.push({ severity: "error", code: "TYPE001", message: "expected <CONSTANT> = <value> | initial;", ...position(text, bodyStart + 1 + offset) });
+            break;
+        }
+        const literal = match[3] ?? "";
+        const where = position(text, bodyStart + 1 + match.index + (match[1] ?? "").length);
+        const value = /^initial$/i.test(literal) ? "initial" : literal.startsWith("'") ? literal.slice(1, -1).replace(/''/g, "'") : Number(literal);
+        const entry = { name: match[2] ?? "", value, literal, ...where };
+        const constantLabel = labelOf(match[1] ?? "");
+        if (constantLabel !== undefined) {
+            entry.label = constantLabel;
+        }
+        type.enum.push(entry);
+        offset = constant.lastIndex;
+    }
+    return { type, issues };
+}
+//# sourceMappingURL=cds-types.js.map

package/dist/ddic/cds-types.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"cds-types.js","sourceRoot":"","sources":["../../src/ddic/cds-types.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;GAiBG;AAsBH,6EAA6E;AAC7E,SAAS,aAAa,CAAC,MAAc;IACnC,IAAI,MAAM,GAAG,EAAE,CAAC;IAChB,IAAI,CAAC,GAAG,CAAC,CAAC;IACV,IAAI,KAAyB,CAAC;IAC9B,OAAO,CAAC,GAAG,MAAM,CAAC,MAAM,EAAE,CAAC;QACzB,MAAM,CAAC,GAAG,MAAM,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC;QAC1B,MAAM,IAAI,GAAG,MAAM,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,EAAE,CAAC;QACjC,IAAI,KAAK,KAAK,SAAS,EAAE,CAAC;YACxB,MAAM,IAAI,CAAC,CAAC;YACZ,IAAI,CAAC,KAAK,KAAK,EAAE,CAAC;gBAChB,KAAK,GAAG,SAAS,CAAC;YACpB,CAAC;YACD,CAAC,EAAE,CAAC;QACN,CAAC;aAAM,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;YACrB,KAAK,GAAG,CAAC,CAAC;YACV,MAAM,IAAI,CAAC,CAAC;YACZ,CAAC,EAAE,CAAC;QACN,CAAC;aAAM,IAAI,CAAC,CAAC,KAAK,GAAG,IAAI,IAAI,KAAK,GAAG,CAAC,IAAI,CAAC,CAAC,KAAK,GAAG,IAAI,IAAI,KAAK,GAAG,CAAC,EAAE,CAAC;YACtE,OAAO,CAAC,GAAG,MAAM,CAAC,MAAM,IAAI,MAAM,CAAC,CAAC,CAAC,KAAK,IAAI,EAAE,CAAC;gBAC/C,MAAM,IAAI,GAAG,CAAC;gBACd,CAAC,EAAE,CAAC;YACN,CAAC;QACH,CAAC;aAAM,IAAI,CAAC,KAAK,GAAG,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;YACrC,OAAO,CAAC,GAAG,MAAM,CAAC,MAAM,IAAI,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,KAAK,GAAG,IAAI,MAAM,CAAC,CAAC,GAAG,CAAC,CAAC,KAAK,GAAG,CAAC,EAAE,CAAC;gBAC1E,MAAM,IAAI,MAAM,CAAC,CAAC,CAAC,KAAK,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,GAAG,CAAC;gBAC1C,CAAC,EAAE,CAAC;YACN,CAAC;YACD,MAAM,IAAI,IAAI,CAAC;YACf,CAAC,IAAI,CAAC,CAAC;QACT,CAAC;aAAM,CAAC;YACN,MAAM,IAAI,CAAC,CAAC;YACZ,CAAC,EAAE,CAAC;QACN,CAAC;IACH,CAAC;IACD,OAAO,MAAM,CAAC;AAChB,CAAC;AAED,SAAS,QAAQ,CAAC,IAAY,EAAE,MAAc;IAC5C,MAAM,MAAM,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,EAAE,MAAM,CAAC,CAAC;IACrC,MAAM,IAAI,GAAG,MAAM,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC,MAAM,CAAC;IACvC,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,MAAM,GAAG,MAAM,CAAC,WAAW,CAAC,IAAI,CAAC,EAAE,CAAC;AAC7D,CAAC;AAED,8EAA8E;AAC9E,SAAS,OAAO,CAAC,WAAmB;IAClC,MAAM,KAAK,GAAG,mDAAmD,CAAC,IAAI,CAAC,WAAW,CAAC,CAAC;IACpF,OAAO,KAAK,KAAK,IAAI,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,OAAO,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;AAC3E,CAAC;AAED,MAAM,UAAU,kBAAkB,CAAC,MAAc;IAC/C,MAAM,MAAM,GAAmB,EAAE,CAAC;IAClC,MAAM,IAAI,GAAG,aAAa,CAAC,MAAM,CAAC,CAAC;IACnC,MAAM,MAAM,GAAG,6GAA6G,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACxI,IAAI,MAAM,KAAK,IAAI,EAAE,CAAC;QACpB,MAAM,EAAE,GAAG,QAAQ,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,IAAI,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;QAC1D,MAAM,CAAC,IAAI,CAAC,EAAE,QAAQ,EAAE,OAAO,EAAE,IAAI,EAAE,SAAS,EAAE,OAAO,EAAE,mDAAmD,EAAE,GAAG,EAAE,EAAE,CAAC,CAAC;QACzH,OAAO,EAAE,MAAM,EAAE,CAAC;IACpB,CAAC;IACD,MAAM,EAAE,GAAG,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAC,KAAK,GAAG,MAAM,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,MAAM,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC;IAC7E,MAAM,IAAI,GAAkB,EAAE,IAAI,EAAE,MAAM,CAAC,CAAC,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,CAAC,MAAM,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,OAAO,CAAC,MAAM,EAAE,EAAE,CAAC,EAAE,GAAG,EAAE,EAAE,CAAC;IAC1G,MAAM,KAAK,GAAG,OAAO,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,EAAE,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC;IACnD,IAAI,KAAK,KAAK,SAAS,EAAE,CAAC;QACxB,IAAI,CAAC,KAAK,GAAG,KAAK,CAAC;IACrB,CAAC;IACD,MAAM,IAAI,GAAG,IAAI,CAAC,KAAK,CAAC,MAAM,CAAC,KAAK,GAAG,MAAM,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC;IACzD,IAAI,MAAM,CAAC,CAAC,CAAC,KAAK,SAAS,EAAE,CAAC;QAC5B,IAAI,CAAC,YAAY,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC;YAC7B,MAAM,MAAM,GAAG,MAAM,CAAC,KAAK,GAAG,MAAM,CAAC,CAAC,CAAC,CAAC,MAAM,GAAG,CAAC,IAAI,CAAC,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;YAClG,MAAM,CAAC,IAAI,CAAC,EAAE,QAAQ,EAAE,OAAO,EAAE,IAAI,EAAE,SAAS,EAAE,OAAO,EAAE,oEAAoE,EAAE,GAAG,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAC,EAAE,CAAC,CAAC;QAChK,CAAC;QACD,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC;IAC1B,CAAC;IACD,oDAAoD;IACpD,MAAM,SAAS,GAAG,MAAM,CAAC,KAAK,GAAG,MAAM,CAAC,CAAC,CAAC,CAAC,MAAM,GAAG,IAAI,CAAC,OAAO,CAAC,GAAG,CAAC,CAAC;IACtE,MAAM,OAAO,GAAG,IAAI,CAAC,WAAW,CAAC,GAAG,CAAC,CAAC;IACtC,IAAI,IAAI,CAAC,OAAO,CAAC,GAAG,CAAC,GAAG,CAAC,IAAI,OAAO,GAAG,SAAS,EAAE,CAAC;QACjD,MAAM,CAAC,IAAI,CAAC,EAAE,QAAQ,EAAE,OAAO,EAAE,IAAI,EAAE,SAAS,EAAE,OAAO,EAAE,+CAA+C,EAAE,GAAG,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAC,KAAK,GAAG,MAAM,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,EAAE,CAAC,CAAC;QAClK,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC;IAC1B,CAAC;IACD,IAAI,CAAC,IAAI,GAAG,EAAE,CAAC;IACf,MAAM,IAAI,GAAG,IAAI,CAAC,KAAK,CAAC,SAAS,GAAG,CAAC,EAAE,OAAO,CAAC,CAAC;IAChD,MAAM,QAAQ,GAAG,+HAA+H,CAAC;IACjJ,IAAI,MAAM,GAAG,CAAC,CAAC;IACf,OAAO,MAAM,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC;QAC5B,MAAM,KAAK,GAAG,MAAM,CAAC;QACrB,KAAK,CAAC,SAAS,GAAG,MAAM,CAAC;QACzB,KAAK,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACjB,MAAM,GAAG,KAAK,CAAC,SAAS,CAAC;QACzB,IAAI,MAAM,IAAI,IAAI,CAAC,MAAM,EAAE,CAAC;YAC1B,MAAM;QACR,CAAC;QACD,QAAQ,CAAC,SAAS,GAAG,MAAM,CAAC;QAC5B,MAAM,KAAK,GAAG,QAAQ,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QAClC,IAAI,KAAK,KAAK,IAAI,EAAE,CAAC;YACnB,MAAM,CAAC,IAAI,CAAC,EAAE,QAAQ,EAAE,OAAO,EAAE,IAAI,EAAE,SAAS,EAAE,OAAO,EAAE,0CAA0C,EAAE,GAAG,QAAQ,CAAC,IAAI,EAAE,SAAS,GAAG,CAAC,GAAG,MAAM,CAAC,EAAE,CAAC,CAAC;YACpJ,MAAM;QACR,CAAC;QACD,MAAM,OAAO,GAAG,KAAK,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC;QAC/B,MAAM,KAAK,GAAG,QAAQ,CAAC,IAAI,EAAE,SAAS,GAAG,CAAC,GAAG,KAAK,CAAC,KAAK,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,MAAM,CAAC,CAAC;QACpF,MAAM,KAAK,GAAgC,YAAY,CAAC,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,OAAO,CAAC,UAAU,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,CAAC;QACzK,MAAM,KAAK,GAA+C,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC,CAAC,IAAI,EAAE,EAAE,KAAK,EAAE,OAAO,EAAE,GAAG,KAAK,EAAE,CAAC;QAC7G,MAAM,aAAa,GAAG,OAAO,CAAC,KAAK,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC;QAC9C,IAAI,aAAa,KAAK,SAAS,EAAE,CAAC;YAChC,KAAK,CAAC,KAAK,GAAG,aAAa,CAAC;QAC9B,CAAC;QACD,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;QACtB,MAAM,GAAG,QAAQ,CAAC,SAAS,CAAC;IAC9B,CAAC;IACD,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC;AAC1B,CAAC"}

package/dist/ddic/table-source.d.ts

@@ -0,0 +1,70 @@
+/**
+ * Tables and structures written as source code (`name.tabl.astabl`), with the syntax of the
+ * ABAP Development Tools editor:
+ *
+ *   @EndUserText.label : 'Travel'
+ *   @AbapCatalog.enhancement.category : #NOT_EXTENSIBLE
+ *   @AbapCatalog.tableCategory : #TRANSPARENT
+ *   @AbapCatalog.deliveryClass : #A
+ *   @AbapCatalog.dataMaintenance : #RESTRICTED
+ *   define table zrt_travel {
+ *     key client      : abap.clnt not null;
+ *     key travel_uuid : sysuuid_x16 not null;
+ *     description     : abap.char(256);
+ *     @Semantics.amount.currencyCode : 'zrt_travel.currency_code'
+ *     total_price     : abap.curr(16,2);
+ *     currency_code   : abap.cuky;
+ *   }
+ *
+ * abapGit only knows the XML serialization of tables (DD02V, DD09L, DD03P): the source is turned
+ * into that XML, both when the project is read and by `rapt abapgit`, which writes it next to
+ * the source so the repository can be pulled into an SAP system.
+ */
+export interface TableSourceIssue {
+    severity: "error" | "warning";
+    message: string;
+    line: number;
+    column: number;
+}
+export interface TableSourceField {
+    name: string;
+    key: boolean;
+    notNull: boolean;
+    /** Data element, upper case. */
+    dataElement?: string;
+    /** Built-in dictionary type: CHAR, NUMC, CURR… */
+    builtin?: {
+        datatype: string;
+        length: number;
+        decimals?: number;
+    };
+    /** `include zstruct [with suffix _x]`. */
+    include?: {
+        name: string;
+        suffix?: string;
+    };
+    /** Currency or unit reference (`@Semantics.amount.currencyCode : 'table.field'`). */
+    reference?: {
+        table: string;
+        field: string;
+    };
+    line: number;
+}
+export interface TableSource {
+    kind: "table" | "structure";
+    name: string;
+    description?: string;
+    /** Annotations of the table, keys in lower case: `abapcatalog.deliveryclass` → `#A`. */
+    annotations: Map<string, string>;
+    fields: TableSourceField[];
+}
+export declare function parseTableSource(source: string): {
+    table?: TableSource;
+    issues: TableSourceIssue[];
+};
+/** Wraps `asx:values` content in the abapGit envelope. */
+export declare function abapGitXml(serializer: string, values: string): string;
+/** `<TAG>` blocks with their children, skipping undefined values. */
+export declare function xmlElement(tag: string, children: [string, string | undefined][], indent: number): string;
+/** The abapGit serialization of a table or structure source. */
+export declare function tableSourceToXml(table: TableSource, language?: string): string;