1 #include "def.h"
2 #include "macro.h"
3
4 INT tep___faktor();
5 INT ppe___();
plet_elmsym_elmsym(a,b,c)6 INT plet_elmsym_elmsym(a,b,c) OP a,b,c;
7 /* AK 061201
8 */
9 {
10 INT t=0,erg = OK;
11 CTTTTO(HASHTABLE,INTEGER,PARTITION,ELMSYM,"plet_elmsym_elmsym(1)",a);
12 CTTTTO(INTEGER,HASHTABLE,PARTITION,ELMSYM,"plet_elmsym_elmsym(2)",b);
13 CTTTO(EMPTY,HASHTABLE,ELMSYM,"plet_elmsym_elmsym(3)",c);
14
15 if (S_O_K(c) == EMPTY)
16 { t=1; init_hashtable(c); }
17 {
18 /* via ppe with change of basis */
19 OP f = CALLOCOBJECT();
20 erg += init_hashtable(f);
21 erg += tep___faktor(a,f,cons_eins);
22 erg += ppe___(f,b,c,cons_eins);
23 FREEALL(f);
24 }
25
26 if (t==1) t_HASHTABLE_ELMSYM(c,c);
27 ENDR("plet_elmsym_elmsym");
28 }
29
30
31