/*
 * Licensed to the Apache Software Foundation (ASF) under one
 * or more contributor license agreements.  See the NOTICE file
 * distributed with this work for additional information
 * regarding copyright ownership.  The ASF licenses this file
 * to you under the Apache License, Version 2.0 (the
 * "License"); you may not use this file except in compliance
 * with the License.  You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

package arq;

import org.apache.jena.Jena;
import org.apache.jena.atlas.io.IndentedWriter;
import org.apache.jena.atlas.logging.LogCtl;
import org.apache.jena.cmd.ArgDecl;
import org.apache.jena.cmd.CmdException;
import org.apache.jena.cmd.CmdLineArgs;
import org.apache.jena.cmd.TerminationException;
import org.apache.jena.graph.Node;
import org.apache.jena.query.ARQ;
import org.apache.jena.query.QueryParseException;
import org.apache.jena.riot.out.NodeFmtLib;
import org.apache.jena.shared.PrefixMapping;
import org.apache.jena.sparql.ARQConstants;
import org.apache.jena.sparql.core.Prologue;
import org.apache.jena.sparql.engine.ExecutionContext;
import org.apache.jena.sparql.expr.Expr;
import org.apache.jena.sparql.expr.ExprEvalException;
import org.apache.jena.sparql.expr.ExprLib;
import org.apache.jena.sparql.expr.NodeValue;
import org.apache.jena.sparql.function.FunctionEnv;
import org.apache.jena.sparql.sse.WriterSSE;
import org.apache.jena.sparql.util.ExprUtils;
import org.apache.jena.sparql.util.NodeFactoryExtra;
import org.apache.jena.sys.JenaSystem;

/** A program to execute expressions from the command line. */

public class qexpr {
    static {
        LogCtl.setLogging();
        JenaSystem.init();
    }

    public static void main(String...argv) {
        try {
            main2(argv);
        } catch (TerminationException ex) {
            System.exit(ex.getCode());
        } catch (CmdException ex) {
            System.err.println(ex.getMessage());
            if ( ex.getCause() != null )
                ex.getCause().printStackTrace(System.err);
        }

    }

    public static void execAndReturn(String...argv) {
        try {
            main2(argv);
        } catch (TerminationException ex) {
            return;
        } catch (CmdException ex) {
            System.err.println(ex.getMessage());
            if ( ex.getCause() != null )
                ex.getCause().printStackTrace(System.err);
        }
    }

    public static void main2(String...argv) {

        CmdLineArgs cl = new CmdLineArgs(argv);

        ArgDecl helpDecl = new ArgDecl(ArgDecl.NoValue, "h", "help");
        cl.add(helpDecl);

        ArgDecl verboseDecl = new ArgDecl(ArgDecl.NoValue, "v", "verbose");
        cl.add(verboseDecl);

        ArgDecl versionDecl = new ArgDecl(ArgDecl.NoValue, "ver", "version", "V");
        cl.add(versionDecl);

        ArgDecl quietDecl = new ArgDecl(ArgDecl.NoValue, "q", "quiet");
        cl.add(quietDecl);

        ArgDecl reduceDecl = new ArgDecl(ArgDecl.NoValue, "reduce", "fold", "simplify");
        cl.add(reduceDecl);

        ArgDecl strictDecl = new ArgDecl(ArgDecl.NoValue, "strict");
        cl.add(strictDecl);

        ArgDecl printDecl = new ArgDecl(ArgDecl.HasValue, "print");
        cl.add(printDecl);

        try {
            cl.process();
        } catch (IllegalArgumentException ex) {
            System.err.println(ex.getMessage());
            usage(System.err);
            throw new CmdException();
        }

        if ( cl.contains(helpDecl) ) {
            usage();
            throw new TerminationException(0);
        }

        if ( cl.contains(versionDecl) ) {
            System.out.println("ARQ Version: " + ARQ.VERSION + " (Jena: " + Jena.VERSION + ")");
            throw new TerminationException(0);
        }

        // ==== General things
        boolean verbose = cl.contains(verboseDecl);
        boolean quiet = cl.contains(quietDecl);

        if ( cl.contains(strictDecl) )
            ARQ.setStrictMode();

        boolean actionCopySubstitute = cl.contains(reduceDecl);
        boolean actionPrintPrefix = false;
        boolean actionPrintSPARQL = false;
        boolean actionPrint = cl.contains(printDecl);

        for ( String v : cl.getValues(printDecl) ) {
            if ( v.equalsIgnoreCase("prefix") || v.equalsIgnoreCase("op") ) {
                actionPrintPrefix = true;
            } else if ( v.equalsIgnoreCase("expr") ) {
                actionPrintSPARQL = true;
            } else {
                System.err.println("Unknown print form: " + v);
                throw new TerminationException(0);
            }
        }

        // ==== Do it

        for ( int i = 0 ; i < cl.getNumPositional() ; i++ ) {
            String exprStr = cl.getPositionalArg(i);
            exprStr = cl.indirect(exprStr);

            try {
                PrefixMapping pmap = PrefixMapping.Factory.create();
                pmap.setNsPrefixes(ARQConstants.getGlobalPrefixMap());
                pmap.setNsPrefix("", "http://example/");
                pmap.setNsPrefix("ex", "http://example/ns#");

                Expr expr = ExprUtils.parse(exprStr, pmap);
                if ( actionPrint ) {
                    IndentedWriter iOut = IndentedWriter.stdout;

                    if ( actionPrintSPARQL ) {
                        ExprUtils.fmtSPARQL(iOut, expr);
                        iOut.ensureStartOfLine();
                    }
                    if ( actionPrintPrefix ) {
                        WriterSSE.out(iOut, expr, new Prologue(pmap));
                        iOut.ensureStartOfLine();
                    }
                    iOut.flush();
                    continue;
                }

                if ( verbose )
                    System.out.print(expr.toString() + " => ");

                try {
                    if ( actionCopySubstitute ) {
                        Expr e = ExprLib.foldConstants(expr);
                        System.out.println(e);
                    } else {
                        // Default action
                        ARQ.getContext().set(ARQConstants.sysCurrentTime, NodeFactoryExtra.nowAsDateTime());
                        FunctionEnv env = ExecutionContext.create(ARQ.getContext().copy());
                        NodeValue r = expr.eval(null, env);
                        // System.out.println(r.asQuotedString()) ;
                        Node n = r.asNode();
                        String s = NodeFmtLib.displayStr(n);
                        System.out.println(s);
                    }
                } catch (ExprEvalException ex) {
                    ex.printStackTrace();

                    System.out.println("Exception: " + ex.getMessage());
                    throw new TerminationException(2);
                }
            } catch (QueryParseException ex) {
                System.err.println("Parse error: " + ex.getMessage());
                throw new TerminationException(2);
            }
        }
    }

    static void usage() {
        usage(System.out);
    }

    static void usage(java.io.PrintStream out) {
        out.println("Usage: [--print=[prefix|expr]] expression");
    }

}
