/[gcl]/gcl/o/file.d
ViewVC logotype

Diff of /gcl/o/file.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.36 by camm, Fri Jan 7 17:58:34 2005 UTC revision 1.37 by camm, Tue Feb 15 21:15:22 2005 UTC
# Line 39  Foundation, 675 Mass Ave, Cambridge, MA Line 39  Foundation, 675 Mass Ave, Cambridge, MA
39  #include "include.h"  #include "include.h"
40    
41  #ifdef HAVE_READLINE  #ifdef HAVE_READLINE
42    #include <readline/readline.h>
43  #define kclgetc(FP)             rl_getc_em(FP)  #define kclgetc(FP)             rl_getc_em(FP)
44  #define kclungetc(C, FP)        rl_ungetc_em(C, FP)  #define kclungetc(C, FP)        rl_ungetc_em(C, FP)
45  #define kclputc(C, FP)          rl_putc_em(C, FP)  #define kclputc(C, FP)          rl_putc_em(C, FP)
# Line 1523  BEGIN: Line 1524  BEGIN:
1524          case smm_input:          case smm_input:
1525          case smm_io:          case smm_io:
1526    
1527              if (readline_on && strm->sm.sm_fp==rl_instream)
1528                return *rl_line_buffer ? TRUE : FALSE;
1529    
1530                  if (strm->sm.sm_fp == NULL)                  if (strm->sm.sm_fp == NULL)
1531                          closed_stream(strm);                          closed_stream(strm);

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26