version 1.17, 2004/03/11 03:32:46 |
version 1.21, 2005/06/16 05:07:24 |
|
|
/* $OpenXM: OpenXM/src/kxx/ox_texmacs.c,v 1.16 2004/03/09 07:10:46 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kxx/ox_texmacs.c,v 1.20 2004/09/17 02:42:58 takayama Exp $ */ |
|
|
#include <stdio.h> |
#include <stdio.h> |
#include <setjmp.h> |
#include <setjmp.h> |
|
|
|
|
extern int Quiet; |
extern int Quiet; |
extern JMP_BUF EnvOfStackMachine; |
extern JMP_BUF EnvOfStackMachine; |
|
extern int Calling_ctrlC_hook; |
|
extern int RestrictedMode, RestrictedMode_saved; |
int Format=1; /* 1 : latex mode */ |
int Format=1; /* 1 : latex mode */ |
int OutputLimit_for_TeXmacs = (1024*10); |
int OutputLimit_for_TeXmacs = (1024*10); |
|
|
Line 81 main(int argc,char *argv[]) { |
|
Line 83 main(int argc,char *argv[]) { |
|
char *s; |
char *s; |
char *r; |
char *r; |
char *sys; |
char *sys; |
struct object ob; |
struct object ob = OINIT; |
int irt=0; |
int irt=0; |
int vmode=1; |
int vmode=1; |
char *openxm_home; |
char *openxm_home; |
Line 142 main(int argc,char *argv[]) { |
|
Line 144 main(int argc,char *argv[]) { |
|
while(1) { |
while(1) { |
/* printp(sys); no prompt */ |
/* printp(sys); no prompt */ |
if (SETJMP(EnvOfStackMachine)) { |
if (SETJMP(EnvOfStackMachine)) { |
KSexecuteString(" ctrlC-hook "); /* Execute User Defined functions. */ |
if (!Calling_ctrlC_hook) { |
|
Calling_ctrlC_hook = 1; RestrictedMode = 0; |
|
KSexecuteString(" ctrlC-hook "); /* Execute User Defined functions. */ |
|
RestrictedMode = RestrictedMode_saved; |
|
} |
|
Calling_ctrlC_hook = 0; |
if (signal(SIGINT,SIG_IGN) != SIG_IGN) { |
if (signal(SIGINT,SIG_IGN) != SIG_IGN) { |
signal(SIGINT,ctrlC); |
signal(SIGINT,ctrlC); |
} |
} |
Line 243 static char *readString(FILE *fp, char *prolog, char * |
|
Line 250 static char *readString(FILE *fp, char *prolog, char * |
|
int i; |
int i; |
int m; |
int m; |
int start; |
int start; |
struct object ob; |
struct object ob = OINIT; |
if (limit == 0) { |
if (limit == 0) { |
limit = 1024; |
limit = 1024; |
s = (char *)sGC_malloc(limit); |
s = (char *)sGC_malloc(limit); |
Line 263 static char *readString(FILE *fp, char *prolog, char * |
|
Line 270 static char *readString(FILE *fp, char *prolog, char * |
|
fprintf(Dfp,"[%x] ",c); fflush(Dfp); |
fprintf(Dfp,"[%x] ",c); fflush(Dfp); |
#endif |
#endif |
if (c == END_OF_INPUT) { |
if (c == END_OF_INPUT) { |
|
/* If there remains data in the stream, |
|
read the remaining data. */ |
|
/* |
if (oxSocketSelect0(0,1)) { |
if (oxSocketSelect0(0,1)) { |
/* If there remains data in the stream, |
|
read the remaining data. */ |
|
if (c == '\n') c=' '; |
if (c == '\n') c=' '; |
s[n++] = c; s[n] = 0; m++; |
s[n++] = c; s[n] = 0; m++; |
INC_BUF ; |
INC_BUF ; |
continue; |
continue; |
} |
} |
|
*/ |
break; |
break; |
} |
} |
if (c == '\n') c=' '; |
if ( c == '\v') c=' '; |
s[n++] = c; s[n] = 0; m++; |
s[n++] = c; s[n] = 0; m++; |
INC_BUF ; |
INC_BUF ; |
} |
} |
Line 379 static void printCopyright(char *s) { |
|
Line 388 static void printCopyright(char *s) { |
|
} |
} |
|
|
static int startEngine(int type,char *msg) { |
static int startEngine(int type,char *msg) { |
struct object ob; |
struct object ob = OINIT; |
printf("%s",DATA_BEGIN_V); |
printf("%s",DATA_BEGIN_V); |
if (type == SM1) { |
if (type == SM1) { |
if (!TM_sm1Started) KSexecuteString(" sm1connectr "); |
if (!TM_sm1Started) KSexecuteString(" sm1connectr "); |