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/*
23 * Copyright (c) 1996-1998 by Sun Microsystems, Inc.
24 * All rights reserved.
25 */
26
27#pragma ident	"%Z%%M%	%I%	%E% SMI"
28
29/*
30 * m_ord.h
31 *
32 * Copyright 1986, 1992 by Mortice Kern Systems Inc.  All rights reserved.
33 *
34 * $Header: /rd/h/rcs/m_ord.h 1.15 1994/05/29 16:17:02 mark Exp $
35 */
36
37#ifndef __M_M_ORD_H__
38#define	__M_M_ORD_H__
39
40#ifndef UCHAR_MAX
41#include <limits.h>
42#endif
43
44/*
45 * Used with CURSES in order to decern whether or not 'x' is a byte
46 * or a KEY_xxxx macro, which are defined to be values greater than
47 * UCHAR_MAX.
48 */
49#define	m_ischarset(x)	((unsigned)(x) <= UCHAR_MAX)
50
51/* ASCII based macros */
52/*
53 * m_ord(c) : convert alpha character(case insensitive) to an an ordinal value.
54 *            if c is an alphabetic character (A-Z,a-z), this returns
55 *            a number between 1 and 26
56 * m_chr(i) : convert an ordinal value to its corresponding alpha character
57 *            using the reverse mapping as m_ord().
58 *            if i is a number between 1 and 26 it returns the corresponding
59 *            alphabetic character A to Z
60 */
61#include <ctype.h>
62
63#define	m_ord(c) \
64	((m_ischarset(c) && ('A' <= toupper(c) && toupper(c) <= 'Z')) ? \
65	(toupper(c) - '@') : -1)
66#define	m_chr(c)	((1 <= c && c <= 26) ? (c + '@') : -1)
67
68#endif /* __M_M_ORD_H__ */
69