[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-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;