Actual source code: zdrawf.c

  1: #include <petsc/private/fortranimpl.h>
  2: #include <petscdraw.h>

  4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
  5:   #define petscdrawgettitle_          PETSCDRAWGETTITLE
  6:   #define petscdrawsettitle_          PETSCDRAWSETTITLE
  7:   #define petscdrawappendtitle_       PETSCDRAWAPPENDTITLE
  8:   #define petscdrawsetsavefinalimage_ PETSCDRAWSETSAVEFINALIMAGE
  9:   #define petscdrawsetsave_           PETSCDRAWSETSAVE
 10: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 11:   #define petscdrawgettitle_          petscdrawgettitle
 12:   #define petscdrawsettitle_          petscdrawsettitle
 13:   #define petscdrawappendtitle_       petscdrawappendtitle
 14:   #define petscdrawsetsavefinalimage_ petscdrawsetsavefinalimage
 15:   #define petscdrawsetsave_           petscdrawsetsave
 16: #endif

 18: PETSC_EXTERN void petscdrawgettitle_(PetscDraw *draw, char *title, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
 19: {
 20:   const char *t;
 21:   *ierr = PetscDrawGetTitle(*draw, &t);
 22:   *ierr = PetscStrncpy(title, t, len);
 23:   FIXRETURNCHAR(PETSC_TRUE, title, len);
 24: }

 26: PETSC_EXTERN void petscdrawsettitle_(PetscDraw *draw, char *title, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
 27: {
 28:   char *t1;
 29:   FIXCHAR(title, len, t1);
 30:   *ierr = PetscDrawSetTitle(*draw, t1);
 31:   if (*ierr) return;
 32:   FREECHAR(title, t1);
 33: }

 35: PETSC_EXTERN void petscdrawappendtitle_(PetscDraw *draw, char *title, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
 36: {
 37:   char *t1;
 38:   FIXCHAR(title, len, t1);
 39:   *ierr = PetscDrawAppendTitle(*draw, t1);
 40:   if (*ierr) return;
 41:   FREECHAR(title, t1);
 42: }

 44: PETSC_EXTERN void petscdrawsetsavefinalimage_(PetscDraw *draw, char *filename, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
 45: {
 46:   char *t1;
 47:   FIXCHAR(filename, len, t1);
 48:   *ierr = PetscDrawSetSaveFinalImage(*draw, t1);
 49:   if (*ierr) return;
 50:   FREECHAR(filename, t1);
 51: }

 53: PETSC_EXTERN void petscdrawsetsave_(PetscDraw *draw, char *filename, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
 54: {
 55:   char *t1;
 56:   FIXCHAR(filename, len, t1);
 57:   *ierr = PetscDrawSetSave(*draw, t1);
 58:   if (*ierr) return;
 59:   FREECHAR(filename, t1);
 60: }