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