modify test-suite (barring python atm) to not rely on the -I path to find the input .i file - removes the new warning 125 and sets up the test-suite for testing with ccache. This change required the use of -outcurrentdir and moving the .i files from the language subdirectories to the directory above along with some .i file name changes.
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10949 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
53f786e5a6
commit
db83e51441
61 changed files with 390 additions and 709 deletions
98
Examples/test-suite/r_legacy.i
Normal file
98
Examples/test-suite/r_legacy.i
Normal file
|
|
@ -0,0 +1,98 @@
|
|||
%module r_legacy
|
||||
%inline %{
|
||||
typedef char *String;
|
||||
|
||||
typedef struct {
|
||||
int i;
|
||||
double d;
|
||||
char *str;
|
||||
String s;
|
||||
} Obj;
|
||||
|
||||
Obj *getObject(int i, double d);
|
||||
|
||||
#include <string.h>
|
||||
|
||||
Obj *
|
||||
getObject(int i, double d)
|
||||
{
|
||||
|
||||
const char *test_string = "a test string";
|
||||
Obj *obj;
|
||||
obj = (Obj *) calloc(1, sizeof(Obj));
|
||||
|
||||
obj->i = i;
|
||||
obj->d = d;
|
||||
/* allocate one extra byte for the null */
|
||||
obj->str = (char *)malloc(strlen(test_string) + 1);
|
||||
strcpy(obj->str, test_string);
|
||||
|
||||
return(obj);
|
||||
}
|
||||
%}
|
||||
|
||||
char *getString();
|
||||
int getInt();
|
||||
double getDouble();
|
||||
float getFloat();
|
||||
long getLong();
|
||||
unsigned long getUnsignedLong();
|
||||
char getChar();
|
||||
|
||||
extern unsigned long MyULong;
|
||||
|
||||
extern const double PiSquared;
|
||||
|
||||
#if 0
|
||||
extern float *MyFloatRef;
|
||||
#endif
|
||||
|
||||
%inline %{
|
||||
#define PI 3.14159265358979
|
||||
unsigned long MyULong = 20;
|
||||
|
||||
static float MyFloat = 1.05f;
|
||||
float *MyFloatRef = &MyFloat;
|
||||
|
||||
const double PiSquared = PI * PI;
|
||||
|
||||
char *getString()
|
||||
{
|
||||
return "This is a literal string";
|
||||
}
|
||||
|
||||
int
|
||||
getInt()
|
||||
{
|
||||
return 42;
|
||||
}
|
||||
|
||||
double
|
||||
getDouble()
|
||||
{
|
||||
return PI;
|
||||
}
|
||||
|
||||
float
|
||||
getFloat()
|
||||
{
|
||||
return (float)PI/2;
|
||||
}
|
||||
|
||||
long getLong()
|
||||
{
|
||||
return -321313L;
|
||||
}
|
||||
|
||||
unsigned long
|
||||
getUnsignedLong()
|
||||
{
|
||||
return 23123L;
|
||||
}
|
||||
|
||||
char
|
||||
getChar()
|
||||
{
|
||||
return('A');
|
||||
}
|
||||
%}
|
||||
Loading…
Add table
Add a link
Reference in a new issue