[cl-gsl-cvs] CVS update: cl-gsl/c/cwrapperstub.c

[cl-gsl-cvs at common-lisp.net]

Update of /project/cl-gsl/cvsroot/cl-gsl/c
In directory common-lisp.net:/tmp/cvs-serv23262

Modified Files:
	cwrapperstub.c 
Log Message:
Fixes for random-number-generator.

Date: Tue May 17 02:54:03 2005
Author: edenny

Index: cl-gsl/c/cwrapperstub.c
diff -u cl-gsl/c/cwrapperstub.c:1.7 cl-gsl/c/cwrapperstub.c:1.8
--- cl-gsl/c/cwrapperstub.c:1.7	Mon May 16 03:31:16 2005
+++ cl-gsl/c/cwrapperstub.c	Tue May 17 02:54:03 2005
@@ -887,22 +887,22 @@
         r = gsl_rng_alloc(gsl_rng_fishman2x);
     else if (strncmp( "gfsr4", tp, 5) == 0)
         r = gsl_rng_alloc(gsl_rng_gfsr4);
-    else if (strncmp( "knuthran", tp, 8) == 0)
-        r = gsl_rng_alloc(gsl_rng_knuthran);
     else if (strncmp( "knuthran2", tp, 9) == 0)
         r = gsl_rng_alloc(gsl_rng_knuthran2);
+    else if (strncmp( "knuthran", tp, 8) == 0)
+        r = gsl_rng_alloc(gsl_rng_knuthran);
     else if (strncmp( "lecuyer21", tp, 9) == 0)
         r = gsl_rng_alloc(gsl_rng_lecuyer21);
     else if (strncmp( "minstd", tp, 6) == 0)
         r = gsl_rng_alloc(gsl_rng_minstd);
     else if (strncmp( "mrg", tp, 3) == 0)
         r = gsl_rng_alloc(gsl_rng_mrg);
-    else if (strncmp( "mt19937", tp, 7) == 0)
-        r = gsl_rng_alloc(gsl_rng_mt19937);
     else if (strncmp( "mt19937-1999", tp, 12) == 0)
         r = gsl_rng_alloc(gsl_rng_mt19937_1999);
     else if (strncmp( "mt19937-1998", tp, 12) == 0)
         r = gsl_rng_alloc(gsl_rng_mt19937_1998);
+    else if (strncmp( "mt19937", tp, 7) == 0)
+        r = gsl_rng_alloc(gsl_rng_mt19937);
     else if (strncmp( "r250", tp, 4) == 0)
         r = gsl_rng_alloc(gsl_rng_r250);
     else if (strncmp( "ran0", tp, 4) == 0)
@@ -913,8 +913,8 @@
         r = gsl_rng_alloc(gsl_rng_ran2);
     else if (strncmp( "ran3", tp, 4) == 0)
         r = gsl_rng_alloc(gsl_rng_ran3);
-    else if (strncmp( "rand", tp, 4) == 0)
-        r = gsl_rng_alloc(gsl_rng_rand);
+    else if (strncmp( "randu", tp, 5) == 0)
+        r = gsl_rng_alloc(gsl_rng_randu);
     else if (strncmp( "rand48", tp, 6) == 0)
         r = gsl_rng_alloc(gsl_rng_rand48);
     else if (strncmp( "random128-bsd", tp, 13) == 0)
@@ -953,14 +953,14 @@
         r = gsl_rng_alloc(gsl_rng_random_glibc2);
     else if (strncmp( "random-libc5", tp, 12) == 0)
         r = gsl_rng_alloc(gsl_rng_random_libc5);
-    else if (strncmp( "randu", tp, 5) == 0)
-        r = gsl_rng_alloc(gsl_rng_randu);
+    else if (strncmp( "rand", tp, 4) == 0)
+        r = gsl_rng_alloc(gsl_rng_rand);
     else if (strncmp( "ranf", tp, 4) == 0)
         r = gsl_rng_alloc(gsl_rng_ranf);
-    else if (strncmp( "ranlux", tp, 6) == 0)
-        r = gsl_rng_alloc(gsl_rng_ranlux);
     else if (strncmp( "ranlux389", tp, 9) == 0)
         r = gsl_rng_alloc(gsl_rng_ranlux389);
+    else if (strncmp( "ranlux", tp, 6) == 0)
+        r = gsl_rng_alloc(gsl_rng_ranlux);
     else if (strncmp( "ranlxd1", tp, 7) == 0)
         r = gsl_rng_alloc(gsl_rng_ranlxd1);
     else if (strncmp( "ranlxd2", tp, 7) == 0)
@@ -975,20 +975,20 @@
         r = gsl_rng_alloc(gsl_rng_ranmar);
     else if (strncmp( "slatec", tp, 6) == 0)
         r = gsl_rng_alloc(gsl_rng_slatec);
-    else if (strncmp( "taus", tp, 4) == 0)
-        r = gsl_rng_alloc(gsl_rng_taus);
-    else if (strncmp( "taus2", tp, 5) == 0)
-        r = gsl_rng_alloc(gsl_rng_taus2);
     else if (strncmp( "taus113", tp, 7) == 0)
         r = gsl_rng_alloc(gsl_rng_taus113);
+    else if (strncmp( "taus2", tp, 5) == 0)
+        r = gsl_rng_alloc(gsl_rng_taus2);
+    else if (strncmp( "taus", tp, 4) == 0)
+        r = gsl_rng_alloc(gsl_rng_taus);
     else if (strncmp( "transputer", tp, 10) == 0)
         r = gsl_rng_alloc(gsl_rng_transputer);
     else if (strncmp( "tt800", tp, 5) == 0)
         r = gsl_rng_alloc(gsl_rng_tt800);
-    else if (strncmp( "uni", tp, 3) == 0)
-        r = gsl_rng_alloc(gsl_rng_uni);
     else if (strncmp( "uni32", tp, 5) == 0)
         r = gsl_rng_alloc(gsl_rng_uni32);
+    else if (strncmp( "uni", tp, 3) == 0)
+        r = gsl_rng_alloc(gsl_rng_uni);
     else if (strncmp( "vax", tp, 3) == 0)
         r = gsl_rng_alloc(gsl_rng_vax);
     else if (strncmp( "waterman14", tp, 10) == 0)