diff options
author | Jeff Morriss <jeff.morriss.ws@gmail.com> | 2015-01-20 20:41:49 -0500 |
---|---|---|
committer | Jeff Morriss <jeff.morriss.ws@gmail.com> | 2015-01-22 02:12:46 +0000 |
commit | 042623617bf261c5b8409b1efe5bc798ff54312d (patch) | |
tree | 40e708dd64d528aae24d884d8ceb4583578a7349 /epan/wslua/make-reg.pl | |
parent | d93a90b445d1e5821eec32e1e2327d5836188fff (diff) |
Get us building with the subdir-objects automake option.
subdir-objects will be enabled unconditionally in automake-2.0 and
automake-1.14 gives us warnings about the upcoming change.
Rework I1b3c517f08d3c752ee03cb89482ee4951ceb5bf3 (and
I416f2d3611fb61659b9a7f7285e5f54a354fbe7d) to give wslua/make-reg.pl the directory of
the source files rather than the full path to each.
In echld don't use sources in the top-level directory in libechld: it breaks
distclean with subdir-objects turned on.
Bug: 10648
Change-Id: I404b074f1558376064c35d8fc96aea7e3d042a76
Reviewed-on: https://code.wireshark.org/review/6697
Petri-Dish: Jeff Morriss <jeff.morriss.ws@gmail.com>
Tested-by: Petri Dish Buildbot <buildbot-no-reply@wireshark.org>
Reviewed-by: Jeff Morriss <jeff.morriss.ws@gmail.com>
Diffstat (limited to 'epan/wslua/make-reg.pl')
-rwxr-xr-x | epan/wslua/make-reg.pl | 43 |
1 files changed, 29 insertions, 14 deletions
diff --git a/epan/wslua/make-reg.pl b/epan/wslua/make-reg.pl index 52af54c817..683ceaf5c1 100755 --- a/epan/wslua/make-reg.pl +++ b/epan/wslua/make-reg.pl @@ -8,29 +8,44 @@ # Wireshark - Network traffic analyzer # By Gerald Combs <gerald@wireshark.org> # Copyright 1998 Gerald Combs -# +# # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; either version 2 # of the License, or (at your option) any later version. -# +# # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. -# +# # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; +use Getopt::Long; my @classes = (); my @functions = (); +my $source_dir = ""; + +GetOptions('dir=s' => \$source_dir); + +my $filename; +while ($filename = $ARGV[0]) { + shift; + + if ($source_dir and ! -e $filename) { + $filename = $source_dir . '/' . $filename; + } + + open FILE, $filename or warn "Couldn't open file $filename: $!"; -while (<>) { - push @classes, $1 if /WSLUA_CLASS_DEFINE(?:_BASE)?\050\s*([A-Za-z0-9]+)/; - push @functions, $1 if /WSLUA_FUNCTION\s+wslua_([a-z_0-9]+)/; + while (<FILE>) { + push @classes, $1 if /WSLUA_CLASS_DEFINE(?:_BASE)?\050\s*([A-Za-z0-9]+)/; + push @functions, $1 if /WSLUA_FUNCTION\s+wslua_([a-z_0-9]+)/; + } } open C, ">register_wslua.c"; @@ -39,19 +54,19 @@ open H, ">declare_wslua.h"; print H "/* This file is automatically generated by make-reg.pl; do not edit! */\n\n"; print C "/* This file is automatically generated by make-reg.pl; do not edit! */\n\n"; -print H "#define WSLUA_DECLARE_CLASSES() \\\n"; +print H "#define WSLUA_DECLARE_CLASSES() \\\n"; for (@classes) { print H "\tWSLUA_CLASS_DECLARE($_);\\\n" } print H "\n\n"; -print H "#define WSLUA_DECLARE_FUNCTIONS() \\\n"; +print H "#define WSLUA_DECLARE_FUNCTIONS() \\\n"; for (@functions) { print H "\tWSLUA_FUNCTION wslua_$_(lua_State* L);\\\n" } print H "\n\n"; -print H "extern void wslua_register_classes(lua_State* L);\n"; -print H "extern void wslua_register_functions(lua_State* L);\n"; +print H "extern void wslua_register_classes(lua_State* L);\n"; +print H "extern void wslua_register_functions(lua_State* L);\n"; print H "\n\n"; print C '#include "config.h"' . "\n"; @@ -59,15 +74,15 @@ print C '#include "config.h"' . "\n"; print C '#include "wslua.h"' . "\n\n"; print C '#include "lua_bitop.h"' . "\n\n"; -print C "static void wslua_reg_module(lua_State* L, const char *name _U_, lua_CFunction func) { \n"; +print C "static void wslua_reg_module(lua_State* L, const char *name _U_, lua_CFunction func) { \n"; print C "\tlua_pushcfunction(L, func);\n"; -# why was this done? this string was never used for anything - I'll keep the argument "name" above +# why was this done? this string was never used for anything - I'll keep the argument "name" above # just in case this needs to be reverted someday, but I think this thing's from old code or something # print C "\tlua_pushstring(L, name);\n"; # print C "\tlua_call(L, 1, 0);\n"; print C "\tlua_call(L, 0, 0);\n"; print C "}\n\n"; -print C "void wslua_register_classes(lua_State* L) { \n"; +print C "void wslua_register_classes(lua_State* L) { \n"; for (@classes) { print C "\twslua_reg_module(L, \"${_}\", ${_}_register);\n"; } @@ -78,7 +93,7 @@ print C "\twslua_reg_module(L, \"GRegex\", luaopen_rex_glib);\n"; print C "}\n\n"; -print C "void wslua_register_functions(lua_State* L) {\n"; +print C "void wslua_register_functions(lua_State* L) {\n"; for (@functions) { print C "\tWSLUA_REGISTER_FUNCTION($_); \n" } |