12a43edc2d
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
17 lines
381 B
C++
17 lines
381 B
C++
// -*- C++ -*-
|
|
// SWIG typemaps for STL - common utilities
|
|
// Art Yerkes
|
|
// Modified from: Luigi Ballabio
|
|
// Aug 3, 2002
|
|
//
|
|
// Ocaml implementation
|
|
|
|
%{
|
|
#include <string>
|
|
value SwigString_FromString(const std::string& s) {
|
|
return caml_val_string((char *)s.c_str());
|
|
}
|
|
std::string SwigString_AsString(value o) {
|
|
return std::string((char *)caml_ptr_val(o,0));
|
|
}
|
|
%}
|