//===--- MetadataPath.h - Path for lazily finding type metadata -*- C++ -*-===//
//
// This source file is part of the Swift.org open source project
//
// Copyright (c) 2014 - 2017 Apple Inc. and the Swift project authors
// Licensed under Apache License v2.0 with Runtime Library Exception
//
// See https://swift.org/LICENSE.txt for license information
// See https://swift.org/CONTRIBUTORS.txt for the list of Swift project authors
//
//===----------------------------------------------------------------------===//
//
//  This file defines the MetadataPath type, which efficiently records the
//  path to a metadata object.
//
//===----------------------------------------------------------------------===//

#ifndef SWIFT_IRGEN_METADATAPATH_H
#define SWIFT_IRGEN_METADATAPATH_H

#include "swift/Basic/EncodedSequence.h"
#include "swift/RemoteInspection/MetadataSource.h"
#include "WitnessIndex.h"
#include "IRGen.h"

namespace llvm {
  class Value;
}

namespace swift {
  class ProtocolDecl;
  class CanType;
  class Decl;
  enum class MetadataState : size_t;

namespace irgen {
  class DynamicMetadataRequest;
  class IRGenFunction;
  class LocalTypeDataKey;
  class MetadataResponse;

/// A path from one source metadata --- either Swift type metadata or a Swift
/// protocol conformance --- to another.
class MetadataPath {
  class Component {
  public:
    enum class Kind {
      // Some components carry indices.
      // P means the primary index.

      /// Associated conformance of a protocol.  P is the WitnessIndex.
      AssociatedConformance,

      /// Base protocol of a protocol.  P is the WitnessIndex.
      OutOfLineBaseProtocol,

      /// Witness table at requirement index P of a generic nominal type.
      NominalTypeArgumentConformance,

      /// Pack length at requirement index P of a generic nominal type.
      NominalTypeArgumentShape,

      /// Type metadata at requirement index P of a generic nominal type.
      NominalTypeArgument,

      /// Value at requirement index P of a generic nominal type.
      NominalValueArgument,

      /// Conditional conformance at index P (i.e. the P'th element) of a
      /// conformance.
      ConditionalConformance,

      /// The pattern type of a pack expansion at index P in a pack.
      PackExpansionPattern,

      /// The count type of a pack expansion at index P in a pack.
      PackExpansionCount,

      /// Materialize tuple as a pack.
      TuplePack,

      /// Materialize length of tuple as a pack shape expression.
      TupleShape,

      LastWithPrimaryIndex = TupleShape,

      // Everything past this point has no index.

      /// An impossible path.
      Impossible,
    };

  private:
    unsigned Primary;
    enum {
      KindMask = 0xF,
      IndexShift = 4,
    };
    static bool hasPrimaryIndex(Kind kind) {
      return kind <= Kind::LastWithPrimaryIndex;
    }

    explicit Component(unsigned primary)
        : Primary(primary) {}
  public:
    explicit Component(Kind kind) 
        : Primary(unsigned(kind)) {
      assert(!hasPrimaryIndex(kind));
    }
    explicit Component(Kind kind, unsigned primaryIndex)
        : Primary(unsigned(kind) | (primaryIndex << IndexShift)) {
      assert(hasPrimaryIndex(kind));
    }

    Kind getKind() const { return Kind(Primary & KindMask); }
    unsigned getPrimaryIndex() const {
      assert(hasPrimaryIndex(getKind()));
      return (Primary >> IndexShift);
    }

    /// Return an abstract measurement of the cost of this component.
    OperationCost cost() const {
      switch (getKind()) {
      case Kind::OutOfLineBaseProtocol:
      case Kind::NominalTypeArgumentConformance:
      case Kind::NominalTypeArgumentShape:
      case Kind::NominalTypeArgument:
      case Kind::NominalValueArgument:
      case Kind::ConditionalConformance:
      case Kind::TupleShape:
        return OperationCost::Load;

      case Kind::TuplePack:
      case Kind::AssociatedConformance:
        return OperationCost::Call;

      case Kind::PackExpansionPattern:
      case Kind::PackExpansionCount:
        return OperationCost::Arithmetic;

      case Kind::Impossible:
        llvm_unreachable("cannot compute cost of an impossible path");
      }
      llvm_unreachable("bad path component");
    }

    static Component decode(const EncodedSequenceBase::Chunk *&ptr) {
      unsigned primary = EncodedSequenceBase::decodeIndex(ptr);
      return Component(primary);
    }

    void encode(EncodedSequenceBase::Chunk *&ptr) const {
      EncodedSequenceBase::encodeIndex(Primary, ptr);
    }

    unsigned getEncodedSize() const {
      auto size = EncodedSequenceBase::getEncodedIndexSize(Primary);
      return size;
    }
  };
  EncodedSequence<Component> Path;

public:
  MetadataPath() {}

