| blob | ebb9c3c913f92c6b3206aabacac021185680685e |
1 ---
3 source/highlightData.c | 2 -
4 source/interpret.c | 75 ++++++++++++++++++++++++++++++++++++++++++-------
5 source/interpret.h | 1
6 source/parse.y | 10 +++++-
7 4 files changed, 75 insertions(+), 13 deletions(-)
9 diff --quilt old/source/interpret.c new/source/interpret.c
10 --- old/source/interpret.c
11 +++ new/source/interpret.c
12 @@ -154,10 +154,15 @@ static rbTreeNode *arrayEmptyAllocator(v
13 static rbTreeNode *arrayAllocateNode(rbTreeNode *src);
14 static int arrayEntryCopyToNode(rbTreeNode *dst, rbTreeNode *src);
15 static int arrayEntryCompare(rbTreeNode *left, rbTreeNode *right);
16 static void arrayDisposeNode(rbTreeNode *src);
17 static SparseArrayEntry *allocateSparseArrayEntry(void);
18 +static int typeOfIn(void);
19 +static int typeOfOut(void);
20 +
21 +/* is the intepreter in the special typeof() mode? */
22 +static int inTypeOfMode;
24 /*#define DEBUG_ASSEMBLY*/
25 /*#define DEBUG_STACK*/
27 #if defined(DEBUG_ASSEMBLY) || defined(DEBUG_STACK)
28 @@ -237,10 +242,11 @@ static int (*OpFns[N_OPS])() = {returnNo
29 anonArrayOpen, anonArraySkip, anonArrayNextVal, anonArrayIndexVal,
30 anonArrayClose, namedArg1, namedArgN, swapTop2,
31 callSubroutineStackedN,
32 unpackArrayToArgs,
33 arrayIndex,
34 + typeOfIn, typeOfOut,
35 };
37 /* Stack-> symN-sym0(FP), nArgs, oldFP, retPC, argArray, argN-arg1, next, ... */
38 #define FP_ARG_COUNT_INDEX (-1)
39 #define FP_FUNCTION_NAME (-2) /* !! */
40 @@ -1322,11 +1328,11 @@ static int pushSymVal(void)
41 return execError(errMsg, s->name);
42 }
43 *StackP = result;
44 } else
45 return execError("reading non-variable: %s", s->name);
46 - if (StackP->tag == NO_TAG) {
47 + if (StackP->tag == NO_TAG && !inTypeOfMode) {
48 return execError("variable not set: %s", s->name);
49 }
50 StackP++;
51 if (StackP >= &TheStack[STACK_SIZE]) {
52 return execError(StackOverflowMsg, "");
53 @@ -1429,11 +1435,11 @@ static int pushArraySymVal(void)
54 if (initEmpty && dataPtr->tag == NO_TAG) {
55 dataPtr->tag = ARRAY_TAG;
56 dataPtr->val.arrayPtr = ArrayNew();
57 }
59 - if (dataPtr->tag == NO_TAG) {
60 + if (dataPtr->tag == NO_TAG && !inTypeOfMode) {
61 return execError("variable not set: %s", sym->name);
62 }
64 *StackP = *dataPtr;
65 StackP++;
66 @@ -2767,18 +2773,16 @@ static int returnValOrNone(int valOnStac
67 PUSH(retVal);
68 } else {
69 PUSH(noValue);
70 }
71 } else if (PC->func == fetchRetVal) {
72 - if (valOnStack) {
73 - PUSH(retVal);
74 - PC++;
75 - } else {
76 - return execError(
77 - "using return value of %s which does not return a value",
78 - ((PC-2)->sym->name));
79 - }
80 + if (valOnStack) {
81 + PUSH(retVal);
82 + } else {
83 + PUSH(noValue);
84 + }
85 + PC++;
86 }
88 /* NULL return PC indicates end of program */
89 return PC == NULL ? STAT_DONE : STAT_OK;
90 }
91 @@ -3487,10 +3491,59 @@ static int deleteArrayElement(void)
92 return(execError("attempt to delete from non-array", NULL));
93 }
94 return(STAT_OK);
95 }
97 +static int typeOfIn(void)
98 +{
99 + if (inTypeOfMode) {
100 + return(execError("I'm already in typeof-mode", NULL));
101 + }
102 +
103 + inTypeOfMode = 1;
104 +
105 + return STAT_OK;
106 +}
107 +
108 +static int typeOfOut(void)
109 +{
110 + DataValue val;
111 + DataValue retVal;
112 +
113 + if (!inTypeOfMode) {
114 + return(execError("I'm not in typeof-mode", NULL));
115 + }
116 +
117 + inTypeOfMode = 0;
118 +
119 + POP(val)
120 +
121 + retVal.tag = STRING_TAG;
122 + switch (val.tag) {
123 + case NO_TAG:
124 + retVal.val.str.rep = PERM_ALLOC_STR("UNDEFINED");
125 + break;
126 + case INT_TAG:
127 + retVal.val.str.rep = PERM_ALLOC_STR("INTEGER");
128 + break;
129 + case STRING_TAG:
130 + retVal.val.str.rep = PERM_ALLOC_STR("STRING");
131 + break;
132 + case ARRAY_TAG:
133 + retVal.val.str.rep = PERM_ALLOC_STR("ARRAY");
134 + break;
135 + }
136 + retVal.val.str.len = strlen(retVal.val.str.rep);
137 +
138 + if (PC->func == fetchRetVal) {
139 + PUSH(retVal);
140 + PC++;
141 + }
142 +
143 + return STAT_OK;
144 +}
145 +
146 /*
147 ** checks errno after operations which can set it. If an error occured,
148 ** creates appropriate error messages and returns false
149 */
150 static int errCheck(const char *s)
151 @@ -3791,10 +3844,12 @@ static void disasmInternal(Inst *inst, i
152 "NAMED_ARGN", /* namedArgN: "fn(..., [...]=...)" */
153 "SWAP_TOP2", /* swapTop2: cf namedArgN */
154 "SUBR_CALL_STACKED_N", /* callSubroutineStackedN */
155 "UNPACKTOARGS", /* unpackArrayToArgs */
156 "ARRAY_INDEX", /* arrayIndex */
157 + "TYPEOF_IN", /* typeOfIn */
158 + "TYPEOF_OUT", /* typeOfOut */
159 };
160 int i, j;
161 static size_t opLen;
163 if (!opLen) {
164 diff --quilt old/source/interpret.h new/source/interpret.h
165 --- old/source/interpret.h
166 +++ new/source/interpret.h
167 @@ -53,10 +53,11 @@ enum operations {OP_RETURN_NO_VAL, OP_RE
168 OP_ANONARRAY_INDEX_VAL, OP_ANONARRAY_CLOSE,
169 OP_NAMED_ARG1, OP_NAMED_ARGN, OP_SWAP_TOP2,
170 OP_SUBR_CALL_STACKED_N,
171 OP_UNPACKTOARGS,
172 OP_ARRAY_INDEX,
173 + OP_TYPEOF_IN, OP_TYPEOF_OUT,
174 N_OPS};
176 enum typeTags {NO_TAG, INT_TAG, STRING_TAG, ARRAY_TAG};
178 enum execReturnCodes {MACRO_TIME_LIMIT, MACRO_PREEMPT, MACRO_DONE, MACRO_ERROR};
179 diff --quilt old/source/parse.y new/source/parse.y
180 --- old/source/parse.y
181 +++ new/source/parse.y
182 @@ -65,11 +65,11 @@ static int nextSymIsField = 0;
183 int nArgs;
184 enum operations oper;
185 }
186 %token <sym> NUMBER STRING SYMBOL FIELD
187 %token DELETE ARG_LOOKUP
188 -%token IF WHILE DO ELSE FOR BREAK CONTINUE RETURN
189 +%token IF WHILE DO ELSE FOR BREAK CONTINUE RETURN TYPEOF
190 %type <nArgs> arrlist arrentry
191 %type <nArgs> arglistopt arglist catlist fnarglsopt fnarglist fnarg
192 %type <inst> cond comastmts comastmtlst for while do else and or arrayexpr mark
193 %type <sym> evalsym
194 %type <oper> operassign incrdecr
195 @@ -296,11 +296,16 @@ arglist: blank expr bla
196 catlist: numexpr %prec CONCAT { $$ = 1; }
197 | catlist numexpr %prec CONCAT { $$ = $1 + 1; }
198 ;
200 /* function call and its argument lists */
201 -funccall: SYMBOL '(' fnarglsopt ')' {
202 +funccall: TYPEOF '(' {
203 + ADD_OP(OP_TYPEOF_IN);
204 + } evalsym ')' {
205 + ADD_OP(OP_TYPEOF_OUT);
206 + }
207 + | SYMBOL '(' fnarglsopt ')' {
208 ADD_OP(OP_SUBR_CALL);
209 ADD_SYM(PromoteToGlobal($1)); ADD_IMMED($3);
210 }
211 | SYMBOL '(' blank '=' blank expr blank ')' {
212 /* a single array replaces the argument list */
213 @@ -664,10 +669,11 @@ static int yylex(void)
214 if (!strcmp(symName, "delete") && follow_non_whitespace('(', SYMBOL, DELETE) == DELETE) return DELETE;
215 if (!strcmp(symName, "define")) {
216 InPtr -= 6;
217 return 0;
218 }
219 + if (!strcmp(symName, "typeof")) return TYPEOF;
220 if (nextSymIsField) {
221 nextSymIsField = 0;
222 yylval.sym = InstallStringConstSymbol(symName);
223 return FIELD;
224 }
225 diff --quilt old/source/highlightData.c new/source/highlightData.c
226 --- old/source/highlightData.c
227 +++ new/source/highlightData.c
228 @@ -553,11 +553,11 @@ static char *DefaultPatternSets[] = {
229 Built-in Special Vars:\"(?<!\\Y)\\$(?:[1-9]|list_dialog_button|n_args|read_status|search_end|shell_cmd_status|string_dialog_button|sub_sep)>\":::String1::\n\
230 Built-in Subrs:\"<(?:append_file|beep|call|calltip|clipboard_to_string|dialog|filename_dialog|dict_(?:insert|complete|save|append|is_element)|focus_window|get_character|get_pattern_(by_name|at_pos)|get_range|get_selection|get_style_(by_name|at_pos)|getenv|highlight_calltip_line|kill_calltip|length|list_dialog|max|min|rangeset_(?:add|create|destroy|get_by_name|includes|info|invert|range|set_color|set_mode|set_name|subtract)|read_file|replace_in_string|replace_range|replace_selection|replace_substring|search|search_string|select|select_rectangle|set_cursor_pos|get_matching|set_transient|shell_command|split|string_compare|string_dialog|string_to_clipboard|substring|t_print|tolower|toupper|valid_number|write_file)(?=\\s*\\()\":::Subroutine::\n\
231 Menu Actions:\"<(?:new(?:_tab|_opposite)?|open|open-dialog|open_dialog|open-selected|open_selected|close|save|save-as|save_as|save-as-dialog|save_as_dialog|revert-to-saved|revert_to_saved|revert_to_saved_dialog|include-file|include_file|include-file-dialog|include_file_dialog|load-macro-file|load_macro_file|load-macro-file-dialog|load_macro_file_dialog|load-tags-file|load_tags_file|load-tags-file-dialog|load_tags_file_dialog|unload_tags_file|load_tips_file|load_tips_file_dialog|unload_tips_file|print|print-selection|print_selection|exit|undo|redo|delete|select-all|select_all|shift-left|shift_left|shift-left-by-tab|shift_left_by_tab|shift-right|shift_right|shift-right-by-tab|shift_right_by_tab|find|find-dialog|find_dialog|find-again|find_again|find-selection|find_selection|find_incremental|start_incremental_find|replace|replace-dialog|replace_dialog|replace-all|replace_all|replace-in-selection|replace_in_selection|replace-again|replace_again|replace_find|replace_find_same|replace_find_again|goto-line-number|goto_line_number|goto-line-number-dialog|goto_line_number_dialog|goto-selected|goto_selected|mark|mark-dialog|mark_dialog|goto-mark|goto_mark|goto-mark-dialog|goto_mark_dialog|match|select_to_matching|goto_matching|find-definition|find_definition|show_tip|split-pane|split_pane|close-pane|close_pane|detach_document(?:_dialog)?|move_document_dialog|(?:next|previous|last)_document|uppercase|lowercase|fill-paragraph|fill_paragraph|control-code-dialog|control_code_dialog|filter-selection-dialog|filter_selection_dialog|filter-selection|filter_selection|execute-command|execute_command|execute-command-dialog|execute_command_dialog|execute-command-line|execute_command_line|shell-menu-command|shell_menu_command|macro-menu-command|macro_menu_command|bg_menu_command|post_window_bg_menu|post_tab_context_menu|beginning-of-selection|beginning_of_selection|end-of-selection|end_of_selection|repeat_macro|repeat_dialog|raise_window|focus_pane|set_statistics_line|set_incremental_search_line|set_show_line_numbers|set_auto_indent|set_wrap_text|set_wrap_margin|set_highlight_syntax|set_make_backup_copy|set_incremental_backup|set_show_matching|set_match_syntax_based|set_overtype_mode|set_locked|set_tab_dist|set_em_tab_dist|set_use_tabs|set_fonts|set_language_mode)(?=\\s*\\()\":::Subroutine::\n\
232 Text Actions:\"<(?:self-insert|self_insert|grab-focus|grab_focus|extend-adjust|extend_adjust|extend-start|extend_start|extend-end|extend_end|secondary-adjust|secondary_adjust|secondary-or-drag-adjust|secondary_or_drag_adjust|secondary-start|secondary_start|secondary-or-drag-start|secondary_or_drag_start|process-bdrag|process_bdrag|move-destination|move_destination|move-to|move_to|move-to-or-end-drag|move_to_or_end_drag|end_drag|copy-to|copy_to|copy-to-or-end-drag|copy_to_or_end_drag|exchange|process-cancel|process_cancel|paste-clipboard|paste_clipboard|copy-clipboard|copy_clipboard|cut-clipboard|cut_clipboard|copy-primary|copy_primary|cut-primary|cut_primary|newline|newline-and-indent|newline_and_indent|newline-no-indent|newline_no_indent|delete-selection|delete_selection|delete-previous-character|delete_previous_character|delete-next-character|delete_next_character|delete-previous-word|delete_previous_word|delete-next-word|delete_next_word|delete-to-start-of-line|delete_to_start_of_line|delete-to-end-of-line|delete_to_end_of_line|forward-character|forward_character|backward-character|backward_character|key-select|key_select|process-up|process_up|process-down|process_down|process-shift-up|process_shift_up|process-shift-down|process_shift_down|process-home|process_home|forward-word|forward_word|backward-word|backward_word|forward-paragraph|forward_paragraph|backward-paragraph|backward_paragraph|beginning-of-line|beginning_of_line|end-of-line|end_of_line|beginning-of-file|beginning_of_file|end-of-file|end_of_file|next-page|next_page|previous-page|previous_page|page-left|page_left|page-right|page_right|toggle-overstrike|toggle_overstrike|scroll-up|scroll_up|scroll-down|scroll_down|scroll_left|scroll_right|scroll-to-line|scroll_to_line|select-all|select_all|deselect-all|deselect_all|focusIn|focusOut|process-return|process_return|process-tab|process_tab|insert-string|insert_string|mouse_pan)(?=\\s*\\()\":::Subroutine::\n\
233 Macro Hooks:\"<(?:post_open|pre_open|post_save|cursor_moved|modified|focus|losing_focus)_hook(?=\\s*\\()\":::Subroutine1::\n\
234 - Keyword:\"<(?:break|continue|define|delete|else|for|if|in|return|while)>\":::Keyword::\n\
235 + Keyword:\"<(?:break|continue|define|delete|else|for|if|in|return|typeof|while)>\":::Keyword::\n\
236 Braces:\"[{}\\[\\]]\":::Keyword::\n\
237 Global Variable:\"\\$[A-Za-z0-9_]+\":::Identifier1::\n\
238 String:\"\"\"\":\"\"\"\":\"\\n\":String::\n\
239 String Escape Char:\"\\\\(?:.|\\n)\":::Text Escape:String:\n\
240 Numeric Const:\"(?<!\\Y)-?[0-9]+>\":::Numeric Const::\n\