Actual source code: adebug.c

petsc-3.7.7 2017-09-25
Report Typos and Errors
  1: /*
  2:       Code to handle PETSc starting up in debuggers,etc.
  3: */

  5: #include <petscsys.h>               /*I   "petscsys.h"   I*/
  6: #include <signal.h>
  7: #if defined(PETSC_HAVE_UNISTD_H)
  8: #include <unistd.h>
  9: #endif

 11: /*
 12:       These are the debugger and display used if the debugger is started up
 13: */
 14: static char      PetscDebugger[PETSC_MAX_PATH_LEN];
 15: static char      DebugTerminal[PETSC_MAX_PATH_LEN];
 16: static PetscBool Xterm = PETSC_TRUE;

 20: /*@C
 21:    PetscSetDebugTerminal - Sets the terminal to use (instead of xterm) for debugging.

 23:    Not Collective

 25:    Input Parameters:
 26: +  terminal - name of terminal and any flags required to execute a program.
 27:               For example "xterm -e", "urxvt -e".

 29:    Options Database Keys:
 30:    -debug_terminal terminal - use this terminal instead of xterm

 32:    Level: developer

 34:    Notes:
 35:    You can start the debugger for all processes in the same GNU screen session.

 37:      mpiexec -n 4 ./myapp -start_in_debugger -debug_terminal "screen -X -S debug screen"

 39:    will open 4 windows in the session named "debug".

 41:    Fortran Note:
 42:    This routine is not supported in Fortran.

 44:    Concepts: debugger^setting

 46: .seealso: PetscSetDebugger()
 47: @*/
 48: PetscErrorCode  PetscSetDebugTerminal(const char terminal[])
 49: {

 53:   PetscStrcpy(DebugTerminal,terminal);
 54:   return(0);
 55: }

 59: /*@C
 60:    PetscSetDebugger - Sets options associated with the debugger.

 62:    Not Collective

 64:    Input Parameters:
 65: +  debugger - name of debugger, which should be in your path,
 66:               usually "lldb", "dbx", "gdb", "idb", "xxgdb", "kdgb" or "ddd". Also, HP-UX
 67:               supports "xdb", and IBM rs6000 supports "xldb".

 69: -  xterm - flag to indicate debugger window, set to either PETSC_TRUE (to indicate
 70:             debugger should be started in a new xterm) or PETSC_FALSE (to start debugger
 71:             in initial window (the option PETSC_FALSE makes no sense when using more
 72:             than one MPI process.)

 74:    Level: developer

 76:    Fortran Note:
 77:    This routine is not supported in Fortran.

 79:   Concepts: debugger^setting

 81: .seealso: PetscAttachDebugger(), PetscAttachDebuggerErrorHandler()
 82: @*/
 83: PetscErrorCode  PetscSetDebugger(const char debugger[],PetscBool xterm)
 84: {

 88:   if (debugger) {
 89:     PetscStrcpy(PetscDebugger,debugger);
 90:   }
 91:   Xterm = xterm;
 92:   return(0);
 93: }

 97: /*@C
 98:     PetscSetDefaultDebugger - Causes PETSc to use its default  debugger.

100:    Not collective

102:     Level: developer

104: .seealso: PetscSetDebugger(), PetscSetDebuggerFromString()
105: @*/
106: PetscErrorCode  PetscSetDefaultDebugger(void)
107: {

111: #if defined(PETSC_USE_LLDB_DEBUGGER)
112:   PetscSetDebugger("lldb",PETSC_TRUE);
113: #elif defined(PETSC_USE_DBX_DEBUGGER)
114:   PetscSetDebugger("dbx",PETSC_TRUE);
115: #elif defined(PETSC_USE_XDB_DEBUGGER)
116:   PetscSetDebugger("xdb",PETSC_TRUE);
117: #elif defined(PETSC_USE_IDB_DEBUGGER)
118:   PetscSetDebugger("idb",PETSC_TRUE);
119: #else  /* Default is gdb */
120:   PetscSetDebugger("gdb",PETSC_TRUE);
121: #endif
122:   PetscSetDebugTerminal("xterm -e");
123:   return(0);
124: }

129: {
130:   PetscBool      exists;
131:   char           *f;

135:   PetscStrstr(string, defaultDbg, &f);
136:   if (f) {
137:     PetscTestFile(string, 'x', &exists);
138:     if (exists) *debugger = string;
139:     else        *debugger = defaultDbg;
140:   }
141:   return(0);
142: }

