version 1.28, 2006/02/02 07:07:22 |
version 1.30, 2006/03/03 02:30:09 |
|
|
/* $OpenXM: OpenXM/src/kxx/ox_texmacs.c,v 1.27 2006/02/01 04:16:54 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kxx/ox_texmacs.c,v 1.29 2006/02/04 02:56:49 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. */ |
|
|
|
char *LanguageResource = NULL; |
|
|
void ctrlC(); |
void ctrlC(); |
struct object KpoString(char *s); |
struct object KpoString(char *s); |
char *KSpopString(void); |
char *KSpopString(void); |
Line 160 main(int argc,char *argv[]) { |
|
Line 162 main(int argc,char *argv[]) { |
|
Cpp = 1; |
Cpp = 1; |
}else if (strcmp(argv[i],"--engineLogToStdout") == 0) { |
}else if (strcmp(argv[i],"--engineLogToStdout") == 0) { |
EngineLogToStdout = 1; |
EngineLogToStdout = 1; |
|
}else if (strcmp(argv[i],"--languageResource") == 0) { |
|
i++; |
|
LanguageResource = (char *)sGC_malloc(strlen(argv[i])+80); |
|
sprintf(LanguageResource, |
|
" /localizedString.file (%s) def localizedString.load ",argv[i]); |
}else{ |
}else{ |
/* printv("Unknown option\n"); */ |
/* printv("Unknown option\n"); */ |
} |
} |
Line 190 main(int argc,char *argv[]) { |
|
Line 197 main(int argc,char *argv[]) { |
|
KSexecuteString(" [(parse) (ox.sm1) pushfile] extension "); |
KSexecuteString(" [(parse) (ox.sm1) pushfile] extension "); |
if (Xm_noX) KSexecuteString(" /Xm_noX 1 def "); |
if (Xm_noX) KSexecuteString(" /Xm_noX 1 def "); |
if (EngineLogToStdout) KSexecuteString(" /Xm_engineLogToStdout 1 def "); |
if (EngineLogToStdout) KSexecuteString(" /Xm_engineLogToStdout 1 def "); |
|
if (LanguageResource != NULL) KSexecuteString(LanguageResource); |
startEngine(TM_Engine," "); |
startEngine(TM_Engine," "); |
|
|
if (signal(SIGINT,SIG_IGN) != SIG_IGN) { |
if (signal(SIGINT,SIG_IGN) != SIG_IGN) { |
Line 488 static int startEngine(int type,char *msg) { |
|
Line 496 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 "); |
KSexecuteString(" oxsm1.ccc ( ( ) message (------------- Message from sm1 ----------------)message ) oxsubmit [(flush)] extension pop "); |
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 498 static int startEngine(int type,char *msg) { |
|
Line 506 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 "); |