annotate tty-main.cpp @ 1:08df60a01bc1

debug flag, handle input with signal
author John W. Eaton <jwe@octave.org>
date Mon, 20 May 2019 13:45:58 -0400
parents dff751fb985c
children 0e154787183d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
1 #include <iostream>
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
2 #include <string>
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
3
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
4 #include <cstdio>
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
5 #include <cstdlib>
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
6
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
7 #include <readline/readline.h>
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
8 #include <readline/history.h>
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
9
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
10 #include "gui-main.h"
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
11 #include "tty-main.h"
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
12
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
13 #include "parse.h"
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
14
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
15 namespace tty
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
16 {
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
17 int main (int, char **)
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
18 {
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
19 std::cout
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
20 << "Example Calculator.\n"
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
21 << "Available operations: + - * / ^ ()\n"
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
22 << "Semicolon terminates statement.\n"
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
23 << "GNU Readline available for history editing.\n" << std::endl;
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
24
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
25 interpreter::parser_init ();
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
26
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
27 for (;;)
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
28 {
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
29 char *tmp = readline (interpreter::beg_of_stmt ? ">> " : "");
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
30
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
31 if (! tmp)
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
32 break;
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
33
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
34 if (*tmp)
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
35 {
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
36 add_history (tmp);
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
37 using_history ();
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
38 }
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
39
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
40 std::string line = tmp;
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
41
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
42 free (tmp);
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
43
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
44 int status = interpreter::parse_and_execute (line);
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
45
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
46 if (status < 0)
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
47 break;
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
48 }
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
49
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
50 interpreter::parser_fini ();
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
51
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
52 return 0;
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
53 }
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
54
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
55 void emit_result (double value)
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
56 {
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
57 std::cout << "ans = " << value << std::endl;
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
58 }
1
08df60a01bc1 debug flag, handle input with signal
John W. Eaton <jwe@octave.org>
parents: 0
diff changeset
59
08df60a01bc1 debug flag, handle input with signal
John W. Eaton <jwe@octave.org>
parents: 0
diff changeset
60 void emit_error (const char *msg)
08df60a01bc1 debug flag, handle input with signal
John W. Eaton <jwe@octave.org>
parents: 0
diff changeset
61 {
08df60a01bc1 debug flag, handle input with signal
John W. Eaton <jwe@octave.org>
parents: 0
diff changeset
62 std::cerr << "parse error: " << msg << std::endl;
08df60a01bc1 debug flag, handle input with signal
John W. Eaton <jwe@octave.org>
parents: 0
diff changeset
63 }
0
dff751fb985c initial revision
John W. Eaton <jwe@octave.org>
parents:
diff changeset
64 }