home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / TextEditors&Viewers / Texteditors / FFRED10.LHA / fpl / FindFunction.FPL < prev    next >
Encoding:
Text File  |  1994-09-22  |  396 b   |  17 lines
  1. export int FindFunction()
  2. {
  3.   int line=ReadInfo("line");
  4.  
  5.   while (line>1) {
  6.     if (GetChar(0, line) == 123) {   /* We found beginning of function */
  7.       ReturnStatus(GetLine(line-1));
  8.       line=0;            /* Clear 'line' to exit */
  9.     }
  10.     line--;
  11.   }
  12.   if (line>0)    /* No function found, return that */
  13.     ReturnStatus("No function found!");
  14.  
  15. }
  16. AssignKey("FindFunction();", "Amiga control f");
  17.