Index: freexp/freexp.pas
===================================================================
RCS file: freexp/freexp.pas
diff -N freexp/freexp.pas
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ freexp/freexp.pas 20 Apr 2006 07:20:42 -0000 1.1
@@ -0,0 +1,89 @@
+{ --------------------------------------------------------------- }
+{ Dieser Quelltext ist urheberrechtlich geschuetzt. }
+{ (c) 2006 FreeXP, http://www.freexp.de }
+{ }
+{ Dieser Quelltext dient ausschließlich dazu, in FreeXP }
+{ verwendete Quelltexte Dritter, die von FreeXP modifiziert }
+{ wurden, auch in anderen Programmen als FreeXP verwenden zu }
+{ können. }
+{ --------------------------------------------------------------- }
+{ $Id: freexp.pas,v 1.1 2006/04/20 07:20:42 mw Exp $ }
+{ Unit freexp }
+unit freexp;
+{$I-}
+interface
+
+const FMRead = $00; { Konstanten für Filemode }
+ FMWrite = $01;
+ FMRW = $02;
+ FMDenyNone = $40;
+ FMDenyRead = $30;
+ FMDenyWrite = $20;
+ FMDenyBoth = $10;
+ FMCompatible = $00;
+
+procedure fm_ro; { Filemode ReadOnly }
+procedure fm_rw; { Filemode Read/Write }
+Function Hex(const l:longint; const n:byte):string; { Hex-Zahl mit n
Stellen }
+Function existf(var f):boolean; { Datei vorhanden ? }
+
+implementation
+
+procedure fm_ro; { Filemode ReadOnly }
+begin
+ filemode:=fmRead;
+end;
+
+procedure fm_rw; { Filemode Read/Write }
+begin
+ filemode:=fmRW;
+end;
+
+function Hex(const l:longint; const n:byte):string;
+const hexch : array[0..15] of char = '0123456789ABCDEF';
+var s : string[8];
+ f : shortint;
+ trim : boolean;
+begin
+ trim:=(n=0);
+ if trim then f:=28 else f:=((n-1)*4);
+ s:='';
+ while f>=0 do begin
+ s:=s+hexch[(l shr f)and $f];
+ dec(f,4);
+ end;
+ if trim then
+ while (length(s)>1) and (s[1]='0') do
+ delete(s,1,1);
+ Hex:=s;
+end;
+
+Function existf(var f):Boolean;
+var
+ fm : byte;
+begin
+ existf:=false;
+ fm:=filemode;
+ filemode:=FMDenyNone;
+ reset(file(f));
+ if IOResult=0 then
+ begin
+ close(file(f));
+ existf:=true;
+ end;
+ filemode:=fm;
+ if ioresult = 0 then ;
+end;
+
+end.
+{
+ $Log: freexp.pas,v $
+ Revision 1.1 2006/04/20 07:20:42 mw
+ MW: - Neue Unit FreeXP:
+ Diese Unit enthält Routinen die dazu dienen von FreeXP modifizierte
+ Quelltexte Dritter (derzeit ist dies nur md5.pas) außerhalb von
+ FreeXP zu kompilieren.
+
+}
+
+
Index: freexp/md5.pas
===================================================================
RCS file: /server/cvs/freexp/md5.pas,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- freexp/md5.pas 16 Apr 2006 16:15:09 -0000 1.8
+++ freexp/md5.pas 20 Apr 2006 07:18:10 -0000 1.9
@@ -1,8 +1,10 @@
-{ $Id: md5.pas,v 1.8 2006/04/16 16:15:09 mw Exp $ }
+{ $Id: md5.pas,v 1.9 2006/04/20 07:18:10 mw Exp $ }
unit MD5;
{$I-}
{MD5 - 128 bit Hash function}
+{ FreeXP-Setting}
+{$DEFINE freexp}
interface
@@ -53,6 +55,7 @@
3.09fxp1 20.02.06 fxp STD.INC is now part of this file
3.09fxp2 28.03.06 fxp md5sum generates MD5SUM as a String[32]
3.09fxp3 31.03.06 fxp md5sum splitted in _file and _string
+ 3.09fxp4 20.04.06 fxp bugfixing and freexp-unit
**************************************************************************)
(*-------------------------------------------------------------------------
@@ -332,7 +335,7 @@
{$ifopt Q+} {$define OverflowChecks_on} {$endif}
{$endif}
-uses typeform,fileio,hash;
+uses {$IFDEF FreeXP}typeform,fileio,{$ELSE}freexp,{$ENDIF}hash;
type md5str = string[32];
@@ -951,6 +954,10 @@
end.
{
$Log: md5.pas,v $
+ Revision 1.9 2006/04/20 07:18:10 mw
+ MW: - Dokumentation und Vorbereitung auf Wiederkompilierbarkeit außerhalbs
+ FreeXP.
+
Revision 1.8 2006/04/16 16:15:09 mw
MW: - Memory-Leak beseitigt.
@@ -978,6 +985,5 @@
automatisch aktualiert, sofern der Benutzer die Datei nicht
modifiziert hat. Dabei wird soweit möglich auch die Sprach-
einstellung berücksichtig.
-
}
Index: freexp/touch.inc
===================================================================
RCS file: /server/cvs/freexp/touch.inc,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- freexp/touch.inc 2 Jan 2006 09:46:11 -0000 1.5
+++ freexp/touch.inc 20 Apr 2006 08:04:09 -0000 1.6
@@ -9,10 +9,13 @@
{ finden Sie in der Datei TOUCH.TXT oder auf }
{ http://www.martinwodrich.de/Software/Touch/nutzung.htm }
{ --------------------------------------------------------------- }
-{ $Id: touch.inc,v 1.5 2006/01/02 09:46:11 mw Exp $ }
+{ $Id: touch.inc,v 1.6 2006/04/20 08:04:09 mw Exp $ }
{ Erstmal einiges definieren }
+{ FreeXP-Setting}
+{$DEFINE freexp}
+
{ Borland Pascal 7.0 oder 8.0 }
{$IFDEF VER70 }
{$DEFINE BP}
@@ -46,6 +49,9 @@
{
$Log: touch.inc,v $
+ Revision 1.6 2006/04/20 08:04:09 mw
+ MW: - Update auf Touch 1.2.4
+
Revision 1.5 2006/01/02 09:46:11 mw
MW: - Update auf Touch 1.2.3
Index: freexp/touch.pas
===================================================================
RCS file: /server/cvs/freexp/touch.pas,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -r1.27 -r1.28
--- freexp/touch.pas 16 Apr 2006 16:15:41 -0000 1.27
+++ freexp/touch.pas 20 Apr 2006 08:04:09 -0000 1.28
@@ -9,7 +9,7 @@
{ finden Sie in der Datei TOUCH.TXT oder auf }
{ http://www.martinwodrich.de/Software/Touch/nutzung.htm }
{ --------------------------------------------------------------- }
-{ $Id: touch.pas,v 1.27 2006/04/16 16:15:41 mw Exp $ }
+{ $Id: touch.pas,v 1.28 2006/04/20 08:04:09 mw Exp $ }
{$IFDEF MSDOS}{$M 32768,131072,655360}{$ENDIF}
program touch;
{$I TOUCH.INC }
@@ -17,18 +17,18 @@
{ Betriebsystemabhaeniges }
{$IFNDEF WINDOWS }
{$IFDEF VPOS2}
-uses use32,dos,crt,md5,fileio;
+uses use32,dos,crt,md5{$IFNDEF freexp},freexp{$ELSE},fileio{$ENDIF};
{$ELSE }
-uses dos,crt{$IFDEF BPLFN},touchlfn{$ENDIF},md5,fileio;
+uses dos,crt{$IFDEF BPLFN},touchlfn{$ENDIF},md5{$IFNDEF
freexp},freexp{$ELSE},fileio{$ENDIF};
{$ENDIF }
{$ELSE }
-uses windos,wincrt,strings,md5,fileio;
+uses windos,wincrt,strings,md5{$IFNDEF freexp},freexp{$ELSE},fileio{$ENDIF};
{$ENDIF }
const anyfile=$21;
{$IFNDEF DPMI}
{$IFNDEF unix}
- beta='.3fxp1'; {Patchlevel 3}
+ beta='.4'; {Patchlevel 4}
{$ELSE}
!!! Touch 1.2 lΣuft nicht auf unixartigen Betriebsystemen !!
beta=' Alpha 7';
@@ -834,6 +834,9 @@
end.
{
$Log: touch.pas,v $
+ Revision 1.28 2006/04/20 08:04:09 mw
+ MW: - Update auf Touch 1.2.4
+
Revision 1.27 2006/04/16 16:15:41 mw
MW: - Bugfix: fehlerhafte Übergabe von Dateinamen an die md5-Funktionen
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
[email protected]
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
