PackageD8Master.pas 1.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172
  1. {
  2. $Project$
  3. $Workfile$
  4. $Revision$
  5. $DateUTC$
  6. $Id$
  7. This file is part of the Indy (Internet Direct) project, and is offered
  8. under the dual-licensing agreement described on the Indy website.
  9. (http://www.indyproject.org/)
  10. Copyright:
  11. (c) 1993-2005, Chad Z. Hower and the Indy Pit Crew. All rights reserved.
  12. }
  13. {
  14. $Log$
  15. }
  16. {
  17. { Rev 1.3 04/09/2004 12:45:18 ANeillans
  18. { Moved the databasename and output paths into a globally accessible variable
  19. { -- makes it a lot easier to override if you need to (as I did for my local
  20. { file structure).
  21. }
  22. {
  23. { Rev 1.2 2004.08.30 11:27:56 czhower
  24. { Updates
  25. }
  26. {
  27. { Rev 1.1 2004.05.19 10:01:50 AM czhower
  28. { Updates
  29. }
  30. {
  31. { Rev 1.0 2004.01.22 8:18:36 PM czhower
  32. { Initial checkin
  33. }
  34. unit PackageD8Master;
  35. interface
  36. uses
  37. Package;
  38. type
  39. TPackageD8Master = class(TPackage)
  40. public
  41. procedure Generate(ACompiler: TCompiler); override;
  42. end;
  43. implementation
  44. uses DModule;
  45. { TPackageD8Master }
  46. procedure TPackageD8Master.Generate(ACompiler: TCompiler);
  47. begin
  48. inherited;
  49. FName := 'Indy' + GCompilerID[Compiler];
  50. FDesc := 'Master';
  51. GenHeader;
  52. GenOptions;
  53. Code('');
  54. Code('requires');
  55. Code(' Borland.Delphi,');
  56. Code(' Borland.Vcl,');
  57. Code(' Borland.VclRtl;');
  58. GenContains;
  59. WriteFile(DM.OutputPath + '\Lib\');
  60. end;
  61. end.