{---------------------------------------------------------------------------
The control program for mass-spectrometer MI1201-AGM
(c) Copyright	 Aleksandrov O.E., 2001

   Molecular Physics department, USTU, Ekaterinsburg, K-2, 620002, RUSSIA
   phone 75-47-15
   E-mail: aleks@dpt.ustu.ru

Программа управления масс-спектрометром МИ1201-АГМ
(c) Собственность     Александрова О.Е., 2001

   620002, Екатеринбург, К-2, УГТУ, Кафедра молекулярной физики
   тел. 75-47-15
   E-mail: aleks@dpt.ustu.ru
----------------------------------------------------------------------------}
unit MCAD_MI1201_RangeCheck;

interface
  uses
    Windows, McadUserTypes;

type
  tCheck=(fReal, fInt, fMin, fMax, fPos, fNonZero);
  tChecks=set of tCheck;

function CheckCS(const cs:COMPLEXSCALAR; Checks:tChecks;
                 Min,Max:int64; ParNum:byte):lRESULT;
function CheckCS_RIMP(const cs:COMPLEXSCALAR; Max:int64; ParNum:byte):lRESULT;
function CheckCS_RIM(const cs:COMPLEXSCALAR; Max:int64; ParNum:byte):lRESULT;
function CheckCS_RM(const cs:COMPLEXSCALAR; Max:int64; ParNum:byte):lRESULT;
function CheckCS_RIMm(const cs:COMPLEXSCALAR; Min,Max:int64; ParNum:byte):lRESULT;
function CheckCS_RMm(const cs:COMPLEXSCALAR; Min,Max:int64; ParNum:byte):lRESULT;
function CheckCS_RIMZ(const cs:COMPLEXSCALAR; Max:int64; ParNum:byte):lRESULT;
function CheckCS_RP(const cs:COMPLEXSCALAR; ParNum:byte):lRESULT;
function CheckCS_R(const cs:COMPLEXSCALAR; ParNum:byte):lRESULT;

function CheckS(const s:DOUBLE; Checks:tChecks;
                 Min,Max:integer; ParNum:byte):lRESULT;
function CheckS_IMP(const s:DOUBLE; Max:integer; ParNum:byte):lRESULT;
function CheckS_IMmP(const s:DOUBLE; Min,Max:integer; ParNum:byte):lRESULT;

implementation
  Uses MCAD_MI1201_Errors;

function CheckIntAndMaxValue(const a:ComplexArray; MaxValue:cardinal):LRESULT;
  var i:byte;
begin
  Result:=0;
  for i:=0 to Pred(a.rows) do begin
    if (Frac(a.hReal[0,i])<>0.0) then begin
      Result:=MakeErrorResult(ecMUST_BE_INTEGER, Succ(i));
      Exit;
    end;
    if (Trunc(a.hReal[0,i])>(High(cardinal) div 2)) then begin
      Result:=MakeErrorResult(ecINVALID_PARAMETER_VALUE, Succ(i));
      Exit;
    end;
  end;
end;

function CheckS;
begin
  if (fInt in Checks) and (Frac(s)<>0.0) then
    Result:=MakeErrorResult(ecMUST_BE_INTEGER,ParNum)
  else if (fPos in Checks) and (s<0) then
    Result:=MakeErrorResult(ecMUST_BE_POSITIVE,ParNum)
  else if ((fMax in Checks) and (Trunc(s)>Max))
       or ((fMin in Checks) and (Trunc(s)<Min))
       or ((fNonZero in Checks) and (s=0)) then
    Result:=MakeErrorResult(ecINVALID_PARAMETER_VALUE,ParNum)
  else Result:=0;
end;

function CheckS_IMP;
begin
  Result:=CheckS(s,[fInt,fMax,fPos],0,Max,ParNum);
end;

function CheckS_IMmP(const s:DOUBLE; Min,Max:integer; ParNum:byte):lRESULT;
begin
  Result:=CheckS(s,[fInt,fMin,fMax,fPos],Min,Max,ParNum);
end;

function CheckCS;
begin
  if (fReal in Checks) and (cs.imag<>0.0) then
    Result:=MakeErrorResult(ecMUST_BE_REAL,ParNum)
  else if (fInt in Checks) and (Frac(cs.real)<>0.0) then
    Result:=MakeErrorResult(ecMUST_BE_INTEGER,ParNum)
  else if (fPos in Checks) and (cs.real<0) then
    Result:=MakeErrorResult(ecMUST_BE_POSITIVE,ParNum)
  else if ((fMax in Checks) and (Trunc(cs.real)>Max))
       or ((fMin in Checks) and (Trunc(cs.real)<Min))
       or ((fNonZero in Checks) and (cs.real=0)) then
    Result:=MakeErrorResult(ecINVALID_PARAMETER_VALUE,ParNum)
  else Result:=0;
end;

function CheckCS_RIMP;
begin
  Result:=CheckCS(cs,[fReal,fMax,fPos],0,Max,ParNum);
end;

function CheckCS_RIM;
begin
  Result:=CheckCS(cs,[fReal,fInt, fMax],0,Max,ParNum);
end;

function CheckCS_RM;
begin
  Result:=CheckCS(cs,[fReal,fMax],0,Max,ParNum);
end;

function CheckCS_RIMm;
begin
  Result:=CheckCS(cs,[fReal,fInt, fMax, fMin],Min,Max,ParNum);
end;

function CheckCS_RMm;
begin
  Result:=CheckCS(cs,[fReal, fMax, fMin],Min,Max,ParNum);
end;

function CheckCS_RIMZ;
begin
  Result:=CheckCS(cs,[fReal,fInt,fMax,fNonZero],0,Max,ParNum);
end;

function CheckCS_RP;
begin
  Result:=CheckCS(cs,[fReal,fPos],0,0,ParNum);
end;

function CheckCS_R;
begin
  Result:=CheckCS(cs,[fReal],0,0,ParNum);
end;

end.