b8490f9c18
Strings <=> std::string by value std::wstring accessible from Ocaml. The string example converts a multibyte japanese EUC sequence to a single wchar_t sequence if you have the ja_JP.EUC-JP locale, or similar. Better handling of reference in types Corrected problems with & * mismatch in type verifier. Type verifier now really functional. No more type errors in places they wouldn't be allowed in C++, unless you work at it. Added argout_ref example for argout_ref. Init code now effective (called from let _ = f_<module>_init ()) git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4412 626c5289-ae23-0410-ae9c-e8d60b6d4f22
115 lines
3.4 KiB
C++
115 lines
3.4 KiB
C++
// -*- C++ -*-
|
|
// SWIG typemaps for std::string
|
|
// Art Yerkes
|
|
// Modified from: Luigi Ballabio
|
|
// Apr 8, 2002
|
|
//
|
|
// Ocaml implementation
|
|
|
|
// ------------------------------------------------------------------------
|
|
// 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 exception.i
|
|
|
|
%{
|
|
#include <string>
|
|
%}
|
|
|
|
namespace std {
|
|
template <class charT> class basic_string {
|
|
public:
|
|
typedef charT *pointer;
|
|
typedef charT &reference;
|
|
typedef const charT &const_reference;
|
|
typedef size_t size_type;
|
|
typedef ptrdiff_t difference_type;
|
|
basic_string();
|
|
basic_string( charT *str );
|
|
size_t size();
|
|
charT operator []( int pos ) const;
|
|
charT *c_str() const;
|
|
basic_string<charT> &operator = ( const basic_string &ws );
|
|
basic_string<charT> &operator = ( const charT *str );
|
|
basic_string<charT> &append( const basic_string<charT> &other );
|
|
basic_string<charT> &append( const charT *str );
|
|
void push_back( charT c );
|
|
void clear();
|
|
void reserve( size_type t );
|
|
void resize( size_type n, charT c = charT() );
|
|
int compare( const basic_string<charT> &other ) const;
|
|
int compare( const charT *str ) const;
|
|
basic_string<charT> &insert( size_type pos,
|
|
const basic_string<charT> &str );
|
|
size_type find( const basic_string<charT> &other, int pos = 0 ) const;
|
|
size_type find( charT c, int pos = 0 ) const;
|
|
%extend {
|
|
bool operator == ( const basic_string<charT> &other ) const {
|
|
return self->compare( other ) == 0;
|
|
}
|
|
bool operator != ( const basic_string<charT> &other ) const {
|
|
return self->compare( other ) != 0;
|
|
}
|
|
bool operator < ( const basic_string<charT> &other ) const {
|
|
return self->compare( other ) == -1;
|
|
}
|
|
bool operator > ( const basic_string<charT> &other ) const {
|
|
return self->compare( other ) == 1;
|
|
}
|
|
bool operator <= ( const basic_string<charT> &other ) const {
|
|
return self->compare( other ) != 1;
|
|
}
|
|
bool operator >= ( const basic_string<charT> &other ) const {
|
|
return self->compare( other ) != -1;
|
|
}
|
|
}
|
|
};
|
|
|
|
%template(string) basic_string<char>;
|
|
%template(wstring) basic_string<wchar_t>;
|
|
typedef basic_string<char> string;
|
|
typedef basic_string<wchar_t> wstring;
|
|
|
|
/* Overloading check */
|
|
%typemap(in) string {
|
|
if (caml_ptr_check($input))
|
|
$1 = std::string((char *)caml_ptr_val($input,0));
|
|
else
|
|
SWIG_exception(SWIG_TypeError, "string expected");
|
|
}
|
|
|
|
%typemap(in) const string & (std::string temp) {
|
|
if (caml_ptr_check($input)) {
|
|
temp = std::string((char *)caml_ptr_val($input,0));
|
|
$1 = &temp;
|
|
} else {
|
|
SWIG_exception(SWIG_TypeError, "string expected");
|
|
}
|
|
}
|
|
|
|
%typemap(in) string & (std::string temp) {
|
|
if (caml_ptr_check($input)) {
|
|
temp = std::string((char *)caml_ptr_val($input,0));
|
|
$1 = &temp;
|
|
} else {
|
|
SWIG_exception(SWIG_TypeError, "string expected");
|
|
}
|
|
}
|
|
|
|
%typemap(argout) string & {
|
|
caml_list_append(swig_result,caml_val_string_len($1->c_str(),
|
|
$1->size()));
|
|
}
|
|
|
|
%typemap(out) string {
|
|
$result = caml_val_string_len($1.c_str(),$1.size());
|
|
}
|
|
|
|
%typemap(out) const string & {
|
|
$result = caml_val_string_len($1.c_str(),$1.size());
|
|
}
|
|
}
|
|
|