Amiga ISO Collection/AmigaUtilCD1.iso/Editor/FREDV19A.LHA/FrexxEd/fpl/AutoMatch.FPL

Text File | 1995-07-19 | 444 b | 17 lines

export void AutoMatch(string paren)
{
  Output(paren);        // Output the character
  CursorLeft(1);        // Step back to the character
  if (MatchParen()>=0) {    // Try to match it
    Delay(4);            // Make a delay
    MatchParen();        // Match it back
  } else
    ReturnStatus("No match!");  // No match!
  CursorRight(1);        // Step forward
}

AssignKey("AutoMatch(\")\");", ")");
AssignKey("AutoMatch(\"}\");", "}");
AssignKey("AutoMatch(\"]\");", "]");