/* linuxtrbk.c : Print traceback on linux */

/* 
   Author: Sami Saarinen, ECMWF, 28-Apr-2006
   The code "nicked" from ifsaux/support/drhook.c

*/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include <unistd.h>
#include <signal.h>
#include "cargs.h"

void LinuxTraceBack(void *sigcontextptr) { }

void linux_trbk_(void) { }



void linux_trbk(void)
{
  linux_trbk_();
}







void gdb_trbk_()
{
  char *gdb = getenv("GNUDEBUGGER");
  if (gdb &&
      (access("/usr/bin/gdb",X_OK) == 0) &&
      (((void *)gdb && (void *)"1" && strcmp(gdb,"1") == 0) ||
       ((void *)gdb && (void *)"true" && strcmp(gdb,"true") == 0) ||
       ((void *)gdb && (void *)"TRUE" && strcmp(gdb,"TRUE") == 0))) {
    char gdbcmd[65536];
    pid_t pid = getpid();
    const char *a_out = ec_GetArgs(0);
    fprintf(stderr,
     "[gdb_trbk] : Invoking %s ...\n",
     "/usr/bin/gdb");
    snprintf(gdbcmd,sizeof(gdbcmd),
      "set +e; /bin/echo '"
      "set watchdog 1\n"
      "set confirm off\n"
      "set pagination off\n"
      "set print elements 16\n"
      "set print repeats 3\n"
      "set print sevenbit-strings on\n"
      "where\n"
      "quit\n' > ./gdb_drhook.%d ; "
      "%s -x ./gdb_drhook.%d -q -n -f -batch %s %d < /dev/null ; "
      "/bin/rm -f ./gdb_drhook.%d"
      , pid
      , "/usr/bin/gdb", pid, a_out, pid
      , pid);


    fflush(NULL);
    system(gdbcmd);
    fflush(NULL);
  }
}

void gdb_trbk() { gdb_trbk_(); }
void dbx_trbk_()
{
  char *dbx = getenv("DBXDEBUGGER");
  if (dbx &&
      (access("/usr/bin/dbx",X_OK) == 0) &&
      (((void *)dbx && (void *)"1" && strcmp(dbx,"1") == 0) ||
       ((void *)dbx && (void *)"true" && strcmp(dbx,"true") == 0) ||
       ((void *)dbx && (void *)"TRUE" && strcmp(dbx,"TRUE") == 0))) {
    pid_t pid = getpid();
    const char *a_out = ec_GetArgs(0);
    char dbxcmd[65536];



    const char *qopt = "";

    fprintf(stderr,
     "[dbx_trbk] : Invoking %s ...\n",
     "/usr/bin/dbx");
    if (a_out && (access(a_out,X_OK|R_OK) == 0)) {
      snprintf(dbxcmd,sizeof(dbxcmd),
        "set +e; /bin/echo 'where; quit; '"
        " | %s%s %s %d ",
        "/usr/bin/dbx", qopt, a_out, pid);
    }
    else {
      snprintf(dbxcmd,sizeof(dbxcmd),
        "set +e; /bin/echo 'where; quit; '"
        " | %s%s - %d ",
        "/usr/bin/dbx", qopt, pid);
    }


    fflush(NULL);
    system(dbxcmd);
    fflush(NULL);
  }
}

void dbx_trbk() { dbx_trbk_(); }