[BACK]Return to ox_texmacs.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / kxx

Diff for /OpenXM/src/kxx/ox_texmacs.c between version 1.35 and 1.39

version 1.35, 2009/02/22 16:40:05 version 1.39, 2016/03/31 05:27:34
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/kxx/ox_texmacs.c,v 1.34 2006/03/22 00:52:55 takayama Exp $ */  /* $OpenXM: OpenXM/src/kxx/ox_texmacs.c,v 1.38 2015/10/10 11:29:46 takayama Exp $ */
   
 #include <stdio.h>  #include <stdio.h>
 #include <stdlib.h>  #include <stdlib.h>
Line 9 
Line 9 
 #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 215  main(int argc,char *argv[]) {
Line 216  main(int argc,char *argv[]) {
   if (LanguageResource != NULL) KSexecuteString(LanguageResource);    if (LanguageResource != NULL) KSexecuteString(LanguageResource);
   startEngine(TM_Engine," ");    startEngine(TM_Engine," ");
   
   if (signal(SIGINT,SIG_IGN) != SIG_IGN) {    if (mysignal(SIGINT,SIG_IGN) != SIG_IGN) {
     signal(SIGINT,ctrlC);      mysignal(SIGINT,ctrlC);
   }    }
   
   irt = 0;    irt = 0;
Line 229  main(int argc,char *argv[]) {
Line 230  main(int argc,char *argv[]) {
         RestrictedMode = RestrictedMode_saved;          RestrictedMode = RestrictedMode_saved;
       }        }
       Calling_ctrlC_hook = 0;        Calling_ctrlC_hook = 0;
       if (signal(SIGINT,SIG_IGN) != SIG_IGN) {        if (mysignal(SIGINT,SIG_IGN) != SIG_IGN) {
         signal(SIGINT,ctrlC);          mysignal(SIGINT,ctrlC);
       }        }
       irt = 1;        irt = 1;
       continue;        continue;
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);
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.39
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>