(* *****************************************************************
** File    : makelink.pas
** Created : 28.04.99
** Author  : 
**
** Macro for FoldMaster
**
** **************************************************************-**)
PROGRAM makelink;

{ Unterprogramm
}
procedure make_linker_cmdfile;
var s,ext : string;
    i : integer;
    lnkf : text;
begin
   if (IsInMakeFold) then begin
      if (IsMakeFoldChanged) then begin
         i := 0; s := '';
         { Projektverzeichnis ermitteln }
         swrite(s, FileNameGetDriveDir(GetProjectName), '\lnkfiles.txt');
         { Datei im Projektverzeichnis oeffnen }
         Assign(lnkf, s);
         Rewrite(lnkf);
         s := '';
         repeat
            { kompletten Dateinamen mit Pfad ermitteln }
            s := IterateMakeModules(true, i);
            if (s <> '') then  begin
               StrLower(s);
               ext := FileNameGetExt(s);
               if (ext = '.asm') OR (ext = '.c') then begin
                  writeln(lnkf,'.\objects\', FileNameGetName(s));
                  writeln(s);
               end;
            end;
            Inc(i);
         until s = '';
         Close(lnkf);
      end else begin
         writeln('Keine Änderung in Projekt');
      end;
   end;
end;

BEGIN
   make_linker_cmdfile;
END.