/*

 * Copyright (c) 2015, 2017, Oracle and/or its affiliates. All rights reserved.

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

 * This code is free software; you can redistribute it and/or modify it

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.  Oracle designates this

 * particular file as subject to the "Classpath" exception as provided

 * by Oracle in the LICENSE file that accompanied this code.

 *

 * This code is distributed in the hope that it will be useful, but WITHOUT

 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

 * You should have received a copy of the GNU General Public License version

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

 * or visit www.oracle.com if you need additional information or have any

 * questions.

 */

package jdk.incubator.http;

import java.io.IOException;

import java.lang.System.Logger.Level;

import java.net.InetSocketAddress;

import java.net.ProxySelector;

import java.net.SocketPermission;

import java.net.URI;

import java.net.URISyntaxException;

import java.net.URLPermission;

import java.security.AccessControlContext;

import java.util.List;

import java.util.Map;

import java.util.Set;

import java.util.concurrent.CompletableFuture;

import java.util.concurrent.Executor;

import jdk.incubator.http.internal.common.MinimalFuture;

import jdk.incubator.http.internal.common.Utils;

import jdk.incubator.http.internal.common.Log;

/**

 * One request/response exchange (handles 100/101 intermediate response also).

 * depth field used to track number of times a new request is being sent

 * for a given API request. If limit exceeded exception is thrown.

 *

 * Security check is performed here:

 * - uses AccessControlContext captured at API level

 * - checks for appropriate URLPermission for request

 * - if permission allowed, grants equivalent SocketPermission to call

 * - in case of direct HTTP proxy, checks additionally for access to proxy

 *    (CONNECT proxying uses its own Exchange, so check done there)

 *

 */

final class Exchange<T> {

    static final boolean DEBUG = Utils.DEBUG; // Revisit: temporary dev flag.

    final System.Logger  debug = Utils.getDebugLogger(this::dbgString, DEBUG);

    final HttpRequestImpl request;

    final HttpClientImpl client;

    volatile ExchangeImpl<T> exchImpl;

    // used to record possible cancellation raised before the exchImpl

    // has been established.

    private volatile IOException failed;

    final AccessControlContext acc;

    final MultiExchange<?,T> multi;

    final Executor parentExecutor;

    final HttpRequest.BodyPublisher requestPublisher;

    boolean upgrading; // to HTTP/2

    final PushGroup<?,T> pushGroup;

    final String dbgTag;

    Exchange(HttpRequestImpl request, MultiExchange<?,T> multi) {

        this.request = request;

        this.upgrading = false;

        this.client = multi.client();

        this.multi = multi;

        this.acc = multi.acc;

        this.parentExecutor = multi.executor;

        this.requestPublisher = request.requestPublisher;

        this.pushGroup = multi.pushGroup;

        this.dbgTag = "Exchange";

    }

    /* If different AccessControlContext to be used  */

    Exchange(HttpRequestImpl request,

             MultiExchange<?,T> multi,

             AccessControlContext acc)

    {

        this.request = request;

        this.acc = acc;

        this.upgrading = false;

        this.client = multi.client();

        this.multi = multi;

        this.parentExecutor = multi.executor;

        this.requestPublisher = request.requestPublisher;

        this.pushGroup = multi.pushGroup;

        this.dbgTag = "Exchange";

    }

    PushGroup<?,T> getPushGroup() {

        return pushGroup;

    }

    Executor executor() {

        return parentExecutor;

    }

    public HttpRequestImpl request() {

        return request;

    }

    HttpClientImpl client() {

        return client;

    }

    public CompletableFuture<T> readBodyAsync(HttpResponse.BodyHandler<T> handler) {

        // The connection will not be returned to the pool in the case of WebSocket

        return exchImpl.readBodyAsync(handler, !request.isWebSocket(), parentExecutor)

                .whenComplete((r,t) -> exchImpl.completed());

    }

