bones-compiler 1.1.0 → 1.3.1

data/test/examples/element/example03_species.c

@@ -0,0 +1,62 @@
+//
+// This file is part of the Bones source-to-source compiler examples. This C-code
+// example is meant to illustrate the use of Bones. For more information on Bones
+// use the contact information below.
+//
+// == More information on Bones
+// Contact............Cedric Nugteren <c.nugteren@tue.nl>
+// Web address........http://parse.ele.tue.nl/bones/
+//
+// == File information
+// Filename...........element/example3.c
+// Author.............Cedric Nugteren
+// Last modified on...16-April-2012
+//
+
+#include <stdio.h>
+#define N1 2//8
+#define N2 4//16
+#define N3 8//32
+#define N4 16//64
+
+// This is 'example3', demonstrating a 4D array and defines for array sizes
+int main(void) {
+	int i,j,k,l;
+	
+	// Declare input/output arrays
+	int A[N1][N2][N3][N4];
+	int B[N1][N2][N3][N4];
+	
+	// Set the input data
+	for(i=0;i<N1;i++) {
+		for(j=0;j<N2;j++) {
+			for(k=0;k<N3;k++) {
+				for(l=0;l<N4;l++) {
+					A[i][j][k][l] = i*j+k-l;
+				}
+			}
+		}
+	}
+	
+	// Perform the computation
+	#pragma scop
+	{
+		#pragma species kernel A[0:N1-1,0:N2-1,0:N3-1,0:N4-1]|element -> B[0:N1-1,0:N2-1,0:N3-1,0:N4-1]|element
+		for (i = 0; i < N1; i++) {
+			for (j = 0; j < N2; j++) {
+				for (k = 0; k < N3; k++) {
+					for (l = 0; l < N4; l++) {
+						B[i][j][k][l] = 3 * A[i][j][k][l] + 6;
+					}
+				}
+			}
+		}
+		#pragma species endkernel example03_k1
+	}
+	#pragma endscop
+	
+	// Clean-up and exit the function
+	fflush(stdout);
+	return 0;
+}
+

data/test/examples/element/example04_species.c

@@ -0,0 +1,53 @@
+//
+// This file is part of the Bones source-to-source compiler examples. This C-code
+// example is meant to illustrate the use of Bones. For more information on Bones
+// use the contact information below.
+//
+// == More information on Bones
+// Contact............Cedric Nugteren <c.nugteren@tue.nl>
+// Web address........http://parse.ele.tue.nl/bones/
+//
+// == File information
+// Filename...........element/example4.c
+// Author.............Cedric Nugteren
+// Last modified on...16-April-2012
+//
+
+#include <stdio.h>
+
+// This is 'example4', demonstrating two input arrays and an inner-loop as the computational body
+int main(void) {
+	int i,l;
+	float factor = 0;
+	
+	// Declare input/output arrays
+	float A[700];
+	float B[700];
+	float C[700];
+	
+	// Set the input data
+	for(i=0;i<700;i++) {
+		A[i] = i*2.3;
+		B[i] = i+6.0;
+	}
+	
+	// Perform the computation
+	#pragma scop
+	{
+		#pragma species kernel A[0:699]|element ^ B[0:699]|element -> C[0:699]|element
+		for (i = 0; i < 700; i++) {
+			factor = 0.5;
+			for (l = 0; l < 3; l++) {
+				factor = factor + 0.2 * factor;
+			}
+			C[i] = factor * A[i] + factor * B[i];
+		}
+		#pragma species endkernel example04_k1
+	}
+	#pragma endscop
+	
+	// Clean-up and exit the function
+	fflush(stdout);
+	return 0;
+}
+

data/test/examples/element/example05_species.c

