diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1994-11-01 15:54:31 -0200 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1994-11-01 15:54:31 -0200 |
commit | 41e4c5798ee95404f6687def4bbed236566db676 (patch) | |
tree | 7d1b8ecfde62af636540e5656f8ce28776798615 | |
parent | fb23cd2e26163da34e541b64f5cfd6168ce32840 (diff) | |
download | lua-41e4c5798ee95404f6687def4bbed236566db676.tar.gz lua-41e4c5798ee95404f6687def4bbed236566db676.tar.bz2 lua-41e4c5798ee95404f6687def4bbed236566db676.zip |
small corrections
-rw-r--r-- | hash.c | 4 | ||||
-rw-r--r-- | lua.h | 10 | ||||
-rw-r--r-- | opcode.c | 10 |
3 files changed, 6 insertions, 18 deletions
@@ -3,13 +3,11 @@ | |||
3 | ** hash manager for lua | 3 | ** hash manager for lua |
4 | */ | 4 | */ |
5 | 5 | ||
6 | char *rcs_hash="$Id: hash.c,v 2.8 1994/10/11 12:59:49 celes Exp $"; | 6 | char *rcs_hash="$Id: hash.c,v 2.9 1994/10/17 19:03:23 celes Exp roberto $"; |
7 | 7 | ||
8 | #include <string.h> | 8 | #include <string.h> |
9 | #include <stdlib.h> | 9 | #include <stdlib.h> |
10 | 10 | ||
11 | #include "mm.h" | ||
12 | |||
13 | #include "opcode.h" | 11 | #include "opcode.h" |
14 | #include "hash.h" | 12 | #include "hash.h" |
15 | #include "inout.h" | 13 | #include "inout.h" |
@@ -2,17 +2,13 @@ | |||
2 | ** LUA - Linguagem para Usuarios de Aplicacao | 2 | ** LUA - Linguagem para Usuarios de Aplicacao |
3 | ** Grupo de Tecnologia em Computacao Grafica | 3 | ** Grupo de Tecnologia em Computacao Grafica |
4 | ** TeCGraf - PUC-Rio | 4 | ** TeCGraf - PUC-Rio |
5 | ** $Id: lua.h,v 1.3 1994/08/17 15:05:08 celes Exp celes $ | 5 | ** $Id: lua.h,v 1.4 1994/08/24 15:29:02 celes Exp roberto $ |
6 | */ | 6 | */ |
7 | 7 | ||
8 | 8 | ||
9 | #ifndef lua_h | 9 | #ifndef lua_h |
10 | #define lua_h | 10 | #define lua_h |
11 | 11 | ||
12 | #ifdef __cplusplus | ||
13 | extern "C" | ||
14 | { | ||
15 | #endif | ||
16 | 12 | ||
17 | typedef void (*lua_CFunction) (void); | 13 | typedef void (*lua_CFunction) (void); |
18 | typedef struct Object *lua_Object; | 14 | typedef struct Object *lua_Object; |
@@ -61,8 +57,4 @@ int lua_isfunction (lua_Object object); | |||
61 | int lua_iscfunction (lua_Object object); | 57 | int lua_iscfunction (lua_Object object); |
62 | int lua_isuserdata (lua_Object object); | 58 | int lua_isuserdata (lua_Object object); |
63 | 59 | ||
64 | #ifdef __cplusplus | ||
65 | } | ||
66 | #endif | ||
67 | |||
68 | #endif | 60 | #endif |
@@ -3,7 +3,7 @@ | |||
3 | ** TecCGraf - PUC-Rio | 3 | ** TecCGraf - PUC-Rio |
4 | */ | 4 | */ |
5 | 5 | ||
6 | char *rcs_opcode="$Id: opcode.c,v 2.9 1994/10/11 14:38:17 celes Exp $"; | 6 | char *rcs_opcode="$Id: opcode.c,v 2.10 1994/10/17 19:00:40 celes Exp roberto $"; |
7 | 7 | ||
8 | #include <stdio.h> | 8 | #include <stdio.h> |
9 | #include <stdlib.h> | 9 | #include <stdlib.h> |
@@ -13,8 +13,6 @@ char *rcs_opcode="$Id: opcode.c,v 2.9 1994/10/11 14:38:17 celes Exp $"; | |||
13 | #include <floatingpoint.h> | 13 | #include <floatingpoint.h> |
14 | #endif | 14 | #endif |
15 | 15 | ||
16 | #include "mm.h" | ||
17 | |||
18 | #include "opcode.h" | 16 | #include "opcode.h" |
19 | #include "hash.h" | 17 | #include "hash.h" |
20 | #include "inout.h" | 18 | #include "inout.h" |
@@ -76,7 +74,7 @@ static int lua_checkstack (Word n) | |||
76 | 74 | ||
77 | 75 | ||
78 | /* | 76 | /* |
79 | ** Concatenate two given string, creating a mark space at the beginning. | 77 | ** Concatenate two given strings, creating a mark space at the beginning. |
80 | ** Return the new string pointer. | 78 | ** Return the new string pointer. |
81 | */ | 79 | */ |
82 | static char *lua_strconc (char *l, char *r) | 80 | static char *lua_strconc (char *l, char *r) |
@@ -119,7 +117,7 @@ static int lua_tonumber (Object *obj) | |||
119 | } | 117 | } |
120 | 118 | ||
121 | /* | 119 | /* |
122 | ** Test if is possible to convert an object to a number object. | 120 | ** Test if it is possible to convert an object to a number object. |
123 | ** If possible, return the converted object, otherwise return nil object. | 121 | ** If possible, return the converted object, otherwise return nil object. |
124 | */ | 122 | */ |
125 | static Object *lua_convtonumber (Object *obj) | 123 | static Object *lua_convtonumber (Object *obj) |
@@ -648,7 +646,7 @@ int lua_execute (Byte *pc) | |||
648 | 646 | ||
649 | 647 | ||
650 | /* | 648 | /* |
651 | ** Function to indexed the values on the top | 649 | ** Function to index the values on the top |
652 | */ | 650 | */ |
653 | int lua_pushsubscript (void) | 651 | int lua_pushsubscript (void) |
654 | { | 652 | { |