4074f788b3
OCaml's variableWrapper() wasn't calling emit_action_code() for in/out typemaps, which meant that %allowexception was being ignored. In addition, remove all comments in the typemaps in Lib/ocaml. In the case of the allowexcept test, one of the typemap comments caused compilation to fail because it became nested within another comment in an %exception block. Re-enable the allowexcept test. Add allowexcept_runme.ml.
118 lines
2.9 KiB
OpenEdge ABL
118 lines
2.9 KiB
OpenEdge ABL
/* -----------------------------------------------------------------------------
|
|
* 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(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());
|
|
}
|
|
}
|
|
|
|
#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
|