Added macro replacement.

Author: interkosmos

README.md

@@ -160,7 +160,7 @@ You may have to alter `lua_integer`, `lua_number`, and `lua_kcontext` in
 | `luaL_checkudata`       |                         |       |         |
 | `luaL_checkversion`     |                         |       |         |
 | `luaL_dofile`           | `lual_dofile`           |   ✓   |         |
-| `luaL_dostring`         |                         |       |         |
+| `luaL_dostring`         | `lual_dostring`         |   ✓   |         |
 | `luaL_error`            |                         |       |         |
 | `luaL_execresult`       |                         |       |         |
 | `luaL_fileresult`       |                         |       |         |

src/lua.f90

@@ -140,6 +140,7 @@ module lua
     public :: lua_version
     public :: lual_checkversion_
     public :: lual_dofile
+    public :: lual_dostring
     public :: lual_len
     public :: lual_loadfile
     public :: lual_loadfilex
@@ -847,6 +848,17 @@ function lual_dofile(l, fn)
         if (lual_dofile == 0) lual_dofile = lua_pcall(l, 0, LUA_MULTRET, 0)
     end function lual_dofile
 
+    ! int luaL_dostring(lua_State *L, const char *str)
+    function lual_dostring(l, str)
+        !! Macro replacement that calls `lual_loadstring()` and `lua_pcall()`.
+        type(c_ptr),      intent(in) :: l
+        character(len=*), intent(in) :: str
+        integer                      :: lual_dostring
+
+        lual_dostring = lual_loadstring(l, str)
+        if (lual_dostring == 0) lual_dostring = lua_pcall(l, 0, LUA_MULTRET, 0)
+    end function lual_dostring
+
     ! int luaL_loadfile(lua_State *L, const char *filename)
     function lual_loadfile(l, fn)
         !! Macro replacement that calls `lual_loadfilex()`.