[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.17 and 1.21

version 1.17, 2004/03/11 03:32:46 version 1.21, 2005/06/16 05:07:24
Line 1 
Line 1 
 /* $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>
Line 47 
Line 47 
   
 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 ");
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.21
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>