Index: freexp/gendate.pas =================================================================== RCS file: /server/cvs/freexp/gendate.pas,v retrieving revision 1.8 retrieving revision 1.9 diff -u -r1.8 -r1.9 --- freexp/gendate.pas 13 Jan 2006 17:05:36 -0000 1.8 +++ freexp/gendate.pas 14 Jan 2006 09:24:10 -0000 1.9 @@ -6,15 +6,16 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: gendate.pas,v 1.8 2006/01/13 17:05:36 mw Exp $ } +{ $Id: gendate.pas,v 1.9 2006/01/14 09:24:10 mw Exp $ } program gendate; uses dos,crt,typeform; -var t:datetime; - hund,dow:Word; - f:text; - tp:longint; +var t : datetime; + outpath : dirstr; + hund,dow : Word; + f : text; + tp : longint; begin {BEGIN TOUCH.CTL} @@ -35,7 +36,14 @@ end; filemode:=2; {END TOUCH.CTL} - Assign(f,'compdate.pas'); + outpath:=''; + if (paramcount=1) then begin + outpath:=paramstr(1); + if outpath<>'' then + if outpath[length(outpath)]<>'\' then + outpath:=outpath+'\'; + end; + Assign(f,outpath+'compdate.pas'); Rewrite(f); writeln(f,'{ --------------------------------------------------------------- }'); writeln(f,'{ Dieser Quelltext ist urheberrechtlich geschuetzt. }'); @@ -70,6 +78,9 @@ end. { $Log: gendate.pas,v $ + Revision 1.9 2006/01/14 09:24:10 mw + MW: - Gendate versteht jetzt als ersten Parameter einen Ausgabepfad + Revision 1.8 2006/01/13 17:05:36 mw MW: - Neues Feature: Gendate kann jetzt eine Referenzdatei benutzen. Index: freexp/build/ALL/exclude.lst =================================================================== RCS file: /server/cvs/freexp/build/ALL/exclude.lst,v retrieving revision 1.2 retrieving revision 1.3 diff -u -r1.2 -r1.3 --- freexp/build/ALL/exclude.lst 13 Jan 2006 17:02:37 -0000 1.2 +++ freexp/build/ALL/exclude.lst 14 Jan 2006 09:18:59 -0000 1.3 @@ -1,4 +1,3 @@ -AUTO\*.* CVS\*.* BEISPIEL\CVS\*.* BUILD\CVS\*.* @@ -6,8 +5,8 @@ BUILD\DOS16\DISTRI\*.* BUILD\DOS16\XPDIR\*.* BUILD\ALL\CVS\*.* +BUILD\ALL\TOUCH.CTL DOC\CVS\*.* SAMPLES\CVS\*.* TRIAL\*.* BINARIES\CVS\*.* -HOMEPAGE\*.*
------------------------------------------------------------------------ FreeXP CVS-Mailingliste CVS-List@freexp.de http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list