Return to simple.ml CVS log

Up to [local] / OpenXM / src / ox_maple

Annotation of OpenXM/src/ox_maple/simple.ml, Revision 1.3

1.3     ! iwane       1: # $OpenXM: OpenXM/src/ox_maple/simple.ml,v 1.2 2004/06/21 13:10:40 takayama Exp $
        !             2: ox_start_maple:=define_external(
        !             3:    'ml_start_maple',
        !             4:    'RETURN'::integer[4],
        !             5:    'LIB'="libsimple.so");
        !             6:
1.1       takayama    7: ox_start_sm1:=define_external(
                      8:    'ml_start_asir',
                      9:    'RETURN'::integer[4],
                     10:    'LIB'="libsimple.so");
                     11:
                     12: ox_push_int:=define_external(
                     13:    'ml_push_int',
                     14:    'num1'::integer[4],
                     15:    'RETURN'::integer[4],
                     16:    'LIB'="libsimple.so");
                     17:
                     18: ox_execute_string:=define_external(
                     19:    'ml_execute_string',
                     20:    'num1'::string[],
                     21:    'RETURN'::integer[4],
                     22:    'LIB'="libsimple.so");
                     23:
                     24: ox_pop_string:=define_external(
                     25:    'ml_pop_string',
                     26:    'RETURN'::string[],
                     27:    'LIB'="libsimple.so");
                     28:
1.2       takayama   29:
                     30: asir_gr:=proc(f,v,ord)
                     31:    local sf,sv,sord;
                     32:    sf := sprintf("%a",f);
                     33:    sv := sprintf("%a",v);
                     34:    sord := sprintf("%a",ord);
                     35:    ox_execute_string(cat("gr(",sf,",",sv,",",sord,");"));
                     36:    RETURN(parse(ox_pop_string()));
                     37: end :
                     38:
                     39: # asir_gr([x^2+y^2-4,x*y-1],[x,y],2);
1.1       takayama   40: