version 1.29, 2006/02/04 02:56:49 |
version 1.31, 2006/03/03 02:47:28 |
|
|
/* $OpenXM: OpenXM/src/kxx/ox_texmacs.c,v 1.28 2006/02/02 07:07:22 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kxx/ox_texmacs.c,v 1.30 2006/03/03 02:30:09 takayama Exp $ */ |
|
|
#include <stdio.h> |
#include <stdio.h> |
#include <stdlib.h> |
#include <stdlib.h> |
Line 110 static void myEncoderSn(unsigned char *s,int n); |
|
Line 110 static void myEncoderSn(unsigned char *s,int n); |
|
static void outputStringToTunnel0(int channel, unsigned char *s, int size, int view); |
static void outputStringToTunnel0(int channel, unsigned char *s, int size, int view); |
static void outputStringToTunnel(int channel, unsigned char *s, int view); |
static void outputStringToTunnel(int channel, unsigned char *s, int view); |
|
|
|
static void flushSm1(); |
|
|
/* tail -f /tmp/debug-texmacs.txt |
/* tail -f /tmp/debug-texmacs.txt |
Debug output to understand the timing problem of pipe interface. |
Debug output to understand the timing problem of pipe interface. |
*/ |
*/ |
Line 242 main(int argc,char *argv[]) { |
|
Line 244 main(int argc,char *argv[]) { |
|
ob = KpoString(s); |
ob = KpoString(s); |
KSpush(ob); |
KSpush(ob); |
KSexecuteString(" oxsubmit "); |
KSexecuteString(" oxsubmit "); |
|
|
|
if (TM_Engine == SM1) flushSm1(); |
|
|
/* Get the result in string for cfep. */ |
/* Get the result in string for cfep. */ |
if (View != V_TEXMACS) { |
if (View != V_TEXMACS) { |
Line 487 static void printCopyright(char *s) { |
|
Line 491 static void printCopyright(char *s) { |
|
fflush(NULL); |
fflush(NULL); |
} |
} |
|
|
|
static void flushSm1() { |
|
KSexecuteString(" oxsm1.ccc ( [(flush)] extension pop ) oxsubmit "); |
|
} |
static int startEngine(int type,char *msg) { |
static int startEngine(int type,char *msg) { |
struct object ob = OINIT; |
struct object ob = OINIT; |
printf("%s",Data_begin_v[View]); |
printf("%s",Data_begin_v[View]); |
Line 497 static int startEngine(int type,char *msg) { |
|
Line 504 static int startEngine(int type,char *msg) { |
|
KSexecuteString(" oxsm1.ccc ( [(cmoLispLike) 0] extension ) oxsubmit "); |
KSexecuteString(" oxsm1.ccc ( [(cmoLispLike) 0] extension ) oxsubmit "); |
KSexecuteString(" oxsm1.ccc ( ox_server_mode ) oxsubmit "); |
KSexecuteString(" oxsm1.ccc ( ox_server_mode ) oxsubmit "); |
KSexecuteString(" oxsm1.ccc ( ( ) message (------------- Message from sm1 ----------------)message ) oxsubmit "); |
KSexecuteString(" oxsm1.ccc ( ( ) message (------------- Message from sm1 ----------------)message ) oxsubmit "); |
|
flushSm1(); |
TM_sm1Started = 1; |
TM_sm1Started = 1; |
/* Welcome message. BUG. Copyright should be returned by a function. */ |
/* Welcome message. BUG. Copyright should be returned by a function. */ |
if (! NoCopyright) { |
if (! NoCopyright) { |
Line 506 static int startEngine(int type,char *msg) { |
|
Line 514 static int startEngine(int type,char *msg) { |
|
printf("Info: http://www.math.kobe-u.ac.jp/KAN, kan@math.kobe-u.ac.jp.\n"); |
printf("Info: http://www.math.kobe-u.ac.jp/KAN, kan@math.kobe-u.ac.jp.\n"); |
printf("0 usages to show a list of functions. \n(keyword) usages to see a short description\n"); |
printf("0 usages to show a list of functions. \n(keyword) usages to see a short description\n"); |
} |
} |
printf("%s\n",msg); |
printf("%s\n",msg); fflush(NULL); |
}else if (type == K0) { |
}else if (type == K0) { |
if (!TM_k0Started) KSexecuteString(" k0connectr "); |
if (!TM_k0Started) KSexecuteString(" k0connectr "); |
KSexecuteString(" /ox.engine oxk0.ccc def "); |
KSexecuteString(" /ox.engine oxk0.ccc def "); |