xref: /petsc/src/sys/webclient/tutorials/globusobtaintransfers.c (revision 9566063d113dddea24716c546802770db7481bc0)
1c4762a1bSJed Brown 
2c4762a1bSJed Brown /*
3c4762a1bSJed Brown      Shows any outstanding Globus file requests
4c4762a1bSJed Brown 
5c4762a1bSJed Brown      You can run PETSc programs with -globus_access_token XXXX where XXX is the access token to access Globus
6c4762a1bSJed Brown 
7c4762a1bSJed Brown */
8c4762a1bSJed Brown 
9c4762a1bSJed Brown #include <petscsys.h>
10c4762a1bSJed Brown 
11c4762a1bSJed Brown int main(int argc,char **argv)
12c4762a1bSJed Brown {
13c4762a1bSJed Brown   char           buff[4096];
14c4762a1bSJed Brown 
15*9566063dSJacob Faibussowitsch   PetscCall(PetscInitialize(&argc,&argv,NULL,NULL));
16*9566063dSJacob Faibussowitsch   PetscCall(PetscGlobusGetTransfers(PETSC_COMM_WORLD,NULL,buff,sizeof(buff)));
17*9566063dSJacob Faibussowitsch   PetscCall(PetscPrintf(PETSC_COMM_WORLD,"Transfers are %s\n",buff));
18*9566063dSJacob Faibussowitsch   PetscCall(PetscFinalize());
19b122ec5aSJacob Faibussowitsch   return 0;
20c4762a1bSJed Brown }
21c4762a1bSJed Brown 
22c4762a1bSJed Brown /*TEST
23c4762a1bSJed Brown 
24c4762a1bSJed Brown    build:
25c4762a1bSJed Brown      requires: ssl
26c4762a1bSJed Brown 
27c4762a1bSJed Brown    test:
28c4762a1bSJed Brown      TODO: determine how to run this test without going through the browser
29c4762a1bSJed Brown 
30c4762a1bSJed Brown TEST*/
31