    /**

     * Called when a new exchange is created to replace this exchange.

     * At this point it is guaranteed that readBody/readBodyAsync will

     * not be called.

     */

    public void released() {

        ExchangeImpl<?> impl = exchImpl;

        if (impl != null) impl.released();

        // Don't set exchImpl to null here. We need to keep

        // it alive until it's replaced by a Stream in wrapForUpgrade.

        // Setting it to null here might get it GC'ed too early, because

        // the Http1Response is now only weakly referenced by the Selector.

    }

    public void cancel() {

        // cancel can be called concurrently before or at the same time

        // that the exchange impl is being established.

        // In that case we won't be able to propagate the cancellation

        // right away

        if (exchImpl != null) {

            exchImpl.cancel();

        } else {

            // no impl - can't cancel impl yet.

            // call cancel(IOException) instead which takes care

            // of race conditions between impl/cancel.

            cancel(new IOException("Request cancelled"));

        }

    }

    public void cancel(IOException cause) {

        // If the impl is non null, propagate the exception right away.

        // Otherwise record it so that it can be propagated once the

        // exchange impl has been established.

        ExchangeImpl<?> impl = exchImpl;

        if (impl != null) {

            // propagate the exception to the impl

            debug.log(Level.DEBUG, "Cancelling exchImpl: %s", exchImpl);

            impl.cancel(cause);

        } else {

            // no impl yet. record the exception

            failed = cause;

            // now call checkCancelled to recheck the impl.

            // if the failed state is set and the impl is not null, reset

            // the failed state and propagate the exception to the impl.

            checkCancelled();

        }

    }

    // This method will raise an exception if one was reported and if

    // it is possible to do so. If the exception can be raised, then

    // the failed state will be reset. Otherwise, the failed state

    // will persist until the exception can be raised and the failed state

    // can be cleared.

    // Takes care of possible race conditions.

    private void checkCancelled() {

        ExchangeImpl<?> impl = null;

        IOException cause = null;

        if (failed != null) {

            synchronized(this) {

                cause = failed;

                impl = exchImpl;

            }

        }

        if (cause == null) return;

        if (impl != null) {

            // The exception is raised by propagating it to the impl.

            debug.log(Level.DEBUG, "Cancelling exchImpl: %s", impl);

            impl.cancel(cause);

            failed = null;

        } else {

            Log.logTrace("Exchange: request [{0}/timeout={1}ms] no impl is set."

                         + "\n\tCan''t cancel yet with {2}",

                         request.uri(),

                         request.timeout().isPresent() ?

                         // calling duration.toMillis() can throw an exception.

                         // this is just debugging, we don't care if it overflows.

                         (request.timeout().get().getSeconds() * 1000

                          + request.timeout().get().getNano() / 1000000) : -1,

                         cause);

        }

    }

    public void h2Upgrade() {

        upgrading = true;

        request.setH2Upgrade(client.client2());

    }

    static final SocketPermission[] SOCKET_ARRAY = new SocketPermission[0];

    synchronized IOException getCancelCause() {

        return failed;

    }

    // get/set the exchange impl, solving race condition issues with

    // potential concurrent calls to cancel() or cancel(IOException)

    private CompletableFuture<? extends ExchangeImpl<T>>

    establishExchange(HttpConnection connection) {

        // check if we have been cancelled first.

        Throwable t = getCancelCause();

        checkCancelled();

        if (t != null) {

            return MinimalFuture.failedFuture(t);

        }

        CompletableFuture<? extends ExchangeImpl<T>> cf = ExchangeImpl.get(this, connection);

        return cf.thenCompose((eimpl) -> {

                    // recheck for cancelled, in case of race conditions

                    exchImpl = eimpl;

                    IOException tt = getCancelCause();

                    checkCancelled();

                    if (tt != null) {

                        return MinimalFuture.failedFuture(tt);

                    } else {

                        // Now we're good to go. Because exchImpl is no longer

                        // null cancel() will be able to propagate directly to

                        // the impl after this point ( if needed ).

                        return MinimalFuture.completedFuture(eimpl);

                    } });

    }

