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
