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  import org.as2lib.regexp.node.Node;  
    18   
    19  /**
    20   * {@code UnixCaret} is a node to anchor at the beginning of a line when 
    21   * in unixdot mode.
    22   * 
    23   * @author Igor Sadovskiy
    24   */
    25   
    26  class org.as2lib.regexp.node.UnixCaret 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")) return false;
    32          }
    33          
    34          // Perl does not match ^ at end of input even after newline
    35          if (i == matcher.to) return false;
    36          return next.match(matcher, i, seq);
    37      }
    38  }
    39
as2api