Index: freexp/compdate.pas
===================================================================
RCS file: /server/cvs/freexp/compdate.pas,v
retrieving revision 1.2
retrieving revision 1.4
diff -u -r1.2 -r1.4
--- a/freexp/compdate.pas 10 May 2004 20:43:18 -0000 1.2
+++ b/freexp/compdate.pas 11 May 2004 08:39:38 -0000 1.4
@@ -6,24 +6,34 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: compdate.pas,v 1.2 2004/05/10 20:43:18 my Exp $ }
+{ $Id: compdate.pas,v 1.4 2004/05/11 08:39:38 my Exp $ }
unit compdate;
interface
const
- comp_YY:='0000';
- comp_MO:='00';
- comp_DD:='00';
- comp_HH:='00';
- comp_MI:='00';
- comp_SS:='00';
+ comp_YY : string[4] = '0000';
+ comp_MO : string[2] = '00';
+ comp_DD : string[2] = '00';
+ comp_HH : string[2] = '00';
+ comp_MI : string[2] = '00';
+ comp_SS : string[2] = '00';
implementation
end.
{
$Log: compdate.pas,v $
+ Revision 1.4 2004/05/11 08:39:38 my
+ MY:- Umstellung von Konstanten auf initialisierte Konstanten (die kann
+ man in den Routinen dann ggf. �ndern und ben�tigt weniger
+ redundanten Code, wenn man bei IDE-Compilaten das Dateidatum statt
+ des echten Compile-Timestamps verwenden mu�).
+
+ Revision 1.3 2004/05/10 22:17:59 my
+ MY:- const-Syntax korrigiert ('comp_XX:=<string>' kann doch gar nicht
+ funktioniert haben??) ;-)
+
Revision 1.2 2004/05/10 20:43:18 my
MY:- In Dummy-Unit 'compdate.pas' allen Konstanten vier- bzw.
zweistellige Strings aus Nullen zuweisen (statt Integer).
@@ -49,7 +59,7 @@
TOUCH.EXE auf denselben korrekten Compile-Timestamp gesetzt.
4. Das Ganze funktioniert *nicht* bei (z.B. zu Testzwecken) �ber
die IDE erzeugten Compilaten. Damit diese �berhaupt erstellt
- werden k�nnen, befindet sich im CVS-Repository ein Dummy-Unit
+ werden k�nnen, befindet sich im CVS-Repository eine Dummy-Unit
compdate.pas, die ausschlie�lich Strings aus Nullen enth�lt. Die
Programme, die compdate.pas benutzen, m�ssen darauf pr�fen (z.B.
"if comp_YY='0000'") und sollten dann wie fr�her ersatzweise den
Index: freexp/gendate.pas
===================================================================
RCS file: /server/cvs/freexp/gendate.pas,v
retrieving revision 1.2
retrieving revision 1.5
diff -u -r1.2 -r1.5
--- a/freexp/gendate.pas 10 May 2004 20:43:46 -0000 1.2
+++ b/freexp/gendate.pas 11 May 2004 13:22:17 -0000 1.5
@@ -6,7 +6,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: gendate.pas,v 1.2 2004/05/10 20:43:46 my Exp $ }
+{ $Id: gendate.pas,v 1.5 2004/05/11 13:22:17 mw Exp $ }
program gendate;
uses dos,crt,typeform;
@@ -14,6 +14,7 @@
var t:datetime;
hund,dow:Word;
f:text;
+ tp:longint;
begin
Gettime(t.Hour,t.Min,t.Sec,hund);
@@ -34,12 +35,12 @@
writeln(f,'interface');
writeln(f,'');
writeln(f,'const');
- writeln(f,' comp_YY:='''+strs(t.Year)+''';');
- writeln(f,' comp_MO:='''+formi(t.Month,2)+''';');
- writeln(f,' comp_DD:='''+formi(t.Day,2)+''';');
- writeln(f,' comp_HH:='''+formi(t.Hour,2)+''';');
- writeln(f,' comp_MI:='''+formi(t.Min,2)+''';');
- writeln(f,' comp_SS:='''+formi(t.Sec,2)+''';');
+ writeln(f,' comp_YY : string[4] = '''+strs(t.Year)+''';');
+ writeln(f,' comp_MO : string[2] = '''+formi(t.Month,2)+''';');
+ writeln(f,' comp_DD : string[2] = '''+formi(t.Day,2)+''';');
+ writeln(f,' comp_HH : string[2] = '''+formi(t.Hour,2)+''';');
+ writeln(f,' comp_MI : string[2] = '''+formi(t.Min,2)+''';');
+ writeln(f,' comp_SS : string[2] = '''+formi(t.Sec,2)+''';');
writeln(f,'');
writeln(f,'implementation');
writeln(f,'');
@@ -47,10 +48,26 @@
writeln(f,'{');
writeln(f,' '+#36+'Log: '+#36);
writeln(f,'}');
+ Packtime(t,tp); {Zur Sicherheit nochmal ein Touch}
+ SetFTime(f,tp); {auf compdate.pas}
close(f);
end.
{
$Log: gendate.pas,v $
+ Revision 1.5 2004/05/11 13:22:17 mw
+ MW: - Vor dem Close noch ein Touch um sicherzustellen, das die gesetzten
+ Konstanten mit dem Filedatum �bereinstimmen.
+
+ Revision 1.4 2004/05/11 08:39:38 my
+ MY:- Umstellung von Konstanten auf initialisierte Konstanten (die kann
+ man in den Routinen dann ggf. �ndern und ben�tigt weniger
+ redundanten Code, wenn man bei IDE-Compilaten das Dateidatum statt
+ des echten Compile-Timestamps verwenden mu�).
+
+ Revision 1.3 2004/05/10 22:17:59 my
+ MY:- const-Syntax korrigiert ('comp_XX:=<string>' kann doch gar nicht
+ funktioniert haben??) ;-)
+
Revision 1.2 2004/05/10 20:43:46 my
MY:- Konstanten comp_MO, comp_DD, comp_HH, comp_MI und comp_SS via
typeform.strs() ggf. mit Nullen zu zweistelligen Zahlen auff�llen
@@ -80,7 +97,7 @@
TOUCH.EXE auf denselben korrekten Compile-Timestamp gesetzt.
4. Das Ganze funktioniert *nicht* bei (z.B. zu Testzwecken) �ber
die IDE erzeugten Compilaten. Damit diese �berhaupt erstellt
- werden k�nnen, befindet sich im CVS-Repository ein Dummy-Unit
+ werden k�nnen, befindet sich im CVS-Repository eine Dummy-Unit
compdate.pas, die ausschlie�lich Strings aus Nullen enth�lt. Die
Programme, die compdate.pas benutzen, m�ssen darauf pr�fen (z.B.
"if comp_YY='0000'") und sollten dann wie fr�her ersatzweise den
Index: freexp/xpglobal.pas
===================================================================
RCS file: /server/cvs/freexp/xpglobal.pas,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -r1.39 -r1.40
--- a/freexp/xpglobal.pas 3 May 2004 08:33:45 -0000 1.39
+++ b/freexp/xpglobal.pas 10 May 2004 22:20:58 -0000 1.40
@@ -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.39 2004/05/03 08:33:45 mw Exp $ }
+{ $Id: xpglobal.pas,v 1.40 2004/05/10 22:20:58 my Exp $ }
{ Globale Konstanten/Variablen (FreeXP) und Tools }
@@ -41,6 +41,7 @@
author_fido = '2:2433/460';
author_mail = '[EMAIL PROTECTED]';
author_url = 'http://www.freexp.de/';
+ compiler = 'Borland Pascal 7.01';
xp_xp : string[17] = 'CrossPoint/FreeXP';
xp_display : string[6] = 'FreeXP';
@@ -109,6 +110,9 @@
{
$Log: xpglobal.pas,v $
+ Revision 1.40 2004/05/10 22:20:58 my
+ MY:- Konstante 'compiler' erg�nzt
+
Revision 1.39 2004/05/03 08:33:45 mw
MW: - Normale Versionnummer wiederhersgestellt
Index: freexp/build/DOS16/build.bat
===================================================================
RCS file: /server/cvs/freexp/build/DOS16/build.bat,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- a/freexp/build/DOS16/build.bat 3 May 2004 18:48:46 -0000 1.14
+++ b/freexp/build/DOS16/build.bat 11 May 2004 13:25:10 -0000 1.15
@@ -1,5 +1,5 @@
@ECHO OFF
-REM $Id: build.bat,v 1.14 2004/05/03 18:48:46 mw Exp $
+REM $Id: build.bat,v 1.15 2004/05/11 13:25:10 mw Exp $
REM FreeXP "make" Batchdatei: Kompiliert alle fuer FreeXP relevanten
REM Programme und Ressourcen
@@ -37,6 +37,9 @@
MOVE BUILD\DOS16\XPDIR\DOCFORM.EXE DOC\DOCFORM.EXE
MOVE BUILD\DOS16\XPDIR\RC.EXE RC.EXE
+REM STD-COMPDATE SICHERN
+IF NOT EXIST COMPDATE.DUM MOVE COMPDATE.PAS COMPDATE.DUM
+
REM COMPDATE ERZEUGEN
GENDATE.EXE
DEL GENDATE.EXE
@@ -179,16 +182,21 @@
CD ..
CD ..
CD ..
+
+REM STD-COMPDATE ZURUECKSCHREIBEN
+DEL COMPDATE.PAS
+MOVE COMPDATE.DUM COMPDATE.PAS
+
REM Source-Komplettarchiv
PKZIP -rP [EMAIL PROTECTED] BUILD\DOS16\DISTRI\FXP340S.ZIP *.*
REM 2 Disketten Source
PKZIP -rP [EMAIL PROTECTED] [EMAIL PROTECTED] BUILD\DOS16\DISTRI\FXP340S1.ZIP *.*
PKZIP -rP [EMAIL PROTECTED] BUILD\DOS16\DISTRI\FXP340S2.ZIP @BUILD\SDISK.LST
+
+REM Ein letzter Touch
CD BUILD
CD DOS16
CD DISTRI
-
-REM Ein letzter Touch
%TOUCH% *.* /R=../XPDIR/XP.EXE /G
DEL %TOUCH%
CD ..
@@ -198,6 +206,13 @@
GOTO ENDE
{
$Log: build.bat,v $
+ Revision 1.15 2004/05/11 13:25:10 mw
+ MW: - Dummy-COMPDATE.PAS sichern und zur�ckschreiben statt immer
+ �berschreiben. Dies stellt sicher das Builds aus der IDE auch
+ wirklich immer die Inhalte der Dummy-COMPDATE.PAS enthalten.
+ Und damit damit erstellte Programmteile wirklich das Filedatum
+ auswerten.
+
Revision 1.14 2004/05/03 18:48:46 mw
MW: - Korrektur des letzten Commits
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
[EMAIL PROTECTED]
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
