[BACK]Return to oxmpl.rr CVS log [TXT][DIR] Up to [local] / OpenXM / src / ox_maple
File: [local] / OpenXM / src / ox_maple / oxmpl.rr (download)

Revision 1.1, Fri Sep 19 13:01:05 2008 UTC (15 years, 7 months ago) by iwane
Branch: MAIN
CVS Tags: R_1_3_1-2, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, HEAD 

OpenXM Maple server

/* $OpenXM: OpenXM/src/ox_maple/oxmpl.rr,v 1.1 2008/09/19 13:01:05 iwane Exp $ */
/*
 * OpenXM Maple Server
 *
 * [1215] PID = ox_launch(0, "$OpenXM/src/ox_maple/ox_maple");
 * 0
 * [1216] ox_cmo_rpc(PID, "func", "resultant", x^2+a*x+b, 2*x+a, x);
 * 0
 * [1217] maple.whattype(PID);
 * `+`
 * [1218] ox_pop_cmo(PID);
 * -a^2+4*b
 * [1219] maple.resultant(PID, x^2+a*x+b, 2*x+a, x);
 * -a^2+4*b
 * [1220] ox_cmo_rpc(PID, "sleep", 10);
 * 0
 * [1221] ox_execute_string(PID, "resultant(x^2+a*x+b, 2*x+a, x);");
 * 0
 * [1222] ox_pop_cmo(PID);
 * -a^2+4*b
 *
 */


module maple;

localf resultant$
localf whattype$


def resultant(PID, F1, F2, X) {
	ox_cmo_rpc(PID, "func", "resultant", F1, F2, X);
	return (ox_pop_cmo(PID));
}


def whattype(PID) {
	ox_push_cmo(PID, ntoint32(1));
	ox_push_cmo(PID, "whattype");
	ox_push_cmd(PID, 269);  /* executeFunction */
	return (ox_pop_cmo(PID));
}



endmodule;

end$