version 1.34, 2006/03/22 00:52:55 |
version 1.38, 2015/10/10 11:29:46 |
|
|
/* $OpenXM: OpenXM/src/kxx/ox_texmacs.c,v 1.33 2006/03/06 08:55:31 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kxx/ox_texmacs.c,v 1.37 2015/10/08 11:49:38 takayama Exp $ */ |
|
|
#include <stdio.h> |
#include <stdio.h> |
#include <stdlib.h> |
#include <stdlib.h> |
|
|
#include "serversm.h" |
#include "serversm.h" |
#include "ox_pathfinder.h" |
#include "ox_pathfinder.h" |
|
|
#if defined(__CYGWIN__) |
#if defined(__CYGWIN__) || defined(__MSYS__) |
#define JMP_BUF sigjmp_buf |
#define JMP_BUF sigjmp_buf |
#define SETJMP(env) sigsetjmp(env,1) |
#define SETJMP(env) MYSIGSETJMP(env,1) |
#define LONGJMP(env,p) siglongjmp(env,p) |
#define LONGJMP(env,p) MYSIGLONGJMP(env,p) |
#else |
#else |
#define JMP_BUF jmp_buf |
#define JMP_BUF jmp_buf |
#define SETJMP(env) setjmp(env) |
#define SETJMP(env) MYSETJMP(env) |
#define LONGJMP(env,p) longjmp(env,p) |
#define LONGJMP(env,p) MYLONGJMP(env,p) |
#endif |
#endif |
|
|
/* |
/* |
Line 143 main(int argc,char *argv[]) { |
|
Line 143 main(int argc,char *argv[]) { |
|
Dfp = fopen("/tmp/debug-texmacs.txt","w"); |
Dfp = fopen("/tmp/debug-texmacs.txt","w"); |
#endif |
#endif |
|
|
|
/* Initialize kanlib (gc is also initialized) */ |
|
KSstart(); |
|
|
/* Set consts */ |
/* Set consts */ |
Quiet = 1; |
Quiet = 1; |
for (i=1; i<argc; i++) { |
for (i=1; i<argc; i++) { |
Line 194 main(int argc,char *argv[]) { |
|
Line 197 main(int argc,char *argv[]) { |
|
exit(10); |
exit(10); |
} |
} |
|
|
/* Initialize kanlib (gc is also initialized) */ |
|
KSstart(); |
|
|
|
/* Main loop */ |
/* Main loop */ |
printf("%s",Data_begin_v[View]); |
printf("%s",Data_begin_v[View]); |
Line 612 static int startEngine(int type,char *msg) { |
|
Line 613 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 */ |
if (AsirInitFile) { /* cf. asir-contrib/packages/src/cfep-init.rr */ |
unsigned char *ss; |
unsigned char *ss; |
ss = (unsigned char *)GC_malloc(strlen(AsirInitFile)+256); |
ss = (unsigned char *)sGC_malloc(strlen(AsirInitFile)+256); |
sprintf((char *)ss," oxasir.ccc (load(\"%s\");) oxsubmit oxasir.ccc oxgeterrors length 0 gt { (Error in loading asirInitFile) message} { } ifelse ",AsirInitFile); |
sprintf((char *)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); */ |
/* printf("Loading --asirInitFile %s\n",AsirInitFile); */ |
KSexecuteString(ss); |
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-en\"; } 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 |
not work. */ |
not work. */ |