2012-06-27 18:09:30 +02:00
|
|
|
/***********************************************************************/
|
|
|
|
/* */
|
|
|
|
/* Heptagon */
|
|
|
|
/* */
|
|
|
|
/* Gwenael Delaval, LIG/INRIA, UJF */
|
|
|
|
/* Leonard Gerard, Parkas, ENS */
|
|
|
|
/* Adrien Guatto, Parkas, ENS */
|
|
|
|
/* Cedric Pasteur, Parkas, ENS */
|
2012-06-29 01:43:15 +02:00
|
|
|
/* Marc Pouzet, Parkas, ENS */
|
2012-06-27 18:09:30 +02:00
|
|
|
/* */
|
|
|
|
/* Copyright 2012 ENS, INRIA, UJF */
|
|
|
|
/* */
|
|
|
|
/* This file is part of the Heptagon compiler. */
|
|
|
|
/* */
|
|
|
|
/* Heptagon is free software: you can redistribute it and/or modify it */
|
|
|
|
/* under the terms of the GNU General Public License as published by */
|
|
|
|
/* the Free Software Foundation, either version 3 of the License, or */
|
|
|
|
/* (at your option) any later version. */
|
|
|
|
/* */
|
|
|
|
/* Heptagon is distributed in the hope that it will be useful, */
|
|
|
|
/* but WITHOUT ANY WARRANTY; without even the implied warranty of */
|
|
|
|
/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
|
|
|
|
/* GNU General Public License for more details. */
|
|
|
|
/* */
|
|
|
|
/* You should have received a copy of the GNU General Public License */
|
|
|
|
/* along with Heptagon. If not, see <http://www.gnu.org/licenses/> */
|
|
|
|
/* */
|
|
|
|
/***********************************************************************/
|
|
|
|
|
2011-02-07 14:24:17 +01:00
|
|
|
package jeptagon;
|
|
|
|
|
2011-11-20 23:09:12 +01:00
|
|
|
import java.lang.reflect.Array;
|
|
|
|
import java.util.Arrays;
|
2011-03-08 13:41:28 +01:00
|
|
|
import java.util.concurrent.Executors;
|
|
|
|
import java.util.concurrent.ExecutorService;
|
|
|
|
import java.util.concurrent.Future;
|
|
|
|
import java.util.concurrent.TimeUnit;
|
|
|
|
|
2011-02-07 14:24:17 +01:00
|
|
|
public class Pervasives {
|
|
|
|
|
2011-03-22 17:43:04 +01:00
|
|
|
public static int between(int i, int m) {
|
2011-11-20 23:09:12 +01:00
|
|
|
if (i<0) {
|
|
|
|
java.lang.System.err.printf("%d ! >= 0\n",i);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
else if (i>=m) {
|
|
|
|
java.lang.System.err.printf("%d ! < %d\n",i,m);
|
|
|
|
return m-1;
|
|
|
|
}
|
2011-03-22 17:43:04 +01:00
|
|
|
else return i;
|
|
|
|
}
|
|
|
|
|
2011-03-23 20:31:26 +01:00
|
|
|
public static final ExecutorService executor_cached = Executors.newCachedThreadPool();
|
|
|
|
|
|
|
|
public static class StaticFuture<V> implements Future<V> {
|
|
|
|
V v;
|
|
|
|
|
|
|
|
public StaticFuture(V v) { this.v = v; }
|
|
|
|
|
|
|
|
public boolean cancel(boolean mayInterruptIfRunning) { return false; }
|
|
|
|
|
|
|
|
public boolean isCancelled() { return false; }
|
|
|
|
|
|
|
|
public boolean isDone() { return true; }
|
|
|
|
|
|
|
|
public V get() { return v; }
|
|
|
|
|
|
|
|
public V get(long timeout, TimeUnit unit) { return v; }
|
|
|
|
}
|
|
|
|
|
2011-11-20 23:09:12 +01:00
|
|
|
//faster version for primitive arrays using serializing
|
|
|
|
public static Object copyNd(Object arr) {
|
|
|
|
if (arr.getClass().isArray()) {
|
|
|
|
int innerArrayLength = Array.getLength(arr);
|
|
|
|
Class component = arr.getClass().getComponentType();
|
|
|
|
Object newInnerArray = Array.newInstance(component, innerArrayLength);
|
|
|
|
//copy each elem of the array
|
|
|
|
for (int i = 0; i < innerArrayLength; i++) {
|
|
|
|
Object elem = copyNd(Array.get(arr, i));
|
|
|
|
Array.set(newInnerArray, i, elem);
|
|
|
|
}
|
|
|
|
return newInnerArray;
|
|
|
|
} else {
|
|
|
|
return arr;//cant deep copy an opac object??
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
public static String genToString(Object c) {
|
|
|
|
Class<?> cClass = c.getClass();
|
|
|
|
if (cClass.isArray()) {
|
|
|
|
switch (cClass.getName().charAt(1)) { //charAt(0) is '['
|
|
|
|
case 'B' : return Arrays.toString((byte[]) c);
|
|
|
|
case 'C' : return Arrays.toString((char[]) c);
|
|
|
|
case 'D' : return Arrays.toString((double[]) c);
|
|
|
|
case 'F' : return Arrays.toString((float[]) c);
|
|
|
|
case 'I' : return Arrays.toString((int[]) c);
|
|
|
|
case 'J' : return Arrays.toString((long[]) c);
|
|
|
|
case 'S' : return Arrays.toString((short[]) c);
|
|
|
|
case 'Z' : return Arrays.toString((boolean[]) c);
|
|
|
|
default : //L or [
|
|
|
|
return Arrays.deepToString((Object [])c);
|
|
|
|
}
|
|
|
|
} else
|
|
|
|
return c.toString();
|
|
|
|
}
|
|
|
|
|
2011-03-23 20:31:26 +01:00
|
|
|
public static class Tuple1 {
|
|
|
|
public final Object c0;
|
|
|
|
public Tuple1(Object v) {
|
|
|
|
c0 = v;
|
|
|
|
}
|
2011-11-20 23:09:12 +01:00
|
|
|
public String toString() {
|
|
|
|
return "(" + genToString(c0) + ")";
|
|
|
|
}
|
2011-03-23 20:31:26 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
public static class Tuple2 {
|
|
|
|
public final Object c0;
|
|
|
|
public final Object c1;
|
|
|
|
public Tuple2(Object v0, Object v1) {
|
|
|
|
c0 = v0;
|
|
|
|
c1 = v1;
|
|
|
|
}
|
|
|
|
public String toString() {
|
2011-11-20 23:09:12 +01:00
|
|
|
return "(" + genToString(c0) + ", " + genToString(c1) + ")";
|
2011-03-23 20:31:26 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
public static class Tuple3 {
|
|
|
|
public final Object c0;
|
|
|
|
public final Object c1;
|
|
|
|
public final Object c2;
|
|
|
|
public Tuple3(Object v0, Object v1, Object v2) {
|
|
|
|
c0 = v0;
|
|
|
|
c1 = v1;
|
|
|
|
c2 = v2;
|
|
|
|
}
|
|
|
|
public String toString() {
|
2011-11-20 23:09:12 +01:00
|
|
|
return "(" + genToString(c0) + ", " + genToString(c1) + ", " + genToString(c2) + ")";
|
2011-03-23 20:31:26 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
public static class Tuple4 {
|
|
|
|
public final Object c0;
|
|
|
|
public final Object c1;
|
|
|
|
public final Object c2;
|
|
|
|
public final Object c3;
|
|
|
|
public Tuple4(Object v0, Object v1, Object v2, Object v3) {
|
|
|
|
c0 = v0;
|
|
|
|
c1 = v1;
|
|
|
|
c2 = v2;
|
|
|
|
c3 = v3;
|
|
|
|
}
|
|
|
|
public String toString() {
|
2011-11-20 23:09:12 +01:00
|
|
|
return "(" + genToString(c0) + ", " + genToString(c1)
|
|
|
|
+ ", " + genToString(c2) + ", " + genToString(c3) + ")";
|
2011-03-23 20:31:26 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
public static class Tuple5 {
|
|
|
|
public final Object c0;
|
|
|
|
public final Object c1;
|
|
|
|
public final Object c2;
|
|
|
|
public final Object c3;
|
|
|
|
public final Object c4;
|
|
|
|
public Tuple5(Object v0, Object v1, Object v2, Object v3, Object v4) {
|
|
|
|
c0 = v0;
|
|
|
|
c1 = v1;
|
|
|
|
c2 = v2;
|
|
|
|
c3 = v3;
|
|
|
|
c4 = v4;
|
|
|
|
}
|
|
|
|
public String toString() {
|
2011-11-20 23:09:12 +01:00
|
|
|
return "(" + genToString(c0) + ", " + genToString(c1) + ", " + genToString(c2)
|
|
|
|
+ ", " + genToString(c3) + ", " + genToString(c4) + ")";
|
2011-03-23 20:31:26 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
public static class Tuple6 {
|
|
|
|
public final Object c0;
|
|
|
|
public final Object c1;
|
|
|
|
public final Object c2;
|
|
|
|
public final Object c3;
|
|
|
|
public final Object c4;
|
|
|
|
public final Object c5;
|
|
|
|
public Tuple6(Object v0, Object v1, Object v2, Object v3, Object v4, Object v5) {
|
|
|
|
c0 = v0;
|
|
|
|
c1 = v1;
|
|
|
|
c2 = v2;
|
|
|
|
c3 = v3;
|
|
|
|
c4 = v4;
|
|
|
|
c5 = v5;
|
|
|
|
}
|
|
|
|
public String toString() {
|
2011-11-20 23:09:12 +01:00
|
|
|
return "(" + genToString(c0) + ", " + genToString(c1) + ", " + genToString(c2)
|
|
|
|
+ ", " + genToString(c3) + ", " + genToString(c4) + ", " + genToString(c5) + ")";
|
2011-03-23 20:31:26 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
public static class Tuple7 {
|
|
|
|
public final Object c0;
|
|
|
|
public final Object c1;
|
|
|
|
public final Object c2;
|
|
|
|
public final Object c3;
|
|
|
|
public final Object c4;
|
|
|
|
public final Object c5;
|
|
|
|
public final Object c6;
|
|
|
|
public Tuple7(Object v0, Object v1, Object v2, Object v3, Object v4, Object v5, Object v6) {
|
|
|
|
c0 = v0;
|
|
|
|
c1 = v1;
|
|
|
|
c2 = v2;
|
|
|
|
c3 = v3;
|
|
|
|
c4 = v4;
|
|
|
|
c5 = v5;
|
|
|
|
c6 = v6;
|
|
|
|
}
|
|
|
|
public String toString() {
|
2011-11-20 23:09:12 +01:00
|
|
|
return "(" + genToString(c0) + ", " + genToString(c1) + ", " + genToString(c2)
|
|
|
|
+ ", " + genToString(c3) + ", " + genToString(c4) + ", " + genToString(c5)
|
|
|
|
+ ", " + genToString(c6) + ")";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
public static class Tuple8 {
|
|
|
|
public final Object c0;
|
|
|
|
public final Object c1;
|
|
|
|
public final Object c2;
|
|
|
|
public final Object c3;
|
|
|
|
public final Object c4;
|
|
|
|
public final Object c5;
|
|
|
|
public final Object c6;
|
|
|
|
public final Object c7;
|
|
|
|
public Tuple8(Object v0, Object v1, Object v2, Object v3, Object v4, Object v5, Object v6, Object v7) {
|
|
|
|
c0 = v0;
|
|
|
|
c1 = v1;
|
|
|
|
c2 = v2;
|
|
|
|
c3 = v3;
|
|
|
|
c4 = v4;
|
|
|
|
c5 = v5;
|
|
|
|
c6 = v6;
|
|
|
|
c7 = v7;
|
|
|
|
}
|
|
|
|
public String toString() {
|
|
|
|
return "(" + genToString(c0) + ", " + genToString(c1) + ", " + genToString(c2)
|
|
|
|
+ ", " + genToString(c3) + ", " + genToString(c4) + ", " + genToString(c5)
|
|
|
|
+ ", " + genToString(c6) + ", " + genToString(c7) + ")";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
public static class Tuple9 {
|
|
|
|
public final Object c0;
|
|
|
|
public final Object c1;
|
|
|
|
public final Object c2;
|
|
|
|
public final Object c3;
|
|
|
|
public final Object c4;
|
|
|
|
public final Object c5;
|
|
|
|
public final Object c6;
|
|
|
|
public final Object c7;
|
|
|
|
public final Object c8;
|
|
|
|
public Tuple9(Object v0, Object v1, Object v2, Object v3, Object v4, Object v5, Object v6, Object v7, Object v8) {
|
|
|
|
c0 = v0;
|
|
|
|
c1 = v1;
|
|
|
|
c2 = v2;
|
|
|
|
c3 = v3;
|
|
|
|
c4 = v4;
|
|
|
|
c5 = v5;
|
|
|
|
c6 = v6;
|
|
|
|
c7 = v7;
|
|
|
|
c8 = v8;
|
|
|
|
}
|
|
|
|
public String toString() {
|
|
|
|
return "(" + genToString(c0) + ", " + genToString(c1) + ", " + genToString(c2)
|
|
|
|
+ ", " + genToString(c3) + ", " + genToString(c4) + ", " + genToString(c5)
|
|
|
|
+ ", " + genToString(c6) + ", " + genToString(c7) + ", " + genToString(c8) + ")";
|
2011-03-23 20:31:26 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
public static int do_stuff(int coeff) {
|
|
|
|
int x = 13;
|
|
|
|
for (int i = 0; i < coeff; i++) {
|
|
|
|
for (int j = 0; j < 1000000; j++) {
|
|
|
|
x = (x + j) % (x + j/x) + 13;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return x;
|
|
|
|
}
|
2011-03-22 17:43:04 +01:00
|
|
|
|
2011-02-07 14:24:17 +01:00
|
|
|
}
|