176
177
178
179
180
181
182
183
184
185
186
187
188
189
...
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
|
register-extension-class-method
register-extension-class-virtual-method
get-method-bind
get-class-tag
[construct-object 2]]}
{:id object :binds [set-instance
set-instance-binding
get-class-name
cast-to
has-script-method
call-script-method
method-bind-ptrcall
destroy
]}
................................................................................
(with-names ln
[["className" (:tall i)]
["methodName" (:sulk m)]]
(fn []
(ln (string
"auto ptr = t -> gd_classdb.getMethodBind(&className, &methodName, %d);\n"
"\tt -> %s.%s_ptr = ptr;\n"
"\t"`printf("* bind method %s.%s (%%p)\n",ptr);` "\n"
"\tassert(ptr != nullptr);")
(method :hash)
ctr-id (:name m)
(:name i) (:name m)
))))
(add-ctors i (i :ctors))
(add (api :decls) "} %s;" ctr-id))
|
|
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
...
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
|
register-extension-class-method
register-extension-class-virtual-method
get-method-bind
get-class-tag
[construct-object 2]]}
{:id object :binds [set-instance
set-instance-binding
get-instance-binding
get-class-name
cast-to
has-script-method
call-script-method
method-bind-ptrcall
destroy
]}
................................................................................
(with-names ln
[["className" (:tall i)]
["methodName" (:sulk m)]]
(fn []
(ln (string
"auto ptr = t -> gd_classdb.getMethodBind(&className, &methodName, %d);\n"
"\tt -> %s.%s_ptr = ptr;\n"
#"\t"`printf("* bind method %s.%s (%%p)\n",ptr);` "\n"
"\tassert(ptr != nullptr);")
(method :hash)
ctr-id (:name m)
(:name i) (:name m)
))))
(add-ctors i (i :ctors))
(add (api :decls) "} %s;" ctr-id))
|