mirror of
https://github.com/lammertb/libhttp.git
synced 2025-08-09 03:22:45 +03:00
Add lfs (LuaFileSystem) support
This commit is contained in:
bel
@@ -42,11 +42,11 @@ endif
|
|||||||
|
|
||||||
LIB_SOURCES = src/civetweb.c
|
LIB_SOURCES = src/civetweb.c
|
||||||
|
|
||||||
ALL_SOURCES = src/main.c $(LIB_SOURCES) src/third_party/sqlite3.c src/third_party/lsqlite3.c \
|
ALL_SOURCES = src/main.c $(LIB_SOURCES) src/third_party/sqlite3.c src/third_party/lsqlite3.c src/third_party/lfs.c \
|
||||||
$(LUA_SOURCES) $(YASSL_SOURCES)
|
$(LUA_SOURCES) $(YASSL_SOURCES)
|
||||||
|
|
||||||
SQLITE_FLAGS = -DTHREADSAFE=1 -DSQLITE_ENABLE_FTS3 -DSQLITE_ENABLE_FTS3_PARENTHESIS
|
SQLITE_FLAGS = -DTHREADSAFE=1 -DSQLITE_ENABLE_FTS3 -DSQLITE_ENABLE_FTS3_PARENTHESIS
|
||||||
CIVETWEB_FLAGS = -DUSE_LUA -DUSE_LUA_SQLITE3 $(COPT)
|
CIVETWEB_FLAGS = -DUSE_LUA -DUSE_LUA_SQLITE3 -DUSE_LUA_FILE_SYSTEM $(COPT)
|
||||||
FLAGS = $(CIVETWEB_FLAGS) $(SQLITE_FLAGS) $(LUA_FLAGS)
|
FLAGS = $(CIVETWEB_FLAGS) $(SQLITE_FLAGS) $(LUA_FLAGS)
|
||||||
|
|
||||||
|
|
||||||
@@ -147,7 +147,7 @@ $(PROG).lib: $(ALL_WINOBJS)
|
|||||||
# security unlock ~/Library/Keychains/login.keychain
|
# security unlock ~/Library/Keychains/login.keychain
|
||||||
# See e.g. http://lists.apple.com/archives/apple-cdsa/2008/Jan/msg00027.html
|
# See e.g. http://lists.apple.com/archives/apple-cdsa/2008/Jan/msg00027.html
|
||||||
Civetweb: $(LIB_SOURCES) src/main.c
|
Civetweb: $(LIB_SOURCES) src/main.c
|
||||||
$(CC) $(LIB_SOURCES) src/main.c src/third_party/lsqlite3.c src/third_party/sqlite3.c \
|
$(CC) $(LIB_SOURCES) src/main.c src/third_party/lsqlite3.c src/third_party/sqlite3.c src/third_party/lfs.c \
|
||||||
-DUSE_COCOA $(CFLAGS) $(FLAGS) -mmacosx-version-min=10.4 \
|
-DUSE_COCOA $(CFLAGS) $(FLAGS) -mmacosx-version-min=10.4 \
|
||||||
$(YASSL_SOURCES) $(LUA_SOURCES) \
|
$(YASSL_SOURCES) $(LUA_SOURCES) \
|
||||||
-framework Cocoa -ObjC -arch i386 -arch x86_64 -o Civetweb
|
-framework Cocoa -ObjC -arch i386 -arch x86_64 -o Civetweb
|
||||||
|
|||||||
@@ -27,7 +27,6 @@
|
|||||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">
|
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">
|
||||||
<ConfigurationType>Application</ConfigurationType>
|
<ConfigurationType>Application</ConfigurationType>
|
||||||
<UseDebugLibraries>true</UseDebugLibraries>
|
<UseDebugLibraries>true</UseDebugLibraries>
|
||||||
<PlatformToolset>v110</PlatformToolset>
|
|
||||||
<CharacterSet>MultiByte</CharacterSet>
|
<CharacterSet>MultiByte</CharacterSet>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="Configuration">
|
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="Configuration">
|
||||||
@@ -39,7 +38,6 @@
|
|||||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">
|
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">
|
||||||
<ConfigurationType>Application</ConfigurationType>
|
<ConfigurationType>Application</ConfigurationType>
|
||||||
<UseDebugLibraries>false</UseDebugLibraries>
|
<UseDebugLibraries>false</UseDebugLibraries>
|
||||||
<PlatformToolset>v110</PlatformToolset>
|
|
||||||
<WholeProgramOptimization>true</WholeProgramOptimization>
|
<WholeProgramOptimization>true</WholeProgramOptimization>
|
||||||
<CharacterSet>MultiByte</CharacterSet>
|
<CharacterSet>MultiByte</CharacterSet>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
@@ -88,7 +86,7 @@
|
|||||||
</PrecompiledHeader>
|
</PrecompiledHeader>
|
||||||
<WarningLevel>Level3</WarningLevel>
|
<WarningLevel>Level3</WarningLevel>
|
||||||
<Optimization>Disabled</Optimization>
|
<Optimization>Disabled</Optimization>
|
||||||
<PreprocessorDefinitions>LUA_COMPAT_ALL;USE_LUA;USE_LUA_SQLITE3;WIN32;_DEBUG;_WINDOWS;%(PreprocessorDefinitions)</PreprocessorDefinitions>
|
<PreprocessorDefinitions>LUA_COMPAT_ALL;USE_LUA;USE_LUA_SQLITE3;USE_LUA_FILE_SYSTEM;WIN32;_DEBUG;_WINDOWS;%(PreprocessorDefinitions)</PreprocessorDefinitions>
|
||||||
<AdditionalIncludeDirectories>$(ProjectDir)..\..\include;$(ProjectDir)..\..\src\third_party\lua-5.2.2\src;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
|
<AdditionalIncludeDirectories>$(ProjectDir)..\..\include;$(ProjectDir)..\..\src\third_party\lua-5.2.2\src;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
|
||||||
</ClCompile>
|
</ClCompile>
|
||||||
<Link>
|
<Link>
|
||||||
@@ -102,7 +100,7 @@
|
|||||||
</PrecompiledHeader>
|
</PrecompiledHeader>
|
||||||
<WarningLevel>Level3</WarningLevel>
|
<WarningLevel>Level3</WarningLevel>
|
||||||
<Optimization>Disabled</Optimization>
|
<Optimization>Disabled</Optimization>
|
||||||
<PreprocessorDefinitions>LUA_COMPAT_ALL;USE_LUA;USE_LUA_SQLITE3;WIN32;_DEBUG;_WINDOWS;%(PreprocessorDefinitions)</PreprocessorDefinitions>
|
<PreprocessorDefinitions>LUA_COMPAT_ALL;USE_LUA;USE_LUA_SQLITE3;USE_LUA_FILE_SYSTEM;WIN32;_DEBUG;_WINDOWS;%(PreprocessorDefinitions)</PreprocessorDefinitions>
|
||||||
<AdditionalIncludeDirectories>$(ProjectDir)..\..\include;$(ProjectDir)..\..\src\third_party\lua-5.2.2\src;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
|
<AdditionalIncludeDirectories>$(ProjectDir)..\..\include;$(ProjectDir)..\..\src\third_party\lua-5.2.2\src;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
|
||||||
</ClCompile>
|
</ClCompile>
|
||||||
<Link>
|
<Link>
|
||||||
@@ -118,7 +116,7 @@
|
|||||||
<Optimization>MaxSpeed</Optimization>
|
<Optimization>MaxSpeed</Optimization>
|
||||||
<FunctionLevelLinking>true</FunctionLevelLinking>
|
<FunctionLevelLinking>true</FunctionLevelLinking>
|
||||||
<IntrinsicFunctions>true</IntrinsicFunctions>
|
<IntrinsicFunctions>true</IntrinsicFunctions>
|
||||||
<PreprocessorDefinitions>LUA_COMPAT_ALL;USE_LUA;USE_LUA_SQLITE3;WIN32;NDEBUG;_WINDOWS;%(PreprocessorDefinitions)</PreprocessorDefinitions>
|
<PreprocessorDefinitions>LUA_COMPAT_ALL;USE_LUA;USE_LUA_SQLITE3;USE_LUA_FILE_SYSTEM;WIN32;NDEBUG;_WINDOWS;%(PreprocessorDefinitions)</PreprocessorDefinitions>
|
||||||
<AdditionalIncludeDirectories>$(ProjectDir)..\..\include;$(ProjectDir)..\..\src\third_party\lua-5.2.2\src;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
|
<AdditionalIncludeDirectories>$(ProjectDir)..\..\include;$(ProjectDir)..\..\src\third_party\lua-5.2.2\src;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
|
||||||
</ClCompile>
|
</ClCompile>
|
||||||
<Link>
|
<Link>
|
||||||
@@ -136,7 +134,7 @@
|
|||||||
<Optimization>MaxSpeed</Optimization>
|
<Optimization>MaxSpeed</Optimization>
|
||||||
<FunctionLevelLinking>true</FunctionLevelLinking>
|
<FunctionLevelLinking>true</FunctionLevelLinking>
|
||||||
<IntrinsicFunctions>true</IntrinsicFunctions>
|
<IntrinsicFunctions>true</IntrinsicFunctions>
|
||||||
<PreprocessorDefinitions>LUA_COMPAT_ALL;USE_LUA;USE_LUA_SQLITE3;WIN32;NDEBUG;_WINDOWS;%(PreprocessorDefinitions)</PreprocessorDefinitions>
|
<PreprocessorDefinitions>LUA_COMPAT_ALL;USE_LUA;USE_LUA_SQLITE3;USE_LUA_FILE_SYSTEM;WIN32;NDEBUG;_WINDOWS;%(PreprocessorDefinitions)</PreprocessorDefinitions>
|
||||||
<AdditionalIncludeDirectories>$(ProjectDir)..\..\include;$(ProjectDir)..\..\src\third_party\lua-5.2.2\src;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
|
<AdditionalIncludeDirectories>$(ProjectDir)..\..\include;$(ProjectDir)..\..\src\third_party\lua-5.2.2\src;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
|
||||||
</ClCompile>
|
</ClCompile>
|
||||||
<Link>
|
<Link>
|
||||||
|
|||||||
@@ -27,7 +27,6 @@
|
|||||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">
|
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">
|
||||||
<ConfigurationType>StaticLibrary</ConfigurationType>
|
<ConfigurationType>StaticLibrary</ConfigurationType>
|
||||||
<UseDebugLibraries>true</UseDebugLibraries>
|
<UseDebugLibraries>true</UseDebugLibraries>
|
||||||
<PlatformToolset>v110</PlatformToolset>
|
|
||||||
<CharacterSet>Unicode</CharacterSet>
|
<CharacterSet>Unicode</CharacterSet>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="Configuration">
|
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="Configuration">
|
||||||
@@ -39,7 +38,6 @@
|
|||||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">
|
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">
|
||||||
<ConfigurationType>StaticLibrary</ConfigurationType>
|
<ConfigurationType>StaticLibrary</ConfigurationType>
|
||||||
<UseDebugLibraries>false</UseDebugLibraries>
|
<UseDebugLibraries>false</UseDebugLibraries>
|
||||||
<PlatformToolset>v110</PlatformToolset>
|
|
||||||
<WholeProgramOptimization>true</WholeProgramOptimization>
|
<WholeProgramOptimization>true</WholeProgramOptimization>
|
||||||
<CharacterSet>Unicode</CharacterSet>
|
<CharacterSet>Unicode</CharacterSet>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
@@ -143,6 +141,7 @@
|
|||||||
</Link>
|
</Link>
|
||||||
</ItemDefinitionGroup>
|
</ItemDefinitionGroup>
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
|
<ClCompile Include="..\..\src\third_party\lfs.c" />
|
||||||
<ClCompile Include="..\..\src\third_party\lua-5.2.2\src\lapi.c" />
|
<ClCompile Include="..\..\src\third_party\lua-5.2.2\src\lapi.c" />
|
||||||
<ClCompile Include="..\..\src\third_party\lua-5.2.2\src\lauxlib.c" />
|
<ClCompile Include="..\..\src\third_party\lua-5.2.2\src\lauxlib.c" />
|
||||||
<ClCompile Include="..\..\src\third_party\lua-5.2.2\src\lbaselib.c" />
|
<ClCompile Include="..\..\src\third_party\lua-5.2.2\src\lbaselib.c" />
|
||||||
@@ -179,6 +178,7 @@
|
|||||||
<ClCompile Include="..\..\src\third_party\sqlite3.c" />
|
<ClCompile Include="..\..\src\third_party\sqlite3.c" />
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
|
<ClInclude Include="..\..\src\third_party\lfs.h" />
|
||||||
<ClInclude Include="..\..\src\third_party\sqlite3.h" />
|
<ClInclude Include="..\..\src\third_party\sqlite3.h" />
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" />
|
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" />
|
||||||
|
|||||||
@@ -117,10 +117,16 @@
|
|||||||
<ClCompile Include="..\..\src\third_party\sqlite3.c">
|
<ClCompile Include="..\..\src\third_party\sqlite3.c">
|
||||||
<Filter>Source Files</Filter>
|
<Filter>Source Files</Filter>
|
||||||
</ClCompile>
|
</ClCompile>
|
||||||
|
<ClCompile Include="..\..\src\third_party\lfs.c">
|
||||||
|
<Filter>Source Files</Filter>
|
||||||
|
</ClCompile>
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
<ClInclude Include="..\..\src\third_party\sqlite3.h">
|
<ClInclude Include="..\..\src\third_party\sqlite3.h">
|
||||||
<Filter>Header Files</Filter>
|
<Filter>Header Files</Filter>
|
||||||
</ClInclude>
|
</ClInclude>
|
||||||
|
<ClInclude Include="..\..\src\third_party\lfs.h">
|
||||||
|
<Filter>Header Files</Filter>
|
||||||
|
</ClInclude>
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
|
|||||||
@@ -59,6 +59,7 @@ Lua is a server side include functionality. Files ending in .la will be process
|
|||||||
- -DLUA_COMPAT_ALL
|
- -DLUA_COMPAT_ALL
|
||||||
- -DUSE_LUA
|
- -DUSE_LUA
|
||||||
- -DUSE_LUA_SQLITE3
|
- -DUSE_LUA_SQLITE3
|
||||||
|
- -DUSE_LUA_FILE_SYSTEM
|
||||||
|
|
||||||
##### Add the following sources
|
##### Add the following sources
|
||||||
|
|
||||||
@@ -99,6 +100,8 @@ Lua is a server side include functionality. Files ending in .la will be process
|
|||||||
- src/third_party/sqlite3.c
|
- src/third_party/sqlite3.c
|
||||||
- src/third_party/sqlite3.h
|
- src/third_party/sqlite3.h
|
||||||
- src/third_party/lsqlite3.c
|
- src/third_party/lsqlite3.c
|
||||||
|
- src/third_party/lfs.c
|
||||||
|
- src/third_party/lfs.h
|
||||||
|
|
||||||
|
|
||||||
Civetweb internals
|
Civetweb internals
|
||||||
|
|||||||
@@ -48,7 +48,14 @@ SQLITE_SOURCES = $(addprefix $(SQLITE_DIR)/, $(SQLITE_SOURCE_FILES))
|
|||||||
SQLITE_OBJECTS = $(SQLITE_SOURCES:.c=.o)
|
SQLITE_OBJECTS = $(SQLITE_SOURCES:.c=.o)
|
||||||
SQLITE_CFLAGS = -I$(SQLITE_DIR) -DTHREADSAFE=1 -DSQLITE_ENABLE_FTS3 -DSQLITE_ENABLE_FTS3_PARENTHESIS
|
SQLITE_CFLAGS = -I$(SQLITE_DIR) -DTHREADSAFE=1 -DSQLITE_ENABLE_FTS3 -DSQLITE_ENABLE_FTS3_PARENTHESIS
|
||||||
|
|
||||||
OBJECTS += $(LUA_OBJECTS) $(SQLITE_OBJECTS)
|
LFS_DIR = src/third_party
|
||||||
CFLAGS += $(LUA_CFLAGS) $(SQLITE_CFLAGS) -DUSE_LUA -DUSE_LUA_SQLITE3
|
LFS_SOURCE_FILES = lfs.c
|
||||||
SOURCE_DIRS = $(LUA_DIR) $(SQLITE_DIR)
|
LFS_SOURCES = $(addprefix $(LFS_DIR)/, $(LFS_SOURCE_FILES))
|
||||||
|
LFS_OBJECTS = $(LFS_SOURCES:.c=.o)
|
||||||
|
LFS_CFLAGS = -I$(LFS_DIR)
|
||||||
|
|
||||||
|
|
||||||
|
OBJECTS += $(LUA_OBJECTS) $(SQLITE_OBJECTS) $(LFS_OBJECTS)
|
||||||
|
CFLAGS += $(LUA_CFLAGS) $(SQLITE_CFLAGS) $(LFS_CFLAGS) -DUSE_LUA -DUSE_LUA_SQLITE3 -DUSE_LUA_FILE_SYSTEM
|
||||||
|
SOURCE_DIRS = $(LUA_DIR) $(SQLITE_DIR) %(LFS_DIR)
|
||||||
|
|
||||||
|
|||||||
@@ -271,6 +271,12 @@ static void prepare_lua_environment(struct mg_connection *conn, lua_State *L)
|
|||||||
luaopen_lsqlite3(L);
|
luaopen_lsqlite3(L);
|
||||||
}
|
}
|
||||||
#endif
|
#endif
|
||||||
|
#ifdef USE_LUA_FILE_SYSTEM
|
||||||
|
{
|
||||||
|
extern int luaopen_lfs(lua_State *);
|
||||||
|
luaopen_lfs(L);
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
luaL_newmetatable(L, LUASOCKET);
|
luaL_newmetatable(L, LUASOCKET);
|
||||||
lua_pushliteral(L, "__index");
|
lua_pushliteral(L, "__index");
|
||||||
|
|||||||
895
src/third_party/lfs.c
vendored
Normal file
895
src/third_party/lfs.c
vendored
Normal file
@@ -0,0 +1,895 @@
|
|||||||
|
/*
|
||||||
|
** LuaFileSystem
|
||||||
|
** Copyright Kepler Project 2003 (http://www.keplerproject.org/luafilesystem)
|
||||||
|
**
|
||||||
|
** File system manipulation library.
|
||||||
|
** This library offers these functions:
|
||||||
|
** lfs.attributes (filepath [, attributename])
|
||||||
|
** lfs.chdir (path)
|
||||||
|
** lfs.currentdir ()
|
||||||
|
** lfs.dir (path)
|
||||||
|
** lfs.lock (fh, mode)
|
||||||
|
** lfs.lock_dir (path)
|
||||||
|
** lfs.mkdir (path)
|
||||||
|
** lfs.rmdir (path)
|
||||||
|
** lfs.setmode (filepath, mode)
|
||||||
|
** lfs.symlinkattributes (filepath [, attributename]) -- thanks to Sam Roberts
|
||||||
|
** lfs.touch (filepath [, atime [, mtime]])
|
||||||
|
** lfs.unlock (fh)
|
||||||
|
**
|
||||||
|
** $Id: lfs.c,v 1.61 2009/07/04 02:10:16 mascarenhas Exp $
|
||||||
|
*/
|
||||||
|
|
||||||
|
#ifdef _MSC_VER
|
||||||
|
#ifndef _CRT_SECURE_NO_WARNINGS
|
||||||
|
#define _CRT_SECURE_NO_WARNINGS /* disable Visual Studio compiler warnings for using standard C functions */
|
||||||
|
#endif
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifndef _WIN32
|
||||||
|
#ifndef _AIX
|
||||||
|
#define _FILE_OFFSET_BITS 64 /* Linux, Solaris and HP-UX */
|
||||||
|
#else
|
||||||
|
#define _LARGE_FILES 1 /* AIX */
|
||||||
|
#endif
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#define _LARGEFILE64_SOURCE
|
||||||
|
|
||||||
|
#include <errno.h>
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <string.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <time.h>
|
||||||
|
#include <sys/stat.h>
|
||||||
|
|
||||||
|
#ifdef _WIN32
|
||||||
|
#include <direct.h>
|
||||||
|
#include <windows.h>
|
||||||
|
#include <io.h>
|
||||||
|
#include <sys/locking.h>
|
||||||
|
#ifdef __BORLANDC__
|
||||||
|
#include <utime.h>
|
||||||
|
#else
|
||||||
|
#include <sys/utime.h>
|
||||||
|
#endif
|
||||||
|
#include <fcntl.h>
|
||||||
|
#else
|
||||||
|
#include <unistd.h>
|
||||||
|
#include <dirent.h>
|
||||||
|
#include <fcntl.h>
|
||||||
|
#include <sys/types.h>
|
||||||
|
#include <utime.h>
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#include <lua.h>
|
||||||
|
#include <lauxlib.h>
|
||||||
|
#include <lualib.h>
|
||||||
|
|
||||||
|
#include "lfs.h"
|
||||||
|
|
||||||
|
#define LFS_VERSION "1.6.2"
|
||||||
|
#define LFS_LIBNAME "lfs"
|
||||||
|
|
||||||
|
#if LUA_VERSION_NUM < 502
|
||||||
|
# define luaL_newlib(L,l) (lua_newtable(L), luaL_register(L,NULL,l))
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* Define 'strerror' for systems that do not implement it */
|
||||||
|
#ifdef NO_STRERROR
|
||||||
|
#define strerror(_) "System unable to describe the error"
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* Define 'getcwd' for systems that do not implement it */
|
||||||
|
#ifdef NO_GETCWD
|
||||||
|
#define getcwd(p,s) NULL
|
||||||
|
#define getcwd_error "Function 'getcwd' not provided by system"
|
||||||
|
#else
|
||||||
|
#define getcwd_error strerror(errno)
|
||||||
|
#ifdef _WIN32
|
||||||
|
/* MAX_PATH seems to be 260. Seems kind of small. Is there a better one? */
|
||||||
|
#define LFS_MAXPATHLEN MAX_PATH
|
||||||
|
#else
|
||||||
|
/* For MAXPATHLEN: */
|
||||||
|
#include <sys/param.h>
|
||||||
|
#define LFS_MAXPATHLEN MAXPATHLEN
|
||||||
|
#endif
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#define DIR_METATABLE "directory metatable"
|
||||||
|
typedef struct dir_data {
|
||||||
|
int closed;
|
||||||
|
#ifdef _WIN32
|
||||||
|
long hFile;
|
||||||
|
char pattern[MAX_PATH+1];
|
||||||
|
#else
|
||||||
|
DIR *dir;
|
||||||
|
#endif
|
||||||
|
} dir_data;
|
||||||
|
|
||||||
|
#define LOCK_METATABLE "lock metatable"
|
||||||
|
|
||||||
|
#ifdef _WIN32
|
||||||
|
#ifdef __BORLANDC__
|
||||||
|
#define lfs_setmode(L,file,m) ((void)L, setmode(_fileno(file), m))
|
||||||
|
#define STAT_STRUCT struct stati64
|
||||||
|
#else
|
||||||
|
#define lfs_setmode(L,file,m) ((void)L, _setmode(_fileno(file), m))
|
||||||
|
#define STAT_STRUCT struct _stati64
|
||||||
|
#endif
|
||||||
|
#define STAT_FUNC _stati64
|
||||||
|
#define LSTAT_FUNC STAT_FUNC
|
||||||
|
#else
|
||||||
|
#define _O_TEXT 0
|
||||||
|
#define _O_BINARY 0
|
||||||
|
#define lfs_setmode(L,file,m) ((void)L, (void)file, (void)m, 0)
|
||||||
|
#define STAT_STRUCT struct stat
|
||||||
|
#define STAT_FUNC stat
|
||||||
|
#define LSTAT_FUNC lstat
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Utility functions
|
||||||
|
*/
|
||||||
|
static int pusherror(lua_State *L, const char *info)
|
||||||
|
{
|
||||||
|
lua_pushnil(L);
|
||||||
|
if (info==NULL)
|
||||||
|
lua_pushstring(L, strerror(errno));
|
||||||
|
else
|
||||||
|
lua_pushfstring(L, "%s: %s", info, strerror(errno));
|
||||||
|
lua_pushinteger(L, errno);
|
||||||
|
return 3;
|
||||||
|
}
|
||||||
|
|
||||||
|
static int pushresult(lua_State *L, int i, const char *info)
|
||||||
|
{
|
||||||
|
if (i==-1)
|
||||||
|
return pusherror(L, info);
|
||||||
|
lua_pushinteger(L, i);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** This function changes the working (current) directory
|
||||||
|
*/
|
||||||
|
static int change_dir (lua_State *L) {
|
||||||
|
const char *path = luaL_checkstring(L, 1);
|
||||||
|
if (chdir(path)) {
|
||||||
|
lua_pushnil (L);
|
||||||
|
lua_pushfstring (L,"Unable to change working directory to '%s'\n%s\n",
|
||||||
|
path, chdir_error);
|
||||||
|
return 2;
|
||||||
|
} else {
|
||||||
|
lua_pushboolean (L, 1);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
** This function returns the current directory
|
||||||
|
** If unable to get the current directory, it returns nil
|
||||||
|
** and a string describing the error
|
||||||
|
*/
|
||||||
|
static int get_dir (lua_State *L) {
|
||||||
|
char *path;
|
||||||
|
/* Passing (NULL, 0) is not guaranteed to work. Use a temp buffer and size instead. */
|
||||||
|
char buf[LFS_MAXPATHLEN];
|
||||||
|
if ((path = getcwd(buf, LFS_MAXPATHLEN)) == NULL) {
|
||||||
|
lua_pushnil(L);
|
||||||
|
lua_pushstring(L, getcwd_error);
|
||||||
|
return 2;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
lua_pushstring(L, path);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Check if the given element on the stack is a file and returns it.
|
||||||
|
*/
|
||||||
|
static FILE *check_file (lua_State *L, int idx, const char *funcname) {
|
||||||
|
FILE **fh = (FILE **)luaL_checkudata (L, idx, "FILE*");
|
||||||
|
if (fh == NULL) {
|
||||||
|
luaL_error (L, "%s: not a file", funcname);
|
||||||
|
return 0;
|
||||||
|
} else if (*fh == NULL) {
|
||||||
|
luaL_error (L, "%s: closed file", funcname);
|
||||||
|
return 0;
|
||||||
|
} else
|
||||||
|
return *fh;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
**
|
||||||
|
*/
|
||||||
|
static int _file_lock (lua_State *L, FILE *fh, const char *mode, const long start, long len, const char *funcname) {
|
||||||
|
int code;
|
||||||
|
#ifdef _WIN32
|
||||||
|
/* lkmode valid values are:
|
||||||
|
LK_LOCK Locks the specified bytes. If the bytes cannot be locked, the program immediately tries again after 1 second. If, after 10 attempts, the bytes cannot be locked, the constant returns an error.
|
||||||
|
LK_NBLCK Locks the specified bytes. If the bytes cannot be locked, the constant returns an error.
|
||||||
|
LK_NBRLCK Same as _LK_NBLCK.
|
||||||
|
LK_RLCK Same as _LK_LOCK.
|
||||||
|
LK_UNLCK Unlocks the specified bytes, which must have been previously locked.
|
||||||
|
|
||||||
|
Regions should be locked only briefly and should be unlocked before closing a file or exiting the program.
|
||||||
|
|
||||||
|
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vclib/html/_crt__locking.asp
|
||||||
|
*/
|
||||||
|
int lkmode;
|
||||||
|
switch (*mode) {
|
||||||
|
case 'r': lkmode = LK_NBLCK; break;
|
||||||
|
case 'w': lkmode = LK_NBLCK; break;
|
||||||
|
case 'u': lkmode = LK_UNLCK; break;
|
||||||
|
default : return luaL_error (L, "%s: invalid mode", funcname);
|
||||||
|
}
|
||||||
|
if (!len) {
|
||||||
|
fseek (fh, 0L, SEEK_END);
|
||||||
|
len = ftell (fh);
|
||||||
|
}
|
||||||
|
fseek (fh, start, SEEK_SET);
|
||||||
|
#ifdef __BORLANDC__
|
||||||
|
code = locking (fileno(fh), lkmode, len);
|
||||||
|
#else
|
||||||
|
code = _locking (fileno(fh), lkmode, len);
|
||||||
|
#endif
|
||||||
|
#else
|
||||||
|
struct flock f;
|
||||||
|
switch (*mode) {
|
||||||
|
case 'w': f.l_type = F_WRLCK; break;
|
||||||
|
case 'r': f.l_type = F_RDLCK; break;
|
||||||
|
case 'u': f.l_type = F_UNLCK; break;
|
||||||
|
default : return luaL_error (L, "%s: invalid mode", funcname);
|
||||||
|
}
|
||||||
|
f.l_whence = SEEK_SET;
|
||||||
|
f.l_start = (off_t)start;
|
||||||
|
f.l_len = (off_t)len;
|
||||||
|
code = fcntl (fileno(fh), F_SETLK, &f);
|
||||||
|
#endif
|
||||||
|
return (code != -1);
|
||||||
|
}
|
||||||
|
|
||||||
|
#ifdef _WIN32
|
||||||
|
typedef struct lfs_Lock {
|
||||||
|
HANDLE fd;
|
||||||
|
} lfs_Lock;
|
||||||
|
static int lfs_lock_dir(lua_State *L) {
|
||||||
|
size_t pathl; HANDLE fd;
|
||||||
|
lfs_Lock *lock;
|
||||||
|
char *ln;
|
||||||
|
const char *lockfile = "/lockfile.lfs";
|
||||||
|
const char *path = luaL_checklstring(L, 1, &pathl);
|
||||||
|
ln = (char*)malloc(pathl + strlen(lockfile) + 1);
|
||||||
|
if(!ln) {
|
||||||
|
lua_pushnil(L); lua_pushstring(L, strerror(errno)); return 2;
|
||||||
|
}
|
||||||
|
strcpy(ln, path); strcat(ln, lockfile);
|
||||||
|
/* Use "CreateFileA" to use the Multi-Byte-Character version, even if the rest of the project uses the Unicode (UTF16) version */
|
||||||
|
if((fd = CreateFileA(ln, GENERIC_WRITE, 0, NULL, CREATE_NEW,
|
||||||
|
FILE_ATTRIBUTE_NORMAL | FILE_FLAG_DELETE_ON_CLOSE, NULL)) == INVALID_HANDLE_VALUE) {
|
||||||
|
int en = GetLastError();
|
||||||
|
free(ln); lua_pushnil(L);
|
||||||
|
if(en == ERROR_FILE_EXISTS || en == ERROR_SHARING_VIOLATION)
|
||||||
|
lua_pushstring(L, "File exists");
|
||||||
|
else
|
||||||
|
lua_pushstring(L, strerror(en));
|
||||||
|
return 2;
|
||||||
|
}
|
||||||
|
free(ln);
|
||||||
|
lock = (lfs_Lock*)lua_newuserdata(L, sizeof(lfs_Lock));
|
||||||
|
lock->fd = fd;
|
||||||
|
luaL_getmetatable (L, LOCK_METATABLE);
|
||||||
|
lua_setmetatable (L, -2);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
static int lfs_unlock_dir(lua_State *L) {
|
||||||
|
lfs_Lock *lock = luaL_checkudata(L, 1, LOCK_METATABLE);
|
||||||
|
CloseHandle(lock->fd);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
#else
|
||||||
|
typedef struct lfs_Lock {
|
||||||
|
char *ln;
|
||||||
|
} lfs_Lock;
|
||||||
|
static int lfs_lock_dir(lua_State *L) {
|
||||||
|
lfs_Lock *lock;
|
||||||
|
size_t pathl;
|
||||||
|
char *ln;
|
||||||
|
const char *lockfile = "/lockfile.lfs";
|
||||||
|
const char *path = luaL_checklstring(L, 1, &pathl);
|
||||||
|
lock = (lfs_Lock*)lua_newuserdata(L, sizeof(lfs_Lock));
|
||||||
|
ln = (char*)malloc(pathl + strlen(lockfile) + 1);
|
||||||
|
if(!ln) {
|
||||||
|
lua_pushnil(L); lua_pushstring(L, strerror(errno)); return 2;
|
||||||
|
}
|
||||||
|
strcpy(ln, path); strcat(ln, lockfile);
|
||||||
|
if(symlink("lock", ln) == -1) {
|
||||||
|
free(ln); lua_pushnil(L);
|
||||||
|
lua_pushstring(L, strerror(errno)); return 2;
|
||||||
|
}
|
||||||
|
lock->ln = ln;
|
||||||
|
luaL_getmetatable (L, LOCK_METATABLE);
|
||||||
|
lua_setmetatable (L, -2);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
static int lfs_unlock_dir(lua_State *L) {
|
||||||
|
lfs_Lock *lock = luaL_checkudata(L, 1, LOCK_METATABLE);
|
||||||
|
if(lock->ln) {
|
||||||
|
unlink(lock->ln);
|
||||||
|
free(lock->ln);
|
||||||
|
lock->ln = NULL;
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
static int lfs_g_setmode (lua_State *L, FILE *f, int arg) {
|
||||||
|
static const int mode[] = {_O_BINARY, _O_TEXT};
|
||||||
|
static const char *const modenames[] = {"binary", "text", NULL};
|
||||||
|
int op = luaL_checkoption(L, arg, NULL, modenames);
|
||||||
|
int res = lfs_setmode(L, f, mode[op]);
|
||||||
|
if (res != -1) {
|
||||||
|
int i;
|
||||||
|
lua_pushboolean(L, 1);
|
||||||
|
for (i = 0; modenames[i] != NULL; i++) {
|
||||||
|
if (mode[i] == res) {
|
||||||
|
lua_pushstring(L, modenames[i]);
|
||||||
|
goto exit;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
lua_pushnil(L);
|
||||||
|
exit:
|
||||||
|
return 2;
|
||||||
|
} else {
|
||||||
|
int en = errno;
|
||||||
|
lua_pushnil(L);
|
||||||
|
lua_pushfstring(L, "%s", strerror(en));
|
||||||
|
lua_pushinteger(L, en);
|
||||||
|
return 3;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
static int lfs_f_setmode(lua_State *L) {
|
||||||
|
return lfs_g_setmode(L, check_file(L, 1, "setmode"), 2);
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Locks a file.
|
||||||
|
** @param #1 File handle.
|
||||||
|
** @param #2 String with lock mode ('w'rite, 'r'ead).
|
||||||
|
** @param #3 Number with start position (optional).
|
||||||
|
** @param #4 Number with length (optional).
|
||||||
|
*/
|
||||||
|
static int file_lock (lua_State *L) {
|
||||||
|
FILE *fh = check_file (L, 1, "lock");
|
||||||
|
const char *mode = luaL_checkstring (L, 2);
|
||||||
|
const long start = luaL_optlong (L, 3, 0);
|
||||||
|
long len = luaL_optlong (L, 4, 0);
|
||||||
|
if (_file_lock (L, fh, mode, start, len, "lock")) {
|
||||||
|
lua_pushboolean (L, 1);
|
||||||
|
return 1;
|
||||||
|
} else {
|
||||||
|
lua_pushnil (L);
|
||||||
|
lua_pushfstring (L, "%s", strerror(errno));
|
||||||
|
return 2;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Unlocks a file.
|
||||||
|
** @param #1 File handle.
|
||||||
|
** @param #2 Number with start position (optional).
|
||||||
|
** @param #3 Number with length (optional).
|
||||||
|
*/
|
||||||
|
static int file_unlock (lua_State *L) {
|
||||||
|
FILE *fh = check_file (L, 1, "unlock");
|
||||||
|
const long start = luaL_optlong (L, 2, 0);
|
||||||
|
long len = luaL_optlong (L, 3, 0);
|
||||||
|
if (_file_lock (L, fh, "u", start, len, "unlock")) {
|
||||||
|
lua_pushboolean (L, 1);
|
||||||
|
return 1;
|
||||||
|
} else {
|
||||||
|
lua_pushnil (L);
|
||||||
|
lua_pushfstring (L, "%s", strerror(errno));
|
||||||
|
return 2;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Creates a link.
|
||||||
|
** @param #1 Object to link to.
|
||||||
|
** @param #2 Name of link.
|
||||||
|
** @param #3 True if link is symbolic (optional).
|
||||||
|
*/
|
||||||
|
static int make_link(lua_State *L)
|
||||||
|
{
|
||||||
|
#ifndef _WIN32
|
||||||
|
const char *oldpath = luaL_checkstring(L, 1);
|
||||||
|
const char *newpath = luaL_checkstring(L, 2);
|
||||||
|
return pushresult(L,
|
||||||
|
(lua_toboolean(L,3) ? symlink : link)(oldpath, newpath), NULL);
|
||||||
|
#else
|
||||||
|
return pusherror(L, "make_link is not supported on Windows");
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Creates a directory.
|
||||||
|
** @param #1 Directory path.
|
||||||
|
*/
|
||||||
|
static int make_dir (lua_State *L) {
|
||||||
|
const char *path = luaL_checkstring (L, 1);
|
||||||
|
int fail;
|
||||||
|
#ifdef _WIN32
|
||||||
|
fail = _mkdir (path);
|
||||||
|
#else
|
||||||
|
fail = mkdir (path, S_IRUSR | S_IWUSR | S_IXUSR | S_IRGRP |
|
||||||
|
S_IWGRP | S_IXGRP | S_IROTH | S_IXOTH );
|
||||||
|
#endif
|
||||||
|
if (fail) {
|
||||||
|
lua_pushnil (L);
|
||||||
|
lua_pushfstring (L, "%s", strerror(errno));
|
||||||
|
return 2;
|
||||||
|
}
|
||||||
|
lua_pushboolean (L, 1);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Removes a directory.
|
||||||
|
** @param #1 Directory path.
|
||||||
|
*/
|
||||||
|
static int remove_dir (lua_State *L) {
|
||||||
|
const char *path = luaL_checkstring (L, 1);
|
||||||
|
int fail;
|
||||||
|
|
||||||
|
fail = rmdir (path);
|
||||||
|
|
||||||
|
if (fail) {
|
||||||
|
lua_pushnil (L);
|
||||||
|
lua_pushfstring (L, "%s", strerror(errno));
|
||||||
|
return 2;
|
||||||
|
}
|
||||||
|
lua_pushboolean (L, 1);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Directory iterator
|
||||||
|
*/
|
||||||
|
static int dir_iter (lua_State *L) {
|
||||||
|
#ifdef _WIN32
|
||||||
|
struct _finddata_t c_file;
|
||||||
|
#else
|
||||||
|
struct dirent *entry;
|
||||||
|
#endif
|
||||||
|
dir_data *d = (dir_data *)luaL_checkudata (L, 1, DIR_METATABLE);
|
||||||
|
luaL_argcheck (L, d->closed == 0, 1, "closed directory");
|
||||||
|
#ifdef _WIN32
|
||||||
|
if (d->hFile == 0L) { /* first entry */
|
||||||
|
if ((d->hFile = _findfirst (d->pattern, &c_file)) == -1L) {
|
||||||
|
lua_pushnil (L);
|
||||||
|
lua_pushstring (L, strerror (errno));
|
||||||
|
d->closed = 1;
|
||||||
|
return 2;
|
||||||
|
} else {
|
||||||
|
lua_pushstring (L, c_file.name);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
} else { /* next entry */
|
||||||
|
if (_findnext (d->hFile, &c_file) == -1L) {
|
||||||
|
/* no more entries => close directory */
|
||||||
|
_findclose (d->hFile);
|
||||||
|
d->closed = 1;
|
||||||
|
return 0;
|
||||||
|
} else {
|
||||||
|
lua_pushstring (L, c_file.name);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
#else
|
||||||
|
if ((entry = readdir (d->dir)) != NULL) {
|
||||||
|
lua_pushstring (L, entry->d_name);
|
||||||
|
return 1;
|
||||||
|
} else {
|
||||||
|
/* no more entries => close directory */
|
||||||
|
closedir (d->dir);
|
||||||
|
d->closed = 1;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Closes directory iterators
|
||||||
|
*/
|
||||||
|
static int dir_close (lua_State *L) {
|
||||||
|
dir_data *d = (dir_data *)lua_touserdata (L, 1);
|
||||||
|
#ifdef _WIN32
|
||||||
|
if (!d->closed && d->hFile) {
|
||||||
|
_findclose (d->hFile);
|
||||||
|
}
|
||||||
|
#else
|
||||||
|
if (!d->closed && d->dir) {
|
||||||
|
closedir (d->dir);
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
d->closed = 1;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Factory of directory iterators
|
||||||
|
*/
|
||||||
|
static int dir_iter_factory (lua_State *L) {
|
||||||
|
const char *path = luaL_checkstring (L, 1);
|
||||||
|
dir_data *d;
|
||||||
|
lua_pushcfunction (L, dir_iter);
|
||||||
|
d = (dir_data *) lua_newuserdata (L, sizeof(dir_data));
|
||||||
|
luaL_getmetatable (L, DIR_METATABLE);
|
||||||
|
lua_setmetatable (L, -2);
|
||||||
|
d->closed = 0;
|
||||||
|
#ifdef _WIN32
|
||||||
|
d->hFile = 0L;
|
||||||
|
if (strlen(path) > MAX_PATH-2)
|
||||||
|
luaL_error (L, "path too long: %s", path);
|
||||||
|
else
|
||||||
|
sprintf (d->pattern, "%s/*", path);
|
||||||
|
#else
|
||||||
|
d->dir = opendir (path);
|
||||||
|
if (d->dir == NULL)
|
||||||
|
luaL_error (L, "cannot open %s: %s", path, strerror (errno));
|
||||||
|
#endif
|
||||||
|
return 2;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Creates directory metatable.
|
||||||
|
*/
|
||||||
|
static int dir_create_meta (lua_State *L) {
|
||||||
|
luaL_newmetatable (L, DIR_METATABLE);
|
||||||
|
|
||||||
|
/* Method table */
|
||||||
|
lua_newtable(L);
|
||||||
|
lua_pushcfunction (L, dir_iter);
|
||||||
|
lua_setfield(L, -2, "next");
|
||||||
|
lua_pushcfunction (L, dir_close);
|
||||||
|
lua_setfield(L, -2, "close");
|
||||||
|
|
||||||
|
/* Metamethods */
|
||||||
|
lua_setfield(L, -2, "__index");
|
||||||
|
lua_pushcfunction (L, dir_close);
|
||||||
|
lua_setfield (L, -2, "__gc");
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Creates lock metatable.
|
||||||
|
*/
|
||||||
|
static int lock_create_meta (lua_State *L) {
|
||||||
|
luaL_newmetatable (L, LOCK_METATABLE);
|
||||||
|
|
||||||
|
/* Method table */
|
||||||
|
lua_newtable(L);
|
||||||
|
lua_pushcfunction(L, lfs_unlock_dir);
|
||||||
|
lua_setfield(L, -2, "free");
|
||||||
|
|
||||||
|
/* Metamethods */
|
||||||
|
lua_setfield(L, -2, "__index");
|
||||||
|
lua_pushcfunction(L, lfs_unlock_dir);
|
||||||
|
lua_setfield(L, -2, "__gc");
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
#ifdef _WIN32
|
||||||
|
#ifndef S_ISDIR
|
||||||
|
#define S_ISDIR(mode) (mode&_S_IFDIR)
|
||||||
|
#endif
|
||||||
|
#ifndef S_ISREG
|
||||||
|
#define S_ISREG(mode) (mode&_S_IFREG)
|
||||||
|
#endif
|
||||||
|
#ifndef S_ISLNK
|
||||||
|
#define S_ISLNK(mode) (0)
|
||||||
|
#endif
|
||||||
|
#ifndef S_ISSOCK
|
||||||
|
#define S_ISSOCK(mode) (0)
|
||||||
|
#endif
|
||||||
|
#ifndef S_ISFIFO
|
||||||
|
#define S_ISFIFO(mode) (0)
|
||||||
|
#endif
|
||||||
|
#ifndef S_ISCHR
|
||||||
|
#define S_ISCHR(mode) (mode&_S_IFCHR)
|
||||||
|
#endif
|
||||||
|
#ifndef S_ISBLK
|
||||||
|
#define S_ISBLK(mode) (0)
|
||||||
|
#endif
|
||||||
|
#endif
|
||||||
|
/*
|
||||||
|
** Convert the inode protection mode to a string.
|
||||||
|
*/
|
||||||
|
#ifdef _WIN32
|
||||||
|
static const char *mode2string (unsigned short mode) {
|
||||||
|
#else
|
||||||
|
static const char *mode2string (mode_t mode) {
|
||||||
|
#endif
|
||||||
|
if ( S_ISREG(mode) )
|
||||||
|
return "file";
|
||||||
|
else if ( S_ISDIR(mode) )
|
||||||
|
return "directory";
|
||||||
|
else if ( S_ISLNK(mode) )
|
||||||
|
return "link";
|
||||||
|
else if ( S_ISSOCK(mode) )
|
||||||
|
return "socket";
|
||||||
|
else if ( S_ISFIFO(mode) )
|
||||||
|
return "named pipe";
|
||||||
|
else if ( S_ISCHR(mode) )
|
||||||
|
return "char device";
|
||||||
|
else if ( S_ISBLK(mode) )
|
||||||
|
return "block device";
|
||||||
|
else
|
||||||
|
return "other";
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Set access time and modification values for file
|
||||||
|
*/
|
||||||
|
static int file_utime (lua_State *L) {
|
||||||
|
const char *file = luaL_checkstring (L, 1);
|
||||||
|
struct utimbuf utb, *buf;
|
||||||
|
|
||||||
|
if (lua_gettop (L) == 1) /* set to current date/time */
|
||||||
|
buf = NULL;
|
||||||
|
else {
|
||||||
|
utb.actime = (time_t)luaL_optnumber (L, 2, 0);
|
||||||
|
utb.modtime = (time_t)luaL_optnumber (L, 3, utb.actime);
|
||||||
|
buf = &utb;
|
||||||
|
}
|
||||||
|
if (utime (file, buf)) {
|
||||||
|
lua_pushnil (L);
|
||||||
|
lua_pushfstring (L, "%s", strerror (errno));
|
||||||
|
return 2;
|
||||||
|
}
|
||||||
|
lua_pushboolean (L, 1);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* inode protection mode */
|
||||||
|
static void push_st_mode (lua_State *L, STAT_STRUCT *info) {
|
||||||
|
lua_pushstring (L, mode2string (info->st_mode));
|
||||||
|
}
|
||||||
|
/* device inode resides on */
|
||||||
|
static void push_st_dev (lua_State *L, STAT_STRUCT *info) {
|
||||||
|
lua_pushnumber (L, (lua_Number)info->st_dev);
|
||||||
|
}
|
||||||
|
/* inode's number */
|
||||||
|
static void push_st_ino (lua_State *L, STAT_STRUCT *info) {
|
||||||
|
lua_pushnumber (L, (lua_Number)info->st_ino);
|
||||||
|
}
|
||||||
|
/* number of hard links to the file */
|
||||||
|
static void push_st_nlink (lua_State *L, STAT_STRUCT *info) {
|
||||||
|
lua_pushnumber (L, (lua_Number)info->st_nlink);
|
||||||
|
}
|
||||||
|
/* user-id of owner */
|
||||||
|
static void push_st_uid (lua_State *L, STAT_STRUCT *info) {
|
||||||
|
lua_pushnumber (L, (lua_Number)info->st_uid);
|
||||||
|
}
|
||||||
|
/* group-id of owner */
|
||||||
|
static void push_st_gid (lua_State *L, STAT_STRUCT *info) {
|
||||||
|
lua_pushnumber (L, (lua_Number)info->st_gid);
|
||||||
|
}
|
||||||
|
/* device type, for special file inode */
|
||||||
|
static void push_st_rdev (lua_State *L, STAT_STRUCT *info) {
|
||||||
|
lua_pushnumber (L, (lua_Number)info->st_rdev);
|
||||||
|
}
|
||||||
|
/* time of last access */
|
||||||
|
static void push_st_atime (lua_State *L, STAT_STRUCT *info) {
|
||||||
|
lua_pushnumber (L, info->st_atime);
|
||||||
|
}
|
||||||
|
/* time of last data modification */
|
||||||
|
static void push_st_mtime (lua_State *L, STAT_STRUCT *info) {
|
||||||
|
lua_pushnumber (L, info->st_mtime);
|
||||||
|
}
|
||||||
|
/* time of last file status change */
|
||||||
|
static void push_st_ctime (lua_State *L, STAT_STRUCT *info) {
|
||||||
|
lua_pushnumber (L, info->st_ctime);
|
||||||
|
}
|
||||||
|
/* file size, in bytes */
|
||||||
|
static void push_st_size (lua_State *L, STAT_STRUCT *info) {
|
||||||
|
lua_pushnumber (L, (lua_Number)info->st_size);
|
||||||
|
}
|
||||||
|
#ifndef _WIN32
|
||||||
|
/* blocks allocated for file */
|
||||||
|
static void push_st_blocks (lua_State *L, STAT_STRUCT *info) {
|
||||||
|
lua_pushnumber (L, (lua_Number)info->st_blocks);
|
||||||
|
}
|
||||||
|
/* optimal file system I/O blocksize */
|
||||||
|
static void push_st_blksize (lua_State *L, STAT_STRUCT *info) {
|
||||||
|
lua_pushnumber (L, (lua_Number)info->st_blksize);
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
static void push_invalid (lua_State *L, STAT_STRUCT *info) {
|
||||||
|
luaL_error(L, "invalid attribute name");
|
||||||
|
#ifndef _WIN32
|
||||||
|
info->st_blksize = 0; /* never reached */
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Convert the inode protection mode to a permission list.
|
||||||
|
*/
|
||||||
|
|
||||||
|
#ifdef _WIN32
|
||||||
|
static const char *perm2string (unsigned short mode) {
|
||||||
|
static char perms[10] = "---------\0";
|
||||||
|
int i;
|
||||||
|
for (i=0;i<9;i++) perms[i]='-';
|
||||||
|
if (mode & _S_IREAD)
|
||||||
|
{ perms[0] = 'r'; perms[3] = 'r'; perms[6] = 'r'; }
|
||||||
|
if (mode & _S_IWRITE)
|
||||||
|
{ perms[1] = 'w'; perms[4] = 'w'; perms[7] = 'w'; }
|
||||||
|
if (mode & _S_IEXEC)
|
||||||
|
{ perms[2] = 'x'; perms[5] = 'x'; perms[8] = 'x'; }
|
||||||
|
return perms;
|
||||||
|
}
|
||||||
|
#else
|
||||||
|
static const char *perm2string (mode_t mode) {
|
||||||
|
static char perms[10] = "---------\0";
|
||||||
|
int i;
|
||||||
|
for (i=0;i<9;i++) perms[i]='-';
|
||||||
|
if (mode & S_IRUSR) perms[0] = 'r';
|
||||||
|
if (mode & S_IWUSR) perms[1] = 'w';
|
||||||
|
if (mode & S_IXUSR) perms[2] = 'x';
|
||||||
|
if (mode & S_IRGRP) perms[3] = 'r';
|
||||||
|
if (mode & S_IWGRP) perms[4] = 'w';
|
||||||
|
if (mode & S_IXGRP) perms[5] = 'x';
|
||||||
|
if (mode & S_IROTH) perms[6] = 'r';
|
||||||
|
if (mode & S_IWOTH) perms[7] = 'w';
|
||||||
|
if (mode & S_IXOTH) perms[8] = 'x';
|
||||||
|
return perms;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* permssions string */
|
||||||
|
static void push_st_perm (lua_State *L, STAT_STRUCT *info) {
|
||||||
|
lua_pushstring (L, perm2string (info->st_mode));
|
||||||
|
}
|
||||||
|
|
||||||
|
typedef void (*_push_function) (lua_State *L, STAT_STRUCT *info);
|
||||||
|
|
||||||
|
struct _stat_members {
|
||||||
|
const char *name;
|
||||||
|
_push_function push;
|
||||||
|
};
|
||||||
|
|
||||||
|
struct _stat_members members[] = {
|
||||||
|
{ "mode", push_st_mode },
|
||||||
|
{ "dev", push_st_dev },
|
||||||
|
{ "ino", push_st_ino },
|
||||||
|
{ "nlink", push_st_nlink },
|
||||||
|
{ "uid", push_st_uid },
|
||||||
|
{ "gid", push_st_gid },
|
||||||
|
{ "rdev", push_st_rdev },
|
||||||
|
{ "access", push_st_atime },
|
||||||
|
{ "modification", push_st_mtime },
|
||||||
|
{ "change", push_st_ctime },
|
||||||
|
{ "size", push_st_size },
|
||||||
|
{ "permissions", push_st_perm },
|
||||||
|
#ifndef _WIN32
|
||||||
|
{ "blocks", push_st_blocks },
|
||||||
|
{ "blksize", push_st_blksize },
|
||||||
|
#endif
|
||||||
|
{ NULL, push_invalid }
|
||||||
|
};
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Get file or symbolic link information
|
||||||
|
*/
|
||||||
|
static int _file_info_ (lua_State *L, int (*st)(const char*, STAT_STRUCT*)) {
|
||||||
|
int i;
|
||||||
|
STAT_STRUCT info;
|
||||||
|
const char *file = luaL_checkstring (L, 1);
|
||||||
|
|
||||||
|
if (st(file, &info)) {
|
||||||
|
lua_pushnil (L);
|
||||||
|
lua_pushfstring (L, "cannot obtain information from file `%s'", file);
|
||||||
|
return 2;
|
||||||
|
}
|
||||||
|
if (lua_isstring (L, 2)) {
|
||||||
|
int v;
|
||||||
|
const char *member = lua_tostring (L, 2);
|
||||||
|
if (strcmp (member, "mode") == 0) v = 0;
|
||||||
|
#ifndef _WIN32
|
||||||
|
else if (strcmp (member, "blocks") == 0) v = 11;
|
||||||
|
else if (strcmp (member, "blksize") == 0) v = 12;
|
||||||
|
#endif
|
||||||
|
else /* look for member */
|
||||||
|
for (v = 1; members[v].name; v++)
|
||||||
|
if (*members[v].name == *member)
|
||||||
|
break;
|
||||||
|
/* push member value and return */
|
||||||
|
members[v].push (L, &info);
|
||||||
|
return 1;
|
||||||
|
} else if (!lua_istable (L, 2))
|
||||||
|
/* creates a table if none is given */
|
||||||
|
lua_newtable (L);
|
||||||
|
/* stores all members in table on top of the stack */
|
||||||
|
for (i = 0; members[i].name; i++) {
|
||||||
|
lua_pushstring (L, members[i].name);
|
||||||
|
members[i].push (L, &info);
|
||||||
|
lua_rawset (L, -3);
|
||||||
|
}
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Get file information using stat.
|
||||||
|
*/
|
||||||
|
static int file_info (lua_State *L) {
|
||||||
|
return _file_info_ (L, STAT_FUNC);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Get symbolic link information using lstat.
|
||||||
|
*/
|
||||||
|
static int link_info (lua_State *L) {
|
||||||
|
return _file_info_ (L, LSTAT_FUNC);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Assumes the table is on top of the stack.
|
||||||
|
*/
|
||||||
|
static void set_info (lua_State *L) {
|
||||||
|
lua_pushliteral (L, "_COPYRIGHT");
|
||||||
|
lua_pushliteral (L, "Copyright (C) 2003-2012 Kepler Project");
|
||||||
|
lua_settable (L, -3);
|
||||||
|
lua_pushliteral (L, "_DESCRIPTION");
|
||||||
|
lua_pushliteral (L, "LuaFileSystem is a Lua library developed to complement the set of functions related to file systems offered by the standard Lua distribution");
|
||||||
|
lua_settable (L, -3);
|
||||||
|
lua_pushliteral (L, "_VERSION");
|
||||||
|
lua_pushliteral (L, "LuaFileSystem "LFS_VERSION);
|
||||||
|
lua_settable (L, -3);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
static const struct luaL_Reg fslib[] = {
|
||||||
|
{"attributes", file_info},
|
||||||
|
{"chdir", change_dir},
|
||||||
|
{"currentdir", get_dir},
|
||||||
|
{"dir", dir_iter_factory},
|
||||||
|
{"link", make_link},
|
||||||
|
{"lock", file_lock},
|
||||||
|
{"mkdir", make_dir},
|
||||||
|
{"rmdir", remove_dir},
|
||||||
|
{"symlinkattributes", link_info},
|
||||||
|
{"setmode", lfs_f_setmode},
|
||||||
|
{"touch", file_utime},
|
||||||
|
{"unlock", file_unlock},
|
||||||
|
{"lock_dir", lfs_lock_dir},
|
||||||
|
{NULL, NULL},
|
||||||
|
};
|
||||||
|
|
||||||
|
int luaopen_lfs (lua_State *L) {
|
||||||
|
dir_create_meta (L);
|
||||||
|
lock_create_meta (L);
|
||||||
|
luaL_newlib (L, fslib);
|
||||||
|
lua_pushvalue(L, -1);
|
||||||
|
lua_setglobal(L, LFS_LIBNAME);
|
||||||
|
set_info (L);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
17
src/third_party/lfs.h
vendored
Normal file
17
src/third_party/lfs.h
vendored
Normal file
@@ -0,0 +1,17 @@
|
|||||||
|
/*
|
||||||
|
** LuaFileSystem
|
||||||
|
** Copyright Kepler Project 2003 (http://www.keplerproject.org/luafilesystem)
|
||||||
|
**
|
||||||
|
** $Id: lfs.h,v 1.5 2008/02/19 20:08:23 mascarenhas Exp $
|
||||||
|
*/
|
||||||
|
|
||||||
|
/* Define 'chdir' for systems that do not implement it */
|
||||||
|
#ifdef NO_CHDIR
|
||||||
|
#define chdir(p) (-1)
|
||||||
|
#define chdir_error "Function 'chdir' not provided by system"
|
||||||
|
#else
|
||||||
|
#define chdir_error strerror(errno)
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
||||||
|
int luaopen_lfs (lua_State *L);
|
||||||
73
test/ajax/echo.cgi
Normal file
73
test/ajax/echo.cgi
Normal file
@@ -0,0 +1,73 @@
|
|||||||
|
#!/usr/bin/lua5.1
|
||||||
|
|
||||||
|
-- Every CGI script that returns any valid JSON object will work in the test.
|
||||||
|
-- In case you do not have not yet used CGI, you may want to use this script which is written in Lua.
|
||||||
|
-- You may download an interpreter from http://luabinaries.sourceforge.net/download.html, extract it
|
||||||
|
-- to some folder in your search path (the path of the webserver or /usr/bin on Linux), and add the
|
||||||
|
-- following lines to your .conf file.
|
||||||
|
-- cgi_interpreter c:\somewhere\lua5.1.exe
|
||||||
|
-- enable_keep_alive yes
|
||||||
|
|
||||||
|
resp = "{";
|
||||||
|
|
||||||
|
method = os.getenv("REQUEST_METHOD")
|
||||||
|
uri = os.getenv("REQUEST_URI");
|
||||||
|
query = os.getenv("QUERY_STRING");
|
||||||
|
datalen = os.getenv("CONTENT_LENGTH");
|
||||||
|
|
||||||
|
if method then
|
||||||
|
resp = resp .. '"method" : "' .. method .. '", ';
|
||||||
|
end
|
||||||
|
if uri then
|
||||||
|
resp = resp .. '"uri" : "' .. uri .. '", ';
|
||||||
|
end
|
||||||
|
if query then
|
||||||
|
resp = resp .. '"query" : "' .. query .. '", ';
|
||||||
|
end
|
||||||
|
if datalen then
|
||||||
|
resp = resp .. '"datalen" : "' .. datalen .. '", ';
|
||||||
|
end
|
||||||
|
|
||||||
|
resp = resp .. '"time" : "' .. os.date() .. '" ';
|
||||||
|
|
||||||
|
resp = resp .. "}";
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
print "Status: 200 OK"
|
||||||
|
print "Connection: close"
|
||||||
|
--print "Connection: keep-alive"
|
||||||
|
print "Content-Type: text/html; charset=utf-8"
|
||||||
|
print "Cache-Control: no-cache"
|
||||||
|
--print ("Content-Length: " .. resp:len())
|
||||||
|
print ""
|
||||||
|
|
||||||
|
print (resp)
|
||||||
|
|
||||||
|
|
||||||
|
doLogging = false
|
||||||
|
|
||||||
|
if (doLogging) then
|
||||||
|
-- Store the POST data to a file
|
||||||
|
if (method == "POST") then
|
||||||
|
myFile = io.open("data" .. query:sub(4) .. ".txt", "wb");
|
||||||
|
myFile:write(resp)
|
||||||
|
myFile:write("\r\n\r\n")
|
||||||
|
if datalen then
|
||||||
|
datalen = tonumber(datalen)
|
||||||
|
myFile:write("<<< " .. datalen .. " bytes of data >>>\r\n")
|
||||||
|
|
||||||
|
data = io.stdin:read(datalen)
|
||||||
|
myFile:write(data)
|
||||||
|
|
||||||
|
myFile:write("\r\n<<< end >>>\r\n")
|
||||||
|
else
|
||||||
|
myFile:write("<<< no data >>>\r\n")
|
||||||
|
end
|
||||||
|
myFile:close()
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
4
test/ajax/jquery.js
vendored
Normal file
4
test/ajax/jquery.js
vendored
Normal file
File diff suppressed because one or more lines are too long
140
test/ajax/test.html
Normal file
140
test/ajax/test.html
Normal file
@@ -0,0 +1,140 @@
|
|||||||
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
|
||||||
|
<html>
|
||||||
|
<head>
|
||||||
|
<title>Test</title>
|
||||||
|
<script type='text/javascript' language="javascript" src='jquery.js'></script>
|
||||||
|
<script type='text/javascript' language="javascript">
|
||||||
|
<!--
|
||||||
|
|
||||||
|
function mbox() {
|
||||||
|
alert('Javascript OK');
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
var totalCount = 10;
|
||||||
|
var pendingCount = 0;
|
||||||
|
var errorCount = 0;
|
||||||
|
var pushCount = 0;
|
||||||
|
|
||||||
|
|
||||||
|
function runTest(method, isAsync) {
|
||||||
|
|
||||||
|
++pushCount;
|
||||||
|
document.getElementById('start').innerHTML = 'Test: ' + pushCount;
|
||||||
|
document.getElementById('resTotal').innerHTML = 'running';
|
||||||
|
|
||||||
|
for (var i = 1; i <= totalCount; ++i) {
|
||||||
|
document.getElementById('res'+i).innerHTML = "ready";
|
||||||
|
}
|
||||||
|
|
||||||
|
errorCount = 0;
|
||||||
|
pendingCount = totalCount;
|
||||||
|
|
||||||
|
for (var i = 1; i <= totalCount; ++i) {
|
||||||
|
|
||||||
|
fetch(i, method, isAsync);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
function fetch(id, method, isAsync) {
|
||||||
|
|
||||||
|
document.getElementById('res'+id).innerHTML = "pending";
|
||||||
|
|
||||||
|
$.ajax({
|
||||||
|
async: isAsync,
|
||||||
|
url: 'echo.cgi?id=' + id,
|
||||||
|
type: method,
|
||||||
|
timeout: 10000,
|
||||||
|
data: { 'id' : id ,
|
||||||
|
'longText1' : "adfsdfasdklkjlgasfdfjkhq345sdafbmkanq3trsdghkjqw4etrjlkabsdfkabvauiregtlkjasdbvabl4btrjawebbfjsdhbjk342r5bjksdbfkljbhasdfbhj234qjhasdg76k11234jhv900adfasddsfmzasdfhjgajsvhgkjhasdf77aefcae4fkjzasdfgukeaf7dkkegasdfigjcvxgui",
|
||||||
|
'longText2' : "bsdfsdfasdklkjlgasdfjkhq345sdafbmkanq3trsdghkjqw4etrjlkabsdfkabvauiregtlkjasdbvabl4btrjawebbfjsdhbjk342r5bjksdbfkljbhasdfbhj234qjhasdg76k11234jhv900adfasddsfmzasdfhjgajsvhgkjhasdf77aefcae4fkjzasdfgukeaf7dkkegasdfigjcvxgui",
|
||||||
|
'longText3' : "sdfsadagsdklkjlgasdfjkhq345sdafbmkanq3trsdghkjqw4etrjlkabsdfkabvauiregtlkjasdbvabl4btrjawebbfjsdhbjk342r5bjksdbfkljbhasdfbhj234qjhasdg76k11234jhv900adfasddsfmzasdfhjgajsvhgkjhasdf77aefcae4fkjzasdfgukeaf7dkkegasdfigjcvxgui",
|
||||||
|
'longText4' : "q34sdfas3fhbkjlgasdfjkhq345sdafbmkanq3trsdghkjqw4etrjlkabsdfkabvauiregtlkjasdbvabl4btrjawebbfjsdhbjk342r5bjksdbfkljbhasdfbhj234qjhasdg76k11234jhv900adfasddsfmzasdfhjgajsvhgkjhasdf77aefcae4fkjzasdfgukeaf7dkkegasdfigjcvxgui",
|
||||||
|
'longText5' : "askj2kjcvxychklgasdfjkhq345sdafbmkanq3trsdghkjqw4etrjlkabsdfkabvauiregtlkjasdbvabl4btrjawebbfjsdhbjk342r5bjksdbfkljbhasdfbhj234qjhasdg76k11234jhv900adfasddsfmzasdfhjgajsvhgkjhasdf77aefcae4fkjzasdfgukeaf7dkkegasdfigjcvxgui",
|
||||||
|
'longText6' : "asdfjklhlkjhv8öajsdfjkhq345sdafbmkanq3trsdghkjqw4etrjlkabsdfkabvauiregtlkjasdbvabl4btrjawebbfjsdhbjk342r5bjksdbfkljbhasdfbhj234qjhasdg76k11234jhv900adfasddsfmzasdfhjgajsvhgkjhasdf77aefcae4fkjzasdfgukeaf7dkkegasdfigjcvxgui",
|
||||||
|
'async' : isAsync
|
||||||
|
},
|
||||||
|
dataType: 'json',
|
||||||
|
succes: function(data) {
|
||||||
|
},
|
||||||
|
error: function() {
|
||||||
|
++errorCount;
|
||||||
|
},
|
||||||
|
complete: function(jqXHR, textStatus) {
|
||||||
|
|
||||||
|
--pendingCount;
|
||||||
|
|
||||||
|
document.getElementById('res'+id).innerHTML = textStatus;
|
||||||
|
console.log('id: ' + id + ' (' + pendingCount + '/' + totalCount + '), status: ' + textStatus);
|
||||||
|
|
||||||
|
if (pendingCount == 0) {
|
||||||
|
document.getElementById('resTotal').innerHTML = 'done';
|
||||||
|
console.log('complete, error count: ' + errorCount);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
});
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//-->
|
||||||
|
</script>
|
||||||
|
|
||||||
|
</head>
|
||||||
|
<body>
|
||||||
|
<p>
|
||||||
|
<div id="start">Test not started.</div>
|
||||||
|
</p>
|
||||||
|
<p>
|
||||||
|
<table>
|
||||||
|
<tr>
|
||||||
|
<td>
|
||||||
|
<input id="testButton1" type="button" onclick="javascript:runTest('GET', false)" value="sync GET"></input>
|
||||||
|
</td>
|
||||||
|
<td>
|
||||||
|
<input id="testButton2" type="button" onclick="javascript:runTest('POST', false)" value="sync POST"></input>
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>
|
||||||
|
<input id="testButton3" type="button" onclick="javascript:runTest('GET', true)" value="async GET"></input>
|
||||||
|
</td>
|
||||||
|
<td>
|
||||||
|
<input id="testButton4" type="button" onclick="javascript:runTest('POST', true)" value="async POST"></input>
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>
|
||||||
|
<input id="testButtonReset" type="button" onclick="javascript:location.reload(true)" value="reset"></input>
|
||||||
|
</td>
|
||||||
|
<td>
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>
|
||||||
|
<input id="testButtonBox" type="button" onclick="javascript:mbox()" value="MsgBox"></input>
|
||||||
|
</td>
|
||||||
|
<td>
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
</p>
|
||||||
|
<p>
|
||||||
|
<table border="1">
|
||||||
|
<tr><th>Test</th><th>Result</th></tr>
|
||||||
|
<tr><td>1</td><td><div id="res1">not started</div></td></tr>
|
||||||
|
<tr><td>2</td><td><div id="res2">not started</div></td></tr>
|
||||||
|
<tr><td>3</td><td><div id="res3">not started</div></td></tr>
|
||||||
|
<tr><td>4</td><td><div id="res4">not started</div></td></tr>
|
||||||
|
<tr><td>5</td><td><div id="res5">not started</div></td></tr>
|
||||||
|
<tr><td>6</td><td><div id="res6">not started</div></td></tr>
|
||||||
|
<tr><td>7</td><td><div id="res7">not started</div></td></tr>
|
||||||
|
<tr><td>8</td><td><div id="res8">not started</div></td></tr>
|
||||||
|
<tr><td>9</td><td><div id="res9">not started</div></td></tr>
|
||||||
|
<tr><td>10</td><td><div id="res10">not started</div></td></tr>
|
||||||
|
</table>
|
||||||
|
<div id="resTotal">Push [Test] to start.</div>
|
||||||
|
</p>
|
||||||
|
</body>
|
||||||
|
</html>
|
||||||
65
test/page2.lp
Normal file
65
test/page2.lp
Normal file
@@ -0,0 +1,65 @@
|
|||||||
|
<? mg.write("HTTP/1.0 200 OK") ?>
|
||||||
|
<? mg.write("Content-Type: text/html") ?>
|
||||||
|
|
||||||
|
<html><body>
|
||||||
|
|
||||||
|
<p>This is another example of a Lua server page, served by
|
||||||
|
<a href="http://code.google.com/p/civetweb">Civetweb web server</a>.
|
||||||
|
</p><p>
|
||||||
|
The following features are available:
|
||||||
|
<ul>
|
||||||
|
<?
|
||||||
|
-- function in one Lua tag should still be available in the next one
|
||||||
|
function test(tab, name)
|
||||||
|
if tab then
|
||||||
|
mg.write("<li>" .. name .. "</li>")
|
||||||
|
end
|
||||||
|
end
|
||||||
|
function recurse(tab)
|
||||||
|
mg.write("<ul>")
|
||||||
|
for k,v in pairs(tab) do
|
||||||
|
if type(v) == "table" then
|
||||||
|
mg.write("<li>" .. tostring(k) .. ":</li>")
|
||||||
|
recurse(v)
|
||||||
|
else
|
||||||
|
mg.write("<li>" .. tostring(k) .. " = " .. tostring(v) .. "</li>")
|
||||||
|
end
|
||||||
|
end
|
||||||
|
mg.write("</ul>")
|
||||||
|
end
|
||||||
|
?>
|
||||||
|
<?
|
||||||
|
mg.write("<li>" .. _VERSION .. " with the following standard libraries</li>")
|
||||||
|
mg.write("<ul>")
|
||||||
|
libs = {"string", "math", "table", "io", "os", "bit32", "package", "coroutine", "debug"};
|
||||||
|
for _,n in ipairs(libs) do
|
||||||
|
test(_G[n], n);
|
||||||
|
end
|
||||||
|
mg.write("</ul>")
|
||||||
|
test(sqlite3, "sqlite3 binding")
|
||||||
|
test(lfs,"lua file system")
|
||||||
|
|
||||||
|
libname = "mg"
|
||||||
|
test(_G[libname], libname .. " library")
|
||||||
|
recurse(_G[libname])
|
||||||
|
?>
|
||||||
|
</ul></p>
|
||||||
|
<p> Today is <? mg.write(os.date("%A")) ?>
|
||||||
|
|
||||||
|
<p>
|
||||||
|
<?
|
||||||
|
-- for k,v in pairs(_G) do mg.write(k, '\n') end
|
||||||
|
|
||||||
|
if lfs then
|
||||||
|
mg.write("Files in " .. lfs.currentdir())
|
||||||
|
mg.write("<ul>")
|
||||||
|
for f in lfs.dir(".") do
|
||||||
|
mg.write("<li>" .. f .. "</li>")
|
||||||
|
local at = lfs.attributes(f);
|
||||||
|
recurse(at)
|
||||||
|
end
|
||||||
|
mg.write("</ul>")
|
||||||
|
end
|
||||||
|
?>
|
||||||
|
</p>
|
||||||
|
</body></html>
|
||||||
Reference in New Issue
Block a user