146: /*@C
147:     PetscSetDebuggerFromString - Set the complete path for the
148:        debugger for PETSc to use.

150:    Not collective

152:    Level: developer

154: .seealso: PetscSetDebugger(), PetscSetDefaultDebugger()
155: @*/
156: PetscErrorCode  PetscSetDebuggerFromString(const char *string)
157: {
158:   const char     *debugger = NULL;
159:   PetscBool      xterm     = PETSC_TRUE;
160:   char           *f;

164:   PetscStrstr(string, "noxterm", &f);
165:   if (f) xterm = PETSC_FALSE;
166:   PetscStrstr(string, "ddd", &f);
167:   if (f) xterm = PETSC_FALSE;

182:   PetscSetDebugger(debugger, xterm);
183:   return(0);
184: }


189: /*@
190:    PetscAttachDebugger - Attaches the debugger to the running process.

192:    Not Collective

194:    Level: advanced

196:    Concepts: debugger^starting from program

198:    Developer Notes: Since this can be called by the error handler should it be calling SETERRQ() and CHKERRQ()?

200: .seealso: PetscSetDebugger()
201: @*/
202: PetscErrorCode  PetscAttachDebugger(void)
203: {
204: #if !defined(PETSC_CANNOT_START_DEBUGGER)
205:   int            child    =0;
206:   PetscReal      sleeptime=0;
208:   char           program[PETSC_MAX_PATH_LEN],display[256],hostname[64];
209: #endif

212: #if defined(PETSC_CANNOT_START_DEBUGGER) || !defined(PETSC_HAVE_FORK)
213:   (*PetscErrorPrintf)("System cannot start debugger\n");
214:   (*PetscErrorPrintf)("On Cray run program in Totalview debugger\n");
215:   (*PetscErrorPrintf)("On Windows use Developer Studio(MSDEV)\n");
216:   MPI_Abort(PETSC_COMM_WORLD,1);
217: #else
218:   PetscGetDisplay(display,128);
219:   PetscGetProgramName(program,PETSC_MAX_PATH_LEN);
220:   if (ierr) {
221:     (*PetscErrorPrintf)("Cannot determine program name\n");
222:     PetscFunctionReturn(1);
223:   }
224:   if (!program[0]) {
225:     (*PetscErrorPrintf)("Cannot determine program name\n");
226:     PetscFunctionReturn(1);
227:   }
228:   child = (int)fork();
229:   if (child < 0) {
230:     (*PetscErrorPrintf)("Error in fork() attaching debugger\n");
231:     PetscFunctionReturn(1);
232:   }

234:   /*
235:       Swap role the parent and child. This is (I think) so that control c typed
236:     in the debugger goes to the correct process.
237:   */
238:   if (child) child = 0;
239:   else       child = (int)getppid();

241:   if (child) { /* I am the parent, will run the debugger */
242:     const char *args[10];
243:     char       pid[10];
244:     PetscInt   j,jj;
245:     PetscBool  isdbx,isidb,isxldb,isxxgdb,isups,isxdb,isworkshop,isddd,iskdbg,islldb;

247:     PetscGetHostName(hostname,64);
248:     /*
249:          We need to send a continue signal to the "child" process on the
250:        alpha, otherwise it just stays off forever
251:     */
252: #if defined(PETSC_NEED_KILL_FOR_DEBUGGER)
253:     kill(child,SIGCONT);
254: #endif
255:     sprintf(pid,"%d",child);

257:     PetscStrcmp(PetscDebugger,"xxgdb",&isxxgdb);
258:     PetscStrcmp(PetscDebugger,"ddd",&isddd);
259:     PetscStrcmp(PetscDebugger,"kdbg",&iskdbg);
260:     PetscStrcmp(PetscDebugger,"ups",&isups);
261:     PetscStrcmp(PetscDebugger,"xldb",&isxldb);
262:     PetscStrcmp(PetscDebugger,"xdb",&isxdb);
263:     PetscStrcmp(PetscDebugger,"dbx",&isdbx);
264:     PetscStrcmp(PetscDebugger,"idb",&isidb);
265:     PetscStrcmp(PetscDebugger,"workshop",&isworkshop);
266:     PetscStrcmp(PetscDebugger,"lldb",&islldb);

268:     if (isxxgdb || isups || isddd) {
269:       args[1] = program; args[2] = pid; args[3] = "-display";
270:       args[0] = PetscDebugger; args[4] = display; args[5] = 0;
271:       printf("PETSC: Attaching %s to %s %s on %s\n",args[0],args[1],pid,hostname);
272:       if (execvp(args[0],(char**)args)  < 0) {
273:         perror("Unable to start debugger");
274:         exit(0);
275:       }
276:     } else if (iskdbg) {
277:       args[1] = "-p"; args[2] = pid; args[3] = program;  args[4] = "-display";
278:       args[0] = PetscDebugger; args[5] = display; args[6] = 0;
279:       printf("PETSC: Attaching %s to %s %s on %s\n",args[0],args[3],pid,hostname);
280:       if (execvp(args[0],(char**)args)  < 0) {
281:         perror("Unable to start debugger");
282:         exit(0);
283:       }
284:     } else if (isxldb) {
285:       args[1] = "-a"; args[2] = pid; args[3] = program;  args[4] = "-display";
286:       args[0] = PetscDebugger; args[5] = display; args[6] = 0;
287:       printf("PETSC: Attaching %s to %s %s on %s\n",args[0],args[1],pid,hostname);
288:       if (execvp(args[0],(char**)args)  < 0) {
289:         perror("Unable to start debugger");
290:         exit(0);
291:       }
292:     } else if (isworkshop) {
293:       args[1] = "-s"; args[2] = pid; args[3] = "-D"; args[4] = "-";
294:       args[0] = PetscDebugger; args[5] = pid; args[6] = "-display"; args[7] = display; args[8] = 0;
295:       printf("PETSC: Attaching %s to %s on %s\n",args[0],pid,hostname);
296:       if (execvp(args[0],(char**)args)  < 0) {
297:         perror("Unable to start debugger");
298:         exit(0);
299:       }
300:     } else {
301:       j = 0;
302:       if (Xterm) {
303:         PetscBool cmp;
304:         char      *tmp,*tmp1;
305:         PetscStrncmp(DebugTerminal,"screen",6,&cmp);
306:         if (cmp) display[0] = 0; /* when using screen, we never pass -display */
307:         args[j++] = tmp = DebugTerminal;
308:         if (display[0]) {
309:           args[j++] = "-display"; args[j++] = display;
310:         }
311:         while (*tmp) {
312:           PetscStrchr(tmp,' ',&tmp1);
313:           if (!tmp1) break;
314:           *tmp1     = 0;
315:           tmp       = tmp1+1;
316:           args[j++] = tmp;
317:         }
318:       }
319:       args[j++] = PetscDebugger;
320:       jj = j;
321:       args[j++] = program; args[j++] = pid; args[j++] = 0;

323:       if (isidb) {
324:         j = jj;
325:         args[j++] = "-pid";
326:         args[j++] = pid;
327:         args[j++] = "-gdb";
328:         args[j++] = program;
329:         args[j++] = 0;
330:       }
331:       if (islldb) {
332:         j = jj;
333:         args[j++] = "-p";
334:         args[j++] = pid;
335:         args[j++] = 0;
336:       }
337:       if (isdbx) {
338:         j = jj;
339: #if defined(PETSC_USE_P_FOR_DEBUGGER)
340:         args[j++] = "-p";
341:         args[j++] = pid;
342:         args[j++] = program;
343: #elif defined(PETSC_USE_LARGEP_FOR_DEBUGGER)
344:         args[j++] = "-l";
345:         args[j++] = "ALL";
346:         args[j++] = "-P";
347:         args[j++] = pid;
348:         args[j++] = program;
349: #elif defined(PETSC_USE_A_FOR_DEBUGGER)
350:         args[j++] = "-a";
351:         args[j++] = pid;
352: #elif defined(PETSC_USE_PID_FOR_DEBUGGER)
353:         args[j++] = "-pid";
354:         args[j++] = pid;
355:         args[j++] = program;
356: #else
357:         args[j++] = program;
358:         args[j++] = pid;
359: #endif
360:         args[j++] = 0;
361:       }
362:       if (Xterm) {
363:         if (display[0]) printf("PETSC: Attaching %s to %s of pid %s on display %s on machine %s\n",PetscDebugger,program,pid,display,hostname);
364:         else            printf("PETSC: Attaching %s to %s on pid %s on %s\n",PetscDebugger,program,pid,hostname);

366:         if (execvp(args[0],(char**)args)  < 0) {
367:           perror("Unable to start debugger in xterm");
368:           exit(0);
369:         }
370:       } else {
371:         printf("PETSC: Attaching %s to %s of pid %s on %s\n",PetscDebugger,program,pid,hostname);
372:         if (execvp(args[0],(char**)args)  < 0) {
373:           perror("Unable to start debugger");
374:           exit(0);
375:         }
376:       }
377:     }
378:   } else {   /* I am the child, continue with user code */
379:     sleeptime = 10; /* default to sleep waiting for debugger */
380:     PetscOptionsGetReal(NULL,NULL,"-debugger_pause",&sleeptime,NULL);
381:     if (sleeptime < 0) sleeptime = -sleeptime;
382: #if defined(PETSC_NEED_DEBUGGER_NO_SLEEP)
383:     /*
384:         HP cannot attach process to sleeping debugger, hence count instead
385:     */
386:     {
387:       PetscReal x = 1.0;
388:       int       i =10000000;
389:       while (i--) x++;  /* cannot attach to sleeper */
390:     }
391: #elif defined(PETSC_HAVE_SLEEP_RETURNS_EARLY)
392:     /*
393:         IBM sleep may return at anytime, hence must see if there is more time to sleep
394:     */
395:     {
396:       int left = sleeptime;
397:       while (left > 0) left = PetscSleep(left) - 1;
398:     }
399: #else
400:     PetscSleep(sleeptime);
401: #endif
402:   }
403: #endif
404:   return(0);
405: }

