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/**
020 * Implements the CFML Function refind
021 */
022package lucee.runtime.functions.string;
023
024import lucee.runtime.PageContext;
025import lucee.runtime.exp.ExpressionException;
026import lucee.runtime.exp.FunctionException;
027import lucee.runtime.exp.PageException;
028import lucee.runtime.functions.BIF;
029import lucee.runtime.op.Caster;
030import lucee.runtime.regex.Perl5Util;
031
032import org.apache.oro.text.regex.MalformedPatternException;
033
034public final class REFind extends BIF {
035        public static Object call(PageContext pc , String regExpr, String str) throws ExpressionException {
036                return call(pc,regExpr,str,1,false);
037        }
038        public static Object call(PageContext pc , String regExpr, String str, double start) throws ExpressionException {
039                return call(pc,regExpr,str,start,false);
040        }
041        public static Object call(PageContext pc , String regExpr, String str, double start, boolean returnsubexpressions) throws ExpressionException {
042                try {
043                        if(returnsubexpressions)
044                                return Perl5Util.find(regExpr,str,(int)start,true);
045                        return new Double(Perl5Util.indexOf(regExpr,str,(int)start,true));
046                } catch (MalformedPatternException e) {
047                        throw new FunctionException(pc,"reFind",1,"regularExpression",e.getMessage());
048                }
049        }
050
051    @Override
052        public Object invoke(PageContext pc, Object[] args) throws PageException {
053        if(args.length==2)
054                        return call(pc, Caster.toString(args[0]), Caster.toString(args[1]));
055        if(args.length==3)
056                        return call(pc, Caster.toString(args[0]), Caster.toString(args[1]), Caster.toDoubleValue(args[2]));
057        if(args.length==4)
058                        return call(pc, Caster.toString(args[0]), Caster.toString(args[1]), Caster.toDoubleValue(args[2]), Caster.toBooleanValue(args[3]));
059        
060                throw new FunctionException(pc, "REFind", 2, 4, args.length);
061        }
062}