/*

 * SPDX-License-Identifier: ISC

 *

 * Copyright 2023, Sergey Bronnikov.

 */

#include <stdint.h>

#include <stddef.h>

#include <string.h>

#include <stdlib.h>

#include <fuzzer/FuzzedDataProvider.h>

#if defined(__cplusplus)

extern "C" {

#endif /* defined(__cplusplus) */

#include "lua.h"

#include "lualib.h"

#include "lauxlib.h"

#if defined(__cplusplus)

} /* extern "C" */

#endif /* defined(__cplusplus) */

extern "C" int

LLVMFuzzerTestOneInput(const uint8_t *data, size_t size)

{

  FuzzedDataProvider fdp(data, size);

  lua_State *L = luaL_newstate();

  if (L == NULL)

    return 0;

  luaL_Buffer buf;

  auto str = fdp.ConsumeRandomLengthString(size);

  luaL_buffinit(L, &buf);

  luaL_addstring(&buf, str.c_str());

  auto str1 = fdp.ConsumeRandomLengthString(size);

  auto str2 = fdp.ConsumeRandomLengthString(size);

  auto str3 = fdp.ConsumeRandomLengthString(size);

  const char *c_str1 = str1.c_str();

  const char *c_str2 = str2.c_str();

  const char *c_str3 = str3.c_str();

  if (strlen(c_str1) == 0 ||

      strlen(c_str2) == 0 ||

      strlen(c_str3) == 0) {

    luaL_pushresult(&buf);

    lua_settop(L, 0);

    lua_close(L);

    return -1;

  }

  luaL_addgsub(&buf, c_str1, c_str2, c_str3);

  luaL_pushresult(&buf);

  lua_settop(L, 0);

  lua_close(L);

  return 0;

}