|
@@ -5,16 +5,16 @@ uses
|
|
|
|
|
|
const
|
|
const
|
|
fname = 'Makefile';
|
|
fname = 'Makefile';
|
|
-
|
|
|
|
|
|
+
ThisDir = '.'+DirectorySeparator;
|
|
var
|
|
var
|
|
fn : string;
|
|
fn : string;
|
|
begin
|
|
begin
|
|
- fn:=FileSearch(fname,';');
|
|
|
|
|
|
+ fn:=FileSearch(fname,PathSeparator);
|
|
writeln('found: ',fn);
|
|
writeln('found: ',fn);
|
|
if fn<>fname then
|
|
if fn<>fname then
|
|
halt(1);
|
|
halt(1);
|
|
- fn:=FileSearch('./'+fname,';');
|
|
|
|
|
|
+ fn:=FileSearch(ThisDir+fname,PathSeparator);
|
|
writeln('found: ',fn);
|
|
writeln('found: ',fn);
|
|
- if fn<>'./'+fname then
|
|
|
|
|
|
+ if fn<>'.'+fname then
|
|
halt(1);
|
|
halt(1);
|
|
end.
|
|
end.
|