auto generate schemas, proof of concept (#428)

Author: larshp

.editorconfig

@@ -4,7 +4,7 @@
 root = true
 
 # ensure the LF line endings
-[*.{abap,md,properties,acds,json}]
+[*.{abap,md,properties,acds,json,mjs,gitignore}]
 charset = utf-8
 end_of_line = lf
 insert_final_newline = true

.github/workflows/generate.yml

@@ -0,0 +1,17 @@
+name: Generate Schemas
+
+on:
+  pull_request:
+
+jobs:
+  generate:
+    runs-on: ubuntu-latest
+    timeout-minutes: 10
+    steps:
+    - uses: actions/checkout@v3
+    - uses: actions/setup-node@v3
+    - name: Run
+      run: |
+        cd generate
+        npm ci
+        npm test

generate/.gitignore

@@ -0,0 +1,4 @@
+node_modules
+downport
+output
+generated

generate/abap_transpile.json

@@ -0,0 +1,24 @@
+{
+  "input_folder": "downport",
+  "input_filter": [
+    "intf",
+    "dtel",
+    "clas"
+  ],
+  "output_folder": "output",
+  "libs": [
+    {
+      "url": "https://github.com/open-abap/open-abap-core"
+    }
+  ],
+  "write_unit_tests": true,
+  "write_source_map": true,
+  "options": {
+    "ignoreSyntaxCheck": false,
+    "addFilenames": true,
+    "addCommonJS": true,
+    "unknownTypes": "runtimeError",
+    "extraSetup": "../setup.mjs",
+    "skip": []
+  }
+}

generate/aff.mjs

@@ -0,0 +1,47 @@
+import * as fs from 'node:fs';
+import * as path from 'node:path';
+import * as child_process from 'node:child_process';
+import {initializeABAP} from "./output/init.mjs";
+await initializeABAP();
+
+async function run() {
+  if (fs.existsSync("generated") === false) {
+    fs.mkdirSync("generated");
+  }
+
+  const types = [];
+  for (const f of fs.readdirSync("../file-formats/")) {
+    if (f.length === 4) {
+      types.push(f.toUpperCase());
+    }
+  }
+
+  for (const type of types) {
+    console.log(type);
+    if (type === "ENHO") {
+      console.log("\tskip, https://github.com/SAP/abap-file-formats/issues/409");
+      continue;
+    }
+
+    const result = await abap.Classes["CL_RUN"].run({object_type: new abap.types.String().set(type)});
+    const filename = "generated" + path.sep + type.toLowerCase() + "-v1.json";
+    fs.writeFileSync(filename, result.get());
+
+    const command = `diff --strip-trailing-cr generated/${type.toLowerCase()}-v1.json ../file-formats/${type.toLowerCase()}/${type.toLowerCase()}-v1.json`;
+    const output = child_process.execSync(`${command} || true`);
+    if (output.toString().length > 0) {
+      console.log(command);
+      console.log(output.toString());
+    } else {
+      console.log("\tOK\n");
+    }
+  }
+
+  // only run for INTF,
+  /*
+  const result = await abap.Classes["CL_RUN"].run({object_type: new abap.types.String().set("INTF")});
+  fs.writeFileSync("generated" + path.sep + "intf-v1.json", result.get());
+  */
+}
+
+run();

generate/cl_run.clas.abap

@@ -0,0 +1,46 @@
+CLASS cl_run DEFINITION PUBLIC FINAL CREATE PUBLIC.
+  PUBLIC SECTION.
+    CLASS-METHODS run
+      IMPORTING
+        object_type   TYPE string
+      RETURNING
+        VALUE(result) TYPE string.
+ENDCLASS.
+
+CLASS cl_run IMPLEMENTATION.
+
+  METHOD run.
+    DATA writer     TYPE REF TO zcl_aff_writer_json_schema.
+    DATA generator  TYPE REF TO zcl_aff_generator.
+    DATA string_tab TYPE string_table.
+    DATA type_name  TYPE string.
+    DATA schema_id  TYPE string.
+    DATA ref        TYPE REF TO data.
+    FIELD-SYMBOLS <row> LIKE LINE OF string_tab.
+
+    schema_id = |https://github.com/SAP/abap-file-formats/blob/main/file-formats/{ to_lower( object_type ) }/{ to_lower( object_type ) }-v1.json|.
+    type_name = to_upper( |ZIF_AFF_{ object_type }_V1=>TY_MAIN| ).
+
+    CREATE DATA ref TYPE (type_name).
+
+    CREATE OBJECT writer
+      EXPORTING
+        schema_id = schema_id.
+
+    CREATE OBJECT generator
+      EXPORTING
+        writer = writer.
+
+    string_tab = generator->generate_type( ref->* ).
+
+* workaround for transpiler/JS keywords
+    LOOP AT string_tab ASSIGNING <row>.
+      IF condense( <row> ) CP '"interface_"*'.
+        REPLACE FIRST OCCURRENCE OF '"interface_"' IN <row> WITH '"interface"'.
+      ENDIF.
+    ENDLOOP.
+
+    CONCATENATE LINES OF string_tab INTO result SEPARATED BY |\n|.
+  ENDMETHOD.
+
+ENDCLASS.