nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

accept `\r' as newline when looking for line end

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2004-05-03 09:30:41 -03:00
parent 9629508a98
commit 1c459b881f
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lobject.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lobject.c,v 2.1 2003/12/10 12:13:36 roberto Exp roberto $ ** $Id: lobject.c,v 2.2 2004/04/30 20:13:38 roberto Exp roberto $
** Some generic functions over Lua objects ** Some generic functions over Lua objects
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -173,7 +173,7 @@ void luaO_chunkid (char *out, const char *source, int bufflen) {
strcat(out, source); strcat(out, source);
} }
else { /* out = [string "string"] */ else { /* out = [string "string"] */
int len = strcspn(source, "\n"); /* stop at first newline */ int len = strcspn(source, "\n\r"); /* stop at first newline */
bufflen -= sizeof(" [string \"...\"] "); bufflen -= sizeof(" [string \"...\"] ");
if (len > bufflen) len = bufflen; if (len > bufflen) len = bufflen;
strcpy(out, "[string \""); strcpy(out, "[string \"");