Index: freexp/touch.pas
===================================================================
RCS file: /server/cvs/freexp/touch.pas,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- freexp/touch.pas 29 May 2004 07:43:56 -0000 1.10
+++ freexp/touch.pas 12 Aug 2004 11:15:49 -0000 1.11
@@ -14,16 +14,18 @@
{ finden Sie in der Datei TOUCH.TXT oder auf }
{ http://www.martinwodrich.de/Software/Touch/nutzung.htm }
{ --------------------------------------------------------------- }
-{ $Id: touch.pas,v 1.10 2004/05/29 07:43:56 mw Exp $ }
+{ $Id: touch.pas,v 1.11 2004/08/12 11:15:49 mw Exp $ }
program touch;
{Erstmal einiges definieren}
{Borland Pascal 7.0 oder 8.0}
{$IFDEF VER70 }
{$DEFINE BP}
+ {$DEFINE BPLFN}
{$ENDIF }
{$IFDEF VER80 }
{$DEFINE BP}
+ {$DEFINE BPLFN}
{$ENDIF }
{Andere Compiler brauchen momentan keine Extras}
@@ -33,7 +35,7 @@
{$IFDEF OS2 }
uses use32,dos,crt;
{$ELSE }
-uses dos,crt{$IFDEF BP},touchlfn{$ENDIF};
+uses dos,crt{$IFDEF BPLFN},touchlfn{$ENDIF};
{$ENDIF }
{$ELSE }
uses windos,wincrt,strings;
@@ -47,7 +49,7 @@
end;
const anyfile=$21;
- version='1.1 Beta 2';
+ version='1.1';
var f:file;
g:text;
@@ -83,10 +85,6 @@
findone,uc,nt : boolean;
function ownfile:Pathstr;
-var ps : pathstr;
- ds : string;
- ns : string;
- es : string;
begin
FName:=paramstr(0);
{$IFDEF WINDOWS }
@@ -206,7 +204,7 @@
StrPCopy(sp,x);
Findfirst(sp,$10,DirInfo);
{$ELSE}
- {$IFNDEF BP}
+ {$IFNDEF BPLFN}
Findfirst(x,$10,DirInfo);
{$ELSE}
touchlfn.Findfirst(x,$10,DirInfo);
@@ -219,7 +217,7 @@
x:=y+DirInfo.Name+'\'+copy(s,pos('\#\',s)+3,255);
NewEntry;
end;
- {$IFNDEF BP}
+ {$IFNDEF BPLFN}
FindNext(DirInfo);
{$ELSE}
touchlfn.FindNext(DirInfo);
@@ -236,7 +234,7 @@
StrPCopy(sp,x);
Findfirst(sp,$10,DirInfo);
{$ELSE }
- {$IFNDEF BP}
+ {$IFNDEF BPLFN}
Findfirst(x,$10,DirInfo);
{$ELSE}
touchlfn.Findfirst(x,$10,DirInfo);
@@ -249,7 +247,7 @@
x:=y+DirInfo.Name+'\##\'+copy(s,pos('\##\',s)+4,255);
NewEntry;
end;
- {$IFNDEF BP}
+ {$IFNDEF BPLFN}
FindNext(DirInfo);
{$ELSE}
touchlfn.FindNext(DirInfo);
@@ -374,7 +372,7 @@
{$ELSE }
{$M 65520,0,655360}
{$ENDIF }
- {$IFDEF BP}
+ {$IFDEF BPLFN}
if LFNuseage then EnableLFN;
{$ENDIF}
assign(g,'');
@@ -513,7 +511,7 @@
FileSplit(sp,Dir,Name,Ext);
FindFirst(sp,files,DirInfo);
{$ELSE}
- {$IFNDEF BP}
+ {$IFNDEF BPLFN}
FSplit(s,Dir,Name,Ext);
FindFirst(s,files,DirInfo);
{$ELSE}
@@ -568,7 +566,7 @@
else writeln(g,'');
end;
end;
- {$IFNDEF BP}
+ {$IFNDEF BPLFN}
FindNext(DirInfo);
{$ELSE}
touchlfn.FindNext(DirInfo);
@@ -611,6 +609,9 @@
end.
{
$Log: touch.pas,v $
+ Revision 1.11 2004/08/12 11:15:49 mw
+ MW: - �bernahme von TOUCH 1.1 Release
+
Revision 1.10 2004/05/29 07:43:56 mw
MW: - Logkosmetik
Index: freexp/doc/touch.txt
===================================================================
RCS file: /server/cvs/freexp/doc/touch.txt,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- freexp/doc/touch.txt 9 Aug 2003 09:22:11 -0000 1.4
+++ freexp/doc/touch.txt 12 Aug 2004 11:18:02 -0000 1.5
@@ -92,7 +92,10 @@
Datum/Uhrzeit gesetzt wird.
Wird nur Datum oder nur Uhrzeit vorgegeben, so wird die fehlende
-Angabe an den Dateien nicht ver�ndert.
+Angabe an den Dateien nicht ver�ndert. Fehlt jegliche Angabe von
+Datum und Uhrzeit so wird das aktuelle Datum und die aktuelle
+Zeit bei Programmstart benutzt. L�uft Touch also mehrere Sekunden
+so haben dennoch alle Dateien die gleiche Uhrzeit und Datumsangabe.
5. Verzeichnismakros
--------------------
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
[EMAIL PROTECTED]
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
