MODULE TPUPlus_CNTL IDENT "900409"
!****************************************
PROCEDURE EVE_CONTROL_REPLACE
!PROCEDURE MY_EDITOR_REPLACE_CONTROL_CHARACTERS

!---------------------------------------------------------------------------
!  Replace Control Characters (0 - 31) With Displayable Strings
!---------------------------------------------------------------------------

local this_pos,   ! marker  - cursor position at start of routine
      char_range, ! range   - found character
      char,       ! string  - search character
      count,      ! integer - replacement count
      idx;        ! integer - loop index
on_error
  if error = TPU$_STRNOTFOUND then
     char_range := 0;
  endif;
endon_error;

message ('Replacing control characters');

this_pos := mark (none);
count := 0;
idx := 0;
loop;
    exitif idx > 127;
    position (beginning_of (current_buffer));
    char := ascii (idx);
    loop;
        char_range := search (char, forward);
        exitif char_range = 0;
        count := count + 1;
        position (beginning_of (char_range));
        erase_character (1);
        case idx from 0 to 31
            [0]:  copy_text ('<NUL>');
            [1]:  copy_text ('<SOH>');
            [2]:  copy_text ('<STX>');
            [3]:  copy_text ('<ETX>');
            [4]:  copy_text ('<EOT>');
            [5]:  copy_text ('<ENQ>');
            [6]:  copy_text ('<ACK>');
            [7]:  copy_text ('<BEL>');
            [8]:  copy_text ('<BS>');
            [9]:  copy_text ('<TAB>');
            [10]: copy_text ('<LF>');
            [11]: copy_text ('<VT>');
            [12]: copy_text ('<FF>');
            [13]: copy_text ('<CR>');
            [14]: copy_text ('<SO>');
            [15]: copy_text ('<SI>');
            [16]: copy_text ('<DLE>');
            [17]: copy_text ('<XON>');
            [18]: copy_text ('<DC2>');
            [19]: copy_text ('<XOFF>');
            [20]: copy_text ('<DC4>');
            [21]: copy_text ('<NAK>');
            [22]: copy_text ('<SYN>');
            [23]: copy_text ('<ETB>');
            [24]: copy_text ('<CAN>');
            [25]: copy_text ('<EM>');
            [26]: copy_text ('<SUB>');
            [27]: copy_text ('<ESC>');
            [28]: copy_text ('<FS>');
            [29]: copy_text ('<GS>');
            [30]: copy_text ('<RS>');
            [31]: copy_text ('<US>');
        endcase;
        if idx = 127 then
            copy_text ('<DEL>');
        endif;
    endloop;
    idx := idx + 1;
    if ((idx > 31) and (idx < 127)) then
        idx := 127;
    endif;    
endloop;

position (this_pos);
message (fao ('!SL control characters replaced with ASCII strings', count));

ENDPROCEDURE;

!****************************************
PROCEDURE EVE_ASCII_REPLACE
!PROCEDURE MY_EDITOR_REPLACE_ASCII_STRINGS

!---------------------------------------------------------------------------
!  Replace ASCII Strings With Control Characters (0 - 31)
!---------------------------------------------------------------------------

local this_pos,      ! marker  - cursor position at start of routine
      string_range,  ! range   - found string
      search_string, ! string  - search string
      count,         ! integer - replacement count
      idx;           ! integer - loop index
on_error
  if error = TPU$_STRNOTFOUND then
     string_range := 0;
  endif;
endon_error;
message ('Replacing control characters');

this_pos := mark (none);
count := 0;
idx := 0;
loop;
   exitif idx > 127;
   position (beginning_of (current_buffer));
   case idx from 0 to 31
      [0]:  search_string := '<NUL>';
      [1]:  search_string := '<SOH>';
      [2]:  search_string := '<STX>';
      [3]:  search_string := '<ETX>';
      [4]:  search_string := '<EOT>';
      [5]:  search_string := '<ENQ>';
      [6]:  search_string := '<ACK>';
      [7]:  search_string := '<BEL>';
      [8]:  search_string := '<BS>';
      [9]:  search_string := '<TAB>';
      [10]: search_string := '<LF>';
      [11]: search_string := '<VT>';
      [12]: search_string := '<FF>';
      [13]: search_string := '<CR>';
      [14]: search_string := '<SO>';
      [15]: search_string := '<SI>';
      [16]: search_string := '<DLE>';
      [17]: search_string := '<XON>';
      [18]: search_string := '<DC2>';
      [19]: search_string := '<XOFF>';
      [20]: search_string := '<DC4>';
      [21]: search_string := '<NAK>';
      [22]: search_string := '<SYN>';
      [23]: search_string := '<ETB>';
      [24]: search_string := '<CAN>';
      [25]: search_string := '<EM>';
      [26]: search_string := '<SUB>';
      [27]: search_string := '<ESC>';
      [28]: search_string := '<FS>';
      [29]: search_string := '<GS>';
      [30]: search_string := '<RS>';
      [31]: search_string := '<US>';
    endcase;
    if idx = 127 then
        search_string := '<DEL>';
    endif;
    loop;
        string_range := search (search_string, forward);
        exitif string_range = 0;
        count := count + 1;
        position (beginning_of (string_range));
        erase (string_range);
        copy_text (ascii (idx));
    endloop;
    idx := idx + 1;
    if ((idx > 31) and (idx < 127)) then
        idx := 127;
    endif;
endloop;

position (this_pos);
message (fao ('!SL ASCII strings replaced with control characters', count));

ENDPROCEDURE;

ENDMODULE;