$FUNCNAME$
	SEARCH()
$CATEGORY$
	STRING
$SUMMARY$
	Search a substring into string by regular expression.
$LANG_RU$
	      .
$SYNTAX$
     SEARCH(<sPattern>, <sString>, [@aReg], [<nFrom>], [<nRange>]) --> TRUE || FALSE
$ARGUMENTS$
	<sPattern>	String, is the pattern for search.
	<sString>	String, is the source string.
	<aReg>		Array, is the registr, where will be stored result of search.
	<nFrom>		Numeric, is the start search position.
	<nRange>	Numeric, is the range of search.
$LANG_RU$
	<sPattern>	String,  .
	<sString>	String,  .
	<aReg>		Array, ,     .
	<nFrom>		Numeric,   .
	<nRange>	Numeric,  .
$RETURNS$
     Returns TRUE in successfully searching.
$LANG_RU$
      TRUE    .
$DESCRIPTION$
     SEARCH() searches substring into string <sString> by regular expression <sPattern>
     begin with position <nFrom> and in range <nRange>. The result of search will be
     wrote to <aReg> if this parameter specified.

     <nRange> it is the shifting value, when will be checked concidence about <nFrom>.
     If <nRange>==0 - checked only position <nFrom>; if <nRange>==1 - checked
     positions <nFrom> and <nFrom>+1; if <nRange>==-1 - checked positions <nFrom> and <nFrom>-1.

     Every element <aReg> is the array of 3 elementes: 1-st element - is the starting
     position founded substring; 2-d element - is the end founded substring; 3-d element -
     is the substring length.
$LANG_RU$
     SEARCH()     <sString>    <sPattern>
        <nFrom>     <nRange>.   
       <aReg>,      .

     <nRange>   ,      <nFrom>.
      <nRange>==0 -    <nFrom>;  <nRange>==1 -  
     <nFrom>  <nFrom>+1;  <nRange>==-1 -   <nFrom>  <nFrom>-1.

       <aReg>    3- : 1-  -  
      ; 2-  -   ; 3- -
       .
$EXAMPLES$

str := "int clip_SEARCH(ClipMachine * mp)"
reg := {}

if SEARCH("clip_[_A-Z]*", str, @reg)
	qout("start :" +str(reg[1][1]))
	qout("end   :" +str(reg[1][2]))
	qout("length:" +str(reg[1][3]))
else
	qout("Regular expression not found!")
endif


$PLATFORMS$
$SEEALSO$
$AUTHOR$
ITK
   $LANG_RU$

$END$