409: /*@C
410:    PetscAttachDebuggerErrorHandler - Error handler that attaches
411:    a debugger to a running process when an error is detected.
412:    This routine is useful for examining variables, etc.

414:    Not Collective

416:    Input Parameters:
417: +  comm - communicator over which error occurred
418: .  line - the line number of the error (indicated by __LINE__)
419: .  fun - function where error occured (indicated by __FUNCT__)
420: .  file - the file in which the error was detected (indicated by __FILE__)
421: .  message - an error text string, usually just printed to the screen
422: .  number - the generic error number
423: .  p - PETSC_ERROR_INITIAL if error just detected, otherwise PETSC_ERROR_REPEAT
424: -  ctx - error handler context

426:    Options Database Keys:
427: .  -on_error_attach_debugger [noxterm,dbx,xxgdb,xdb,xldb,gdb] [-display name] - Activates
428:    debugger attachment

430:    Level: developer

432:    Notes:
433:    By default the GNU debugger, gdb, is used.  Alternatives are lldb, dbx and
434:    xxgdb,xldb (on IBM rs6000), xdb (on HP-UX).

436:    Most users need not directly employ this routine and the other error
437:    handlers, but can instead use the simplified interface SETERR, which has
438:    the calling sequence
439: $     SETERRQ(PETSC_COMM_SELF,number,p,message)

441:    Notes for experienced users:
442:    Use PetscPushErrorHandler() to set the desired error handler.  The
443:    currently available PETSc error handlers are
444: $    PetscTraceBackErrorHandler()
445: $    PetscAttachDebuggerErrorHandler()
446: $    PetscAbortErrorHandler()
447:    or you may write your own.

449:    Concepts: debugger^error handler
450:    Concepts: error handler^attach debugger

452: .seealso:  PetscPushErrorHandler(), PetscTraceBackErrorHandler(),
453:            PetscAbortErrorHandler()
454: @*/
455: PetscErrorCode  PetscAttachDebuggerErrorHandler(MPI_Comm comm,int line,const char *fun,const char *file,PetscErrorCode num,PetscErrorType p,const char *mess,void *ctx)
456: {

460:   if (!fun) fun = "User provided function";
461:   if (!mess) mess = " ";

463:   (*PetscErrorPrintf)("%s() line %d in %s %s\n",fun,line,file,mess);

465:   PetscAttachDebugger();
466:   if (ierr) abort(); /* call abort because don't want to kill other MPI processes that may successfully attach to debugger */
467:   return(0);
468: }

