Sync with FreeBSD. Most importantly, this removes the need for perl.
[dragonfly.git] / gnu / usr.bin / ptx / diacrit.h
1 /* Diacritics processing for a few character codes.
2    Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
3    Francois Pinard <pinard@iro.umontreal.ca>, 1988.
4
5    All this file is a temporary hack, waiting for locales in GNU.
6 */
7
8 extern const char diacrit_base[]; /* characters without diacritics */
9 extern const char diacrit_diac[]; /* diacritic code for each character */
10
11 /* Returns CHR without its diacritic.  CHR is known to be alphabetic.  */
12 #define tobase(chr) (diacrit_base[(unsigned char) (chr)])
13
14 /* Returns a diacritic code for CHR.  CHR is known to be alphabetic.  */
15 #define todiac(chr) (diacrit_diac[(unsigned char) (chr)])
16