/*
 * Copyright (C) 2012 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 <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>

#include <string>

#if defined(__BIONIC__)

#define _REALLY_INCLUDE_SYS__SYSTEM_PROPERTIES_H_
#include <sys/_system_properties.h>

#include <benchmark/Benchmark.h>

extern void* __system_property_area__;

// Do not exceed 512, that is about the largest number of properties
// that can be created with the current property area size.
#define TEST_NUM_PROPS \
    Arg(1)->Arg(4)->Arg(16)->Arg(64)->Arg(128)->Arg(256)->Arg(512)

struct LocalPropertyTestState {
  LocalPropertyTestState(int nprops) : nprops(nprops), valid(false) {
    static const char prop_name_chars[] = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-_.";

    const char* android_data = getenv("ANDROID_DATA");
    if (android_data == NULL) {
      printf("ANDROID_DATA environment variable not set\n");
      return;
    }
    char dir_template[PATH_MAX];
    snprintf(dir_template, sizeof(dir_template), "%s/local/tmp/prop-XXXXXX", android_data);
    char* dirname = mkdtemp(dir_template);
    if (!dirname) {
      printf("making temp file for test state failed (is %s/local/tmp writable?): %s\n",
             android_data, strerror(errno));
      return;
    }

    old_pa = __system_property_area__;
    __system_property_area__ = NULL;

    pa_dirname = dirname;
    pa_filename = pa_dirname + "/__properties__";

    __system_property_set_filename(pa_filename.c_str());
    __system_property_area_init();

    names = new char* [nprops];
    name_lens = new int[nprops];
    values = new char* [nprops];
    value_lens = new int[nprops];

    srandom(nprops);

    for (int i = 0; i < nprops; i++) {
      // Make sure the name has at least 10 characters to make
      // it very unlikely to generate the same random name.
      name_lens[i] = (random() % (PROP_NAME_MAX - 10)) + 10;
      names[i] = new char[PROP_NAME_MAX + 1];
      size_t prop_name_len = sizeof(prop_name_chars) - 1;
      for (int j = 0; j < name_lens[i]; j++) {
        if (j == 0 || names[i][j-1] == '.' || j == name_lens[i] - 1) {
          // Certain values are not allowed:
          // - Don't start name with '.'
          // - Don't allow '.' to appear twice in a row
          // - Don't allow the name to end with '.'
          // This assumes that '.' is the last character in the
          // array so that decrementing the length by one removes
          // the value from the possible values.
          prop_name_len--;
        }
        names[i][j] = prop_name_chars[random() % prop_name_len];
      }
      names[i][name_lens[i]] = 0;

      // Make sure the value contains at least 1 character.
      value_lens[i] = (random() % (PROP_VALUE_MAX - 1)) + 1;
      values[i] = new char[PROP_VALUE_MAX];
      for (int j = 0; j < value_lens[i]; j++) {
        values[i][j] = prop_name_chars[random() % (sizeof(prop_name_chars) - 1)];
      }

      if (__system_property_add(names[i], name_lens[i], values[i], value_lens[i]) < 0) {
        printf("Failed to add a property, terminating...\n");
        printf("%s = %.*s\n", names[i], value_lens[i], values[i]);
        exit(1);
      }
    }

    valid = true;
  }

  ~LocalPropertyTestState() {
    if (!valid)
      return;

    __system_property_area__ = old_pa;

    __system_property_set_filename(PROP_FILENAME);
    unlink(pa_filename.c_str());
    rmdir(pa_dirname.c_str());

    for (int i = 0; i < nprops; i++) {
      delete names[i];
      delete values[i];
    }
    delete[] names;
    delete[] name_lens;
    delete[] values;
    delete[] value_lens;
  }
public:
  const int nprops;
  char** names;
  int* name_lens;
  char** values;
  int* value_lens;
  bool valid;

private:
  std::string pa_dirname;
  std::string pa_filename;
  void* old_pa;
};

BENCHMARK_WITH_ARG(BM_property_get, int)->TEST_NUM_PROPS;
void BM_property_get::Run(int iters, int nprops) {
  StopBenchmarkTiming();

  LocalPropertyTestState pa(nprops);
  char value[PROP_VALUE_MAX];

  if (!pa.valid)
    return;

  srandom(iters * nprops);

  StartBenchmarkTiming();

  for (int i = 0; i < iters; i++) {
    __system_property_get(pa.names[random() % nprops], value);
  }
  StopBenchmarkTiming();
}

BENCHMARK_WITH_ARG(BM_property_find, int)->TEST_NUM_PROPS;
void BM_property_find::Run(int iters, int nprops) {
  StopBenchmarkTiming();

  LocalPropertyTestState pa(nprops);

  if (!pa.valid)
    return;

  srandom(iters * nprops);

  StartBenchmarkTiming();

  for (int i = 0; i < iters; i++) {
    __system_property_find(pa.names[random() % nprops]);
  }
  StopBenchmarkTiming();
}

BENCHMARK_WITH_ARG(BM_property_read, int)->TEST_NUM_PROPS;
void BM_property_read::Run(int iters, int nprops) {
  StopBenchmarkTiming();

  LocalPropertyTestState pa(nprops);

  if (!pa.valid)
    return;

  srandom(iters * nprops);
  const prop_info** pinfo = new const prop_info*[iters];
  char propvalue[PROP_VALUE_MAX];

  for (int i = 0; i < iters; i++) {
    pinfo[i] = __system_property_find(pa.names[random() % nprops]);
  }

  StartBenchmarkTiming();
  for (int i = 0; i < iters; i++) {
    __system_property_read(pinfo[i], 0, propvalue);
  }
  StopBenchmarkTiming();

  delete[] pinfo;
}

BENCHMARK_WITH_ARG(BM_property_serial, int)->TEST_NUM_PROPS;
void BM_property_serial::Run(int iters, int nprops) {
  StopBenchmarkTiming();

  LocalPropertyTestState pa(nprops);

  if (!pa.valid)
    return;

  srandom(iters * nprops);
  const prop_info** pinfo = new const prop_info*[iters];

  for (int i = 0; i < iters; i++) {
    pinfo[i] = __system_property_find(pa.names[random() % nprops]);
  }

  StartBenchmarkTiming();
  for (int i = 0; i < iters; i++) {
    __system_property_serial(pinfo[i]);
  }
  StopBenchmarkTiming();

  delete[] pinfo;
}

#endif  // __BIONIC__