强大的LuaJIT FFI

2013_top398

LuaJIT 比 官方 Lua 解释器运行更快，功能更强，只是有些库可能不兼容。
闲来无事，试用 LuaJIT FFI 测试 Windows 系统原生代码如下：

1. local ffi = require("ffi")
   
2. ffi.cdef[[
   
3. int MessageBoxA(void *h, const char *txt, const char *title, int type);
   
4. int GetSystemDirectoryA(char *buf, int len);
   
5. void * malloc(int n);
   
6. void free(void *p);
   
7. int ShellExecuteA(void *w, const char *Operation, const char *File, const char *Param, const char *Dir, int nShowCmd);
   
8. int GetWindowThreadProcessId(void *hWnd, int *lpdwProcessId);
   
9. typedef struct {int hProcess, hThread, dwProcessId, dwThreadId;} PROCESS_INFORMATION;
   
10. typedef struct {int cb; void *lpReserved, *lpDesktop, *lpTitle; int dwX, dwY, dwXSize, dwYSize, dwXCountChars, dwYCountChars, dwFillAttribute, dwFlags; uint16_t wShowWindow; uint16_t cbReserved2; uint8_t *lpReserved2; int hStdInput, hStdOutput, hStdError; } STARTUPINFO, *LPSTARTUPINFO;
    
11. bool CreateProcessA(const char *lpApplicationName, const char *lpCommandLine, void *lpProcessAttributes, void *lpThreadAttributes, bool bInheritHandles, int dwCreationFlags, void *lpEnvironment, const char *lpCurrentDirectory, STARTUPINFO *lpStartupInfo, PROCESS_INFORMATION *lpProcessInformation);
    
12. int OpenProcess(int dwDesiredAccess, bool bInheritHandle, int dwProcessId);
    
13. int WaitForSingleObject(int hdl, int ms);
    
14. ]]
    
15. 
    
16. local shlapi = ffi.load("shell32")
    
17. local p = ffi.gc(ffi.C.malloc(255), ffi.C.free)
    
18. local l = ffi.C.GetSystemDirectoryA(p, 255)
    
19. ffi.C.MessageBoxA(nil,p,string.format("%d",l),16)
    
20. print (string.format("%d", shlapi.ShellExecuteA(nil, nil, "notepad", nil, nil, 1)))
    
21. local si = ffi.new("STARTUPINFO")
    
22. local pi = ffi.new("PROCESS_INFORMATION")
    
23. si.cb = ffi.sizeof(si)
    
24. print (si.cb)
    
25. if not ffi.C.CreateProcessA(nil, "notepad d:\\menu.lst", nil, nil, false, 0, nil, nil, si, pi) then
    
26.     print ("error")
    
27.     exit (0)
    
28. end
    
29. -- INFINITE        0xFFFFFFFF
    
30. -- WAIT_OBJECT_0 0
    
31. -- WAIT_ABANDONED_0 128
    
32. -- WAIT_TIMEOUT 258
    
33. -- SYNCHRONIZE        0x100000L
    
34. local hsync = ffi.C.OpenProcess(0x100000, false, pi.dwProcessId)
    
35. print ("wait for PID=" .. pi.dwProcessId .. " end: " .. ffi.C.WaitForSingleObject(hsync, -1))

复制代码

renchmin

虽然看不懂还是要支持楼主的。

2013_top398

renchmin 发表于 2014-3-12 16:28
虽然看不懂还是要支持楼主的。

谢谢。我突然想到，Lua的中文翻译是不是“撸啊”？