source: git/Singular/iparith.cc @ 666c90

spielwiese
Last change on this file since 666c90 was 29d7683, checked in by Hans Schönemann <hannes@…>, 19 years ago
*hannes: subst(par) git-svn-id: file:///usr/local/Singular/svn/trunk@7844 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 203.6 KB
Line 
1/****************************************
2*  Computer Algebra System SINGULAR     *
3****************************************/
4/* $Id: iparith.cc,v 1.345 2005-04-18 15:10:04 Singular Exp $ */
5
6/*
7* ABSTRACT: table driven kernel interface, used by interpreter
8*/
9
10#include <stdlib.h>
11#include <string.h>
12#include <ctype.h>
13#include <stdio.h>
14#include <time.h>
15#include <unistd.h>
16
17#include "mod2.h"
18#include "tok.h"
19#include "ipid.h"
20#include "intvec.h"
21#include "omalloc.h"
22#include "polys.h"
23#include "febase.h"
24#include "sdb.h"
25#include "longalg.h"
26#include "ideals.h"
27#include "matpol.h"
28#include "kstd1.h"
29#include "timer.h"
30#include "ring.h"
31#include "subexpr.h"
32#include "lists.h"
33#include "longalg.h"
34#include "numbers.h"
35#include "stairc.h"
36#include "maps.h"
37#include "maps_ip.h"
38#include "syz.h"
39#include "weight.h"
40#include "ipconv.h"
41#include "ipprint.h"
42#include "sing_dld.h"
43#include "attrib.h"
44#include "silink.h"
45#include "sparsmat.h"
46#include "units.h"
47#include "janet.h"
48#include "GMPrat.h"
49#ifdef HAVE_FACTORY
50#include "clapsing.h"
51#include "kstdfac.h"
52#endif
53#ifdef HAVE_FGLM
54#include "fglm.h"
55#endif
56
57#include "ipshell.h"
58
59#include "mpr_inout.h"
60
61#ifdef HAVE_PLURAL
62#include "gring.h"
63#define ALLOW_PLURAL    ,1
64#define NO_PLURAL       ,0
65#define COMM_PLURAL     ,2
66#else
67#define ALLOW_PLURAL
68#define NO_PLURAL
69#define COMM_PLURAL
70#endif
71
72/*=============== types =====================*/
73struct sValCmdTab
74{
75  short cmd;
76  short start;
77};
78
79typedef sValCmdTab jjValCmdTab[];
80
81/* ifdef GENTABLE: definitions are in ipshell.h */
82#ifndef GENTABLE
83typedef char * (*Proc1)(char *);
84struct sValCmd1
85{
86  proc1 p;
87  short cmd;
88  short res;
89  short arg;
90#ifdef HAVE_PLURAL
91  short valid_for_plural;
92#endif
93};
94
95typedef BOOLEAN (*proc2)(leftv,leftv,leftv);
96struct sValCmd2
97{
98  proc2 p;
99  short cmd;
100  short res;
101  short arg1;
102  short arg2;
103#ifdef HAVE_PLURAL
104  short valid_for_plural;
105#endif
106};
107
108typedef BOOLEAN (*proc3)(leftv,leftv,leftv,leftv);
109struct sValCmd3
110{
111  proc3 p;
112  short cmd;
113  short res;
114  short arg1;
115  short arg2;
116  short arg3;
117#ifdef HAVE_PLURAL
118  short valid_for_plural;
119#endif
120};
121struct sValCmdM
122{
123  proc1 p;
124  short cmd;
125  short res;
126  short number_of_args; /* -1: any, -2: any >0, .. */
127#ifdef HAVE_PLURAL
128  short valid_for_plural;
129#endif
130};
131#endif
132
133/*============= proc =======================*/
134static BOOLEAN jjLOAD(leftv res, leftv v, BOOLEAN autoexport = FALSE);
135static int iiTabIndex(const jjValCmdTab dArithTab, const int len, const int op);
136#ifdef MDEBUG
137#define jjMakeSub(A) jjDBMakeSub(A,__FILE__,__LINE__)
138static Subexpr jjDBMakeSub(leftv e,char *f, int l);
139#else
140static Subexpr jjMakeSub(leftv e);
141#endif
142
143/*============= vars ======================*/
144extern int cmdtok;
145extern BOOLEAN expected_parms;
146
147#define ii_div_by_0 "div. by 0"
148int iiOp; /* the current operation*/
149
150#ifdef GENTABLE
151cmdnames cmds[] =
152{  // name-string alias tokval          toktype
153  { "$INVALID$",   0, -1,                 0},
154  { "and",         0, '&' ,               LOGIC_OP},
155  { "attrib",      0, ATTRIB_CMD ,        CMD_123},
156  { "bareiss",     0, BAREISS_CMD ,       CMD_123},
157  { "betti",       0, BETTI_CMD ,         CMD_12},
158  #ifdef HAVE_PLURAL
159  { "bracket",     0, BRACKET_CMD ,       CMD_2},
160  #endif
161  { "break",       0, BREAK_CMD ,         BREAK_CMD},
162  { "breakpoint",  0, BREAKPOINT_CMD ,    CMD_M},
163  { "char",        0, CHARACTERISTIC_CMD ,CMD_1},
164  { "char_series", 0, CHAR_SERIES_CMD ,   CMD_1},
165  { "charstr",     0, CHARSTR_CMD ,       CMD_1},
166  { "cleardenom",  0, CONTENT_CMD ,       CMD_1},
167  { "close",       0, CLOSE_CMD ,         CMD_1},
168  { "coef",        0, COEF_CMD ,          CMD_M},
169  { "coeffs",      0, COEFFS_CMD ,        CMD_23},
170  { "continue",    0, CONTINUE_CMD ,      CONTINUE_CMD},
171  { "contract",    0, CONTRACT_CMD ,      CMD_2},
172  { "convhull",    0, NEWTONPOLY_CMD,     CMD_1},
173  { "dbprint",     0, DBPRINT_CMD ,       CMD_M},
174  { "def",         0, DEF_CMD ,           ROOT_DECL},
175  { "defined",     0, DEFINED_CMD ,       CMD_1},
176  { "deg",         0, DEG_CMD ,           CMD_12},
177  { "degree",      0, DEGREE_CMD ,        CMD_1},
178  { "delete",      0, DELETE_CMD ,        CMD_2},
179  { "det",         0, DET_CMD ,           CMD_1},
180  { "diff",        0, DIFF_CMD ,          CMD_2},
181  { "dim",         0, DIM_CMD ,           CMD_1},
182  { "div",         0, INTDIV_CMD ,        MULDIV_OP},
183  { "division",    0, DIVISION_CMD ,      CMD_M},
184  { "dump",        0, DUMP_CMD,           CMD_1},
185  { "extgcd",      0, EXTGCD_CMD ,        CMD_2},
186  { "EXTGCD",      2, EXTGCD_CMD ,        CMD_2},
187  { "ERROR",       0, ERROR_CMD ,         CMD_1},
188  { "eliminate",   0, ELIMINATION_CMD,    CMD_23},
189  { "else",        0, ELSE_CMD ,          ELSE_CMD},
190  #ifdef HAVE_PLURAL
191  { "envelope",    0, ENVELOPE_CMD ,       CMD_1},
192  #endif
193  { "eval",        0, EVAL ,              EVAL},
194  { "example",     0, EXAMPLE_CMD ,       EXAMPLE_CMD},
195  { "execute",     0, EXECUTE_CMD ,       CMD_1},
196  { "export",      0, EXPORT_CMD ,        EXPORT_CMD},
197  { "factorize",   0, FAC_CMD ,           CMD_12},
198  { "fetch",       0, FETCH_CMD ,         CMD_2},
199  { "fglm",        0, FGLM_CMD ,          CMD_2},
200  { "fglmquot",    0, FGLMQUOT_CMD,       CMD_2},
201  { "find",        0, FIND_CMD ,          CMD_23},
202  { "finduni",     0, FINDUNI_CMD,        CMD_1},
203  { "forif",       0, IF_CMD ,            IF_CMD},
204  { "freemodule",  0, FREEMODULE_CMD ,    CMD_1},
205  { "facstd",      0, FACSTD_CMD ,        CMD_12},
206  { "gen",         0, E_CMD ,             CMD_1},
207  { "getdump",     0, GETDUMP_CMD,        CMD_1},
208  { "gcd",         0, GCD_CMD ,           CMD_2},
209  { "GCD",         2, GCD_CMD ,           CMD_2},
210  { "hilb",        0, HILBERT_CMD ,       CMD_123},
211  { "highcorner",  0, HIGHCORNER_CMD,     CMD_1},
212  { "homog",       0, HOMOG_CMD ,         CMD_12},
213  { "hres",        0, HRES_CMD ,          CMD_2},
214  { "ideal",       0, IDEAL_CMD ,         IDEAL_CMD},
215  { "if",          0, IF_CMD ,            IF_CMD},
216  { "imap",        0, IMAP_CMD ,          CMD_2},
217  { "impart",      0, IMPART_CMD ,        CMD_1},
218  { "indepSet",    0, INDEPSET_CMD ,      CMD_12},
219  { "insert",      0, INSERT_CMD ,        CMD_23},
220  { "int",         0, INT_CMD ,           ROOT_DECL},
221  { "interred",    0, INTERRED_CMD ,      CMD_1},
222  { "intersect",   0, INTERSECT_CMD ,     CMD_M},
223  { "intmat",      0, INTMAT_CMD ,        INTMAT_CMD},
224  { "intvec",      0, INTVEC_CMD ,        ROOT_DECL_LIST},
225  { "jacob",       0, JACOB_CMD ,         CMD_1},
226  { "janet",       0, JANET_CMD ,         CMD_12},
227  { "jet",         0, JET_CMD ,           CMD_M},
228  { "kbase",       0, KBASE_CMD ,         CMD_12},
229  { "keepring",    0, KEEPRING_CMD ,      KEEPRING_CMD},
230  { "kill",        0, KILL_CMD ,          KILL_CMD},
231  { "killattrib",  0, KILLATTR_CMD ,      CMD_12},
232  { "koszul",      0, KOSZUL_CMD ,        CMD_23},
233  { "kres",        0, KRES_CMD ,          CMD_2},
234  { "laguerre",    0, LAGSOLVE_CMD,       CMD_3},
235  { "lead",        0, LEAD_CMD ,          CMD_1},
236  { "leadcoef",    0, LEADCOEF_CMD ,      CMD_1},
237  { "leadexp",     0, LEADEXP_CMD ,       CMD_1},
238  { "leadmonom",   0, LEADMONOM_CMD ,     CMD_1},
239  { "LIB",         0, LIB_CMD ,           SYSVAR},
240  { "lift",        0, LIFT_CMD ,          CMD_23},
241  { "liftstd",     0, LIFTSTD_CMD ,       CMD_2},
242  { "link",        0, LINK_CMD ,          ROOT_DECL},
243  { "listvar",     0, LISTVAR_CMD ,       LISTVAR_CMD},
244  { "list",        0, LIST_CMD ,          ROOT_DECL_LIST},
245  { "load",        0, LOAD_CMD ,          CMD_12},
246  { "lres",        0, LRES_CMD ,          CMD_2},
247  { "map",         0, MAP_CMD ,           RING_DECL},
248  { "matrix",      0, MATRIX_CMD ,        MATRIX_CMD},
249  { "maxideal",    0, MAXID_CMD ,         CMD_1},
250  { "memory",      0, MEMORY_CMD ,        CMD_1},
251  { "minbase",     0, MINBASE_CMD ,       CMD_1},
252  { "minor",       0, MINOR_CMD ,         CMD_23},
253  { "minres",      0, MINRES_CMD ,        CMD_1},
254  { "mod",         0, INTMOD_CMD ,        MULDIV_OP},
255  { "module",      0, MODUL_CMD ,         MODUL_CMD},
256  { "modulo",      0, MODULO_CMD ,        CMD_2},
257  { "monitor",     0, MONITOR_CMD ,       CMD_12},
258  { "mpresmat",    0, MPRES_CMD,          CMD_2},
259  { "mult",        0, MULTIPLICITY_CMD ,  CMD_1},
260  #ifdef OLD_RES
261  { "mres",        0, MRES_CMD ,          CMD_23},
262  #else
263  { "mres",        0, MRES_CMD ,          CMD_2},
264  #endif
265  { "mstd",        0, MSTD_CMD ,          CMD_1},
266  { "nameof",      0, NAMEOF_CMD ,        CMD_1},
267  { "names",       0, NAMES_CMD ,         CMD_M},
268  #ifdef HAVE_PLURAL
269  { "ncalgebra",   0, NCALGEBRA_CMD ,     CMD_2},
270  #endif
271  { "ncols",       0, COLS_CMD ,          CMD_1},
272  { "not",         0, NOT ,               NOT},
273  { "npars",       0, NPARS_CMD ,         CMD_1},
274  #ifdef OLD_RES
275  { "nres",        0, RES_CMD ,           CMD_23},
276  #else
277  { "nres",        0, RES_CMD ,           CMD_2},
278  #endif
279  { "nrows",       0, ROWS_CMD ,          CMD_1},
280  { "number",      0, NUMBER_CMD ,        RING_DECL},
281  { "nvars",       0, NVARS_CMD ,         CMD_1},
282  { "open",        0, OPEN_CMD ,          CMD_1},
283  #ifdef HAVE_PLURAL
284  { "oppose",      0, OPPOSE_CMD ,        CMD_2},
285  { "opposite",    0, OPPOSITE_CMD ,      CMD_1},
286  #endif
287  { "option",      0, OPTION_CMD ,        CMD_M},
288  { "or",          0, '|' ,               LOGIC_OP},
289  { "ord",         0, ORD_CMD ,           CMD_1},
290  { "ordstr",      0, ORDSTR_CMD ,        CMD_1},
291  { "package",     0, PACKAGE_CMD ,       ROOT_DECL},
292  { "par",         0, PAR_CMD ,           CMD_1},
293  { "parameter",   0, PARAMETER ,         PARAMETER},
294  { "pardeg",      0, PARDEG_CMD ,        CMD_1},
295  { "parstr",      0, PARSTR_CMD ,        CMD_12},
296  { "poly",        0, POLY_CMD ,          RING_DECL},
297  { "preimage",    0, PREIMAGE_CMD ,      CMD_13},
298  { "prime",       0, PRIME_CMD ,         CMD_1},
299  { "print",       0, PRINT_CMD ,         CMD_12},
300  { "prune",       0, PRUNE_CMD ,         CMD_1},
301  { "proc",        0, PROC_CMD ,          PROC_CMD},
302  { "qhweight",    0, QHWEIGHT_CMD ,      CMD_1},
303  { "qring",       0, QRING_CMD ,         ROOT_DECL},
304  { "quote",       0, QUOTE ,             QUOTE},
305  { "quotient",    0, QUOTIENT_CMD ,      CMD_2},
306  { "random",      0, RANDOM_CMD ,        CMD_23},
307  { "read",        0, READ_CMD ,          CMD_12},
308  { "reduce",      0, REDUCE_CMD ,        CMD_M},
309  { "regularity",  0, REGULARITY_CMD ,    CMD_1},
310  { "repart",      0, REPART_CMD ,        CMD_1},
311  { "reservedName",0, RESERVEDNAME_CMD ,  CMD_M},
312  { "resolution",  0, RESOLUTION_CMD ,    RING_DECL},
313  { "resultant",   0, RESULTANT_CMD,      CMD_3},
314  { "return",      0, RETURN ,            RETURN},
315  { "RETURN",      0, END_GRAMMAR ,       RETURN},
316  { "ring",        0, RING_CMD ,          RING_CMD},
317  { "ringlist",    0, RINGLIST_CMD ,      CMD_1},
318  { "rvar",        0, IS_RINGVAR ,        CMD_1},
319  { "setring",     0, SETRING_CMD ,       SETRING_CMD},
320  { "simplex",     0, SIMPLEX_CMD,        CMD_M},
321  { "simplify",    0, SIMPLIFY_CMD ,      CMD_2},
322  { "size",        0, COUNT_CMD ,         CMD_1},
323  { "sortvec",     0, SORTVEC_CMD ,       CMD_1},
324  #ifdef OLD_RES
325  { "sres",        0, SRES_CMD ,          CMD_23},
326  #else
327  { "sres",        0, SRES_CMD ,          CMD_2},
328  #endif
329  { "status",      0, STATUS_CMD,         CMD_M},
330  { "std",         0, STD_CMD ,           CMD_123},
331  { "string",      0, STRING_CMD ,        ROOT_DECL_LIST},
332  { "subst",       0, SUBST_CMD ,         CMD_M},
333  { "system",      0, SYSTEM_CMD,         CMD_M},
334  { "syz",         0, SYZYGY_CMD ,        CMD_1},
335  { "test",        0, TEST_CMD ,          CMD_M},
336  { "trace",       0, TRACE_CMD ,         CMD_1},
337  { "transpose",   0, TRANSPOSE_CMD ,     CMD_1},
338  #ifdef HAVE_PLURAL
339  { "twostd",      0, TWOSTD_CMD ,        CMD_1},
340  #endif
341  { "type",        0, TYPE_CMD ,          TYPE_CMD},
342  { "typeof",      0, TYPEOF_CMD ,        CMD_1},
343  { "uressolve",   0, URSOLVE_CMD,        CMD_M},
344  { "vandermonde", 0, VANDER_CMD,         CMD_3},
345  { "var",         0, VAR_CMD ,           CMD_1},
346  { "varstr",      0, VARSTR_CMD ,        CMD_12},
347  { "vdim",        0, VDIM_CMD ,          CMD_1},
348  { "vector",      0, VECTOR_CMD ,        RING_DECL},
349  { "wedge",       0, WEDGE_CMD ,         CMD_2},
350  { "weight",      0, WEIGHT_CMD ,        CMD_1},
351  { "whileif",     0, IF_CMD ,            IF_CMD},
352  { "write",       0, WRITE_CMD ,         CMD_M},
353/* delete for next version:*/
354  { "IN",          1, LEAD_CMD ,          CMD_1},
355  { "NF",          1, REDUCE_CMD ,        CMD_M},
356  { "multiplicity",1, MULTIPLICITY_CMD ,  CMD_1},
357  { "verbose",     2, OPTION_CMD ,        CMD_M},
358//  { "rank",        1, ROWS_CMD ,          CMD_1},
359//  { "Current",     0, -1 ,                SYSVAR},
360//  { "Top",         0, -1 ,                SYSVAR},
361//  { "Up",          0, -1 ,                SYSVAR},
362
363/* set sys vars*/
364  { "degBound",    0, VMAXDEG ,           SYSVAR},
365  { "echo",        0, VECHO ,             SYSVAR},
366  { "minpoly",     0, VMINPOLY ,          SYSVAR},
367  { "multBound",   0, VMAXMULT ,          SYSVAR},
368  { "noether",     0, VNOETHER ,          SYSVAR},
369  { "pagelength",  0, VPAGELENGTH ,       SYSVAR},
370  { "pagewidth",   0, VCOLMAX ,           SYSVAR},
371  { "printlevel",  0, VPRINTLEVEL ,       SYSVAR},
372  { "short",       0, VSHORTOUT ,         SYSVAR},
373  { "timer",       0, VTIMER ,            SYSVAR},
374  { "rtimer",      0, VRTIMER,            SYSVAR},
375  { "TRACE",       0, TRACE ,             SYSVAR},
376  { "voice",       0, VOICE ,             SYSVAR},
377
378/* other reserved words:scanner.l */
379  { "pause",       2, -1 ,             0},
380  { "while",       0, -1 ,             0},
381  { "for",         0, -1 ,             0},
382  { "help",        0, -1 ,             0},
383  { "newline",     0, -1 ,             0},
384  { "exit",        0, -1 ,             0},
385  { "quit",        0, -1 ,             0},
386/* end of list marker */
387  { NULL, 0, 0, 0}
388};
389#endif
390
391/*=================== operations with 2 args.: static proc =================*/
392static BOOLEAN jjOP_IV_I(leftv res, leftv u, leftv v)
393{
394  intvec* aa= (intvec *)u->CopyD(INTVEC_CMD);
395  int bb = (int)(v->Data());
396  if (errorreported) return TRUE;
397  switch (iiOp)
398  {
399    case '+': (*aa) += bb; break;
400    case '-': (*aa) -= bb; break;
401    case '*': (*aa) *= bb; break;
402    case '/':
403    case INTDIV_CMD: (*aa) /= bb; break;
404    case '%':
405    case INTMOD_CMD: (*aa) %= bb; break;
406  }
407  res->data=(char *)aa;
408  return FALSE;
409}
410static BOOLEAN jjOP_I_IV(leftv res, leftv u, leftv v)
411{
412  return jjOP_IV_I(res,v,u);
413}
414static BOOLEAN jjOP_IM_I(leftv res, leftv u, leftv v)
415{
416  intvec* aa= (intvec *)u->CopyD(INTVEC_CMD);
417  int bb = (int)(v->Data());
418  int i=min(aa->rows(),aa->cols());
419  switch (iiOp)
420  {
421    case '+': for (;i>0;i--) IMATELEM(*aa,i,i) += bb;
422              break;
423    case '-': for (;i>0;i--) IMATELEM(*aa,i,i) -= bb;
424              break;
425  }
426  res->data=(char *)aa;
427  return FALSE;
428}
429static BOOLEAN jjOP_I_IM(leftv res, leftv u, leftv v)
430{
431  return jjOP_IM_I(res,v,u);
432}
433static BOOLEAN jjDOTDOT(leftv res, leftv u, leftv v)
434{
435  res->data=(char *)new intvec((int)u->Data(),(int)v->Data());
436  return FALSE;
437}
438static void jjEQUAL_REST(leftv res,leftv u,leftv v)
439{
440  if ((res->data) && (u->next!=NULL) && (v->next!=NULL))
441  {
442    int save_iiOp=iiOp;
443    if (iiOp==NOTEQUAL)
444      iiExprArith2(res,u->next,EQUAL_EQUAL,v->next);
445    else
446      iiExprArith2(res,u->next,iiOp,v->next);
447    iiOp=save_iiOp;
448  }
449  if (iiOp==NOTEQUAL) res->data=(char *)(!(int)res->data);
450}
451static BOOLEAN jjCOMPARE_IV(leftv res, leftv u, leftv v)
452{
453  intvec*    a = (intvec * )(u->Data());
454  intvec*    b = (intvec * )(v->Data());
455  int r=a->compare(b);
456  switch  (iiOp)
457  {
458    case '<':
459      res->data  = (char *) (r<0);
460      break;
461    case '>':
462      res->data  = (char *) (r>0);
463      break;
464    case LE:
465      res->data  = (char *) (r<=0);
466      break;
467    case GE:
468      res->data  = (char *) (r>=0);
469      break;
470    case EQUAL_EQUAL:
471    case NOTEQUAL: /* negation handled by jjEQUAL_REST */
472      res->data  = (char *) (r==0);
473      break;
474  }
475  jjEQUAL_REST(res,u,v);
476  return r==-2;
477}
478static BOOLEAN jjCOMPARE_IV_I(leftv res, leftv u, leftv v)
479{
480  intvec* a = (intvec * )(u->Data());
481  int     b = (int )     (v->Data());
482  int r=a->compare(b);
483  switch  (iiOp)
484  {
485    case '<':
486      res->data  = (char *) (r<0);
487      break;
488    case '>':
489      res->data  = (char *) (r>0);
490      break;
491    case LE:
492      res->data  = (char *) (r<=0);
493      break;
494    case GE:
495      res->data  = (char *) (r>=0);
496      break;
497    case EQUAL_EQUAL:
498    case NOTEQUAL: /* negation handled by jjEQUAL_REST */
499      res->data  = (char *) (r==0);
500      break;
501  }
502  jjEQUAL_REST(res,u,v);
503  return FALSE;
504}
505static BOOLEAN jjCOMPARE_P(leftv res, leftv u, leftv v)
506{
507  poly p=(poly)u->Data();
508  poly q=(poly)v->Data();
509  int r=pCmp(p,q);
510  if (r==0)
511  {
512    /* compare lead coeffs */
513    number h=nSub(pGetCoeff(p),pGetCoeff(q));
514    r = -1+nIsZero(h)+2*nGreaterZero(h); /* -1: <, 0:==, 1: > */
515    nDelete(&h);
516  }
517  else if (p==NULL)
518  {
519    if (q==NULL)
520    {
521      /* compare 0, 0 */
522      r=0;
523    }
524    else if(pIsConstant(q))
525    {
526      /* compare 0, const */
527      r = 1-2*nGreaterZero(pGetCoeff(q)); /* -1: <, 1: > */
528    }
529  }
530  else if (q==NULL)
531  {
532    if (pIsConstant(p))
533    {
534      /* compare const, 0 */
535      r = -1+2*nGreaterZero(pGetCoeff(p)); /* -1: <, 1: > */
536    }
537  }
538  switch  (iiOp)
539  {
540    case '<':
541      res->data  = (char *) (r < 0);
542      break;
543    case '>':
544      res->data  = (char *) (r > 0);
545      break;
546    case LE:
547      res->data  = (char *) (r <= 0);
548      break;
549    case GE:
550      res->data  = (char *) (r >= 0);
551      break;
552    //case EQUAL_EQUAL:
553    //case NOTEQUAL: /* negation handled by jjEQUAL_REST */
554    //  res->data  = (char *) (r == 0);
555    //  break;
556  }
557  jjEQUAL_REST(res,u,v);
558  return FALSE;
559}
560static BOOLEAN jjCOMPARE_S(leftv res, leftv u, leftv v)
561{
562  char*    a = (char * )(u->Data());
563  char*    b = (char * )(v->Data());
564  int result = strcmp(a,b);
565  switch  (iiOp)
566  {
567    case '<':
568      res->data  = (char *) (result  < 0);
569      break;
570    case '>':
571      res->data  = (char *) (result  > 0);
572      break;
573    case LE:
574      res->data  = (char *) (result  <= 0);
575      break;
576    case GE:
577      res->data  = (char *) (result  >= 0);
578      break;
579    case EQUAL_EQUAL:
580    case NOTEQUAL: /* negation handled by jjEQUAL_REST */
581      res->data  = (char *) (result  == 0);
582      break;
583  }
584  jjEQUAL_REST(res,u,v);
585  return FALSE;
586}
587static BOOLEAN jjOP_REST(leftv res, leftv u, leftv v)
588{
589  if (u->Next()!=NULL)
590  {
591    u=u->next;
592    res->next = (leftv)omAllocBin(sleftv_bin);
593    return iiExprArith2(res->next,u,iiOp,v);
594  }
595  else if (v->Next()!=NULL)
596  {
597    v=v->next;
598    res->next = (leftv)omAllocBin(sleftv_bin);
599    return iiExprArith2(res->next,u,iiOp,v);
600  }
601  return FALSE;
602}
603static BOOLEAN jjPOWER_I(leftv res, leftv u, leftv v)
604{
605  int b=(int)u->Data();
606  int e=(int)v->Data();
607  int rc = 1;
608  BOOLEAN overflow=FALSE;
609  if (e >= 0)
610  {
611    if (b==0)
612    {
613      rc=0;
614    }
615    else
616    {
617      int oldrc;
618      while ((e--)!=0)
619      {
620        oldrc=rc;
621        rc *= b;
622        if (!overflow)
623        {
624          if(rc/b!=oldrc) overflow=TRUE;
625        }
626      }
627      if (overflow)
628        WarnS("int overflow(^), result may be wrong");
629    }
630    res->data = (char *)rc;
631    if (u!=NULL) return jjOP_REST(res,u,v);
632    return FALSE;
633  }
634  else
635  {
636    WerrorS("exponent must be non-negative");
637    return TRUE;
638  }
639}
640static BOOLEAN jjPOWER_N(leftv res, leftv u, leftv v)
641{
642  int e=(int)v->Data();
643  number n=(number)u->CopyD(NUMBER_CMD);
644  if (e<0)
645  {
646    number m=nInvers(n);
647    nDelete(&n);
648    n=m;
649    e=-e;
650  }
651  nPower(n,e,(number*)&res->data);
652  nDelete(&n);
653  if (u!=NULL) return jjOP_REST(res,u,v);
654  return FALSE;
655}
656static BOOLEAN jjPOWER_P(leftv res, leftv u, leftv v)
657{
658  res->data = (char *)pPower((poly)u->CopyD(POLY_CMD),(int)v->Data());
659  if (u!=NULL) return jjOP_REST(res,u,v);
660  return FALSE;
661}
662static BOOLEAN jjPOWER_ID(leftv res, leftv u, leftv v)
663{
664  res->data = (char *)idPower((ideal)(u->Data()),(int)(v->Data()));
665  if (u!=NULL) return jjOP_REST(res,u,v);
666  return FALSE;
667}
668static BOOLEAN jjPLUSMINUS_Gen(leftv res, leftv u, leftv v)
669{
670  u=u->next;
671  v=v->next;
672  if (u==NULL)
673  {
674    if (v==NULL) return FALSE;      /* u==NULL, v==NULL */
675    if (iiOp=='-')                  /* u==NULL, v<>NULL, iiOp=='-'*/
676    {
677      do
678      {
679        if (res->next==NULL)
680          res->next = (leftv)omAlloc0Bin(sleftv_bin);
681        leftv tmp_v=v->next;
682        v->next=NULL;
683        BOOLEAN b=iiExprArith1(res->next,v,'-');
684        v->next=tmp_v;
685        if (b)
686          return TRUE;
687        v=tmp_v;
688        res=res->next;
689      } while (v!=NULL);
690      return FALSE;
691    }
692    loop                            /* u==NULL, v<>NULL, iiOp=='+' */
693    {
694      res->next = (leftv)omAlloc0Bin(sleftv_bin);
695      res=res->next;
696      res->data = v->CopyD();
697      res->rtyp = v->Typ();
698      v=v->next;
699      if (v==NULL) return FALSE;
700    }
701  }
702  if (v!=NULL)                     /* u<>NULL, v<>NULL */
703  {
704    do
705    {
706      res->next = (leftv)omAlloc0Bin(sleftv_bin);
707      leftv tmp_u=u->next; u->next=NULL;
708      leftv tmp_v=v->next; v->next=NULL;
709      BOOLEAN b=iiExprArith2(res->next,u,iiOp,v);
710      u->next=tmp_u;
711      v->next=tmp_v;
712      if (b)
713        return TRUE;
714      u=tmp_u;
715      v=tmp_v;
716      res=res->next;
717    } while ((u!=NULL) && (v!=NULL));
718    return FALSE;
719  }
720  loop                             /* u<>NULL, v==NULL */
721  {
722    res->next = (leftv)omAlloc0Bin(sleftv_bin);
723    res=res->next;
724    res->data = u->CopyD();
725    res->rtyp = u->Typ();
726    u=u->next;
727    if (u==NULL) return FALSE;
728  }
729}
730static BOOLEAN jjCOLCOL(leftv res, leftv u, leftv v)
731{
732#ifdef HAVE_NS
733  idhdl packhdl;
734
735  switch(u->Typ())
736  {
737      case 0:
738        Print("%s of type 'ANY'. Trying load.\n", v->name);
739        //if(iiTryLoadLib(u, u->name))
740        {
741          Werror("'%s' no such package", u->name);
742          return TRUE;
743        }
744        //syMake(u,u->name,NULL);
745        // else: use next case !!! no break !!!
746
747      case PACKAGE_CMD:
748        packhdl = (idhdl)u->data;
749        if((!IDPACKAGE(packhdl)->loaded)
750        && (IDPACKAGE(packhdl)->language > LANG_TOP))
751        {
752          //if(iiReLoadLib(packhdl))
753          //  Werror("unable to reload package '%s'", IDID(packhdl));
754          Werror("'%s' not loaded", u->name);
755          return TRUE;
756        }
757        if(v->rtyp == IDHDL)
758        {
759          v->name = omStrDup(v->name);
760        }
761        v->req_packhdl=IDPACKAGE(packhdl);
762        v->packhdl=IDPACKAGE(packhdl);
763        syMake(v, v->name, packhdl);
764        memcpy(res, v, sizeof(sleftv));
765        memset(v, 0, sizeof(sleftv));
766        break;
767
768      case DEF_CMD:
769        break;
770
771      default:
772        WerrorS("<package>::<id> expected");
773        return TRUE;
774  }
775#else
776  WerrorS("package is not supported in this version");
777#endif /* HAVE_NS */
778  return FALSE;
779}
780static BOOLEAN jjPLUS_I(leftv res, leftv u, leftv v)
781{
782  unsigned int a=(unsigned int)u->Data();
783  unsigned int b=(unsigned int)v->Data();
784  unsigned int c=a+b;
785  res->data = (char *)c;
786  if (((Sy_bit(31)&a)==(Sy_bit(31)&b))&&((Sy_bit(31)&a)!=(Sy_bit(31)&c)))
787  {
788    WarnS("int overflow(+), result may be wrong");
789  }
790  return jjPLUSMINUS_Gen(res,u,v);
791}
792static BOOLEAN jjPLUS_N(leftv res, leftv u, leftv v)
793{
794  res->data = (char *)(nAdd((number)u->Data(), (number)v->Data()));
795  return jjPLUSMINUS_Gen(res,u,v);
796}
797static BOOLEAN jjPLUS_P(leftv res, leftv u, leftv v)
798{
799  res->data = (char *)(pAdd((poly)u->CopyD(POLY_CMD) , (poly)v->CopyD(POLY_CMD)));
800  return jjPLUSMINUS_Gen(res,u,v);
801}
802static BOOLEAN jjPLUS_IV(leftv res, leftv u, leftv v)
803{
804  res->data = (char *)ivAdd((intvec*)(u->Data()), (intvec*)(v->Data()));
805  if (res->data==NULL)
806  {
807     WerrorS("intmat size not compatible");
808     return TRUE;
809  }
810  return jjPLUSMINUS_Gen(res,u,v);
811}
812static BOOLEAN jjPLUS_MA(leftv res, leftv u, leftv v)
813{
814  res->data = (char *)(mpAdd((matrix)u->Data() , (matrix)v->Data()));
815  if (res->data==NULL)
816  {
817     WerrorS("matrix size not compatible");
818     return TRUE;
819  }
820  return jjPLUSMINUS_Gen(res,u,v);
821}
822static BOOLEAN jjPLUS_MA_P(leftv res, leftv u, leftv v)
823{
824  matrix m=(matrix)u->Data();
825  matrix p= mpInitP(m->nrows,m->ncols,(poly)(v->CopyD(POLY_CMD)));
826  if (iiOp=='+')
827    res->data = (char *)mpAdd(m , p);
828  else
829    res->data = (char *)mpSub(m , p);
830  idDelete((ideal *)&p);
831  return jjPLUSMINUS_Gen(res,u,v);
832}
833static BOOLEAN jjPLUS_P_MA(leftv res, leftv u, leftv v)
834{
835  return jjPLUS_MA_P(res,v,u);
836}
837static BOOLEAN jjPLUS_S(leftv res, leftv u, leftv v)
838{
839  char*    a = (char * )(u->Data());
840  char*    b = (char * )(v->Data());
841  char*    r = (char * )omAlloc(strlen(a) + strlen(b) + 1);
842  strcpy(r,a);
843  strcat(r,b);
844  res->data=r;
845  return jjPLUSMINUS_Gen(res,u,v);
846}
847static BOOLEAN jjPLUS_ID(leftv res, leftv u, leftv v)
848{
849  res->data = (char *)idAdd((ideal)u->Data(),(ideal)v->Data());
850  return jjPLUSMINUS_Gen(res,u,v);
851}
852static BOOLEAN jjMINUS_I(leftv res, leftv u, leftv v)
853{
854  unsigned int a=(unsigned int)u->Data();
855  unsigned int b=(unsigned int)v->Data();
856  unsigned int c=a-b;
857  if (((Sy_bit(31)&a)!=(Sy_bit(31)&b))&&((Sy_bit(31)&a)!=(Sy_bit(31)&c)))
858  {
859    WarnS("int overflow(-), result may be wrong");
860  }
861  res->data = (char *)c;
862  return jjPLUSMINUS_Gen(res,u,v);
863}
864static BOOLEAN jjMINUS_N(leftv res, leftv u, leftv v)
865{
866  res->data = (char *)(nSub((number)u->Data(), (number)v->Data()));
867  return jjPLUSMINUS_Gen(res,u,v);
868}
869static BOOLEAN jjMINUS_P(leftv res, leftv u, leftv v)
870{
871  res->data = (char *)(pSub((poly)u->CopyD(POLY_CMD) , (poly)v->CopyD(POLY_CMD)));
872  return jjPLUSMINUS_Gen(res,u,v);
873}
874static BOOLEAN jjMINUS_IV(leftv res, leftv u, leftv v)
875{
876  res->data = (char *)ivSub((intvec*)(u->Data()), (intvec*)(v->Data()));
877  if (res->data==NULL)
878  {
879     WerrorS("intmat size not compatible");
880     return TRUE;
881  }
882  return jjPLUSMINUS_Gen(res,u,v);
883}
884static BOOLEAN jjMINUS_MA(leftv res, leftv u, leftv v)
885{
886  res->data = (char *)(mpSub((matrix)u->Data() , (matrix)v->Data()));
887  if (res->data==NULL)
888  {
889     WerrorS("matrix size not compatible");
890     return TRUE;
891  }
892  return jjPLUSMINUS_Gen(res,u,v);
893}
894static BOOLEAN jjTIMES_I(leftv res, leftv u, leftv v)
895{
896  int a=(int)u->Data();
897  int b=(int)v->Data();
898  int c=a * b;
899  if ((b!=0) && (c/b !=a))
900    WarnS("int overflow(*), result may be wrong");
901  res->data = (char *)c;
902  if ((u->Next()!=NULL) || (v->Next()!=NULL))
903    return jjOP_REST(res,u,v);
904  return FALSE;
905}
906static BOOLEAN jjTIMES_N(leftv res, leftv u, leftv v)
907{
908  res->data = (char *)(nMult( (number)u->Data(), (number)v->Data()));
909  if ((v->next!=NULL) || (u->next!=NULL))
910    return jjOP_REST(res,u,v);
911  return FALSE;
912}
913static BOOLEAN jjTIMES_P(leftv res, leftv u, leftv v)
914{
915  poly a;
916  poly b;
917
918  if (v->next==NULL)
919  {
920    a=(poly)u->CopyD(POLY_CMD); // works also for VECTOR_CMD
921    if (u->next==NULL)
922    {
923      b=(poly)v->CopyD(POLY_CMD); // works also for VECTOR_CMD
924      res->data = (char *)(pMult( a, b));
925      return FALSE;
926    }
927    // u->next exists: copy v
928    b=pCopy((poly)v->Data());
929    res->data = (char *)(pMult( a, b));
930    return jjOP_REST(res,u,v);
931  }
932  // v->next exists: copy u
933  a=pCopy((poly)u->Data());
934  b=(poly)v->CopyD(POLY_CMD); // works also for VECTOR_CMD
935  res->data = (char *)(pMult( a, b));
936  return jjOP_REST(res,u,v);
937}
938static BOOLEAN jjTIMES_ID(leftv res, leftv u, leftv v)
939{
940  res->data = (char *)idMult((ideal)u->Data(),(ideal)v->Data());
941  if ((v->next!=NULL) || (u->next!=NULL))
942    return jjOP_REST(res,u,v);
943  return FALSE;
944}
945static BOOLEAN jjTIMES_IV(leftv res, leftv u, leftv v)
946{
947  res->data = (char *)ivMult((intvec*)(u->Data()), (intvec*)(v->Data()));
948  if (res->data==NULL)
949  {
950     WerrorS("intmat size not compatible");
951     return TRUE;
952  }
953  if ((v->next!=NULL) || (u->next!=NULL))
954    return jjOP_REST(res,u,v);
955  return FALSE;
956}
957static BOOLEAN jjTIMES_MA_P1(leftv res, leftv u, leftv v)
958{
959  poly p=(poly)v->CopyD(POLY_CMD);
960  int r=pMaxComp(p);/* recompute the rank for the case ideal*vector*/
961  ideal I= (ideal)mpMultP((matrix)u->CopyD(MATRIX_CMD),p);
962  if (r>0) I->rank=r;
963  res->data = (char *)I;
964  return FALSE;
965}
966static BOOLEAN jjTIMES_MA_P2(leftv res, leftv u, leftv v)
967{
968  return jjTIMES_MA_P1(res,v,u);
969}
970static BOOLEAN jjTIMES_MA_N1(leftv res, leftv u, leftv v)
971{
972  number n=(number)v->CopyD(NUMBER_CMD);
973  poly p=pOne();
974  pSetCoeff(p,n);
975  res->data = (char *)mpMultP((matrix)u->CopyD(MATRIX_CMD),p);
976  return FALSE;
977}
978static BOOLEAN jjTIMES_MA_N2(leftv res, leftv u, leftv v)
979{
980  return jjTIMES_MA_N1(res,v,u);
981}
982static BOOLEAN jjTIMES_MA_I1(leftv res, leftv u, leftv v)
983{
984  res->data = (char *)mpMultI((matrix)u->CopyD(MATRIX_CMD),(int)v->Data());
985  return FALSE;
986}
987static BOOLEAN jjTIMES_MA_I2(leftv res, leftv u, leftv v)
988{
989  return jjTIMES_MA_I1(res,v,u);
990}
991static BOOLEAN jjTIMES_MA(leftv res, leftv u, leftv v)
992{
993  res->data = (char *)mpMult((matrix)u->Data(),(matrix)v->Data());
994  if (res->data==NULL)
995  {
996     WerrorS("matrix size not compatible");
997     return TRUE;
998  }
999  if ((v->next!=NULL) || (u->next!=NULL))
1000    return jjOP_REST(res,u,v);
1001  return FALSE;
1002}
1003static BOOLEAN jjGE_I(leftv res, leftv u, leftv v)
1004{
1005  res->data = (char *)((int)u->Data() >= (int)v->Data());
1006  return FALSE;
1007}
1008static BOOLEAN jjGE_N(leftv res, leftv u, leftv v)
1009{
1010  number h=nSub((number)u->Data(),(number)v->Data());
1011  res->data = (char *) (nGreaterZero(h)||(nIsZero(h)));
1012  nDelete(&h);
1013  return FALSE;
1014}
1015static BOOLEAN jjGT_I(leftv res, leftv u, leftv v)
1016{
1017  res->data = (char *)((int)u->Data()>(int)v->Data());
1018  return FALSE;
1019}
1020static BOOLEAN jjGT_N(leftv res, leftv u, leftv v)
1021{
1022  number h=nSub((number)u->Data(),(number)v->Data());
1023  res->data = (char *) (nGreaterZero(h)&&(!nIsZero(h)));
1024  nDelete(&h);
1025  return FALSE;
1026}
1027static BOOLEAN jjLE_I(leftv res, leftv u, leftv v)
1028{
1029  res->data = (char *)((int)u->Data() <= (int)v->Data());
1030  return FALSE;
1031}
1032static BOOLEAN jjLE_N(leftv res, leftv u, leftv v)
1033{
1034  number h=nSub((number)v->Data(),(number)u->Data());
1035  res->data = (char *) (nGreaterZero(h)||nIsZero(h));
1036  nDelete(&h);
1037  return FALSE;
1038}
1039static BOOLEAN jjLT_I(leftv res, leftv u, leftv v)
1040{
1041  res->data = (char *)((int)u->Data() < (int)v->Data());
1042  return FALSE;
1043}
1044static BOOLEAN jjLT_N(leftv res, leftv u, leftv v)
1045{
1046  number h=nSub((number)v->Data(),(number)u->Data());
1047  res->data = (char *) (nGreaterZero(h)&&(!nIsZero(h)));
1048  nDelete(&h);
1049  return FALSE;
1050}
1051static BOOLEAN jjDIVMOD_I(leftv res, leftv u, leftv v)
1052{
1053  int a= (int) u->Data();
1054  int b= (int) v->Data();
1055  if (b==0)
1056  {
1057    WerrorS(ii_div_by_0);
1058    return TRUE;
1059  }
1060  int bb=ABS(b);
1061  int c=a%bb;
1062  if(c<0) c+=bb;
1063  int r=0;
1064  switch (iiOp)
1065  {
1066    case INTMOD_CMD:
1067        r=c;            break;
1068    case '%':
1069        r= (a % b);     break;
1070    case INTDIV_CMD:
1071        r=((a-c) /b);   break;
1072    case '/':
1073        r= (a / b);     break;
1074  }
1075  res->data=(void *)r;
1076  return FALSE;
1077}
1078static BOOLEAN jjDIV_N(leftv res, leftv u, leftv v)
1079{
1080  number q=(number)v->Data();
1081  if (nIsZero(q))
1082  {
1083    WerrorS(ii_div_by_0);
1084    return TRUE;
1085  }
1086  q = nDiv((number)u->Data(),q);
1087  nNormalize(q);
1088  res->data = (char *)q;
1089  return FALSE;
1090}
1091static BOOLEAN jjDIV_P(leftv res, leftv u, leftv v)
1092{
1093  poly q=(poly)v->Data();
1094  if (q==NULL)
1095  {
1096    WerrorS(ii_div_by_0);
1097    return TRUE;
1098  }
1099  poly p=(poly)(u->Data());
1100  if (p==NULL)
1101  {
1102    res->data=NULL;
1103    return FALSE;
1104  }
1105  if (pNext(q)!=NULL)
1106  {
1107#ifdef HAVE_FACTORY
1108    if(pGetComp(p)==0)
1109    {
1110      res->data=(void*)(singclap_pdivide(p /*(poly)(u->Data())*/ ,
1111                                         q /*(poly)(v->Data())*/ ));
1112    }
1113    else
1114    {
1115      int comps=pMaxComp(p);
1116      ideal I=idInit(comps,1);
1117      p=pCopy(p);
1118      poly h;
1119      int i;
1120      // conversion to a list of polys:
1121      while (p!=NULL)
1122      {
1123        i=pGetComp(p)-1;
1124        h=pNext(p);
1125        pNext(p)=NULL;
1126        pSetComp(p,0);
1127        I->m[i]=pAdd(I->m[i],p);
1128        p=h;
1129      }
1130      // division and conversion to vector:
1131      h=NULL;
1132      p=NULL;
1133      for(i=comps-1;i>=0;i--)
1134      {
1135        if (I->m[i]!=NULL)
1136        {
1137          h=singclap_pdivide(I->m[i],q);
1138          pSetCompP(h,i+1);
1139          p=pAdd(p,h);
1140        }
1141      }
1142      idDelete(&I);
1143      res->data=(void *)p;
1144    }
1145#else
1146    WerrorS("division only by a monomial");
1147    return TRUE;
1148#endif
1149  }
1150  else
1151  {
1152    res->data = (char *)pDivideM(pCopy(p),pHead(q));
1153  }
1154  return FALSE;
1155}
1156static BOOLEAN jjDIV_Ma(leftv res, leftv u, leftv v)
1157{
1158  poly q=(poly)v->Data();
1159  if (q==NULL)
1160  {
1161    WerrorS(ii_div_by_0);
1162    return TRUE;
1163  }
1164  matrix m=(matrix)(u->Data());
1165  int r=m->rows();
1166  int c=m->cols();
1167  matrix mm=mpNew(r,c);
1168  int i,j;
1169  for(i=r;i>0;i--)
1170  {
1171    for(j=c;j>0;j--)
1172    {
1173      if (pNext(q)!=NULL)
1174      {
1175      #ifdef HAVE_FACTORY
1176        MATELEM(mm,i,j) = singclap_pdivide( MATELEM(m,i,j) ,
1177                                           q /*(poly)(v->Data())*/ );
1178      #else
1179        WerrorS("division only by a monomial");
1180        return TRUE;
1181      #endif
1182      }
1183      else
1184        MATELEM(mm,i,j) = pDivideM(pCopy(MATELEM(m,i,j)),pHead(q));
1185    }
1186  }
1187  res->data=(char *)mm;
1188  return FALSE;
1189}
1190static BOOLEAN jjEQUAL_I(leftv res, leftv u, leftv v)
1191{
1192  res->data = (char *)((int)u->Data() == (int)v->Data());
1193  jjEQUAL_REST(res,u,v);
1194  return FALSE;
1195}
1196static BOOLEAN jjEQUAL_Ma(leftv res, leftv u, leftv v)
1197{
1198  res->data = (char *)mpEqual((matrix)u->Data(),(matrix)v->Data());
1199  jjEQUAL_REST(res,u,v);
1200  return FALSE;
1201}
1202static BOOLEAN jjEQUAL_N(leftv res, leftv u, leftv v)
1203{
1204  res->data = (char *)nEqual((number)u->Data(),(number)v->Data());
1205  jjEQUAL_REST(res,u,v);
1206  return FALSE;
1207}
1208static BOOLEAN jjEQUAL_P(leftv res, leftv u, leftv v)
1209{
1210  poly p=(poly)u->Data();
1211  poly q=(poly)v->Data();
1212  if (p==NULL)
1213  {
1214    res->data=(char *)(q==NULL);
1215  }
1216  else
1217  {
1218    if (q==NULL) res->data=(char *)FALSE;
1219    else
1220    {
1221      int r=pCmp(p,q);
1222      if (r==0)
1223      {
1224        p=pSub(pCopy(p),pCopy(q));
1225        res->data = (char *) (p==NULL);
1226        pDelete(&p);
1227      }
1228      else
1229        res->data = (char *) FALSE;
1230    }
1231  }
1232  jjEQUAL_REST(res,u,v);
1233  return FALSE;
1234}
1235static BOOLEAN jjAND_I(leftv res, leftv u, leftv v)
1236{
1237  res->data = (char *)((int)u->Data() && (int)v->Data());
1238  return FALSE;
1239}
1240static BOOLEAN jjOR_I(leftv res, leftv u, leftv v)
1241{
1242  res->data = (char *)((int)u->Data() || (int)v->Data());
1243  return FALSE;
1244}
1245static BOOLEAN jjINDEX_I(leftv res, leftv u, leftv v)
1246{
1247  res->rtyp=u->rtyp; u->rtyp=0;
1248  res->data=u->data; u->data=NULL;
1249  res->name=u->name; u->name=NULL;
1250  res->e=u->e;       u->e=NULL;
1251  if (res->e==NULL) res->e=jjMakeSub(v);
1252  else
1253  {
1254    Subexpr sh=res->e;
1255    while (sh->next != NULL) sh=sh->next;
1256    sh->next=jjMakeSub(v);
1257  }
1258  return FALSE;
1259}
1260static BOOLEAN jjINDEX_IV(leftv res, leftv u, leftv v)
1261{
1262  if ((u->rtyp!=IDHDL)||(u->e!=NULL))
1263  {
1264    WerrorS("indexed object must have a name");
1265    return TRUE;
1266  }
1267  intvec * iv=(intvec *)v->Data();
1268  leftv p=NULL;
1269  int i;
1270  sleftv t;
1271
1272  memset(&t,0,sizeof(t));
1273  t.rtyp=INT_CMD;
1274  for (i=0;i<iv->length(); i++)
1275  {
1276    t.data=(char *)(*iv)[i];
1277    if (p==NULL)
1278    {
1279      p=res;
1280    }
1281    else
1282    {
1283      p->next=(leftv)omAlloc0Bin(sleftv_bin);
1284      p=p->next;
1285    }
1286    p->rtyp=IDHDL;
1287    p->data=u->data;
1288    p->name=u->name;
1289    p->flag|=u->flag;
1290    p->e=jjMakeSub(&t);
1291  }
1292  u->rtyp=0;
1293  u->data=NULL;
1294  u->name=NULL;
1295  return FALSE;
1296}
1297static BOOLEAN jjINDEX_P(leftv res, leftv u, leftv v)
1298{
1299  poly p=(poly)u->Data();
1300  int i=(int)v->Data();
1301  int j=0;
1302  while (p!=NULL)
1303  {
1304    j++;
1305    if (j==i)
1306    {
1307      res->data=(char *)pHead(p);
1308      return FALSE;
1309    }
1310    pIter(p);
1311  }
1312  return FALSE;
1313}
1314static BOOLEAN jjINDEX_P_IV(leftv res, leftv u, leftv v)
1315{
1316  poly p=(poly)u->Data();
1317  poly r=NULL;
1318  intvec *iv=(intvec *)v->CopyD(INTVEC_CMD);
1319  int i;
1320  int sum=0;
1321  for(i=iv->length()-1;i>=0;i--)
1322    sum+=(*iv)[i];
1323  int j=0;
1324  while ((p!=NULL) && (sum>0))
1325  {
1326    j++;
1327    for(i=iv->length()-1;i>=0;i--)
1328    {
1329      if (j==(*iv)[i])
1330      {
1331        r=pAdd(r,pHead(p));
1332        sum-=j;
1333        (*iv)[i]=0;
1334        break;
1335      }
1336    }
1337    pIter(p);
1338  }
1339  delete iv;
1340  res->data=(char *)r;
1341  return FALSE;
1342}
1343static BOOLEAN jjINDEX_V(leftv res, leftv u, leftv v)
1344{
1345  poly p=(poly)u->CopyD(VECTOR_CMD);
1346  poly r=p; // pointer to the beginning of component i
1347  poly o=NULL;
1348  int i=(int)v->Data();
1349  while (p!=NULL)
1350  {
1351    if (pGetComp(p)!=i)
1352    {
1353      if (r==p) r=pNext(p);
1354      if (o!=NULL)
1355      {
1356        pDeleteLm(&pNext(o));
1357        p=pNext(o);
1358      }
1359      else
1360        pDeleteLm(&p);
1361    }
1362    else
1363    {
1364      pSetComp(p, 0);
1365      o=p;
1366      p=pNext(o);
1367    }
1368  }
1369  res->data=(char *)r;
1370  return FALSE;
1371}
1372static BOOLEAN jjINDEX_V_IV(leftv res, leftv u, leftv v)
1373{
1374  poly p=(poly)u->CopyD(VECTOR_CMD);
1375  if (p!=NULL)
1376  {
1377    poly r=pOne();
1378    poly hp=r;
1379    intvec *iv=(intvec *)v->Data();
1380    int i;
1381    loop
1382    {
1383      for(i=0;i<iv->length();i++)
1384      {
1385        if (pGetComp(p)==(*iv)[i])
1386        {
1387          poly h;
1388          pSplit(p,&h);
1389          pNext(hp)=p;
1390          p=h;
1391          pIter(hp);
1392          break;
1393        }
1394      }
1395      if (p==NULL) break;
1396      if (i==iv->length())
1397      {
1398        pDeleteLm(&p);
1399        if (p==NULL) break;
1400      }
1401    }
1402    pDeleteLm(&r);
1403    res->data=(char *)r;
1404  }
1405  return FALSE;
1406}
1407static BOOLEAN jjKLAMMER(leftv res, leftv u, leftv v)
1408{
1409  if(u->name==NULL) return TRUE;
1410  char * nn = (char *)omAlloc(strlen(u->name) + 14);
1411  sprintf(nn,"%s(%d)",u->name,(int)v->Data());
1412  omFree((ADDRESS)u->name);
1413  u->name=NULL;
1414  char *n=omStrDup(nn);
1415  omFree((ADDRESS)nn);
1416  syMake(res,n);
1417  return FALSE;
1418}
1419static BOOLEAN jjKLAMMER_IV(leftv res, leftv u, leftv v)
1420{
1421  intvec * iv=(intvec *)v->Data();
1422  leftv p=NULL;
1423  int i;
1424  int slen = strlen(u->name) + 14;
1425  char *n = (char*) omAlloc(slen);
1426
1427  for (i=0;i<iv->length(); i++)
1428  {
1429    if (p==NULL)
1430    {
1431      p=res;
1432    }
1433    else
1434    {
1435      p->next=(leftv)omAlloc0Bin(sleftv_bin);
1436      p=p->next;
1437    }
1438    sprintf(n,"%s(%d)",u->name,(*iv)[i]);
1439    syMake(p,omStrDup(n));
1440  }
1441  omFree((ADDRESS)u->name);
1442  u->name = NULL;
1443  omFreeSize(n, slen);
1444  return FALSE;
1445}
1446static BOOLEAN jjPROC(leftv res, leftv u, leftv v)
1447{
1448  idrec tmp_proc;
1449  Subexpr e;
1450  void *d;
1451  int typ;
1452  BOOLEAN t=FALSE;
1453  if (u->rtyp!=IDHDL) 
1454  {
1455    tmp_proc.id="_auto";
1456    tmp_proc.typ=PROC_CMD;
1457    tmp_proc.data.pinf=(procinfo *)u->Data(); 
1458    tmp_proc.ref=1;
1459    d=u->data; u->data=(void *)&tmp_proc;
1460    e=u->e; u->e=NULL;
1461    t=TRUE;
1462    typ=u->rtyp; u->rtyp=IDHDL;
1463  }
1464#ifdef HAVE_NS
1465  leftv sl;
1466  if (u->req_packhdl==currPack)
1467    sl = iiMake_proc((idhdl)u->data,NULL,v);
1468  else
1469    sl = iiMake_proc((idhdl)u->data,u->req_packhdl,v);
1470#else /* HAVE_NS */
1471  leftv sl = iiMake_proc((idhdl)u->data,v);
1472#endif /* HAVE_NS */
1473  if (t)
1474  {
1475    u->rtyp=typ;
1476    u->data=d;
1477    u->e=e;
1478  }
1479  if (sl==NULL)
1480  {
1481    return TRUE;
1482  }
1483  else
1484  {
1485    memcpy(res,sl,sizeof(sleftv));
1486  }
1487  return FALSE;
1488}
1489static BOOLEAN jjMAP(leftv res, leftv u, leftv v)
1490{
1491  //Print("try to map %s with %s\n",$3.Name(),$1.Name());
1492  leftv sl=NULL;
1493  if ((v->e==NULL)&&(v->name!=NULL))
1494  {
1495    map m=(map)u->Data();
1496    sl=iiMap(m,v->name);
1497  }
1498  else
1499  {
1500    Werror("%s(<name>) expected",u->Name());
1501  }
1502  if (sl==NULL) return TRUE;
1503  memcpy(res,sl,sizeof(sleftv));
1504  omFreeBin((ADDRESS)sl, sleftv_bin);
1505  return FALSE;
1506}
1507static BOOLEAN jjCALL2MANY(leftv res, leftv u, leftv v)
1508{
1509  u->next=(leftv)omAllocBin(sleftv_bin);
1510  memcpy(u->next,v,sizeof(sleftv));
1511  BOOLEAN r=iiExprArithM(res,u,iiOp);
1512  // iiExprArithM did the CleanUp
1513  return r;
1514}
1515static BOOLEAN jjCOEF(leftv res, leftv u, leftv v)
1516{
1517  poly p=(poly)v->Data();
1518  if ((p==NULL)||(pNext(p)!=NULL)) return TRUE;
1519  res->data=(char *)mpCoeffProc((poly)u->Data(),p /*(poly)v->Data()*/);
1520  return FALSE;
1521}
1522static BOOLEAN jjCOEFFS_Id(leftv res, leftv u, leftv v)
1523{
1524  int i=pVar((poly)v->Data());
1525  if (i==0)
1526  {
1527    WerrorS("ringvar expected");
1528    return TRUE;
1529  }
1530  res->data=(char *)mpCoeffs((ideal)u->CopyD(),i);
1531  return FALSE;
1532}
1533static BOOLEAN jjCOEFFS2_KB(leftv res, leftv u, leftv v)
1534{
1535  poly p = pInit();
1536  int i;
1537
1538  for (i=1; i<=pVariables; i++)
1539  {
1540    pSetExp(p, i, 1);
1541  }
1542  pSetm(p);
1543  res->data = (void*)idCoeffOfKBase((ideal)(u->Data()),
1544                                    (ideal)(v->Data()), p);
1545  pDelete(&p);
1546  return FALSE;
1547}
1548static BOOLEAN jjCONTRACT(leftv res, leftv u, leftv v)
1549{
1550  res->data=(char *)idDiffOp((ideal)u->Data(),(ideal)v->Data(),FALSE);
1551  return FALSE;
1552}
1553static BOOLEAN jjDEG_M_IV(leftv res, leftv u, leftv v)
1554{
1555  short *iv=iv2array((intvec *)v->Data());
1556  ideal I=(ideal)u->Data();
1557  int d=-1;
1558  int i;
1559  for(i=IDELEMS(I);i>=0;i--) d=max(d,pDegW(I->m[i],iv));
1560  omFreeSize((ADDRESS)iv,(pVariables+1)*sizeof(short));
1561  res->data = (char *)d;
1562  return FALSE;
1563}
1564static BOOLEAN jjDEG_IV(leftv res, leftv u, leftv v)
1565{
1566  short *iv=iv2array((intvec *)v->Data());
1567  res->data = (char *)pDegW((poly)u->Data(),iv);
1568  omFreeSize((ADDRESS)iv,(pVariables+1)*sizeof(short));
1569  return FALSE;
1570}
1571static BOOLEAN jjDIFF_P(leftv res, leftv u, leftv v)
1572{
1573  int i=pVar((poly)v->Data());
1574  if (i==0)
1575  {
1576    WerrorS("ringvar expected");
1577    return TRUE;
1578  }
1579  res->data=(char *)pDiff((poly)(u->Data()),i);
1580  return FALSE;
1581}
1582static BOOLEAN jjDIFF_ID(leftv res, leftv u, leftv v)
1583{
1584  int i=pVar((poly)v->Data());
1585  if (i==0)
1586  {
1587    WerrorS("ringvar expected");
1588    return TRUE;
1589  }
1590  res->data=(char *)idDiff((matrix)(u->Data()),i);
1591  return FALSE;
1592}
1593static BOOLEAN jjDIFF_ID_ID(leftv res, leftv u, leftv v)
1594{
1595  res->data=(char *)idDiffOp((ideal)u->Data(),(ideal)v->Data());
1596  return FALSE;
1597}
1598static BOOLEAN jjDIM2(leftv res, leftv v, leftv w)
1599{
1600  assumeStdFlag(v);
1601  if(currQuotient==NULL)
1602    res->data = (char *)scDimInt((ideal)(v->Data()),(ideal)w->Data());
1603  else
1604  {
1605    ideal q=idSimpleAdd(currQuotient,(ideal)w->Data());
1606    res->data = (char *)scDimInt((ideal)(v->Data()),q);
1607    idDelete(&q);
1608  }
1609  return FALSE;
1610}
1611static BOOLEAN jjDIVISION(leftv res, leftv u, leftv v)
1612{
1613  ideal vi=(ideal)v->Data();
1614  int vl= IDELEMS(vi);
1615  ideal ui=(ideal)u->Data();
1616  int ul= IDELEMS(ui);
1617  ideal R; matrix U;
1618  ideal m = idLift(vi,ui,&R, FALSE,hasFlag(v,FLAG_STD),TRUE,&U);
1619  // now make sure that all matices have the corect size:
1620  matrix T = idModule2formatedMatrix(m,vl,ul);
1621  if (MATCOLS(U) != ul)
1622  {
1623    int mul=min(ul,MATCOLS(U));
1624    matrix UU=mpNew(ul,ul);
1625    int i,j;
1626    for(i=mul;i>0;i--)
1627    {
1628      for(j=mul;j>0;j--)
1629      {
1630        MATELEM(UU,i,j)=MATELEM(U,i,j);
1631        MATELEM(U,i,j)=NULL;
1632      }
1633    }
1634    idDelete((ideal *)&U);
1635    U=UU;
1636  }
1637  lists L=(lists)omAllocBin(slists_bin);
1638  L->Init(3);
1639  L->m[0].rtyp=MATRIX_CMD;   L->m[0].data=(void *)T;
1640  L->m[1].rtyp=u->Typ();     L->m[1].data=(void *)R;
1641  L->m[2].rtyp=MATRIX_CMD;   L->m[2].data=(void *)U;
1642  res->data=(char *)L;
1643  return FALSE;
1644}
1645static BOOLEAN jjELIMIN(leftv res, leftv u, leftv v)
1646{
1647  res->data=(char *)idElimination((ideal)u->Data(),(poly)v->Data());
1648  setFlag(res,FLAG_STD);
1649  return FALSE;
1650}
1651static BOOLEAN jjERROR(leftv res, leftv u)
1652{
1653  WerrorS((char *)u->Data());
1654  return TRUE;
1655}
1656static BOOLEAN jjEXTGCD_I(leftv res, leftv u, leftv v)
1657{
1658  int uu=(int)u->Data();int vv=(int)v->Data();
1659  int p0=ABS(uu),p1=ABS(vv);
1660  int f0 = 1, f1 = 0, g0 = 0, g1 = 1, q, r;
1661
1662  while ( p1!=0 )
1663  {
1664    q=p0 / p1;
1665    r=p0 % p1;
1666    p0 = p1; p1 = r;
1667    r = g0 - g1 * q;
1668    g0 = g1; g1 = r;
1669    r = f0 - f1 * q;
1670    f0 = f1; f1 = r;
1671  }
1672  int a = f0;
1673  int b = g0;
1674  if ( uu /*(int)u->Data()*/ < 0 ) a=-a;
1675  if ( vv /*(int)v->Data()*/ < 0 ) b=-b;
1676  lists L=(lists)omAllocBin(slists_bin);
1677  L->Init(3);
1678  L->m[0].rtyp=INT_CMD;   L->m[0].data=(void *)p0;
1679  L->m[1].rtyp=INT_CMD;   L->m[1].data=(void *)a;
1680  L->m[2].rtyp=INT_CMD;   L->m[2].data=(void *)b;
1681  res->rtyp=LIST_CMD;
1682  res->data=(char *)L;
1683  return FALSE;
1684}
1685#ifdef HAVE_FACTORY
1686static BOOLEAN jjEXTGCD_P(leftv res, leftv u, leftv v)
1687{
1688  poly r,pa,pb;
1689  BOOLEAN ret=singclap_extgcd((poly)u->Data(),(poly)v->Data(),r,pa,pb);
1690  if (ret) return TRUE;
1691  lists L=(lists)omAllocBin(slists_bin);
1692  L->Init(3);
1693  res->data=(char *)L;
1694  L->m[0].data=(void *)r;
1695  L->m[0].rtyp=POLY_CMD;
1696  L->m[1].data=(void *)pa;
1697  L->m[1].rtyp=POLY_CMD;
1698  L->m[2].data=(void *)pb;
1699  L->m[2].rtyp=POLY_CMD;
1700  return FALSE;
1701}
1702static BOOLEAN jjFACSTD2(leftv res, leftv v, leftv w)
1703{
1704  ideal_list p,h;
1705  h=kStdfac((ideal)v->Data(),NULL,testHomog,NULL,(ideal)w->Data());
1706  p=h;
1707  int l=0;
1708  while (p!=NULL) { p=p->next;l++; }
1709  lists L=(lists)omAllocBin(slists_bin);
1710  L->Init(l);
1711  l=0;
1712  while(h!=NULL) 
1713  {
1714    L->m[l].data=(char *)h->d;
1715    L->m[l].rtyp=IDEAL_CMD;
1716    p=h->next;
1717    omFreeSize(h,sizeof(*h));
1718    h=p;
1719    l++;
1720  }
1721  res->data=(void *)L;
1722  return FALSE;
1723}
1724#endif
1725static BOOLEAN jjFETCH(leftv res, leftv u, leftv v)
1726{
1727  ring r=(ring)u->Data();
1728  idhdl w;
1729  int op=iiOp;
1730  nMapFunc nMap;
1731
1732  if ((w=r->idroot->get(v->Name(),myynest))!=NULL)
1733  {
1734    int *perm=NULL;
1735    int *par_perm=NULL;
1736    int par_perm_size=0;
1737    BOOLEAN bo;
1738    //if (!nSetMap(rInternalChar(r),r->parameter,rPar(r),r->minpoly))
1739    if ((nMap=nSetMap(r))==NULL)
1740    {
1741      if (rEqual(r,currRing))
1742      {
1743        nMap=nCopy;
1744      }
1745      else
1746      // Allow imap/fetch to be make an exception only for:
1747      if ( (rField_is_Q_a(r) &&  // Q(a..) -> Q(a..) || Q || Zp || Zp(a)
1748            (rField_is_Q() || rField_is_Q_a() ||
1749             (rField_is_Zp() || rField_is_Zp_a())))
1750           ||
1751           (rField_is_Zp_a(r) &&  // Zp(a..) -> Zp(a..) || Zp
1752            (rField_is_Zp(currRing, rInternalChar(r)) ||
1753             rField_is_Zp_a(currRing, rInternalChar(r)))) )
1754      {
1755        par_perm_size=rPar(r);
1756        BITSET save_test=test;
1757        naSetChar(rInternalChar(r),r);
1758        nSetChar(currRing);
1759        test=save_test;
1760      }
1761      else
1762      {
1763        goto err_fetch;
1764      }
1765    }
1766    if ((iiOp!=FETCH_CMD) || (r->N!=pVariables) || (rPar(r)!=rPar(currRing)))
1767    {
1768      perm=(int *)omAlloc0((r->N+1)*sizeof(int));
1769      if (par_perm_size!=0)
1770        par_perm=(int *)omAlloc0(par_perm_size*sizeof(int));
1771      op=IMAP_CMD;
1772      if (iiOp==IMAP_CMD)
1773      {
1774        maFindPerm(r->names,       r->N,       r->parameter,        r->P,
1775                   currRing->names,currRing->N,currRing->parameter, currRing->P,
1776                   perm,par_perm, currRing->ch);
1777      }
1778      else
1779      {
1780        int i;
1781        if (par_perm_size!=0)
1782          for(i=0;i<min(rPar(r),rPar(currRing));i++) par_perm[i]=-(i+1);
1783        for(i=1;i<=min(r->N,pVariables);i++) perm[i]=i;
1784      }
1785    }
1786    if ((iiOp==FETCH_CMD) &&(BVERBOSE(V_IMAP)))
1787    {
1788      int i;
1789      for(i=0;i<min(r->N,pVariables);i++)
1790      {
1791        Print("// var nr %d: %s -> %s\n",i,r->names[i],currRing->names[i]);
1792      }
1793      for(i=0;i<min(rPar(r),rPar(currRing));i++) // possibly empty loop
1794      {
1795        Print("// par nr %d: %s -> %s\n",
1796              i,r->parameter[i],currRing->parameter[i]);
1797      }
1798    }
1799    sleftv tmpW;
1800    memset(&tmpW,0,sizeof(sleftv));
1801    tmpW.rtyp=IDTYP(w);
1802    tmpW.data=IDDATA(w);
1803    if ((bo=maApplyFetch(op,NULL,res,&tmpW, r,
1804                         perm,par_perm,par_perm_size,nMap)))
1805    {
1806      Werror("cannot map %s of type %s(%d)",v->name, Tok2Cmdname(w->typ),w->typ);
1807    }
1808    if (perm!=NULL)
1809      omFreeSize((ADDRESS)perm,(r->N+1)*sizeof(int));
1810    if (par_perm!=NULL)
1811      omFreeSize((ADDRESS)par_perm,par_perm_size*sizeof(int));
1812    return bo;
1813  }
1814  else
1815  {
1816    Werror("identifier %s not found in %s",v->Fullname(),u->Fullname());
1817  }
1818  return TRUE;
1819err_fetch:
1820  Werror("no identity map from %s",u->Fullname());
1821  return TRUE;
1822}
1823static BOOLEAN jjFIND2(leftv res, leftv u, leftv v)
1824{
1825  /*4
1826  * look for the substring what in the string where
1827  * return the position of the first char of what in where
1828  * or 0
1829  */
1830  char *where=(char *)u->Data();
1831  char *what=(char *)v->Data();
1832  char *found = strstr(where,what);
1833  if (found != NULL)
1834  {
1835    res->data=(char *)((found-where)+1);
1836  }
1837  /*else res->data=NULL;*/
1838  return FALSE;
1839}
1840static BOOLEAN jjGCD_I(leftv res, leftv u, leftv v)
1841{
1842  int uu=(int)u->Data();int vv=(int)v->Data();
1843  int p0=ABS(uu),p1=ABS(vv);
1844  int r;
1845
1846  while ( p1!=0 )
1847  {
1848    r=p0 % p1;
1849    p0 = p1; p1 = r;
1850  }
1851  res->rtyp=INT_CMD;
1852  res->data=(char *)p0;
1853  return FALSE;
1854}
1855static BOOLEAN jjGCD_N(leftv res, leftv u, leftv v)
1856{
1857  number a=(number) u->Data();
1858  number b=(number) v->Data();
1859  if (nIsZero(a))
1860  {
1861    if (nIsZero(b)) res->data=(char *)nInit(1);
1862    else            res->data=(char *)nCopy(b);
1863  }
1864  else
1865  {
1866    if (nIsZero(b))  res->data=(char *)nCopy(a);
1867    else res->data=(char *)nGcd(a, b, currRing);
1868  }
1869  return FALSE;
1870}
1871#ifdef HAVE_FACTORY
1872static BOOLEAN jjGCD_P(leftv res, leftv u, leftv v)
1873{
1874  res->data=(void *)singclap_gcd((poly)(u->CopyD(POLY_CMD)),
1875                                 (poly)(v->CopyD(POLY_CMD)));
1876  return FALSE;
1877}
1878#endif
1879static BOOLEAN jjHILBERT2(leftv res, leftv u, leftv v)
1880{
1881  assumeStdFlag(u);
1882  intvec *module_w=(intvec*)atGet(u,"isHomog");
1883  intvec *iv=hFirstSeries((ideal)u->Data(),module_w,currQuotient);
1884  switch((int)v->Data())
1885  {
1886    case 1:
1887      res->data=(void *)iv;
1888      return FALSE;
1889    case 2:
1890      res->data=(void *)hSecondSeries(iv);
1891      delete iv;
1892      return FALSE;
1893  }
1894  WerrorS(feNotImplemented);
1895  delete iv;
1896  return TRUE;
1897}
1898static BOOLEAN jjHOMOG_P(leftv res, leftv u, leftv v)
1899{
1900  int i=pVar((poly)v->Data());
1901  if (i==0)
1902  {
1903    WerrorS("ringvar expected");
1904    return TRUE;
1905  }
1906  res->data = (char *)pHomogen((poly)u->Data(),i);
1907  return FALSE;
1908}
1909static BOOLEAN jjHOMOG_ID(leftv res, leftv u, leftv v)
1910{
1911  int i=pVar((poly)v->Data());
1912  if (i==0)
1913  {
1914    WerrorS("ringvar expected");
1915    return TRUE;
1916  }
1917  res->data = (char *)idHomogen((ideal)u->Data(),i);
1918  return FALSE;
1919}
1920static BOOLEAN jjINDEPSET2(leftv res, leftv u, leftv v)
1921{
1922  assumeStdFlag(u);
1923  res->data=(void *)scIndIndset((ideal)(u->Data()),(int)(v->Data()),
1924                    currQuotient);
1925  return FALSE;
1926}
1927static BOOLEAN jjINTERSECT(leftv res, leftv u, leftv v)
1928{
1929  res->data=(char *)idSect((ideal)u->Data(),(ideal)v->Data());
1930  setFlag(res,FLAG_STD);
1931  return FALSE;
1932}
1933static BOOLEAN jjJanetBasis2(leftv res, leftv u, leftv v)
1934{
1935  return jjStdJanetBasis(res,u,(int)v->Data());
1936}
1937static BOOLEAN jjJET_P(leftv res, leftv u, leftv v)
1938{
1939  res->data = (char *)pJet((poly)u->CopyD(), (int)v->Data());
1940  return FALSE;
1941}
1942static BOOLEAN jjJET_ID(leftv res, leftv u, leftv v)
1943{
1944  res->data = (char *)idJet((ideal)u->Data(),(int)v->Data());
1945  return FALSE;
1946}
1947static BOOLEAN jjKBASE2(leftv res, leftv u, leftv v)
1948{
1949  assumeStdFlag(u);
1950  res->data = (char *)scKBase((int)v->Data(),
1951                              (ideal)(u->Data()),currQuotient);
1952  return FALSE;
1953}
1954static BOOLEAN jjKoszul(leftv res, leftv u, leftv v)
1955{
1956  return mpKoszul(res, u,v);
1957}
1958static BOOLEAN jjKoszul_Id(leftv res, leftv u, leftv v)
1959{
1960  sleftv h;
1961  memset(&h,0,sizeof(sleftv));
1962  h.rtyp=INT_CMD;
1963  h.data=(void *)IDELEMS((ideal)v->Data());
1964  return mpKoszul(res, u, &h, v);
1965}
1966static BOOLEAN jjLIFT(leftv res, leftv u, leftv v)
1967{
1968  ideal m;
1969  BITSET save_test=test;
1970  int ul= IDELEMS((ideal)u->Data());
1971  int vl= IDELEMS((ideal)v->Data());
1972  m = idLift((ideal)u->Data(),(ideal)v->Data(),NULL,FALSE,hasFlag(u,FLAG_STD));
1973  res->data = (char *)idModule2formatedMatrix(m,ul,vl);
1974  test=save_test;
1975  return FALSE;
1976}
1977static BOOLEAN jjLIFTSTD(leftv res, leftv u, leftv v)
1978{
1979  if ((v->rtyp!=IDHDL)||(v->e!=NULL)) return TRUE;
1980  idhdl h=(idhdl)v->data;
1981  // CopyD for IDEAL_CMD and MODUL_CMD are identical:
1982  res->data = (char *)idLiftStd((ideal)u->Data(),
1983                                &(h->data.umatrix),testHomog);
1984  setFlag(res,FLAG_STD);
1985  return FALSE;
1986}
1987static BOOLEAN jjMINOR(leftv res, leftv u, leftv v)
1988{
1989  res->data = (char *)idMinors((matrix)u->Data(),(int)v->Data());
1990  return (res->data==NULL);
1991}
1992static BOOLEAN jjMODULO(leftv res, leftv u, leftv v)
1993{
1994  res->data = (char *)idModulo((ideal)u->Data(),(ideal)v->Data());
1995  return FALSE;
1996}
1997static BOOLEAN jjMOD_N(leftv res, leftv u, leftv v)
1998{
1999  number q=(number)v->Data();
2000  if (nIsZero(q))
2001  {
2002    WerrorS(ii_div_by_0);
2003    return TRUE;
2004  }
2005  res->data =(char *) nIntMod((number)u->Data(),q);
2006  return FALSE;
2007}
2008static BOOLEAN jjMONITOR2(leftv res, leftv u,leftv v)
2009{
2010  char *opt=(char *)v->Data();
2011  int mode=0;
2012  while(*opt!='\0')
2013  {
2014    if (*opt=='i') mode |= PROT_I;
2015    else if (*opt=='o') mode |= PROT_O;
2016    opt++;
2017  }
2018  monitor((char *)(u->Data()),mode);
2019  return FALSE;
2020}
2021static BOOLEAN jjPARSTR2(leftv res, leftv u, leftv v)
2022{
2023  idhdl h=(idhdl)u->data;
2024  int i=(int)v->Data();
2025  int p=0;
2026  if ((0<i)
2027  && (IDRING(h)->parameter!=NULL)
2028  && (i<=(p=rPar(IDRING(h)))))
2029    res->data=omStrDup(IDRING(h)->parameter[i-1]);
2030  else
2031  {
2032    Werror("par number %d out of range 1..%d",i,p);
2033    return TRUE;
2034  }
2035  return FALSE;
2036}
2037
2038#ifdef HAVE_PLURAL
2039static BOOLEAN jjPlural_num_poly(leftv res, leftv a, leftv b)
2040{
2041  return nc_CallPlural(NULL,NULL,(poly)a->Data(),(poly)b->Data(),currRing);
2042}
2043
2044static BOOLEAN jjPlural_num_mat(leftv res, leftv a, leftv b)
2045{
2046  return nc_CallPlural(NULL,(matrix)b->Data(),(poly)a->Data(),NULL,currRing);
2047}
2048
2049static BOOLEAN jjPlural_mat_poly(leftv res, leftv a, leftv b)
2050{
2051  return nc_CallPlural((matrix)a->Data(),NULL,NULL,(poly)b->Data(),currRing);
2052}
2053
2054static BOOLEAN jjPlural_mat_mat(leftv res, leftv a, leftv b)
2055{
2056  return nc_CallPlural((matrix)a->Data(),(matrix)b->Data(),NULL,NULL,currRing);
2057}
2058
2059static BOOLEAN jjBRACKET(leftv res, leftv a, leftv b)
2060{
2061  if (rIsPluralRing(currRing)) 
2062  {
2063    poly p = (poly)a->CopyD(POLY_CMD);
2064    poly q = (poly)b->Data();
2065    res->data = nc_p_Bracket_qq(p,q);
2066  }
2067  else res->data=NULL;
2068  return FALSE;
2069}
2070
2071static BOOLEAN jjOPPOSE(leftv res, leftv a, leftv b)
2072{
2073  /* number, poly, vector, ideal, module, matrix */
2074  ring  r = (ring)a->Data();
2075  if (r == currRing)
2076  {
2077    res->data = b->Data();
2078    res->rtyp = b->rtyp;
2079    return FALSE;
2080  }
2081  if (!rIsLikeOpposite(currRing, r))
2082  {
2083    Werror("%s is not an opposite ring to current ring",a->Fullname());
2084    return TRUE;
2085  }
2086  idhdl w;
2087  if( ((w=r->idroot->get(b->Name(),myynest))!=NULL) && (b->e==NULL))
2088  {
2089    int argtype = IDTYP(w);
2090    switch (argtype)
2091    {
2092    case NUMBER_CMD:
2093      {
2094        /* since basefields are equal, we can apply nCopy */
2095        res->data = nCopy((number)IDDATA(w));
2096        res->rtyp = argtype;
2097        break;
2098      }
2099    case POLY_CMD: 
2100    case VECTOR_CMD:
2101      {
2102        poly    q = (poly)IDDATA(w);
2103        res->data = pOppose(r,q);
2104        res->rtyp = argtype;
2105        break;
2106      }
2107    case IDEAL_CMD: 
2108    case MODUL_CMD: 
2109      {
2110        ideal   Q = (ideal)IDDATA(w);
2111        res->data = idOppose(r,Q);
2112        res->rtyp = argtype;
2113        break;
2114      }
2115    case MATRIX_CMD: 
2116      {
2117        ring save = currRing;
2118        rChangeCurrRing(r);
2119        matrix  m = (matrix)IDDATA(w);
2120        ideal   Q = idMatrix2Module(mpCopy(m));
2121        rChangeCurrRing(save);
2122        ideal   S = idOppose(r,Q);
2123        id_Delete(&Q, r);
2124        res->data = idModule2Matrix(S); 
2125        res->rtyp = argtype;
2126        break;
2127      }
2128    default: 
2129      {       
2130        Werror("unsupported type in oppose");
2131        return TRUE;
2132      }
2133    }
2134  }
2135  else 
2136  {
2137    Werror("identifier %s not found in %s",b->Fullname(),a->Fullname());
2138    return TRUE;
2139  }
2140  return FALSE;
2141}
2142
2143#endif /* HAVE_PLURAL */
2144
2145static BOOLEAN jjQUOT(leftv res, leftv u, leftv v)
2146{
2147  res->data = (char *)idQuot((ideal)u->Data(),(ideal)v->Data(),
2148    hasFlag(u,FLAG_STD),u->Typ()==v->Typ());
2149  idDelMultiples((ideal)(res->data));
2150  return FALSE;
2151}
2152static BOOLEAN jjRANDOM(leftv res, leftv u, leftv v)
2153{
2154  int i=(int)u->Data();
2155  int j=(int)v->Data();
2156#ifdef buildin_rand
2157  res->data =(char *)((i > j) ? i : (siRand() % (j-i+1)) + i);
2158#else
2159  res->data =(char *)((i > j) ? i : (rand() % (j-i+1)) + i);
2160#endif
2161  return FALSE;
2162}
2163static BOOLEAN jjREAD2(leftv res, leftv u, leftv v)
2164{
2165  si_link l=(si_link)u->Data();
2166  leftv r=slRead(l,v);
2167  if (r==NULL)
2168  {
2169    const char *s;
2170    if ((l!=NULL)&&(l->name!=NULL)) s=l->name;
2171    else                            s=sNoName;
2172    Werror("cannot read from `%s`",s);
2173    return TRUE;
2174  }
2175  memcpy(res,r,sizeof(sleftv));
2176  omFreeBin((ADDRESS)r, sleftv_bin);
2177  return FALSE;
2178}
2179static BOOLEAN jjREDUCE_P(leftv res, leftv u, leftv v)
2180{
2181  assumeStdFlag(v);
2182  res->data = (char *)kNF((ideal)v->Data(),currQuotient,(poly)u->Data());
2183  return FALSE;
2184}
2185static BOOLEAN jjREDUCE_ID(leftv res, leftv u, leftv v)
2186{
2187  assumeStdFlag(v);
2188  ideal ui=(ideal)u->Data();
2189  idTest(ui);
2190  ideal vi=(ideal)v->Data();
2191  idTest(vi);
2192  res->data = (char *)kNF(vi,currQuotient,ui);
2193  return FALSE;
2194}
2195static BOOLEAN jjRES(leftv res, leftv u, leftv v)
2196{
2197  int maxl=(int)v->Data();
2198  if (maxl<0)
2199  {
2200    WerrorS("length for res must not be negative");
2201    return TRUE;
2202  }
2203  int l=0;
2204  //resolvente r;
2205  syStrategy r;
2206  intvec *weights=NULL;
2207  int wmaxl=maxl;
2208  ideal u_id=(ideal)u->Data();
2209
2210  maxl--;
2211  if ((maxl==-1) /*&& (iiOp!=MRES_CMD)*/)
2212  {
2213    maxl = pVariables-1+2*(iiOp==MRES_CMD);
2214    if (currQuotient!=NULL)
2215    {
2216      Warn(
2217      "full resolution in a qring may be infinite, setting max length to %d",
2218      maxl+1);
2219    }
2220  }
2221  weights=(intvec*)atGet(u,"isHomog",INTVEC_CMD);
2222  if (weights!=NULL)
2223  {
2224    if (!idTestHomModule(u_id,currQuotient,weights))
2225    {
2226      WarnS("wrong weights given:");weights->show();PrintLn();
2227      weights=NULL;
2228    }
2229  }
2230  intvec *ww=NULL;
2231  int add_row_shift=0;
2232  if (weights!=NULL)
2233  {
2234     ww=ivCopy(weights);
2235     add_row_shift = ww->min_in();
2236     (*ww) -= add_row_shift;
2237  }
2238
2239  if ((iiOp == RES_CMD) || (iiOp == MRES_CMD))
2240  {
2241    r=syResolution(u_id,maxl, ww, iiOp==MRES_CMD);
2242  }
2243  else if (iiOp==SRES_CMD)
2244  //  r=sySchreyerResolvente(u_id,maxl+1,&l);
2245    r=sySchreyer(u_id,maxl+1);
2246  else if (iiOp == LRES_CMD)
2247  {
2248    int dummy;
2249    if((currQuotient!=NULL)||
2250    (!idHomIdeal (u_id,NULL)))
2251    {
2252       WerrorS
2253       ("`lres` not implemented for inhomogeneous input or qring");
2254       return TRUE;
2255    }
2256    r=syLaScala3(u_id,&dummy);
2257  }
2258  else if (iiOp == KRES_CMD)
2259  {
2260    int dummy;
2261    if((currQuotient!=NULL)||
2262    (!idHomIdeal (u_id,NULL)))
2263    {
2264       WerrorS
2265       ("`kres` not implemented for inhomogeneous input or qring");
2266       return TRUE;
2267    }
2268    r=syKosz(u_id,&dummy);
2269  }
2270  else
2271  {
2272    int dummy;
2273    if((currQuotient!=NULL)||
2274    (!idHomIdeal (u_id,NULL)))
2275    {
2276       WerrorS
2277       ("`hres` not implemented for inhomogeneous input or qring");
2278       return TRUE;
2279    }
2280    r=syHilb(u_id,&dummy);
2281  }
2282  if (r==NULL) return TRUE;
2283  //res->data=(void *)liMakeResolv(r,l,wmaxl,u->Typ(),weights);
2284  r->list_length=wmaxl;
2285  res->data=(void *)r;
2286  if (ww!=NULL) { delete ww; ww=NULL; }
2287  if ((r->weights!=NULL) && (r->weights[0]!=NULL))
2288  { 
2289    ww=ivCopy(r->weights[0]);
2290    if (weights!=NULL) (*ww) += add_row_shift;
2291    atSet(res,omStrDup("isHomog"),ww,INTVEC_CMD);
2292  }
2293  else if (atGet(res,"isHomog",INTVEC_CMD)==NULL)
2294  {
2295    if (weights!=NULL)
2296    {
2297      atSet(res,omStrDup("isHomog"),ivCopy(weights),INTVEC_CMD);
2298    }
2299  }
2300  return FALSE;
2301}
2302static BOOLEAN jjRSUM(leftv res, leftv u, leftv v)
2303{
2304  ring r;
2305  int i=rSum((ring)u->Data(),(ring)v->Data(),r);
2306  res->data = (char *)r;
2307  return (i==-1);
2308}
2309#define SIMPL_LMDIV 32
2310#define SIMPL_LMEQ  16
2311#define SIMPL_MULT 8
2312#define SIMPL_EQU  4
2313#define SIMPL_NULL 2
2314#define SIMPL_NORM 1
2315static BOOLEAN jjSIMPL_ID(leftv res, leftv u, leftv v)
2316{
2317  int sw = (int)v->Data();
2318  // CopyD for IDEAL_CMD and MODUL_CMD are identical:
2319  ideal id = (ideal)u->CopyD(IDEAL_CMD);
2320  if (sw & SIMPL_LMDIV)
2321  {
2322    idDelDiv(id);
2323  }
2324  if (sw & SIMPL_LMEQ)
2325  {
2326    idDelLmEquals(id);
2327  }
2328  if (sw & SIMPL_NULL)
2329  {
2330    idSkipZeroes(id);
2331  }
2332  if (sw & SIMPL_NORM)
2333  {
2334    idNorm(id);
2335  }
2336  if (sw & SIMPL_MULT)
2337  {
2338    idDelMultiples(id);
2339  }
2340  else if(sw & SIMPL_EQU)
2341  {
2342    idDelEquals(id);
2343  }
2344  res->data = (char * )id;
2345  return FALSE;
2346}
2347#ifdef HAVE_FACTORY
2348extern int singclap_factorize_retry;
2349static BOOLEAN jjSQR_FREE_DEC(leftv res, leftv u,leftv dummy)
2350{
2351  intvec *v=NULL;
2352  int sw=(int)dummy->Data();
2353  int fac_sw=sw;
2354  if ((sw<0)||(sw>2)) fac_sw=1;
2355  singclap_factorize_retry=0;
2356  ideal f=singclap_factorize((poly)(u->Data()), &v, fac_sw);
2357  if (f==NULL)
2358    return TRUE;
2359  switch(sw)
2360  {
2361    case 0:
2362    case 2:
2363    {
2364      lists l=(lists)omAllocBin(slists_bin);
2365      l->Init(2);
2366      l->m[0].rtyp=IDEAL_CMD;
2367      l->m[0].data=(void *)f;
2368      l->m[1].rtyp=INTVEC_CMD;
2369      l->m[1].data=(void *)v;
2370      res->data=(void *)l;
2371      res->rtyp=LIST_CMD;
2372      return FALSE;
2373    }
2374    case 1:
2375      res->data=(void *)f;
2376      return FALSE;
2377    case 3:
2378      {
2379        poly p=f->m[0];
2380        int i=IDELEMS(f);
2381        f->m[0]=NULL;
2382        while(i>1)
2383        {
2384          i--;
2385          p=pMult(p,f->m[i]);
2386          f->m[i]=NULL;
2387        }
2388        res->data=(void *)p;
2389        res->rtyp=POLY_CMD;
2390      }
2391      return FALSE;
2392  }
2393  WerrorS("invalid switch");
2394  return TRUE;
2395}
2396#endif
2397static BOOLEAN jjSTATUS2(leftv res, leftv u, leftv v)
2398{
2399  res->data = omStrDup(slStatus((si_link) u->Data(), (char *) v->Data()));
2400  return FALSE;
2401}
2402static BOOLEAN jjSIMPL_P(leftv res, leftv u, leftv v)
2403{
2404  int sw = (int)v->Data();
2405  // CopyD for POLY_CMD and VECTOR_CMD are identical:
2406  poly p = (poly)u->CopyD(POLY_CMD);
2407  if (sw & SIMPL_NORM)
2408  {
2409    pNorm(p);
2410  }
2411  res->data = (char * )p;
2412  return FALSE;
2413}
2414static BOOLEAN jjSTD_HILB(leftv res, leftv u, leftv v)
2415{
2416  ideal result;
2417  intvec *w=(intvec *)atGet(u,"isHomog");
2418  tHomog hom=testHomog;
2419  if (w!=NULL)
2420  {
2421    w=ivCopy(w);
2422    hom=isHomog;
2423  }
2424  result=kStd((ideal)(u->Data()),currQuotient,hom,&w,(intvec *)v->Data());
2425  idSkipZeroes(result);
2426  res->data = (char *)result;
2427  setFlag(res,FLAG_STD);
2428  if (w!=NULL) atSet(res,omStrDup("isHomog"),w,INTVEC_CMD);
2429  return FALSE;
2430}
2431static BOOLEAN jjSTD_1(leftv res, leftv u, leftv v)
2432{
2433  assumeStdFlag(u);
2434  ideal result;
2435  intvec *w=(intvec *)atGet(u,"isHomog");
2436  tHomog hom=testHomog;
2437  if (w!=NULL)
2438  {
2439    w=ivCopy(w);
2440    hom=isHomog;
2441  }
2442  ideal i1=(ideal)u->Data();
2443  ideal i0=idInit(1,i1->rank);
2444  i0->m[0]=(poly)v->Data();
2445  i1=idSimpleAdd(i1,i0);
2446  i0->m[0]=NULL;
2447  idDelete(&i0);
2448  BITSET save_test=test;
2449  test|=Sy_bit(OPT_SB_1);
2450  result=kStd(i1,currQuotient,hom,&w,NULL,0,IDELEMS(i1)-1);
2451  test=save_test;
2452  idDelete(&i1);
2453  idSkipZeroes(result);
2454  res->data = (char *)result;
2455  setFlag(res,FLAG_STD);
2456  if (w!=NULL) atSet(res,omStrDup("isHomog"),w,INTVEC_CMD);
2457  return FALSE;
2458}
2459static BOOLEAN jjVARSTR2(leftv res, leftv u, leftv v)
2460{
2461  idhdl h=(idhdl)u->data;
2462  int i=(int)v->Data();
2463  if ((0<i) && (i<=IDRING(h)->N))
2464    res->data=omStrDup(IDRING(h)->names[i-1]);
2465  else
2466  {
2467    Werror("var number %d out of range 1..%d",i,IDRING(h)->N);
2468    return TRUE;
2469  }
2470  return FALSE;
2471}
2472static BOOLEAN jjWEDGE(leftv res, leftv u, leftv v)
2473{
2474  res->data = (char *)mpWedge((matrix)u->Data(),(int)v->Data());
2475  return FALSE;
2476}
2477#define jjWRONG2 (proc2)jjWRONG
2478#define jjWRONG3 (proc3)jjWRONG
2479static BOOLEAN jjWRONG(leftv res, leftv u)
2480{
2481  return TRUE;
2482}
2483
2484static BOOLEAN jjLOAD_E(leftv res, leftv v, leftv u)
2485{
2486  char * s=(char *)u->Data();
2487  if(strcmp(s, "with")==0)
2488    return jjLOAD(res, v, TRUE);
2489  WerrorS("invalid second argument");
2490  WerrorS("load(\"libname\" [,\"with\"]);");
2491  return TRUE;
2492}
2493
2494/*=================== operations with 2 args.: table =================*/
2495
2496struct sValCmd2 dArith2[]=
2497{
2498// operations:
2499// proc        cmd              res             arg1        arg2   plural
2500 {jjCOLCOL,    COLONCOLON,     ANY_TYPE,       DEF_CMD,    DEF_CMD ALLOW_PLURAL}
2501,{jjPLUS_I,    '+',            INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
2502,{jjPLUS_N,    '+',            NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
2503,{jjPLUS_P,    '+',            POLY_CMD,       POLY_CMD,   POLY_CMD ALLOW_PLURAL}
2504,{jjPLUS_P,    '+',            VECTOR_CMD,     VECTOR_CMD, VECTOR_CMD ALLOW_PLURAL}
2505,{jjPLUS_ID,   '+',            IDEAL_CMD,      IDEAL_CMD,  IDEAL_CMD ALLOW_PLURAL}
2506,{jjPLUS_ID,   '+',            MODUL_CMD,      MODUL_CMD,  MODUL_CMD ALLOW_PLURAL}
2507,{jjPLUS_P_MA, '+',            MATRIX_CMD,     POLY_CMD,   MATRIX_CMD ALLOW_PLURAL}
2508,{jjPLUS_MA_P, '+',            MATRIX_CMD,     MATRIX_CMD, POLY_CMD ALLOW_PLURAL}
2509,{jjPLUS_MA,   '+',            MATRIX_CMD,     MATRIX_CMD, MATRIX_CMD ALLOW_PLURAL}
2510,{jjPLUS_S,    '+',            STRING_CMD,     STRING_CMD, STRING_CMD ALLOW_PLURAL}
2511,{jjOP_IV_I,   '+',            INTVEC_CMD,     INTVEC_CMD, INT_CMD ALLOW_PLURAL}
2512,{jjOP_I_IV,   '+',            INTVEC_CMD,     INT_CMD,    INTVEC_CMD ALLOW_PLURAL}
2513,{jjOP_IM_I,   '+',            INTMAT_CMD,     INTMAT_CMD, INT_CMD ALLOW_PLURAL}
2514,{jjOP_I_IM,   '+',            INTMAT_CMD,     INT_CMD,    INTMAT_CMD ALLOW_PLURAL}
2515,{jjPLUS_IV,   '+',            INTVEC_CMD,     INTVEC_CMD, INTVEC_CMD ALLOW_PLURAL}
2516,{jjPLUS_IV,   '+',            INTMAT_CMD,     INTMAT_CMD, INTMAT_CMD ALLOW_PLURAL}
2517,{lAdd,        '+',            LIST_CMD,       LIST_CMD,   LIST_CMD ALLOW_PLURAL}
2518,{jjRSUM,      '+',            RING_CMD,       RING_CMD,   RING_CMD ALLOW_PLURAL}
2519,{jjRSUM,      '+',            QRING_CMD,      QRING_CMD,  RING_CMD ALLOW_PLURAL}
2520,{jjRSUM,      '+',            QRING_CMD,      RING_CMD,   QRING_CMD ALLOW_PLURAL}
2521,{jjRSUM,      '+',            QRING_CMD,      QRING_CMD,  QRING_CMD ALLOW_PLURAL}
2522,{jjMINUS_I,   '-',            INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
2523,{jjMINUS_N,   '-',            NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
2524,{jjMINUS_P,   '-',            POLY_CMD,       POLY_CMD,   POLY_CMD ALLOW_PLURAL}
2525,{jjMINUS_P,   '-',            VECTOR_CMD,     VECTOR_CMD, VECTOR_CMD ALLOW_PLURAL}
2526,{jjPLUS_MA_P, '-',            MATRIX_CMD,     MATRIX_CMD, POLY_CMD ALLOW_PLURAL}
2527,{jjMINUS_MA,  '-',            MATRIX_CMD,     MATRIX_CMD, MATRIX_CMD ALLOW_PLURAL}
2528,{jjOP_IV_I,   '-',            INTVEC_CMD,     INTVEC_CMD, INT_CMD ALLOW_PLURAL}
2529,{jjOP_IM_I,   '-',            INTMAT_CMD,     INTMAT_CMD, INT_CMD ALLOW_PLURAL}
2530,{jjMINUS_IV,  '-',            INTVEC_CMD,     INTVEC_CMD, INTVEC_CMD ALLOW_PLURAL}
2531,{jjMINUS_IV,  '-',            INTMAT_CMD,     INTMAT_CMD, INTMAT_CMD ALLOW_PLURAL}
2532,{jjTIMES_I,   '*',            INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
2533,{jjTIMES_N,   '*',            NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
2534,{jjTIMES_P,   '*',            POLY_CMD,       POLY_CMD,   POLY_CMD ALLOW_PLURAL}
2535,{jjTIMES_P,   '*',            VECTOR_CMD,     POLY_CMD,   VECTOR_CMD ALLOW_PLURAL}
2536,{jjTIMES_P,   '*',            VECTOR_CMD,     VECTOR_CMD, POLY_CMD ALLOW_PLURAL}
2537,{jjTIMES_MA_P1,'*',           IDEAL_CMD,      IDEAL_CMD,  POLY_CMD ALLOW_PLURAL}
2538,{jjTIMES_MA_P2,'*',           IDEAL_CMD,      POLY_CMD,   IDEAL_CMD ALLOW_PLURAL}
2539,{jjTIMES_ID,  '*',            IDEAL_CMD,      IDEAL_CMD,  IDEAL_CMD ALLOW_PLURAL}
2540,{jjTIMES_MA_P1,'*',           MODUL_CMD,      IDEAL_CMD,  VECTOR_CMD ALLOW_PLURAL}
2541,{jjTIMES_MA_P2,'*',           MODUL_CMD,      VECTOR_CMD, IDEAL_CMD ALLOW_PLURAL}
2542,{jjTIMES_ID,  '*',            MODUL_CMD,      IDEAL_CMD,  MODUL_CMD ALLOW_PLURAL}
2543,{jjTIMES_ID,  '*',            MODUL_CMD,      MODUL_CMD,  IDEAL_CMD ALLOW_PLURAL}
2544,{jjTIMES_MA_P1,'*',           MATRIX_CMD,     MATRIX_CMD, POLY_CMD ALLOW_PLURAL}
2545,{jjTIMES_MA_P2,'*',           MATRIX_CMD,     POLY_CMD,   MATRIX_CMD NO_PLURAL}
2546,{jjTIMES_MA_N1,'*',           MATRIX_CMD,     MATRIX_CMD, NUMBER_CMD ALLOW_PLURAL}
2547,{jjTIMES_MA_N2,'*',           MATRIX_CMD,     NUMBER_CMD, MATRIX_CMD ALLOW_PLURAL}
2548,{jjTIMES_MA_I1,'*',           MATRIX_CMD,     MATRIX_CMD, INT_CMD ALLOW_PLURAL}
2549,{jjTIMES_MA_I2,'*',           MATRIX_CMD,     INT_CMD,    MATRIX_CMD ALLOW_PLURAL}
2550,{jjTIMES_MA,  '*',            MATRIX_CMD,     MATRIX_CMD, MATRIX_CMD ALLOW_PLURAL}
2551,{jjOP_IV_I,   '*',            INTVEC_CMD,     INTVEC_CMD, INT_CMD ALLOW_PLURAL}
2552,{jjOP_I_IV,   '*',            INTVEC_CMD,     INT_CMD,    INTVEC_CMD ALLOW_PLURAL}
2553,{jjOP_IV_I,   '*',            INTMAT_CMD,     INTMAT_CMD, INT_CMD ALLOW_PLURAL}
2554,{jjOP_I_IV,   '*',            INTMAT_CMD,     INT_CMD,    INTMAT_CMD ALLOW_PLURAL}
2555,{jjTIMES_IV,  '*',            INTVEC_CMD,     INTMAT_CMD, INTVEC_CMD ALLOW_PLURAL}
2556,{jjTIMES_IV,  '*',            INTMAT_CMD,     INTMAT_CMD, INTMAT_CMD ALLOW_PLURAL}
2557,{jjTIMES_IV,  '*',            INTMAT_CMD,     INTVEC_CMD, INTMAT_CMD ALLOW_PLURAL}
2558,{jjDIV_N,     '/',            NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
2559,{jjDIV_P,     '/',            POLY_CMD,       POLY_CMD,   POLY_CMD ALLOW_PLURAL}
2560,{jjDIV_P,     '/',            VECTOR_CMD,     VECTOR_CMD, POLY_CMD ALLOW_PLURAL}
2561,{jjDIV_Ma,    '/',            MATRIX_CMD,     MATRIX_CMD, POLY_CMD ALLOW_PLURAL}
2562,{jjDIVMOD_I,  '/',            INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
2563,{jjOP_IV_I,   '/',            INTVEC_CMD,     INTVEC_CMD, INT_CMD ALLOW_PLURAL}
2564,{jjOP_IV_I,   '/',            INTMAT_CMD,     INTMAT_CMD, INT_CMD ALLOW_PLURAL}
2565,{jjDIVMOD_I,  INTDIV_CMD,     INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
2566,{jjOP_IV_I,   INTDIV_CMD,     INTVEC_CMD,     INTVEC_CMD, INT_CMD ALLOW_PLURAL}
2567,{jjOP_IV_I,   INTDIV_CMD,     INTMAT_CMD,     INTMAT_CMD, INT_CMD ALLOW_PLURAL}
2568,{jjDIVMOD_I,  '%',            INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
2569,{jjOP_IV_I,   '%',            INTVEC_CMD,     INTVEC_CMD, INT_CMD ALLOW_PLURAL}
2570,{jjOP_IV_I,   '%',            INTMAT_CMD,     INTMAT_CMD, INT_CMD ALLOW_PLURAL}
2571,{jjMOD_N,     '%',            NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
2572,{jjDIVMOD_I,  INTMOD_CMD,     INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
2573,{jjOP_IV_I,   INTMOD_CMD,     INTVEC_CMD,     INTVEC_CMD, INT_CMD ALLOW_PLURAL}
2574,{jjOP_IV_I,   INTMOD_CMD,     INTMAT_CMD,     INTMAT_CMD, INT_CMD ALLOW_PLURAL}
2575,{jjMOD_N,     INTMOD_CMD,     NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
2576,{jjPOWER_I,   '^',            INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
2577,{jjPOWER_N,   '^',            NUMBER_CMD,     NUMBER_CMD, INT_CMD ALLOW_PLURAL}
2578,{jjPOWER_P,   '^',            POLY_CMD,       POLY_CMD,   INT_CMD ALLOW_PLURAL}
2579,{jjPOWER_ID,  '^',            IDEAL_CMD,      IDEAL_CMD,  INT_CMD ALLOW_PLURAL}
2580,{jjLE_I,      LE,             INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
2581,{jjLE_N,      LE,             INT_CMD,        NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
2582,{jjCOMPARE_S, LE,             INT_CMD,        STRING_CMD, STRING_CMD ALLOW_PLURAL}
2583,{jjCOMPARE_IV_I,LE,           INT_CMD,        INTVEC_CMD, INT_CMD ALLOW_PLURAL}
2584,{jjCOMPARE_IV,LE,             INT_CMD,        INTVEC_CMD, INTVEC_CMD ALLOW_PLURAL}
2585,{jjCOMPARE_P, LE,             INT_CMD,        POLY_CMD,   POLY_CMD ALLOW_PLURAL}
2586,{jjCOMPARE_P, LE,             INT_CMD,        VECTOR_CMD, VECTOR_CMD ALLOW_PLURAL}
2587,{jjLT_I,      '<',            INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
2588,{jjLT_N,      '<',            INT_CMD,        NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
2589,{jjCOMPARE_IV_I,'<',           INT_CMD,        INTVEC_CMD, INT_CMD ALLOW_PLURAL}
2590,{jjCOMPARE_IV,'<',            INT_CMD,        INTVEC_CMD, INTVEC_CMD ALLOW_PLURAL}
2591,{jjCOMPARE_S, '<',            INT_CMD,        STRING_CMD, STRING_CMD ALLOW_PLURAL}
2592,{jjCOMPARE_P, '<',            INT_CMD,        POLY_CMD,   POLY_CMD ALLOW_PLURAL}
2593,{jjCOMPARE_P, '<',            INT_CMD,        VECTOR_CMD, VECTOR_CMD ALLOW_PLURAL}
2594,{jjGE_I,      GE,             INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
2595,{jjGE_N,      GE,             INT_CMD,        NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
2596,{jjCOMPARE_S, GE,             INT_CMD,        STRING_CMD, STRING_CMD ALLOW_PLURAL}
2597,{jjCOMPARE_IV_I,GE,           INT_CMD,        INTVEC_CMD, INT_CMD ALLOW_PLURAL}
2598,{jjCOMPARE_IV,GE,             INT_CMD,        INTVEC_CMD, INTVEC_CMD ALLOW_PLURAL}
2599,{jjCOMPARE_P, GE,             INT_CMD,        POLY_CMD,   POLY_CMD ALLOW_PLURAL}
2600,{jjCOMPARE_P, GE,             INT_CMD,        VECTOR_CMD, VECTOR_CMD ALLOW_PLURAL}
2601,{jjGT_I,      '>',            INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
2602,{jjGT_N,      '>',            INT_CMD,        NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
2603,{jjCOMPARE_S, '>',            INT_CMD,        STRING_CMD, STRING_CMD ALLOW_PLURAL}
2604,{jjCOMPARE_IV_I,'>',          INT_CMD,        INTVEC_CMD, INT_CMD ALLOW_PLURAL}
2605,{jjCOMPARE_IV,'>',            INT_CMD,        INTVEC_CMD, INTVEC_CMD ALLOW_PLURAL}
2606,{jjCOMPARE_P, '>',            INT_CMD,        POLY_CMD,   POLY_CMD ALLOW_PLURAL}
2607,{jjCOMPARE_P, '>',            INT_CMD,        VECTOR_CMD, VECTOR_CMD ALLOW_PLURAL}
2608,{jjAND_I,     '&',            INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
2609,{jjOR_I,      '|',            INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
2610,{jjEQUAL_I,   EQUAL_EQUAL,    INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
2611,{jjEQUAL_N,   EQUAL_EQUAL,    INT_CMD,        NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
2612,{jjCOMPARE_S, EQUAL_EQUAL,    INT_CMD,        STRING_CMD, STRING_CMD ALLOW_PLURAL}
2613,{jjEQUAL_P,   EQUAL_EQUAL,    INT_CMD,        POLY_CMD,   POLY_CMD ALLOW_PLURAL}
2614,{jjEQUAL_P,   EQUAL_EQUAL,    INT_CMD,        VECTOR_CMD, VECTOR_CMD ALLOW_PLURAL}
2615,{jjCOMPARE_IV_I,EQUAL_EQUAL,  INT_CMD,        INTVEC_CMD, INT_CMD ALLOW_PLURAL}
2616,{jjCOMPARE_IV,EQUAL_EQUAL,    INT_CMD,        INTVEC_CMD, INTVEC_CMD ALLOW_PLURAL}
2617,{jjCOMPARE_IV,EQUAL_EQUAL,    INT_CMD,        INTMAT_CMD, INTMAT_CMD ALLOW_PLURAL}
2618,{jjEQUAL_Ma,  EQUAL_EQUAL,    INT_CMD,        MATRIX_CMD, MATRIX_CMD ALLOW_PLURAL}
2619,{jjWRONG2,    EQUAL_EQUAL,    0,              IDEAL_CMD,  IDEAL_CMD ALLOW_PLURAL}
2620,{jjWRONG2,    EQUAL_EQUAL,    0,              MODUL_CMD,  MODUL_CMD ALLOW_PLURAL}
2621,{jjWRONG2,    EQUAL_EQUAL,    0,              IDEAL_CMD,  MODUL_CMD ALLOW_PLURAL}
2622,{jjWRONG2,    EQUAL_EQUAL,    0,              MODUL_CMD,  IDEAL_CMD ALLOW_PLURAL}
2623,{jjEQUAL_I,   NOTEQUAL,       INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
2624,{jjEQUAL_N,   NOTEQUAL,       INT_CMD,        NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
2625,{jjCOMPARE_S, NOTEQUAL,       INT_CMD,        STRING_CMD, STRING_CMD ALLOW_PLURAL}
2626,{jjEQUAL_P,   NOTEQUAL,       INT_CMD,        POLY_CMD,   POLY_CMD ALLOW_PLURAL}
2627,{jjEQUAL_P,   NOTEQUAL,       INT_CMD,        VECTOR_CMD, VECTOR_CMD ALLOW_PLURAL}
2628,{jjCOMPARE_IV,NOTEQUAL,       INT_CMD,        INTVEC_CMD, INTVEC_CMD ALLOW_PLURAL}
2629,{jjCOMPARE_IV,NOTEQUAL,       INT_CMD,        INTMAT_CMD, INTMAT_CMD ALLOW_PLURAL}
2630,{jjEQUAL_Ma,  NOTEQUAL,       INT_CMD,        MATRIX_CMD, MATRIX_CMD ALLOW_PLURAL}
2631,{jjWRONG2,    NOTEQUAL,       0,              IDEAL_CMD,  IDEAL_CMD ALLOW_PLURAL}
2632,{jjWRONG2,    NOTEQUAL,       0,              MODUL_CMD,  MODUL_CMD ALLOW_PLURAL}
2633,{jjWRONG2,    NOTEQUAL,       0,              IDEAL_CMD,  MODUL_CMD ALLOW_PLURAL}
2634,{jjWRONG2,    NOTEQUAL,       0,              MODUL_CMD,  IDEAL_CMD ALLOW_PLURAL}
2635,{jjDOTDOT,    DOTDOT,         INTVEC_CMD,     INT_CMD,    INT_CMD ALLOW_PLURAL}
2636,{jjINDEX_I,   '[',            INT_CMD,        INTVEC_CMD, INT_CMD ALLOW_PLURAL}
2637,{jjINDEX_IV,  '[',            INT_CMD,        INTVEC_CMD, INTVEC_CMD ALLOW_PLURAL}
2638,{jjINDEX_I,   '[',            POLY_CMD,       IDEAL_CMD,  INT_CMD ALLOW_PLURAL}
2639,{jjINDEX_I,   '[',            POLY_CMD,       MAP_CMD,    INT_CMD ALLOW_PLURAL}
2640,{jjINDEX_IV,  '[',            POLY_CMD,       IDEAL_CMD,  INTVEC_CMD ALLOW_PLURAL}
2641,{jjINDEX_I,   '[',            VECTOR_CMD,     MODUL_CMD,  INT_CMD ALLOW_PLURAL}
2642,{jjINDEX_IV,  '[',            VECTOR_CMD,     MODUL_CMD,  INTVEC_CMD ALLOW_PLURAL}
2643,{jjINDEX_I,   '[',            STRING_CMD,     STRING_CMD, INT_CMD ALLOW_PLURAL}
2644,{jjINDEX_IV,  '[',            STRING_CMD,     STRING_CMD, INTVEC_CMD ALLOW_PLURAL}
2645,{jjINDEX_I,   '[',            ANY_TYPE/*set by p*/,LIST_CMD, INT_CMD ALLOW_PLURAL}
2646,{jjINDEX_IV,  '[',            ANY_TYPE/*set by p*/,LIST_CMD, INTVEC_CMD ALLOW_PLURAL}
2647,{jjINDEX_P,   '[',            POLY_CMD,       POLY_CMD,   INT_CMD ALLOW_PLURAL}
2648,{jjINDEX_P_IV,'[',            POLY_CMD,       POLY_CMD,   INTVEC_CMD ALLOW_PLURAL}
2649,{jjINDEX_V,   '[',            POLY_CMD,       VECTOR_CMD, INT_CMD ALLOW_PLURAL}
2650,{jjINDEX_V_IV,'[',            VECTOR_CMD,     VECTOR_CMD, INTVEC_CMD ALLOW_PLURAL}
2651,{jjPROC,      '(',            ANY_TYPE/*set by p*/,PROC_CMD, DEF_CMD ALLOW_PLURAL}
2652,{jjMAP,       '(',            ANY_TYPE/*set by p*/,MAP_CMD, DEF_CMD ALLOW_PLURAL}
2653,{jjKLAMMER,   '(',            ANY_TYPE/*set by p*/,ANY_TYPE, INT_CMD ALLOW_PLURAL}
2654,{jjKLAMMER_IV,'(',            ANY_TYPE/*set by p*/,ANY_TYPE, INTVEC_CMD ALLOW_PLURAL}
2655// and the procedures with 2 arguments:
2656,{atATTRIB2,   ATTRIB_CMD,     NONE/*set by p*/,DEF_CMD,   STRING_CMD ALLOW_PLURAL}
2657,{jjWRONG2,    BAREISS_CMD,    0,              DEF_CMD,    DEF_CMD ALLOW_PLURAL}
2658,{jjBETTI2,    BETTI_CMD,      INTMAT_CMD,     LIST_CMD,   INT_CMD ALLOW_PLURAL}
2659,{syBetti2,    BETTI_CMD,      INTMAT_CMD,     RESOLUTION_CMD, INT_CMD ALLOW_PLURAL}
2660,{jjBETTI2_ID, BETTI_CMD,      INTMAT_CMD,     IDEAL_CMD,  INT_CMD ALLOW_PLURAL}
2661,{jjBETTI2_ID, BETTI_CMD,      INTMAT_CMD,     MODUL_CMD,  INT_CMD ALLOW_PLURAL}
2662#ifdef HAVE_PLURAL
2663,{jjBRACKET,   BRACKET_CMD,    POLY_CMD,       POLY_CMD,   POLY_CMD ALLOW_PLURAL}
2664#endif
2665,{jjCOEF,      COEF_CMD,       MATRIX_CMD,     POLY_CMD,   POLY_CMD ALLOW_PLURAL}
2666,{jjCOEFFS_Id, COEFFS_CMD,     MATRIX_CMD,     IDEAL_CMD,  POLY_CMD ALLOW_PLURAL}
2667,{jjCOEFFS_Id, COEFFS_CMD,     MATRIX_CMD,     MODUL_CMD,  POLY_CMD ALLOW_PLURAL}
2668,{jjCOEFFS2_KB,COEFFS_CMD,     MATRIX_CMD,     IDEAL_CMD,  IDEAL_CMD ALLOW_PLURAL}
2669,{jjCOEFFS2_KB,COEFFS_CMD,     MATRIX_CMD,     MODUL_CMD,  MODUL_CMD ALLOW_PLURAL}
2670,{jjCONTRACT,  CONTRACT_CMD,   MATRIX_CMD,     IDEAL_CMD,  IDEAL_CMD ALLOW_PLURAL}
2671,{jjDEG_IV,    DEG_CMD,        INT_CMD,        POLY_CMD,   INTVEC_CMD ALLOW_PLURAL}
2672,{jjDEG_IV,    DEG_CMD,        INT_CMD,        VECTOR_CMD, INTVEC_CMD ALLOW_PLURAL}
2673,{jjDEG_M_IV,  DEG_CMD,        INT_CMD,        MATRIX_CMD, INTVEC_CMD ALLOW_PLURAL}
2674,{lDelete,     DELETE_CMD,     LIST_CMD,       LIST_CMD,   INT_CMD ALLOW_PLURAL}
2675,{jjDIFF_P,    DIFF_CMD,       POLY_CMD,       POLY_CMD,   POLY_CMD ALLOW_PLURAL}
2676,{jjDIFF_P,    DIFF_CMD,       VECTOR_CMD,     VECTOR_CMD, POLY_CMD ALLOW_PLURAL}
2677,{jjDIFF_ID,   DIFF_CMD,       IDEAL_CMD,      IDEAL_CMD,  POLY_CMD ALLOW_PLURAL}
2678,{jjDIFF_ID_ID,DIFF_CMD,       MATRIX_CMD,     IDEAL_CMD,  IDEAL_CMD ALLOW_PLURAL}
2679,{jjDIFF_ID,   DIFF_CMD,       MODUL_CMD,      MODUL_CMD,  POLY_CMD ALLOW_PLURAL}
2680,{jjDIFF_ID,   DIFF_CMD,       MATRIX_CMD,     MATRIX_CMD, POLY_CMD ALLOW_PLURAL}
2681,{jjDIM2,      DIM_CMD,        INT_CMD,        IDEAL_CMD,  IDEAL_CMD NO_PLURAL}
2682,{jjDIM2,      DIM_CMD,        INT_CMD,        MODUL_CMD,  IDEAL_CMD NO_PLURAL}
2683,{jjDIVISION,  DIVISION_CMD,   LIST_CMD,       IDEAL_CMD,  IDEAL_CMD NO_PLURAL}
2684,{jjDIVISION,  DIVISION_CMD,   LIST_CMD,       MODUL_CMD,  MODUL_CMD NO_PLURAL}
2685,{jjELIMIN,    ELIMINATION_CMD,IDEAL_CMD,      IDEAL_CMD,  POLY_CMD ALLOW_PLURAL}
2686,{jjELIMIN,    ELIMINATION_CMD,MODUL_CMD,      MODUL_CMD,  POLY_CMD ALLOW_PLURAL}
2687,{jjEXTGCD_I,  EXTGCD_CMD,     LIST_CMD,       INT_CMD,    INT_CMD ALLOW_PLURAL}
2688#ifdef HAVE_FACTORY
2689,{jjEXTGCD_P,  EXTGCD_CMD,     LIST_CMD,       POLY_CMD,   POLY_CMD NO_PLURAL}
2690,{jjSQR_FREE_DEC,FAC_CMD,      IDEAL_CMD,      POLY_CMD,   INT_CMD NO_PLURAL}
2691,{jjFACSTD2,    FACSTD_CMD,    LIST_CMD,       IDEAL_CMD,  IDEAL_CMD NO_PLURAL}
2692#else
2693,{jjWRONG2,    EXTGCD_CMD,     LIST_CMD,       POLY_CMD,   POLY_CMD NO_PLURAL}
2694,{jjWRONG2,    FAC_CMD,        IDEAL_CMD,      POLY_CMD,   INT_CMD NO_PLURAL}
2695,{jjWRONG2,    FACSTD_CMD,     LIST_CMD,       IDEAL_CMD,  IDEAL_CMD NO_PLURAL}
2696#endif
2697,{jjFETCH,     FETCH_CMD,      ANY_TYPE/*set by p*/,RING_CMD,  ANY_TYPE ALLOW_PLURAL}
2698,{jjFETCH,     FETCH_CMD,      ANY_TYPE/*set by p*/,QRING_CMD, ANY_TYPE ALLOW_PLURAL}
2699#ifdef HAVE_FGLM
2700,{fglmProc,    FGLM_CMD,       IDEAL_CMD,      RING_CMD,   DEF_CMD NO_PLURAL}
2701,{fglmProc,    FGLM_CMD,       IDEAL_CMD,      QRING_CMD,  DEF_CMD NO_PLURAL}
2702,{fglmQuotProc,FGLMQUOT_CMD,   IDEAL_CMD,      IDEAL_CMD,  POLY_CMD NO_PLURAL}
2703#else
2704,{jjWRONG2,    FGLM_CMD,       IDEAL_CMD,      RING_CMD,   DEF_CMD NO_PLURAL}
2705,{jjWRONG2,    FGLM_CMD,       IDEAL_CMD,      QRING_CMD,  DEF_CMD NO_PLURAL}
2706,{jjWRONG2,    FGLMQUOT_CMD,   IDEAL_CMD,      POLY_CMD,   IDEAL_CMD NO_PLURAL}
2707#endif
2708,{jjFIND2,     FIND_CMD,       INT_CMD,        STRING_CMD, STRING_CMD ALLOW_PLURAL}
2709,{jjGCD_I,     GCD_CMD,        INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
2710,{jjGCD_N,     GCD_CMD,        NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
2711#if defined(HAVE_FACTORY) && defined(HAVE_LIBFAC_P)
2712,{jjGCD_P,     GCD_CMD,        POLY_CMD,       POLY_CMD,   POLY_CMD NO_PLURAL}
2713#else
2714,{jjWRONG2,    GCD_CMD,        POLY_CMD,       POLY_CMD,   POLY_CMD NO_PLURAL}
2715#endif
2716,{jjHILBERT2,  HILBERT_CMD,    INTVEC_CMD,     IDEAL_CMD,  INT_CMD NO_PLURAL}
2717,{jjHILBERT2,  HILBERT_CMD,    INTVEC_CMD,     MODUL_CMD,  INT_CMD NO_PLURAL}
2718,{jjHOMOG_P,   HOMOG_CMD,      POLY_CMD,       POLY_CMD,   POLY_CMD ALLOW_PLURAL}
2719,{jjHOMOG_P,   HOMOG_CMD,      VECTOR_CMD,     VECTOR_CMD, POLY_CMD ALLOW_PLURAL}
2720,{jjHOMOG_ID,  HOMOG_CMD,      IDEAL_CMD,      IDEAL_CMD,  POLY_CMD ALLOW_PLURAL}
2721,{jjHOMOG_ID,  HOMOG_CMD,      MODUL_CMD,      MODUL_CMD,  POLY_CMD ALLOW_PLURAL}
2722,{jjRES,       HRES_CMD,       RESOLUTION_CMD, IDEAL_CMD,  INT_CMD NO_PLURAL}
2723,{jjCALL2MANY, IDEAL_CMD,      IDEAL_CMD,      DEF_CMD,    DEF_CMD ALLOW_PLURAL}
2724,{jjFETCH,     IMAP_CMD,       ANY_TYPE/*set by p*/,RING_CMD,  ANY_TYPE ALLOW_PLURAL}
2725,{jjFETCH,     IMAP_CMD,       ANY_TYPE/*set by p*/,QRING_CMD, ANY_TYPE ALLOW_PLURAL}
2726,{jjINDEPSET2, INDEPSET_CMD,   LIST_CMD,       IDEAL_CMD,  INT_CMD NO_PLURAL}
2727,{lInsert,     INSERT_CMD,     LIST_CMD,       LIST_CMD,   DEF_CMD ALLOW_PLURAL}
2728,{jjINTERSECT, INTERSECT_CMD,  IDEAL_CMD,      IDEAL_CMD,  IDEAL_CMD ALLOW_PLURAL}
2729,{jjINTERSECT, INTERSECT_CMD,  MODUL_CMD,      MODUL_CMD,  MODUL_CMD ALLOW_PLURAL}
2730,{jjJanetBasis2, JANET_CMD,    IDEAL_CMD,      IDEAL_CMD,  INT_CMD ALLOW_PLURAL}
2731,{jjJET_P,     JET_CMD,        POLY_CMD,       POLY_CMD,   INT_CMD ALLOW_PLURAL}
2732,{jjJET_ID,    JET_CMD,        IDEAL_CMD,      IDEAL_CMD,  INT_CMD ALLOW_PLURAL}
2733,{jjJET_P,     JET_CMD,        VECTOR_CMD,     VECTOR_CMD, INT_CMD ALLOW_PLURAL}
2734,{jjJET_ID,    JET_CMD,        MODUL_CMD,      MODUL_CMD,  INT_CMD ALLOW_PLURAL}
2735,{jjJET_ID,    JET_CMD,        MATRIX_CMD,     MATRIX_CMD,  INT_CMD ALLOW_PLURAL}
2736,{jjKBASE2,    KBASE_CMD,      IDEAL_CMD,      IDEAL_CMD,  INT_CMD ALLOW_PLURAL}
2737,{jjKBASE2,    KBASE_CMD,      MODUL_CMD,      MODUL_CMD,  INT_CMD ALLOW_PLURAL}
2738,{atKILLATTR2, KILLATTR_CMD,   NONE,           IDHDL,      STRING_CMD ALLOW_PLURAL}
2739,{jjKoszul,    KOSZUL_CMD,     MATRIX_CMD,     INT_CMD,    INT_CMD NO_PLURAL}
2740,{jjKoszul_Id, KOSZUL_CMD,     MATRIX_CMD,     INT_CMD,    IDEAL_CMD NO_PLURAL}
2741,{jjRES,       KRES_CMD,       RESOLUTION_CMD, IDEAL_CMD,  INT_CMD NO_PLURAL}
2742,{jjLIFT,      LIFT_CMD,       MATRIX_CMD,     IDEAL_CMD,  IDEAL_CMD ALLOW_PLURAL}
2743,{jjLIFT,      LIFT_CMD,       MATRIX_CMD,     MODUL_CMD,  MODUL_CMD ALLOW_PLURAL}
2744,{jjLIFTSTD,   LIFTSTD_CMD,    IDEAL_CMD,      IDEAL_CMD,  MATRIX_CMD ALLOW_PLURAL}
2745,{jjLIFTSTD,   LIFTSTD_CMD,    MODUL_CMD,      MODUL_CMD,  MATRIX_CMD ALLOW_PLURAL}
2746,{jjCALL2MANY, LIST_CMD,       LIST_CMD,       DEF_CMD,    DEF_CMD ALLOW_PLURAL}
2747,{jjRES,       LRES_CMD,       RESOLUTION_CMD, IDEAL_CMD,  INT_CMD NO_PLURAL}
2748,{jjMINOR,     MINOR_CMD,      IDEAL_CMD,      MATRIX_CMD, INT_CMD NO_PLURAL}
2749,{jjCALL2MANY, MODUL_CMD,      MODUL_CMD,      DEF_CMD,    DEF_CMD ALLOW_PLURAL}
2750,{jjMODULO,    MODULO_CMD,     MODUL_CMD,      IDEAL_CMD,  IDEAL_CMD ALLOW_PLURAL}
2751,{jjMODULO,    MODULO_CMD,     MODUL_CMD,      MODUL_CMD,  MODUL_CMD ALLOW_PLURAL}
2752,{jjMONITOR2,  MONITOR_CMD,    NONE,           STRING_CMD, STRING_CMD ALLOW_PLURAL}
2753//,{jjRES,       MRES_CMD,       LIST_CMD,       IDEAL_CMD,  INT_CMD NO_PLURAL}
2754//,{jjRES,       MRES_CMD,       LIST_CMD,       MODUL_CMD,  INT_CMD NO_PLURAL}
2755,{jjRES,       MRES_CMD,       RESOLUTION_CMD, IDEAL_CMD,  INT_CMD ALLOW_PLURAL}
2756,{jjRES,       MRES_CMD,       RESOLUTION_CMD, MODUL_CMD,  INT_CMD ALLOW_PLURAL}
2757#ifdef HAVE_PLURAL
2758,{jjPlural_num_poly, NCALGEBRA_CMD,  NONE,  POLY_CMD,   POLY_CMD   NO_PLURAL}
2759,{jjPlural_num_mat,  NCALGEBRA_CMD,  NONE,  POLY_CMD,   MATRIX_CMD NO_PLURAL}
2760,{jjPlural_mat_poly, NCALGEBRA_CMD,  NONE,  MATRIX_CMD, POLY_CMD   NO_PLURAL}
2761,{jjPlural_mat_mat,  NCALGEBRA_CMD,  NONE,  MATRIX_CMD, MATRIX_CMD NO_PLURAL}
2762#endif
2763#ifdef HAVE_PLURAL
2764,{jjOPPOSE,    OPPOSE_CMD,     ANY_TYPE/*set by p*/, RING_CMD,   DEF_CMD ALLOW_PLURAL}
2765,{jjOPPOSE,    OPPOSE_CMD,     ANY_TYPE/*set by p*/, QRING_CMD,   DEF_CMD ALLOW_PLURAL}
2766#endif
2767,{jjPARSTR2,   PARSTR_CMD,     STRING_CMD,     RING_CMD,   INT_CMD ALLOW_PLURAL}
2768,{jjPARSTR2,   PARSTR_CMD,     STRING_CMD,     QRING_CMD,  INT_CMD ALLOW_PLURAL}
2769,{jjPRINT_FORMAT, PRINT_CMD,   ANY_TYPE,       DEF_CMD,    STRING_CMD ALLOW_PLURAL}
2770,{jjQUOT,      QUOTIENT_CMD,   IDEAL_CMD,      IDEAL_CMD,  IDEAL_CMD ALLOW_PLURAL}
2771,{jjQUOT,      QUOTIENT_CMD,   MODUL_CMD,      MODUL_CMD,  IDEAL_CMD ALLOW_PLURAL}
2772,{jjQUOT,      QUOTIENT_CMD,   IDEAL_CMD,      MODUL_CMD,  MODUL_CMD ALLOW_PLURAL}
2773,{jjRANDOM,    RANDOM_CMD,     INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
2774,{jjREAD2,     READ_CMD,       STRING_CMD,     LINK_CMD,   STRING_CMD ALLOW_PLURAL}
2775,{jjREDUCE_P,  REDUCE_CMD,     POLY_CMD,       POLY_CMD,   IDEAL_CMD ALLOW_PLURAL}
2776,{jjREDUCE_P,  REDUCE_CMD,     VECTOR_CMD,     VECTOR_CMD, IDEAL_CMD ALLOW_PLURAL}
2777,{jjREDUCE_P,  REDUCE_CMD,     VECTOR_CMD,     VECTOR_CMD, MODUL_CMD ALLOW_PLURAL}
2778,{jjREDUCE_ID, REDUCE_CMD,     IDEAL_CMD,      IDEAL_CMD,  IDEAL_CMD ALLOW_PLURAL}
2779,{jjREDUCE_ID, REDUCE_CMD,     MODUL_CMD,      MODUL_CMD,  MODUL_CMD ALLOW_PLURAL}
2780,{jjREDUCE_ID, REDUCE_CMD,     MODUL_CMD,      MODUL_CMD,  IDEAL_CMD ALLOW_PLURAL}
2781//,{jjRES,       RES_CMD,        LIST_CMD,       IDEAL_CMD,  INT_CMD NO_PLURAL}
2782//,{jjRES,       RES_CMD,        LIST_CMD,       MODUL_CMD,  INT_CMD NO_PLURAL}
2783,{jjRES,       RES_CMD,        RESOLUTION_CMD, IDEAL_CMD,  INT_CMD ALLOW_PLURAL}
2784,{jjRES,       RES_CMD,        RESOLUTION_CMD, MODUL_CMD,  INT_CMD ALLOW_PLURAL}
2785,{jjSTATUS2,   STATUS_CMD,     STRING_CMD,     LINK_CMD,   STRING_CMD ALLOW_PLURAL}
2786,{jjSIMPL_P,   SIMPLIFY_CMD,   POLY_CMD,       POLY_CMD,   INT_CMD ALLOW_PLURAL}
2787,{jjSIMPL_P,   SIMPLIFY_CMD,   VECTOR_CMD,     VECTOR_CMD, INT_CMD ALLOW_PLURAL}
2788,{jjSIMPL_ID,  SIMPLIFY_CMD,   IDEAL_CMD,      IDEAL_CMD,  INT_CMD ALLOW_PLURAL}
2789,{jjSIMPL_ID,  SIMPLIFY_CMD,   MODUL_CMD,      MODUL_CMD,  INT_CMD ALLOW_PLURAL}
2790//,{jjRES,       SRES_CMD,       LIST_CMD,       IDEAL_CMD,  INT_CMD NO_PLURAL}
2791//,{jjRES,       SRES_CMD,       LIST_CMD,       MODUL_CMD,  INT_CMD NO_PLURAL}
2792,{jjRES,       SRES_CMD,       RESOLUTION_CMD, IDEAL_CMD,  INT_CMD NO_PLURAL}
2793,{jjRES,       SRES_CMD,       RESOLUTION_CMD, MODUL_CMD,  INT_CMD NO_PLURAL}
2794,{jjCALL2MANY, SYSTEM_CMD,     ANY_TYPE/*set by p*/,STRING_CMD, DEF_CMD ALLOW_PLURAL}
2795,{jjSTD_1,     STD_CMD,        IDEAL_CMD,      IDEAL_CMD,  POLY_CMD ALLOW_PLURAL}
2796,{jjSTD_1,     STD_CMD,        MODUL_CMD,      MODUL_CMD,  VECTOR_CMD ALLOW_PLURAL}
2797,{jjSTD_HILB,  STD_CMD,        IDEAL_CMD,      IDEAL_CMD,  INTVEC_CMD NO_PLURAL}
2798,{jjSTD_HILB,  STD_CMD,        MODUL_CMD,      MODUL_CMD,  INTVEC_CMD NO_PLURAL}
2799,{jjVARSTR2,   VARSTR_CMD,     STRING_CMD,     RING_CMD,   INT_CMD ALLOW_PLURAL}
2800,{jjVARSTR2,   VARSTR_CMD,     STRING_CMD,     QRING_CMD,  INT_CMD ALLOW_PLURAL}
2801,{jjWEDGE,     WEDGE_CMD,      MATRIX_CMD,     MATRIX_CMD, INT_CMD NO_PLURAL}
2802,{jjLOAD_E,    LOAD_CMD,       NONE,           STRING_CMD, STRING_CMD ALLOW_PLURAL}
2803,{nuMPResMat,  MPRES_CMD,      MODUL_CMD,      IDEAL_CMD,  INT_CMD NO_PLURAL}
2804,{NULL,        0,              0,              0,          0 NO_PLURAL}
2805};
2806/*=================== operations with 1 arg.: static proc =================*/
2807static BOOLEAN jjDUMMY(leftv res, leftv u)
2808{
2809  res->data = (char *)u->CopyD();
2810  return FALSE;
2811}
2812static BOOLEAN jjNULL(leftv res, leftv u)
2813{
2814  return FALSE;
2815}
2816//static BOOLEAN jjPLUSPLUS(leftv res, leftv u)
2817//{
2818//  res->data = (char *)((int)u->Data()+1);
2819//  return FALSE;
2820//}
2821//static BOOLEAN jjMINUSMINUS(leftv res, leftv u)
2822//{
2823//  res->data = (char *)((int)u->Data()-1);
2824//  return FALSE;
2825//}
2826static BOOLEAN jjPLUSPLUS(leftv res, leftv u)
2827{
2828  if (IDTYP((idhdl)u->data)==INT_CMD)
2829  {
2830    if (iiOp==PLUSPLUS) IDINT((idhdl)u->data)++;
2831    else                IDINT((idhdl)u->data)--;
2832    return FALSE;
2833  }
2834  return TRUE;
2835}
2836static BOOLEAN jjUMINUS_I(leftv res, leftv u)
2837{
2838  res->data = (char *)(-(int)u->Data());
2839  return FALSE;
2840}
2841static BOOLEAN jjUMINUS_N(leftv res, leftv u)
2842{
2843  number n=(number)u->CopyD(NUMBER_CMD);
2844  n=nNeg(n);
2845  res->data = (char *)n;
2846  return FALSE;
2847}
2848static BOOLEAN jjUMINUS_P(leftv res, leftv u)
2849{
2850  res->data = (char *)pNeg((poly)u->CopyD(POLY_CMD));
2851  return FALSE;
2852}
2853static BOOLEAN jjUMINUS_MA(leftv res, leftv u)
2854{
2855  poly m1=pISet(-1);
2856  res->data = (char *)mpMultP((matrix)u->CopyD(MATRIX_CMD),m1);
2857  return FALSE;
2858}
2859static BOOLEAN jjUMINUS_IV(leftv res, leftv u)
2860{
2861  intvec *iv=(intvec *)u->CopyD(INTVEC_CMD);
2862  (*iv)*=(-1);
2863  res->data = (char *)iv;
2864  return FALSE;
2865}
2866static BOOLEAN jjPROC1(leftv res, leftv u)
2867{
2868  return jjPROC(res,u,NULL);
2869}
2870static BOOLEAN jjBAREISS(leftv res, leftv v)
2871{
2872  //matrix m=(matrix)v->Data();
2873  //lists l=mpBareiss(m,FALSE);
2874  intvec *iv;
2875  ideal m;
2876  smCallNewBareiss((ideal)v->Data(),0,0,m,&iv);
2877  lists l=(lists)omAllocBin(slists_bin);
2878  l->Init(2);
2879  l->m[0].rtyp=MODUL_CMD;
2880  l->m[1].rtyp=INTVEC_CMD;
2881  l->m[0].data=(void *)m;
2882  l->m[1].data=(void *)iv;
2883  res->data = (char *)l;
2884  return FALSE;
2885}
2886//static BOOLEAN jjBAREISS_IM(leftv res, leftv v)
2887//{
2888//  intvec *m=(intvec *)v->CopyD(INTMAT_CMD);
2889//  ivTriangMat(m);
2890//  res->data = (char *)m;
2891//  return FALSE;
2892//}
2893static BOOLEAN jjCALL1MANY(leftv res, leftv u)
2894{
2895  return iiExprArithM(res,u,iiOp);
2896}
2897static BOOLEAN jjCHAR(leftv res, leftv v)
2898{
2899  res->data = (char *)rChar((ring)v->Data());
2900  return FALSE;
2901}
2902static BOOLEAN jjCOLS(leftv res, leftv v)
2903{
2904  res->data = (char *)MATCOLS((matrix)(v->Data()));
2905  return FALSE;
2906}
2907static BOOLEAN jjCOLS_IV(leftv res, leftv v)
2908{
2909  res->data = (char *)((intvec*)(v->Data()))->cols();
2910  return FALSE;
2911}
2912static BOOLEAN jjCONTENT(leftv res, leftv v)
2913{
2914  // CopyD for POLY_CMD and VECTOR_CMD are identical:
2915  poly p=(poly)v->CopyD(POLY_CMD);
2916  if (p!=NULL) pCleardenom(p);
2917  res->data = (char *)p;
2918  return FALSE;
2919}
2920static BOOLEAN jjCOUNT_N(leftv res, leftv v)
2921{
2922  res->data = (char *)nSize((number)v->Data());
2923  return FALSE;
2924}
2925static BOOLEAN jjCOUNT_L(leftv res, leftv v)
2926{
2927  lists l=(lists)v->Data();
2928  res->data = (char *)(l->nr+1);
2929  return FALSE;
2930}
2931static BOOLEAN jjCOUNT_M(leftv res, leftv v)
2932{
2933  matrix m=(matrix)v->Data();
2934  res->data = (char *)(MATROWS(m)*MATCOLS(m));
2935  return FALSE;
2936}
2937static BOOLEAN jjCOUNT_IV(leftv res, leftv v)
2938{
2939  res->data = (char *)((intvec*)(v->Data()))->length();
2940  return FALSE;
2941}
2942static BOOLEAN jjCOUNT_RG(leftv res, leftv v)
2943{
2944  ring r=(ring)v->Data();
2945  int elems=-1;
2946  if (rField_is_Zp(r)||rField_is_GF(r)) elems=rInternalChar(r);
2947  else if (rField_is_Zp_a(r) && (r->minpoly!=NULL))
2948  {
2949    elems=(int)pow(ABS(rInternalChar(r)),naParDeg(r->minpoly));
2950  }
2951  res->data = (char *)elems;
2952  return FALSE;
2953}
2954static BOOLEAN jjDEG(leftv res, leftv v)
2955{
2956  int dummy;
2957  poly p=(poly)v->Data();
2958  if (p!=NULL) res->data = (char *)pLDeg(p,&dummy,currRing);
2959  else res->data=(char *)-1;
2960  return FALSE;
2961}
2962static BOOLEAN jjDEG_M(leftv res, leftv u)
2963{
2964  ideal I=(ideal)u->Data();
2965  int d=-1;
2966  int dummy;
2967  int i;
2968  for(i=IDELEMS(I);i>=0;i--)
2969    if (I->m[i]!=NULL) d=max(d,pLDeg(I->m[i],&dummy,currRing));
2970  res->data = (char *)d;
2971  return FALSE;
2972}
2973static BOOLEAN jjDEGREE(leftv res, leftv v)
2974{
2975  assumeStdFlag(v);
2976  scDegree((ideal)v->Data(),currQuotient);
2977  return FALSE;
2978}
2979static BOOLEAN jjDEFINED(leftv res, leftv v)
2980{
2981  if ((v->rtyp==IDHDL)
2982  && ((myynest==IDLEV((idhdl)v->data))||(0==IDLEV((idhdl)v->data))))
2983  {
2984    res->data=(void *)(IDLEV((idhdl)v->data)+1);
2985  }
2986  else if (v->rtyp!=0) res->data=(void *)(-1);
2987  return FALSE;
2988}
2989#ifdef HAVE_FACTORY
2990static BOOLEAN jjDET(leftv res, leftv v)
2991{
2992  matrix m=(matrix)v->Data();
2993  poly p;
2994  if (smCheckDet((ideal)m,m->cols(),TRUE))
2995  {
2996    ideal I=idMatrix2Module(mpCopy(m));
2997    p=smCallDet(I);
2998    idDelete(&I);
2999  }
3000  else
3001    p=singclap_det(m);
3002  res ->data = (char *)p;
3003  return FALSE;
3004}
3005static BOOLEAN jjDET_I(leftv res, leftv v)
3006{
3007  intvec * m=(intvec*)v->Data();
3008  int i,j;
3009  i=m->rows();j=m->cols();
3010  if(i==j)
3011    res->data = (char *)singclap_det_i(m);
3012  else
3013  {
3014    Werror("det of %d x %d intmat",i,j);
3015    return TRUE;
3016  }
3017  return FALSE;
3018}
3019static BOOLEAN jjDET_S(leftv res, leftv v)
3020{
3021  ideal I=(ideal)v->Data();
3022  poly p;
3023  if (smCheckDet(I,IDELEMS(I),FALSE))
3024  {
3025    matrix m=idModule2Matrix(idCopy(I));
3026    p=singclap_det(m);
3027    idDelete((ideal *)&m);
3028  }
3029  else
3030    p=smCallDet(I);
3031  res->data = (char *)p;
3032  return FALSE;
3033}
3034#endif
3035static BOOLEAN jjDIM(leftv res, leftv v)
3036{
3037  assumeStdFlag(v);
3038  res->data = (char *)scDimInt((ideal)(v->Data()),currQuotient);
3039  return FALSE;
3040}
3041static BOOLEAN jjDUMP(leftv res, leftv v)
3042{
3043  si_link l = (si_link)v->Data();
3044  if (slDump(l))
3045  {
3046    const char *s;
3047    if ((l!=NULL)&&(l->name!=NULL)) s=l->name;
3048    else                            s=sNoName;
3049    Werror("cannot dump to `%s`",s);
3050    return TRUE;
3051  }
3052  else
3053    return FALSE;
3054}
3055static BOOLEAN jjE(leftv res, leftv v)
3056{
3057  res->data = (char *)pOne();
3058  pSetComp((poly)res->data,(int)v->Data());
3059  pSetm((poly)res->data);
3060  return FALSE;
3061}
3062static BOOLEAN jjEXECUTE(leftv res, leftv v)
3063{
3064  char * d = (char *)v->Data();
3065  char * s = (char *)omAlloc(strlen(d) + 13);
3066  strcpy( s, (char *)d);
3067  strcat( s, "\n;RETURN();\n");
3068  newBuffer(s,BT_execute);
3069  return yyparse();
3070}
3071#ifdef HAVE_FACTORY
3072static BOOLEAN jjFACSTD(leftv res, leftv v)
3073{
3074  ideal_list p,h;
3075  h=kStdfac((ideal)v->Data(),NULL,testHomog,NULL);
3076  p=h;
3077  int l=0;
3078  while (p!=NULL) { p=p->next;l++; }
3079  lists L=(lists)omAllocBin(slists_bin);
3080  L->Init(l);
3081  l=0;
3082  while(h!=NULL) 
3083  {
3084    L->m[l].data=(char *)h->d;
3085    L->m[l].rtyp=IDEAL_CMD;
3086    p=h->next;
3087    omFreeSize(h,sizeof(*h));
3088    h=p;
3089    l++;
3090  }
3091  res->data=(void *)L;
3092  return FALSE;
3093}
3094static BOOLEAN jjFAC_P(leftv res, leftv u)
3095{
3096  intvec *v=NULL;
3097  singclap_factorize_retry=0;
3098  ideal f=singclap_factorize((poly)(u->Data()), &v, 0);
3099  if (f==NULL) return TRUE;
3100  ivTest(v);
3101  lists l=(lists)omAllocBin(slists_bin);
3102  l->Init(2);
3103  l->m[0].rtyp=IDEAL_CMD;
3104  l->m[0].data=(void *)f;
3105  l->m[1].rtyp=INTVEC_CMD;
3106  l->m[1].data=(void *)v;
3107  res->data=(void *)l;
3108  return FALSE;
3109}
3110#endif
3111static BOOLEAN jjGETDUMP(leftv res, leftv v)
3112{
3113  si_link l = (si_link)v->Data();
3114  if (slGetDump(l))
3115  {
3116    const char *s;
3117    if ((l!=NULL)&&(l->name!=NULL)) s=l->name;
3118    else                            s=sNoName;
3119    Werror("cannot get dump from `%s`",s);
3120    return TRUE;
3121  }
3122  else
3123    return FALSE;
3124}
3125static BOOLEAN jjHIGHCORNER(leftv res, leftv v)
3126{
3127  assumeStdFlag(v);
3128  ideal I=(ideal)v->Data();
3129  res->data=(void *)iiHighCorner(I,0);
3130  return FALSE;
3131}
3132static BOOLEAN jjHIGHCORNER_M(leftv res, leftv v)
3133{
3134  assumeStdFlag(v);
3135  intvec *w=(intvec*)atGet(v,"isHomog");
3136  BOOLEAN delete_w=FALSE;
3137  ideal I=(ideal)v->Data();
3138  int i;
3139  poly p=NULL,po=NULL;
3140  int rk=idRankFreeModule(I);
3141  if (w==NULL)
3142  {
3143    w = new intvec(rk);
3144    delete_w=TRUE;
3145  }
3146  for(i=rk;i>0;i--)
3147  {
3148    p=iiHighCorner(I,i);
3149    if (p==NULL)
3150    {
3151      Werror("module must be zero-dimensional");
3152      if (delete_w) delete w;
3153      return TRUE;
3154    }
3155    if (po==NULL)
3156    {
3157      po=p;
3158    }
3159    else
3160    {
3161      // now po!=NULL, p!=NULL
3162      int d=(pFDeg(po,currRing)-(*w)[pGetComp(po)-1] - pFDeg(p,currRing)+(*w)[i-1]);
3163      if (d==0)
3164        d=pLmCmp(po,p);
3165      if (d > 0)
3166      {
3167        pDelete(&p);
3168      }
3169      else // (d < 0)
3170      {
3171        pDelete(&po); po=p;
3172      }
3173    }
3174  }
3175  if (delete_w) delete w;
3176  res->data=(void *)po;
3177  return FALSE;
3178}
3179static BOOLEAN jjHILBERT(leftv res, leftv v)
3180{
3181  assumeStdFlag(v);
3182  intvec *module_w=(intvec*)atGet(v,"isHomog");
3183  //scHilbertPoly((ideal)v->Data(),currQuotient);
3184  hLookSeries((ideal)v->Data(),module_w,currQuotient);
3185  return FALSE;
3186}
3187static BOOLEAN jjHILBERT_IV(leftv res, leftv v)
3188{
3189  res->data=(void *)hSecondSeries((intvec *)v->Data());
3190  return FALSE;
3191}
3192static BOOLEAN jjHOMOG1(leftv res, leftv v)
3193{
3194  intvec *w;
3195  res->data=(void *)idHomModule((ideal)v->Data(),currQuotient,&w);
3196  if ((v->rtyp==IDHDL)&&(w!=NULL))
3197    atSet((idhdl)v->data,omStrDup("isHomog"),w,INTVEC_CMD);
3198  return FALSE;
3199}
3200static BOOLEAN jjIDEAL_Ma(leftv res, leftv v)
3201{
3202  matrix mat=(matrix)v->CopyD(MATRIX_CMD);
3203  IDELEMS((ideal)mat)=MATCOLS(mat)*MATROWS(mat);
3204  if (IDELEMS((ideal)mat)==0)
3205  {
3206    idDelete((ideal *)&mat);
3207    mat=(matrix)idInit(1,1);
3208  }
3209  else
3210  {
3211    MATROWS(mat)=1;
3212    mat->rank=1;
3213    idTest((ideal)mat);
3214  }
3215  res->data=(char *)mat;
3216  return FALSE;
3217}
3218static BOOLEAN jjIDEAL_Map(leftv res, leftv v)
3219{
3220  map m=(map)v->CopyD(MAP_CMD);
3221  omFree((ADDRESS)m->preimage);
3222  m->preimage=NULL;
3223  ideal I=(ideal)m;
3224  I->rank=1;
3225  res->data=(char *)I;
3226  return FALSE;
3227}
3228static BOOLEAN jjIDEAL_R(leftv res, leftv v)
3229{
3230  if (currRing!=NULL)
3231  {
3232    ring q=(ring)v->Data();
3233    if (rEqual(currRing, q, 0))
3234    {
3235      if (q->qideal==NULL)
3236        res->data=(char *)idInit(1,1);
3237      else
3238        res->data=(char *)idCopy(q->qideal);
3239      return FALSE;
3240    }
3241  }
3242  WerrorS("can only get ideal from identical qring");
3243  return TRUE;
3244}
3245static BOOLEAN jjIm2Iv(leftv res, leftv v)
3246{
3247  intvec *iv = (intvec *)v->CopyD(INTMAT_CMD);
3248  iv->makeVector();
3249  res->data = iv;
3250  return FALSE;
3251}
3252static BOOLEAN jjIMPART(leftv res, leftv v)
3253{
3254  res->data = (char *)nImPart((number)v->Data());
3255  return FALSE;
3256}
3257static BOOLEAN jjINDEPSET(leftv res, leftv v)
3258{
3259  assumeStdFlag(v);
3260  res->data=(void *)scIndIntvec((ideal)(v->Data()),currQuotient);
3261  return FALSE;
3262}
3263static BOOLEAN jjINTERRED(leftv res, leftv v)
3264{
3265  ideal result=kInterRed((ideal)(v->Data()),currQuotient);
3266  //if (result==NULL) return TRUE;
3267  res->data = result;
3268  return FALSE;
3269}
3270static BOOLEAN jjIS_RINGVAR_P(leftv res, leftv v)
3271{
3272  res->data = (char *)pVar((poly)v->Data());
3273  return FALSE;
3274}
3275static BOOLEAN jjIS_RINGVAR_S(leftv res, leftv v)
3276{
3277  res->data = (char *)(r_IsRingVar((char *)v->Data(), currRing)+1);
3278  return FALSE;
3279}
3280static BOOLEAN jjIS_RINGVAR0(leftv res, leftv v)
3281{
3282  res->data = (char *)0;
3283  return FALSE;
3284}
3285static BOOLEAN jjJACOB_P(leftv res, leftv v)
3286{
3287  ideal i=idInit(pVariables,1);
3288  int k;
3289  poly p=(poly)(v->Data());
3290  for (k=pVariables;k>0;k--)
3291  {
3292    i->m[k-1]=pDiff(p,k);
3293  }
3294  res->data = (char *)i;
3295  return FALSE;
3296}
3297static BOOLEAN jjKBASE(leftv res, leftv v)
3298{
3299  assumeStdFlag(v);
3300  res->data = (char *)scKBase(-1,(ideal)(v->Data()),currQuotient);
3301  return FALSE;
3302}
3303#ifdef MDEBUG
3304static BOOLEAN jjpHead(leftv res, leftv v)
3305{
3306  res->data=(char *)pHead((poly)v->Data());
3307  return FALSE;
3308}
3309#endif
3310static BOOLEAN jjL2R(leftv res, leftv v)
3311{
3312  res->data=(char *)syConvList((lists)v->Data());
3313  if (res->data != NULL)
3314    return FALSE;
3315  else
3316    return TRUE;
3317}
3318static BOOLEAN jjLEADCOEF(leftv res, leftv v)
3319{
3320  poly p=(poly)v->Data();
3321  if (p==NULL)
3322  {
3323    res->data=(char *)nInit(0);
3324  }
3325  else
3326  {
3327    res->data=(char *)nCopy(pGetCoeff(p));
3328  }
3329  return FALSE;
3330}
3331static BOOLEAN jjLEADEXP(leftv res, leftv v)
3332{
3333  poly p=(poly)v->Data();
3334  int s=pVariables;
3335  if (v->Typ()==VECTOR_CMD) s++;
3336  intvec *iv=new intvec(s);
3337  if (p!=NULL)
3338  {
3339    for(int i = pVariables;i;i--)
3340    {
3341      (*iv)[i-1]=pGetExp(p,i);
3342    }
3343    if (s!=pVariables)
3344      (*iv)[pVariables]=pGetComp(p);
3345  }
3346  res->data=(char *)iv;
3347  return FALSE;
3348}
3349static BOOLEAN jjLEADMONOM(leftv res, leftv v)
3350{
3351  poly p=(poly)v->Data();
3352  if (p == NULL)
3353  {
3354    res->data = (char*) NULL;
3355  }
3356  else
3357  {
3358    poly lm = pLmInit(p);
3359    pSetCoeff(lm, nInit(1));
3360    res->data = (char*) lm;
3361  }
3362  return FALSE;
3363}
3364static BOOLEAN jjLISTRING(leftv res, leftv v)
3365{
3366  ring r=rCompose((lists)v->Data());
3367  if (r==NULL) return TRUE;
3368  if (r->qideal!=NULL) res->rtyp=QRING_CMD;
3369  res->data=(char *)r;
3370  return FALSE;
3371}
3372static BOOLEAN jjMEMORY(leftv res, leftv v)
3373{
3374  omUpdateInfo();
3375  switch(((int)v->Data()))
3376  {
3377  case 0:
3378    res->data = (char *)om_Info.UsedBytes;
3379    break;
3380  case 1:
3381    res->data = (char *)om_Info.CurrentBytesSystem;
3382    break;
3383  case 2:
3384    res->data = (char *)om_Info.MaxBytesSystem;
3385    break;
3386
3387  default:
3388    omPrintStats(stdout);
3389    omPrintInfo(stdout);
3390    omPrintBinStats(stdout);
3391    res->data = (char *)0;
3392  }
3393  return FALSE;
3394  res->data = (char *)0;
3395  return FALSE;
3396}
3397static BOOLEAN jjMONITOR1(leftv res, leftv v)
3398{
3399  monitor((char *)(v->Data()),PROT_I);
3400  return FALSE;
3401}
3402static BOOLEAN jjMSTD(leftv res, leftv v)
3403{
3404  int t=v->Typ();
3405  ideal r,m;
3406  r=kMin_std((ideal)v->Data(),currQuotient,testHomog,NULL,m);
3407  lists l=(lists)omAllocBin(slists_bin);
3408  l->Init(2);
3409  l->m[0].rtyp=t;
3410  l->m[0].data=(char *)r;
3411  setFlag(&(l->m[0]),FLAG_STD);
3412  l->m[1].rtyp=t;
3413  l->m[1].data=(char *)m;
3414  res->data=(char *)l;
3415  return FALSE;
3416}
3417static BOOLEAN jjMULT(leftv res, leftv v)
3418{
3419  assumeStdFlag(v);
3420  res->data = (char *)scMultInt((ideal)(v->Data()),currQuotient);
3421  return FALSE;
3422}
3423static BOOLEAN jjNAMEOF(leftv res, leftv v)
3424{
3425  res->data = (char *)v->name;
3426  if (res->data==NULL) res->data=omStrDup("");
3427  v->name=NULL;
3428  return FALSE;
3429}
3430static BOOLEAN jjNAMES(leftv res, leftv v)
3431{
3432  res->data=ipNameList(((ring)v->Data())->idroot);
3433  return FALSE;
3434}
3435static BOOLEAN jjNVARS(leftv res, leftv v)
3436{
3437  res->data = (char *)(((ring)(v->Data()))->N);
3438  return FALSE;
3439}
3440static BOOLEAN jjOpenClose(leftv res, leftv v)
3441{
3442  si_link l=(si_link)v->Data();
3443  if (iiOp==OPEN_CMD) return slOpen(l, SI_LINK_OPEN);
3444  else                return slClose(l);
3445}
3446static BOOLEAN jjORD(leftv res, leftv v)
3447{
3448  poly p=(poly)v->Data();
3449  res->data=(char *)( p==NULL ? -1 : pFDeg(p,currRing) );
3450  return FALSE;
3451}
3452static BOOLEAN jjPAR1(leftv res, leftv v)
3453{
3454  int i=(int)v->Data();
3455  int p=0;
3456  p=rPar(currRing);
3457  if ((0<i) && (i<=p))
3458  {
3459    res->data=(char *)nPar(i);
3460  }
3461  else
3462  {
3463    Werror("par number %d out of range 1..%d",i,p);
3464    return TRUE;
3465  }
3466  return FALSE;
3467}
3468static BOOLEAN jjPARDEG(leftv res, leftv v)
3469{
3470  res->data = (char *)nParDeg((number)v->Data());
3471  return FALSE;
3472}
3473static BOOLEAN jjPARSTR1(leftv res, leftv v)
3474{
3475  if (currRing==NULL)
3476  {
3477    WerrorS("no ring active");
3478    return TRUE;
3479  }
3480  int i=(int)v->Data();
3481  int p=0;
3482  if ((0<i) && (currRing->parameter!=NULL) && (i<=(p=rPar(currRing))))
3483    res->data=omStrDup(currRing->parameter[i-1]);
3484  else
3485  {
3486    Werror("par number %d out of range 1..%d",i,p);
3487    return TRUE;
3488  }
3489  return FALSE;
3490}
3491static BOOLEAN jjP2I(leftv res, leftv v)
3492{
3493  poly p=(poly)v->Data();
3494  if (p==NULL) { /*res->data=(char *)0;*/ return FALSE; }
3495  if ((pNext(p)!=NULL)|| (!pIsConstant(p)))
3496  {
3497    WerrorS("poly must be constant");
3498    return TRUE;
3499  }
3500  res->data = (char *)nInt(pGetCoeff(p));
3501  return FALSE;
3502}
3503static BOOLEAN jjPREIMAGE_R(leftv res, leftv v)
3504{
3505  map mapping=(map)v->Data();
3506  syMake(res,omStrDup(mapping->preimage));
3507  return FALSE;
3508}
3509static BOOLEAN jjPRIME(leftv res, leftv v)
3510{
3511  int i = IsPrime((int)(v->Data()));
3512  res->data = (char *)(i > 1 ? i : 2);
3513  return FALSE;
3514}
3515static BOOLEAN jjPRUNE(leftv res, leftv v)
3516{
3517  res->data = (char *)idMinEmbedding((ideal)v->Data());
3518  return FALSE;
3519}
3520static BOOLEAN jjP2N(leftv res, leftv v)
3521{
3522  number n;
3523  poly p;
3524  if (((p=(poly)v->Data())!=NULL)
3525  && (pIsConstant(p)))
3526  {
3527    n=nCopy(pGetCoeff(p));
3528  }
3529  else
3530  {
3531    n=nInit(0);
3532  }
3533  res->data = (char *)n;
3534  return FALSE;
3535}
3536static BOOLEAN jjRESERVEDNAME(leftv res, leftv v)
3537{
3538  char *s= (char *)v->Data();
3539  int i = 1;
3540  int l = strlen(s);
3541  while (cmds[i].tokval!=0)
3542  {
3543    if (strcmp(s, cmds[i].name) == 0)
3544    {
3545      res->data = (char *)1;
3546      return FALSE;
3547    }
3548    i++;
3549  }
3550  //res->data = (char *)0;
3551  return FALSE;
3552}
3553static BOOLEAN jjREAD(leftv res, leftv v)
3554{
3555  return jjREAD2(res,v,NULL);
3556}
3557static BOOLEAN jjREGULARITY(leftv res, leftv v)
3558{
3559  res->data = (char *)iiRegularity((lists)v->Data());
3560  return FALSE;
3561}
3562static BOOLEAN jjREPART(leftv res, leftv v)
3563{
3564  res->data = (char *)nRePart((number)v->Data());
3565  return FALSE;
3566}
3567static BOOLEAN jjRINGLIST(leftv res, leftv v)
3568{
3569  ring r=(ring)v->Data();
3570  if (r!=NULL)
3571    res->data = (char *)rDecompose((ring)v->Data());
3572  return (r==NULL);
3573}
3574static BOOLEAN jjROWS(leftv res, leftv v)
3575{
3576  ideal i = (ideal)v->Data();
3577  res->data = (char *)i->rank;
3578  return FALSE;
3579}
3580static BOOLEAN jjROWS_IV(leftv res, leftv v)
3581{
3582  res->data = (char *)((intvec*)(v->Data()))->rows();
3583  return FALSE;
3584}
3585static BOOLEAN jjRPAR(leftv res, leftv v)
3586{
3587  res->data = (char *)rPar(((ring)v->Data()));
3588  return FALSE;
3589}
3590static BOOLEAN jjSTD(leftv res, leftv v)
3591{
3592  ideal result;
3593  intvec *w=(intvec *)atGet(v,"isHomog");
3594  tHomog hom=testHomog;
3595  if (w!=NULL)
3596  {
3597    w=ivCopy(w);
3598    hom=isHomog;
3599  }
3600  result=kStd((ideal)(v->Data()),currQuotient,hom,&w);
3601  idSkipZeroes(result);
3602  res->data = (char *)result;
3603  setFlag(res,FLAG_STD);
3604  if (w!=NULL) atSet(res,omStrDup("isHomog"),w,INTVEC_CMD);
3605  return FALSE;
3606}
3607static BOOLEAN jjSort_Id(leftv res, leftv v)
3608{
3609  res->data = (char *)idSort((ideal)v->Data());
3610  return FALSE;
3611}
3612static BOOLEAN jjSYZYGY(leftv res, leftv v)
3613{
3614  intvec *w=NULL;
3615  res->data = (char *)idSyzygies((ideal)v->Data(),testHomog,&w);
3616  if (w!=NULL) delete w;
3617  return FALSE;
3618}
3619static BOOLEAN jjTRACE_IV(leftv res, leftv v)
3620{
3621  res->data = (char *)ivTrace((intvec*)(v->Data()));
3622  return FALSE;
3623}
3624static BOOLEAN jjTRANSP_IV(leftv res, leftv v)
3625{
3626  res->data = (char *)ivTranp((intvec*)(v->Data()));
3627  return FALSE;
3628}
3629
3630#ifdef HAVE_PLURAL
3631
3632static BOOLEAN jjOPPOSITE(leftv res, leftv a)
3633{
3634  ring    r = (ring)a->Data();
3635  if (rIsPluralRing(r))
3636  { 
3637    res->data = rOpposite(r);
3638  }
3639  else res->data = rCopy(r);
3640  return FALSE;
3641}
3642
3643static BOOLEAN jjENVELOPE(leftv res, leftv a)
3644{
3645  ring    r = (ring)a->Data();
3646  if (rIsPluralRing(r))
3647  { 
3648    //    ideal   i;
3649//     if (a->rtyp == QRING_CMD)
3650//     {
3651//       i = r->qideal;
3652//       r->qideal = NULL;
3653//     }
3654    ring s = rEnvelope(r);
3655//     if (a->rtyp == QRING_CMD)
3656//     {
3657//       ideal is  = idOppose(r,i); /* twostd? */
3658//       is        = idAdd(is,i);
3659//       s->qideal = i;
3660//     }
3661    res->data = s;
3662  }
3663  else  res->data = rCopy(r);
3664  return FALSE;
3665}
3666
3667static BOOLEAN jjTWOSTD(leftv res, leftv a)
3668{
3669  if (rIsPluralRing(currRing))  res->data=(ideal)twostd((ideal)a->Data());
3670  else  res->data=(ideal)a->Data();
3671  setFlag(res,FLAG_STD);
3672  setFlag(res,FLAG_TWOSTD);
3673  return FALSE;
3674}
3675#endif
3676
3677static BOOLEAN jjTYPEOF(leftv res, leftv v)
3678{
3679  switch ((int)v->data)
3680  {
3681    case INT_CMD:     res->data=omStrDup("int"); break;
3682    case POLY_CMD:   res->data=omStrDup("poly"); break;
3683    case VECTOR_CMD:  res->data=omStrDup("vector"); break;
3684    case STRING_CMD:  res->data=omStrDup("string"); break;
3685    case INTVEC_CMD:  res->data=omStrDup("intvec"); break;
3686    case IDEAL_CMD:   res->data=omStrDup("ideal"); break;
3687    case MATRIX_CMD: res->data=omStrDup("matrix"); break;
3688    case MODUL_CMD:   res->data=omStrDup("module"); break;
3689    case MAP_CMD:     res->data=omStrDup("map"); break;
3690    case PROC_CMD:    res->data=omStrDup("proc"); break;
3691    case RING_CMD:    res->data=omStrDup("ring"); break;
3692    case QRING_CMD:   res->data=omStrDup("qring"); break;
3693    case INTMAT_CMD:  res->data=omStrDup("intmat"); break;
3694    case NUMBER_CMD:  res->data=omStrDup("number"); break;
3695    case LIST_CMD:   res->data=omStrDup("list"); break;
3696    case PACKAGE_CMD: res->data=omStrDup("package"); break;
3697    case LINK_CMD:   res->data=omStrDup("link"); break;
3698    case RESOLUTION_CMD:res->data=omStrDup("resolution");break;
3699    case DEF_CMD:
3700    case NONE:    res->data=omStrDup("none"); break;
3701    default:       res->data=omStrDup("?unknown type?");
3702  }
3703  return FALSE;
3704}
3705static BOOLEAN jjVAR1(leftv res, leftv v)
3706{
3707  int i=(int)v->Data();
3708  if ((0<i) && (i<=currRing->N))
3709  {
3710    poly p=pOne();
3711    pSetExp(p,i,1);
3712    pSetm(p);
3713    res->data=(char *)p;
3714  }
3715  else
3716  {
3717    Werror("var number %d out of range 1..%d",i,currRing->N);
3718    return TRUE;
3719  }
3720  return FALSE;
3721}
3722static BOOLEAN jjVARSTR1(leftv res, leftv v)
3723{
3724  if (currRing==NULL)
3725  {
3726    WerrorS("no ring active");
3727    return TRUE;
3728  }
3729  int i=(int)v->Data();
3730  if ((0<i) && (i<=currRing->N))
3731    res->data=omStrDup(currRing->names[i-1]);
3732  else
3733  {
3734    Werror("var number %d out of range 1..%d",i,currRing->N);
3735    return TRUE;
3736  }
3737  return FALSE;
3738}
3739static BOOLEAN jjVDIM(leftv res, leftv v)
3740{
3741  assumeStdFlag(v);
3742  res->data = (char *)scMult0Int((ideal)v->Data(),currQuotient);
3743  return FALSE;
3744}
3745
3746static BOOLEAN jjLOAD1(leftv res, leftv v)
3747{
3748  return jjLOAD(res, v);
3749}
3750
3751static BOOLEAN jjLOAD(leftv res, leftv v, BOOLEAN autoexport)
3752{
3753  char * s=(char *)v->CopyD();
3754  char libnamebuf[256];
3755  lib_types LT = type_of_LIB(s, libnamebuf);
3756#ifdef HAVE_DYNAMIC_LOADING
3757  extern BOOLEAN load_modules(char *newlib, char *fullpath, BOOLEAN tellerror);
3758#endif /* HAVE_DYNAMIC_LOADING */
3759
3760  switch(LT)
3761  {
3762      default:
3763      case LT_NONE:
3764        Werror("%s: unknown type", s);
3765        break;
3766      case LT_NOTFOUND:
3767        Werror("cannot open %s", s);
3768        break;
3769
3770      case LT_SINGULAR:
3771        return iiLibCmd(s);
3772
3773      case LT_ELF:
3774      case LT_HPUX:
3775#ifdef HAVE_DYNAMIC_LOADING
3776        return load_modules(s, libnamebuf, autoexport);
3777#else /* HAVE_DYNAMIC_LOADING */
3778        WerrorS("Dynamic modules are not supported by this version of Singular");
3779        break;
3780#endif /* HAVE_DYNAMIC_LOADING */
3781  }
3782  return TRUE;
3783}
3784
3785/*=================== operations with 1 arg.: table =================*/
3786
3787#ifdef INIT_BUG
3788#define XS(A) -((short)A)
3789#define jjstrlen       (proc1)1
3790#define jjpLength      (proc1)2
3791#define jjidElem       (proc1)3
3792#define jjmpDetBareiss (proc1)4
3793#define jjidFreeModule (proc1)5
3794#define jjidVec2Ideal  (proc1)6
3795#define jjrCharStr     (proc1)7
3796#ifndef MDEBUG
3797#define jjpHead        (proc1)8
3798#endif
3799#define jjidHead       (proc1)9
3800#define jjidMaxIdeal   (proc1)10
3801#define jjidMinBase    (proc1)11
3802#define jjsyMinBase    (proc1)12
3803#define jjpMaxComp     (proc1)13
3804#define jjmpTrace      (proc1)14
3805#define jjmpTransp     (proc1)15
3806#define jjrOrdStr      (proc1)16
3807#define jjrVarStr      (proc1)18
3808#define jjrParStr      (proc1)19
3809#define jjCOUNT_RES    (proc1)22
3810#define jjDIM_R        (proc1)23
3811#define jjMINRES_R     (proc1)24
3812#define jjidTransp     (proc1)25
3813
3814extern struct sValCmd1 dArith1[];
3815void jjInitTab1()
3816{
3817  int i=0;
3818  for (;dArith1[i].cmd!=0;i++)
3819  {
3820    if (dArith1[i].res<0)
3821    {
3822      switch ((int)dArith1[i].p)
3823      {
3824        case (int)jjstrlen:       dArith1[i].p=(proc1)strlen; break;
3825        case (int)jjpLength:      dArith1[i].p=(proc1)pLength; break;
3826        case (int)jjidElem:       dArith1[i].p=(proc1)idElem; break;
3827        case (int)jjidVec2Ideal:  dArith1[i].p=(proc1)idVec2Ideal; break;
3828#ifndef HAVE_FACTORY
3829        case (int)jjmpDetBareiss: dArith1[i].p=(proc1)mpDetBareiss; break;
3830#endif
3831        case (int)jjidFreeModule: dArith1[i].p=(proc1)idFreeModule; break;
3832        case (int)jjrCharStr:     dArith1[i].p=(proc1)rCharStr; break;
3833#ifndef MDEBUG
3834        case (int)jjpHead:        dArith1[i].p=(proc1)pHeadProc; break;
3835#endif
3836        case (int)jjidHead:       dArith1[i].p=(proc1)idHead; break;
3837        case (int)jjidMaxIdeal:   dArith1[i].p=(proc1)idMaxIdeal; break;
3838        case (int)jjidMinBase:    dArith1[i].p=(proc1)idMinBase; break;
3839        case (int)jjsyMinBase:    dArith1[i].p=(proc1)syMinBase; break;
3840        case (int)jjpMaxComp:     dArith1[i].p=(proc1)pMaxCompProc; break;
3841        case (int)jjmpTrace:      dArith1[i].p=(proc1)mpTrace; break;
3842        case (int)jjmpTransp:     dArith1[i].p=(proc1)mpTransp; break;
3843        case (int)jjrOrdStr:      dArith1[i].p=(proc1)rOrdStr; break;
3844        case (int)jjrVarStr:      dArith1[i].p=(proc1)rVarStr; break;
3845        case (int)jjrParStr:      dArith1[i].p=(proc1)rParStr; break;
3846        case (int)jjCOUNT_RES:    dArith1[i].p=(proc1)syLength; break;
3847        case (int)jjDIM_R:        dArith1[i].p=(proc1)syDim; break;
3848        case (int)jjMINRES_R:     dArith1[i].p=(proc1)syMinimize; break;
3849        case (int)jjidTransp:     dArith1[i].p=(proc1)idTransp; break;
3850#ifdef GENTABLE
3851        default: Werror("missing proc1-definition for %d",(int)dArith1[i].p);
3852#endif
3853      }
3854    }
3855  }
3856}
3857#else
3858#if defined(PROC_BUG)
3859#define XS(A) A
3860static BOOLEAN jjstrlen(leftv res, leftv v)
3861{
3862  res->data = (char *)strlen((char *)v->Data());
3863  return FALSE;
3864}
3865static BOOLEAN jjpLength(leftv res, leftv v)
3866{
3867  res->data = (char *)pLength((poly)v->Data());
3868  return FALSE;
3869}
3870static BOOLEAN jjidElem(leftv res, leftv v)
3871{
3872  res->data = (char *)idElem((ideal)v->Data());
3873  return FALSE;
3874}
3875static BOOLEAN jjmpDetBareiss(leftv res, leftv v)
3876{
3877  res->data = (char *)mpDetBareiss((matrix)v->Data());
3878  return FALSE;
3879}
3880static BOOLEAN jjidFreeModule(leftv res, leftv v)
3881{
3882  res->data = (char *)idFreeModule((int)v->Data());
3883  return FALSE;
3884}
3885static BOOLEAN jjidVec2Ideal(leftv res, leftv v)
3886{
3887  res->data = (char *)idVec2Ideal((poly)v->Data());
3888  return FALSE;
3889}
3890static BOOLEAN jjrCharStr(leftv res, leftv v)
3891{
3892  res->data = rCharStr((ring)v->Data());
3893  return FALSE;
3894}
3895#ifndef MDEBUG
3896static BOOLEAN jjpHead(leftv res, leftv v)
3897{
3898  res->data = (char *)pHead((poly)v->Data());
3899  return FALSE;
3900}
3901#endif
3902static BOOLEAN jjidHead(leftv res, leftv v)
3903{
3904  res->data = (char *)idHead((ideal)v->Data());
3905  return FALSE;
3906}
3907static BOOLEAN jjidMaxIdeal(leftv res, leftv v)
3908{
3909  res->data = (char *)idMaxIdeal((int)v->Data());
3910  return FALSE;
3911}
3912static BOOLEAN jjidMinBase(leftv res, leftv v)
3913{
3914  res->data = (char *)idMinBase((ideal)v->Data());
3915  return FALSE;
3916}
3917static BOOLEAN jjsyMinBase(leftv res, leftv v)
3918{
3919  res->data = (char *)syMinBase((ideal)v->Data());
3920  return FALSE;
3921}
3922static BOOLEAN jjpMaxComp(leftv res, leftv v)
3923{
3924  res->data = (char *)pMaxComp((poly)v->Data());
3925  return FALSE;
3926}
3927static BOOLEAN jjmpTrace(leftv res, leftv v)
3928{
3929  res->data = (char *)mpTrace((matrix)v->Data());
3930  return FALSE;
3931}
3932static BOOLEAN jjmpTransp(leftv res, leftv v)
3933{
3934  res->data = (char *)mpTransp((matrix)v->Data());
3935  return FALSE;
3936}
3937static BOOLEAN jjrOrdStr(leftv res, leftv v)
3938{
3939  res->data = rOrdStr((ring)v->Data());
3940  return FALSE;
3941}
3942static BOOLEAN jjrVarStr(leftv res, leftv v)
3943{
3944  res->data = rVarStr((ring)v->Data());
3945  return FALSE;
3946}
3947static BOOLEAN jjrParStr(leftv res, leftv v)
3948{
3949  res->data = rParStr((ring)v->Data());
3950  return FALSE;
3951}
3952static BOOLEAN jjCOUNT_RES(leftv res, leftv v)
3953{
3954  res->data=(char *)syLength((syStrategy)v->Data());
3955  return FALSE;
3956}
3957static BOOLEAN jjDIM_R(leftv res, leftv v)
3958{
3959  res->data = (char *)syDim((syStrategy)v->Data());
3960  return FALSE;
3961}
3962static BOOLEAN jjMINRES_R(leftv res, leftv v)
3963{
3964  res->data=(char *)syMinimize((syStrategy)v->Data());
3965  return FALSE;
3966}
3967static BOOLEAN jjidTransp(leftv res, leftv v)
3968{
3969  res->data = (char *)idTransp((ideal)v->Data());
3970  return FALSE;
3971}
3972#else
3973#define XS(A)          -((short)A)
3974#define jjstrlen       (proc1)strlen
3975#define jjpLength      (proc1)pLength
3976#define jjidElem       (proc1)idElem
3977#define jjmpDetBareiss (proc1)mpDetBareiss
3978#define jjidFreeModule (proc1)idFreeModule
3979#define jjidVec2Ideal  (proc1)idVec2Ideal
3980#define jjrCharStr     (proc1)rCharStr
3981#ifndef MDEBUG
3982#define jjpHead        (proc1)pHeadProc
3983#endif
3984#define jjidHead       (proc1)idHead
3985#define jjidMaxIdeal   (proc1)idMaxIdeal
3986#define jjidMinBase    (proc1)idMinBase
3987#define jjsyMinBase    (proc1)syMinBase
3988#define jjpMaxComp     (proc1)pMaxCompProc
3989#define jjmpTrace      (proc1)mpTrace
3990#define jjmpTransp     (proc1)mpTransp
3991#define jjrOrdStr      (proc1)rOrdStr
3992#define jjrVarStr      (proc1)rVarStr
3993#define jjrParStr      (proc1)rParStr
3994#define jjCOUNT_RES    (proc1)syLength
3995#define jjDIM_R        (proc1)syDim
3996#define jjMINRES_R     (proc1)syMinimize
3997#define jjidTransp     (proc1)idTransp
3998#endif
3999#endif
4000static BOOLEAN jjnInt(leftv res, leftv u)
4001{
4002  number n=(number)u->CopyD(NUMBER_CMD);
4003  res->data=(char *)nInt(n);
4004  nDelete(&n);
4005  return FALSE;
4006}
4007#define s short
4008struct sValCmd1 dArith1[]=
4009{
4010// operations:
4011// proc         cmd               res             arg           plural
4012// {jjPLUSPLUS,   PLUSPLUS,        INT_CMD,        INT_CMD      ALLOW_PLURAL}
4013//,{jjMINUSMINUS, MINUSMINUS,      INT_CMD,        INT_CMD      ALLOW_PLURAL}
4014 {jjPLUSPLUS,   PLUSPLUS,        NONE,           IDHDL          ALLOW_PLURAL}
4015,{jjPLUSPLUS,   MINUSMINUS,      NONE,           IDHDL          ALLOW_PLURAL}
4016,{jjUMINUS_I,   '-',             INT_CMD,        INT_CMD        ALLOW_PLURAL}
4017,{jjUMINUS_N,   '-',             NUMBER_CMD,     NUMBER_CMD     ALLOW_PLURAL}
4018,{jjUMINUS_P,   '-',             POLY_CMD,       POLY_CMD       ALLOW_PLURAL}
4019,{jjUMINUS_P,   '-',             VECTOR_CMD,     VECTOR_CMD     ALLOW_PLURAL}
4020,{jjUMINUS_MA,  '-',             MATRIX_CMD,     MATRIX_CMD     ALLOW_PLURAL}
4021,{jjUMINUS_IV,  '-',             INTVEC_CMD,     INTVEC_CMD     ALLOW_PLURAL}
4022,{jjUMINUS_IV,  '-',             INTMAT_CMD,     INTMAT_CMD     ALLOW_PLURAL}
4023,{jjPROC1,      '(',             ANY_TYPE/*set by p*/,PROC_CMD  ALLOW_PLURAL}
4024,{jjLOAD1,      '(',             NONE,           STRING_CMD     ALLOW_PLURAL}
4025// and the procedures with 1 argument:
4026,{atATTRIB1,    ATTRIB_CMD,      NONE,           DEF_CMD        ALLOW_PLURAL}
4027//,{jjBAREISS_IM, BAREISS_CMD,     INTMAT_CMD,     INTMAT_CMD   NO_PLURAL}
4028,{jjBAREISS,    BAREISS_CMD,     LIST_CMD,       MODUL_CMD      NO_PLURAL}
4029,{jjBETTI,      BETTI_CMD,       INTMAT_CMD,     LIST_CMD       ALLOW_PLURAL}
4030,{syBetti1,     BETTI_CMD,       INTMAT_CMD,     RESOLUTION_CMD ALLOW_PLURAL}
4031,{jjBETTI,      BETTI_CMD,       INTMAT_CMD,     IDEAL_CMD      ALLOW_PLURAL}
4032,{jjBETTI,      BETTI_CMD,       INTMAT_CMD,     MODUL_CMD      ALLOW_PLURAL}
4033,{jjCHAR,       CHARACTERISTIC_CMD, INT_CMD,     RING_CMD       ALLOW_PLURAL}
4034,{jjCHAR,       CHARACTERISTIC_CMD, INT_CMD,     QRING_CMD      ALLOW_PLURAL}
4035#ifdef HAVE_FACTORY
4036,{jjCHARSERIES, CHAR_SERIES_CMD, MATRIX_CMD,     IDEAL_CMD      NO_PLURAL}
4037#else
4038,{jjWRONG,      CHAR_SERIES_CMD, MATRIX_CMD,     IDEAL_CMD      NO_PLURAL}
4039#endif
4040,{jjrCharStr,   CHARSTR_CMD,     XS(STRING_CMD), RING_CMD       ALLOW_PLURAL}
4041,{jjrCharStr,   CHARSTR_CMD,     XS(STRING_CMD), QRING_CMD      ALLOW_PLURAL}
4042,{jjOpenClose,  CLOSE_CMD,       NONE,           LINK_CMD       ALLOW_PLURAL}
4043//,{jjWRONG,      COLS_CMD,        0,              VECTOR_CMD   ALLOW_PLURAL}
4044,{jjCOLS,       COLS_CMD,        INT_CMD,        MATRIX_CMD     ALLOW_PLURAL}
4045,{jjCOLS,       COLS_CMD,        INT_CMD,        IDEAL_CMD      ALLOW_PLURAL}
4046,{jjCOLS,       COLS_CMD,        INT_CMD,        MODUL_CMD      ALLOW_PLURAL}
4047,{jjCOLS_IV,    COLS_CMD,        INT_CMD,        INTMAT_CMD     ALLOW_PLURAL}
4048,{jjWRONG,      COLS_CMD,        0,              INTVEC_CMD     ALLOW_PLURAL}
4049,{jjCONTENT,    CONTENT_CMD,     POLY_CMD,       POLY_CMD       ALLOW_PLURAL}
4050,{jjCONTENT,    CONTENT_CMD,     VECTOR_CMD,     VECTOR_CMD     ALLOW_PLURAL}
4051,{jjCOUNT_N,    COUNT_CMD,       INT_CMD,        NUMBER_CMD     ALLOW_PLURAL}
4052,{jjCOUNT_RES,  COUNT_CMD,       XS(INT_CMD),    RESOLUTION_CMD NO_PLURAL}
4053,{jjstrlen,     COUNT_CMD,       XS(INT_CMD),    STRING_CMD     ALLOW_PLURAL}
4054,{jjpLength,    COUNT_CMD,       XS(INT_CMD),    POLY_CMD       ALLOW_PLURAL}
4055,{jjpLength,    COUNT_CMD,       XS(INT_CMD),    VECTOR_CMD     ALLOW_PLURAL}
4056,{jjidElem,     COUNT_CMD,       XS(INT_CMD),    IDEAL_CMD      ALLOW_PLURAL}
4057,{jjidElem,     COUNT_CMD,       XS(INT_CMD),    MODUL_CMD      ALLOW_PLURAL}
4058,{jjCOUNT_M,    COUNT_CMD,       INT_CMD,        MATRIX_CMD     ALLOW_PLURAL}
4059,{jjCOUNT_IV,   COUNT_CMD,       INT_CMD,        INTVEC_CMD     ALLOW_PLURAL}
4060,{jjCOUNT_IV,   COUNT_CMD,       INT_CMD,        INTMAT_CMD     ALLOW_PLURAL}
4061,{jjCOUNT_L,    COUNT_CMD,       INT_CMD,        LIST_CMD       ALLOW_PLURAL}
4062,{jjCOUNT_RG,   COUNT_CMD,       INT_CMD,        RING_CMD       ALLOW_PLURAL}
4063,{jjNULL,       DEF_CMD,         DEF_CMD,        INT_CMD        ALLOW_PLURAL}
4064,{jjWRONG,      DEF_CMD,         0,              ANY_TYPE       ALLOW_PLURAL}
4065,{jjDEG,        DEG_CMD,         INT_CMD,        POLY_CMD       ALLOW_PLURAL}
4066,{jjDEG,        DEG_CMD,         INT_CMD,        VECTOR_CMD     ALLOW_PLURAL}
4067,{jjDEG_M,      DEG_CMD,         INT_CMD,        MATRIX_CMD     ALLOW_PLURAL}
4068,{jjDEGREE,     DEGREE_CMD,      NONE,           IDEAL_CMD      NO_PLURAL}
4069,{jjDEGREE,     DEGREE_CMD,      NONE,           MODUL_CMD      NO_PLURAL}
4070,{jjDEFINED,    DEFINED_CMD,     INT_CMD,        DEF_CMD        ALLOW_PLURAL}
4071#ifdef HAVE_FACTORY
4072,{jjDET_I,      DET_CMD,         INT_CMD,        INTMAT_CMD     ALLOW_PLURAL}
4073,{jjDET,        DET_CMD,         POLY_CMD,       MATRIX_CMD     NO_PLURAL}
4074,{jjDET_S,      DET_CMD,         POLY_CMD,       MODUL_CMD      NO_PLURAL}
4075#else
4076,{jjWRONG,      DET_CMD,         INT_CMD,        INTMAT_CMD     ALLOW_PLURAL}
4077,{jjmpDetBareiss,DET_CMD,        XS(POLY_CMD),   MATRIX_CMD     NO_PLURAL}
4078#endif
4079,{jjDIM,        DIM_CMD,         INT_CMD,        IDEAL_CMD      NO_PLURAL}
4080,{jjDIM,        DIM_CMD,         INT_CMD,        MODUL_CMD      NO_PLURAL}
4081,{jjDIM_R,      DIM_CMD,         XS(INT_CMD),    RESOLUTION_CMD NO_PLURAL}
4082,{jjDUMP,       DUMP_CMD,        NONE,           LINK_CMD       ALLOW_PLURAL}
4083,{jjE,          E_CMD,           VECTOR_CMD,     INT_CMD        ALLOW_PLURAL}
4084,{jjEXECUTE,    EXECUTE_CMD,     NONE,           STRING_CMD     ALLOW_PLURAL}
4085,{jjERROR,      ERROR_CMD,       NONE,           STRING_CMD     ALLOW_PLURAL}
4086#ifdef HAVE_FACTORY
4087,{jjFAC_P,      FAC_CMD,         LIST_CMD,       POLY_CMD       NO_PLURAL}
4088#else
4089,{jjWRONG,      FAC_CMD,         LIST_CMD,       POLY_CMD       NO_PLURAL}
4090#endif
4091#ifdef HAVE_FGLM
4092,{findUniProc,  FINDUNI_CMD,     IDEAL_CMD,      IDEAL_CMD      NO_PLURAL}
4093#else
4094,{jjWRONG,      FINDUNI_CMD,     IDEAL_CMD,      IDEAL_CMD      NO_PLURAL}
4095#endif
4096,{jjidFreeModule,FREEMODULE_CMD, XS(MODUL_CMD),  INT_CMD        ALLOW_PLURAL}
4097#ifdef HAVE_FACTORY
4098,{jjFACSTD,     FACSTD_CMD,      LIST_CMD,       IDEAL_CMD      NO_PLURAL}
4099#else
4100,{jjWRONG,      FACSTD_CMD,      LIST_CMD,       IDEAL_CMD      NO_PLURAL}
4101#endif
4102,{jjGETDUMP,    GETDUMP_CMD,     NONE,           LINK_CMD       ALLOW_PLURAL}
4103,{jjHIGHCORNER, HIGHCORNER_CMD,  POLY_CMD,       IDEAL_CMD      NO_PLURAL}
4104,{jjHIGHCORNER_M, HIGHCORNER_CMD,VECTOR_CMD,     MODUL_CMD      NO_PLURAL}
4105,{jjHILBERT,    HILBERT_CMD,     NONE,           IDEAL_CMD      NO_PLURAL}
4106,{jjHILBERT,    HILBERT_CMD,     NONE,           MODUL_CMD      NO_PLURAL}
4107,{jjHILBERT_IV, HILBERT_CMD,     INTVEC_CMD,     INTVEC_CMD     NO_PLURAL}
4108,{jjHOMOG1,     HOMOG_CMD,       INT_CMD,        IDEAL_CMD      ALLOW_PLURAL}
4109,{jjHOMOG1,     HOMOG_CMD,       INT_CMD,        MODUL_CMD      ALLOW_PLURAL}
4110,{jjidVec2Ideal,IDEAL_CMD,       XS(IDEAL_CMD),  VECTOR_CMD     ALLOW_PLURAL}
4111,{jjIDEAL_Ma,   IDEAL_CMD,       IDEAL_CMD,      MATRIX_CMD     ALLOW_PLURAL}
4112,{jjIDEAL_R,    IDEAL_CMD,       IDEAL_CMD,      QRING_CMD      ALLOW_PLURAL}
4113,{jjIDEAL_R,    IDEAL_CMD,       IDEAL_CMD,      RING_CMD       ALLOW_PLURAL}
4114,{jjIDEAL_Map,  IDEAL_CMD,       IDEAL_CMD,      MAP_CMD        ALLOW_PLURAL}
4115,{jjDUMMY,      IDEAL_CMD,       IDEAL_CMD,      IDEAL_CMD      ALLOW_PLURAL}
4116,{jjIMPART,     IMPART_CMD,      NUMBER_CMD,     NUMBER_CMD     ALLOW_PLURAL}
4117,{jjINDEPSET,   INDEPSET_CMD,    INTVEC_CMD,     IDEAL_CMD      NO_PLURAL}
4118,{jjDUMMY,      INT_CMD,         INT_CMD,        INT_CMD        ALLOW_PLURAL}
4119,{jjnInt,       INT_CMD,         INT_CMD,        NUMBER_CMD     ALLOW_PLURAL}
4120,{jjP2I,        INT_CMD,         INT_CMD,        POLY_CMD       ALLOW_PLURAL}
4121,{jjINTERRED,   INTERRED_CMD,    IDEAL_CMD,      IDEAL_CMD      NO_PLURAL}
4122,{jjINTERRED,   INTERRED_CMD,    MODUL_CMD,      MODUL_CMD      NO_PLURAL}
4123,{jjDUMMY,      INTMAT_CMD,      INTMAT_CMD,     INTMAT_CMD     ALLOW_PLURAL}
4124,{jjIm2Iv,      INTVEC_CMD,      INTVEC_CMD,     INTMAT_CMD     ALLOW_PLURAL}
4125,{jjDUMMY,      INTVEC_CMD,      INTVEC_CMD,     INTVEC_CMD     ALLOW_PLURAL}
4126,{jjIS_RINGVAR_P, IS_RINGVAR,    INT_CMD,        POLY_CMD       ALLOW_PLURAL}
4127,{jjIS_RINGVAR_S, IS_RINGVAR,    INT_CMD,        STRING_CMD     ALLOW_PLURAL}
4128,{jjIS_RINGVAR0,IS_RINGVAR,      INT_CMD,        ANY_TYPE       ALLOW_PLURAL}
4129,{jjJACOB_P,    JACOB_CMD,       IDEAL_CMD,      POLY_CMD       ALLOW_PLURAL}
4130,{mpJacobi,     JACOB_CMD,       MATRIX_CMD,     IDEAL_CMD      ALLOW_PLURAL}
4131,{jjJanetBasis, JANET_CMD,       IDEAL_CMD,      IDEAL_CMD      ALLOW_PLURAL}
4132,{jjKBASE,      KBASE_CMD,       IDEAL_CMD,      IDEAL_CMD      ALLOW_PLURAL}
4133,{jjKBASE,      KBASE_CMD,       MODUL_CMD,      MODUL_CMD      ALLOW_PLURAL}
4134,{atKILLATTR1,  KILLATTR_CMD,    NONE,           IDHDL          ALLOW_PLURAL}
4135#ifdef MDEBUG
4136,{jjpHead,      LEAD_CMD,        POLY_CMD,       POLY_CMD       ALLOW_PLURAL}
4137#else
4138,{jjpHead,      LEAD_CMD,        XS(POLY_CMD),   POLY_CMD       ALLOW_PLURAL}
4139#endif
4140,{jjidHead,     LEAD_CMD,        XS(IDEAL_CMD),  IDEAL_CMD      ALLOW_PLURAL}
4141#ifdef MDEBUG
4142,{jjpHead,      LEAD_CMD,        VECTOR_CMD,     VECTOR_CMD     ALLOW_PLURAL}
4143#else
4144,{jjpHead,      LEAD_CMD,        XS(VECTOR_CMD), VECTOR_CMD     ALLOW_PLURAL}
4145#endif
4146,{jjidHead,     LEAD_CMD,        XS(MODUL_CMD),  MODUL_CMD      ALLOW_PLURAL}
4147,{jjLEADCOEF,   LEADCOEF_CMD,    NUMBER_CMD,     POLY_CMD       ALLOW_PLURAL}
4148,{jjLEADCOEF,   LEADCOEF_CMD,    NUMBER_CMD,     VECTOR_CMD     ALLOW_PLURAL}
4149,{jjLEADEXP,    LEADEXP_CMD,     INTVEC_CMD,     POLY_CMD       ALLOW_PLURAL}
4150,{jjLEADEXP,    LEADEXP_CMD,     INTVEC_CMD,     VECTOR_CMD     ALLOW_PLURAL}
4151,{jjLEADMONOM,  LEADMONOM_CMD,   POLY_CMD,       POLY_CMD       ALLOW_PLURAL}
4152,{jjLEADMONOM,  LEADMONOM_CMD,   VECTOR_CMD,     VECTOR_CMD     ALLOW_PLURAL}
4153,{jjLOAD1,      LIB_CMD,         NONE,           STRING_CMD     ALLOW_PLURAL}
4154,{jjDUMMY,      LINK_CMD,        LINK_CMD,       LINK_CMD       ALLOW_PLURAL}
4155,{jjCALL1MANY,  LIST_CMD,        LIST_CMD,       DEF_CMD        ALLOW_PLURAL}
4156,{jjWRONG,      MAP_CMD,         0,              ANY_TYPE       ALLOW_PLURAL}
4157,{jjDUMMY,      MATRIX_CMD,      MATRIX_CMD,     MATRIX_CMD     ALLOW_PLURAL}
4158,{jjidMaxIdeal, MAXID_CMD,       XS(IDEAL_CMD),  INT_CMD        ALLOW_PLURAL}
4159,{jjMEMORY,     MEMORY_CMD,      INT_CMD,        INT_CMD        ALLOW_PLURAL}
4160,{jjidMinBase,  MINBASE_CMD,     XS(IDEAL_CMD),  IDEAL_CMD      NO_PLURAL}
4161,{jjidMinBase,  MINBASE_CMD,     XS(MODUL_CMD),  MODUL_CMD      NO_PLURAL}
4162,{jjMINRES,     MINRES_CMD,      LIST_CMD,       LIST_CMD       ALLOW_PLURAL}
4163,{jjMINRES_R,   MINRES_CMD,      XS(RESOLUTION_CMD), RESOLUTION_CMD ALLOW_PLURAL}
4164,{jjDUMMY,      MODUL_CMD,       MODUL_CMD,      MODUL_CMD      ALLOW_PLURAL}
4165,{jjMONITOR1,   MONITOR_CMD,     NONE,           STRING_CMD     ALLOW_PLURAL}
4166,{jjMULT,       MULTIPLICITY_CMD,  INT_CMD,      IDEAL_CMD      NO_PLURAL}
4167,{jjMULT,       MULTIPLICITY_CMD,  INT_CMD,      MODUL_CMD      NO_PLURAL}
4168,{jjMSTD,       MSTD_CMD,        LIST_CMD,       IDEAL_CMD      NO_PLURAL}
4169,{jjMSTD,       MSTD_CMD,        LIST_CMD,       MODUL_CMD      NO_PLURAL}
4170,{jjNAMEOF,     NAMEOF_CMD,      STRING_CMD,     ANY_TYPE       ALLOW_PLURAL}
4171,{jjNAMES,      NAMES_CMD,       LIST_CMD,       PACKAGE_CMD    ALLOW_PLURAL}
4172,{jjNAMES,      NAMES_CMD,       LIST_CMD,       RING_CMD       ALLOW_PLURAL}
4173,{jjNAMES,      NAMES_CMD,       LIST_CMD,       QRING_CMD      ALLOW_PLURAL}
4174,{jjDUMMY,      NUMBER_CMD,      NUMBER_CMD,     NUMBER_CMD     ALLOW_PLURAL}
4175,{jjP2N,        NUMBER_CMD,      NUMBER_CMD,     POLY_CMD       ALLOW_PLURAL}
4176,{jjRPAR,       NPARS_CMD,       INT_CMD,        RING_CMD       ALLOW_PLURAL}
4177,{jjRPAR,       NPARS_CMD,       INT_CMD,        QRING_CMD      ALLOW_PLURAL}
4178,{jjNVARS,      NVARS_CMD,       INT_CMD,        RING_CMD       ALLOW_PLURAL}
4179,{jjNVARS,      NVARS_CMD,       INT_CMD,        QRING_CMD      ALLOW_PLURAL}
4180,{jjOpenClose,  OPEN_CMD,        NONE,           LINK_CMD       ALLOW_PLURAL}
4181,{jjORD,        ORD_CMD,         INT_CMD,        POLY_CMD       ALLOW_PLURAL}
4182,{jjORD,        ORD_CMD,         INT_CMD,        VECTOR_CMD     ALLOW_PLURAL}
4183,{jjrOrdStr,    ORDSTR_CMD,      XS(STRING_CMD), RING_CMD       ALLOW_PLURAL}
4184,{jjrOrdStr,    ORDSTR_CMD,      XS(STRING_CMD), QRING_CMD      ALLOW_PLURAL}
4185,{jjPAR1,       PAR_CMD,         NUMBER_CMD,     INT_CMD        ALLOW_PLURAL}
4186,{jjPARDEG,     PARDEG_CMD,      INT_CMD,        NUMBER_CMD     ALLOW_PLURAL}
4187,{jjPARSTR1,    PARSTR_CMD,      STRING_CMD,     INT_CMD        ALLOW_PLURAL}
4188,{jjrParStr,    PARSTR_CMD,      XS(STRING_CMD), RING_CMD       ALLOW_PLURAL}
4189,{jjrParStr,    PARSTR_CMD,      XS(STRING_CMD), QRING_CMD      ALLOW_PLURAL}
4190,{jjDUMMY,      POLY_CMD,        POLY_CMD,       POLY_CMD       ALLOW_PLURAL}
4191,{jjPREIMAGE_R, PREIMAGE_CMD,    RING_CMD,       MAP_CMD        NO_PLURAL}
4192,{jjPRIME,      PRIME_CMD,       INT_CMD,        INT_CMD        ALLOW_PLURAL}
4193,{jjPRINT,      PRINT_CMD,       NONE,           LIST_CMD       ALLOW_PLURAL}
4194,{jjPRINT,      PRINT_CMD,       NONE,           DEF_CMD        ALLOW_PLURAL}
4195,{jjPRUNE,      PRUNE_CMD,       MODUL_CMD,      MODUL_CMD      ALLOW_PLURAL}
4196,{kQHWeight,    QHWEIGHT_CMD,    INTVEC_CMD,     IDEAL_CMD      ALLOW_PLURAL}
4197,{kQHWeight,    QHWEIGHT_CMD,    INTVEC_CMD,     MODUL_CMD      ALLOW_PLURAL}
4198,{jjWRONG,      QRING_CMD,       0,              ANY_TYPE       ALLOW_PLURAL}
4199,{jjREAD,       READ_CMD,        STRING_CMD,     LINK_CMD       ALLOW_PLURAL}
4200,{jjREGULARITY, REGULARITY_CMD,  INT_CMD,        LIST_CMD       NO_PLURAL}
4201,{jjREPART,     REPART_CMD,      NUMBER_CMD,     NUMBER_CMD     ALLOW_PLURAL}
4202,{jjRESERVEDNAME,RESERVEDNAME_CMD, INT_CMD,      STRING_CMD     ALLOW_PLURAL}
4203,{jjL2R,        RESOLUTION_CMD,  RESOLUTION_CMD, LIST_CMD       ALLOW_PLURAL}
4204,{jjDUMMY,      RESOLUTION_CMD,  RESOLUTION_CMD, RESOLUTION_CMD ALLOW_PLURAL}
4205,{jjRINGLIST,   RINGLIST_CMD,    LIST_CMD,       RING_CMD       ALLOW_PLURAL}
4206,{jjRINGLIST,   RINGLIST_CMD,    LIST_CMD,       QRING_CMD      ALLOW_PLURAL}
4207,{jjDUMMY,      RING_CMD,        RING_CMD,       RING_CMD       ALLOW_PLURAL}
4208,{jjLISTRING,   RING_CMD,        RING_CMD,       LIST_CMD       ALLOW_PLURAL}
4209//,{jjWRONG,      ROWS_CMD,        0,              POLY_CMD     ALLOW_PLURAL}
4210,{jjpMaxComp,   ROWS_CMD,        XS(INT_CMD),    VECTOR_CMD     ALLOW_PLURAL}
4211,{jjROWS,       ROWS_CMD,        INT_CMD,        MODUL_CMD      ALLOW_PLURAL}
4212,{jjROWS,       ROWS_CMD,        INT_CMD,        MATRIX_CMD     ALLOW_PLURAL}
4213,{jjROWS_IV,    ROWS_CMD,        INT_CMD,        INTMAT_CMD     ALLOW_PLURAL}
4214,{jjCOUNT_IV,   ROWS_CMD,        INT_CMD,        INTVEC_CMD     ALLOW_PLURAL}
4215,{jjSort_Id,    SORTVEC_CMD,     INTVEC_CMD,     IDEAL_CMD      ALLOW_PLURAL}
4216,{jjSort_Id,    SORTVEC_CMD,     INTVEC_CMD,     MODUL_CMD      ALLOW_PLURAL}
4217,{jjSTD,        STD_CMD,         IDEAL_CMD,      IDEAL_CMD      ALLOW_PLURAL}
4218,{jjSTD,        STD_CMD,         MODUL_CMD,      MODUL_CMD      ALLOW_PLURAL}
4219,{jjDUMMY,      STRING_CMD,      STRING_CMD,     STRING_CMD     ALLOW_PLURAL}
4220,{jjSYSTEM,     SYSTEM_CMD,      NONE,           STRING_CMD     ALLOW_PLURAL}
4221,{jjSYZYGY,     SYZYGY_CMD,      MODUL_CMD,      IDEAL_CMD      ALLOW_PLURAL}
4222,{jjSYZYGY,     SYZYGY_CMD,      MODUL_CMD,      MODUL_CMD      ALLOW_PLURAL}
4223#ifdef HAVE_PLURAL
4224,{jjENVELOPE,   ENVELOPE_CMD,    RING_CMD,       RING_CMD       ALLOW_PLURAL}
4225,{jjENVELOPE,   ENVELOPE_CMD,    QRING_CMD,      QRING_CMD      ALLOW_PLURAL}
4226,{jjOPPOSITE,   OPPOSITE_CMD,    RING_CMD,       RING_CMD       ALLOW_PLURAL}
4227,{jjOPPOSITE,   OPPOSITE_CMD,    QRING_CMD,      QRING_CMD      ALLOW_PLURAL}
4228,{jjTWOSTD,     TWOSTD_CMD,      IDEAL_CMD,      IDEAL_CMD      ALLOW_PLURAL}
4229#endif
4230,{jjWRONG,      TRACE_CMD,       0,              INTVEC_CMD     ALLOW_PLURAL}
4231,{jjWRONG,      TRACE_CMD,       0,              IDEAL_CMD      ALLOW_PLURAL}
4232,{jjTRACE_IV,   TRACE_CMD,       INT_CMD,        INTMAT_CMD     ALLOW_PLURAL}
4233,{jjmpTrace,    TRACE_CMD,       XS(POLY_CMD),   MATRIX_CMD     ALLOW_PLURAL}
4234,{jjTRANSP_IV,  TRANSPOSE_CMD,   INTMAT_CMD,     INTVEC_CMD     ALLOW_PLURAL}
4235,{jjTRANSP_IV,  TRANSPOSE_CMD,   INTMAT_CMD,     INTMAT_CMD     ALLOW_PLURAL}
4236,{jjmpTransp,   TRANSPOSE_CMD,   XS(MATRIX_CMD), MATRIX_CMD     ALLOW_PLURAL}
4237,{jjidTransp,   TRANSPOSE_CMD,   XS(MODUL_CMD),  MODUL_CMD      ALLOW_PLURAL}
4238,{jjTYPEOF,     TYPEOF_CMD,      STRING_CMD,     ANY_TYPE       ALLOW_PLURAL}
4239,{jjDUMMY,      VECTOR_CMD,      VECTOR_CMD,     VECTOR_CMD     ALLOW_PLURAL}
4240,{jjVDIM,       VDIM_CMD,        INT_CMD,        IDEAL_CMD      ALLOW_PLURAL}
4241,{jjVDIM,       VDIM_CMD,        INT_CMD,        MODUL_CMD      ALLOW_PLURAL}
4242,{jjVAR1,       VAR_CMD,         POLY_CMD,       INT_CMD        ALLOW_PLURAL}
4243,{jjVARSTR1,    VARSTR_CMD,      STRING_CMD,     INT_CMD        ALLOW_PLURAL}
4244,{jjrVarStr,    VARSTR_CMD,      XS(STRING_CMD), RING_CMD       ALLOW_PLURAL}
4245,{jjrVarStr,    VARSTR_CMD,      XS(STRING_CMD), QRING_CMD      ALLOW_PLURAL}
4246,{kWeight,      WEIGHT_CMD,      INTVEC_CMD,     IDEAL_CMD      ALLOW_PLURAL}
4247,{kWeight,      WEIGHT_CMD,      INTVEC_CMD,     MODUL_CMD      ALLOW_PLURAL}
4248,{jjLOAD1,      LOAD_CMD,        NONE,           STRING_CMD     ALLOW_PLURAL}
4249,{loNewtonP,    NEWTONPOLY_CMD,  IDEAL_CMD,      IDEAL_CMD      ALLOW_PLURAL}
4250,{NULL,         0,               0,              0              NO_PLURAL}
4251};
4252#undef s
4253/*=================== operations with 3 args.: static proc =================*/
4254static BOOLEAN jjBRACK_S(leftv res, leftv u, leftv v,leftv w)
4255{
4256  char *s= (char *)u->Data();
4257  int   r = (int)v->Data();
4258  int   c = (int)w->Data();
4259  int l = strlen(s);
4260
4261  if ( (r<1) || (r>l) || (c<0) )
4262  {
4263    Werror("wrong range[%d,%d] in string %s",r,c,u->Fullname());
4264    return TRUE;
4265  }
4266  res->data = (char *)omAlloc(c+1);
4267  sprintf((char *)res->data,"%-*.*s",c,c,s+r-1);
4268  return FALSE;
4269}
4270static BOOLEAN jjBRACK_Im(leftv res, leftv u, leftv v,leftv w)
4271{
4272  intvec *iv = (intvec *)u->Data();
4273  int   r = (int)v->Data();
4274  int   c = (int)w->Data();
4275  if ((r<1)||(r>iv->rows())||(c<1)||(c>iv->cols()))
4276  {
4277    Werror("wrong range[%d,%d] in intmat %s(%d x %d)",
4278           r,c,u->Fullname(),iv->rows(),iv->cols());
4279    return TRUE;
4280  }
4281  res->data=u->data;
4282  u->data=NULL;
4283  res->rtyp=u->rtyp;
4284  u->rtyp=0;
4285  res->name=u->name;
4286  u->name=NULL;
4287  Subexpr e=jjMakeSub(v);
4288          e->next=jjMakeSub(w);
4289  if (u->e==NULL) res->e=e;
4290  else
4291  {
4292    Subexpr h=u->e;
4293    while (h->next!=NULL) h=h->next;
4294    h->next=e;
4295    res->e=u->e;
4296    u->e=NULL;
4297  }
4298  return FALSE;
4299}
4300static BOOLEAN jjBRACK_Ma(leftv res, leftv u, leftv v,leftv w)
4301{
4302  matrix m= (matrix)u->Data();
4303  int   r = (int)v->Data();
4304  int   c = (int)w->Data();
4305  //Print("gen. elem %d, %d\n",r,c);
4306  if ((r<1)||(r>MATROWS(m))||(c<1)||(c>MATCOLS(m)))
4307  {
4308    Werror("wrong range[%d,%d] in matrix %s(%d x %d)",r,c,u->Fullname(),
4309      MATROWS(m),MATCOLS(m));
4310    return TRUE;
4311  }
4312  res->data=u->data;
4313  u->data=NULL;
4314  res->rtyp=u->rtyp;
4315  u->rtyp=0;
4316  res->name=u->name;
4317  u->name=NULL;
4318  Subexpr e=jjMakeSub(v);
4319          e->next=jjMakeSub(w);
4320  if (u->e==NULL)
4321    res->e=e;
4322  else
4323  {
4324    Subexpr h=u->e;
4325    while (h->next!=NULL) h=h->next;
4326    h->next=e;
4327    res->e=u->e;
4328    u->e=NULL;
4329  }
4330  return FALSE;
4331}
4332static BOOLEAN jjBRACK_Ma_I_IV(leftv res, leftv u, leftv v,leftv w)
4333{
4334  sleftv t;
4335  sleftv ut;
4336  leftv p=NULL;
4337  intvec *iv=(intvec *)w->Data();
4338  int l;
4339  BOOLEAN nok;
4340
4341  if ((u->rtyp!=IDHDL)||(u->e!=NULL))
4342  {
4343    WerrorS("cannot build expression lists from unnamed objects");
4344    return TRUE;
4345  }
4346  memcpy(&ut,u,sizeof(ut));
4347  memset(&t,0,sizeof(t));
4348  t.rtyp=INT_CMD;
4349  for (l=0;l< iv->length(); l++)
4350  {
4351    t.data=(char *)(*iv)[l];
4352    if (p==NULL)
4353    {
4354      p=res;
4355    }
4356    else
4357    {
4358      p->next=(leftv)omAlloc0Bin(sleftv_bin);
4359      p=p->next;
4360    }
4361    memcpy(u,&ut,sizeof(ut));
4362    if (u->Typ() == MATRIX_CMD)
4363      nok=jjBRACK_Ma(p,u,v,&t);
4364    else /* INTMAT_CMD */
4365      nok=jjBRACK_Im(p,u,v,&t);
4366    if (nok)
4367    {
4368      while (res->next!=NULL)
4369      {
4370        p=res->next->next;
4371        omFreeBin((ADDRESS)res->next, sleftv_bin);
4372        // res->e aufraeumen !!!!
4373        res->next=p;
4374      }
4375      return TRUE;
4376    }
4377  }
4378  return FALSE;
4379}
4380static BOOLEAN jjBRACK_Ma_IV_I(leftv res, leftv u, leftv v,leftv w)
4381{
4382  sleftv t;
4383  sleftv ut;
4384  leftv p=NULL;
4385  intvec *iv=(intvec *)v->Data();
4386  int l;
4387  BOOLEAN nok;
4388
4389  if ((u->rtyp!=IDHDL)||(u->e!=NULL))
4390  {
4391    WerrorS("cannot build expression lists from unnamed objects");
4392    return TRUE;
4393  }
4394  memcpy(&ut,u,sizeof(ut));
4395  memset(&t,0,sizeof(t));
4396  t.rtyp=INT_CMD;
4397  for (l=0;l< iv->length(); l++)
4398  {
4399    t.data=(char *)((*iv)[l]);
4400    if (p==NULL)
4401    {
4402      p=res;
4403    }
4404    else
4405    {
4406      p->next=(leftv)omAlloc0Bin(sleftv_bin);
4407      p=p->next;
4408    }
4409    memcpy(u,&ut,sizeof(ut));
4410    if (u->Typ() == MATRIX_CMD)
4411      nok=jjBRACK_Ma(p,u,&t,w);
4412    else /* INTMAT_CMD */
4413      nok=jjBRACK_Im(p,u,&t,w);
4414    if (nok)
4415    {
4416      while (res->next!=NULL)
4417      {
4418        p=res->next->next;
4419        omFreeBin((ADDRESS)res->next, sleftv_bin);
4420        // res->e aufraeumen !!
4421        res->next=p;
4422      }
4423      return TRUE;
4424    }
4425  }
4426  return FALSE;
4427}
4428static BOOLEAN jjBRACK_Ma_IV_IV(leftv res, leftv u, leftv v,leftv w)
4429{
4430  sleftv t1,t2,ut;
4431  leftv p=NULL;
4432  intvec *vv=(intvec *)v->Data();
4433  intvec *wv=(intvec *)w->Data();
4434  int vl;
4435  int wl;
4436  BOOLEAN nok;
4437
4438  if ((u->rtyp!=IDHDL)||(u->e!=NULL))
4439  {
4440    WerrorS("cannot build expression lists from unnamed objects");
4441    return TRUE;
4442  }
4443  memcpy(&ut,u,sizeof(ut));
4444  memset(&t1,0,sizeof(sleftv));
4445  memset(&t2,0,sizeof(sleftv));
4446  t1.rtyp=INT_CMD;
4447  t2.rtyp=INT_CMD;
4448  for (vl=0;vl< vv->length(); vl++)
4449  {
4450    t1.data=(char *)((*vv)[vl]);
4451    for (wl=0;wl< wv->length(); wl++)
4452    {
4453      t2.data=(char *)((*wv)[wl]);
4454      if (p==NULL)
4455      {
4456        p=res;
4457      }
4458      else
4459      {
4460        p->next=(leftv)omAlloc0Bin(sleftv_bin);
4461        p=p->next;
4462      }
4463      memcpy(u,&ut,sizeof(ut));
4464      if (u->Typ() == MATRIX_CMD)
4465        nok=jjBRACK_Ma(p,u,&t1,&t2);
4466      else /* INTMAT_CMD */
4467        nok=jjBRACK_Im(p,u,&t1,&t2);
4468      if (nok)
4469      {
4470        res->CleanUp();
4471        return TRUE;
4472      }
4473    }
4474  }
4475  return FALSE;
4476}
4477static BOOLEAN jjPROC3(leftv res, leftv u, leftv v, leftv w)
4478{
4479  v->next=(leftv)omAllocBin(sleftv_bin);
4480  memcpy(v->next,w,sizeof(sleftv));
4481  memset(w,0,sizeof(sleftv));
4482  return jjPROC(res,u,v);
4483}
4484static BOOLEAN jjCALL3MANY(leftv res, leftv u, leftv v, leftv w)
4485{
4486  u->next=(leftv)omAllocBin(sleftv_bin);
4487  memcpy(u->next,v,sizeof(sleftv));
4488  u->next->next=(leftv)omAllocBin(sleftv_bin);
4489  memcpy(u->next->next,w,sizeof(sleftv));
4490  BOOLEAN r=iiExprArithM(res,u,iiOp);
4491  // iiExprArithM did the CleanUp
4492  w->rtyp=0; w->data=NULL;
4493  return r;
4494}
4495static BOOLEAN jjBAREISS3(leftv res, leftv u, leftv v, leftv w)
4496{
4497  intvec *iv;
4498  ideal m;
4499  lists l=(lists)omAllocBin(slists_bin);
4500  int k=(int)w->Data();
4501  if (k>=0)
4502  {
4503    smCallNewBareiss((ideal)u->Data(),(int)v->Data(),(int)w->Data(),m,&iv);
4504    l->Init(2);
4505    l->m[0].rtyp=MODUL_CMD;
4506    l->m[1].rtyp=INTVEC_CMD;
4507    l->m[0].data=(void *)m;
4508    l->m[1].data=(void *)iv;
4509  }
4510  else
4511  {
4512    m=smCallSolv((ideal)u->Data());
4513    l->Init(1);
4514    l->m[0].rtyp=IDEAL_CMD;
4515    l->m[0].data=(void *)m;
4516  }
4517  res->data = (char *)l;
4518  return FALSE;
4519}
4520static BOOLEAN jjCOEFFS3_Id(leftv res, leftv u, leftv v, leftv w)
4521{
4522  if ((w->rtyp!=IDHDL)||(w->e!=NULL))
4523  {
4524    WerrorS("3rd argument must be a name of a matrix");
4525    return TRUE;
4526  }
4527  ideal i=(ideal)u->Data();
4528  int rank=(int)i->rank;
4529  BOOLEAN r=jjCOEFFS_Id(res,u,v);
4530  if (r) return TRUE;
4531  mpMonomials((matrix)res->data, rank, pVar((poly)v->Data()),(matrix)w->Data());
4532  return FALSE;
4533}
4534static BOOLEAN jjCOEFFS3_KB(leftv res, leftv u, leftv v, leftv w)
4535{
4536  res->data=(void*)idCoeffOfKBase((ideal)(u->Data()),
4537           (ideal)(v->Data()),(poly)(w->Data()));
4538  return FALSE;
4539}
4540static BOOLEAN jjCOEFFS3_P(leftv res, leftv u, leftv v, leftv w)
4541{
4542  if ((w->rtyp!=IDHDL)||(w->e!=NULL))
4543  {
4544    WerrorS("3rd argument must be a name of a matrix");
4545    return TRUE;
4546  }
4547  // CopyD for POLY_CMD and VECTOR_CMD are identical:
4548  poly p=(poly)u->CopyD(POLY_CMD);
4549  ideal i=idInit(1,1);
4550  i->m[0]=p;
4551  sleftv t;
4552  memset(&t,0,sizeof(t));
4553  t.data=(char *)i;
4554  t.rtyp=IDEAL_CMD;
4555  int rank=1;
4556  if (u->Typ()==VECTOR_CMD)
4557  {
4558    i->rank=rank=pMaxComp(p);
4559    t.rtyp=MODUL_CMD;
4560  }
4561  BOOLEAN r=jjCOEFFS_Id(res,&t,v);
4562  t.CleanUp();
4563  if (r) return TRUE;
4564  mpMonomials((matrix)res->data, rank, pVar((poly)v->Data()),(matrix)w->Data());
4565  return FALSE;
4566}
4567static BOOLEAN jjELIMIN_HILB(leftv res, leftv u, leftv v, leftv w)
4568{
4569  res->data=(char *)idElimination((ideal)u->Data(),(poly)v->Data(),
4570    (intvec *)w->Data());
4571  setFlag(res,FLAG_STD);
4572  return FALSE;
4573}
4574static BOOLEAN jjFIND3(leftv res, leftv u, leftv v, leftv w)
4575{
4576  /*4
4577  * look for the substring what in the string where
4578  * starting at position n
4579  * return the position of the first char of what in where
4580  * or 0
4581  */
4582  int n=(int)w->Data();
4583  char *where=(char *)u->Data();
4584  char *what=(char *)v->Data();
4585  char *found;
4586  if ((1>n)||(n>(int)strlen(where)))
4587  {
4588    Werror("start position %d out of range",n);
4589    return TRUE;
4590  }
4591  found = strchr(where+n-1,*what);
4592  if (*(what+1)!='\0')
4593  {
4594    while((found !=NULL) && (strncmp(found+1,what+1,strlen(what+1))!=0))
4595    {
4596      found=strchr(found+1,*what);
4597    }
4598  }
4599  if (found != NULL)
4600  {
4601    res->data=(char *)((found-where)+1);
4602  }
4603  return FALSE;
4604}
4605static BOOLEAN jjHILBERT3(leftv res, leftv u, leftv v, leftv w)
4606{
4607  assumeStdFlag(u);
4608  intvec *module_w=(intvec *)atGet(u,"isHomog");
4609  intvec *wdegree=(intvec*)w->Data();
4610  if (wdegree->length()!=pVariables)
4611  {
4612    Werror("weight vector must have size %d, not %d",
4613           pVariables,wdegree->length());
4614    return TRUE;
4615  }
4616  intvec *iv=hFirstSeries((ideal)u->Data(),module_w,currQuotient,wdegree);
4617  switch((int)v->Data())
4618  {
4619    case 1:
4620      res->data=(void *)iv;
4621      return FALSE;
4622    case 2:
4623      res->data=(void *)hSecondSeries(iv);
4624      delete iv;
4625      return FALSE;
4626  }
4627  WerrorS(feNotImplemented);
4628  delete iv;
4629  return TRUE;
4630}
4631static BOOLEAN jjINTMAT3(leftv res, leftv u, leftv v,leftv w)
4632{
4633  intvec* im= new intvec((int)v->Data(),(int)w->Data(), 0);
4634  intvec* arg = (intvec*) u->Data();
4635  int i, n = min(im->cols()*im->rows(), arg->cols()*arg->rows());
4636
4637  for (i=0; i<n; i++)
4638  {
4639    (*im)[i] = (*arg)[i];
4640  }
4641
4642  res->data = (char *)im;
4643  return FALSE;
4644}
4645static BOOLEAN jjJET_P_IV(leftv res, leftv u, leftv v, leftv w)
4646{
4647  short *iw=iv2array((intvec *)w->Data());
4648  res->data = (char *)ppJetW((poly)u->Data(),(int)v->Data(),iw);
4649  omFreeSize((ADDRESS)iw,(pVariables+1)*sizeof(short));
4650  return FALSE;
4651}
4652static BOOLEAN jjJET_P_P(leftv res, leftv u, leftv v, leftv w)
4653{
4654  if (!pIsUnit((poly)v->Data()))
4655  {
4656    WerrorS("2nd argument must be a unit");
4657    return TRUE;
4658  }
4659  res->data = (char *)pSeries((int)w->Data(),(poly)u->CopyD(),(poly)v->CopyD());
4660  return FALSE;
4661}
4662static BOOLEAN jjJET_ID_IV(leftv res, leftv u, leftv v, leftv w)
4663{
4664  res->data = (char *)idJetW((ideal)u->Data(),(int)v->Data(),
4665                             (intvec *)w->Data());
4666  return FALSE;
4667}
4668static BOOLEAN jjJET_ID_M(leftv res, leftv u, leftv v, leftv w)
4669{
4670  if (!mpIsDiagUnit((matrix)v->Data()))
4671  {
4672    WerrorS("2nd argument must be a diagonal matrix of units");
4673    return TRUE;
4674  }
4675  res->data = (char *)idSeries((int)w->Data(),(ideal)u->CopyD(),
4676                               (matrix)v->CopyD());
4677  return FALSE;
4678}
4679static BOOLEAN jjMINOR3(leftv res, leftv u, leftv v, leftv w)
4680{
4681  assumeStdFlag(w);
4682  res->data = (char *)idMinors(
4683                        (matrix)u->Data(),(int)v->Data(),(ideal)w->Data());
4684  return FALSE;
4685}
4686static BOOLEAN jjPREIMAGE(leftv res, leftv u, leftv v, leftv w)
4687{
4688  idhdl h;
4689  ring rr;
4690  map mapping;
4691
4692  if ((v->name==NULL) || (w->name==NULL))
4693  {
4694    WerrorS("2nd/3rd arguments must have names");
4695    return TRUE;
4696  }
4697  rr=(ring)u->Data();
4698  const char *ring_name=u->Name();
4699  if ((h=rr->idroot->get(v->name,myynest))!=NULL)
4700  {
4701    if (h->typ==MAP_CMD)
4702    {
4703      mapping=IDMAP(h);
4704      idhdl preim_ring=IDROOT->get(mapping->preimage,myynest);
4705      if ((preim_ring==NULL)
4706      || (IDRING(preim_ring)!=currRing))
4707      {
4708        Werror("preimage ring `%s` is not the basering",mapping->preimage);
4709        return TRUE;
4710      }
4711    }
4712    else if (h->typ==IDEAL_CMD)
4713    {
4714      mapping=IDMAP(h);
4715    }
4716    else
4717    {
4718      Werror("`%s` is no map nor ideal",IDID(h));
4719      return TRUE;
4720    }
4721  }
4722  else
4723  {
4724    Werror("`%s` is not defined in `%s`",v->name,ring_name);
4725    return TRUE;
4726  }
4727  if ((h=rr->idroot->get(w->name,myynest))!=NULL)
4728  {
4729    if (h->typ==IDEAL_CMD)
4730    {
4731      if (((currRing->qideal!=NULL) && (pOrdSgn==-1))
4732      || ((rr->qideal!=NULL) && (rr->OrdSgn==-1)))
4733      {
4734        WarnS("preimage in local qring may be wrong: use Ring::preimageLoc instead");
4735      }
4736      res->data=(char *)maGetPreimage(rr,mapping,IDIDEAL(h));
4737    }
4738    else
4739    {
4740      Werror("`%s` is no ideal",IDID(h));
4741      return TRUE;
4742    }
4743  }
4744  else
4745  {
4746    Werror("`%s` is not defined in `%s`",w->name,ring_name);
4747    return TRUE;
4748  }
4749  return FALSE;
4750}
4751static BOOLEAN jjRANDOM_Im(leftv res, leftv u, leftv v, leftv w)
4752{
4753  int di, k;
4754  int i=(int)u->Data();
4755  int r=(int)v->Data();
4756  int c=(int)w->Data();
4757  if ((r<=0) || (c<=0)) return TRUE;
4758  intvec *iv = new intvec(r, c, 0);
4759  if (iv->rows()==0)
4760  {
4761    delete iv;
4762    return TRUE;
4763  }
4764  if (i!=0)
4765  {
4766    if (i<0) i = -i;
4767    di = 2 * i + 1;
4768    for (k=0; k<iv->length(); k++)
4769    {
4770#ifdef buildin_rand
4771      (*iv)[k] = ((siRand() % di) - i);
4772#else
4773      (*iv)[k] = ((rand() % di) - i);
4774#endif
4775    }
4776  }
4777  res->data = (char *)iv;
4778  return FALSE;
4779}
4780static BOOLEAN jjSUBST_Test(leftv v,leftv w,
4781  int &ringvar, poly &monomexpr)
4782{
4783  monomexpr=(poly)w->Data();
4784  poly p=(poly)v->Data();
4785  #if 0
4786  if (pLength(monomexpr)>1)
4787  {
4788    Werror("`%s` substitutes a ringvar only by a term",
4789      Tok2Cmdname(SUBST_CMD));
4790    return TRUE;
4791  }
4792  #endif
4793  if (!(ringvar=pVar(p)))
4794  {
4795    if (rField_is_Extension(currRing))
4796    {
4797      assume(currRing->algring!=NULL);
4798      lnumber n=(lnumber)pGetCoeff(p);
4799      ringvar=-p_Var(n->z,currRing->algring);
4800    }
4801    if(ringvar==0)
4802    {
4803      WerrorS("ringvar/par expected");
4804      return TRUE;
4805    }
4806  }
4807  return FALSE;
4808}
4809static BOOLEAN jjSUBST_P(leftv res, leftv u, leftv v,leftv w)
4810{
4811  int ringvar;
4812  poly monomexpr;
4813  BOOLEAN nok=jjSUBST_Test(v,w,ringvar,monomexpr);
4814  if (nok) return TRUE;
4815  if (ringvar>0)
4816  {
4817    if ((monomexpr==NULL)||(pNext(monomexpr)==NULL))
4818      res->data = pSubst((poly)u->CopyD(res->rtyp),ringvar,monomexpr);
4819    else
4820      res->data= pSubstPoly((poly)u->Data(),ringvar,monomexpr);
4821  }
4822  else
4823  {
4824    res->data=pSubstPar((poly)u->Data(),-ringvar,monomexpr);
4825  }
4826  return FALSE;
4827}
4828static BOOLEAN jjSUBST_Id(leftv res, leftv u, leftv v,leftv w)
4829{
4830  int ringvar;
4831  poly monomexpr;
4832  BOOLEAN nok=jjSUBST_Test(v,w,ringvar,monomexpr);
4833  if (nok) return TRUE;
4834  if (ringvar>0)
4835  {
4836    if ((monomexpr==NULL)||(pNext(monomexpr)==NULL))
4837      res->data = idSubst((ideal)u->CopyD(res->rtyp),ringvar,monomexpr);
4838    else
4839      res->data = idSubstPoly((ideal)u->Data(),ringvar,monomexpr);
4840  }
4841  else
4842  {
4843    res->data = idSubstPar((ideal)u->Data(),-ringvar,monomexpr);
4844  }
4845  return FALSE;
4846}
4847// we do not want to have jjSUBST_Id_X inlined:
4848static BOOLEAN jjSUBST_Id_X(leftv res, leftv u, leftv v,leftv w,
4849                            int input_type);
4850static BOOLEAN jjSUBST_Id_I(leftv res, leftv u, leftv v,leftv w)
4851{
4852  return jjSUBST_Id_X(res,u,v,w,INT_CMD);
4853}
4854static BOOLEAN jjSUBST_Id_N(leftv res, leftv u, leftv v,leftv w)
4855{
4856  return jjSUBST_Id_X(res,u,v,w,NUMBER_CMD);
4857}
4858static BOOLEAN jjSUBST_Id_X(leftv res, leftv u, leftv v,leftv w, int input_type)
4859{
4860  sleftv tmp;
4861  memset(&tmp,0,sizeof(tmp));
4862  // do not check the result, conversion from int/number to poly works always
4863  iiConvert(input_type,POLY_CMD,iiTestConvert(input_type,POLY_CMD),w,&tmp);
4864  BOOLEAN b=jjSUBST_Id(res,u,v,&tmp);
4865  tmp.CleanUp();
4866  return b;
4867}
4868static BOOLEAN jjMATRIX_Id(leftv res, leftv u, leftv v,leftv w)
4869{
4870  matrix m=mpNew((int)v->Data(),(int)w->Data());
4871  ideal I=(ideal)u->CopyD(IDEAL_CMD);
4872  int i=min(IDELEMS(I),(int)v->Data()*(int)w->Data());
4873  //for(i=i-1;i>=0;i--)
4874  //{
4875  //  m->m[i]=I->m[i];
4876  //  I->m[i]=NULL;
4877  //}
4878  memcpy4(m->m,I->m,i*sizeof(poly));
4879  memset(I->m,0,i*sizeof(poly));
4880  idDelete(&I);
4881  res->data = (char *)m;
4882  return FALSE;
4883}
4884static BOOLEAN jjMATRIX_Mo(leftv res, leftv u, leftv v,leftv w)
4885{
4886  res->data = (char *)idModule2formatedMatrix((ideal)u->CopyD(MODUL_CMD),
4887           (int)v->Data(),(int)w->Data());
4888  return FALSE;
4889}
4890static BOOLEAN jjMATRIX_Ma(leftv res, leftv u, leftv v,leftv w)
4891{
4892  matrix m=mpNew((int)v->Data(),(int)w->Data());
4893  matrix I=(matrix)u->CopyD(MATRIX_CMD);
4894  int r=min(MATROWS(I),(int)v->Data());
4895  int c=min(MATCOLS(I),(int)w->Data());
4896  int i,j;
4897  for(i=r;i>0;i--)
4898  {
4899    for(j=c;j>0;j--)
4900    {
4901      MATELEM(m,i,j)=MATELEM(I,i,j);
4902      MATELEM(I,i,j)=NULL;
4903    }
4904  }
4905  idDelete((ideal *)&I);
4906  res->data = (char *)m;
4907  return FALSE;
4908}
4909static BOOLEAN jjLIFT3(leftv res, leftv u, leftv v, leftv w)
4910{
4911  if (w->rtyp!=IDHDL) return TRUE;
4912  BITSET save_test=test;
4913  int ul= IDELEMS((ideal)u->Data());
4914  int vl= IDELEMS((ideal)v->Data());
4915  ideal m
4916    = idLift((ideal)u->Data(),(ideal)v->Data(),NULL,FALSE,hasFlag(u,FLAG_STD),
4917             FALSE, (matrix *)(&(IDMATRIX((idhdl)(w->data)))));
4918  res->data = (char *)idModule2formatedMatrix(m,ul,vl);
4919  test=save_test;
4920  return FALSE;
4921}
4922static BOOLEAN jjREDUCE3_CP(leftv res, leftv u, leftv v, leftv w)
4923{
4924  assumeStdFlag(v);
4925  if (!idIsZeroDim((ideal)v->Data()))
4926  {
4927    Werror("`%s` must be 0-dimensional",v->Name());
4928    return TRUE;
4929  }
4930  res->data = (char *)redNF((ideal)v->CopyD(),(poly)u->CopyD(),
4931    (poly)w->CopyD());
4932  return FALSE;
4933}
4934static BOOLEAN jjREDUCE3_CID(leftv res, leftv u, leftv v, leftv w)
4935{
4936  assumeStdFlag(v);
4937  if (!idIsZeroDim((ideal)v->Data()))
4938  {
4939    Werror("`%s` must be 0-dimensional",v->Name());
4940    return TRUE;
4941  }
4942  res->data = (char *)redNF((ideal)v->CopyD(),(ideal)u->CopyD(),
4943    (matrix)w->CopyD());
4944  return FALSE;
4945}
4946static BOOLEAN jjREDUCE3_P(leftv res, leftv u, leftv v, leftv w)
4947{
4948  assumeStdFlag(v);
4949  res->data = (char *)kNF((ideal)v->Data(),currQuotient,(poly)u->Data(),
4950    0,(int)w->Data());
4951  return FALSE;
4952}
4953static BOOLEAN jjREDUCE3_ID(leftv res, leftv u, leftv v, leftv w)
4954{
4955  assumeStdFlag(v);
4956  res->data = (char *)kNF((ideal)v->Data(),currQuotient,(ideal)u->Data(),
4957    0,(int)w->Data());
4958  return FALSE;
4959}
4960#ifdef OLD_RES
4961static BOOLEAN jjRES3(leftv res, leftv u, leftv v, leftv w)
4962{
4963  int maxl=(int)v->Data();
4964  int l=0;
4965  resolvente r;
4966  intvec **weights=NULL;
4967  int wmaxl=maxl;
4968  maxl--;
4969  if ((maxl==-1) && (iiOp!=MRES_CMD))
4970    maxl = pVariables-1;
4971  if ((iiOp == RES_CMD) || (iiOp == MRES_CMD))
4972  {
4973    intvec * iv=(intvec*)atGet(u,"isHomog");
4974    if (iv!=NULL)
4975    {
4976      weights = (intvec**)omAlloc0Bin(void_ptr_bin);
4977      weights[0] = ivCopy(iv);
4978      l=1;
4979    }
4980    r=syResolvente((ideal)u->Data(),maxl,&l, &weights, iiOp==MRES_CMD);
4981  }
4982  else
4983    r=sySchreyerResolvente((ideal)u->Data(),maxl+1,&l);
4984  if (r==NULL) return TRUE;
4985  int t3=u->Typ();
4986  iiMakeResolv(r,l,wmaxl,w->name,t3,weights);
4987  return FALSE;
4988  return TRUE;
4989}
4990#endif
4991static BOOLEAN jjRING3(leftv res, leftv u, leftv v, leftv w)
4992{
4993  res->data=(void *)rInit(u,v,w);
4994  return (res->data==NULL);
4995}
4996static BOOLEAN jjSTATUS3(leftv res, leftv u, leftv v, leftv w)
4997{
4998  int yes;
4999  jjSTATUS2(res, u, v);
5000  yes = (strcmp((char *) res->data, (char *) w->Data()) == 0);
5001  omFree((ADDRESS) res->data);
5002  res->data = (void *) yes;
5003  return FALSE;
5004}
5005static BOOLEAN jjSTD_HILB_W(leftv res, leftv u, leftv v, leftv w)
5006{
5007  ideal result;
5008  intvec *ww=(intvec *)atGet(u,"isHomog");
5009  tHomog hom=testHomog;
5010  if (ww!=NULL)
5011  {
5012    ww=ivCopy(ww);
5013    hom=isHomog;
5014  }
5015  result=kStd((ideal)(u->Data()),
5016              currQuotient,
5017              hom,
5018              &ww,                  // module weights
5019              (intvec *)v->Data(),  // hilbert series
5020              0,0,                  // syzComp, newIdeal
5021              (intvec *)w->Data()); // weights of vars
5022  idSkipZeroes(result);
5023  res->data = (char *)result;
5024  setFlag(res,FLAG_STD);
5025  if (ww!=NULL) atSet(res,omStrDup("isHomog"),ww,INTVEC_CMD);
5026  return FALSE;
5027}
5028
5029/*=================== operations with 3 args.: table =================*/
5030struct sValCmd3 dArith3[]=
5031{
5032// operations:
5033// proc             cmd          res         arg1        arg2        arg3   plural
5034 {jjBRACK_S,        '[',        STRING_CMD, STRING_CMD, INT_CMD,    INT_CMD ALLOW_PLURAL}
5035,{jjBRACK_Im,       '[',        INT_CMD,    INTMAT_CMD, INT_CMD,    INT_CMD ALLOW_PLURAL}
5036,{jjBRACK_Ma_I_IV,  '[',        INT_CMD,    INTMAT_CMD, INT_CMD,    INTVEC_CMD ALLOW_PLURAL}
5037,{jjBRACK_Ma_IV_I,  '[',        INT_CMD,    INTMAT_CMD, INTVEC_CMD, INT_CMD ALLOW_PLURAL}
5038,{jjBRACK_Ma_IV_IV, '[',        INT_CMD,    INTMAT_CMD, INTVEC_CMD, INTVEC_CMD ALLOW_PLURAL}
5039,{jjBRACK_Ma,       '[',        POLY_CMD,   MATRIX_CMD, INT_CMD,    INT_CMD ALLOW_PLURAL}
5040,{jjBRACK_Ma_I_IV,  '[',        POLY_CMD,   MATRIX_CMD, INT_CMD,    INTVEC_CMD ALLOW_PLURAL}
5041,{jjBRACK_Ma_IV_I,  '[',        POLY_CMD,   MATRIX_CMD, INTVEC_CMD, INT_CMD ALLOW_PLURAL}
5042,{jjBRACK_Ma_IV_IV, '[',        POLY_CMD,   MATRIX_CMD, INTVEC_CMD, INTVEC_CMD ALLOW_PLURAL}
5043,{jjPROC3,          '(',        ANY_TYPE,   PROC_CMD,   DEF_CMD,    DEF_CMD ALLOW_PLURAL}
5044,{atATTRIB3,        ATTRIB_CMD, NONE,       IDHDL,      STRING_CMD, DEF_CMD ALLOW_PLURAL}
5045,{jjBAREISS3,       BAREISS_CMD,LIST_CMD,   MODUL_CMD,  INT_CMD,    INT_CMD NO_PLURAL}
5046,{jjCOEFFS3_P,      COEFFS_CMD, MATRIX_CMD, POLY_CMD,   POLY_CMD,   MATRIX_CMD ALLOW_PLURAL}
5047,{jjCOEFFS3_P,      COEFFS_CMD, MATRIX_CMD, VECTOR_CMD, POLY_CMD,   MATRIX_CMD ALLOW_PLURAL}
5048,{jjCOEFFS3_Id,     COEFFS_CMD, MATRIX_CMD, IDEAL_CMD,  POLY_CMD,   MATRIX_CMD ALLOW_PLURAL}
5049,{jjCOEFFS3_Id,     COEFFS_CMD, MATRIX_CMD, MODUL_CMD,  POLY_CMD,   MATRIX_CMD ALLOW_PLURAL}
5050,{jjCOEFFS3_KB,     COEFFS_CMD, MATRIX_CMD, IDEAL_CMD,  IDEAL_CMD,  POLY_CMD ALLOW_PLURAL}
5051,{jjCOEFFS3_KB,     COEFFS_CMD, MATRIX_CMD, MODUL_CMD,  MODUL_CMD,  POLY_CMD ALLOW_PLURAL}
5052,{jjELIMIN_HILB,    ELIMINATION_CMD,IDEAL_CMD, IDEAL_CMD, POLY_CMD, INTVEC_CMD NO_PLURAL}
5053,{jjFIND3,          FIND_CMD,   INT_CMD,    STRING_CMD, STRING_CMD, INT_CMD ALLOW_PLURAL}
5054,{jjHILBERT3,       HILBERT_CMD,INTVEC_CMD, IDEAL_CMD,  INT_CMD,    INTVEC_CMD NO_PLURAL}
5055,{jjHILBERT3,       HILBERT_CMD,INTVEC_CMD, MODUL_CMD,  INT_CMD,    INTVEC_CMD NO_PLURAL}
5056,{jjCALL3MANY,      IDEAL_CMD,  IDEAL_CMD,  DEF_CMD,    DEF_CMD,    DEF_CMD ALLOW_PLURAL}
5057,{lInsert3,         INSERT_CMD, LIST_CMD,   LIST_CMD,   DEF_CMD,    INT_CMD ALLOW_PLURAL}
5058//,{jjCALL3MANY,      INTERSECT_CMD,  NONE,   DEF_CMD,    DEF_CMD,    DEF_CMD ALLOW_PLURAL}
5059,{jjINTMAT3,        INTMAT_CMD, INTMAT_CMD, INTMAT_CMD, INT_CMD,    INT_CMD ALLOW_PLURAL}
5060,{jjCALL3MANY,      INTVEC_CMD, INTVEC_CMD, DEF_CMD,    DEF_CMD,    DEF_CMD ALLOW_PLURAL}
5061,{jjJET_P_IV,       JET_CMD,    POLY_CMD,   POLY_CMD,   INT_CMD,    INTVEC_CMD ALLOW_PLURAL}
5062,{jjJET_ID_IV,      JET_CMD,    IDEAL_CMD,  IDEAL_CMD,  INT_CMD,    INTVEC_CMD ALLOW_PLURAL}
5063,{jjJET_P_IV,       JET_CMD,    VECTOR_CMD, VECTOR_CMD, INT_CMD,    INTVEC_CMD ALLOW_PLURAL}
5064,{jjJET_ID_IV,      JET_CMD,    MODUL_CMD,  MODUL_CMD,  INT_CMD,    INTVEC_CMD ALLOW_PLURAL}
5065,{jjJET_P_P,        JET_CMD,    POLY_CMD,   POLY_CMD,   POLY_CMD,   INT_CMD ALLOW_PLURAL}
5066,{jjJET_P_P,        JET_CMD,    VECTOR_CMD, VECTOR_CMD, POLY_CMD,   INT_CMD ALLOW_PLURAL}
5067,{jjJET_ID_M,       JET_CMD,    IDEAL_CMD,  IDEAL_CMD,  MATRIX_CMD, INT_CMD ALLOW_PLURAL}
5068,{jjJET_ID_M,       JET_CMD,    MODUL_CMD,  MODUL_CMD,  MATRIX_CMD, INT_CMD ALLOW_PLURAL}
5069,{jjWRONG3,         JET_CMD,    POLY_CMD,   POLY_CMD,   INT_CMD,    INT_CMD ALLOW_PLURAL}
5070,{mpKoszul,         KOSZUL_CMD, MATRIX_CMD, INT_CMD,    INT_CMD,    IDEAL_CMD NO_PLURAL}
5071,{jjCALL3MANY,      LIST_CMD,   LIST_CMD,   DEF_CMD,    DEF_CMD,    DEF_CMD ALLOW_PLURAL}
5072,{jjMATRIX_Id,      MATRIX_CMD, MATRIX_CMD, IDEAL_CMD,  INT_CMD,    INT_CMD ALLOW_PLURAL}
5073,{jjMATRIX_Mo,      MATRIX_CMD, MATRIX_CMD, MODUL_CMD,  INT_CMD,    INT_CMD ALLOW_PLURAL}
5074,{jjMATRIX_Ma,      MATRIX_CMD, MATRIX_CMD, MATRIX_CMD, INT_CMD,    INT_CMD ALLOW_PLURAL}
5075,{jjMINOR3,         MINOR_CMD,  IDEAL_CMD,  MATRIX_CMD, INT_CMD,    IDEAL_CMD NO_PLURAL}
5076,{jjCALL3MANY,      MODUL_CMD,  MODUL_CMD,  DEF_CMD,    DEF_CMD,    DEF_CMD ALLOW_PLURAL}
5077#ifdef OLD_RES
5078,{jjRES3,           MRES_CMD,   NONE,       IDEAL_CMD,  INT_CMD,    ANY_TYPE ALLOW_PLURAL}
5079,{jjRES3,           MRES_CMD,   NONE,       MODUL_CMD,  INT_CMD,    ANY_TYPE ALLOW_PLURAL}
5080#endif
5081,{jjLIFT3,          LIFT_CMD,   MATRIX_CMD, IDEAL_CMD,  IDEAL_CMD,  MATRIX_CMD ALLOW_PLURAL}
5082,{jjLIFT3,          LIFT_CMD,   MATRIX_CMD, MODUL_CMD,  MODUL_CMD,  MATRIX_CMD ALLOW_PLURAL}
5083,{jjPREIMAGE,       PREIMAGE_CMD, IDEAL_CMD, RING_CMD,  ANY_TYPE,   ANY_TYPE ALLOW_PLURAL}
5084,{jjPREIMAGE,       PREIMAGE_CMD, IDEAL_CMD, QRING_CMD, ANY_TYPE,   ANY_TYPE ALLOW_PLURAL}
5085,{jjRANDOM_Im,      RANDOM_CMD, INTMAT_CMD, INT_CMD,    INT_CMD,    INT_CMD ALLOW_PLURAL}
5086,{jjREDUCE3_P,      REDUCE_CMD, POLY_CMD,   POLY_CMD,   IDEAL_CMD,  INT_CMD ALLOW_PLURAL}
5087,{jjREDUCE3_P,      REDUCE_CMD, VECTOR_CMD, VECTOR_CMD, IDEAL_CMD,  INT_CMD ALLOW_PLURAL}
5088,{jjREDUCE3_P,      REDUCE_CMD, VECTOR_CMD, VECTOR_CMD, MODUL_CMD,  INT_CMD ALLOW_PLURAL}
5089,{jjREDUCE3_ID,     REDUCE_CMD, IDEAL_CMD,  IDEAL_CMD,  IDEAL_CMD,  INT_CMD ALLOW_PLURAL}
5090,{jjREDUCE3_ID,     REDUCE_CMD, MODUL_CMD,  MODUL_CMD,  MODUL_CMD,  INT_CMD ALLOW_PLURAL}
5091,{jjREDUCE3_ID,     REDUCE_CMD, MODUL_CMD,  MODUL_CMD,  IDEAL_CMD,  INT_CMD ALLOW_PLURAL}
5092,{jjREDUCE3_CP,     REDUCE_CMD, POLY_CMD,   POLY_CMD,   POLY_CMD,   IDEAL_CMD ALLOW_PLURAL}
5093,{jjREDUCE3_CP,     REDUCE_CMD, VECTOR_CMD, VECTOR_CMD, POLY_CMD,   MODUL_CMD ALLOW_PLURAL}
5094,{jjREDUCE3_CID,    REDUCE_CMD, IDEAL_CMD,  IDEAL_CMD,  IDEAL_CMD,  MATRIX_CMD ALLOW_PLURAL}
5095,{jjREDUCE3_CID,    REDUCE_CMD, MODUL_CMD,  MODUL_CMD,  MODUL_CMD,  MATRIX_CMD ALLOW_PLURAL}
5096#ifdef OLD_RES
5097,{jjRES3,           RES_CMD,    NONE,       IDEAL_CMD,  INT_CMD,    ANY_TYPE ALLOW_PLURAL}
5098,{jjRES3,           RES_CMD,    NONE,       MODUL_CMD,  INT_CMD,    ANY_TYPE ALLOW_PLURAL}
5099#endif
5100#ifdef HAVE_FACTORY
5101,{jjRESULTANT,      RESULTANT_CMD, POLY_CMD,POLY_CMD,   POLY_CMD,   POLY_CMD NO_PLURAL}
5102#else
5103,{jjWRONG3,         RESULTANT_CMD, POLY_CMD,POLY_CMD,   POLY_CMD,   POLY_CMD NO_PLURAL}
5104#endif
5105,{jjRING3,          RING_CMD,   RING_CMD,   DEF_CMD,    DEF_CMD,    DEF_CMD ALLOW_PLURAL}
5106#ifdef OLD_RES
5107,{jjRES3,           SRES_CMD,   NONE,       IDEAL_CMD,  INT_CMD,    ANY_TYPE NO_PLURAL}
5108,{jjRES3,           SRES_CMD,   NONE,       MODUL_CMD,  INT_CMD,    ANY_TYPE NO_PLURAL}
5109#endif
5110,{jjSTATUS3,        STATUS_CMD, INT_CMD,    LINK_CMD,   STRING_CMD, STRING_CMD ALLOW_PLURAL}
5111,{jjSTD_HILB_W,     STD_CMD,    IDEAL_CMD,  IDEAL_CMD,  INTVEC_CMD, INTVEC_CMD NO_PLURAL}
5112,{jjSTD_HILB_W,     STD_CMD,    MODUL_CMD,  MODUL_CMD,  INTVEC_CMD, INTVEC_CMD NO_PLURAL}
5113,{jjSUBST_P,        SUBST_CMD,  POLY_CMD,   POLY_CMD,   POLY_CMD,   POLY_CMD  ALLOW_PLURAL}
5114,{jjSUBST_P,        SUBST_CMD,  POLY_CMD,   POLY_CMD,   POLY_CMD,   POLY_CMD  ALLOW_PLURAL}
5115,{jjSUBST_P,        SUBST_CMD,  VECTOR_CMD, VECTOR_CMD, POLY_CMD,   POLY_CMD  ALLOW_PLURAL}
5116,{jjSUBST_Id,       SUBST_CMD,  IDEAL_CMD,  IDEAL_CMD,  POLY_CMD,   POLY_CMD  ALLOW_PLURAL}
5117,{jjSUBST_Id,       SUBST_CMD,  MODUL_CMD,  MODUL_CMD,  POLY_CMD,   POLY_CMD  ALLOW_PLURAL}
5118,{jjSUBST_Id,       SUBST_CMD,  MATRIX_CMD, MATRIX_CMD, POLY_CMD,   POLY_CMD  ALLOW_PLURAL}
5119,{jjSUBST_Id_I,     SUBST_CMD,  MATRIX_CMD, MATRIX_CMD, POLY_CMD,   INT_CMD  ALLOW_PLURAL}
5120,{jjSUBST_Id_N,     SUBST_CMD,  MATRIX_CMD, MATRIX_CMD, POLY_CMD,   NUMBER_CMD  ALLOW_PLURAL}
5121,{jjCALL3MANY,      SYSTEM_CMD, NONE,       STRING_CMD, DEF_CMD,    DEF_CMD   ALLOW_PLURAL}
5122,{nuLagSolve,       LAGSOLVE_CMD,LIST_CMD,  POLY_CMD,   INT_CMD,    INT_CMD   NO_PLURAL}
5123,{nuVanderSys,      VANDER_CMD, POLY_CMD,   IDEAL_CMD,  IDEAL_CMD,  INT_CMD   NO_PLURAL}
5124,{NULL,             0,          0,          0,          0,          0         NO_PLURAL}
5125};
5126/*=================== operations with many arg.: static proc =================*/
5127static BOOLEAN jjBREAK0(leftv res, leftv v)
5128{
5129#ifdef HAVE_SDB
5130  sdb_show_bp();
5131#endif
5132  return FALSE;
5133}
5134static BOOLEAN jjBREAK1(leftv res, leftv v)
5135{
5136#ifdef HAVE_SDB
5137  if(v->Typ()==PROC_CMD)
5138  {
5139    int lineno=0;
5140    if((v->next!=NULL) && (v->next->Typ()==INT_CMD))
5141    {
5142      lineno=(int)v->next->Data();
5143    }
5144    return sdb_set_breakpoint(v->Name(),lineno);
5145  }
5146  return TRUE;
5147#else
5148 return FALSE;
5149#endif
5150}
5151static BOOLEAN jjCALL1ARG(leftv res, leftv v)
5152{
5153  return iiExprArith1(res,v,iiOp);
5154}
5155static BOOLEAN jjCALL2ARG(leftv res, leftv u)
5156{
5157  leftv v=u->next;
5158  u->next=NULL;
5159  BOOLEAN b=iiExprArith2(res,u,iiOp,v, (iiOp > 255));
5160  u->next=v;
5161  return b;
5162}
5163static BOOLEAN jjCALL3ARG(leftv res, leftv u)
5164{
5165  leftv v = u->next;
5166  leftv w = v->next;
5167  u->next = NULL;
5168  v->next = NULL;
5169  BOOLEAN b = iiExprArith3(res, iiOp, u, v, w);
5170  u->next = v;
5171  v->next = w;
5172  return b;
5173}
5174
5175static BOOLEAN jjCOEF_M(leftv res, leftv v)
5176{
5177  if((v->Typ() != VECTOR_CMD)
5178  || (v->next->Typ() != POLY_CMD)
5179  || (v->next->next->Typ() != MATRIX_CMD)
5180  || (v->next->next->next->Typ() != MATRIX_CMD))
5181     return TRUE;
5182  if (v->next->next->rtyp!=IDHDL) return TRUE;
5183  idhdl c=(idhdl)v->next->next->data;
5184  if (v->next->next->next->rtyp!=IDHDL) return TRUE;
5185  idhdl m=(idhdl)v->next->next->next->data;
5186  idDelete((ideal *)&(c->data.uideal));
5187  idDelete((ideal *)&(m->data.uideal));
5188  mpCoef2((poly)v->Data(),(poly)v->next->Data(),
5189    (matrix *)&(c->data.umatrix),(matrix *)&(m->data.umatrix));
5190  return FALSE;
5191}
5192
5193static BOOLEAN jjDIVISION4(leftv res, leftv v)
5194{ // may have 3 or 4 arguments
5195  leftv v1=v;
5196  leftv v2=v1->next;
5197  leftv v3=v2->next;
5198  leftv v4=v3->next;
5199  assumeStdFlag(v2);
5200
5201  int i1=iiTestConvert(v1->Typ(),MODUL_CMD);
5202  int i2=iiTestConvert(v2->Typ(),MODUL_CMD);
5203
5204  if(i1==0||i2==0||v3->Typ()!=INT_CMD||(v4!=NULL&&v4->Typ()!=INTVEC_CMD))
5205  {
5206    WarnS("<module>,<module>,<int>[,<intvec>] expected!");
5207    return TRUE;
5208  }
5209
5210  sleftv w1,w2;
5211  iiConvert(v1->Typ(),MODUL_CMD,i1,v1,&w1);
5212  iiConvert(v2->Typ(),MODUL_CMD,i2,v2,&w2);
5213  ideal P=(ideal)w1.Data();
5214  ideal Q=(ideal)w2.Data();
5215
5216  int n=(int)v3->Data();
5217  short *w=NULL;
5218  if(v4!=NULL)
5219  {
5220    w=iv2array((intvec *)v4->Data());
5221    short *w0=w+1;
5222    int i=pVariables;
5223    while(i>0&&*w0>0)
5224    {
5225      w0++;
5226      i--;
5227    }
5228    if(i>0)
5229      WarnS("not all weights are positive!");
5230  }
5231
5232  matrix T;
5233  ideal R;
5234  idLiftW(P,Q,n,T,R,w);
5235
5236  if(w!=NULL)
5237    omFree(w);
5238  lists L=(lists) omAllocBin(slists_bin);
5239  L->Init(2);
5240  L->m[1].rtyp=v1->Typ();
5241  if(v1->Typ()==POLY_CMD||v1->Typ()==VECTOR_CMD)
5242  {
5243    if(v1->Typ()==POLY_CMD)
5244      pShift(&R->m[0],-1);
5245    L->m[1].data=(void *)R->m[0];
5246    R->m[0]=NULL;
5247    idDelete(&R);
5248  }
5249  else
5250  if(v1->Typ()==IDEAL_CMD||v1->Typ()==MATRIX_CMD)
5251    L->m[1].data=(void *)idModule2Matrix(R);
5252  else
5253    L->m[1].rtyp=MODUL_CMD;
5254  L->m[0].rtyp=MATRIX_CMD;
5255  L->m[0].data=(char *)T;
5256
5257  res->data=L;
5258  res->rtyp=LIST_CMD;
5259
5260  return FALSE;
5261}
5262
5263static BOOLEAN jjIDEAL_PL(leftv res, leftv v)
5264{
5265  int s=1;
5266  leftv h=v;
5267  if (h!=NULL) s=exprlist_length(h);
5268  ideal id=idInit(s,1);
5269  int rank=1;
5270  int i=0;
5271  poly p;
5272  while (h!=NULL)
5273  {
5274    switch(h->Typ())
5275    {
5276      case POLY_CMD:
5277      {
5278        p=(poly)h->CopyD(POLY_CMD);
5279        break;
5280      }
5281      case INT_CMD:
5282      {
5283        number n=nInit((int)h->Data());
5284        if (!nIsZero(n))
5285        {
5286          p=pOne();
5287          pSetCoeff(p,n);
5288        }
5289        else
5290        {
5291          p=NULL;
5292          nDelete(&n);
5293        }
5294        break;
5295      }
5296      case NUMBER_CMD:
5297      {
5298        number n=(number)h->CopyD(NUMBER_CMD);
5299        if (!nIsZero(n))
5300        {
5301          p=pOne();
5302          pSetCoeff(p,n);
5303        }
5304        else
5305        {
5306          p=NULL;
5307          nDelete(&n);
5308        }
5309        break;
5310      }
5311      case VECTOR_CMD:
5312      {
5313        p=(poly)h->CopyD(VECTOR_CMD);
5314        if (iiOp!=MODUL_CMD)
5315        {
5316          idDelete(&id);
5317          pDelete(&p);
5318          return TRUE;
5319        }
5320        rank=max(rank,pMaxComp(p));
5321        break;
5322      }
5323      default:
5324      {
5325        idDelete(&id);
5326        return TRUE;
5327      }
5328    }
5329    if ((iiOp==MODUL_CMD)&&(p!=NULL)&&(pGetComp(p)==0))
5330    {
5331      pSetCompP(p,1);
5332    }
5333    id->m[i]=p;
5334    i++;
5335    h=h->next;
5336  }
5337  id->rank=rank;
5338  res->data=(char *)id;
5339  return FALSE;
5340}
5341static BOOLEAN jjINTERSECT_PL(leftv res, leftv v)
5342{
5343  leftv h=v;
5344  int l=v->listLength();
5345  resolvente r=(resolvente)omAlloc0(l*sizeof(ideal));
5346  BOOLEAN *copied=(BOOLEAN *)omAlloc0(l*sizeof(BOOLEAN));
5347  int t=0;
5348  // try to convert to IDEAL_CMD
5349  while (h!=NULL)
5350  {
5351    if (iiTestConvert(h->Typ(),IDEAL_CMD)!=0)
5352    {
5353      t=IDEAL_CMD;
5354    }
5355    else break;
5356    h=h->next;
5357  }
5358  // if failure, try MODUL_CMD
5359  if (t==0)
5360  {
5361    h=v;
5362    while (h!=NULL)
5363    {
5364      if (iiTestConvert(h->Typ(),MODUL_CMD)!=0)
5365      {
5366        t=MODUL_CMD;
5367      }
5368      else break;
5369      h=h->next;
5370    }
5371  }
5372  // check for success  in converting
5373  if (t==0)
5374  {
5375    WerrorS("cannot convert to ideal or module");
5376    return TRUE;
5377  }
5378  // call idMultSect
5379  h=v;
5380  int i=0;
5381  sleftv tmp;
5382  while (h!=NULL)
5383  {
5384    if (h->Typ()==t)
5385    {
5386      r[i]=(ideal)h->Data(); /*no copy*/
5387      h=h->next;
5388    }
5389    else if(iiConvert(h->Typ(),t,iiTestConvert(h->Typ(),t),h,&tmp))
5390    {
5391      omFreeSize((ADDRESS)copied,l*sizeof(BOOLEAN));
5392      omFreeSize((ADDRESS)r,l*sizeof(ideal));
5393      Werror("cannot convert arg. %d to %s",i+1,Tok2Cmdname(t));
5394      return TRUE;
5395    }
5396    else
5397    {
5398      r[i]=(ideal)tmp.Data(); /*now it's a copy*/
5399      copied[i]=TRUE;
5400      h=tmp.next;
5401    }
5402    i++;
5403  }
5404  res->rtyp=t;
5405  res->data=(char *)idMultSect(r,i);
5406  while(i>0)
5407  {
5408    i--;
5409    if (copied[i]) idDelete(&(r[i]));
5410  }
5411  omFreeSize((ADDRESS)copied,l*sizeof(BOOLEAN));
5412  omFreeSize((ADDRESS)r,l*sizeof(ideal));
5413  return FALSE;
5414}
5415static BOOLEAN jjINTVEC_PL(leftv res, leftv v)
5416{
5417  int i=0;
5418  leftv h=v;
5419  if (h!=NULL) i=exprlist_length(h);
5420  intvec *iv=new intvec(i);
5421  i=0;
5422  while (h!=NULL)
5423  {
5424    if(h->Typ()==INT_CMD)
5425    {
5426      (*iv)[i]=(int)h->Data();
5427    }
5428    else
5429    {
5430      delete iv;
5431      return TRUE;
5432    }
5433    i++;
5434    h=h->next;
5435  }
5436  res->data=(char *)iv;
5437  return FALSE;
5438}
5439static BOOLEAN jjJET4(leftv res, leftv u)
5440{
5441  leftv u1=u;
5442  leftv u2=u1->next;
5443  leftv u3=u2->next;
5444  leftv u4=u3->next;
5445  if((u1->Typ()==POLY_CMD)&&(u2->Typ()==POLY_CMD)&&(u3->Typ()==INT_CMD)&&
5446     (u4->Typ()==INTVEC_CMD)||
5447     (u1->Typ()==VECTOR_CMD)&&(u2->Typ()==POLY_CMD)&&(u3->Typ()==INT_CMD)&&
5448     (u4->Typ()==INTVEC_CMD))
5449  {
5450    if(!pIsUnit((poly)u2->Data()))
5451    {
5452      Werror("2nd argument must be a unit");
5453      return TRUE;
5454    }
5455    res->rtyp=u1->Typ();
5456    res->data=(char*)pSeries((int)u3->Data(),pCopy((poly)u1->Data()),
5457                             pCopy((poly)u2->Data()),(intvec*)u4->Data());
5458    return FALSE;
5459  }
5460  else
5461  if((u1->Typ()==IDEAL_CMD)&&(u2->Typ()==MATRIX_CMD)&&(u3->Typ()==INT_CMD)&&
5462     (u4->Typ()==INTVEC_CMD)||
5463     (u1->Typ()==MODUL_CMD)&&(u2->Typ()==MATRIX_CMD)&&(u3->Typ()==INT_CMD)&&
5464     (u4->Typ()==INTVEC_CMD))
5465  {
5466    if(!mpIsDiagUnit((matrix)u2->Data()))
5467    {
5468      Werror("2nd argument must be a diagonal matrix of units");
5469      return TRUE;
5470    }
5471    res->rtyp=u1->Typ();
5472    res->data=(char*)idSeries((int)u3->Data(),idCopy((ideal)u1->Data()),
5473                              mpCopy((matrix)u2->Data()),(intvec*)u4->Data());
5474    return FALSE;
5475  }
5476  else
5477  {
5478    Werror("%s(`poly`,`poly`,`int`,`intvec`) exppected",
5479           Tok2Cmdname(iiOp));
5480    return TRUE;
5481  }
5482}
5483static BOOLEAN jjKLAMMER_PL(leftv res, leftv u)
5484{
5485  if ((yyInRingConstruction)
5486  && ((strcmp(u->Name(),"real")==0) || (strcmp(u->Name(),"complex")==0)))
5487  {
5488    memcpy(res,u,sizeof(sleftv));
5489    memset(u,0,sizeof(sleftv));
5490    return FALSE;
5491  }
5492  leftv v=u->next;
5493  BOOLEAN b;
5494  if(v==NULL)
5495    b=iiExprArith1(res,u,iiOp);
5496  else
5497  {
5498    u->next=NULL;
5499    b=iiExprArith2(res,u,iiOp,v);
5500    u->next=v;
5501  }
5502  return b;
5503}
5504static BOOLEAN jjLIST_PL(leftv res, leftv v)
5505{
5506  int sl=0;
5507  if (v!=NULL) sl = v->listLength();
5508  lists L;
5509  if((sl==1)&&(v->Typ()==RESOLUTION_CMD))
5510  {
5511    L=syConvRes((syStrategy)v->Data());
5512  }
5513  else
5514  {
5515    L=(lists)omAllocBin(slists_bin);
5516    leftv h=NULL;
5517    int i;
5518    int rt;
5519
5520    L->Init(sl);
5521    for (i=0;i<sl;i++)
5522    {
5523      if (h!=NULL) { /* e.g. not in the first step:
5524                     * h is the pointer to the old sleftv,
5525                     * v is the pointer to the next sleftv
5526                     * (in this moment) */
5527                     h->next=v;
5528                   }
5529      h=v;
5530      v=v->next;
5531      h->next=NULL;
5532      rt=h->Typ();
5533      if (rt==0)
5534      {
5535        L->Clean();
5536        Werror("`%s` is undefined",h->Fullname());
5537        return TRUE;
5538      }
5539      if ((rt==RING_CMD)||(rt==QRING_CMD))
5540      {
5541        L->m[i].rtyp=rt;  L->m[i].data=h->Data();
5542        ((ring)L->m[i].data)->ref++;
5543      }
5544      else
5545        L->m[i].Copy(h);
5546    }
5547  }
5548  res->data=(char *)L;
5549  return FALSE;
5550}
5551static BOOLEAN jjNAMES0(leftv res, leftv v)
5552{
5553  res->data=(void *)ipNameList(IDROOT);
5554  return FALSE;
5555}
5556static BOOLEAN jjOPTION_PL(leftv res, leftv v)
5557{
5558  if(v==NULL)
5559  {
5560    res->data=(char *)showOption();
5561    return FALSE;
5562  }
5563  res->rtyp=NONE;
5564  return setOption(res,v);
5565}
5566static BOOLEAN jjREDUCE4(leftv res, leftv u)
5567{
5568  leftv u1=u;
5569  leftv u2=u1->next;
5570  leftv u3=u2->next;
5571  leftv u4=u3->next;
5572  if((u3->Typ()==INT_CMD)&&(u4->Typ()==INTVEC_CMD))
5573  {
5574    int save_d=Kstd1_deg;
5575    Kstd1_deg=(int)u3->Data();
5576    kModW=(intvec *)u4->Data();
5577    BITSET save=verbose;
5578    verbose|=Sy_bit(V_DEG_STOP);
5579    u2->next=NULL;
5580    BOOLEAN r=jjCALL2ARG(res,u);
5581    kModW=NULL;
5582    Kstd1_deg=save_d;
5583    verbose=save;
5584    u->next->next=u3;
5585    return r;
5586  }
5587  else
5588  if((u1->Typ()==IDEAL_CMD)&&(u2->Typ()==MATRIX_CMD)&&(u3->Typ()==IDEAL_CMD)&&
5589     (u4->Typ()==INT_CMD))
5590  {
5591    assumeStdFlag(u3);
5592    if(!mpIsDiagUnit((matrix)u2->Data()))
5593    {
5594      Werror("2nd argument must be a diagonal matrix of units");
5595      return TRUE;
5596    }
5597    res->rtyp=IDEAL_CMD;
5598    res->data=(char*)redNF(idCopy((ideal)u3->Data()),idCopy((ideal)u1->Data()),
5599                           mpCopy((matrix)u2->Data()),(int)u4->Data());
5600    return FALSE;
5601  }
5602  else
5603  if((u1->Typ()==POLY_CMD)&&(u2->Typ()==POLY_CMD)&&(u3->Typ()==IDEAL_CMD)&&
5604     (u4->Typ()==INT_CMD))
5605  {
5606    assumeStdFlag(u3);
5607    if(!pIsUnit((poly)u2->Data()))
5608    {
5609      Werror("2nd argument must be a unit");
5610      return TRUE;
5611    }
5612    res->rtyp=POLY_CMD;
5613    res->data=(char*)redNF(idCopy((ideal)u3->Data()),pCopy((poly)u1->Data()),
5614                           pCopy((poly)u2->Data()),(int)u4->Data());
5615    return FALSE;
5616  }
5617  else
5618  {
5619    Werror("%s(`poly`,`ideal`,`int`,`intvec`) expected",Tok2Cmdname(iiOp));
5620    return TRUE;
5621  }
5622}
5623static BOOLEAN jjREDUCE5(leftv res, leftv u)
5624{
5625  leftv u1=u;
5626  leftv u2=u1->next;
5627  leftv u3=u2->next;
5628  leftv u4=u3->next;
5629  leftv u5=u4->next;
5630  if((u1->Typ()==IDEAL_CMD)&&(u2->Typ()==MATRIX_CMD)&&(u3->Typ()==IDEAL_CMD)&&
5631     (u4->Typ()==INT_CMD)&&(u5->Typ()==INTVEC_CMD))
5632  {
5633    assumeStdFlag(u3);
5634    if(!mpIsDiagUnit((matrix)u2->Data()))
5635    {
5636      Werror("2nd argument must be a diagonal matrix of units");
5637      return TRUE;
5638    }
5639    res->rtyp=IDEAL_CMD;
5640    res->data=(char*)redNF(idCopy((ideal)u3->Data()),idCopy((ideal)u1->Data()),
5641                           mpCopy((matrix)u2->Data()),
5642                           (int)u4->Data(),(intvec*)u5->Data());
5643    return FALSE;
5644  }
5645  else
5646  if((u1->Typ()==POLY_CMD)&&(u2->Typ()==POLY_CMD)&&(u3->Typ()==IDEAL_CMD)&&
5647     (u4->Typ()==INT_CMD)&&(u5->Typ()==INTVEC_CMD))
5648  {
5649    assumeStdFlag(u3);
5650    if(!pIsUnit((poly)u2->Data()))
5651    {
5652      Werror("2nd argument must be a unit");
5653      return TRUE;
5654    }
5655    res->rtyp=POLY_CMD;
5656    res->data=(char*)redNF(idCopy((ideal)u3->Data()),pCopy((poly)u1->Data()),
5657                           pCopy((poly)u2->Data()),
5658                           (int)u4->Data(),(intvec*)u5->Data());
5659    return FALSE;
5660  }
5661  else
5662  {
5663    Werror("%s(`ideal`,`ideal`,`matrix`,`int`,`intvec`) exppected",
5664           Tok2Cmdname(iiOp));
5665    return TRUE;
5666  }
5667}
5668static BOOLEAN jjRESERVED0(leftv res, leftv v)
5669{
5670  int i=1;
5671  loop
5672  {
5673    Print("%-20s",cmds[i].name);
5674    i++;
5675    if(cmds[i].name==NULL)
5676      break;
5677    if ((i%3)==1) PrintLn();
5678  }
5679  PrintLn();
5680  return FALSE;
5681}
5682static BOOLEAN jjSTRING_PL(leftv res, leftv v)
5683{
5684  if (v == NULL)
5685  {
5686    res->data = omStrDup("");
5687    return FALSE;
5688  }
5689  int n = v->listLength();
5690  if (n == 1)
5691  {
5692    res->data = v->String();
5693    return FALSE;
5694  }
5695
5696  char** slist = (char**) omAlloc(n*sizeof(char*));
5697  int i, j;
5698
5699  for (i=0, j=0; i<n; i++, v = v ->next)
5700  {
5701    slist[i] = v->String();
5702    assume(slist[i] != NULL);
5703    j+=strlen(slist[i]);
5704  }
5705  char* s = (char*) omAlloc((j+1)*sizeof(char));
5706  *s='\0';
5707  for (i=0;i<n;i++)
5708  {
5709    strcat(s, slist[i]);
5710    omFree(slist[i]);
5711  }
5712  omFreeSize(slist, n*sizeof(char*));
5713  res->data = s;
5714  return FALSE;
5715}
5716static BOOLEAN jjTEST(leftv res, leftv v)
5717{
5718  do
5719  {
5720    if (v->Typ()!=INT_CMD)
5721      return TRUE;
5722    test_cmd((int)v->Data());
5723    v=v->next;
5724  }
5725  while (v!=NULL);
5726  return FALSE;
5727}
5728
5729#ifndef __MWERKS__
5730#if defined(__alpha) && !defined(linux)
5731extern "C"
5732{
5733  void usleep(unsigned long usec);
5734};
5735#endif
5736
5737static BOOLEAN jjSTATUS_M(leftv res, leftv v)
5738{
5739  if ((v->Typ() != LINK_CMD) ||
5740      (v->next->Typ() != STRING_CMD) ||
5741      (v->next->next->Typ() != STRING_CMD) ||
5742      (v->next->next->next->Typ() != INT_CMD))
5743    return TRUE;
5744  jjSTATUS3(res, v, v->next, v->next->next);
5745#if defined(HAVE_USLEEP)
5746  if (((int) res->data) == 0)
5747  {
5748    int i_s = (int) v->next->next->next->Data();
5749    if (i_s > 0)
5750    {
5751      usleep((int) v->next->next->next->Data());
5752      jjSTATUS3(res, v, v->next, v->next->next);
5753    }
5754  }
5755#elif defined(HAVE_SLEEP)
5756  if (((int) res->data) == 0)
5757  {
5758    int i_s = (int) v->next->next->next->Data();
5759    if (i_s > 0)
5760    {
5761      sleep((is - 1)/1000000 + 1);
5762      jjSTATUS3(res, v, v->next, v->next->next);
5763    }
5764  }
5765#endif
5766  return FALSE;
5767}
5768#endif
5769static BOOLEAN jjSUBST_M(leftv res, leftv u)
5770{
5771  leftv v = u->next; // number of args > 0
5772  if (v==NULL) return TRUE;
5773  leftv w = v->next;
5774  if (w==NULL) return TRUE;
5775  leftv rest = w->next;;
5776
5777  u->next = NULL;
5778  v->next = NULL;
5779  w->next = NULL;
5780  BOOLEAN b = iiExprArith3(res, iiOp, u, v, w);
5781  if ((rest!=NULL) && (!b))
5782  {
5783    sleftv tmp_res;
5784    leftv tmp_next=res->next;
5785    res->next=rest;
5786    memset(&tmp_res,0,sizeof(tmp_res));
5787    b = iiExprArithM(&tmp_res,res,iiOp);
5788    memcpy(res,&tmp_res,sizeof(tmp_res));
5789    res->next=tmp_next;
5790  }
5791  u->next = v;
5792  v->next = w;
5793  // rest was w->next, but is already cleaned
5794  return b;
5795}
5796
5797/*=================== operations with many arg.: table =================*/
5798/* number_of_args:  -1: any, -2: any >0, .. */
5799struct sValCmdM dArithM[]=
5800{
5801// operations:
5802// proc         cmd               res            number_of_args plural
5803 {jjKLAMMER_PL,  '(',           ANY_TYPE,           -2       ALLOW_PLURAL}
5804,{jjBREAK0,    BREAKPOINT_CMD,  NONE,               0        ALLOW_PLURAL}
5805,{jjBREAK1,    BREAKPOINT_CMD,  NONE,               -2       ALLOW_PLURAL}
5806,{jjCALL2ARG,  COEF_CMD,        MATRIX_CMD,         2        ALLOW_PLURAL}
5807,{jjCOEF_M,    COEF_CMD,        NONE,               4        ALLOW_PLURAL}
5808,{jjCALL2ARG,  DIVISION_CMD,    ANY_TYPE/*or set by p*/,2    ALLOW_PLURAL}
5809,{jjDIVISION4, DIVISION_CMD,    ANY_TYPE/*or set by p*/,3    NO_PLURAL}
5810,{jjDIVISION4, DIVISION_CMD,    ANY_TYPE/*or set by p*/,4    NO_PLURAL}
5811,{jjDBPRINT,   DBPRINT_CMD,     NONE,               -2       ALLOW_PLURAL}
5812,{jjCALL1ARG,  IDEAL_CMD,       IDEAL_CMD,          1        ALLOW_PLURAL}
5813,{jjIDEAL_PL,  IDEAL_CMD,       IDEAL_CMD,          -1       ALLOW_PLURAL}
5814,{jjCALL2ARG,  INTERSECT_CMD,   IDEAL_CMD,          2        ALLOW_PLURAL}
5815,{jjINTERSECT_PL,INTERSECT_CMD, IDEAL_CMD,          -2       ALLOW_PLURAL}
5816,{jjCALL1ARG,  INTVEC_CMD,      INTVEC_CMD,         1        ALLOW_PLURAL}
5817,{jjINTVEC_PL, INTVEC_CMD,      INTVEC_CMD,         -2       ALLOW_PLURAL}
5818,{jjCALL2ARG,  JET_CMD,         POLY_CMD,/*or set by p*/ 2   ALLOW_PLURAL}
5819,{jjCALL3ARG,  JET_CMD,         POLY_CMD,/*or set by p*/ 3   ALLOW_PLURAL}
5820,{jjJET4,      JET_CMD,         POLY_CMD,/*or set by p*/ 4   ALLOW_PLURAL}
5821,{jjLIST_PL,   LIST_CMD,        LIST_CMD,           -1       ALLOW_PLURAL}
5822,{jjCALL1ARG,  MODUL_CMD,       MODUL_CMD,          1        ALLOW_PLURAL}
5823,{jjIDEAL_PL,  MODUL_CMD,       MODUL_CMD,          -1       ALLOW_PLURAL}
5824,{jjCALL1ARG,  NAMES_CMD,       LIST_CMD,            1       ALLOW_PLURAL}
5825,{jjNAMES0,    NAMES_CMD,       LIST_CMD,            0       ALLOW_PLURAL}
5826,{jjOPTION_PL, OPTION_CMD,      STRING_CMD/*or set by p*/,-1 ALLOW_PLURAL}
5827,{jjCALL2ARG,  REDUCE_CMD,      IDEAL_CMD/*or set by p*/,  2 ALLOW_PLURAL}
5828,{jjCALL3ARG,  REDUCE_CMD,      IDEAL_CMD/*or set by p*/,  3 ALLOW_PLURAL}
5829,{jjREDUCE4,   REDUCE_CMD,      IDEAL_CMD/*or set by p*/,  4 ALLOW_PLURAL}
5830,{jjREDUCE5,   REDUCE_CMD,      IDEAL_CMD/*or set by p*/,  5 ALLOW_PLURAL}
5831,{jjCALL1ARG,  RESERVEDNAME_CMD, INT_CMD,            1       ALLOW_PLURAL}
5832,{jjRESERVED0, RESERVEDNAME_CMD, NONE,               0       ALLOW_PLURAL}
5833,{jjSTRING_PL, STRING_CMD,      STRING_CMD,         -1       ALLOW_PLURAL}
5834,{jjCALL3ARG,  SUBST_CMD,       NONE/*set by p*/,   3        ALLOW_PLURAL}
5835,{jjSUBST_M,   SUBST_CMD,       NONE/*set by p*/,   -2       ALLOW_PLURAL}
5836,{jjSYSTEM,    SYSTEM_CMD,      NONE/*or set by p*/,-2       ALLOW_PLURAL}
5837,{jjTEST,      TEST_CMD,        NONE,               -2       ALLOW_PLURAL}
5838,{iiWRITE,     WRITE_CMD,       NONE,               -2       ALLOW_PLURAL}
5839,{jjCALL2ARG,  STATUS_CMD,      STRING_CMD,          2       ALLOW_PLURAL}
5840,{jjCALL3ARG,  STATUS_CMD,      INT_CMD,             3       ALLOW_PLURAL}
5841#ifndef __MWERKS__
5842,{jjSTATUS_M,  STATUS_CMD,      INT_CMD,             4       ALLOW_PLURAL}
5843#endif
5844,{loSimplex,   SIMPLEX_CMD,     LIST_CMD,            6       NO_PLURAL}
5845,{nuUResSolve, URSOLVE_CMD,     LIST_CMD,            4       NO_PLURAL}
5846,{NULL,        0,               0,                   0       NO_PLURAL}
5847};
5848#ifdef MDEBUG
5849static Subexpr jjDBMakeSub(leftv e,char *f, int l)
5850#else
5851static Subexpr jjMakeSub(leftv e)
5852#endif
5853{
5854  assume( e->Typ()==INT_CMD );
5855  Subexpr r=(Subexpr)omAlloc0Bin(sSubexpr_bin);
5856  r->start =(int)e->Data();
5857  return r;
5858}
5859
5860/*================ generating tables ============================*/
5861#ifdef GENTABLE
5862extern struct sValAssign dAssign[];
5863struct sValCmdTab dArithTab1[]={ {0,0}};
5864#define JJTAB1LEN 0
5865struct sValCmdTab dArithTab2[]={ {0,0}};
5866#define JJTAB2LEN 0
5867void ttGen1()
5868{
5869  FILE *outfile = myfopen("iparith.inc","w");
5870  int i,j,l1=0,l2=0;
5871  currRing=(ring)omAllocBin(sip_sring_bin);
5872  fprintf(outfile,
5873  "/****************************************\n"
5874  "*  Computer Algebra System SINGULAR     *\n"
5875  "****************************************/\n\n");
5876/*-------------------------------------------------------------------*/
5877  fprintf(outfile,"// syntax table for Singular\n//\n");
5878  fprintf(outfile,"// - search for an exact match of the argument types\n");
5879  fprintf(outfile,"// - otherwise search for the first possibility\n");
5880  fprintf(outfile,"//   with converted types of the arguments\n");
5881  fprintf(outfile,"// - otherwise report an error\n//\n");
5882
5883  int op;
5884  i=0;
5885  while ((op=dArith1[i].cmd)!=0)
5886  {
5887    if (dArith1[i].p==jjWRONG)
5888      fprintf(outfile,"// DUMMY ");
5889    char *s = iiTwoOps(op);
5890    fprintf(outfile,"// operation: %s (%s)  ->  %s\n",
5891          s,
5892          Tok2Cmdname(dArith1[i].arg),
5893          Tok2Cmdname(ABS(dArith1[i].res)));
5894    i++;
5895  }
5896  fprintf(outfile,"/*---------------------------------------------*/\n");
5897  i=0;
5898  while ((op=dArith2[i].cmd)!=0)
5899  {
5900    if (dArith2[i].p==jjWRONG2)
5901      fprintf(outfile,"// DUMMY ");
5902    char *s = iiTwoOps(op);
5903    fprintf(outfile,"// operation: %s (%s, %s)  ->  %s\n",
5904          s,
5905          Tok2Cmdname(dArith2[i].arg1),
5906          Tok2Cmdname(dArith2[i].arg2),
5907          Tok2Cmdname(dArith2[i].res));
5908    i++;
5909  }
5910  fprintf(outfile,"/*---------------------------------------------*/\n");
5911  i=0;
5912  while ((op=dArith3[i].cmd)!=0)
5913  {
5914    char *s = iiTwoOps(op);
5915    if (dArith3[i].p==jjWRONG3)
5916      fprintf(outfile,"// DUMMY ");
5917    fprintf(outfile,"// operation: %s (%s, %s, %s)  ->  %s\n",
5918          s,
5919          Tok2Cmdname(dArith3[i].arg1),
5920          Tok2Cmdname(dArith3[i].arg2),
5921          Tok2Cmdname(dArith3[i].arg3),
5922          Tok2Cmdname(dArith3[i].res));
5923    i++;
5924  }
5925  fprintf(outfile,"/*---------------------------------------------*/\n");
5926  i=0;
5927  while ((op=dArithM[i].cmd)!=0)
5928  {
5929    char *s = iiTwoOps(op);
5930    fprintf(outfile,"// operation: %s (...)  ->  %s",
5931          s,
5932          Tok2Cmdname(dArithM[i].res));
5933    switch(dArithM[i].number_of_args)
5934    {
5935      case -2:
5936         fprintf(outfile," ( number of arguments >0 )\n");
5937         break;
5938      case -1:
5939         fprintf(outfile," ( any number of arguments )\n");
5940         break;
5941      default:
5942         fprintf(outfile," ( %d arguments )\n",dArithM[i].number_of_args);
5943         break;
5944    }
5945    i++;
5946  }
5947  fprintf(outfile,"/*---------------------------------------------*/\n");
5948  i=0;
5949  while ((op=dAssign[i].res)!=0)
5950  {
5951    fprintf(outfile,"// assign: %s =  %s\n",
5952          Tok2Cmdname(op/*dAssign[i].res*/),
5953          Tok2Cmdname(dAssign[i].arg));
5954    i++;
5955  }
5956/*-------------------------------------------------------------------*/
5957  fprintf(outfile,"/*---------------------------------------------*/\n");
5958  for (j=257;j<=MAX_TOK+1;j++)
5959  {
5960    for(i=257;i<=MAX_TOK+1;i++)
5961    {
5962      if ((i!=j) && (j!=IDHDL) && (j!=DEF_CMD) && (j!=ANY_TYPE)
5963      && iiTestConvert(i,j))
5964      {
5965        fprintf(outfile,"// convert %s -> %s\n",
5966          Tok2Cmdname(i), Tok2Cmdname(j));
5967        if (j==ANY_TYPE) break;
5968      }
5969    }
5970  }
5971  fprintf(outfile,"/*---------------------------------------------*/\n");
5972  char ops[]="=><+*/[.^,%(;";
5973  for(i=0;ops[i]!='\0';i++)
5974    fprintf(outfile,"// token %d : %c\n", (int)ops[i], ops[i]);
5975  for (i=257;i<=MAX_TOK;i++)
5976  {
5977    char *s=iiTwoOps(i);
5978    if (s[0]!='$')
5979    {
5980      fprintf(outfile,"// token %d : %s\n", i, s);
5981    }
5982  }
5983/*-------------------------------------------------------------------*/
5984  fprintf(outfile,"/*--max. token: %d, gr: %d --*/\n",MAX_TOK,UMINUS);
5985/*-------------------------------------------------------------------*/
5986  fprintf(outfile,"/*---------------------------------------------*/\n");
5987  fprintf(outfile,
5988  "struct sValCmdTab dArithTab1[]=\n"
5989  "{\n");
5990  for (j=1;j<=MAX_TOK+1;j++)
5991  {
5992    for(i=0;dArith1[i].cmd!=0;i++)
5993    {
5994      if (dArith1[i].cmd==j)
5995      {
5996        fprintf(outfile," { %d,%d },\n",j,i);
5997        l1++;
5998        break;
5999      }
6000    }
6001  }
6002  fprintf(outfile," { 10000,0 }\n};\n");
6003  fprintf(outfile,"#define JJTAB1LEN %d\n",l1);
6004/*-------------------------------------------------------------------*/
6005  fprintf(outfile,
6006  "struct sValCmdTab dArithTab2[]=\n"
6007  "{\n");
6008  for (j=1;j<=MAX_TOK+1;j++)
6009  {
6010    for(i=0;dArith2[i].cmd!=0;i++)
6011    {
6012      if (dArith2[i].cmd==j)
6013      {
6014        fprintf(outfile," { %d,%d },\n",j,i);
6015        l2++;
6016        break;
6017      }
6018    }
6019  }
6020  fprintf(outfile," { 10000,0 }\n};\n");
6021  fprintf(outfile,"#define JJTAB2LEN %d\n",l2);
6022  fclose(outfile);
6023}
6024/*-------------------------------------------------------------------*/
6025void ttGen2()
6026{
6027  FILE *outfile = myfopen("iparith.inc","a");
6028  fprintf(outfile,
6029  "/****************************************\n"
6030  "*  Computer Algebra System SINGULAR     *\n"
6031  "****************************************/\n\n");
6032/*-------------------------------------------------------------------*/
6033  fprintf(outfile,"// identifier table for Singular\n//\n");
6034
6035  fprintf(outfile,
6036  "cmdnames cmds[] =\n"
6037  "{  // name-string     alias  tokval toktype\n"
6038  "{ \"$INVALID$\",            0,  -1, 0},\n");
6039  int i=1;
6040  int m=-1;
6041  int id_nr=0;
6042  BOOLEAN f=FALSE;
6043  loop
6044  {
6045    while (cmds[i].tokval!=0)
6046    {
6047      if ((cmds[i].tokval!=-1)&&(cmds[i].name!=NULL))
6048      {
6049        if(m==-1)
6050        {
6051          m=i;
6052          f=TRUE;
6053        }
6054        else if(strcmp(cmds[m].name,cmds[i].name)>0)
6055        {
6056          m=i;
6057          f=TRUE;
6058        }
6059      }
6060      i++;
6061    }
6062    if(f)
6063    {
6064      id_nr++;
6065      if(cmds[m].tokval==VRTIMER) fprintf(outfile,"#ifdef HAVE_RTIMER\n");
6066      fprintf(outfile,"  {\"%s\", %*d, %3d, ",cmds[m].name,
6067                                             20-strlen(cmds[m].name),
6068                                             cmds[m].alias,
6069                                             cmds[m].tokval);
6070      switch(cmds[m].toktype)
6071      {
6072        case CMD_1:            fprintf(outfile,"CMD_1 },\n"); break;
6073        case CMD_2:            fprintf(outfile,"CMD_2 },\n"); break;
6074        case CMD_3:            fprintf(outfile,"CMD_3 },\n"); break;
6075        case CMD_12:           fprintf(outfile,"CMD_12 },\n"); break;
6076        case CMD_123 :         fprintf(outfile,"CMD_123 },\n"); break;
6077        case CMD_23:           fprintf(outfile,"CMD_23 },\n"); break;
6078        case CMD_M:            fprintf(outfile,"CMD_M },\n"); break;
6079        case SYSVAR:           fprintf(outfile,"SYSVAR },\n"); break;
6080        case ROOT_DECL:        fprintf(outfile,"ROOT_DECL },\n"); break;
6081        case ROOT_DECL_LIST:   fprintf(outfile,"ROOT_DECL_LIST },\n"); break;
6082        case RING_DECL:        fprintf(outfile,"RING_DECL },\n"); break;
6083        case NONE:             fprintf(outfile,"NONE },\n"); break;
6084        default:               if((cmds[m].toktype>' ')
6085                               &&(cmds[m].toktype<127))
6086                               {
6087                                 fprintf(outfile,"'%c' },\n",cmds[m].toktype);
6088                               }
6089                               else
6090                               {
6091                                 fprintf(outfile,"%d },\n",cmds[m].toktype);
6092                               }
6093                               break;
6094      }
6095      if(cmds[m].tokval==VRTIMER) fprintf(outfile,"#endif\n");
6096      cmds[m].name=NULL;
6097      m=-1;
6098      i=1;
6099      f=FALSE;
6100    }
6101    else break;
6102  }
6103  fprintf(outfile,
6104"/* list of scanner identifiers/only for feread/reservedName */\n");
6105  f=FALSE;
6106  i=1;m=-1;
6107  loop
6108  {
6109    while (cmds[i].tokval!=0)
6110    {
6111      if (cmds[i].name!=NULL)
6112      {
6113        if(m==-1)
6114        {
6115          m=i;
6116          f=TRUE;
6117        }
6118        else if(strcmp(cmds[m].name,cmds[i].name)>0)
6119        {
6120          m=i;
6121          f=TRUE;
6122        }
6123      }
6124      i++;
6125    }
6126    if(f)
6127    {
6128      fprintf(outfile,"  {\"%s\", %*d,  -1, 0 },\n",cmds[m].name,
6129                                             20-strlen(cmds[m].name),
6130                                             0/*cmds[m].alias*/
6131                                             /*-1 cmds[m].tokval*/
6132                                             /*0 cmds[m].toktype*/);
6133      cmds[m].name=NULL;
6134      m=-1;
6135      i=1;
6136      f=FALSE;
6137    }
6138    else break;
6139  }
6140  fprintf(outfile,
6141"/* end of list marker */\n"
6142"  { NULL, 0, 0, 0}\n"
6143"};\n"
6144"#ifdef HAVE_RTIMER\n"
6145"#define LAST_IDENTIFIER %d\n"
6146"#else\n"
6147"#define LAST_IDENTIFIER %d\n"
6148"#endif\n",id_nr,id_nr-1);
6149  fclose(outfile);
6150}
6151/*-------------------------------------------------------------------*/
6152#if 0
6153void ttGen3()
6154{
6155  FILE *outfile = myfopen("mpsr_tok.inc","w");
6156  fprintf(outfile,
6157  "/****************************************\n"
6158  "*  Computer Algebra System SINGULAR     *\n"
6159  "****************************************/\n\n");
6160/*-------------------------------------------------------------------*/
6161  fprintf(outfile,"// token table for Singular\n//\n");
6162
6163  fprintf(outfile,
6164  "short vtok[] =\n"
6165  "{\n");
6166  // operations with 1 arg: ===========================================
6167  int i=0;
6168  while (dArith1[i].cmd!=0)
6169  {
6170    if ((dArith1[i].p!=jjWRONG)
6171    &&((i==0)||(dArith1[i].cmd!=dArith1[i-1].cmd)))
6172    {
6173      fprintf(outfile,"  %d,\n",dArith1[i].cmd);
6174    }
6175    i++;
6176  }
6177  // operations with 2 args: ===========================================
6178  i=0;
6179  while (dArith2[i].cmd!=0)
6180  {
6181    if ((dArith2[i].p!=jjWRONG2)
6182    &&((i==0)||(dArith2[i].cmd!=dArith2[i-1].cmd)))
6183    {
6184      fprintf(outfile,"  %d,\n",dArith2[i].cmd);
6185    }
6186    i++;
6187  }
6188  // operations with 3 args: ===========================================
6189  i=0;
6190  while (dArith3[i].cmd!=0)
6191  {
6192    if (
6193    ((i==0)||(dArith3[i].cmd!=dArith3[i-1].cmd)))
6194    {
6195      fprintf(outfile,"  %d,\n",dArith3[i].cmd);
6196    }
6197    i++;
6198  }
6199  // operations with many args: ===========================================
6200  i=0;
6201  while (dArithM[i].cmd!=0)
6202  {
6203    if (
6204    ((i==0)||(dArithM[i].cmd!=dArithM[i-1].cmd)))
6205    {
6206      fprintf(outfile,"  %d,\n",dArithM[i].cmd);
6207    }
6208    i++;
6209  }
6210  // ====================================================================
6211  fprintf(outfile,
6212  "/* end of list marker */\n"
6213  " %d };\n",MAX_TOK);
6214  fclose(outfile);
6215}
6216#endif
6217/*-------------------------------------------------------------------*/
6218#else
6219#include "iparith.inc"
6220#endif
6221
6222/*=================== operations with 2 args. ============================*/
6223
6224BOOLEAN iiExprArith2(leftv res, leftv a, int op, leftv b, BOOLEAN proccall)
6225{
6226#ifndef GENTABLE
6227  memset(res,0,sizeof(sleftv));
6228
6229  if (!errorreported)
6230  {
6231#ifdef SIQ
6232    if (siq>0)
6233    {
6234      //Print("siq:%d\n",siq);
6235      command d=(command)omAlloc0Bin(ip_command_bin);
6236      memcpy(&d->arg1,a,sizeof(sleftv));
6237      memcpy(&d->arg2,b,sizeof(sleftv));
6238      d->argc=2;
6239      d->op=op;
6240      res->data=(char *)d;
6241      res->rtyp=COMMAND;
6242      return FALSE;
6243    }
6244#endif
6245    int at=a->Typ();
6246    int bt=b->Typ();
6247    int i=iiTabIndex(dArithTab2,JJTAB2LEN,op);
6248    int index=i;
6249
6250    iiOp=op;
6251    while (dArith2[i].cmd==op)
6252    {
6253      if ((at==dArith2[i].arg1)
6254      && (bt==dArith2[i].arg2))
6255      {
6256        res->rtyp=dArith2[i].res;
6257        #ifdef HAVE_PLURAL
6258        if ((currRing!=NULL) && (rIsPluralRing(currRing)))
6259        {
6260          if (dArith2[i].valid_for_plural==0 /*NO_PLURAL*/)
6261          {
6262            Werror("not implemented for non-commutative rings");
6263            break;
6264          }
6265          else if (dArith2[i].valid_for_plural==2 /* COMM_PLURAL */)
6266          {
6267            Warn("assume commutative subalgebra for cmd `%s`",Tok2Cmdname(i));
6268          }
6269          /* else ALLOW_PLURAL */
6270        }
6271        #endif
6272        if (dArith2[i].p(res,a,b))
6273        {
6274          break;// leave loop, goto error handling
6275        }
6276        a->CleanUp();
6277        b->CleanUp();
6278        //Print("op: %d,result typ:%d\n",op,res->rtyp);
6279        return FALSE;
6280      }
6281      i++;
6282    }
6283    // implicite type conversion ----------------------------------------------
6284    if (dArith2[i].cmd!=op)
6285    {
6286      int ai,bi;
6287      leftv an = (leftv)omAlloc0Bin(sleftv_bin);
6288      leftv bn = (leftv)omAlloc0Bin(sleftv_bin);
6289      BOOLEAN failed=FALSE;
6290      i=index; /*iiTabIndex(dArithTab2,JJTAB2LEN,op);*/
6291      //Print("op: %c, type: %s %s\n",op,Tok2Cmdname(at),Tok2Cmdname(bt));
6292      while (dArith2[i].cmd==op)
6293      {
6294        //Print("test %s %s\n",Tok2Cmdname(dArith2[i].arg1),Tok2Cmdname(dArith2[i].arg2));
6295        if ((ai=iiTestConvert(at,dArith2[i].arg1))!=0)
6296        {
6297          if ((bi=iiTestConvert(bt,dArith2[i].arg2))!=0)
6298          {
6299            res->rtyp=dArith2[i].res;
6300            #ifdef HAVE_PLURAL
6301            if ((currRing!=NULL) && (rIsPluralRing(currRing)))
6302            {
6303              if (dArith2[i].valid_for_plural==0 /*NO_PLURAL*/)
6304              {
6305                Werror("not implemented for non-commutative rings");
6306                break;
6307              }
6308              else if (dArith2[i].valid_for_plural==2 /* COMM_PLURAL */)
6309              {
6310                Warn("assume commutative subalgebra for cmd `%s`",
6311                      Tok2Cmdname(i));
6312              }
6313              /* else ALLOW_PLURAL */
6314            }
6315            #endif
6316            failed= ((iiConvert(at,dArith2[i].arg1,ai,a,an))
6317            || (iiConvert(bt,dArith2[i].arg2,bi,b,bn))
6318            || (dArith2[i].p(res,an,bn)));
6319            // everything done, clean up temp. variables
6320            if (failed)
6321            {
6322              // leave loop, goto error handling
6323              break;
6324            }
6325            else
6326            {
6327              // everything ok, clean up and return
6328              an->CleanUp();
6329              bn->CleanUp();
6330              omFreeBin((ADDRESS)an, sleftv_bin);
6331              omFreeBin((ADDRESS)bn, sleftv_bin);
6332              a->CleanUp();
6333              b->CleanUp();
6334              return FALSE;
6335            }
6336          }
6337        }
6338        i++;
6339      }
6340      an->CleanUp();
6341      bn->CleanUp();
6342      omFreeBin((ADDRESS)an, sleftv_bin);
6343      omFreeBin((ADDRESS)bn, sleftv_bin);
6344    }
6345    // error handling ---------------------------------------------------
6346    const char *s=NULL;
6347    if (!errorreported)
6348    {
6349      if ((at==0) && (a->Fullname()!=sNoName))
6350      {
6351        s=a->Fullname();
6352      }
6353      else if ((bt==0) && (b->Fullname()!=sNoName))
6354      {
6355        s=b->Fullname();
6356      }
6357      if (s!=NULL)
6358        Werror("`%s` is not defined",s);
6359      else
6360      {
6361        i=index; /*iiTabIndex(dArithTab2,JJTAB2LEN,op);*/
6362        s = iiTwoOps(op);
6363        if (proccall)
6364        {
6365          Werror("%s(`%s`,`%s`) is not supported"
6366                ,s,Tok2Cmdname(at),Tok2Cmdname(bt));
6367        }
6368        else
6369        {
6370          Werror("`%s` %s `%s` is not supported"
6371                ,Tok2Cmdname(at),s,Tok2Cmdname(bt));
6372        }
6373        if (BVERBOSE(V_SHOW_USE))
6374        {
6375          while (dArith2[i].cmd==op)
6376          {
6377            if(((at==dArith2[i].arg1)||(bt==dArith2[i].arg2))
6378            && (dArith2[i].res!=0)
6379            && (dArith2[i].p!=jjWRONG2))
6380            {
6381              if (proccall)
6382                Werror("expected %s(`%s`,`%s`)"
6383                  ,s,Tok2Cmdname(dArith2[i].arg1),Tok2Cmdname(dArith2[i].arg2));
6384              else
6385                Werror("expected `%s` %s `%s`"
6386                  ,Tok2Cmdname(dArith2[i].arg1),s,Tok2Cmdname(dArith2[i].arg2));
6387            }
6388            i++;
6389          }
6390        }
6391      }
6392    }
6393    res->rtyp = UNKNOWN;
6394  }
6395  a->CleanUp();
6396  b->CleanUp();
6397#endif
6398  return TRUE;
6399}
6400
6401/*==================== operations with 1 arg. ===============================*/
6402
6403BOOLEAN iiExprArith1(leftv res, leftv a, int op)
6404{
6405#ifndef GENTABLE
6406  memset(res,0,sizeof(sleftv));
6407
6408  if (!errorreported)
6409  {
6410#ifdef SIQ
6411    if (siq>0)
6412    {
6413      //Print("siq:%d\n",siq);
6414      command d=(command)omAlloc0Bin(ip_command_bin);
6415      memcpy(&d->arg1,a,sizeof(sleftv));
6416      d->op=op;
6417      d->argc=1;
6418      res->data=(char *)d;
6419      res->rtyp=COMMAND;
6420      return FALSE;
6421    }
6422#endif
6423    int at=a->Typ();
6424    BOOLEAN failed=FALSE;
6425
6426    iiOp=op;
6427    int i=iiTabIndex(dArithTab1,JJTAB1LEN,op);
6428    int ti = i;
6429    while (dArith1[i].cmd==op)
6430    {
6431      if (at==dArith1[i].arg)
6432      {
6433        int r=res->rtyp=dArith1[i].res;
6434        #ifdef HAVE_PLURAL
6435        if ((currRing!=NULL) && (rIsPluralRing(currRing)))
6436        {
6437          if (dArith1[i].valid_for_plural==0 /*NO_PLURAL*/)
6438          {
6439            Werror("not implemented for non-commutative rings");
6440            break;
6441          }
6442          else if (dArith1[i].valid_for_plural==2 /* COMM_PLURAL */)
6443          {
6444            Warn("assume commutative subalgebra for cmd `%s`",Tok2Cmdname(i));
6445          }
6446          /* else ALLOW_PLURAL */
6447        }
6448        #endif
6449        if (r<0)
6450        {
6451          res->rtyp=-r;
6452          #ifdef PROC_BUG
6453          dArith1[i].p(res,a);
6454          #else
6455          res->data=(char *)((Proc1)dArith1[i].p)((char *)a->Data());
6456          #endif
6457        }
6458        else if (dArith1[i].p(res,a))
6459        {
6460          break;// leave loop, goto error handling
6461        }
6462        if (a->Next()!=NULL)
6463        {
6464          res->next=(leftv)omAllocBin(sleftv_bin);
6465          failed=iiExprArith1(res->next,a->next,op);
6466        }
6467        a->CleanUp();
6468        return failed;
6469      }
6470      i++;
6471    }
6472    // implicite type conversion --------------------------------------------
6473    if (dArith1[i].cmd!=op)
6474    {
6475      leftv an = (leftv)omAlloc0Bin(sleftv_bin);
6476      i=ti;
6477      //Print("fuer %c , typ: %s\n",op,Tok2Cmdname(at));
6478      while (dArith1[i].cmd==op)
6479      {
6480        int ai;
6481        //Print("test %s\n",Tok2Cmdname(dArith1[i].arg));
6482        if ((ai=iiTestConvert(at,dArith1[i].arg))!=0)
6483        {
6484          int r=res->rtyp=dArith1[i].res;
6485          #ifdef HAVE_PLURAL
6486          if ((currRing!=NULL) && (rIsPluralRing(currRing)))
6487          {
6488            if (dArith1[i].valid_for_plural==0 /*NO_PLURAL*/)
6489            {
6490              Werror("not implemented for non-commutative rings");
6491              break;
6492            }
6493            else if (dArith1[i].valid_for_plural==2 /* COMM_PLURAL */)
6494            {
6495              Warn("assume commutative subalgebra for cmd `%s`",Tok2Cmdname(i));
6496            }
6497            /* else ALLOW_PLURAL */
6498          }
6499          #endif
6500          if (r<0)
6501          {
6502            res->rtyp=-r;
6503            failed= iiConvert(at,dArith1[i].arg,ai,a,an);
6504            if (!failed)
6505            {
6506              #ifdef PROC_BUG
6507              dArith1[i].p(res,a);
6508              #else
6509              res->data=(char *)((Proc1)dArith1[i].p)((char *)an->Data());
6510              #endif
6511            }
6512          }
6513          else
6514          {
6515            failed= ((iiConvert(at,dArith1[i].arg,ai,a,an))
6516            || (dArith1[i].p(res,an)));
6517          }
6518          // everything done, clean up temp. variables
6519          if (failed)
6520          {
6521            // leave loop, goto error handling
6522            break;
6523          }
6524          else
6525          {
6526            if (an->Next() != NULL)
6527            {
6528              res->next = (leftv)omAllocBin(sleftv_bin);
6529              failed=iiExprArith1(res->next,an->next,op);
6530            }
6531            // everything ok, clean up and return
6532            an->CleanUp();
6533            omFreeBin((ADDRESS)an, sleftv_bin);
6534            a->CleanUp();
6535            return failed;
6536          }
6537        }
6538        i++;
6539      }
6540      an->CleanUp();
6541      omFreeBin((ADDRESS)an, sleftv_bin);
6542    }
6543    // error handling
6544    if (!errorreported)
6545    {
6546      if ((at==0) && (a->Fullname()!=sNoName))
6547      {
6548        Werror("`%s` is not defined",a->Fullname());
6549      }
6550      else
6551      {
6552        i=ti;
6553        char *s = iiTwoOps(op);
6554        Werror("%s(`%s`) is not supported"
6555                ,s,Tok2Cmdname(at));
6556        if (BVERBOSE(V_SHOW_USE))
6557        {
6558          while (dArith1[i].cmd==op)
6559          {
6560            if ((dArith1[i].res!=0)
6561            && (dArith1[i].p!=jjWRONG))
6562              Werror("expected %s(`%s`)"
6563                ,s,Tok2Cmdname(dArith1[i].arg));
6564            i++;
6565          }
6566        }
6567      }
6568    }
6569    res->rtyp = UNKNOWN;
6570  }
6571  a->CleanUp();
6572#endif
6573  return TRUE;
6574}
6575
6576/*=================== operations with 3 args. ============================*/
6577
6578BOOLEAN iiExprArith3(leftv res, int op, leftv a, leftv b, leftv c)
6579{
6580#ifndef GENTABLE
6581  memset(res,0,sizeof(sleftv));
6582
6583  if (!errorreported)
6584  {
6585#ifdef SIQ
6586    if (siq>0)
6587    {
6588      //Print("siq:%d\n",siq);
6589      command d=(command)omAlloc0Bin(ip_command_bin);
6590      memcpy(&d->arg1,a,sizeof(sleftv));
6591      memcpy(&d->arg2,b,sizeof(sleftv));
6592      memcpy(&d->arg3,c,sizeof(sleftv));
6593      d->op=op;
6594      d->argc=3;
6595      res->data=(char *)d;
6596      res->rtyp=COMMAND;
6597      return FALSE;
6598    }
6599#endif
6600    int at=a->Typ();
6601    int bt=b->Typ();
6602    int ct=c->Typ();
6603
6604    iiOp=op;
6605    int i=0;
6606    while ((dArith3[i].cmd!=op)&&(dArith3[i].cmd!=0)) i++;
6607    while (dArith3[i].cmd==op)
6608    {
6609      if ((at==dArith3[i].arg1)
6610      && (bt==dArith3[i].arg2)
6611      && (ct==dArith3[i].arg3))
6612      {
6613        res->rtyp=dArith3[i].res;
6614        #ifdef HAVE_PLURAL
6615        if ((currRing!=NULL) && (rIsPluralRing(currRing)))
6616        {
6617            if (dArith3[i].valid_for_plural==0 /*NO_PLURAL*/)
6618            {
6619              Werror("not implemented for non-commutative rings");
6620              break;
6621            }
6622            else if (dArith3[i].valid_for_plural==2 /* COMM_PLURAL */)
6623            {
6624              Warn("assume commutative subalgebra for cmd `%s`",Tok2Cmdname(i));
6625            }
6626            /* else ALLOW_PLURAL */
6627        }
6628        #endif
6629        if (dArith3[i].p(res,a,b,c))
6630        {
6631          break;// leave loop, goto error handling
6632        }
6633        a->CleanUp();
6634        b->CleanUp();
6635        c->CleanUp();
6636        return FALSE;
6637      }
6638      i++;
6639    }
6640    // implicite type conversion ----------------------------------------------
6641    if (dArith3[i].cmd!=op)
6642    {
6643      int ai,bi,ci;
6644      leftv an = (leftv)omAlloc0Bin(sleftv_bin);
6645      leftv bn = (leftv)omAlloc0Bin(sleftv_bin);
6646      leftv cn = (leftv)omAlloc0Bin(sleftv_bin);
6647      BOOLEAN failed=FALSE;
6648      i=0;
6649      while ((dArith3[i].cmd!=op)&&(dArith3[i].cmd!=0)) i++;
6650      while (dArith3[i].cmd==op)
6651      {
6652        if ((ai=iiTestConvert(at,dArith3[i].arg1))!=0)
6653        {
6654          if ((bi=iiTestConvert(bt,dArith3[i].arg2))!=0)
6655          {
6656            if ((ci=iiTestConvert(ct,dArith3[i].arg3))!=0)
6657            {
6658              res->rtyp=dArith3[i].res;
6659              #ifdef HAVE_PLURAL
6660              if ((currRing!=NULL)
6661              && (rIsPluralRing(currRing)))
6662              {
6663                if (dArith3[i].valid_for_plural==0 /*NO_PLURAL*/)
6664                {
6665                   Werror("not implemented for non-commutative rings");
6666                   break;
6667                 }
6668                 else if (dArith3[i].valid_for_plural==2 /* COMM_PLURAL */)
6669                 {
6670                   Warn("assume commutative subalgebra for cmd `%s`",Tok2Cmdname(i));
6671                 }
6672                 /* else ALLOW_PLURAL */
6673              }
6674              #endif
6675              failed= ((iiConvert(at,dArith3[i].arg1,ai,a,an))
6676                || (iiConvert(bt,dArith3[i].arg2,bi,b,bn))
6677                || (iiConvert(ct,dArith3[i].arg3,ci,c,cn))
6678                || (dArith3[i].p(res,an,bn,cn)));
6679              // everything done, clean up temp. variables
6680              if (failed)
6681              {
6682                // leave loop, goto error handling
6683                break;
6684              }
6685              else
6686              {
6687                // everything ok, clean up and return
6688                an->CleanUp();
6689                bn->CleanUp();
6690                cn->CleanUp();
6691                omFreeBin((ADDRESS)an, sleftv_bin);
6692                omFreeBin((ADDRESS)bn, sleftv_bin);
6693                omFreeBin((ADDRESS)cn, sleftv_bin);
6694                a->CleanUp();
6695                b->CleanUp();
6696                c->CleanUp();
6697        //Print("op: %d,result typ:%d\n",op,res->rtyp);
6698                return FALSE;
6699              }
6700            }
6701          }
6702        }
6703        i++;
6704      }
6705      an->CleanUp();
6706      bn->CleanUp();
6707      cn->CleanUp();
6708      omFreeBin((ADDRESS)an, sleftv_bin);
6709      omFreeBin((ADDRESS)bn, sleftv_bin);
6710      omFreeBin((ADDRESS)cn, sleftv_bin);
6711    }
6712    // error handling ---------------------------------------------------
6713    if (!errorreported)
6714    {
6715      const char *s=NULL;
6716      if ((at==0) && (a->Fullname()!=sNoName))
6717      {
6718        s=a->Fullname();
6719      }
6720      else if ((bt==0) && (b->Fullname()!=sNoName))
6721      {
6722        s=b->Fullname();
6723      }
6724      else if ((ct==0) && (c->Fullname()!=sNoName))
6725      {
6726        s=c->Fullname();
6727      }
6728      if (s!=NULL)
6729        Werror("`%s` is not defined",s);
6730      else
6731      {
6732        i=0;
6733        while ((dArith3[i].cmd!=op)&&(dArith3[i].cmd!=0)) i++;
6734        char *s = iiTwoOps(op);
6735        Werror("%s(`%s`,`%s`,`%s`) is not supported"
6736                ,s,Tok2Cmdname(at),Tok2Cmdname(bt),Tok2Cmdname(ct));
6737        if (BVERBOSE(V_SHOW_USE))
6738        {
6739          while (dArith3[i].cmd==op)
6740          {
6741            if(((at==dArith3[i].arg1)
6742            ||(bt==dArith3[i].arg2)
6743            ||(ct==dArith3[i].arg3))
6744            && (dArith3[i].res!=0))
6745            {
6746              Werror("expected %s(`%s`,`%s`,`%s`)"
6747                  ,s,Tok2Cmdname(dArith3[i].arg1)
6748                  ,Tok2Cmdname(dArith3[i].arg2)
6749                  ,Tok2Cmdname(dArith3[i].arg3));
6750            }
6751            i++;
6752          }
6753        }
6754      }
6755    }
6756    res->rtyp = UNKNOWN;
6757  }
6758  a->CleanUp();
6759  b->CleanUp();
6760  c->CleanUp();
6761        //Print("op: %d,result typ:%d\n",op,res->rtyp);
6762#endif
6763  return TRUE;
6764}
6765/*==================== operations with many arg. ===============================*/
6766
6767BOOLEAN jjANY2LIST(leftv res, leftv v, int cnt)
6768{
6769  // cnt = 0: all
6770  // cnt = 1: only first one
6771  leftv next;
6772  BOOLEAN failed = TRUE;
6773  if(v==NULL) return failed;
6774  res->rtyp = LIST_CMD;
6775  if(cnt) v->next = NULL;
6776  next = v->next;             // saving next-pointer
6777  failed = jjLIST_PL(res, v);
6778  v->next = next;             // writeback next-pointer
6779  return failed;
6780}
6781
6782BOOLEAN iiExprArithM(leftv res, leftv a, int op)
6783{
6784#ifndef GENTABLE
6785  memset(res,0,sizeof(sleftv));
6786
6787  if (!errorreported)
6788  {
6789#ifdef SIQ
6790    if (siq>0)
6791    {
6792      //Print("siq:%d\n",siq);
6793      command d=(command)omAlloc0Bin(ip_command_bin);
6794      d->op=op;
6795      res->data=(char *)d;
6796      if (a!=NULL)
6797      {
6798        d->argc=a->listLength();
6799        // else : d->argc=0;
6800        memcpy(&d->arg1,a,sizeof(sleftv));
6801        switch(d->argc)
6802        {
6803          case 3:
6804            memcpy(&d->arg3,a->next->next,sizeof(sleftv));
6805            a->next->next->rtyp=0;
6806            a->next->next->data=NULL;
6807            a->next->next->name=NULL;
6808            a->next->next->attribute=NULL;
6809            /* no break */
6810          case 2:
6811            memcpy(&d->arg2,a->next,sizeof(sleftv));
6812            a->next->rtyp=0;
6813            a->next->name=NULL;
6814            a->next->data=NULL;
6815            a->next->attribute=NULL;
6816            d->arg2.next=NULL;
6817            /* no break */
6818          case 1:
6819            d->arg1.next=NULL;
6820        }
6821        if (d->argc>3) a->next=NULL;
6822        a->rtyp=0;
6823        a->data=NULL;
6824        a->name=NULL;
6825        a->CleanUp();
6826      }
6827      res->rtyp=COMMAND;
6828      return FALSE;
6829    }
6830#endif
6831    BOOLEAN failed=FALSE;
6832    int args=0;
6833    if (a!=NULL) args=a->listLength();
6834
6835    iiOp=op;
6836    int i=0;
6837    while ((dArithM[i].cmd!=op)&&(dArithM[i].cmd!=0)) i++;
6838    while (dArithM[i].cmd==op)
6839    {
6840      if ((args==dArithM[i].number_of_args)
6841      || (dArithM[i].number_of_args==-1)
6842      || ((dArithM[i].number_of_args==-2)&&(args>0)))
6843      {
6844        res->rtyp=dArithM[i].res;
6845        #ifdef HAVE_PLURAL
6846        if ((currRing!=NULL)
6847        && (rIsPluralRing(currRing)))
6848        {
6849          if (dArithM[i].valid_for_plural==0 /*NO_PLURAL*/)
6850          {
6851            Werror("not implemented for non-commutative rings");
6852            break;
6853          }
6854          else if (dArithM[i].valid_for_plural==2 /* COMM_PLURAL */)
6855          {
6856            Warn("assume commutative subalgebra for cmd `%s`",Tok2Cmdname(i));
6857          }
6858          /* else ALLOW_PLURAL */
6859        }
6860        #endif
6861        if (dArithM[i].p(res,a))
6862        {
6863          break;// leave loop, goto error handling
6864        }
6865        if (a!=NULL) a->CleanUp();
6866        //Print("op: %d,result typ:%d\n",op,res->rtyp);
6867        return failed;
6868      }
6869      i++;
6870    }
6871    // error handling
6872    if (!errorreported)
6873    {
6874      if ((args>0) && (a->rtyp==0) && (a->Name()!=sNoName))
6875      {
6876        Werror("`%s` is not defined",a->Fullname());
6877      }
6878      else
6879      {
6880        char *s = iiTwoOps(op);
6881        Werror("%s(...) is not supported",s);
6882      }
6883    }
6884    res->rtyp = UNKNOWN;
6885  }
6886  if (a!=NULL) a->CleanUp();
6887        //Print("op: %d,result typ:%d\n",op,res->rtyp);
6888#endif
6889  return TRUE;
6890}
6891
6892/*=================== general utilities ============================*/
6893int IsCmd(char *n, int & tok)
6894{
6895  int an=1;
6896  int i,v;
6897#ifndef GENTABLE
6898  int en=LAST_IDENTIFIER;
6899
6900  loop
6901  {
6902    if(an>=en-1)
6903    {
6904      if (strcmp(n, cmds[an].name) == 0)
6905      {
6906        i=an;
6907        break;
6908      }
6909      else if ((an!=en) && (strcmp(n, cmds[en].name) == 0))
6910      {
6911        i=en;
6912        break;
6913      }
6914      else
6915      {
6916        return 0;
6917      }
6918    }
6919    i=(an+en)/2;
6920    if (*n < *(cmds[i].name))
6921    {
6922      en=i-1;
6923    }
6924    else if (*n > *(cmds[i].name))
6925    {
6926      an=i+1;
6927    }
6928    else
6929    {
6930      v=strcmp(n,cmds[i].name);
6931      if(v<0)
6932      {
6933        en=i-1;
6934      }
6935      else if(v>0)
6936      {
6937        an=i+1;
6938      }
6939      else /*v==0*/
6940      {
6941        break;
6942      }
6943    }
6944  }
6945  lastreserved=cmds[i].name;
6946  tok=cmds[i].tokval;
6947  if(cmds[i].alias==2)
6948  {
6949    Warn("outdated identifier `%s` used - please change your code",
6950    cmds[i].name);
6951    cmds[i].alias=1;
6952  }
6953  if (currRingHdl==NULL)
6954  {
6955    #ifdef SIQ
6956    if (siq<=0)
6957    {
6958    #endif
6959      if ((tok>=BEGIN_RING) && (tok<=END_RING))
6960      {
6961        WerrorS("no ring active");
6962        return 0;
6963      }
6964    #ifdef SIQ
6965    }
6966    #endif
6967  }
6968  if (!expected_parms)
6969  {
6970    switch (tok)
6971    {
6972      case IDEAL_CMD:
6973      case INT_CMD:
6974      case INTVEC_CMD:
6975      case MAP_CMD:
6976      case MATRIX_CMD:
6977      case MODUL_CMD:
6978      case POLY_CMD:
6979      case PROC_CMD:
6980      case RING_CMD:
6981      case STRING_CMD:
6982        cmdtok = tok;
6983        break;
6984    }
6985  }
6986  return cmds[i].toktype;
6987#else
6988  return 0;
6989#endif
6990}
6991static int iiTabIndex(const jjValCmdTab dArithTab, const int len, const int op)
6992{
6993#ifndef GENTABLE
6994  int a=0;
6995  int e=len;
6996  int p=len/2;
6997  do
6998  {
6999     if (op==dArithTab[p].cmd) return dArithTab[p].start;
7000     if (op<dArithTab[p].cmd) e=p-1;
7001     else   a = p+1;
7002     p=a+(e-a)/2;
7003  }
7004  while ( a <= e);
7005
7006#endif
7007  assume(0);
7008  return 0;
7009}
7010
Note: See TracBrowser for help on using the repository browser.