diff options
Diffstat (limited to 'plugins/Actman/iac_jump.pas')
| -rw-r--r-- | plugins/Actman/iac_jump.pas | 78 |
1 files changed, 1 insertions, 77 deletions
diff --git a/plugins/Actman/iac_jump.pas b/plugins/Actman/iac_jump.pas index 8e2bba787c..53268ea5e3 100644 --- a/plugins/Actman/iac_jump.pas +++ b/plugins/Actman/iac_jump.pas @@ -68,7 +68,7 @@ type public
constructor Create(uid:dword);
destructor Destroy; override;
-// function Clone:tBaseAction; override;
+
function DoAction(var WorkData:tWorkData):LRESULT; override;
procedure Save(node:pointer;fmt:integer); override;
procedure Load(node:pointer;fmt:integer); override;
@@ -94,17 +94,7 @@ begin inherited Destroy;
end;
-{
-function tJumpAction.Clone:tBaseAction;
-begin
- result:=tJumpAction.Create(0);
- Duplicate(result);
- result.condition:=condition;
- StrDupW(result.value,value);
- StrDupW(result.actlabel,actlabel);
-end;
-}
function tJumpAction.DoAction(var WorkData:tWorkData):LRESULT;
var
tmpint:int64;
@@ -229,7 +219,6 @@ var buf:array [0..31] of WideChar;
pc:pAnsiChar;
tmp:pWideChar;
- sub:HXML;
oper,cond:byte;
begin
inherited Load(node,fmt);
@@ -291,56 +280,6 @@ begin end;
end;
end;
-
- 1: begin
- sub:=xmlGetNthChild(HXML(node),ioIf,0);
- if sub<>0 then
- begin
- tmp:=xmlGetAttrValue(sub,ioOper);
- if lstrcmpiw(tmp,'math')=0 then flags:=flags or ACF_MATH
- else if lstrcmpiw(tmp,ioNop )=0 then flags:=flags or ACF_NOP;
-
- tmp:=xmlGetAttrValue(sub,ioCond);
- if lstrcmpiw(tmp,ioNop)=0 then flags:=flags or ACF_NOP // compatibility
- else if (flags and ACF_NOP)=0 then
- begin
- if flags and ACF_MATH<>0 then
- begin
- if lstrcmpiw(tmp,'gt' )=0 then condition:=aeGT
- else if lstrcmpiw(tmp,'lt' )=0 then condition:=aeLT
- else if lstrcmpiw(tmp,'eq' )=0 then condition:=aeEQ
- else if lstrcmpiw(tmp,'xor')=0 then condition:=aeXR
- else if lstrcmpiw(tmp,'and')=0 then condition:=aeND;
- end
- else
- begin
- if lstrcmpiw(tmp,'empty')=0 then condition:=aeEMP
- else if lstrcmpiw(tmp,'eq' )=0 then condition:=aeEQU
- else if lstrcmpiw(tmp,'cont' )=0 then condition:=aeCON
- else if lstrcmpiw(tmp,'start')=0 then condition:=aeSTR
- else if lstrcmpiw(tmp,'ends' )=0 then condition:=aeEND;
-
- if StrToInt(xmlGetAttrValue(sub,ioCase))=1 then
- flags:=flags or ACF_CASE;
- if StrToInt(xmlGetAttrValue(sub,ioBack))=1 then
- flags:=flags or ACF_BACK;
- end;
- if StrToInt(xmlGetAttrValue(sub,ioNot))=1 then
- flags:=flags or ACF_NOT;
-
- if ((flags and ACF_MATH)<>0) or (condition<>aeEMP) then
- StrDupW(value,xmlGetAttrValue(sub,ioValue));
- end;
- end;
-
- sub:=xmlGetNthChild(HXML(node),ioPost,0);
- if sub<>0 then
- begin
- tmp:=xmlGetAttrValue(sub,ioOper);
- if lstrcmpiw(tmp,ioBreak)=0 then flags:=flags or ACF_BREAK
- else if lstrcmpiw(tmp,ioJump )=0 then StrDupW(actlabel,xmlGetAttrValue(sub,ioValue));
- end;
- end;
end;
end;
@@ -363,21 +302,6 @@ begin StrCopy(pc,opt_label); DBWriteUnicode(0,DBBranch,section,actlabel);
end;
end;
-{
- 1: begin
- end;
-}
- 13: begin
-{
- ACF_NOP = $00000001;
- ACF_MATH = $00000002;
- ACF_NOT = $00000004;
- ACF_CASE = $00000008;
- ACF_BREAK = $00000010;
- ACF_BACK = $00000020;
- ACF_VALUE = $00000100;
-}
- end;
end;
end;
|