home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / FREDV19A.LHA / FrexxEd / fpl / ChangeCaseLetter.FPL < prev    next >
Encoding:
Text File  |  1995-07-19  |  442 b   |  21 lines
  1. export void change_case_letter(void)
  2. {
  3.   int oldchar=GetChar();
  4.   int newchar=Islower(oldchar);
  5.  
  6.   if (newchar<0)
  7.     newchar=Isupper(oldchar);
  8.  
  9.   if (oldchar>=0 && newchar>=0) {
  10.     int insertmode=ReadInfo("insert_mode");
  11.     if (insertmode)
  12.       SetInfo(-1, "insert_mode", 0);
  13.     Output(itoc(newchar));
  14.     if (insertmode)
  15.       SetInfo(-1, "insert_mode", 1);
  16.   } else
  17.     CursorRight();
  18. }
  19.  
  20. AssignKey("change_case_letter();", "Amiga g");
  21.