Skip to content

O
oceanbase

Metz / oceanbase
与 Fork 源项目一致

Fork自 oceanbase / oceanbase

通知 1
Star 0
Fork 0
O
oceanbase
未验证 提交 254957d8 编写于 作者: A a1iive 提交者： GitHub
浏览文件
操作

fix(add file): add gen_errno.pl (#285)

上级 abe31e80
隐藏空白更改
内联 并排
Showing with 418 addition and 0 deletion
src/share/gen_errno.pl 0 → 100755
浏览文件 @ 254957d8
#!/usr/bin/env perl
# Copyright (c) 2021 OceanBase
# OceanBase CE is licensed under Mulan PubL v2.
# You can use this software according to the terms and conditions of the Mulan PubL v2.
# You may obtain a copy of Mulan PubL v2 at:
# http://license.coscl.org.cn/MulanPubL-2.0
# THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OF ANY KIND,
# EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO NON-INFRINGEMENT,
# MERCHANTABILITY OR FIT FOR A PARTICULAR PURPOSE.
# See the Mulan PubL v2 for more details.
use strict;
use warnings;
open my $fh, '<', "ob_errno.def";
my %map;
my %other_map;
my $last_errno = 0;
my $error_count=0;
my $def_ora_errno=600;
my $def_ora_errmsg="\"internal error code, arguments: %d, %s\"";
my $print_def_ora_errmsg="\"%s-%05d: internal error code, arguments: %d, %s\"";
my $print_ora_errmsg="\"%s-%05d: %s\"";
while(<$fh>) {
my $error_msg;
my $sqlstate;
my $error_code;
if (/^DEFINE_ERROR\(([^,]+),\s*([^,]*),\s*([^,]*),\s*([^,]*),\s*("[^"]*")/) {
++$error_count;
#print "\"$1\", $1, $2, $3, $4, $5\n";
my $tmp_ora_errmsg=sprintf($print_def_ora_errmsg, "ORA", $def_ora_errno, $2, substr($5, 1, length($5) - 2));
$map{$1} = [$2, $3, $4, $5, $5, "$1", $def_ora_errno, $tmp_ora_errmsg, $tmp_ora_errmsg];
$last_errno = $2 if ($2 < $last_errno);
$error_code = $2;
$sqlstate = $4;
$error_msg = $5;
} elsif (/^DEFINE_ERROR_EXT\(([^,]+),\s*([^,]*),\s*([^,]*),\s*([^,]*),\s*([^,]*),\s*("[^"]*")/) {
++$error_count;
#print "\"$1\", $1, $2, $3, $4, $5, $6\n";
my $tmp_ora_errmsg=sprintf($print_def_ora_errmsg, "ORA", $def_ora_errno, $2, substr($5, 1, length($5) - 2));
my $tmp_ora_user_errmsg=sprintf($print_def_ora_errmsg, "ORA", $def_ora_errno, $2, substr($6, 1, length($6) - 2));
$map{$1} = [$2, $3, $4, $5, $6, "$1", $def_ora_errno, $tmp_ora_errmsg, $tmp_ora_user_errmsg];
$last_errno = $2 if ($2 < $last_errno);
$error_code = $2;
$sqlstate = $4;
$error_msg = $5;
} elsif (/^DEFINE_ORACLE_ERROR\(([^,]+),\s*([^,]*),\s*([^,]*),\s*([^,]*),\s*("[^"]*")\s*,\s*([^,]*),\s*("[^"]*")/) {
++$error_count;
#print "\"$1\", $1, $2, $3, $4, $5, $6, $7\n";
#print "\"$1\", $6, $7\n";
my $tmp_ora_errmsg=sprintf($print_ora_errmsg, "ORA", $6, substr($7, 1, length($7) - 2));
$map{$1} = [$2, $3, $4, $5, $5, "$1", $6, $tmp_ora_errmsg, $tmp_ora_errmsg];
$last_errno = $2 if ($2 < $last_errno);
$error_code = $2;
$sqlstate = $4;
$error_msg = $5;
} elsif (/^DEFINE_ORACLE_ERROR_EXT\(([^,]+),\s*([^,]*),\s*([^,]*),\s*([^,]*),\s*("[^"]*")\s*,\s*("[^"]*")\s*,\s*([^,]*),\s*("[^"]*")\s*,\s*("[^"]*")/) {
++$error_count;
#print "\"$1\", $1, $2, $3, $4, $5, $6, $7, $8, $9\n";
#print "\"$1\", $7, $8, $9\n";
my $tmp_ora_errmsg=sprintf($print_ora_errmsg, "ORA", $7, substr($8, 1, length($8) - 2));
my $tmp_ora_user_errmsg=sprintf($print_ora_errmsg, "ORA", $7, substr($9, 1, length($9) - 2));
$map{$1} = [$2, $3, $4, $5, $6, "$1", $7, $tmp_ora_errmsg, $tmp_ora_user_errmsg];
$last_errno = $2 if ($2 < $last_errno);
$error_code = $2;
$sqlstate = $4;
$error_msg = $5;
} elsif (/^DEFINE_OTHER_MSG_FMT\(([^,]+),\s*([^,]*),\s*("[^"]*")\s*,\s*("[^"]*")/) {
#print "\"$1\", $1, $2, $3, $4\n";
$other_map{$1} = [$2, $3, $4];
} elsif (/^DEFINE_PLS_ERROR\(([^,]+),\s*([^,]*),\s*([^,]*),\s*([^,]*),\s*("[^"]*")\s*,\s*([^,]*),\s*("[^"]*")/) {
++$error_count;
#print "\"$1\", $1, $2, $3, $4, $5, $6, $7\n";
#print "\"$1\", $6, $7\n";
my $tmp_ora_errmsg=sprintf($print_ora_errmsg, "PLS", $6, substr($7, 1, length($7) - 2));
$map{$1} = [$2, $3, $4, $5, $5, "$1", $6, $tmp_ora_errmsg, $tmp_ora_errmsg];
$last_errno = $2 if ($2 < $last_errno);
$error_code = $2;
$sqlstate = $4;
$error_msg = $5;
} elsif (/^DEFINE_PLS_ERROR_EXT\(([^,]+),\s*([^,]*),\s*([^,]*),\s*([^,]*),\s*("[^"]*")\s*,\s*("[^"]*")\s*,\s*([^,]*),\s*("[^"]*")\s*,\s*("[^"]*")/) {
++$error_count;
#print "\"$1\", $1, $2, $3, $4, $5, $6, $7, $8, $9\n";
#print "\"$1\", $7, $8, $9\n";
my $tmp_ora_errmsg=sprintf($print_ora_errmsg, "PLS", $7, substr($8, 1, length($8) - 2));
my $tmp_ora_user_errmsg=sprintf($print_ora_errmsg, "PLS", $7, substr($9, 1, length($9) - 2));
$map{$1} = [$2, $3, $4, $5, $6, "$1", $7, $tmp_ora_errmsg, $tmp_ora_user_errmsg];
$last_errno = $2 if ($2 < $last_errno);
$error_code = $2;
$sqlstate = $4;
$error_msg = $5;
} elsif (/^DEFINE_ORACLE_ERROR_V2_EXT\(([^,]+),\s*([^,]*),\s*([^,]*),\s*([^,]*),\s*("[^"]*")\s*,\s*("[^"]*")\s*,\s*([^,]*),\s*("[^"]*")\s*,\s*("[^"]*")/) {
++$error_count;
#print "\"$1\", $1, $2, $3, $4, $5, $6, $7, $8, $9\n";
#print "\"$1\", $7, $8, $9\n";
my $tmp_ora_errmsg=sprintf("\"%s\"", substr($8, 1, length($8) - 2));
my $tmp_ora_user_errmsg=sprintf("\"%s\"", substr($9, 1, length($9) - 2));
$map{$1} = [$2, $3, $4, $5, $6, "$1", $7, $tmp_ora_errmsg, $tmp_ora_user_errmsg];
$last_errno = $2 if ($2 < $last_errno);
$error_code = $2;
$sqlstate = $4;
$error_msg = $5;
}
if (defined $error_code) {
print "WARN: undefined SQLSTATE for $1\n" if ($sqlstate eq "\"\"");
print "WARN: undefined error message for $1\n" if ($error_msg eq "\"\"");
print "WARN: error code out of range: $1\n" if ($error_code <= -1 && $error_code > -3000);
}
}
print "total error code: $error_count\n";
print "please wait for writing files ...\n";
# check duplicate error number
my %dedup;
for my $oberr (keys % map) {
my $errno = $map{$oberr}->[0];
if (defined $dedup{$errno})
{
print "Error: error code($errno) is duplicated for $oberr and $dedup{$errno}\n";
exit 1;
} else {
$dedup{$errno} = $oberr;
}
}
# sort
my @pairs = map {[$_, $map{$_}->[0] ]} keys %map;
my @sorted = sort {$b->[1] <=> $a->[1]} @pairs;
my @errors = map {$_->[0]} @sorted;
# generate ob_errno.h
open my $fh_header, '>', "ob_errno.h";
print $fh_header '/**
* Copyright (c) 2021 OceanBase
* OceanBase CE is licensed under Mulan PubL v2.
* You can use this software according to the terms and conditions of the Mulan PubL v2.
* You may obtain a copy of Mulan PubL v2 at:
* http://license.coscl.org.cn/MulanPubL-2.0
* THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OF ANY KIND,
* EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO NON-INFRINGEMENT,
* MERCHANTABILITY OR FIT FOR A PARTICULAR PURPOSE.
* See the Mulan PubL v2 for more details.
*/
// DO NOT EDIT. This file is automatically generated from `ob_errno.def\'.
#ifndef OCEANBASE_LIB_OB_ERRNO_H_
#define OCEANBASE_LIB_OB_ERRNO_H_
#include <stdint.h>
#include "share/mysql_errno.h"
#include "lib/ob_errno.h"
namespace oceanbase
{
namespace common
{
using namespace ::oblib;
';
print $fh_header "
constexpr int OB_LAST_ERROR_CODE = $last_errno;
constexpr int OB_ERR_SQL_START = -5000;
constexpr int OB_ERR_SQL_END = -5999;
";
for my $oberr (@errors) {
if (system "grep $oberr ../../deps/oblib/src/lib/ob_errno.h >/dev/null") {
print $fh_header "constexpr int $oberr = $map{$oberr}->[0];\n";
}
}
foreach my $oberr (keys %other_map){
if (system "grep $oberr ../../deps/oblib/src/lib/ob_errno.h >/dev/null") {
my $errno;
if (exists($map{$other_map{$oberr}->[0]})){
$errno = $map{$other_map{$oberr}->[0]}->[0];
} else {
print "Error: error code($other_map{$oberr}->[0]) is not exists\n";
exit 1;
}
print $fh_header "constexpr int $oberr = $errno;\n";
}
}
print $fh_header "\n\n";
for my $oberr (@errors) {
print $fh_header "#define ${oberr}__USER_ERROR_MSG $map{$oberr}->[4]\n";
}
foreach my $oberr (keys %other_map){
print $fh_header "#define ${oberr}__USER_ERROR_MSG $other_map{$oberr}->[1]\n";
}
print $fh_header "\n\n";
for my $oberr (@errors) {
print $fh_header "#define ${oberr}__ORA_USER_ERROR_MSG $map{$oberr}->[8]\n";
}
foreach my $oberr (keys %other_map){
my $ora_errno;
if (exists($map{$other_map{$oberr}->[0]})){
$ora_errno = $map{$other_map{$oberr}->[0]}->[6];
} else {
print "Error: error code($other_map{$oberr}->[0]) is not exists\n";
exit 1;
}
my $ora_msg=$other_map{$oberr}->[2];
my $tmp_ora_user_errmsg=sprintf($print_ora_errmsg, "ORA", $ora_errno, substr($ora_msg, 1, length($ora_msg) - 2));
print $fh_header "#define ${oberr}__ORA_USER_ERROR_MSG $tmp_ora_user_errmsg\n";
}
print $fh_header '
const char *ob_error_name(const int oberr);
int ob_mysql_errno(const int oberr);
int ob_mysql_errno_with_check(const int oberr);
const char *ob_sqlstate(const int oberr);
const char *ob_strerror(const int oberr);
const char *ob_str_user_error(const int oberr);
int ob_oracle_errno(const int oberr);
int ob_oracle_errno_with_check(const int oberr);
const char *ob_oracle_strerror(const int oberr);
const char *ob_oracle_str_user_error(const int oberr);
int ob_errpkt_errno(const int oberr, const bool is_oracle_mode);
const char *ob_errpkt_strerror(const int oberr, const bool is_oracle_mode);
const char *ob_errpkt_str_user_error(const int oberr, const bool is_oracle_mode);
} // end namespace common
} // end namespace oceanbase
#endif //OCEANBASE_LIB_OB_ERRNO_H_
';
# generate ob_errno.cpp
open my $fh_cpp, '>', "ob_errno.cpp";
print $fh_cpp '/**
* Copyright (c) 2021 OceanBase
* OceanBase CE is licensed under Mulan PubL v2.
* You can use this software according to the terms and conditions of the Mulan PubL v2.
* You may obtain a copy of Mulan PubL v2 at:
* http://license.coscl.org.cn/MulanPubL-2.0
* THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OF ANY KIND,
* EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO NON-INFRINGEMENT,
* MERCHANTABILITY OR FIT FOR A PARTICULAR PURPOSE.
* See the Mulan PubL v2 for more details.
*/
// DO NOT EDIT. This file is automatically generated from `ob_errno.def\'.
#include "ob_errno.h"
#include "ob_define.h"
using namespace oceanbase::common;
static const char *ERROR_NAME[OB_MAX_ERROR_CODE];
static int MYSQL_ERRNO[OB_MAX_ERROR_CODE];
static const char *SQLSTATE[OB_MAX_ERROR_CODE];
static const char *STR_ERROR[OB_MAX_ERROR_CODE];
static const char *STR_USER_ERROR[OB_MAX_ERROR_CODE];
static int ORACLE_ERRNO[OB_MAX_ERROR_CODE];
static const char *ORACLE_STR_ERROR[OB_MAX_ERROR_CODE];
static const char *ORACLE_STR_USER_ERROR[OB_MAX_ERROR_CODE];
static struct ObStrErrorInit
{
ObStrErrorInit()
{
memset(ERROR_NAME, 0, sizeof(ERROR_NAME));
memset(MYSQL_ERRNO, 0, sizeof(MYSQL_ERRNO));
memset(SQLSTATE, 0, sizeof(SQLSTATE));
memset(STR_ERROR, 0, sizeof(STR_ERROR));
memset(STR_USER_ERROR, 0, sizeof(STR_USER_ERROR));
memset(ORACLE_ERRNO, 0, sizeof(ORACLE_ERRNO));
memset(ORACLE_STR_ERROR, 0, sizeof(ORACLE_STR_ERROR));
memset(ORACLE_STR_USER_ERROR, 0, sizeof(ORACLE_STR_USER_ERROR));
';
for my $oberr (@errors) {
if (0 > $map{$oberr}->[0]) {
print $fh_cpp " ERROR_NAME[-$oberr] = \"$map{$oberr}->[5]\";\n";
print $fh_cpp " MYSQL_ERRNO[-$oberr] = $map{$oberr}->[1];\n";
print $fh_cpp " SQLSTATE[-$oberr] = $map{$oberr}->[2];\n";
print $fh_cpp " STR_ERROR[-$oberr] = $map{$oberr}->[3];\n";
print $fh_cpp " STR_USER_ERROR[-$oberr] = $map{$oberr}->[4];\n";
print $fh_cpp " ORACLE_ERRNO[-$oberr] = $map{$oberr}->[6];\n";
print $fh_cpp " ORACLE_STR_ERROR[-$oberr] = $map{$oberr}->[7];\n";
print $fh_cpp " ORACLE_STR_USER_ERROR[-$oberr] = $map{$oberr}->[8];\n";
}
}
print $fh_cpp '
}
} local_init;
namespace oceanbase
{
namespace common
{
const char *ob_error_name(const int err)
{
const char *ret = "Unknown error";
if (OB_UNLIKELY(0 == err)) {
ret = "OB_SUCCESS";
} else if (OB_LIKELY(0 > err && err > -OB_MAX_ERROR_CODE)) {
ret = ERROR_NAME[-err];
if (OB_UNLIKELY(NULL == ret || \'\0\' == ret[0]))
{
ret = "Unknown Error";
}
}
return ret;
}
const char *ob_strerror(const int err)
{
const char *ret = "Unknown error";
if (OB_LIKELY(0 >= err && err > -OB_MAX_ERROR_CODE)) {
ret = STR_ERROR[-err];
if (OB_UNLIKELY(NULL == ret || \'\0\' == ret[0]))
{
ret = "Unknown Error";
}
}
return ret;
}
const char *ob_str_user_error(const int err)
{
const char *ret = NULL;
if (OB_LIKELY(0 >= err && err > -OB_MAX_ERROR_CODE)) {
ret = STR_USER_ERROR[-err];
if (OB_UNLIKELY(NULL == ret || \'\0\' == ret[0])) {
ret = NULL;
}
}
return ret;
}
const char *ob_sqlstate(const int err)
{
const char *ret = "HY000";
if (OB_LIKELY(0 >= err && err > -OB_MAX_ERROR_CODE)) {
ret = SQLSTATE[-err];
if (OB_UNLIKELY(NULL == ret || \'\0\' == ret[0])) {
ret = "HY000";
}
}
return ret;
}
int ob_mysql_errno(const int err)
{
int ret = -1;
if (OB_LIKELY(0 >= err && err > -OB_MAX_ERROR_CODE)) {
ret = MYSQL_ERRNO[-err];
}
return ret;
}
int ob_mysql_errno_with_check(const int err)
{
int ret = ob_mysql_errno(err);
if (ret < 0) {
ret = -err;
}
return ret;
}
const char *ob_oracle_strerror(const int err)
{
const char *ret = "Unknown error";
if (OB_LIKELY(0 >= err && err > -OB_MAX_ERROR_CODE)) {
ret = ORACLE_STR_ERROR[-err];
if (OB_UNLIKELY(NULL == ret || \'\0\' == ret[0]))
{
ret = "Unknown Error";
}
}
return ret;
}
const char *ob_oracle_str_user_error(const int err)
{
const char *ret = NULL;
if (OB_LIKELY(0 >= err && err > -OB_MAX_ERROR_CODE)) {
ret = ORACLE_STR_USER_ERROR[-err];
if (OB_UNLIKELY(NULL == ret || \'\0\' == ret[0])) {
ret = NULL;
}
}
return ret;
}
int ob_oracle_errno(const int err)
{
int ret = -1;
if (OB_ERR_PROXY_REROUTE == err) {
// Oracle Mode and MySQL mode should return same errcode for reroute sql
// thus we make the specialization here
ret = -1;
} else if (err >= OB_MIN_RAISE_APPLICATION_ERROR && err <= OB_MAX_RAISE_APPLICATION_ERROR) {
ret = err; // PL/SQL Raise Application Error
} else if (OB_LIKELY(0 >= err && err > -OB_MAX_ERROR_CODE)) {
ret = ORACLE_ERRNO[-err];
}
return ret;
}
int ob_oracle_errno_with_check(const int err)
{
int ret = ob_oracle_errno(err);
if (ret < 0) {
ret = -err;
}
return ret;
}
int ob_errpkt_errno(const int err, const bool is_oracle_mode)
{
return (is_oracle_mode ? ob_oracle_errno_with_check(err) : ob_mysql_errno_with_check(err));
}
const char *ob_errpkt_strerror(const int err, const bool is_oracle_mode)
{
return (is_oracle_mode ? ob_oracle_strerror(err) : ob_strerror(err));
}
const char *ob_errpkt_str_user_error(const int err, const bool is_oracle_mode)
{
return (is_oracle_mode ? ob_oracle_str_user_error(err) : ob_str_user_error(err));
}
} // end namespace common
} // end namespace oceanbase
';
Markdown is supported
0% 或 .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑！
想要评论请 注册 或