Index: freexp/fxpbhelp.pas =================================================================== RCS file: /server/cvs/freexp/fxpbhelp.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -u -r1.2 -r1.3 --- freexp/fxpbhelp.pas 2 Jan 2006 12:28:50 -0000 1.2 +++ freexp/fxpbhelp.pas 2 Apr 2006 13:51:14 -0000 1.3 @@ -6,7 +6,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: fxpbhelp.pas,v 1.2 2006/01/02 12:28:50 mw Exp $ } +{ $Id: fxpbhelp.pas,v 1.3 2006/04/02 13:51:14 mw Exp $ } { FreeXP - BuildHelper } @@ -14,7 +14,7 @@ program fxpbhelp; -uses dos,xpglobal; +uses dos,xpglobal,timemark,dosx; procedure logo; begin @@ -26,11 +26,13 @@ end; begin + StandardIO; logo; if paramcount<>1 then halt; if paramstr(1)='OVR' then begin writeln ('OVR-TESTING'); {$IFDEF USEOVR} + setmark('XP.OVR'); halt(10); {$ELSE} halt; @@ -40,6 +42,11 @@ end. { $Log: fxpbhelp.pas,v $ +Revision 1.3 2006/04/02 13:51:14 mw +MW: - Zeitstempel von XP.OVr wird nicht mehr aus dem Verzeichnis + entnommen sondern aus einer 8 Byte großen Zeitsignatur am + Dateiende. + Revision 1.2 2006/01/02 12:28:50 mw MW: - Frohes neues Jahr 2006 Index: freexp/ihs.pas =================================================================== RCS file: /server/cvs/freexp/ihs.pas,v retrieving revision 1.17 retrieving revision 1.18 diff -u -r1.17 -r1.18 --- freexp/ihs.pas 13 Jan 2006 19:11:21 -0000 1.17 +++ freexp/ihs.pas 2 Apr 2006 12:51:36 -0000 1.18 @@ -15,11 +15,11 @@ { 1.3 (c) 01/2003 FreeXP } { 1.4 (c) 01/2006 FreeXP } -{ $Id: ihs.pas,v 1.17 2006/01/13 19:11:21 mw Exp $ } +{ $Id: ihs.pas,v 1.18 2006/04/02 12:51:36 mw Exp $ } {$R-,S-} -uses crt,dos,typeform,fileio,xpglobal; +uses crt,dos,typeform,fileio,xpglobal,dosx; const maxpages = 4096; version = '1.4'; @@ -346,6 +346,7 @@ begin clrscr; + StandardIO; writeln('Intelligent Help System Rel. '+version); writeln('(c) 1989-1999 Peter Mandrella, '+x_copyright+' '+xp_display); writeln; @@ -409,6 +410,9 @@ } { $Log: ihs.pas,v $ + Revision 1.18 2006/04/02 12:51:36 mw + MW: - RC und IHS benutzen jetzt StandardIO statt StandardError; + Revision 1.17 2006/01/13 19:11:21 mw MW: - IHS.EXE unterstützt jetzt als zweiten Parameter einen Ausgabepfad. Index: freexp/rc.pas =================================================================== RCS file: /server/cvs/freexp/rc.pas,v retrieving revision 1.16 retrieving revision 1.17 diff -u -r1.16 -r1.17 --- freexp/rc.pas 2 Jan 2006 12:28:50 -0000 1.16 +++ freexp/rc.pas 2 Apr 2006 12:51:36 -0000 1.17 @@ -8,11 +8,11 @@ { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } { Ressourcen-Compiler } -{ $Id: rc.pas,v 1.16 2006/01/02 12:28:50 mw Exp $ } +{ $Id: rc.pas,v 1.17 2006/04/02 12:51:36 mw Exp $ } {$I XPDEFINE.INC } -uses crt,dos,typeform,fileio,xpglobal; +uses crt,dos,typeform,fileio,xpglobal,dosx; const open : boolean = false; maxblk = 4; { max. 4 Ressourcen-Segmente } @@ -308,6 +308,7 @@ begin clrscr; + StandardIO; writeln('Resource Compiler v'+version); writeln('(c) 1992-1999 Peter Mandrella, '+x_copyright+' '+xp_display); writeln; @@ -325,6 +326,9 @@ { $Log: rc.pas,v $ + Revision 1.17 2006/04/02 12:51:36 mw + MW: - RC und IHS benutzen jetzt StandardIO statt StandardError; + Revision 1.16 2006/01/02 12:28:50 mw MW: - Frohes neues Jahr 2006 Index: freexp/timemark.pas =================================================================== RCS file: freexp/timemark.pas diff -N freexp/timemark.pas --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ freexp/timemark.pas 2 Apr 2006 13:51:14 -0000 1.1 @@ -0,0 +1,100 @@ +{ --------------------------------------------------------------- } +{ Dieser Quelltext ist urheberrechtlich geschuetzt. } +{ (c) 2006 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: timemark.pas,v 1.1 2006/04/02 13:51:14 mw Exp $ } + +{$I XPDEFINE.INC } + +unit timemark; + +interface + +procedure setmark(fl:string); +function getmark(fl:string):longint; + +implementation + +uses compdate,fileio,dos; + +type tmark = record + sig1,sig2,sig3,sig4: byte; + mark: longint; + end; + +var rmark : tmark; + res:integer; + +function complong:longint; +var dt:datetime; + code:integer; + ft:longint; +begin + if comp_YY='0000' then complong:=0 + else begin + Val(comp_YY,dt.year,code); + Val(comp_MO,dt.Month,code); + Val(comp_DD,dt.Day,code); + Val(comp_HH,dt.Hour,code); + Val(comp_MI,dt.Min,code); + Val(comp_SS,dt.Sec,code); + Packtime(dt,ft); + complong:=ft; + end; +end; + +procedure setmark(fl:string); +var f:file; + size:longint; +begin + rmark.sig1:=$46; + rmark.sig2:=$58; + rmark.sig3:=$50; + rmark.sig4:=$0; + rmark.mark:=complong; + if rmark.mark=0 then exit; + {$I-} + assign(f,fl); + reset(f,1); + {$I+} + if ioresult <>0 then exit; + size:=filesize(f); + seek(f,size); + blockwrite(f,rmark,sizeof(rmark),res); + close(f); +end; + +function getmark(fl:string):longint; +var f:file; + size:longint; +begin + fm_ro; + {$I-} + assign(f,fl); + reset(f,1); + {$I+} + fm_rw; + if ioresult <>0 then exit; + size:=filesize(f); + seek(f,size-sizeof(tmark)); + blockread(f,rmark,sizeof(rmark),res); + if res<>sizeof(tmark) then exit; + if ioresult<>0 then exit; + if (rmark.sig1=$46) and (rmark.sig2=$58) and (rmark.sig3=$50) and (rmark.sig4=$0) then + getmark:=rmark.mark else getmark:=0; +end; + +begin +end. +{ + $Log: timemark.pas,v $ + Revision 1.1 2006/04/02 13:51:14 mw + MW: - Zeitstempel von XP.OVr wird nicht mehr aus dem Verzeichnis + entnommen sondern aus einer 8 Byte großen Zeitsignatur am + Dateiende. + +} \ No newline at end of file Index: freexp/xpx.pas =================================================================== RCS file: /server/cvs/freexp/xpx.pas,v retrieving revision 1.39 retrieving revision 1.40 diff -u -r1.39 -r1.40 --- freexp/xpx.pas 28 Mar 2006 09:15:02 -0000 1.39 +++ freexp/xpx.pas 2 Apr 2006 13:51:14 -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: xpx.pas,v 1.39 2006/03/28 09:15:02 mw Exp $ } +{ $Id: xpx.pas,v 1.40 2006/04/02 13:51:14 mw Exp $ } { CrossPoint - First Unit } @@ -19,7 +19,7 @@ interface uses - ems, xms, overxms, crt, dos,dosx,typeform,fileio,mouse,inout,xp0,crc,xpglobal, mcb,compdate; + ems, xms, overxms, crt, dos,dosx,typeform,fileio,mouse,inout,xp0,crc,xpglobal, mcb,compdate,timemark; implementation @@ -109,12 +109,21 @@ end; end; +function ovrdate:longint; +var t:longint; + +begin + t:=getmark(Progname+'.ovr'); + if t=0 then t:=filetime(Progname+'.ovr'); + ovrdate:=t; +end; + procedure TestOVR; var c,cc : char; begin if not exist(Progname+'.ovr') then stop('Die Datei '+Progname+'.OVR fehlt!'); - if (complong<>0) and (abs(complong-filetime(Progname+'.ovr'))>=60) then begin + if (complong<>0) and (abs(complong-ovrdate)>=60) then begin writeln; writeln('WARNUNG: Das Dateidatum von '+Progname+'.OVR stimmt nicht mit dem von '+Progname+'.EXE'); writeln(' überein. '+Progname+'.OVR stammt offenbar von einer anderen '+xp_display+'-'); @@ -378,6 +387,11 @@ { $Log: xpx.pas,v $ + Revision 1.40 2006/04/02 13:51:14 mw + MW: - Zeitstempel von XP.OVr wird nicht mehr aus dem Verzeichnis + entnommen sondern aus einer 8 Byte großen Zeitsignatur am + Dateiende. + Revision 1.39 2006/03/28 09:15:02 mw MW: - Overlaytest benutzt jetzt das in der Compdate-Unit hinterlegte Datum. Workaround gegen Fehlverhalten von Windows XP. Index: freexp/build/DOS16/build.bat =================================================================== RCS file: /server/cvs/freexp/build/DOS16/build.bat,v retrieving revision 1.42 retrieving revision 1.43 diff -u -r1.42 -r1.43 --- freexp/build/DOS16/build.bat 28 Mar 2006 15:14:11 -0000 1.42 +++ freexp/build/DOS16/build.bat 2 Apr 2006 13:40:45 -0000 1.43 @@ -1,5 +1,5 @@ @ECHO OFF -:REM $Id: build.bat,v 1.42 2006/03/28 15:14:11 mw Exp $ +:REM $Id: build.bat,v 1.43 2006/04/02 13:40:45 mw Exp $ :REM :REM ╔══════════ BUILD.BAT ═════════════════════════════════════════════════╗ :REM ║ ║ @@ -152,8 +152,6 @@ %BP_PATH%\BPC.EXE %BP_OPT% -EBUILD\DOS16\XPDIR TOUCH IF ERRORLEVEL 1 GOTO FEHLER_1 -%BP_PATH%\BPC.EXE %BP_OPT% -EBUILD\DOS16\XPDIR FXPBHELP -IF ERRORLEVEL 1 GOTO FEHLER_1 :REM Standard-COMPDATE sichern IF EXIST compdate.pas IF NOT EXIST compdate.pa$ REN compdate.pas compdate.pa$ @@ -162,6 +160,10 @@ GENDATE.EXE DEL GENDATE.EXE +:REM Build-Helper erstellen +%BP_PATH%\BPC.EXE %BP_OPT% -EBUILD\DOS16\XPDIR FXPBHELP +IF ERRORLEVEL 1 GOTO FEHLER_1 + ECHO. ECHO ┌────────────────────────────────────────────────────────────────────────┐ ECHO │ Schritt 3: FreeXP compilieren ... │ @@ -437,6 +439,9 @@ { $Log: build.bat,v $ + Revision 1.43 2006/04/02 13:40:45 mw + MW: - Helper wird nach Erstellen von COMPDATE erstellt. + Revision 1.42 2006/03/28 15:14:11 mw MW: - Datei mime.typ wird jetzt auch eingepackt.
------------------------------------------------------------------------ FreeXP CVS-Mailingliste CVS-List@freexp.de http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list