X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-psi;a=blobdiff_plain;f=m4%2Fpsi_decl.m4;fp=m4%2Fpsi_decl.m4;h=540b48f2662ce977bbfd03a1321903e440a4dca7;hp=e142f708dbf911c2ce714416ee8116bbdef81cd6;hb=b25cb3852e3c6ef6da608001585218015aaf5d3e;hpb=e5103bb1ce17ef734e1329da9a13d9a2cbc40ad9

diff --git a/m4/psi_decl.m4 b/m4/psi_decl.m4
index e142f70..540b48f 100644
--- a/m4/psi_decl.m4
+++ b/m4/psi_decl.m4
@@ -10,6 +10,11 @@ EOF
 # Add a pre-defined decl to $PSI_VA_DECLS/$PSI_DECLS.
 psi_add_decl() {
 	case "$2" in
+ *functor*)
+		cat >>$PSI_FN_DECLS <<EOF
+	$1, {0},
+EOF
+		;;
 	*vararg*)
 		cat >>$PSI_VA_DECLS <<EOF
 	$1, {0}, 
@@ -23,6 +28,12 @@ EOF
 	esac
 }
 
+dnl PSI_DECL_TYPE(type functor_name, args)
+dnl Adds a pre-defined functor decl to $PSI_FN_DECLS.
+AC_DEFUN(PSI_DECL_TYPE, [
+	PSI_DECL_ARGS($1, $2)
+	psi_add_decl "$psi_decl_args" functor
+])
 dnl PSI_REDIR(name, custom symbol)
 dnl Create a function redirection to an optional custom symbol.
 AC_DEFUN(PSI_REDIR, [