mirror of
https://github.com/jmcnamara/libxlsxwriter.git
synced 2026-05-15 22:02:06 -06:00
8231ead05b
Some of the previously defined error names have changed to give a more consistent interface. Also added a lxw_strerror() function to decode the error to a string. Issue #49.
43 lines
890 B
Perl
43 lines
890 B
Perl
#!/usr/bin/perl
|
|
|
|
#
|
|
# Simple program to generate the string array for the lxw_strerror() function
|
|
# from the Doxygen comments in the lxw_error enum:
|
|
#
|
|
# perl dev/release/gen_error_strings.pl include/xlsxwriter/common.h
|
|
#
|
|
# Copyright 2014-2016, John McNamara, jmcnamara@cpan.org
|
|
#
|
|
use warnings;
|
|
use strict;
|
|
|
|
my $in_enum = 0;
|
|
my @strings;
|
|
while (<>) {
|
|
|
|
$in_enum = 1 if /enum lxw_error/;
|
|
$in_enum = 0 if /};/;
|
|
|
|
# Match doxygen strings in the enum.
|
|
if ($in_enum && m{/\*\*}) {
|
|
# Strip the comment parts.
|
|
s{/\*\*}{};
|
|
s{\*/}{};
|
|
s{^\s+}{};
|
|
s{\s+$}{};
|
|
push @strings, $_;
|
|
}
|
|
}
|
|
|
|
# Print out an array of strings based on the doxygen comments.
|
|
print "\n";
|
|
print "char *error_strings[LXW_MAX_ERRNO + 1] = {\n";
|
|
for my $string (@strings) {
|
|
print qq{ "$string",\n};
|
|
}
|
|
print qq{ "Unknown error number."\n};
|
|
print "};\n\n";
|
|
|
|
|
|
|
|
|