envchars.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 e-mail comments to <bug-sather@gnu.org>  <--------------


immutable class ENV_CHAR

immutable class ENV_CHAR is -- This class implements punctuation characters as defined in the -- default environment repertoire and encoding. It offers a shorthand -- notation for the commonly used punctuation characters. -- -- All of the features of this class return the character equivalent of -- the default library character code of the same name. -- Apart from the first in the list which is a space, the remainder are punctuation marks. -- Version 1.0 May 2001. Copyright K Hopper, U of Waikato -- Development History -- ------------------- -- Date Who By Detail -- ---- ------ ------ -- 2 May 01 kh New class for common punctuation Space : CHAR is return LIBCHARS::default.Space.char end ; Ampersand : CHAR is return LIBCHARS::default.Ampersand.char end ; Apostrophe : CHAR is return LIBCHARS::default.Apostrophe.char end ; Asterisk : CHAR is return LIBCHARS::default.Asterisk.char end ; At : CHAR is return LIBCHARS::default.At.char end ; Caret : CHAR is return LIBCHARS::default.Caret.char end ; Colon : CHAR is return LIBCHARS::default.Colon.char end ; Comma : CHAR is return LIBCHARS::default.Comma.char end ; Dollar : CHAR is return LIBCHARS::default.Dollar.char end ; Equal_Mark : CHAR is return LIBCHARS::default.Equal_Mark.char end ; Exclamation : CHAR is return LIBCHARS::default.Exclamation.char end ; Fullstop : CHAR is return LIBCHARS::default.Fullstop.char end ; Grave_Accent : CHAR is return LIBCHARS::default.Grave_Accent.char end ; Hyphen : CHAR is return LIBCHARS::default.Hyphen.char end ; Left_Angle : CHAR is return LIBCHARS::default.Left_Angle.char end ; Left_Brace : CHAR is return LIBCHARS::default.Left_Brace.char end ; Left_Bracket : CHAR is return LIBCHARS::default.Left_Bracket.char end ; Left_Parenthesis : CHAR is return LIBCHARS::default.Left_Parenthesis.char end ; Low_Line : CHAR is return LIBCHARS::default.Low_Line.char end ; Number_Sign : CHAR is return LIBCHARS::default.Number_Sign.char end ; Percent : CHAR is return LIBCHARS::default.Percent.char end ; Plus_Sign : CHAR is return LIBCHARS::default.Plus_Sign.char end ; Question_Mark : CHAR is return LIBCHARS::default.Question_Mark.char end ; Quotation_Mark : CHAR is return LIBCHARS::default.Quotation_Mark.char end ; Reverse_Solidus : CHAR is return LIBCHARS::default.Reverse_Solidus.char end ; Right_Angle : CHAR is return LIBCHARS::default.Right_Angle.char end ; Right_Brace : CHAR is return LIBCHARS::default.Right_Brace.char end ; Right_Bracket : CHAR is return LIBCHARS::default.Right_Bracket.char end ; Right_Parenthesis : CHAR is return LIBCHARS::default.Right_Parenthesis.char end ; Semicolon : CHAR is return LIBCHARS::default.Semicolon.char end ; Solidus : CHAR is return LIBCHARS::default.Solidus.char end ; Tilde : CHAR is return LIBCHARS::default.Tilde.char end ; Vline : CHAR is return LIBCHARS::default.Vline.char end ; Nil_Name : STR is res : CODE_STR := CODE_STR::create(LIBCHARS::default) + UNICODE::LATIN_CAPITAL_LETTER_N.code + UNICODE::LATIN_SMALL_LETTER_I.code + UNICODE::LATIN_SMALL_LETTER_L.code ; return res.tgt_str end ; Line_Mark : STR is -- This final feature produces a line mark in the default -- culture and environment which is a string as some OSs use -- more than one character! return LIBCHARS::default.Line_Mark.tgt_str; end ; end ; --ENV_CHAR