/*
 * Copyright (C) 2016 The Android Open Source Project
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *      http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

#include <sys/stat.h>
#include <stdio.h>
#include <string.h>

#include <atomic>
#include <string>

#include <jni.h>
#include <nativehelper/JNIHelp.h>
#include <nativehelper/ScopedUtfChars.h>

constexpr bool IsX86BuildArch() {
#if defined(__i386__)
  return true;
#elif defined(__x86_64__)
  return true;
#else
  return false;
#endif
}

constexpr bool IsArmBuildArch() {
#if defined(__arm__)
  return true;
#elif defined(__aarch64__)
  return true;
#else
  return false;
#endif
}

extern "C"
jboolean Java_libcore_libcore_util_NativeAllocationRegistryTest_isNativeBridgedABI(JNIEnv*, jclass) {
  FILE* fp = popen("uname -m", "re");
  char buf[128];
  memset(buf, '\0', sizeof(buf));
  char* str = fgets(buf, sizeof(buf), fp);
  pclose(fp);
  if (!str) {
    // Assume no native bridge if cannot do uname.
    return static_cast<jboolean>(false);
  }

  std::string uname_string = buf;
  bool is_native_bridged_abi;
  if (IsX86BuildArch()) {
    is_native_bridged_abi = uname_string.find("86") == std::string::npos;
  } else if (IsArmBuildArch()) {
    is_native_bridged_abi = uname_string.find("arm") == std::string::npos &&
        uname_string.find("aarch64") == std::string::npos;
  } else {
    is_native_bridged_abi = false;
  }
  return static_cast<jboolean>(is_native_bridged_abi);
}

std::atomic<uint64_t> gNumNativeBytesAllocated = 0;

static void finalize(uint64_t* ptr) {
  gNumNativeBytesAllocated -= *ptr;
  delete ptr;
}

extern "C"
jlong Java_libcore_libcore_util_NativeAllocationRegistryTest_getNativeFinalizer(JNIEnv*, jclass) {
  return static_cast<jlong>(reinterpret_cast<uintptr_t>(&finalize));
}

extern "C"
jlong Java_libcore_libcore_util_NativeAllocationRegistryTest_doNativeAllocation(JNIEnv*,
                                                                        jclass,
                                                                        jlong size) {
  gNumNativeBytesAllocated += size;

  // The actual allocation is a pointer to the pretend size of the allocation.
  uint64_t* ptr = new uint64_t;
  *ptr = static_cast<uint64_t>(size);
  return static_cast<jlong>(reinterpret_cast<uintptr_t>(ptr));
}

extern "C"
jlong Java_libcore_libcore_util_NativeAllocationRegistryTest_getNumNativeBytesAllocated(JNIEnv*, jclass) {
  return static_cast<jlong>(gNumNativeBytesAllocated);
}
