Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
carray.i	3.1 KB	-rw-r--r--
class.swg	1.75 KB	-rw-r--r--
cstring.i	5.93 KB	-rw-r--r--
director.swg	2.96 KB	-rw-r--r--
ocaml.i	1.28 KB	-rw-r--r--
ocaml.swg	8.36 KB	-rw-r--r--
ocamlkw.swg	1.16 KB	-rw-r--r--
ocamlrun.swg	14.61 KB	-rw-r--r--
ocamlrundec.swg	6.29 KB	-rw-r--r--
preamble.swg	473 B	-rw-r--r--
std_common.i	597 B	-rw-r--r--
std_complex.i	1.51 KB	-rw-r--r--
std_deque.i	722 B	-rw-r--r--
std_except.i	1.4 KB	-rw-r--r--
std_list.i	4.33 KB	-rw-r--r--
std_map.i	2.54 KB	-rw-r--r--
std_pair.i	773 B	-rw-r--r--
std_string.i	3.08 KB	-rw-r--r--
std_vector.i	2.98 KB	-rw-r--r--
stl.i	291 B	-rw-r--r--
swig.ml	4.74 KB	-rw-r--r--
swig.mli	1.72 KB	-rw-r--r--
swigp4.ml	6.5 KB	-rw-r--r--
typecheck.i	5.21 KB	-rw-r--r--
typemaps.i	1.99 KB	-rw-r--r--
typeregister.swg	55 B	-rw-r--r--

Code Editor : std_string.i

/* -----------------------------------------------------------------------------
 * std_string.i
 *
 * SWIG typemaps for std::string
 * ----------------------------------------------------------------------------- */

// ------------------------------------------------------------------------
// std::string is typemapped by value
// This can prevent exporting methods which return a string
// in order for the user to modify it.
// However, I think I'll wait until someone asks for it...
// ------------------------------------------------------------------------

%{
#include <string>
#include <vector>
%}
  
%include <exception.i>
%include <std_vector.i>

namespace std {

%naturalvar string;
%naturalvar wstring;
  
class string;
class wstring;
  
/* Overloading check */
%typemap(in) string {
  if (caml_ptr_check($input))
    $1.assign((char *)caml_ptr_val($input,0), caml_string_len($input));
  else
    SWIG_exception(SWIG_TypeError, "string expected");
}

%typemap(in) const string & ($*1_ltype temp) {
  if (caml_ptr_check($input)) {
    temp.assign((char *)caml_ptr_val($input,0), caml_string_len($input));
    $1 = &temp;
  } else {
    SWIG_exception(SWIG_TypeError, "string expected");
  }
}

%typemap(in) string & ($*1_ltype temp) {
  if (caml_ptr_check($input)) {
    temp.assign((char *)caml_ptr_val($input,0), caml_string_len($input));
    $1 = &temp;
  } else {
    SWIG_exception(SWIG_TypeError, "string expected");
  }
}

%typemap(in) string * ($*1_ltype *temp) {
  if (caml_ptr_check($input)) {
    temp = new $*1_ltype((char *)caml_ptr_val($input,0), caml_string_len($input));
    $1 = temp;
  } else {
    SWIG_exception(SWIG_TypeError, "string expected");
  }
}

%typemap(free) string * ($*1_ltype *temp) {
  delete temp;
}

%typemap(argout) string & {
  swig_result =	caml_list_append(swig_result,caml_val_string_len((*$1).c_str(), (*$1).size()));
}

%typemap(directorin) string {
    swig_result = caml_val_string_len($1.c_str(), $1.size());
    args = caml_list_append(args, swig_result);
}

%typemap(directorout) string {
	$result.assign((char *)caml_ptr_val($input,0), caml_string_len($input));
}

%typemap(out) string {
  $result = caml_val_string_len($1.c_str(),$1.size());
}

%typemap(out) string * {
	$result = caml_val_string_len((*$1).c_str(),(*$1).size());
}
%typemap(typecheck) string, const string & = char *;
}

#ifdef ENABLE_CHARPTR_ARRAY
char **c_charptr_array( const std::vector <std::string > &str_v );

%{
  SWIGEXT char **c_charptr_array( const std::vector <std::string > &str_v ) {
    char **out = new char *[str_v.size() + 1];
    out[str_v.size()] = 0;
    for( int i = 0; i < str_v.size(); i++ ) {
      out[i] = (char *)str_v[i].c_str();
    }
    return out;
  }
%}
#endif

#ifdef ENABLE_STRING_VECTOR
%template (StringVector) std::vector<std::string >;

%insert(ml) %{
  (* Some STL convenience items *)

let string_array_to_vector sa = 
    let nv = _new_StringVector C_void in
      ignore (array_to_vector nv (fun x -> C_string x) sa) ; nv
	
  let c_string_array ar = 
    _c_charptr_array (string_array_to_vector ar)
%}

%insert(mli) %{
  val c_string_array: string array -> c_obj
%}
#endif

${this.title}

Code Editor : std_string.i