checker_fragment.c

   1 $returntype $name($parameters)
   2 {
   3   static $returntype (*func)($parameters);
   4
   5   if (in_rt)
   6   {
   7     printf("$name() is called while in rt section\n");
   8 #if ABORT_ON_VIOLATION
   9     abort();
  10 #endif
  11   }
  12   if(!func)
  13     func = ($returntype (*)($parameters)) dlsym(RTLD_NEXT, "$name");
  14   if(!func)
  15   {
  16     fprintf(stderr, "Error dlsym'ing $name\n");
  17     abort();
  18   }
  19   return(func($parameternames));
  20 }
  21