/** @file
  Main file for OpenInfo shell Driver1 function.

  (C) Copyright 2015 Hewlett-Packard Development Company, L.P.<BR>
  Copyright (c) 2010 - 2018, Intel Corporation. All rights reserved.<BR>
  SPDX-License-Identifier: BSD-2-Clause-Patent

**/

#include "UefiShellDriver1CommandsLib.h"

STATIC CONST CHAR16  StringHandProt[]  = L"HandProt ";
STATIC CONST CHAR16  StringGetProt[]   = L"GetProt  ";
STATIC CONST CHAR16  StringTestProt[]  = L"TestProt ";
STATIC CONST CHAR16  StringChild[]     = L"Child    ";
STATIC CONST CHAR16  StringDriver[]    = L"Driver   ";
STATIC CONST CHAR16  StringExclusive[] = L"Exclusive";
STATIC CONST CHAR16  StringDriverEx[]  = L"DriverEx ";
STATIC CONST CHAR16  StringUnknown[]   = L"Unknown  ";

/**
  Open the database and print out all the info about TheHandle.

  @param[in] TheHandle      The handle to print info on.

  @retval EFI_SUCCESS           The operation was successful.
  @retval EFI_INVALID_PARAMETER TheHandle was NULL.
  @retval EFI_OUT_OF_RESOURCES  A memory allocation failed.
**/
EFI_STATUS
TraverseHandleDatabase (
  IN CONST EFI_HANDLE  TheHandle
  )
{
  EFI_STATUS                           Status;
  EFI_GUID                             **ProtocolGuidArray;
  UINTN                                ArrayCount;
  UINTN                                ProtocolIndex;
  EFI_OPEN_PROTOCOL_INFORMATION_ENTRY  *OpenInfo;
  UINTN                                OpenInfoCount;
  UINTN                                OpenInfoIndex;
  CONST CHAR16                         *OpenTypeString;
  CHAR16                               *TempString;
  UINTN                                HandleIndex;
  CONST CHAR16                         *Name;
  UINTN                                ControllerIndex;

  if (TheHandle == NULL) {
    return (EFI_INVALID_PARAMETER);
  }

  //
  // Retrieve the list of all the protocols on the handle
  //
  Status = gBS->ProtocolsPerHandle (
                  TheHandle,
                  &ProtocolGuidArray,
                  &ArrayCount
                  );
  ASSERT_EFI_ERROR (Status);
  if (EFI_ERROR (Status)) {
    return Status;
  }

  for (ProtocolIndex = 0; ProtocolIndex < ArrayCount; ProtocolIndex++) {
    //
    // print out the human readable name for this one.
    //
    TempString = GetStringNameFromGuid (ProtocolGuidArray[ProtocolIndex], NULL);
    if (TempString == NULL) {
      continue;
    }

    ShellPrintDefaultEx (L"%H%s%N\r\n", TempString);
    FreePool (TempString);

    //
    // Retrieve the list of agents that have opened each protocol
    //
    Status = gBS->OpenProtocolInformation (
                    TheHandle,
                    ProtocolGuidArray[ProtocolIndex],
                    &OpenInfo,
                    &OpenInfoCount
                    );
    ASSERT_EFI_ERROR (Status);
    if (EFI_ERROR (Status)) {
      continue;
    }

    for (OpenInfoIndex = 0; OpenInfoIndex < OpenInfoCount; OpenInfoIndex++) {
      switch (OpenInfo[OpenInfoIndex].Attributes) {
        case EFI_OPEN_PROTOCOL_BY_HANDLE_PROTOCOL:
          OpenTypeString = StringHandProt;
          break;
        case EFI_OPEN_PROTOCOL_GET_PROTOCOL:
          OpenTypeString = StringGetProt;
          break;
        case EFI_OPEN_PROTOCOL_TEST_PROTOCOL:
          OpenTypeString = StringTestProt;
          break;
        case EFI_OPEN_PROTOCOL_BY_CHILD_CONTROLLER:
          OpenTypeString = StringChild;
          break;
        case EFI_OPEN_PROTOCOL_BY_DRIVER:
          OpenTypeString = StringDriver;
          break;
        case EFI_OPEN_PROTOCOL_EXCLUSIVE:
          OpenTypeString = StringExclusive;
          break;
        case EFI_OPEN_PROTOCOL_BY_DRIVER|EFI_OPEN_PROTOCOL_EXCLUSIVE:
          OpenTypeString = StringDriverEx;
          break;
        default:
          OpenTypeString = StringUnknown;
          break;
      }

      HandleIndex = ConvertHandleToHandleIndex (OpenInfo[OpenInfoIndex].AgentHandle);
      if (HandleIndex == 0) {
        FreePool (OpenInfo);
        FreePool (ProtocolGuidArray);
        return EFI_OUT_OF_RESOURCES;
      }

      Name            = GetStringNameFromHandle (OpenInfo[OpenInfoIndex].AgentHandle, NULL);
      ControllerIndex = ConvertHandleToHandleIndex (OpenInfo[OpenInfoIndex].ControllerHandle);
      if ((ControllerIndex != 0) && (Name != NULL)) {
        ShellPrintHiiDefaultEx (
          STRING_TOKEN (STR_OPENINFO_LINE),
          gShellDriver1HiiHandle,
          HandleIndex,
          ControllerIndex,
          OpenInfo[OpenInfoIndex].OpenCount,
          OpenTypeString,
          Name
          );
      } else {
        ShellPrintHiiDefaultEx (
          STRING_TOKEN (STR_OPENINFO_MIN_LINE),
          gShellDriver1HiiHandle,
          HandleIndex,
          OpenInfo[OpenInfoIndex].OpenCount,
          OpenTypeString,
          Name ? Name : L""
          );
      }
    }

    FreePool (OpenInfo);
  }

  FreePool (ProtocolGuidArray);

  return Status;
}

