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
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
[EMAIL PROTECTED]
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
