#include <lua.hpp>

// lua54.dllが必要
#pragma comment(lib, "lua54.lib")


int main()
{

    lua_State* luas = luaL_newstate();

    // Luaの標準ライブラリを読み込む
    luaL_openlibs(luas);

    // lua_pcallで呼び出す。 スタックに積まれた変数を取り出すには ... を使用
    luaL_loadstring(luas, R"(

        local val1,val2 = ...;
        print("Received value:", val1,val2);

)");

    lua_pushinteger(luas, 10);             // 値をスタックに積む
    lua_pushstring(luas, u8"Hello World"); // 値をスタックに積む。文字列はUTF-8で渡す

    lua_pcall(luas, 2, 0, 0);

    // Luaの終了。全てのメモリ解放
    lua_close(luas);

}

#include <lua.hpp>

// lua54.dllが必要
#pragma comment(lib, "lua54.lib")


int main()
{

    lua_State* luas = luaL_newstate();

    // Luaの標準ライブラリを読み込む
    luaL_openlibs(luas);

    // Luaスクリプト
    // luaL_loadstringによりコンパイルされる
    int load_status = luaL_loadstring(luas, R"(

      function myfunc()
        print(my_string);
        print(my_int);
      end

)");

    if (load_status == LUA_OK) {
        // Luaスクリプトを実行
        // スクリプトを実行しているだけなので関数を実行しているわけではない
        // このスクリプト実行で myfunc()が定義される。
        lua_pcall(luas, 0, 0, 0);
    }

    lua_pushinteger(luas, 10);           // 値をPushする
    lua_setglobal(luas, "my_int");       // グローバル変数を定義し、値をセット

    lua_pushstring(luas, "Hello World"); // 値をPushする
    lua_setglobal(luas, "my_string");    // グローバル変数を定義し、値をセット

    // 一回目の lua_pcall で定義した myfunc() をスタックへPushする
    lua_getglobal(luas, "myfunc");    
    lua_pcall(luas, 0, 0, 0);// myfunc呼び出し

    // Luaの終了。全てのメモリ解放
    lua_close(luas);

}

#include <lua.hpp>

// lua54.dllが必要
#pragma comment(lib, "lua54.lib")


int main()
{

    lua_State* luas = luaL_newstate();

    // Luaの標準ライブラリを読み込む
    luaL_openlibs(luas);

    // lua_pcallでコンパイル
    luaL_loadstring(luas, R"(

global_value = 105

)");

    // Luaスクリプトを実行
    lua_pcall(luas, 0, 0, 0);

    lua_getglobal(luas, "global_value");
    int gval = lua_tointeger(luas, -1);
    printf("global_value = %d\n", gval);


    // Luaの終了。全てのメモリ解放
    lua_close(luas);

}

#include <lua.hpp>

// lua54.dllが必要
#pragma comment(lib, "lua54.lib")

int main()
{
    lua_State* luas = luaL_newstate();

    // Luaの標準ライブラリを読み込む
    luaL_openlibs(luas);

    // Luaスクリプト
    const char* script = R"(

for i = 1,5 do
  print(i)
end

)";

    // 文字列で与えてスクリプトを実行する
    luaL_dostring(luas, script);
    
    // Luaの終了。全てのメモリ解放
    lua_close(luas);

}

for i = 1,5 do
  print(i)
end

#include <iostream>

#include <lua.hpp>

// lua54.dllが必要
#pragma comment(lib, "lua54.lib")

int main()
{
    lua_State* luas = luaL_newstate();

    // Luaの標準ライブラリを読み込む
    luaL_openlibs(luas);

    // myscript.luaを実行する
    // luaL_dofileでもいい。luaL_dofileはマクロ。
    // luaL_dofile(luas, "myscript.lua");

    luaL_loadfile(luas, "myscript.lua");// スクリプトファイル読み込み
    lua_pcall(luas, 0, LUA_MULTRET, 0);// スクリプト実行
    
    // Luaの終了。全てのメモリ解放
    lua_close(luas);

}

#include <lua.hpp>

// lua54.dllが必要
#pragma comment(lib, "lua54.lib")

