1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
#include "lie.h"
static boolean ignore=true;
FILE* cur_in,* cur_out;
FILE *monfile = NULL;
boolean stop=false;
char buffer[LINELENGTH];
char label2[LABELLENGTH];
char monfil[LABELLENGTH];
char infofil[LABELLENGTH];
char infoind[LABELLENGTH];
char initfil[LABELLENGTH];
char learnind[LABELLENGTH];
char learnfil[LABELLENGTH];
char titlefil[LABELLENGTH];
char dirpath[LABELLENGTH];
char promptlabel[LABELLENGTH];
char pager[LABELLENGTH],editor[LABELLENGTH];
int lmargin = 0;
labeltp label;
strtype fun_name;
char* input_fname;
int block_depth = 0;
object repair_obj = (object) NULL ;
symblst topsym, top_definitions;
jmp_buf envbuf;
boolean
parsing=true, isargument=false, alloc_gc=true,
redirected_input=false;
boolean
am_monitor=false, prompt=true, runtime=false, verbose=false,
lprint=true, gc_set=true, bigint_set=true;
object stop_loop, stop_fun;
strtype seq_name, if_name, dollar_name, break_name, return_name,
assign_name, assign_loc_name, block_name,setdefault_name;
void ignore_intr(void) { ignore=true; }
void allow_intr(void) { ignore=false; }
static void handle(int sig)
{
if (ignore)
return;
while (cur_in != stdin) exit_input_file(false); /* pop input files */
parsing=false;
error("\nCalculation aborted\n");
}
static void init_loop(void)
{
topsym ->next=(symblst) NULL;
stop_loop=NULL;
stop_fun=NULL;
parsing=true;
tree_pt=0;
label_pt=0;
block_depth=0;
fun_name=0;
label=label_null;
if (gc_set) gc();
initpar();
if (cur_out != stdout) cur_out=stdout;
strcpy(promptlabel,PROMPT);
fflush(cur_out);
init_command(); /* this also prompts and calls |inputline| */
registrate_cpu();
}
int main(int argc, char** argv)
{ if (no_terminal(stdin)) redirected_input=true;
cur_in=stdin; cur_out=stdout; /* these cannot be initialised statically */
{ int nr=1; argc--; infofil[0]='\0';
if (argc > 0)
{
strcpy(initfil,argv[nr++]);
argc--;
}
if (argc > 0)
{
strcpy(infofil,argv[nr++]);
strcat(infofil,"/");
argc--;
}
if (argc!=0)
{
printf("Illegal number of arguments.\n");
exit(1);
}
}
init();
ignore_intr();
(void) signal(SIGINT, handle);
(void) setjmp(envbuf);
/* Finished signal handling and environment set */
while (init_loop(),init_loop_gettype(),yyparse(),!stop)
{ if (feof(cur_in))
stop=exit_input_file(false); /* close file when fully read */
if (runtime) print_runtime();
}
if (!redirected_input) Printf("end program\n");
return 0;
}
|
