Index: freexp/touch.pas
===================================================================
RCS file: /server/cvs/freexp/touch.pas,v
retrieving revision 1.15
retrieving revision 1.18
diff -u -r1.15 -r1.18
--- freexp/touch.pas 8 Nov 2004 06:56:20 -0000 1.15
+++ freexp/touch.pas 9 Nov 2004 10:56:11 -0000 1.18
@@ -14,7 +14,7 @@
{ finden Sie in der Datei TOUCH.TXT oder auf }
{ http://www.martinwodrich.de/Software/Touch/nutzung.htm }
{ --------------------------------------------------------------- }
-{ $Id: touch.pas,v 1.15 2004/11/08 06:56:20 mw Exp $ }
+{ $Id: touch.pas,v 1.18 2004/11/09 10:56:11 mw Exp $ }
program touch;
{$I TOUCH.INC }
@@ -37,7 +37,7 @@
end;
const anyfile=$21;
- version='1.1c';
+ version='1.1d';
var f:file;
g:text;
@@ -113,14 +113,18 @@
writeln ('');
writeln ('');
writeln ('Macros:');
- writeln (' #: jedes Laufwerk(Nur DOS16)');
+ {$IFDEF BP}
+ writeln (' #: jedes Laufwerk');
+ {$ENDIF}
writeln (' \#\ jeder Verzeichnis einschliesslich gar keins');
writeln (' \##\ und das ganze nochmals rekursiv');
writeln (' # Das aktuelle Verzeichnis und alle alle Dateien in
direkten');
writeln (' Unterverzeichnissen touchen');
writeln (' ## Alle Dateien die im aktuellen Verzeichnis und rekursiv
in');
writeln (' allen Unterverzeichnissen');
+ {$IFDEF BP}
writeln (' ### alle verfuegbaren Dateien (Vorsicht: Auf eigene
Gefahr!!!)');
+ {$ENDIF}
writeln ('');
writeln (' /t=Zeitangabe /d=Datum das gesetzt werden soll');
writeln (' /H auch versteckte Dateien');
@@ -188,8 +192,9 @@
begin
y:=test;
-writeln('Expandiere Makro: '+s);
+writeln('Expandiere Makro: '+s);
if (copy(s,1,2)='#:') then begin
+ {$IFDEF BP}
if s<>'#:' then begin
for i:=1 to 26 do begin
{Alle Laufwerke touchen}
@@ -203,8 +208,9 @@
close(f);
erase(f);
end;
- end;
- end;
+ end;
+ end;
+ {$ENDIF}
end
else if pos('\#\',s)<>0 then begin
{# = keines oder beliebiges Verzeichnis}
@@ -272,14 +278,16 @@
end
else if s='##' then begin
x:='.\##\*.*';
- NewEntry;
+ NewEntry;
end
else if s='###' then begin
+ {$IFDEF BP}
x:='#:\##\*.*';
NewEntry;
+ {$ENDIF}
end;
end;
-{$ENDIF }
+{$ENDIF}
function Testtime(ftime:longint;dateset,timeset:boolean):longint;
var foldtime:longint;
@@ -612,34 +620,21 @@
end.
{
$Log: touch.pas,v $
- Revision 1.15 2004/11/08 06:56:20 mw
- MW: - Fehler in der Hilfe beseitigt.
+ Revision 1.18 2004/11/09 10:56:11 mw
+ MW: - Fehlerbereinigung
+
+ Revision 1.16 2004/11/09 09:54:50 mw
+ MW: - �bernahme von TOUCH 1.1d
Revision 1.14 2004/11/07 09:31:05 mw
MW: - �bernahme von TOUCH 1.1c
Revision 1.13 2004/11/06 21:56:42 mw
- MW: - �bernahme von TOUCH 1.1b:
- - Interne �nderung, um NON-LFN-Versionen leichter zu realisieren.
+ MW: - �bernahme von TOUCH 1.1b
Revision 1.12 2004/11/06 15:52:38 mw
- MW: - �bernahme von TOUCH 1.1a:
- Touch verwendet jetzt eine andere Routine um die
- I/O-Umleitung zu realisieren.
+ MW: - �bernahme von TOUCH 1.1a
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
-
- Revision 1.9 2004/05/29 07:33:12 mw
- MW: - �bernahme von Touch 1.1 Beta 2:
- - Touch erkennt sich jetzt selbst und versucht daher nicht
- mehr sich selbst zu touchen oder gar gro�zuschreiben.
-
- Revision 1.7 2003/09/23 17:26:11 mw
- MW: - �bernahme von Touch 1.1 Beta 1:
- - Touch benutzt jetzt die Standardausgabe und ist damit
- per Ausgabeumleitung verfolgbar.
+ MW: - �bernahme von TOUCH 1.1
}
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
[EMAIL PROTECTED]
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
