1 #include "def.h"
2 #include "macro.h"
3 OP find_teh_integer();
4
the_integer__faktor(a,b,f)5 INT the_integer__faktor( a,b,f) OP a,b,f;
6 {
7 return teh_integer__faktor(a,b,f);
8 }
9
find_the_integer(a)10 OP find_the_integer(a) OP a;
11 {
12 return find_teh_integer(a);
13 }
14
t_HOMSYM_ELMSYM(a,b)15 INT t_HOMSYM_ELMSYM(a,b) OP a,b;
16 /* AK 231192 */
17 {
18 INT erg = OK;
19 INT s=0;
20 OP z;
21 CTTTTO(HASHTABLE,HOMSYM,INTEGER,PARTITION,"t_HOMSYM_ELMSYM(1)",a);
22 TCE2(a,b,t_HOMSYM_ELMSYM,ELMSYM);
23
24 if (S_O_K(a) == HOMSYM) {
25 z = a;
26 while(z!=NULL) { C_O_K(z,ELMSYM); z = S_S_N(z); }
27 s = 1;
28 }
29 if (S_O_K(b) == ELMSYM) {
30 z = b;
31 while(z!=NULL) { C_O_K(z,HOMSYM); z = S_S_N(z); }
32 }
33
34 erg += t_ELMSYM_HOMSYM(a,b);
35
36 if (S_O_K(b) == HOMSYM) {
37 z = b;
38 while(z!=NULL) { C_O_K(z,ELMSYM); z = S_S_N(z); }
39 }
40 if (s == 1) {
41 z = a;
42 while(z!=NULL) { C_O_K(z,HOMSYM); z = S_S_N(z); }
43 }
44 ENDR("t_HOMSYM_ELMSYM");
45 }
46
47
48