class LIBCHARS < $IS_EQ |
---|
**** |
________This_class_provides_the_special_characters_used_in_this_library ___for_different_syntactic_purposes_in_parsing_or_rendering_date_of ___all_classes.___In_effect_it_is_an_'enumeration'_of_chars,_including ___those_needed_for_rendering_numeric_values_-_which_depend_on_cultural ___definitions. ___NOTE_The_correct_operation_of_the_values_provided_by_this_class_rely_on ________the_fact_that_all_have_single_character_encodings.___If_enhancement ________is_made_for_user_purposes_then_this_rule_must_be_observed. ___WARNING_THERE_ARE_NO_PRE/POST_CONDITIONS_AVAILABLE_IN_THIS_CLASS ___________IMPLEMENTATION_SINCE_ALL_CALLS_CHECK_THAT_THE_CLASS_IS_INITIALISED ___________AS_A_PRELIMINARY_ACTION.__IF_NOT_THEN_INITIALISATION_IS_DONE ___________AT_THAT_TIME_DURING_PROGRAM_EXECUTION. |
$IS_EQ |
Env_Name_ref( lib : SAME ) : STR |
---|
**** | e.g. SATHER_ENV=/usr/local/lib/sather/resources/en_NZ/bin/LIBCHARS
________This_routine_is_more_or_less_'magic'_in_that_it_creates_entities ___which_refer_to_this_object_currently_being_created.__This_works_since ___the_manipulations_required_only_involve_the_'my_size'_component_of_self. ___Otherwise,_of_course,_the_routine_would_fail_recursively.__Do_NOT_alter ___any_of_the_methods_used_without_carefully_checking_that_this_method_will ___still_work_correctly. |
const Msg_Count : CARD := lmark_two + 1 ; |
---|
percent, ampersand, apostrophe, left_paren, right_paren, |
---|
percent, ampersand, apostrophe, left_paren, right_paren, |
---|
asterisk, plus_sign, comma, minus_sign, fullstop, |
---|
bin_read( fpath : FILE_PATH ) : BIN_CURSOR |
---|
**** |
________This_private_routine_carries_out_the_finding_and_reading_of_the_file ___indicated_by_the_environment_variable_SATHER_ENV,_returning_a_binary ___cursor_indicating_its_contents. |
rev_solidus, right_bracket, caret, low_line, grave, |
---|
code_card( ch : CHAR_CODE, chclass : CHAR_CLASS ) : CARD |
---|
**** |
________This_private_routine_returns_the_value_of_the_cardinal_number ___corresponding_in_the_given_class_to_the_digit_signified_by_the_given ___character_code. |
solidus, colon, semicolon, left_angle, equals, |
---|
asterisk, plus_sign, comma, minus_sign, fullstop, |
---|
right_angle, question_mark, commercial_at, left_bracket, |
---|
component_sep, kind_sep, search_sep ; |
---|
shared converter : CODE_CONVERTER ; |
---|
shared converter : CODE_CONVERTER ; |
---|
attr culture : CULTURE ; |
---|
decimal_prefix, exponent, hex_prefix, |
---|
def_read : BIN_CURSOR |
---|
**** |
________This_private_routine_carries_out_the_finding_and_reading_of_the_file ___indicated_by_the_environment_variable_SATHER_ENV,_returning_a_binary ___cursor_indicating_its_contents. |
digit_code( val : CARD, chclass : CHAR_CLASS ) : CHAR_CODE |
---|
**** |
________This_private_routine_returns_the_character_code_in_this_culture ___which_is_used_to_represent_the_given_digit_value.__If_the_digit_given_is ___out_of_range_then_CHAR_CODE::invalid_is_returned. |
space, exclaim, quote_mark, num_sign, dollar, |
---|
**** |
- |
solidus, colon, semicolon, left_angle, equals, |
---|
escape, unicode_mark, |
---|
**** | specials for booting! Sather format/number specials |
space, exclaim, quote_mark, num_sign, dollar, |
---|
**** |
- |
decimal_prefix, exponent, hex_prefix, |
---|
attr file_modes : ARRAY{STR} ; |
---|
octal_prefix, fmt_filler, |
---|
**** | punctuation - and space! - in code point order |
asterisk, plus_sign, comma, minus_sign, fullstop, |
---|
rev_solidus, right_bracket, caret, low_line, grave, |
---|
attr has_combining : BOOL ; |
---|
decimal_prefix, exponent, hex_prefix, |
---|
init : SAME |
---|
**** |
________This_routine_returns_the_current_object_or_default_if_self_is_void. |
component_sep, kind_sep, search_sep ; |
---|
solidus, colon, semicolon, left_angle, equals, |
---|
left_brace, vert_line, right_brace, tilde, |
---|
**** | line mark - OS defined! - not characters! |
right_angle, question_mark, commercial_at, left_bracket, |
---|
percent, ampersand, apostrophe, left_paren, right_paren, |
---|
lmark_one, lmark_two; |
---|
lmark_one, lmark_two; |
---|
rev_solidus, right_bracket, caret, low_line, grave, |
---|
asterisk, plus_sign, comma, minus_sign, fullstop, |
---|
attr misc_chars : ARRAY{CHAR_CODE} ; |
---|
attr misc_chars : ARRAY{CHAR_CODE} ; |
---|
attr my_size : CARD ; |
---|
normal_read( fpath : FILE_PATH ) : BIN_CURSOR |
---|
**** |
________This_private_routine_carries_out_the_finding_and_reading_of_the_file ___indicated_by_the_environment_variable_SATHER_ENV,_returning_a_binary ___cursor_indicating_its_contents. |
space, exclaim, quote_mark, num_sign, dollar, |
---|
**** |
- |
octal_prefix, fmt_filler, |
---|
**** | punctuation - and space! - in code point order |
root_name, self_name, parent_name, system_sep, root_sep, |
---|
attr path_tokens : ARRAY{CODE_STR} ; |
---|
attr path_tokens : ARRAY{CODE_STR} ; |
---|
percent, ampersand, apostrophe, left_paren, right_paren, |
---|
asterisk, plus_sign, comma, minus_sign, fullstop, |
---|
shared priv_default : SAME ; |
---|
shared priv_default : SAME ; |
---|
right_angle, question_mark, commercial_at, left_bracket, |
---|
space, exclaim, quote_mark, num_sign, dollar, |
---|
**** |
- |
rev_solidus, right_bracket, caret, low_line, grave, |
---|
right_angle, question_mark, commercial_at, left_bracket, |
---|
left_brace, vert_line, right_brace, tilde, |
---|
**** | line mark - OS defined! - not characters! |
rev_solidus, right_bracket, caret, low_line, grave, |
---|
percent, ampersand, apostrophe, left_paren, right_paren, |
---|
root_name, self_name, parent_name, system_sep, root_sep, |
---|
root_name, self_name, parent_name, system_sep, root_sep, |
---|
component_sep, kind_sep, search_sep ; |
---|
root_name, self_name, parent_name, system_sep, root_sep, |
---|
solidus, colon, semicolon, left_angle, equals, |
---|
solidus, colon, semicolon, left_angle, equals, |
---|
space, exclaim, quote_mark, num_sign, dollar, |
---|
**** |
- |
root_name, self_name, parent_name, system_sep, root_sep, |
---|
left_brace, vert_line, right_brace, tilde, |
---|
**** | line mark - OS defined! - not characters! |
const token_cnt : CARD := search_sep + 1 ; |
---|
escape, unicode_mark, |
---|
**** | specials for booting! Sather format/number specials |
left_brace, vert_line, right_brace, tilde, |
---|
**** | line mark - OS defined! - not characters! |
work_out_size : CARD |
---|
**** |
________This_routine_calculates_the_storage_size_of_the_default_characters ___from_an_environment_generated_string_(the_current_working_directory_path ___name). |