    // Completed HttpResponse will be null if response succeeded

    // will be a non null responseAsync if expect continue returns an error

    public CompletableFuture<Response> responseAsync() {

        return responseAsyncImpl(null);

    }

    CompletableFuture<Response> responseAsyncImpl(HttpConnection connection) {

        SecurityException e = checkPermissions();

        if (e != null) {

            return MinimalFuture.failedFuture(e);

        } else {

            return responseAsyncImpl0(connection);

        }

    }

    CompletableFuture<Response> responseAsyncImpl0(HttpConnection connection) {

        if (request.expectContinue()) {

            request.addSystemHeader("Expect", "100-Continue");

            Log.logTrace("Sending Expect: 100-Continue");

            return establishExchange(connection)

                    .thenCompose((ex) -> ex.sendHeadersAsync())

                    .thenCompose(v -> exchImpl.getResponseAsync(parentExecutor))

                    .thenCompose((Response r1) -> {

                        Log.logResponse(r1::toString);

                        int rcode = r1.statusCode();

                        if (rcode == 100) {

                            Log.logTrace("Received 100-Continue: sending body");

                            CompletableFuture<Response> cf =

                                    exchImpl.sendBodyAsync()

                                            .thenCompose(exIm -> exIm.getResponseAsync(parentExecutor));

                            cf = wrapForUpgrade(cf);

                            cf = wrapForLog(cf);

                            return cf;

                        } else {

                            Log.logTrace("Expectation failed: Received {0}",

                                         rcode);

                            if (upgrading && rcode == 101) {

                                IOException failed = new IOException(

                                        "Unable to handle 101 while waiting for 100");

                                return MinimalFuture.failedFuture(failed);

                            }

                            return exchImpl.readBodyAsync(this::ignoreBody, false, parentExecutor)

                                  .thenApply(v ->  r1);

                        }

                    });

        } else {

            CompletableFuture<Response> cf = establishExchange(connection)

                    .thenCompose((ex) -> ex.sendHeadersAsync())

                    .thenCompose(ExchangeImpl::sendBodyAsync)

                    .thenCompose(exIm -> exIm.getResponseAsync(parentExecutor));

            cf = wrapForUpgrade(cf);

            cf = wrapForLog(cf);

            return cf;

        }

    }

    private CompletableFuture<Response> wrapForUpgrade(CompletableFuture<Response> cf) {

        if (upgrading) {

            return cf.thenCompose(r -> checkForUpgradeAsync(r, exchImpl));

        }

        return cf;

    }

    private CompletableFuture<Response> wrapForLog(CompletableFuture<Response> cf) {

        if (Log.requests()) {

            return cf.thenApply(response -> {

                Log.logResponse(response::toString);

                return response;

            });

        }

        return cf;

    }

    HttpResponse.BodySubscriber<T> ignoreBody(int status, HttpHeaders hdrs) {

        return HttpResponse.BodySubscriber.discard((T)null);

    }

    // if this response was received in reply to an upgrade

    // then create the Http2Connection from the HttpConnection

    // initialize it and wait for the real response on a newly created Stream

    private CompletableFuture<Response>

