FreeXP

CVS daily diff

FreeXP CVS-Server cvs-list at freexp.de
Die Jun 29 00:00:42 CEST 2004


Index: freexp/snapx.pas
===================================================================
RCS file: freexp/snapx.pas
diff -N freexp/snapx.pas
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ freexp/snapx.pas	28 Jun 2004 18:53:33 -0000	1.3
@@ -0,0 +1,88 @@
+{ --------------------------------------------------------------- }
+{ Dieser Quelltext ist urheberrechtlich geschuetzt.               }
+{ (c) 2004 FreeXP, http://www.freexp.de                           }
+{ CrossPoint ist eine eingetragene Marke von Peter Mandrella.     }
+{                                                                 }
+{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
+{ Datei SLIZENZ.TXT                                               }
+{ --------------------------------------------------------------- }
+{ $Id: snapx.pas,v 1.3 2004/06/28 18:53:33 jm Exp $ }
+
+{ Extraktions-Tool für Einzeilenkommentare in .DQs }
+program snapx;
+
+uses
+  crt, dos;
+var infile, outfile : text;
+    s, Eingabe, Ausgabe : string;
+    aa : integer;
+
+procedure usage;
+const crlf = #13#10;
+begin
+  writeln(
+    '  Usage:  SnapX  ? | -? | /? | -h | [infile [outfile]]',+crlf+
+    '  Default-Infile:  SNAPSHOT.DQ',+crlf+
+    '  Default-Outfile: EXTRAKT.TXT'
+          );
+  halt(0)
+end;
+
+
+function exist(n:string):boolean;
+var sr : searchrec;
+    ex : boolean;
+begin
+  findfirst(n,anyfile-volumeid-directory,sr);
+  ex:=(doserror=0);
+  while not ex and (doserror=0) do begin
+    findnext(sr);
+    ex:=(doserror=0);
+  end;
+{   findclose(sr); }    { keine LFN-Behandlung }
+  exist:=ex;
+end;
+
+
+begin
+  if (Paramstr(1) = '/?') or (Paramstr(1) = '-?') or (Paramstr(1) = '?')
+    or (Paramstr(1) = '-h') then usage;
+  if Paramstr(1) <> '' then Eingabe := Paramstr(1)
+    else Eingabe := 'SNAPSHOT.DQ';
+  assign(infile, Eingabe);
+  if not exist(Eingabe) then begin
+    writeln(' Das File ',Eingabe,' wurde im Verzeichnis nicht gefunden');
+    usage;  { => halt(0) }
+  end;
+  if Paramstr(2) <> '' then Ausgabe := Paramstr(2)
+    else Ausgabe := 'EXTRAKT.TXT';
+  assign(outfile, Ausgabe);
+  rewrite(outfile);
+  if IOResult <> 0 then begin
+    close(infile);
+    writeln;
+    writeln(' Das Ausgangsfile ',Ausgabe,' konnte nicht geöffnet werden');
+    halt(1);
+  end;
+  reset(infile);
+  aa:=0;
+  while not eof(infile) do begin
+    readln(infile, s);
+    if copy(s,1,1)='%' then begin
+      delete(s,1,1);
+      writeln(outfile, s);
+      inc(aa);
+    end;
+  end;
+  close(infile);
+  close(outfile);
+  writeln(' ',aa,' Einzeilenkommentare von: ',Eingabe,' nach: ',Ausgabe,' kopiert');
+end.
+{ 
+  $Log: snapx.pas,v $
+  Revision 1.3  2004/06/28 18:53:33  jm
+  JM: - Das kleine Tool dient zum Auslesen von Einzeilenkommentaren
+        (die in der ersten Spalte mit "%" beginnen) vorzugsweise
+        aus der Snapshot.DQ, was zur Namensgebung führte.
+
+}
Index: freexp/doc/snapshot.dq
===================================================================
RCS file: /server/cvs/freexp/doc/snapshot.dq,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- freexp/doc/snapshot.dq	25 Jun 2004 12:56:49 -0000	1.11
+++ freexp/doc/snapshot.dq	28 Jun 2004 18:22:55 -0000	1.12
@@ -2595,11 +2595,14 @@
 -----------------
 
 MY:
-%!  Fido: geänderte Serverbox wird berücksichtigt und
-%   "X-XP-BOX" wird jetzt auch bei Fido-Nachrichten erzeugt
+%!  Fido: Bei /N/W/R aus dem Unversandt-Brett bleibt eine vorher
+%   mit "O" im Sendefenster gewählte Serverbox jetzt erhalten
+%   (die neue Headerzeile "X-XP-Box" wird u.a. auch dazu genutzt)
 - Fix: Bei /N/W/R aus Unversandt-Brett wird eine geänderte Serverbox
-  jetzt auch bei Fido-Nachrichten korrekt berücksichtigt (Headerzeile
-  "X-XP-BOX" wird jetzt auch bei Fido-Nachrichten erzeugt).
+  jetzt auch bei Fido-Nachrichten korrekt berücksichtigt, anstatt auf
+  die dem Brett oder User zugewiesene Serverbox zurückzusetzen (die
+  Headerzeile "X-XP-BOX" wird u.a. (!) dafür jetzt auch bei Fido-
+  Nachrichten erzeugt).
   XP6.PAS
 
 MY:
@@ -4486,8 +4489,9 @@
 -------------
 
 MW:
-%*  Linuxversion DOSBOX wird nun erkannt; zugleich wird auf die
-%   Erkennung der freien Filehandles in dieser Umgebung verzichtet
+%*  DOS-Emulator DOSBOX wird jetzt erkannt; das Prüfen auf freie
+%   Filehandles wird aufgrund eines Problems mit der Linuxversion
+%   dieses Emulators danach *nicht* durchgeführt
 - Anpassung an DOSBOX:
   - Erkennung von DOSBOX implementiert.
   - Unter der Linuxversion von DOSBOX (und auch bei anderen unixoiden



Mehr Informationen über die CVS-List Mailingliste