git.m6w6.name Git - m6w6/ext-psi/blob - m4/psi_struct.m4

   1 # psi_add_struct(struct members)
   2 # Add a pre-defined struct to $PSI_STRUCTS.
   3 psi_add_struct() {
   4         cat >>$PSI_STRUCTS <<<" $1, {0}, "
   5 }
   6
   7 dnl PSI_STRUCT_MEMBER(struct name, decl member)
   8 dnl INTERNAL: build $psi_struct_members
   9 AC_DEFUN(PSI_STRUCT_MEMBER, [
  10         m4_define([member_name], PSI_VAR_NAME($2))
  11         m4_define([member_type], PSI_VAR_TYPE($2))
  12         PSI_CHECK_SIZEOF(AS_TR_SH($1)[_]member_name,
  13                 [#define ]AS_TR_SH($1)[_]member_name (($1 *)0)->member_name
  14         )
  15         if PSI_SH_TEST_SIZEOF($1 member_name); then
  16                 PSI_CHECK_OFFSETOF($1, member_name)
  17                 PSI_TYPE_INDIRECTION($2, [$AS_TR_SH([ac_cv_sizeof_]$1[_]member_name)], pl, as)
  18                 psi_struct_members="[$psi_struct_members, {]PSI_TYPE_PAIR(member_type)[, \"]member_name[\", $]AS_TR_SH([ac_cv_offsetof_]$1[_]member_name)[, $]AS_TR_SH([ac_cv_sizeof_]$1[_]member_name), $pl, $as[}]"
  19         fi
  20 ])
  21
  22 dnl PSI_STRUCT(struct name, struct members)
  23 dnl Check a struct and its members and add a pre-defined struct and possibly a
  24 dnl pre-defined type for this struct.
  25 dnl Calls PSI_CHECK_SIZEOF for the struct and each member.
  26 dnl Calls PSI_CHECK_OFFSETOF and PSI_TYPE_INDIRECTON for each member.
  27 AC_DEFUN(PSI_STRUCT, [
  28         PSI_CHECK_SIZEOF($1)
  29         psi_struct_name=m4_bregexp([$1], [^\(struct \)?\(\w+\)], [\2])
  30         psi_struct_members="{PSI_T_STRUCT, \"struct\", \"$psi_struct_name\", 0, $AS_TR_SH([ac_cv_sizeof_]$1), 0, 0}"
  31         ifelse([$2],,,[m4_map_args_sep([PSI_STRUCT_MEMBER($1, m4_normalize(], [))], [], $2)])
  32         psi_add_struct "$psi_struct_members"
  33         if test "$1" = "$psi_struct_name"; then
  34                 psi_add_type "{PSI_T_STRUCT, \"$1\", \"$1\"}"
  35         fi
  36 ])