===================================================================
RCS file: /home/cvs/OpenXM/src/kxx/ox_texmacs.c,v
retrieving revision 1.39
retrieving revision 1.42
diff -u -p -r1.39 -r1.42
--- OpenXM/src/kxx/ox_texmacs.c	2016/03/31 05:27:34	1.39
+++ OpenXM/src/kxx/ox_texmacs.c	2018/09/07 01:21:31	1.42
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kxx/ox_texmacs.c,v 1.38 2015/10/10 11:29:46 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kxx/ox_texmacs.c,v 1.41 2018/09/07 00:28:53 takayama Exp $ */
 
 #include <stdio.h>
 #include <stdlib.h>
@@ -28,32 +28,44 @@
 #define  GENERIC      0   /* DEBUG, xml */
 #define  V_TEXMACS    1
 #define  V_CFEP       2
+#define  V_QFEP       3
+#define  V_SAGE       4
 int View       = V_TEXMACS ;
 
 char *Data_begin_v[] = {
   "<S type=verbatim>",
   "\002verbatim:",
   "\002",
+  "",
+  ""
 };
 char *Data_begin_l[] = {
   "<S type=latex>",
   "\002latex:",
-  "\002latex:"
+  "\002latex:",
+  "",
+  ""
 };
 char *Data_begin_p[] = {
   "<S type=prompt>",
   "\002prompt:",
-  "\002prompt:"
+  "\002prompt:",
+  "",
+  ""
 };
 char *Data_begin_ps[] = {
   "<S type=postscript>",
   "\002ps:",
-  "\002ps:"
+  "\002ps:",
+  "",
+  ""
 };
 char *Data_end[] = {
   "</S>",
   "\005",
-  "\n\005"    /* \n is not a part of the protocol. */
+  "\n\005",    /* \n is not a part of the protocol. */
+  "",
+  ""           /* SAGE */
 };
 
 /* todo:  start_of_input */
@@ -61,9 +73,20 @@ char *Data_end[] = {
 char End_of_input[] = {
   0x5,              /* Use ^E and Return to end the input. */
   '\n',  /* TEXMACS_END_OF_INPUT. 0xd should be used for multiple lines. */
-  0x5    /* CFEP_END_OF_INPUT    */
+  0x5,    /* CFEP_END_OF_INPUT    */
+  0x5,
+  '\n'   /* SAGE cf. __init__ */
 };
 
+char *Prompt[]={
+  "generic>", /* generic */
+  "", /* texmacs */
+  "",    /* cfep */
+  "",   /* qfep */
+  "\nasir>"    /* SAGE */
+};
+
+
 /* Table for the engine type. */
 #define ASIR          1
 #define SM1           2
@@ -91,6 +114,7 @@ int EngineLogToStdout = 0;   /* Do not run the ox engi
 char *AsirInitFile = NULL;
 
 char *LanguageResource = NULL;
+int TM_quiet = 0;
 
 void ctrlC();
 struct object KpoString(char *s);
@@ -106,6 +130,7 @@ static int startEngine(int type,char *msg);
 static int isPS(char *s);
 static int end_of_input(int c);
 static void setDefaultParameterForCfep();
+static void setDefaultParameterForSage();
 
 static void myEncoder(int c);
 static void myEncoderS(unsigned char *s);
@@ -142,10 +167,19 @@ main(int argc,char *argv[]) {
 #ifdef DEBUG2
   Dfp = fopen("/tmp/debug-texmacs.txt","w");
 #endif
-  
-  /* Initialize kanlib (gc is also initialized) */
-  KSstart();
 
+  TM_quiet=0;
+  for (i=1; i<argc; i++) {
+    if (strcmp(argv[i],"--quiet")==0) {
+      TM_quiet=1;
+    }
+  }
+  /* Initialize kanlib (gc is also initialized) */
+  if (TM_quiet) {
+    KSstart_quiet();
+  }else{
+    KSstart();
+  }
   /* Set consts */
   Quiet = 1;
   for (i=1; i<argc; i++) {
@@ -155,6 +189,10 @@ main(int argc,char *argv[]) {
         View = V_TEXMACS;
       }else if (strcmp(argv[i],"cfep")==0) {
         View = V_CFEP; setDefaultParameterForCfep();
+      }else if (strcmp(argv[i],"qfep")==0) {
+	View = V_QFEP; setDefaultParameterForCfep();
+      }else if (strcmp(argv[i],"sage")==0) {
+	View = V_SAGE; setDefaultParameterForSage();
       }else{
         View = GENERIC;
         /* printv("Unknown view type.\n"); */
@@ -185,6 +223,8 @@ main(int argc,char *argv[]) {
       i++;
       AsirInitFile = (char *)sGC_malloc(strlen(argv[i])+80);
       sprintf(AsirInitFile,"%s",argv[i]);
+    }else if (strcmp(argv[i],"--quiet") == 0) {
+      /* it is already set. Ignore. */
     }else{
       /* printv("Unknown option\n"); */
     }
@@ -237,11 +277,12 @@ main(int argc,char *argv[]) {
       continue;
     } else {  }
     if (!irt) {
-      printf("%s",Data_end[View]); fflush(stdout);
+      if (View != V_SAGE) printf("%s",Data_end[View]); fflush(stdout);
     }
     irt = 0;
 
     /* Reading the input. */
+    printf("%s",Prompt[View]); fflush(stdout);
     if (TM_Engine == K0) {
       s=readString(stdin, " ", " "); /* see test data */
     }else if (TM_Engine == SM1) {
@@ -514,6 +555,9 @@ static int end_of_input(int c) {
 static void setDefaultParameterForCfep() {
   Format = 0;
 }
+static void setDefaultParameterForSage() {
+  Format = 0;
+}
 
 static void printv(char *s) {
   int i;
@@ -552,14 +596,14 @@ static void printp(char *s) {
   fflush(NULL);
 }
 static void printCopyright(char *s) {
-  printf("%s",Data_begin_v[View]);
   if (! NoCopyright) {
+    printf("%s",Data_begin_v[View]);
     printf("OpenXM engine (ox engine) interface with TeXmacs protocol.\n2004 (C) openxm.org");
     printf(" under the BSD license.  !asir; !sm1; !k0; !verbatim; !quit;\n");
     printf("Type in      !reset;     when the engine gets confused. ");
     printf("%s",s);
+    printf("%s",Data_end[View]);
   }
-  printf("%s",Data_end[View]);
   fflush(NULL);
 }
 
@@ -568,7 +612,7 @@ static void flushSm1() {
 }
 static int startEngine(int type,char *msg) {
   struct object ob = OINIT;
-  printf("%s",Data_begin_v[View]);
+  if (!TM_quiet) printf("%s",Data_begin_v[View]);
   if (type == SM1) {
     if (!TM_sm1Started) KSexecuteString(" sm1connectr ");
     KSexecuteString(" /ox.engine oxsm1.ccc def ");
@@ -624,7 +668,7 @@ static int startEngine(int type,char *msg) {
        not work. */
     KSexecuteString(" oxasir.ccc (print(\"----------- Messages from asir ------------------------------\")$ ) oxsubmit oxasir.ccc oxpopcmo ");
   }
-  printf("%s",Data_end[View]);
+  if (!TM_quiet) printf("%s",Data_end[View]);
   fflush(NULL);
 }