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