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

Diff of /gcl/o/gcl_readline.d

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

revision 1.10 by camm, Thu Mar 31 02:06:41 2005 UTC revision 1.11 by camm, Fri Jun 10 15:13:59 2005 UTC
# Line 140  static char *rl_completion_words_new(cha Line 140  static char *rl_completion_words_new(cha
140        if (temp==temp1)        if (temp==temp1)
141          package=(temp[1]==':') ? sLApackageA->s.s_dbind : keyword_package;          package=(temp[1]==':') ? sLApackageA->s.s_dbind : keyword_package;
142        else {        else {
143          struct string s={t_string,0,0,0,OBJNULL,1,0,(char *)temp1,temp-temp1};          struct string s;/* ={t_string,0,0,0,1,0,OBJNULL,1,0,(char *)temp1,temp-temp1}; */
144            set_type_of(&s,t_string);
145            s.st_self=(char *)temp1;
146            s.st_fillp=s.st_dim=temp-temp1;
147            s.st_hasfillp=1;
148          package=find_package((object)&s);          package=find_package((object)&s);
149        }        }
150      }      }
# Line 227  int rl_putc_em(int c, FILE *f) { Line 231  int rl_putc_em(int c, FILE *f) {
231          static int current_length = 0;          static int current_length = 0;
232          unsigned char *old_line;          unsigned char *old_line;
233    
234          if (f!=stdout || !isatty(fileno(f)) ) goto tail;          if (f!=stdout || !isatty(fileno(f)) || !readline_on) goto tail;
235    
236          if (c=='\r' || c=='\n') {          if (c=='\r' || c=='\n') {
237                  current_length = 0;                  current_length = 0;
# Line 259  int rl_getc_em(FILE *f) { Line 263  int rl_getc_em(FILE *f) {
263          static int linepos = 0;          static int linepos = 0;
264          int r;          int r;
265                    
266          if (f!=stdin || !isatty(fileno(f)) ) return getc(f);          if (f!=stdin || !isatty(fileno(f))) return getc(f);
267                    
268          if (rl_ungetc_em_char!=-1) {          if (rl_ungetc_em_char!=-1) {
269                  r = rl_ungetc_em_char;                  r = rl_ungetc_em_char;

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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