1# btraceback.dbx
2
3dbxenv language_mode c++
4
5echo "exename ==> \c"; print -l (char *)exename
6echo "exepath ==> \c"; print -l (char *)exepath
7echo "catalog_db ==> \c"; print -l (char *)catalog_db
8echo "version ==> \c"; print -l (char *)version
9
10echo "******** RUNNING THREADS/LWPS:"
11echo
12lwps
13
14echo
15echo
16echo "******** STACK TRACE OF CURRENT THREAD/LWP:"
17echo
18where
19
20echo
21echo
22echo "******** VARIABLES DUMP OF CURRENT THREAD/LWP:"
23echo
24dump
25
26for LWP in $(lwps | sh sed -e 's/.*@//' -e 's/ .*//'); do
27(
28   if lwp l@$LWP; then
29      echo "******************************************"
30      echo
31      echo "******** STACK TRACE OF THREAD/LWP ${LWP}:"
32      echo
33      where
34
35      echo
36      echo "******** VARIABLES DUMP OF THREAD/LWP ${LWP}:"
37      echo
38      dump
39      echo "******************************************"
40   fi
41)
42done
43quit
44