Constant strings in guile-gtk...

Constant strings in guile-gtk...

[Ariel Rios]

Hi,
I have been wondering that guile-gtk might need
to handle const char* since a lot of of 
GNOME code is now declaring things like that...

I hacked:

  (register-type
   'cstring
   (make-type "cstring" "const char*"
	       (lambda (x) 
		(@@ "(SCM_NIMP(~a) && SCM_RWSTRINGP(~a))" x x))
	         (lambda (x copy) 
		(@@ "(~a == NULL? SCM_BOOL_F : scm_take0str ((char *)~a))"
x x))
	      'fit-for-list #t
	      'conversion "sgtk_string_conversion"))

But that seems not a good thing... I use 'sgtk_string_conversion'
for I did not found what "conversion" is suppose to do.
Also, I am only getting parse error when declaring something as 
'cstring' like:

(define-func e_cell_text_new
  ECell
  ((cstring fontname)
   (GtkJustification justify)))


ariel

Re: Constant strings in guile-gtk...

[Marius Vollmer]

Ariel Rios <ariel@arcavia.com> writes:

> Hi,
> I have been wondering that guile-gtk might need
> to handle const char* since a lot of of 
> GNOME code is now declaring things like that...

I think you want to use

  (register-type 
   'cstring
   (make-type "cstring" "const char*"
	      (lambda (x)
		(@@ "(SCM_NIMP(~a) && SCM_ROSTRINGP(~a))" x x))
	      (lambda (x)
		(@@ "((~a) == SCM_BOOL_F? NULL : SCM_CHARS(~a))" x x))
	      (lambda (x copy)
		(@@ "(~a == NULL? SCM_BOOL_F : scm_take0str (~a))" x x))
	      'fit-for-list #t
	      'conversion "sgtk_string_conversion"))