/components/codetools/examples/scanexamples/brokenfilenames.pas
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