@portll/cobolwork 0.2.76 → 0.2.140

package/lib/csd.mjs

@@ -13,11 +13,13 @@ const COMMAND = /^\s*(DEFINE|ADD|ALTER|APPEND|COPY|DELETE|INITIALIZE|LIST|REMOVE
 
 // { tdqueues: Map(name -> { type, ddname, indirect, line }),
 //   transactions: Map(name -> { program, cmdsec, ressec, line }),
-//   tcpipservices: Map(name -> { port, protocol, ssl, transaction, line }) }
+//   tcpipservices: Map(name -> { port, protocol, ssl, authenticate, transaction, line }),
+//   urimaps: Map(name -> { usage, path, program, transaction, tcpipservice, line }) }
 export function parseCsd(text) {
   const tdqueues = new Map();
   const transactions = new Map();
   const tcpipservices = new Map();
+  const urimaps = new Map();
   const blocks = [];
   let cur = null;
   const lines = String(text).split(/\r?\n/);
@@ -48,9 +50,22 @@ export function parseCsd(text) {
         port: attrs.get('PORTNUMBER') || null,
         protocol: attrs.get('PROTOCOL') || null,
         ssl: attrs.get('SSL') || null,
+        // Absent is NO, as for SSL: a request arrives under the region's default user.
+        authenticate: attrs.get('AUTHENTICATE') || null,
         transaction: attrs.get('TRANSACTION') || null,
         line: b.line,
       });
+    } else if (kind === 'URIMAP') {
+      // PATH keeps its case: a URI path is case-sensitive, and it is printed, not compared.
+      const path = /\bPATH\s*\(([^)]{0,256})\)/i.exec(b.text.slice(head[0].length));
+      urimaps.set(name, {
+        usage: attrs.get('USAGE') || null,
+        path: path ? path[1].trim() : null,
+        program: attrs.get('PROGRAM') || null,
+        transaction: attrs.get('TRANSACTION') || null,
+        tcpipservice: attrs.get('TCPIPSERVICE') || null,
+        line: b.line,
+      });
     } else if (kind === 'TDQUEUE') {
       tdqueues.set(name, { type: attrs.get('TYPE') || null, ddname: attrs.get('DDNAME') || null, indirect: attrs.get('INDIRECTNAME') || null, transid: attrs.get('TRANSID') || null, line: b.line });
     } else if (kind === 'TRANSACTION') {
@@ -65,7 +80,7 @@ export function parseCsd(text) {
       });
     }
   }
-  return { tdqueues, transactions, tcpipservices };
+  return { tdqueues, transactions, tcpipservices, urimaps };
 }
 
 // The DD a queue is written to, following one INDIRECT hop. Null when the definition does not say: