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

Modified Files: cwrapperstub.c Log Message: Minor modifications to the wrappers for reading and writing permutations to file.

Date: Wed May 4 04:50:44 2005 Author: edenny

Index: cl-gsl/c/cwrapperstub.c diff -u cl-gsl/c/cwrapperstub.c:1.5 cl-gsl/c/cwrapperstub.c:1.6 --- cl-gsl/c/cwrapperstub.c:1.5 Sun May 1 00:38:43 2005 +++ cl-gsl/c/cwrapperstub.c Wed May 4 04:50:44 2005 @@ -820,49 +820,49 @@

/* ----------------------------------------------------------------- */

-int wrap_gsl_permutation_fwrite(char *fn, const gsl_permutation *m) +int wrap_gsl_permutation_fwrite(char *fn, const gsl_permutation *p) { FILE* stream; int ret;

stream = fopen(fn, "wb"); - ret = gsl_permutation_fwrite(stream, m); + ret = gsl_permutation_fwrite(stream, p); fclose(stream);

return ret; }

-int wrap_gsl_permutation_fread(char *fn, gsl_permutation *m) +int wrap_gsl_permutation_fread(char *fn, gsl_permutation *p) { FILE* stream; int ret;

stream = fopen(fn, "rb"); - ret = gsl_permutation_fread(stream, m); + ret = gsl_permutation_fread(stream, p); fclose(stream);

return ret; }

-int wrap_gsl_permutation_fprintf(char *fn, const gsl_permutation *m) +int wrap_gsl_permutation_fprintf(char *fn, const gsl_permutation *p) { FILE* stream; int ret;

stream = fopen(fn, "w"); - ret = gsl_permutation_fprintf(stream, m, "%d"); + ret = gsl_permutation_fprintf(stream, p, "%u\n"); fclose(stream);

return ret; }

-int wrap_gsl_permutation_fscanf(char *fn, gsl_permutation *m) +int wrap_gsl_permutation_fscanf(char *fn, gsl_permutation *p) { FILE* stream; int ret;

stream = fopen(fn, "r"); - ret = gsl_permutation_fscanf(stream, m); + ret = gsl_permutation_fscanf(stream, p); fclose(stream);

return ret;