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 |
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 |
|
|