mirror of https://github.com/swig/swig
20 lines
355 B
OpenEdge ABL
20 lines
355 B
OpenEdge ABL
/*
|
|
* A test case for reverse length string typemap
|
|
*/
|
|
|
|
%module char_binary_rev_len
|
|
|
|
|
|
#if !defined(SWIGC)
|
|
/* There is no concept of a higher level binary string in C */
|
|
%apply (size_t LENGTH, const char *STRING) { (size_t len, const char *str, ) }
|
|
#endif
|
|
|
|
%inline %{
|
|
struct Test {
|
|
size_t strlen(size_t len, const char *str) {
|
|
return len;
|
|
}
|
|
};
|
|
%}
|