dfcode.pas

C,C++ To Delphi转换器的源码

unit DFCode;
// Free for any project that try to translate C to Pascal
// (c)2002 by Paul TOTH <[e-mail]>

interface

procedure SetState(enabled:boolean);
function GetState:boolean;
procedure PushState;
procedure PopState;

procedure Define(name:string);
function Defined(name:string):boolean;

implementation

uses
 Classes,SysUtils;

var
 State  :boolean;
 States :array of boolean;
 Defines:TStringList;

procedure SetState(enabled:boolean);
begin
 State:=enabled;
end;

function GetState:boolean;
begin
 Result:=State;
end;

procedure PushState;
 var
  i:integer;
 begin
  i:=Length(States);
  SetLength(States,i+1);
  States[i]:=State;
 end;

procedure PopState;
 var
  i:integer;
 begin
  i:=Length(States)-1;
  if i<0 then raise exception.create('end if without if');
  State:=States[i];
  SetLength(States,i);
 end;

procedure Define(name:string);
 begin
  if Defined(name) then exit;
  if Defines=nil then Defines:=TStringList.Create;
  Defines.Add(name);
 end;

function Defined(name:string):boolean;
 begin
  result:=(Defines<>nil)and(Defines.IndexOf(name)>=0);
 end;

end.