expose canvas_realizedollar()

ben-wes · ben-wes · commit 53f0342b1db0 · 2024-09-16T10:09:03.000+02:00
diff --git a/pd.lua b/pd.lua
@@ -453,6 +453,10 @@ function pd.Class:set_args(args)
     pd._set_args(self._object, args)
 end
 
+function pd.Class:canvas_realizedollar(s)
+    return pd._canvas_realizedollar(self._object, s)
+end
+
 function pd.Class:repaint()
   if type(self.paint) == "function" then
     local g = _gfx_internal.start_paint(self._object);
diff --git a/pdlua.c b/pdlua.c
@@ -2490,6 +2490,23 @@ static int pdlua_dofile(lua_State *L)
     return lua_gettop(L) - n;
 }
 
+static int pdlua_canvas_realizedollar(lua_State *L)
+{
+    if (lua_islightuserdata(L, 1) && lua_isstring(L, 2))
+    {
+        t_pdlua *o = lua_touserdata(L, 1);
+        if (o && o->canvas)
+        {
+            const char *sym_name = lua_tostring(L, 2);
+            t_symbol *s = gensym(sym_name);
+            t_symbol *result = canvas_realizedollar(o->canvas, s);
+            lua_pushstring(L, result->s_name);
+            return 1;
+        }
+    }
+    return 0;
+}
+
 /** Initialize the pd API for Lua. */
 static void pdlua_init(lua_State *L)
 /**< Lua interpreter state. */
@@ -2585,6 +2602,9 @@ static void pdlua_init(lua_State *L)
     lua_pushstring(L, "_set_args");
     lua_pushcfunction(L, pdlua_set_arguments);
     lua_settable(L, -3);
+    lua_pushstring(L, "_canvas_realizedollar");
+    lua_pushcfunction(L, pdlua_canvas_realizedollar);
+    lua_settable(L, -3);
     lua_pushstring(L, "_error");
     lua_pushcfunction(L, pdlua_error);
     lua_settable(L, -3);
