summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lapi.h4
-rw-r--r--lauxlib.c6
-rw-r--r--lauxlib.h4
-rw-r--r--lbuffer.c6
-rw-r--r--lbuiltin.c4
-rw-r--r--lfunc.c4
-rw-r--r--llex.h4
-rw-r--r--lmathlib.c4
-rw-r--r--lmem.c4
-rw-r--r--lobject.c4
-rw-r--r--lstate.h4
-rw-r--r--lstring.c4
-rw-r--r--lstrlib.c6
-rw-r--r--luadebug.h4
-rw-r--r--lualib.h4
15 files changed, 33 insertions, 33 deletions
diff --git a/lapi.h b/lapi.h
index b21f69af..8394dd2f 100644
--- a/lapi.h
+++ b/lapi.h
@@ -1,6 +1,6 @@
1/* 1/*
2** $Id: $ 2** $Id: lapi.h,v 1.1 1997/09/16 19:25:59 roberto Exp roberto $
3** auxiliar functions from Lua API 3** Auxiliary functions from Lua API
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
6 6
diff --git a/lauxlib.c b/lauxlib.c
index 0fa745e4..415c4fea 100644
--- a/lauxlib.c
+++ b/lauxlib.c
@@ -1,6 +1,6 @@
1/* 1/*
2** $Id: lauxlib.c,v 1.10 1998/03/06 18:47:42 roberto Exp roberto $ 2** $Id: lauxlib.c,v 1.11 1998/06/18 16:57:03 roberto Exp roberto $
3** Auxiliar functions for building Lua libraries 3** Auxiliary functions for building Lua libraries
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
6 6
@@ -9,7 +9,7 @@
9#include <stdio.h> 9#include <stdio.h>
10#include <string.h> 10#include <string.h>
11 11
12/* Please Notice: This file uses only the oficial API of Lua 12/* Please Notice: This file uses only the official API of Lua
13** Any function declared here could be written as an application 13** Any function declared here could be written as an application
14** function. With care, these functions can be used by other libraries. 14** function. With care, these functions can be used by other libraries.
15*/ 15*/
diff --git a/lauxlib.h b/lauxlib.h
index 572db923..e26c7fa4 100644
--- a/lauxlib.h
+++ b/lauxlib.h
@@ -1,6 +1,6 @@
1/* 1/*
2** $Id: lauxlib.h,v 1.7 1998/03/06 16:54:42 roberto Exp roberto $ 2** $Id: lauxlib.h,v 1.8 1998/06/18 16:57:03 roberto Exp roberto $
3** Auxiliar functions for building Lua libraries 3** Auxiliary functions for building Lua libraries
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
6 6
diff --git a/lbuffer.c b/lbuffer.c
index fc20ce1a..9ec37a73 100644
--- a/lbuffer.c
+++ b/lbuffer.c
@@ -1,6 +1,6 @@
1/* 1/*
2** $Id: lbuffer.c,v 1.2 1998/03/06 16:54:42 roberto Exp roberto $ 2** $Id: lbuffer.c,v 1.3 1998/06/02 20:37:04 roberto Exp roberto $
3** Auxiliar functions for building Lua libraries 3** Auxiliary functions for building Lua libraries
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
6 6
@@ -13,7 +13,7 @@
13 13
14 14
15/*------------------------------------------------------- 15/*-------------------------------------------------------
16** Auxiliar buffer 16** Auxiliary buffer
17-------------------------------------------------------*/ 17-------------------------------------------------------*/
18 18
19#define BUFF_STEP 32 19#define BUFF_STEP 32
diff --git a/lbuiltin.c b/lbuiltin.c
index c5ca08ef..35053865 100644
--- a/lbuiltin.c
+++ b/lbuiltin.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lbuiltin.c,v 1.28 1998/05/31 22:19:35 roberto Exp roberto $ 2** $Id: lbuiltin.c,v 1.29 1998/06/05 22:17:44 roberto Exp roberto $
3** Built-in functions 3** Built-in functions
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -200,7 +200,7 @@ static void luaI_type (void)
200static void tonumber (void) 200static void tonumber (void)
201{ 201{
202 int base = luaL_opt_number(2, 10); 202 int base = luaL_opt_number(2, 10);
203 if (base == 10) { /* standard convertion */ 203 if (base == 10) { /* standard conversion */
204 lua_Object o = lua_getparam(1); 204 lua_Object o = lua_getparam(1);
205 if (lua_isnumber(o)) 205 if (lua_isnumber(o))
206 lua_pushnumber(lua_getnumber(o)); 206 lua_pushnumber(lua_getnumber(o));
diff --git a/lfunc.c b/lfunc.c
index 2f3035aa..efabfa3f 100644
--- a/lfunc.c
+++ b/lfunc.c
@@ -1,6 +1,6 @@
1/* 1/*
2** $Id: lfunc.c,v 1.7 1997/12/09 13:35:19 roberto Exp roberto $ 2** $Id: lfunc.c,v 1.8 1997/12/15 16:17:20 roberto Exp roberto $
3** Auxiliar functions to manipulate prototypes and closures 3** Auxiliary functions to manipulate prototypes and closures
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
6 6
diff --git a/llex.h b/llex.h
index 3947bf5d..106f6a3c 100644
--- a/llex.h
+++ b/llex.h
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: llex.h,v 1.7 1998/01/09 14:57:43 roberto Exp $ 2** $Id: llex.h,v 1.8 1998/05/27 13:03:40 roberto Exp roberto $
3** Lexical Analizer 3** Lexical Analizer
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -32,7 +32,7 @@ enum RESERVED {
32struct ifState { 32struct ifState {
33 int elsepart; /* true if its in the $else part */ 33 int elsepart; /* true if its in the $else part */
34 int condition; /* true if $if condition is true */ 34 int condition; /* true if $if condition is true */
35 int skip; /* true if part must be skiped */ 35 int skip; /* true if part must be skipped */
36}; 36};
37 37
38 38
diff --git a/lmathlib.c b/lmathlib.c
index 8b8babaa..c62b88c4 100644
--- a/lmathlib.c
+++ b/lmathlib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lmathlib.c,v 1.8 1997/12/26 18:36:31 roberto Exp roberto $ 2** $Id: lmathlib.c,v 1.9 1998/05/27 19:09:39 roberto Exp roberto $
3** Lua standard mathematical library 3** Lua standard mathematical library
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -155,7 +155,7 @@ static void math_max (void)
155 155
156static void math_random (void) 156static void math_random (void)
157{ 157{
158 /* the '%' is needed because on some sistems (SunOS!) "rand()" may */ 158 /* the '%' is needed because on some systems (SunOS!) "rand()" may */
159 /* return a value bigger than RAND_MAX... */ 159 /* return a value bigger than RAND_MAX... */
160 double r = (double)(rand()%RAND_MAX) / (double)RAND_MAX; 160 double r = (double)(rand()%RAND_MAX) / (double)RAND_MAX;
161 double l = luaL_opt_number(1, 0); 161 double l = luaL_opt_number(1, 0);
diff --git a/lmem.c b/lmem.c
index 1cf133ab..40a86309 100644
--- a/lmem.c
+++ b/lmem.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lmem.c,v 1.4 1997/12/17 20:48:58 roberto Exp roberto $ 2** $Id: lmem.c,v 1.5 1998/03/09 21:49:52 roberto Exp roberto $
3** Interface to Memory Manager 3** Interface to Memory Manager
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -83,7 +83,7 @@ void *luaM_realloc (void *block, unsigned long size)
83 unsigned long realsize = sizeof(unsigned long)+size+sizeof(char); 83 unsigned long realsize = sizeof(unsigned long)+size+sizeof(char);
84 if (realsize != (size_t)realsize) 84 if (realsize != (size_t)realsize)
85 lua_error("Allocation Error: Block too big"); 85 lua_error("Allocation Error: Block too big");
86 if (size == 0) { /* ANSI doen't need this, but some machines... */ 86 if (size == 0) { /* ANSI dosen't need this, but some machines... */
87 if (block) { 87 if (block) {
88 memset(block, -1, *((unsigned long *)block-1)); /* erase block */ 88 memset(block, -1, *((unsigned long *)block-1)); /* erase block */
89 block = checkblock(block); 89 block = checkblock(block);
diff --git a/lobject.c b/lobject.c
index 99c76233..8e1742dd 100644
--- a/lobject.c
+++ b/lobject.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lobject.c,v 1.11 1998/03/09 21:49:52 roberto Exp roberto $ 2** $Id: lobject.c,v 1.12 1998/06/18 16:57:03 roberto Exp roberto $
3** Some generic functions over Lua objects 3** Some generic functions over Lua objects
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -52,7 +52,7 @@ int luaO_equalObj (TObject *t1, TObject *t2)
52 case LUA_T_CLOSURE: return t1->value.cl == t2->value.cl; 52 case LUA_T_CLOSURE: return t1->value.cl == t2->value.cl;
53 default: 53 default:
54 LUA_INTERNALERROR("invalid type"); 54 LUA_INTERNALERROR("invalid type");
55 return 0; /* UNREACHEABLE */ 55 return 0; /* UNREACHABLE */
56 } 56 }
57} 57}
58 58
diff --git a/lstate.h b/lstate.h
index 6692e097..303349f0 100644
--- a/lstate.h
+++ b/lstate.h
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lstate.h,v 1.8 1998/05/27 13:03:40 roberto Exp roberto $ 2** $Id: lstate.h,v 1.9 1998/06/02 20:37:04 roberto Exp roberto $
3** Global State 3** Global State
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -46,7 +46,7 @@ struct ref {
46 46
47 47
48struct lua_State { 48struct lua_State {
49 /* trhead-specific state */ 49 /* thread-specific state */
50 struct Stack stack; /* Lua stack */ 50 struct Stack stack; /* Lua stack */
51 struct C_Lua_Stack Cstack; /* C2lua struct */ 51 struct C_Lua_Stack Cstack; /* C2lua struct */
52 void *errorJmp; /* current error recover point */ 52 void *errorJmp; /* current error recover point */
diff --git a/lstring.c b/lstring.c
index f18d2ff2..b2b4baa2 100644
--- a/lstring.c
+++ b/lstring.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lstring.c,v 1.11 1998/01/28 16:50:33 roberto Exp roberto $ 2** $Id: lstring.c,v 1.12 1998/03/06 16:54:42 roberto Exp roberto $
3** String table (keeps all strings handled by Lua) 3** String table (keeps all strings handled by Lua)
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -258,7 +258,7 @@ TaggedString *luaS_collectudata (void)
258 for (j=0; j<tb->size; j++) { 258 for (j=0; j<tb->size; j++) {
259 TaggedString *t = tb->hash[j]; 259 TaggedString *t = tb->hash[j];
260 if (t == NULL || t == &EMPTY || t->constindex != -1) 260 if (t == NULL || t == &EMPTY || t->constindex != -1)
261 continue; /* get only user datas */ 261 continue; /* get only user data */
262 t->head.next = (GCnode *)frees; 262 t->head.next = (GCnode *)frees;
263 frees = t; 263 frees = t;
264 tb->hash[j] = &EMPTY; 264 tb->hash[j] = &EMPTY;
diff --git a/lstrlib.c b/lstrlib.c
index a42a6118..58fbd708 100644
--- a/lstrlib.c
+++ b/lstrlib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lstrlib.c,v 1.13 1998/05/18 22:21:55 roberto Exp roberto $ 2** $Id: lstrlib.c,v 1.14 1998/05/31 22:20:45 roberto Exp roberto $
3** Standard library for strings and pattern-matching 3** Standard library for strings and pattern-matching
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -341,7 +341,7 @@ static void str_find (void)
341 struct Capture cap; 341 struct Capture cap;
342 luaL_arg_check(0 <= init && init <= l, 3, "out of range"); 342 luaL_arg_check(0 <= init && init <= l, 3, "out of range");
343 if (lua_getparam(4) != LUA_NOOBJECT || 343 if (lua_getparam(4) != LUA_NOOBJECT ||
344 strpbrk(p, SPECIALS) == NULL) { /* no special caracters? */ 344 strpbrk(p, SPECIALS) == NULL) { /* no special characters? */
345 char *s2 = strstr(s+init, p); 345 char *s2 = strstr(s+init, p);
346 if (s2) { 346 if (s2) {
347 lua_pushnumber(s2-s+1); 347 lua_pushnumber(s2-s+1);
@@ -483,7 +483,7 @@ static void str_format (void)
483 strfrmt = match(initf, "[-+ #0]*(%d*)%.?(%d*)", &cap); 483 strfrmt = match(initf, "[-+ #0]*(%d*)%.?(%d*)", &cap);
484 if (cap.capture[0].len > 2 || cap.capture[1].len > 2) /* < 100? */ 484 if (cap.capture[0].len > 2 || cap.capture[1].len > 2) /* < 100? */
485 lua_error("invalid format (width or precision too long)"); 485 lua_error("invalid format (width or precision too long)");
486 strncpy(form+1, initf, strfrmt-initf+1); /* +1 to include convertion */ 486 strncpy(form+1, initf, strfrmt-initf+1); /* +1 to include conversion */
487 form[strfrmt-initf+2] = 0; 487 form[strfrmt-initf+2] = 0;
488 buff = luaL_openspace(1000); /* to store the formatted value */ 488 buff = luaL_openspace(1000); /* to store the formatted value */
489 switch (*strfrmt++) { 489 switch (*strfrmt++) {
diff --git a/luadebug.h b/luadebug.h
index 4bcf0840..088d06ad 100644
--- a/luadebug.h
+++ b/luadebug.h
@@ -1,6 +1,6 @@
1/* 1/*
2** $Id: $ 2** $Id: luadebug.h,v 1.1 1997/09/16 19:25:59 roberto Exp roberto $
3** Debuging API 3** Debugging API
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
6 6
diff --git a/lualib.h b/lualib.h
index dabe8f7a..cf17599a 100644
--- a/lualib.h
+++ b/lualib.h
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lualib.h,v 1.2 1997/11/26 18:53:45 roberto Exp roberto $ 2** $Id: lualib.h,v 1.3 1997/12/17 20:48:58 roberto Exp roberto $
3** Lua standard libraries 3** Lua standard libraries
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -26,7 +26,7 @@ void lua_mathlibopen (void);
26 26
27 27
28 28
29/* auxiliar functions (private) */ 29/* Auxiliary functions (private) */
30 30
31int luaI_singlematch (int c, char *p, char **ep); 31int luaI_singlematch (int c, char *p, char **ep);
32 32