codekind.sa
Generated by gen_html_sa_files from ICSI. Contact gomes@icsi.berkeley.edu for details
-------------------------> GNU Sather - sourcefile <-------------------------
-- Copyright (C) 2000 by K Hopper, University of Waikato, New Zealand --
-- This file is part of the GNU Sather library. It is free software; you may --
-- redistribute and/or modify it under the terms of the GNU Library General --
-- Public License (LGPL) as published by the Free Software Foundation; --
-- either version 2 of the license, or (at your option) any later version. --
-- This library is distributed in the hope that it will be useful, but --
-- WITHOUT ANY WARRANTY without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. See Doc/LGPL for more details. --
-- The license text is also available from: Free Software Foundation, Inc., --
-- 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA --
--------------> Please email comments to <bug-sather@gnu.org> <--------------
immutable class CODE_KINDS < $ENUMS{CODE_KINDS}
immutable class CODE_KINDS < $ENUMS{CODE_KINDS} is
-- This is an enumeration class which describes the different
-- encodings for character glyphs which may be contained in a program
-- 'text' file.
-- Version 1.1 Dec 96. Copyright K Hopper, U of Waikato
-- Development History
-- -------------------
-- Date Who By Detail
-- ---- ------ ------
-- 3 May 96 kh Original
-- 11 Nov 96 kh Portable version
-- 11 Dec 96 kh Added class_name
include ENUM{CODE_KINDS} ;
private const val_count : CARD := 83 ;
private const size_table : ARRAY{CARD} := | 0,
1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,2,1,
1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1,
1,1,2,2,1,1,1,1,1,1,
1,1,1,1,1,2,2,2,1,1,
1,1,1,1,1,2,1,2,4,4,
1,1,2
| ;
-- The next routines provide the enumeration itself for the official ISO
-- registry encodings.
Adobe_Dingbats : SAME is return enum(1) end ;
Adobe_Standard : SAME is return enum(2) end ;
-- Adobe-Standard-Encoding,
-- csAdobeStandardEncoding
Adobe_Symbol : SAME is return enum(3) end ;
Apple_Arabic : SAME is return enum(4) end ;
Apple_CntEuro : SAME is return enum(5) end ;
Apple_Croatian : SAME is return enum(6) end ;
Apple_Cyrillic : SAME is return enum(7) end ;
Apple_Dingbat : SAME is return enum(8) end ;
Apple_Greek : SAME is return enum(9) end ;
Apple_Hebrew : SAME is return enum(10) end ;
Apple_Iceland : SAME is return enum(11) end ;
Apple_Japan : SAME is return enum(12) end ;
Apple_Roman : SAME is return enum(13) end ;
Apple_Romania : SAME is return enum(14) end ;
Apple_Symbol : SAME is return enum(15) end ;
Apple_Thai : SAME is return enum(16) end ;
Apple_Turkish : SAME is return enum(17) end ;
Apple_Ukraine : SAME is return enum(18) end ;
Big5 : SAME is return enum(19) end ;
CP037 : SAME is return enum(20) end ; -- csIBM037, ebcdic-cp-ca,
-- ebcdic-cp-nl, ebcdic-cp-us,
-- ebcdic-cp-wt
CP_1026 : SAME is return enum(21) end ; -- IBM1026, csIBM1026
CP_1250 : SAME is return enum(22) end ; -- windows-1250
CP_1251 : SAME is return enum(23) end ; -- windows-1251
CP_1252 : SAME is return enum(24) end ; -- windows-1252
CP_1253 : SAME is return enum(25) end ; -- windows-1253
CP_1254 : SAME is return enum(26) end ; -- windows-1254
CP_1255 : SAME is return enum(27) end ; -- windows-1255
CP_1256 : SAME is return enum(28) end ; -- windows-1256
CP_1257 : SAME is return enum(29) end ; -- windows-1257
CP_1258 : SAME is return enum(30) end ; -- windows-1258
CP_437 : SAME is return enum(31) end ; -- 437,
-- csPC8CodePage437
CP_500 : SAME is return enum(32) end ; -- csIBM500, ebcdic-CP_-be,
-- ebcdic-CP_-ch)
CP_737 : SAME is return enum(33) end ;
CP_775 : SAME is return enum(34) end ; -- IBM775, csPC775Baltic
CP_850 : SAME is return enum(35) end ; -- 850, IBM850,
-- csPC850Multilingual
CP_852 : SAME is return enum(36) end ; -- 852, IBM852, csPCP_852
CP_855 : SAME is return enum(37) end ; -- 855, IBM855, csIBM855
CP_857 : SAME is return enum(38) end ; -- 857, IBM857, csIBM857
CP_860 : SAME is return enum(39) end ; -- 860, IBM860, csIBM860
CP_861 : SAME is return enum(40) end ; -- 861, IBM861, CP_-is,
-- csIBM861
CP_862 : SAME is return enum(41) end ; -- 862, IBM862,
-- csPC862LatinHebrew
CP_863 : SAME is return enum(42) end ; -- 863, IBM863, csIBM863
CP_864 : SAME is return enum(43) end ; -- IBM864, csIBM864
CP_865 : SAME is return enum(44) end ; -- 865, IBM865, csIBM865
CP_866 : SAME is return enum(45) end ; -- 866, IBM866, csIBM866
CP_869 : SAME is return enum(46) end ; -- 869, IBM869, CP_-gr,
-- csIBM869
CP_874 : SAME is return enum(47) end ;
CP_875 : SAME is return enum(48) end ;
CP_932 : SAME is return enum(49) end ;
CP_936 : SAME is return enum(50) end ;
CP_949 : SAME is return enum(51) end ;
CP_950 : SAME is return enum(52) end ;
GB12345_80 : SAME is return enum(53) end ; -- Chinese roman codes
GB2312_80 : SAME is return enum(54) end ; -- Chinese ideograph
-- codes
IBM038 : SAME is return enum(55) end ; -- CP038
ISO8859_1 : SAME is return enum(56) end ; -- CP819, IBM819,
-- ISO-IR-100,ISO_8859-1:1987,
-- L1, LATIN1
ISO8859_10 : SAME is return enum(57) end ; -- ISO-IR-157,
-- ISO_8859-10:1993,
-- L6, LATIN6)
ISO8859_2 : SAME is return enum(58) end ; -- ISO-IR-101,
-- ISO_8859-2:1987,
-- L2, LATIN2
ISO8859_3 : SAME is return enum(59) end ; -- ISO-IR-109,
-- ISO_8859-3:1988,
-- L3, LATIN3
ISO8859_4 : SAME is return enum(60) end ; -- ISO-IR-110,
-- ISO_8859-4:1988,
-- L4, LATIN4)
ISO8859_5 : SAME is return enum(61) end ; -- CYRILLIC, ISO-IR-144,
-- ISO_8859-5:1988)
ISO8859_6 : SAME is return enum(62) end ; -- ARABIC, ASMO-708,
-- ECMA-114, ISO-IR-127,
-- ISO_8859-6:1987
ISO8859_7 : SAME is return enum(63) end ; -- ECMA-118, ELOT_928,
-- GREEK, GREEK8, ISO-IR-126,
-- ISO_8859-7:1987
ISO8859_8 : SAME is return enum(64) end ; -- HEBREW, ISO-IR-138,
-- ISO_8859-8:1988
ISO8859_9 : SAME is return enum(65) end ; -- ISO-IR-148,
-- ISO_8859-9:1989,
-- L5, LATIN5)
JIS_X_0201 : SAME is return enum(66) end ; -- Japanese standards
JIS_X_0208 : SAME is return enum(67) end ;
JIS_X_0212 : SAME is return enum(68) end ;
MS_Cyrillic : SAME is return enum(65) end ; -- Microsoft variants
MS_Greek : SAME is return enum(65) end ;
MS_Iceland : SAME is return enum(65) end ;
MS_Latin_2 : SAME is return enum(65) end ;
MS_Roman : SAME is return enum(65) end ;
MS_Turkish : SAME is return enum(65) end ;
NEXT : SAME is return enum(75) end ; -- NEXTSTEP, NeXT
Shift_JIS : SAME is return enum(76) end ; -- Japanese variant
US_ASCII : SAME is return enum(77) end ; -- ANSI_X3.4-1968,
-- ANSI_X3.4-1986, ASCII,
-- IBM367, ISO646-US,
-- ISO_646.irv:1991, cp367,
-- csASCII, iso-ir-6, us
UCS2 : SAME is return enum(78) end ;
UCS4 : SAME is return enum(79) end ;
Unicode : SAME is return enum(80) end ;
UTF7 : SAME is return enum(81) end ;
UTF8 : SAME is return enum(82) end ;
UTF16 : SAME is return enum(83) end ;
size : CARD is
-- This routine merely returns the number of octets which will be
-- occupied by a code of this kind.
return size_table[enum]
end ;
end ; -- CODE_KINDS