int main()
{
    lua_State* luas = luaL_newstate();

    // Luaの標準ライブラリを読み込む
    luaL_openlibs(luas);

    luaL_dostring(luas,
R"(

function calc(x, y)
  return 
    x + y,
    x - y,
    x * y,
    x / y
end

)"
);

    // Luaの関数を呼び出す
    // 引数はスタックにプッシュして渡す
    /////////////////////////////////////////////
    lua_getglobal(luas, "calc"); // add 関数をスタックにプッシュ
    lua_pushnumber(luas, 3); // 第一引数 x に 3 をプッシュ
    lua_pushnumber(luas, 7); // 第二引数 y に 7 をプッシュ
    /////////////////////////////////////////////
    // 関数呼び出し
    int ret = lua_pcall(
        luas,
        2, // 引数の数
        4, // 戻り値の数
        0  // エラーハンドラのインデックス
    );
    /////////////////////////////////////////////
    // エラーチェック
    if (ret != LUA_OK) {
        const char* err = lua_tostring(luas, -1);
        printf("error: %s\n", err);
        return -1;
    }
    /////////////////////////////////////////////
    // 戻り値を取得
    int add = (int)lua_tonumber(luas, -4);// 戻り値１
    int sub = (int)lua_tonumber(luas, -3);// 戻り値２
    double mul = (double)lua_tonumber(luas, -2);// 戻り値３
    double div = (double)lua_tonumber(luas, -1);// 戻り値４
    printf("add = %d\n", add);
    printf("sub = %d\n", sub);
    printf("mul = %f\n", mul);
    printf("div = %f\n", div);
    /////////////////////////////////////////////
    
    // Luaの終了。全てのメモリ解放
    lua_close(luas);

}

#include <lua.hpp>

// lua54.dllが必要
#pragma comment(lib, "lua54.lib")

int ccalc(lua_State* L) {
    double a = luaL_checknumber(L, 1); // 1番目の引数を取得
    double b = luaL_checknumber(L, 2); // 2番目の引数を取得

    // 結果をスタックにプッシュ
    lua_pushnumber(L, a + b);
    lua_pushnumber(L, a - b);
    lua_pushnumber(L, a * b);
    lua_pushnumber(L, a / b);
    return 4; // 戻り値の数を返す
}

int main()
{
    lua_State* luas = luaL_newstate();

    // Luaの標準ライブラリを読み込む
    luaL_openlibs(luas);

    // C++の関数をLuaに登録
    lua_register(luas, "ccalc", ccalc);

    // LuaからC++の関数を呼び出す
    luaL_dostring(luas,
R"(

add,sub,mul,div = ccalc(3, 7)
print("add",add)
print("sub",sub)
print("sub",mul)
print("div",div)

)"
);

    // Luaの終了。全てのメモリ解放
    lua_close(luas);

}

int i;
int c1[100];

for (i = 0; i < 100; i ++) {
  c1[i] = i;
}

#include "pch.h"

using namespace System;
 

// Parallel::Forでデータを操作する関数を含んだクラス
ref struct LoopObject {
    int *_array;
public:
    LoopObject(int* data) {
        _array = data;
    }

    // データを操作する関数
    // Parallel::Forの場合は、intの引数一つである必要がある
    // 引数 i ループカウンタ for(int i = 0;i<SIZE;i++){  function(i); } のような感じ
    void function(int i) {

        // データを操作
        _array[i] = i;

    }
};

int main(array<System::String^>^ args)
{
    // データ
    const int SIZE = 100;
    int c1[SIZE];

    // Parallel::Forでデータを操作する関数を含んだクラスのインスタンスを生成
    LoopObject^ forInstance = gcnew LoopObject(c1);// コンストラクタにデータを渡す

    // forの範囲を指定
    int BEGIN = 0;
    int END = SIZE;

    // 並列処理実行　For( 開始Index , 終了Index , 一回分の処理を行う関数オブジェクト )
    System::Threading::Tasks::Parallel::For(
        BEGIN,
        END,
        gcnew Action<int>(forInstance, &LoopObject::function)
    );

    // 結果を表示
    for (int i = 0; i < SIZE; i++) {
        System::Console::WriteLine(
            System::String::Format("mydata[{0}] = {1}", i, c1[i]));
    }

    Console::ReadLine();

    return 0;
}

#include <functional>

struct LoopObject {
    int* _array;
public:
    LoopObject(int* data) {
        _array = data;
    }

    // データを操作する関数
    // Parallel::Forの場合は、intの引数一つである必要がある
    // 引数 i ループカウンタ for(int i = 0;i<SIZE;i++){  function(i); } のような感じ
    void function(int i) {

        // データを操作
        _array[i] = i;

    }
};

namespace Parallel
{
    void For(int start, int end, LoopObject* action)
    {
        // 本来はここは並列処理で呼び出すが
        // 今回はシングルスレッドで実行する
        for (int i = start; i < end; i++)
        {
            action->function(i);
        }
    }
}

int main()
{
    int c1[100];

    auto action = new LoopObject(c1);

    Parallel::For(0, 100, action);


    // 結果の表示
    for (int i = 0; i < 100; i++)
    {
        printf("%d\n", c1[i]);
    }


}