lzdefine.inc

delhpi下lzss加密算法源码及例子

{\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
{ ////// CONDITIONAL COMPILATION DIRECTIVES FOR CHIEFLZ //////}
{\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}


{\\\\\\\\\\\ release or debug mode?  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
{\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
{ Conditional compilation to check for any `impossible' scenarios...
  Remove for release code. }

{$DEFINE Debug}


{$IFDEF Debug}
  {$D+,L+,Q+,R+,S+,Y+}
{$ELSE}
  {$Q-,R-,S-}
{$ENDIF}

{\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
{\\\\\\\\\\\\\\\ DLL or static link?  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}

{.$DEFINE aDLL}  { Remove dot to create a Windows/DPMI DLL }

{\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
{\\\\\\\\\\\\\\\ DOS DPMI program?   \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}

{$ifdef DPMI}
 {$ifdef aDLL}
   {$define Windows} {use Windows data types for DOS DPMI DLL}
 {$Endif aDLL}
{$endif DPMI}

{\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
{\\\\\\\\\\\\\\\ Win32 or other platform ?\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}

{$ifdef Win32}
  {$B-}  { Use short-circuit logic }
  {$H+}  { Use long strings        }
  {$I+}  { IO-errors as exceptions }
  {$J-}  { Non-assignable const variables. }
  {$Z1}  { Byte-sized enumerated types }
  {$Define Delphi}
  {$Define Windows}
  {$IFDEF Debug}
    {$W+}           { <<< Stack frames in Debug Code }
    {$WARNINGS On}  { <<< Force compiler to use bacon-saving options }
    {$HINTS On}
  {$ENDIF}
{$else Win32}
  {$B-}  { Use short-circuit logic }
  {$F+)  { Use FAR-calls. This is *essential* in DEBUG code }
  {$I-}  { IO-Error handling performed manually }
  {$ifdef Windows}
    {$define Win16}
  {$endif Windows}
{$endif Win32}


{\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
{\\\\\\\\\\\\\\\ Delphi 1.0?         \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}

{$ifDef Ver80}
  {$Z-}  { Byte-sized enumerated types }
  {$Define Delphi}
{$endif Ver80}

{\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
{\\\\\\\\\\\\\\\ Windows or like platform ?\\\\\\\\\\\\\\\\\\\\\\\\\\\\}

{$ifdef Windows}
{$ifndef Delphi}
  {$define TPW}
{$endif Delphi}
{$endif Windows}