    checkForUpgradeAsync(Response resp,

                         ExchangeImpl<T> ex) {

        int rcode = resp.statusCode();

        if (upgrading && (rcode == 101)) {

            Http1Exchange<T> e = (Http1Exchange<T>)ex;

            // check for 101 switching protocols

            // 101 responses are not supposed to contain a body.

            //    => should we fail if there is one?

            debug.log(Level.DEBUG, "Upgrading async %s" + e.connection());

            return e.readBodyAsync(this::ignoreBody, false, parentExecutor)

                .thenCompose((T v) -> {// v is null

                    debug.log(Level.DEBUG, "Ignored body");

                    // we pass e::getBuffer to allow the ByteBuffers to accumulate

                    // while we build the Http2Connection

                    return Http2Connection.createAsync(e.connection(),

                                                 client.client2(),

                                                 this, e::getBuffer)

                        .thenCompose((Http2Connection c) -> {

                            c.putConnection();

                            Stream<T> s = c.getStream(1);

                            if (s == null) {

                                // s can be null if an exception occurred

                                // asynchronously while sending the preface.

                                Throwable t = c.getRecordedCause();

                                if (t != null) {

                                    return MinimalFuture.failedFuture(

                                            new IOException("Can't get stream 1: " + t, t));

                                }

                            }

                            exchImpl.released();

                            Throwable t;

                            // There's a race condition window where an external

                            // thread (SelectorManager) might complete the

                            // exchange in timeout at the same time where we're

                            // trying to switch the exchange impl.

                            // 'failed' will be reset to null after

                            // exchImpl.cancel() has completed, so either we

                            // will observe failed != null here, or we will

                            // observe e.getCancelCause() != null, or the

                            // timeout exception will be routed to 's'.

                            // Either way, we need to relay it to s.

                            synchronized (this) {

                                exchImpl = s;

                                t = failed;

                            }

                            // Check whether the HTTP/1.1 was cancelled.

                            if (t == null) t = e.getCancelCause();

                            // if HTTP/1.1 exchange was timed out, don't

                            // try to go further.

                            if (t instanceof HttpTimeoutException) {

                                 s.cancelImpl(t);

                                 return MinimalFuture.failedFuture(t);

                            }

                            debug.log(Level.DEBUG, "Getting response async %s" + s);

                            return s.getResponseAsync(null);

                        });}

                );

        }

        return MinimalFuture.completedFuture(resp);

    }

    private URI getURIForSecurityCheck() {

        URI u;

        String method = request.method();

        InetSocketAddress authority = request.authority();

        URI uri = request.uri();

        // CONNECT should be restricted at API level

        if (method.equalsIgnoreCase("CONNECT")) {

            try {

                u = new URI("socket",

                             null,

                             authority.getHostString(),

                             authority.getPort(),

                             null,

                             null,

                             null);

            } catch (URISyntaxException e) {

                throw new InternalError(e); // shouldn't happen

            }

        } else {

            u = uri;

        }

        return u;

    }

    /**

     * Returns the security permission required for the given details.

     * If method is CONNECT, then uri must be of form "scheme://host:port"

     */

        StringBuilder sb = new StringBuilder();

        String urlstring, actionstring;

        if (method.equals("CONNECT")) {

            urlstring = uri.toString();

            actionstring = "CONNECT";

        } else {

            sb.append(uri.getScheme()).append("://")

              .append(uri.getAuthority())

              .append(uri.getPath());

            urlstring = sb.toString();

            sb = new StringBuilder();

            sb.append(method);

            if (headers != null && !headers.isEmpty()) {

                sb.append(':');

                Set<String> keys = headers.keySet();

                boolean first = true;

                for (String key : keys) {

                    if (!first) {

                        sb.append(',');

                    }

                    sb.append(key);

                    first = false;

                }

            }

            actionstring = sb.toString();

        }

        return new URLPermission(urlstring, actionstring);

    }

    /**

     * Performs the necessary security permission checks required to retrieve

     * the response. Returns a security exception representing the denied

     * permission, or null if all checks pass or there is no security manager.

     */

    private SecurityException checkPermissions() {

        SecurityManager sm = System.getSecurityManager();

            return null;

        }

        HttpHeaders userHeaders = request.getUserHeaders();

        URI u = getURIForSecurityCheck();

        try {

            assert acc != null;

            sm.checkPermission(p, acc);

        } catch (SecurityException e) {

            return e;

        }

        ProxySelector ps = client.proxy().orElse(null);

        if (ps != null) {

            if (!method.equals("CONNECT")) {