littletest50.out

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

unit littletest50;

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.