Mercurial > hg > octave-lyh
annotate libinterp/parse-tree/token.h @ 16263:9acb86e6ac90
4/10 commits reworking the lexer
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Mon, 11 Mar 2013 14:28:11 -0400 |
parents | db7f07b22b9b |
children | 5c32368509a2 15f55df088e7 |
rev | line source |
---|---|
142 | 1 /* |
2 | |
14138
72c96de7a403
maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents:
13249
diff
changeset
|
3 Copyright (C) 1993-2012 John W. Eaton |
142 | 4 |
5 This file is part of Octave. | |
6 | |
7 Octave is free software; you can redistribute it and/or modify it | |
8 under the terms of the GNU General Public License as published by the | |
7016 | 9 Free Software Foundation; either version 3 of the License, or (at your |
10 option) any later version. | |
142 | 11 |
12 Octave is distributed in the hope that it will be useful, but WITHOUT | |
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
15 for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
7016 | 18 along with Octave; see the file COPYING. If not, see |
19 <http://www.gnu.org/licenses/>. | |
142 | 20 |
21 */ | |
22 | |
383 | 23 #if !defined (octave_token_h) |
24 #define octave_token_h 1 | |
142 | 25 |
1755 | 26 #include <string> |
27 | |
16134
ec9c6222ef5a
move static parser helper functions to octave_parser class
John W. Eaton <jwe@octave.org>
parents:
15195
diff
changeset
|
28 #include "symtab.h" |
ec9c6222ef5a
move static parser helper functions to octave_parser class
John W. Eaton <jwe@octave.org>
parents:
15195
diff
changeset
|
29 |
453 | 30 class |
31 token | |
142 | 32 { |
33 public: | |
3548 | 34 |
142 | 35 enum token_type |
36 { | |
37 generic_token, | |
38 string_token, | |
39 double_token, | |
40 ettype_token, | |
9476 | 41 sym_rec_token, |
42 scls_rec_token, | |
43 meta_rec_token | |
142 | 44 }; |
45 | |
46 enum end_tok_type | |
47 { | |
48 simple_end, | |
9476 | 49 classdef_end, |
13249
7861a5fd3479
accept enumeration keyword
John W. Eaton <jwe@octave.org>
parents:
13245
diff
changeset
|
50 enumeration_end, |
9476 | 51 events_end, |
142 | 52 for_end, |
53 function_end, | |
54 if_end, | |
9476 | 55 methods_end, |
13245
027a2186cd90
parfor keyword and infrastructure, but handle parfor as normal for loop for now
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
56 parfor_end, |
9476 | 57 properties_end, |
2764 | 58 switch_end, |
142 | 59 while_end, |
1489 | 60 try_catch_end, |
3548 | 61 unwind_protect_end |
142 | 62 }; |
63 | |
16255
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
64 token (int tv, int l = -1, int c = -1); |
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
65 token (int tv, const std::string& s, int l = -1, int c = -1); |
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
66 token (int tv, double d, const std::string& s = std::string (), |
10313 | 67 int l = -1, int c = -1); |
16255
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
68 token (int tv, end_tok_type t, int l = -1, int c = -1); |
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
69 token (int tv, symbol_table::symbol_record *s, int l = -1, int c = -1); |
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
70 token (int tv, symbol_table::symbol_record *cls, |
9476 | 71 symbol_table::symbol_record *pkg, int l = -1, int c = -1); |
16255
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
72 token (int tv, symbol_table::symbol_record *mth, |
9476 | 73 symbol_table::symbol_record *cls, |
74 symbol_table::symbol_record *pkg, int l = -1, int c = -1); | |
142 | 75 |
1755 | 76 ~token (void); |
142 | 77 |
16257
db7f07b22b9b
1/10 commits reworking the lexer
John W. Eaton <jwe@octave.org>
parents:
16255
diff
changeset
|
78 void mark_may_be_command (void) { maybe_cmd = true; } |
db7f07b22b9b
1/10 commits reworking the lexer
John W. Eaton <jwe@octave.org>
parents:
16255
diff
changeset
|
79 bool may_be_command (void) const { return maybe_cmd; } |
db7f07b22b9b
1/10 commits reworking the lexer
John W. Eaton <jwe@octave.org>
parents:
16255
diff
changeset
|
80 |
16255
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
81 void mark_trailing_space (void) { tspc = true; } |
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
82 bool space_follows_token (void) const { return tspc; } |
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
83 |
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
84 int token_value (void) const { return tok_val; } |
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
85 bool token_value_is (int tv) const { return tv == tok_val; } |
142 | 86 |
16255
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
87 int line (void) const { return line_num; } |
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
88 int column (void) const { return column_num; } |
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
89 |
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
90 std::string text (void) const; |
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
91 double number (void) const; |
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
92 end_tok_type ettype (void) const; |
7336 | 93 symbol_table::symbol_record *sym_rec (void); |
142 | 94 |
9476 | 95 symbol_table::symbol_record *method_rec (void); |
96 symbol_table::symbol_record *class_rec (void); | |
97 symbol_table::symbol_record *package_rec (void); | |
98 | |
99 symbol_table::symbol_record *meta_class_rec (void); | |
100 symbol_table::symbol_record *meta_package_rec (void); | |
101 | |
3523 | 102 std::string text_rep (void); |
581 | 103 |
142 | 104 private: |
3552 | 105 |
106 // No copying! | |
107 | |
1288 | 108 token (const token& tok); |
3552 | 109 |
1288 | 110 token& operator = (const token& tok); |
111 | |
16257
db7f07b22b9b
1/10 commits reworking the lexer
John W. Eaton <jwe@octave.org>
parents:
16255
diff
changeset
|
112 bool maybe_cmd; |
16255
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
113 bool tspc; |
142 | 114 int line_num; |
115 int column_num; | |
16255
12bf6a3f8c45
store more info in token value class
John W. Eaton <jwe@octave.org>
parents:
16134
diff
changeset
|
116 int tok_val; |
142 | 117 token_type type_tag; |
118 union | |
119 { | |
3523 | 120 std::string *str; |
142 | 121 double num; |
122 end_tok_type et; | |
7336 | 123 symbol_table::symbol_record *sr; |
9476 | 124 struct |
125 { | |
126 symbol_table::symbol_record *mr; | |
127 symbol_table::symbol_record *cr; | |
128 symbol_table::symbol_record *pr; | |
129 } sc; | |
130 struct | |
131 { | |
132 symbol_table::symbol_record *cr; | |
133 symbol_table::symbol_record *pr; | |
134 } mc; | |
142 | 135 }; |
3523 | 136 std::string orig_text; |
142 | 137 }; |
138 | |
139 #endif |