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
|
/*======================================================================
Solution Formula Extension Interface
This function simply reads in a single non-whitespace character
from standard in, and decides what solution formula construction
method to call and, of course, calls it.
======================================================================*/
#include "qepcad.h"
void QepcadCls::SOLEXTINT()
{
Word T, f, c;
Step1: /* Initialization */
T = ACLOCK();
f = 1;
c = CREADB();
Step2: /* Send off to the proper solution formula constructor */
switch(c) {
case 'T': /* Tarski Formula */
SFC3(GVPC,GVPF,GVPJ,GVNFV,
CCONC(LIST6(0,0,0,1,0,1),LIST10(0,0,2,0,3,2,4,1,5,-1)));
break;
case 'E': /* Extended Language Formula */
SFC3(GVPC,GVPF,GVPJ,GVNFV,CCONC(LIST10(1,0,0,1,0,3,2,4,1,5),LIST1(-1)));
break;
case 'N': /* Extended Language Formula - Simplification is *not* used if it is not safe! */
SFC3(GVPC,GVPF,GVPJ,GVNFV,CCONC(LIST10(1,(GVPFASDPFLAG ? 1 : 0),0,1,0,3,2,4,1,5),LIST1(-1)));
break;
case 'G': /* "Geometry-based" Formula */
SFC3(GVPC,GVPF,GVPJ,GVNFV,
CCONC(LIST4(1,0,2,1),LIST4(3,2,0,-4)));
break;
case 'I': /* Interactive SF-Construction Session */
SFC4(GVPC,GVPF,GVPJ,GVNFV,NIL);
break;
case 'F': /* Full Dimensional SF-Construction Session */
SFCFULLD(GVPC,GVPF,GVPJ,GVNFV);
break;
default: /* Bad option. */
SWRITE("Parameter not understood!\n");
f = 0;
break; }
Step3: /* Timing info */
if (f) {
T = ACLOCK() - T;
TMSFCONST = COMP(T,TMSFCONST);
}
return;
}
|
