/components/codetools/examples/scanexamples/brokenfilenames.pas

http://github.com/graemeg/lazarus · Pascal · 27 lines · 14 code · 8 blank · 5 comment · 0 complexity · 10b41567e468fba0d98d41364f5a3696 MD5 · raw file 

    

  1. unit BrokenFilenames; 
    2. 

  2. 

  3. {$mode objfpc}{$H+}
    4. 

  4. 

  5. interface
    6. 

  6. 

  7. 

  8. uses
    9. 

  9.   Classes,
    10. 

  10.   CustApp,
    11. 

  11.   biglettersunit, // must be fixed to BigLettersUnit
    12. 

  12.   biglettersunit in 'biglettersunit.pas',// -> BigLettersUnit.pas
    13. 

  13.   biglettersunit in '..\ScanExamples\biglettersunit.pas',// -> BigLettersUnit.pas
    14. 

  14.   NonExistingUnit1, NonExistingUnit2, SysUtils, NonExistingUnit3,
    15. 

  15.   {$IFDEF FPC}
    16. 

  16.   NonExistingUnit4
    17. 

  17.   {$ELSE}
    18. 

  18.   NonExistingUnit5
    19. 

  19.   {$ENDIF};
    20. 

  20. 

  21. {$I BROKENincfiles.inc}// must be fixed to brokenincfiles.inc
    22. 

  22. {$I ../ScanInstances/BROKENincfile2.inc}// must be fixed to ../scaninstances/brokenincfiles.inc
    23. 

  23. 

  24. implementation
    25. 

  25. 

  26. end.
    27.