Nuva 示例代码（每日一帖）之 正则表达式（递归）

<..========================================================
==                                                       ==
==                Macrobject Nuva Samples                ==
==                                                       ==
==      Copyright (c) 2004-2006 Macrobject Software      ==
==                                                       ==
==                  ALL RIGHTS RESERVED                  ==
==                                                       ==
==               http://www.macrobject.com               ==
==                                                       ==
========================================================..>
<.
  function Test(theContent, thePattern)
    function DoMatch(Index, Length, Value, Match)
      Result := Value ~ \r\n ~ '-- End --' ~ \r\n;
    end function
    ? theContent.RegexMatch(thePattern, Function = 'DoMatch', Option = 'sx')
  end function
  
  var content
  assign(content).>
(case (what-would-you-like-to-do?)
  ((learn)
   (choose-from FAQ
                textbooks
                blogs
                standards
                tutorials
                bibliography
                other documents
                education))
  ((program)
   (choose-from implementations
                libraries
                environments
                SRFIs))
  ((socialize)
   (choose-from Scheme Boston and bothton - Boston, MA, USA
                Denver Lispers - Denver, CO, USA
                Scheme UK - London, UK
                Montreal Scheme/Lisp User Group - Montr¨¦al, Canada
                CRACL - Los Angeles, CA, USA
                Metro Schemers (no current URL) - Washington, DC, USA))
  ((work)
   (choose-from jobs))
  ((stay-informed)
   (choose-from events))
  (else
   (choose-from the lighter side
                wares
		other resources)))
<.end assign

  var pattern
  assign(pattern).>
\( ( (?>[^()]+) | (?R) )* \)
<.end assign

  Test(content, pattern)
.>

<..
【简介】
    本例是一个复杂的正则表达式程序，其中用到了正则的递归匹配。

    众所周知，正规语言通常不能表示一个递归结构（上下文无关语言则可）。这是一种扩展功能，使正则表达式可以匹配一个递归结构。如上图的复杂结构（来自 http://www.schemers.org），使用带递归的正则表达式可以成功的匹配出该语言（LISP 的括号嵌套语言）。

【看点】
    1、本例演示了复杂的正则操作，如正则的递归功能：
         ?R 即递归整个正则表达式
         本例为了正则式的可读性，特意使用了 x 选项，忽略了正则中的空白成分
        
    2、本例也演示了 Nuva 语言的特殊结构：assign
         assign 是一种赋值结构，将该结构内的所有输出赋值给一个变量（左值表达式），该结构内可以任意复杂，嵌套任意成分，其所有的输出都将赋值给这个变量，从而省去了字符串连缀的麻烦。

【扩展】
    本例可以进一步扩展以增强其实用性，比如可以匹配诸如 C 语言风格带嵌套 {} 的语法结构。
..>

 本例运行结果如下：

(case (what-would-you-like-to-do?)
  ((learn)
   (choose-from FAQ
                textbooks
                blogs
                standards
                tutorials
                bibliography
                other documents
                education))
  ((program)
   (choose-from implementations
                libraries
                environments
                SRFIs))
  ((socialize)
   (choose-from Scheme Boston and bothton - Boston, MA, USA
                Denver Lispers - Denver, CO, USA
                Scheme UK - London, UK
                Montreal Scheme/Lisp User Group - Montréal, Canada
                CRACL - Los Angeles, CA, USA
                Metro Schemers (no current URL) - Washington, DC, USA))
  ((work)
   (choose-from jobs))
  ((stay-informed)
   (choose-from events))
  (else
   (choose-from the lighter side
                wares
  other resources)))
-- End --