[BACK]Return to serv2.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / ox_math

Diff for /OpenXM/src/ox_math/Attic/serv2.c between version 1.7 and 1.8

version 1.7, 1999/11/07 12:12:56 version 1.8, 1999/11/18 21:56:44
Line 1 
Line 1 
 /* -*- mode: C; coding: euc-japan -*- */  /* -*- mode: C; coding: euc-japan -*- */
 /* $OpenXM: OpenXM/src/ox_math/serv2.c,v 1.6 1999/11/06 21:39:37 ohara Exp $ */  /* $OpenXM: OpenXM/src/ox_math/serv2.c,v 1.7 1999/11/07 12:12:56 ohara Exp $ */
   
 /* Open Mathematica サーバ */  /* Open Mathematica サーバ */
 /* ファイルディスクリプタ 3, 4 は open されていると仮定して動作する. */  /* ファイルディスクリプタ 3, 4 は open されていると仮定して動作する. */
Line 15 
Line 15 
 #include "parse.h"  #include "parse.h"
 #include "serv2.h"  #include "serv2.h"
   
   #define FLAG_MLTKSYM_IS_INDETERMINATE   0
   #define FLAG_MLTKSYM_IS_STRING          1
   
   int flag_mlo_symbol = FLAG_MLTKSYM_IS_INDETERMINATE;
   
 #define ERROR_ID_UNKNOWN_SM 10  #define ERROR_ID_UNKNOWN_SM 10
 #define ERROR_ID_FAILURE_MLINK         11  #define ERROR_ID_FAILURE_MLINK         11
   
Line 88  cmo *receive_mlo_symbol()
Line 93  cmo *receive_mlo_symbol()
     cmo *ob;      cmo *ob;
     char *s;      char *s;
   
     fprintf(stderr, "--debug: MLO == MLTKSYM.\n");      fprintf(stderr, "--debug: MLO == MLTKSYM");
     MLGetSymbol(lp, &s);      MLGetSymbol(lp, &s);
     fprintf(stderr, "--debug: Symbol \"%s\".\n", s);      fprintf(stderr, ": Symbol = \"%s\".\n", s);
   
     ob = new_cmo_indeterminate(new_cmo_string(s));          if(flag_mlo_symbol == FLAG_MLTKSYM_IS_INDETERMINATE) {
                   ob = new_cmo_indeterminate(new_cmo_string(s));
           }else {
                   ob = new_cmo_string(s);
           }
     MLDisownString(lp, s);      MLDisownString(lp, s);
     return ob;      return ob;
 }  }
Line 341  int sm_popString(int fd_write)
Line 349  int sm_popString(int fd_write)
   
 int local_execute(char *s)  int local_execute(char *s)
 {  {
           if(*s == 'i') {
                   switch(s[1]) {
                   case '+':
                           flag_mlo_symbol = FLAG_MLTKSYM_IS_STRING;
                           break;
                   case '-':
                   case '=':
                   default:
                           flag_mlo_symbol = FLAG_MLTKSYM_IS_INDETERMINATE;
                   }
           }
     return 0;      return 0;
 }  }
   
Line 357  int sm_executeStringByLocalParser(int fd_write)
Line 376  int sm_executeStringByLocalParser(int fd_write)
     if (m->tag == CMO_STRING      if (m->tag == CMO_STRING
         && strlen(s = ((cmo_string *)m)->s) != 0) {          && strlen(s = ((cmo_string *)m)->s) != 0) {
         if (s[0] == ':') {          if (s[0] == ':') {
             local_execute(s);              local_execute(++s);
         }else {          }else {
             /* for mathematica */              /* for mathematica */
             /* mathematica に文字列を送って評価させる */              /* mathematica に文字列を送って評価させる */
Line 420  int receive_sm_command(int fd_read)
Line 439  int receive_sm_command(int fd_read)
 int execute_sm_command(int fd_write, int code)  int execute_sm_command(int fd_write, int code)
 {  {
     int err = 0;      int err = 0;
   #ifdef DEBUG
           symbol *sp = lookup_by_tag(code);
           fprintf(stderr, "ox_math:: %s received.\n", sp->key);
   #endif
   
     switch(code) {      switch(code) {
     case SM_popCMO:      case SM_popCMO:
Line 442  int execute_sm_command(int fd_write, int code)
Line 465  int execute_sm_command(int fd_write, int code)
         break;          break;
     case SM_setMathCap:      case SM_setMathCap:
         pop();  /* 無視する */          pop();  /* 無視する */
           break;
       case SM_shutdown:
           shutdown();
         break;          break;
     default:      default:
         fprintf(stderr, "unknown command: %d.\n", code);          fprintf(stderr, "unknown command: %d.\n", code);
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>