#       @(#)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

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.