CVS daily diff
FreeXP CVS-Server
cvs-list at freexp.de
Son Jan 15 00:00:22 CET 2006
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\*.*
Mehr Informationen über die CVS-List Mailingliste