home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / TextEditors&Viewers / Texteditors / FFRED10.LHA / fpl / GetFile.FPL < prev    next >
Encoding:
Text File  |  1994-09-22  |  556 b   |  21 lines
  1. export int GetFile_exception(string path, string filename)
  2. {
  3.   int place;
  4.   string extension;
  5.   int ret=0;
  6.  
  7.   place=strstr(filename, ".");
  8.   if (place>0) {
  9.     extension=substr(filename, place+1, -1);
  10.     if (0==Stricmp(extension, "c")) {
  11.       ret=!Request(joinstr(filename, " is a C file!\nLoad it?"));
  12.     } else if (0==Stricmp(extension, "asm")) {
  13.       ret=!Request(joinstr(filename, " is a ASM file!\nLoad it?"));
  14.     } else
  15.       ret=!Request(joinstr(filename, " is unknown!\nLoad it?"));
  16.   }
  17.   return(ret);
  18. }
  19.  
  20. Hook("GetFile", "GetFile_exception");
  21.