Mercurial > hg > octave-nkf

diff src/file-io.cc @ 506:0f388340e607

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-07-09 06:10:34 by jwe]
author jwe
date Sat, 09 Jul 1994 06:10:34 +0000
parents 88614b380d6e
children 7ea224e713cd
line wrap: on
line diff
--- a/src/file-io.cc
+++ b/src/file-io.cc
@@ -512,10 +512,12 @@
 }
 
 Octave_object
-fseek_internal (const Octave_object& args, int nargin)
+fseek_internal (const Octave_object& args)
 {
   Octave_object retval;
 
+  int nargin = args.length ();
+
   Pix p = file_io_get_file (args(1), "a+", "fseek");
 
   if (p == (Pix) NULL)
@@ -606,10 +608,12 @@
 
 static int
 process_printf_format (const char *s, const Octave_object& args,
-		       ostrstream& sb, const char *type, int nargin)
+		       ostrstream& sb, const char *type)
 {
   ostrstream fmt;
 
+  int nargin = args.length ();
+
   fmt << "%";  // do_printf() already blew past this one...
 
   tree_constant_rep::constant_type arg_type;
@@ -804,8 +808,7 @@
 
 
 Octave_object
-do_printf (const char *type, const Octave_object& args, int nargin,
-	   int nargout)
+do_printf (const char *type, const Octave_object& args, int nargout)
 {
   Octave_object retval;
   fmt_arg_count = 1;
@@ -878,8 +881,7 @@
 // We must be looking at a format specifier.  Extract it or fail.
 
 
-      int status = process_printf_format (ptr, args, output_buf, type,
-					  nargin);
+      int status = process_printf_format (ptr, args, output_buf, type);
 
       if (status < 0)
 	return retval;
@@ -1069,7 +1071,7 @@
 }
 
 Octave_object
-do_scanf (const char *type, const Octave_object& args, int nargin, int nargout)
+do_scanf (const char *type, const Octave_object& args, int nargout)
 {
   Octave_object retval;
   char *scanf_fmt = (char *) NULL;
@@ -1271,10 +1273,12 @@
  *     count	 : number of elements read
  */
 Octave_object
-fread_internal (const Octave_object& args, int nargin, int nargout)
+fread_internal (const Octave_object& args, int nargout)
 {
   Octave_object retval;
 
+  int nargin = args.length ();
+
   Pix p = file_io_get_file (args(1), "r", "fread");
 
   if (p == (Pix) NULL)
@@ -1405,10 +1409,12 @@
  *    count     : the number of elements written
  */
 Octave_object
-fwrite_internal (const Octave_object& args, int nargin, int nargout)
+fwrite_internal (const Octave_object& args, int nargout)
 {
   Octave_object retval;
 
+  int nargin = args.length ();
+
   Pix p = file_io_get_file (args(1), "a+", "fwrite");
 
   if (p == (Pix) NULL)
@@ -1448,7 +1454,7 @@
  *     eof : non zero for an end of file condition
  */
 Octave_object
-feof_internal (const Octave_object& args, int nargin, int nargout)
+feof_internal (const Octave_object& args, int nargout)
 {
   Octave_object retval;
 
@@ -1476,7 +1482,7 @@
  *     errnum  : error number
  */
 Octave_object
-ferror_internal (const Octave_object& args, int nargin, int nargout)
+ferror_internal (const Octave_object& args, int nargout)
 {
   Octave_object retval;