package graphvent
import (
  "time"
  "reflect"
  "fmt"
  "github.com/graphql-go/graphql"
  "github.com/graphql-go/graphql/language/ast"
  "github.com/google/uuid"
)

func ResolveNodeID(p graphql.ResolveParams) (interface{}, error) {
  node, ok := p.Source.(NodeResult)
  if ok == false {
    return nil, fmt.Errorf("Can't get NodeID from %+v", reflect.TypeOf(p.Source))
  }

  return node.NodeID, nil
}

func ResolveNodeTypeHash(p graphql.ResolveParams) (interface{}, error) {
  node, ok := p.Source.(NodeResult)
  if ok == false {
    return nil, fmt.Errorf("Can't get TypeHash from %+v", reflect.TypeOf(p.Source))
  }

  return uint64(node.NodeType), nil
}

func GetFieldNames(ctx *Context, selection_set *ast.SelectionSet) []string {
  names := []string{}
  if selection_set == nil {
    return names
  }

  for _, sel := range(selection_set.Selections) {
    switch field := sel.(type) {
    case *ast.Field:
      names = append(names, field.Name.Value)
    case *ast.InlineFragment:
      names = append(names, GetFieldNames(ctx, field.SelectionSet)...)
    default:
      ctx.Log.Logf("gql", "Unknown selection type: %s", reflect.TypeOf(field))
    }
  }

  return names
}

func GetResolveFields(ctx *Context, p graphql.ResolveParams) []string {
  names := []string{}
  for _, field := range(p.Info.FieldASTs) {
    names = append(names, GetFieldNames(ctx, field.SelectionSet)...)
  }

  return names
}

func ResolveNodes(ctx *ResolveContext, p graphql.ResolveParams, ids []NodeID) ([]NodeResult, error) {
  fields := GetResolveFields(ctx.Context, p)
  ctx.Context.Log.Logf("gql_resolve_node", "RESOLVE_NODES(%+v): %+v", ids, fields)

  resp_channels := map[uuid.UUID]chan Signal{}
  indices := map[uuid.UUID]int{}

  // Get a list of fields that will be written
  ext_fields, err := ctx.GQLContext.GetACLFields(p.Info.FieldName, fields)
  if err != nil {
    return nil, err
  }
  ctx.Context.Log.Logf("gql_resolve_node", "ACL Fields from request: %+v", ext_fields)

  responses := make([]NodeResult, len(ids))

  for i, id := range(ids) {
    var read_signal *ReadSignal = nil 

    node, cached := ctx.NodeCache[id]
    if cached == true {
      resolve := false
      missing_exts := map[ExtType][]string{}
      for ext_type, fields := range(ext_fields) {
        cached_ext, exists := node.Data[ext_type]
        if exists == true {
          missing_fields := []string{}
          for _, field_name := range(fields) {
            _, found := cached_ext[field_name]
            if found == false {
              missing_fields = append(missing_fields, field_name)
            }
          }
          if len(missing_fields) > 0 {
            missing_exts[ext_type] = missing_fields
            resolve = true
          }
        } else {
          missing_exts[ext_type] = fields
          resolve = true
        }
      }

      if resolve == true {
        read_signal = NewReadSignal(missing_exts)
        ctx.Context.Log.Logf("gql_resolve_node", "sending read for %+v because of missing fields %+v", id, missing_exts)
      } else {
        ctx.Context.Log.Logf("gql_resolve_node", "Using cached response for %+v(%d)", id, i)
        responses[i] = node
        continue
      }
    } else {
      ctx.Context.Log.Logf("gql_resolve_node", "sending read for %+v", id)
      read_signal = NewReadSignal(ext_fields)
    }
    // Create a read signal, send it to the specified node, and add the wait to the response map if the send returns no error
    msgs := Messages{}
    msgs = msgs.Add(ctx.Context, id, ctx.Server, ctx.Authorization, read_signal)

    response_chan := ctx.Ext.GetResponseChannel(read_signal.ID())
    resp_channels[read_signal.ID()] = response_chan
    indices[read_signal.ID()] = i

    // TODO: Send all at once instead of creating Messages for each
    err = ctx.Context.Send(msgs)
    if err != nil {
      ctx.Ext.FreeResponseChannel(read_signal.ID())
      return nil, err
    }
  }

  errors := ""
  for sig_id, response_chan := range(resp_channels) {
    // Wait for the response, returning an error on timeout
    response, other, err := WaitForResponse(response_chan, time.Millisecond*100, sig_id)
    if err != nil {
      return nil, err
    }
    ctx.Context.Log.Logf("gql_resolve_node", "GQL node response: %+v", response)
    ctx.Context.Log.Logf("gql_resolve_node", "GQL node other messages: %+v", other)

    // for now, just put signals we didn't want back into the 'queue'
    for _, other_signal := range(other) {
      response_chan <- other_signal
    }

    error_signal, is_error := response.(*ErrorSignal)
    if is_error {
      errors = fmt.Sprintf("%s, %s", errors, error_signal.Error)
      continue
    }

    read_response, is_read_response := response.(*ReadResultSignal)
    if is_read_response == false {
      errors = fmt.Sprintf("%s, wrong response type %+v", errors, reflect.TypeOf(response))
      continue
    }

    idx := indices[sig_id]
    responses[idx] = NodeResult{
      read_response.NodeID,
      read_response.NodeType,
      read_response.Extensions,
    }

    cache, exists := ctx.NodeCache[read_response.NodeID]
    if exists == true {
      ctx.Context.Log.Logf("gql_resolve_node", "Merging new response with cached: %s, %+v - %+v", read_response.NodeID, cache, read_response.Extensions)
      for ext_type, fields := range(read_response.Extensions) {
        cached_fields, exists := cache.Data[ext_type]
        if exists == false {
          cached_fields = map[string]SerializedValue{}
          cache.Data[ext_type] = cached_fields
        }
        for field_name, field_value := range(fields) {
          cached_fields[field_name] = field_value
        }
      }
      responses[idx] = cache
    } else {
      ctx.Context.Log.Logf("gql_resolve_node", "Adding new response to node cache: %s, %+v", read_response.NodeID, read_response.Extensions)
      ctx.NodeCache[read_response.NodeID] = responses[idx]
    }
  }

  if errors != "" {
    return nil, fmt.Errorf(errors)
  }

  ctx.Context.Log.Logf("gql_resolve_node", "RESOLVED_NODES %+v - %+v", ids, responses)
  return responses, nil
}