<..========================================================
==                                                       ==
==                Macrobject Nuva Samples                ==
==                                                       ==
==      Copyright (c) 2004-2006 Macrobject Software      ==
==                                                       ==
==                  ALL RIGHTS RESERVED                  ==
==                                                       ==
==               http://www.macrobject.com               ==
==                                                       ==
========================================================..>
<.
  function T1()
    result = true
    ?? 'T1'
  end function
  
  function T2()
    result = true
    ?? 'T2'
  end function
  
  function F1()
    result = false
    ?? 'F1'
  end function
  
  ?? T1() and T2() and F1()
  ?? '-------------------------------'
  ?? T1() and ( T2() or F1() )
  ?? '-------------------------------'
  ?? F1() or T1() and T2()
  ?? '-------------------------------'
  ?? F1() and T1() and T2()
  ?? '-------------------------------'
  ?? F1() or F1() and T1() and T2()
  ?? '-------------------------------'
  ?? not F1() or F1() and T1() and T2()
  ?? '-------------------------------'
.>

【简介】
    短路计算通常用在逻辑表达式中，如果从逻辑表达式的第一个部分（或先计算的某个部分）就能推测整个逻辑表达式的值，从而免去计算整个表达式的部分时间，因此可以明显得到性能的提升。

【看点】
    短路计算除了可以提高计算性能以外，还有一些明显的好处，看如下的代码：
   

    <.
      var node  
      if (node <> nil and node.Parent <> nil)
        ?? 'node <> nil and node.Parent <> nil'
      end if
      
      if (node = nil or node.Parent = nil)
        ?? 'node = nil or node.Parent = nil'
      end if
    .>

    
    如果在不支持逻辑表达式短路计算的编程语言中执行上面的代码，就会有可能出现异常，因为上面的变量 node 有可能为空。这样必须采用下面的代码才能避免异常：
   

    <.
      var node  
      if (node <> nil)
        if (node.Parent <> nil)
          ?? 'node <> nil and node.Parent <> nil'
        end if
      end if
      
      if (node = nil)
        ?? 'node = nil or node.Parent = nil'
      elseif (node.Parent = nil)
        ?? 'node = nil or node.Parent = nil'
      end if
    .>

    
    因此，短路计算除了能够提高计算性能，还能明显的改善程序的书写，更加简洁并且易读。

【扩展】
    本例是一个语法兼容示例，无扩展需求，以后将逐步编写更多的语法兼容示例。

【运行结果】
T1
T2
F1
False
-------------------------------
T1
T2
True
-------------------------------
F1
T1
T2
True
-------------------------------
F1
False
-------------------------------
F1
F1
False
-------------------------------
F1
True
-------------------------------