version 1.30, 2006/03/03 02:30:09 |
version 1.32, 2006/03/03 10:55:33 |
|
|
/* $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.31 2006/03/03 02:47:28 takayama Exp $ */ |
|
|
#include <stdio.h> |
#include <stdio.h> |
#include <stdlib.h> |
#include <stdlib.h> |
Line 87 int NoCopyright = 0; |
|
Line 87 int NoCopyright = 0; |
|
int Cpp = 0; /* Use cpp before sending to the engine. */ |
int Cpp = 0; /* Use cpp before sending to the engine. */ |
int EngineLogToStdout = 0; /* Do not run the ox engine inside xterm. */ |
int EngineLogToStdout = 0; /* Do not run the ox engine inside xterm. */ |
|
|
|
unsigned char *AsirInitFile = NULL; |
|
|
char *LanguageResource = NULL; |
char *LanguageResource = NULL; |
|
|
void ctrlC(); |
void ctrlC(); |
Line 110 static void myEncoderSn(unsigned char *s,int n); |
|
Line 112 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 167 main(int argc,char *argv[]) { |
|
Line 171 main(int argc,char *argv[]) { |
|
LanguageResource = (char *)sGC_malloc(strlen(argv[i])+80); |
LanguageResource = (char *)sGC_malloc(strlen(argv[i])+80); |
sprintf(LanguageResource, |
sprintf(LanguageResource, |
" /localizedString.file (%s) def localizedString.load ",argv[i]); |
" /localizedString.file (%s) def localizedString.load ",argv[i]); |
|
}else if (strcmp(argv[i],"--asirInitFile") == 0) { |
|
i++; |
|
AsirInitFile = (unsigned char *)sGC_malloc(strlen(argv[i])+80); |
|
sprintf(AsirInitFile,"%s",argv[i]); |
}else{ |
}else{ |
/* printv("Unknown option\n"); */ |
/* printv("Unknown option\n"); */ |
} |
} |
Line 242 main(int argc,char *argv[]) { |
|
Line 250 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 416 static char *readString(FILE *fp, char *prolog, char * |
|
Line 426 static char *readString(FILE *fp, char *prolog, char * |
|
return NULL; |
return NULL; |
} |
} |
|
|
|
/* remove end$ or end; */ |
|
if (TM_Engine == ASIR) { |
|
for (i=n-1; i>=4; i--) { |
|
if ((s[i-4]=='\n') && (s[i-3]=='e') && (s[i-2]=='n') && (s[i-1]=='d') && (s[i]=='$')) { |
|
s[i-3] = s[i-2] = s[i-1] = s[i] = ' '; break; |
|
} |
|
if ((s[i-4]=='\n') && (s[i-3]=='e') && (s[i-2]=='n') && (s[i-1]=='d') && (s[i]==';')) { |
|
s[i-3] = s[i-2] = s[i-1] = s[i] = ' '; break; |
|
} |
|
} |
|
} |
|
|
/* Set TM_do_no_print */ |
/* Set TM_do_no_print */ |
if (s[n-1] == '$' && TM_Engine == ASIR) { |
if (s[n-1] == '$' && TM_Engine == ASIR) { |
TM_do_not_print = 1; s[n-1] = ' '; |
TM_do_not_print = 1; s[n-1] = ' '; |
Line 487 static void printCopyright(char *s) { |
|
Line 509 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 521 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) { |
Line 531 static int startEngine(int type,char *msg) { |
|
Line 557 static int startEngine(int type,char *msg) { |
|
} |
} |
} |
} |
/* Initialize the setting of asir. */ |
/* Initialize the setting of asir. */ |
|
if (AsirInitFile) { /* cf. asir-contrib/packages/src/cfep-init.rr */ |
|
unsigned char *ss; |
|
ss = (unsigned char *)GC_malloc(strlen(AsirInitFile)+256); |
|
sprintf(ss," oxasir.ccc (load(\"%s\");) oxsubmit oxasir.ccc oxgeterrors length 0 gt { (Error in loading asirInitFile) message} { } ifelse ",AsirInitFile); |
|
/* printf("Loading --asirInitFile %s\n",AsirInitFile); */ |
|
KSexecuteString(ss); |
|
} |
KSexecuteString(" oxasir.ccc (if(1) { Xm_server_mode = 1; Xm_helpdir = \"help-eg\"; } else { ; } ;) oxsubmit oxasir.ccc oxpopcmo "); |
KSexecuteString(" oxasir.ccc (if(1) { Xm_server_mode = 1; Xm_helpdir = \"help-eg\"; } else { ; } ;) oxsubmit oxasir.ccc oxpopcmo "); |
KSexecuteString(" oxasir.ccc (if(1) { ctrl(\"message\",0); } else { ; } ;) oxsubmit oxasir.ccc oxpopcmo "); |
KSexecuteString(" oxasir.ccc (if(1) { ctrl(\"message\",0); } else { ; } ;) oxsubmit oxasir.ccc oxpopcmo "); |
/* bug; if ctrl is written with Xm_helpdir = ... without oxpopcmo, then it does |
/* bug; if ctrl is written with Xm_helpdir = ... without oxpopcmo, then it does |