mirror of
https://github.com/signalwire/freeswitch.git
synced 2025-04-17 17:22:21 +00:00
fff98f6316
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@3693 d0543943-73ff-0310-b7d9-9358b9ac24b2
141 lines
4.1 KiB
Perl
141 lines
4.1 KiB
Perl
#!/usr/bin/perl
|
|
|
|
# usage: compile-et input.et
|
|
|
|
#
|
|
# ***** BEGIN LICENSE BLOCK *****
|
|
# Version: MPL 1.1/GPL 2.0/LGPL 2.1
|
|
#
|
|
# The contents of this file are subject to the Mozilla Public License Version
|
|
# 1.1 (the "License"); you may not use this file except in compliance with
|
|
# the License. You may obtain a copy of the License at
|
|
# http://www.mozilla.org/MPL/
|
|
#
|
|
# Software distributed under the License is distributed on an "AS IS" basis,
|
|
# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
|
# for the specific language governing rights and limitations under the
|
|
# License.
|
|
#
|
|
# The Original Code is the Netscape Portable Runtime (NSPR).
|
|
#
|
|
# The Initial Developer of the Original Code is
|
|
# Netscape Communications Corporation.
|
|
# Portions created by the Initial Developer are Copyright (C) 1998-2000
|
|
# the Initial Developer. All Rights Reserved.
|
|
#
|
|
# Contributor(s):
|
|
#
|
|
# Alternatively, the contents of this file may be used under the terms of
|
|
# either the GNU General Public License Version 2 or later (the "GPL"), or
|
|
# the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
|
|
# in which case the provisions of the GPL or the LGPL are applicable instead
|
|
# of those above. If you wish to allow use of your version of this file only
|
|
# under the terms of either the GPL or the LGPL, and not to allow others to
|
|
# use your version of this file under the terms of the MPL, indicate your
|
|
# decision by deleting the provisions above and replace them with the notice
|
|
# and other provisions required by the GPL or the LGPL. If you do not delete
|
|
# the provisions above, a recipient may use your version of this file under
|
|
# the terms of any one of the MPL, the GPL or the LGPL.
|
|
#
|
|
# ***** END LICENSE BLOCK *****
|
|
|
|
sub header
|
|
{
|
|
local($filename, $comment) = @_;
|
|
|
|
<<EOF
|
|
$comment
|
|
$comment $filename
|
|
$comment This file is automatically generated; please do not edit it.
|
|
EOF
|
|
}
|
|
|
|
sub table_base
|
|
{
|
|
local($name) = @_;
|
|
local($base) = 0;
|
|
|
|
for ($i = 0; $i < length($name); $i++) {
|
|
$base *= 64;
|
|
$base += index("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_", substr($name, $i, 1)) + 1;
|
|
}
|
|
$base -= 0x1000000 if ($base > 0x7fffff);
|
|
$base*256;
|
|
}
|
|
|
|
sub code {
|
|
local($macro, $text) = @_;
|
|
$code = $table_base + $table_item_count;
|
|
|
|
print H "\n";
|
|
print H "/* ", $text, " */\n";
|
|
printf H "#define %-40s (%dL)\n", $macro, $code;
|
|
|
|
print C "\t{\"", $macro, "\", \"", $text, "\"},\n";
|
|
|
|
print PROPERTIES $macro, "=", $text, "\n";
|
|
|
|
$table_item_count++;
|
|
}
|
|
|
|
|
|
$filename = $ARGV[0];
|
|
open(INPUT, "< $filename") || die "Can't read $filename: $!\n";
|
|
|
|
$base = "$filename";
|
|
$base =~ s/\.et$//;
|
|
$base =~ s#.*/##;
|
|
|
|
open(H, "> ${base}.h") || die "Can't write ${base}.h\n";
|
|
open(C, "> ${base}.c") || die "Can't write ${base}.c\n";
|
|
open(PROPERTIES, "> ${base}.properties") || die "Can't write ${base}.properties\n";
|
|
|
|
print H "/*\n", &header("${base}.h", " *"), " */\n";
|
|
print C "/*\n", &header("${base}.c", " *"), " */\n";
|
|
print PROPERTIES &header("${base}.properties", "#");
|
|
|
|
$skipone = 0;
|
|
|
|
while ($_ = <INPUT>) {
|
|
next if /^#/;
|
|
|
|
if (/^[ \t]*(error_table|et)[ \t]+([a-zA-Z][a-zA-Z0-9_]+) *(-?[0-9]*)/) {
|
|
$table_name = $2;
|
|
if ($3) {
|
|
$table_base = $3;
|
|
}
|
|
else {
|
|
$table_base = &table_base($table_name);
|
|
}
|
|
$table_item_count = 0;
|
|
|
|
print C "#include \"prerror.h\"\n";
|
|
print C "static const struct PRErrorMessage text[] = {\n";
|
|
}
|
|
elsif (/^[ \t]*(error_code|ec)[ \t]+([A-Z_0-9]+),[ \t]*$/) {
|
|
$skipone = 1;
|
|
$macro = $2;
|
|
}
|
|
elsif (/^[ \t]*(error_code|ec)[ \t]+([A-Z_0-9]+),[ \t]*"(.*)"[ \t]*$/) {
|
|
&code($2, $3);
|
|
}
|
|
elsif ($skipone && /^[ \t]*"(.*)"[ \t]*$/) {
|
|
&code($macro, $1);
|
|
}
|
|
}
|
|
|
|
print H "\n";
|
|
print H "extern void ", $table_name, "_InitializePRErrorTable","(void);\n";
|
|
printf H "#define ERROR_TABLE_BASE_%s (%dL)\n", $table_name, $table_base;
|
|
|
|
print C "\t{0, 0}\n";
|
|
print C "};\n\n";
|
|
printf C "static const struct PRErrorTable et = { text, \"%s\", %dL, %d };\n",
|
|
$base, $table_base, $table_item_count;
|
|
print C "\n";
|
|
print C "void ", $table_name, "_InitializePRErrorTable", "(void) {\n";
|
|
print C " PR_ErrorInstallTable(&et);\n";
|
|
print C "}\n";
|
|
|
|
0;
|