@@ -0,0 +1,59 @@
+//
+// This file is part of the Bones source-to-source compiler examples. This C-code
+// example is meant to illustrate the use of Bones. For more information on Bones
+// use the contact information below.
+//
+// == More information on Bones
+// Contact............Cedric Nugteren <c.nugteren@tue.nl>
+// Web address........http://parse.ele.tue.nl/bones/
+//
+// == File information
+// Filename...........element/example5.c
+// Author.............Cedric Nugteren
+// Last modified on...16-April-2012
+//
+
+#include <stdio.h>
+#define SIZE 2311
+
+// This is 'example5', demonstrating multiple inputs and outputs of different types
+int main(void) {
+	int i;
+	float result = 0;
+	
+	// Declare input/output arrays
+	float in1[SIZE];
+	int in2[SIZE];
+	char in3[SIZE];
+	float out1[SIZE];
+	float out2[SIZE];
+	
+	// Set the input data
+	for(i=0;i<SIZE;i++) {
+		in1[i] = -0.34*i;
+		in2[i] = i*3;
+		in3[i] = i%100;
+	}
+	
+	// Perform the computation
+	#pragma scop
+	{
+		#pragma species kernel in2[0:SIZE-1]|element ^ in1[0:SIZE-1]|element ^ in3[0:SIZE-1]|element -> out1[0:SIZE-1]|element ^ out2[0:SIZE-1]|element
+		for (i = 0; i < SIZE; i++) {
+			if (in3[i] > 50) {
+				result = in2[i] / in1[i];
+			} else {
+				result = in2[i] * in1[i];
+			}
+			out1[i] = result;
+			out2[i] = in3[i] / 255.0;
+		}
+		#pragma species endkernel example05_k1
+	}
+	#pragma endscop
+	
+	// Clean-up and exit the function
+	fflush(stdout);
+	return 0;
+}
+

data/test/examples/element/example06_species.c

@@ -0,0 +1,50 @@
+//
+// This file is part of the Bones source-to-source compiler examples. This C-code
+// example is meant to illustrate the use of Bones. For more information on Bones
+// use the contact information below.
+//
+// == More information on Bones
+// Contact............Cedric Nugteren <c.nugteren@tue.nl>
+// Web address........http://parse.ele.tue.nl/bones/
+//
+// == File information
+// Filename...........element/example6.c
+// Author.............Cedric Nugteren
+// Last modified on...16-April-2012
+//
+
+#include <stdio.h>
+#include <stdlib.h>
+
+// This is 'example6', demonstrating dynamically sized arrays, a dynamically sized kernel, and a classification including variables
+int main(void) {
+	int i;
+	int N = 2048*2048;
+	
+	// Declare input/output arrays
+	int *A = (int *)malloc(N*sizeof(int));
+	int *B = (int *)malloc(N*sizeof(int));
+	
+	// Set the input data
+	for(i=0;i<N;i++) {
+		A[i] = i;
+	}
+	
+	// Perform the computation
+	#pragma scop
+	{
+		#pragma species kernel A[0:N-1]|element -> B[0:N-1]|element
+		for (i = 0; i < N; i++) {
+			B[i] = A[i] + 3;
+		}
+		#pragma species endkernel example06_k1
+	}
+	#pragma endscop
+	
+	// Clean-up and exit the function
+	free(A);
+	free(B);
+	fflush(stdout);
+	return 0;
+}
+

data/test/examples/element/example07_species.c

@@ -0,0 +1,58 @@
+//
+// This file is part of the Bones source-to-source compiler examples. This C-code
+// example is meant to illustrate the use of Bones. For more information on Bones
+// use the contact information below.
+//
+// == More information on Bones
+// Contact............Cedric Nugteren <c.nugteren@tue.nl>
+// Web address........http://parse.ele.tue.nl/bones/
+//
+// == File information
+// Filename...........element/example7.c
+// Author.............Cedric Nugteren
+// Last modified on...16-April-2012
+
+#include <stdio.h>
+#include <stdlib.h>
+
+// This is 'example7', demonstrating variable length arrays (C99 VLAs)
+int main(void) {
+	int a,b,c;
+	int dim_1A = 50;
+	int dim_1B = 40;
+	
+	// Declare input/output arrays
+	int in1[dim_1A][dim_1B][30];
+	int in2[dim_1A][dim_1B][30];
+	int out[dim_1A][dim_1B][30];
+	
+	// Set the input data
+	for(a=0;a<dim_1A;a++) {
+		for(b=0;b<dim_1B;b++) {
+			for(c=0;c<30;c++) {
+				in1[a][b][c] = a*b+c;
+				in2[a][b][c] = -(c/4)+6;
+			}
+		}
+	}
+	
+	// Perform the computation
+	#pragma scop
+	{
+		#pragma species kernel in1[0:dim_1A-1,0:dim_1B-1,0:29]|element ^ in2[0:dim_1A-1,0:dim_1B-1,0:29]|element -> out[0:dim_1A-1,0:dim_1B-1,0:29]|element
+		for (a = 0; a < dim_1A; a++) {
+			for (b = 0; b < dim_1B; b++) {
+				for (c = 0; c < 30; c++) {
+					out[a][b][c] = in1[a][b][c] + in2[a][b][c];
+				}
+			}
+		}
+		#pragma species endkernel example07_k1
+	}
+	#pragma endscop
+	
+	// Clean-up and exit the function
+	fflush(stdout);
+	return 0;
+}
+

