OpenXM/src/ox_maple/simple.ml - diff

Return to simple.ml CVS log

Up to [local] / OpenXM / src / ox_maple

version 1.1, 2004/06/21 12:46:04

version 1.2, 2004/06/21 13:10:40

Line 1

# $OpenXM$

# $OpenXM: OpenXM/src/ox_maple/simple.ml,v 1.1 2004/06/21 12:46:04 takayama Exp $

ox_start_sm1:=define_external(

'ml_start_asir',

'RETURN'::integer[4],

Line 21 ox_pop_string:=define_external(

'RETURN'::string[],

'LIB'="libsimple.so");

asir_gr:=proc(f,v,ord)

local sf,sv,sord;

sf := sprintf("%a",f);

sv := sprintf("%a",v);

sord := sprintf("%a",ord);

ox_execute_string(cat("gr(",sf,",",sv,",",sord,");"));

RETURN(parse(ox_pop_string()));

end :

# asir_gr([x^2+y^2-4,x*y-1],[x,y],2);