home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / SCRIPT.PAK / FILTSTUB.SPP < prev    next >
Encoding:
Text File  |  1997-05-06  |  1.8 KB  |  63 lines
  1. //----------------------------------------------------------------------------
  2. // cScript
  3. // (C) Copyright 1995, 1997 by Borland International, All Rights Reserved
  4. //
  5. // FILTSTUB.SPP
  6. //   The TransferOutputExists event is generated internally by the IDE when
  7. //   a transfer operation has been completed.  It is the Transfer Object's
  8. //   responsibility to package its output into a TransferOutput object and
  9. //   invoke this event.
  10. //
  11. // $Revision:   1.17  $
  12. //
  13. //----------------------------------------------------------------------------
  14.  
  15. import IDE;
  16.  
  17. // mark this module as being a library module
  18. library;
  19.  
  20. // This handler examines the supplied TransferOutput object to determine
  21. // if the output came from one of the "builtin" transfer tools.  If so, it
  22. // dispatches the object to the correct script for handling that output.
  23. // Note: the names of filter routines are preloaded in startup.spp
  24. //
  25. on IDE:>TransferOutputExists(output){
  26.    declare String str(output.Provider);
  27.    declare Tool = str.Upper();
  28.    switch(Tool.Text){
  29.       case "BORL2MSG":
  30.       case "BORL2MSG.DLL":
  31.          return ParseBorlandMessages(output);
  32.  
  33.       case "GREP2MSG":
  34.       case "GREP2MSG.DLL":
  35.          return ParseGrepMessages(output);
  36.  
  37.       case "HC312MSG":
  38.       case "HC312MSG.DLL":
  39.          return ParseHelpCompilerMessages(output);
  40.  
  41.       case "RC2MSG":
  42.       case "RC2MSG.DLL":
  43.          return ParseResourceCompilerMessages(output);
  44.  
  45.       case "TASM2MSG":
  46.       case "TASM2MSG.DLL":
  47.          return ParseAssemblerMessages(output);
  48.  
  49.       case "GENERIC":
  50.       case "GENERIC.DLL":
  51.          return ParseGenericMessages(output);
  52.  
  53.       case "FILENAME":
  54.       case "FILENAME.DLL":
  55.          return ParseFilenameMessages(output);
  56.    }
  57.  
  58.    // See if anyone else knows what to do
  59.    declare rv = pass(output);
  60.  
  61.    return rv;
  62. }
  63.