call_object   xtlang

(bind-func call_object
  (lambda (instance:godot_object*) ;// args:godot_array*)
    (printf "call object with name:\n")
    (let ((callv (godot_method_bind_get_method "Object" "callv"))
           (methname (godot_string "get"))
           (propname (godot_string_var "name"))
           (args (godot_array)) ;; find_node is a 3 arg funtion
           ;; (error:godot_variant_call_error* (salloc))
           (res:godot_variant* (salloc))
           (obj (godot_global_get_singleton "Main"))
           (c_args:|2,i8*|* (alloc)))
      ;; (godot_array_append args methname)
      (godot_array_append args (ref propname))
      ;; callv expects (godot_string*, godot_array*)
      (pfill! (cast c_args i8**) (cast methname i8*) (cast args i8*))
      ; (godot_array_arg2 arg3)
      (println "ok to here in call object with name!")
      (godot_method_bind_ptrcall callv obj (cast c_args i8**) (cast res i8*))
      (printf "res type: %d\n" (godot_variant_get_type res))
      (printf "name is: %s\n" (cast res i8*))
      void)))
     ;;  (pref res 0))))