lua

commit d916487d7c1f620dc7844ca4febfd51f8708a7be
parent 1bf762ba3877eb27d7c30bbbbc774f1634062800
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Tue, 23 Dec 1997 17:24:15 -0200

auxlib split in two parts (lauxlib and lbuffer)

Diffstat:
M
lauxlib.c
 | 
73
+------------------------------------------------------------------------
M
makefile
 | 
8
++++----

2 files changed, 5 insertions(+), 76 deletions(-)
diff --git a/lauxlib.c b/lauxlib.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lauxlib.c,v 1.5 1997/12/09 13:35:19 roberto Exp roberto $
+** $Id: lauxlib.c,v 1.6 1997/12/17 20:48:58 roberto Exp roberto $
 ** Auxiliar functions for building Lua libraries
 ** See Copyright Notice in lua.h
 */
@@ -7,11 +7,8 @@
 
 #include <stdarg.h>
 #include <stdio.h>
-#include <string.h>
 
 #include "lauxlib.h"
-#include "lmem.h"
-#include "lstate.h"
 #include "lua.h"
 #include "luadebug.h"
 
@@ -100,71 +97,3 @@ void luaL_verror (char *fmt, ...)
   lua_error(buff);
 }
 
-
-/*-------------------------------------------------------
-**  Auxiliar buffer
--------------------------------------------------------*/
-
-#define BUFF_STEP	32
-
-#define openspace(size)  if (L->Mbuffnext+(size) > L->Mbuffsize) Openspace(size)
-
-static void Openspace (int size)
-{
-  LState *l = L;  /* to optimize */
-  int base = l->Mbuffbase-l->Mbuffer;
-  l->Mbuffsize *= 2;
-  if (l->Mbuffnext+size > l->Mbuffsize)  /* still not big enough? */
-    l->Mbuffsize = l->Mbuffnext+size;
-  l->Mbuffer = luaM_realloc(l->Mbuffer, l->Mbuffsize);
-  l->Mbuffbase = l->Mbuffer+base;
-}
-
-
-char *luaL_openspace (int size)
-{
-  openspace(size);
-  return L->Mbuffer+L->Mbuffnext;
-}
-
-
-void luaL_addchar (int c)
-{
-  openspace(BUFF_STEP);
-  L->Mbuffer[L->Mbuffnext++] = c;
-}
-
-
-void luaL_resetbuffer (void)
-{
-  L->Mbuffnext = L->Mbuffbase-L->Mbuffer;
-}
-
-
-void luaL_addsize (int n)
-{
-  L->Mbuffnext += n;
-}
-
-
-int luaL_newbuffer (int size)
-{
-  int old = L->Mbuffbase-L->Mbuffer;
-  openspace(size);
-  L->Mbuffbase = L->Mbuffer+L->Mbuffnext;
-  return old;
-}
-
-
-void luaL_oldbuffer (int old)
-{
-  L->Mbuffnext = L->Mbuffbase-L->Mbuffer;
-  L->Mbuffbase = L->Mbuffer+old;
-}
-
-
-char *luaL_buffer (void)
-{
-  return L->Mbuffbase;
-}
-
diff --git a/makefile b/makefile
@@ -1,5 +1,5 @@
 #
-## $Id: makefile,v 1.6 1997/11/19 17:29:23 roberto Exp roberto $
+## $Id: makefile,v 1.7 1997/12/17 20:48:58 roberto Exp roberto $
 ## Makefile
 ## See Copyright Notice in lua.h
 #
@@ -36,6 +36,7 @@ ARFLAGS	= rvl
 LUAOBJS = \
 	lapi.o \
 	lauxlib.o \
+	lbuffer.o \
 	lbuiltin.o \
 	ldo.o \
 	lfunc.o \
@@ -91,11 +92,10 @@ clear	:
 %.c : RCS/%.c,v
 	co $@
 
-
 lapi.o: lapi.c lapi.h lua.h lobject.h lauxlib.h ldo.h lstate.h lfunc.h \
  lgc.h lmem.h lstring.h ltable.h ltm.h luadebug.h lvm.h
-lauxlib.o: lauxlib.c lauxlib.h lua.h lmem.h lstate.h lobject.h \
- luadebug.h
+lauxlib.o: lauxlib.c lauxlib.h lua.h luadebug.h
+lbuffer.o: lbuffer.c lauxlib.h lua.h lmem.h lstate.h lobject.h
 lbuiltin.o: lbuiltin.c lapi.h lua.h lobject.h lauxlib.h lbuiltin.h \
  ldo.h lstate.h lfunc.h lmem.h lstring.h ltable.h ltm.h
 ldo.o: ldo.c ldo.h lobject.h lua.h lstate.h lfunc.h lgc.h lmem.h \