data/test/examples/element/example08_species.c

@@ -0,0 +1,49 @@
+//
+// This file is part of the Bones source-to-source compiler examples. This C-code
+// example is meant to illustrate the use of Bones. For more information on Bones
+// use the contact information below.
+//
+// == More information on Bones
+// Contact............Cedric Nugteren <c.nugteren@tue.nl>
+// Web address........http://parse.ele.tue.nl/bones/
+//
+// == File information
+// Filename...........element/example8.c
+// Author.............Cedric Nugteren
+// Last modified on...16-April-2012
+//
+
+#include <stdio.h>
+
+// This is 'example8', demonstrating a reading and writing from the same array
+int main(void) {
+	int i,j;
+	
+	// Declare input/output arrays
+	int A[100][16];
+	
+	// Set the input data
+	for(i=0;i<100;i++) {
+		for(j=0;j<16;j++) {
+			A[i][j] = i+j;
+		}
+	}
+	
+	// Perform the computation
+	#pragma scop
+	{
+		#pragma species kernel A[0:99,0:15]|element -> A[0:99,0:15]|element
+		for (i = 0; i < 100; i++) {
+			for (j = 0; j < 16; j++) {
+				A[i][j] = 2 * A[i][j];
+			}
+		}
+		#pragma species endkernel example08_k1
+	}
+	#pragma endscop
+	
+	// Clean-up and exit the function
+	fflush(stdout);
+	return 0;
+}
+

data/test/examples/element/example09_species.c

@@ -0,0 +1,52 @@
+//
+// This file is part of the Bones source-to-source compiler examples. This C-code
+// example is meant to illustrate the use of Bones. For more information on Bones
+// use the contact information below.
+//
+// == More information on Bones
+// Contact............Cedric Nugteren <c.nugteren@tue.nl>
+// Web address........http://parse.ele.tue.nl/bones/
+//
+// == File information
+// Filename...........element/example9.c
+// Author.............Cedric Nugteren
+// Last modified on...16-April-2012
+//
+
+#include <stdio.h>
+#include <stdlib.h>
+
+// This is 'example9', demonstrating a for-loop that does not start at zero
+int main(void) {
+	int i;
+	int result;
+	int N = 2048*2048;
+	
+	// Declare input/output arrays
+	int *A = (int *)malloc(N*sizeof(int));
+	int *B = (int *)malloc(N*sizeof(int));
+	
+	// Set the input data
+	for(i=0;i<N;i++) {
+		A[i] = i;
+	}
+	
+	// Perform the computation
+	#pragma scop
+	{
+		#pragma species kernel A[2:N-1]|element -> B[2:N-1]|element
+		for (i = 2; i < N; i++) {
+			result = A[i] + 3;
+			B[i] = result * 3;
+		}
+		#pragma species endkernel example09_k1
+	}
+	#pragma endscop
+	
+	// Clean-up and exit the function
+	free(A);
+	free(B);
+	fflush(stdout);
+	return 0;
+}
+

data/test/examples/element/example10_species.c

@@ -0,0 +1,54 @@
+//
+// This file is part of the Bones source-to-source compiler examples. This C-code
+// example is meant to illustrate the use of Bones. For more information on Bones
+// use the contact information below.
+//
+// == More information on Bones
+// Contact............Cedric Nugteren <c.nugteren@tue.nl>
+// Web address........http://parse.ele.tue.nl/bones/
+//
+// == File information
+// Filename...........element/example10.c
+// Author.............Cedric Nugteren
+// Last modified on...16-April-2012
+//
+
+#include <stdio.h>
+#include <stdlib.h>
+
+// This is 'example10', demonstrating multiple loops not starting at 0 for a 2D array and a kernel without a given name
+int main(void) {
+	int i,j;
+	int N = 4;
+	int M = 5;
+	
+	// Declare input/output arrays
+	int A[N][M];
+	int B[N][M];
+	
+	// Set the input data
+	for(i=0;i<N;i++) {
+		for(j=0;j<M;j++) {
+			A[i][j] = i*M+j;
+			B[i][j] = 9;
+		}
+	}
+	
+	// Perform the computation
+	#pragma scop
+	{
+		#pragma species kernel A[2:N-1,1:M-1]|element -> B[2:N-1,1:M-1]|element
+		for (i = 2; i < N; i++) {
+			for (j = 1; j < M; j++) {
+				B[i][j] = A[i][j];
+			}
+		}
+		#pragma species endkernel example10_k1
+	}
+	#pragma endscop
+	
+	// Clean-up and exit the function
+	fflush(stdout);
+	return 0;
+}
+