version 1.30, 2006/03/03 02:30:09 |
version 1.31, 2006/03/03 02:47:28 |
|
|
/* $OpenXM: OpenXM/src/kxx/ox_texmacs.c,v 1.29 2006/02/04 02:56:49 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 496 static int startEngine(int type,char *msg) { |
|
Line 503 static int startEngine(int type,char *msg) { |
|
/* Initialize the setting of sm1. */ |
/* Initialize the setting of sm1. */ |
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 [(flush)] extension pop "); |
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) { |