Changeset 175

Timestamp:

07/03/07 11:22:46 (17 months ago)

Author:

zany

Message:

explicit casts

Location:

trunk/swig

Files:

• charmap.i (modified) (2 diffs)
• client.i (modified) (1 diff)

trunk/swig/charmap.i

@@ -32 +32 @@
 /* tcl8.swg is naive about this. Does it work? */
 #else
-#warning "no char * out-typemap for this language"
+#warning "no char * in-typemap for this language"
 #endif
 
@@ -45 +45 @@
         $result = arg1->buf_data ? rb_str_new(arg1->buf_data, arg1->buf_size) : Qnil;
 #elif defined SWIGTCL
-        Tcl_SetObjResult(interp,Tcl_NewStringObj(arg1->buf_data,arg1->buf_size));
+        Tcl_SetObjResult(interp,Tcl_NewStringObj((char *)arg1->buf_data,arg1->buf_size));
 #else
 #warning "no char * out-typemap for this language"

trunk/swig/client.i

@@ -124 +124 @@
 char *get(char *path) {
         (void) obexftp_get_type(self, NULL, NULL, path);
-        return self->buf_data;
+        return (char *)self->buf_data;
 }
 char *list(char *path=NULL) {
         (void) obexftp_get_type(self, XOBEX_LISTING, NULL, path);
-        return self->buf_data;
+        return (char *)self->buf_data;
 }
 char *get_capability(char *path=NULL) {
         (void) obexftp_get_type(self, XOBEX_CAPABILITY, NULL, path);
-        return self->buf_data;
+        return (char *)self->buf_data;
 }