starwing

--[[

= ABOUT
This module uses Roberto Ierusalimschy's powerful new pattern matching library
LPeg[1] to tokenize Lua source-code in to a table of tokens. I think it handles
all of Lua's syntax, but if you find anything missing I would appreciate a mail
at peter@peterodding.com. This lexer is based on the BNF[2] from the Lua manual.

= USAGE
I've saved my copy of this module under [$LUA_PATH/lexers/lua.lua] which means

starwing

diff --git a/slnunico.c b/slnunico.c
index bc1124b..22efb00 100644
--- a/slnunico.c
+++ b/slnunico.c
@@ -94,6 +94,9 @@ http://www.unicode.org/Public/UNIDATA/PropList.txt
 # define SLN_UNICODENAME "unicode"
 #endif
 
+#if LUA_VERSION_NUM < 502
+#  define luaL_setfuncs(L,l,nup) luaI_openlib(L,NULL,l,nup)

starwing

test
tags*
*.exe
*.dll
*.obj
*.so
*.o

starwing

#include <stdio.h>
#include <string.h>

#define COMP_MAX 50

#define ispathsep(ch)   ((ch) == '/' || (ch) == '\\')
#define iseos(ch)       ((ch) == '\0')
#define ispathend(ch)   (ispathsep(ch) || iseos(ch))

char *normpath(char *out, const char *in) {

starwing

*.exe
*.dll
tags*
objs

starwing

@set LUAVER=lua52
@if "%1x" == "x" (
    set LUADIR=D:\%LUAVER%\
) else set LUADIR=%1\%LUAVER%\
@echo install Lua to %LUADIR% ...
@echo create directories ...
@mkdir %LUADIR%        2>nul
@mkdir %LUADIR%include 2>nul
@mkdir %LUADIR%clibs   2>nul
@mkdir %LUADIR%lua     2>nul

starwing

Lua52/
*.a

starwing

@rd /s /q obj 2>nul
@md obj

@cd obj
gcc -O2 -c -DFREEGLUT_EXPORTS ../src/*.c -I../include
gcc -mdll -o ../freeglut32.dll *.o^
    -Wl,--enable-stdcall-fixup,--out-implib,libfreeglut32.a^
    -lopengl32 -lgdi32 -lwinmm

gcc -O2 -c -DFREEGLUT_STATIC ../src/*.c -I../include

starwing

#ifndef lua_bufflib_h
#define lua_bufflib_h


#define LUA_LIB
#include <lua.h>
#include <lauxlib.h>


#define BUFFER_LIBNAME    "buffer"

starwing

#define LUA_LIB
#include <lua.h>
#include <lauxlib.h>

static lua_Integer posrelat(lua_Integer pos, size_t len) {
    if (pos >= 0) return pos;
    else if (0u - (size_t)pos > len) return 0;
    else return (lua_Integer)len + pos + 1;
}