X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-psi;a=blobdiff_plain;f=config.psi_macro.m4;fp=config.psi_macro.m4;h=88702a9b48110110da01189280fdbe28e4e7912c;hp=0000000000000000000000000000000000000000;hb=3137da963d298c73ce3bc858874fdfc87fa941b7;hpb=5d54598329a4d04dd0080bc1252d1de85a7befef

diff --git a/config.psi_macro.m4 b/config.psi_macro.m4
new file mode 100644
index 0000000..88702a9
--- /dev/null
+++ b/config.psi_macro.m4
@@ -0,0 +1,39 @@
+# arg_names(typed args)
+arg_names() {
+	AS_ECHO_N([$1]) \
+		| tr -cd '()' \
+		| $AWK -F, '{for (i=1;i<NF;++i) print $i ","; print $NF}' \
+		| $AWK '{print $NF}' \
+		| xargs
+}
+PSI_MACROS=
+# gen_macro(ret type, symbol, args)
+gen_macro() {
+	local dargs="$3"
+	test -z "$3" && dargs="()"
+	AS_ECHO_N(["static $1 psi_macro_$2$dargs {"])
+	if test "$1" != "void"; then
+		AS_ECHO_N(["return "])
+	fi
+	arg_names "$3"
+	AS_ECHO_N(["$2`arg_names \"$3\"`;}"])
+}
+# add_macro(ret type, symbol, args)
+add_macro() {
+	local psi_macro
+	psi_macro=`gen_macro "$1" "$2" "$3"`
+	PSI_MACROS="$psi_macro $PSI_MACROS"
+	PSI_REDIR([$2], [psi_macro_$2])
+}
+
+dnl PSI_MACRO(macro, decl args, action-if-true)
+AC_DEFUN(PSI_MACRO, [
+	AC_CHECK_DECL($1$2, $3, [], PSI_INCLUDES)
+])
+
+dnl PSI_EXTVAR(var, type)
+AC_DEFUN(PSI_EXTVAR, [
+	AC_CHECK_DECL($1, [
+		add_macro "$2" "$1"
+	], [], PSI_INCLUDES)
+])