diff options
Diffstat (limited to 'liolib.c')
| -rw-r--r-- | liolib.c | 14 |
1 files changed, 7 insertions, 7 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: liolib.c,v 1.38 1999/04/14 20:40:32 roberto Exp $ | 2 | ** $Id: liolib.c,v 1.39 1999/05/05 19:22:26 roberto Exp roberto $ |
| 3 | ** Standard I/O (and system) library | 3 | ** Standard I/O (and system) library |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -477,7 +477,7 @@ static void io_debug (void) { | |||
| 477 | #define MAXMESSAGE (MESSAGESIZE*10) | 477 | #define MAXMESSAGE (MESSAGESIZE*10) |
| 478 | 478 | ||
| 479 | 479 | ||
| 480 | #define MAXSRC 40 | 480 | #define MAXSRC 60 |
| 481 | 481 | ||
| 482 | 482 | ||
| 483 | static void errorfb (void) { | 483 | static void errorfb (void) { |
| @@ -494,7 +494,7 @@ static void errorfb (void) { | |||
| 494 | lua_funcinfo(func, &chunkname, &linedefined); | 494 | lua_funcinfo(func, &chunkname, &linedefined); |
| 495 | luaL_chunkid(buffchunk, chunkname, sizeof(buffchunk)); | 495 | luaL_chunkid(buffchunk, chunkname, sizeof(buffchunk)); |
| 496 | if (level == 2) strcat(buff, "Active Stack:\n"); | 496 | if (level == 2) strcat(buff, "Active Stack:\n"); |
| 497 | strcat(buff, "\t"); | 497 | strcat(buff, " "); |
| 498 | if (strlen(buff) > MAXMESSAGE-MESSAGESIZE) { | 498 | if (strlen(buff) > MAXMESSAGE-MESSAGESIZE) { |
| 499 | strcat(buff, "...\n"); | 499 | strcat(buff, "...\n"); |
| 500 | break; /* buffer is full */ | 500 | break; /* buffer is full */ |
| @@ -508,11 +508,11 @@ static void errorfb (void) { | |||
| 508 | break; | 508 | break; |
| 509 | default: { | 509 | default: { |
| 510 | if (linedefined == 0) | 510 | if (linedefined == 0) |
| 511 | sprintf(buff+strlen(buff), "main of %.50s", buffchunk); | 511 | sprintf(buff+strlen(buff), "main of %.70s", buffchunk); |
| 512 | else if (linedefined < 0) | 512 | else if (linedefined < 0) |
| 513 | sprintf(buff+strlen(buff), "%.50s", buffchunk); | 513 | sprintf(buff+strlen(buff), "%.70s", buffchunk); |
| 514 | else | 514 | else |
| 515 | sprintf(buff+strlen(buff), "function <%d:%.50s>", | 515 | sprintf(buff+strlen(buff), "function <%d:%.70s>", |
| 516 | linedefined, buffchunk); | 516 | linedefined, buffchunk); |
| 517 | chunkname = NULL; | 517 | chunkname = NULL; |
| 518 | } | 518 | } |
| @@ -520,7 +520,7 @@ static void errorfb (void) { | |||
| 520 | if ((currentline = lua_currentline(func)) > 0) | 520 | if ((currentline = lua_currentline(func)) > 0) |
| 521 | sprintf(buff+strlen(buff), " at line %d", currentline); | 521 | sprintf(buff+strlen(buff), " at line %d", currentline); |
| 522 | if (chunkname) | 522 | if (chunkname) |
| 523 | sprintf(buff+strlen(buff), " [%.50s]", buffchunk); | 523 | sprintf(buff+strlen(buff), " [%.70s]", buffchunk); |
| 524 | strcat(buff, "\n"); | 524 | strcat(buff, "\n"); |
| 525 | } | 525 | } |
| 526 | func = lua_rawgetglobal("_ALERT"); | 526 | func = lua_rawgetglobal("_ALERT"); |
