From ebac34c61bddb0792733cd5101cf0c74db085513 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Mon, 11 Sep 2023 15:43:23 +0200
Subject: [PATCH] remodeling macro engine: do not depend on
 cgilite/markdown.awk to call macro functions

---
 md_macros.awk | 83 ---------------------------------------------------
 1 file changed, 83 deletions(-)
 delete mode 100755 md_macros.awk

diff --git a/md_macros.awk b/md_macros.awk
deleted file mode 100755
index 5ffc233..0000000
--- a/md_macros.awk
+++ /dev/null
@@ -1,83 +0,0 @@
-#!/bin/awk -f
-#!/opt/busybox/awk -f
-
-# Copyright 2022 Paul Hänsch
-# 
-# Permission to use, copy, modify, and/or distribute this software for any
-# purpose with or without fee is hereby granted, provided that the above
-# copyright notice and this permission notice appear in all copies.
-# 
-# THE SOFTWARE IS PROVIDED “AS IS” AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
-# SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
-# IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
-function sh_escape(arg){
-  return "'" gensub(/'/, "'\"'\"'", "g", arg) "'";
-}
-
-function argsplit(line, args, LOCAL, c, n, ctx) {
-  ctx="space"; n=0;
-
-  while ( length(line) > 0 ) {
-    c = substr(line, 1, 1);
-    line = substr(line, 2);
-    if (ctx == "space" )
-           if (c ~ /[ \t]/) ctx = "space";
-      else if (c ~ /\\/) { n++; ctx = "escbare"; }
-      else if (c ~ /"/)  { n++; ctx = "dquot"; }
-      else if (c ~ /'/)  { n++; ctx = "squot"; }
-      else   { n++; args[n] = c; ctx = "bare"; }
-    else if (ctx == "bare")
-           if (c ~ /[ \t]/) ctx = "space";
-      else if (c ~ /\\/)  ctx = "escbare";
-      else if (c ~ /"/)   ctx = "dquot";
-      else if (c ~ /'/)   ctx = "squot";
-      else args[n] = args[n] c;
-    else if (ctx == "dquot")
-           if (c ~ /"/)  ctx = "bare";
-      else if (c ~ /\\/) ctx = "escdquot";
-      else args[n] = args[n] c;
-    else if (ctx == "squot")
-      if (c ~ /'/)  ctx = "bare";
-      else args[n] = args[n] c;
-    else if (ctx == "escbare") {
-      args[n] = args[n] c;
-      ctx = "bare";
-    }
-    else if (ctx == "escdquot") {
-      args[n] = args[n] c;
-      ctx = "dquot";
-    }
-  }
-} 
-
-function macro(call, LOCAL, line, args) {
-  argsplit(call, args);
-  call="";
-
-  for (n = 1; n in args; n++) call = call sh_escape(args[n]) " ";
-
-  if (args[1] in MACROS) {
-    oldRS=RS; oldORS=ORS;
-    RS=""; ORS=""; line="";
-    "printf '%s' " sh_escape(file) " | " sh_escape(ENVIRON["MD_MACROS"]) "/" call | getline line;
-    RS=oldRS; ORS=oldORS;
-    return line;
-  } else {
-    return HTML("<<" call ">>");
-  }
-}
-
-BEGIN {
-  if (ENVIRON["MD_MACROS"]) {
-    AllowMacros = "true";
-    "cd " sh_escape(ENVIRON["MD_MACROS"]) "; printf '%s/' *" |getline macro_list;
-    split(macro_list, MACROS, "/");
-    for (n in MACROS) { MACROS[MACROS[n]] = ""; delete MACROS[n]; }
-    delete MACROS[""];
-  }
-}
-- 
2.39.2