Mercurial > hg > octave-lyh
annotate libinterp/interpfcn/variables.h @ 16207:0467d68ca891
move current_input_line to lexical_feedback class
* input.h, input.cc, lex.h, lex.ll (current_input_line): Declare as
member of lexical_feedback class.
(octave_base_reader::octave_gets, octave_terminal_reader::get_input,
octave_file_reader::get_input, octave_eval_string_reader::get_input):
Don't set current_input_line.
(octave_lexer::read): Set current_input_line.
* oct-parse.in.yy (octave_parser::bison_error): Use
curr_lexer->current_input_line.
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Wed, 06 Mar 2013 19:39:48 -0500 |
| parents | 85e3ebc11da4 |
| children |
| rev | line source |
|---|---|
| 1 | 1 /* |
| 2 | |
|
14138
72c96de7a403
maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
3 Copyright (C) 1993-2012 John W. Eaton |
| 1 | 4 |
| 5 This file is part of Octave. | |
| 6 | |
| 7 Octave is free software; you can redistribute it and/or modify it | |
| 8 under the terms of the GNU General Public License as published by the | |
| 7016 | 9 Free Software Foundation; either version 3 of the License, or (at your |
| 10 option) any later version. | |
| 1 | 11 |
| 12 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
| 7016 | 18 along with Octave; see the file COPYING. If not, see |
| 19 <http://www.gnu.org/licenses/>. | |
| 1 | 20 |
| 21 */ | |
| 22 | |
| 383 | 23 #if !defined (octave_variables_h) |
| 24 #define octave_variables_h 1 | |
| 1 | 25 |
| 2975 | 26 class octave_function; |
| 4700 | 27 class octave_user_function; |
| 1738 | 28 |
| 2390 | 29 class tree_identifier; |
| 2086 | 30 class octave_value; |
| 31 class octave_value_list; | |
| 2892 | 32 class octave_builtin; |
| 1755 | 33 class string_vector; |
| 34 | |
| 5794 | 35 #include <cfloat> |
| 36 | |
|
15215
9020dddc925a
use std::numeric_limits for integer max and min values
John W. Eaton <jwe@octave.org>
parents:
15213
diff
changeset
|
37 #include <limits> |
| 1755 | 38 #include <string> |
| 1 | 39 |
|
15215
9020dddc925a
use std::numeric_limits for integer max and min values
John W. Eaton <jwe@octave.org>
parents:
15213
diff
changeset
|
40 #include "lo-ieee.h" |
|
9020dddc925a
use std::numeric_limits for integer max and min values
John W. Eaton <jwe@octave.org>
parents:
15213
diff
changeset
|
41 |
| 2390 | 42 #include "ov.h" |
| 2975 | 43 #include "ov-builtin.h" |
| 2953 | 44 #include "symtab.h" |
| 195 | 45 |
| 6109 | 46 extern OCTINTERP_API void clear_mex_functions (void); |
| 195 | 47 |
| 6109 | 48 extern OCTINTERP_API octave_function * |
| 3523 | 49 is_valid_function (const octave_value&, const std::string& = std::string (), |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
50 bool warn = false); |
| 593 | 51 |
| 6109 | 52 extern OCTINTERP_API octave_function * |
| 3523 | 53 is_valid_function (const std::string&, const std::string& = std::string (), |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
54 bool warn = false); |
| 3178 | 55 |
| 6109 | 56 extern OCTINTERP_API octave_function * |
| 3523 | 57 extract_function (const octave_value& arg, const std::string& warn_for, |
| 10313 | 58 const std::string& fname, const std::string& header, |
| 59 const std::string& trailer); | |
| 2796 | 60 |
| 6109 | 61 extern OCTINTERP_API string_vector |
| 3523 | 62 get_struct_elts (const std::string& text); |
| 2921 | 63 |
| 6109 | 64 extern OCTINTERP_API string_vector |
| 3523 | 65 generate_struct_completions (const std::string& text, std::string& prefix, |
| 10313 | 66 std::string& hint); |
| 3020 | 67 |
| 6109 | 68 extern OCTINTERP_API bool |
| 3523 | 69 looks_like_struct (const std::string& text); |
| 2921 | 70 |
| 6109 | 71 extern OCTINTERP_API int |
| 4930 | 72 symbol_exist (const std::string& name, const std::string& type = "any"); |
| 4319 | 73 |
| 6109 | 74 extern OCTINTERP_API std::string |
| 4954 | 75 unique_symbol_name (const std::string& basename); |
| 76 | |
| 6109 | 77 extern OCTINTERP_API octave_value lookup_function_handle (const std::string& nm); |
| 4988 | 78 |
| 6109 | 79 extern OCTINTERP_API octave_value |
| 5027 | 80 get_global_value (const std::string& nm, bool silent = false); |
| 3020 | 81 |
|
10071
e42b1bbd1052
variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
82 extern OCTINTERP_API void |
|
e42b1bbd1052
variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
83 set_global_value (const std::string& nm, const octave_value& val); |
|
e42b1bbd1052
variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
84 |
|
e42b1bbd1052
variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
85 extern OCTINTERP_API octave_value |
|
e42b1bbd1052
variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
86 get_top_level_value (const std::string& nm, bool silent = false); |
|
e42b1bbd1052
variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
87 |
|
e42b1bbd1052
variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
88 extern OCTINTERP_API void |
|
e42b1bbd1052
variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
89 set_top_level_value (const std::string& nm, const octave_value& val); |
| 3020 | 90 |
| 6109 | 91 extern OCTINTERP_API octave_value |
| 5791 | 92 set_internal_variable (bool& var, const octave_value_list& args, |
| 10313 | 93 int nargout, const char *nm); |
| 5794 | 94 |
| 6109 | 95 extern OCTINTERP_API octave_value |
| 5794 | 96 set_internal_variable (char& var, const octave_value_list& args, |
| 10313 | 97 int nargout, const char *nm); |
| 5794 | 98 |
| 6109 | 99 extern OCTINTERP_API octave_value |
| 5794 | 100 set_internal_variable (int& var, const octave_value_list& args, |
| 10313 | 101 int nargout, const char *nm, |
|
15215
9020dddc925a
use std::numeric_limits for integer max and min values
John W. Eaton <jwe@octave.org>
parents:
15213
diff
changeset
|
102 int minval = std::numeric_limits<int>::min (), |
|
9020dddc925a
use std::numeric_limits for integer max and min values
John W. Eaton <jwe@octave.org>
parents:
15213
diff
changeset
|
103 int maxval = std::numeric_limits<int>::max ()); |
| 5794 | 104 |
| 6109 | 105 extern OCTINTERP_API octave_value |
| 5794 | 106 set_internal_variable (double& var, const octave_value_list& args, |
| 10313 | 107 int nargout, const char *nm, |
|
15213
336f42406671
use numeric_limits functions instead of DBL_MIN, DBL_MAX, etc.
John W. Eaton <jwe@octave.org>
parents:
15195
diff
changeset
|
108 double minval = -octave_Inf, |
|
336f42406671
use numeric_limits functions instead of DBL_MIN, DBL_MAX, etc.
John W. Eaton <jwe@octave.org>
parents:
15195
diff
changeset
|
109 double maxval = octave_Inf); |
| 5791 | 110 |
| 6109 | 111 extern OCTINTERP_API octave_value |
| 5791 | 112 set_internal_variable (std::string& var, const octave_value_list& args, |
| 10313 | 113 int nargout, const char *nm, bool empty_ok = true); |
| 5794 | 114 |
|
10638
e1559a8a60b4
general mechanism for string enum variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10443
diff
changeset
|
115 extern OCTINTERP_API octave_value |
|
e1559a8a60b4
general mechanism for string enum variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10443
diff
changeset
|
116 set_internal_variable (int& var, const octave_value_list& args, |
|
10640
5c594472f75e
determine string enum length by trailing null rather than sizeof
Jaroslav Hajek <highegg@gmail.com>
parents:
10638
diff
changeset
|
117 int nargout, const char *nm, const char **choices); |
|
10638
e1559a8a60b4
general mechanism for string enum variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10443
diff
changeset
|
118 |
| 5794 | 119 #define SET_INTERNAL_VARIABLE(NM) \ |
| 120 set_internal_variable (V ## NM, args, nargout, #NM) | |
| 5791 | 121 |
| 5794 | 122 #define SET_NONEMPTY_INTERNAL_STRING_VARIABLE(NM) \ |
| 123 set_internal_variable (V ## NM, args, nargout, #NM, false) | |
| 124 | |
| 125 #define SET_INTERNAL_VARIABLE_WITH_LIMITS(NM, MINVAL, MAXVAL) \ | |
| 126 set_internal_variable (V ## NM, args, nargout, #NM, MINVAL, MAXVAL) | |
| 5791 | 127 |
|
10640
5c594472f75e
determine string enum length by trailing null rather than sizeof
Jaroslav Hajek <highegg@gmail.com>
parents:
10638
diff
changeset
|
128 // in the following, CHOICES must be a C string array terminated by null. |
|
10638
e1559a8a60b4
general mechanism for string enum variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10443
diff
changeset
|
129 #define SET_INTERNAL_VARIABLE_CHOICES(NM, CHOICES) \ |
|
10640
5c594472f75e
determine string enum length by trailing null rather than sizeof
Jaroslav Hajek <highegg@gmail.com>
parents:
10638
diff
changeset
|
130 set_internal_variable (V ## NM, args, nargout, #NM, CHOICES) |
|
10638
e1559a8a60b4
general mechanism for string enum variables
Jaroslav Hajek <highegg@gmail.com>
parents:
10443
diff
changeset
|
131 |
| 6109 | 132 extern OCTINTERP_API std::string builtin_string_variable (const std::string&); |
| 133 extern OCTINTERP_API int builtin_real_scalar_variable (const std::string&, double&); | |
| 134 extern OCTINTERP_API octave_value builtin_any_variable (const std::string&); | |
| 3020 | 135 |
| 6109 | 136 extern OCTINTERP_API void bind_ans (const octave_value& val, bool print); |
| 1162 | 137 |
| 6109 | 138 extern OCTINTERP_API void |
|
15481
85e3ebc11da4
* variables.cc (bind_internal_variable): Tag with GCC_ATTR_DEPRECATED.
John W. Eaton <jwe@octave.org>
parents:
15420
diff
changeset
|
139 bind_internal_variable (const std::string& fname, |
|
85e3ebc11da4
* variables.cc (bind_internal_variable): Tag with GCC_ATTR_DEPRECATED.
John W. Eaton <jwe@octave.org>
parents:
15420
diff
changeset
|
140 const octave_value& val) GCC_ATTR_DEPRECATED; |
| 1406 | 141 |
| 7336 | 142 extern OCTINTERP_API void mlock (void); |
| 6109 | 143 extern OCTINTERP_API void munlock (const std::string&); |
| 144 extern OCTINTERP_API bool mislocked (const std::string&); | |
| 4016 | 145 |
| 7336 | 146 extern OCTINTERP_API void clear_function (const std::string& nm); |
| 147 extern OCTINTERP_API void clear_variable (const std::string& nm); | |
| 148 extern OCTINTERP_API void clear_symbol (const std::string& nm); | |
| 4009 | 149 |
|
10443
34e51d4e199b
implement smart warnings about missing Matlab functionality
Jaroslav Hajek <highegg@gmail.com>
parents:
10313
diff
changeset
|
150 extern OCTINTERP_API void maybe_missing_function_hook (const std::string& name); |
|
34e51d4e199b
implement smart warnings about missing Matlab functionality
Jaroslav Hajek <highegg@gmail.com>
parents:
10313
diff
changeset
|
151 |
| 1 | 152 #endif |