scripts.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 SCRIPTS < $ENUMS{SCRIPTS}

immutable class SCRIPTS < $ENUMS{SCRIPTS} is -- This is the enumeration class which identifies the groups of codes in -- the class UNICODE which form a particular script (eg Latin, Armenian) -- not including graphic, mathematical and combining character encodings. -- It forms part of the run-time parameterization of the currently defined -- default context version of CHAR and STR classes for ordering and other -- purposes. -- There needs to be an associated resource file containing the string -- names of all of the enumeration values. See ISO/IEC 14651 for default -- naming. -- Version 1.4 April 2001. Copyright K Hopper, U of Waikato -- Development History -- ------------------- -- Date Who By Detail -- ---- ------ ------ -- 14 Nov 96 kh Original -- 11 Dec 96 kh added class_name -- 12 Dec 96 kh class_name now in ENUMS! -- 10 Apr 97 kh Added 'char' constants -- 2 Apr 01 kh Brought up to Unicode 3.0 include ENUM{SCRIPTS} ; private const val_count : CARD := 40 ; -- The next routines provide the enumeration itself for a selection -- of the official registry encodings. Arabic : SAME is return enum(1) end ; Arabic_Presentation : SAME is return enum(2) end ; Armenian : SAME is return enum(3) end ; Bengali : SAME is return enum(4) end ; Bopomofo : SAME is return enum(5) end ; Canadian_Aboriginal : SAME is return enum(6) end ; Cherokee : SAME is return enum(7) end ; CJK_Unified : SAME is return enum(8) end ; -- called "Han" Cyrillic : SAME is return enum(9) end ; Devanagari : SAME is return enum(10) end ; Ethiopic : SAME is return enum(11) end ; Georgian : SAME is return enum(12) end ; Greek : SAME is return enum(13) end ; Gujarati : SAME is return enum(14) end ; Gurmukhi : SAME is return enum(15) end ; Hangul : SAME is return enum(16) end ; Hangul_Jamo : SAME is return enum(17) end ; Hebrew : SAME is return enum(18) end ; Hiragana : SAME is return enum(19) end ; IPA : SAME is return enum(20) end ; Kannada : SAME is return enum(21) end ; Katakana : SAME is return enum(22) end ; Khmer : SAME is return enum(23) end ; Lao : SAME is return enum(24) end ; Latin : SAME is return enum(25) end ; Malayalam : SAME is return enum(26) end ; Mongolian : SAME is return enum(27) end ; Myanmar : SAME is return enum(28) end ; Ogham : SAME is return enum(29) end ; Oriya : SAME is return enum(30) end ; Runic : SAME is return enum(31) end ; Sinhala : SAME is return enum(32) end ; Syriac : SAME is return enum(33) end ; Tamil : SAME is return enum(34) end ; Telugu : SAME is return enum(35) end ; Thaana : SAME is return enum(36) end ; Thai : SAME is return enum(37) end ; Tibetan : SAME is return enum(38) end ; Yi : SAME is return enum(39) end ; -- For miscellaneous numeric /decimal chars Numerics : SAME is return enum(40) end ;
-- The following Scripts are either proposed or agreed but not yet -- fully defined and approved. -- Avestan : SAME is return enum(??) end ; -- Blissymbolics : SAME is return enum(??) end ; -- Buhid : SAME is return enum(??) end ; -- Cham : SAME is return enum(??) end ; -- Cirth : SAME is return enum(??) end ; -- Coptic : SAME is return enum(??) end ; -- Cypriot : SAME is return enum(??) end ; -- Hanunoo : SAME is return enum(??) end ; -- Kirat : SAME is return enum(??) end ; -- Lepcha : SAME is return enum(??) end ; -- Manipuri : SAME is return enum(??) end ; -- Moso : SAME is return enum(??) end ; -- Old_Hungarian : SAME is return enum(??) end ; -- Old_Permic : SAME is return enum(??) end ; -- Pahawh : SAME is return enum(??) end ; -- Pollard : SAME is return enum(??) end ; -- Shavian : SAME is return enum(??) end ; -- South_Arabian : SAME is return enum(??) end ; -- Soyombo : SAME is return enum(??) end ; -- Tagalog : SAME is return enum(??) end ; -- Tagbanwa : SAME is return enum(??) end ; -- Tengwar : SAME is return enum(??) end ; -- Tai_Lu : SAME is return enum(??) end ; -- Tai_Mau : SAME is return enum(??) end ; -- Tifinagh : SAME is return enum(??) end ; -- TlhIngan_Hol : SAME is return enum(??) end ;
end ; -- SCRIPTS

immutable class SYMBOLS < $ENUMS{SYMBOLS}

immutable class SYMBOLS < $ENUMS{SYMBOLS} is -- This is the enumeration class which identifies the groups of non-text -- codes in the class UNICODE including graphic, mathematical and combining -- character encodings. -- There needs to be an associated resource file containing the string -- names of all of the enumeration values. See ISO/IEC 14651 for default -- naming. -- Version 1.0 April 2001. Copyright K Hopper, U of Waikato -- Development History -- ------------------- -- Date Who By Detail -- ---- ------ ------ -- 2 Apr 01 kh Original include ENUM{SYMBOLS} ; private const val_count : CARD := 20 ; -- The next routines provide the enumeration itself for the non-script -- characters/symbols defiuned by the standard. Braille : SAME is return enum(1) end ; Modifiers : SAME is return enum(2) end ; Spacing : SAME is return enum(3) end ; Punctuation : SAME is return enum(4) end ; Currency : SAME is return enum(5) end ; Letter_Like : SAME is return enum(6) end ; Super_Sub : SAME is return enum(7) end ; Number_Forms : SAME is return enum(8) end ; Maths_Operators : SAME is return enum(9) end ; Arrows : SAME is return enum(10) end ; Misc_Technical : SAME is return enum(11) end ; Control_Code_Pictures : SAME is return enum(12) end ; OCR_Symbols : SAME is return enum(13) end ; Box_Drawing : SAME is return enum(14) end ; Block_Elements : SAME is return enum(15) end ; Geometric_Shapes : SAME is return enum(16) end ; Miscellaneous : SAME is return enum(17) end ; Dingbats : SAME is return enum(18) end ; Enclosed_Forms : SAME is return enum(19) end ; Special : SAME is return enum(20) end ; end ; -- SYMBOLS