/*
 * Copyright (c) 2001, 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.
 *
 * 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.
 *
 */

// Disable too-long symbol warnings
#pragma warning ( disable : 4786 )

#include "libInfo.hpp"
#include "nt4internals.hpp"
#include "isNT4.hpp"
#include "toolHelp.hpp"
#include <assert.h>

using namespace std;

typedef void LibInfoImplFunc(DWORD pid, vector<LibInfo>& info);

static void libInfoImplNT4(DWORD pid, vector<LibInfo>& info);
static void libInfoImplToolHelp(DWORD pid, vector<LibInfo>& info);

void
libInfo(DWORD pid, vector<LibInfo>& info) {
  static LibInfoImplFunc* impl = NULL;

  if (impl == NULL) {
    // See which operating system we're on
    impl = (isNT4() ? &libInfoImplNT4 : &libInfoImplToolHelp);
  }

  assert(impl != NULL);

  (*impl)(pid, info);
}

static ULONG
ModuleCount(NT4::PDEBUG_BUFFER db) {
  return db->ModuleInformation ? *PULONG(db->ModuleInformation) : 0;
}

#define MAX2(a, b) (((a) < (b)) ? (b) : (a))

static void
libInfoImplNT4(DWORD pid, vector<LibInfo>& info) {
  static EnumProcessModulesFunc*   enumFunc = NULL;
  static GetModuleFileNameExFunc*  fnFunc   = NULL;
  static GetModuleInformationFunc* infoFunc = NULL;

  if (enumFunc == NULL) {
    HMODULE dll = loadPSAPIDLL();

    enumFunc = (EnumProcessModulesFunc*)   GetProcAddress(dll, "EnumProcessModules");
    fnFunc   = (GetModuleFileNameExFunc*)  GetProcAddress(dll, "GetModuleFileNameExA");
    infoFunc = (GetModuleInformationFunc*) GetProcAddress(dll, "GetModuleInformation");

    assert(enumFunc != NULL);
    assert(fnFunc   != NULL);
    assert(infoFunc != NULL);
  }

  static HMODULE* mods = new HMODULE[256];
  static int      numMods = 256;

  if (mods == NULL) {
    mods = new HMODULE[numMods];
    if (mods == NULL) {
      return;
    }
  }

  bool done = false;

  HANDLE proc = OpenProcess(PROCESS_ALL_ACCESS, FALSE, pid);
  if (proc == NULL) {
    return;
  }

  do {
    DWORD bufSize = numMods * sizeof(HMODULE);
    DWORD neededSize;

    if (!(*enumFunc)(proc, mods, bufSize, &neededSize)) {
      // Enum failed
      CloseHandle(proc);
      return;
    }

    int numFetched = neededSize / sizeof(HMODULE);

    if (numMods < numFetched) {
      // Grow buffer
      numMods = MAX2(numFetched, 2 * numMods);
      delete[] mods;
      mods = new HMODULE[numMods];
      if (mods == NULL) {
        CloseHandle(proc);
        return;
      }
    } else {
      char filename[MAX_PATH];
      MODULEINFO modInfo;

      // Iterate through and fetch each one's info
      for (int i = 0; i < numFetched; i++) {
        if (!(*fnFunc)(proc, mods[i], filename, MAX_PATH)) {
          CloseHandle(proc);
          return;
        }

        if (!(*infoFunc)(proc, mods[i], &modInfo, sizeof(MODULEINFO))) {
          CloseHandle(proc);
          return;
        }

        info.push_back(LibInfo(string(filename), (void*) modInfo.lpBaseOfDll));
      }

      done = true;
    }
  } while (!done);

  CloseHandle(proc);
  return;
}

void
libInfoImplToolHelp(DWORD pid, vector<LibInfo>& info) {
  using namespace ToolHelp;

  static CreateToolhelp32SnapshotFunc* snapshotFunc = NULL;
  static Module32FirstFunc*            firstFunc    = NULL;
  static Module32NextFunc*             nextFunc     = NULL;

  if (snapshotFunc == NULL) {
    HMODULE dll = loadDLL();

    snapshotFunc =
      (CreateToolhelp32SnapshotFunc*) GetProcAddress(dll,
                                                     "CreateToolhelp32Snapshot");

    firstFunc = (Module32FirstFunc*) GetProcAddress(dll,
                                                    "Module32First");

    nextFunc = (Module32NextFunc*) GetProcAddress(dll,
                                                  "Module32Next");

    assert(snapshotFunc != NULL);
    assert(firstFunc    != NULL);
    assert(nextFunc     != NULL);
  }

  HANDLE snapshot = (*snapshotFunc)(TH32CS_SNAPMODULE, pid);
  if (snapshot == (HANDLE) -1) {
    // Error occurred during snapshot
    return;
  }

  // Iterate
  MODULEENTRY32 module;
  if ((*firstFunc)(snapshot, &module)) {
    do {
      info.push_back(LibInfo(string(module.szExePath), (void*) module.modBaseAddr));
    } while ((*nextFunc)(snapshot, &module));
  }

  CloseHandle(snapshot);
}