version 1.29, 2006/02/04 02:56:49 |
version 1.30, 2006/03/03 02:30:09 |
|
|
/* $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.29 2006/02/04 02:56:49 takayama Exp $ */ |
|
|
#include <stdio.h> |
#include <stdio.h> |
#include <stdlib.h> |
#include <stdlib.h> |
Line 496 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 506 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 "); |