func isTplAnd(pid)
fvar(id, res)

res = 0
id = cgt.pt_get_parent(cgt.pt_get_link_point(pid))
if(cgt.el_get_class_name(id) = "FT_If_else")
if(cgt.pt_get_rlink_point(cgt.get_point_id(onFalse)) = cgt.pt_get_rlink_point(cgt.el_get_point_name(id, "onFalse")))
res = 1
end
end
return(res)
end

func _type(op)
if(typeof(op) = 13 or typeof(op) = 19)
return(expof(op))
else
return(typeof(op))
end
end

func doCompare(data)
fvar(id, op, od, pid, ok)

op = Op1
trace(op)
if(isdef(Type) and isnset(Op2) and isdef(Op2))
id = _type(op)
if(id = 1 or id = 7)
od = op && ' <> 0'
elseif(id = 2)
od = op && ' <> \'\''
else
od = op && ' <> nil'
end
else
od = 'false'
switch(lng.get_type(op))
case 1:
od = op && ' ' && Type && ' ' && e_int(Op2)
case 2:
od = op && ' ' && Type && ' ' && e_str(Op2)
case 7:
od = op && ' ' && Type && ' ' && e_real(Op2)
case 102:
switch(lng.get_type(Op2))
case 1:
od = e_int(op) && ' ' && Type && ' ' && e_int(Op2)
case 2:
od = e_str(op) && ' ' && Type && ' ' && e_str(Op2)
case 7:
od = e_real(op) && ' ' && Type && ' ' && e_real(Op2)
end
end
sub(od, lng.get_type(op))
end

if(linked(onTrue))
if(isTplAnd(cgt.get_point_id(onTrue)))
if(isTplAnd(cgt.pt_arr_work(0)))
print('(', od, ') and ')
else
print('if((', od, ') and ')
end
event(onTrue, isndef(OutData) ? "" : _data_)
ok = 1
end
end

if(ok != 1)
if(isTplAnd(cgt.pt_arr_work(0)))
println('(', od, ') )then')
lng.begin()
ok = 1
end

if(ok != 1)
println('if ', od, ' then')
lng.begin()
end

od = isndef(OutData) ? "" : _data_
event(onTrue, od)
block.declvl()
if(linked(onFalse))
println('end')
else
println('end;')
end
if(linked(onFalse))
id = cgt.pt_get_parent(cgt.pt_get_link_point(cgt.get_point_id(onFalse)))
if(cgt.el_get_class_name(id) = "FT_If_else")
print('else ')
event(onFalse, od)
else
println('else')
lng.begin()
event(onFalse, od)
lng.end()
end
end
end
end

func Result
return('(' && Op1 && ' ' && Type && ' ' && Op2 && ')')
end

func doif(data)
Print('if ',code(ify),' then ')
Event(onif)
end
func doIFE(data)
Print(' else ',code(ysl))
Event(onIFE)
end