inline bool is_zero(basic const & x) {
return is_zero(ex(x));
}
+// fixes for simp_lor lor_g(x,y)
+inline simp_lor lor_g(ex const & x, basic const & y) {
+ return lor_g((x),ex(y));
+}
+inline simp_lor lor_g(basic const & x, ex const & y) {
+ return lor_g(ex(x),(y));
+}
+inline simp_lor lor_g(basic const & x, basic const & y) {
+ return lor_g(ex(x),ex(y));
+}
+
+inline simp_lor lor_vec(const string & x, const basic & y) {
+ return lor_vec((x),ex(y));
+}
inline_function_1p('ex','rhs');
inline_function_1p('bool','is_zero');
+# fixes for simp_lor.h
+inline_function_2p('simp_lor','lor_g');
+inline_single_function_2p('simp_lor','lor_vec','const string &','','const basic &','ex');
+
close OUT;
# Create a file containing stubs that may be necessary because Cint always
{
#ifdef OBSCURE_CINT_HACK
static G__value ref_symbol = exec_tempfile("symbol ginac_cint_internal_symbol; ginac_cint_internal_symbol;");
+ static G__value ref_constant = exec_tempfile("constant ginac_cint_internal_constant; ginac_cint_internal_constant;");
static G__value ref_function = exec_tempfile("sin(ginac_cint_internal_symbol);");
static G__value ref_power = exec_tempfile("power(ex(ginac_cint_internal_symbol),ex(ginac_cint_internal_symbol));");
static G__value ref_numeric = exec_tempfile("numeric ginac_cint_internal_numeric; ginac_cint_internal_numeric;");
+"LAST="+varname+";\n"
+"cout << \""+varname+" = \" << "+varname+" << endl << endl;");
} else if (TYPES_EQUAL(retval,ref_symbol)||
+ TYPES_EQUAL(retval,ref_constant)||
TYPES_EQUAL(retval,ref_function)||
TYPES_EQUAL(retval,ref_power)||
TYPES_EQUAL(retval,ref_numeric)) {
if (!basic_type_warning_already_displayed) {
- cout << "WARNING: The return value of the last expression you entered was a symbol," << endl
- << "function, power or numeric, which cannot be safely displayed." << endl
+ cout << endl
+ <<"WARNING: The return value of the last expression you entered was a symbol," << endl
+ << "constant, function, power or numeric, which cannot be safely displayed." << endl
<< "To force the output, cast it explicitly to type 'ex' or use 'cout'," << endl
<< "for example (assume 'x' is a symbol):" << endl
<< PROMPT "ex(x);" << endl