/[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.5 by camm, Sun Dec 16 07:31:05 2001 UTC revision 1.6 by camm, Sun Feb 3 18:44:08 2002 UTC
# Line 32  Foundation, 675 Mass Ave, Cambridge, MA Line 32  Foundation, 675 Mass Ave, Cambridge, MA
32  #define IN_FILE  #define IN_FILE
33  #include "include.h"  #include "include.h"
34    
35    #ifdef HAVE_READLINE
36    #define kclgetc(FP)             rl_getc_em(FP)
37    #define kclungetc(C, FP)        rl_ungetc_em(C, FP)
38    #define kclputc(C, FP)          rl_putc_em(C, FP)
39    #else
40  #define kclgetc(FP)             getc(FP)  #define kclgetc(FP)             getc(FP)
41  #define kclungetc(C, FP)        ungetc(C, FP)  #define kclungetc(C, FP)        ungetc(C, FP)
 #ifdef __STDC__  
 #define xkclfeof(c,FP)          feof(FP)  
 #else  
 #define xkclfeof(c,FP)          feof(FP)  
 #endif  
42  #define kclputc(C, FP)          putc(C, FP)  #define kclputc(C, FP)          putc(C, FP)
43    #endif /* HAVE_READLINE */
44    
45    #define xkclfeof(c,FP)          feof(FP)
46    
47  #ifdef HAVE_AOUT  #ifdef HAVE_AOUT
48  #undef ATT  #undef ATT
# Line 2349  init_file_function() Line 2352  init_file_function()
2352          make_si_function("USER-STREAM-STATE", siLuser_stream_state);          make_si_function("USER-STREAM-STATE", siLuser_stream_state);
2353  #endif  #endif
2354    
2355    #ifdef HAVE_READLINE
2356            init_readline_function();
2357    #endif
2358  }  }
2359    
2360    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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