001/**
002 *
003 * Copyright (c) 2014, the Railo Company Ltd. All rights reserved.
004 *
005 * This library is free software; you can redistribute it and/or
006 * modify it under the terms of the GNU Lesser General Public
007 * License as published by the Free Software Foundation; either 
008 * version 2.1 of the License, or (at your option) any later version.
009 * 
010 * This library is distributed in the hope that it will be useful,
011 * but WITHOUT ANY WARRANTY; without even the implied warranty of
012 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
013 * Lesser General Public License for more details.
014 * 
015 * You should have received a copy of the GNU Lesser General Public 
016 * License along with this library.  If not, see <http://www.gnu.org/licenses/>.
017 * 
018 **/
019
020package lucee.runtime.functions.string;
021
022import lucee.runtime.PageContext;
023import lucee.runtime.exp.ExpressionException;
024import lucee.runtime.exp.FunctionException;
025import lucee.runtime.exp.PageException;
026import lucee.runtime.functions.BIF;
027import lucee.runtime.op.Caster;
028import lucee.runtime.regex.Perl5Util;
029
030import org.apache.oro.text.regex.MalformedPatternException;
031
032/**
033 * Implements the CFML Function refindnocase
034 */
035public final class REFindNoCase extends BIF {
036
037        private static final long serialVersionUID = 1562665117076202965L;
038
039        public static Object call(PageContext pc , String regExpr, String str) throws ExpressionException {
040                return call(pc,regExpr,str,1,false);
041        }
042        public static Object call(PageContext pc , String regExpr, String str, double start) throws ExpressionException {
043                return call(pc,regExpr,str,start,false);
044        }
045        public static Object call(PageContext pc , String regExpr, String str, double start, boolean returnsubexpressions) throws ExpressionException {
046                try {
047                        if(returnsubexpressions)
048                                return Perl5Util.find(regExpr,str,(int)start,false);
049                        return new Double(Perl5Util.indexOf(regExpr,str,(int)start,false));
050                } catch (MalformedPatternException e) {
051                        throw new FunctionException(pc,"reFindNoCase",1,"regularExpression",e.getMessage());
052                }
053        }
054
055    @Override
056        public Object invoke(PageContext pc, Object[] args) throws PageException {
057        if(args.length==2)
058                        return call(pc, Caster.toString(args[0]), Caster.toString(args[1]));
059        if(args.length==3)
060                        return call(pc, Caster.toString(args[0]), Caster.toString(args[1]), Caster.toDoubleValue(args[2]));
061        if(args.length==4)
062                        return call(pc, Caster.toString(args[0]), Caster.toString(args[1]), Caster.toDoubleValue(args[2]), Caster.toBooleanValue(args[3]));
063        
064                throw new FunctionException(pc, "REFindNoCase", 2, 4, args.length);
065        }
066}