Index: freexp/COMPDATE.PAS
===================================================================
RCS file: freexp/COMPDATE.PAS
diff -N freexp/COMPDATE.PAS
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ b/freexp/COMPDATE.PAS 3 May 2004 18:34:04 -0000 1.1
@@ -0,0 +1,31 @@
+{ --------------------------------------------------------------- }
+{ 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 oder auf www.crosspoint.de/oldlicense.html. }
+{ --------------------------------------------------------------- }
+{ $Id: COMPDATE.PAS,v 1.1 2004/05/03 18:34:04 mw Exp $ }
+unit compdate;
+
+interface
+
+const
+ comp_YY:=0;
+ comp_MO:=0;
+ comp_DD:=0;
+ comp_HH:=0;
+ comp_MI:=0;
+ comp_SS:=0;
+
+implementation
+
+end.
+{
+ $Log: COMPDATE.PAS,v $
+ Revision 1.1 2004/05/03 18:34:04 mw
+ MW: - Neue Unit COMPDATE implementiert. Sie erlaubt in Verbindung
+ mit Gendate ein 100% zuverl�ssigen Timestamp beim Compilieren.
+
+}
Index: freexp/GENDATE.PAS
===================================================================
RCS file: freexp/GENDATE.PAS
diff -N freexp/GENDATE.PAS
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ b/freexp/GENDATE.PAS 3 May 2004 18:34:04 -0000 1.1
@@ -0,0 +1,65 @@
+{ --------------------------------------------------------------- }
+{ 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 oder auf www.crosspoint.de/oldlicense.html. }
+{ --------------------------------------------------------------- }
+{ $Id: GENDATE.PAS,v 1.1 2004/05/03 18:34:04 mw Exp $ }
+program gendate;
+
+uses dos,crt;
+
+var t:datetime;
+ hund,dow:Word;
+ f:text;
+ s:string;
+
+begin
+ Gettime(t.Hour,t.Min,t.Sec,hund);
+ Getdate(t.Year,t.Month,t.Day,dow);
+ Assign(f,'COMPDATE.PAS');
+ Rewrite(f);
+ writeln(f,'{ --------------------------------------------------------------- }');
+ writeln(f,'{ Dieser Quelltext ist urheberrechtlich geschuetzt. }');
+ writeln(f,'{ (c) 2004 FreeXP, http://www.freexp.de }');
+ writeln(f,'{ CrossPoint ist eine eingetragene Marke von Peter Mandrella. }');
+ writeln(f,'{ }');
+ writeln(f,'{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }');
+ writeln(f,'{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }');
+ writeln(f,'{ --------------------------------------------------------------- }');
+ writeln(f,'{ '+#36+'Id: '+#36+' }');
+ writeln(f,'unit compdate;');
+ writeln(f,'');
+ writeln(f,'interface');
+ writeln(f,'');
+ writeln(f,'const');
+ str(t.Year,s);
+ writeln(f,' comp_YY:='+s+';');
+ str(t.Month,s);
+ writeln(f,' comp_MO:='+s+';');
+ str(t.Day,s);
+ writeln(f,' comp_DD:='+s+';');
+ str(t.Hour,s);
+ writeln(f,' comp_HH:='+s+';');
+ str(t.Min,s);
+ writeln(f,' comp_MI:='+s+';');
+ str(t.Sec,s);
+ writeln(f,' comp_SS:='+s+';');
+ writeln(f,'');
+ writeln(f,'implementation');
+ writeln(f,'');
+ writeln(f,'end.');
+ writeln(f,'{');
+ writeln(f,' '+#36+'Log: '+#36);
+ writeln(f,'}');
+ close(f);
+end.
+{
+ $Log: GENDATE.PAS,v $
+ Revision 1.1 2004/05/03 18:34:04 mw
+ MW: - Neue Unit COMPDATE implementiert. Sie erlaubt in Verbindung
+ mit Gendate ein 100% zuverl�ssigen Timestamp beim Compilieren.
+
+}
Index: freexp/clip.pas
===================================================================
RCS file: /server/cvs/freexp/clip.pas,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -r1.31 -r1.32
--- a/freexp/clip.pas 9 Jan 2004 16:18:55 -0000 1.31
+++ b/freexp/clip.pas 2 May 2004 23:41:22 -0000 1.32
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: clip.pas,v 1.31 2004/01/09 16:18:55 mw Exp $ }
+{ $Id: clip.pas,v 1.32 2004/05/02 23:41:22 mw Exp $ }
{$I XPDEFINE.INC }
{$O+,F+}
@@ -32,6 +32,7 @@
function InitWinVersion:SmallWord;
procedure DestructWinVersion;
function DOSEmuVersion: String;
+function DOSBOX: boolean;
function NTDiskFree(drive:byte):longint;
function NTDiskSize(drive:byte):longint;
@@ -182,6 +183,12 @@
StrS(DOSEMU_VersionPos[3]) + '.' + StrS(DOSEMU_VersionPos[2]);
end;
+function DOSBOX: boolean;
+var
+ DOSBOX_MAGIC: longint absolute $F000:$FFE0;
+begin
+ if DOSBOX_MAGIC=0 then DOSBOX:=true else DOSBOX:=false;
+end;
{ -------------------------------------------------------- }
{ Hinweis zu diskfree/disksize und Windows NT/2000/XP: }
@@ -788,6 +795,9 @@
end.
{
$Log: clip.pas,v $
+ Revision 1.32 2004/05/02 23:41:22 mw
+ MW: - Anpassungen an DOSBOX
+
Revision 1.31 2004/01/09 16:18:55 mw
MW: - Wir haben jetzt 2004!!
Index: freexp/xp2.pas
===================================================================
RCS file: /server/cvs/freexp/xp2.pas,v
retrieving revision 1.64
retrieving revision 1.67
diff -u -r1.64 -r1.67
--- a/freexp/xp2.pas 9 Jan 2004 16:18:58 -0000 1.64
+++ b/freexp/xp2.pas 3 May 2004 08:29:25 -0000 1.67
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp2.pas,v 1.64 2004/01/09 16:18:58 mw Exp $ }
+{ $Id: xp2.pas,v 1.67 2004/05/03 08:29:25 mw Exp $ }
{ CrossPoint - StartUp }
@@ -920,11 +920,12 @@
const test='CABDEFGHIJKLMNOPQRSTUVWXYZ';
begin
+ if NOT DOSBOX then begin
s1:='';
s2:='';
s3:='';
f:=FreeFILES((needfiles+needreserve));
- if f<((needfiles+needreserve)) then begin
+ if f<(needfiles+needreserve) then begin
nf:=((ConfigFILES+((needfiles+needreserve)-f)+4)div 5)*5;
s1:=getres2(10000+100*(223 div 100),223 mod 100);
truncstr(s1,screenwidth-4);
@@ -981,6 +982,12 @@
halt(1);
end;
savehandles;
+ end
+ else begin
+ {Unter DOSBOX geht der Standardtest auf oeffnen von nul schief.}
+ {Ein spezieller Test fuer DOSBOX eruebrigt sich, da DOSBOX}
+ {immer genuegend FILES bereitstellt (FILES=100)}
+ end;
end;
procedure read_regkey;
@@ -1152,6 +1159,15 @@
end.
{
$Log: xp2.pas,v $
+ Revision 1.67 2004/05/03 08:29:25 mw
+ MW: - Optimierungen der Routinen f�r DOSBOX
+
+ Revision 1.66 2004/05/03 06:09:47 mw
+ MW: - Korrektur des letzten Commits
+
+ Revision 1.65 2004/05/02 23:41:22 mw
+ MW: - Anpassungen an DOSBOX
+
Revision 1.64 2004/01/09 16:18:58 mw
MW: - Wir haben jetzt 2004!!
Index: freexp/xp5.pas
===================================================================
RCS file: /server/cvs/freexp/xp5.pas,v
retrieving revision 1.55
retrieving revision 1.58
diff -u -r1.55 -r1.58
--- a/freexp/xp5.pas 29 Feb 2004 05:02:19 -0000 1.55
+++ b/freexp/xp5.pas 3 May 2004 06:18:20 -0000 1.58
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp5.pas,v 1.55 2004/02/29 05:02:19 mw Exp $ }
+{ $Id: xp5.pas,v 1.58 2004/05/03 06:18:20 mw Exp $ }
{ CrossPoint - Utilities }
@@ -438,7 +438,7 @@
end
else if lnx then write(DOSEmuVersion)
else begin
- write(lo(dosversion):2,'.',formi(hi(dosversion),2));
+ if not DOSBOX then write(lo(dosversion):2,'.',formi(hi(dosversion),2));
if win then begin
gotoxy(x+1,y+1);
case WinVersion of
@@ -514,7 +514,9 @@
wrt(x+4,y+9,getres2(rnr,6)); { verf�gbar }
os2:=lo(dosversion)>=10;
lnx:=DOSEmuVersion <> '';
- wrt(x+4,y+11,iifs(os2,'OS/2',iifs(lnx,'Dosemu','DOS'))+getres2(rnr,7)); {
-Version }
+ if NOT DOSBOX then
+ wrt(x+4,y+11,iifs(os2,'OS/2',iifs(lnx,'Dosemu','DOS'))+getres2(rnr,7)) else {
-Version }
+ wrt(x+4,y+11,'DOSBOX');
if win then
wrt(x+4,y+12,'Windows'+getres2(rnr,7));
attrtxt(col.colmbox);
@@ -1154,6 +1156,15 @@
{
$Log: xp5.pas,v $
+ Revision 1.58 2004/05/03 06:18:20 mw
+ MW: - Bei DOSBOX keine Versionnummer von DOS zur�ckgeben.
+
+ Revision 1.57 2004/05/03 06:09:47 mw
+ MW: - Korrektur des letzten Commits
+
+ Revision 1.56 2004/05/02 23:41:22 mw
+ MW: - Anpassungen an DOSBOX
+
Revision 1.55 2004/02/29 05:02:19 mw
MW: - ISO-Umlaut + Typo korrigiert.
Index: freexp/xpglobal.pas
===================================================================
RCS file: /server/cvs/freexp/xpglobal.pas,v
retrieving revision 1.37
retrieving revision 1.39
diff -u -r1.37 -r1.39
--- a/freexp/xpglobal.pas 9 Jan 2004 16:18:59 -0000 1.37
+++ b/freexp/xpglobal.pas 3 May 2004 08:33:45 -0000 1.39
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xpglobal.pas,v 1.37 2004/01/09 16:18:59 mw Exp $ }
+{ $Id: xpglobal.pas,v 1.39 2004/05/03 08:33:45 mw Exp $ }
{ Globale Konstanten/Variablen (FreeXP) und Tools }
@@ -109,6 +109,12 @@
{
$Log: xpglobal.pas,v $
+ Revision 1.39 2004/05/03 08:33:45 mw
+ MW: - Normale Versionnummer wiederhersgestellt
+
+ Revision 1.38 2004/05/03 08:31:09 mw
+ MW: - DOSBOX-Edition
+
Revision 1.37 2004/01/09 16:18:59 mw
MW: - Wir haben jetzt 2004!!
Index: freexp/auto/technik.am
===================================================================
RCS file: /server/cvs/freexp/auto/technik.am,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- a/freexp/auto/technik.am 13 Apr 2004 07:19:33 -0000 1.2
+++ b/freexp/auto/technik.am 3 May 2004 19:23:53 -0000 1.3
@@ -1,4 +1,4 @@
-From: FreeXP Admins <[EMAIL PROTECTED]>
+From: FreeXP Admin <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>, <[EMAIL PROTECTED]>, <[EMAIL PROTECTED]>, <[EMAIL PROTECTED]>
Subject: Die Technik hinter dem FreeXP-Server
X-Priority: 2
Index: freexp/build/sdisk.lst
===================================================================
RCS file: /server/cvs/freexp/build/sdisk.lst,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- a/freexp/build/sdisk.lst 23 Sep 2003 15:36:32 -0000 1.2
+++ b/freexp/build/sdisk.lst 3 May 2004 14:13:23 -0000 1.3
@@ -1,6 +1,10 @@
DOC\*.*
BINARIES\*.*
+BUILD\*.*
+LOGO\*.*
+BEISPIEL\*.*
+SAMPLES\*.*
*.ASM
-*.ICO
*.RQ
+M*.PAS
Index: freexp/build/DOS16/build.bat
===================================================================
RCS file: /server/cvs/freexp/build/DOS16/build.bat,v
retrieving revision 1.11
retrieving revision 1.14
diff -u -r1.11 -r1.14
--- a/freexp/build/DOS16/build.bat 28 Sep 2003 07:58:33 -0000 1.11
+++ b/freexp/build/DOS16/build.bat 3 May 2004 18:48:46 -0000 1.14
@@ -1,5 +1,5 @@
@ECHO OFF
-REM $Id: build.bat,v 1.11 2003/09/28 07:58:33 mw Exp $
+REM $Id: build.bat,v 1.14 2004/05/03 18:48:46 mw Exp $
REM FreeXP "make" Batchdatei: Kompiliert alle fuer FreeXP relevanten
REM Programme und Ressourcen
@@ -21,6 +21,8 @@
CD ..
REM HILFSPROGRAMME COMPILIEREN
+%COMP% GENDATE
+IF ERRORLEVEL 1 GOTO FEHLER
%COMP% IHS
IF ERRORLEVEL 1 GOTO FEHLER
%COMP% RC
@@ -30,10 +32,15 @@
%COMP% TOUCH
REM HILFSPROGRAMME VERSCHIEBEN
+MOVE BUILD\DOS16\XPDIR\GENDATE.EXE GENDATE.EXE
MOVE BUILD\DOS16\XPDIR\IHS.EXE DOC\IHS.EXE
MOVE BUILD\DOS16\XPDIR\DOCFORM.EXE DOC\DOCFORM.EXE
MOVE BUILD\DOS16\XPDIR\RC.EXE RC.EXE
+REM COMPDATE ERZEUGEN
+GENDATE.EXE
+DEL GENDATE.EXE
+
REM ALLES COMPILIEREN
%COMP% MAGGI
IF ERRORLEVEL 1 GOTO FEHLER
@@ -155,7 +162,7 @@
REM ALLES EINMAL TOUCHEN
REM mit MW-Touch
-%TOUCH% .\#\*.* /G
+%TOUCH% .\#\*.* /R=..\..\..\COMPDATE.PAS /G
CD ..
MD DISTRI
CD XPDIR
@@ -191,6 +198,15 @@
GOTO ENDE
{
$Log: build.bat,v $
+ Revision 1.14 2004/05/03 18:48:46 mw
+ MW: - Korrektur des letzten Commits
+
+ Revision 1.13 2004/05/03 18:37:19 mw
+ MW: - Als Reverenzdatei f�r TOUCH wird jetzt COMPDATE.PAS verwendet
+
+ Revision 1.12 2004/05/03 18:31:52 mw
+ MW: - Gendate eingetragen
+
Revision 1.11 2003/09/28 07:58:33 mw
MW: - Interiums�nderungen:
XPOINT.TXT wird jetzt kopiert und nicht gemoved
Index: freexp/doc/snapshot.dq
===================================================================
RCS file: /server/cvs/freexp/doc/snapshot.dq,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- a/freexp/doc/snapshot.dq 15 Mar 2004 09:07:28 -0000 1.2
+++ b/freexp/doc/snapshot.dq 3 May 2004 10:53:34 -0000 1.3
@@ -36,7 +36,8 @@
D. Snapshot vom 21.04.2002, 17:17 Uhr
E. Snapshot vom 28.04.2002, 20:00 Uhr
F. Snapshot vom 31.08.2003, 01:30 Uhr
-G. Snapshot vom xx.xx.2003, xx:xx Uhr
+G. Inoffizelle DOSBOX-Edition vom 03.05.2004, 10:35 Uhr
+H. Snapshot vom xx.xx.2004, xx:xx Uhr
###
>>% ab hier beginnt eine vor Umbruch gesch�tzte Tabelle bis zum ENDE
@@ -3636,9 +3637,9 @@
XPFIDONL.PAS
-%Snapshot vom xx.xx.2003, xx:xx Uhr
-G. Snapshot vom xx.xx.2003, xx:xx Uhr
----------------------------------------
+%Inoffizelle DOSBOX-Edition vom 03.05.2004, 10:35 Uhr
+G. Inoffizelle DOSBOX-Edition vom 03.05.2004, 10:35 Uhr
+---------------------------------------------------------
� 03.09.2003
-------------
@@ -3755,4 +3756,21 @@
verhindert (kein konkreter Bug in FreeXP hierzu bekannt).
XP3O.INC
+� 03.05.2004
+-------------
+MW:
+- Anpassung an DOSBOX:
+ - Erkennung von DOSBOX implementiert.
+ - Unter der Linuxversion von DOSBOX (und auch bei anderen unixoiden
+ Betriebsystemen) funktioniert die Erkennung der freien Filehandles
+ nicht. Da DOSBOX allerdings mit 100 Filehandles eh gen�gend Handles
+ zur Verf�gung stellt, wird die Erkennung der freien Filehandle unter
+ DOSBOX nicht mehr versucht.
+ - Anzeige in X/S/S ge�ndert. DOSBOX wird jetzt angezeigt (ohne
+ Versionsnummer).
+ XP2.PAS, XP5.PAS, CLIP.PAS
+
+%Snapshot vom xx.xx.2004, xx:xx Uhr
+H. Snapshot vom xx.xx.2004, xx:xx Uhr
+---------------------------------------
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
[EMAIL PROTECTED]
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
