Return to simple.ml CVS log

Up to [local] / OpenXM / src / ox_maple

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

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