grace_np/gracef_np.c

   1 #include <config.h>
   2
   3 #if defined(WITH_F77_WRAPPER)
   4
   5 #include <stdio.h>
   6 #include <stdlib.h>
   7 #include <string.h>
   8
   9 #include "grace_np.h"
  10
  11 #ifdef NEED_F77_UNDERSCORE
  12 #  define F77_FNAME(fname) fname ## _
  13 #else
  14 #  define F77_FNAME(fname) fname
  15 #endif
  16
  17 typedef void (*GraceFortranFunctionType) (const char *str, int len);
  18 static GraceFortranFunctionType fortran_error = (GraceFortranFunctionType) 0;
  19
  20 static void GraceFortranWrapper(const char *str)
  21 {
  22     if (fortran_error == (GraceFortranFunctionType) 0) {
  23         fprintf(stderr, "%s\n", str);
  24     } else {
  25         fortran_error(str, strlen(str));
  26     }
  27 }
  28
  29 void F77_FNAME(graceregistererrorfunctionf) (GraceFortranFunctionType f)
  30 {
  31     fortran_error = f;
  32     GraceRegisterErrorFunction(GraceFortranWrapper);
  33 }
  34
  35 int F77_FNAME(graceopenf) (const int *arg)
  36 {
  37     return (GraceOpen (*arg));
  38 }
  39
  40 int F77_FNAME(graceisopenf) (void)
  41 {
  42     return (GraceIsOpen ());
  43 }
  44
  45 int F77_FNAME(graceclosef) (void)
  46 {
  47     return (GraceClose ());
  48 }
  49
  50 int F77_FNAME(graceclosepipef) (void)
  51 {
  52     return (GraceClosePipe());
  53 }
  54
  55 int F77_FNAME(graceflushf) (void)
  56 {
  57     return (GraceFlush ());
  58 }
  59
  60
  61 int F77_FNAME(gracecommandf) (const char* arg, int length)
  62 {
  63     char* str;
  64     int res;
  65
  66     str = (char*) malloc ((size_t) (length + 1));
  67     if (str == NULL) {
  68         fprintf (stderr, "GraceCommandf: Not enough memory\n");
  69         return (-1);
  70     }
  71     strncpy (str, arg, length);
  72     str[length] = 0;
  73     res = GraceCommand (str);
  74     free (str);
  75     return (res);
  76 }
  77
  78 #else /* don't include Fortran wrapper */
  79
  80 /* To make ANSI C happy about non-empty file */
  81 void F77_FNAME(_gracef_np_c_dummy_func) (void) {}
  82
  83 #endif /* WITH_F77_WRAPPER */