da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/***********************************************************************
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* This software is part of the ast package *
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner* Copyright (c) 1985-2010 AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* and is licensed under the *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Common Public License, Version 1.0 *
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin* by AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* A copy of the License is available at *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Information and Software Systems Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* AT&T Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Florham Park NJ *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Glenn Fowler <gsf@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* David Korn <dgk@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Phong Vo <kpv@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin***********************************************************************/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Glenn Fowler
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * AT&T Research
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * 8 bit character code map name/id lookup support
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "a|ascii|?(iso)?(-)646|?(iso)?(-)8859|latin",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "8 bit ascii",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "ISO-8859-%s",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "e|ebcdic?(-)?([1e])",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "ebcdic-o",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "o|ebcdic?(-)[3o]|?(cp|ibm)1047|open?(-)edition",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "mvs OpenEdition ebcdic",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "EBCDIC-O",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "ebcdic-h",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "h|ebcdic?(-)h|?(cp|ibm)?(00)37|[oa]s?(/-)400",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "ibm OS/400 AS/400 ebcdic",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "EBCDIC-H",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "ebcdic-s",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "s|ebcdic?(-)s|siemens|posix-bc",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "siemens posix-bc ebcdic",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "EBCDIC-S",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "ebcdic-i",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "i|ebcdic?(-)[2i]|ibm",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "X/Open ibm ebcdic (not idempotent)",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "EBCDIC-I",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "ebcdic-m",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "m|ebcdic?(-)m|mvs",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "mvs ebcdic",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "EBCDIC-M",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "ebcdic-u",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "u|ebcdic?(-)(u|mf)|microfocus",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "microfocus cobol ebcdic",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "EBCDIC-U",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "n|native|local",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "native code set",
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * ccode map list iterator
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return !mp ? (Ccmap_t*)maps : (++mp)->name ? mp : (Ccmap_t*)0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * return ccode map id given name
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (strgrpmatch(name, mp->match, sub, elementsof(sub) / 2, STR_MAXIMAL|STR_LEFT|STR_ICASE))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * return ccode map name given id