OpenXM/src/ox_maple/simple.ml - view

Return to simple.ml CVS log

Up to [local] / OpenXM / src / ox_maple

File: [local] / OpenXM / src / ox_maple / simple.ml (download)

Revision 1.1, Mon Jun 21 12:46:04 2004 UTC (19 years, 11 months ago) by takayama
Branch: MAIN

A sample implementation of calling ox servers from maple.
It uses ox_toolkit.

# $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],
   'LIB'="libsimple.so");

ox_push_int:=define_external(
   'ml_push_int',
   'num1'::integer[4],
   'RETURN'::integer[4],
   'LIB'="libsimple.so");

ox_execute_string:=define_external(
   'ml_execute_string',
   'num1'::string[],
   'RETURN'::integer[4],
   'LIB'="libsimple.so");

ox_pop_string:=define_external(
   'ml_pop_string',
   'RETURN'::string[],
   'LIB'="libsimple.so");