git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@11762 626c5289-ae23-0410-ae9c-e8d60b6d4f22
25 lines
425 B
OpenEdge ABL
25 lines
425 B
OpenEdge ABL
%module memberin_extend_c
|
|
|
|
/* Example from the Manual, section 5.5.6: "Adding member functions to C structures" */
|
|
|
|
%{
|
|
typedef struct {
|
|
char name[50];
|
|
} Person;
|
|
%}
|
|
|
|
typedef struct {
|
|
%extend {
|
|
char *name;
|
|
}
|
|
} Person;
|
|
|
|
/* Specific implementation of set/get functions */
|
|
%{
|
|
char *Person_name_get(Person *p) {
|
|
return p->name;
|
|
}
|
|
void Person_name_set(Person *p, char *val) {
|
|
strncpy(p->name,val,50);
|
|
}
|
|
%}
|