1#         @(#)gdb.script      8.5 (Berkeley) 5/4/96
2
3# display the VI screen map
4# usage dmap(sp)
5define    dmap
6          set $h = ((VI_PRIVATE *)$arg0->vi_private)->h_smap
7          set $t = ((VI_PRIVATE *)$arg0->vi_private)->t_smap
8          while ($h <= $t)
9                    printf "lno: %2d; soff %d coff %d ", \
10                        (int)$h->lno, (int)$h->soff, (int)$h->coff
11                    if ($h->c_ecsize == 0)
12                              printf "flushed\n"
13                    else
14                              printf "\n\tsboff %d; scoff %d\n", \
15                                  (int)$h->c_sboff, (int)$h->c_scoff
16                              printf "\teboff %d; eclen %d; ecsize %d\n", \
17                                  (int)$h->c_eboff, (int)$h->c_eclen, \
18                                  (int)$h->c_ecsize
19                    end
20                    set $h = $h + 1
21          end
22end
23
24# display the tail of the VI screen map
25define    tmap
26          set $h = ((VI_PRIVATE *)$arg0->vi_private)->h_smap
27          set $t = ((VI_PRIVATE *)$arg0->vi_private)->t_smap
28          while ($t >= $h)
29                    printf "lno: %2d; soff %d coff %d ", \
30                        (int)$t->lno, (int)$t->soff, (int)$t->coff
31                    if ($t->c_ecsize == 0)
32                              printf "flushed\n"
33                    else
34                              printf "\n\tsboff %d; scoff %d\n", \
35                                  (int)$t->c_sboff, (int)$t->c_scoff
36                              printf "\teboff %d; eclen %d; ecsize %d\n", \
37                                  (int)$t->c_eboff, (int)$t->c_eclen, \
38                                  (int)$t->c_ecsize
39                    end
40                    set $t = $t - 1
41          end
42end
43
44# display the private structures
45define    clp
46          print *((CL_PRIVATE *)sp->gp->cl_private)
47end
48define    vip
49          print *((VI_PRIVATE *)sp->vi_private)
50end
51define    exp
52          print *((EX_PRIVATE *)sp->ex_private)
53end
54
55# display the marks
56define    markp
57          set $h = sp->ep->marks.next
58          set $t = &sp->ep->marks
59          while ($h != 0 && $h != $t)
60                    printf "key %c lno: %d cno: %d flags: %x\n", \
61                        ((MARK *)$h)->name, ((MARK *)$h)->lno, \
62                        ((MARK *)$h)->cno, ((MARK *)$h)->flags
63                    set $h = ((MARK *)$h)->next
64          end
65end
66
67# display the tags
68define    tagp
69          set $h = sp->taghdr.next
70          set $t = &sp->taghdr
71          while ($h != 0 && $h != $t)
72                    printf "tag: %s lno %d cno %d\n", ((TAG *)$h)->frp->fname, \
73                        ((TAG *)$h)->lno, ((TAG *)$h)->cno
74                    set $h= ((TAG *)$h)->next
75          end
76end
77