/** Main function of the 'OpenInfo' command.

  @param[in] Package    List of input parameter for the command.
**/
STATIC
SHELL_STATUS
MainCmdOpenInfo (
  LIST_ENTRY  *Package
  )
{
  EFI_STATUS    Status;
  SHELL_STATUS  ShellStatus;
  EFI_HANDLE    TheHandle;
  CONST CHAR16  *Param1;
  UINT64        Intermediate;

  Status      = EFI_SUCCESS;
  ShellStatus = SHELL_SUCCESS;

  if (ShellCommandLineGetCount (Package) > 2) {
    //
    // error for too many parameters
    //
    ShellPrintHiiDefaultEx (STRING_TOKEN (STR_GEN_TOO_MANY), gShellDriver1HiiHandle, L"openinfo");
    return SHELL_INVALID_PARAMETER;
  } else if (ShellCommandLineGetCount (Package) == 0) {
    ShellPrintHiiDefaultEx (STRING_TOKEN (STR_GEN_TOO_FEW), gShellDriver1HiiHandle, L"openinfo");
    return SHELL_INVALID_PARAMETER;
  }

  Param1 = ShellCommandLineGetRawValue (Package, 1);
  if (Param1 != NULL) {
    Status = ShellConvertStringToUint64 (Param1, &Intermediate, TRUE, FALSE);
  }

  if (EFI_ERROR (Status) || (Param1 == NULL) || (ConvertHandleIndexToHandle ((UINTN)Intermediate) == NULL)) {
    ShellPrintHiiDefaultEx (STRING_TOKEN (STR_GEN_INV_HANDLE), gShellDriver1HiiHandle, L"openinfo", Param1);
    return SHELL_INVALID_PARAMETER;
  }

  TheHandle = ConvertHandleIndexToHandle ((UINTN)Intermediate);
  if (TheHandle == NULL) {
    ASSERT (TheHandle != NULL);
    ShellPrintHiiDefaultEx (STRING_TOKEN (STR_GEN_INV_HANDLE), gShellDriver1HiiHandle, L"openinfo", Param1);
    return SHELL_INVALID_PARAMETER;
  }

  ShellPrintHiiDefaultEx (STRING_TOKEN (STR_OPENINFO_HEADER_LINE), gShellDriver1HiiHandle, (UINTN)Intermediate, TheHandle);

  Status = TraverseHandleDatabase (TheHandle);
  if (EFI_ERROR (Status)) {
    ShellPrintHiiDefaultEx (STRING_TOKEN (STR_GEN_INV_HANDLE), gShellDriver1HiiHandle, L"openinfo", Param1);
    return SHELL_NOT_FOUND;
  }

  return ShellStatus;
}

/**
  Function for 'openinfo' command.

  @param[in] ImageHandle  Handle to the Image (NULL if Internal).
  @param[in] SystemTable  Pointer to the System Table (NULL if Internal).
**/
SHELL_STATUS
EFIAPI
ShellCommandRunOpenInfo (
  IN EFI_HANDLE        ImageHandle,
  IN EFI_SYSTEM_TABLE  *SystemTable
  )
{
  EFI_STATUS    Status;
  LIST_ENTRY    *Package;
  CHAR16        *ProblemParam;
  SHELL_STATUS  ShellStatus;

  ShellStatus = SHELL_SUCCESS;

  //
  // initialize the shell lib (we must be in non-auto-init...)
  //
  Status = ShellInitialize ();
  ASSERT_EFI_ERROR (Status);

  Status = CommandInit ();
  ASSERT_EFI_ERROR (Status);

  //
  // parse the command line
  //
  Status = ShellCommandLineParse (EmptyParamList, &Package, &ProblemParam, TRUE);
  if (EFI_ERROR (Status)) {
    if ((Status == EFI_VOLUME_CORRUPTED) && (ProblemParam != NULL)) {
      ShellPrintHiiDefaultEx (STRING_TOKEN (STR_GEN_PROBLEM), gShellDriver1HiiHandle, L"openinfo", ProblemParam);
      FreePool (ProblemParam);
      ShellStatus = SHELL_INVALID_PARAMETER;
    } else {
      ASSERT (FALSE);
    }

    return ShellStatus;
  }

  ShellStatus = MainCmdOpenInfo (Package);
  ShellCommandLineFreeVarList (Package);

  return (ShellStatus);
}
