[fpc-pascal] Weird DosError values

[Matthews]

Hello all.

I'm using a function and a procedure, both which deal with finding files in 
the same directory, and then either counting them, or reading them, but I'm 
getting some very weird values for DosError.  I'm using v1.0.10, and I 
continue to get a value of 183 from DosError in the function (which is in 
my unit), but a DosError value of 0 from the procedure inside the main 
file.  The code is below.
	
Does anybody know what DosError 183 means, and if so, can I avoid this in 
any way?

Thanks.

-Lukas M.

PS Does anybody have a more elegant solution to determine when there are no 
more files in a directory?  I had to use the workaround of duplicate 
filenames because DosError was always 0.

This is the setup:

var
    dir_in:string;
    dir_out:string;
Procedure Main;	
	begin
// Normally set from the command line, but dir_in and dir_out are always 
these values.
	        dir_in := 'C:\2dapad\in'; // This directory has 64 files in it 
(all 2DAs)
	        dir_out := 'C:\2dapad\pad';

                  num_files := NumberOfFiles(dir_in,'*.2da');
	        if num_files = 0 then EndProgram('There were no files.') // Just 
halts the program and writes a message on screen.
                  else if num_files = -1 then EndProgram('Unable to open ' 
+ dir_in)
                  else if num_files = -2 then EndProgram('DosError in ' + 
dir_in);
                  // Num_files always equals 1.
	        GetBatchFile;
	end;

Function NumberOfFiles(path,ext:string):longint;
// Searches through the passed directory (if one is given) for files of a 
particular extension.
// '' for ext = '*.*'
// Note: This is the function that does't work (the one in my unit)
     var
        i:longint;
        q:longint;
        curr,old:string;
        temp:TSearchRec;
        ex:string;
     begin
          i := 0;
          curr := GetCurrentDir;
          if (ext = '') OR (ReplaceChrStr(ext,'.','') = ext) then ex := '*.*'
          else ex := ext;
          if path <> '' then
             begin
                  GetShortName(path);
                  if SetCurrentDir(path) = FALSE then NumberOfFiles := -1; 
// If there's an error, exit soon.
             end;
          FindFirst(ex,anyfile,temp);
          q := DosError;
// Right here, this function ends, because DosError = 183.
          if q <> 0 then
             begin
                  writeln('DosError = ' + IntToStr(q));
                  repeat until readkey <> '';
                  NumberOfFiles := -2;
             end;
          inc(i);
          old := temp.name;
          FindNext(temp);
          q := DosError;
          if (q = 0) AND (temp.name <> old) then
             begin
                  inc(i);
                  old := '';
                  while ((old = '') OR (DosError = 0)) AND (temp.name <> 
old) do
                        begin
                             old := temp.Name;
                             FindNext(temp);
                             inc(i);
                        end;
             end;
          FindClose(temp);
          GetShortName(curr);
          if (path <> '') then SetCurrentDir(curr);
          NumberOfFiles := i;
     end;

// This the function in the main file, that does work.
// pads_skipped and pads_created are just global counters for number of 
files already dealth with.
// dir_out is also set by the user.
Procedure GetBatchFile;
     var
        f:tSearchRec;
        curr:string;
        i:integer;
        label batch_search;
     begin
          batch_search: // I know I'm bad...
          if name_in <> '' then last_file := ExtractFileName(name_in) else 
last_file := '';
          curr := GetCurrentDir;
          GetShortName(dir_in);
          if SetCurrentDir(dir_in) = FALSE then EndProgram('Error: Unable 
to change directory from ' + GetCurrentDir + ' to ' + dir_in);
          i := 0;
          FindFirst('*.2da',anyfile,f);
          i := DosError;
// Right here, and later, DosError is always 0.
          if i <> 0 then
             begin
                  Log('DosError = ' + IntToStr(i));
                  name_in := '??_BATCH_END';
                  FindClose(f);
                  GetShortName(curr);
                  SetCurrentDir(curr);
                  exit;
             end;
          i := 0;
          while (i < (pads_created + pads_skipped)) AND (DosError = 0) do 
// Keep going until a new file is found (the nth file in the list.)
                begin
                     FindNext(f);
                     inc(i);
                end;
          if (DosError <> 0) OR (last_file = f.Name) then
             begin
                  name_in := '??_BATCH_END';
                  FindClose(f);
                  GetShortName(curr);
                  SetCurrentDir(curr);
                  exit;
             end
          else
              begin
                   GetShortName(curr);
                   SetCurrentDir(curr);
                   name_in := dir_in + f.Name;
                   FindClose(f);
                   if dir_in[length(dir_in)] <> '\' then 
insert('\',name_in,length(dir_in)+1);
                   name_out := dir_out + 
ChangeFileExt(ExtractFileName(name_in),'.pad');
                   if dir_out[length(dir_out)] <> '\' then 
insert('\',name_out,length(dir_out)+1);
                   if (FileExists(name_out)) AND (overwrite = FALSE) then
                      begin
                           inc(pads_skipped);
                           Log('PAD for ' + ExtractFileName(name_in) + ' 
already exists - skipped.');
                           goto batch_search;
                      end;
              end;
     end;

_______________________________________________
fpc-pascal maillist  -  [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal