wslua: Port epan/wslua/make-reg.py to Python3

Port the script that creates
declare_wslua.h and register_wslua.c
to Python3.
Ping #18152.

1 files changed, 0 insertions, 100 deletions

diff --git a/epan/wslua/make-reg.pl b/epan/wslua/make-reg.pl
deleted file mode 100755
index a986f8aa05..0000000000
--- a/epan/wslua/make-reg.pl
+++ /dev/null
@@ -1,100 +0,0 @@
-#!/usr/bin/perl
-#
-# make-reg.pl
-# Registration Macros Generator
-#
-# (c) 2006, Luis E. Garcia Onatnon <luis.ontanon@gmail.com>
-#
-# Wireshark - Network traffic analyzer
-# By Gerald Combs <gerald@wireshark.org>
-# Copyright 1998 Gerald Combs
-#
-# SPDX-License-Identifier: GPL-2.0-or-later
-
-use strict;
-use Getopt::Long;
-
-my @classes = ();
-my @functions = ();
-my @internal_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 (<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]+)/;
-		push @internal_functions, $1 if /WSLUA_INTERNAL_FUNCTION\s+wslua_([a-z_0-9]+)/;
-	}
-}
-
-open C, ">register_wslua.c";
-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";
-for (@classes) {
-	print H "\tWSLUA_CLASS_DECLARE($_);\\\n"
-}
-print H "\n\n";
-
-print H "#define WSLUA_DECLARE_FUNCTIONS() \\\n";
-for (@functions) {
-	print H "\tWSLUA_FUNCTION wslua_$_(lua_State* L);\\\n"
-}
-for (@internal_functions) {
-	print H "\tWSLUA_INTERNAL_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 "\n\n";
-
-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 "\tlua_pushcfunction(L, func);\n";
-# 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";
-for (@classes) {
-	print C "\twslua_reg_module(L, \"${_}\", ${_}_register);\n";
-}
-print C "\twslua_reg_module(L, \"bit\", luaopen_bit);\n";
-#print C "\twslua_reg_module(L, \"rex_pcre2\", luaopen_rex_pcre2);\n";
-print C "\tlua_pushcfunction(L, luaopen_rex_pcre2);\n";
-print C "\tlua_call(L, 0, 1);\n";
-print C "\tlua_setglobal(L, \"rex_pcre2\");\n";
-print C "}\n\n";
-
-
-print C "void wslua_register_functions(lua_State* L) {\n";
-for (@functions) {
-	print C "\tWSLUA_REGISTER_FUNCTION($_); \n"
-}
-for (@internal_functions) {
-	print C "\tWSLUA_REGISTER_FUNCTION($_); \n"
-}
-print C "}\n\n";
-
-close H;
-close C;