472: /*@C
473:    PetscStopForDebugger - Prints a message to the screen indicating how to
474:          attach to the process with the debugger and then waits for the
475:          debugger to attach.

477:    Not Collective

479:    Level: developer

481:    Notes: This is likely never needed since PetscAttachDebugger() is easier to use and seems to always work.

483:    Developer Notes: Since this can be called by the error handler, should it be calling SETERRQ() and CHKERRQ()?

485:    Concepts: debugger^waiting for attachment

487: .seealso: PetscSetDebugger(), PetscAttachDebugger()
488: @*/
489: PetscErrorCode  PetscStopForDebugger(void)
490: {
492:   PetscInt       sleeptime=0;
493: #if !defined(PETSC_CANNOT_START_DEBUGGER)
494:   int            ppid;
495:   PetscMPIInt    rank;
496:   char           program[PETSC_MAX_PATH_LEN],hostname[256];
497:   PetscBool      isdbx,isxldb,isxxgdb,isddd,iskdbg,isups,isxdb,islldb;
498: #endif

501: #if defined(PETSC_CANNOT_START_DEBUGGER)
502:   (*PetscErrorPrintf)("System cannot start debugger; just continuing program\n");
503: #else
504:   MPI_Comm_rank(PETSC_COMM_WORLD,&rank);
505:   if (ierr) rank = 0; /* ignore error since this may be already in error handler */
506:   PetscGetHostName(hostname,256);
507:   if (ierr) {
508:     (*PetscErrorPrintf)("Cannot determine hostname; just continuing program\n");
509:     return(0);
510:   }

512:   PetscGetProgramName(program,256);
513:   if (ierr) {
514:     (*PetscErrorPrintf)("Cannot determine program name; just continuing program\n");
515:     return(0);
516:   }
517:   if (!program[0]) {
518:     (*PetscErrorPrintf)("Cannot determine program name; just continuing program\n");
519:     return(0);
520:   }

522:   ppid = getpid();

524:   PetscStrcmp(PetscDebugger,"xxgdb",&isxxgdb);
525:   PetscStrcmp(PetscDebugger,"ddd",&isddd);
526:   PetscStrcmp(PetscDebugger,"kdbg",&iskdbg);
527:   PetscStrcmp(PetscDebugger,"ups",&isups);
528:   PetscStrcmp(PetscDebugger,"xldb",&isxldb);
529:   PetscStrcmp(PetscDebugger,"xdb",&isxdb);
530:   PetscStrcmp(PetscDebugger,"dbx",&isdbx);
531:   PetscStrcmp(PetscDebugger,"lldb",&islldb);

533:   if (isxxgdb || isups || isddd || iskdbg) printf("[%d]%s>>%s %s %d\n",rank,hostname,PetscDebugger,program,ppid);
534:   else if (isxldb) printf("[%d]%s>>%s -a %d %s\n",rank,hostname,PetscDebugger,ppid,program);
535:   else if (islldb) printf("[%d]%s>>%s -p %d\n",rank,hostname,PetscDebugger,ppid);
536:   else if (isdbx) {
537: #if defined(PETSC_USE_P_FOR_DEBUGGER)
538:      printf("[%d]%s>>%s -p %d %s\n",rank,hostname,PetscDebugger,ppid,program);
539: #elif defined(PETSC_USE_LARGEP_FOR_DEBUGGER)
540:      printf("[%d]%s>>%s -l ALL -P %d %s\n",rank,hostname,PetscDebugger,ppid,program);
541: #elif defined(PETSC_USE_A_FOR_DEBUGGER)
542:      printf("[%d]%s>>%s -a %d\n",rank,hostname,PetscDebugger,ppid);
543: #elif defined(PETSC_USE_PID_FOR_DEBUGGER)
544:      printf("[%d]%s>>%s -pid %d %s\n",rank,hostname,PetscDebugger,ppid,program);
545: #else
546:      printf("[%d]%s>>%s %s %d\n",rank,hostname,PetscDebugger,program,ppid);
547: #endif
548:   }
549: #endif /* PETSC_CANNOT_START_DEBUGGER */

551:   fflush(stdout); /* ignore error because may already be in error handler */

553:   sleeptime = 25; /* default to sleep waiting for debugger */
554:   PetscOptionsGetInt(NULL,NULL,"-debugger_pause",&sleeptime,NULL); /* ignore error because may already be in error handler */
555:   if (sleeptime < 0) sleeptime = -sleeptime;
556: #if defined(PETSC_NEED_DEBUGGER_NO_SLEEP)
557:   /*
558:       HP cannot attach process to sleeping debugger, hence count instead
559:   */
560:   {
561:     PetscReal x = 1.0;
562:     int       i =10000000;
563:     while (i--) x++;  /* cannot attach to sleeper */
564:   }
565: #elif defined(PETSC_HAVE_SLEEP_RETURNS_EARLY)
566:   /*
567:       IBM sleep may return at anytime, hence must see if there is more time to sleep
568:   */
569:   {
570:     int left = sleeptime;
571:     while (left > 0) left = sleep(left) - 1;
572:   }
573: #else
574:   PetscSleep(sleeptime);
575: #endif
576:   return(0);
577: }