Return to math2ox.c CVS log

Up to [local] / OpenXM / src / ox_math

Annotation of OpenXM/src/ox_math/math2ox.c, Revision 1.1

1.1     ! ohara       1: /* -*- mode: C; coding: euc-japan -*- */
        !             2: /* $OpenXM$ */
        !             3: /* $Id: math2ox.c,v 1.3 1999/10/13 07:38:23 ohara Exp $ */
        !             4:
        !             5: #include <sys/types.h>
        !             6: #include <sys/stat.h>
        !             7: #include <fcntl.h>
        !             8:
        !             9: #include <stdio.h>
        !            10: #include <stdlib.h>
        !            11: #include <mathlink.h>
        !            12: #include <unistd.h>
        !            13: #include <signal.h>
        !            14:
        !            15: #include "ox.h"
        !            16:
        !            17: static char *host    = "localhost";
        !            18: static char *ctlserv = "ox";
        !            19: static char *oxprog  = "ox_sm1";
        !            20:
        !            21: ox_file_t sv;
        !            22:
        !            23: /* Mathematica から直接呼び出される関数の定義. */
        !            24: /* 呼び出しの方法は math2ox.tm で定義される.   */
        !            25: int OX_executeStringByLocalParser(const char *str)
        !            26: {
        !            27:     ox_executeStringByLocalParser(sv, str);
        !            28:     return 0;
        !            29: }
        !            30:
        !            31: char *OX_popString()
        !            32: {
        !            33:     return ox_popString(sv, sv->stream);
        !            34: }
        !            35:
        !            36: int OX_close()
        !            37: {
        !            38:     ox_close(sv);
        !            39:     return 0;
        !            40: }
        !            41:
        !            42: int OX_reset()
        !            43: {
        !            44:     ox_reset(sv);
        !            45:     return 0;
        !            46: }
        !            47:
        !            48:
        !            49: int OX_start(char* s)
        !            50: {
        !            51:     if (s != NULL && s[0] != '\0') {
        !            52:         oxprog = s;
        !            53:     }
        !            54:     sv = ox_start(host, ctlserv, oxprog);
        !            55:     fprintf(stderr, "open (%s)\n", "localhost");
        !            56:     return 0;
        !            57: }
        !            58:
        !            59: static char *cp_str(char *src)
        !            60: {
        !            61:     char *dest = malloc(strlen(src)+1);
        !            62:     strcpy(dest, src);
        !            63:     return dest;
        !            64: }
        !            65:
        !            66: int OX_setClientParam(char *h, char* c, char* p)
        !            67: {
        !            68:     host    = cp_str(h);
        !            69:     ctlserv = cp_str(c);
        !            70:     oxprog  = cp_str(p);
        !            71:     return 0;
        !            72: }
        !            73:
        !            74: int main(int argc, char *argv[])
        !            75: {
        !            76:     MLMain(argc, argv);
        !            77: }