annotate src/symtab.h @ 5070:1e6f653ef1e3 ss-2-1-61

[project @ 2004-11-06 00:33:38 by jwe]
author jwe
date Sat, 06 Nov 2004 00:33:38 +0000
parents 1eb9ce5c0152
children b04b30d30c66
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
1 /*
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
2
2847
8b262e771614 [project @ 1997-03-27 16:18:26 by jwe]
jwe
parents: 2846
diff changeset
3 Copyright (C) 1996, 1997 John W. Eaton
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
4
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
5 This file is part of Octave.
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
6
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
7 Octave is free software; you can redistribute it and/or modify it
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
8 under the terms of the GNU General Public License as published by the
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
9 Free Software Foundation; either version 2, or (at your option) any
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
10 later version.
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
11
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
12 Octave is distributed in the hope that it will be useful, but WITHOUT
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
15 for more details.
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
16
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
18 along with Octave; see the file COPYING. If not, write to the Free
1315
611d403c7f3d [project @ 1995-06-25 19:56:32 by jwe]
jwe
parents: 1297
diff changeset
19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
20
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
21 */
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
22
383
0b52c68ec81f [project @ 1994-03-09 21:19:44 by jwe]
jwe
parents: 276
diff changeset
23 #if !defined (octave_symtab_h)
0b52c68ec81f [project @ 1994-03-09 21:19:44 by jwe]
jwe
parents: 276
diff changeset
24 #define octave_symtab_h 1
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
25
4192
5719210fff4c [project @ 2002-11-20 16:56:47 by jwe]
jwe
parents: 4066
diff changeset
26 #if defined (__GNUG__) && defined (USE_PRAGMA_INTERFACE_IMPLEMENTATION)
1297
12ecc2ecf0e3 [project @ 1995-05-01 18:39:43 by jwe]
jwe
parents: 1009
diff changeset
27 #pragma interface
12ecc2ecf0e3 [project @ 1995-05-01 18:39:43 by jwe]
jwe
parents: 1009
diff changeset
28 #endif
12ecc2ecf0e3 [project @ 1995-05-01 18:39:43 by jwe]
jwe
parents: 1009
diff changeset
29
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
30 #include <cassert>
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
31
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1738
diff changeset
32 #include <string>
4214
b9317f3973ec [project @ 2002-12-04 04:57:01 by jwe]
jwe
parents: 4208
diff changeset
33 #include <stack>
220
f736a3ec137e [project @ 1993-11-14 00:10:26 by jwe]
jwe
parents: 200
diff changeset
34
4238
a5a68c0afe56 [project @ 2002-12-25 21:04:33 by jwe]
jwe
parents: 4234
diff changeset
35 #include "lo-sstream.h"
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
36 #include "oct-alloc.h"
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1738
diff changeset
37 #include "str-vec.h"
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1738
diff changeset
38
2975
b9c107cbe388 [project @ 1997-05-15 20:01:00 by jwe]
jwe
parents: 2956
diff changeset
39 #include "ov.h"
b9c107cbe388 [project @ 1997-05-15 20:01:00 by jwe]
jwe
parents: 2956
diff changeset
40
2979
a3556d2adec9 [project @ 1997-05-15 22:35:37 by jwe]
jwe
parents: 2975
diff changeset
41 class octave_lvalue;
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
42
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1738
diff changeset
43 class string_vector;
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1738
diff changeset
44
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
45 class symbol_record;
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
46 class symbol_table;
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
47
4913
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
48 struct
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
49 whos_parameter
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
50 {
4914
1c0442da75fd [project @ 2004-07-23 16:55:13 by jwe]
jwe
parents: 4913
diff changeset
51 char command;
1c0442da75fd [project @ 2004-07-23 16:55:13 by jwe]
jwe
parents: 4913
diff changeset
52 char modifier;
1c0442da75fd [project @ 2004-07-23 16:55:13 by jwe]
jwe
parents: 4913
diff changeset
53 int parameter_length;
1c0442da75fd [project @ 2004-07-23 16:55:13 by jwe]
jwe
parents: 4913
diff changeset
54 int first_parameter_length;
1c0442da75fd [project @ 2004-07-23 16:55:13 by jwe]
jwe
parents: 4913
diff changeset
55 int dimensions;
1c0442da75fd [project @ 2004-07-23 16:55:13 by jwe]
jwe
parents: 4913
diff changeset
56 int balance;
4913
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
57 std::string text;
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
58 std::string line;
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
59 };
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
60
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
61 // Individual records in a symbol table.
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
62
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
63 class
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
64 symbol_record
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
65 {
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
66 public:
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
67
3258
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
68 // If you add or delete an entry here, you'll also need to change
3325
2efa28a91e7a [project @ 1999-10-29 21:39:20 by jwe]
jwe
parents: 3258
diff changeset
69 // the width parameter in the declaration for symbol_type below...
3258
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
70
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
71 enum TYPE
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
72 {
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
73 UNKNOWN = 0,
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
74 USER_FUNCTION = 1,
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
75 USER_VARIABLE = 2,
3325
2efa28a91e7a [project @ 1999-10-29 21:39:20 by jwe]
jwe
parents: 3258
diff changeset
76 DLD_FUNCTION = 4,
2efa28a91e7a [project @ 1999-10-29 21:39:20 by jwe]
jwe
parents: 3258
diff changeset
77 BUILTIN_FUNCTION = 8,
4208
e96f52432059 [project @ 2002-12-03 19:48:57 by jwe]
jwe
parents: 4207
diff changeset
78 COMMAND = 16,
3325
2efa28a91e7a [project @ 1999-10-29 21:39:20 by jwe]
jwe
parents: 3258
diff changeset
79 MAPPER_FUNCTION = 32,
2efa28a91e7a [project @ 1999-10-29 21:39:20 by jwe]
jwe
parents: 3258
diff changeset
80 BUILTIN_VARIABLE = 64,
2efa28a91e7a [project @ 1999-10-29 21:39:20 by jwe]
jwe
parents: 3258
diff changeset
81 BUILTIN_CONSTANT = 128
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
82 };
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
83
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
84 private:
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
85
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
86 // Variables or functions.
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
87
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
88 class symbol_def
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
89 {
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
90 public:
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
91
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
92 symbol_def (const octave_value& val = octave_value (),
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
93 unsigned int sym_type = 0)
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
94 : symbol_type (sym_type), eternal (0), read_only (0), help_string (),
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
95 definition (val), count (1) { }
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
96
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
97 ~symbol_def (void) { }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
98
3258
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
99 bool is_constant (void) const
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
100 { return (symbol_type & symbol_record::BUILTIN_CONSTANT); }
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
101
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
102 bool is_variable (void) const
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
103 {
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
104 return (symbol_type & symbol_record::USER_VARIABLE
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
105 || symbol_type & symbol_record::BUILTIN_VARIABLE);
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
106 }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
107
4208
e96f52432059 [project @ 2002-12-03 19:48:57 by jwe]
jwe
parents: 4207
diff changeset
108 // It's not necessary to check for COMMAND and MAPPER_FUNCTION
3968
cef0ea4d1b3a [project @ 2002-07-01 19:16:01 by jwe]
jwe
parents: 3941
diff changeset
109 // here. Those tags are just used as additional qualifiers for
cef0ea4d1b3a [project @ 2002-07-01 19:16:01 by jwe]
jwe
parents: 3941
diff changeset
110 // the other types of functions.
cef0ea4d1b3a [project @ 2002-07-01 19:16:01 by jwe]
jwe
parents: 3941
diff changeset
111
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
112 bool is_function (void) const
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
113 {
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
114 return (symbol_type & symbol_record::USER_FUNCTION
3325
2efa28a91e7a [project @ 1999-10-29 21:39:20 by jwe]
jwe
parents: 3258
diff changeset
115 || symbol_type & symbol_record::DLD_FUNCTION
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
116 || symbol_type & symbol_record::BUILTIN_FUNCTION);
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
117 }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
118
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
119 bool is_user_variable (void) const
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
120 { return (symbol_type & symbol_record::USER_VARIABLE); }
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
121
4208
e96f52432059 [project @ 2002-12-03 19:48:57 by jwe]
jwe
parents: 4207
diff changeset
122 void mark_as_command (void)
e96f52432059 [project @ 2002-12-03 19:48:57 by jwe]
jwe
parents: 4207
diff changeset
123 { symbol_type |= symbol_record::COMMAND; }
4207
fa3482b34599 [project @ 2002-12-03 18:22:05 by jwe]
jwe
parents: 4192
diff changeset
124
4208
e96f52432059 [project @ 2002-12-03 19:48:57 by jwe]
jwe
parents: 4207
diff changeset
125 void unmark_command (void)
e96f52432059 [project @ 2002-12-03 19:48:57 by jwe]
jwe
parents: 4207
diff changeset
126 { symbol_type &= ~symbol_record::COMMAND; }
4207
fa3482b34599 [project @ 2002-12-03 18:22:05 by jwe]
jwe
parents: 4192
diff changeset
127
4208
e96f52432059 [project @ 2002-12-03 19:48:57 by jwe]
jwe
parents: 4207
diff changeset
128 bool is_command (void) const
e96f52432059 [project @ 2002-12-03 19:48:57 by jwe]
jwe
parents: 4207
diff changeset
129 { return (symbol_type & symbol_record::COMMAND); }
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
130
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
131 bool is_mapper_function (void) const
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
132 { return (symbol_type & symbol_record::MAPPER_FUNCTION); }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
133
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
134 bool is_user_function (void) const
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
135 { return (symbol_type & symbol_record::USER_FUNCTION); }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
136
3258
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
137 bool is_builtin_constant (void) const
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
138 { return (symbol_type & symbol_record::BUILTIN_CONSTANT); }
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
139
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
140 bool is_builtin_variable (void) const
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
141 { return (symbol_type & symbol_record::BUILTIN_VARIABLE); }
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
142
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
143 bool is_builtin_function (void) const
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
144 { return (symbol_type & symbol_record::BUILTIN_FUNCTION); }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
145
3325
2efa28a91e7a [project @ 1999-10-29 21:39:20 by jwe]
jwe
parents: 3258
diff changeset
146 bool is_dld_function (void) const
2efa28a91e7a [project @ 1999-10-29 21:39:20 by jwe]
jwe
parents: 3258
diff changeset
147 { return (symbol_type & symbol_record::DLD_FUNCTION); }
2efa28a91e7a [project @ 1999-10-29 21:39:20 by jwe]
jwe
parents: 3258
diff changeset
148
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
149 // XXX FIXME XXX
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
150 bool is_map_element (const std::string& /* elts */) const
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
151 { return false; }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
152
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
153 bool is_defined (void) const
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
154 { return definition.is_defined (); }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
155
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
156 bool is_read_only (void) const
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
157 { return read_only; }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
158
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
159 bool is_eternal (void) const
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
160 { return eternal; }
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
161
4913
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
162 bool is_matrix_type (void) const
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
163 { return definition.is_matrix_type (); }
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
164
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
165 size_t byte_size (void) const
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
166 { return definition.byte_size (); };
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
167
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
168 int numel (void) const
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
169 { return definition.numel (); };
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
170
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
171 dim_vector dims (void) const
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
172 { return definition.dims (); }
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
173
3013
66a1cede95e7 [project @ 1997-06-02 19:35:05 by jwe]
jwe
parents: 3011
diff changeset
174 int rows (void) const { return definition.rows (); }
66a1cede95e7 [project @ 1997-06-02 19:35:05 by jwe]
jwe
parents: 3011
diff changeset
175 int columns (void) const { return definition.columns (); }
66a1cede95e7 [project @ 1997-06-02 19:35:05 by jwe]
jwe
parents: 3011
diff changeset
176
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
177 std::string type_name (void) const { return definition.type_name (); }
3013
66a1cede95e7 [project @ 1997-06-02 19:35:05 by jwe]
jwe
parents: 3011
diff changeset
178
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
179 std::string type_as_string (void) const;
3355
c4983fc7318f [project @ 1999-11-18 05:20:50 by jwe]
jwe
parents: 3325
diff changeset
180
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
181 void type (std::ostream& os, const std::string& name, bool pr_type_info,
3356
d2e12e998a78 [project @ 1999-11-18 06:17:06 by jwe]
jwe
parents: 3355
diff changeset
182 bool quiet, bool pr_orig_txt);
d2e12e998a78 [project @ 1999-11-18 06:17:06 by jwe]
jwe
parents: 3355
diff changeset
183
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
184 std::string which (const std::string& name);
3355
c4983fc7318f [project @ 1999-11-18 05:20:50 by jwe]
jwe
parents: 3325
diff changeset
185
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
186 void which (std::ostream& os, const std::string& name);
3355
c4983fc7318f [project @ 1999-11-18 05:20:50 by jwe]
jwe
parents: 3325
diff changeset
187
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
188 void define (const octave_value& val, unsigned int sym_type)
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
189 {
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
190 definition = val;
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
191 symbol_type = sym_type;
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
192 }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
193
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
194 void protect (void) { read_only = 1; }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
195
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
196 void unprotect (void) { read_only = 0; }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
197
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
198 void make_eternal (void) { eternal = 1; }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
199
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
200 octave_value& def (void) { return definition; }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
201
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
202 std::string help (void) const { return help_string; }
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
203
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
204 void document (const std::string& h) { help_string = h; }
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
205
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
206 unsigned int type (void) { return symbol_type; }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
207
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
208 void *operator new (size_t size)
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
209 { return allocator.alloc (size); }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
210
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
211 void operator delete (void *p, size_t size)
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
212 { allocator.free (p, size); }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
213
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
214 static octave_allocator allocator;
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
215
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
216 // The type of this symbol (see the enum above).
3325
2efa28a91e7a [project @ 1999-10-29 21:39:20 by jwe]
jwe
parents: 3258
diff changeset
217 unsigned int symbol_type : 8;
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
218
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
219 // Nonzero means this variable cannot be cleared.
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
220 unsigned int eternal : 1;
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
221
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
222 // Nonzero means this variable cannot be given a new value.
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
223 unsigned int read_only : 1;
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
224
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
225 // The doc string associated with this variable.
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
226 std::string help_string;
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
227
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
228 // The value of this definition. See ov.h and related files.
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
229 octave_value definition;
767
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe]
jwe
parents: 605
diff changeset
230
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
231 // Reference count.
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
232 int count;
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
233
3933
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe]
jwe
parents: 3523
diff changeset
234 void print_info (std::ostream& os,
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe]
jwe
parents: 3523
diff changeset
235 const std::string& prefix = std::string ()) const;
3239
d54ef0aa6e82 [project @ 1999-03-27 17:40:45 by jwe]
jwe
parents: 3013
diff changeset
236
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
237 // No copying!
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
238
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
239 symbol_def (const symbol_def& sd);
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
240
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
241 symbol_def& operator = (const symbol_def& sd);
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
242 };
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
243
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
244 public:
2953
ca7d3625ee01 [project @ 1997-05-09 14:56:52 by jwe]
jwe
parents: 2948
diff changeset
245
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
246 typedef int (*change_function) (void);
2953
ca7d3625ee01 [project @ 1997-05-09 14:56:52 by jwe]
jwe
parents: 2948
diff changeset
247
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
248 symbol_record (void)
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
249 : formal_param (0), linked_to_global (0), tagged_static (0),
4234
90e44267e8cf [project @ 2002-12-21 17:15:25 by jwe]
jwe
parents: 4214
diff changeset
250 can_hide_function (1), nm (), chg_fcn (0),
90e44267e8cf [project @ 2002-12-21 17:15:25 by jwe]
jwe
parents: 4214
diff changeset
251 definition (new symbol_def ()), next_elem (0) { }
90e44267e8cf [project @ 2002-12-21 17:15:25 by jwe]
jwe
parents: 4214
diff changeset
252
90e44267e8cf [project @ 2002-12-21 17:15:25 by jwe]
jwe
parents: 4214
diff changeset
253 // XXX FIXME XXX -- kluge alert! We obviously need a better way of
90e44267e8cf [project @ 2002-12-21 17:15:25 by jwe]
jwe
parents: 4214
diff changeset
254 // handling allow_shadow!
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
255
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
256 symbol_record (const std::string& n, symbol_record *nxt)
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
257 : formal_param (0), linked_to_global (0), tagged_static (0),
4234
90e44267e8cf [project @ 2002-12-21 17:15:25 by jwe]
jwe
parents: 4214
diff changeset
258 can_hide_function (n != "__end__"), nm (n), chg_fcn (0),
90e44267e8cf [project @ 2002-12-21 17:15:25 by jwe]
jwe
parents: 4214
diff changeset
259 definition (new symbol_def ()), next_elem (nxt) { }
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
260
5013
1eb9ce5c0152 [project @ 2004-09-21 22:18:07 by jwe]
jwe
parents: 4914
diff changeset
261 ~symbol_record (void)
1eb9ce5c0152 [project @ 2004-09-21 22:18:07 by jwe]
jwe
parents: 4914
diff changeset
262 {
1eb9ce5c0152 [project @ 2004-09-21 22:18:07 by jwe]
jwe
parents: 4914
diff changeset
263 if (--definition->count <= 0)
1eb9ce5c0152 [project @ 2004-09-21 22:18:07 by jwe]
jwe
parents: 4914
diff changeset
264 delete definition;
1eb9ce5c0152 [project @ 2004-09-21 22:18:07 by jwe]
jwe
parents: 4914
diff changeset
265 }
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
266
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
267 std::string name (void) const { return nm; }
2975
b9c107cbe388 [project @ 1997-05-15 20:01:00 by jwe]
jwe
parents: 2956
diff changeset
268
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
269 std::string help (void) const { return definition->help (); }
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
270
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
271 octave_value& def (void) { return definition->def (); }
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
272
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
273 void rename (const std::string& new_name);
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
274
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
275 bool is_function (void) const
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
276 { return definition->is_function (); }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
277
4208
e96f52432059 [project @ 2002-12-03 19:48:57 by jwe]
jwe
parents: 4207
diff changeset
278 void mark_as_command (void)
e96f52432059 [project @ 2002-12-03 19:48:57 by jwe]
jwe
parents: 4207
diff changeset
279 { definition->mark_as_command (); }
4207
fa3482b34599 [project @ 2002-12-03 18:22:05 by jwe]
jwe
parents: 4192
diff changeset
280
4208
e96f52432059 [project @ 2002-12-03 19:48:57 by jwe]
jwe
parents: 4207
diff changeset
281 void unmark_command (void)
e96f52432059 [project @ 2002-12-03 19:48:57 by jwe]
jwe
parents: 4207
diff changeset
282 { definition->unmark_command (); }
4207
fa3482b34599 [project @ 2002-12-03 18:22:05 by jwe]
jwe
parents: 4192
diff changeset
283
4208
e96f52432059 [project @ 2002-12-03 19:48:57 by jwe]
jwe
parents: 4207
diff changeset
284 bool is_command (void) const
e96f52432059 [project @ 2002-12-03 19:48:57 by jwe]
jwe
parents: 4207
diff changeset
285 { return definition->is_command (); }
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
286
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
287 bool is_mapper_function (void) const
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
288 { return definition->is_mapper_function (); }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
289
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
290 bool is_user_function (void) const
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
291 { return definition->is_user_function (); }
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
292
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
293 bool is_builtin_function (void) const
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
294 { return definition->is_builtin_function (); }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
295
3325
2efa28a91e7a [project @ 1999-10-29 21:39:20 by jwe]
jwe
parents: 3258
diff changeset
296 bool is_dld_function (void) const
2efa28a91e7a [project @ 1999-10-29 21:39:20 by jwe]
jwe
parents: 3258
diff changeset
297 { return definition->is_dld_function (); }
2efa28a91e7a [project @ 1999-10-29 21:39:20 by jwe]
jwe
parents: 3258
diff changeset
298
3258
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
299 bool is_constant (void) const
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
300 { return definition->is_constant (); }
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
301
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
302 bool is_builtin_constant (void) const
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
303 { return definition->is_builtin_constant (); }
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
304
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
305 bool is_variable (void) const
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
306 { return definition->is_variable (); }
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
307
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
308 bool is_user_variable (void) const
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
309 { return definition->is_user_variable (); }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
310
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
311 bool is_builtin_variable (void) const
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
312 { return definition->is_builtin_variable (); }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
313
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
314 bool is_map_element (const std::string& elts) const
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
315 { return definition->is_map_element (elts); }
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
316
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
317 unsigned int type (void) const { return definition->type (); }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
318
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
319 bool is_defined (void) const { return definition->is_defined (); }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
320
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
321 bool is_read_only (void) const { return definition->is_read_only (); }
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
322
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
323 bool is_eternal (void) const { return definition->is_eternal (); }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
324
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
325 void protect (void) { definition->protect (); }
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
326
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
327 void unprotect (void) { definition->unprotect (); }
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
328
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
329 void make_eternal (void) { definition->make_eternal (); }
2893
9fd1df4b464a [project @ 1997-04-28 02:07:38 by jwe]
jwe
parents: 2856
diff changeset
330
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
331 void set_change_function (change_function f) { chg_fcn = f; }
2893
9fd1df4b464a [project @ 1997-04-28 02:07:38 by jwe]
jwe
parents: 2856
diff changeset
332
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
333 void define (const octave_value& v, unsigned int sym_type = USER_VARIABLE);
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
334
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
335 void define_builtin_var (const octave_value& v);
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
336
3258
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
337 bool define_builtin_const (const octave_value& v);
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
338
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
339 bool define (octave_function *f, unsigned int sym_type);
2893
9fd1df4b464a [project @ 1997-04-28 02:07:38 by jwe]
jwe
parents: 2856
diff changeset
340
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
341 void document (const std::string& h) { definition->document (h); }
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
342
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
343 void clear (void);
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
344
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
345 void alias (symbol_record *s);
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
346
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
347 void mark_as_formal_parameter (void);
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
348 bool is_formal_parameter (void) const { return formal_param; }
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
349
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
350 void mark_as_linked_to_global (void);
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
351 bool is_linked_to_global (void) const { return linked_to_global; }
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
352
2846
52e7c4509983 [project @ 1997-03-26 23:27:35 by jwe]
jwe
parents: 2791
diff changeset
353 void mark_as_static (void);
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
354 bool is_static (void) const { return tagged_static; }
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4238
diff changeset
355 void unmark_static (void) { tagged_static = false; }
2846
52e7c4509983 [project @ 1997-03-26 23:27:35 by jwe]
jwe
parents: 2791
diff changeset
356
4913
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
357 bool is_matrix_type (void) const
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
358 { return definition->is_matrix_type (); }
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
359
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
360 size_t byte_size (void) const
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
361 { return definition->byte_size (); };
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
362
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
363 int numel (void) const
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
364 { return definition->numel (); };
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
365
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
366 dim_vector dims (void) const { return definition->dims (); }
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
367
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
368 int dimensions_string_req_first_space (int print_dims) const;
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
369
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
370 int dimensions_string_req_total_space (int print_dims) const;
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
371
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
372 std::string make_dimensions_string (int print_dims) const;
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
373
3013
66a1cede95e7 [project @ 1997-06-02 19:35:05 by jwe]
jwe
parents: 3011
diff changeset
374 int rows (void) const { return definition->rows (); }
66a1cede95e7 [project @ 1997-06-02 19:35:05 by jwe]
jwe
parents: 3011
diff changeset
375 int columns (void) const { return definition->columns (); }
66a1cede95e7 [project @ 1997-06-02 19:35:05 by jwe]
jwe
parents: 3011
diff changeset
376
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
377 std::string type_name (void) const { return definition->type_name (); }
3013
66a1cede95e7 [project @ 1997-06-02 19:35:05 by jwe]
jwe
parents: 3011
diff changeset
378
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
379 std::string type_as_string (void) const
3355
c4983fc7318f [project @ 1999-11-18 05:20:50 by jwe]
jwe
parents: 3325
diff changeset
380 { return definition->type_as_string (); }
c4983fc7318f [project @ 1999-11-18 05:20:50 by jwe]
jwe
parents: 3325
diff changeset
381
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
382 void type (std::ostream& os, bool pr_type_info, bool quiet, bool pr_orig_txt)
3356
d2e12e998a78 [project @ 1999-11-18 06:17:06 by jwe]
jwe
parents: 3355
diff changeset
383 { definition->type (os, name (), pr_type_info, quiet, pr_orig_txt); }
d2e12e998a78 [project @ 1999-11-18 06:17:06 by jwe]
jwe
parents: 3355
diff changeset
384
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
385 std::string which (void) { return definition->which (name ()); }
3355
c4983fc7318f [project @ 1999-11-18 05:20:50 by jwe]
jwe
parents: 3325
diff changeset
386
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
387 void which (std::ostream& os) { definition->which (os, name ()); }
3355
c4983fc7318f [project @ 1999-11-18 05:20:50 by jwe]
jwe
parents: 3325
diff changeset
388
2975
b9c107cbe388 [project @ 1997-05-15 20:01:00 by jwe]
jwe
parents: 2956
diff changeset
389 octave_value& variable_value (void);
2979
a3556d2adec9 [project @ 1997-05-15 22:35:37 by jwe]
jwe
parents: 2975
diff changeset
390 octave_lvalue variable_reference (void);
2390
c2c1482c34c8 [project @ 1996-10-12 19:13:23 by jwe]
jwe
parents: 2086
diff changeset
391
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
392 symbol_record *next (void) const { return next_elem; }
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
393
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
394 void chain (symbol_record *s) { next_elem = s; }
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
395
220
f736a3ec137e [project @ 1993-11-14 00:10:26 by jwe]
jwe
parents: 200
diff changeset
396 void push_context (void);
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
397
220
f736a3ec137e [project @ 1993-11-14 00:10:26 by jwe]
jwe
parents: 200
diff changeset
398 void pop_context (void);
f736a3ec137e [project @ 1993-11-14 00:10:26 by jwe]
jwe
parents: 200
diff changeset
399
4913
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
400 void print_symbol_info_line (std::ostream& os,
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
401 std::list<whos_parameter>& params) const;
3013
66a1cede95e7 [project @ 1997-06-02 19:35:05 by jwe]
jwe
parents: 3011
diff changeset
402
3933
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe]
jwe
parents: 3523
diff changeset
403 void print_info (std::ostream& os,
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe]
jwe
parents: 3523
diff changeset
404 const std::string& prefix = std::string ()) const;
3239
d54ef0aa6e82 [project @ 1999-03-27 17:40:45 by jwe]
jwe
parents: 3013
diff changeset
405
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
406 private:
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
407
2893
9fd1df4b464a [project @ 1997-04-28 02:07:38 by jwe]
jwe
parents: 2856
diff changeset
408 unsigned int formal_param : 1;
9fd1df4b464a [project @ 1997-04-28 02:07:38 by jwe]
jwe
parents: 2856
diff changeset
409 unsigned int linked_to_global : 1;
9fd1df4b464a [project @ 1997-04-28 02:07:38 by jwe]
jwe
parents: 2856
diff changeset
410 unsigned int tagged_static : 1;
4234
90e44267e8cf [project @ 2002-12-21 17:15:25 by jwe]
jwe
parents: 4214
diff changeset
411 unsigned int can_hide_function : 1;
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
412
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
413 std::string nm;
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
414 change_function chg_fcn;
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
415 symbol_def *definition;
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
416 symbol_record *next_elem;
395
ee3da0884aaa [project @ 1994-03-24 09:23:18 by jwe]
jwe
parents: 383
diff changeset
417
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
418 // This should maybe be one stack with a structure containing all the
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
419 // items we need to save for recursive calls...
4214
b9317f3973ec [project @ 2002-12-04 04:57:01 by jwe]
jwe
parents: 4208
diff changeset
420 std::stack <symbol_def *> context;
b9317f3973ec [project @ 2002-12-04 04:57:01 by jwe]
jwe
parents: 4208
diff changeset
421 std::stack <unsigned int> global_link_context;
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
422
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
423 bool read_only_error (const char *action);
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
424
3258
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
425 void link_to_builtin_variable (void);
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
426
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
427 // No copying!
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
428
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
429 symbol_record (const symbol_record& s);
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
430
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
431 symbol_record& operator = (const symbol_record& s);
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
432 };
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
433
767
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe]
jwe
parents: 605
diff changeset
434 // A symbol table.
200
2e4d2596f2c3 [project @ 1993-11-08 20:22:15 by jwe]
jwe
parents: 195
diff changeset
435
2e4d2596f2c3 [project @ 1993-11-08 20:22:15 by jwe]
jwe
parents: 195
diff changeset
436 #define SYMTAB_LOCAL_SCOPE 1
2e4d2596f2c3 [project @ 1993-11-08 20:22:15 by jwe]
jwe
parents: 195
diff changeset
437 #define SYMTAB_GLOBAL_SCOPE 2
2e4d2596f2c3 [project @ 1993-11-08 20:22:15 by jwe]
jwe
parents: 195
diff changeset
438
2e4d2596f2c3 [project @ 1993-11-08 20:22:15 by jwe]
jwe
parents: 195
diff changeset
439 #define SYMTAB_ALL_SCOPES (SYMTAB_LOCAL_SCOPE | SYMTAB_GLOBAL_SCOPE)
2e4d2596f2c3 [project @ 1993-11-08 20:22:15 by jwe]
jwe
parents: 195
diff changeset
440
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
441 #define SYMTAB_ALL_TYPES (symbol_record::USER_FUNCTION \
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
442 | symbol_record::USER_VARIABLE \
3325
2efa28a91e7a [project @ 1999-10-29 21:39:20 by jwe]
jwe
parents: 3258
diff changeset
443 | symbol_record::DLD_FUNCTION \
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
444 | symbol_record::BUILTIN_FUNCTION \
4208
e96f52432059 [project @ 2002-12-03 19:48:57 by jwe]
jwe
parents: 4207
diff changeset
445 | symbol_record::COMMAND \
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
446 | symbol_record::MAPPER_FUNCTION \
3258
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
447 | symbol_record::BUILTIN_VARIABLE \
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3239
diff changeset
448 | symbol_record::BUILTIN_CONSTANT)
200
2e4d2596f2c3 [project @ 1993-11-08 20:22:15 by jwe]
jwe
parents: 195
diff changeset
449
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
450 #define SYMTAB_VARIABLES (symbol_record::USER_VARIABLE \
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
451 | symbol_record::BUILTIN_VARIABLE)
1412
5db963ba9614 [project @ 1995-09-15 08:47:17 by jwe]
jwe
parents: 1315
diff changeset
452
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
453 class
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
454 symbol_table
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
455 {
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
456 public:
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
457
4238
a5a68c0afe56 [project @ 2002-12-25 21:04:33 by jwe]
jwe
parents: 4234
diff changeset
458 symbol_table (unsigned int tab_size = 128,
a5a68c0afe56 [project @ 2002-12-25 21:04:33 by jwe]
jwe
parents: 4234
diff changeset
459 const std::string& nm = std::string ())
a5a68c0afe56 [project @ 2002-12-25 21:04:33 by jwe]
jwe
parents: 4234
diff changeset
460 : table_size (tab_size), table (new symbol_record [table_size]),
a5a68c0afe56 [project @ 2002-12-25 21:04:33 by jwe]
jwe
parents: 4234
diff changeset
461 table_name (nm)
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
462 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
463 assert ((tab_size % 2) == 0);
4238
a5a68c0afe56 [project @ 2002-12-25 21:04:33 by jwe]
jwe
parents: 4234
diff changeset
464
a5a68c0afe56 [project @ 2002-12-25 21:04:33 by jwe]
jwe
parents: 4234
diff changeset
465 if (table_name.empty ())
a5a68c0afe56 [project @ 2002-12-25 21:04:33 by jwe]
jwe
parents: 4234
diff changeset
466 {
a5a68c0afe56 [project @ 2002-12-25 21:04:33 by jwe]
jwe
parents: 4234
diff changeset
467 OSSTREAM buf;
a5a68c0afe56 [project @ 2002-12-25 21:04:33 by jwe]
jwe
parents: 4234
diff changeset
468 buf << symtab_count++ << OSSTREAM_ENDS;
a5a68c0afe56 [project @ 2002-12-25 21:04:33 by jwe]
jwe
parents: 4234
diff changeset
469 table_name = OSSTREAM_STR (buf);
a5a68c0afe56 [project @ 2002-12-25 21:04:33 by jwe]
jwe
parents: 4234
diff changeset
470 OSSTREAM_FREEZE (buf);
a5a68c0afe56 [project @ 2002-12-25 21:04:33 by jwe]
jwe
parents: 4234
diff changeset
471 }
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
472 }
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
473
5013
1eb9ce5c0152 [project @ 2004-09-21 22:18:07 by jwe]
jwe
parents: 4914
diff changeset
474 ~symbol_table (void);
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
475
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
476 symbol_record *lookup (const std::string& nm, bool insert = false,
2856
8c516da3c1f7 [project @ 1997-03-31 06:37:21 by jwe]
jwe
parents: 2847
diff changeset
477 bool warn = false);
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
478
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
479 void rename (const std::string& old_name, const std::string& new_name);
572
94fd73d1a0bc [project @ 1994-07-28 05:35:47 by jwe]
jwe
parents: 541
diff changeset
480
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
481 void clear (void);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
482
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
483 void clear_variables (void);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
484 void clear_functions (void);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
485 void clear_globals (void);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
486
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
487 bool clear (const std::string& nm);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
488
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
489 bool clear_variable (const std::string& nm);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
490 bool clear_function (const std::string& nm);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
491 bool clear_global (const std::string& nm);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
492
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
493 bool clear_variable_pattern (const std::string& pat);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
494 bool clear_function_pattern (const std::string& pat);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
495 bool clear_global_pattern (const std::string& pat);
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
496
164
e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe]
jwe
parents: 121
diff changeset
497 int size (void) const;
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
498
3013
66a1cede95e7 [project @ 1997-06-02 19:35:05 by jwe]
jwe
parents: 3011
diff changeset
499 Array<symbol_record *>
4913
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
500 subsymbol_list (const string_vector& pats = string_vector (),
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
501 unsigned int type = SYMTAB_ALL_TYPES,
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
502 unsigned int scope = SYMTAB_ALL_SCOPES) const;
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
503
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
504 Array<symbol_record *>
3355
c4983fc7318f [project @ 1999-11-18 05:20:50 by jwe]
jwe
parents: 3325
diff changeset
505 symbol_list (const string_vector& pats = string_vector (),
3013
66a1cede95e7 [project @ 1997-06-02 19:35:05 by jwe]
jwe
parents: 3011
diff changeset
506 unsigned int type = SYMTAB_ALL_TYPES,
66a1cede95e7 [project @ 1997-06-02 19:35:05 by jwe]
jwe
parents: 3011
diff changeset
507 unsigned int scope = SYMTAB_ALL_SCOPES) const;
66a1cede95e7 [project @ 1997-06-02 19:35:05 by jwe]
jwe
parents: 3011
diff changeset
508
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 186
diff changeset
509
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1738
diff changeset
510 string_vector
3355
c4983fc7318f [project @ 1999-11-18 05:20:50 by jwe]
jwe
parents: 3325
diff changeset
511 name_list (const string_vector& pats = string_vector (),
3013
66a1cede95e7 [project @ 1997-06-02 19:35:05 by jwe]
jwe
parents: 3011
diff changeset
512 bool sort = false, unsigned int type = SYMTAB_ALL_TYPES,
66a1cede95e7 [project @ 1997-06-02 19:35:05 by jwe]
jwe
parents: 3011
diff changeset
513 unsigned int scope = SYMTAB_ALL_SCOPES) const;
605
4f65175911a6 [project @ 1994-08-13 20:10:39 by jwe]
jwe
parents: 572
diff changeset
514
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
515 string_vector
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
516 user_function_name_list (void) const
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
517 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
518 return name_list
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
519 (string_vector (), false,
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
520 symbol_record::USER_FUNCTION|symbol_record::DLD_FUNCTION,
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
521 SYMTAB_ALL_SCOPES);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
522 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
523
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
524 string_vector
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
525 global_variable_name_list (void) const
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
526 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
527 return name_list
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
528 (string_vector (), false, SYMTAB_VARIABLES, SYMTAB_GLOBAL_SCOPE);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
529 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
530
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
531 string_vector
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
532 variable_name_list (void) const
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
533 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
534 return name_list
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
535 (string_vector (), false, SYMTAB_VARIABLES, SYMTAB_LOCAL_SCOPE);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
536 }
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
537
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
538 int maybe_list (const char *header, const string_vector& argv,
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
539 std::ostream& os, bool show_verbose,
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
540 unsigned type, unsigned scope);
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
541
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
542 Array<symbol_record *> glob (const std::string& pat = std::string ("*"),
3355
c4983fc7318f [project @ 1999-11-18 05:20:50 by jwe]
jwe
parents: 3325
diff changeset
543 unsigned int type = SYMTAB_ALL_TYPES,
c4983fc7318f [project @ 1999-11-18 05:20:50 by jwe]
jwe
parents: 3325
diff changeset
544 unsigned int scope = SYMTAB_ALL_SCOPES) const;
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
545
220
f736a3ec137e [project @ 1993-11-14 00:10:26 by jwe]
jwe
parents: 200
diff changeset
546 void push_context (void);
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
547
220
f736a3ec137e [project @ 1993-11-14 00:10:26 by jwe]
jwe
parents: 200
diff changeset
548 void pop_context (void);
f736a3ec137e [project @ 1993-11-14 00:10:26 by jwe]
jwe
parents: 200
diff changeset
549
3941
fab8337340a1 [project @ 2002-05-16 20:05:55 by jwe]
jwe
parents: 3933
diff changeset
550 void print_info (std::ostream& os) const;
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
551
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
552 private:
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
553
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
554 unsigned int table_size;
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
555
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
556 symbol_record *table;
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
557
4238
a5a68c0afe56 [project @ 2002-12-25 21:04:33 by jwe]
jwe
parents: 4234
diff changeset
558 std::string table_name;
a5a68c0afe56 [project @ 2002-12-25 21:04:33 by jwe]
jwe
parents: 4234
diff changeset
559
a5a68c0afe56 [project @ 2002-12-25 21:04:33 by jwe]
jwe
parents: 4234
diff changeset
560 static unsigned long int symtab_count;
a5a68c0afe56 [project @ 2002-12-25 21:04:33 by jwe]
jwe
parents: 4234
diff changeset
561
4913
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
562 void
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
563 print_descriptor (std::ostream& os,
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
564 std::list<whos_parameter> params) const;
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
565
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
566 std::list<whos_parameter>
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
567 parse_whos_line_format (Array<symbol_record *>& symbols) const;
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
568
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3356
diff changeset
569 unsigned int hash (const std::string& s);
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
570
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
571 // No copying!
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
572
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
573 symbol_table (const symbol_table&);
1962
d329b8ea86e8 [project @ 1996-02-16 04:24:22 by jwe]
jwe
parents: 1884
diff changeset
574
3011
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
575 symbol_table& operator = (const symbol_table&);
2ad9af85b89b [project @ 1997-06-01 19:34:20 by jwe]
jwe
parents: 2979
diff changeset
576 };
2790
ecc1a12678de [project @ 1997-03-05 02:47:54 by jwe]
jwe
parents: 2404
diff changeset
577
4913
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
578 // Defines layout for the whos/who -long command.
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
579 extern std::string Vwhos_line_format;
c8368716bab3 [project @ 2004-07-23 16:00:48 by jwe]
jwe
parents: 4319
diff changeset
580
8
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
581 #endif
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
582
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
583 /*
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
584 ;;; Local Variables: ***
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
585 ;;; mode: C++ ***
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
586 ;;; End: ***
bd072d0a95f9 [project @ 1993-08-08 03:55:11 by jwe]
jwe
parents:
diff changeset
587 */