113984Sedward #ifndef lint 2*14172Sedward static char *sccsid = "@(#)wwlabel.c 1.4 83/07/28"; 313984Sedward #endif 413984Sedward 513984Sedward #include "ww.h" 613984Sedward 7*14172Sedward wwlabel(w, where, l, mode) 813984Sedward register struct ww *w; 913984Sedward register char *l; 1013984Sedward { 1113984Sedward register i; 12*14172Sedward register char *p; 1313984Sedward char ulc, top, urc, left, right, llc, bottom, lrc; 1413984Sedward 15*14172Sedward if (w->ww_i.nrow == w->ww_w.nrow) /* not framed */ 16*14172Sedward return -1; 17*14172Sedward Wauxcursor(w->ww_win, 0, where); 18*14172Sedward for (i = w->ww_o.ncol - where - 1; i > 0 && *l; l++) 19*14172Sedward for (p = unctrl(*l); *p; p++, i--) 20*14172Sedward Waputc(*p, mode, w->ww_win); 2113984Sedward } 22