aboutsummaryrefslogtreecommitdiff
path: root/docs/internals/gdb.script
diff options
context:
space:
mode:
Diffstat (limited to 'docs/internals/gdb.script')
-rw-r--r--docs/internals/gdb.script76
1 files changed, 0 insertions, 76 deletions
diff --git a/docs/internals/gdb.script b/docs/internals/gdb.script
deleted file mode 100644
index a1122343c162..000000000000
--- a/docs/internals/gdb.script
+++ /dev/null
@@ -1,76 +0,0 @@
-# @(#)gdb.script 8.5 (Berkeley) 5/4/96
-
-# display the VI screen map
-# usage dmap(sp)
-define dmap
- set $h = ((VI_PRIVATE *)$arg0->vi_private)->h_smap
- set $t = ((VI_PRIVATE *)$arg0->vi_private)->t_smap
- while ($h <= $t)
- printf "lno: %2d; soff %d coff %d ", \
- (int)$h->lno, (int)$h->soff, (int)$h->coff
- if ($h->c_ecsize == 0)
- printf "flushed\n"
- else
- printf "\n\tsboff %d; scoff %d\n", \
- (int)$h->c_sboff, (int)$h->c_scoff
- printf "\teboff %d; eclen %d; ecsize %d\n", \
- (int)$h->c_eboff, (int)$h->c_eclen, \
- (int)$h->c_ecsize
- end
- set $h = $h + 1
- end
-end
-
-# display the tail of the VI screen map
-define tmap
- set $h = ((VI_PRIVATE *)$arg0->vi_private)->h_smap
- set $t = ((VI_PRIVATE *)$arg0->vi_private)->t_smap
- while ($t >= $h)
- printf "lno: %2d; soff %d coff %d ", \
- (int)$t->lno, (int)$t->soff, (int)$t->coff
- if ($t->c_ecsize == 0)
- printf "flushed\n"
- else
- printf "\n\tsboff %d; scoff %d\n", \
- (int)$t->c_sboff, (int)$t->c_scoff
- printf "\teboff %d; eclen %d; ecsize %d\n", \
- (int)$t->c_eboff, (int)$t->c_eclen, \
- (int)$t->c_ecsize
- end
- set $t = $t - 1
- end
-end
-
-# display the private structures
-define clp
- print *((CL_PRIVATE *)sp->gp->cl_private)
-end
-define vip
- print *((VI_PRIVATE *)sp->vi_private)
-end
-define exp
- print *((EX_PRIVATE *)sp->ex_private)
-end
-
-# display the marks
-define markp
- set $h = sp->ep->marks.next
- set $t = &sp->ep->marks
- while ($h != 0 && $h != $t)
- printf "key %c lno: %d cno: %d flags: %x\n", \
- ((MARK *)$h)->name, ((MARK *)$h)->lno, \
- ((MARK *)$h)->cno, ((MARK *)$h)->flags
- set $h = ((MARK *)$h)->next
- end
-end
-
-# display the tags
-define tagp
- set $h = sp->taghdr.next
- set $t = &sp->taghdr
- while ($h != 0 && $h != $t)
- printf "tag: %s lno %d cno %d\n", ((TAG *)$h)->frp->fname, \
- ((TAG *)$h)->lno, ((TAG *)$h)->cno
- set $h= ((TAG *)$h)->next
- end
-end