class STR_CURSOR < $TEXT_CURSOR{CHAR,STR} |
---|
**** |
__This_class_models_a_pointer_referring_to_the_successive_elements_of ___a_list/string.___It_provides_a_convenient_mechanism_to_convert_string ___representations_of_other_objects_into_objects_of_the_appropriate_classes. ___If_the_expected_objext_representation_was_not_found_then_the_cursor_error ___state_is_set_appropriately. |
$TEXT_CURSOR{_,_} | $CURSOR{_,_} |
attr buffer : STP ; .. Included as buffer |
---|
attr comment_end : STP ; .. Included as comment_end |
---|
attr comment_start : STP ; .. Included as comment_start |
---|
attr error : CURSOR_ERRORS ; .. Included as error |
---|
attr index : CARD ; .. Included as index |
---|
attr is_done : BOOL ; .. Included as is_done |
---|
attr line_no : CARD ; .. Included as line_no |
---|
attr skip_val : ELT ; .. Included as skip_val |
---|
advance .. Included as advance |
---|
advance : SAME .. Included as advance |
---|
bool : BOOL |
---|
card : CARD |
---|
clear .. Included as clear |
---|
clear_error .. Included as clear_error |
---|
create(str : STP) : SAME .. Included as create |
---|
current_line : STP .. Included as current_line |
---|
current_loc_str(cursor_char : CHAR) : STR |
---|
field : FIELD |
---|
flt : FLT |
---|
fltd : FLTD |
---|
get_block( begin_delimiter, finish_delimiter : ELT ) : STP .. Included as get_block |
---|
get_char : ELT .. Included as get_char |
---|
get_hex : CARD |
---|
get_item : ELT .. Included as get_item |
---|
get_line_mark : STP .. Included as get_line_mark |
---|
get_octal : CARD |
---|
get_over_cut(cut_set : STP) : STP .. Included as get_over_cut |
---|
get_pred(predicate : ROUT{ELT} : BOOL) : STP .. Included as get_pred |
---|
get_remainder : STP .. Included as get_remainder |
---|
get_rest_upto(elem : ELT) : STP .. Included as get_rest_upto |
---|
get_str : STP .. Included as get_str |
---|
get_upto(count : CARD) : STP .. Included as get_upto |
---|
get_upto(elem : ELT) : STP .. Included as get_upto |
---|
get_upto : STP .. Included as get_upto |
---|
get_upto_char(ch : ELT) : STP .. Included as get_upto_char |
---|
get_upto_cut(cut_set : STP ) : STP .. Included as get_upto_cut |
---|
get_word(max_size : CARD) : STP .. Included as get_word |
---|
get_word : STP .. Included as get_word |
---|
has_error : BOOL .. Included as has_error |
---|
**** |
__This_predicate_returns_true_if_and_only_if_the_cursor_has_encountered ___an_error_which_has_not_been_cleared._Note_-_this_implementation_is_a_hack ___because_of_compiler_'confusion'_between_zero_and_void_for_immutable_types. |
hex : CARD |
---|
int : INT |
---|
is_line_mark : BOOL .. Included as is_line_mark |
---|
**** |
__This_predicate_returns_true_if_and_only_if_the_cursor_is_positioned_at ___a_line_mark.__The_cursor_is_not_moved. |
is_value(val : ELT) : BOOL .. Included as is_value |
---|
**** |
__This_predicate_returns_true_if_and_only_if_the_current_string_element ___has_the_value_val,_otherwise_false. |
item : ELT .. Included as item |
---|
octal : CARD |
---|
reassign( str : STP) .. Included as reassign |
---|
remaining : CARD .. Included as remaining |
---|
**** | This routine returns the number of items yet to be scanned in
___the_buffer. |
reset_line(val : CARD) |
---|
retract .. Included as retract |
---|
retract : SAME .. Included as retract |
---|
set_comment_end(char : ELT) .. Included as set_comment_end |
---|
set_comment_end(str : STP) .. Included as set_comment_end |
---|
set_comment_start(char : ELT) .. Included as set_comment_start |
---|
set_comment_start(str : STP) .. Included as set_comment_start |
---|
set_index( new_posn : CARD) .. Included as set_index |
---|
set_skip(val : ELT) .. Included as set_skip |
---|
set_skip(val : ELT) : SAME .. Included as set_skip |
---|
skip_block(start_delimiter, finish_delimiter : ELT) .. Included as skip_block |
---|
skip_block(start : STP, stop : STP) : BOOL .. Included as skip_block |
---|
skip_comment : BOOL .. Included as skip_comment |
---|
skip_over .. Included as skip_over |
---|
skip_over( val : ELT) .. Included as skip_over |
---|
skip_over( val : ELT) : SAME .. Included as skip_over |
---|
skip_over(str : STP) .. Included as skip_over |
---|
skip_over(str : STP) : SAME .. Included as skip_over |
---|
skip_over : SAME .. Included as skip_over |
---|
skip_over_line .. Included as skip_over_line |
---|
skip_space .. Included as skip_space |
---|
**** |
skip_space : SAME .. Included as skip_space |
---|
**** |
skip_to .. Included as skip_to |
---|
skip_to(elem : ELT) .. Included as skip_to |
---|
skip_to(elem : ELT) : SAME .. Included as skip_to |
---|
skip_to(str : STP) .. Included as skip_to |
---|
skip_to(str : STP) : SAME .. Included as skip_to |
---|
skip_to : SAME .. Included as skip_to |
---|
skip_word .. Included as skip_word |
---|
skip_word : SAME .. Included as skip_word |
---|
split(ch : CHAR) : FLIST{STR} |
---|
line!(once escape : ELT, out line_num : CARD) : SAME .. Included as line! |
---|
**** | "escape" may be void! |
attr buffer : STP ; .. Included as buffer |
---|
attr comment_end : STP ; .. Included as comment_end |
---|
attr comment_start : STP ; .. Included as comment_start |
---|
attr error : CURSOR_ERRORS ; .. Included as error |
---|
attr index : CARD ; .. Included as index |
---|
attr is_done : BOOL ; .. Included as is_done |
---|
is_same(str : STP) : BOOL .. Included as is_same |
---|
**** |
__This_predicate_returns_true_if_and_only_if_the_string_starting_at ___the_current_positiion_is_identical_to_str.__If_true_is_returned_then_the ___current_index_position_is_at_the_character_next_after_str. |
attr line_no : CARD ; .. Included as line_no |
---|
skip_back_to_line_start .. Included as skip_back_to_line_start |
---|
attr skip_val : ELT ; .. Included as skip_val |
---|
try_skip_comment : BOOL .. Included as try_skip_comment |
---|