pike.git / src / lex.c

version» Context lines:

pike.git/src/lex.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: lex.c,v 1.14 1997/01/30 03:51:34 hubbe Exp $"); + RCSID("$Id: lex.c,v 1.15 1997/01/31 23:09:02 hubbe Exp $");   #include "language.h"   #include "array.h"   #include "lex.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "constants.h"   #include "hashtable.h"   #include "stuff.h"   #include "memory.h"   #include "interpret.h"
pike.git/src/lex.c:1025:    return;    }    free_string(s);       retry:    fd=open(sp[-1].u.string->str,O_RDONLY);    if(fd < 0)    {    if(errno == EINTR) goto retry;    -  my_yyerror("Couldn't open file to include '%s'.",sp[-1].u.string->str); + #ifdef HAVE_STRERROR +  my_yyerror("Couldn't open file to include '%s'. (%s)",sp[-1].u.string->str,strerror(errno)); + #else +  my_yyerror("Couldn't open file to include '%s'. (ERRNO=%d)",sp[-1].u.string->str,errno); + #endif    return;    }       UNGETSTR("\" 2",3);    UNGETSTR(current_file->str,current_file->len);    sprintf(buf,"\n# %ld \"",(long)current_line+1);    UNGETSTR(buf,strlen(buf));       total_lines+=current_line-old_line;    old_line=current_line=1;