c47c930f59
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7321 626c5289-ae23-0410-ae9c-e8d60b6d4f22
50 lines
1 KiB
OpenEdge ABL
50 lines
1 KiB
OpenEdge ABL
/* File : example.i */
|
|
%module example
|
|
%{
|
|
#include "example.h"
|
|
%}
|
|
|
|
/* Some global variable declarations */
|
|
%inline %{
|
|
extern int ivar;
|
|
extern short svar;
|
|
extern long lvar;
|
|
extern unsigned int uivar;
|
|
extern unsigned short usvar;
|
|
extern unsigned long ulvar;
|
|
extern signed char scvar;
|
|
extern unsigned char ucvar;
|
|
extern char cvar;
|
|
extern float fvar;
|
|
extern double dvar;
|
|
extern char *strvar;
|
|
extern const char cstrvar[];
|
|
extern int *iptrvar;
|
|
extern char name[256];
|
|
|
|
extern Point *ptptr;
|
|
extern Point pt;
|
|
%}
|
|
|
|
/* Some read-only variables */
|
|
|
|
%immutable;
|
|
|
|
%inline %{
|
|
extern int status;
|
|
extern char path[256];
|
|
%}
|
|
|
|
%mutable;
|
|
|
|
/* Some helper functions to make it easier to test */
|
|
%inline %{
|
|
extern void print_vars();
|
|
extern int *new_int(int value);
|
|
extern int value_ent(int *value);
|
|
|
|
extern Point *new_Point(int x, int y);
|
|
extern char *Point_print(Point *p);
|
|
extern void pt_print();
|
|
%}
|
|
|