iparith.cc File Reference

#include "kernel/mod2.h"
#include "factory/factory.h"
#include "coeffs/bigintmat.h"
#include "coeffs/coeffs.h"
#include "coeffs/numbers.h"
#include "misc/options.h"
#include "misc/intvec.h"
#include "misc/sirandom.h"
#include "misc/prime.h"
#include "polys/matpol.h"
#include "polys/monomials/maps.h"
#include "polys/sparsmat.h"
#include "polys/weight.h"
#include "polys/ext_fields/transext.h"
#include "polys/clapsing.h"
#include "polys/flintconv.h"
#include "kernel/combinatorics/stairc.h"
#include "kernel/combinatorics/hilb.h"
#include "kernel/linear_algebra/interpolation.h"
#include "kernel/linear_algebra/linearAlgebra.h"
#include "kernel/linear_algebra/MinorInterface.h"
#include "kernel/GBEngine/kChinese.h"
#include "kernel/spectrum/GMPrat.h"
#include "kernel/groebner_walk/walkProc.h"
#include "kernel/oswrapper/timer.h"
#include "kernel/fglm/fglm.h"
#include "kernel/GBEngine/kstdfac.h"
#include "kernel/GBEngine/syz.h"
#include "kernel/GBEngine/kstd1.h"
#include "kernel/GBEngine/units.h"
#include "kernel/GBEngine/tgb.h"
#include "kernel/preimage.h"
#include "kernel/polys.h"
#include "kernel/ideals.h"
#include "Singular/mod_lib.h"
#include "Singular/fevoices.h"
#include "Singular/tok.h"
#include "Singular/ipid.h"
#include "Singular/sdb.h"
#include "Singular/subexpr.h"
#include "Singular/lists.h"
#include "Singular/maps_ip.h"
#include "Singular/feOpt.h"
#include "Singular/ipconv.h"
#include "Singular/ipprint.h"
#include "Singular/attrib.h"
#include "Singular/links/silink.h"
#include "Singular/misc_ip.h"
#include "Singular/linearAlgebra_ip.h"
#include "Singular/number2.h"
#include "Singular/fglm.h"
#include "Singular/blackbox.h"
#include "Singular/newstruct.h"
#include "Singular/ipshell.h"
#include "reporter/si_signals.h"
#include <ctype.h>
#include "kernel/GBEngine/ratgring.h"
#include "kernel/GBEngine/nc.h"
#include "polys/nc/nc.h"
#include "polys/nc/sca.h"
#include "table.h"
#include "iparith.inc"

Go to the source code of this file.

Data Structures
struct	sValCmdTab
struct	cmdnames
struct	sValCmd1
struct	sValCmd2
struct	sValCmd3
struct	sValCmdM
struct	SArithBase

Macros
#define	NC_MASK   (3+64)
#define	RING_MASK   4
#define	ZERODIVISOR_MASK   8
#define	ALLOW_PLURAL   1
#define	NO_NC   0
#define	COMM_PLURAL   2
#define	ALLOW_RING   4
#define	NO_RING   0
#define	NO_ZERODIVISOR   8
#define	ALLOW_ZERODIVISOR   0
#define	ALLOW_LP   64
#define	ALLOW_NC   ALLOW_LP|ALLOW_PLURAL
#define	ALLOW_ZZ   (ALLOW_RING|NO_ZERODIVISOR)
#define	WARN_RING   16
#define	NO_CONVERSION   32
#define	bit31   SIZEOF_LONG*8-1
#define	ii_div_by_0   "div. by 0"
#define	SIMPL_NORMALIZE   64
#define	SIMPL_LMDIV   32
#define	SIMPL_LMEQ   16
#define	SIMPL_MULT   8
#define	SIMPL_EQU   4
#define	SIMPL_NULL   2
#define	SIMPL_NORM   1
#define	D(A)   (A)
#define	NULL_VAL   NULL
#define	IPARITH

Typedefs
typedef sValCmdTab	jjValCmdTab[]
typedef BOOLEAN(*	proc2) (leftv, leftv, leftv)
typedef BOOLEAN(*	proc3) (leftv, leftv, leftv, leftv)
typedef char	si_char_2[2]

Functions
static BOOLEAN	check_valid (const int p, const int op)
static int	_gentable_sort_cmds (const void *a, const void *b)
	compares to entry of cmdsname-list More...
int	iiArithRemoveCmd (char *szName)
int	iiArithAddCmd (const char *szName, short nAlias, short nTokval, short nToktype, short nPos=-1)
static int	iiTabIndex (const jjValCmdTab dArithTab, const int len, const int op)
static Subexpr	jjMakeSub (leftv e)
static int	iin_Int (number &n, coeffs cf)
int	iiTokType (int op)
static BOOLEAN	jjOP_BIM_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjOP_I_BIM (leftv res, leftv u, leftv v)
static BOOLEAN	jjOP_BIM_BI (leftv res, leftv u, leftv v)
static BOOLEAN	jjOP_BI_BIM (leftv res, leftv u, leftv v)
static BOOLEAN	jjOP_IV_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjOP_I_IV (leftv res, leftv u, leftv v)
static BOOLEAN	jjOP_IM_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjOP_I_IM (leftv res, leftv u, leftv v)
static BOOLEAN	jjCOLON (leftv res, leftv u, leftv v)
static BOOLEAN	jjDOTDOT (leftv res, leftv u, leftv v)
static void	jjEQUAL_REST (leftv res, leftv u, leftv v)
static BOOLEAN	jjCOMPARE_IV (leftv res, leftv u, leftv v)
static BOOLEAN	jjCOMPARE_BIM (leftv res, leftv u, leftv v)
static BOOLEAN	jjCOMPARE_IV_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjCOMPARE_MA (leftv res, leftv u, leftv v)
static BOOLEAN	jjCOMPARE_P (leftv res, leftv u, leftv v)
static BOOLEAN	jjCOMPARE_S (leftv res, leftv u, leftv v)
static BOOLEAN	jjOP_REST (leftv res, leftv u, leftv v)
static BOOLEAN	jjPOWER_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjPOWER_BI (leftv res, leftv u, leftv v)
static BOOLEAN	jjPOWER_N (leftv res, leftv u, leftv v)
static BOOLEAN	jjPOWER_P (leftv res, leftv u, leftv v)
static BOOLEAN	jjPOWER_ID (leftv res, leftv u, leftv v)
static BOOLEAN	jjPLUSMINUS_Gen (leftv res, leftv u, leftv v)
static BOOLEAN	jjCOLCOL (leftv res, leftv u, leftv v)
static BOOLEAN	jjPLUS_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjPLUS_BI (leftv res, leftv u, leftv v)
static BOOLEAN	jjPLUS_N (leftv res, leftv u, leftv v)
static BOOLEAN	jjPLUS_V (leftv res, leftv u, leftv v)
static BOOLEAN	jjPLUS_B (leftv res, leftv u, leftv v)
static BOOLEAN	jjPLUS_B_P (leftv res, leftv u, leftv v)
static BOOLEAN	jjPLUS_IV (leftv res, leftv u, leftv v)
static BOOLEAN	jjPLUS_BIM (leftv res, leftv u, leftv v)
static BOOLEAN	jjPLUS_MA (leftv res, leftv u, leftv v)
static BOOLEAN	jjPLUS_SM (leftv res, leftv u, leftv v)
static BOOLEAN	jjPLUS_MA_P (leftv res, leftv u, leftv v)
static BOOLEAN	jjPLUS_P_MA (leftv res, leftv u, leftv v)
static BOOLEAN	jjPLUS_S (leftv res, leftv u, leftv v)
static BOOLEAN	jjPLUS_ID (leftv res, leftv u, leftv v)
static BOOLEAN	jjMINUS_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjMINUS_BI (leftv res, leftv u, leftv v)
static BOOLEAN	jjMINUS_N (leftv res, leftv u, leftv v)
static BOOLEAN	jjMINUS_V (leftv res, leftv u, leftv v)
static BOOLEAN	jjMINUS_B_P (leftv res, leftv u, leftv v)
static BOOLEAN	jjMINUS_B (leftv res, leftv u, leftv v)
static BOOLEAN	jjMINUS_IV (leftv res, leftv u, leftv v)
static BOOLEAN	jjMINUS_BIM (leftv res, leftv u, leftv v)
static BOOLEAN	jjMINUS_MA (leftv res, leftv u, leftv v)
static BOOLEAN	jjMINUS_SM (leftv res, leftv u, leftv v)
static BOOLEAN	jjTIMES_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjTIMES_BI (leftv res, leftv u, leftv v)
static BOOLEAN	jjTIMES_N (leftv res, leftv u, leftv v)
static BOOLEAN	jjTIMES_P (leftv res, leftv u, leftv v)
static BOOLEAN	jjTIMES_ID (leftv res, leftv u, leftv v)
static BOOLEAN	jjTIMES_IV (leftv res, leftv u, leftv v)
static BOOLEAN	jjTIMES_BIM (leftv res, leftv u, leftv v)
static BOOLEAN	jjTIMES_MA_BI1 (leftv res, leftv u, leftv v)
static BOOLEAN	jjTIMES_MA_BI2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjTIMES_MA_P1 (leftv res, leftv u, leftv v)
static BOOLEAN	jjTIMES_MA_P2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjTIMES_MA_N1 (leftv res, leftv u, leftv v)
static BOOLEAN	jjTIMES_MA_N2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjTIMES_MA_I1 (leftv res, leftv u, leftv v)
static BOOLEAN	jjTIMES_MA_I2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjTIMES_MA (leftv res, leftv u, leftv v)
static BOOLEAN	jjTIMES_SM (leftv res, leftv u, leftv v)
static BOOLEAN	jjGE_BI (leftv res, leftv u, leftv v)
static BOOLEAN	jjGE_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjGE_N (leftv res, leftv u, leftv v)
static BOOLEAN	jjGT_BI (leftv res, leftv u, leftv v)
static BOOLEAN	jjGT_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjGT_N (leftv res, leftv u, leftv v)
static BOOLEAN	jjLE_BI (leftv res, leftv u, leftv v)
static BOOLEAN	jjLE_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjLE_N (leftv res, leftv u, leftv v)
static BOOLEAN	jjLT_BI (leftv res, leftv u, leftv v)
static BOOLEAN	jjLT_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjLT_N (leftv res, leftv u, leftv v)
static BOOLEAN	jjDIVMOD_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjDIV_BI (leftv res, leftv u, leftv v)
static BOOLEAN	jjDIV_N (leftv res, leftv u, leftv v)
static BOOLEAN	jjDIV_P (leftv res, leftv u, leftv v)
static BOOLEAN	jjDIV_Ma (leftv res, leftv u, leftv v)
static BOOLEAN	jjEQUAL_BI (leftv res, leftv u, leftv v)
static BOOLEAN	jjEQUAL_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjEQUAL_Ma (leftv res, leftv u, leftv v)
static BOOLEAN	jjEQUAL_SM (leftv res, leftv u, leftv v)
static BOOLEAN	jjEQUAL_R (leftv res, leftv u, leftv v)
static BOOLEAN	jjEQUAL_N (leftv res, leftv u, leftv v)
static BOOLEAN	jjEQUAL_P (leftv res, leftv u, leftv v)
static BOOLEAN	jjAND_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjOR_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjINDEX_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjINDEX_IV (leftv res, leftv u, leftv v)
static BOOLEAN	jjINDEX_P (leftv res, leftv u, leftv v)
static BOOLEAN	jjINDEX_PBu (leftv res, leftv u, leftv v)
static BOOLEAN	jjINDEX_P_IV (leftv res, leftv u, leftv v)
static BOOLEAN	jjINDEX_V (leftv res, leftv u, leftv v)
static BOOLEAN	jjINDEX_V_IV (leftv res, leftv u, leftv v)
static BOOLEAN	jjKLAMMER_rest (leftv res, leftv u, leftv v)
static BOOLEAN	jjKLAMMER (leftv res, leftv u, leftv v)
static BOOLEAN	jjKLAMMER_IV (leftv res, leftv u, leftv v)
BOOLEAN	jjPROC (leftv res, leftv u, leftv v)
static BOOLEAN	jjMAP (leftv res, leftv u, leftv v)
static BOOLEAN	jjRING_1 (leftv res, leftv u, leftv v)
static BOOLEAN	jjCHINREM_BI (leftv res, leftv u, leftv v)
static BOOLEAN	jjALIGN_V (leftv res, leftv u, leftv v)
static BOOLEAN	jjALIGN_M (leftv res, leftv u, leftv v)
static BOOLEAN	jjCHINREM_ID (leftv res, leftv u, leftv v)
static BOOLEAN	jjCOEF (leftv res, leftv u, leftv v)
static BOOLEAN	jjCOEF_Id (leftv res, leftv u, leftv v)
static BOOLEAN	jjCOEFFS_Id (leftv res, leftv u, leftv v)
static BOOLEAN	jjCOEFFS2_KB (leftv res, leftv u, leftv v)
static BOOLEAN	jjCONTRACT (leftv res, leftv u, leftv v)
static BOOLEAN	jjDEG_M_IV (leftv res, leftv u, leftv v)
static BOOLEAN	jjDEG_IV (leftv res, leftv u, leftv v)
static BOOLEAN	jjDelete_IV (leftv res, leftv u, leftv v)
static BOOLEAN	jjDelete_ID (leftv res, leftv u, leftv v)
static BOOLEAN	jjDelete_ID_IV (leftv res, leftv u, leftv v)
static BOOLEAN	jjDET2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjDET2_S (leftv res, leftv u, leftv v)
static BOOLEAN	jjDIFF_P (leftv res, leftv u, leftv v)
static BOOLEAN	jjDIFF_ID (leftv res, leftv u, leftv v)
static BOOLEAN	jjDIFF_ID_ID (leftv res, leftv u, leftv v)
static BOOLEAN	jjDIM2 (leftv res, leftv v, leftv w)
static BOOLEAN	jjDIVISION (leftv res, leftv u, leftv v)
static BOOLEAN	jjELIMIN (leftv res, leftv u, leftv v)
static BOOLEAN	jjELIMIN_IV (leftv res, leftv u, leftv v)
static BOOLEAN	jjEXPORTTO (leftv, leftv u, leftv v)
static BOOLEAN	jjERROR (leftv, leftv u)
static BOOLEAN	jjEXTGCD_BI (leftv res, leftv u, leftv v)
static BOOLEAN	jjEXTGCD_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjEXTGCD_P (leftv res, leftv u, leftv v)
static BOOLEAN	jjFAC_P2 (leftv res, leftv u, leftv dummy)
static BOOLEAN	jjFACSTD2 (leftv res, leftv v, leftv w)
static BOOLEAN	jjFAREY_BI (leftv res, leftv u, leftv v)
static BOOLEAN	jjFAREY_ID (leftv res, leftv u, leftv v)
static BOOLEAN	jjFAREY_LI (leftv res, leftv u, leftv v)
static BOOLEAN	jjFETCH (leftv res, leftv u, leftv v)
static BOOLEAN	jjFIND2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjFRES3 (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjFRES (leftv res, leftv u, leftv v)
static BOOLEAN	jjFWALK (leftv res, leftv u, leftv v)
static BOOLEAN	jjGCD_I (leftv res, leftv u, leftv v)
static BOOLEAN	jjGCD_BI (leftv res, leftv u, leftv v)
static BOOLEAN	jjGCD_N (leftv res, leftv u, leftv v)
static BOOLEAN	jjGCD_P (leftv res, leftv u, leftv v)
static BOOLEAN	jjHILBERT2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjHOMOG_P (leftv res, leftv u, leftv v)
static BOOLEAN	jjHOMOG_ID (leftv res, leftv u, leftv v)
static BOOLEAN	jjHOMOG1_W (leftv res, leftv v, leftv u)
static BOOLEAN	jjHOMOG1_WI (leftv res, leftv v, leftv u)
static BOOLEAN	jjINDEPSET2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjINTERSECT (leftv res, leftv u, leftv v)
static BOOLEAN	jjINTERPOLATION (leftv res, leftv l, leftv v)
static BOOLEAN	jjJanetBasis2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjJanetBasis (leftv res, leftv v)
static BOOLEAN	jjJET_P (leftv res, leftv u, leftv v)
static BOOLEAN	jjJET_ID (leftv res, leftv u, leftv v)
static BOOLEAN	jjKBASE2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjPREIMAGE (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjKERNEL (leftv res, leftv u, leftv v)
static BOOLEAN	jjKoszul (leftv res, leftv u, leftv v)
static BOOLEAN	jjKoszul_Id (leftv res, leftv u, leftv v)
static BOOLEAN	jjLIFT (leftv res, leftv u, leftv v)
static BOOLEAN	jjLIFTSTD (leftv res, leftv u, leftv v)
static BOOLEAN	jjLOAD2 (leftv, leftv, leftv v)
static BOOLEAN	jjLOAD_E (leftv, leftv v, leftv u)
static BOOLEAN	jjMODULO (leftv res, leftv u, leftv v)
static BOOLEAN	jjMOD_BI (leftv res, leftv u, leftv v)
static BOOLEAN	jjMOD_N (leftv res, leftv u, leftv v)
static BOOLEAN	jjMOD_P (leftv res, leftv u, leftv v)
static BOOLEAN	jjMONITOR2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjMONITOR1 (leftv res, leftv v)
static BOOLEAN	jjMONOM (leftv res, leftv v)
static BOOLEAN	jjNEWSTRUCT2 (leftv, leftv u, leftv v)
static BOOLEAN	jjPARSTR2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjPlural_num_poly (leftv res, leftv a, leftv b)
static BOOLEAN	jjPlural_num_mat (leftv res, leftv a, leftv b)
static BOOLEAN	jjPlural_mat_poly (leftv res, leftv a, leftv b)
static BOOLEAN	jjPlural_mat_mat (leftv res, leftv a, leftv b)
static BOOLEAN	jjBRACKET (leftv res, leftv a, leftv b)
static BOOLEAN	jjBRACKET_REC (leftv res, leftv a, leftv b, leftv c)
static BOOLEAN	jjOPPOSE (leftv res, leftv a, leftv b)
static BOOLEAN	jjQUOT (leftv res, leftv u, leftv v)
static BOOLEAN	jjRANDOM (leftv res, leftv u, leftv v)
static BOOLEAN	jjRANK2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjREAD2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjREDUCE_P (leftv res, leftv u, leftv v)
static BOOLEAN	jjREDUCE_ID (leftv res, leftv u, leftv v)
static BOOLEAN	jjRES (leftv res, leftv u, leftv v)
static BOOLEAN	jjPFAC2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjRMINUS (leftv res, leftv u, leftv v)
static BOOLEAN	jjRPLUS (leftv res, leftv u, leftv v)
static BOOLEAN	jjRSUM (leftv res, leftv u, leftv v)
static BOOLEAN	jjSIMPL_ID (leftv res, leftv u, leftv v)
static BOOLEAN	jjSQR_FREE2 (leftv res, leftv u, leftv dummy)
static BOOLEAN	jjSTATUS2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjSTATUS2L (leftv res, leftv u, leftv v)
static BOOLEAN	jjSIMPL_P (leftv res, leftv u, leftv v)
static BOOLEAN	jjSTD_HILB (leftv res, leftv u, leftv v)
static BOOLEAN	jjSTD_1 (leftv res, leftv u, leftv v)
static BOOLEAN	jjSYZ_2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjTENSOR (leftv res, leftv u, leftv v)
static BOOLEAN	jjTENSOR_Ma (leftv res, leftv u, leftv v)
static BOOLEAN	jjVARSTR2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjWAIT1ST2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjWAITALL2 (leftv res, leftv u, leftv v)
static BOOLEAN	jjWEDGE (leftv res, leftv u, leftv v)
static BOOLEAN	jjWRONG (leftv, leftv)
static BOOLEAN	jjWRONG2 (leftv, leftv, leftv)
static BOOLEAN	jjWRONG3 (leftv, leftv, leftv, leftv)
static BOOLEAN	jjDUMMY (leftv res, leftv u)
static BOOLEAN	jjNULL (leftv, leftv)
static BOOLEAN	jjPLUSPLUS (leftv, leftv u)
static BOOLEAN	jjUMINUS_BI (leftv res, leftv u)
static BOOLEAN	jjUMINUS_I (leftv res, leftv u)
static BOOLEAN	jjUMINUS_N (leftv res, leftv u)
static BOOLEAN	jjUMINUS_P (leftv res, leftv u)
static BOOLEAN	jjUMINUS_MA (leftv res, leftv u)
static BOOLEAN	jjUMINUS_IV (leftv res, leftv u)
static BOOLEAN	jjUMINUS_BIM (leftv res, leftv u)
static BOOLEAN	jjSetRing (leftv, leftv u)
static BOOLEAN	jjPROC1 (leftv res, leftv u)
static BOOLEAN	jjBAREISS (leftv res, leftv v)
static BOOLEAN	jjBAREISS_BIM (leftv res, leftv v)
static BOOLEAN	jjBI2N (leftv res, leftv u)
static BOOLEAN	jjBI2IM (leftv res, leftv u)
static BOOLEAN	jjBI2P (leftv res, leftv u)
static BOOLEAN	jjCALL1MANY (leftv res, leftv u)
static BOOLEAN	jjCHAR (leftv res, leftv v)
static BOOLEAN	jjCOEFFS1 (leftv res, leftv v)
static BOOLEAN	jjCOLS (leftv res, leftv v)
static BOOLEAN	jjCOLS_BIM (leftv res, leftv v)
static BOOLEAN	jjCOLS_IV (leftv res, leftv v)
static BOOLEAN	jjCONTENT (leftv res, leftv v)
static BOOLEAN	jjCOUNT_BI (leftv res, leftv v)
static BOOLEAN	jjCOUNT_BIM (leftv res, leftv v)
static BOOLEAN	jjCOUNT_N (leftv res, leftv v)
static BOOLEAN	jjCOUNT_L (leftv res, leftv v)
static BOOLEAN	jjCOUNT_M (leftv res, leftv v)
static BOOLEAN	jjCOUNT_IV (leftv res, leftv v)
static BOOLEAN	jjCOUNT_RG (leftv res, leftv v)
static BOOLEAN	jjDEG (leftv res, leftv v)
static BOOLEAN	jjDEG_M (leftv res, leftv u)
static BOOLEAN	jjDEGREE (leftv res, leftv v)
static BOOLEAN	jjDEFINED (leftv res, leftv v)
static BOOLEAN	jjDENOMINATOR (leftv res, leftv v)
	Return the denominator of the input number. More...
static BOOLEAN	jjNUMERATOR (leftv res, leftv v)
	Return the numerator of the input number. More...
static BOOLEAN	jjDET (leftv res, leftv v)
static BOOLEAN	jjDET_BI (leftv res, leftv v)
static BOOLEAN	jjDET_I (leftv res, leftv v)
static BOOLEAN	jjDET_S (leftv res, leftv v)
static BOOLEAN	jjDIM (leftv res, leftv v)
static BOOLEAN	jjDUMP (leftv, leftv v)
static BOOLEAN	jjE (leftv res, leftv v)
static BOOLEAN	jjEXECUTE (leftv, leftv v)
static BOOLEAN	jjFACSTD (leftv res, leftv v)
static BOOLEAN	jjFAC_P (leftv res, leftv u)
static BOOLEAN	jjGETDUMP (leftv, leftv v)
static BOOLEAN	jjHIGHCORNER (leftv res, leftv v)
static BOOLEAN	jjHIGHCORNER_M (leftv res, leftv v)
static BOOLEAN	jjHILBERT (leftv, leftv v)
static BOOLEAN	jjHILBERT_IV (leftv res, leftv v)
static BOOLEAN	jjHOMOG1 (leftv res, leftv v)
static BOOLEAN	jjidMaxIdeal (leftv res, leftv v)
static BOOLEAN	jjIDEAL_Ma (leftv res, leftv v)
static BOOLEAN	jjIDEAL_Map (leftv res, leftv v)
static BOOLEAN	jjIDEAL_R (leftv res, leftv v)
static BOOLEAN	jjIm2Iv (leftv res, leftv v)
static BOOLEAN	jjIMPART (leftv res, leftv v)
static BOOLEAN	jjINDEPSET (leftv res, leftv v)
static BOOLEAN	jjINTERRED (leftv res, leftv v)
static BOOLEAN	jjIS_RINGVAR_P (leftv res, leftv v)
static BOOLEAN	jjIS_RINGVAR_S (leftv res, leftv v)
static BOOLEAN	jjIS_RINGVAR0 (leftv res, leftv)
static BOOLEAN	jjJACOB_P (leftv res, leftv v)
static BOOLEAN	jjDIFF_COEF (leftv res, leftv u, leftv v)
static BOOLEAN	jjJACOB_M (leftv res, leftv a)
static BOOLEAN	jjKERNEL_M (leftv res, leftv v)
static BOOLEAN	jjKERNEL_SM (leftv res, leftv v)
static BOOLEAN	jjKBASE (leftv res, leftv v)
static BOOLEAN	jjL2R (leftv res, leftv v)
static BOOLEAN	jjLEADCOEF (leftv res, leftv v)
static BOOLEAN	jjLEADEXP (leftv res, leftv v)
static BOOLEAN	jjLEADMONOM (leftv res, leftv v)
static BOOLEAN	jjLOAD1 (leftv, leftv v)
static BOOLEAN	jjLISTRING (leftv res, leftv v)
static BOOLEAN	jjPFAC1 (leftv res, leftv v)
static BOOLEAN	jjLagSolve (leftv res, leftv v)
static BOOLEAN	jjLU_DECOMP (leftv res, leftv v)
static BOOLEAN	jjMEMORY (leftv res, leftv v)
static BOOLEAN	jjMSTD (leftv res, leftv v)
static BOOLEAN	jjMULT (leftv res, leftv v)
static BOOLEAN	jjMINRES_R (leftv res, leftv v)
static BOOLEAN	jjN2BI (leftv res, leftv v)
static BOOLEAN	jjNAMEOF (leftv res, leftv v)
static BOOLEAN	jjNAMES (leftv res, leftv v)
static BOOLEAN	jjNAMES_I (leftv res, leftv v)
static BOOLEAN	jjNOT (leftv res, leftv v)
static BOOLEAN	jjNVARS (leftv res, leftv v)
static BOOLEAN	jjOpenClose (leftv, leftv v)
static BOOLEAN	jjORD (leftv res, leftv v)
static BOOLEAN	jjPAR1 (leftv res, leftv v)
static BOOLEAN	jjPARDEG (leftv res, leftv v)
static BOOLEAN	jjPARSTR1 (leftv res, leftv v)
static BOOLEAN	jjP2BI (leftv res, leftv v)
static BOOLEAN	jjP2I (leftv res, leftv v)
static BOOLEAN	jjPREIMAGE_R (leftv res, leftv v)
static BOOLEAN	jjPRIME (leftv res, leftv v)
static BOOLEAN	jjPRUNE (leftv res, leftv v)
static BOOLEAN	jjP2N (leftv res, leftv v)
static BOOLEAN	jjRESERVEDNAME (leftv res, leftv v)
static BOOLEAN	jjRANK1 (leftv res, leftv v)
static BOOLEAN	jjREAD (leftv res, leftv v)
static BOOLEAN	jjREGULARITY (leftv res, leftv v)
static BOOLEAN	jjREPART (leftv res, leftv v)
static BOOLEAN	jjRINGLIST (leftv res, leftv v)
static BOOLEAN	jjRINGLIST_C (leftv res, leftv v)
static BOOLEAN	jjRING_LIST (leftv res, leftv v)
static BOOLEAN	jjROWS (leftv res, leftv v)
static BOOLEAN	jjROWS_BIM (leftv res, leftv v)
static BOOLEAN	jjROWS_IV (leftv res, leftv v)
static BOOLEAN	jjRPAR (leftv res, leftv v)
static BOOLEAN	jjS2I (leftv res, leftv v)
static BOOLEAN	jjSLIM_GB (leftv res, leftv u)
static BOOLEAN	jjSBA (leftv res, leftv v)
static BOOLEAN	jjSBA_1 (leftv res, leftv v, leftv u)
static BOOLEAN	jjSBA_2 (leftv res, leftv v, leftv u, leftv t)
static BOOLEAN	jjSTD (leftv res, leftv v)
static BOOLEAN	jjSort_Id (leftv res, leftv v)
static BOOLEAN	jjSQR_FREE (leftv res, leftv u)
static BOOLEAN	jjSYZYGY (leftv res, leftv v)
static BOOLEAN	jjTRACE_IV (leftv res, leftv v)
static BOOLEAN	jjTRANSP_BIM (leftv res, leftv v)
static BOOLEAN	jjTRANSP_IV (leftv res, leftv v)
static BOOLEAN	jjOPPOSITE (leftv res, leftv a)
static BOOLEAN	jjENVELOPE (leftv res, leftv a)
static BOOLEAN	jjTWOSTD (leftv res, leftv a)
static BOOLEAN	jjRIGHTSTD (leftv res, leftv v)
static BOOLEAN	jjTYPEOF (leftv res, leftv v)
static BOOLEAN	jjUNIVARIATE (leftv res, leftv v)
static BOOLEAN	jjVAR1 (leftv res, leftv v)
static BOOLEAN	jjVARSTR1 (leftv res, leftv v)
static BOOLEAN	jjVDIM (leftv res, leftv v)
BOOLEAN	jjWAIT1ST1 (leftv res, leftv u)
BOOLEAN	jjWAITALL1 (leftv res, leftv u)
BOOLEAN	jjLOAD (const char *s, BOOLEAN autoexport)
	load lib/module given in v More...
static void	WerrorS_dummy (const char *)
BOOLEAN	jjLOAD_TRY (const char *s)
static BOOLEAN	jjstrlen (leftv res, leftv v)
static BOOLEAN	jjpLength (leftv res, leftv v)
static BOOLEAN	jjidElem (leftv res, leftv v)
static BOOLEAN	jjidFreeModule (leftv res, leftv v)
static BOOLEAN	jjidVec2Ideal (leftv res, leftv v)
static BOOLEAN	jjrCharStr (leftv res, leftv v)
static BOOLEAN	jjpHead (leftv res, leftv v)
static BOOLEAN	jjidHead (leftv res, leftv v)
static BOOLEAN	jjidMinBase (leftv res, leftv v)
static BOOLEAN	jjpMaxComp (leftv res, leftv v)
static BOOLEAN	jjmpTrace (leftv res, leftv v)
static BOOLEAN	jjmpTransp (leftv res, leftv v)
static BOOLEAN	jjrOrdStr (leftv res, leftv v)
static BOOLEAN	jjrVarStr (leftv res, leftv v)
static BOOLEAN	jjrParStr (leftv res, leftv v)
static BOOLEAN	jjCOUNT_RES (leftv res, leftv v)
static BOOLEAN	jjDIM_R (leftv res, leftv v)
static BOOLEAN	jjidTransp (leftv res, leftv v)
static BOOLEAN	jjnInt (leftv res, leftv u)
static BOOLEAN	jjnlInt (leftv res, leftv u)
static BOOLEAN	jjBRACK_S (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjBRACK_Im (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjBRACK_Bim (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjBRACK_Ma (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjBRACK_SM (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjBRACK_Ma_I_IV (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjBRACK_Ma_IV_I (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjBRACK_Ma_IV_IV (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjPROC3 (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjRING_2 (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjBAREISS3 (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjCOEFFS3_Id (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjCOEFFS3_KB (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjCOEFFS3_P (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjELIMIN_ALG (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjELIMIN_HILB (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjFIND3 (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjFWALK3 (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjHILBERT3 (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjHOMOG_ID_W (leftv res, leftv u, leftv v, leftv)
static BOOLEAN	jjHOMOG_P_W (leftv res, leftv u, leftv v, leftv)
static BOOLEAN	jjHOMOG_W_M (leftv res, leftv v1, leftv v2, leftv v3)
static BOOLEAN	jjINTMAT3 (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjINTERSECT3 (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjINTERSEC3S (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjJET_P_IV (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjJET_P_P (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjJET_ID_IV (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjJET_ID_M (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjMINOR_M (leftv res, leftv v)
static BOOLEAN	jjNEWSTRUCT3 (leftv, leftv u, leftv v, leftv w)
static BOOLEAN	jjRANDOM_Im (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjSUBST_Test (leftv v, leftv w, int &ringvar, poly &monomexpr)
static BOOLEAN	jjSUBST_Bu (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjSUBST_P (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjSUBST_Id (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjSUBST_Id_X (leftv res, leftv u, leftv v, leftv w, int input_type)
static BOOLEAN	jjSUBST_Id_I (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjSUBST_Id_N (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjMATRIX_Id (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjMATRIX_Mo (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjMATRIX_Ma (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjMODULO3 (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjMODULO3S (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjSMATRIX_Mo (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjLIFT3 (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjLIFTSTD_SYZ (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjLIFTSTD_ALG (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjREDUCE3_CP (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjREDUCE3_CID (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjREDUCE3_P (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjREDUCE3_ID (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjRES3 (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjRING3 (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjSTATUS3 (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjSTD_HILB_W (leftv res, leftv u, leftv v, leftv w)
static BOOLEAN	jjBREAK0 (leftv, leftv)
static BOOLEAN	jjBREAK1 (leftv, leftv v)
static BOOLEAN	jjCALL1ARG (leftv res, leftv v)
static BOOLEAN	jjCALL2ARG (leftv res, leftv u)
static BOOLEAN	jjCALL3ARG (leftv res, leftv u)
static BOOLEAN	jjCOEF_M (leftv, leftv v)
static BOOLEAN	jjDIVISION4 (leftv res, leftv v)
static BOOLEAN	jjIDEAL_PL (leftv res, leftv v)
static BOOLEAN	jjFETCH_M (leftv res, leftv u)
static BOOLEAN	jjINTERSECT_PL (leftv res, leftv v)
static BOOLEAN	jjLU_INVERSE (leftv res, leftv v)
static BOOLEAN	jjLU_SOLVE (leftv res, leftv v)
static BOOLEAN	jjINTVEC_PL (leftv res, leftv v)
static BOOLEAN	jjJET4 (leftv res, leftv u)
static BOOLEAN	jjKLAMMER_PL (leftv res, leftv u)
static BOOLEAN	jjLIFT_4 (leftv res, leftv U)
static BOOLEAN	jjLIFTSTD_M (leftv res, leftv U)
BOOLEAN	jjLIST_PL (leftv res, leftv v)
static BOOLEAN	jjMODULO4 (leftv res, leftv u)
static BOOLEAN	jjNAMES0 (leftv res, leftv)
static BOOLEAN	jjOPTION_PL (leftv res, leftv v)
static BOOLEAN	jjREDUCE4 (leftv res, leftv u)
static BOOLEAN	jjREDUCE5 (leftv res, leftv u)
static BOOLEAN	jjRESERVED0 (leftv, leftv)
static BOOLEAN	jjRESERVEDLIST0 (leftv res, leftv)
static BOOLEAN	jjSTRING_PL (leftv res, leftv v)
static BOOLEAN	jjTEST (leftv, leftv v)
static BOOLEAN	jjFactModD_M (leftv res, leftv v)
static BOOLEAN	jjSTATUS_M (leftv res, leftv v)
static BOOLEAN	jjSUBST_M (leftv res, leftv u)
static BOOLEAN	jjQRDS (leftv res, leftv INPUT)
static BOOLEAN	jjSTD_HILB_WP (leftv res, leftv INPUT)
static BOOLEAN	jjRING_PL (leftv res, leftv a)
static BOOLEAN	jjRESTART (leftv, leftv u)
static BOOLEAN	iiExprArith2TabIntern (leftv res, leftv a, int op, leftv b, BOOLEAN proccall, const struct sValCmd2 *dA2, int at, int bt, const struct sConvertTypes *dConvertTypes)
BOOLEAN	iiExprArith2Tab (leftv res, leftv a, int op, const struct sValCmd2 *dA2, int at, const struct sConvertTypes *dConvertTypes)
	apply an operation 'op' to arguments a and a->next return TRUE on failure More...
BOOLEAN	iiExprArith2 (leftv res, leftv a, int op, leftv b, BOOLEAN proccall)
BOOLEAN	iiExprArith1Tab (leftv res, leftv a, int op, const struct sValCmd1 *dA1, int at, const struct sConvertTypes *dConvertTypes)
	apply an operation 'op' to an argument a return TRUE on failure More...
BOOLEAN	iiExprArith1 (leftv res, leftv a, int op)
static BOOLEAN	iiExprArith3TabIntern (leftv res, int op, leftv a, leftv b, leftv c, const struct sValCmd3 *dA3, int at, int bt, int ct, const struct sConvertTypes *dConvertTypes)
BOOLEAN	iiExprArith3 (leftv res, int op, leftv a, leftv b, leftv c)
BOOLEAN	iiExprArith3Tab (leftv res, leftv a, int op, const struct sValCmd3 *dA3, int at, const struct sConvertTypes *dConvertTypes)
	apply an operation 'op' to arguments a, a->next and a->next->next return TRUE on failure More...
BOOLEAN	iiExprArithM (leftv res, leftv a, int op)
int	IsCmd (const char *n, int &tok)
const char *	Tok2Cmdname (int tok)
int	iiInitArithmetic ()
	initialisation of arithmetic structured data More...
int	iiArithFindCmd (const char *szName)
char *	iiArithGetCmd (int nPos)
int	iiArithRemoveCmd (const char *szName)
static int	jjCOMPARE_ALL (const void *aa, const void *bb)
BOOLEAN	jjSORTLIST (leftv, leftv arg)
BOOLEAN	jjUNIQLIST (leftv, leftv arg)

Variables
long	all_farey =0L
long	farey_cnt =0L
STATIC_VAR SArithBase	sArithBase
	Base entry for arithmetic. More...
EXTERN_VAR int	cmdtok
EXTERN_VAR BOOLEAN	expected_parms
VAR int	iiOp
EXTERN_VAR int	singclap_factorize_retry
STATIC_VAR int	WerrorS_dummy_cnt =0
STATIC_VAR si_char_2	Tok2Cmdname_buf =" "

---

Data Structure Documentation

sValCmdTab

struct sValCmdTab

Definition at line 127 of file iparith.cc.

Data Fields
short	cmd
short	start

_scmdnames

struct _scmdnames

Definition at line 59 of file gentable.cc.

Data Fields
short	alias
const char *	name
char *	name
short	toktype
short	tokval

sValCmd1

struct sValCmd1

Definition at line 78 of file gentable.cc.

Data Fields
short	arg
short	cmd
int	p
proc1	p
short	res
short	valid_for

sValCmd2

struct sValCmd2

Definition at line 69 of file gentable.cc.

Data Fields
short	arg1
short	arg2
short	cmd
int	p
proc2	p
short	res
short	valid_for

sValCmd3

struct sValCmd3

Definition at line 86 of file gentable.cc.

Data Fields
short	arg1
short	arg2
short	arg3
short	cmd
int	p
proc3	p
short	res
short	valid_for

sValCmdM

struct sValCmdM

Definition at line 96 of file gentable.cc.

Data Fields
short	cmd
short	number_of_args
int	p
proc1	p
short	res
short	valid_for

SArithBase

struct SArithBase

Definition at line 184 of file iparith.cc.

Data Fields
unsigned	nCmdAllocated	number of commands-slots allocated
unsigned	nCmdUsed	number of commands used
unsigned	nLastIdentifier	valid identifiers are slot 1..nLastIdentifier
struct sValCmd1 *	psValCmd1
struct sValCmd2 *	psValCmd2
struct sValCmd3 *	psValCmd3
struct sValCmdM *	psValCmdM
cmdnames *	sCmds	array of existing commands

Macro Definition Documentation

ALLOW_LP

#define ALLOW_LP   64

Definition at line 111 of file iparith.cc.

ALLOW_NC

#define ALLOW_NC   ALLOW_LP|ALLOW_PLURAL

Definition at line 112 of file iparith.cc.

ALLOW_PLURAL

#define ALLOW_PLURAL   1

Definition at line 104 of file iparith.cc.

ALLOW_RING

#define ALLOW_RING   4

Definition at line 107 of file iparith.cc.

ALLOW_ZERODIVISOR

#define ALLOW_ZERODIVISOR   0

Definition at line 110 of file iparith.cc.

ALLOW_ZZ

#define ALLOW_ZZ   (ALLOW_RING|NO_ZERODIVISOR)

Definition at line 114 of file iparith.cc.

bit31

#define bit31   SIZEOF_LONG*8-1

Definition at line 124 of file iparith.cc.

COMM_PLURAL

#define COMM_PLURAL   2

Definition at line 106 of file iparith.cc.

D

#define D

(

A

)

(A)

Definition at line 8740 of file iparith.cc.

ii_div_by_0

#define ii_div_by_0   "div. by 0"

Definition at line 220 of file iparith.cc.

IPARITH

#define IPARITH

Definition at line 8742 of file iparith.cc.

NC_MASK

#define NC_MASK   (3+64)

Definition at line 92 of file iparith.cc.

NO_CONVERSION

#define NO_CONVERSION   32

Definition at line 120 of file iparith.cc.

NO_NC

#define NO_NC   0

Definition at line 105 of file iparith.cc.

NO_RING

#define NO_RING   0

Definition at line 108 of file iparith.cc.

NO_ZERODIVISOR

#define NO_ZERODIVISOR   8

Definition at line 109 of file iparith.cc.

NULL_VAL

#define NULL_VAL   NULL

Definition at line 8741 of file iparith.cc.

RING_MASK

#define RING_MASK   4

Definition at line 98 of file iparith.cc.

SIMPL_EQU

#define SIMPL_EQU   4

Definition at line 3291 of file iparith.cc.

SIMPL_LMDIV

#define SIMPL_LMDIV   32

Definition at line 3288 of file iparith.cc.

SIMPL_LMEQ

#define SIMPL_LMEQ   16

Definition at line 3289 of file iparith.cc.

SIMPL_MULT

#define SIMPL_MULT   8

Definition at line 3290 of file iparith.cc.

SIMPL_NORM

#define SIMPL_NORM   1

Definition at line 3293 of file iparith.cc.

SIMPL_NORMALIZE

#define SIMPL_NORMALIZE   64

Definition at line 3287 of file iparith.cc.

SIMPL_NULL

#define SIMPL_NULL   2

Definition at line 3292 of file iparith.cc.

WARN_RING

#define WARN_RING   16

Definition at line 118 of file iparith.cc.

ZERODIVISOR_MASK

#define ZERODIVISOR_MASK   8

Definition at line 99 of file iparith.cc.

Typedef Documentation

jjValCmdTab

typedef sValCmdTab jjValCmdTab[]

Definition at line 133 of file iparith.cc.

proc2

typedef BOOLEAN(* proc2) (leftv, leftv, leftv)

Definition at line 153 of file iparith.cc.

proc3

typedef BOOLEAN(* proc3) (leftv, leftv, leftv, leftv)

Definition at line 164 of file iparith.cc.

si_char_2

typedef char si_char_2[2]

Definition at line 9645 of file iparith.cc.

Function Documentation

_gentable_sort_cmds()

static int _gentable_sort_cmds ( const void *  a, const void *  b  )

static

compares to entry of cmdsname-list

Parameters

[in]	a
[in]	b

Returns

<ReturnValue>

Definition at line 9701 of file iparith.cc.

{
  cmdnames *pCmdL = (cmdnames*)a;
  cmdnames *pCmdR = (cmdnames*)b;
 
  if(a==NULL || b==NULL)             return 0;
 
  /* empty entries goes to the end of the list for later reuse */
  if(pCmdL->name==NULL) return 1;
  if(pCmdR->name==NULL) return -1;
 
  /* $INVALID$ must come first */
  if(strcmp(pCmdL->name, "$INVALID$")==0) return -1;
  if(strcmp(pCmdR->name, "$INVALID$")==0) return  1;
 
  /* tokval=-1 are reserved names at the end */
  if (pCmdL->tokval==-1)
  {
    if (pCmdR->tokval==-1)
       return strcmp(pCmdL->name, pCmdR->name);
    /* pCmdL->tokval==-1, pCmdL goes at the end */
    return 1;
  }
  /* pCmdR->tokval==-1, pCmdR goes at the end */
  if(pCmdR->tokval==-1) return -1;
 
  return strcmp(pCmdL->name, pCmdR->name);
}

check_valid()

static BOOLEAN check_valid ( const int  p, const int  op  )

static

Definition at line 9927 of file iparith.cc.

{
  if (rIsPluralRing(currRing))
  {
    if ((p & NC_MASK)==NO_NC)
    {
      WerrorS("not implemented for non-commutative rings");
      return TRUE;
    }
    else if ((p & NC_MASK)==COMM_PLURAL)
    {
      Warn("assume commutative subalgebra for cmd `%s` in >>%s<<",Tok2Cmdname(op),my_yylinebuf);
      return FALSE;
    }
    /* else, ALLOW_PLURAL */
  }
  else if (rIsLPRing(currRing))
  {
    if ((p & ALLOW_LP)==0)
    {
      Werror("`%s` not implemented for letterplace rings in >>%s<<",Tok2Cmdname(op),my_yylinebuf);
      return TRUE;
    }
  }
  if (rField_is_Ring(currRing))
  {
    if ((p & RING_MASK)==0 /*NO_RING*/)
    {
      WerrorS("not implemented for rings with rings as coeffients");
      return TRUE;
    }
    /* else ALLOW_RING */
    else if (((p & ZERODIVISOR_MASK)==NO_ZERODIVISOR)
    &&(!rField_is_Domain(currRing)))
    {
      WerrorS("domain required as coeffients");
      return TRUE;
    }
    /* else ALLOW_ZERODIVISOR */
    else if(((p & WARN_RING)==WARN_RING)&&(myynest==0))
    {
      WarnS("considering the image in Q[...]");
    }
  }
  return FALSE;
}

iiArithAddCmd()

int iiArithAddCmd	(	const char *	szName,
		short	nAlias,
		short	nTokval,
		short	nToktype,
		short	nPos = -1
	)

Definition at line 9868 of file iparith.cc.

{
  //printf("AddCmd(%s, %d, %d, %d, %d)\n", szName, nAlias,
  //       nTokval, nToktype, nPos);
  if(nPos>=0)
  {
    // no checks: we rely on a correct generated code in iparith.inc
    assume((unsigned)nPos < sArithBase.nCmdAllocated);
    assume(szName!=NULL);
    sArithBase.sCmds[nPos].name    = omStrDup(szName);
    sArithBase.sCmds[nPos].alias   = nAlias;
    sArithBase.sCmds[nPos].tokval  = nTokval;
    sArithBase.sCmds[nPos].toktype = nToktype;
    sArithBase.nCmdUsed++;
    //if(nTokval>0) sArithBase.nLastIdentifier++;
  }
  else
  {
    if(szName==NULL) return -1;
    int nIndex = iiArithFindCmd(szName);
    if(nIndex>=0)
    {
      Print("'%s' already exists at %d\n", szName, nIndex);
      return -1;
    }
 
    if(sArithBase.nCmdUsed>=sArithBase.nCmdAllocated)
    {
      /* needs to create new slots */
      unsigned long nSize = (sArithBase.nCmdAllocated+1)*sizeof(cmdnames);
      sArithBase.sCmds = (cmdnames *)omRealloc(sArithBase.sCmds, nSize);
      if(sArithBase.sCmds==NULL) return -1;
      sArithBase.nCmdAllocated++;
    }
    /* still free slots available */
    sArithBase.sCmds[sArithBase.nCmdUsed].name    = omStrDup(szName);
    sArithBase.sCmds[sArithBase.nCmdUsed].alias   = nAlias;
    sArithBase.sCmds[sArithBase.nCmdUsed].tokval  = nTokval;
    sArithBase.sCmds[sArithBase.nCmdUsed].toktype = nToktype;
    sArithBase.nCmdUsed++;
 
    qsort(sArithBase.sCmds, sArithBase.nCmdUsed, sizeof(cmdnames),
          (&_gentable_sort_cmds));
    for(sArithBase.nLastIdentifier=sArithBase.nCmdUsed-1;
        sArithBase.nLastIdentifier>0; sArithBase.nLastIdentifier--)
    {
      if(sArithBase.sCmds[sArithBase.nLastIdentifier].tokval>=0) break;
    }
    //Print("L=%d\n", sArithBase.nLastIdentifier);
  }
  return 0;
}

iiArithFindCmd()

int iiArithFindCmd

(

const char *

szName

)

Definition at line 9773 of file iparith.cc.

{
  int an=0;
  int i = 0,v = 0;
  int en=sArithBase.nLastIdentifier;
 
  loop
  //for(an=0; an<sArithBase.nCmdUsed; )
  {
    if(an>=en-1)
    {
      if (strcmp(szName, sArithBase.sCmds[an].name) == 0)
      {
        //Print("RET-an=%d %s\n", an, sArithBase.sCmds[an].name);
        return an;
      }
      else if (strcmp(szName, sArithBase.sCmds[en].name) == 0)
      {
        //Print("RET-en=%d %s\n", en, sArithBase.sCmds[en].name);
        return en;
      }
      else
      {
        //Print("RET- 1\n");
        return -1;
      }
    }
    i=(an+en)/2;
    if (*szName < *(sArithBase.sCmds[i].name))
    {
      en=i-1;
    }
    else if (*szName > *(sArithBase.sCmds[i].name))
    {
      an=i+1;
    }
    else
    {
      v=strcmp(szName,sArithBase.sCmds[i].name);
      if(v<0)
      {
        en=i-1;
      }
      else if(v>0)
      {
        an=i+1;
      }
      else /*v==0*/
      {
        //Print("RET-i=%d %s\n", i, sArithBase.sCmds[i].name);
        return i;
      }
    }
  }
  //if(i>=0 && i<sArithBase.nCmdUsed)
  //  return i;
  //PrintS("RET-2\n");
  return -2;
}

iiArithGetCmd()

char * iiArithGetCmd

(

int

nPos

)

Definition at line 9833 of file iparith.cc.

{
  if(nPos<0) return NULL;
  if(nPos<(int)sArithBase.nCmdUsed)
    return sArithBase.sCmds[nPos].name;
  return NULL;
}

iiArithRemoveCmd() [1/2]

int iiArithRemoveCmd

(

char *

szName

)

iiArithRemoveCmd() [2/2]

int iiArithRemoveCmd

(

const char *

szName

)

Definition at line 9841 of file iparith.cc.

{
  int nIndex;
  if(szName==NULL) return -1;
 
  nIndex = iiArithFindCmd(szName);
  if(nIndex<0 || nIndex>=(int)sArithBase.nCmdUsed)
  {
    Print("'%s' not found (%d)\n", szName, nIndex);
    return -1;
  }
  omFreeBinAddr(sArithBase.sCmds[nIndex].name);
  sArithBase.sCmds[nIndex].name=NULL;
  qsort(sArithBase.sCmds, sArithBase.nCmdUsed, sizeof(cmdnames),
        (&_gentable_sort_cmds));
  sArithBase.nCmdUsed--;
 
  /* fix last-identifier */
  for(sArithBase.nLastIdentifier=sArithBase.nCmdUsed-1;
      sArithBase.nLastIdentifier>0; sArithBase.nLastIdentifier--)
  {
    if(sArithBase.sCmds[sArithBase.nLastIdentifier].tokval>=0) break;
  }
  //Print("L=%d\n", sArithBase.nLastIdentifier);
  return 0;
}

iiExprArith1()

BOOLEAN iiExprArith1	(	leftv	res,
		leftv	a,
		int	op
	)

Definition at line 9113 of file iparith.cc.

{
  if (!errorreported)
  {
    res->Init();
#ifdef SIQ
    if (siq>0)
    {
      //Print("siq:%d\n",siq);
      command d=(command)omAlloc0Bin(sip_command_bin);
      memcpy(&d->arg1,a,sizeof(sleftv));
      a->Init();
      d->op=op;
      d->argc=1;
      res->data=(char *)d;
      res->rtyp=COMMAND;
      return FALSE;
    }
#endif
    int at=a->Typ();
    // handling bb-objects ----------------------------------------------------
    if(op>MAX_TOK) // explicit type conversion to bb
    {
      blackbox *bb=getBlackboxStuff(op);
      if (bb!=NULL)
      {
        res->rtyp=op;
        res->data=bb->blackbox_Init(bb);
        return bb->blackbox_Assign(res,a);
      }
      else
      return TRUE;
    }
    else if (at>MAX_TOK) // argument is of bb-type
    {
      blackbox *bb=getBlackboxStuff(at);
      if (bb!=NULL)
      {
        if(!bb->blackbox_Op1(op,res,a)) return FALSE;
        // if not defined, try generic routines (attrib, defined,..)
      }
      else
      return TRUE;
    }
    if (errorreported) return TRUE;
 
    int i=iiTabIndex(dArithTab1,JJTAB1LEN,op);
    return iiExprArith1Tab(res,a,op, dArith1+i,at,dConvertTypes);
  }
  a->CleanUp();
  return TRUE;
}

iiExprArith1Tab()

BOOLEAN iiExprArith1Tab	(	leftv	res,
		leftv	a,
		int	op,
		const struct sValCmd1 *	dA1,
		int	at,
		const struct sConvertTypes *	dConvertTypes
	)

apply an operation 'op' to an argument a return TRUE on failure

Parameters

[out]	res	pre-allocated result
[in]	a	argument
[in]	op	operation
[in]	dA1	table of possible proc assumes dArith1[0].cmd==op
[in]	at	a->Typ()
[in]	dConvertTypes	table of type conversions

Definition at line 8983 of file iparith.cc.

{
  res->Init();
  BOOLEAN call_failed=FALSE;
 
  if (!errorreported)
  {
    BOOLEAN failed=FALSE;
    iiOp=op;
    int i = 0;
    while (dA1[i].cmd==op)
    {
      if (at==dA1[i].arg)
      {
        if (currRing!=NULL)
        {
          if (check_valid(dA1[i].valid_for,op)) break;
        }
        else
        {
          if (RingDependend(dA1[i].res))
          {
            WerrorS("no ring active (5)");
            break;
          }
        }
        if (traceit&TRACE_CALL)
          Print("call %s(%s)\n",iiTwoOps(op),Tok2Cmdname(at));
        res->rtyp=dA1[i].res;
        if ((call_failed=dA1[i].p(res,a)))
        {
          break;// leave loop, goto error handling
        }
        if (a->Next()!=NULL)
        {
          res->next=(leftv)omAllocBin(sleftv_bin);
          failed=iiExprArith1(res->next,a->next,op);
        }
        a->CleanUp();
        return failed;
      }
      i++;
    }
    // implicite type conversion --------------------------------------------
    if (dA1[i].cmd!=op)
    {
      leftv an = (leftv)omAlloc0Bin(sleftv_bin);
      i=0;
      //Print("fuer %c , typ: %s\n",op,Tok2Cmdname(at));
      while (dA1[i].cmd==op)
      {
        int ai;
        //Print("test %s\n",Tok2Cmdname(dA1[i].arg));
        if ((dA1[i].valid_for & NO_CONVERSION)==0)
        {
          if ((ai=iiTestConvert(at,dA1[i].arg,dConvertTypes))!=0)
          {
            if (currRing!=NULL)
            {
              if (check_valid(dA1[i].valid_for,op)) break;
            }
            else
            {
              if (RingDependend(dA1[i].res))
              {
                WerrorS("no ring active (6)");
                break;
              }
            }
            if (traceit&TRACE_CALL)
              Print("call %s(%s)\n",iiTwoOps(op),Tok2Cmdname(dA1[i].arg));
            res->rtyp=dA1[i].res;
            failed= ((iiConvert(at,dA1[i].arg,ai,a,an,dConvertTypes))
            || (call_failed=dA1[i].p(res,an)));
            // everything done, clean up temp. variables
            if (failed)
            {
              // leave loop, goto error handling
              break;
            }
            else
            {
              if (an->Next() != NULL)
              {
                res->next = (leftv)omAllocBin(sleftv_bin);
                failed=iiExprArith1(res->next,an->next,op);
              }
              // everything ok, clean up and return
              an->CleanUp();
              omFreeBin((ADDRESS)an, sleftv_bin);
              return failed;
            }
          }
        }
        i++;
      }
      an->CleanUp();
      omFreeBin((ADDRESS)an, sleftv_bin);
    }
    // error handling
    if (!errorreported)
    {
      if ((at==0) && (a->Fullname()!=sNoName_fe))
      {
        Werror("`%s` is not defined",a->Fullname());
      }
      else
      {
        i=0;
        const char *s = iiTwoOps(op);
        Werror("%s(`%s`) failed"
                ,s,Tok2Cmdname(at));
        if ((!call_failed) && BVERBOSE(V_SHOW_USE))
        {
          while (dA1[i].cmd==op)
          {
            if ((dA1[i].res!=0)
            && (dA1[i].p!=jjWRONG))
              Werror("expected %s(`%s`)"
                ,s,Tok2Cmdname(dA1[i].arg));
            i++;
          }
        }
      }
    }
    res->rtyp = UNKNOWN;
  }
  a->CleanUp();
  return TRUE;
}

iiExprArith2()

BOOLEAN iiExprArith2	(	leftv	res,
		leftv	a,
		int	op,
		leftv	b,
		BOOLEAN	proccall
	)

Definition at line 8924 of file iparith.cc.

{
  res->Init();
 
  if (!errorreported)
  {
#ifdef SIQ
    if (siq>0)
    {
      //Print("siq:%d\n",siq);
      command d=(command)omAlloc0Bin(sip_command_bin);
      memcpy(&d->arg1,a,sizeof(sleftv));
      a->Init();
      memcpy(&d->arg2,b,sizeof(sleftv));
      b->Init();
      d->argc=2;
      d->op=op;
      res->data=(char *)d;
      res->rtyp=COMMAND;
      return FALSE;
    }
#endif
    int at=a->Typ();
    int bt=b->Typ();
    // handling bb-objects ----------------------------------------------------
    if (at>MAX_TOK)
    {
      blackbox *bb=getBlackboxStuff(at);
      if (bb!=NULL)
      {
        if(!bb->blackbox_Op2(op,res,a,b)) return FALSE;
        // if not defined, try generic (attrib, ..)
      }
      else
      return TRUE;
    }
    else if ((bt>MAX_TOK)&&(op!='('))
    {
      blackbox *bb=getBlackboxStuff(bt);
      if (bb!=NULL)
      {
        if(!bb->blackbox_Op2(op,res,a,b)) return FALSE;
        // if not defined, try generic (attrib, ..)
      }
      else
      return TRUE;
    }
    int i=iiTabIndex(dArithTab2,JJTAB2LEN,op);
    return iiExprArith2TabIntern(res,a,op,b,proccall,dArith2+i,at,bt,dConvertTypes);
  }
  a->CleanUp();
  b->CleanUp();
  return TRUE;
}

iiExprArith2Tab()

BOOLEAN iiExprArith2Tab	(	leftv	res,
		leftv	a,
		int	op,
		const struct sValCmd2 *	dA2,
		int	at,
		const struct sConvertTypes *	dConvertTypes
	)

apply an operation 'op' to arguments a and a->next return TRUE on failure

Parameters

[out]	res	pre-allocated result
[in]	a	2 arguments
[in]	op	operation
[in]	dA2	table of possible proc assumes dA2[0].cmd==op
[in]	at	a->Typ()
[in]	dConvertTypes	table of type conversions

Definition at line 8910 of file iparith.cc.

{
  res->Init();
  leftv b=a->next;
  a->next=NULL;
  int bt=b->Typ();
  BOOLEAN bo=iiExprArith2TabIntern(res,a,op,b,TRUE,dA2,at,bt,dConvertTypes);
  a->next=b;
  a->CleanUp(); // to clean up the chain, content already done in iiExprArith2TabIntern
  return bo;
}

iiExprArith2TabIntern()

static BOOLEAN iiExprArith2TabIntern ( leftv  res, leftv  a, int  op, leftv  b, BOOLEAN  proccall, const struct sValCmd2 *  dA2, int  at, int  bt, const struct sConvertTypes *  dConvertTypes  )

static

Definition at line 8751 of file iparith.cc.

{
  BOOLEAN call_failed=FALSE;
 
  if (!errorreported)
  {
    int i=0;
    iiOp=op;
    while (dA2[i].cmd==op)
    {
      if ((at==dA2[i].arg1)
      && (bt==dA2[i].arg2))
      {
        res->rtyp=dA2[i].res;
        if (currRing!=NULL)
        {
          if (check_valid(dA2[i].valid_for,op)) break;
        }
        else
        {
          if (RingDependend(dA2[i].res))
          {
            WerrorS("no ring active (3)");
            break;
          }
        }
        if (traceit&TRACE_CALL)
          Print("call %s(%s,%s)\n",iiTwoOps(op),Tok2Cmdname(at),Tok2Cmdname(bt));
        if ((call_failed=dA2[i].p(res,a,b)))
        {
          break;// leave loop, goto error handling
        }
        a->CleanUp();
        b->CleanUp();
        //Print("op: %d,result typ:%d\n",op,res->rtyp);
        return FALSE;
      }
      i++;
    }
    // implicite type conversion ----------------------------------------------
    if (dA2[i].cmd!=op)
    {
      int ai,bi;
      leftv an = (leftv)omAlloc0Bin(sleftv_bin);
      leftv bn = (leftv)omAlloc0Bin(sleftv_bin);
      BOOLEAN failed=FALSE;
      i=0; /*iiTabIndex(dArithTab2,JJTAB2LEN,op);*/
      //Print("op: %c, type: %s %s\n",op,Tok2Cmdname(at),Tok2Cmdname(bt));
      while (dA2[i].cmd==op)
      {
        //Print("test %s %s\n",Tok2Cmdname(dA2[i].arg1),Tok2Cmdname(dA2[i].arg2));
        if ((dA2[i].valid_for & NO_CONVERSION)==0)
        {
          if ((ai=iiTestConvert(at,dA2[i].arg1,dConvertTypes))!=0)
          {
            if ((bi=iiTestConvert(bt,dA2[i].arg2,dConvertTypes))!=0)
            {
              res->rtyp=dA2[i].res;
              if (currRing!=NULL)
              {
                if (check_valid(dA2[i].valid_for,op)) break;
              }
              else
              {
                if (RingDependend(dA2[i].res))
                {
                  WerrorS("no ring active (4)");
                  break;
                }
              }
              if (traceit&TRACE_CALL)
                Print("call %s(%s,%s)\n",iiTwoOps(op),
                Tok2Cmdname(dA2[i].arg1),Tok2Cmdname(dA2[i].arg2));
              failed= ((iiConvert(at,dA2[i].arg1,ai,a,an))
              || (iiConvert(bt,dA2[i].arg2,bi,b,bn))
              || (call_failed=dA2[i].p(res,an,bn)));
              // everything done, clean up temp. variables
              if (failed)
              {
                // leave loop, goto error handling
                break;
              }
              else
              {
                // everything ok, clean up and return
                an->CleanUp();
                bn->CleanUp();
                omFreeBin((ADDRESS)an, sleftv_bin);
                omFreeBin((ADDRESS)bn, sleftv_bin);
                return FALSE;
              }
            }
          }
        }
        i++;
      }
      an->CleanUp();
      bn->CleanUp();
      omFreeBin((ADDRESS)an, sleftv_bin);
      omFreeBin((ADDRESS)bn, sleftv_bin);
    }
    // error handling ---------------------------------------------------
    const char *s=NULL;
    if (!errorreported)
    {
      if ((at==0) && (a->Fullname()!=sNoName_fe))
      {
        s=a->Fullname();
      }
      else if ((bt==0) && (b->Fullname()!=sNoName_fe))
      {
        s=b->Fullname();
      }
      if (s!=NULL)
        Werror("`%s` is not defined",s);
      else
      {
        i=0; /*iiTabIndex(dArithTab2,JJTAB2LEN,op);*/
        s = iiTwoOps(op);
        if (proccall)
        {
          Werror("%s(`%s`,`%s`) failed"
                ,s,Tok2Cmdname(at),Tok2Cmdname(bt));
        }
        else
        {
          Werror("`%s` %s `%s` failed"
                ,Tok2Cmdname(at),s,Tok2Cmdname(bt));
        }
        if ((!call_failed) && BVERBOSE(V_SHOW_USE))
        {
          while (dA2[i].cmd==op)
          {
            if(((at==dA2[i].arg1)||(bt==dA2[i].arg2))
            && (dA2[i].res!=0)
            && (dA2[i].p!=jjWRONG2))
            {
              if (proccall)
                Werror("expected %s(`%s`,`%s`)"
                  ,s,Tok2Cmdname(dA2[i].arg1),Tok2Cmdname(dA2[i].arg2));
              else
                Werror("expected `%s` %s `%s`"
                  ,Tok2Cmdname(dA2[i].arg1),s,Tok2Cmdname(dA2[i].arg2));
            }
            i++;
          }
        }
      }
    }
    a->CleanUp();
    b->CleanUp();
    res->rtyp = UNKNOWN;
  }
  return TRUE;
}

iiExprArith3()

BOOLEAN iiExprArith3	(	leftv	res,
		int	op,
		leftv	a,
		leftv	b,
		leftv	c
	)

Definition at line 9323 of file iparith.cc.

{
  res->Init();
 
  if (!errorreported)
  {
#ifdef SIQ
    if (siq>0)
    {
      //Print("siq:%d\n",siq);
      command d=(command)omAlloc0Bin(sip_command_bin);
      memcpy(&d->arg1,a,sizeof(sleftv));
      a->Init();
      memcpy(&d->arg2,b,sizeof(sleftv));
      b->Init();
      memcpy(&d->arg3,c,sizeof(sleftv));
      c->Init();
      d->op=op;
      d->argc=3;
      res->data=(char *)d;
      res->rtyp=COMMAND;
      return FALSE;
    }
#endif
    int at=a->Typ();
    // handling bb-objects ----------------------------------------------
    if (at>MAX_TOK)
    {
      blackbox *bb=getBlackboxStuff(at);
      if (bb!=NULL)
      {
        if(!bb->blackbox_Op3(op,res,a,b,c)) return FALSE;
        // otherwise, try defaul (attrib,..)
      }
      else
      return TRUE;
      if (errorreported) return TRUE;
    }
    int bt=b->Typ();
    int ct=c->Typ();
 
    iiOp=op;
    int i=0;
    while ((dArith3[i].cmd!=op)&&(dArith3[i].cmd!=0)) i++;
    return iiExprArith3TabIntern(res,op,a,b,c,dArith3+i,at,bt,ct,dConvertTypes);
  }
  a->CleanUp();
  b->CleanUp();
  c->CleanUp();
  //Print("op: %d,result typ:%d\n",op,res->rtyp);
  return TRUE;
}

iiExprArith3Tab()

BOOLEAN iiExprArith3Tab	(	leftv	res,
		leftv	a,
		int	op,
		const struct sValCmd3 *	dA3,
		int	at,
		const struct sConvertTypes *	dConvertTypes
	)

apply an operation 'op' to arguments a, a->next and a->next->next return TRUE on failure

Parameters

[out]	res	pre-allocated result
[in]	a	3 arguments
[in]	op	operation
[in]	dA3	table of possible proc assumes dA3[0].cmd==op
[in]	at	a->Typ()
[in]	dConvertTypes	table of type conversions

Definition at line 9375 of file iparith.cc.

{
  res->Init();
  leftv b=a->next;
  a->next=NULL;
  int bt=b->Typ();
  leftv c=b->next;
  b->next=NULL;
  int ct=c->Typ();
  BOOLEAN bo=iiExprArith3TabIntern(res,op,a,b,c,dA3,at,bt,ct,dConvertTypes);
  b->next=c;
  a->next=b;
  a->CleanUp(); // to cleanup the chain, content already done
  return bo;
}

iiExprArith3TabIntern()

static BOOLEAN iiExprArith3TabIntern ( leftv  res, int  op, leftv  a, leftv  b, leftv  c, const struct sValCmd3 *  dA3, int  at, int  bt, int  ct, const struct sConvertTypes *  dConvertTypes  )

static

Definition at line 9170 of file iparith.cc.

{
  BOOLEAN call_failed=FALSE;
 
  assume(dA3[0].cmd==op);
 
  if (!errorreported)
  {
    int i=0;
    iiOp=op;
    while (dA3[i].cmd==op)
    {
      if ((at==dA3[i].arg1)
      && (bt==dA3[i].arg2)
      && (ct==dA3[i].arg3))
      {
        res->rtyp=dA3[i].res;
        if (currRing!=NULL)
        {
          if (check_valid(dA3[i].valid_for,op)) break;
        }
        if (traceit&TRACE_CALL)
          Print("call %s(%s,%s,%s)\n",
            iiTwoOps(op),Tok2Cmdname(at),Tok2Cmdname(bt),Tok2Cmdname(ct));
        if ((call_failed=dA3[i].p(res,a,b,c)))
        {
          break;// leave loop, goto error handling
        }
        a->CleanUp();
        b->CleanUp();
        c->CleanUp();
        return FALSE;
      }
      i++;
    }
    // implicite type conversion ----------------------------------------------
    if (dA3[i].cmd!=op)
    {
      int ai,bi,ci;
      leftv an = (leftv)omAlloc0Bin(sleftv_bin);
      leftv bn = (leftv)omAlloc0Bin(sleftv_bin);
      leftv cn = (leftv)omAlloc0Bin(sleftv_bin);
      BOOLEAN failed=FALSE;
      i=0;
      //while ((dA3[i].cmd!=op)&&(dA3[i].cmd!=0)) i++;
      while (dA3[i].cmd==op)
      {
        if ((dA3[i].valid_for & NO_CONVERSION)==0)
        {
          if ((ai=iiTestConvert(at,dA3[i].arg1,dConvertTypes))!=0)
          {
            if ((bi=iiTestConvert(bt,dA3[i].arg2,dConvertTypes))!=0)
            {
              if ((ci=iiTestConvert(ct,dA3[i].arg3,dConvertTypes))!=0)
              {
                res->rtyp=dA3[i].res;
                if (currRing!=NULL)
                {
                  if (check_valid(dA3[i].valid_for,op)) break;
                }
                if (traceit&TRACE_CALL)
                  Print("call %s(%s,%s,%s)\n",
                    iiTwoOps(op),Tok2Cmdname(dA3[i].arg1),
                    Tok2Cmdname(dA3[i].arg2),Tok2Cmdname(dA3[i].arg3));
                failed= ((iiConvert(at,dA3[i].arg1,ai,a,an,dConvertTypes))
                  || (iiConvert(bt,dA3[i].arg2,bi,b,bn,dConvertTypes))
                  || (iiConvert(ct,dA3[i].arg3,ci,c,cn,dConvertTypes))
                  || (call_failed=dA3[i].p(res,an,bn,cn)));
                // everything done, clean up temp. variables
                if (failed)
                {
                  // leave loop, goto error handling
                  break;
                }
                else
                {
                  // everything ok, clean up and return
                  an->CleanUp();
                  bn->CleanUp();
                  cn->CleanUp();
                  omFreeBin((ADDRESS)an, sleftv_bin);
                  omFreeBin((ADDRESS)bn, sleftv_bin);
                  omFreeBin((ADDRESS)cn, sleftv_bin);
                  //Print("op: %d,result typ:%d\n",op,res->rtyp);
                  return FALSE;
                }
              }
            }
          }
        }
        i++;
      }
      an->CleanUp();
      bn->CleanUp();
      cn->CleanUp();
      omFreeBin((ADDRESS)an, sleftv_bin);
      omFreeBin((ADDRESS)bn, sleftv_bin);
      omFreeBin((ADDRESS)cn, sleftv_bin);
    }
    // error handling ---------------------------------------------------
    if (!errorreported)
    {
      const char *s=NULL;
      if ((at==0) && (a->Fullname()!=sNoName_fe))
      {
        s=a->Fullname();
      }
      else if ((bt==0) && (b->Fullname()!=sNoName_fe))
      {
        s=b->Fullname();
      }
      else if ((ct==0) && (c->Fullname()!=sNoName_fe))
      {
        s=c->Fullname();
      }
      if (s!=NULL)
        Werror("`%s` is not defined",s);
      else
      {
        i=0;
        //while ((dA3[i].cmd!=op)&&(dA3[i].cmd!=0)) i++;
        const char *s = iiTwoOps(op);
        Werror("%s(`%s`,`%s`,`%s`) failed"
                ,s,Tok2Cmdname(at),Tok2Cmdname(bt),Tok2Cmdname(ct));
        if ((!call_failed) && BVERBOSE(V_SHOW_USE))
        {
          while (dA3[i].cmd==op)
          {
            if(((at==dA3[i].arg1)
            ||(bt==dA3[i].arg2)
            ||(ct==dA3[i].arg3))
            && (dA3[i].res!=0))
            {
              Werror("expected %s(`%s`,`%s`,`%s`)"
                  ,s,Tok2Cmdname(dA3[i].arg1)
                  ,Tok2Cmdname(dA3[i].arg2)
                  ,Tok2Cmdname(dA3[i].arg3));
            }
            i++;
          }
        }
      }
    }
    res->rtyp = UNKNOWN;
  }
  a->CleanUp();
  b->CleanUp();
  c->CleanUp();
  //Print("op: %d,result typ:%d\n",op,res->rtyp);
  return TRUE;
}

iiExprArithM()

BOOLEAN iiExprArithM	(	leftv	res,
		leftv	a,
		int	op
	)

Definition at line 9414 of file iparith.cc.

{
  res->Init();
 
  if (!errorreported)
  {
#ifdef SIQ
    if (siq>0)
    {
      //Print("siq:%d\n",siq);
      command d=(command)omAlloc0Bin(sip_command_bin);
      d->op=op;
      res->data=(char *)d;
      if (a!=NULL)
      {
        d->argc=a->listLength();
        // else : d->argc=0;
        memcpy(&d->arg1,a,sizeof(sleftv));
        switch(d->argc)
        {
          case 3:
            memcpy(&d->arg3,a->next->next,sizeof(sleftv));
            a->next->next->Init();
            /* no break */
          case 2:
            memcpy(&d->arg2,a->next,sizeof(sleftv));
            a->next->Init();
            a->next->next=d->arg2.next;
            d->arg2.next=NULL;
            /* no break */
          case 1:
            a->Init();
            a->next=d->arg1.next;
            d->arg1.next=NULL;
        }
        if (d->argc>3) a->next=NULL;
        a->name=NULL;
        a->rtyp=0;
        a->data=NULL;
        a->e=NULL;
        a->attribute=NULL;
        a->CleanUp();
      }
      res->rtyp=COMMAND;
      return FALSE;
    }
#endif
    if ((a!=NULL) && (a->Typ()>MAX_TOK))
    {
      blackbox *bb=getBlackboxStuff(a->Typ());
      if (bb!=NULL)
      {
        if(!bb->blackbox_OpM(op,res,a)) return FALSE;
        // otherwise, try default
      }
      else
      return TRUE;
      if (errorreported) return TRUE;
    }
    int args=0;
    if (a!=NULL) args=a->listLength();
 
    iiOp=op;
    int i=0;
    while ((dArithM[i].cmd!=op)&&(dArithM[i].cmd!=0)) i++;
    while (dArithM[i].cmd==op)
    {
      if ((args==dArithM[i].number_of_args)
      || (dArithM[i].number_of_args==-1)
      || ((dArithM[i].number_of_args==-2)&&(args>0)))
      {
        res->rtyp=dArithM[i].res;
        if (currRing!=NULL)
        {
          if (check_valid(dArithM[i].valid_for,op)) break;
        }
        if (traceit&TRACE_CALL)
          Print("call %s(... (%d args))\n", iiTwoOps(op),args);
        if (dArithM[i].p(res,a))
        {
          break;// leave loop, goto error handling
        }
        if (a!=NULL) a->CleanUp();
        //Print("op: %d,result typ:%d\n",op,res->rtyp);
        return FALSE;
      }
      i++;
    }
    // error handling
    if (!errorreported)
    {
      if ((args>0) && (a->rtyp==0) && (a->Name()!=sNoName_fe))
      {
        Werror("`%s` is not defined",a->Fullname());
      }
      else
      {
        const char *s = iiTwoOps(op);
        Werror("%s(...) failed",s);
      }
    }
    res->rtyp = UNKNOWN;
  }
  if (a!=NULL) a->CleanUp();
        //Print("op: %d,result typ:%d\n",op,res->rtyp);
  return TRUE;
}

iiInitArithmetic()

int iiInitArithmetic

(

)

initialisation of arithmetic structured data

Return values

0	on success

Definition at line 9738 of file iparith.cc.

{
  //printf("iiInitArithmetic()\n");
  memset(&sArithBase, 0, sizeof(sArithBase));
  iiInitCmdName();
  /* fix last-identifier */
#if 0
  /* we expect that gentable allready did every thing */
  for(sArithBase.nLastIdentifier=sArithBase.nCmdUsed-1;
      sArithBase.nLastIdentifier>0; sArithBase.nLastIdentifier--) {
    if(sArithBase.sCmds[sArithBase.nLastIdentifier].tokval>=0) break;
  }
#endif
  //Print("L=%d\n", sArithBase.nLastIdentifier);
 
  //iiArithAddCmd(szName, nAlias, nTokval, nToktype);
  //iiArithAddCmd("mygcd", 1, GCD_CMD, CMD_2);
 
  //iiArithAddCmd("Top", 0,-1,0);
 
 
  //for(i=0; i<sArithBase.nCmdUsed; i++) {
  //  printf("CMD[%03d] %s, %d, %d, %d\n", i,
  //         sArithBase.sCmds[i].name,
  //         sArithBase.sCmds[i].alias,
  //         sArithBase.sCmds[i].tokval,
  //         sArithBase.sCmds[i].toktype);
  //}
  //iiArithRemoveCmd("Top");
  //iiArithAddCmd("mygcd", 2, GCD_CMD, CMD_2);
  //iiArithRemoveCmd("mygcd");
  //iiArithAddCmd("kkk", 1, 1234, CMD_1);
  return 0;
}

iin_Int()

static int iin_Int ( number &  n, coeffs  cf  )

static

Definition at line 225 of file iparith.cc.

{
  long l=n_Int(n,cf);
  int i=(int)l;
  if ((long)i==l) return l;
  return 0;
}

iiTabIndex()

static int iiTabIndex ( const jjValCmdTab  dArithTab, const int  len, const int  op  )

static

Definition at line 9622 of file iparith.cc.

{
  // user defined types are not in the pre-computed table:
  if (op>MAX_TOK) return 0;
 
  int a=0;
  int e=len;
  int p=len/2;
  do
  {
     if (op==dArithTab[p].cmd) return dArithTab[p].start;
     if (op<dArithTab[p].cmd) e=p-1;
     else   a = p+1;
     p=a+(e-a)/2;
  }
  while ( a <= e);
 
  // catch missing a cmd:
  // may be missing as a op for blackbox, if the first operand is "undef" instead of bb
  // Print("op %d (%c) unknown",op,op);
  return 0;
}

iiTokType()

int iiTokType

(

int

op

)

Definition at line 233 of file iparith.cc.

{
  for (unsigned i=0;i<sArithBase.nCmdUsed;i++)
  {
    if (sArithBase.sCmds[i].tokval==op)
      return sArithBase.sCmds[i].toktype;
  }
  return 0;
}

IsCmd()

int IsCmd	(	const char *	n,
		int &	tok
	)

Definition at line 9523 of file iparith.cc.

{
  int i;
  int an=1;
  int en=sArithBase.nLastIdentifier;
 
  loop
  //for(an=0; an<sArithBase.nCmdUsed; )
  {
    if(an>=en-1)
    {
      if (strcmp(n, sArithBase.sCmds[an].name) == 0)
      {
        i=an;
        break;
      }
      else if ((an!=en) && (strcmp(n, sArithBase.sCmds[en].name) == 0))
      {
        i=en;
        break;
      }
      else
      {
        // -- blackbox extensions:
        // return 0;
        return blackboxIsCmd(n,tok);
      }
    }
    i=(an+en)/2;
    if (*n < *(sArithBase.sCmds[i].name))
    {
      en=i-1;
    }
    else if (*n > *(sArithBase.sCmds[i].name))
    {
      an=i+1;
    }
    else
    {
      int v=strcmp(n,sArithBase.sCmds[i].name);
      if(v<0)
      {
        en=i-1;
      }
      else if(v>0)
      {
        an=i+1;
      }
      else /*v==0*/
      {
        break;
      }
    }
  }
  lastreserved=sArithBase.sCmds[i].name;
  tok=sArithBase.sCmds[i].tokval;
  if(sArithBase.sCmds[i].alias==2)
  {
    Warn("outdated identifier `%s` used - please change your code",
    sArithBase.sCmds[i].name);
    sArithBase.sCmds[i].alias=1;
  }
  #if 0
  if (currRingHdl==NULL)
  {
    #ifdef SIQ
    if (siq<=0)
    {
    #endif
      if ((tok>=BEGIN_RING) && (tok<=END_RING))
      {
        WerrorS("no ring active");
        return 0;
      }
    #ifdef SIQ
    }
    #endif
  }
  #endif
  if (!expected_parms)
  {
    switch (tok)
    {
      case IDEAL_CMD:
      case INT_CMD:
      case INTVEC_CMD:
      case MAP_CMD:
      case MATRIX_CMD:
      case MODUL_CMD:
      case POLY_CMD:
      case PROC_CMD:
      case RING_CMD:
      case STRING_CMD:
        cmdtok = tok;
        break;
    }
  }
  return sArithBase.sCmds[i].toktype;
}

jjALIGN_M()

static BOOLEAN jjALIGN_M ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1779 of file iparith.cc.

{
  ideal M=(ideal)u->CopyD();
  int s=(int)(long)v->Data();
  for(int i=IDELEMS(M)-1; i>=0;i--)
  {
    if (s+p_MinComp(M->m[i],currRing)<=0)
    { id_Delete(&M,currRing);return TRUE;}
  }
  id_Shift(M,s,currRing);
  res->data=M;
  return FALSE;
}

jjALIGN_V()

static BOOLEAN jjALIGN_V ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1769 of file iparith.cc.

{
  poly p=(poly)u->CopyD();
  int s=(int)(long)v->Data();
  if (s+p_MinComp(p,currRing)<=0)
  { p_Delete(&p,currRing);return TRUE;}
  p_Shift(&p,s,currRing);
  res->data=p;
  return FALSE;
}

jjAND_I()

static BOOLEAN jjAND_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1380 of file iparith.cc.

{
  res->data = (char *)((long)u->Data() && (long)v->Data());
  return FALSE;
}

jjBAREISS()

static BOOLEAN jjBAREISS ( leftv  res, leftv  v  )

static

Definition at line 3813 of file iparith.cc.

{
  //matrix m=(matrix)v->Data();
  //lists l=mpBareiss(m,FALSE);
  intvec *iv;
  ideal m;
  sm_CallBareiss((ideal)v->Data(),0,0,m,&iv, currRing);
  lists l=(lists)omAllocBin(slists_bin);
  l->Init(2);
  l->m[0].rtyp=MODUL_CMD;
  l->m[1].rtyp=INTVEC_CMD;
  l->m[0].data=(void *)m;
  l->m[1].data=(void *)iv;
  res->data = (char *)l;
  return FALSE;
}

jjBAREISS3()

static BOOLEAN jjBAREISS3 ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6016 of file iparith.cc.

{
  intvec *iv;
  ideal m;
  lists l=(lists)omAllocBin(slists_bin);
  int k=(int)(long)w->Data();
  if (k>=0)
  {
    sm_CallBareiss((ideal)u->Data(),(int)(long)v->Data(),(int)(long)w->Data(),m,&iv, currRing);
    l->Init(2);
    l->m[0].rtyp=MODUL_CMD;
    l->m[1].rtyp=INTVEC_CMD;
    l->m[0].data=(void *)m;
    l->m[1].data=(void *)iv;
  }
  else
  {
    m=sm_CallSolv((ideal)u->Data(), currRing);
    l->Init(1);
    l->m[0].rtyp=IDEAL_CMD;
    l->m[0].data=(void *)m;
  }
  res->data = (char *)l;
  return FALSE;
}

jjBAREISS_BIM()

static BOOLEAN jjBAREISS_BIM ( leftv  res, leftv  v  )

static

Definition at line 3836 of file iparith.cc.

{
  bigintmat *b=(bigintmat*)v->CopyD(BIGINTMAT_CMD);
  b->hnf();
  res->data=(char*)b;
  return FALSE;
}

jjBI2IM()

static BOOLEAN jjBI2IM ( leftv  res, leftv  u  )

static

Definition at line 3858 of file iparith.cc.

{
  bigintmat *b=(bigintmat*)u->Data();
  res->data=(void *)bim2iv(b);
  return FALSE;
}

jjBI2N()

static BOOLEAN jjBI2N ( leftv  res, leftv  u  )

static

Definition at line 3843 of file iparith.cc.

{
  BOOLEAN bo=FALSE;
  number n=(number)u->CopyD();
  nMapFunc nMap=n_SetMap(coeffs_BIGINT,currRing->cf);
  if (nMap!=NULL)
    res->data=nMap(n,coeffs_BIGINT,currRing->cf);
  else
  {
    Werror("cannot convert bigint to cring %s", nCoeffName(currRing->cf));
    bo=TRUE;
  }
  n_Delete(&n,coeffs_BIGINT);
  return bo;
}

jjBI2P()

static BOOLEAN jjBI2P ( leftv  res, leftv  u  )

static

Definition at line 3864 of file iparith.cc.

{
  sleftv tmp;
  BOOLEAN bo=jjBI2N(&tmp,u);
  if (!bo)
  {
    number n=(number) tmp.data;
    if (nIsZero(n)) { res->data=NULL;nDelete(&n); }
    else
    {
      res->data=(void *)pNSet(n);
    }
  }
  return bo;
}

jjBRACK_Bim()

static BOOLEAN jjBRACK_Bim ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 5761 of file iparith.cc.

{
  bigintmat *bim = (bigintmat *)u->Data();
  int   r = (int)(long)v->Data();
  int   c = (int)(long)w->Data();
  if ((r<1)||(r>bim->rows())||(c<1)||(c>bim->cols()))
  {
    Werror("wrong range[%d,%d] in bigintmat %s(%d x %d)",
           r,c,u->Fullname(),bim->rows(),bim->cols());
    return TRUE;
  }
  res->data=u->data; u->data=NULL;
  res->rtyp=u->rtyp; u->rtyp=0;
  res->name=u->name; u->name=NULL;
  Subexpr e=jjMakeSub(v);
          e->next=jjMakeSub(w);
  if (u->e==NULL)
    res->e=e;
  else
  {
    Subexpr h=u->e;
    while (h->next!=NULL) h=h->next;
    h->next=e;
    res->e=u->e;
    u->e=NULL;
  }
  return FALSE;
}

jjBRACK_Im()

static BOOLEAN jjBRACK_Im ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 5734 of file iparith.cc.

{
  intvec *iv = (intvec *)u->Data();
  int   r = (int)(long)v->Data();
  int   c = (int)(long)w->Data();
  if ((r<1)||(r>iv->rows())||(c<1)||(c>iv->cols()))
  {
    Werror("wrong range[%d,%d] in intmat %s(%d x %d)",
           r,c,u->Fullname(),iv->rows(),iv->cols());
    return TRUE;
  }
  res->data=u->data; u->data=NULL;
  res->rtyp=u->rtyp; u->rtyp=0;
  res->name=u->name; u->name=NULL;
  Subexpr e=jjMakeSub(v);
          e->next=jjMakeSub(w);
  if (u->e==NULL) res->e=e;
  else
  {
    Subexpr h=u->e;
    while (h->next!=NULL) h=h->next;
    h->next=e;
    res->e=u->e;
    u->e=NULL;
  }
  return FALSE;
}

jjBRACK_Ma()

static BOOLEAN jjBRACK_Ma ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 5789 of file iparith.cc.

{
  matrix m= (matrix)u->Data();
  int   r = (int)(long)v->Data();
  int   c = (int)(long)w->Data();
  //Print("gen. elem %d, %d\n",r,c);
  if ((r<1)||(r>MATROWS(m))||(c<1)||(c>MATCOLS(m)))
  {
    Werror("wrong range[%d,%d] in matrix %s(%d x %d)",r,c,u->Fullname(),
      MATROWS(m),MATCOLS(m));
    return TRUE;
  }
  res->data=u->data; u->data=NULL;
  res->rtyp=u->rtyp; u->rtyp=0;
  res->name=u->name; u->name=NULL;
  Subexpr e=jjMakeSub(v);
          e->next=jjMakeSub(w);
  if (u->e==NULL)
    res->e=e;
  else
  {
    Subexpr h=u->e;
    while (h->next!=NULL) h=h->next;
    h->next=e;
    res->e=u->e;
    u->e=NULL;
  }
  return FALSE;
}

jjBRACK_Ma_I_IV()

static BOOLEAN jjBRACK_Ma_I_IV ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 5847 of file iparith.cc.

{
  if ((u->rtyp!=IDHDL)||(u->e!=NULL))
  {
    WerrorS("cannot build expression lists from unnamed objects");
    return TRUE;
  }
 
  leftv p=NULL;
  intvec *iv=(intvec *)w->Data();
  int l;
  BOOLEAN nok;
  sleftv ut;
  memcpy(&ut,u,sizeof(ut));
  sleftv t;
  t.Init();
  t.rtyp=INT_CMD;
  for (l=0;l< iv->length(); l++)
  {
    t.data=(char *)(long)((*iv)[l]);
    if (p==NULL)
    {
      p=res;
    }
    else
    {
      p->next=(leftv)omAlloc0Bin(sleftv_bin);
      p=p->next;
    }
    memcpy(u,&ut,sizeof(ut));
    if (u->Typ() == MATRIX_CMD)
      nok=jjBRACK_Ma(p,u,v,&t);
    else if (u->Typ() == BIGINTMAT_CMD)
      nok=jjBRACK_Bim(p,u,v,&t);
    else /* INTMAT_CMD */
      nok=jjBRACK_Im(p,u,v,&t);
    if (nok)
    {
      while (res->next!=NULL)
      {
        p=res->next->next;
        omFreeBin((ADDRESS)res->next, sleftv_bin);
        // res->e aufraeumen !!!!
        res->next=p;
      }
      return TRUE;
    }
  }
  return FALSE;
}

jjBRACK_Ma_IV_I()

static BOOLEAN jjBRACK_Ma_IV_I ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 5897 of file iparith.cc.

{
  if ((u->rtyp!=IDHDL)||(u->e!=NULL))
  {
    WerrorS("cannot build expression lists from unnamed objects");
    return TRUE;
  }
  leftv p=NULL;
  intvec *iv=(intvec *)v->Data();
  int l;
  BOOLEAN nok;
  sleftv ut;
  memcpy(&ut,u,sizeof(ut));
  sleftv t;
  t.Init();
  t.rtyp=INT_CMD;
  for (l=0;l< iv->length(); l++)
  {
    t.data=(char *)(long)((*iv)[l]);
    if (p==NULL)
    {
      p=res;
    }
    else
    {
      p->next=(leftv)omAlloc0Bin(sleftv_bin);
      p=p->next;
    }
    memcpy(u,&ut,sizeof(ut));
    if (u->Typ() == MATRIX_CMD)
      nok=jjBRACK_Ma(p,u,&t,w);
    else if (u->Typ() == BIGINTMAT_CMD)
      nok=jjBRACK_Bim(p,u,&t,w);
    else /* INTMAT_CMD */
      nok=jjBRACK_Im(p,u,&t,w);
    if (nok)
    {
      while (res->next!=NULL)
      {
        p=res->next->next;
        omFreeBin((ADDRESS)res->next, sleftv_bin);
        // res->e aufraeumen !!
        res->next=p;
      }
      return TRUE;
    }
  }
  return FALSE;
}

jjBRACK_Ma_IV_IV()

static BOOLEAN jjBRACK_Ma_IV_IV ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 5946 of file iparith.cc.

{
  if ((u->rtyp!=IDHDL)||(u->e!=NULL))
  {
    WerrorS("cannot build expression lists from unnamed objects");
    return TRUE;
  }
  leftv p=NULL;
  intvec *vv=(intvec *)v->Data();
  intvec *wv=(intvec *)w->Data();
  int vl;
  int wl;
  BOOLEAN nok;
 
  sleftv t1,t2,ut;
  memcpy(&ut,u,sizeof(ut));
  t1.Init();
  t1.rtyp=INT_CMD;
  t2.Init();
  t2.rtyp=INT_CMD;
  for (vl=0;vl< vv->length(); vl++)
  {
    t1.data=(char *)(long)((*vv)[vl]);
    for (wl=0;wl< wv->length(); wl++)
    {
      t2.data=(char *)(long)((*wv)[wl]);
      if (p==NULL)
      {
        p=res;
      }
      else
      {
        p->next=(leftv)omAlloc0Bin(sleftv_bin);
        p=p->next;
      }
      memcpy(u,&ut,sizeof(ut));
      if (u->Typ() == MATRIX_CMD)
        nok=jjBRACK_Ma(p,u,&t1,&t2);
      else if (u->Typ() == BIGINTMAT_CMD)
        nok=jjBRACK_Bim(p,u,&t1,&t2);
      else /* INTMAT_CMD */
        nok=jjBRACK_Im(p,u,&t1,&t2);
      if (nok)
      {
        res->CleanUp();
        return TRUE;
      }
    }
  }
  return FALSE;
}

jjBRACK_S()

static BOOLEAN jjBRACK_S ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 5718 of file iparith.cc.

{
  char *s= (char *)u->Data();
  int   r = (int)(long)v->Data();
  int   c = (int)(long)w->Data();
  int l = strlen(s);
 
  if ( (r<1) || (r>l) || (c<0) )
  {
    Werror("wrong range[%d,%d] in string %s",r,c,u->Fullname());
    return TRUE;
  }
  res->data = (char *)omAlloc((long)(c+1));
  sprintf((char *)res->data,"%-*.*s",c,c,s+r-1);
  return FALSE;
}

jjBRACK_SM()

static BOOLEAN jjBRACK_SM ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 5818 of file iparith.cc.

{
  ideal m= (ideal)u->Data();
  int   r = (int)(long)v->Data();
  int   c = (int)(long)w->Data();
  //Print("gen. elem %d, %d\n",r,c);
  if ((r<1)||(r>m->rank)||(c<1)||(c>IDELEMS(m)))
  {
    Werror("wrong range[%d,%d] in matrix %s(%d x %d)",r,c,u->Fullname(),
      (int)m->rank,IDELEMS(m));
    return TRUE;
  }
  res->data=u->data; u->data=NULL;
  res->rtyp=u->rtyp; u->rtyp=0;
  res->name=u->name; u->name=NULL;
  Subexpr e=jjMakeSub(v);
          e->next=jjMakeSub(w);
  if (u->e==NULL)
    res->e=e;
  else
  {
    Subexpr h=u->e;
    while (h->next!=NULL) h=h->next;
    h->next=e;
    res->e=u->e;
    u->e=NULL;
  }
  return FALSE;
}

jjBRACKET()

static BOOLEAN jjBRACKET ( leftv  res, leftv  a, leftv  b  )

static

Definition at line 2908 of file iparith.cc.

{
  res->data=NULL;
 
  if (rIsPluralRing(currRing) || rIsLPRing(currRing))
  {
    const poly q = (poly)b->Data();
 
    if( q != NULL )
    {
      if( (poly)a->Data() != NULL )
      {
        if (rIsPluralRing(currRing))
        {
          poly p = (poly)a->CopyD(POLY_CMD); // p = copy!
          res->data = nc_p_Bracket_qq(p,q, currRing); // p will be destroyed!
        }
        else if (rIsLPRing(currRing))
        {
          const poly p = (poly)a->Data();
          res->data = pAdd(ppMult_qq(p,q), pNeg(ppMult_qq(q,p)));
        }
      }
    }
  }
  return FALSE;
}

jjBRACKET_REC()

static BOOLEAN jjBRACKET_REC ( leftv  res, leftv  a, leftv  b, leftv  c  )

static

Definition at line 2935 of file iparith.cc.

{
  res->data=NULL;
 
  if (rIsLPRing(currRing) || rIsPluralRing(currRing))
  {
    const poly q = (poly)b->Data();
    if(q != NULL)
    {
      if((poly)a->Data() != NULL)
      {
        const poly p = (poly)a->Data();
        int k=(int)(long)c->Data();
        if (k > 0)
        {
          poly qq = pCopy(q);
          for (int i = 0; i < k; i++)
          {
            poly qq_ref = qq;
            if (rIsLPRing(currRing))
            {
              qq = pAdd(ppMult_qq(p,qq), pNeg(ppMult_qq(qq,p)));
            }
            else if (rIsPluralRing(currRing))
            {
              qq = nc_p_Bracket_qq(pCopy(p), qq, currRing);
            }
            pDelete(&qq_ref);
            if (qq == NULL) break;
          }
          res->data = qq;
        }
        else
        {
          Werror("invalid number of iterations");
        }
      }
    }
  }
  return FALSE;
}

jjBREAK0()

static BOOLEAN jjBREAK0 ( leftv  , leftv    )

static

Definition at line 7140 of file iparith.cc.

{
#ifdef HAVE_SDB
  sdb_show_bp();
#endif
  return FALSE;
}

jjBREAK1()

static BOOLEAN jjBREAK1 ( leftv  , leftv  v  )

static

Definition at line 7147 of file iparith.cc.

{
#ifdef HAVE_SDB
  if(v->Typ()==PROC_CMD)
  {
    int lineno=0;
    if((v->next!=NULL) && (v->next->Typ()==INT_CMD))
    {
      lineno=(int)(long)v->next->Data();
    }
    return sdb_set_breakpoint(v->Name(),lineno);
  }
  return TRUE;
#else
 return FALSE;
#endif
}

jjCALL1ARG()

static BOOLEAN jjCALL1ARG ( leftv  res, leftv  v  )

static

Definition at line 7164 of file iparith.cc.

{
  return iiExprArith1(res,v,iiOp);
}

jjCALL1MANY()

static BOOLEAN jjCALL1MANY ( leftv  res, leftv  u  )

static

Definition at line 3879 of file iparith.cc.

{
  return iiExprArithM(res,u,iiOp);
}

jjCALL2ARG()

static BOOLEAN jjCALL2ARG ( leftv  res, leftv  u  )

static

Definition at line 7168 of file iparith.cc.

{
  leftv v=u->next;
  u->next=NULL;
  BOOLEAN b=iiExprArith2(res,u,iiOp,v, (iiOp > 255));
  u->next=v;
  return b;
}

jjCALL3ARG()

static BOOLEAN jjCALL3ARG ( leftv  res, leftv  u  )

static

Definition at line 7176 of file iparith.cc.

{
  leftv v = u->next;
  leftv w = v->next;
  u->next = NULL;
  v->next = NULL;
  BOOLEAN b = iiExprArith3(res, iiOp, u, v, w);
  u->next = v;
  v->next = w;
  return b;
}

jjCHAR()

static BOOLEAN jjCHAR ( leftv  res, leftv  v  )

static

Definition at line 3883 of file iparith.cc.

{
  res->data = (char *)(long)rChar((ring)v->Data());
  return FALSE;
}

jjCHINREM_BI()

static BOOLEAN jjCHINREM_BI ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1682 of file iparith.cc.

{
  intvec *c=(intvec*)u->Data();
  intvec* p=(intvec*)v->Data();
  int rl=p->length();
  number *x=(number *)omAlloc(rl*sizeof(number));
  number *q=(number *)omAlloc(rl*sizeof(number));
  int i;
  for(i=rl-1;i>=0;i--)
  {
    q[i]=n_Init((*p)[i], coeffs_BIGINT);
    x[i]=n_Init((*c)[i], coeffs_BIGINT);
  }
  CFArray iv(rl);
  number n=n_ChineseRemainderSym(x,q,rl,FALSE,iv,coeffs_BIGINT);
  for(i=rl-1;i>=0;i--)
  {
    n_Delete(&(q[i]),coeffs_BIGINT);
    n_Delete(&(x[i]),coeffs_BIGINT);
  }
  omFree(x); omFree(q);
  res->data=(char *)n;
  return FALSE;
}

jjCHINREM_ID()

static BOOLEAN jjCHINREM_ID ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 9974 of file iparith.cc.

{
  if ((currRing!=NULL)
  && rField_is_Ring(currRing)
  && (!rField_is_Z(currRing)))
  {
    WerrorS("not implemented for rings with rings as coeffients (except ZZ)");
    return TRUE;
  }
  coeffs cf;
  lists c=(lists)u->CopyD(); // list of ideal or bigint/int
  int rl=c->nr+1;
  int return_type=c->m[0].Typ();
  if ((return_type!=IDEAL_CMD)
  && (return_type!=MODUL_CMD)
  && (return_type!=SMATRIX_CMD)
  && (return_type!=MATRIX_CMD)
  && (return_type!=POLY_CMD))
  {
    if((return_type==BIGINT_CMD)
    ||(return_type==INT_CMD))
      return_type=BIGINT_CMD;
    else if (return_type==LIST_CMD)
    {
      // create a tmp list of the correct size
      lists res_l=(lists)omAllocBin(slists_bin);
      res_l->Init(rl /*c->nr+1*/);
      BOOLEAN bo=FALSE;
      int tab_pos=iiTabIndex(dArithTab2,JJTAB2LEN,CHINREM_CMD);
      for (unsigned i=0;i<=(unsigned)c->nr;i++)
      {
        sleftv tmp;
        tmp.Copy(v);
        bo=iiExprArith2TabIntern(&res_l->m[i],&c->m[i],CHINREM_CMD,&tmp,TRUE,dArith2+tab_pos,c->m[i].rtyp,tmp.rtyp,dConvertTypes);
        if (bo) { Werror("chinrem failed for list entry %d",i+1); break;}
      }
      c->Clean();
      res->data=res_l;
      res->rtyp=LIST_CMD;
      return bo;
    }
    else
    {
      c->Clean();
      WerrorS("poly/ideal/module/matrix/list expected");
      return TRUE;
    }
  }
  if (return_type==BIGINT_CMD)
    cf=coeffs_BIGINT;
  else
  {
    cf=currRing->cf;
    if (nCoeff_is_Extension(cf) && (cf->extRing!=NULL))
      cf=cf->extRing->cf;
  }
  lists pl=NULL;
  intvec *p=NULL;
  if (v->Typ()==LIST_CMD)
  {
    pl=(lists)v->Data();
    if (pl->nr!=rl-1)
    {
      WerrorS("wromg number of primes");
      return TRUE;
    }
  }
  else
  {
    p=(intvec*)v->Data();
    if (p->length()!=rl)
    {
      WerrorS("wromg number of primes");
      return TRUE;
    }
  }
  ideal result;
  ideal *x=(ideal *)omAlloc(rl*sizeof(ideal));
  number *xx=NULL;
  nMapFunc nMap=n_SetMap(coeffs_BIGINT,cf);
  int i;
  if (return_type!=BIGINT_CMD)
  {
    for(i=rl-1;i>=0;i--)
    {
      if (c->m[i].Typ()!=return_type)
      {
        Werror("%s expected at pos %d",Tok2Cmdname(return_type),i+1);
        omFree(x); // delete c
        return TRUE;
      }
      if (return_type==POLY_CMD)
      {
        x[i]=idInit(1,1);
        x[i]->m[0]=(poly)c->m[i].CopyD();
      }
      else
      {
        x[i]=(ideal)c->m[i].CopyD();
      }
      //c->m[i].Init();
    }
  }
  else
  {
    if (nMap==NULL)
    {
      Werror("not implemented: map bigint -> %s", nCoeffName(cf));
      return TRUE;
    }
    xx=(number *)omAlloc(rl*sizeof(number));
    for(i=rl-1;i>=0;i--)
    {
      if (c->m[i].Typ()==INT_CMD)
      {
        xx[i]=n_Init(((int)(long)c->m[i].Data()),cf);
      }
      else if (c->m[i].Typ()==BIGINT_CMD)
      {
        xx[i]=nMap((number)c->m[i].Data(),coeffs_BIGINT,cf);
      }
      else
      {
        Werror("bigint expected at pos %d",i+1);
        omFree(x); // delete c
        omFree(xx); // delete c
        return TRUE;
      }
    }
  }
  number *q=(number *)omAlloc(rl*sizeof(number));
  if (p!=NULL)
  {
    for(i=rl-1;i>=0;i--)
    {
      q[i]=n_Init((*p)[i], cf);
    }
  }
  else
  {
    for(i=rl-1;i>=0;i--)
    {
      if (pl->m[i].Typ()==INT_CMD)
      {
        q[i]=n_Init((int)(long)pl->m[i].Data(),cf);
      }
      else if (pl->m[i].Typ()==BIGINT_CMD)
      {
        q[i]=nMap((number)(pl->m[i].Data()),coeffs_BIGINT,cf);
      }
      else
      {
        Werror("bigint expected at pos %d",i+1);
        for(i++;i<rl;i++)
        {
          n_Delete(&(q[i]),cf);
        }
        omFree(x); // delete c
        omFree(q); // delete pl
        if (xx!=NULL) omFree(xx); // delete c
        return TRUE;
      }
    }
  }
  if (return_type==BIGINT_CMD)
  {
    CFArray i_v(rl);
    number n=n_ChineseRemainderSym(xx,q,rl,TRUE,i_v,coeffs_BIGINT);
    res->data=(char *)n;
  }
  else
  {
    #if 0
    #ifdef HAVE_VSPACE
    int cpus = (long) feOptValue(FE_OPT_CPUS);
    if ((cpus>1) && (rField_is_Q(currRing)))
      result=id_ChineseRemainder_0(x,q,rl,currRing); // deletes also x
    else
    #endif
    #endif
      result=id_ChineseRemainder(x,q,rl,currRing); // deletes also x
    c->Clean();
    if ((return_type==POLY_CMD) &&(result!=NULL))
    {
      res->data=(char *)result->m[0];
      result->m[0]=NULL;
      idDelete(&result);
    }
    else
      res->data=(char *)result;
  }
  for(i=rl-1;i>=0;i--)
  {
    n_Delete(&(q[i]),cf);
  }
  omFree(q);
  res->rtyp=return_type;
  return result==NULL;
}

jjCOEF()

static BOOLEAN jjCOEF ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1793 of file iparith.cc.

{
  poly p=(poly)v->Data();
  if ((p==NULL)||(pNext(p)!=NULL)) return TRUE;
  res->data=(char *)mp_CoeffProc((poly)u->Data(),p /*(poly)v->Data()*/,currRing);
  return FALSE;
}

jjCOEF_Id()

static BOOLEAN jjCOEF_Id ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1800 of file iparith.cc.

{
  poly p=(poly)v->Data();
  if ((p==NULL)||(pNext(p)!=NULL)) return TRUE;
  res->data=(char *)mp_CoeffProcId((ideal)u->Data(),p /*(poly)v->Data()*/,currRing);
  return FALSE;
}

jjCOEF_M()

static BOOLEAN jjCOEF_M ( leftv  , leftv  v  )

static

Definition at line 7188 of file iparith.cc.

{
  const short t[]={4,VECTOR_CMD,POLY_CMD,MATRIX_CMD,MATRIX_CMD};
  if (iiCheckTypes(v,t,1))
  {
    idhdl c=(idhdl)v->next->next->data;
    if (v->next->next->next->rtyp!=IDHDL) return TRUE;
    idhdl m=(idhdl)v->next->next->next->data;
    idDelete((ideal *)&(c->data.uideal));
    idDelete((ideal *)&(m->data.uideal));
    mp_Coef2((poly)v->Data(),(poly)v->next->Data(),
      (matrix *)&(c->data.umatrix),(matrix *)&(m->data.umatrix),currRing);
    return FALSE;
  }
  return TRUE;
}

jjCOEFFS1()

static BOOLEAN jjCOEFFS1 ( leftv  res, leftv  v  )

static

Definition at line 3888 of file iparith.cc.

{
  ring r=(ring)v->Data();
  r->cf->ref++;
  res->data = (char *)r->cf;
  return FALSE;
}

jjCOEFFS2_KB()

static BOOLEAN jjCOEFFS2_KB ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1818 of file iparith.cc.

{
  poly p = pInit();
  int i;
  for (i=1; i<=currRing->N; i++)
  {
    pSetExp(p, i, 1);
  }
  pSetm(p);
  res->data = (void*)idCoeffOfKBase((ideal)(u->Data()),
                                    (ideal)(v->Data()), p);
  pLmFree(&p);
  return FALSE;
}

jjCOEFFS3_Id()

static BOOLEAN jjCOEFFS3_Id ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6041 of file iparith.cc.

{
  if ((w->rtyp!=IDHDL)||(w->e!=NULL))
  {
    WerrorS("3rd argument must be a name of a matrix");
    return TRUE;
  }
  ideal i=(ideal)u->Data();
  int rank=(int)i->rank;
  BOOLEAN r=jjCOEFFS_Id(res,u,v);
  if (r) return TRUE;
  mp_Monomials((matrix)res->data, rank, pVar((poly)v->Data()),(matrix)w->Data(),currRing);
  return FALSE;
}

jjCOEFFS3_KB()

static BOOLEAN jjCOEFFS3_KB ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6055 of file iparith.cc.

{
  res->data=(void*)idCoeffOfKBase((ideal)(u->Data()),
           (ideal)(v->Data()),(poly)(w->Data()));
  return FALSE;
}

jjCOEFFS3_P()

static BOOLEAN jjCOEFFS3_P ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6061 of file iparith.cc.

{
  if ((w->rtyp!=IDHDL)||(w->e!=NULL))
  {
    WerrorS("3rd argument must be a name of a matrix");
    return TRUE;
  }
  // CopyD for POLY_CMD and VECTOR_CMD are identical:
  poly p=(poly)u->CopyD(POLY_CMD);
  ideal i=idInit(1,1);
  i->m[0]=p;
  sleftv t;
  t.Init();
  t.data=(char *)i;
  t.rtyp=IDEAL_CMD;
  int rank=1;
  if (u->Typ()==VECTOR_CMD)
  {
    i->rank=rank=pMaxComp(p);
    t.rtyp=MODUL_CMD;
  }
  BOOLEAN r=jjCOEFFS_Id(res,&t,v);
  t.CleanUp();
  if (r) return TRUE;
  mp_Monomials((matrix)res->data, rank, pVar((poly)v->Data()),(matrix)w->Data(),currRing);
  return FALSE;
}

jjCOEFFS_Id()

static BOOLEAN jjCOEFFS_Id ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1807 of file iparith.cc.

{
  int i=pVar((poly)v->Data());
  if (i==0)
  {
    WerrorS("ringvar expected");
    return TRUE;
  }
  res->data=(char *)mp_Coeffs((ideal)u->CopyD(),i,currRing);
  return FALSE;
}

jjCOLCOL()

static BOOLEAN jjCOLCOL ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 694 of file iparith.cc.

{
  switch(u->Typ())
  {
    case 0:
    {
      int name_err=0;
      if(isupper(u->name[0]))
      {
        const char *c=u->name+1;
        while((*c!='\0')&&(islower(*c)||(isdigit(*c))||(*c=='_'))) c++;
        if (*c!='\0')
          name_err=1;
        else
        {
          Print("%s of type 'ANY'. Trying load.\n", u->name);
          if(iiTryLoadLib(u, u->name))
          {
            Werror("'%s' no such package", u->name);
            return TRUE;
          }
          syMake(u,u->name,NULL);
        }
      }
      else name_err=1;
      if(name_err)
      { Werror("'%s' is an invalid package name",u->name);return TRUE;}
      // and now, after the loading: use next case !!! no break !!!
    }
    case PACKAGE_CMD:
      {
        package pa=(package)u->Data();
        if (u->rtyp==IDHDL) pa=IDPACKAGE((idhdl)u->data);
        if((!pa->loaded)
        && (pa->language > LANG_TOP))
        {
          Werror("'%s' not loaded", u->name);
          return TRUE;
        }
        if(v->rtyp == IDHDL)
        {
          v->name = omStrDup(v->name);
        }
        else if (v->rtyp!=0)
        {
          WerrorS("reserved name with ::");
          return TRUE;
        }
        v->req_packhdl=pa;
        syMake(v, v->name, pa);
        memcpy(res, v, sizeof(sleftv));
        v->Init();
      }
      break;
    case DEF_CMD:
      break;
    default:
      WerrorS("<package>::<id> expected");
      return TRUE;
  }
  return FALSE;
}

jjCOLON()

static BOOLEAN jjCOLON ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 323 of file iparith.cc.

{
  int l=(int)(long)v->Data();
  if (l>=0)
  {
    int d=(int)(long)u->Data();
    intvec *vv=new intvec(l);
    int i;
    for(i=l-1;i>=0;i--) { (*vv)[i]=d; }
    res->data=(char *)vv;
  }
  return (l<0);
}

jjCOLS()

static BOOLEAN jjCOLS ( leftv  res, leftv  v  )

static

Definition at line 3895 of file iparith.cc.

{
  res->data = (char *)(long)MATCOLS((matrix)(v->Data()));
  return FALSE;
}

jjCOLS_BIM()

static BOOLEAN jjCOLS_BIM ( leftv  res, leftv  v  )

static

Definition at line 3900 of file iparith.cc.

{
  res->data = (char *)(long)((bigintmat*)(v->Data()))->cols();
  return FALSE;
}

jjCOLS_IV()

static BOOLEAN jjCOLS_IV ( leftv  res, leftv  v  )

static

Definition at line 3905 of file iparith.cc.

{
  res->data = (char *)(long)((intvec*)(v->Data()))->cols();
  return FALSE;
}

jjCOMPARE_ALL()

static int jjCOMPARE_ALL ( const void *  aa, const void *  bb  )

static

Definition at line 10192 of file iparith.cc.

{
  leftv a=(leftv)aa;
  int at=a->Typ();
  leftv b=(leftv)bb;
  int bt=b->Typ();
  if (at < bt) return -1;
  if (at > bt) return 1;
  int tab_pos=iiTabIndex(dArithTab2,JJTAB2LEN,'<');
  sleftv tmp;
  tmp.Init();
  iiOp='<';
  BOOLEAN bo=iiExprArith2TabIntern(&tmp,a,'<',b,FALSE,dArith2+tab_pos,at,bt,dConvertTypes);
  if (bo)
  {
    Werror(" no `<` for %s",Tok2Cmdname(at));
    unsigned long ad=(unsigned long)a->Data();
    unsigned long bd=(unsigned long)b->Data();
    if (ad<bd) return -1;
    else if (ad==bd) return 0;
    else return 1;
  }
  else if (tmp.data==NULL) /* not < */
  {
    iiOp=EQUAL_EQUAL;
    tab_pos=iiTabIndex(dArithTab2,JJTAB2LEN,EQUAL_EQUAL);
    bo=iiExprArith2TabIntern(&tmp,a,EQUAL_EQUAL,b,FALSE,dArith2+tab_pos,at,bt,dConvertTypes);
    if (bo)
    {
      Werror(" no `==` for %s",Tok2Cmdname(at));
      unsigned long ad=(unsigned long)a->Data();
      unsigned long bd=(unsigned long)b->Data();
      if (ad<bd) return -1;
      else if (ad==bd) return 0;
      else return 1;
    }
    else if (tmp.data==NULL) /* not <,== */ return 1;
    else return 0;
  }
  else return -1;
}

jjCOMPARE_BIM()

static BOOLEAN jjCOMPARE_BIM ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 370 of file iparith.cc.

{
  bigintmat*    a = (bigintmat * )(u->Data());
  bigintmat*    b = (bigintmat * )(v->Data());
  int r=a->compare(b);
  switch  (iiOp)
  {
    case '<':
      res->data  = (char *) (r<0);
      break;
    case '>':
      res->data  = (char *) (r>0);
      break;
    case LE:
      res->data  = (char *) (r<=0);
      break;
    case GE:
      res->data  = (char *) (r>=0);
      break;
    case EQUAL_EQUAL:
    case NOTEQUAL: /* negation handled by jjEQUAL_REST */
      res->data  = (char *) (r==0);
      break;
  }
  jjEQUAL_REST(res,u,v);
  if(r==-2) { WerrorS("size incompatible"); return TRUE; }
  return FALSE;
}

jjCOMPARE_IV()

static BOOLEAN jjCOMPARE_IV ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 342 of file iparith.cc.

{
  intvec*    a = (intvec * )(u->Data());
  intvec*    b = (intvec * )(v->Data());
  int r=a->compare(b);
  switch  (iiOp)
  {
    case '<':
      res->data  = (char *) (r<0);
      break;
    case '>':
      res->data  = (char *) (r>0);
      break;
    case LE:
      res->data  = (char *) (r<=0);
      break;
    case GE:
      res->data  = (char *) (r>=0);
      break;
    case EQUAL_EQUAL:
    case NOTEQUAL: /* negation handled by jjEQUAL_REST */
      res->data  = (char *) (r==0);
      break;
  }
  jjEQUAL_REST(res,u,v);
  if(r==-2) { WerrorS("size incompatible"); return TRUE; }
  return FALSE;
}

jjCOMPARE_IV_I()

static BOOLEAN jjCOMPARE_IV_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 398 of file iparith.cc.

{
  intvec* a = (intvec * )(u->Data());
  int     b = (int)(long)(v->Data());
  int r=a->compare(b);
  switch  (iiOp)
  {
    case '<':
      res->data  = (char *) (r<0);
      break;
    case '>':
      res->data  = (char *) (r>0);
      break;
    case LE:
      res->data  = (char *) (r<=0);
      break;
    case GE:
      res->data  = (char *) (r>=0);
      break;
    case EQUAL_EQUAL:
    case NOTEQUAL: /* negation handled by jjEQUAL_REST */
      res->data  = (char *) (r==0);
      break;
  }
  jjEQUAL_REST(res,u,v);
  return FALSE;
}

jjCOMPARE_MA()

static BOOLEAN jjCOMPARE_MA ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 425 of file iparith.cc.

{
  //Print("in: >>%s<<\n",my_yylinebuf);
  matrix a=(matrix)u->Data();
  matrix b=(matrix)v->Data();
  int r=mp_Compare(a,b,currRing);
  switch  (iiOp)
  {
    case '<':
      res->data  = (char *) (long)(r < 0);
      break;
    case '>':
      res->data  = (char *) (long)(r > 0);
      break;
    case LE:
      res->data  = (char *) (long)(r <= 0);
      break;
    case GE:
      res->data  = (char *) (long)(r >= 0);
      break;
    case EQUAL_EQUAL:
    case NOTEQUAL: /* negation handled by jjEQUAL_REST */
      res->data  = (char *)(long) (r == 0);
      break;
  }
  jjEQUAL_REST(res,u,v);
  return FALSE;
}

jjCOMPARE_P()

static BOOLEAN jjCOMPARE_P ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 453 of file iparith.cc.

{
  poly p=(poly)u->Data();
  poly q=(poly)v->Data();
  int r=p_Compare(p,q,currRing);
  switch  (iiOp)
  {
    case '<':
      res->data  = (char *) (r < 0);
      break;
    case '>':
      res->data  = (char *) (r > 0);
      break;
    case LE:
      res->data  = (char *) (r <= 0);
      break;
    case GE:
      res->data  = (char *) (r >= 0);
      break;
    //case EQUAL_EQUAL:
    //case NOTEQUAL: /* negation handled by jjEQUAL_REST */
    //  res->data  = (char *) (r == 0);
    //  break;
  }
  jjEQUAL_REST(res,u,v);
  return FALSE;
}

jjCOMPARE_S()

static BOOLEAN jjCOMPARE_S ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 480 of file iparith.cc.

{
  char*    a = (char * )(u->Data());
  char*    b = (char * )(v->Data());
  int result = strcmp(a,b);
  switch  (iiOp)
  {
    case '<':
      res->data  = (char *) (result  < 0);
      break;
    case '>':
      res->data  = (char *) (result  > 0);
      break;
    case LE:
      res->data  = (char *) (result  <= 0);
      break;
    case GE:
      res->data  = (char *) (result  >= 0);
      break;
    case EQUAL_EQUAL:
    case NOTEQUAL: /* negation handled by jjEQUAL_REST */
      res->data  = (char *) (result  == 0);
      break;
  }
  jjEQUAL_REST(res,u,v);
  return FALSE;
}

jjCONTENT()

static BOOLEAN jjCONTENT ( leftv  res, leftv  v  )

static

Definition at line 3910 of file iparith.cc.

{
  // CopyD for POLY_CMD and VECTOR_CMD are identical:
  poly p=(poly)v->CopyD(POLY_CMD);
  if (p!=NULL) p_Cleardenom(p, currRing);
  res->data = (char *)p;
  return FALSE;
}

jjCONTRACT()

static BOOLEAN jjCONTRACT ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1832 of file iparith.cc.

{
  res->data=(char *)idDiffOp((ideal)u->Data(),(ideal)v->Data(),FALSE);
  return FALSE;
}

jjCOUNT_BI()

static BOOLEAN jjCOUNT_BI ( leftv  res, leftv  v  )

static

Definition at line 3918 of file iparith.cc.

{
  res->data = (char *)(long)n_Size((number)v->Data(),coeffs_BIGINT);
  return FALSE;
}

jjCOUNT_BIM()

static BOOLEAN jjCOUNT_BIM ( leftv  res, leftv  v  )

static

Definition at line 3923 of file iparith.cc.

{
  bigintmat* aa= (bigintmat *)v->Data();
  res->data = (char *)(long)(aa->rows()*aa->cols());
  return FALSE;
}

jjCOUNT_IV()

static BOOLEAN jjCOUNT_IV ( leftv  res, leftv  v  )

static

Definition at line 3946 of file iparith.cc.

{
  res->data = (char *)(long)((intvec*)(v->Data()))->length();
  return FALSE;
}

jjCOUNT_L()

static BOOLEAN jjCOUNT_L ( leftv  res, leftv  v  )

static

Definition at line 3934 of file iparith.cc.

{
  lists l=(lists)v->Data();
  res->data = (char *)(long)(lSize(l)+1);
  return FALSE;
}

jjCOUNT_M()

static BOOLEAN jjCOUNT_M ( leftv  res, leftv  v  )

static

Definition at line 3940 of file iparith.cc.

{
  matrix m=(matrix)v->Data();
  res->data = (char *)(long)(MATROWS(m)*MATCOLS(m));
  return FALSE;
}

jjCOUNT_N()

static BOOLEAN jjCOUNT_N ( leftv  res, leftv  v  )

static

Definition at line 3929 of file iparith.cc.

{
  res->data = (char *)(long)nSize((number)v->Data());
  return FALSE;
}

jjCOUNT_RES()

static BOOLEAN jjCOUNT_RES ( leftv  res, leftv  v  )

static

Definition at line 5687 of file iparith.cc.

{
  res->data=(char *)(long)sySize((syStrategy)v->Data());
  return FALSE;
}

jjCOUNT_RG()

static BOOLEAN jjCOUNT_RG ( leftv  res, leftv  v  )

static

Definition at line 3951 of file iparith.cc.

{
  ring r=(ring)v->Data();
  int elems=-1;
  if (rField_is_Zp(r))      elems=r->cf->ch;
  else if (rField_is_GF(r)) elems=r->cf->m_nfCharQ;
  else if (rField_is_Zp_a(r) && (r->cf->type==n_algExt))
  {
    extern int ipower ( int b, int n ); /* factory/cf_util */
    elems=ipower(r->cf->ch,r->cf->extRing->pFDeg(r->cf->extRing->qideal->m[0],r->cf->extRing));
  }
  res->data = (char *)(long)elems;
  return FALSE;
}

jjDEFINED()

static BOOLEAN jjDEFINED ( leftv  res, leftv  v  )

static

Definition at line 4003 of file iparith.cc.

{
  if ((v->rtyp==IDHDL)
  && ((myynest==IDLEV((idhdl)v->data))||(0==IDLEV((idhdl)v->data))))
  {
    res->data=(void *)(long)(IDLEV((idhdl)v->data)+1);
  }
  else if (v->rtyp!=0) res->data=(void *)(-1);
  return FALSE;
}

jjDEG()

static BOOLEAN jjDEG ( leftv  res, leftv  v  )

static

Definition at line 3965 of file iparith.cc.

{
  int dummy;
  poly p=(poly)v->Data();
  if (p!=NULL) res->data = (char *)currRing->pLDeg(p,&dummy,currRing);
  else res->data=(char *)-1;
  return FALSE;
}

jjDEG_IV()

static BOOLEAN jjDEG_IV ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1848 of file iparith.cc.

{
  poly p=(poly)u->Data();
  if (p!=NULL)
  {
    int *iv=iv2array((intvec *)v->Data(),currRing);
    const long d = p_DegW(p,iv,currRing);
    omFreeSize( (ADDRESS)iv, (rVar(currRing)+1)*sizeof(int) );
    res->data = (char *)(d);
  }
  else
    res->data=(char *)(long)(-1);
  return FALSE;
}

jjDEG_M()

static BOOLEAN jjDEG_M ( leftv  res, leftv  u  )

static

Definition at line 3973 of file iparith.cc.

{
  ideal I=(ideal)u->Data();
  int d=-1;
  int dummy;
  int i;
  for(i=IDELEMS(I)-1;i>=0;i--)
    if (I->m[i]!=NULL) d=si_max(d,(int)currRing->pLDeg(I->m[i],&dummy,currRing));
  res->data = (char *)(long)d;
  return FALSE;
}

jjDEG_M_IV()

static BOOLEAN jjDEG_M_IV ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1837 of file iparith.cc.

{
  int *iv=iv2array((intvec *)v->Data(),currRing);
  ideal I=(ideal)u->Data();
  int d=-1;
  int i;
  for(i=IDELEMS(I);i>=0;i--) d=si_max(d,(int)p_DegW(I->m[i],iv,currRing));
  omFreeSize( (ADDRESS)iv, (rVar(currRing)+1)*sizeof(int) );
  res->data = (char *)((long)d);
  return FALSE;
}

jjDEGREE()

static BOOLEAN jjDEGREE ( leftv  res, leftv  v  )

static

Definition at line 3984 of file iparith.cc.

{
  SPrintStart();
#ifdef HAVE_RINGS
  if (rField_is_Z(currRing))
  {
    PrintS("// NOTE: computation of degree is being performed for\n");
    PrintS("//       generic fibre, that is, over Q\n");
  }
#endif
  assumeStdFlag(v);
  intvec *module_w=(intvec*)atGet(v,"isHomog",INTVEC_CMD);
  scDegree((ideal)v->Data(),module_w,currRing->qideal);
  char *s=SPrintEnd();
  int l=strlen(s)-1;
  s[l]='\0';
  res->data=(void*)s;
  return FALSE;
}

jjDelete_ID()

static BOOLEAN jjDelete_ID ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1869 of file iparith.cc.

{
  int pos=(int)(long)v->Data();
  ideal I=(ideal)u->Data();
  res->data=(void*)id_Delete_Pos(I,pos-1,currRing);
  return res->data==NULL;
}

jjDelete_ID_IV()

static BOOLEAN jjDelete_ID_IV ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1876 of file iparith.cc.

{
  intvec *iv=(intvec*)v->Data();
  ideal I=(ideal)u->Data();
  ideal tmp1=NULL;
  ideal tmp2;
  for(int i=iv->length()-1;i>=0;i--)
  {
    int pos= (*iv)[i];
    tmp2=id_Delete_Pos(I,pos-1,currRing);
    if (tmp1==NULL) /* first entry */
    { tmp1=I; }
    else
    { id_Delete(&I,currRing); }
    I=tmp2;
    if (I==NULL) break;
  }
  res->data=(void*)I;
  return res->data==NULL;
}

jjDelete_IV()

static BOOLEAN jjDelete_IV ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1862 of file iparith.cc.

{
  int pos=(int)(long)v->Data();
  intvec *iv=(intvec*)u->Data();
  res->data=(void*)iv->delete_pos(pos-1);
  return res->data==NULL;
}

jjDENOMINATOR()

static BOOLEAN jjDENOMINATOR ( leftv  res, leftv  v  )

static

Return the denominator of the input number.

Definition at line 4015 of file iparith.cc.

{
  number n = reinterpret_cast<number>(v->CopyD());
  res->data = reinterpret_cast<void*>(n_GetDenom(n, currRing->cf));
  n_Delete(&n,currRing->cf);
  return FALSE;
}

jjDET()

static BOOLEAN jjDET ( leftv  res, leftv  v  )

static

Definition at line 4032 of file iparith.cc.

{
  matrix m=(matrix)v->Data();
  res ->data = mp_Det(m,currRing);
  return FALSE;
}

jjDET2()

static BOOLEAN jjDET2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1896 of file iparith.cc.

{
  matrix m=(matrix)u->Data();
  DetVariant d=mp_GetAlgorithmDet((char*)v->Data());
  res ->data = mp_Det(m,currRing,d);
  return FALSE;
}

jjDET2_S()

static BOOLEAN jjDET2_S ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1903 of file iparith.cc.

{
  DetVariant d=mp_GetAlgorithmDet((char*)v->Data());
  ideal m=(ideal)u->Data();
  res ->data = sm_Det(m,currRing,d);
  return FALSE;
}

jjDET_BI()

static BOOLEAN jjDET_BI ( leftv  res, leftv  v  )

static

Definition at line 4038 of file iparith.cc.

{
  bigintmat * m=(bigintmat*)v->Data();
  int i,j;
  i=m->rows();j=m->cols();
  if(i==j)
    res->data = (char *)(long)singclap_det_bi(m,coeffs_BIGINT);
  else
  {
    Werror("det of %d x %d bigintmat",i,j);
    return TRUE;
  }
  return FALSE;
}

jjDET_I()

static BOOLEAN jjDET_I ( leftv  res, leftv  v  )

static

Definition at line 4074 of file iparith.cc.

{
  intvec * m=(intvec*)v->Data();
  int i,j;
  i=m->rows();j=m->cols();
  if(i==j)
    res->data = (char *)(long)singclap_det_i(m,currRing);
  else
  {
    Werror("det of %d x %d intmat",i,j);
    return TRUE;
  }
  return FALSE;
}

jjDET_S()

static BOOLEAN jjDET_S ( leftv  res, leftv  v  )

static

Definition at line 4088 of file iparith.cc.

{
  ideal I=(ideal)v->Data();
  res->data=(char*)sm_Det(I,currRing);
  return FALSE;
}

jjDIFF_COEF()

static BOOLEAN jjDIFF_COEF ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 4449 of file iparith.cc.

{
  if (!nCoeff_is_transExt(currRing->cf))
  {
    WerrorS("differentiation not defined in the coefficient ring");
    return TRUE;
  }
  number n = (number) u->Data();
  number k = (number) v->Data();
  res->data = ntDiff(n,k,currRing->cf);
  return FALSE;
}

jjDIFF_ID()

static BOOLEAN jjDIFF_ID ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1921 of file iparith.cc.

{
  int i=pVar((poly)v->Data());
  if (i==0)
  {
    WerrorS("ringvar expected");
    return TRUE;
  }
  res->data=(char *)idDiff((matrix)(u->Data()),i);
  return FALSE;
}

jjDIFF_ID_ID()

static BOOLEAN jjDIFF_ID_ID ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1932 of file iparith.cc.

{
  res->data=(char *)idDiffOp((ideal)u->Data(),(ideal)v->Data());
  return FALSE;
}

jjDIFF_P()

static BOOLEAN jjDIFF_P ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1910 of file iparith.cc.

{
  int i=pVar((poly)v->Data());
  if (i==0)
  {
    WerrorS("ringvar expected");
    return TRUE;
  }
  res->data=(char *)pDiff((poly)(u->Data()),i);
  return FALSE;
}

jjDIM()

static BOOLEAN jjDIM ( leftv  res, leftv  v  )

static

Definition at line 4094 of file iparith.cc.

{
  assumeStdFlag(v);
#ifdef HAVE_SHIFTBBA
  if (rIsLPRing(currRing))
  {
#ifdef HAVE_RINGS
    if (rField_is_Ring(currRing))
    {
      WerrorS("`dim` is not implemented for letterplace rings over rings");
      return TRUE;
    }
#endif
    if (currRing->qideal != NULL)
    {
      WerrorS("qring not supported by `dim` for letterplace rings at the moment");
      return TRUE;
    }
    int gkDim = lp_gkDim((ideal)(v->Data()));
    res->data = (char *)(long)gkDim;
    return (gkDim == -2);
  }
#endif
  if (rHasMixedOrdering(currRing))
  {
     Warn("dim(%s) may be wrong because the mixed monomial ordering",v->Name());
  }
  res->data = (char *)(long)scDimIntRing((ideal)(v->Data()),currRing->qideal);
  return FALSE;
}

jjDIM2()

static BOOLEAN jjDIM2 ( leftv  res, leftv  v, leftv  w  )

static

Definition at line 1937 of file iparith.cc.

{
  assumeStdFlag(v);
  if (rHasMixedOrdering(currRing))
  {
     Warn("dim(%s,...) may be wrong because the mixed monomial ordering",v->Name());
  }
  if(currRing->qideal==NULL)
    res->data = (char *)((long)scDimIntRing((ideal)(v->Data()),(ideal)w->Data()));
  else
  {
    ideal q=idSimpleAdd(currRing->qideal,(ideal)w->Data());
    res->data = (char *)((long)scDimIntRing((ideal)(v->Data()),q));
    idDelete(&q);
  }
  return FALSE;
}

jjDIM_R()

static BOOLEAN jjDIM_R ( leftv  res, leftv  v  )

static

Definition at line 5692 of file iparith.cc.

{
  res->data = (char *)(long)syDim((syStrategy)v->Data());
  return FALSE;
}

jjDIV_BI()

static BOOLEAN jjDIV_BI ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1250 of file iparith.cc.

{
  number q=(number)v->Data();
  if (n_IsZero(q,coeffs_BIGINT))
  {
    WerrorS(ii_div_by_0);
    return TRUE;
  }
  q = n_Div((number)u->Data(),q,coeffs_BIGINT);
  n_Normalize(q,coeffs_BIGINT);
  res->data = (char *)q;
  return FALSE;
}

jjDIV_Ma()

static BOOLEAN jjDIV_Ma ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1294 of file iparith.cc.

{
  poly q=(poly)v->Data();
  if (q==NULL)
  {
    WerrorS(ii_div_by_0);
    return TRUE;
  }
  matrix m=(matrix)(u->Data());
  int r=m->rows();
  int c=m->cols();
  matrix mm=mpNew(r,c);
  unsigned i,j;
  for(i=r;i>0;i--)
  {
    for(j=c;j>0;j--)
    {
      if (pNext(q)!=NULL)
      {
        MATELEM(mm,i,j) = singclap_pdivide( MATELEM(m,i,j) ,
                                           q /*(poly)(v->Data())*/, currRing );
      }
      else
        MATELEM(mm,i,j) = pp_DivideM(MATELEM(m,i,j),q,currRing);
    }
  }
  res->data=(char *)mm;
  return FALSE;
}

jjDIV_N()

static BOOLEAN jjDIV_N ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1263 of file iparith.cc.

{
  number q=(number)v->Data();
  if (nIsZero(q))
  {
    WerrorS(ii_div_by_0);
    return TRUE;
  }
  q = nDiv((number)u->Data(),q);
  nNormalize(q);
  res->data = (char *)q;
  return FALSE;
}

jjDIV_P()

static BOOLEAN jjDIV_P ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1276 of file iparith.cc.

{
  poly q=(poly)v->Data();
  poly p=(poly)(u->Data());
  if (q!=NULL)
  {
    res->data=(void*)(pp_Divide(p /*(poly)(u->Data())*/ ,
                                         q /*(poly)(v->Data())*/ ,currRing));
    if (res->data!=NULL) pNormalize((poly)res->data);
    return errorreported; /*there may be errors in p_Divide: div. ny 0, etc.*/
  }
  else
  {
    WerrorS("div. by 0");
    return TRUE;
  }
 
}

jjDIVISION()

static BOOLEAN jjDIVISION ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1954 of file iparith.cc.

{
  ideal vi=(ideal)v->Data();
  int vl= IDELEMS(vi);
  ideal ui=(ideal)u->Data();
  unsigned ul= IDELEMS(ui);
  ideal R; matrix U;
  ideal m = idLift(vi,ui,&R, FALSE,hasFlag(v,FLAG_STD),TRUE,&U);
  if (m==NULL) return TRUE;
  // now make sure that all matrices have the correct size:
  matrix T = id_Module2formatedMatrix(m,vl,ul,currRing);
  assume (MATCOLS(U) == (int)ul);
  lists L=(lists)omAllocBin(slists_bin);
  L->Init(3);
  L->m[0].rtyp=MATRIX_CMD;   L->m[0].data=(void *)T;
  L->m[1].rtyp=u->Typ();     L->m[1].data=(void *)R;
  L->m[2].rtyp=MATRIX_CMD;   L->m[2].data=(void *)U;
  res->data=(char *)L;
  return FALSE;
}

jjDIVISION4()

static BOOLEAN jjDIVISION4 ( leftv  res, leftv  v  )

static

Definition at line 7205 of file iparith.cc.

{ // may have 3 or 4 arguments
  leftv v1=v;
  leftv v2=v1->next;
  leftv v3=v2->next;
  leftv v4=v3->next;
  assumeStdFlag(v2);
 
  int i1=iiTestConvert(v1->Typ(),MODUL_CMD);
  int i2=iiTestConvert(v2->Typ(),MODUL_CMD);
 
  if((i1==0)||(i2==0)
  ||(v3->Typ()!=INT_CMD)||((v4!=NULL)&&(v4->Typ()!=INTVEC_CMD)))
  {
    WarnS("<module>,<module>,<int>[,<intvec>] expected!");
    return TRUE;
  }
 
  sleftv w1,w2;
  iiConvert(v1->Typ(),MODUL_CMD,i1,v1,&w1);
  iiConvert(v2->Typ(),MODUL_CMD,i2,v2,&w2);
  ideal P=(ideal)w1.Data();
  ideal Q=(ideal)w2.Data();
 
  int n=(int)(long)v3->Data();
  int *w=NULL;
  if(v4!=NULL)
  {
    w = iv2array((intvec *)v4->Data(),currRing);
    int * w0 = w + 1;
    int i = currRing->N;
    while( (i > 0) && ((*w0) > 0) )
    {
      w0++;
      i--;
    }
    if(i>0)
      WarnS("not all weights are positive!");
  }
 
  matrix T;
  ideal R;
  idLiftW(P,Q,n,T,R,w);
 
  w1.CleanUp();
  w2.CleanUp();
  if(w!=NULL)
    omFreeSize( (ADDRESS)w, (rVar(currRing)+1)*sizeof(int) );
 
  lists L=(lists) omAllocBin(slists_bin);
  L->Init(2);
  L->m[1].rtyp=v1->Typ();
  if(v1->Typ()==POLY_CMD||v1->Typ()==VECTOR_CMD)
  {
    if(v1->Typ()==POLY_CMD)
      p_Shift(&R->m[0],-1,currRing);
    L->m[1].data=(void *)R->m[0];
    R->m[0]=NULL;
    idDelete(&R);
  }
  else if(v1->Typ()==IDEAL_CMD||v1->Typ()==MATRIX_CMD)
    L->m[1].data=(void *)id_Module2Matrix(R,currRing);
  else
  {
    L->m[1].rtyp=MODUL_CMD;
    L->m[1].data=(void *)R;
  }
  L->m[0].rtyp=MATRIX_CMD;
  L->m[0].data=(char *)T;
 
  res->data=L;
 
  return FALSE;
}

jjDIVMOD_I()

static BOOLEAN jjDIVMOD_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1227 of file iparith.cc.

{
  if (iiOp=='/') Warn("int division with `/`: use `div` instead in line >>%s<<",my_yylinebuf);
  int a= (int)(long)u->Data();
  int b= (int)(long)v->Data();
  if (b==0)
  {
    WerrorS(ii_div_by_0);
    return TRUE;
  }
  int c=a%b;
  int r=0;
  switch (iiOp)
  {
    case '%':
        r=c;            break;
    case '/':
    case INTDIV_CMD:
        r=((a-c) /b);   break;
  }
  res->data=(void *)((long)r);
  return FALSE;
}

jjDOTDOT()

static BOOLEAN jjDOTDOT ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 336 of file iparith.cc.

{
  res->data=(char *)new intvec((int)(long)u->Data(),(int)(long)v->Data());
  return FALSE;
}

jjDUMMY()

static BOOLEAN jjDUMMY ( leftv  res, leftv  u  )

static

Definition at line 3711 of file iparith.cc.

{
//  res->data = (char *)u->CopyD();
// also copy attributes:
  res->Copy(u);
  return FALSE;
}

jjDUMP()

static BOOLEAN jjDUMP ( leftv  , leftv  v  )

static

Definition at line 4124 of file iparith.cc.

{
  si_link l = (si_link)v->Data();
  if (slDump(l))
  {
    const char *s;
    if ((l!=NULL)&&(l->name!=NULL)) s=l->name;
    else                            s=sNoName_fe;
    Werror("cannot dump to `%s`",s);
    return TRUE;
  }
  else
    return FALSE;
}

jjE()

static BOOLEAN jjE ( leftv  res, leftv  v  )

static

Definition at line 4138 of file iparith.cc.

{
  res->data = (char *)pOne();
  int co=(int)(long)v->Data();
  if (co>0)
  {
    pSetComp((poly)res->data,co);
    pSetm((poly)res->data);
  }
  else WerrorS("argument of gen must be positive");
  return (co<=0);
}

jjELIMIN()

static BOOLEAN jjELIMIN ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1974 of file iparith.cc.

{
  res->data=(char *)idElimination((ideal)u->Data(),(poly)v->Data());
  //setFlag(res,FLAG_STD);
  return v->next!=NULL; //do not allow next like in eliminate(I,a(1..4))
}

jjELIMIN_ALG()

static BOOLEAN jjELIMIN_ALG ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6088 of file iparith.cc.

{
  ideal I=(ideal)u->Data();
  GbVariant alg=syGetAlgorithm((char*)w->Data(),currRing,I);
  res->data=(char *)idElimination(I,(poly)v->Data(),NULL,alg);
  //setFlag(res,FLAG_STD);
  return v->next!=NULL; //do not allow next like in eliminate(I,a(1..4))
}

jjELIMIN_HILB()

static BOOLEAN jjELIMIN_HILB ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6096 of file iparith.cc.

{
  res->data=(char *)idElimination((ideal)u->Data(),(poly)v->Data(),
    (intvec *)w->Data());
  //setFlag(res,FLAG_STD);
  return FALSE;
}

jjELIMIN_IV()

static BOOLEAN jjELIMIN_IV ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1980 of file iparith.cc.

{
  poly p=pOne();
  intvec *iv=(intvec*)v->Data();
  for(int i=iv->length()-1; i>=0; i--)
  {
    pSetExp(p,(*iv)[i],1);
  }
  pSetm(p);
  res->data=(char *)idElimination((ideal)u->Data(),p);
  pLmDelete(&p);
  //setFlag(res,FLAG_STD);
  return FALSE;
}

jjENVELOPE()

static BOOLEAN jjENVELOPE ( leftv  res, leftv  a  )

static

Definition at line 5258 of file iparith.cc.

{
#ifdef HAVE_PLURAL
  ring    r = (ring)a->Data();
  if (rIsPluralRing(r))
  {
    ring s = rEnvelope(r);
    res->data = s;
  }
  else  res->data = rCopy(r);
  return FALSE;
#else
  return TRUE;
#endif
}

jjEQUAL_BI()

static BOOLEAN jjEQUAL_BI ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1323 of file iparith.cc.

{
  res->data = (char *)((long)n_Equal((number)u->Data(),(number)v->Data(),coeffs_BIGINT));
  jjEQUAL_REST(res,u,v);
  return FALSE;
}

jjEQUAL_I()

static BOOLEAN jjEQUAL_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1329 of file iparith.cc.

{
  res->data = (char *)((int)((long)u->Data()) == (int)((long)v->Data()));
  jjEQUAL_REST(res,u,v);
  return FALSE;
}

jjEQUAL_Ma()

static BOOLEAN jjEQUAL_Ma ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1335 of file iparith.cc.

{
  res->data = (char *)((long)mp_Equal((matrix)u->Data(),(matrix)v->Data(),currRing));
  jjEQUAL_REST(res,u,v);
  return FALSE;
}

jjEQUAL_N()

static BOOLEAN jjEQUAL_N ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1353 of file iparith.cc.

{
  res->data = (char *)((long)nEqual((number)u->Data(),(number)v->Data()));
  jjEQUAL_REST(res,u,v);
  return FALSE;
}

jjEQUAL_P()

static BOOLEAN jjEQUAL_P ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1359 of file iparith.cc.

{
  poly p=(poly)u->Data();
  poly q=(poly)v->Data();
  res->data = (char *) ((long)pEqualPolys(p,q));
  jjEQUAL_REST(res,u,v);
  return FALSE;
}

jjEQUAL_R()

static BOOLEAN jjEQUAL_R ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1347 of file iparith.cc.

{
  res->data = (char *)(long)(u->Data()==v->Data());
  jjEQUAL_REST(res,u,v);
  return FALSE;
}

jjEQUAL_REST()

static void jjEQUAL_REST ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1367 of file iparith.cc.

{
  if ((res->data) && (u->next!=NULL) && (v->next!=NULL))
  {
    int save_iiOp=iiOp;
    if (iiOp==NOTEQUAL)
      iiExprArith2(res,u->next,EQUAL_EQUAL,v->next);
    else
      iiExprArith2(res,u->next,iiOp,v->next);
    iiOp=save_iiOp;
  }
  if (iiOp==NOTEQUAL) res->data=(char *)(!(long)res->data);
}

jjEQUAL_SM()

static BOOLEAN jjEQUAL_SM ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1341 of file iparith.cc.

{
  res->data = (char *)((long)sm_Equal((ideal)u->Data(),(ideal)v->Data(),currRing));
  jjEQUAL_REST(res,u,v);
  return FALSE;
}

jjERROR()

static BOOLEAN jjERROR ( leftv  , leftv  u  )

static

Definition at line 1999 of file iparith.cc.

{
  WerrorS((char *)u->Data());
  EXTERN_VAR int inerror;
  inerror=3;
  return TRUE;
}

jjEXECUTE()

static BOOLEAN jjEXECUTE ( leftv  , leftv  v  )

static

Definition at line 4150 of file iparith.cc.

{
  char * d = (char *)v->Data();
  char * s = (char *)omAlloc(strlen(d) + 13);
  strcpy( s, (char *)d);
  strcat( s, "\n;RETURN();\n");
  newBuffer(s,BT_execute);
  return yyparse();
}

jjEXPORTTO()

static BOOLEAN jjEXPORTTO ( leftv  , leftv  u, leftv  v  )

static

Definition at line 1994 of file iparith.cc.

{
  //Print("exportto %s -> %s\n",v->Name(),u->Name() );
  return iiExport(v,0,IDPACKAGE((idhdl)u->data));
}

jjEXTGCD_BI()

static BOOLEAN jjEXTGCD_BI ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2006 of file iparith.cc.

{
  number uu=(number)u->Data();number vv=(number)v->Data();
  lists L=(lists)omAllocBin(slists_bin);
  number a,b;
  number p0=n_ExtGcd(uu,vv,&a,&b,coeffs_BIGINT);
  L->Init(3);
  L->m[0].rtyp=BIGINT_CMD;   L->m[0].data=(void *)p0;
  L->m[1].rtyp=BIGINT_CMD;   L->m[1].data=(void *)a;
  L->m[2].rtyp=BIGINT_CMD;   L->m[2].data=(void *)b;
  res->rtyp=LIST_CMD;
  res->data=(char *)L;
  return FALSE;
}

jjEXTGCD_I()

static BOOLEAN jjEXTGCD_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2020 of file iparith.cc.

{
  int uu=(int)(long)u->Data();int vv=(int)(long)v->Data();
  int p0=ABS(uu),p1=ABS(vv);
  int f0 = 1, f1 = 0, g0 = 0, g1 = 1, q, r;
 
  while ( p1!=0 )
  {
    q=p0 / p1;
    r=p0 % p1;
    p0 = p1; p1 = r;
    r = g0 - g1 * q;
    g0 = g1; g1 = r;
    r = f0 - f1 * q;
    f0 = f1; f1 = r;
  }
  int a = f0;
  int b = g0;
  if ( uu /*(int)(long)u->Data()*/ < 0 ) a=-a;
  if ( vv /*(int)(long)v->Data()*/ < 0 ) b=-b;
  lists L=(lists)omAllocBin(slists_bin);
  L->Init(3);
  L->m[0].rtyp=INT_CMD;   L->m[0].data=(void *)(long)p0;
  L->m[1].rtyp=INT_CMD;   L->m[1].data=(void *)(long)a;
  L->m[2].rtyp=INT_CMD;   L->m[2].data=(void *)(long)b;
  res->data=(char *)L;
  return FALSE;
}

jjEXTGCD_P()

static BOOLEAN jjEXTGCD_P ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2048 of file iparith.cc.

{
  poly r,pa,pb;
  BOOLEAN ret=singclap_extgcd((poly)u->Data(),(poly)v->Data(),r,pa,pb,currRing);
  if (ret) return TRUE;
  lists L=(lists)omAllocBin(slists_bin);
  L->Init(3);
  res->data=(char *)L;
  L->m[0].data=(void *)r;
  L->m[0].rtyp=POLY_CMD;
  L->m[1].data=(void *)pa;
  L->m[1].rtyp=POLY_CMD;
  L->m[2].data=(void *)pb;
  L->m[2].rtyp=POLY_CMD;
  return FALSE;
}

jjFAC_P()

static BOOLEAN jjFAC_P ( leftv  res, leftv  u  )

static

Definition at line 4199 of file iparith.cc.

{
  intvec *v=NULL;
  singclap_factorize_retry=0;
  ideal f=singclap_factorize((poly)(u->CopyD()), &v, 0,currRing);
  if (f==NULL) return TRUE;
  ivTest(v);
  lists l=(lists)omAllocBin(slists_bin);
  l->Init(2);
  l->m[0].rtyp=IDEAL_CMD;
  l->m[0].data=(void *)f;
  l->m[1].rtyp=INTVEC_CMD;
  l->m[1].data=(void *)v;
  res->data=(void *)l;
  return FALSE;
}

jjFAC_P2()

static BOOLEAN jjFAC_P2 ( leftv  res, leftv  u, leftv  dummy  )

static

Definition at line 2065 of file iparith.cc.

{
  intvec *v=NULL;
  int sw=(int)(long)dummy->Data();
  int fac_sw=sw;
  if ((sw<0)||(sw>2)) fac_sw=1;
  singclap_factorize_retry=0;
  ideal f=singclap_factorize((poly)(u->CopyD()), &v, fac_sw,currRing);
  if (f==NULL)
    return TRUE;
  switch(sw)
  {
    case 0:
    case 2:
    {
      lists l=(lists)omAllocBin(slists_bin);
      l->Init(2);
      l->m[0].rtyp=IDEAL_CMD;
      l->m[0].data=(void *)f;
      l->m[1].rtyp=INTVEC_CMD;
      l->m[1].data=(void *)v;
      res->data=(void *)l;
      res->rtyp=LIST_CMD;
      return FALSE;
    }
    case 1:
      res->data=(void *)f;
      return FALSE;
    case 3:
      {
        poly p=f->m[0];
        int i=IDELEMS(f);
        f->m[0]=NULL;
        while(i>1)
        {
          i--;
          p=pMult(p,f->m[i]);
          f->m[i]=NULL;
        }
        res->data=(void *)p;
        res->rtyp=POLY_CMD;
      }
      return FALSE;
  }
  WerrorS("invalid switch");
  return TRUE;
}

jjFACSTD()

static BOOLEAN jjFACSTD ( leftv  res, leftv  v  )

static

Definition at line 4159 of file iparith.cc.

{
  lists L=(lists)omAllocBin(slists_bin);
  if (currRing->cf->convSingNFactoryN!=ndConvSingNFactoryN) /* conversion to factory*/
  {
    ideal_list p,h;
    h=kStdfac((ideal)v->Data(),NULL,testHomog,NULL);
    if (h==NULL)
    {
      L->Init(1);
      L->m[0].data=(char *)idInit(1);
      L->m[0].rtyp=IDEAL_CMD;
    }
    else
    {
      p=h;
      int l=0;
      while (p!=NULL) { p=p->next;l++; }
      L->Init(l);
      l=0;
      while(h!=NULL)
      {
        L->m[l].data=(char *)h->d;
        L->m[l].rtyp=IDEAL_CMD;
        p=h->next;
        omFreeSize(h,sizeof(*h));
        h=p;
        l++;
      }
    }
  }
  else
  {
    WarnS("no factorization implemented");
    L->Init(1);
    iiExprArith1(&(L->m[0]),v,STD_CMD);
  }
  res->data=(void *)L;
  return FALSE;
}

jjFACSTD2()

static BOOLEAN jjFACSTD2 ( leftv  res, leftv  v, leftv  w  )

static

Definition at line 2112 of file iparith.cc.

{
  ideal_list p,h;
  h=kStdfac((ideal)v->Data(),NULL,testHomog,NULL,(ideal)w->Data());
  p=h;
  int l=0;
  while (p!=NULL) { p=p->next;l++; }
  lists L=(lists)omAllocBin(slists_bin);
  L->Init(l);
  l=0;
  while(h!=NULL)
  {
    L->m[l].data=(char *)h->d;
    L->m[l].rtyp=IDEAL_CMD;
    p=h->next;
    omFreeSize(h,sizeof(*h));
    h=p;
    l++;
  }
  res->data=(void *)L;
  return FALSE;
}

jjFactModD_M()

static BOOLEAN jjFactModD_M ( leftv  res, leftv  v  )

static

Definition at line 8406 of file iparith.cc.

{
  /* compute two factors of h(x,y) modulo x^(d+1) in K[[x]][y],
     see a detailed documentation in /kernel/linear_algebra/linearAlgebra.h
 
     valid argument lists:
     - (poly h, int d),
     - (poly h, int d, poly f0, poly g0),       optional: factors of h(0,y),
     - (poly h, int d, int xIndex, int yIndex), optional: indices of vars x & y
                                                          in list of ring vars,
     - (poly h, int d, poly f0, poly g0, int xIndex, int yIndec),
                                                optional: all 4 optional args
     (The defaults are xIndex = 1, yIndex = 2, f0 and g0 polynomials as found
      by singclap_factorize and h(0, y)
      has exactly two distinct monic factors [possibly with exponent > 1].)
     result:
     - list with the two factors f and g such that
       h(x,y) = f(x,y)*g(x,y) mod x^(d+1)   */
 
  poly h      = NULL;
  int  d      =    1;
  poly f0     = NULL;
  poly g0     = NULL;
  int  xIndex =    1;   /* default index if none provided */
  int  yIndex =    2;   /* default index if none provided */
 
  leftv u = v; int factorsGiven = 0;
  if ((u == NULL) || (u->Typ() != POLY_CMD))
  {
    WerrorS("expected arguments (poly, int [, poly, poly] [, int, int])");
    return TRUE;
  }
  else h = (poly)u->Data();
  u = u->next;
  if ((u == NULL) || (u->Typ() != INT_CMD))
  {
    WerrorS("expected arguments (poly, int [, poly, poly] [, int, int])");
    return TRUE;
  }
  else d = (int)(long)u->Data();
  u = u->next;
  if ((u != NULL) && (u->Typ() == POLY_CMD))
  {
    if ((u->next == NULL) || (u->next->Typ() != POLY_CMD))
    {
      WerrorS("expected arguments (poly, int [, poly, poly] [, int, int])");
      return TRUE;
    }
    else
    {
      f0 = (poly)u->Data();
      g0 = (poly)u->next->Data();
      factorsGiven = 1;
      u = u->next->next;
    }
  }
  if ((u != NULL) && (u->Typ() == INT_CMD))
  {
    if ((u->next == NULL) || (u->next->Typ() != INT_CMD))
    {
      WerrorS("expected arguments (poly, int [, poly, poly] [, int, int])");
      return TRUE;
    }
    else
    {
      xIndex = (int)(long)u->Data();
      yIndex = (int)(long)u->next->Data();
      u = u->next->next;
    }
  }
  if (u != NULL)
  {
    WerrorS("expected arguments (poly, int [, poly, poly] [, int, int])");
    return TRUE;
  }
 
  /* checks for provided arguments */
  if (pIsConstant(h) || (factorsGiven && (pIsConstant(f0) || pIsConstant(g0))))
  {
    WerrorS("expected non-constant polynomial argument(s)");
    return TRUE;
  }
  int n = rVar(currRing);
  if ((xIndex < 1) || (n < xIndex))
  {
    Werror("index for variable x (%d) out of range [1..%d]", xIndex, n);
    return TRUE;
  }
  if ((yIndex < 1) || (n < yIndex))
  {
    Werror("index for variable y (%d) out of range [1..%d]", yIndex, n);
    return TRUE;
  }
  if (xIndex == yIndex)
  {
    WerrorS("expected distinct indices for variables x and y");
    return TRUE;
  }
 
  /* computation of f0 and g0 if missing */
  if (factorsGiven == 0)
  {
    poly h0 = pSubst(pCopy(h), xIndex, NULL);
    intvec* v = NULL;
    ideal i = singclap_factorize(h0, &v, 0,currRing);
 
    ivTest(v);
 
    if (i == NULL) return TRUE;
 
    idTest(i);
 
    if ((v->rows() != 3) || ((*v)[0] =! 1) || (!nIsOne(pGetCoeff(i->m[0]))))
    {
      WerrorS("expected h(0,y) to have exactly two distinct monic factors");
      return TRUE;
    }
    f0 = pPower(pCopy(i->m[1]), (*v)[1]);
    g0 = pPower(pCopy(i->m[2]), (*v)[2]);
    idDelete(&i);
  }
 
  poly f; poly g;
  henselFactors(xIndex, yIndex, h, f0, g0, d, f, g);
  lists L = (lists)omAllocBin(slists_bin);
  L->Init(2);
  L->m[0].rtyp = POLY_CMD; L->m[0].data=(void*)f;
  L->m[1].rtyp = POLY_CMD; L->m[1].data=(void*)g;
  res->rtyp = LIST_CMD;
  res->data = (char*)L;
  return FALSE;
}

jjFAREY_BI()

static BOOLEAN jjFAREY_BI ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2134 of file iparith.cc.

{
  if (rField_is_Q(currRing))
  {
    number uu=(number)u->Data();
    number vv=(number)v->Data();
    res->data=(char *)n_Farey(uu,vv,currRing->cf);
    return FALSE;
  }
  else return TRUE;
}

jjFAREY_ID()

static BOOLEAN jjFAREY_ID ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2145 of file iparith.cc.

{
  ideal uu=(ideal)u->Data();
  number vv=(number)v->Data();
  //timespec buf1,buf2;
  //clock_gettime(CLOCK_THREAD_CPUTIME_ID,&buf1);
  #if 1
  #ifdef HAVE_VSPACE
  int cpus = (long) feOptValue(FE_OPT_CPUS);
  if ((cpus>1) && (rField_is_Q(currRing)))
    res->data=(void*)id_Farey_0(uu,vv,currRing);
  else
  #endif
  #endif
    res->data=(void*)id_Farey(uu,vv,currRing);
  //clock_gettime(CLOCK_THREAD_CPUTIME_ID,&buf2);
  //const unsigned long SEC = 1000L*1000L*1000L;
  //all_farey+=((buf2.tv_sec-buf1.tv_sec)*SEC+
  //                              buf2.tv_nsec-buf1.tv_nsec);
  //farey_cnt++;
  return FALSE;
}

jjFAREY_LI()

static BOOLEAN jjFAREY_LI ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 10173 of file iparith.cc.

{
  lists c=(lists)u->CopyD();
  lists res_l=(lists)omAllocBin(slists_bin);
  res_l->Init(c->nr+1);
  BOOLEAN bo=FALSE;
  int tab_pos=iiTabIndex(dArithTab2,JJTAB2LEN,FAREY_CMD);
  for (unsigned i=0;i<=(unsigned)c->nr;i++)
  {
    sleftv tmp;
    tmp.Copy(v);
    bo=iiExprArith2TabIntern(&res_l->m[i],&c->m[i],FAREY_CMD,&tmp,TRUE,dArith2+tab_pos,c->m[i].rtyp,tmp.rtyp,dConvertTypes);
    if (bo) { Werror("farey failed for list entry %d",i+1); break;}
  }
  c->Clean();
  res->data=res_l;
  return bo;
}

jjFETCH()

static BOOLEAN jjFETCH ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2168 of file iparith.cc.

{
  ring r=(ring)u->Data();
  idhdl w;
  int op=iiOp;
  nMapFunc nMap;
 
  if ((w=r->idroot->get(v->Name(),myynest))!=NULL)
  {
    int *perm=NULL;
    int *par_perm=NULL;
    int par_perm_size=0;
    BOOLEAN bo;
    nMap=n_SetMap(r->cf,currRing->cf);
    if (nMap==NULL)
    {
      // Allow imap/fetch to be make an exception only for:
      if (nCoeff_is_Extension(r->cf) &&  // Q(a..) -> Q(a..) || Q || Zp || Zp(a)
         ((n_SetMap(r->cf->extRing->cf,currRing->cf)!=NULL)
         || (nCoeff_is_Extension(currRing->cf) && (n_SetMap(r->cf->extRing->cf,currRing->cf->extRing->cf)!=NULL))))
      {
        par_perm_size=rPar(r);
      }
      else
      {
        goto err_fetch;
      }
    }
    if (
        (iiOp!=FETCH_CMD) || (r->N!=currRing->N) || (rPar(r)!=rPar(currRing))
#ifdef HAVE_SHIFTBBA
          || rIsLPRing(currRing)
#endif
        )
    {
      perm=(int *)omAlloc0((r->N+1)*sizeof(int));
      if (par_perm_size!=0)
        par_perm=(int *)omAlloc0(par_perm_size*sizeof(int));
      op=IMAP_CMD;
      if (iiOp==IMAP_CMD)
      {
        int r_par=0;
        char ** r_par_names=NULL;
        if (r->cf->extRing!=NULL)
        {
          r_par=r->cf->extRing->N;
          r_par_names=r->cf->extRing->names;
        }
        int c_par=0;
        char ** c_par_names=NULL;
        if (currRing->cf->extRing!=NULL)
        {
          c_par=currRing->cf->extRing->N;
          c_par_names=currRing->cf->extRing->names;
        }
        if (!rIsLPRing(r))
        {
          maFindPerm(r->names,       r->N,       r_par_names, r_par,
                     currRing->names,currRing->N,c_par_names, c_par,
                     perm,par_perm, currRing->cf->type);
        }
        #ifdef HAVE_SHIFTBBA
        else
        {
          maFindPermLP(r->names,       r->N,       r_par_names, r_par,
                     currRing->names,currRing->N,c_par_names, c_par,
                     perm,par_perm, currRing->cf->type,r->isLPring);
        }
        #endif
      }
      else
      {
#ifdef HAVE_SHIFTBBA
        if (rIsLPRing(currRing))
        {
          maFetchPermLP(r, currRing, perm);
        }
        else
#endif
        {
          unsigned i;
          if (par_perm_size!=0)
            for(i=si_min(rPar(r),rPar(currRing));i>0;i--) par_perm[i-1]=-i;
          for(i=si_min(r->N,currRing->N);i>0;i--) perm[i]=i;
        }
      }
    }
    if ((iiOp==FETCH_CMD) && (BVERBOSE(V_IMAP)))
    {
      unsigned i;
      for(i=0;i<(unsigned)si_min(r->N,currRing->N);i++)
      {
        Print("// var nr %d: %s -> %s\n",i,r->names[i],currRing->names[i]);
      }
      for(i=0;i<(unsigned)si_min(rPar(r),rPar(currRing));i++) // possibly empty loop
      {
        Print("// par nr %d: %s -> %s\n",
              i,rParameter(r)[i],rParameter(currRing)[i]);
      }
    }
    if (IDTYP(w)==ALIAS_CMD) w=(idhdl)IDDATA(w);
    sleftv tmpW;
    tmpW.Init();
    tmpW.rtyp=IDTYP(w);
    tmpW.data=IDDATA(w);
    if ((bo=maApplyFetch(op,NULL,res,&tmpW, r,
                         perm,par_perm,par_perm_size,nMap)))
    {
      Werror("cannot map %s of type %s(%d)",v->name, Tok2Cmdname(w->typ),w->typ);
    }
    if (perm!=NULL)
      omFreeSize((ADDRESS)perm,(r->N+1)*sizeof(int));
    if (par_perm!=NULL)
      omFreeSize((ADDRESS)par_perm,par_perm_size*sizeof(int));
    return bo;
  }
  else
  {
    Werror("identifier %s not found in %s",v->Fullname(),u->Fullname());
  }
  return TRUE;
err_fetch:
  char *s1=nCoeffString(r->cf);
  char *s2=nCoeffString(currRing->cf);
  Werror("no identity map from %s (%s -> %s)",u->Fullname(),s1,s2);
  omFree(s2); omFree(s1);
  return TRUE;
}

jjFETCH_M()

static BOOLEAN jjFETCH_M ( leftv  res, leftv  u  )

static

Definition at line 7348 of file iparith.cc.

{
  ring r=(ring)u->Data();
  leftv v=u->next;
  leftv perm_var_l=v->next;
  leftv perm_par_l=v->next->next;
  if ((perm_var_l->Typ()!=INTVEC_CMD)
  ||((perm_par_l!=NULL)&&(perm_par_l->Typ()!=INTVEC_CMD))
  ||(u->Typ()!=RING_CMD))
  {
    WerrorS("fetch(<ring>,<name>[,<intvec>[,<intvec>])");
    return TRUE;
  }
  intvec *perm_var_v=(intvec*)perm_var_l->Data();
  intvec *perm_par_v=NULL;
  if (perm_par_l!=NULL)
    perm_par_v=(intvec*)perm_par_l->Data();
  idhdl w;
  nMapFunc nMap;
 
  if ((w=r->idroot->get(v->Name(),myynest))!=NULL)
  {
    int *perm=NULL;
    int *par_perm=NULL;
    int par_perm_size=0;
    BOOLEAN bo;
    if ((nMap=n_SetMap(r->cf,currRing->cf))==NULL)
    {
      // Allow imap/fetch to be make an exception only for:
      if (nCoeff_is_Extension(r->cf) &&  // Q(a..) -> Q(a..) || Q || Zp || Zp(a)
         ((n_SetMap(r->cf->extRing->cf,currRing->cf)!=NULL)
         || (nCoeff_is_Extension(currRing->cf) && (n_SetMap(r->cf->extRing->cf,currRing->cf->extRing->cf)!=NULL))))
      {
        par_perm_size=rPar(r);
      }
      else
      {
        goto err_fetch;
      }
    }
    else
      par_perm_size=rPar(r);
    perm=(int *)omAlloc0((rVar(r)+1)*sizeof(int));
    if (par_perm_size!=0)
      par_perm=(int *)omAlloc0(par_perm_size*sizeof(int));
    int i;
    if (perm_par_l==NULL)
    {
      if (par_perm_size!=0)
        for(i=si_min(rPar(r),rPar(currRing))-1;i>=0;i--) par_perm[i]=-(i+1);
    }
    else
    {
      if (par_perm_size==0) WarnS("source ring has no parameters");
      else
      {
        for(i=rPar(r)-1;i>=0;i--)
        {
          if (i<perm_par_v->length()) par_perm[i]=(*perm_par_v)[i];
          if ((par_perm[i]<-rPar(currRing))
          || (par_perm[i]>rVar(currRing)))
          {
            Warn("invalid entry for par %d: %d\n",i,par_perm[i]);
            par_perm[i]=0;
          }
        }
      }
    }
    for(i=rVar(r)-1;i>=0;i--)
    {
      if (i<perm_var_v->length()) perm[i+1]=(*perm_var_v)[i];
      if ((perm[i]<-rPar(currRing))
      || (perm[i]>rVar(currRing)))
      {
        Warn("invalid entry for var %d: %d\n",i,perm[i]);
        perm[i]=0;
      }
    }
    if (BVERBOSE(V_IMAP))
    {
      for(i=1;i<=si_min(rVar(r),rVar(currRing));i++)
      {
        if (perm[i]>0)
          Print("// var nr %d: %s -> var %s\n",i,r->names[i-1],currRing->names[perm[i]-1]);
        else if (perm[i]<0)
          Print("// var nr %d: %s -> par %s\n",i,r->names[i-1],rParameter(currRing)[-perm[i]-1]);
      }
      for(i=1;i<=si_min(rPar(r),rPar(currRing));i++) // possibly empty loop
      {
        if (par_perm[i-1]<0)
          Print("// par nr %d: %s -> par %s\n",
              i,rParameter(r)[i-1],rParameter(currRing)[-par_perm[i-1]-1]);
        else if (par_perm[i-1]>0)
          Print("// par nr %d: %s -> var %s\n",
              i,rParameter(r)[i-1],currRing->names[par_perm[i-1]-1]);
      }
    }
    if (IDTYP(w)==ALIAS_CMD) w=(idhdl)IDDATA(w);
    sleftv tmpW;
    tmpW.Init();
    tmpW.rtyp=IDTYP(w);
    tmpW.data=IDDATA(w);
    if ((bo=maApplyFetch(IMAP_CMD,NULL,res,&tmpW, r,
                         perm,par_perm,par_perm_size,nMap)))
    {
      Werror("cannot map %s of type %s(%d)",v->name, Tok2Cmdname(w->typ),w->typ);
    }
    if (perm!=NULL)
      omFreeSize((ADDRESS)perm,(rVar(r)+1)*sizeof(int));
    if (par_perm!=NULL)
      omFreeSize((ADDRESS)par_perm,par_perm_size*sizeof(int));
    return bo;
  }
  else
  {
    Werror("identifier %s not found in %s",v->Fullname(),u->Fullname());
  }
  return TRUE;
err_fetch:
  char *s1=nCoeffString(r->cf);
  char *s2=nCoeffString(currRing->cf);
  Werror("no identity map from %s (%s -> %s)",u->Fullname(),s1,s2);
  omFreeBinAddr(s2);omFreeBinAddr(s1);
  return TRUE;
}

jjFIND2()

static BOOLEAN jjFIND2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2296 of file iparith.cc.

{
  /*4
  * look for the substring what in the string where
  * return the position of the first char of what in where
  * or 0
  */
  char *where=(char *)u->Data();
  char *what=(char *)v->Data();
  char *found = strstr(where,what);
  if (found != NULL)
  {
    res->data=(char *)((found-where)+1);
  }
  /*else res->data=NULL;*/
  return FALSE;
}

jjFIND3()

static BOOLEAN jjFIND3 ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6103 of file iparith.cc.

{
  /*4
  * look for the substring what in the string where
  * starting at position n
  * return the position of the first char of what in where
  * or 0
  */
  int n=(int)(long)w->Data();
  char *where=(char *)u->Data();
  char *what=(char *)v->Data();
  char *found;
  if ((1>n)||(n>(int)strlen(where)))
  {
    Werror("start position %d out of range",n);
    return TRUE;
  }
  found = strchr(where+n-1,*what);
  if (*(what+1)!='\0')
  {
    while((found !=NULL) && (strncmp(found+1,what+1,strlen(what+1))!=0))
    {
      found=strchr(found+1,*what);
    }
  }
  if (found != NULL)
  {
    res->data=(char *)((found-where)+1);
  }
  return FALSE;
}

jjFRES()

static BOOLEAN jjFRES ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2351 of file iparith.cc.

{
    leftv w = (leftv)omAlloc0Bin(sleftv_bin);
    w->rtyp = STRING_CMD;
    w->data = (char *)"complete";   // default
    BOOLEAN RES = jjFRES3(res, u, v, w);
    omFreeBin(w,sleftv_bin);
    return RES;
}

jjFRES3()

static BOOLEAN jjFRES3 ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 2314 of file iparith.cc.

{
  assumeStdFlag(u);
  ideal id = (ideal)u->Data();
  int max_length = (int)(long)v->Data();
  if (max_length < 0)
  {
    WerrorS("length for fres must not be negative");
    return TRUE;
  }
  if (max_length == 0)
  {
    max_length = currRing->N+1;
    if (currRing->qideal != NULL)
    {
      Warn("full resolution in a qring may be infinite, "
           "setting max length to %d", max_length);
    }
  }
  char *method = (char *)w->Data();
  /* For the moment, only "complete" (default), "frame", or "extended frame"
   * are allowed. Another useful option would be "linear strand".
   */
  if (strcmp(method, "complete") != 0
  && strcmp(method, "frame") != 0
  && strcmp(method, "extended frame") != 0
  && strcmp(method, "single module") != 0)
  {
    WerrorS("wrong optional argument for fres");
    return TRUE;
  }
  syStrategy r = syFrank(id, max_length, method);
  assume(r->fullres != NULL);
  res->data = (void *)r;
  return FALSE;
}

jjFWALK()

static BOOLEAN jjFWALK ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2361 of file iparith.cc.

{
  res->data=(char *)fractalWalkProc(u,v);
  setFlag( res, FLAG_STD );
  return FALSE;
}

jjFWALK3()

static BOOLEAN jjFWALK3 ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6134 of file iparith.cc.

{
  if ((int)(long)w->Data()==0)
    res->data=(char *)walkProc(u,v);
  else
    res->data=(char *)fractalWalkProc(u,v);
  setFlag( res, FLAG_STD );
  return FALSE;
}

jjGCD_BI()

static BOOLEAN jjGCD_BI ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2380 of file iparith.cc.

{
  number n1 = (number) u->Data();
  number n2 = (number) v->Data();
  res->data = n_Gcd(n1,n2,coeffs_BIGINT);
  return FALSE;
}

jjGCD_I()

static BOOLEAN jjGCD_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2367 of file iparith.cc.

{
  int uu=(int)(long)u->Data();int vv=(int)(long)v->Data();
  int p0=ABS(uu),p1=ABS(vv);
  int r;
  while ( p1!=0 )
  {
    r=p0 % p1;
    p0 = p1; p1 = r;
  }
  res->data=(char *)(long)p0;
  return FALSE;
}

jjGCD_N()

static BOOLEAN jjGCD_N ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2387 of file iparith.cc.

{
  number a=(number) u->Data();
  number b=(number) v->Data();
  if (nIsZero(a))
  {
    if (nIsZero(b)) res->data=(char *)nInit(1);
    else            res->data=(char *)nCopy(b);
  }
  else
  {
    if (nIsZero(b))  res->data=(char *)nCopy(a);
    //else res->data=(char *)n_Gcd(a, b, currRing->cf);
    else res->data=(char *)n_SubringGcd(a, b, currRing->cf);
  }
  return FALSE;
}

jjGCD_P()

static BOOLEAN jjGCD_P ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2404 of file iparith.cc.

{
  res->data=(void *)singclap_gcd((poly)(u->CopyD(POLY_CMD)),
                                 (poly)(v->CopyD(POLY_CMD)),currRing);
  return FALSE;
}

jjGE_BI()

static BOOLEAN jjGE_BI ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1166 of file iparith.cc.

{
  number h=n_Sub((number)u->Data(),(number)v->Data(),coeffs_BIGINT);
  res->data = (char *) (n_GreaterZero(h,coeffs_BIGINT)||(n_IsZero(h,coeffs_BIGINT)));
  n_Delete(&h,coeffs_BIGINT);
  return FALSE;
}

jjGE_I()

static BOOLEAN jjGE_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1173 of file iparith.cc.

{
  res->data = (char *)(long)((int)((long)u->Data()) >= (int)((long)v->Data()));
  return FALSE;
}

jjGE_N()

static BOOLEAN jjGE_N ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1178 of file iparith.cc.

{
  res->data = (char *)(long) (nGreater((number)u->Data(),(number)v->Data())
                       || nEqual((number)u->Data(),(number)v->Data()));
  return FALSE;
}

jjGETDUMP()

static BOOLEAN jjGETDUMP ( leftv  , leftv  v  )

static

Definition at line 4215 of file iparith.cc.

{
  si_link l = (si_link)v->Data();
  if (slGetDump(l))
  {
    const char *s;
    if ((l!=NULL)&&(l->name!=NULL)) s=l->name;
    else                            s=sNoName_fe;
    Werror("cannot get dump from `%s`",s);
    return TRUE;
  }
  else
    return FALSE;
}

jjGT_BI()

static BOOLEAN jjGT_BI ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1184 of file iparith.cc.

{
  number h=n_Sub((number)u->Data(),(number)v->Data(),coeffs_BIGINT);
  res->data = (char *)(long) (n_GreaterZero(h,coeffs_BIGINT)&&(!n_IsZero(h,coeffs_BIGINT)));
  n_Delete(&h,coeffs_BIGINT);
  return FALSE;
}

jjGT_I()

static BOOLEAN jjGT_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1191 of file iparith.cc.

{
  res->data = (char *)(long)((int)((long)u->Data()) > (int)((long)v->Data()));
  return FALSE;
}

jjGT_N()

static BOOLEAN jjGT_N ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1196 of file iparith.cc.

{
  res->data = (char *)(long)(nGreater((number)u->Data(),(number)v->Data()));
  return FALSE;
}

jjHIGHCORNER()

static BOOLEAN jjHIGHCORNER ( leftv  res, leftv  v  )

static

Definition at line 4229 of file iparith.cc.

{
  assumeStdFlag(v);
  ideal I=(ideal)v->Data();
  res->data=(void *)iiHighCorner(I,0);
  return FALSE;
}

jjHIGHCORNER_M()

static BOOLEAN jjHIGHCORNER_M ( leftv  res, leftv  v  )

static

Definition at line 4236 of file iparith.cc.

{
  assumeStdFlag(v);
  intvec *w=(intvec*)atGet(v,"isHomog",INTVEC_CMD);
  BOOLEAN delete_w=FALSE;
  ideal I=(ideal)v->Data();
  int i;
  poly p=NULL,po=NULL;
  int rk=id_RankFreeModule(I,currRing);
  if (w==NULL)
  {
    w = new intvec(rk);
    delete_w=TRUE;
  }
  for(i=rk;i>0;i--)
  {
    p=iiHighCorner(I,i);
    if (p==NULL)
    {
      WerrorS("module must be zero-dimensional");
      if (delete_w) delete w;
      return TRUE;
    }
    if (po==NULL)
    {
      po=p;
    }
    else
    {
      // now po!=NULL, p!=NULL
      int d=(currRing->pFDeg(po,currRing)-(*w)[pGetComp(po)-1] - currRing->pFDeg(p,currRing)+(*w)[i-1]);
      if (d==0)
        d=pLmCmp(po,p);
      if (d > 0)
      {
        pDelete(&p);
      }
      else // (d < 0)
      {
        pDelete(&po); po=p;
      }
    }
  }
  if (delete_w) delete w;
  res->data=(void *)po;
  return FALSE;
}

jjHILBERT()

static BOOLEAN jjHILBERT ( leftv  , leftv  v  )

static

Definition at line 4283 of file iparith.cc.

{
#ifdef HAVE_RINGS
  if (rField_is_Z(currRing))
  {
    PrintS("// NOTE: computation of Hilbert series etc. is being\n");
    PrintS("//       performed for generic fibre, that is, over Q\n");
  }
#endif
  assumeStdFlag(v);
  intvec *module_w=(intvec*)atGet(v,"isHomog",INTVEC_CMD);
  //scHilbertPoly((ideal)v->Data(),currRing->qideal);
  hLookSeries((ideal)v->Data(),module_w,currRing->qideal);
  return FALSE;
}

jjHILBERT2()

static BOOLEAN jjHILBERT2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2410 of file iparith.cc.

{
#ifdef HAVE_RINGS
  if (rField_is_Z(currRing))
  {
    PrintS("// NOTE: computation of Hilbert series etc. is being\n");
    PrintS("//       performed for generic fibre, that is, over Q\n");
  }
#endif
  assumeStdFlag(u);
  intvec *module_w=(intvec*)atGet(u,"isHomog",INTVEC_CMD);
  intvec *iv=hFirstSeries((ideal)u->Data(),module_w,currRing->qideal);
  if (errorreported) return TRUE;
 
  switch((int)(long)v->Data())
  {
    case 1:
      res->data=(void *)iv;
      return FALSE;
    case 2:
      res->data=(void *)hSecondSeries(iv);
      delete iv;
      return FALSE;
  }
  delete iv;
  WerrorS(feNotImplemented);
  return TRUE;
}

jjHILBERT3()

static BOOLEAN jjHILBERT3 ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6143 of file iparith.cc.

{
  intvec *wdegree=(intvec*)w->Data();
  if (wdegree->length()!=currRing->N)
  {
    Werror("weight vector must have size %d, not %d",
           currRing->N,wdegree->length());
    return TRUE;
  }
#ifdef HAVE_RINGS
  if (rField_is_Z(currRing))
  {
    PrintS("// NOTE: computation of Hilbert series etc. is being\n");
    PrintS("//       performed for generic fibre, that is, over Q\n");
  }
#endif
  assumeStdFlag(u);
  intvec *module_w=(intvec *)atGet(u,"isHomog",INTVEC_CMD);
  intvec *iv=hFirstSeries((ideal)u->Data(),module_w,currRing->qideal,wdegree);
  if (errorreported) return TRUE;
 
  switch((int)(long)v->Data())
  {
    case 1:
      res->data=(void *)iv;
      return FALSE;
    case 2:
      res->data=(void *)hSecondSeries(iv);
      delete iv;
      return FALSE;
  }
  delete iv;
  WerrorS(feNotImplemented);
  return TRUE;
}

jjHILBERT_IV()

static BOOLEAN jjHILBERT_IV ( leftv  res, leftv  v  )

static

Definition at line 4298 of file iparith.cc.

{
#ifdef HAVE_RINGS
  if (rField_is_Z(currRing))
  {
    PrintS("// NOTE: computation of Hilbert series etc. is being\n");
    PrintS("//       performed for generic fibre, that is, over Q\n");
  }
#endif
  res->data=(void *)hSecondSeries((intvec *)v->Data());
  return FALSE;
}

jjHOMOG1()

static BOOLEAN jjHOMOG1 ( leftv  res, leftv  v  )

static

Definition at line 4310 of file iparith.cc.

{
  intvec *w=(intvec*)atGet(v,"isHomog",INTVEC_CMD);
  ideal v_id=(ideal)v->Data();
  if (w==NULL)
  {
    res->data=(void *)(long)idHomModule(v_id,currRing->qideal,&w);
    if (res->data!=NULL)
    {
      if (v->rtyp==IDHDL)
      {
        char *s_isHomog=omStrDup("isHomog");
        if (v->e==NULL)
          atSet((idhdl)(v->data),s_isHomog,w,INTVEC_CMD);
        else
          atSet((idhdl)(v->LData()),s_isHomog,w,INTVEC_CMD);
      }
      else if (w!=NULL) delete w;
    } // if res->data==NULL then w==NULL
  }
  else
  {
    res->data=(void *)(long)idTestHomModule(v_id,currRing->qideal,w);
    if((res->data==NULL) && (v->rtyp==IDHDL))
    {
      if (v->e==NULL)
        atKill((idhdl)(v->data),"isHomog");
      else
        atKill((idhdl)(v->LData()),"isHomog");
    }
  }
  return FALSE;
}

jjHOMOG1_W()

static BOOLEAN jjHOMOG1_W ( leftv  res, leftv  v, leftv  u  )

static

Definition at line 2477 of file iparith.cc.

{
  intvec *w=new intvec(rVar(currRing));
  intvec *vw=(intvec*)u->Data();
  ideal v_id=(ideal)v->Data();
  pFDegProc save_FDeg=currRing->pFDeg;
  pLDegProc save_LDeg=currRing->pLDeg;
  BOOLEAN save_pLexOrder=currRing->pLexOrder;
  currRing->pLexOrder=FALSE;
  kHomW=vw;
  kModW=w;
  pSetDegProcs(currRing,kHomModDeg);
  res->data=(void *)(long)idHomModule(v_id,currRing->qideal,&w);
  currRing->pLexOrder=save_pLexOrder;
  kHomW=NULL;
  kModW=NULL;
  pRestoreDegProcs(currRing,save_FDeg,save_LDeg);
  if (w!=NULL) delete w;
  return FALSE;
}

jjHOMOG1_WI()

static BOOLEAN jjHOMOG1_WI ( leftv  res, leftv  v, leftv  u  )

static

Definition at line 2497 of file iparith.cc.

{
  intvec *vw=(intvec*)u->Data();
  ideal v_id=(ideal)v->Data();
  res->data=(void *)(long)id_HomIdealW(v_id,currRing->qideal,vw,currRing);
  return FALSE;
}

jjHOMOG_ID()

static BOOLEAN jjHOMOG_ID ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2455 of file iparith.cc.

{
  int i=pVar((poly)v->Data());
  if (i==0)
  {
    WerrorS("ringvar expected");
    return TRUE;
  }
  pFDegProc deg;
  if (currRing->pLexOrder && (currRing->order[0]==ringorder_lp))
    deg=p_Totaldegree;
   else
    deg=currRing->pFDeg;
  poly p=pOne(); pSetExp(p,i,1); pSetm(p);
  int d=deg(p,currRing);
  pLmDelete(p);
  if (d==1)
    res->data = (char *)id_Homogen((ideal)u->Data(), i, currRing);
  else
    WerrorS("variable must have weight 1");
  return (d!=1);
}

jjHOMOG_ID_W()

static BOOLEAN jjHOMOG_ID_W ( leftv  res, leftv  u, leftv  v, leftv    )

static

Definition at line 6178 of file iparith.cc.

{
  PrintS("TODO\n");
  int i=pVar((poly)v->Data());
  if (i==0)
  {
    WerrorS("ringvar expected");
    return TRUE;
  }
  poly p=pOne(); pSetExp(p,i,1); pSetm(p);
  int d=pWTotaldegree(p);
  pLmDelete(p);
  if (d==1)
    res->data = (char *)id_Homogen((ideal)u->Data(), i, currRing);
  else
    WerrorS("variable must have weight 1");
  return (d!=1);
}

jjHOMOG_P()

static BOOLEAN jjHOMOG_P ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2438 of file iparith.cc.

{
  int i=pVar((poly)v->Data());
  if (i==0)
  {
    WerrorS("ringvar expected");
    return TRUE;
  }
  poly p=pOne(); pSetExp(p,i,1); pSetm(p);
  int d=pWTotaldegree(p);
  pLmDelete(p);
  if (d==1)
    res->data = (char *)p_Homogen((poly)u->Data(), i, currRing);
  else
    WerrorS("variable must have weight 1");
  return (d!=1);
}

jjHOMOG_P_W()

static BOOLEAN jjHOMOG_P_W ( leftv  res, leftv  u, leftv  v, leftv    )

static

Definition at line 6196 of file iparith.cc.

{
  PrintS("TODO\n");
  int i=pVar((poly)v->Data());
  if (i==0)
  {
    WerrorS("ringvar expected");
    return TRUE;
  }
  poly p=pOne(); pSetExp(p,i,1); pSetm(p);
  int d=pWTotaldegree(p);
  pLmDelete(p);
  if (d==1)
    res->data = (char *)p_Homogen((poly)u->Data(), i, currRing);
  else
    WerrorS("variable must have weight 1");
  return (d!=1);
}

jjHOMOG_W_M()

static BOOLEAN jjHOMOG_W_M ( leftv  res, leftv  v1, leftv  v2, leftv  v3  )

static

Definition at line 6214 of file iparith.cc.

{
  intvec *w=(intvec *)v3->Data();
  intvec *vw=(intvec*)v2->Data();
  ideal v_id=(ideal)v1->Data();
  res->data=(void *)(long)id_HomModuleW(v_id,currRing->qideal,vw,w,currRing);
  return FALSE;
}

jjIDEAL_Ma()

static BOOLEAN jjIDEAL_Ma ( leftv  res, leftv  v  )

static

Definition at line 4360 of file iparith.cc.

{
  matrix mat=(matrix)v->CopyD(MATRIX_CMD);
  IDELEMS((ideal)mat)=MATCOLS(mat)*MATROWS(mat);
  MATROWS(mat)=1;
  mat->rank=1;
  res->data=(char *)mat;
  return FALSE;
}

jjIDEAL_Map()

static BOOLEAN jjIDEAL_Map ( leftv  res, leftv  v  )

static

Definition at line 4369 of file iparith.cc.

{
  map m=(map)v->CopyD(MAP_CMD);
  omFreeBinAddr((ADDRESS)m->preimage);
  m->preimage=NULL;
  ideal I=(ideal)m;
  I->rank=1;
  res->data=(char *)I;
  return FALSE;
}

jjIDEAL_PL()

static BOOLEAN jjIDEAL_PL ( leftv  res, leftv  v  )

static

Definition at line 7304 of file iparith.cc.

{
  int s=1;
  leftv h=v;
  if (h!=NULL) s=exprlist_length(h);
  ideal id=idInit(s,1);
  int rank=1;
  int i=0;
  poly p;
  int dest_type=POLY_CMD;
  if (iiOp==MODUL_CMD) dest_type=VECTOR_CMD;
  while (h!=NULL)
  {
    // use standard type conversions to poly/vector
    int ri;
    int ht=h->Typ();
    if (ht==dest_type)
    {
      p=(poly)h->CopyD();
      if (p!=NULL) rank=si_max(rank,(int)pMaxComp(p));
    }
    else if ((ri=iiTestConvert(ht,dest_type,dConvertTypes))!=0)
    {
      sleftv tmp;
      leftv hnext=h->next;
      h->next=NULL;
      iiConvert(ht,dest_type,ri,h,&tmp,dConvertTypes);
      h->next=hnext;
      p=(poly)tmp.data;
      if (p!=NULL) rank=si_max(rank,(int)pMaxComp(p));
    }
    else
    {
      idDelete(&id);
      return TRUE;
    }
    id->m[i]=p;
    i++;
    h=h->next;
  }
  id->rank=rank;
  res->data=(char *)id;
  return FALSE;
}

jjIDEAL_R()

static BOOLEAN jjIDEAL_R ( leftv  res, leftv  v  )

static

Definition at line 4379 of file iparith.cc.

{
  if (currRing!=NULL)
  {
    ring q=(ring)v->Data();
    if (rSamePolyRep(currRing, q))
    {
      if (q->qideal==NULL)
        res->data=(char *)idInit(1,1);
      else
        res->data=(char *)idCopy(q->qideal);
      return FALSE;
    }
  }
  WerrorS("can only get ideal from identical qring");
  return TRUE;
}

jjidElem()

static BOOLEAN jjidElem ( leftv  res, leftv  v  )

static

Definition at line 5614 of file iparith.cc.

{
  res->data = (char *)(long)idElem((ideal)v->Data());
  return FALSE;
}

jjidFreeModule()

static BOOLEAN jjidFreeModule ( leftv  res, leftv  v  )

static

Definition at line 5619 of file iparith.cc.

{
  res->data = (char *)id_FreeModule((int)(long)v->Data(), currRing);
  return FALSE;
}

jjidHead()

static BOOLEAN jjidHead ( leftv  res, leftv  v  )

static

Definition at line 5639 of file iparith.cc.

{
  res->data = (char *)id_Head((ideal)v->Data(),currRing);
  setFlag(res,FLAG_STD);
  return FALSE;
}

jjidMaxIdeal()

static BOOLEAN jjidMaxIdeal ( leftv  res, leftv  v  )

static

Definition at line 4343 of file iparith.cc.

{
#ifdef HAVE_SHIFTBBA
  if (rIsLPRing(currRing))
  {
    int deg = (int)(long)v->Data();
    if (deg > currRing->N/currRing->isLPring)
    {
      WerrorS("degree bound of Letterplace ring is to small");
      return TRUE;
    }
  }
#endif
  res->data = (char *)idMaxIdeal((int)(long)v->Data());
  setFlag(res,FLAG_STD);
  return FALSE;
}

jjidMinBase()

static BOOLEAN jjidMinBase ( leftv  res, leftv  v  )

static

Definition at line 5645 of file iparith.cc.

{
  res->data = (char *)idMinBase((ideal)v->Data());
  return FALSE;
}

jjidTransp()

static BOOLEAN jjidTransp ( leftv  res, leftv  v  )

static

Definition at line 5697 of file iparith.cc.

{
  res->data = (char *)id_Transp((ideal)v->Data(),currRing);
  return FALSE;
}

jjidVec2Ideal()

static BOOLEAN jjidVec2Ideal ( leftv  res, leftv  v  )

static

Definition at line 5624 of file iparith.cc.

{
  res->data = (char *)id_Vec2Ideal((poly)v->Data(), currRing);
  return FALSE;
}

jjIm2Iv()

static BOOLEAN jjIm2Iv ( leftv  res, leftv  v  )

static

Definition at line 4396 of file iparith.cc.

{
  intvec *iv = (intvec *)v->CopyD(INTMAT_CMD);
  iv->makeVector();
  res->data = iv;
  return FALSE;
}

jjIMPART()

static BOOLEAN jjIMPART ( leftv  res, leftv  v  )

static

Definition at line 4403 of file iparith.cc.

{
  res->data = (char *)n_ImPart((number)v->Data(),currRing->cf);
  return FALSE;
}

jjINDEPSET()

static BOOLEAN jjINDEPSET ( leftv  res, leftv  v  )

static

Definition at line 4408 of file iparith.cc.

{
  assumeStdFlag(v);
  res->data=(void *)scIndIntvec((ideal)(v->Data()),currRing->qideal);
  return FALSE;
}

jjINDEPSET2()

static BOOLEAN jjINDEPSET2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2504 of file iparith.cc.

{
  assumeStdFlag(u);
  res->data=(void *)scIndIndset((ideal)(u->Data()),(int)(long)(v->Data()),
                    currRing->qideal);
  return FALSE;
}

jjINDEX_I()

static BOOLEAN jjINDEX_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1390 of file iparith.cc.

{
  res->rtyp=u->rtyp; u->rtyp=0;
  res->data=u->data; u->data=NULL;
  res->name=u->name; u->name=NULL;
  res->e=u->e;       u->e=NULL;
  if (res->e==NULL) res->e=jjMakeSub(v);
  else
  {
    Subexpr sh=res->e;
    while (sh->next != NULL) sh=sh->next;
    sh->next=jjMakeSub(v);
  }
  if (u->next!=NULL)
  {
    leftv rn=(leftv)omAlloc0Bin(sleftv_bin);
    BOOLEAN bo=iiExprArith2(rn,u->next,iiOp,v);
    res->next=rn;
    return bo;
  }
  return FALSE;
}

jjINDEX_IV()

static BOOLEAN jjINDEX_IV ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1412 of file iparith.cc.

{
  if ((u->rtyp!=IDHDL)||(u->e!=NULL))
  {
    WerrorS("indexed object must have a name");
    return TRUE;
  }
  intvec * iv=(intvec *)v->Data();
  leftv p=NULL;
  int i;
  sleftv t;
  t.Init();
  t.rtyp=INT_CMD;
  for (i=0;i<iv->length(); i++)
  {
    t.data=(char *)((long)(*iv)[i]);
    if (p==NULL)
    {
      p=res;
    }
    else
    {
      p->next=(leftv)omAlloc0Bin(sleftv_bin);
      p=p->next;
    }
    p->rtyp=IDHDL;
    p->data=u->data;
    p->name=u->name;
    p->flag=u->flag;
    p->e=jjMakeSub(&t);
  }
  u->rtyp=0;
  u->data=NULL;
  u->name=NULL;
  return FALSE;
}

jjINDEX_P()

static BOOLEAN jjINDEX_P ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1448 of file iparith.cc.

{
  poly p=(poly)u->Data();
  int i=(int)(long)v->Data();
  int j=0;
  while (p!=NULL)
  {
    j++;
    if (j==i)
    {
      res->data=(char *)pHead(p);
      return FALSE;
    }
    pIter(p);
  }
  return FALSE;
}

jjINDEX_P_IV()

static BOOLEAN jjINDEX_P_IV ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1488 of file iparith.cc.

{
  poly p=(poly)u->Data();
  poly r=NULL;
  intvec *iv=(intvec *)v->CopyD(INTVEC_CMD);
  int i;
  int sum=0;
  for(i=iv->length()-1;i>=0;i--)
    sum+=(*iv)[i];
  int j=0;
  while ((p!=NULL) && (sum>0))
  {
    j++;
    for(i=iv->length()-1;i>=0;i--)
    {
      if (j==(*iv)[i])
      {
        r=pAdd(r,pHead(p));
        sum-=j;
        (*iv)[i]=0;
        break;
      }
    }
    pIter(p);
  }
  delete iv;
  res->data=(char *)r;
  return FALSE;
}

jjINDEX_PBu()

static BOOLEAN jjINDEX_PBu ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1465 of file iparith.cc.

{
  sBucket_pt b=(sBucket_pt)u->CopyD();
  sBucketCanonicalize(b);
  int l; poly p,pp;
  sBucketDestroyAdd(b, &pp, &l);
  int i=(int)(long)v->Data();
  int j=0;
  p=pp;
  while (p!=NULL)
  {
    j++;
    if (j==i)
    {
      res->data=(char *)pHead(p);
      p_Delete(&pp,currRing);
      return FALSE;
    }
    pIter(p);
  }
  p_Delete(&pp,currRing);
  return FALSE;
}

jjINDEX_V()

static BOOLEAN jjINDEX_V ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1517 of file iparith.cc.

{
  poly p=(poly)u->Data();
  int i=(int)(long)v->Data();
  res->data=(char *)p_Vec2Poly(p,i,currRing);
  return FALSE;
}

jjINDEX_V_IV()

static BOOLEAN jjINDEX_V_IV ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1524 of file iparith.cc.

{
  poly p=(poly)u->CopyD(VECTOR_CMD);
  if (p!=NULL)
  {
    poly r=pOne();
    poly hp=r;
    intvec *iv=(intvec *)v->Data();
    int i;
    loop
    {
      for(i=0;i<iv->length();i++)
      {
        if (((int)pGetComp(p))==(*iv)[i])
        {
          poly h;
          pSplit(p,&h);
          pNext(hp)=p;
          p=h;
          pIter(hp);
          break;
        }
      }
      if (p==NULL) break;
      if (i==iv->length())
      {
        pLmDelete(&p);
        if (p==NULL) break;
      }
    }
    pLmDelete(&r);
    res->data=(char *)r;
  }
  return FALSE;
}

jjINTERPOLATION()

static BOOLEAN jjINTERPOLATION ( leftv  res, leftv  l, leftv  v  )

static

Definition at line 2517 of file iparith.cc.

{
  const lists L = (lists)l->Data();
  const int n = L->nr; assume (n >= 0);
  std::vector<ideal> V(n + 1);
 
  for(int i = n; i >= 0; i--) V[i] = (ideal)(L->m[i].Data());
 
  res->data=interpolation(V, (intvec*)v->Data());
  setFlag(res,FLAG_STD);
  return errorreported;
}

jjINTERRED()

static BOOLEAN jjINTERRED ( leftv  res, leftv  v  )

static

Definition at line 4414 of file iparith.cc.

{
  ideal result=kInterRed((ideal)(v->Data()), currRing->qideal);
  if (TEST_OPT_PROT) { PrintLn(); mflush(); }
  res->data = result;
  return FALSE;
}

jjINTERSEC3S()

static BOOLEAN jjINTERSEC3S ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6249 of file iparith.cc.

{
  ideal I=(ideal)u->Data();
  GbVariant alg=syGetAlgorithm((char*)w->Data(),currRing,I);
  res->data=(char *)idSect(I,(ideal)v->Data(),alg);
  if (TEST_OPT_RETURN_SB) setFlag(res,FLAG_STD);
  return FALSE;
}

jjINTERSECT()

static BOOLEAN jjINTERSECT ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2511 of file iparith.cc.

{
  res->data=(char *)idSect((ideal)u->Data(),(ideal)v->Data());
  if (TEST_OPT_RETURN_SB) setFlag(res,FLAG_STD);
  return FALSE;
}

jjINTERSECT3()

static BOOLEAN jjINTERSECT3 ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6236 of file iparith.cc.

{
  ideal I1=(ideal)u->Data();
  ideal I2=(ideal)v->Data();
  ideal I3=(ideal)w->Data();
  resolvente r=(resolvente)omAlloc0(3*sizeof(ideal));
  r[0]=I1;
  r[1]=I2;
  r[2]=I3;
  res->data=(char *)idMultSect(r,3);
  omFreeSize((ADDRESS)r,3*sizeof(ideal));
  return FALSE;
}

jjINTERSECT_PL()

static BOOLEAN jjINTERSECT_PL ( leftv  res, leftv  v  )

static

Definition at line 7473 of file iparith.cc.

{
  leftv h=v;
  int l=v->listLength();
  resolvente r=(resolvente)omAlloc0(l*sizeof(ideal));
  BOOLEAN *copied=(BOOLEAN *)omAlloc0(l*sizeof(BOOLEAN));
  int t=0;
  // try to convert to IDEAL_CMD
  while (h!=NULL)
  {
    if (iiTestConvert(h->Typ(),IDEAL_CMD)!=0)
    {
      t=IDEAL_CMD;
    }
    else break;
    h=h->next;
  }
  // if failure, try MODUL_CMD
  if (t==0)
  {
    h=v;
    while (h!=NULL)
    {
      if (iiTestConvert(h->Typ(),MODUL_CMD)!=0)
      {
        t=MODUL_CMD;
      }
      else break;
      h=h->next;
    }
  }
  // check for success  in converting
  if (t==0)
  {
    WerrorS("cannot convert to ideal or module");
    return TRUE;
  }
  // call idMultSect
  h=v;
  int i=0;
  sleftv tmp;
  while (h!=NULL)
  {
    if (h->Typ()==t)
    {
      r[i]=(ideal)h->Data(); /*no copy*/
      h=h->next;
    }
    else if(iiConvert(h->Typ(),t,iiTestConvert(h->Typ(),t),h,&tmp))
    {
      omFreeSize((ADDRESS)copied,l*sizeof(BOOLEAN));
      omFreeSize((ADDRESS)r,l*sizeof(ideal));
      Werror("cannot convert arg. %d to %s",i+1,Tok2Cmdname(t));
      return TRUE;
    }
    else
    {
      r[i]=(ideal)tmp.Data(); /*now it's a copy*/
      copied[i]=TRUE;
      h=tmp.next;
    }
    i++;
  }
  res->rtyp=t;
  res->data=(char *)idMultSect(r,i);
  while(i>0)
  {
    i--;
    if (copied[i]) idDelete(&(r[i]));
  }
  omFreeSize((ADDRESS)copied,l*sizeof(BOOLEAN));
  omFreeSize((ADDRESS)r,l*sizeof(ideal));
  return FALSE;
}

jjINTMAT3()

static BOOLEAN jjINTMAT3 ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6222 of file iparith.cc.

{
  intvec* im= new intvec((int)(long)v->Data(),(int)(long)w->Data(), 0);
  intvec* arg = (intvec*) u->Data();
  int i, n = si_min(im->cols()*im->rows(), arg->cols()*arg->rows());
 
  for (i=0; i<n; i++)
  {
    (*im)[i] = (*arg)[i];
  }
 
  res->data = (char *)im;
  return FALSE;
}

jjINTVEC_PL()

static BOOLEAN jjINTVEC_PL ( leftv  res, leftv  v  )

static

Definition at line 7709 of file iparith.cc.

{
  int i=0;
  leftv h=v;
  if (h!=NULL) i=exprlist_length(h);
  intvec *iv=new intvec(i);
  i=0;
  while (h!=NULL)
  {
    if(h->Typ()==INT_CMD)
    {
      (*iv)[i]=(int)(long)h->Data();
    }
    else if (h->Typ()==INTVEC_CMD)
    {
      intvec *ivv=(intvec*)h->Data();
      for(int j=0;j<ivv->length();j++,i++)
      {
        (*iv)[i]=(*ivv)[j];
      }
      i--;
    }
    else
    {
      delete iv;
      return TRUE;
    }
    i++;
    h=h->next;
  }
  res->data=(char *)iv;
  return FALSE;
}

jjIS_RINGVAR0()

static BOOLEAN jjIS_RINGVAR0 ( leftv  res, leftv    )

static

Definition at line 4432 of file iparith.cc.

{
  res->data = (char *)0;
  return FALSE;
}

jjIS_RINGVAR_P()

static BOOLEAN jjIS_RINGVAR_P ( leftv  res, leftv  v  )

static

Definition at line 4421 of file iparith.cc.

{
  res->data = (char *)(long)pVar((poly)v->Data());
  return FALSE;
}

jjIS_RINGVAR_S()

static BOOLEAN jjIS_RINGVAR_S ( leftv  res, leftv  v  )

static

Definition at line 4426 of file iparith.cc.

{
  res->data = (char *)(long)(r_IsRingVar((char *)v->Data(), currRing->names,
                                                            currRing->N)+1);
  return FALSE;
}

jjJACOB_M()

static BOOLEAN jjJACOB_M ( leftv  res, leftv  a  )

static

Definition at line 4468 of file iparith.cc.

{
  ideal id = (ideal)a->Data();
  id = id_Transp(id,currRing);
  int W = IDELEMS(id);
 
  ideal result = idInit(W * currRing->N, id->rank);
  poly *p = result->m;
 
  for( int v = 1; v <= currRing->N; v++ )
  {
    poly* q = id->m;
    for( int i = 0; i < W; i++, p++, q++ )
      *p = pDiff( *q, v );
  }
  idDelete(&id);
 
  res->data = (char *)result;
  return FALSE;
}

jjJACOB_P()

static BOOLEAN jjJACOB_P ( leftv  res, leftv  v  )

static

Definition at line 4437 of file iparith.cc.

{
  ideal i=idInit(currRing->N,1);
  int k;
  poly p=(poly)(v->Data());
  for (k=currRing->N;k>0;k--)
  {
    i->m[k-1]=pDiff(p,k);
  }
  res->data = (char *)i;
  return FALSE;
}

jjJanetBasis()

static BOOLEAN jjJanetBasis ( leftv  res, leftv  v  )

static

Definition at line 2535 of file iparith.cc.

{
  extern BOOLEAN jjStdJanetBasis(leftv res, leftv v,int flag);
  return jjStdJanetBasis(res,v,0);
}

jjJanetBasis2()

static BOOLEAN jjJanetBasis2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2529 of file iparith.cc.

{
  extern BOOLEAN jjStdJanetBasis(leftv res, leftv v,int flag);
  return jjStdJanetBasis(res,u,(int)(long)v->Data());
}

jjJET4()

static BOOLEAN jjJET4 ( leftv  res, leftv  u  )

static

Definition at line 7742 of file iparith.cc.

{
  const short t1[]={4,POLY_CMD,POLY_CMD,POLY_CMD,INTVEC_CMD};
  const short t2[]={4,VECTOR_CMD,POLY_CMD,POLY_CMD,INTVEC_CMD};
  const short t3[]={4,IDEAL_CMD,MATRIX_CMD,INT_CMD,INTVEC_CMD};
  const short t4[]={4,MODUL_CMD,MATRIX_CMD,INT_CMD,INTVEC_CMD};
  leftv u1=u;
  leftv u2=u1->next;
  leftv u3=u2->next;
  leftv u4=u3->next;
  if (iiCheckTypes(u,t1)||iiCheckTypes(u,t2))
  {
    if(!pIsUnit((poly)u2->Data()))
    {
      WerrorS("2nd argument must be a unit");
      return TRUE;
    }
    res->rtyp=u1->Typ();
    res->data=(char*)pSeries((int)(long)u3->Data(),pCopy((poly)u1->Data()),
                             pCopy((poly)u2->Data()),(intvec*)u4->Data());
    return FALSE;
  }
  else
  if (iiCheckTypes(u,t3)||iiCheckTypes(u,t4))
  {
    if(!mp_IsDiagUnit((matrix)u2->Data(), currRing))
    {
      WerrorS("2nd argument must be a diagonal matrix of units");
      return TRUE;
    }
    res->rtyp=u1->Typ();
    res->data=(char*)idSeries(
                              (int)(long)u3->Data(),
                              idCopy((ideal)u1->Data()),
                              mp_Copy((matrix)u2->Data(), currRing),
                              (intvec*)u4->Data()
                             );
    return FALSE;
  }
  else
  {
    Werror("%s(`poly`,`poly`,`int`,`intvec`) exppected",
           Tok2Cmdname(iiOp));
    return TRUE;
  }
}

jjJET_ID()

static BOOLEAN jjJET_ID ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2545 of file iparith.cc.

{
  res->data = (char *)id_Jet((ideal)u->Data(),(int)(long)v->Data(),currRing);
  return FALSE;
}

jjJET_ID_IV()

static BOOLEAN jjJET_ID_IV ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6274 of file iparith.cc.

{
  res->data = (char *)id_JetW((ideal)u->Data(),(int)(long)v->Data(),
                             (intvec *)w->Data(),currRing);
  return FALSE;
}

jjJET_ID_M()

static BOOLEAN jjJET_ID_M ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6280 of file iparith.cc.

{
  if (!mp_IsDiagUnit((matrix)v->Data(), currRing))
  {
    WerrorS("2nd argument must be a diagonal matrix of units");
    return TRUE;
  }
  res->data = (char *)idSeries((int)(long)w->Data(),(ideal)u->CopyD(),
                               (matrix)v->CopyD());
  return FALSE;
}

jjJET_P()

static BOOLEAN jjJET_P ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2540 of file iparith.cc.

{
  res->data = (char *)pJet((poly)u->CopyD(), (int)(long)v->Data());
  return FALSE;
}

jjJET_P_IV()

static BOOLEAN jjJET_P_IV ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6257 of file iparith.cc.

{
  int *iw=iv2array((intvec *)w->Data(),currRing);
  res->data = (char *)ppJetW((poly)u->Data(),(int)(long)v->Data(),iw);
  omFreeSize( (ADDRESS)iw, (rVar(currRing)+1)*sizeof(int) );
  return FALSE;
}

jjJET_P_P()

static BOOLEAN jjJET_P_P ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6264 of file iparith.cc.

{
  if (!pIsUnit((poly)v->Data()))
  {
    WerrorS("2nd argument must be a unit");
    return TRUE;
  }
  res->data = (char *)p_Series((int)(long)w->Data(),(poly)u->CopyD(),(poly)v->CopyD(),NULL,currRing);
  return FALSE;
}

jjKBASE()

static BOOLEAN jjKBASE ( leftv  res, leftv  v  )

static

Definition at line 4507 of file iparith.cc.

{
  assumeStdFlag(v);
  res->data = (char *)scKBase(-1,(ideal)(v->Data()),currRing->qideal);
  return FALSE;
}

jjKBASE2()

static BOOLEAN jjKBASE2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2550 of file iparith.cc.

{
  assumeStdFlag(u);
  intvec *w_u=(intvec *)atGet(u,"isHomog",INTVEC_CMD);
  res->data = (char *)scKBase((int)(long)v->Data(),
                              (ideal)(u->Data()),currRing->qideal, w_u);
  if (w_u!=NULL)
  {
    atSet(res,omStrDup("isHomog"),ivCopy(w_u),INTVEC_CMD);
  }
  return FALSE;
}

jjKERNEL()

static BOOLEAN jjKERNEL ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2563 of file iparith.cc.

{
  return jjPREIMAGE(res,u,v,NULL);
}

jjKERNEL_M()

static BOOLEAN jjKERNEL_M ( leftv  res, leftv  v  )

static

Definition at line 4489 of file iparith.cc.

{
#ifdef HAVE_FLINT
  res->data = (char *)singflint_kernel((matrix)(v->Data()),currRing);
  return res->data==NULL;
#else
  return TRUE;
#endif
}

jjKERNEL_SM()

static BOOLEAN jjKERNEL_SM ( leftv  res, leftv  v  )

static

Definition at line 4498 of file iparith.cc.

{
#ifdef HAVE_FLINT
  res->data = (char *)singflint_kernel((ideal)(v->Data()),currRing);
  return res->data==NULL;
#else
  return TRUE;
#endif
}

jjKLAMMER()

static BOOLEAN jjKLAMMER ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1560 of file iparith.cc.

{
  if(u->name==NULL) return TRUE;
  long slen = strlen(u->name) + 14;
  char *nn = (char*) omAlloc(slen);
  sprintf(nn,"%s(%d)",u->name,(int)(long)v->Data());
  char *n=omStrDup(nn);
  omFreeSize((ADDRESS)nn,slen);
  syMake(res,n);
  if (u->next!=NULL) return jjKLAMMER_rest(res,u->next,v);
  return FALSE;
}

jjKLAMMER_IV()

static BOOLEAN jjKLAMMER_IV ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1572 of file iparith.cc.

{
  if(u->name==NULL) return TRUE;
  intvec * iv=(intvec *)v->Data();
  leftv p=NULL;
  int i;
  long slen = strlen(u->name) + 14;
  char *n = (char*) omAlloc(slen);
 
  for (i=0;i<iv->length(); i++)
  {
    if (p==NULL)
    {
      p=res;
    }
    else
    {
      p->next=(leftv)omAlloc0Bin(sleftv_bin);
      p=p->next;
    }
    sprintf(n,"%s(%d)",u->name,(*iv)[i]);
    syMake(p,omStrDup(n));
  }
  omFreeSize(n, slen);
  if (u->next!=NULL) return jjKLAMMER_rest(res,u->next,v);
  return FALSE;
}

jjKLAMMER_PL()

static BOOLEAN jjKLAMMER_PL ( leftv  res, leftv  u  )

static

Definition at line 7825 of file iparith.cc.

{
  if ((yyInRingConstruction)
  && ((strcmp(u->Name(),"real")==0) || (strcmp(u->Name(),"complex")==0)))
  {
    memcpy(res,u,sizeof(sleftv));
    u->Init();
    return FALSE;
  }
  leftv v=u->next;
  BOOLEAN b;
  if(v==NULL)  // p()
    b=iiExprArith1(res,u,iiOp);
  else if ((v->next==NULL) // p(1)
  || (u->Typ()!=UNKNOWN))  // p(1,2), p proc or map
  {
    u->next=NULL;
    b=iiExprArith2(res,u,iiOp,v);
    u->next=v;
  }
  else // p(1,2), p undefined
  {
    if (v->Typ()!=INT_CMD)
    {
      Werror("`%s` undefined or  `int` expected while building `%s(`",u->name,u->name);
      return TRUE;
    }
    int l=u->listLength();
    char * nn = (char *)omAlloc(strlen(u->name) + 12*l);
    sprintf(nn,"%s(%d",u->name,(int)(long)v->Data());
    char *s=nn;
    do
    {
      while (*s!='\0') s++;
      v=v->next;
      if (v->Typ()!=INT_CMD)
      {
        Werror("`%s` undefined or  `int` expected while building `%s(`",u->name,u->name);
        omFree((ADDRESS)nn);
        return TRUE;
      }
      sprintf(s,",%d",(int)(long)v->Data());
    } while (v->next!=NULL);
    while (*s!='\0') s++;
    nn=strcat(nn,")");
    char *n=omStrDup(nn);
    omFree((ADDRESS)nn);
    syMake(res,n);
    b=FALSE;
  }
  return b;
}

jjKLAMMER_rest()

static BOOLEAN jjKLAMMER_rest ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1599 of file iparith.cc.

{
  leftv tmp=(leftv)omAlloc0Bin(sleftv_bin);
  BOOLEAN b;
  if (v->Typ()==INTVEC_CMD)
    b=jjKLAMMER_IV(tmp,u,v);
  else
    b=jjKLAMMER(tmp,u,v);
  if (b)
  {
    omFreeBin(tmp,sleftv_bin);
    return TRUE;
  }
  leftv h=res;
  while (h->next!=NULL) h=h->next;
  h->next=tmp;
  return FALSE;
}

jjKoszul()

static BOOLEAN jjKoszul ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2567 of file iparith.cc.

{
  return mpKoszul(res, u,v,NULL);
}

jjKoszul_Id()

static BOOLEAN jjKoszul_Id ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2571 of file iparith.cc.

{
  sleftv h;
  h.Init();
  h.rtyp=INT_CMD;
  h.data=(void *)(long)IDELEMS((ideal)v->Data());
  return mpKoszul(res, u, &h, v);
}

jjL2R()

static BOOLEAN jjL2R ( leftv  res, leftv  v  )

static

Definition at line 4513 of file iparith.cc.

{
  res->data=(char *)syConvList((lists)v->Data());
  if (res->data != NULL)
    return FALSE;
  else
    return TRUE;
}

jjLagSolve()

static BOOLEAN jjLagSolve ( leftv  res, leftv  v  )

static

Definition at line 4590 of file iparith.cc.

{
  sleftv a2,a3;
  memset(&a2,0,sizeof(a2));
  memset(&a3,0,sizeof(a3));
  a2.rtyp=INT_CMD; a2.data=(void*)10;
  a3.rtyp=INT_CMD; a3.data=(void*)1;
  return nuLagSolve(res,v,&a2,&a3);
}

jjLE_BI()

static BOOLEAN jjLE_BI ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1201 of file iparith.cc.

{
  return jjGE_BI(res,v,u);
}

jjLE_I()

static BOOLEAN jjLE_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1205 of file iparith.cc.

{
  res->data = (char *)(long)((int)((long)u->Data()) <= (int)((long)v->Data()));
  return FALSE;
}

jjLE_N()

static BOOLEAN jjLE_N ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1210 of file iparith.cc.

{
  return jjGE_N(res,v,u);
}

jjLEADCOEF()

static BOOLEAN jjLEADCOEF ( leftv  res, leftv  v  )

static

Definition at line 4521 of file iparith.cc.

{
  poly p=(poly)v->Data();
  if (p==NULL)
  {
    res->data=(char *)nInit(0);
  }
  else
  {
    nNormalize(pGetCoeff(p));
    res->data=(char *)nCopy(pGetCoeff(p));
  }
  return FALSE;
}

jjLEADEXP()

static BOOLEAN jjLEADEXP ( leftv  res, leftv  v  )

static

Definition at line 4535 of file iparith.cc.

{
  poly p=(poly)v->Data();
  int s=currRing->N;
  if (v->Typ()==VECTOR_CMD) s++;
  intvec *iv=new intvec(s);
  if (p!=NULL)
  {
    for(int i = currRing->N;i;i--)
    {
      (*iv)[i-1]=pGetExp(p,i);
    }
    if (s!=currRing->N)
      (*iv)[currRing->N]=pGetComp(p);
  }
  res->data=(char *)iv;
  return FALSE;
}

jjLEADMONOM()

static BOOLEAN jjLEADMONOM ( leftv  res, leftv  v  )

static

Definition at line 4553 of file iparith.cc.

{
  poly p=(poly)v->Data();
  if (p == NULL)
  {
    res->data = (char*) NULL;
  }
  else
  {
    poly lm = pLmInit(p);
    pSetCoeff0(lm, nInit(1));
    res->data = (char*) lm;
  }
  return FALSE;
}

jjLIFT()

static BOOLEAN jjLIFT ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2579 of file iparith.cc.

{
  int ul= IDELEMS((ideal)u->Data());
  int vl= IDELEMS((ideal)v->Data());
#ifdef HAVE_SHIFTBBA
  if (rIsLPRing(currRing))
  {
    if (currRing->LPncGenCount < ul)
    {
      Werror("At least %d ncgen variables are needed for this computation.", ul);
      return TRUE;
    }
  }
#endif
  ideal m = idLift((ideal)u->Data(),(ideal)v->Data(),NULL,FALSE,
                   hasFlag(u,FLAG_STD));
  if (m==NULL) return TRUE;
  res->data = (char *)id_Module2formatedMatrix(m,ul,vl,currRing);
  return FALSE;
}

jjLIFT3()

static BOOLEAN jjLIFT3 ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6937 of file iparith.cc.

{
  if (w->rtyp!=IDHDL) return TRUE;
  int ul= IDELEMS((ideal)u->Data());
  int vl= IDELEMS((ideal)v->Data());
#ifdef HAVE_SHIFTBBA
  if (rIsLPRing(currRing))
  {
    if (currRing->LPncGenCount < ul)
    {
      Werror("At least %d ncgen variables are needed for this computation.", ul);
      return TRUE;
    }
  }
#endif
  ideal m
    = idLift((ideal)u->Data(),(ideal)v->Data(),NULL,FALSE,hasFlag(u,FLAG_STD),
             FALSE, (matrix *)(&(IDMATRIX((idhdl)(w->data)))));
  if (m==NULL) return TRUE;
  res->data = (char *)id_Module2formatedMatrix(m,ul,vl,currRing);
  return FALSE;
}

jjLIFT_4()

static BOOLEAN jjLIFT_4 ( leftv  res, leftv  U  )

static

Definition at line 7877 of file iparith.cc.

{
  const short t1[]={4,IDEAL_CMD,IDEAL_CMD,MATRIX_CMD,STRING_CMD};
  const short t2[]={4,MODUL_CMD,MODUL_CMD,MATRIX_CMD,STRING_CMD};
  leftv u=U;
  leftv v=u->next;
  leftv w=v->next;
  leftv u4=w->next;
  if (w->rtyp!=IDHDL) return TRUE;
  if (iiCheckTypes(U,t1)||iiCheckTypes(U,t2))
  {
    // see jjLIFT3
    ideal I=(ideal)u->Data();
    int ul= IDELEMS(I /*(ideal)u->Data()*/);
    int vl= IDELEMS((ideal)v->Data());
    GbVariant alg=syGetAlgorithm((char*)u4->Data(),currRing,I);
    ideal m
    = idLift(I,(ideal)v->Data(),NULL,FALSE,hasFlag(u,FLAG_STD),
             FALSE, (matrix *)(&(IDMATRIX((idhdl)(w->data)))),alg);
    if (m==NULL) return TRUE;
    res->data = (char *)id_Module2formatedMatrix(m,ul,vl,currRing);
    return FALSE;
  }
  else
  {
    Werror("%s(`ideal`,`ideal`,`matrix`,`string`)\n"
           "or (`module`,`module`,`matrix`,`string`) expected",
           Tok2Cmdname(iiOp));
    return TRUE;
  }
}

jjLIFTSTD()

static BOOLEAN jjLIFTSTD ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2599 of file iparith.cc.

{
  if ((v->rtyp!=IDHDL)||(v->e!=NULL)) return TRUE;
  idhdl h=(idhdl)v->data;
#ifdef HAVE_SHIFTBBA
  if (rIsLPRing(currRing))
  {
    if (currRing->LPncGenCount < IDELEMS((ideal)u->Data()))
    {
      Werror("At least %d ncgen variables are needed for this computation.", IDELEMS((ideal)u->Data()));
      return TRUE;
    }
  }
#endif
  // CopyD for IDEAL_CMD and MODUL_CMD are identical:
  res->data = (char *)idLiftStd((ideal)u->Data(),
                                &(h->data.umatrix),testHomog);
  setFlag(res,FLAG_STD); v->flag=0;
  return FALSE;
}

jjLIFTSTD_ALG()

static BOOLEAN jjLIFTSTD_ALG ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6982 of file iparith.cc.

{
  if ((v->rtyp!=IDHDL)||(v->e!=NULL)) return TRUE;
  idhdl hv=(idhdl)v->data;
  GbVariant alg=syGetAlgorithm((char*)w->Data(),currRing,(ideal)u->Data());
#ifdef HAVE_SHIFTBBA
  if (rIsLPRing(currRing))
  {
    if (currRing->LPncGenCount < IDELEMS((ideal)u->Data()))
    {
      Werror("At least %d ncgen variables are needed for this computation.", IDELEMS((ideal)u->Data()));
      return TRUE;
    }
  }
#endif
  // CopyD for IDEAL_CMD and MODUL_CMD are identical:
  res->data = (char *)idLiftStd((ideal)u->Data(),
                                &(hv->data.umatrix),testHomog,
                                NULL,alg);
  setFlag(res,FLAG_STD); v->flag=0;
  return FALSE;
}

jjLIFTSTD_M()

static BOOLEAN jjLIFTSTD_M ( leftv  res, leftv  U  )

static

Definition at line 7908 of file iparith.cc.

{
  // we have 4 or 5 arguments
  leftv u=U;
  leftv v=u->next;
  leftv u3=v->next;
  leftv u4=u3->next;
  leftv u5=u4->next; // might be NULL
 
  ideal *syz=NULL;
  GbVariant alg=GbDefault;
  ideal h11=NULL;
 
  if(u5==NULL)
  {
    // test all three possibilities for 4 arguments
    const short t1[]={4,IDEAL_CMD,MATRIX_CMD,MODUL_CMD,STRING_CMD};
    const short t2[]={4,MODUL_CMD,MATRIX_CMD,MODUL_CMD,STRING_CMD};
    const short t3[]={4,IDEAL_CMD,MATRIX_CMD,MODUL_CMD,IDEAL_CMD};
    const short t4[]={4,MODUL_CMD,MATRIX_CMD,MODUL_CMD,MODUL_CMD};
    const short t5[]={4,IDEAL_CMD,MATRIX_CMD,STRING_CMD,IDEAL_CMD};
    const short t6[]={4,MODUL_CMD,MATRIX_CMD,STRING_CMD,MODUL_CMD};
 
    if(iiCheckTypes(U,t1)||iiCheckTypes(U,t2))
    {
      if ((u3->rtyp!=IDHDL)||(u3->e!=NULL)) return TRUE;
      idhdl hw=(idhdl)u3->data;
      syz=&(hw->data.uideal);
      alg=syGetAlgorithm((char*)u4->Data(),currRing,(ideal)u->Data());
    }
    else if(iiCheckTypes(U,t3)||iiCheckTypes(U,t4))
    {
      if ((u3->rtyp!=IDHDL)||(u3->e!=NULL)) return TRUE;
      idhdl hw=(idhdl)u3->data;
      syz=&(hw->data.uideal);
      h11=(ideal)u4->Data();
    }
    else if(iiCheckTypes(U,t5)||iiCheckTypes(U,t6))
    {
      alg=syGetAlgorithm((char*)u3->Data(),currRing,(ideal)u->Data());
      h11=(ideal)u4->Data();
    }
    else
    {
      Werror("%s(`ideal/module`,`matrix`[,`module`][,`string`][,`ideal/module`]) expected",Tok2Cmdname(iiOp));
      return TRUE;
    }
  }
  else
  {
    // we have 5 arguments
    const short t1[]={5,IDEAL_CMD,MATRIX_CMD,MODUL_CMD,STRING_CMD,IDEAL_CMD};
    const short t2[]={5,MODUL_CMD,MATRIX_CMD,MODUL_CMD,STRING_CMD,MODUL_CMD};
    if(iiCheckTypes(U,t1)||iiCheckTypes(U,t2))
    {
      idhdl hw=(idhdl)u3->data;
      syz=&(hw->data.uideal);
      alg=syGetAlgorithm((char*)u4->Data(),currRing,(ideal)u->Data());
      h11=(ideal)u5->Data();
    }
    else
    {
      Werror("%s(`ideal/module`,`matrix`[,`module`][,`string`][,`ideal/module`]) expected",Tok2Cmdname(iiOp));
      return TRUE;
    }
  }
 
#ifdef HAVE_SHIFTBBA
  if (rIsLPRing(currRing))
  {
    if (currRing->LPncGenCount < IDELEMS((ideal)u->Data()))
    {
      Werror("At least %d ncgen variables are needed for this computation.", IDELEMS((ideal)u->Data()));
      return TRUE;
    }
  }
#endif
 
  if ((v->rtyp!=IDHDL)||(v->e!=NULL)) return TRUE;
  idhdl hv=(idhdl)v->data;
  // CopyD for IDEAL_CMD and MODUL_CMD are identical:
  res->rtyp = u->Typ();
  res->data = (char *)idLiftStd((ideal)u->Data(),
                              &(hv->data.umatrix),testHomog,
                              syz,alg,h11);
  setFlag(res,FLAG_STD); v->flag=0;
  if(syz!=NULL)
    u3->flag=0;
  return FALSE;
}

jjLIFTSTD_SYZ()

static BOOLEAN jjLIFTSTD_SYZ ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6959 of file iparith.cc.

{
  if ((v->rtyp!=IDHDL)||(v->e!=NULL)) return TRUE;
  if ((w->rtyp!=IDHDL)||(w->e!=NULL)) return TRUE;
  idhdl hv=(idhdl)v->data;
  idhdl hw=(idhdl)w->data;
#ifdef HAVE_SHIFTBBA
  if (rIsLPRing(currRing))
  {
    if (currRing->LPncGenCount < IDELEMS((ideal)u->Data()))
    {
      Werror("At least %d ncgen variables are needed for this computation.", IDELEMS((ideal)u->Data()));
      return TRUE;
    }
  }
#endif
  // CopyD for IDEAL_CMD and MODUL_CMD are identical:
  res->data = (char *)idLiftStd((ideal)u->Data(),
                                &(hv->data.umatrix),testHomog,
                                &(hw->data.uideal));
  setFlag(res,FLAG_STD); v->flag=0; w->flag=0;
  return FALSE;
}

jjLIST_PL()

BOOLEAN jjLIST_PL	(	leftv	res,
		leftv	v
	)

Definition at line 7998 of file iparith.cc.

{
  int sl=0;
  if (v!=NULL) sl = v->listLength();
  lists L;
  if((sl==1)&&(v->Typ()==RESOLUTION_CMD))
  {
    int add_row_shift = 0;
    intvec *weights=(intvec*)atGet(v,"isHomog",INTVEC_CMD);
    if (weights!=NULL)  add_row_shift=weights->min_in();
    L=syConvRes((syStrategy)v->Data(),FALSE,add_row_shift);
  }
  else
  {
    L=(lists)omAllocBin(slists_bin);
    leftv h=NULL;
    int i;
    int rt;
 
    L->Init(sl);
    for (i=0;i<sl;i++)
    {
      if (h!=NULL)
      { /* e.g. not in the first step:
         * h is the pointer to the old sleftv,
         * v is the pointer to the next sleftv
         * (in this moment) */
         h->next=v;
      }
      h=v;
      v=v->next;
      h->next=NULL;
      rt=h->Typ();
      if (rt==0)
      {
        L->Clean();
        Werror("`%s` is undefined",h->Fullname());
        return TRUE;
      }
      if (rt==RING_CMD)
      {
        L->m[i].rtyp=rt;
        L->m[i].data=rIncRefCnt(((ring)h->Data()));
      }
      else
        L->m[i].Copy(h);
    }
  }
  res->data=(char *)L;
  return FALSE;
}

jjLISTRING()

static BOOLEAN jjLISTRING ( leftv  res, leftv  v  )

static

Definition at line 4572 of file iparith.cc.

{
  lists l=(lists)v->Data();
  long mm=(long)atGet(v,"maxExp",INT_CMD);
  int isLetterplace=(int)(long)atGet(v,"isLetterplaceRing",INT_CMD);
  ring r=rCompose(l,TRUE,mm,isLetterplace);
  res->data=(char *)r;
  return (r==NULL);
}

jjLOAD()

BOOLEAN jjLOAD	(	const char *	s,
		BOOLEAN	autoexport
	)

load lib/module given in v

Definition at line 5512 of file iparith.cc.

{
  char libnamebuf[1024];
  lib_types LT = type_of_LIB(s, libnamebuf);
 
#ifdef HAVE_DYNAMIC_LOADING
  extern BOOLEAN load_modules(const char *newlib, char *fullpath, BOOLEAN autoexport);
#endif /* HAVE_DYNAMIC_LOADING */
  switch(LT)
  {
      default:
      case LT_NONE:
        Werror("%s: unknown type", s);
        break;
      case LT_NOTFOUND:
        Werror("cannot open %s", s);
        break;
 
      case LT_SINGULAR:
      {
        char *plib = iiConvName(s);
        idhdl pl = IDROOT->get_level(plib,0);
        if (pl==NULL)
        {
          pl = enterid( plib,0, PACKAGE_CMD, &(basePack->idroot), TRUE );
          IDPACKAGE(pl)->language = LANG_SINGULAR;
          IDPACKAGE(pl)->libname=omStrDup(s);
        }
        else if (IDTYP(pl)!=PACKAGE_CMD)
        {
          Werror("can not create package `%s`",plib);
          omFreeBinAddr(plib);
          return TRUE;
        }
        else /* package */
        {
          package pa=IDPACKAGE(pl);
          if ((pa->language==LANG_C)
          || (pa->language==LANG_MIX))
          {
            Werror("can not create package `%s` - binaries  exists",plib);
            omFreeBinAddr(plib);
            return TRUE;
          }
        }
        omFreeBinAddr(plib);
        package savepack=currPack;
        currPack=IDPACKAGE(pl);
        IDPACKAGE(pl)->loaded=TRUE;
        char libnamebuf[1024];
        FILE * fp = feFopen( s, "r", libnamebuf, TRUE );
        BOOLEAN bo=iiLoadLIB(fp, libnamebuf, s, pl, autoexport, TRUE);
        currPack=savepack;
        IDPACKAGE(pl)->loaded=(!bo);
        return bo;
      }
      case LT_BUILTIN:
        SModulFunc_t iiGetBuiltinModInit(const char*);
        return load_builtin(s,autoexport, iiGetBuiltinModInit(s));
      case LT_MACH_O:
      case LT_ELF:
      case LT_HPUX:
#ifdef HAVE_DYNAMIC_LOADING
        return load_modules(s, libnamebuf, autoexport);
#else /* HAVE_DYNAMIC_LOADING */
        WerrorS("Dynamic modules are not supported by this version of Singular");
        break;
#endif /* HAVE_DYNAMIC_LOADING */
  }
  return TRUE;
}

jjLOAD1()

static BOOLEAN jjLOAD1 ( leftv  , leftv  v  )

static

Definition at line 4568 of file iparith.cc.

{
  return jjLOAD((char*)v->Data(),FALSE);
}

jjLOAD2()

static BOOLEAN jjLOAD2 ( leftv  , leftv  , leftv  v  )

static

Definition at line 2619 of file iparith.cc.

{
  return jjLOAD((char*)v->Data(),TRUE);
}

jjLOAD_E()

static BOOLEAN jjLOAD_E ( leftv  , leftv  v, leftv  u  )

static

Definition at line 2623 of file iparith.cc.

{
  char * s=(char *)u->Data();
  if(strcmp(s, "with")==0)
    return jjLOAD((char*)v->Data(), TRUE);
  if (strcmp(s,"try")==0)
    return jjLOAD_TRY((char*)v->Data());
  WerrorS("invalid second argument");
  WerrorS("load(\"libname\" [,option]);");
  return TRUE;
}

jjLOAD_TRY()

BOOLEAN jjLOAD_TRY

(

const char *

s

)

Definition at line 5588 of file iparith.cc.

{
  if (!iiGetLibStatus(s))
  {
    void (*WerrorS_save)(const char *s) = WerrorS_callback;
    WerrorS_callback=WerrorS_dummy;
    WerrorS_dummy_cnt=0;
    BOOLEAN bo=jjLOAD(s,TRUE);
    if (TEST_OPT_PROT && (bo || (WerrorS_dummy_cnt>0)))
      Print("loading of >%s< failed\n",s);
    WerrorS_callback=WerrorS_save;
    errorreported=0;
  }
  return FALSE;
}

jjLT_BI()

static BOOLEAN jjLT_BI ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1214 of file iparith.cc.

{
  return jjGT_BI(res,v,u);
}

jjLT_I()

static BOOLEAN jjLT_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1218 of file iparith.cc.

{
  res->data = (char *)(long)((int)((long)u->Data()) < (int)((long)v->Data()));
  return FALSE;
}

jjLT_N()

static BOOLEAN jjLT_N ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1223 of file iparith.cc.

{
  return jjGT_N(res,v,u);
}

jjLU_DECOMP()

static BOOLEAN jjLU_DECOMP ( leftv  res, leftv  v  )

static

Definition at line 4599 of file iparith.cc.

{
  /* computes the LU-decomposition of a matrix M;
     i.e., M = P * L * U, where
        - P is a row permutation matrix,
        - L is in lower triangular form,
        - U is in upper row echelon form
     Then, we also have P * M = L * U.
     A list [P, L, U] is returned. */
  matrix mat = (const matrix)v->Data();
  if (!idIsConstant((ideal)mat))
  {
    WerrorS("matrix must be constant");
    return TRUE;
  }
  matrix pMat;
  matrix lMat;
  matrix uMat;
 
  luDecomp(mat, pMat, lMat, uMat);
 
  lists ll = (lists)omAllocBin(slists_bin);
  ll->Init(3);
  ll->m[0].rtyp=MATRIX_CMD; ll->m[0].data=(void *)pMat;
  ll->m[1].rtyp=MATRIX_CMD; ll->m[1].data=(void *)lMat;
  ll->m[2].rtyp=MATRIX_CMD; ll->m[2].data=(void *)uMat;
  res->data=(char*)ll;
 
  return FALSE;
}

jjLU_INVERSE()

static BOOLEAN jjLU_INVERSE ( leftv  res, leftv  v  )

static

Definition at line 7547 of file iparith.cc.

{
  /* computation of the inverse of a quadratic matrix A
     using the L-U-decomposition of A;
     There are two valid parametrisations:
     1) exactly one argument which is just the matrix A,
     2) exactly three arguments P, L, U which already
        realise the L-U-decomposition of A, that is,
        P * A = L * U, and P, L, and U satisfy the
        properties decribed in method 'jjLU_DECOMP';
        see there;
     If A is invertible, the list [1, A^(-1)] is returned,
     otherwise the list [0] is returned. Thus, the user may
     inspect the first entry of the returned list to see
     whether A is invertible. */
  matrix iMat; int invertible;
  const short t1[]={1,MATRIX_CMD};
  const short t2[]={3,MATRIX_CMD,MATRIX_CMD,MATRIX_CMD};
  if (iiCheckTypes(v,t1))
  {
    matrix aMat = (matrix)v->Data();
    int rr = aMat->rows();
    int cc = aMat->cols();
    if (rr != cc)
    {
      Werror("given matrix (%d x %d) is not quadratic, hence not invertible", rr, cc);
      return TRUE;
    }
    if (!idIsConstant((ideal)aMat))
    {
      WerrorS("matrix must be constant");
      return TRUE;
    }
    invertible = luInverse(aMat, iMat);
  }
  else if (iiCheckTypes(v,t2))
  {
     matrix pMat = (matrix)v->Data();
     matrix lMat = (matrix)v->next->Data();
     matrix uMat = (matrix)v->next->next->Data();
     int rr = uMat->rows();
     int cc = uMat->cols();
     if (rr != cc)
     {
       Werror("third matrix (%d x %d) is not quadratic, hence not invertible",
              rr, cc);
       return TRUE;
     }
      if (!idIsConstant((ideal)pMat)
      || (!idIsConstant((ideal)lMat))
      || (!idIsConstant((ideal)uMat))
      )
      {
        WerrorS("matricesx must be constant");
        return TRUE;
      }
     invertible = luInverseFromLUDecomp(pMat, lMat, uMat, iMat);
  }
  else
  {
    Werror("expected either one or three matrices");
    return TRUE;
  }
 
  /* build the return structure; a list with either one or two entries */
  lists ll = (lists)omAllocBin(slists_bin);
  if (invertible)
  {
    ll->Init(2);
    ll->m[0].rtyp=INT_CMD;    ll->m[0].data=(void *)(long)invertible;
    ll->m[1].rtyp=MATRIX_CMD; ll->m[1].data=(void *)iMat;
  }
  else
  {
    ll->Init(1);
    ll->m[0].rtyp=INT_CMD;    ll->m[0].data=(void *)(long)invertible;
  }
 
  res->data=(char*)ll;
  return FALSE;
}

jjLU_SOLVE()

static BOOLEAN jjLU_SOLVE ( leftv  res, leftv  v  )

static

Definition at line 7628 of file iparith.cc.

{
  /* for solving a linear equation system A * x = b, via the
     given LU-decomposition of the matrix A;
     There is one valid parametrisation:
     1) exactly four arguments P, L, U, b;
        P, L, and U realise the L-U-decomposition of A, that is,
        P * A = L * U, and P, L, and U satisfy the
        properties decribed in method 'jjLU_DECOMP';
        see there;
        b is the right-hand side vector of the equation system;
     The method will return a list of either 1 entry or three entries:
     1) [0] if there is no solution to the system;
     2) [1, x, H] if there is at least one solution;
        x is any solution of the given linear system,
        H is the matrix with column vectors spanning the homogeneous
        solution space.
     The method produces an error if matrix and vector sizes do not fit. */
  const short t[]={4,MATRIX_CMD,MATRIX_CMD,MATRIX_CMD,MATRIX_CMD};
  if (!iiCheckTypes(v,t))
  {
    WerrorS("expected exactly three matrices and one vector as input");
    return TRUE;
  }
  matrix pMat = (matrix)v->Data();
  matrix lMat = (matrix)v->next->Data();
  matrix uMat = (matrix)v->next->next->Data();
  matrix bVec = (matrix)v->next->next->next->Data();
  matrix xVec; int solvable; matrix homogSolSpace;
  if (pMat->rows() != pMat->cols())
  {
    Werror("first matrix (%d x %d) is not quadratic",
           pMat->rows(), pMat->cols());
    return TRUE;
  }
  if (lMat->rows() != lMat->cols())
  {
    Werror("second matrix (%d x %d) is not quadratic",
           lMat->rows(), lMat->cols());
    return TRUE;
  }
  if (lMat->rows() != uMat->rows())
  {
    Werror("second matrix (%d x %d) and third matrix (%d x %d) do not fit",
           lMat->rows(), lMat->cols(), uMat->rows(), uMat->cols());
    return TRUE;
  }
  if (uMat->rows() != bVec->rows())
  {
    Werror("third matrix (%d x %d) and vector (%d x 1) do not fit",
           uMat->rows(), uMat->cols(), bVec->rows());
    return TRUE;
  }
  if (!idIsConstant((ideal)pMat)
  ||(!idIsConstant((ideal)lMat))
  ||(!idIsConstant((ideal)uMat))
  )
  {
    WerrorS("matrices must be constant");
    return TRUE;
  }
  solvable = luSolveViaLUDecomp(pMat, lMat, uMat, bVec, xVec, homogSolSpace);
 
  /* build the return structure; a list with either one or three entries */
  lists ll = (lists)omAllocBin(slists_bin);
  if (solvable)
  {
    ll->Init(3);
    ll->m[0].rtyp=INT_CMD;    ll->m[0].data=(void *)(long)solvable;
    ll->m[1].rtyp=MATRIX_CMD; ll->m[1].data=(void *)xVec;
    ll->m[2].rtyp=MATRIX_CMD; ll->m[2].data=(void *)homogSolSpace;
  }
  else
  {
    ll->Init(1);
    ll->m[0].rtyp=INT_CMD;    ll->m[0].data=(void *)(long)solvable;
  }
 
  res->data=(char*)ll;
  return FALSE;
}

jjMakeSub()

static Subexpr jjMakeSub ( leftv  e )

static

Definition at line 8718 of file iparith.cc.

{
  assume( e->Typ()==INT_CMD );
  Subexpr r=(Subexpr)omAlloc0Bin(sSubexpr_bin);
  r->start =(int)(long)e->Data();
  return r;
}

jjMAP()

static BOOLEAN jjMAP ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1653 of file iparith.cc.

{
  //Print("try to map %s with %s\n",$3.Name(),$1.Name());
  if ((v->e==NULL)&&(v->name!=NULL)&&(v->next==NULL))
  {
    map m=(map)u->Data();
    leftv sl=iiMap(m,v->name);
    if (sl!=NULL)
    {
      memcpy(res,sl,sizeof(sleftv));
      omFreeBin((ADDRESS)sl, sleftv_bin);
      return FALSE;
    }
  }
  else
  {
    Werror("%s(<name>) expected",u->Name());
  }
  return TRUE; /*sl==NULL or Werror*/
}

jjMATRIX_Id()

static BOOLEAN jjMATRIX_Id ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6760 of file iparith.cc.

{
  int mi=(int)(long)v->Data();
  int ni=(int)(long)w->Data();
  if ((mi<1)||(ni<1))
  {
    Werror("converting ideal to matrix: dimensions must be positive(%dx%d)",mi,ni);
    return TRUE;
  }
  matrix m=mpNew(mi,ni);
  ideal I=(ideal)u->CopyD(IDEAL_CMD);
  int i=si_min(IDELEMS(I),mi*ni);
  //for(i=i-1;i>=0;i--)
  //{
  //  m->m[i]=I->m[i];
  //  I->m[i]=NULL;
  //}
  memcpy(m->m,I->m,i*sizeof(poly));
  memset(I->m,0,i*sizeof(poly));
  id_Delete(&I,currRing);
  res->data = (char *)m;
  return FALSE;
}

jjMATRIX_Ma()

static BOOLEAN jjMATRIX_Ma ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6796 of file iparith.cc.

{
  int mi=(int)(long)v->Data();
  int ni=(int)(long)w->Data();
  if ((mi<1)||(ni<1))
  {
     Werror("converting matrix to matrix: dimensions must be positive(%dx%d)",mi,ni);
    return TRUE;
  }
  matrix m=mpNew(mi,ni);
  matrix I=(matrix)u->CopyD(MATRIX_CMD);
  int r=si_min(MATROWS(I),mi);
  int c=si_min(MATCOLS(I),ni);
  int i,j;
  for(i=r;i>0;i--)
  {
    for(j=c;j>0;j--)
    {
      MATELEM(m,i,j)=MATELEM(I,i,j);
      MATELEM(I,i,j)=NULL;
    }
  }
  id_Delete((ideal *)&I,currRing);
  res->data = (char *)m;
  return FALSE;
}

jjMATRIX_Mo()

static BOOLEAN jjMATRIX_Mo ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6783 of file iparith.cc.

{
  int mi=(int)(long)v->Data();
  int ni=(int)(long)w->Data();
  if ((mi<0)||(ni<1))
  {
    Werror("converting module to matrix: dimensions must be positive(%dx%d)",mi,ni);
    return TRUE;
  }
  res->data = (char *)id_Module2formatedMatrix((ideal)u->CopyD(MODUL_CMD),
           mi,ni,currRing);
  return FALSE;
}

jjMEMORY()

static BOOLEAN jjMEMORY ( leftv  res, leftv  v  )

static

Definition at line 4629 of file iparith.cc.

{
  // clean out "_":
  sLastPrinted.CleanUp();
  // collect all info:
  omUpdateInfo();
  switch(((int)(long)v->Data()))
  {
  case 0:
    res->data=(char *)n_Init(om_Info.UsedBytes,coeffs_BIGINT);
    break;
  case 1:
    res->data = (char *)n_Init(om_Info.CurrentBytesSystem,coeffs_BIGINT);
    break;
  case 2:
    res->data = (char *)n_Init(om_Info.MaxBytesSystem,coeffs_BIGINT);
    break;
  default:
    omPrintStats(stdout);
    omPrintInfo(stdout);
    omPrintBinStats(stdout);
    res->data = (char *)0;
    res->rtyp = NONE;
  }
  return FALSE;
}

jjMINOR_M()

static BOOLEAN jjMINOR_M ( leftv  res, leftv  v  )

static

Definition at line 6291 of file iparith.cc.

{
  /* Here's the use pattern for the minor command:
        minor ( matrix_expression m, int_expression minorSize,
                optional ideal_expression IasSB, optional int_expression k,
                optional string_expression algorithm,
                optional int_expression cachedMinors,
                optional int_expression cachedMonomials )
     This method here assumes that there are at least two arguments.
     - If IasSB is present, it must be a std basis. All minors will be
       reduced w.r.t. IasSB.
     - If k is absent, all non-zero minors will be computed.
       If k is present and k > 0, the first k non-zero minors will be
       computed.
       If k is present and k < 0, the first |k| minors (some of which
       may be zero) will be computed.
       If k is present and k = 0, an error is reported.
     - If algorithm is absent, all the following arguments must be absent too.
       In this case, a heuristic picks the best-suited algorithm (among
       Bareiss, Laplace, and Laplace with caching).
       If algorithm is present, it must be one of "Bareiss", "bareiss",
       "Laplace", "laplace", "Cache", "cache". In the cases "Cache" and
       "cache" two more arguments may be given, determining how many entries
       the cache may have at most, and how many cached monomials there are at
       most. (Cached monomials are counted over all cached polynomials.)
       If these two additional arguments are not provided, 200 and 100000
       will be used as defaults.
  */
  matrix m;
  leftv u=v->next;
  v->next=NULL;
  int v_typ=v->Typ();
  if (v_typ==MATRIX_CMD)
  {
     m = (const matrix)v->Data();
  }
  else
  {
    if (v_typ==0)
    {
      Werror("`%s` is undefined",v->Fullname());
      return TRUE;
    }
    // try to convert to MATRIX:
    int ii=iiTestConvert(v_typ,MATRIX_CMD);
    BOOLEAN bo;
    sleftv tmp;
    if (ii>0) bo=iiConvert(v_typ,MATRIX_CMD,ii,v,&tmp);
    else bo=TRUE;
    if (bo)
    {
      Werror("cannot convert %s to matrix",Tok2Cmdname(v_typ));
      return TRUE;
    }
    m=(matrix)tmp.data;
  }
  const int mk = (const int)(long)u->Data();
  bool noIdeal = true; bool noK = true; bool noAlgorithm = true;
  bool noCacheMinors = true; bool noCacheMonomials = true;
  ideal IasSB; int k; char* algorithm; int cacheMinors; int cacheMonomials;
 
  /* here come the different cases of correct argument sets */
  if ((u->next != NULL) && (u->next->Typ() == IDEAL_CMD))
  {
    IasSB = (ideal)u->next->Data();
    noIdeal = false;
    if ((u->next->next != NULL) && (u->next->next->Typ() == INT_CMD))
    {
      k = (int)(long)u->next->next->Data();
      noK = false;
      if ((u->next->next->next != NULL) &&
          (u->next->next->next->Typ() == STRING_CMD))
      {
        algorithm = (char*)u->next->next->next->Data();
        noAlgorithm = false;
        if ((u->next->next->next->next != NULL) &&
            (u->next->next->next->next->Typ() == INT_CMD))
        {
          cacheMinors = (int)(long)u->next->next->next->next->Data();
          noCacheMinors = false;
          if ((u->next->next->next->next->next != NULL) &&
              (u->next->next->next->next->next->Typ() == INT_CMD))
          {
            cacheMonomials =
               (int)(long)u->next->next->next->next->next->Data();
            noCacheMonomials = false;
          }
        }
      }
    }
  }
  else if ((u->next != NULL) && (u->next->Typ() == INT_CMD))
  {
    k = (int)(long)u->next->Data();
    noK = false;
    if ((u->next->next != NULL) && (u->next->next->Typ() == STRING_CMD))
    {
      algorithm = (char*)u->next->next->Data();
      noAlgorithm = false;
      if ((u->next->next->next != NULL) &&
          (u->next->next->next->Typ() == INT_CMD))
      {
        cacheMinors = (int)(long)u->next->next->next->Data();
        noCacheMinors = false;
        if ((u->next->next->next->next != NULL) &&
            (u->next->next->next->next->Typ() == INT_CMD))
        {
          cacheMonomials = (int)(long)u->next->next->next->next->Data();
          noCacheMonomials = false;
        }
      }
    }
  }
  else if ((u->next != NULL) && (u->next->Typ() == STRING_CMD))
  {
    algorithm = (char*)u->next->Data();
    noAlgorithm = false;
    if ((u->next->next != NULL) && (u->next->next->Typ() == INT_CMD))
    {
      cacheMinors = (int)(long)u->next->next->Data();
      noCacheMinors = false;
      if ((u->next->next->next != NULL) &&
          (u->next->next->next->Typ() == INT_CMD))
      {
        cacheMonomials = (int)(long)u->next->next->next->Data();
        noCacheMonomials = false;
      }
    }
  }
 
  /* upper case conversion for the algorithm if present */
  if (!noAlgorithm)
  {
    if (strcmp(algorithm, "bareiss") == 0)
      algorithm = (char*)"Bareiss";
    if (strcmp(algorithm, "laplace") == 0)
      algorithm = (char*)"Laplace";
    if (strcmp(algorithm, "cache") == 0)
      algorithm = (char*)"Cache";
  }
 
  v->next=u;
  /* here come some tests */
  if (!noIdeal)
  {
    assumeStdFlag(u->next);
  }
  if ((!noK) && (k == 0))
  {
    WerrorS("Provided number of minors to be computed is zero.");
    return TRUE;
  }
  if ((!noAlgorithm) && (strcmp(algorithm, "Bareiss") != 0)
      && (strcmp(algorithm, "Laplace") != 0)
      && (strcmp(algorithm, "Cache") != 0))
  {
    WerrorS("Expected as algorithm one of 'B/bareiss', 'L/laplace', or 'C/cache'.");
    return TRUE;
  }
  if ((!noAlgorithm) && (strcmp(algorithm, "Bareiss") == 0)
      && (!rField_is_Domain(currRing)))
  {
    Werror("Bareiss algorithm not defined over coefficient rings %s",
           "with zero divisors.");
    return TRUE;
  }
  if ((mk < 1) || (mk > m->rows()) || (mk > m->cols()))
  {
    ideal I=idInit(1,1);
    if (mk<1) I->m[0]=p_One(currRing);
    //Werror("invalid size of minors: %d (matrix is (%d x %d))", mk,
    //       m->rows(), m->cols());
    res->data=(void*)I;
    return FALSE;
  }
  if ((!noAlgorithm) && (strcmp(algorithm, "Cache") == 0)
      && (noCacheMinors || noCacheMonomials))
  {
    cacheMinors = 200;
    cacheMonomials = 100000;
  }
 
  /* here come the actual procedure calls */
  if (noAlgorithm)
    res->data = getMinorIdealHeuristic(m, mk, (noK ? 0 : k),
                                       (noIdeal ? 0 : IasSB), false);
  else if (strcmp(algorithm, "Cache") == 0)
    res->data = getMinorIdealCache(m, mk, (noK ? 0 : k),
                                   (noIdeal ? 0 : IasSB), 3, cacheMinors,
                                   cacheMonomials, false);
  else
    res->data = getMinorIdeal(m, mk, (noK ? 0 : k), algorithm,
                              (noIdeal ? 0 : IasSB), false);
  if (v_typ!=MATRIX_CMD) idDelete((ideal *)&m);
  return FALSE;
}

jjMINRES_R()

static BOOLEAN jjMINRES_R ( leftv  res, leftv  v  )

static

Definition at line 4680 of file iparith.cc.

{
  intvec *weights=(intvec*)atGet(v,"isHomog",INTVEC_CMD);
 
  syStrategy tmp=(syStrategy)v->Data();
  tmp = syMinimize(tmp); // enrich itself!
 
  res->data=(char *)tmp;
 
  if (weights!=NULL)
    atSet(res, omStrDup("isHomog"),ivCopy(weights),INTVEC_CMD);
 
  return FALSE;
}

jjMINUS_B()

static BOOLEAN jjMINUS_B ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 920 of file iparith.cc.

{
  sBucket_pt b=sBucketCreate(currRing);
  poly p=(poly)u->CopyD(POLY_CMD);
  int l=pLength(p);
  sBucket_Add_p(b,p,l);
  p= (poly)v->CopyD(POLY_CMD);
  p=p_Neg(p,currRing);
  l=pLength(p);
  sBucket_Add_p(b,p,l);
  res->data=(void*)b;
  return jjPLUSMINUS_Gen(res,u,v);
}

jjMINUS_B_P()

static BOOLEAN jjMINUS_B_P ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 910 of file iparith.cc.

{
  sBucket_pt b=(sBucket_pt)u->CopyD(BUCKET_CMD);
  poly p= (poly)v->CopyD(POLY_CMD);
  int l=pLength(p);
  p=p_Neg(p,currRing);
  sBucket_Add_p(b,p,l);
  res->data=(void*)b;
  return jjPLUSMINUS_Gen(res,u,v);
}

jjMINUS_BI()

static BOOLEAN jjMINUS_BI ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 895 of file iparith.cc.

{
  res->data = (char *)(n_Sub((number)u->Data(), (number)v->Data(),coeffs_BIGINT));
  return jjPLUSMINUS_Gen(res,u,v);
}

jjMINUS_BIM()

static BOOLEAN jjMINUS_BIM ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 943 of file iparith.cc.

{
  res->data = (char *)bimSub((bigintmat*)(u->Data()), (bigintmat*)(v->Data()));
  if (res->data==NULL)
  {
    WerrorS("bigintmat/cmatrix not compatible");
    return TRUE;
  }
  return jjPLUSMINUS_Gen(res,u,v);
}

jjMINUS_I()

static BOOLEAN jjMINUS_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 879 of file iparith.cc.

{
  void *ap=u->Data(); void *bp=v->Data();
  long aa=(long)ap;
  long bb=(long)bp;
  long cc=aa-bb;
  unsigned long a=(unsigned long)ap;
  unsigned long b=(unsigned long)bp;
  unsigned long c=a-b;
  if (((Sy_bitL(bit31)&a)!=(Sy_bitL(bit31)&b))&&((Sy_bitL(bit31)&a)!=(Sy_bitL(bit31)&c)))
  {
    WarnS("int overflow(-), result may be wrong");
  }
  res->data = (char *)cc;
  return jjPLUSMINUS_Gen(res,u,v);
}

jjMINUS_IV()

static BOOLEAN jjMINUS_IV ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 933 of file iparith.cc.

{
  res->data = (char *)ivSub((intvec*)(u->Data()), (intvec*)(v->Data()));
  if (res->data==NULL)
  {
     WerrorS("intmat size not compatible");
     return TRUE;
  }
  return jjPLUSMINUS_Gen(res,u,v);
}

jjMINUS_MA()

static BOOLEAN jjMINUS_MA ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 953 of file iparith.cc.

{
  matrix A=(matrix)u->Data(); matrix B=(matrix)v->Data();
  res->data = (char *)(mp_Sub(A , B, currRing));
  if (res->data==NULL)
  {
     Werror("matrix size not compatible(%dx%d, %dx%d)",
             MATROWS(A),MATCOLS(A),MATROWS(B),MATCOLS(B));
     return TRUE;
  }
  return jjPLUSMINUS_Gen(res,u,v);
  return FALSE;
}

jjMINUS_N()

static BOOLEAN jjMINUS_N ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 900 of file iparith.cc.

{
  res->data = (char *)(nSub((number)u->Data(), (number)v->Data()));
  return jjPLUSMINUS_Gen(res,u,v);
}

jjMINUS_SM()

static BOOLEAN jjMINUS_SM ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 966 of file iparith.cc.

{
  ideal A=(ideal)u->Data(); ideal B=(ideal)v->Data();
  res->data = (char *)(sm_Sub(A , B, currRing));
  if (res->data==NULL)
  {
     Werror("matrix size not compatible(%dx%d, %dx%d)",
             (int)A->rank,IDELEMS(A),(int)B->rank,IDELEMS(B));
     return TRUE;
  }
  return jjPLUSMINUS_Gen(res,u,v);
  return FALSE;
}

jjMINUS_V()

static BOOLEAN jjMINUS_V ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 905 of file iparith.cc.

{
  res->data = (char *)(pSub((poly)u->CopyD(POLY_CMD) , (poly)v->CopyD(POLY_CMD)));
  return jjPLUSMINUS_Gen(res,u,v);
}

jjMOD_BI()

static BOOLEAN jjMOD_BI ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2687 of file iparith.cc.

{
  number q=(number)v->Data();
  if (n_IsZero(q,coeffs_BIGINT))
  {
    WerrorS(ii_div_by_0);
    return TRUE;
  }
  res->data =(char *) n_IntMod((number)u->Data(),q,coeffs_BIGINT);
  return FALSE;
}

jjMOD_N()

static BOOLEAN jjMOD_N ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2698 of file iparith.cc.

{
  number q=(number)v->Data();
  if (nIsZero(q))
  {
    WerrorS(ii_div_by_0);
    return TRUE;
  }
  res->data =(char *) n_IntMod((number)u->Data(),q,currRing->cf);
  return FALSE;
}

jjMOD_P()

static BOOLEAN jjMOD_P ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2709 of file iparith.cc.

{
  poly q=(poly)v->Data();
  if (q==NULL)
  {
    WerrorS(ii_div_by_0);
    return TRUE;
  }
  poly p=(poly)(u->Data());
  if (p==NULL)
  {
    res->data=NULL;
    return FALSE;
  }
  res->data=(void*)(singclap_pmod(p /*(poly)(u->Data())*/ ,
                                  q /*(poly)(v->Data())*/ ,currRing));
  return FALSE;
}

jjMODULO()

static BOOLEAN jjMODULO ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2634 of file iparith.cc.

{
  intvec *w_u=(intvec *)atGet(u,"isHomog",INTVEC_CMD);
  tHomog hom=testHomog;
  if (w_u!=NULL)
  {
    //PrintS("modulo: wu:");w_u->show(INTVEC_CMD);PrintLn();
    w_u=ivCopy(w_u);
    hom=isHomog;
  }
  //else PrintS("modulo: wu:none\n");
  intvec *w_v=(intvec *)atGet(v,"isHomog",INTVEC_CMD);
  if (w_v!=NULL)
  {
    //PrintS("modulo: wv:");w_v->show(INTVEC_CMD);PrintLn();
    w_v=ivCopy(w_v);
    hom=isHomog;
  }
  //else PrintS("modulo: wv:none\n");
  if ((w_u!=NULL) && (w_v==NULL))
    w_v=ivCopy(w_u);
  if ((w_v!=NULL) && (w_u==NULL))
    w_u=ivCopy(w_v);
  ideal u_id=(ideal)u->Data();
  ideal v_id=(ideal)v->Data();
  if (w_u!=NULL)
  {
     if ((*w_u).compare((w_v))!=0)
     {
       WarnS("incompatible weights");
       delete w_u; w_u=NULL;
       hom=testHomog;
     }
     else
     {
       if ((!idTestHomModule(u_id,currRing->qideal,w_v))
       || (!idTestHomModule(v_id,currRing->qideal,w_v)))
       {
         WarnS("wrong weights");
         delete w_u; w_u=NULL;
         hom=testHomog;
       }
     }
  }
  res->data = (char *)idModulo(u_id,v_id ,hom,&w_u);
  if (w_u!=NULL)
  {
    atSet(res,omStrDup("isHomog"),w_u,INTVEC_CMD);
  }
  delete w_v;
  //if (TEST_OPT_RETURN_SB) setFlag(res,FLAG_STD);
  return FALSE;
}

jjMODULO3()

static BOOLEAN jjMODULO3 ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6822 of file iparith.cc.

{
  if (w->rtyp!=IDHDL) return TRUE; /* idhdhl required */
  intvec *w_u=(intvec *)atGet(u,"isHomog",INTVEC_CMD);
  tHomog hom=testHomog;
  if (w_u!=NULL)
  {
    w_u=ivCopy(w_u);
    hom=isHomog;
  }
  intvec *w_v=(intvec *)atGet(v,"isHomog",INTVEC_CMD);
  if (w_v!=NULL)
  {
    w_v=ivCopy(w_v);
    hom=isHomog;
  }
  if ((w_u!=NULL) && (w_v==NULL))
    w_v=ivCopy(w_u);
  if ((w_v!=NULL) && (w_u==NULL))
    w_u=ivCopy(w_v);
  ideal u_id=(ideal)u->Data();
  ideal v_id=(ideal)v->Data();
  if (w_u!=NULL)
  {
     if ((*w_u).compare((w_v))!=0)
     {
       WarnS("incompatible weights");
       delete w_u; w_u=NULL;
       hom=testHomog;
     }
     else
     {
       if ((!idTestHomModule(u_id,currRing->qideal,w_v))
       || (!idTestHomModule(v_id,currRing->qideal,w_v)))
       {
         WarnS("wrong weights");
         delete w_u; w_u=NULL;
         hom=testHomog;
       }
     }
  }
  idhdl h=(idhdl)w->data;
  res->data = (char *)idModulo(u_id,v_id ,hom,&w_u, &(h->data.umatrix));
  if (w_u!=NULL)
  {
    atSet(res,omStrDup("isHomog"),w_u,INTVEC_CMD);
  }
  delete w_v;
  //if (TEST_OPT_RETURN_SB) setFlag(res,FLAG_STD);
  return FALSE;
}

jjMODULO3S()

static BOOLEAN jjMODULO3S ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6873 of file iparith.cc.

{
  if (w->rtyp!=IDHDL) return TRUE; /* idhdhl required */
  intvec *w_u=(intvec *)atGet(u,"isHomog",INTVEC_CMD);
  tHomog hom=testHomog;
  if (w_u!=NULL)
  {
    w_u=ivCopy(w_u);
    hom=isHomog;
  }
  intvec *w_v=(intvec *)atGet(v,"isHomog",INTVEC_CMD);
  if (w_v!=NULL)
  {
    w_v=ivCopy(w_v);
    hom=isHomog;
  }
  if ((w_u!=NULL) && (w_v==NULL))
    w_v=ivCopy(w_u);
  if ((w_v!=NULL) && (w_u==NULL))
    w_u=ivCopy(w_v);
  ideal u_id=(ideal)u->Data();
  GbVariant alg=syGetAlgorithm((char*)w->Data(),currRing,u_id);
  ideal v_id=(ideal)v->Data();
  if (w_u!=NULL)
  {
     if ((*w_u).compare((w_v))!=0)
     {
       WarnS("incompatible weights");
       delete w_u; w_u=NULL;
       hom=testHomog;
     }
     else
     {
       if ((!idTestHomModule(u_id,currRing->qideal,w_v))
       || (!idTestHomModule(v_id,currRing->qideal,w_v)))
       {
         WarnS("wrong weights");
         delete w_u; w_u=NULL;
         hom=testHomog;
       }
     }
  }
  res->data = (char *)idModulo(u_id,v_id ,hom,&w_u, NULL,alg);
  if (w_u!=NULL)
  {
    atSet(res,omStrDup("isHomog"),w_u,INTVEC_CMD);
  }
  delete w_v;
  //if (TEST_OPT_RETURN_SB) setFlag(res,FLAG_STD);
  return FALSE;
}

jjMODULO4()

static BOOLEAN jjMODULO4 ( leftv  res, leftv  u  )

static

Definition at line 8049 of file iparith.cc.

{
  leftv v=u->next;
  leftv w=v->next;
  leftv u4=w->next;
  GbVariant alg;
  ideal u_id,v_id;
  // we have 4 arguments
  const short t1[]={4,IDEAL_CMD,IDEAL_CMD,MATRIX_CMD,STRING_CMD};
  const short t2[]={4,MODUL_CMD,MODUL_CMD,MATRIX_CMD,STRING_CMD};
  if(iiCheckTypes(u,t1)||iiCheckTypes(u,t2)||(w->rtyp!=IDHDL))
  {
    u_id=(ideal)u->Data();
    v_id=(ideal)v->Data();
    alg=syGetAlgorithm((char*)u4->Data(),currRing,u_id);
  }
  else
  {
    Werror("%s(`ideal/module`,`ideal/module`[,`matrix`][,`string`]) expected",Tok2Cmdname(iiOp));
    return TRUE;
  }
  intvec *w_u=(intvec *)atGet(u,"isHomog",INTVEC_CMD);
  tHomog hom=testHomog;
  if (w_u!=NULL)
  {
    w_u=ivCopy(w_u);
    hom=isHomog;
  }
  intvec *w_v=(intvec *)atGet(v,"isHomog",INTVEC_CMD);
  if (w_v!=NULL)
  {
    w_v=ivCopy(w_v);
    hom=isHomog;
  }
  if ((w_u!=NULL) && (w_v==NULL))
    w_v=ivCopy(w_u);
  if ((w_v!=NULL) && (w_u==NULL))
    w_u=ivCopy(w_v);
  if (w_u!=NULL)
  {
     if ((*w_u).compare((w_v))!=0)
     {
       WarnS("incompatible weights");
       delete w_u; w_u=NULL;
       hom=testHomog;
     }
     else
     {
       if ((!idTestHomModule(u_id,currRing->qideal,w_v))
       || (!idTestHomModule(v_id,currRing->qideal,w_v)))
       {
         WarnS("wrong weights");
         delete w_u; w_u=NULL;
         hom=testHomog;
       }
     }
  }
  idhdl h=(idhdl)w->data;
  res->data = (char *)idModulo(u_id,v_id ,hom,&w_u, &(h->data.umatrix),alg);
  if (w_u!=NULL)
  {
    atSet(res,omStrDup("isHomog"),w_u,INTVEC_CMD);
  }
  delete w_v;
  //if (TEST_OPT_RETURN_SB) setFlag(res,FLAG_STD);
  return FALSE;
}

jjMONITOR1()

static BOOLEAN jjMONITOR1 ( leftv  res, leftv  v  )

static

Definition at line 2728 of file iparith.cc.

{
  return jjMONITOR2(res,v,NULL);
}

jjMONITOR2()

static BOOLEAN jjMONITOR2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2732 of file iparith.cc.

{
#if 0
  char *opt=(char *)v->Data();
  int mode=0;
  while(*opt!='\0')
  {
    if (*opt=='i') mode |= SI_PROT_I;
    else if (*opt=='o') mode |= SI_PROT_O;
    opt++;
  }
  monitor((char *)(u->Data()),mode);
#else
  si_link l=(si_link)u->Data();
  if (slOpen(l,SI_LINK_WRITE,u)) return TRUE;
  if(strcmp(l->m->type,"ASCII")!=0)
  {
    Werror("ASCII link required, not `%s`",l->m->type);
    slClose(l);
    return TRUE;
  }
  SI_LINK_SET_CLOSE_P(l); // febase handles the FILE*
  if ( l->name[0]!='\0') // "" is the stop condition
  {
    const char *opt;
    int mode=0;
    if (v==NULL) opt=(const char*)"i";
    else         opt=(const char *)v->Data();
    while(*opt!='\0')
    {
      if (*opt=='i') mode |= SI_PROT_I;
      else if (*opt=='o') mode |= SI_PROT_O;
      opt++;
    }
    monitor((FILE *)l->data,mode);
  }
  else
    monitor(NULL,0);
  return FALSE;
#endif
}

jjMONOM()

static BOOLEAN jjMONOM ( leftv  res, leftv  v  )

static

Definition at line 2773 of file iparith.cc.

{
  intvec *iv=(intvec *)v->Data();
  poly p=pOne();
  int e;
  BOOLEAN err=FALSE;
  for(unsigned i=si_min(currRing->N,iv->length()); i>0; i--)
  {
    e=(*iv)[i-1];
    if (e>=0) pSetExp(p,i,e);
    else err=TRUE;
  }
  if (iv->length()==(currRing->N+1))
  {
    res->rtyp=VECTOR_CMD;
    e=(*iv)[currRing->N];
    if (e>=0) pSetComp(p,e);
    else err=TRUE;
  }
  pSetm(p);
  res->data=(char*)p;
  if(err) { pDelete(&p); WerrorS("no negative exponent allowed"); }
  return err;
}

jjmpTrace()

static BOOLEAN jjmpTrace ( leftv  res, leftv  v  )

static

Definition at line 5662 of file iparith.cc.

{
  res->data = (char *)mp_Trace((matrix)v->Data(),currRing);
  return FALSE;
}

jjmpTransp()

static BOOLEAN jjmpTransp ( leftv  res, leftv  v  )

static

Definition at line 5667 of file iparith.cc.

{
  res->data = (char *)mp_Transp((matrix)v->Data(),currRing);
  return FALSE;
}

jjMSTD()

static BOOLEAN jjMSTD ( leftv  res, leftv  v  )

static

Definition at line 4659 of file iparith.cc.

{
  int t=v->Typ();
  ideal r,m;
  r=kMin_std((ideal)v->Data(),currRing->qideal,testHomog,NULL,m);
  lists l=(lists)omAllocBin(slists_bin);
  l->Init(2);
  l->m[0].rtyp=t;
  l->m[0].data=(char *)r;
  setFlag(&(l->m[0]),FLAG_STD);
  l->m[1].rtyp=t;
  l->m[1].data=(char *)m;
  res->data=(char *)l;
  return FALSE;
}

jjMULT()

static BOOLEAN jjMULT ( leftv  res, leftv  v  )

static

Definition at line 4674 of file iparith.cc.

{
  assumeStdFlag(v);
  res->data = (char *)(long)scMultInt((ideal)(v->Data()),currRing->qideal);
  return FALSE;
}

jjN2BI()

static BOOLEAN jjN2BI ( leftv  res, leftv  v  )

static

Definition at line 4694 of file iparith.cc.

{
  number n,i; i=(number)v->Data();
  nMapFunc nMap=n_SetMap(currRing->cf,coeffs_BIGINT);
  if (nMap!=NULL)
    n=nMap(i,currRing->cf,coeffs_BIGINT);
  else goto err;
  res->data=(void *)n;
  return FALSE;
err:
  WerrorS("cannot convert to bigint"); return TRUE;
}

jjNAMEOF()

static BOOLEAN jjNAMEOF ( leftv  res, leftv  v  )

static

Definition at line 4706 of file iparith.cc.

{
  if ((v->rtyp==IDHDL)||(v->rtyp==ALIAS_CMD))
    res->data=omStrDup(v->name);
  else if (v->name==NULL)
    res->data=omStrDup("");
  else
  {
    res->data = (char *)v->name;
    v->name=NULL;
  }
  return FALSE;
}

jjNAMES()

static BOOLEAN jjNAMES ( leftv  res, leftv  v  )

static

Definition at line 4719 of file iparith.cc.

{
  res->data=ipNameList(((ring)v->Data())->idroot);
  return FALSE;
}

jjNAMES0()

static BOOLEAN jjNAMES0 ( leftv  res, leftv    )

static

Definition at line 8116 of file iparith.cc.

{
  res->data=(void *)ipNameList(IDROOT);
  return FALSE;
}

jjNAMES_I()

static BOOLEAN jjNAMES_I ( leftv  res, leftv  v  )

static

Definition at line 4724 of file iparith.cc.

{
  res->data=ipNameListLev((IDROOT),(int)(long)v->Data());
  return FALSE;
}

jjNEWSTRUCT2()

static BOOLEAN jjNEWSTRUCT2 ( leftv  , leftv  u, leftv  v  )

static

Definition at line 2797 of file iparith.cc.

{
  // u: the name of the new type
  // v: the elements
  const char *s=(const char *)u->Data();
  newstruct_desc d=NULL;
  if (strlen(s)>=2)
  {
    d=newstructFromString((const char *)v->Data());
    if (d!=NULL) newstruct_setup(s,d);
  }
  else WerrorS("name of newstruct must be longer than 1 character");
  return d==NULL;
}

jjNEWSTRUCT3()

static BOOLEAN jjNEWSTRUCT3 ( leftv  , leftv  u, leftv  v, leftv  w  )

static

Definition at line 6487 of file iparith.cc.

{
  // u: the name of the new type
  // v: the parent type
  // w: the elements
  newstruct_desc d=newstructChildFromString((const char *)v->Data(),
                                            (const char *)w->Data());
  if (d!=NULL) newstruct_setup((const char *)u->Data(),d);
  return (d==NULL);
}

jjnInt()

static BOOLEAN jjnInt ( leftv  res, leftv  u  )

static

Definition at line 5702 of file iparith.cc.

{
  number n=(number)u->CopyD(); // n_Int may call n_Normalize
  res->data=(char *)(long)iin_Int(n,currRing->cf);
  n_Delete(&n,currRing->cf);
  return FALSE;
}

jjnlInt()

static BOOLEAN jjnlInt ( leftv  res, leftv  u  )

static

Definition at line 5709 of file iparith.cc.

{
  number n=(number)u->Data();
  res->data=(char *)(long)iin_Int(n,coeffs_BIGINT );
  return FALSE;
}

jjNOT()

static BOOLEAN jjNOT ( leftv  res, leftv  v  )

static

Definition at line 4729 of file iparith.cc.

{
  res->data=(char*)(long)((long)v->Data()==0 ? 1 : 0);
  return FALSE;
}

jjNULL()

static BOOLEAN jjNULL ( leftv  , leftv    )

static

Definition at line 3718 of file iparith.cc.

{
  return FALSE;
}

jjNUMERATOR()

static BOOLEAN jjNUMERATOR ( leftv  res, leftv  v  )

static

Return the numerator of the input number.

Definition at line 4024 of file iparith.cc.

{
  number n = reinterpret_cast<number>(v->CopyD());
  res->data = reinterpret_cast<void*>(n_GetNumerator(n, currRing->cf));
  n_Delete(&n,currRing->cf);
  return FALSE;
}

jjNVARS()

static BOOLEAN jjNVARS ( leftv  res, leftv  v  )

static

Definition at line 4734 of file iparith.cc.

{
  res->data = (char *)(long)(((ring)(v->Data()))->N);
  return FALSE;
}

jjOP_BI_BIM()

static BOOLEAN jjOP_BI_BIM ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 279 of file iparith.cc.

{
  return jjOP_BIM_BI(res, v, u);
}

jjOP_BIM_BI()

static BOOLEAN jjOP_BIM_BI ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 266 of file iparith.cc.

{
  bigintmat* aa= (bigintmat *)u->Data();
  number bb = (number)(v->Data());
  if (errorreported) return TRUE;
  bigintmat *cc=NULL;
  switch (iiOp)
  {
    case '*': cc=bimMult(aa,bb,coeffs_BIGINT); break;
  }
  res->data=(char *)cc;
  return cc==NULL;
}

jjOP_BIM_I()

static BOOLEAN jjOP_BIM_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 247 of file iparith.cc.

{
  bigintmat* aa= (bigintmat *)u->Data();
  long bb = (long)(v->Data());
  if (errorreported) return TRUE;
  bigintmat *cc=NULL;
  switch (iiOp)
  {
    case '+': cc=bimAdd(aa,bb); break;
    case '-': cc=bimSub(aa,bb); break;
    case '*': cc=bimMult(aa,bb); break;
  }
  res->data=(char *)cc;
  return cc==NULL;
}

jjOP_I_BIM()

static BOOLEAN jjOP_I_BIM ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 262 of file iparith.cc.

{
  return jjOP_BIM_I(res, v, u);
}

jjOP_I_IM()

static BOOLEAN jjOP_I_IM ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 319 of file iparith.cc.

{
  return jjOP_IM_I(res,v,u);
}

jjOP_I_IV()

static BOOLEAN jjOP_I_IV ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 300 of file iparith.cc.

{
  return jjOP_IV_I(res,v,u);
}

jjOP_IM_I()

static BOOLEAN jjOP_IM_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 304 of file iparith.cc.

{
  intvec* aa= (intvec *)u->CopyD(INTVEC_CMD);
  int bb = (int)(long)(v->Data());
  int i=si_min(aa->rows(),aa->cols());
  switch (iiOp)
  {
    case '+': for (;i>0;i--) IMATELEM(*aa,i,i) += bb;
              break;
    case '-': for (;i>0;i--) IMATELEM(*aa,i,i) -= bb;
              break;
  }
  res->data=(char *)aa;
  return FALSE;
}

jjOP_IV_I()

static BOOLEAN jjOP_IV_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 283 of file iparith.cc.

{
  intvec* aa= (intvec *)u->CopyD(INTVEC_CMD);
  int bb = (int)(long)(v->Data());
  if (errorreported) return TRUE;
  switch (iiOp)
  {
    case '+': (*aa) += bb; break;
    case '-': (*aa) -= bb; break;
    case '*': (*aa) *= bb; break;
    case '/':
    case INTDIV_CMD: (*aa) /= bb; break;
    case '%': (*aa) %= bb; break;
  }
  res->data=(char *)aa;
  return FALSE;
}

jjOP_REST()

static BOOLEAN jjOP_REST ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 507 of file iparith.cc.

{
  if (u->Next()!=NULL)
  {
    u=u->next;
    res->next = (leftv)omAllocBin(sleftv_bin);
    return iiExprArith2(res->next,u,iiOp,v);
  }
  else if (v->Next()!=NULL)
  {
    v=v->next;
    res->next = (leftv)omAllocBin(sleftv_bin);
    return iiExprArith2(res->next,u,iiOp,v);
  }
  return FALSE;
}

jjOpenClose()

static BOOLEAN jjOpenClose ( leftv  , leftv  v  )

static

Definition at line 4739 of file iparith.cc.

{
  si_link l=(si_link)v->Data();
  if (iiOp==OPEN_CMD) return slOpen(l, SI_LINK_OPEN,v);
  else { slPrepClose(l); return slClose(l);}
}

jjOPPOSE()

static BOOLEAN jjOPPOSE ( leftv  res, leftv  a, leftv  b  )

static

Definition at line 2976 of file iparith.cc.

{
  /* number, poly, vector, ideal, module, matrix */
  ring  r = (ring)a->Data();
  if (r == currRing)
  {
    res->data = b->Data();
    res->rtyp = b->rtyp;
    return FALSE;
  }
  if (!rIsLikeOpposite(currRing, r))
  {
    Werror("%s is not an opposite ring to current ring",a->Fullname());
    return TRUE;
  }
  idhdl w;
  if( ((w=r->idroot->get(b->Name(),myynest))!=NULL) && (b->e==NULL))
  {
    int argtype = IDTYP(w);
    switch (argtype)
    {
    case NUMBER_CMD:
      {
        /* since basefields are equal, we can apply nCopy */
        res->data = nCopy((number)IDDATA(w));
        res->rtyp = argtype;
        break;
      }
    case POLY_CMD:
    case VECTOR_CMD:
      {
        poly    q = (poly)IDDATA(w);
        res->data = pOppose(r,q,currRing);
        res->rtyp = argtype;
        break;
      }
    case IDEAL_CMD:
    case MODUL_CMD:
      {
        ideal   Q = (ideal)IDDATA(w);
        res->data = idOppose(r,Q,currRing);
        res->rtyp = argtype;
        break;
      }
    case MATRIX_CMD:
      {
        ring save = currRing;
        rChangeCurrRing(r);
        matrix  m = (matrix)IDDATA(w);
        ideal   Q = id_Matrix2Module(mp_Copy(m, currRing),currRing);
        rChangeCurrRing(save);
        ideal   S = idOppose(r,Q,currRing);
        id_Delete(&Q, r);
        res->data = id_Module2Matrix(S,currRing);
        res->rtyp = argtype;
        break;
      }
    default:
      {
        WerrorS("unsupported type in oppose");
        return TRUE;
      }
    }
  }
  else
  {
    Werror("identifier %s not found in %s",b->Fullname(),a->Fullname());
    return TRUE;
  }
  return FALSE;
}

jjOPPOSITE()

static BOOLEAN jjOPPOSITE ( leftv  res, leftv  a  )

static

Definition at line 5239 of file iparith.cc.

{
#ifdef HAVE_PLURAL
  ring    r = (ring)a->Data();
  //if (rIsPluralRing(r))
  if (r->OrdSgn==1)
  {
    res->data = rOpposite(r);
  }
  else
  {
    WarnS("opposite only for global orderings");
    res->data = rCopy(r);
  }
  return FALSE;
#else
  return TRUE;
#endif
}

jjOPTION_PL()

static BOOLEAN jjOPTION_PL ( leftv  res, leftv  v  )

static

Definition at line 8121 of file iparith.cc.

{
  if(v==NULL)
  {
    res->data=(char *)showOption();
    return FALSE;
  }
  res->rtyp=NONE;
  return setOption(res,v);
}

jjOR_I()

static BOOLEAN jjOR_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1385 of file iparith.cc.

{
  res->data = (char *)((long)u->Data() || (long)v->Data());
  return FALSE;
}

jjORD()

static BOOLEAN jjORD ( leftv  res, leftv  v  )

static

Definition at line 4745 of file iparith.cc.

{
  poly p=(poly)v->Data();
  res->data=(char *)( p==NULL ? -1 : currRing->pFDeg(p,currRing) );
  return FALSE;
}

jjP2BI()

static BOOLEAN jjP2BI ( leftv  res, leftv  v  )

static

Definition at line 4791 of file iparith.cc.

{
  poly p=(poly)v->Data();
  if (p==NULL) { res->data=(char *)n_Init(0,coeffs_BIGINT); return FALSE; }
  if ((pNext(p)!=NULL)|| (!pIsConstant(p)))
  {
    WerrorS("poly must be constant");
    return TRUE;
  }
  number i=pGetCoeff(p);
  number n;
  nMapFunc nMap=n_SetMap(currRing->cf,coeffs_BIGINT);
  if (nMap!=NULL)
    n=nMap(i,currRing->cf,coeffs_BIGINT);
  else goto err;
  res->data=(void *)n;
  return FALSE;
err:
  WerrorS("cannot convert to bigint"); return TRUE;
}

jjP2I()

static BOOLEAN jjP2I ( leftv  res, leftv  v  )

static

Definition at line 4811 of file iparith.cc.

{
  poly p=(poly)v->Data();
  if (p==NULL) { /*res->data=(char *)0;*/ return FALSE; }
  if ((pNext(p)!=NULL)|| (!pIsConstant(p)))
  {
    WerrorS("poly must be constant");
    return TRUE;
  }
  res->data = (char *)(long)iin_Int(pGetCoeff(p),currRing->cf);
  return FALSE;
}

jjP2N()

static BOOLEAN jjP2N ( leftv  res, leftv  v  )

static

Definition at line 4859 of file iparith.cc.

{
  number n;
  poly p;
  if (((p=(poly)v->Data())!=NULL)
  && (pIsConstant(p)))
  {
    n=nCopy(pGetCoeff(p));
  }
  else
  {
    n=nInit(0);
  }
  res->data = (char *)n;
  return FALSE;
}

jjPAR1()

static BOOLEAN jjPAR1 ( leftv  res, leftv  v  )

static

Definition at line 4751 of file iparith.cc.

{
  int i=(int)(long)v->Data();
  int p=0;
  p=rPar(currRing);
  if ((0<i) && (i<=p))
  {
    res->data=(char *)n_Param(i,currRing);
  }
  else
  {
    Werror("par number %d out of range 1..%d",i,p);
    return TRUE;
  }
  return FALSE;
}

jjPARDEG()

static BOOLEAN jjPARDEG ( leftv  res, leftv  v  )

static

Definition at line 4767 of file iparith.cc.

{
  number nn=(number)v->Data();
  res->data = (char *)(long)n_ParDeg(nn, currRing->cf);
  return FALSE;
}

jjPARSTR1()

static BOOLEAN jjPARSTR1 ( leftv  res, leftv  v  )

static

Definition at line 4773 of file iparith.cc.

{
  if (currRing==NULL)
  {
    WerrorS("no ring active (1)");
    return TRUE;
  }
  int i=(int)(long)v->Data();
  int p=0;
  if ((0<i) && (rParameter(currRing)!=NULL) && (i<=(p=rPar(currRing))))
    res->data=omStrDup(rParameter(currRing)[i-1]);
  else
  {
    Werror("par number %d out of range 1..%d",i,p);
    return TRUE;
  }
  return FALSE;
}

jjPARSTR2()

static BOOLEAN jjPARSTR2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 2811 of file iparith.cc.

{
  idhdl h=(idhdl)u->data;
  int i=(int)(long)v->Data();
  int p=0;
  if ((0<i)
  && (rParameter(IDRING(h))!=NULL)
  && (i<=(p=rPar(IDRING(h)))))
    res->data=omStrDup(rParameter(IDRING(h))[i-1]);
  else
  {
    Werror("par number %d out of range 1..%d",i,p);
    return TRUE;
  }
  return FALSE;
}

jjPFAC1()

static BOOLEAN jjPFAC1 ( leftv  res, leftv  v  )

static

Definition at line 4581 of file iparith.cc.

{
  /* call method jjPFAC2 with second argument = 0 (meaning that no
     valid bound for the prime factors has been given) */
  sleftv tmp;
  tmp.Init();
  tmp.rtyp = INT_CMD;
  return jjPFAC2(res, v, &tmp);
}

jjPFAC2()

static BOOLEAN jjPFAC2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3235 of file iparith.cc.

{
  number n1; int i;
 
  if ((u->Typ() == BIGINT_CMD) ||
     ((u->Typ() == NUMBER_CMD) && rField_is_Q(currRing)))
  {
    n1 = (number)u->CopyD();
  }
  else if (u->Typ() == INT_CMD)
  {
    i = (int)(long)u->Data();
    n1 = n_Init(i, coeffs_BIGINT);
  }
  else
  {
    return TRUE;
  }
 
  i = (int)(long)v->Data();
 
  lists l = primeFactorisation(n1, i);
  n_Delete(&n1, coeffs_BIGINT);
  res->data = (char*)l;
  return FALSE;
}

jjpHead()

static BOOLEAN jjpHead ( leftv  res, leftv  v  )

static

Definition at line 5634 of file iparith.cc.

{
  res->data = (char *)pHead((poly)v->Data());
  return FALSE;
}

jjpLength()

static BOOLEAN jjpLength ( leftv  res, leftv  v  )

static

Definition at line 5609 of file iparith.cc.

{
  res->data = (char *)(long)pLength((poly)v->Data());
  return FALSE;
}

jjPlural_mat_mat()

static BOOLEAN jjPlural_mat_mat ( leftv  res, leftv  a, leftv  b  )

static

Definition at line 2888 of file iparith.cc.

{
  if( currRing->qideal != NULL )
  {
    WerrorS("basering must NOT be a qring!");
    return TRUE;
  }
 
  if (iiOp==NCALGEBRA_CMD)
  {
    return nc_CallPlural((matrix)a->Data(),(matrix)b->Data(),NULL,NULL,currRing,false,true,false,currRing);
  }
  else
  {
    ring r=rCopy(currRing);
    BOOLEAN result=nc_CallPlural((matrix)a->Data(),(matrix)b->Data(),NULL,NULL,r,false,true,false,currRing);
    res->data=r;
    return result;
  }
}

jjPlural_mat_poly()

static BOOLEAN jjPlural_mat_poly ( leftv  res, leftv  a, leftv  b  )

static

Definition at line 2868 of file iparith.cc.

{
  if( currRing->qideal != NULL )
  {
    WerrorS("basering must NOT be a qring!");
    return TRUE;
  }
 
  if (iiOp==NCALGEBRA_CMD)
  {
    return nc_CallPlural((matrix)a->Data(),NULL,NULL,(poly)b->Data(),currRing,false,true,false,currRing);
  }
  else
  {
    ring r=rCopy(currRing);
    BOOLEAN result=nc_CallPlural((matrix)a->Data(),NULL,NULL,(poly)b->Data(),r,false,true,false,currRing);
    res->data=r;
    return result;
  }
}

jjPlural_num_mat()

static BOOLEAN jjPlural_num_mat ( leftv  res, leftv  a, leftv  b  )

static

Definition at line 2848 of file iparith.cc.

{
  if( currRing->qideal != NULL )
  {
    WerrorS("basering must NOT be a qring!");
    return TRUE;
  }
 
  if (iiOp==NCALGEBRA_CMD)
  {
    return nc_CallPlural(NULL,(matrix)b->Data(),(poly)a->Data(),NULL,currRing,false,true,false,currRing);
  }
  else
  {
    ring r=rCopy(currRing);
    BOOLEAN result=nc_CallPlural(NULL,(matrix)b->Data(),(poly)a->Data(),NULL,r,false,true,false,currRing);
    res->data=r;
    return result;
  }
}

jjPlural_num_poly()

static BOOLEAN jjPlural_num_poly ( leftv  res, leftv  a, leftv  b  )

static

Definition at line 2828 of file iparith.cc.

{
  if( currRing->qideal != NULL )
  {
    WerrorS("basering must NOT be a qring!");
    return TRUE;
  }
 
  if (iiOp==NCALGEBRA_CMD)
  {
    return nc_CallPlural(NULL,NULL,(poly)a->Data(),(poly)b->Data(),currRing,false,true,false,currRing);
  }
  else
  {
    ring r=rCopy(currRing);
    BOOLEAN result=nc_CallPlural(NULL,NULL,(poly)a->Data(),(poly)b->Data(),r,false,true,false,currRing);
    res->data=r;
    return result;
  }
}

jjPLUS_B()

static BOOLEAN jjPLUS_B ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 783 of file iparith.cc.

{
  //res->data = (char *)(pAdd((poly)u->CopyD(POLY_CMD) , (poly)v->CopyD(POLY_CMD)));
  sBucket_pt b=sBucketCreate(currRing);
  poly p=(poly)u->CopyD(POLY_CMD);
  int l=pLength(p);
  sBucket_Add_p(b,p,l);
  p= (poly)v->CopyD(POLY_CMD);
  l=pLength(p);
  sBucket_Add_p(b,p,l);
  res->data=(void*)b;
  return jjPLUSMINUS_Gen(res,u,v);
}

jjPLUS_B_P()

static BOOLEAN jjPLUS_B_P ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 796 of file iparith.cc.

{
  sBucket_pt b=(sBucket_pt)u->CopyD(BUCKET_CMD);
  poly p= (poly)v->CopyD(POLY_CMD);
  int l=pLength(p);
  sBucket_Add_p(b,p,l);
  res->data=(void*)b;
  return jjPLUSMINUS_Gen(res,u,v);
}

jjPLUS_BI()

static BOOLEAN jjPLUS_BI ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 768 of file iparith.cc.

{
  res->data = (char *)(n_Add((number)u->Data(), (number)v->Data(),coeffs_BIGINT));
  return jjPLUSMINUS_Gen(res,u,v);
}

jjPLUS_BIM()

static BOOLEAN jjPLUS_BIM ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 815 of file iparith.cc.

{
  res->data = (char *)bimAdd((bigintmat*)(u->Data()), (bigintmat*)(v->Data()));
  if (res->data==NULL)
  {
    WerrorS("bigintmat/cmatrix not compatible");
    return TRUE;
  }
  return jjPLUSMINUS_Gen(res,u,v);
}

jjPLUS_I()

static BOOLEAN jjPLUS_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 756 of file iparith.cc.

{
  unsigned long a=(unsigned long)u->Data();
  unsigned long b=(unsigned long)v->Data();
  unsigned long c=a+b;
  res->data = (char *)((long)c);
  if (((Sy_bitL(bit31)&a)==(Sy_bitL(bit31)&b))&&((Sy_bitL(bit31)&a)!=(Sy_bitL(bit31)&c)))
  {
    WarnS("int overflow(+), result may be wrong");
  }
  return jjPLUSMINUS_Gen(res,u,v);
}

jjPLUS_ID()

static BOOLEAN jjPLUS_ID ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 874 of file iparith.cc.

{
  res->data = (char *)idAdd((ideal)u->Data(),(ideal)v->Data());
  return jjPLUSMINUS_Gen(res,u,v);
}

jjPLUS_IV()

static BOOLEAN jjPLUS_IV ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 805 of file iparith.cc.

{
  res->data = (char *)ivAdd((intvec*)(u->Data()), (intvec*)(v->Data()));
  if (res->data==NULL)
  {
     WerrorS("intmat size not compatible");
     return TRUE;
  }
  return jjPLUSMINUS_Gen(res,u,v);
}

jjPLUS_MA()

static BOOLEAN jjPLUS_MA ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 825 of file iparith.cc.

{
  matrix A=(matrix)u->Data(); matrix B=(matrix)v->Data();
  res->data = (char *)(mp_Add(A , B, currRing));
  if (res->data==NULL)
  {
     Werror("matrix size not compatible(%dx%d, %dx%d)",
             MATROWS(A),MATCOLS(A),MATROWS(B),MATCOLS(B));
     return TRUE;
  }
  return jjPLUSMINUS_Gen(res,u,v);
}

jjPLUS_MA_P()

static BOOLEAN jjPLUS_MA_P ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 849 of file iparith.cc.

{
  matrix m=(matrix)u->Data();
  matrix p= mp_InitP(m->nrows,m->ncols,(poly)(v->CopyD(POLY_CMD)),currRing);
  if (iiOp=='+')
    res->data = (char *)mp_Add(m , p,currRing);
  else
    res->data = (char *)mp_Sub(m , p,currRing);
  idDelete((ideal *)&p);
  return jjPLUSMINUS_Gen(res,u,v);
}

jjPLUS_N()

static BOOLEAN jjPLUS_N ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 773 of file iparith.cc.

{
  res->data = (char *)(nAdd((number)u->Data(), (number)v->Data()));
  return jjPLUSMINUS_Gen(res,u,v);
}

jjPLUS_P_MA()

static BOOLEAN jjPLUS_P_MA ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 860 of file iparith.cc.

{
  return jjPLUS_MA_P(res,v,u);
}

jjPLUS_S()

static BOOLEAN jjPLUS_S ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 864 of file iparith.cc.

{
  char*    a = (char * )(u->Data());
  char*    b = (char * )(v->Data());
  char*    r = (char * )omAlloc(strlen(a) + strlen(b) + 1);
  strcpy(r,a);
  strcat(r,b);
  res->data=r;
  return jjPLUSMINUS_Gen(res,u,v);
}

jjPLUS_SM()

static BOOLEAN jjPLUS_SM ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 837 of file iparith.cc.

{
  ideal A=(ideal)u->Data(); ideal B=(ideal)v->Data();
  res->data = (char *)(sm_Add(A , B, currRing));
  if (res->data==NULL)
  {
     Werror("matrix size not compatible(%dx%d, %dx%d)",
             (int)A->rank,IDELEMS(A),(int)B->rank,IDELEMS(B));
     return TRUE;
  }
  return jjPLUSMINUS_Gen(res,u,v);
}

jjPLUS_V()

static BOOLEAN jjPLUS_V ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 778 of file iparith.cc.

{
  res->data = (char *)(pAdd((poly)u->CopyD(POLY_CMD) , (poly)v->CopyD(POLY_CMD)));
  return jjPLUSMINUS_Gen(res,u,v);
}

jjPLUSMINUS_Gen()

static BOOLEAN jjPLUSMINUS_Gen ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 632 of file iparith.cc.

{
  u=u->next;
  v=v->next;
  if (u==NULL)
  {
    if (v==NULL) return FALSE;      /* u==NULL, v==NULL */
    if (iiOp=='-')                  /* u==NULL, v<>NULL, iiOp=='-'*/
    {
      do
      {
        if (res->next==NULL)
          res->next = (leftv)omAlloc0Bin(sleftv_bin);
        leftv tmp_v=v->next;
        v->next=NULL;
        BOOLEAN b=iiExprArith1(res->next,v,'-');
        v->next=tmp_v;
        if (b)
          return TRUE;
        v=tmp_v;
        res=res->next;
      } while (v!=NULL);
      return FALSE;
    }
    loop                            /* u==NULL, v<>NULL, iiOp=='+' */
    {
      res->next = (leftv)omAlloc0Bin(sleftv_bin);
      res=res->next;
      res->data = v->CopyD();
      res->rtyp = v->Typ();
      v=v->next;
      if (v==NULL) return FALSE;
    }
  }
  if (v!=NULL)                     /* u<>NULL, v<>NULL */
  {
    do
    {
      res->next = (leftv)omAlloc0Bin(sleftv_bin);
      leftv tmp_u=u->next; u->next=NULL;
      leftv tmp_v=v->next; v->next=NULL;
      BOOLEAN b=iiExprArith2(res->next,u,iiOp,v);
      u->next=tmp_u;
      v->next=tmp_v;
      if (b)
        return TRUE;
      u=tmp_u;
      v=tmp_v;
      res=res->next;
    } while ((u!=NULL) && (v!=NULL));
    return FALSE;
  }
  loop                             /* u<>NULL, v==NULL */
  {
    res->next = (leftv)omAlloc0Bin(sleftv_bin);
    res=res->next;
    res->data = u->CopyD();
    res->rtyp = u->Typ();
    u=u->next;
    if (u==NULL) return FALSE;
  }
}

jjPLUSPLUS()

static BOOLEAN jjPLUSPLUS ( leftv  , leftv  u  )

static

Definition at line 3732 of file iparith.cc.

{
  if (IDTYP((idhdl)u->data)==INT_CMD)
  {
    int i=IDINT((idhdl)u->data);
    if (iiOp==PLUSPLUS) i++;
    else                i--;
    IDDATA((idhdl)u->data)=(char *)(long)i;
    return FALSE;
  }
  return TRUE;
}

jjpMaxComp()

static BOOLEAN jjpMaxComp ( leftv  res, leftv  v  )

static

Definition at line 5657 of file iparith.cc.

{
  res->data = (char *)pMaxComp((poly)v->Data());
  return FALSE;
}

jjPOWER_BI()

static BOOLEAN jjPOWER_BI ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 569 of file iparith.cc.

{
  int e=(int)(long)v->Data();
  number n=(number)u->Data();
  if (e>=0)
  {
    n_Power(n,e,(number*)&res->data,coeffs_BIGINT);
  }
  else
  {
    WerrorS("exponent must be non-negative");
    return TRUE;
  }
  if (u!=NULL) return jjOP_REST(res,u,v);
  return FALSE;
}

jjPOWER_I()

static BOOLEAN jjPOWER_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 523 of file iparith.cc.

{
  long b=(long)u->Data();
  long e=(long)v->Data();
  long rc = 1;
  BOOLEAN overflow=FALSE;
  if (e >= 0)
  {
    if (b==0)
    {
      rc=(e==0);
    }
    else if ((e==0)||(b==1))
    {
      rc= 1;
    }
    else if (b== -1)
    {
      if (e&1) rc= -1;
      else     rc= 1;
    }
    else
    {
      long oldrc;
      while ((e--)!=0)
      {
        oldrc=rc;
        rc *= b;
        if (!overflow)
        {
          if(rc/b!=oldrc) overflow=TRUE;
        }
      }
      if (overflow)
        WarnS("int overflow(^), result may be wrong");
    }
    res->data = (char *)rc;
    if (u!=NULL) return jjOP_REST(res,u,v);
    return FALSE;
  }
  else
  {
    WerrorS("exponent must be non-negative");
    return TRUE;
  }
}

jjPOWER_ID()

static BOOLEAN jjPOWER_ID ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 626 of file iparith.cc.

{
  res->data = (char *)id_Power((ideal)(u->Data()),(int)(long)(v->Data()), currRing);
  if (u!=NULL) return jjOP_REST(res,u,v);
  return FALSE;
}

jjPOWER_N()

static BOOLEAN jjPOWER_N ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 585 of file iparith.cc.

{
  int e=(int)(long)v->Data();
  number n=(number)u->Data();
  int d=0;
  if (e<0)
  {
    n=nInvers(n);
    e=-e;
    d=1;
  }
  number r;
  nPower(n,e,(number*)&r);
  res->data=(char*)r;
  if (d) nDelete(&n);
  if (u!=NULL) return jjOP_REST(res,u,v);
  return FALSE;
}

jjPOWER_P()

static BOOLEAN jjPOWER_P ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 603 of file iparith.cc.

{
  int v_i=(int)(long)v->Data();
  if (v_i<0)
  {
    WerrorS("exponent must be non-negative");
    return TRUE;
  }
  poly u_p=(poly)u->CopyD(POLY_CMD);
  if ((u_p!=NULL)
  && (!rIsLPRing(currRing))
  && ((v_i!=0) &&
      ((long)pTotaldegree(u_p) > (signed long)currRing->bitmask / (signed long)v_i/2)))
  {
    Werror("OVERFLOW in power(d=%ld, e=%d, max=%ld)",
                                    pTotaldegree(u_p),v_i,currRing->bitmask/2);
    pDelete(&u_p);
    return TRUE;
  }
  res->data = (char *)pPower(u_p,v_i);
  if (u!=NULL) return jjOP_REST(res,u,v);
  return errorreported; /* pPower may set errorreported via Werror */
}

jjPREIMAGE()

static BOOLEAN jjPREIMAGE ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6497 of file iparith.cc.

{
  // handles preimage(r,phi,i) and kernel(r,phi)
  idhdl h;
  ring rr;
  map mapping;
  BOOLEAN kernel_cmd= (iiOp==KERNEL_CMD);
 
  if ((v->name==NULL) || (!kernel_cmd && (w->name==NULL)))
  {
    WerrorS("2nd/3rd arguments must have names");
    return TRUE;
  }
  rr=(ring)u->Data();
  const char *ring_name=u->Name();
  if ((h=rr->idroot->get(v->name,myynest))!=NULL)
  {
    if (h->typ==MAP_CMD)
    {
      mapping=IDMAP(h);
      idhdl preim_ring=IDROOT->get(mapping->preimage,myynest);
      if ((preim_ring==NULL)
      || (IDRING(preim_ring)!=currRing))
      {
        Werror("preimage ring `%s` is not the basering",mapping->preimage);
        return TRUE;
      }
    }
    else if (h->typ==IDEAL_CMD)
    {
      mapping=IDMAP(h);
    }
    else
    {
      Werror("`%s` is no map nor ideal",IDID(h));
      return TRUE;
    }
  }
  else
  {
    Werror("`%s` is not defined in `%s`",v->name,ring_name);
    return TRUE;
  }
  ideal image;
  if (kernel_cmd) image=idInit(1,1);
  else
  {
    if ((h=rr->idroot->get(w->name,myynest))!=NULL)
    {
      if (h->typ==IDEAL_CMD)
      {
        image=IDIDEAL(h);
      }
      else
      {
        Werror("`%s` is no ideal",IDID(h));
        return TRUE;
      }
    }
    else
    {
      Werror("`%s` is not defined in `%s`",w->name,ring_name);
      return TRUE;
    }
  }
  if (((currRing->qideal!=NULL) && (rHasLocalOrMixedOrdering(currRing)))
  || ((rr->qideal!=NULL) && (rHasLocalOrMixedOrdering(rr))))
  {
    WarnS("preimage in local qring may be wrong: use Ring::preimageLoc instead");
  }
  res->data=(char *)maGetPreimage(rr,mapping,image,currRing);
  if (kernel_cmd) idDelete(&image);
  return (res->data==NULL/* is of type ideal, should not be NULL*/);
}

jjPREIMAGE_R()

static BOOLEAN jjPREIMAGE_R ( leftv  res, leftv  v  )

static

Definition at line 4823 of file iparith.cc.

{
  map mapping=(map)v->Data();
  syMake(res,omStrDup(mapping->preimage));
  return FALSE;
}

jjPRIME()

static BOOLEAN jjPRIME ( leftv  res, leftv  v  )

static

Definition at line 4829 of file iparith.cc.

{
  int i = IsPrime((int)(long)(v->Data()));
  res->data = (char *)(long)(i > 1 ? i : 2);
  return FALSE;
}

jjPROC()

BOOLEAN jjPROC	(	leftv	res,
		leftv	u,
		leftv	v
	)

Definition at line 1617 of file iparith.cc.

{
  void *d;
  Subexpr e;
  int typ;
  BOOLEAN t=FALSE;
  idhdl tmp_proc=NULL;
  if ((u->rtyp!=IDHDL)||(u->e!=NULL))
  {
    tmp_proc=(idhdl)omAlloc0(sizeof(idrec));
    tmp_proc->id="_auto";
    tmp_proc->typ=PROC_CMD;
    tmp_proc->data.pinf=(procinfo *)u->Data();
    tmp_proc->ref=1;
    d=u->data; u->data=(void *)tmp_proc;
    e=u->e; u->e=NULL;
    t=TRUE;
    typ=u->rtyp; u->rtyp=IDHDL;
  }
  BOOLEAN sl;
  if (u->req_packhdl==currPack)
    sl = iiMake_proc((idhdl)u->data,NULL,v);
  else
    sl = iiMake_proc((idhdl)u->data,u->req_packhdl,v);
  if (t)
  {
    u->rtyp=typ;
    u->data=d;
    u->e=e;
    omFreeSize(tmp_proc,sizeof(idrec));
  }
  if (sl) return TRUE;
  memcpy(res,&iiRETURNEXPR,sizeof(sleftv));
  iiRETURNEXPR.Init();
  return FALSE;
}

jjPROC1()

static BOOLEAN jjPROC1 ( leftv  res, leftv  u  )

static

Definition at line 3809 of file iparith.cc.

{
  return jjPROC(res,u,NULL);
}

jjPROC3()

static BOOLEAN jjPROC3 ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 5997 of file iparith.cc.

{
  v->next=(leftv)omAllocBin(sleftv_bin);
  memcpy(v->next,w,sizeof(sleftv));
  w->Init();
  return jjPROC(res,u,v);
}

jjPRUNE()

static BOOLEAN jjPRUNE ( leftv  res, leftv  v  )

static

Definition at line 4835 of file iparith.cc.

{
  intvec *w=(intvec *)atGet(v,"isHomog",INTVEC_CMD);
  ideal v_id=(ideal)v->Data();
  if (w!=NULL)
  {
    if (!idTestHomModule(v_id,currRing->qideal,w))
    {
      WarnS("wrong weights");
      w=NULL;
      // and continue at the non-homog case below
    }
    else
    {
      w=ivCopy(w);
      intvec **ww=&w;
      res->data = (char *)idMinEmbedding(v_id,FALSE,ww);
      atSet(res,omStrDup("isHomog"),*ww,INTVEC_CMD);
      return FALSE;
    }
  }
  res->data = (char *)idMinEmbedding(v_id);
  return FALSE;
}

jjQRDS()

static BOOLEAN jjQRDS ( leftv  res, leftv  INPUT  )

static

Definition at line 8596 of file iparith.cc.

{
  if ((INPUT->Typ() != MATRIX_CMD) ||
      (INPUT->next->Typ() != NUMBER_CMD) ||
      (INPUT->next->next->Typ() != NUMBER_CMD) ||
      (INPUT->next->next->next->Typ() != NUMBER_CMD))
  {
    WerrorS("expected (matrix, number, number, number) as arguments");
    return TRUE;
  }
  leftv u = INPUT; leftv v = u->next; leftv w = v->next; leftv x = w->next;
  res->data = (char *)qrDoubleShift((matrix)(u->Data()),
                                    (number)(v->Data()),
                                    (number)(w->Data()),
                                    (number)(x->Data()));
  return FALSE;
}

jjQUOT()

static BOOLEAN jjQUOT ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3049 of file iparith.cc.

{
  res->data = (char *)idQuot((ideal)u->Data(),(ideal)v->Data(),
    hasFlag(u,FLAG_STD),u->Typ()==v->Typ());
  //if (TEST_OPT_RETURN_SB) setFlag(res,FLAG_STD);
  return FALSE;
}

jjRANDOM()

static BOOLEAN jjRANDOM ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3056 of file iparith.cc.

{
  int i=(int)(long)u->Data();
  int j=(int)(long)v->Data();
  if (j-i <0) {WerrorS("invalid range for random"); return TRUE;}
  res->data =(char *)(long)((i > j) ? i : (siRand() % (j-i+1)) + i);
  return FALSE;
}

jjRANDOM_Im()

static BOOLEAN jjRANDOM_Im ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6571 of file iparith.cc.

{
  int di, k;
  int i=(int)(long)u->Data();
  int r=(int)(long)v->Data();
  int c=(int)(long)w->Data();
  if ((r<=0) || (c<=0)) return TRUE;
  intvec *iv = new intvec(r, c, 0);
  if (iv->rows()==0)
  {
    delete iv;
    return TRUE;
  }
  if (i!=0)
  {
    if (i<0) i = -i;
    di = 2 * i + 1;
    for (k=0; k<iv->length(); k++)
    {
      (*iv)[k] = ((siRand() % di) - i);
    }
  }
  res->data = (char *)iv;
  return FALSE;
}

jjRANK1()

static BOOLEAN jjRANK1 ( leftv  res, leftv  v  )

static

Definition at line 4897 of file iparith.cc.

{
  matrix m =(matrix)v->Data();
  int rank = luRank(m, 0);
  res->data =(char *)(long)rank;
  return FALSE;
}

jjRANK2()

static BOOLEAN jjRANK2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3064 of file iparith.cc.

{
  matrix m =(matrix)u->Data();
  int isRowEchelon = (int)(long)v->Data();
  if (isRowEchelon != 1) isRowEchelon = 0;
  int rank = luRank(m, isRowEchelon);
  res->data =(char *)(long)rank;
  return FALSE;
}

jjrCharStr()

static BOOLEAN jjrCharStr ( leftv  res, leftv  v  )

static

Definition at line 5629 of file iparith.cc.

{
  res->data = rCharStr((ring)v->Data());
  return FALSE;
}

jjREAD()

static BOOLEAN jjREAD ( leftv  res, leftv  v  )

static

Definition at line 4904 of file iparith.cc.

{
  return jjREAD2(res,v,NULL);
}

jjREAD2()

static BOOLEAN jjREAD2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3073 of file iparith.cc.

{
  si_link l=(si_link)u->Data();
  leftv r=slRead(l,v);
  if (r==NULL)
  {
    const char *s;
    if ((l!=NULL)&&(l->name!=NULL)) s=l->name;
    else                            s=sNoName_fe;
    Werror("cannot read from `%s`",s);
    return TRUE;
  }
  memcpy(res,r,sizeof(sleftv));
  omFreeBin((ADDRESS)r, sleftv_bin);
  return FALSE;
}

jjREDUCE3_CID()

static BOOLEAN jjREDUCE3_CID ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 7016 of file iparith.cc.

{
  assumeStdFlag(v);
  if (!idIsZeroDim((ideal)v->Data()))
  {
    Werror("`%s` must be 0-dimensional",v->Name());
    return TRUE;
  }
  res->data = (char *)redNF((ideal)v->CopyD(),(ideal)u->CopyD(),
    (matrix)w->CopyD());
  return FALSE;
}

jjREDUCE3_CP()

static BOOLEAN jjREDUCE3_CP ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 7004 of file iparith.cc.

{
  assumeStdFlag(v);
  if (!idIsZeroDim((ideal)v->Data()))
  {
    Werror("`%s` must be 0-dimensional",v->Name());
    return TRUE;
  }
  res->data = (char *)redNF((ideal)v->CopyD(),(poly)u->CopyD(),
    (poly)w->CopyD());
  return FALSE;
}

jjREDUCE3_ID()

static BOOLEAN jjREDUCE3_ID ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 7035 of file iparith.cc.

{
  assumeStdFlag(v);
  res->data = (char *)kNF((ideal)v->Data(),currRing->qideal,(ideal)u->Data(),
    0,(int)(long)w->Data());
  return FALSE;
}

jjREDUCE3_P()

static BOOLEAN jjREDUCE3_P ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 7028 of file iparith.cc.

{
  assumeStdFlag(v);
  res->data = (char *)kNF((ideal)v->Data(),currRing->qideal,(poly)u->Data(),
    0,(int)(long)w->Data());
  return FALSE;
}

jjREDUCE4()

static BOOLEAN jjREDUCE4 ( leftv  res, leftv  u  )

static

Definition at line 8131 of file iparith.cc.

{
  leftv u1=u;
  leftv u2=u1->next;
  leftv u3=u2->next;
  leftv u4=u3->next;
  int u1t=u1->Typ(); if (u1t==BUCKET_CMD) u1t=POLY_CMD;
  int u2t=u2->Typ(); if (u2t==BUCKET_CMD) u2t=POLY_CMD;
  if((u3->Typ()==INT_CMD)&&(u4->Typ()==INTVEC_CMD))
  {
    int save_d=Kstd1_deg;
    Kstd1_deg=(int)(long)u3->Data();
    kModW=(intvec *)u4->Data();
    BITSET save2;
    SI_SAVE_OPT2(save2);
    si_opt_2|=Sy_bit(V_DEG_STOP);
    u2->next=NULL;
    BOOLEAN r=jjCALL2ARG(res,u);
    kModW=NULL;
    Kstd1_deg=save_d;
    SI_RESTORE_OPT2(save2);
    u->next->next=u3;
    return r;
  }
  else
  if((u1t==IDEAL_CMD)&&(u2t==MATRIX_CMD)&&(u3->Typ()==IDEAL_CMD)&&
     (u4->Typ()==INT_CMD))
  {
    assumeStdFlag(u3);
    if(!mp_IsDiagUnit((matrix)u2->Data(), currRing))
    {
      WerrorS("2nd argument must be a diagonal matrix of units");
      return TRUE;
    }
    res->data=(char*)redNF(
                           idCopy((ideal)u3->Data()),
                           idCopy((ideal)u1->Data()),
                           mp_Copy((matrix)u2->Data(), currRing),
                           (int)(long)u4->Data()
                          );
    return FALSE;
  }
  else
  if((u1t==POLY_CMD)&&(u2t==POLY_CMD)&&(u3->Typ()==IDEAL_CMD)&&
     (u4->Typ()==INT_CMD))
  {
    poly u1p;
    if (u1->Typ()==BUCKET_CMD) u1p=sBucketPeek((sBucket_pt)u1->Data());
    else                     u1p=(poly)u1->Data();
    poly u2p;
    if (u2->Typ()==BUCKET_CMD) u2p=sBucketPeek((sBucket_pt)u2->Data());
    else                     u2p=(poly)u2->Data();
    assumeStdFlag(u3);
    if(!pIsUnit(u2p))
    {
      WerrorS("2nd argument must be a unit");
      return TRUE;
    }
    res->rtyp=POLY_CMD;
    res->data=(char*)redNF((ideal)u3->CopyD(),pCopy(u1p),
                           pCopy(u2p),(int)(long)u4->Data());
    return FALSE;
  }
  else
  {
    Werror("%s(`poly`,`ideal`,`int`,`intvec`) expected",Tok2Cmdname(iiOp));
    Werror("%s(`ideal`,`matrix`,`ideal`,`int`) expected",Tok2Cmdname(iiOp));
    Werror("%s(`poly`,`poly`,`ideal`,`int`) expected",Tok2Cmdname(iiOp));
    return TRUE;
  }
}

jjREDUCE5()

static BOOLEAN jjREDUCE5 ( leftv  res, leftv  u  )

static

Definition at line 8202 of file iparith.cc.

{
  leftv u1=u;
  leftv u2=u1->next;
  leftv u3=u2->next;
  leftv u4=u3->next;
  leftv u5=u4->next;
  if((u1->Typ()==IDEAL_CMD)&&(u2->Typ()==MATRIX_CMD)&&(u3->Typ()==IDEAL_CMD)&&
     (u4->Typ()==INT_CMD)&&(u5->Typ()==INTVEC_CMD))
  {
    assumeStdFlag(u3);
    if(!mp_IsDiagUnit((matrix)u2->Data(), currRing))
    {
      WerrorS("2nd argument must be a diagonal matrix of units");
      return TRUE;
    }
    res->data=(char*)redNF(
                           idCopy((ideal)u3->Data()),
                           idCopy((ideal)u1->Data()),
                           mp_Copy((matrix)u2->Data(),currRing),
                           (int)(long)u4->Data(),
                           (intvec*)u5->Data()
                          );
    return FALSE;
  }
  else
  if((u1->Typ()==POLY_CMD)&&(u2->Typ()==POLY_CMD)&&(u3->Typ()==IDEAL_CMD)&&
     (u4->Typ()==INT_CMD)&&(u5->Typ()==INTVEC_CMD))
  {
    assumeStdFlag(u3);
    if(!pIsUnit((poly)u2->Data()))
    {
      WerrorS("2nd argument must be a unit");
      return TRUE;
    }
    res->rtyp=POLY_CMD;
    res->data=(char*)redNF(idCopy((ideal)u3->Data()),pCopy((poly)u1->Data()),
                           pCopy((poly)u2->Data()),
                           (int)(long)u4->Data(),(intvec*)u5->Data());
    return FALSE;
  }
  else
  {
    Werror("%s(`ideal`,`ideal`,`matrix`,`int`,`intvec`) exppected",
           Tok2Cmdname(iiOp));
    return TRUE;
  }
}

jjREDUCE_ID()

static BOOLEAN jjREDUCE_ID ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3097 of file iparith.cc.

{
  ideal ui=(ideal)u->Data();
  ideal vi=(ideal)v->Data();
  if (currRing->qideal!=NULL || vi->ncols>1 || rIsPluralRing(currRing))
    assumeStdFlag(v);
  res->data = (char *)kNF(vi,currRing->qideal,ui);
  return FALSE;
}

jjREDUCE_P()

static BOOLEAN jjREDUCE_P ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3089 of file iparith.cc.

{
  ideal vi=(ideal)v->Data();
  if (currRing->qideal!=NULL || vi->ncols>1 || rIsPluralRing(currRing))
    assumeStdFlag(v);
  res->data = (char *)kNF(vi,currRing->qideal,(poly)u->Data());
  return FALSE;
}

jjREGULARITY()

static BOOLEAN jjREGULARITY ( leftv  res, leftv  v  )

static

Definition at line 4908 of file iparith.cc.

{
  res->data = (char *)(long)iiRegularity((lists)v->Data());
  return FALSE;
}

jjREPART()

static BOOLEAN jjREPART ( leftv  res, leftv  v  )

static

Definition at line 4913 of file iparith.cc.

{
  res->data = (char *)n_RePart((number)v->Data(),currRing->cf);
  return FALSE;
}

jjRES()

static BOOLEAN jjRES ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3106 of file iparith.cc.

{
  int maxl=(int)(long)v->Data();
  if (maxl<0)
  {
    WerrorS("length for res must not be negative");
    return TRUE;
  }
  syStrategy r;
  intvec *weights=NULL;
  int wmaxl=maxl;
  ideal u_id=(ideal)u->Data();
 
  maxl--;
  if (/*(*/ maxl==-1 /*)*/) /*&& (iiOp!=MRES_CMD)*/
  {
    maxl = currRing->N-1+2*(iiOp==MRES_CMD);
    if (currRing->qideal!=NULL)
    {
      Warn(
      "full resolution in a qring may be infinite, setting max length to %d",
      maxl+1);
    }
  }
  weights=(intvec*)atGet(u,"isHomog",INTVEC_CMD);
  if (weights!=NULL)
  {
    if (!idTestHomModule(u_id,currRing->qideal,weights))
    {
      WarnS("wrong weights given:");weights->show();PrintLn();
      weights=NULL;
    }
  }
  intvec *ww=NULL;
  int add_row_shift=0;
  if (weights!=NULL)
  {
     ww=ivCopy(weights);
     add_row_shift = ww->min_in();
     (*ww) -= add_row_shift;
  }
  unsigned save_opt=si_opt_1;
  si_opt_1 |= Sy_bit(OPT_REDTAIL_SYZ);
  if ((iiOp == RES_CMD) || (iiOp == MRES_CMD))
  {
    r=syResolution(u_id,maxl, ww, iiOp==MRES_CMD);
  }
  else if (iiOp==SRES_CMD)
  //  r=sySchreyerResolvente(u_id,maxl+1,&l);
    r=sySchreyer(u_id,maxl+1);
  else if (iiOp == LRES_CMD)
  {
    int dummy;
    if((currRing->qideal!=NULL)||
    (!idHomIdeal (u_id,NULL)))
    {
       WerrorS
       ("`lres` not implemented for inhomogeneous input or qring");
       return TRUE;
    }
    if(currRing->N == 1)
      WarnS("the current implementation of `lres` may not work in the case of a single variable");
    r=syLaScala3(u_id,&dummy);
  }
  else if (iiOp == KRES_CMD)
  {
    int dummy;
    if((currRing->qideal!=NULL)||
    (!idHomIdeal (u_id,NULL)))
    {
       WerrorS
       ("`kres` not implemented for inhomogeneous input or qring");
       return TRUE;
    }
    r=syKosz(u_id,&dummy);
  }
  else
  {
    int dummy;
    if((currRing->qideal!=NULL)||
    (!idHomIdeal (u_id,NULL)))
    {
       WerrorS
       ("`hres` not implemented for inhomogeneous input or qring");
       return TRUE;
    }
    ideal u_id_copy=idCopy(u_id);
    idSkipZeroes(u_id_copy);
    r=syHilb(u_id_copy,&dummy);
    idDelete(&u_id_copy);
  }
  if (r==NULL) return TRUE;
  if (r->list_length>wmaxl)
  {
    for(int i=wmaxl-1;i>=r->list_length;i--)
    {
      if (r->fullres[i]!=NULL) id_Delete(&r->fullres[i],currRing);
      if (r->minres[i]!=NULL) id_Delete(&r->minres[i],currRing);
    }
  }
  r->list_length=wmaxl;
  res->data=(void *)r;
  if ((weights!=NULL) && (ww!=NULL)) { delete ww; ww=NULL; }
  if ((r->weights!=NULL) && (r->weights[0]!=NULL))
  {
    ww=ivCopy(r->weights[0]);
    if (weights!=NULL) (*ww) += add_row_shift;
    atSet(res,omStrDup("isHomog"),ww,INTVEC_CMD);
  }
  else
  {
    if (weights!=NULL)
    {
      atSet(res,omStrDup("isHomog"),ivCopy(weights),INTVEC_CMD);
    }
  }
 
  // test the La Scala case' output
  assume( ((iiOp == LRES_CMD) || (iiOp == HRES_CMD)) == (r->syRing != NULL) );
  assume( (r->syRing != NULL) == (r->resPairs != NULL) );
 
  if(iiOp != HRES_CMD)
    assume( (r->minres != NULL) || (r->fullres != NULL) ); // is wrong for HRES_CMD...
  else
    assume( (r->orderedRes != NULL) || (r->res != NULL) ); // analog for hres...
 
  si_opt_1=save_opt;
  return FALSE;
}

jjRES3()

static BOOLEAN jjRES3 ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 7043 of file iparith.cc.

{
  int maxl=(int)v->Data();
  ideal u_id=(ideal)u->Data();
  int l=0;
  resolvente r;
  intvec **weights=NULL;
  int wmaxl=maxl;
  maxl--;
  unsigned save_opt=si_opt_1;
  si_opt_1 |= Sy_bit(OPT_REDTAIL_SYZ);
  if ((maxl==-1) && (iiOp!=MRES_CMD))
    maxl = currRing->N-1;
  if ((iiOp == RES_CMD) || (iiOp == MRES_CMD))
  {
    intvec * iv=(intvec*)atGet(u,"isHomog",INTVEC_CMD);
    if (iv!=NULL)
    {
      l=1;
      if (!idTestHomModule(u_id,currRing->qideal,iv))
      {
        WarnS("wrong weights");
        iv=NULL;
      }
      else
      {
        weights = (intvec**)omAlloc0Bin(char_ptr_bin);
        weights[0] = ivCopy(iv);
      }
    }
    r=syResolvente(u_id,maxl,&l, &weights, iiOp==MRES_CMD);
  }
  else
    r=sySchreyerResolvente((ideal)u->Data(),maxl+1,&l);
  if (r==NULL) return TRUE;
  int t3=u->Typ();
  iiMakeResolv(r,l,wmaxl,w->name,t3,weights);
  si_opt_1=save_opt;
  return FALSE;
}

jjRESERVED0()

static BOOLEAN jjRESERVED0 ( leftv  , leftv    )

static

Definition at line 8250 of file iparith.cc.

{
  unsigned i=1;
  unsigned nCount = (sArithBase.nCmdUsed-1)/3;
  if((3*nCount)<sArithBase.nCmdUsed) nCount++;
  //Print("CMDS: %d/%d\n", sArithBase.nCmdUsed,
  //      sArithBase.nCmdAllocated);
  for(i=0; i<nCount; i++)
  {
    Print("%-20s",sArithBase.sCmds[i+1].name);
    if(i+1+nCount<sArithBase.nCmdUsed)
      Print("%-20s",sArithBase.sCmds[i+1+nCount].name);
    if(i+1+2*nCount<sArithBase.nCmdUsed)
      Print("%-20s",sArithBase.sCmds[i+1+2*nCount].name);
    //if ((i%3)==1) PrintLn();
    PrintLn();
  }
  PrintLn();
  printBlackboxTypes();
  return FALSE;
}

jjRESERVEDLIST0()

static BOOLEAN jjRESERVEDLIST0 ( leftv  res, leftv    )

static

Definition at line 8272 of file iparith.cc.

{
  int i=1;
  int l = 0;
  int k = 0;
  lists L = (lists)omAllocBin(slists_bin);
  struct blackbox_list *bb_list = NULL;
  unsigned nCount = (sArithBase.nCmdUsed-1) / 3;
 
  if ((3*nCount) < sArithBase.nCmdUsed)
  {
    nCount++;
  }
  bb_list = getBlackboxTypes();
  // count the  number of entries;
  for (i=0; i<nCount; i++)
  {
    l++;
    if (i + 1 + nCount < sArithBase.nCmdUsed)
    {
      l++;
    }
    if(i+1+2*nCount<sArithBase.nCmdUsed)
    {
      l++;
    }
  }
  for (i = 0; i < bb_list->count; i++)
  {
    if (bb_list->list[i] != NULL)
    {
      l++;
    }
  }
  // initiate list
  L->Init(l);
  k = 0;
  for (i=0; i<nCount; i++)
  {
    L->m[k].rtyp = STRING_CMD;
    L->m[k].data = omStrDup(sArithBase.sCmds[i+1].name);
    k++;
    // Print("%-20s", sArithBase.sCmds[i+1].name);
    if (i + 1 + nCount < sArithBase.nCmdUsed)
    {
      L->m[k].rtyp = STRING_CMD;
      L->m[k].data = omStrDup(sArithBase.sCmds[i+1+nCount].name);
      k++;
      // Print("%-20s", sArithBase.sCmds[i+1 + nCount].name);
    }
    if(i+1+2*nCount<sArithBase.nCmdUsed)
    {
      L->m[k].rtyp = STRING_CMD;
      L->m[k].data = omStrDup(sArithBase.sCmds[i+1+2*nCount].name);
      k++;
      // Print("%-20s", sArithBase.sCmds[i+1+2*nCount].name);
    }
    // PrintLn();
  }
 
  // assign blackbox types
  for (i = 0; i < bb_list->count; i++)
  {
    if (bb_list->list[i] != NULL)
    {
      L->m[k].rtyp = STRING_CMD;
      // already used strdup in getBlackBoxTypes
      L->m[k].data = bb_list->list[i];
      k++;
    }
  }
  // free the struct (not the list entries itself, which were allocated
  // by strdup)
  omfree(bb_list->list);
  omfree(bb_list);
 
  // pass the resultant list to the res datastructure
  res->data=(void *)L;
 
  return FALSE;
}

jjRESERVEDNAME()

static BOOLEAN jjRESERVEDNAME ( leftv  res, leftv  v  )

static

Definition at line 4875 of file iparith.cc.

{
  char *s= (char *)v->Data();
  // try system keywords
  for(unsigned i=0; i<sArithBase.nCmdUsed; i++)
  {
    //Print("test %d, >>%s<<, tab:>>%s<<\n",i,s,sArithBase.sCmds[i].name);
    if (strcmp(s, sArithBase.sCmds[i].name) == 0)
    {
      res->data = (char *)1;
      return FALSE;
    }
  }
  // try blackbox names
  int id;
  blackboxIsCmd(s,id);
  if (id>0)
  {
    res->data = (char *)1;
  }
  return FALSE;
}

jjRESTART()

static BOOLEAN jjRESTART ( leftv  , leftv  u  )

static

Definition at line 8725 of file iparith.cc.

{
  int c=(int)(long)u->Data();
  switch(c)
  {
    case 0:{
        PrintS("delete all variables\n");
        killlocals(0);
        WerrorS("restarting...");
        break;
      };
    default: WerrorS("not implemented");
  }
  return FALSE;
}

jjRIGHTSTD()

static BOOLEAN jjRIGHTSTD ( leftv  res, leftv  v  )

static

Definition at line 5292 of file iparith.cc.

{
#if defined(HAVE_SHIFTBBA) || defined(HAVE_PLURAL)// do not place above jjSTD in this file because we need to reference it
  if (rIsLPRing(currRing))
  {
    if (rField_is_numeric(currRing))
      WarnS("groebner base computations with inexact coefficients can not be trusted due to rounding errors");
    ideal result;
    ideal v_id=(ideal)v->Data();
    /* intvec *w=(intvec *)atGet(v,"isHomog",INTVEC_CMD); */
    /* tHomog hom=testHomog; */
    /* if (w!=NULL) */
    /* { */
    /*   if (!idTestHomModule(v_id,currRing->qideal,w)) */
    /*   { */
    /*     WarnS("wrong weights"); */
    /*     w=NULL; */
    /*   } */
    /*   else */
    /*   { */
    /*     hom=isHomog; */
    /*     w=ivCopy(w); */
    /*   } */
    /* } */
    /* result=kStd(v_id,currRing->qideal,hom,&w); */
    result = rightgb(v_id, currRing->qideal);
    idSkipZeroes(result);
    res->data = (char *)result;
    if(!TEST_OPT_DEGBOUND) setFlag(res,FLAG_STD);
    /* if (w!=NULL) atSet(res,omStrDup("isHomog"),w,INTVEC_CMD); */
    return FALSE;
  }
  else if (rIsPluralRing(currRing))
  {
    ideal I=(ideal)v->Data();
 
    ring A = currRing;
    ring Aopp = rOpposite(A);
    currRing = Aopp;
    ideal Iopp = idOppose(A, I, Aopp);
    ideal Jopp = kStd(Iopp,currRing->qideal,testHomog,NULL);
    currRing = A;
    ideal J = idOppose(Aopp, Jopp, A);
 
    id_Delete(&Iopp, Aopp);
    id_Delete(&Jopp, Aopp);
    rDelete(Aopp);
 
    idSkipZeroes(J);
    res->data = (char *)J;
    if(!TEST_OPT_DEGBOUND) setFlag(res,FLAG_STD);
    return FALSE;
  }
  else
  {
    return jjSTD(res, v);
  }
#else
  return TRUE;
#endif
}

jjRING3()

static BOOLEAN jjRING3 ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 7084 of file iparith.cc.

{
  res->data=(void *)rInit(u,v,w);
  return (res->data==NULL);
}

jjRING_1()

static BOOLEAN jjRING_1 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1673 of file iparith.cc.

{
  u->next=(leftv)omAlloc(sizeof(sleftv));
  memcpy(u->next,v,sizeof(sleftv));
  v->Init();
  BOOLEAN bo=iiExprArithM(res,u,'[');
  u->next=NULL;
  return bo;
}

jjRING_2()

static BOOLEAN jjRING_2 ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6004 of file iparith.cc.

{
  u->next=(leftv)omAlloc(sizeof(sleftv));
  memcpy(u->next,v,sizeof(sleftv));
  v->Init();
  u->next->next=(leftv)omAlloc(sizeof(sleftv));
  memcpy(u->next->next,w,sizeof(sleftv));
  w->Init();
  BOOLEAN bo=iiExprArithM(res,u,'[');
  u->next=NULL;
  return bo;
}

jjRING_LIST()

static BOOLEAN jjRING_LIST ( leftv  res, leftv  v  )

static

Definition at line 4940 of file iparith.cc.

{
  ring r=(ring)v->Data();
  if (r!=NULL)
    res->data = (char *)rDecompose_list_cf((ring)v->Data());
  return (r==NULL)||(res->data==NULL);
}

jjRING_PL()

static BOOLEAN jjRING_PL ( leftv  res, leftv  a  )

static

Definition at line 8696 of file iparith.cc.

{
  //Print("construct ring\n");
  if (a->Typ()!=CRING_CMD)
  {
    WerrorS("expected `cring` [ `id` ... ]");
    return TRUE;
  }
  assume(a->next!=NULL);
  leftv names=a->next;
  int N=names->listLength();
  char **n=(char**)omAlloc0(N*sizeof(char*));
  for(int i=0; i<N;i++,names=names->next)
  {
    n[i]=(char *)names->Name();
  }
  coeffs cf=(coeffs)a->CopyD();
  res->data=rDefault(cf,N,n, ringorder_dp);
  omFreeSize(n,N*sizeof(char*));
  return FALSE;
}

jjRINGLIST()

static BOOLEAN jjRINGLIST ( leftv  res, leftv  v  )

static

Definition at line 4918 of file iparith.cc.

{
  ring r=(ring)v->Data();
  if (r!=NULL)
  {
    res->data = (char *)rDecompose((ring)v->Data());
    if (res->data!=NULL)
    {
      long mm=r->wanted_maxExp;
      if (mm!=0) atSet(res,omStrDup("maxExp"),(void*)mm,INT_CMD);
      return FALSE;
    }
  }
  return TRUE;
}

jjRINGLIST_C()

static BOOLEAN jjRINGLIST_C ( leftv  res, leftv  v  )

static

Definition at line 4933 of file iparith.cc.

{
  coeffs r=(coeffs)v->Data();
  if (r!=NULL)
    return rDecompose_CF(res,r);
  return TRUE;
}

jjRMINUS()

static BOOLEAN jjRMINUS ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3261 of file iparith.cc.

{
  ring r=rMinusVar((ring)u->Data(),(char*)v->Data());
  res->data = (char *)r;
  return r==NULL;
}

jjrOrdStr()

static BOOLEAN jjrOrdStr ( leftv  res, leftv  v  )

static

Definition at line 5672 of file iparith.cc.

{
  res->data = rOrdStr((ring)v->Data());
  return FALSE;
}

jjROWS()

static BOOLEAN jjROWS ( leftv  res, leftv  v  )

static

Definition at line 4947 of file iparith.cc.

{
  ideal i = (ideal)v->Data();
  res->data = (char *)i->rank;
  return FALSE;
}

jjROWS_BIM()

static BOOLEAN jjROWS_BIM ( leftv  res, leftv  v  )

static

Definition at line 4953 of file iparith.cc.

{
  res->data = (char *)(long)((bigintmat*)(v->Data()))->rows();
  return FALSE;
}

jjROWS_IV()

static BOOLEAN jjROWS_IV ( leftv  res, leftv  v  )

static

Definition at line 4958 of file iparith.cc.

{
  res->data = (char *)(long)((intvec*)(v->Data()))->rows();
  return FALSE;
}

jjRPAR()

static BOOLEAN jjRPAR ( leftv  res, leftv  v  )

static

Definition at line 4963 of file iparith.cc.

{
  res->data = (char *)(long)rPar(((ring)v->Data()));
  return FALSE;
}

jjrParStr()

static BOOLEAN jjrParStr ( leftv  res, leftv  v  )

static

Definition at line 5682 of file iparith.cc.

{
  res->data = rParStr((ring)v->Data());
  return FALSE;
}

jjRPLUS()

static BOOLEAN jjRPLUS ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3267 of file iparith.cc.

{
  int left;
  if (u->Typ()==RING_CMD) left=0;
  else
  {
    leftv h=u;u=v;v=h;
    left=1;
  }
  ring r=rPlusVar((ring)u->Data(),(char*)v->Data(),left);
  res->data = (char *)r;
  return r==NULL;
}

jjRSUM()

static BOOLEAN jjRSUM ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3280 of file iparith.cc.

{
  ring r;
  int i=rSum((ring)u->Data(),(ring)v->Data(),r);
  res->data = (char *)r;
  return (i==-1);
}

jjrVarStr()

static BOOLEAN jjrVarStr ( leftv  res, leftv  v  )

static

Definition at line 5677 of file iparith.cc.

{
  res->data = rVarStr((ring)v->Data());
  return FALSE;
}

jjS2I()

static BOOLEAN jjS2I ( leftv  res, leftv  v  )

static

Definition at line 4968 of file iparith.cc.

{
  res->data = (char *)(long)atoi((char*)v->Data());
  return FALSE;
}

jjSBA()

static BOOLEAN jjSBA ( leftv  res, leftv  v  )

static

Definition at line 5015 of file iparith.cc.

{
  ideal result;
  ideal v_id=(ideal)v->Data();
  intvec *w=(intvec *)atGet(v,"isHomog",INTVEC_CMD);
  tHomog hom=testHomog;
  if (w!=NULL)
  {
    if (!idTestHomModule(v_id,currRing->qideal,w))
    {
      WarnS("wrong weights");
      w=NULL;
    }
    else
    {
      hom=isHomog;
      w=ivCopy(w);
    }
  }
  result=kSba(v_id,currRing->qideal,hom,&w,1,0);
  idSkipZeroes(result);
  res->data = (char *)result;
  if(!TEST_OPT_DEGBOUND) setFlag(res,FLAG_STD);
  if (w!=NULL) atSet(res,omStrDup("isHomog"),w,INTVEC_CMD);
  return FALSE;
}

jjSBA_1()

static BOOLEAN jjSBA_1 ( leftv  res, leftv  v, leftv  u  )

static

Definition at line 5041 of file iparith.cc.

{
  ideal result;
  ideal v_id=(ideal)v->Data();
  intvec *w=(intvec *)atGet(v,"isHomog",INTVEC_CMD);
  tHomog hom=testHomog;
  if (w!=NULL)
  {
    if (!idTestHomModule(v_id,currRing->qideal,w))
    {
      WarnS("wrong weights");
      w=NULL;
    }
    else
    {
      hom=isHomog;
      w=ivCopy(w);
    }
  }
  result=kSba(v_id,currRing->qideal,hom,&w,(int)(long)u->Data(),0);
  idSkipZeroes(result);
  res->data = (char *)result;
  if(!TEST_OPT_DEGBOUND) setFlag(res,FLAG_STD);
  if (w!=NULL) atSet(res,omStrDup("isHomog"),w,INTVEC_CMD);
  return FALSE;
}

jjSBA_2()

static BOOLEAN jjSBA_2 ( leftv  res, leftv  v, leftv  u, leftv  t  )

static

Definition at line 5067 of file iparith.cc.

{
  ideal result;
  ideal v_id=(ideal)v->Data();
  intvec *w=(intvec *)atGet(v,"isHomog",INTVEC_CMD);
  tHomog hom=testHomog;
  if (w!=NULL)
  {
    if (!idTestHomModule(v_id,currRing->qideal,w))
    {
      WarnS("wrong weights");
      w=NULL;
    }
    else
    {
      hom=isHomog;
      w=ivCopy(w);
    }
  }
  result=kSba(v_id,currRing->qideal,hom,&w,(int)(long)u->Data(),(int)(long)t->Data());
  idSkipZeroes(result);
  res->data = (char *)result;
  if(!TEST_OPT_DEGBOUND) setFlag(res,FLAG_STD);
  if (w!=NULL) atSet(res,omStrDup("isHomog"),w,INTVEC_CMD);
  return FALSE;
}

jjSetRing()

static BOOLEAN jjSetRing ( leftv  , leftv  u  )

static

Definition at line 3789 of file iparith.cc.

{
  if (u->rtyp==IDHDL) rSetHdl((idhdl)u->data);
  else
  {
    ring r=(ring)u->Data();
    idhdl h=rFindHdl(r,NULL);
    if (h==NULL)
    {
      char name_buffer[100];
      STATIC_VAR int ending=1000000;
      ending++;
      sprintf(name_buffer, "PYTHON_RING_VAR%d",ending);
      h=enterid(name_buffer,0,RING_CMD,&IDROOT);
      IDRING(h)=rIncRefCnt(r);
    }
    rSetHdl(h);
  }
  return FALSE;
}

jjSIMPL_ID()

static BOOLEAN jjSIMPL_ID ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3294 of file iparith.cc.

{
  int sw = (int)(long)v->Data();
  // CopyD for IDEAL_CMD and MODUL_CMD are identical:
  ideal id = (ideal)u->CopyD(IDEAL_CMD);
  if (sw & SIMPL_LMDIV)
  {
    id_DelDiv(id,currRing);
  }
  if (sw & SIMPL_LMEQ)
  {
    id_DelLmEquals(id,currRing);
  }
  if (sw & SIMPL_MULT)
  {
    id_DelMultiples(id,currRing);
  }
  else if(sw & SIMPL_EQU)
  {
    id_DelEquals(id,currRing);
  }
  if (sw & SIMPL_NULL)
  {
    idSkipZeroes(id);
  }
  if (sw & SIMPL_NORM)
  {
    id_Norm(id,currRing);
  }
  if (sw & SIMPL_NORMALIZE)
  {
    id_Normalize(id,currRing);
  }
  res->data = (char * )id;
  return FALSE;
}

jjSIMPL_P()

static BOOLEAN jjSIMPL_P ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3389 of file iparith.cc.

{
  int sw = (int)(long)v->Data();
  // CopyD for POLY_CMD and VECTOR_CMD are identical:
  poly p = (poly)u->CopyD(POLY_CMD);
  if (sw & SIMPL_NORM)
  {
    pNorm(p);
  }
  if (sw & SIMPL_NORMALIZE)
  {
    p_Normalize(p,currRing);
  }
  res->data = (char * )p;
  return FALSE;
}

jjSLIM_GB()

static BOOLEAN jjSLIM_GB ( leftv  res, leftv  u  )

static

Definition at line 4973 of file iparith.cc.

{
  const bool bIsSCA = rIsSCA(currRing);
 
  if ((currRing->qideal!=NULL) && !bIsSCA)
  {
    WerrorS("qring not supported by slimgb at the moment");
    return TRUE;
  }
  if (rHasLocalOrMixedOrdering(currRing))
  {
    WerrorS("ordering must be global for slimgb");
    return TRUE;
  }
  if (rField_is_numeric(currRing))
    WarnS("groebner base computations with inexact coefficients can not be trusted due to rounding errors");
  intvec *w=(intvec *)atGet(u,"isHomog",INTVEC_CMD);
  // tHomog hom=testHomog;
  ideal u_id=(ideal)u->Data();
  if (w!=NULL)
  {
    if (!idTestHomModule(u_id,currRing->qideal,w))
    {
      WarnS("wrong weights");
      w=NULL;
    }
    else
    {
      w=ivCopy(w);
      // hom=isHomog;
    }
  }
 
  assume(u_id->rank>=id_RankFreeModule(u_id, currRing));
  res->data=(char *)t_rep_gb(currRing,
    u_id,u_id->rank);
  //res->data=(char *)t_rep_gb(currRing, u_id);
 
  if(!TEST_OPT_DEGBOUND) setFlag(res,FLAG_STD);
  if (w!=NULL) atSet(res,omStrDup("isHomog"),w,INTVEC_CMD);
  return FALSE;
}

jjSMATRIX_Mo()

static BOOLEAN jjSMATRIX_Mo ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6924 of file iparith.cc.

{
  int mi=(int)(long)v->Data();
  int ni=(int)(long)w->Data();
  if ((mi<0)||(ni<1))
  {
    Werror("converting to smatrix: dimensions must be positive(%dx%d)",mi,ni);
    return TRUE;
  }
  res->data = (char *)id_ResizeModule((ideal)u->CopyD(),
           mi,ni,currRing);
  return FALSE;
}

jjSort_Id()

static BOOLEAN jjSort_Id ( leftv  res, leftv  v  )

static

Definition at line 5121 of file iparith.cc.

{
  res->data = (char *)idSort((ideal)v->Data());
  return FALSE;
}

jjSORTLIST()

BOOLEAN jjSORTLIST	(	leftv	,
		leftv	arg
	)

Definition at line 10233 of file iparith.cc.

{
  lists l=(lists)arg->Data();
  if (l->nr>0)
  {
    qsort(l->m,l->nr+1,sizeof(sleftv),jjCOMPARE_ALL);
  }
  return FALSE;
}

jjSQR_FREE()

static BOOLEAN jjSQR_FREE ( leftv  res, leftv  u  )

static

Definition at line 5126 of file iparith.cc.

{
  singclap_factorize_retry=0;
  intvec *v=NULL;
  ideal f=singclap_sqrfree((poly)(u->CopyD()), &v, 0, currRing);
  if (f==NULL) return TRUE;
  ivTest(v);
  lists l=(lists)omAllocBin(slists_bin);
  l->Init(2);
  l->m[0].rtyp=IDEAL_CMD;
  l->m[0].data=(void *)f;
  l->m[1].rtyp=INTVEC_CMD;
  l->m[1].data=(void *)v;
  res->data=(void *)l;
  return FALSE;
}

jjSQR_FREE2()

static BOOLEAN jjSQR_FREE2 ( leftv  res, leftv  u, leftv  dummy  )

static

Definition at line 3331 of file iparith.cc.

{
  intvec *v=NULL;
  int sw=(int)(long)dummy->Data();
  int fac_sw=sw;
  if (sw<0) fac_sw=1;
  singclap_factorize_retry=0;
  ideal f=singclap_sqrfree((poly)(u->CopyD()), &v, fac_sw, currRing);
  if (f==NULL)
    return TRUE;
  switch(sw)
  {
    case 0:
    case 2:
    {
      lists l=(lists)omAllocBin(slists_bin);
      l->Init(2);
      l->m[0].rtyp=IDEAL_CMD;
      l->m[0].data=(void *)f;
      l->m[1].rtyp=INTVEC_CMD;
      l->m[1].data=(void *)v;
      res->data=(void *)l;
      res->rtyp=LIST_CMD;
      return FALSE;
    }
    case 1:
      res->data=(void *)f;
      return FALSE;
    case 3:
      {
        poly p=f->m[0];
        int i=IDELEMS(f);
        f->m[0]=NULL;
        while(i>1)
        {
          i--;
          p=pMult(p,f->m[i]);
          f->m[i]=NULL;
        }
        res->data=(void *)p;
        res->rtyp=POLY_CMD;
      }
      return FALSE;
  }
  WerrorS("invalid switch");
  return FALSE;
}

jjSTATUS2()

static BOOLEAN jjSTATUS2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3378 of file iparith.cc.

{
  res->data = omStrDup(slStatus((si_link) u->Data(), (char *) v->Data()));
  return FALSE;
}

jjSTATUS2L()

static BOOLEAN jjSTATUS2L ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3383 of file iparith.cc.

{
  res->data = (void *)(long)slStatusSsiL((lists) u->Data(), (int)(long) v->Data());
  //return (res->data== (void*)(long)-2);
  return FALSE;
}

jjSTATUS3()

static BOOLEAN jjSTATUS3 ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 7089 of file iparith.cc.

{
  int yes;
  jjSTATUS2(res, u, v);
  yes = (strcmp((char *) res->data, (char *) w->Data()) == 0);
  omFreeBinAddr((ADDRESS) res->data);
  res->data = (void *)(long)yes;
  return FALSE;
}

jjSTATUS_M()

static BOOLEAN jjSTATUS_M ( leftv  res, leftv  v  )

static

Definition at line 8538 of file iparith.cc.

{
  if ((v->Typ() != LINK_CMD) ||
      (v->next->Typ() != STRING_CMD) ||
      (v->next->next->Typ() != STRING_CMD) ||
      (v->next->next->next->Typ() != INT_CMD))
    return TRUE;
  jjSTATUS3(res, v, v->next, v->next->next);
#if defined(HAVE_USLEEP)
  if (((long) res->data) == 0L)
  {
    int i_s = (int)(long) v->next->next->next->Data();
    if (i_s > 0)
    {
      usleep((int)(long) v->next->next->next->Data());
      jjSTATUS3(res, v, v->next, v->next->next);
    }
  }
#elif defined(HAVE_SLEEP)
  if (((int) res->data) == 0)
  {
    int i_s = (int) v->next->next->next->Data();
    if (i_s > 0)
    {
      si_sleep((is - 1)/1000000 + 1);
      jjSTATUS3(res, v, v->next, v->next->next);
    }
  }
#endif
  return FALSE;
}

jjSTD()

static BOOLEAN jjSTD ( leftv  res, leftv  v  )

static

Definition at line 5093 of file iparith.cc.

{
  if (rField_is_numeric(currRing))
    WarnS("groebner base computations with inexact coefficients can not be trusted due to rounding errors");
  ideal result;
  ideal v_id=(ideal)v->Data();
  intvec *w=(intvec *)atGet(v,"isHomog",INTVEC_CMD);
  tHomog hom=testHomog;
  if (w!=NULL)
  {
    if (!idTestHomModule(v_id,currRing->qideal,w))
    {
      WarnS("wrong weights");
      w=NULL;
    }
    else
    {
      hom=isHomog;
      w=ivCopy(w);
    }
  }
  result=kStd(v_id,currRing->qideal,hom,&w);
  idSkipZeroes(result);
  res->data = (char *)result;
  if(!TEST_OPT_DEGBOUND) setFlag(res,FLAG_STD);
  if (w!=NULL) atSet(res,omStrDup("isHomog"),w,INTVEC_CMD);
  return FALSE;
}

jjSTD_1()

static BOOLEAN jjSTD_1 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3431 of file iparith.cc.

{
  ideal result;
  assumeStdFlag(u);
  ideal i1=(ideal)(u->Data());
  int ii1=idElem(i1); /* size of i1 */
  ideal i0;
  int r=v->Typ();
  if ((/*v->Typ()*/r==POLY_CMD) ||(r==VECTOR_CMD))
  {
    poly p=(poly)v->Data();
    i0=idInit(1,i1->rank);
    i0->m[0]=p;
    i1=idSimpleAdd(i1,i0); //
    memset(i0->m,0,sizeof(poly)*IDELEMS(i0));
    idDelete(&i0);
    intvec *w=(intvec *)atGet(u,"isHomog",INTVEC_CMD);
    tHomog hom=testHomog;
 
    if (w!=NULL)
    {
      if (!idTestHomModule(i1,currRing->qideal,w))
      {
        // no warnung: this is legal, if i in std(i,p)
        // is homogeneous, but p not
        w=NULL;
      }
      else
      {
        w=ivCopy(w);
        hom=isHomog;
      }
    }
    BITSET save1;
    SI_SAVE_OPT1(save1);
    si_opt_1|=Sy_bit(OPT_SB_1);
    /* ii1 appears to be the position of the first element of il that
       does not belong to the old SB ideal */
    result=kStd(i1,currRing->qideal,hom,&w,NULL,0,ii1);
    SI_RESTORE_OPT1(save1);
    idDelete(&i1);
    idSkipZeroes(result);
    if (w!=NULL) atSet(res,omStrDup("isHomog"),w,INTVEC_CMD);
    res->data = (char *)result;
  }
  else /*IDEAL/MODULE*/
  {
    i0=(ideal)v->CopyD();
    i1=idSimpleAdd(i1,i0); //
    memset(i0->m,0,sizeof(poly)*IDELEMS(i0));
    idDelete(&i0);
    intvec *w=(intvec *)atGet(u,"isHomog",INTVEC_CMD);
    tHomog hom=testHomog;
 
    if (w!=NULL)
    {
      if (!idTestHomModule(i1,currRing->qideal,w))
      {
        // no warnung: this is legal, if i in std(i,p)
        // is homogeneous, but p not
        w=NULL;
        hom=isNotHomog;
      }
      else
      {
        w=ivCopy(w);
        hom=isHomog;
      }
    }
    BITSET save1;
    SI_SAVE_OPT1(save1);
    si_opt_1|=Sy_bit(OPT_SB_1);
    /* ii1 appears to be the position of the first element of i1 that
     does not belong to the old SB ideal */
    result=kStd(i1,currRing->qideal,hom,&w,NULL,0,ii1);
    SI_RESTORE_OPT1(save1);
    idDelete(&i1);
    idSkipZeroes(result);
    if (w!=NULL) atSet(res,omStrDup("isHomog"),w,INTVEC_CMD);
    res->data = (char *)result;
  }
  if(!TEST_OPT_DEGBOUND) setFlag(res,FLAG_STD);
  return FALSE;
}

jjSTD_HILB()

static BOOLEAN jjSTD_HILB ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3405 of file iparith.cc.

{
  ideal result;
  intvec *w=(intvec *)atGet(u,"isHomog",INTVEC_CMD);
  tHomog hom=testHomog;
  ideal u_id=(ideal)(u->Data());
  if (w!=NULL)
  {
    if (!idTestHomModule(u_id,currRing->qideal,w))
    {
      WarnS("wrong weights:");w->show();PrintLn();
      w=NULL;
    }
    else
    {
      w=ivCopy(w);
      hom=isHomog;
    }
  }
  result=kStd(u_id,currRing->qideal,hom,&w,(intvec *)v->Data());
  idSkipZeroes(result);
  res->data = (char *)result;
  setFlag(res,FLAG_STD);
  if (w!=NULL) atSet(res,omStrDup("isHomog"),w,INTVEC_CMD);
  return FALSE;
}

jjSTD_HILB_W()

static BOOLEAN jjSTD_HILB_W ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 7098 of file iparith.cc.

{
  intvec *vw=(intvec *)w->Data(); // weights of vars
  if (vw->length()!=currRing->N)
  {
    Werror("%d weights for %d variables",vw->length(),currRing->N);
    return TRUE;
  }
  ideal result;
  intvec *ww=(intvec *)atGet(u,"isHomog",INTVEC_CMD);
  tHomog hom=testHomog;
  ideal u_id=(ideal)(u->Data());
  if (ww!=NULL)
  {
    if (!idTestHomModule(u_id,currRing->qideal,ww))
    {
      WarnS("wrong weights");
      ww=NULL;
    }
    else
    {
      ww=ivCopy(ww);
      hom=isHomog;
    }
  }
  result=kStd(u_id,
              currRing->qideal,
              hom,
              &ww,                  // module weights
              (intvec *)v->Data(),  // hilbert series
              0,0,                  // syzComp, newIdeal
              vw);                  // weights of vars
  idSkipZeroes(result);
  res->data = (char *)result;
  setFlag(res,FLAG_STD);
  if (ww!=NULL) atSet(res,omStrDup("isHomog"),ww,INTVEC_CMD);
  return FALSE;
}

jjSTD_HILB_WP()

static BOOLEAN jjSTD_HILB_WP ( leftv  res, leftv  INPUT  )

static

Definition at line 8613 of file iparith.cc.

{ ideal result;
  leftv u = INPUT;    /* an ideal, weighted homogeneous and standard */
  leftv v = u->next;  /* one additional polynomial or ideal */
  leftv h = v->next;  /* Hilbert vector */
  leftv w = h->next;  /* weight vector */
  assumeStdFlag(u);
  ideal i1=(ideal)(u->Data());
  ideal i0;
  if (((u->Typ()!=IDEAL_CMD)&&(u->Typ()!=MODUL_CMD))
  || (h->Typ()!=INTVEC_CMD)
  || (w->Typ()!=INTVEC_CMD))
  {
    WerrorS("expected `std(`ideal/module`,`poly/vector`,`intvec`,`intvec`)");
    return TRUE;
  }
  intvec *vw=(intvec *)w->Data(); // weights of vars
  /* merging std_hilb_w and std_1 */
  if (vw->length()!=currRing->N)
  {
    Werror("%d weights for %d variables",vw->length(),currRing->N);
    return TRUE;
  }
  int r=v->Typ();
  BOOLEAN cleanup_i0=FALSE;
  if ((r==POLY_CMD) ||(r==VECTOR_CMD))
  {
    i0=idInit(1,i1->rank);
    i0->m[0]=(poly)v->Data();
    cleanup_i0=TRUE;
  }
  else if (r==IDEAL_CMD)/* IDEAL */
  {
    i0=(ideal)v->Data();
  }
  else
  {
    WerrorS("expected `std(`ideal/module`,`poly/vector`,`intvec`,`intvec`)");
    return TRUE;
  }
  int ii0=idElem(i0);
  i1 = idSimpleAdd(i1,i0);
  if (cleanup_i0)
  {
    memset(i0->m,0,sizeof(poly)*IDELEMS(i0));
    idDelete(&i0);
  }
  intvec *ww=(intvec *)atGet(u,"isHomog",INTVEC_CMD);
  tHomog hom=testHomog;
  /* u_id from jjSTD_W is now i1 as in jjSTD_1 */
  if (ww!=NULL)
  {
    if (!idTestHomModule(i1,currRing->qideal,ww))
    {
      WarnS("wrong weights");
      ww=NULL;
    }
    else
    {
      ww=ivCopy(ww);
      hom=isHomog;
    }
  }
  BITSET save1;
  SI_SAVE_OPT1(save1);
  si_opt_1|=Sy_bit(OPT_SB_1);
  result=kStd(i1,
              currRing->qideal,
              hom,
              &ww,                  // module weights
              (intvec *)h->Data(),  // hilbert series
              0,                    // syzComp, whatever it is...
              IDELEMS(i1)-ii0,      // new ideal
              vw);                  // weights of vars
  SI_RESTORE_OPT1(save1);
  idDelete(&i1);
  idSkipZeroes(result);
  res->data = (char *)result;
  if (!TEST_OPT_DEGBOUND) setFlag(res,FLAG_STD);
  if (ww!=NULL) atSet(res,omStrDup("isHomog"),ww,INTVEC_CMD);
  return FALSE;
}

jjSTRING_PL()

static BOOLEAN jjSTRING_PL ( leftv  res, leftv  v  )

static

Definition at line 8353 of file iparith.cc.

{
  if (v == NULL)
  {
    res->data = omStrDup("");
    return FALSE;
  }
  int n = v->listLength();
  if (n == 1)
  {
    res->data = v->String();
    return FALSE;
  }
 
  char** slist = (char**) omAlloc(n*sizeof(char*));
  int i, j;
 
  for (i=0, j=0; i<n; i++, v = v ->next)
  {
    slist[i] = v->String();
    assume(slist[i] != NULL);
    j+=strlen(slist[i]);
  }
  char* s = (char*) omAlloc((j+1)*sizeof(char));
  *s='\0';
  for (i=0;i<n;i++)
  {
    strcat(s, slist[i]);
    omFree(slist[i]);
  }
  omFreeSize(slist, n*sizeof(char*));
  res->data = s;
  return FALSE;
}

jjstrlen()

static BOOLEAN jjstrlen ( leftv  res, leftv  v  )

static

Definition at line 5604 of file iparith.cc.

{
  res->data = (char *)strlen((char *)v->Data());
  return FALSE;
}

jjSUBST_Bu()

static BOOLEAN jjSUBST_Bu ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6646 of file iparith.cc.

{
  // generic conversion from polyBucket to poly:
  // force this to be the first try everytime
  poly p; int l;
  sBucket_pt bu=(sBucket_pt)w->CopyD();
  sBucketDestroyAdd(bu,&p,&l);
  sleftv tmpw;
  tmpw.Init();
  tmpw.rtyp=POLY_CMD;
  tmpw.data=p;
  return iiExprArith3(res, iiOp, u, v, &tmpw);
}

jjSUBST_Id()

static BOOLEAN jjSUBST_Id ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6692 of file iparith.cc.

{
  int ringvar;
  poly monomexpr;
  BOOLEAN nok=jjSUBST_Test(v,w,ringvar,monomexpr);
  if (nok) return TRUE;
  ideal id=(ideal)u->Data();
  if (ringvar>0)
  {
    BOOLEAN overflow=FALSE;
    if (!rIsLPRing(currRing) && (monomexpr!=NULL))
    {
      long deg_monexp=pTotaldegree(monomexpr);
      for(int i=IDELEMS(id)-1;i>=0;i--)
      {
        poly p=id->m[i];
        int mm=p_MaxExpPerVar(p,ringvar,currRing);
        if ((p!=NULL) && (mm!=0) &&
        ((unsigned long)deg_monexp > (currRing->bitmask / (unsigned long)mm/2)))
        {
          overflow=TRUE;
          break;
        }
      }
    }
    if (overflow)
      Warn("possible OVERFLOW in subst, max exponent is %ld",currRing->bitmask/2);
    if ((monomexpr==NULL)||(pNext(monomexpr)==NULL))
    {
      if (res->rtyp==MATRIX_CMD) id=(ideal)mp_Copy((matrix)id,currRing);
      else                       id=id_Copy(id,currRing);
      res->data = id_Subst(id, ringvar, monomexpr, currRing);
    }
    else
      res->data = idSubstPoly(id,ringvar,monomexpr);
  }
  else
  {
    if (rIsLPRing(currRing))
    {
      WerrorS("Substituting parameters not implemented for Letterplace rings.");
      return TRUE;
    }
    res->data = idSubstPar(id,-ringvar,monomexpr);
  }
  return FALSE;
}

jjSUBST_Id_I()

static BOOLEAN jjSUBST_Id_I ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6742 of file iparith.cc.

{
  return jjSUBST_Id_X(res,u,v,w,INT_CMD);
}

jjSUBST_Id_N()

static BOOLEAN jjSUBST_Id_N ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6746 of file iparith.cc.

{
  return jjSUBST_Id_X(res,u,v,w,NUMBER_CMD);
}

jjSUBST_Id_X()

static BOOLEAN jjSUBST_Id_X ( leftv  res, leftv  u, leftv  v, leftv  w, int  input_type  )

static

Definition at line 6750 of file iparith.cc.

{
  sleftv tmp;
  tmp.Init();
  // do not check the result, conversion from int/number to poly works always
  iiConvert(input_type,POLY_CMD,iiTestConvert(input_type,POLY_CMD),w,&tmp);
  BOOLEAN b=jjSUBST_Id(res,u,v,&tmp);
  tmp.CleanUp();
  return b;
}

jjSUBST_M()

static BOOLEAN jjSUBST_M ( leftv  res, leftv  u  )

static

Definition at line 8569 of file iparith.cc.

{
  leftv v = u->next; // number of args > 0
  if (v==NULL) return TRUE;
  leftv w = v->next;
  if (w==NULL) return TRUE;
  leftv rest = w->next;
 
  u->next = NULL;
  v->next = NULL;
  w->next = NULL;
  BOOLEAN b = iiExprArith3(res, iiOp, u, v, w);
  if ((rest!=NULL) && (!b))
  {
    leftv tmp_next=res->next;
    res->next=rest;
    sleftv tmp_res;
    tmp_res.Init();
    b = iiExprArithM(&tmp_res,res,iiOp);
    memcpy(res,&tmp_res,sizeof(tmp_res));
    res->next=tmp_next;
  }
  u->next = v;
  v->next = w;
  // rest was w->next, but is already cleaned
  return b;
}

jjSUBST_P()

static BOOLEAN jjSUBST_P ( leftv  res, leftv  u, leftv  v, leftv  w  )

static

Definition at line 6659 of file iparith.cc.

{
  int ringvar;
  poly monomexpr;
  BOOLEAN nok=jjSUBST_Test(v,w,ringvar,monomexpr);
  if (nok) return TRUE;
  poly p=(poly)u->Data();
  if (ringvar>0)
  {
    int mm=p_MaxExpPerVar(p,ringvar,currRing);
    if (!rIsLPRing(currRing) &&
    (monomexpr!=NULL) && (p!=NULL) && (mm!=0) &&
    ((unsigned long)pTotaldegree(monomexpr) > (currRing->bitmask / (unsigned long)mm/2)))
    {
      Warn("possible OVERFLOW in subst, max exponent is %ld, substituting deg %d by deg %d",currRing->bitmask/2, pTotaldegree(monomexpr), mm);
      //return TRUE;
    }
    if ((monomexpr==NULL)||(pNext(monomexpr)==NULL))
      res->data = pSubst((poly)u->CopyD(res->rtyp),ringvar,monomexpr);
    else
      res->data= pSubstPoly(p,ringvar,monomexpr);
  }
  else
  {
    if (rIsLPRing(currRing))
    {
      WerrorS("Substituting parameters not implemented for Letterplace rings.");
      return TRUE;
    }
    res->data=pSubstPar(p,-ringvar,monomexpr);
  }
  return FALSE;
}

jjSUBST_Test()

static BOOLEAN jjSUBST_Test ( leftv  v, leftv  w, int &  ringvar, poly &  monomexpr  )

static

Definition at line 6618 of file iparith.cc.

{
  monomexpr=(poly)w->Data();
  poly p=(poly)v->Data();
#if 0
  if (pLength(monomexpr)>1)
  {
    Werror("`%s` substitutes a ringvar only by a term",
      Tok2Cmdname(SUBST_CMD));
    return TRUE;
  }
#endif
  if ((ringvar=pVar(p))==0)
  {
    if ((p!=NULL) && (currRing->cf->extRing!=NULL))
    {
      number n = pGetCoeff(p);
      ringvar= -n_IsParam(n, currRing);
    }
    if(ringvar==0)
    {
      WerrorS("ringvar/par expected");
      return TRUE;
    }
  }
  return FALSE;
}

jjSYZ_2()

static BOOLEAN jjSYZ_2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3515 of file iparith.cc.

{
  // see jjSYZYGY
  intvec *ww=(intvec *)atGet(u,"isHomog",INTVEC_CMD);
  intvec *w=NULL;
  tHomog hom=testHomog;
  ideal I=(ideal)u->Data();
  GbVariant alg=syGetAlgorithm((char*)v->Data(),currRing,I);
  if (ww!=NULL)
  {
    if (idTestHomModule(I,currRing->qideal,ww))
    {
      w=ivCopy(ww);
      int add_row_shift=w->min_in();
      (*w)-=add_row_shift;
      hom=isHomog;
    }
    else
    {
      //WarnS("wrong weights");
      delete ww; ww=NULL;
      hom=testHomog;
    }
  }
  else
  {
    if (u->Typ()==IDEAL_CMD)
      if (idHomIdeal(I,currRing->qideal))
        hom=isHomog;
  }
  ideal S=idSyzygies(I,hom,&w,TRUE,FALSE,NULL,alg);
  if (w!=NULL) delete w;
  res->data = (char *)S;
  if (hom==isHomog)
  {
    int vl=S->rank;
    intvec *vv=new intvec(vl);
    if ((u->Typ()==IDEAL_CMD)||(ww==NULL))
    {
      for(int i=0;i<vl;i++)
      {
        if (I->m[i]!=NULL)
          (*vv)[i]=p_Deg(I->m[i],currRing);
      }
    }
    else
    {
      p_SetModDeg(ww, currRing);
      for(int i=0;i<vl;i++)
      {
        if (I->m[i]!=NULL)
          (*vv)[i]=currRing->pFDeg(I->m[i],currRing);
      }
      p_SetModDeg(NULL, currRing);
    }
    if (idTestHomModule(S,currRing->qideal,vv))
      atSet(res,omStrDup("isHomog"),vv,INTVEC_CMD);
    else
      delete vv;
  }
  if (TEST_OPT_RETURN_SB) setFlag(res,FLAG_STD);
  return FALSE;
}

jjSYZYGY()

static BOOLEAN jjSYZYGY ( leftv  res, leftv  v  )

static

Definition at line 5153 of file iparith.cc.

{
  ideal v_id=(ideal)v->Data();
#ifdef HAVE_SHIFTBBA
  if (rIsLPRing(currRing))
  {
    if (currRing->LPncGenCount < IDELEMS(v_id))
    {
      Werror("At least %d ncgen variables are needed for this computation.", IDELEMS(v_id));
      return TRUE;
    }
  }
#endif
  intvec *ww=(intvec *)atGet(v,"isHomog",INTVEC_CMD);
  intvec *w=NULL;
  tHomog hom=testHomog;
  if (ww!=NULL)
  {
    if (idTestHomModule(v_id,currRing->qideal,ww))
    {
      w=ivCopy(ww);
      int add_row_shift=w->min_in();
      (*w)-=add_row_shift;
      hom=isHomog;
    }
    else
    {
      //WarnS("wrong weights");
      delete ww; ww=NULL;
      hom=testHomog;
    }
  }
  else
  {
    if (v->Typ()==IDEAL_CMD)
      if (idHomIdeal(v_id,currRing->qideal))
        hom=isHomog;
  }
  ideal S=idSyzygies(v_id,hom,&w);
  res->data = (char *)S;
  if (hom==isHomog)
  {
    int vl=S->rank;
    intvec *vv=new intvec(vl);
    if ((v->Typ()==IDEAL_CMD)||(ww==NULL))
    {
      for(int i=0;i<vl;i++)
      {
        if (v_id->m[i]!=NULL)
          (*vv)[i]=p_Deg(v_id->m[i],currRing);
      }
    }
    else
    {
      p_SetModDeg(ww, currRing);
      for(int i=0;i<vl;i++)
      {
        if (v_id->m[i]!=NULL)
          (*vv)[i]=currRing->pFDeg(v_id->m[i],currRing);
      }
      p_SetModDeg(NULL, currRing);
    }
    if (idTestHomModule(S,currRing->qideal,vv))
      atSet(res,omStrDup("isHomog"),vv,INTVEC_CMD);
    else
      delete vv;
  }
  if (w!=NULL) delete w;
  return FALSE;
}

jjTENSOR()

static BOOLEAN jjTENSOR ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3578 of file iparith.cc.

{
  ideal A=(ideal)u->Data();
  ideal B=(ideal)v->Data();
  res->data = (char *)sm_Tensor(A,B,currRing);
  return FALSE;
}

jjTENSOR_Ma()

static BOOLEAN jjTENSOR_Ma ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3585 of file iparith.cc.

{
  sleftv tmp_u,tmp_v,tmp_res;
  int index=iiTestConvert(MATRIX_CMD,SMATRIX_CMD,dConvertTypes);
  iiConvert(MATRIX_CMD,SMATRIX_CMD,index,u,&tmp_u,dConvertTypes);
  iiConvert(MATRIX_CMD,SMATRIX_CMD,index,v,&tmp_v,dConvertTypes);
  tmp_res.Init();
  tmp_res.rtyp=SMATRIX_CMD;
  BOOLEAN bo=jjTENSOR(&tmp_res,&tmp_u,&tmp_v);
  if (!bo)
  {
    index=iiTestConvert(SMATRIX_CMD,MATRIX_CMD,dConvertTypes);
    iiConvert(SMATRIX_CMD,MATRIX_CMD,index,&tmp_res,res,dConvertTypes);
  }
  tmp_u.CleanUp();
  tmp_v.CleanUp();
  tmp_res.CleanUp();
  return bo;
}

jjTEST()

static BOOLEAN jjTEST ( leftv  , leftv  v  )

static

Definition at line 8387 of file iparith.cc.

{
  do
  {
    if (v->Typ()!=INT_CMD)
      return TRUE;
    test_cmd((int)(long)v->Data());
    v=v->next;
  }
  while (v!=NULL);
  return FALSE;
}

jjTIMES_BI()

static BOOLEAN jjTIMES_BI ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 991 of file iparith.cc.

{
  res->data = (char *)(n_Mult( (number)u->Data(), (number)v->Data(),coeffs_BIGINT));
  if ((v->next!=NULL) || (u->next!=NULL))
    return jjOP_REST(res,u,v);
  return FALSE;
}

jjTIMES_BIM()

static BOOLEAN jjTIMES_BIM ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1074 of file iparith.cc.

{
  res->data = (char *)bimMult((bigintmat*)(u->Data()), (bigintmat*)(v->Data()));
  if (res->data==NULL)
  {
    WerrorS("bigintmat/cmatrix not compatible");
    return TRUE;
  }
  if ((v->next!=NULL) || (u->next!=NULL))
    return jjOP_REST(res,u,v);
  return FALSE;
}

jjTIMES_I()

static BOOLEAN jjTIMES_I ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 979 of file iparith.cc.

{
  long a=(long)u->Data();
  long b=(long)v->Data();
  long c=a * b;
  if ((a!=0)&&(c/a!=b))
    WarnS("int overflow(*), result may be wrong");
  res->data = (char *)c;
  if ((u->Next()!=NULL) || (v->Next()!=NULL))
    return jjOP_REST(res,u,v);
  return FALSE;
}

jjTIMES_ID()

static BOOLEAN jjTIMES_ID ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1055 of file iparith.cc.

{
  res->data = (char *)idMult((ideal)u->Data(),(ideal)v->Data());
  if ((v->next!=NULL) || (u->next!=NULL))
    return jjOP_REST(res,u,v);
  return FALSE;
}

jjTIMES_IV()

static BOOLEAN jjTIMES_IV ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1062 of file iparith.cc.

{
  res->data = (char *)ivMult((intvec*)(u->Data()), (intvec*)(v->Data()));
  if (res->data==NULL)
  {
     WerrorS("intmat size not compatible");
     return TRUE;
  }
  if ((v->next!=NULL) || (u->next!=NULL))
    return jjOP_REST(res,u,v);
  return FALSE;
}

jjTIMES_MA()

static BOOLEAN jjTIMES_MA ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1138 of file iparith.cc.

{
  matrix A=(matrix)u->Data(); matrix B=(matrix)v->Data();
  res->data = (char *)mp_Mult(A,B,currRing);
  if (res->data==NULL)
  {
     Werror("matrix size not compatible(%dx%d, %dx%d) in *",
             MATROWS(A),MATCOLS(A),MATROWS(B),MATCOLS(B));
     return TRUE;
  }
  if ((v->next!=NULL) || (u->next!=NULL))
    return jjOP_REST(res,u,v);
  return FALSE;
}

jjTIMES_MA_BI1()

static BOOLEAN jjTIMES_MA_BI1 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1086 of file iparith.cc.

{
  nMapFunc nMap=n_SetMap(coeffs_BIGINT,currRing->cf);
  if (nMap==NULL) return TRUE;
  number n=nMap((number)v->Data(),coeffs_BIGINT,currRing->cf);
  poly p=pNSet(n);
  ideal I= (ideal)mp_MultP((matrix)u->CopyD(MATRIX_CMD),p,currRing);
  res->data = (char *)I;
  return FALSE;
}

jjTIMES_MA_BI2()

static BOOLEAN jjTIMES_MA_BI2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1096 of file iparith.cc.

{
  return jjTIMES_MA_BI1(res,v,u);
}

jjTIMES_MA_I1()

static BOOLEAN jjTIMES_MA_I1 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1129 of file iparith.cc.

{
  res->data = (char *)mp_MultI((matrix)u->CopyD(MATRIX_CMD),(int)(long)v->Data(),currRing);
  return FALSE;
}

jjTIMES_MA_I2()

static BOOLEAN jjTIMES_MA_I2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1134 of file iparith.cc.

{
  return jjTIMES_MA_I1(res,v,u);
}

jjTIMES_MA_N1()

static BOOLEAN jjTIMES_MA_N1 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1118 of file iparith.cc.

{
  number n=(number)v->CopyD(NUMBER_CMD);
  poly p=pNSet(n);
  res->data = (char *)mp_MultP((matrix)u->CopyD(MATRIX_CMD),p,currRing);
  return FALSE;
}

jjTIMES_MA_N2()

static BOOLEAN jjTIMES_MA_N2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1125 of file iparith.cc.

{
  return jjTIMES_MA_N1(res,v,u);
}

jjTIMES_MA_P1()

static BOOLEAN jjTIMES_MA_P1 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1100 of file iparith.cc.

{
  poly p=(poly)v->CopyD(POLY_CMD);
  int r=pMaxComp(p);/* recompute the rank for the case ideal*vector*/
  ideal I= (ideal)mp_MultP((matrix)u->CopyD(MATRIX_CMD),p,currRing);
  if (r>0) I->rank=r;
  res->data = (char *)I;
  return FALSE;
}

jjTIMES_MA_P2()

static BOOLEAN jjTIMES_MA_P2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1109 of file iparith.cc.

{
  poly p=(poly)u->CopyD(POLY_CMD);
  int r=pMaxComp(p);/* recompute the rank for the case ideal*vector*/
  ideal I= (ideal)pMultMp(p,(matrix)v->CopyD(MATRIX_CMD),currRing);
  if (r>0) I->rank=r;
  res->data = (char *)I;
  return FALSE;
}

jjTIMES_N()

static BOOLEAN jjTIMES_N ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 998 of file iparith.cc.

{
  res->data = (char *)(nMult( (number)u->Data(), (number)v->Data()));
  number n=(number)res->data;
  nNormalize(n);
  res->data=(char *)n;
  if ((v->next!=NULL) || (u->next!=NULL))
    return jjOP_REST(res,u,v);
  return FALSE;
}

jjTIMES_P()

static BOOLEAN jjTIMES_P ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1008 of file iparith.cc.

{
  poly a;
  poly b;
  if (v->next==NULL)
  {
    if (u->next==NULL)
    {
      a=(poly)u->Data(); // works also for VECTOR_CMD
      b=(poly)v->Data(); // works also for VECTOR_CMD
      if (!rIsLPRing(currRing)
      && (a!=NULL) && (b!=NULL)
      && ((long)pTotaldegree(a)>si_max((long)rVar(currRing),(long)currRing->bitmask/2)-(long)pTotaldegree(b)))
      {
        Warn("possible OVERFLOW in mult(d=%ld, d=%ld, max=%ld)",
          pTotaldegree(a),pTotaldegree(b),currRing->bitmask/2);
      }
      res->data = (char *)(pp_Mult_qq( a, b, currRing));
      return FALSE;
    }
    // u->next exists: copy v
    a=(poly)u->CopyD(POLY_CMD); // works also for VECTOR_CMD
    b=pCopy((poly)v->Data());
    if (!rIsLPRing(currRing)
    && (a!=NULL) && (b!=NULL)
    && (pTotaldegree(a)+pTotaldegree(b)>si_max((long)rVar(currRing),(long)currRing->bitmask/2)))
    {
      Warn("possible OVERFLOW in mult(d=%ld, d=%ld, max=%ld)",
          pTotaldegree(a),pTotaldegree(b),currRing->bitmask/2);
    }
    res->data = (char *)(pMult( a, b));
    return jjOP_REST(res,u,v);
  }
  // v->next exists: copy u
  a=pCopy((poly)u->Data());
  b=(poly)v->CopyD(POLY_CMD); // works also for VECTOR_CMD
  if ((a!=NULL) && (b!=NULL)
  && ((unsigned long)(pTotaldegree(a)+pTotaldegree(b))>=currRing->bitmask/2))
  {
    pDelete(&a);
    pDelete(&b);
    WerrorS("OVERFLOW");
    return TRUE;
  }
  res->data = (char *)(pMult( a, b));
  return jjOP_REST(res,u,v);
}

jjTIMES_SM()

static BOOLEAN jjTIMES_SM ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 1152 of file iparith.cc.

{
  ideal A=(ideal)u->Data(); ideal B=(ideal)v->Data();
  res->data = (char *)sm_Mult(A,B,currRing);
  if (res->data==NULL)
  {
     Werror("matrix size not compatible(%dx%d, %dx%d) in *",
             (int)A->rank,IDELEMS(A),(int)B->rank,IDELEMS(B));
     return TRUE;
  }
  if ((v->next!=NULL) || (u->next!=NULL))
    return jjOP_REST(res,u,v);
  return FALSE;
}

jjTRACE_IV()

static BOOLEAN jjTRACE_IV ( leftv  res, leftv  v  )

static

Definition at line 5224 of file iparith.cc.

{
  res->data = (char *)(long)ivTrace((intvec*)(v->Data()));
  return FALSE;
}

jjTRANSP_BIM()

static BOOLEAN jjTRANSP_BIM ( leftv  res, leftv  v  )

static

Definition at line 5229 of file iparith.cc.

{
  res->data = (char *)(((bigintmat*)(v->Data()))->transpose());
  return FALSE;
}

jjTRANSP_IV()

static BOOLEAN jjTRANSP_IV ( leftv  res, leftv  v  )

static

Definition at line 5234 of file iparith.cc.

{
  res->data = (char *)ivTranp((intvec*)(v->Data()));
  return FALSE;
}

jjTWOSTD()

static BOOLEAN jjTWOSTD ( leftv  res, leftv  a  )

static

Definition at line 5273 of file iparith.cc.

{
#ifdef HAVE_PLURAL
  ideal result;
  ideal v_id=(ideal)a->Data();
  if (rIsPluralRing(currRing))
    result=(ideal)twostd(v_id);
  else /*commutative or shiftalgebra*/
  {
    return jjSTD(res,a);
  }
  res->data = (char *)result;
  setFlag(res,FLAG_STD);
  setFlag(res,FLAG_TWOSTD);
  return FALSE;
#else
  return TRUE;
#endif
}

jjTYPEOF()

static BOOLEAN jjTYPEOF ( leftv  res, leftv  v  )

static

Definition at line 5353 of file iparith.cc.

{
  int t=(int)(long)v->data;
  switch (t)
  {
    case CRING_CMD:
    case INT_CMD:
    case POLY_CMD:
    case VECTOR_CMD:
    case STRING_CMD:
    case INTVEC_CMD:
    case IDEAL_CMD:
    case MATRIX_CMD:
    case MODUL_CMD:
    case MAP_CMD:
    case PROC_CMD:
    case RING_CMD:
    case SMATRIX_CMD:
    //case QRING_CMD:
    case INTMAT_CMD:
    case BIGINTMAT_CMD:
    case NUMBER_CMD:
    #ifdef SINGULAR_4_2
    case CNUMBER_CMD:
    #endif
    case BIGINT_CMD:
    case BUCKET_CMD:
    case LIST_CMD:
    case PACKAGE_CMD:
    case LINK_CMD:
    case RESOLUTION_CMD:
         res->data=omStrDup(Tok2Cmdname(t)); break;
    case DEF_CMD:
    case NONE:           res->data=omStrDup("none"); break;
    default:
    {
      if (t>MAX_TOK)
        res->data=omStrDup(getBlackboxName(t));
      else
        res->data=omStrDup("?unknown type?");
      break;
    }
  }
  return FALSE;
}

jjUMINUS_BI()

static BOOLEAN jjUMINUS_BI ( leftv  res, leftv  u  )

static

Definition at line 3744 of file iparith.cc.

{
  number n=(number)u->CopyD(BIGINT_CMD);
  n=n_InpNeg(n,coeffs_BIGINT);
  res->data = (char *)n;
  return FALSE;
}

jjUMINUS_BIM()

static BOOLEAN jjUMINUS_BIM ( leftv  res, leftv  u  )

static

Definition at line 3781 of file iparith.cc.

{
  bigintmat *bim=(bigintmat *)u->CopyD(BIGINTMAT_CMD);
  (*bim)*=(-1);
  res->data = (char *)bim;
  return FALSE;
}

jjUMINUS_I()

static BOOLEAN jjUMINUS_I ( leftv  res, leftv  u  )

static

Definition at line 3751 of file iparith.cc.

{
  res->data = (char *)(-(long)u->Data());
  return FALSE;
}

jjUMINUS_IV()

static BOOLEAN jjUMINUS_IV ( leftv  res, leftv  u  )

static

Definition at line 3774 of file iparith.cc.

{
  intvec *iv=(intvec *)u->CopyD(INTVEC_CMD);
  (*iv)*=(-1);
  res->data = (char *)iv;
  return FALSE;
}

jjUMINUS_MA()

static BOOLEAN jjUMINUS_MA ( leftv  res, leftv  u  )

static

Definition at line 3768 of file iparith.cc.

{
  poly m1=pISet(-1);
  res->data = (char *)mp_MultP((matrix)u->CopyD(MATRIX_CMD),m1,currRing);
  return FALSE;
}

jjUMINUS_N()

static BOOLEAN jjUMINUS_N ( leftv  res, leftv  u  )

static

Definition at line 3756 of file iparith.cc.

{
  number n=(number)u->CopyD(NUMBER_CMD);
  n=nInpNeg(n);
  res->data = (char *)n;
  return FALSE;
}

jjUMINUS_P()

static BOOLEAN jjUMINUS_P ( leftv  res, leftv  u  )

static

Definition at line 3763 of file iparith.cc.

{
  res->data = (char *)pNeg((poly)u->CopyD(POLY_CMD));
  return FALSE;
}

jjUNIQLIST()

BOOLEAN jjUNIQLIST	(	leftv	,
		leftv	arg
	)

Definition at line 10242 of file iparith.cc.

{
  lists l=(lists)arg->Data();
  if (l->nr>0)
  {
    qsort(l->m,l->nr+1,sizeof(sleftv),jjCOMPARE_ALL);
    int i, j, len;
    len=l->nr;
    i=0;
    while(i<len)
    {
      if(jjCOMPARE_ALL(&(l->m[i]),&(l->m[i+1]))==0)
      {
        l->m[i].CleanUp();
        for(j=i; j<len;j++) l->m[j]=l->m[j+1];
        memset(&(l->m[len]),0,sizeof(sleftv));
        l->m[len].rtyp=DEF_CMD;
        len--;
      }
      else
        i++;
    }
    //Print("new len:%d\n",len);
  }
  return FALSE;
}

jjUNIVARIATE()

static BOOLEAN jjUNIVARIATE ( leftv  res, leftv  v  )

static

Definition at line 5398 of file iparith.cc.

{
  res->data=(char *)(long)pIsUnivariate((poly)v->Data());
  return FALSE;
}

jjVAR1()

static BOOLEAN jjVAR1 ( leftv  res, leftv  v  )

static

Definition at line 5403 of file iparith.cc.

{
  int i=(int)(long)v->Data();
  if ((0<i) && (i<=currRing->N))
  {
    poly p=pOne();
    pSetExp(p,i,1);
    pSetm(p);
    res->data=(char *)p;
  }
  else
  {
    Werror("var number %d out of range 1..%d",i,currRing->N);
    return TRUE;
  }
  return FALSE;
}

jjVARSTR1()

static BOOLEAN jjVARSTR1 ( leftv  res, leftv  v  )

static

Definition at line 5420 of file iparith.cc.

{
  if (currRing==NULL)
  {
    WerrorS("no ring active (2)");
    return TRUE;
  }
  int i=(int)(long)v->Data();
  if ((0<i) && (i<=currRing->N))
    res->data=omStrDup(currRing->names[i-1]);
  else
  {
    Werror("var number %d out of range 1..%d",i,currRing->N);
    return TRUE;
  }
  return FALSE;
}

jjVARSTR2()

static BOOLEAN jjVARSTR2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3604 of file iparith.cc.

{
  idhdl h=(idhdl)u->data;
  int i=(int)(long)v->Data();
  if ((0<i) && (i<=IDRING(h)->N))
    res->data=omStrDup(IDRING(h)->names[i-1]);
  else
  {
    Werror("var number %d out of range 1..%d",i,IDRING(h)->N);
    return TRUE;
  }
  return FALSE;
}

jjVDIM()

static BOOLEAN jjVDIM ( leftv  res, leftv  v  )

static

Definition at line 5437 of file iparith.cc.

{
  assumeStdFlag(v);
#ifdef HAVE_SHIFTBBA
  if (rIsLPRing(currRing))
  {
#ifdef HAVE_RINGS
    if (rField_is_Ring(currRing))
    {
      WerrorS("`vdim` is not implemented for letterplace rings over rings");
      return TRUE;
    }
#endif
    if (currRing->qideal != NULL)
    {
      WerrorS("qring not supported by `vdim` for letterplace rings at the moment");
      return TRUE;
    }
    int kDim = lp_kDim((ideal)(v->Data()));
    res->data = (char *)(long)kDim;
    return (kDim == -2);
  }
#endif
  long l=scMult0Int((ideal)v->Data(),currRing->qideal);
  if (l<-1L)
    WerrorS("int overflow in vdim");
  res->data = (char *)l;
  return FALSE;
}

jjWAIT1ST1()

BOOLEAN jjWAIT1ST1	(	leftv	res,
		leftv	u
	)

Definition at line 5466 of file iparith.cc.

{
// input: u: a list with links of type
//           ssi-fork, ssi-tcp, MPtcp-fork or MPtcp-launch
// returns: -1:  the read state of all links is eof
//          i>0: (at least) u[i] is ready
  lists Lforks = (lists)u->Data();
  int i = slStatusSsiL(Lforks, -1);
  if(i == -2) /* error */
  {
    return TRUE;
  }
  res->data = (void*)(long)i;
  return FALSE;
}

jjWAIT1ST2()

static BOOLEAN jjWAIT1ST2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3617 of file iparith.cc.

{
// input: u: a list with links of type
//           ssi-fork, ssi-tcp, MPtcp-fork or MPtcp-launch
//        v: timeout for select in milliseconds
//           or 0 for polling
// returns: ERROR (via Werror): timeout negative
//           -1: the read state of all links is eof
//            0: timeout (or polling): none ready
//           i>0: (at least) L[i] is ready
  lists Lforks = (lists)u->Data();
  int t = (int)(long)v->Data();
  if(t < 0)
  {
    WerrorS("negative timeout"); return TRUE;
  }
  int i = slStatusSsiL(Lforks, t*1000);
  if(i == -2) /* error */
  {
    return TRUE;
  }
  res->data = (void*)(long)i;
  return FALSE;
}

jjWAITALL1()

BOOLEAN jjWAITALL1	(	leftv	res,
		leftv	u
	)

Definition at line 5481 of file iparith.cc.

{
// input: u: a list with links of type
//           ssi-fork, ssi-tcp, MPtcp-fork or MPtcp-launch
// returns: -1: the read state of all links is eof
//           1: all links are ready
//              (caution: at least one is ready, but some maybe dead)
  lists Lforks = (lists)u->CopyD();
  int i;
  int j = -1;
  for(int nfinished = 0; nfinished < Lforks->nr+1; nfinished++)
  {
    i = slStatusSsiL(Lforks, -1);
    if(i == -2) /* error */
    {
      return TRUE;
    }
    if(i == -1)
    {
      break;
    }
    j = 1;
    Lforks->m[i-1].CleanUp();
    Lforks->m[i-1].rtyp=DEF_CMD;
    Lforks->m[i-1].data=NULL;
  }
  res->data = (void*)(long)j;
  Lforks->Clean();
  return FALSE;
}

jjWAITALL2()

static BOOLEAN jjWAITALL2 ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3641 of file iparith.cc.

{
// input: u: a list with links of type
//           ssi-fork, ssi-tcp, MPtcp-fork or MPtcp-launch
//        v: timeout for select in milliseconds
//           or 0 for polling
// returns: ERROR (via Werror): timeout negative
//           -1: the read state of all links is eof
//           0: timeout (or polling): none ready
//           1: all links are ready
//              (caution: at least one is ready, but some maybe dead)
  lists Lforks = (lists)u->CopyD();
  int timeout = 1000*(int)(long)v->Data();
  if(timeout < 0)
  {
    WerrorS("negative timeout"); return TRUE;
  }
  int t = getRTimer()/TIMER_RESOLUTION;  // in seconds
  int i;
  int ret = -1;
  for(unsigned nfinished = 0; nfinished < ((unsigned)Lforks->nr)+1; nfinished++)
  {
    i = slStatusSsiL(Lforks, timeout);
    if(i > 0) /* Lforks[i] is ready */
    {
      ret = 1;
      Lforks->m[i-1].CleanUp();
      Lforks->m[i-1].rtyp=DEF_CMD;
      Lforks->m[i-1].data=NULL;
      timeout = si_max(0,timeout - 1000*(getRTimer()/TIMER_RESOLUTION - t));
    }
    else /* terminate the for loop */
    {
      if(i == -2) /* error */
      {
        return TRUE;
      }
      if(i == 0) /* timeout */
      {
        ret = 0;
      }
      break;
    }
  }
  Lforks->Clean();
  res->data = (void*)(long)ret;
  return FALSE;
}

jjWEDGE()

static BOOLEAN jjWEDGE ( leftv  res, leftv  u, leftv  v  )

static

Definition at line 3689 of file iparith.cc.

{
  res->data = (char *)mp_Wedge((matrix)u->Data(),(int)(long)v->Data(),currRing);
  return FALSE;
}

jjWRONG()

static BOOLEAN jjWRONG ( leftv  , leftv    )

static

Definition at line 3694 of file iparith.cc.

{
  return TRUE;
}

jjWRONG2()

static BOOLEAN jjWRONG2 ( leftv  , leftv  , leftv    )

static

Definition at line 3698 of file iparith.cc.

{
  return TRUE;
}

jjWRONG3()

static BOOLEAN jjWRONG3 ( leftv  , leftv  , leftv  , leftv    )

static

Definition at line 3702 of file iparith.cc.

{
  return TRUE;
}

Tok2Cmdname()

const char * Tok2Cmdname

(

int

tok

)

Definition at line 9647 of file iparith.cc.

{
  if (tok <= 0)
  {
    return sArithBase.sCmds[0].name;
  }
  if (tok==ANY_TYPE) return "any_type";
  if (tok==COMMAND) return "command";
  if (tok==NONE) return "nothing";
  if (tok < 128)
  {
    Tok2Cmdname_buf[0]=(char)tok;
    return Tok2Cmdname_buf;
  }
  //if (tok==IFBREAK) return "if_break";
  //if (tok==VECTOR_FROM_POLYS) return "vector_from_polys";
  //if (tok==ORDER_VECTOR) return "ordering";
  //if (tok==REF_VAR) return "ref";
  //if (tok==OBJECT) return "object";
  //if (tok==PRINT_EXPR) return "print_expr";
  if (tok==IDHDL) return "identifier";
  if (tok>MAX_TOK) return getBlackboxName(tok);
  unsigned i;
  for(i=0; i<sArithBase.nCmdUsed; i++)
    //while (sArithBase.sCmds[i].tokval!=0)
  {
    if ((sArithBase.sCmds[i].tokval == tok)&&
        (sArithBase.sCmds[i].alias==0))
    {
      return sArithBase.sCmds[i].name;
    }
  }
  // try gain for alias/old names:
  for(i=0; i<sArithBase.nCmdUsed; i++)
  {
    if (sArithBase.sCmds[i].tokval == tok)
    {
      return sArithBase.sCmds[i].name;
    }
  }
  return sArithBase.sCmds[0].name;
}

WerrorS_dummy()

static void WerrorS_dummy ( const char *  )

static

Definition at line 5584 of file iparith.cc.

{
  WerrorS_dummy_cnt++;
}

Variable Documentation

all_farey

long all_farey =0L

Definition at line 8 of file iparith.cc.

cmdtok

EXTERN_VAR int cmdtok

Definition at line 217 of file iparith.cc.

expected_parms

EXTERN_VAR BOOLEAN expected_parms

Definition at line 218 of file iparith.cc.

farey_cnt

long farey_cnt =0L

Definition at line 9 of file iparith.cc.

iiOp

VAR int iiOp

Definition at line 222 of file iparith.cc.

sArithBase

STATIC_VAR SArithBase sArithBase

Base entry for arithmetic.

Definition at line 201 of file iparith.cc.

singclap_factorize_retry

EXTERN_VAR int singclap_factorize_retry

Definition at line 2064 of file iparith.cc.

Tok2Cmdname_buf

STATIC_VAR si_char_2 Tok2Cmdname_buf =" "

Definition at line 9646 of file iparith.cc.

WerrorS_dummy_cnt

STATIC_VAR int WerrorS_dummy_cnt =0

Definition at line 5583 of file iparith.cc.