src/Advertise.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

#include <stdlib.h>

#include "cctk.h"
#include "cctk_FortranString.h"
#include "CactusBase/IOUtil/src/ioutil_AdvertisedFiles.h"


static const char *rcsid = "$Header$";

CCTK_FILEVERSION(CactusEinstein_Extract_Advertise_c)

void CCTK_FCALL CCTK_FNAME(Extract_Advertise)
     (cGH **GH, ONE_FORTSTRING_ARG);

void CCTK_FCALL CCTK_FNAME(Extract_Advertise)
     (cGH **GH, ONE_FORTSTRING_ARG)
{
  ONE_FORTSTRING_CREATE(file)
  /* advertise new files for downloading */
  ioAdvertisedFileDesc advertisedFile;

  advertisedFile.slice = "";
  advertisedFile.thorn = CCTK_THORNSTRING;
  advertisedFile.varname = "Waveform";
  advertisedFile.description = "Extract files";
  advertisedFile.mimetype = "application/x-graph";

  IOUtil_AdvertiseFile (*GH, file, &advertisedFile);
  free(file);
}