novice needs help

[cudaron]

Please excuse my 'novice-ness'.
I'm trying to write a macro that will loop through an entire file and find a "~" and insert a CR(carriage return) after it.

my feeble attempt went something like:

macro_file UNWRAP;

void UNWRAP()
{
while (!At_Eof)
{
if (Cur_Char == '~') {
right;
CR;
} else {
right;
}

Any help would greatly appreciated.

[deleyd]

Code: Select all

macro_file UNWRAP;

void move_right()
{
  if (!At_Eof)
  {
    if (At_Eol)
    {
      down;
      goto_col(1);
    }
    else
    {
      right;
    }
  }
}


void UNWRAP()
{
  while (!At_Eof)
  {
     if (Cur_Char == '~') {
        right;
        CR;
     }
     move_right;
  }
}


And if it goes too slow for you, you can add at the beginning of UNWRAP

Code: Select all

refresh=false;

and at the end

Code: Select all

refresh=true;

This will switch off screen updates while it's working.

[shrike]

I would do this:

// See Search_Fwd in CMAc Help
While (Search_Fwd("~", 0) ) // find the Tilda Char
{ Right; // go past it
CR; // insert Carriage Return to cause all
} // following text to the new line

Hope this Help's