1  /*
     2   * Copyright the original author or authors.
     3   * 
     4   * Licensed under the MOZILLA PUBLIC LICENSE, Version 1.1 (the "License");
     5   * you may not use this file except in compliance with the License.
     6   * You may obtain a copy of the License at
     7   * 
     8   *      http://www.mozilla.org/MPL/MPL-1.1.html
     9   * 
    10   * Unless required by applicable law or agreed to in writing, software
    11   * distributed under the License is distributed on an "AS IS" BASIS,
    12   * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
    13   * See the License for the specific language governing permissions and
    14   * limitations under the License.
    15   */
    16  
    17  /**
    18   * {@code Caret} is a node to anchor at the beginning of a line. 
    19   * This is essentially the object to match for the multiline ^.
    20   * 
    21   * @author Igor Sadovskiy
    22   */
    23  
    24  import org.as2lib.regexp.node.Node;  
    25   
    26  class org.as2lib.regexp.node.Caret extends Node {
    27  	
    28      public function match(matcher:Object, i:Number, seq:String):Boolean {
    29          if (i > matcher.from) {
    30              var ch:Number = seq.charCodeAt(i-1);
    31              if (ch != ord("\n") && ch != ord("r")
    32                  && (ch|1) != ord("u2029")
    33                  && ch != ord("u0085") ) {
    34                  return false;
    35              }
    36              // Should treat /r/n as one newline
    37              if (ch == ord("r") && seq.charAt(i) == "\n")
    38                  return false;
    39          }
    40          // Perl does not match ^ at end of input even after newline
    41          if (i == matcher.to)
    42              return false;
    43          return next.match(matcher, i, seq);
    44      }
    45  }
    46
as2api