/*@C
PetscEmacsClientErrorHandler - Error handler that uses the emacsclient program to
load the file where the error occured. Then calls the "previous" error handler.
Not Collective
Input Parameters:
+ comm - communicator over which error occured
. line - the line number of the error (indicated by __LINE__)
. func - the function where error is detected (indicated by __FUNCT__)
. file - the file in which the error was detected (indicated by __FILE__)
. dir - the directory of the file (indicated by __SDIR__)
. mess - an error text string, usually just printed to the screen
. n - the generic error number
. p - specific error number
- ctx - error handler context
Options Database Key:
. -on_error_emacs <machinename>
Level: developer
Notes:
You must put (server-start) in your .emacs file for the emacsclient software to work
Most users need not directly employ this routine and the other error
handlers, but can instead use the simplified interface SETERRQ, which has
the calling sequence
$ SETERRQ(PETSC_COMM_SELF,number,p,mess)
Notes for experienced users:
Use PetscPushErrorHandler() to set the desired error handler.
Developer Note: Since this is an error handler it cannot call CHKERRQ(); thus we just return if an error is detected.
Concepts: emacs^going to on error
Concepts: error handler^going to line in emacs
.seealso: PetscPushErrorHandler(), PetscAttachDebuggerErrorHandler(),
PetscAbortErrorHandler()
@*/
PetscErrorCode PetscEmacsClientErrorHandler(MPI_Comm comm,int line,const char *fun,const char *file,const char *dir,PetscErrorCode n,PetscErrorType p,const char *mess,void *ctx)
{
PetscErrorCode ierr;
char command[PETSC_MAX_PATH_LEN];
const char *pdir;
FILE *fp;
PetscInt rval;
PetscFunctionBegin;
ierr = PetscGetPetscDir(&pdir);if (ierr) PetscFunctionReturn(ierr);
sprintf(command,"cd %s; emacsclient --no-wait +%d %s%s\n",pdir,line,dir,file);
#if defined(PETSC_HAVE_POPEN)
ierr = PetscPOpen(MPI_COMM_WORLD,(char*)ctx,command,"r",&fp);if (ierr) PetscFunctionReturn(ierr);
ierr = PetscPClose(MPI_COMM_WORLD,fp,&rval);if (ierr) PetscFunctionReturn(ierr);
#else
SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SUP_SYS,"Cannot run external programs on this machine");
#endif
ierr = PetscPopErrorHandler();if (ierr) PetscFunctionReturn(ierr); /* remove this handler from the stack of handlers */
if (!eh) {
ierr = PetscTraceBackErrorHandler(comm,line,fun,file,dir,n,p,mess,0);if (ierr) PetscFunctionReturn(ierr);
} else {
ierr = (*eh->handler)(comm,line,fun,file,dir,n,p,mess,eh->ctx);if (ierr) PetscFunctionReturn(ierr);
}
PetscFunctionReturn(ierr);
}
EXTERN_C_BEGIN
/*
These are not usually called from Fortran but allow Fortran users
to transparently set these monitors from .F code
functions, hence no STDCALL
*/
void petsctracebackerrorhandler_(int *line,const char *fun,const char *file,const char *dir,int *n,int *p,const char *mess,void *ctx,PetscErrorCode *ierr)
{
*ierr = PetscTraceBackErrorHandler(*line,fun,file,dir,*n,*p,mess,ctx);
}
/*@C
PetscError - Routine that is called when an error has been detected,
usually called through the macro SETERRQ(PETSC_COMM_SELF,).
Not Collective
Input Parameters:
+ comm - communicator over which error occurred. ALL ranks of this communicator MUST call this routine
. line - the line number of the error (indicated by __LINE__)
. func - the function where the error occured (indicated by __FUNCT__)
. dir - the directory of file (indicated by __SDIR__)
. file - the file in which the error was detected (indicated by __FILE__)
. mess - an error text string, usually just printed to the screen
. n - the generic error number
. p - PETSC_ERROR_INITIAL indicates the error was initially detected, PETSC_ERROR_REPEAT indicates this is a traceback from a previously detected error
- mess - formatted message string - aka printf
Level: intermediate
Notes:
Most users need not directly use this routine and the error handlers, but
can instead use the simplified interface SETERRQ, which has the calling
sequence
$ SETERRQ(comm,n,mess)
Experienced users can set the error handler with PetscPushErrorHandler().
Developer Note: Since this is called after an error condition it should not be calling any error handlers (currently it ignores any error codes)
BUT this routine does call regular PETSc functions that may call error handlers, this is problematic and could be fixed by never calling other PETSc routines
but this annoying.
Concepts: error^setting condition
.seealso: PetscTraceBackErrorHandler(), PetscPushErrorHandler(), SETERRQ(), CHKERRQ(), CHKMEMQ, SETERRQ1(), SETERRQ2()
@*/
PetscErrorCode PetscError(MPI_Comm comm,int line,const char *func,const char *file,const char *dir,PetscErrorCode n,PetscErrorType p,const char *mess,...)
{
va_list Argp;
size_t fullLength;
char buf[2048],*lbuf = 0;
PetscBool ismain,isunknown;
PetscErrorCode ierr;
PetscFunctionBegin;
if (!func) func = "User provided function";
if (!file) file = "User file";
if (!dir) dir = " ";
if (comm == MPI_COMM_NULL) comm = PETSC_COMM_SELF;
/* Compose the message evaluating the print format */
if (mess) {
va_start(Argp,mess);
PetscVSNPrintf(buf,2048,mess,&fullLength,Argp);
va_end(Argp);
lbuf = buf;
if (p == 1) PetscStrncpy(PetscErrorBaseMessage,lbuf,1023);
}
if (!eh) ierr = PetscTraceBackErrorHandler(comm,line,func,file,dir,n,p,lbuf,0);
else ierr = (*eh->handler)(comm,line,func,file,dir,n,p,lbuf,eh->ctx);
/*
If this is called from the main() routine we call MPI_Abort() instead of
return to allow the parallel program to be properly shutdown.
Since this is in the error handler we don't check the errors below. Of course,
PetscStrncmp() does its own error checking which is problamatic
*/
PetscStrncmp(func,"main",4,&ismain);
PetscStrncmp(func,"unknown",7,&isunknown);
if (ismain || isunknown) MPI_Abort(PETSC_COMM_WORLD,(int)ierr);
#if defined(PETSC_CLANGUAGE_CXX)
if (p == PETSC_ERROR_IN_CXX) {
PetscCxxErrorThrow();
}
#endif
PetscFunctionReturn(ierr);
}
/*
These are not usually called from Fortran but allow Fortran users
to transparently set these monitors from .F code
functions, hence no STDCALL
*/
PETSC_EXTERN void petsctracebackerrorhandler_(MPI_Comm *comm,int *line,const char *fun,const char *file,PetscErrorCode *n,PetscErrorType *p,const char *mess,void *ctx,PetscErrorCode *ierr)
{
*ierr = PetscTraceBackErrorHandler(*comm,*line,fun,file,*n,*p,mess,ctx);
}
