annotate src/symtab.h @ 4913:c8368716bab3

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