Mercurial > hg > octave-nkf
annotate src/lex.h @ 12119:e320928eeb3a release-3-2-x release-3-2-4
version 3.2.4
author | Jaroslav Hajek <highegg@gmail.com> |
---|---|
date | Fri, 22 Jan 2010 12:43:12 +0100 |
parents | b2790fd23800 |
children | 17af7cce7d1b |
rev | line source |
---|---|
1 | 1 /* |
2 | |
7017 | 3 Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2002, |
8920 | 4 2003, 2004, 2005, 2006, 2007, 2008, 2009 John W. Eaton |
1 | 5 |
6 This file is part of Octave. | |
7 | |
8 Octave is free software; you can redistribute it and/or modify it | |
9 under the terms of the GNU General Public License as published by the | |
7016 | 10 Free Software Foundation; either version 3 of the License, or (at your |
11 option) any later version. | |
1 | 12 |
13 Octave is distributed in the hope that it will be useful, but WITHOUT | |
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
16 for more details. | |
17 | |
18 You should have received a copy of the GNU General Public License | |
7016 | 19 along with Octave; see the file COPYING. If not, see |
20 <http://www.gnu.org/licenses/>. | |
1 | 21 |
22 */ | |
23 | |
383 | 24 #if !defined (octave_lex_h) |
25 #define octave_lex_h 1 | |
1 | 26 |
8745
6dc61981d18b
better handling of object indexing in lexer
John W. Eaton <jwe@octave.org>
parents:
8701
diff
changeset
|
27 #include <list> |
6dc61981d18b
better handling of object indexing in lexer
John W. Eaton <jwe@octave.org>
parents:
8701
diff
changeset
|
28 |
5775 | 29 // FIXME -- these input buffer things should be members of a |
1826 | 30 // parser input stream class. |
31 | |
1 | 32 typedef struct yy_buffer_state *YY_BUFFER_STATE; |
33 | |
34 // Associate a buffer with a new file to read. | |
9247
b2790fd23800
More export symbols to allow usage from an IDE.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
8920
diff
changeset
|
35 extern OCTINTERP_API YY_BUFFER_STATE create_buffer (FILE *f); |
1 | 36 |
37 // Report the current buffer. | |
9247
b2790fd23800
More export symbols to allow usage from an IDE.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
8920
diff
changeset
|
38 extern OCTINTERP_API YY_BUFFER_STATE current_buffer (void); |
1 | 39 |
40 // Connect to new buffer buffer. | |
9247
b2790fd23800
More export symbols to allow usage from an IDE.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
8920
diff
changeset
|
41 extern OCTINTERP_API void switch_to_buffer (YY_BUFFER_STATE buf); |
1 | 42 |
43 // Delete a buffer. | |
9247
b2790fd23800
More export symbols to allow usage from an IDE.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
8920
diff
changeset
|
44 extern OCTINTERP_API void delete_buffer (YY_BUFFER_STATE buf); |
1 | 45 |
46 // Restore a buffer (for unwind-prot). | |
9247
b2790fd23800
More export symbols to allow usage from an IDE.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
8920
diff
changeset
|
47 extern OCTINTERP_API void restore_input_buffer (void *buf); |
1 | 48 |
49 // Delete a buffer (for unwind-prot). | |
9247
b2790fd23800
More export symbols to allow usage from an IDE.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
8920
diff
changeset
|
50 extern OCTINTERP_API void delete_input_buffer (void *buf); |
1 | 51 |
4867 | 52 // Is the given string a keyword? |
53 extern bool is_keyword (const std::string& s); | |
54 | |
7715
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7634
diff
changeset
|
55 extern void prep_lexer_for_script (void); |
5b4d278ec828
parse scripts completely before executing
John W. Eaton <jwe@octave.org>
parents:
7634
diff
changeset
|
56 |
1826 | 57 // For communication between the lexer and parser. |
58 | |
3585 | 59 class |
60 lexical_feedback | |
1826 | 61 { |
62 public: | |
63 | |
64 lexical_feedback (void) { init (); } | |
65 | |
66 ~lexical_feedback (void) { } | |
67 | |
68 void init (void); | |
69 | |
3351 | 70 // Square bracket level count. |
71 int bracketflag; | |
1826 | 72 |
4613 | 73 // Curly brace level count. |
74 int braceflag; | |
75 | |
2877 | 76 // TRUE means we're in the middle of defining a loop. |
1826 | 77 int looping; |
78 | |
2877 | 79 // TRUE means that we should convert spaces to a comma inside a |
2857 | 80 // matrix definition. |
81 bool convert_spaces_to_comma; | |
82 | |
8746
5dd06f19e9be
handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents:
8745
diff
changeset
|
83 // TRUE means we are at the beginning of a statement, where a |
5dd06f19e9be
handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents:
8745
diff
changeset
|
84 // command name is possible. |
5dd06f19e9be
handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents:
8745
diff
changeset
|
85 bool at_beginning_of_statement; |
5dd06f19e9be
handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents:
8745
diff
changeset
|
86 |
2877 | 87 // TRUE means we're in the middle of defining a function. |
2857 | 88 bool defining_func; |
89 | |
4930 | 90 // Nonzero means we are parsing a function handle. |
91 int looking_at_function_handle; | |
92 | |
2877 | 93 // TRUE means we're parsing the return list for a function. |
2857 | 94 bool looking_at_return_list; |
95 | |
2877 | 96 // TRUE means we're parsing the parameter list for a function. |
2857 | 97 bool looking_at_parameter_list; |
98 | |
8701
1652e39b934e
handle command names in declaration lists
John W. Eaton <jwe@octave.org>
parents:
8001
diff
changeset
|
99 // TRUE means we're parsing a declaration list (global or |
1652e39b934e
handle command names in declaration lists
John W. Eaton <jwe@octave.org>
parents:
8001
diff
changeset
|
100 // persistent). |
1652e39b934e
handle command names in declaration lists
John W. Eaton <jwe@octave.org>
parents:
8001
diff
changeset
|
101 bool looking_at_decl_list; |
1652e39b934e
handle command names in declaration lists
John W. Eaton <jwe@octave.org>
parents:
8001
diff
changeset
|
102 |
7634
ae90e05ad299
fix parameter list initializer bug
John W. Eaton <jwe@octave.org>
parents:
7336
diff
changeset
|
103 // TRUE means we are looking at the initializer expression for a |
ae90e05ad299
fix parameter list initializer bug
John W. Eaton <jwe@octave.org>
parents:
7336
diff
changeset
|
104 // parameter list element. |
ae90e05ad299
fix parameter list initializer bug
John W. Eaton <jwe@octave.org>
parents:
7336
diff
changeset
|
105 bool looking_at_initializer_expression; |
ae90e05ad299
fix parameter list initializer bug
John W. Eaton <jwe@octave.org>
parents:
7336
diff
changeset
|
106 |
3189 | 107 // TRUE means we're parsing a matrix or the left hand side of |
108 // multi-value assignment statement. | |
109 bool looking_at_matrix_or_assign_lhs; | |
110 | |
8745
6dc61981d18b
better handling of object indexing in lexer
John W. Eaton <jwe@octave.org>
parents:
8701
diff
changeset
|
111 // If the front of the list is TRUE, the closest paren, brace, or |
6dc61981d18b
better handling of object indexing in lexer
John W. Eaton <jwe@octave.org>
parents:
8701
diff
changeset
|
112 // bracket nesting is an index for an object. |
6dc61981d18b
better handling of object indexing in lexer
John W. Eaton <jwe@octave.org>
parents:
8701
diff
changeset
|
113 std::list<bool> looking_at_object_index; |
6dc61981d18b
better handling of object indexing in lexer
John W. Eaton <jwe@octave.org>
parents:
8701
diff
changeset
|
114 |
6dc61981d18b
better handling of object indexing in lexer
John W. Eaton <jwe@octave.org>
parents:
8701
diff
changeset
|
115 // Object index not possible until we've seen something. |
6dc61981d18b
better handling of object indexing in lexer
John W. Eaton <jwe@octave.org>
parents:
8701
diff
changeset
|
116 bool looking_for_object_index; |
4234 | 117 |
2857 | 118 // GAG. Stupid kludge so that [[1,2][3,4]] will work. |
119 bool do_comma_insert; | |
120 | |
2877 | 121 // TRUE means we're looking at an indirect reference to a |
2857 | 122 // structure element. |
123 bool looking_at_indirect_ref; | |
124 | |
2877 | 125 // TRUE means that we've already seen the name of this function. |
126 // Should only matter if defining_func is also TRUE. | |
127 bool parsed_function_name; | |
128 | |
4240 | 129 // Are we parsing a nested function? |
130 // 1 ==> Yes. | |
131 // 0 ==> No. | |
132 // -1 ==> Yes, but it is the last one because we have seen EOF. | |
133 int parsing_nested_function; | |
4238 | 134 |
7336 | 135 // TRUE means we are parsing a class method. |
136 bool parsing_class_method; | |
137 | |
1826 | 138 // Return transpose or start a string? |
2857 | 139 bool quote_is_transpose; |
1826 | 140 |
8001
ff9e7873f8ea
improve handling of command-style names in matrix_or_assign_lhs context
John W. Eaton <jwe@octave.org>
parents:
7723
diff
changeset
|
141 // Set of identifiers that might be local variable names. |
ff9e7873f8ea
improve handling of command-style names in matrix_or_assign_lhs context
John W. Eaton <jwe@octave.org>
parents:
7723
diff
changeset
|
142 std::set<std::string> pending_local_variables; |
ff9e7873f8ea
improve handling of command-style names in matrix_or_assign_lhs context
John W. Eaton <jwe@octave.org>
parents:
7723
diff
changeset
|
143 |
1826 | 144 private: |
145 | |
146 lexical_feedback (const lexical_feedback&); | |
147 | |
148 lexical_feedback& operator = (const lexical_feedback&); | |
149 }; | |
150 | |
7720
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
151 class |
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
152 stream_reader |
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
153 { |
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
154 public: |
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
155 virtual int getc (void) = 0; |
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
156 virtual int ungetc (int c) = 0; |
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
157 |
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
158 protected: |
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
159 stream_reader (void) { } |
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
160 ~stream_reader (void) { } |
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
161 |
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
162 private: |
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
163 |
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
164 // No copying! |
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
165 stream_reader (const stream_reader&); |
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
166 stream_reader& operator = (const stream_reader&); |
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
167 }; |
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
168 |
7723
74f5e0c7de9e
first pass at handling block comments
John W. Eaton <jwe@octave.org>
parents:
7720
diff
changeset
|
169 extern std::string |
74f5e0c7de9e
first pass at handling block comments
John W. Eaton <jwe@octave.org>
parents:
7720
diff
changeset
|
170 grab_comment_block (stream_reader& reader, bool at_bol, bool& eof); |
7720
4e2eafef689c
unify comment and help text processing in lex.l and parse.y
John W. Eaton <jwe@octave.org>
parents:
7715
diff
changeset
|
171 |
3883 | 172 // TRUE means that we have encountered EOF on the input stream. |
173 extern bool parser_end_of_input; | |
174 | |
1826 | 175 // Flags that need to be shared between the lexer and parser. |
176 extern lexical_feedback lexer_flags; | |
440 | 177 |
1 | 178 #endif |
179 | |
180 /* | |
181 ;;; Local Variables: *** | |
182 ;;; mode: C++ *** | |
183 ;;; End: *** | |
184 */ |