1 files changed, 116 insertions, 0 deletions
diff --git a/agen5/guile-iface.tpl b/agen5/guile-iface.tpl
new file mode 100644
index 0000000..e94cb89
--- /dev/null
+++ b/agen5/guile-iface.tpl
@@ -0,0 +1,116 @@
+[= AutoGen5 Template h =]
+[=
+(emit (make-header-guard "mutating"))
+(shell "ranged='#if'
+guile_range() {
+  local lo=${1%%-*}
+  local hi=${1##*-}
+  if test ${#lo} -eq 0
+  then echo \"${ranged} (GUILE_VERSION <= $hi)\"
+  elif test ${#hi} -eq 0
+  then echo \"${ranged} (GUILE_VERSION >= $lo)\"
+  else echo \"${ranged} (GUILE_VERSION >= $lo) && (GUILE_VERSION <= $hi)\"
+  fi
+  ranged='#elif'
+}") =]
+[=
+
+FOR invalid     \=]
+
+[= (shell (string-append "guile_range " (get "invalid"))) =]
+# error AutoGen does not work with this version of Guile
+  choke me.
+[=
+ENDFOR invalid  =]
+[= (out-push-new)  =]
+set -- $(sort -n -u <<_EOF_
+[=  (join "\n" (stack "iface.i-impl.i-end")) =]
+_EOF_
+)
+v_list="$*"
+r_list=$(ix=$# ; while (( ix > 0 )) ; do eval echo \${$ix}
+         (( ix = ix - 1 )) ; done)
+i_list="[= (join " " (stack "iface.i-name")) =]"
+PS4='>${FUNC_NAME:-ag}> '
+
+fill_in() {
+  for v in $r_list
+  do
+    eval f=\"\${${name}_vals[$v]}\"
+    if test ${#f} -gt 0
+    then val="$f"
+    else eval ${name}_vals[$v]=\"$val\"
+    fi
+  done
+}
+
+emit_iface_macro() {
+  NM=$(echo $i | tr a-z- A-Z_)
+  eval NM=\"$NM\(\${${i}_args}\)\"
+  if test ${#code} -lt 40 -a ${#NM} -lt 22
+  then
+    printf '# define AG_SCM_%-21s %s\n' "${NM}" "${code}"
+  else
+    printf '# define AG_SCM_%-21s \\\n    %s\n' "${NM}" "${code}"
+  fi
+}
+
+emit_iface_type() {
+  local nm=ag_scm_$(echo $i | tr A-Z- a-z_)
+  printf '# define %-28s %s\n' $nm "$code"
+}
+
+prt_tbl() {
+  if='#[= (if (exist? "invalid") "elif" "if  ") =]'
+  for v in $v_list
+  do
+    printf '%s GUILE_VERSION < %s000\n' "$if" "$v"
+    if='#elif'
+
+    for i in $i_list
+    do
+      eval type=\"\${${i}_type}\"
+      eval code=\"\${${i}_vals[$v]}\"
+      case "$type" in
+      ( macro | '' ) emit_iface_macro ;;
+      ( typedef )    emit_iface_type  ;;
+      esac
+    done
+
+    echo
+  done
+}
+[=
+(shell (out-pop #t)) =][=
+
+FOR iface       =][=
+
+  (shell (string-append
+    "val='" (get "i-impl[].i-code") "'\n"
+    (get "i-name") "_args='" (get "i-args") "'\n"
+    "name=" (get "i-name") "\n"
+    (get "i-name") "_type=" (get "i-type" "macro")
+
+  ))            =][=
+
+  FOR i-impl    =][=
+
+    (shell (string-append
+      (get "i-name") "_vals[" (get "i-end")  "]='" (get "i-code") "'"
+    ))          =][=
+
+  ENDFOR        =][=
+
+  `fill_in`     =][=
+
+ENDFOR iface    =][=
+
+`prt_tbl`
+=]
+
+#else
+# error unknown GUILE_VERSION
+  choke me.
+#endif
+
+#endif /* [= (. header-guard) =] */