2: #include <petsc/private/petscimpl.h>
  3: #include <petscviewersaws.h>
  4: #include <petscsys.h>

  6: /*@C
  7:    PetscObjectSAWsTakeAccess - Take access of the data fields that have been published to SAWs so they may be changed locally

  9:    Collective on PetscObject

 11:    Input Parameters:
 12: .  obj - the Petsc variable
 13:          Thus must be cast with a (PetscObject), for example,
 14:          PetscObjectSetName((PetscObject)mat,name);

 16:    Level: advanced

 18: .seealso: PetscObjectSetName(), PetscObjectSAWsViewOff(), PetscObjectSAWsGrantAccess()

 20: @*/
 21: PetscErrorCode  PetscObjectSAWsTakeAccess(PetscObject obj)
 22: {
 23:   if (obj->amsmem) {
 24:     /* cannot wrap with PetscPushStack() because that also deals with the locks */
 25:     SAWs_Lock();
 26:   }
 27:   return 0;
 28: }

 30: /*@C
 31:    PetscObjectSAWsGrantAccess - Grants access of the data fields that have been published to SAWs to change

 33:    Collective on PetscObject

 35:    Input Parameters:
 36: .  obj - the Petsc variable
 37:          Thus must be cast with a (PetscObject), for example,
 38:          PetscObjectSetName((PetscObject)mat,name);

 40:    Level: advanced

 42: .seealso: PetscObjectSetName(), PetscObjectSAWsViewOff(), PetscObjectSAWsTakeAccess()

 44: @*/
 45: PetscErrorCode  PetscObjectSAWsGrantAccess(PetscObject obj)
 46: {
 47:   if (obj->amsmem) {
 48:     /* cannot wrap with PetscPushStack() because that also deals with the locks */
 49:     SAWs_Unlock();
 50:   }
 51:   return 0;
 52: }

 54: /*@C
 55:    PetscSAWsBlock - Blocks on SAWs until a client (person using the web browser) unblocks

 57:    Not Collective

 59:    Level: advanced

 61: .seealso: PetscObjectSetName(), PetscObjectSAWsViewOff(), PetscObjectSAWsSetBlock(), PetscObjectSAWsBlock()

 63: @*/
 64: PetscErrorCode  PetscSAWsBlock(void)
 65: {
 66:   PetscErrorCode     ierr;
 67:   volatile PetscBool block = PETSC_TRUE;

 70:   PetscStackCallSAWs(SAWs_Register,("__Block",(PetscBool*)&block,1,SAWs_WRITE,SAWs_BOOLEAN));
 71:   SAWs_Lock();
 72:   while (block) {
 73:     SAWs_Unlock();
 74:     PetscInfo(NULL,"Blocking on SAWs\n");
 75:     PetscSleep(.3);
 76:     SAWs_Lock();
 77:   }
 78:   SAWs_Unlock();
 79:   PetscStackCallSAWs(SAWs_Delete,("__Block"));
 80:   PetscInfo(NULL,"Out of SAWs block\n");
 81:   return(0);
 82: }

 84: /*@C
 85:    PetscObjectSAWsBlock - Blocks the object if PetscObjectSAWsSetBlock() has been called

 87:    Collective on PetscObject

 89:    Input Parameters:
 90: .  obj - the Petsc variable
 91:          Thus must be cast with a (PetscObject), for example,
 92:          PetscObjectSetName((PetscObject)mat,name);


 95:    Level: advanced

 97: .seealso: PetscObjectSetName(), PetscObjectSAWsViewOff(), PetscObjectSAWsSetBlock()

 99: @*/
100: PetscErrorCode  PetscObjectSAWsBlock(PetscObject obj)
101: {
102:   PetscErrorCode     ierr;


107:   if (!obj->amspublishblock || !obj->amsmem) return(0);
108:   PetscSAWsBlock();
109:   return(0);
110: }

112: /*@C
113:    PetscObjectSAWsSetBlock - Sets whether an object will block at PetscObjectSAWsBlock()

115:    Collective on PetscObject

117:    Input Parameters:
118: +  obj - the Petsc variable
119:          Thus must be cast with a (PetscObject), for example,
120:          PetscObjectSetName((PetscObject)mat,name);
121: -  flg - whether it should block

123:    Level: advanced

125: .seealso: PetscObjectSetName(), PetscObjectSAWsViewOff(), PetscObjectSAWsBlock()

127: @*/
128: PetscErrorCode  PetscObjectSAWsSetBlock(PetscObject obj,PetscBool flg)
129: {
132:   obj->amspublishblock = flg;
133:   return(0);
134: }

136: PetscErrorCode PetscObjectSAWsViewOff(PetscObject obj)
137: {
138:   char           dir[1024];

142:   if (obj->classid == PETSC_VIEWER_CLASSID) return(0);
143:   if (!obj->amsmem) return(0);
144:   PetscSNPrintf(dir,1024,"/PETSc/Objects/%s",obj->name);
145:   PetscStackCallSAWs(SAWs_Delete,(dir));
146:   return(0);
147: }