git.sesse.net Git - itkacl/blob - perl-itkacl-2.0/itkacl.i

   1 /* SWIG interface for libitkacl */
   2 %module itkacl
   3
   4 /* Convert errors to Perl exceptions and keep the interface clean. */
   5 %inline %{
   6         extern int itkacl_check(char *realm, char *user, char *errmsg, size_t errmsgsize);
   7         int check(char *realm, char *user)
   8         {
   9                 char errmsg[1024];
  10                 int ret = itkacl_check(realm, user, errmsg, 1024);
  11
  12                 /* printf("check '%s' vs. '%s' gave %d\n", user, realm, ret); */
  13                 if (ret == -1)
  14                         die(errmsg);
  15                 else
  16                         return (ret == 0);
  17         }
  18
  19 %}
  20