Move init.lua and family to plugins/lua

svn path=/trunk/; revision=17600
This commit is contained in:
Luis Ontanon 2006-03-12 16:41:34 +00:00
parent 5ca4b68272
commit 25ff5cd787
4 changed files with 1 additions and 164 deletions

View File

@ -680,10 +680,7 @@ EXTRA_DIST = \
text2pcap-scanner.l \
text2pcap.c \
text2pcap.h \
wka.tmpl \
template-init.lua \
make-init-lua.pl \
init.lua
wka.tmpl
if SETUID_INSTALL
install-exec-hook:
@ -834,6 +831,3 @@ debian-package: debian/rules
clean-local:
rm -rf $(top_stagedir)
init.lua: template-init.lua make-init-lua.pl epan/ftypes/ftypes.h wiretap/wtap.h
$(PERL) make-init-lua.pl template-init.lua > init.lua

View File

@ -681,8 +681,3 @@ clean-deps:
$(MAKE) /$(MAKEFLAGS) -f Makefile.nmake clean-deps
cd ..
init.lua: template-init.lua make-init-lua.pl epan/ftypes/ftypes.h wiretap/wtap.h
$(PERL) make-init-lua.pl template-init.lua > init.lua

View File

@ -1,94 +0,0 @@
#!/usr/bin/perl
# create the init.lua file based on a template (stdin)
#
# $Id: $
#
# Ethereal - Network traffic analyzer
# By Gerald Combs <gerald@ethereal.com>
# Copyright 2004 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
use strict;
my $wtap_encaps_table = '';
my $ft_types_table = '';
my %replacements = %{{
WTAP_ENCAPS => \$wtap_encaps_table,
FT_TYPES => \$ft_types_table,
}};
#
# load template
#
my $template = '';
$template .= $_ while(<>);
#
# make wiretap encapusulation table
#
$wtap_encaps_table = "-- Wiretap encapsulations\nwtap = {\n";
open WTAP_H, "< wiretap/wtap.h";
while(<WTAP_H>) {
if ( /^#define WTAP_ENCAP_([A-Z0-9_]+)\s+(\d+)/ ) {
$wtap_encaps_table .= "\t[\"$1\"] = $2,\n";
}
}
$wtap_encaps_table =~ s/,\n$/\n}\n/msi;
#
# enum fttype
#
$ft_types_table = " -- Field Types\nftypes = {\n";
my $ftype_num = 0;
open FTYPES_H, "< ./epan/ftypes/ftypes.h";
while(<FTYPES_H>) {
if ( /^\s+(FT_[A-Z0-9a-z_]+)\s*,/ ) {
$ft_types_table .= "\t[\"$1\"] = $ftype_num,\n";
$ftype_num++;
}
}
close FTYPES_H;
$ft_types_table =~ s/,\n$/\n}\n/msi;
#
#
#
#
# replace macros
#
for my $key (keys %replacements) {
$template =~ s/%$key%/${$replacements{$key}}/msig;
}
print $template;

View File

@ -1,58 +0,0 @@
-- init.lua
--
-- initilaize ethereal's lua
--
-- This file is going to be executed before any other lua script.
-- It can be used to load libraries, disable functions and more.
--
-- $Id: $
--
-- Ethereal - Network traffic analyzer
-- By Gerald Combs <gerald@ethereal.com>
-- 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-- If lua is to be disabled even if it was installed uncomment the following
-- line.
-- disable_lua = true; do return end;
-- If set and we are running with special privileges this setting
-- tells whether scripts other than this one are to be run.
run_user_scripts_when_superuser = false
-- disable potentialy harmful lua functions when running superuser
if running_superuser then
dofile = function() error("dofile has been disabled") end
loadfile = function() error("loadfile has been disabled") end
loadlib = function() error("loadlib has been disabled") end
require = function() error("require has been disabled") end
os = {}
io = {}
file = {}
end
-- to avoid output to stdout which can caause problems lua's print ()
-- has been suppresed so that it yields an error.
-- have print() call info() instead.
print = info
-- %WTAP_ENCAPS%
-- %FT_TYPES%