gdjn  Diff

Differences From Artifact [777733985b]:

• File tool/c-bind-gen.janet — part of check-in [1cc0d76954] at 2025-02-09 20:46:08 on branch trunk — initial commit (user: lexi, size: 20055) [annotate] [blame] [check-ins using]

To Artifact [eeaa9e3ddf]:

• File tool/c-bind-gen.janet — part of check-in [351bb17bed] at 2025-02-10 01:11:13 on branch trunk — add automatic instance bindings with accessors (user: lexi, size: 20083) [annotate] [blame] [check-ins using]

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