[BACK]Return to simple.ml CVS log [TXT][DIR] Up to [local] / OpenXM / src / ox_maple

Diff for /OpenXM/src/ox_maple/simple.ml between version 1.1 and 1.3

version 1.1, 2004/06/21 12:46:04 version 1.3, 2009/03/16 14:25:57
Line 1 
Line 1 
 # $OpenXM$  # $OpenXM: OpenXM/src/ox_maple/simple.ml,v 1.2 2004/06/21 13:10:40 takayama Exp $
   ox_start_maple:=define_external(
      'ml_start_maple',
      'RETURN'::integer[4],
      'LIB'="libsimple.so");
   
 ox_start_sm1:=define_external(  ox_start_sm1:=define_external(
    'ml_start_asir',     'ml_start_asir',
    'RETURN'::integer[4],     'RETURN'::integer[4],
Line 21  ox_pop_string:=define_external(
Line 26  ox_pop_string:=define_external(
    'RETURN'::string[],     'RETURN'::string[],
    'LIB'="libsimple.so");     '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);
   

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>