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