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