PageRenderTime 20ms CodeModel.GetById 15ms app.highlight 2ms RepoModel.GetById 1ms app.codeStats 0ms

/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
 1unit BrokenFilenames; 
 2
 3{$mode objfpc}{$H+}
 4
 5interface
 6
 7
 8uses
 9  Classes,
10  CustApp,
11  biglettersunit, // must be fixed to BigLettersUnit
12  biglettersunit in 'biglettersunit.pas',// -> BigLettersUnit.pas
13  biglettersunit in '..\ScanExamples\biglettersunit.pas',// -> BigLettersUnit.pas
14  NonExistingUnit1, NonExistingUnit2, SysUtils, NonExistingUnit3,
15  {$IFDEF FPC}
16  NonExistingUnit4
17  {$ELSE}
18  NonExistingUnit5
19  {$ENDIF};
20
21{$I BROKENincfiles.inc}// must be fixed to brokenincfiles.inc
22{$I ../ScanInstances/BROKENincfile2.inc}// must be fixed to ../scaninstances/brokenincfiles.inc
23
24implementation
25
26end.
27