2 # Add a pre-defined macro function to $PSI_MACROS.
4 cat >>$PSI_MACROS <<EOF
9 dnl PSI_MACRO(macro, decl args, action-if-true)
11 AC_CHECK_DECL(PSI_VAR_NAME($1)$2, [
12 macro_type="PSI_VAR_TYPE($1)"
13 macro_name="PSI_VAR_NAME($1)"
32 macro_call="(m4_map_args_sep([PSI_VAR_NAME(], [)], [, ], m4_bregexp($2, [(\(.*\))], [\1])))"
36 ifelse(PSI_VAR_TYPE($1), [void], [
37 macro_body="$macro_name$macro_call;"
39 macro_body="return $macro_name$macro_call;"
42 psi_add_macro "$macro_type _psi_${macro_action}_$macro_name$macro_decl { $macro_body }"
43 PSI_REDIR($macro_name, _psi_${macro_action}_$macro_name)
47 dnl PSI_EXTVAR(type var)
48 AC_DEFUN(PSI_EXTVAR, [
52 psi_add_decl "$psi_decl_args"
53 dnl explicit getter & setter
54 PSI_REDIR([${macro_name}_get], [_psi_get_$macro_name])
56 psi_add_decl "$psi_decl_args"
57 psi_add_macro "void _psi_set_${macro_name}($macro_type value) { memcpy(&$macro_name, &value, sizeof(value)); }"
58 PSI_REDIR([${macro_name}_set], [_psi_set_${macro_name}])
59 PSI_DECL_ARGS([void PSI_VAR_NAME($1)_set], [(PSI_VAR_TYPE($1) _v)])
60 psi_add_decl "$psi_decl_args"