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

Diff for /OpenXM/src/oxc/sm_ext.c between version 1.4 and 1.7

version 1.4, 2000/11/28 04:52:05 version 1.7, 2000/12/01 01:53:34
Line 1 
Line 1 
 /* -*- mode: C; coding: euc-japan -*- */  /* -*- mode: C; coding: euc-japan -*- */
 /* $OpenXM: OpenXM/src/oxc/sm_ext.c,v 1.3 2000/11/28 04:02:56 ohara Exp $ */  /* $OpenXM: OpenXM/src/oxc/sm_ext.c,v 1.6 2000/11/30 10:27:02 ohara Exp $ */
   
 #include <stdio.h>  #include <stdio.h>
 #include <stdlib.h>  #include <stdlib.h>
 #include <unistd.h>  #include <unistd.h>
 #include <string.h>  #include <string.h>
   #include <sys/types.h>
 #include <signal.h>  #include <signal.h>
 #include <ox_toolkit.h>  #include <ox_toolkit.h>
 #include "sm.h"  #include "sm.h"
   
 /* ultra loose data base. */  /* ultra loose data base. */
 static db db_localfunc[] = {  static db db_localfunc[] = {
     {lf_oxc_open, "oxc_open"},      {lf_oxc_open, "spawn"},
     {NULL, NULL}      {NULL, NULL}
 };  };
   
 static db db_sm[] = {  static db db_sm[] = {
       {sm_control_spawn,     SM_control_spawn_server},
       {sm_control_terminate, SM_control_terminate_server},
     {sm_executeFunction, SM_executeFunction},      {sm_executeFunction, SM_executeFunction},
     {sm_mathcap,         SM_mathcap},      {sm_mathcap,         SM_mathcap},
     {sm_set_mathcap,     SM_setMathCap},      {sm_set_mathcap,     SM_setMathCap},
     {sm_popCMO,          SM_popCMO},      {sm_popCMO,          SM_popCMO},
     {sm_pops,            SM_pops},      {sm_pops,            SM_pops},
           {sm_control_reset_pid, SM_control_reset_connection_server},
           {sm_control_kill, SM_control_kill},
     {NULL, NULL}      {NULL, NULL}
 };  };
   
   extern OXFILE *stack_oxfp;
   
 __inline__  __inline__
 static int (*db_search(void *key, db *dbs, int (*cmp)(void *, void *)))()  static int (*db_search(void *key, db *dbs, int (*cmp)(void *, void *)))()
 {  {
Line 46  Normally local functions push a return value to the st
Line 53  Normally local functions push a return value to the st
 but, if error occurs, then these return non-positive numbers and  but, if error occurs, then these return non-positive numbers and
 the sm_executeFunction push an error object.  the sm_executeFunction push an error object.
 */  */
 void sm_executeFunction(OXFILE *oxfp)  void sm_executeFunction()
 {  {
     int (*func)(OXFILE *);      int (*func)();
     int retcode = 0;      int retcode = 0;
     cmo *ob = pop();      cmo *ob = pop();
     if (ob->tag == CMO_STRING) {      if (ob->tag == CMO_STRING) {
         func = lookup_localfunction(((cmo_string *)ob)->s);          func = lookup_localfunction(((cmo_string *)ob)->s);
         if (func != NULL) {          if (func != NULL) {
             if ((retcode = func(oxfp)) > 0) {              if ((retcode = func()) > 0) {
                 return;                  return;
             }              }
         }          }
Line 82  static int getargs(cmo ***args)
Line 89  static int getargs(cmo ***args)
     return argc;      return argc;
 }  }
   
 static int pids[1024] = {0};  #define MAX_PROCESS 1024
   
   /* Process Table */
   static pid_t *pids = NULL;
 static int pid_ptr = 0;  static int pid_ptr = 0;
   static int pid_size = 0;
   
 int pid_lookup(int pid)  static void pids_extend()
 {  {
       int size2 = pid_size + MAX_PROCESS;
       pid_t *pids2 = (pid_t *)malloc(sizeof(pid_t)*size2);
       if (pids != NULL) {
           memcpy(pids2, pids, sizeof(pid_t)*pid_size);
           free(pids);
       }
       pid_size = size2;
       pids = pids2;
   }
   
   int pid_lookup(pid_t pid)
   {
     int i;      int i;
     for(i=0; i<pid_ptr; i++) {      for(i=0; i<pid_ptr; i++) {
         if (pids[i] == pid) {          if (pids[i] == pid) {
Line 96  int pid_lookup(int pid)
Line 119  int pid_lookup(int pid)
     return -1;      return -1;
 }  }
   
 int pid_registed(int pid)  int pid_registed(pid_t pid)
 {  {
     return pid_lookup(pid)+1;      return pid_lookup(pid)+1;
 }  }
   
 int pid_regist(int pid)  void pid_regist(pid_t pid)
 {  {
     if (pid_ptr < 1024) {      if (pid_ptr >= pid_size) {
         pids[pid_ptr++] = pid;                  pids_extend();
         return pid;  
     }      }
     return 0;          pids[pid_ptr++] = pid;
 }  }
   
 void pid_delete(int pid)  void pid_delete(pid_t pid)
 {  {
     int i = pid_lookup(pid);      int i = pid_lookup(pid);
     if (i >= 0 && i != --pid_ptr) {      if (i >= 0 && i != --pid_ptr) {
Line 118  void pid_delete(int pid)
Line 140  void pid_delete(int pid)
     }      }
 }  }
   
 int lf_oxc_open()  int pid_reset(pid_t pid)
 {  {
     cmo **argv;          if (pid_registed(pid)) {
     char *cmd;                  kill(pid, SIGUSR1);
     int port;                  return 1;
     int pid;          }
           return 0;
   }
   
     if (getargs(&argv) != 2 || argv[0]->tag != CMO_STRING  int pid_kill(pid_t pid)
         || argv[1]->tag != CMO_INT32) {  {
         fprintf(stderr, "oxc: invalid arguments\n");          if (pid_registed(pid)) {
         return -1;                  kill(pid, SIGKILL);
     }                  pid_delete(pid);
                   return 1;
           }
           return 0;
   }
   
     cmd  = ((cmo_string *)argv[0])->s;  /* Killing all child processes */
     port = ((cmo_int32 *)argv[1])->i;  void pid_kill_all()
     pid = lf_oxc_open_main(cmd, port);  {
           while(pid_ptr > 0) {
           kill(pids[--pid_ptr], SIGKILL);
           }
   }
   
   cmo_error2 *type_checker(cmo *ob, int type)
   {
   /*      cmo_error2 *err_ob; */
           if (ob->tag != type) {
                   /* push and return an error object */
           }
           return NULL;
   }
   
   int sm_control_spawn_main(int argc, cmo *argv[])
   {
       char *cmd = ((cmo_string *)argv[0])->s;
       int  port = ((cmo_int32 *)argv[1])->i;
       pid_t pid = lf_oxc_open_main(cmd, port);
     if (pid > 0) {      if (pid > 0) {
         push(new_cmo_int32(pid));          push(new_cmo_int32(pid));
         pid_regist(pid);          pid_regist(pid);
Line 141  int lf_oxc_open()
Line 188  int lf_oxc_open()
     return pid;      return pid;
 }  }
   
 void sm_mathcap(OXFILE *oxfp)  int lf_oxc_open()
 {  {
     push((cmo *)oxf_cmo_mathcap(oxfp));      cmo **argv;
           if (getargs(&argv) != 2 ||
                   type_checker(argv[0], CMO_STRING) != NULL
                   || type_checker(argv[0], CMO_INT32) != NULL) {
           fprintf(stderr, "oxc: invalid arguments\n");
           return -1;
       }
           return sm_control_spawn_main(2, argv);
 }  }
   
 void sm_set_mathcap(OXFILE *oxfp)  int sm_control_spawn()
 {  {
       cmo *argv[2];
           argv[0] = pop();
           argv[1] = pop();
   
           if (type_checker(argv[0], CMO_STRING) != NULL
                   || type_checker(argv[0], CMO_INT32) != NULL) {
           fprintf(stderr, "oxc: invalid arguments\n");
           return -1;
       }
           return sm_control_spawn_main(2, argv);
   }
   
   void sm_mathcap()
   {
       push((cmo *)oxf_cmo_mathcap(stack_oxfp));
   }
   
   void sm_set_mathcap()
   {
     cmo_mathcap *m = (cmo_mathcap *)pop();      cmo_mathcap *m = (cmo_mathcap *)pop();
     if (m->tag == CMO_MATHCAP) {      if (m->tag == CMO_MATHCAP) {
         oxf_mathcap_update(oxfp, m);          oxf_mathcap_update(stack_oxfp, m);
     }else {      }else {
         push_error(-1, m);          push_error(-1, m);
         /* an error object must be pushed */          /* an error object must be pushed */
     }      }
 }  }
   
 void sm_control_kill(OXFILE *oxfp)  void sm_control_kill()
 {  {
           pid_kill_all();
   }
   
   void sm_control_terminate()
   {
     cmo_int32 *m = (cmo_int32 *)pop();      cmo_int32 *m = (cmo_int32 *)pop();
     int pid = m->i;      pid_t pid = m->i;
     if (m->tag != CMO_INT32 || !pid_registed(pid)) {      if (m->tag != CMO_INT32 || !pid_kill(pid)) {
         push_error(-1, m);          push_error(-1, m);
     }else {  
         kill(pid, SIGKILL);  
         pid_delete(pid);  
     }      }
 }  }
   
 void sm_control_reset(OXFILE *oxfp)  void sm_control_reset_pid()
 {  {
     cmo_int32 *m = (cmo_int32 *)pop();      cmo_int32 *m = (cmo_int32 *)pop();
     int pid = m->i;      pid_t pid = m->i;
     if (m->tag != CMO_INT32 || !pid_registed(pid)) {      if (m->tag != CMO_INT32 || !pid_reset(pid)) {
         push_error(-1, m);          push_error(-1, m);
     }else {                  return;
         kill(pid, SIGUSR1);  
     }      }
           /* ... */
 }  }
   
 void sm_control_spawn_server(OXFILE *oxfp);  
 void sm_control_terminate_server(OXFILE *oxfp);  
   
 static int intcmp(int key1, int key2)  static int intcmp(int key1, int key2)
 {  {
     return key1 != key2;      return key1 != key2;
 }  }
   
   
 int (*sm_search_f(int code))()  int (*sm_search_f(int code))()
 {  {
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>