| version 1.1, 2004/06/21 12:46:04 | 
version 1.2, 2009/03/16 14:25:57 | 
 | 
 | 
|  /* -*- mode: C -*- */ | 
 /* -*- mode: C -*- */ | 
|  /* $OpenXM$ */ | 
 /* $OpenXM: OpenXM/src/ox_maple/simple.c,v 1.1 2004/06/21 12:46:04 takayama Exp $ */ | 
|   | 
  | 
|  /* A sample implementation for maple | 
 /* A sample implementation for maple | 
|     of an OpenXM client with OpenXM C library */ | 
    of an OpenXM client with OpenXM C library */ | 
| Line 33  int ml_start_asir() | 
 
  | 
| Line 33  int ml_start_asir() | 
 
 
 | 
|      } | 
     } | 
|          return 0; | 
         return 0; | 
|  } | 
 } | 
|   | 
  | 
|   | 
 int ml_start_maple() | 
|   | 
 { | 
|   | 
     char *server = "ox_maple"; | 
|   | 
  | 
|   | 
         ml_init(); | 
|   | 
  | 
|   | 
     sv = ox_start("localhost", "ox", server); | 
|   | 
     if (sv == NULL) { | 
|   | 
         ox_printf("simple:: I cannot connect to servers.\n"); | 
|   | 
         return -1; | 
|   | 
     } | 
|   | 
         return 0; | 
|   | 
 } | 
|   | 
  | 
|   | 
  | 
|   | 
  | 
|   | 
  | 
|  int ml_push_int(int i) { | 
 int ml_push_int(int i) { | 
|    if (sv == NULL) ml_start_asir(); | 
   if (sv == NULL) ml_start_asir(); |