CVS daily diff

[FreeXP CVS-Server]

Index: freexp/touch.pas
===================================================================
RCS file: /server/cvs/freexp/touch.pas,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- freexp/touch.pas    6 Nov 2004 21:56:42 -0000       1.13
+++ freexp/touch.pas    7 Nov 2004 09:31:05 -0000       1.14
@@ -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.13 2004/11/06 21:56:42 mw Exp $ }
+{ $Id: touch.pas,v 1.14 2004/11/07 09:31:05 mw Exp $ }
 program touch;
 {$I TOUCH.INC }
 
@@ -37,7 +37,7 @@
    end;
 
 const anyfile=$21;
-      version='1.1b';
+      version='1.1c';
 
 var f:file;
     g:text;
@@ -88,7 +88,7 @@
 
 procedure logo;
 begin
-  writeln ('Touch '+version+' (c) 2003 by Martin Wodrich');
+  writeln ('Touch '+version+' (c) 2003-2004 by Martin Wodrich');
   writeln ('');
   own:=ownfile;
 end;
@@ -106,6 +106,11 @@
     writeln ('Parameter fehlt');
     writeln ('');
     writeln ('touch file1 file2 ... /t=hh:mm:ss /d=tt.mm.[yy]yy /r=refdatei /H 
/S /V /G /K /LFN');
+    write ('                      ');
+    {$IFDEF BPLFN}
+    write('/LFN ');
+    {$ENDIF}   
+    writeln ('');
     writeln ('');
     writeln ('Macros:');
     writeln (' #:    jedes Laufwerk(Nur DOS16)');
@@ -123,7 +128,9 @@
     writeln (' /V    Vortaeuschmodus (Simulationslauf)');
     writeln (' /G    Dateien in Grossbuchstaben wandeln');
     writeln (' /K    (nur bei /G wirksam) Dateidatum und Uhrzeit beibehalten');
+    {$IFDEF BPLFN}
     writeln (' /LFN  lange Dateinamen benutzen (Vorsicht: Nur einschalten wenn 
unterstuetzt');
+    {$ENDIF}
 end;
 
 procedure isok(meldung:integer);
@@ -157,6 +164,15 @@
  ismacro:=re;
 end;
 
+procedure newmacro;
+begin
+  {Dateien und Macros speichern}
+  NEW(n);
+  n^.text:=s;
+  n^.next:=st;
+  st:=n;
+end;
+
 procedure exmacro;
 const test='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
 var x,y : string[79];
@@ -454,14 +470,7 @@
          Close(f);
         end;
       end
-      else
-      begin
-        {Dateien und Macros speichern}
-        NEW(n);
-        n^.text:=s;
-        n^.next:=st;
-        st:=n;
-       end;
+      else newmacro;
     end;
     if ((ref and dateset) or (ref and timeset)) then begin
       Writeln('Entweder Datum/Uhrzeit oder Referenzdatei');
@@ -603,6 +612,9 @@
 end.
 {
   $Log: touch.pas,v $
+  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.

------------------------------------------------------------------------
FreeXP CVS-Mailingliste
[EMAIL PROTECTED]
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list