littletest50.out

来自「格式化源码的最新板」· OUT 代码 · 共 67 行

unit LittleTest50;


{ AFS 13 October 2003
 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility

 the 'warrawak' bits should nver be hit by the compiler
}

{ another $IFDEF test }

interface

implementation

{$DEFINE FOO}
{$IF Defined(FOO)}
const
  Soy = 3;
{$ELSEIF Defined(BAR)}
 warrawak1
{$IFEND}

{$UNDEF FOO}
{$IF Defined(FOO)}
  warrawak2
{$ELSEIF Defined(BAR)}
 warrawak3
{$IFEND}

{$DEFINE BAR}
{$IF Defined(FOO)}
  warrawak4
{$ELSEIF Defined(BAR)}

const
  Monkey = 3;
{$IFEND}

{$UNDEF BAR}
{$DEFINE FISH}
{$IF Defined(FOO)}
  warrawak5
{$ELSEIF Defined(BAR)}
  warrawak6
{$ELSEIF Defined(FISH)}

const
  Koln = 3;
{$IFEND}

{$DEFINE BAR}

{$IF Defined(FOO)}
  warrawak7
{$ELSEIF Defined(BAR)}

const
  Munchen = 4;
{$ELSEIF Defined(FISH)}
  warrawak8
{$IFEND}


end.