73 lines
1.8 KiB
OpenEdge ABL
73 lines
1.8 KiB
OpenEdge ABL
%module native_directive
|
|
|
|
%{
|
|
#include <ctype.h>
|
|
int alpha_count(const char *instring) {
|
|
int count = 0;
|
|
const char *s = instring;
|
|
while (s && *s) {
|
|
if (isalpha((int)*s))
|
|
count++;
|
|
s++;
|
|
};
|
|
return count;
|
|
}
|
|
%}
|
|
|
|
%inline %{
|
|
int CountAlphas(const char *instring) {
|
|
return alpha_count(instring);
|
|
}
|
|
%}
|
|
|
|
// Languages that support %native should code up language specific implementations below
|
|
|
|
#if defined(SWIGJAVA)
|
|
%native(CountAlphaCharacters) int alpha_count(const char *inputString);
|
|
%{
|
|
extern "C" JNIEXPORT jint JNICALL Java_native_1directive_native_1directiveJNI_CountAlphaCharacters(JNIEnv *jenv, jclass jcls, jstring instring) {
|
|
jint jresult = 0 ;
|
|
(void)jcls;
|
|
|
|
if (instring) {
|
|
const char *s = (char *)jenv->GetStringUTFChars(instring, 0);
|
|
if (s) {
|
|
jresult = (jint)alpha_count(s);
|
|
jenv->ReleaseStringUTFChars(instring, s);
|
|
}
|
|
}
|
|
return jresult;
|
|
}
|
|
%}
|
|
#endif
|
|
|
|
|
|
#if defined(SWIG_V8_VERSION)
|
|
%{
|
|
static SwigV8ReturnValue wrap_alpha_count(const SwigV8Arguments &args) {
|
|
SWIGV8_HANDLESCOPE();
|
|
v8::Handle<v8::Value> jsresult;
|
|
char *arg1 = (char *) 0 ;
|
|
int res1 ;
|
|
char *buf1 = 0 ;
|
|
int alloc1 = 0 ;
|
|
int result;
|
|
if(args.Length() != 1) SWIG_exception_fail(SWIG_ERROR,
|
|
"Illegal number of arguments for _wrap_count_characters.");
|
|
res1 = SWIG_AsCharPtrAndSize(args[0], &buf1, NULL, &alloc1);
|
|
if (!SWIG_IsOK(res1)) {
|
|
SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "count_characters"
|
|
"', argument " "1"" of type '" "char const *""'");
|
|
}
|
|
arg1 = reinterpret_cast< char * >(buf1);
|
|
result = (int)count_characters((char const *)arg1);
|
|
jsresult = SWIG_From_int(static_cast< int >(result));
|
|
if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
|
|
SWIGV8_RETURN(jsresult);
|
|
fail:
|
|
SWIGV8_RETURN(SWIGV8_UNDEFINED());
|
|
}
|
|
%}
|
|
%native(CountAlphaCharacters) void wrap_alpha_count();
|
|
#endif
|
|
|