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)