2N/A/*
2N/A * CDDL HEADER START
2N/A *
2N/A * The contents of this file are subject to the terms of the
2N/A * Common Development and Distribution License, Version 1.0 only
2N/A * (the "License"). You may not use this file except in compliance
2N/A * with the License.
2N/A *
2N/A * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
2N/A * or http://www.opensolaris.org/os/licensing.
2N/A * See the License for the specific language governing permissions
2N/A * and limitations under the License.
2N/A *
2N/A * When distributing Covered Code, include this CDDL HEADER in each
2N/A * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
2N/A * If applicable, add the following below this CDDL HEADER, with the
2N/A * fields enclosed by brackets "[]" replaced with your own identifying
2N/A * information: Portions Copyright [yyyy] [name of copyright owner]
2N/A *
2N/A * CDDL HEADER END
2N/A */
2N/A/*
2N/A * Copyright (c) 1995, by Sun Microsystems, Inc.
2N/A * All rights reserved.
2N/A */
2N/A
2N/A#pragma ident "%Z%%M% %I% %E% SMI"
2N/A
2N/A/*
2N/A * wunctrl.c
2N/A *
2N/A * XCurses Library
2N/A *
2N/A * Copyright 1990, 1995 by Mortice Kern Systems Inc. All rights reserved.
2N/A *
2N/A */
2N/A
2N/A#if M_RCSID
2N/A#ifndef lint
2N/Astatic char rcsID[] = "$Header: /rd/src/libc/xcurses/rcs/wunctrl.c 1.1 1995/05/16 15:15:37 ant Exp $";
2N/A#endif
2N/A#endif
2N/A
2N/A#include <private.h>
2N/A#include <wctype.h>
2N/A
2N/Astatic const wchar_t *carat[] = {
2N/A M_MB_L("^?"),
2N/A M_MB_L("^@"),
2N/A M_MB_L("^A"),
2N/A M_MB_L("^B"),
2N/A M_MB_L("^C"),
2N/A M_MB_L("^D"),
2N/A M_MB_L("^E"),
2N/A M_MB_L("^F"),
2N/A M_MB_L("^G"),
2N/A M_MB_L("^H"),
2N/A M_MB_L("^I"),
2N/A M_MB_L("^J"),
2N/A M_MB_L("^K"),
2N/A M_MB_L("^L"),
2N/A M_MB_L("^M"),
2N/A M_MB_L("^N"),
2N/A M_MB_L("^O"),
2N/A M_MB_L("^P"),
2N/A M_MB_L("^Q"),
2N/A M_MB_L("^R"),
2N/A M_MB_L("^S"),
2N/A M_MB_L("^T"),
2N/A M_MB_L("^U"),
2N/A M_MB_L("^V"),
2N/A M_MB_L("^W"),
2N/A M_MB_L("^X"),
2N/A M_MB_L("^Y"),
2N/A M_MB_L("^Z"),
2N/A M_MB_L("^["),
2N/A M_MB_L("^\\"),
2N/A M_MB_L("^]"),
2N/A M_MB_L("^^"),
2N/A M_MB_L("^_")
2N/A};
2N/A
2N/Aconst wchar_t *
2N/Awunctrl(cc)
2N/Aconst cchar_t *cc;
2N/A{
2N/A int i;
2N/A wint_t wc;
2N/A static wchar_t wcs[M_CCHAR_MAX+1];
2N/A
2N/A#ifdef M_CURSES_TRACE
2N/A __m_trace("wunctrl(%p)", cc);
2N/A#endif
2N/A if (cc->_n <= 0)
2N/A return __m_return_pointer("wunctrl", (wchar_t *) 0);
2N/A
2N/A /* Map wide character to a wide string. */
2N/A wc = cc->_wc[0];
2N/A if (iswcntrl(wc)) {
2N/A if (wc == 127)
2N/A return __m_return_pointer("wunctrl", carat[0]);
2N/A if (0 <= wc && wc <= 32)
2N/A return __m_return_pointer("wunctrl", carat[wc+1]);
2N/A return __m_return_pointer("wunctrl", (wchar_t *) 0);
2N/A }
2N/A
2N/A for (i = 0; i < cc->_n; ++i)
2N/A wcs[i] = cc->_wc[i];
2N/A wcs[i] = M_MB_L('\0');
2N/A
2N/A return __m_return_pointer("wunctrl", wcs);
2N/A}