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 CVS-List@freexp.de http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list