Mercurial > hg > octave-nkf

comparison src/builtins.cc @ 164:e2c950dd96d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-10-18 19:32:00 by jwe]
author jwe
date Mon, 18 Oct 1993 19:32:00 +0000
parents bf5faf25151e
children 49ab724d0a32
comparison
equal deleted inserted replaced
163:b4bdbdf95e05 164:e2c950dd96d2
35 #include "g-builtins.h" 35 #include "g-builtins.h"
36 #include "builtins.h" 36 #include "builtins.h"
37 #include "octave.h" 37 #include "octave.h"
38 #include "utils.h" 38 #include "utils.h"
39 #include "tree.h" 39 #include "tree.h"
40 #include "help.h"
40 #include "mappers.h" 41 #include "mappers.h"
41 #include "user-prefs.h" 42 #include "user-prefs.h"
42 #include "variables.h" 43 #include "variables.h"
43 44
44 // NOTE: nargin == 1 means that the function takes no arguments (just 45 // NOTE: nargin == 1 means that the function takes no arguments (just
664 "on IEEE machines, allow divide by zero errors to be suppressed\n", }, 665 "on IEEE machines, allow divide by zero errors to be suppressed\n", },
665 666
666 { NULL, NULL, NULL, NULL, }, 667 { NULL, NULL, NULL, NULL, },
667 }; 668 };
668 669
669 void 670 static void
670 make_eternal (char *s) 671 make_eternal (const char *s)
671 { 672 {
672 symbol_record *sym_rec = curr_sym_tab->lookup (s, 0, 0); 673 symbol_record *sym_rec = curr_sym_tab->lookup (s, 0, 0);
673 if (sym_rec != (symbol_record *) NULL) 674 if (sym_rec != (symbol_record *) NULL)
674 sym_rec->make_eternal (); 675 sym_rec->make_eternal ();
675 } 676 }
894 make_eternal ("nan"); 895 make_eternal ("nan");
895 #endif 896 #endif
896 } 897 }
897 898
898 int 899 int
899 is_text_function_name (char *s) 900 is_text_function_name (const char *s)
900 { 901 {
901 int retval = 0; 902 int retval = 0;
902 903
903 builtin_text_functions *tfptr = text_functions; 904 builtin_text_functions *tfptr = text_functions;
904 while (tfptr->name != (char *) NULL) 905 while (tfptr->name != (char *) NULL)