diff options
| author | MikalaiR <nikolay.romanovich@narod.ru> | 2016-02-17 16:53:59 +0000 |
|---|---|---|
| committer | MikalaiR <nikolay.romanovich@narod.ru> | 2016-02-17 16:53:59 +0000 |
| commit | 7a8fafbb2c8a2d1175c4f92b08d1b8c30f475a4a (patch) | |
| tree | c1c93b4724215879f61ee94ff9ee99a1ead49115 /plugins/MirLua/Modules/ffi/src/test_includes.sh | |
| parent | 939e01edacc5746bc9c6501721f270751a9be10d (diff) | |
MirLua: fb ffi module
git-svn-id: http://svn.miranda-ng.org/main/trunk@16294 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/MirLua/Modules/ffi/src/test_includes.sh')
| -rw-r--r-- | plugins/MirLua/Modules/ffi/src/test_includes.sh | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/plugins/MirLua/Modules/ffi/src/test_includes.sh b/plugins/MirLua/Modules/ffi/src/test_includes.sh new file mode 100644 index 0000000000..c0b9cfa1f9 --- /dev/null +++ b/plugins/MirLua/Modules/ffi/src/test_includes.sh @@ -0,0 +1,25 @@ +#!/bin/sh
+make test || exit
+rm -rf test_includes
+mkdir -p test_includes
+for f in /usr/include/*.h
+do
+ gcc -E -c "${f}" > tmp 2>/dev/null
+ if [ $? == 0 ]
+ then
+ echo "${f}";
+ lua -e '
+ local str = io.read("*a")
+ -- remove preprocessor commands eg line directives
+ str = str:gsub("#[^\n]*", "")
+ -- remove inline function definitions and declarations
+ str = str:gsub("extern%s+__inline__", "static")
+ str = str:gsub("extern%s+__inline", "static")
+ str = str:gsub("static[^;(]+__attribute__%s*%b()", "static ")
+ str = str:gsub("static[^;(]+__attribute__%s*%b()", "static ")
+ str = str:gsub("static[^;(]+%b()%s*%b{}", "")
+ str = str:gsub("static[^;(]+%b()%s*;", "")
+ io.write(str)' > "test_includes/`basename $f`" < tmp
+ lua -e 'ffi = require("ffi"); ffi.cdef(io.read("*a"))' < "test_includes/`basename $f`"
+ fi
+done
|