usr/src/lib/libcurses/screen/mbinch.c

   1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License, Version 1.0 only
   6  * (the "License").  You may not use this file except in compliance
   7  * with the License.
   8  *
   9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
  10  * or http://www.opensolaris.org/os/licensing.
  11  * See the License for the specific language governing permissions
  12  * and limitations under the License.
  13  *
  14  * When distributing Covered Code, include this CDDL HEADER in each
  15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  16  * If applicable, add the following below this CDDL HEADER, with the
  17  * fields enclosed by brackets "[]" replaced with your own identifying
  18  * information: Portions Copyright [yyyy] [name of copyright owner]
  19  *
  20  * CDDL HEADER END
  21  */
  22 /*  Copyright (c) 1988 AT&T */
  23 /*    All Rights Reserved   */
  24
  25
  26 /*
  27  *      Copyright (c) 1997, by Sun Microsystems, Inc.
  28  *      All rights reserved.
  29  */
  30
  31 #pragma ident   "%Z%%M% %I%     %E% SMI"
  32
  33 /*LINTLIBRARY*/
  34
  35 #include        <sys/types.h>
  36 #include        "curses_inc.h"
  37
  38 /*
  39  *      Get the(y, x) character of a window and
  40  *      return it in a 0-terminated string.
  41  */
  42 char
  43 *wmbinch(WINDOW *win, int y, int x)
  44 {
  45         short           savx, savy;
  46         int             k;
  47         chtype          *wp, *ep, wc;
  48         static char     rs[CSMAX + 1];
  49
  50         k = 0;
  51         savx = win->_curx;
  52         savy = win->_cury;
  53
  54         if (wmbmove(win, y, x) == ERR)
  55                 goto done;
  56         wp = win->_y[win->_cury] + win->_curx;
  57         wc = RBYTE(*wp);
  58         ep = wp + _curs_scrwidth[TYPE(wc & 0377)];
  59
  60         for (; wp < ep; ++wp) {
  61                 if ((wc = RBYTE(*wp)) == MBIT)
  62                         break;
  63                 /*LINTED*/
  64                 rs[k++] = (char)wc;
  65                 if ((wc = LBYTE(*wp)|MBIT) == MBIT)
  66                         break;
  67                 /*LINTED*/
  68                 rs[k++] = (char)wc;
  69         }
  70 done :
  71         win->_curx = savx;
  72         win->_cury = savy;
  73         rs[k] = '\0';
  74         return (rs);
  75 }