home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_PAS / XLIB_TP5.ZIP / UTIL / MAKE_MF.PAS < prev    next >
Pascal/Delphi Source File  |  1993-12-13  |  1KB  |  49 lines
  1. uses dos,X_FileIO;
  2.  
  3.  
  4. procedure Help;
  5. begin;
  6.   WriteLn('Make_MF <MasterFileName> <filemask1> [<filemast2> ...]');
  7.   WriteLn;
  8.   WriteLn('With this program, you can "move" many files to a big one,');
  9.   WriteLn('but your program (if they use X_FileIO) read all data !,');
  10.   WriteLn('as if still exists the many, little files.');
  11.   Halt(1);
  12. end;
  13. type big=Array[0..2000] of LongInt;
  14. var i:Byte;
  15.     S:SearchRec;
  16.     tt:^big;
  17.  
  18. begin;
  19.   new(tt);
  20.   WriteLn('Make_MF    Make a MasterFile');
  21.   WriteLn;
  22.   if paramcount<2 then Help;
  23.  
  24.   Init_File_List;              (* Init the FileList *)
  25.  
  26.   for i:=2 to paramcount do    (* Add all filename from parameters *)
  27.   begin;
  28.     findfirst(paramstr(i),anyfile,S);
  29.     while DosError=0 do
  30.     begin;
  31.       if Add_File_List(S.Name) then WriteLn('Adding ',S.Name:12,' .');
  32.       findnext(S);
  33.     end;
  34.   end;
  35.  
  36.   if Get_File_item_count<1 then    (* Error - filemask was wrong *)
  37.   begin;
  38.     WriteLn('None files found ! - Nothing to do.');
  39.     WriteLn;
  40.     Halt(2);
  41.   end;
  42.  
  43.   Make_MasterFile(paramstr(1));
  44.   Kill_File_List;                  (* nonsens before ending *)
  45.  
  46.   WriteLn('Ok.')
  47.  
  48.  
  49. end.