The great merge
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
5fcae5eb66
commit
12a43edc2d
1508 changed files with 125983 additions and 44037 deletions
17
Lib/ocaml/std_common.i
Normal file
17
Lib/ocaml/std_common.i
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
// -*- 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));
|
||||
}
|
||||
%}
|
||||
Loading…
Add table
Add a link
Reference in a new issue