OpenXM_contrib2/asir2000/parse/lex.c - diff

Return to lex.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

Diff for /OpenXM_contrib2/asir2000/parse/lex.c between version 1.10 and 1.13

-version 1.10, 2000/12/06 01:27:16
+version 1.13, 2000/12/26 05:17:47
 Line 45
 Line 45
 Line 45
   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
   *
-  * $OpenXM: OpenXM_contrib2/asir2000/parse/lex.c,v 1.9 2000/12/05 01:51:35 noro Exp $
+  * $OpenXM: OpenXM_contrib2/asir2000/parse/lex.c,v 1.12 2000/12/22 10:03:32 saito Exp $
  */
  #include <ctype.h>
  #include "ca.h"
 Line 69  int aftercomment();
 Line 69  int aftercomment();
 Line 69  int aftercomment();
  extern int main_parser;
  extern char *parse_strp;
+ extern int recv_intr;
  static int skipspace();
  static int Getc();
-Line 522  FILE *fp;
+Line 523  FILE *fp;
 Line 522  FILE *fp;
 Line 523  FILE *fp;
          int c;
          if ( fp ) {
-                 c = getc(fp);
+ #if FEP
+                 if ( do_fep && isatty(fileno(fp)) )
+                         c = readline_getc();
+                 else
+ #endif
+                         c = getc(fp);
+ #if defined(VISUAL)
+                 if ( recv_intr ) {
+ #include <signal.h>
+                         if ( recv_intr == 1 ) {
+                                 recv_intr = 0;
+                                 int_handler(SIGINT);
+                         } else {
+                                 recv_intr = 0;
+                                 ox_usr1_handler(0);
+                         }
+                 }
+ #endif
                  if ( c == EOF )
                          return c;
                  if ( asir_infile->encoded )
-Line 546  FILE *fp;
+Line 564  FILE *fp;
 Line 546  FILE *fp;
 Line 564  FILE *fp;
          if ( fp ) {
                  if ( asir_infile->encoded )
                          c = (int)encrypt_char((unsigned char)c);
-                 ungetc(c,fp);
+ #if FEP
+                 if ( do_fep && isatty(fileno(fp)) )
+                         readline_ungetc();
+                 else
+ #endif
+                         ungetc(c,fp);
          } else
                  *--parse_strp = c;
  }
-Line 599  char *s;
+Line 622  char *s;
 Line 599  char *s;
 Line 622  char *s;
                  *s++ = c;
          *s = 0;
  }
+ #if FEP
+ static char *readline_line;
+ static int readline_nc,readline_index;
+ char *readline_console();
+ int readline_getc()
+ {
+         char buf[BUFSIZ];
+         if ( !readline_nc ) {
+                 if ( readline_line )
+                         free(readline_line);
+                 sprompt(buf);
+                 readline_line = readline_console(buf);
+                 readline_nc = strlen(readline_line);
+                 readline_index = 0;
+         }
+         readline_nc--;
+         return readline_line[readline_index++];
+ }
+ void readline_ungetc()
+ {
+         readline_nc++; readline_index--;
+ }
+ char *readline_console(prompt)
+ char *prompt;
+ {
+         char *line;
+         int exp_result;
+         char *expansion;
+         while ( 1 ) {
+                 line = (char *)readline(prompt);
+                 if ( line && *line ) {
+                         using_history();
+                         exp_result = history_expand(line,&expansion);
+                         if ( !exp_result ) {
+                                 free(expansion);
+                                 for ( ; isspace(*line); line++ );
+                                 add_history(line);
+                                 break;
+                         } else if ( exp_result > 0 ) {
+                                 free(line);
+                                 line = expansion;
+                                 break;
+                         }
+                 }
+         }
+         return line;
+ }
+ #endif

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>