File: gslerr.h

package info (click to toggle)
libpdl-gsl-perl 2.101-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 600 kB
  • sloc: perl: 1,587; ansic: 202; makefile: 9
file content (8 lines) | stat: -rw-r--r-- 195 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
 
#include <gsl/gsl_errno.h>

#define GSLERR(x,y) \
  { \
    int status = x y; \
    if (status) \
      return PDL->make_error(PDL_EUSERERROR, "Error in %s: %s", #x, gsl_strerror(status)); \
  }