12a43edc2d
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
17 lines
352 B
OpenEdge ABL
17 lines
352 B
OpenEdge ABL
// Helper function for Array output
|
|
|
|
%fragment("output_helper", "header") %{
|
|
static VALUE output_helper(VALUE target, VALUE o) {
|
|
if (NIL_P(target)) {
|
|
target = o;
|
|
} else {
|
|
if (TYPE(target) != T_ARRAY) {
|
|
VALUE o2 = target;
|
|
target = rb_ary_new();
|
|
rb_ary_push(target, o2);
|
|
}
|
|
rb_ary_push(target, o);
|
|
}
|
|
return target;
|
|
}
|
|
%}
|