Mercurial > hg > octave-lyh
diff src/variables.cc @ 2474:b8c53143581b
[project @ 1996-11-06 19:16:07 by jwe]
author | jwe |
---|---|
date | Wed, 06 Nov 1996 19:16:08 +0000 |
parents | 1e673f0648b5 |
children | 8c6e9535cbda |
line wrap: on
line diff
--- a/src/variables.cc +++ b/src/variables.cc @@ -458,7 +458,7 @@ // code! static string -gobble_leading_white_space (FILE *ffile, int in_parts) +gobble_leading_white_space (FILE *ffile, bool in_parts) { string help_txt; @@ -560,6 +560,8 @@ long pos = ftell (ffile); + gobble_leading_white_space (ffile, false); + char buf [10]; fgets (buf, 10, ffile); int len = strlen (buf); @@ -609,8 +611,6 @@ // Check to see if this file defines a function or is just a // list of commands. - string tmp_help_txt = gobble_leading_white_space (ffile, 0); - if (is_function_file (ffile)) { // XXX FIXME XXX -- we shouldn't need both the @@ -642,7 +642,10 @@ reset_parser (); - help_buf = tmp_help_txt; + help_buf = gobble_leading_white_space (ffile, true); + + // XXX FIXME XXX -- this should not be necessary. + gobble_leading_white_space (ffile, false); int status = yyparse (); @@ -774,7 +777,7 @@ if (fptr) { - retval = gobble_leading_white_space (fptr, 1); + retval = gobble_leading_white_space (fptr, true); fclose (fptr); } }