FreeXP

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