  using iterator = EncodedSequence<Component>::iterator;

  template <class ValueType>
  using Map = EncodedSequence<Component>::Map<ValueType>;

  /// Add a step to this path which will cause a dynamic assertion if
  /// it's followed.
  void addImpossibleComponent() {
    Path.push_back(Component(Component::Kind::Impossible));
  }

  /// Add a step to this path which gets the type metadata stored at
  /// requirement index n in a generic type metadata.
  void addNominalTypeArgumentComponent(unsigned index) {
    Path.push_back(Component(Component::Kind::NominalTypeArgument, index));
  }

  /// Add a step to this path which gets the protocol witness table
  /// stored at requirement index n in a generic type metadata.
  void addNominalTypeArgumentConformanceComponent(unsigned index) {
    Path.push_back(Component(Component::Kind::NominalTypeArgumentConformance,
                             index));
  }

  /// Add a step to this path which gets the pack length stored at
  /// requirement index n in a generic type metadata.
  void addNominalTypeArgumentShapeComponent(unsigned index) {
    Path.push_back(Component(Component::Kind::NominalTypeArgumentShape,
                             index));
  }

  /// Add a step to this path which gets the value stored at requirement
  /// index n in a generic type metadata.
  void addNominalValueArgumentComponent(unsigned index) {
    Path.push_back(Component(Component::Kind::NominalValueArgument,
                             index));
  }

  /// Add a step to this path which gets the inherited protocol at
  /// a particular witness index.
  void addInheritedProtocolComponent(WitnessIndex index) {
    assert(!index.isPrefix());
    Path.push_back(Component(Component::Kind::OutOfLineBaseProtocol,
                             index.getValue()));
  }

  /// Add a step to this path which gets the associated conformance at
  /// a particular witness index.
  void addAssociatedConformanceComponent(WitnessIndex index) {
    assert(!index.isPrefix());
    Path.push_back(Component(Component::Kind::AssociatedConformance,
                             index.getValue()));
  }

  void addConditionalConformanceComponent(unsigned index) {
    Path.push_back(Component(Component::Kind::ConditionalConformance, index));
  }

  void addPackExpansionPatternComponent(unsigned index) {
    Path.push_back(Component(Component::Kind::PackExpansionPattern, index));
  }

  void addPackExpansionCountComponent(unsigned index) {
    Path.push_back(Component(Component::Kind::PackExpansionCount, index));
  }

  void addTuplePackComponent() {
    Path.push_back(Component(Component::Kind::TuplePack, /*index=*/0));
  }

  void addTupleShapeComponent() {
    Path.push_back(Component(Component::Kind::TupleShape, /*index=*/0));
  }

  /// Return an abstract measurement of the cost of this path.
  OperationCost cost() const {
    auto cost = OperationCost::Free;
    for (const Component component : Path)
      cost += component.cost();
    return cost;
  }

  /// Given a pointer to type metadata, follow a path from it.
  MetadataResponse followFromTypeMetadata(IRGenFunction &IGF,
                                          CanType sourceType,
                                          MetadataResponse source,
                                          DynamicMetadataRequest request,
                                          Map<MetadataResponse> *cache) const;

  /// Given a pointer to a protocol witness table, follow a path from it.
  MetadataResponse followFromWitnessTable(IRGenFunction &IGF,
                                          CanType conformingType,
                                          ProtocolConformanceRef conformance,
                                          MetadataResponse source,
                                          DynamicMetadataRequest request,
                                          Map<MetadataResponse> *cache) const;

  template <typename Allocator>
  const reflection::MetadataSource *
  getMetadataSource(Allocator &A,
                    const reflection::MetadataSource *Root) const {
    if (Root == nullptr)
      return nullptr;

    for (auto C : Path) {
      switch (C.getKind()) {
      case Component::Kind::NominalTypeArgument:
        Root = A.createGenericArgument(C.getPrimaryIndex(), Root);
        continue;
      default:
        return nullptr;
      }
    }
    return Root;
  }

  void dump() const;
  void print(llvm::raw_ostream &out) const;
  friend llvm::raw_ostream &operator<<(llvm::raw_ostream &out,
                                       const MetadataPath &path) {
    path.print(out);
    return out;
  }

private:
  static MetadataResponse follow(IRGenFunction &IGF,
                                 LocalTypeDataKey key,
                                 MetadataResponse source,
                                 MetadataPath::iterator begin,
                                 MetadataPath::iterator end,
                                 DynamicMetadataRequest request,
                                 Map<MetadataResponse> *cache);

  /// Follow a single component of a metadata path.
  static MetadataResponse followComponent(IRGenFunction &IGF,
                                          LocalTypeDataKey &key,
                                          MetadataResponse source,
                                          Component component,
                                          DynamicMetadataRequest request);
};

} // end namespace irgen
} // end namespace swift

#endif