summaryrefslogtreecommitdiff
path: root/src/bin/psql/create_help.pl
diff options
context:
space:
mode:
Diffstat (limited to 'src/bin/psql/create_help.pl')
-rw-r--r--src/bin/psql/create_help.pl177
1 files changed, 100 insertions, 77 deletions
diff --git a/src/bin/psql/create_help.pl b/src/bin/psql/create_help.pl
index be460a7f86b..aa384b30446 100644
--- a/src/bin/psql/create_help.pl
+++ b/src/bin/psql/create_help.pl
@@ -22,15 +22,18 @@
use strict;
my $docdir = $ARGV[0] or die "$0: missing required argument: docdir\n";
-my $hfile = $ARGV[1] . '.h' or die "$0: missing required argument: output file\n";
+my $hfile = $ARGV[1] . '.h'
+ or die "$0: missing required argument: output file\n";
my $cfile = $ARGV[1] . '.c';
my $hfilebasename;
-if ($hfile =~ m!.*/([^/]+)$!) {
- $hfilebasename = $1;
+if ($hfile =~ m!.*/([^/]+)$!)
+{
+ $hfilebasename = $1;
}
-else {
- $hfilebasename = $hfile;
+else
+{
+ $hfilebasename = $hfile;
}
my $define = $hfilebasename;
@@ -38,14 +41,13 @@ $define =~ tr/a-z/A-Z/;
$define =~ s/\W/_/g;
opendir(DIR, $docdir)
- or die "$0: could not open documentation source dir '$docdir': $!\n";
+ or die "$0: could not open documentation source dir '$docdir': $!\n";
open(HFILE, ">$hfile")
- or die "$0: could not open output file '$hfile': $!\n";
+ or die "$0: could not open output file '$hfile': $!\n";
open(CFILE, ">$cfile")
- or die "$0: could not open output file '$cfile': $!\n";
+ or die "$0: could not open output file '$cfile': $!\n";
-print HFILE
-"/*
+print HFILE "/*
* *** Do not change this file by hand. It is automatically
* *** generated from the DocBook documentation.
*
@@ -72,8 +74,7 @@ struct _helpStruct
";
-print CFILE
-"/*
+print CFILE "/*
* *** Do not change this file by hand. It is automatically
* *** generated from the DocBook documentation.
*
@@ -90,71 +91,90 @@ my $maxlen = 0;
my %entries;
-foreach my $file (sort readdir DIR) {
- my (@cmdnames, $cmddesc, $cmdsynopsis);
- $file =~ /\.sgml$/ or next;
-
- open(FILE, "$docdir/$file") or next;
- my $filecontent = join('', <FILE>);
- close FILE;
-
- # Ignore files that are not for SQL language statements
- $filecontent =~ m!<refmiscinfo>\s*SQL - Language Statements\s*</refmiscinfo>!i
- or next;
-
- # Collect multiple refnames
- LOOP: { $filecontent =~ m!\G.*?<refname>\s*([a-z ]+?)\s*</refname>!cgis and push @cmdnames, $1 and redo LOOP; }
- $filecontent =~ m!<refpurpose>\s*(.+?)\s*</refpurpose>!is and $cmddesc = $1;
- $filecontent =~ m!<synopsis>\s*(.+?)\s*</synopsis>!is and $cmdsynopsis = $1;
-
- if (@cmdnames && $cmddesc && $cmdsynopsis) {
- s/\"/\\"/g foreach @cmdnames;
-
- $cmddesc =~ s/<[^>]+>//g;
- $cmddesc =~ s/\s+/ /g;
- $cmddesc =~ s/\"/\\"/g;
-
- my @params = ();
-
- my $nl_count = () = $cmdsynopsis =~ /\n/g;
-
- $cmdsynopsis =~ m!</>! and die "$0:$file: null end tag not supported in synopsis\n";
- $cmdsynopsis =~ s/%/%%/g;
-
- while ($cmdsynopsis =~ m!<(\w+)[^>]*>(.+?)</\1[^>]*>!) {
- my $match = $2;
- $match =~ s/<[^>]+>//g;
- $match =~ s/%%/%/g;
- push @params, $match;
- $cmdsynopsis =~ s!<(\w+)[^>]*>.+?</\1[^>]*>!%s!;
- }
- $cmdsynopsis =~ s/\r?\n/\\n/g;
- $cmdsynopsis =~ s/\"/\\"/g;
-
- foreach my $cmdname (@cmdnames) {
- $entries{$cmdname} = { cmddesc => $cmddesc, cmdsynopsis => $cmdsynopsis, params => \@params, nl_count => $nl_count };
- $maxlen = ($maxlen >= length $cmdname) ? $maxlen : length $cmdname;
+foreach my $file (sort readdir DIR)
+{
+ my (@cmdnames, $cmddesc, $cmdsynopsis);
+ $file =~ /\.sgml$/ or next;
+
+ open(FILE, "$docdir/$file") or next;
+ my $filecontent = join('', <FILE>);
+ close FILE;
+
+ # Ignore files that are not for SQL language statements
+ $filecontent =~
+ m!<refmiscinfo>\s*SQL - Language Statements\s*</refmiscinfo>!i
+ or next;
+
+ # Collect multiple refnames
+ LOOP:
+ {
+ $filecontent =~ m!\G.*?<refname>\s*([a-z ]+?)\s*</refname>!cgis
+ and push @cmdnames, $1
+ and redo LOOP;
+ }
+ $filecontent =~ m!<refpurpose>\s*(.+?)\s*</refpurpose>!is
+ and $cmddesc = $1;
+ $filecontent =~ m!<synopsis>\s*(.+?)\s*</synopsis>!is
+ and $cmdsynopsis = $1;
+
+ if (@cmdnames && $cmddesc && $cmdsynopsis)
+ {
+ s/\"/\\"/g foreach @cmdnames;
+
+ $cmddesc =~ s/<[^>]+>//g;
+ $cmddesc =~ s/\s+/ /g;
+ $cmddesc =~ s/\"/\\"/g;
+
+ my @params = ();
+
+ my $nl_count = () = $cmdsynopsis =~ /\n/g;
+
+ $cmdsynopsis =~ m!</>!
+ and die "$0:$file: null end tag not supported in synopsis\n";
+ $cmdsynopsis =~ s/%/%%/g;
+
+ while ($cmdsynopsis =~ m!<(\w+)[^>]*>(.+?)</\1[^>]*>!)
+ {
+ my $match = $2;
+ $match =~ s/<[^>]+>//g;
+ $match =~ s/%%/%/g;
+ push @params, $match;
+ $cmdsynopsis =~ s!<(\w+)[^>]*>.+?</\1[^>]*>!%s!;
+ }
+ $cmdsynopsis =~ s/\r?\n/\\n/g;
+ $cmdsynopsis =~ s/\"/\\"/g;
+
+ foreach my $cmdname (@cmdnames)
+ {
+ $entries{$cmdname} = {
+ cmddesc => $cmddesc,
+ cmdsynopsis => $cmdsynopsis,
+ params => \@params,
+ nl_count => $nl_count };
+ $maxlen =
+ ($maxlen >= length $cmdname) ? $maxlen : length $cmdname;
+ }
+ }
+ else
+ {
+ die "$0: parsing file '$file' failed (N='@cmdnames' D='$cmddesc')\n";
}
- }
- else {
- die "$0: parsing file '$file' failed (N='@cmdnames' D='$cmddesc')\n";
- }
}
-foreach (sort keys %entries) {
- my $prefix = "\t"x5 . ' ';
- my $id = $_;
- $id =~ s/ /_/g;
- my $synopsis = "\"$entries{$_}{cmdsynopsis}\"";
- $synopsis =~ s/\\n/\\n"\n$prefix"/g;
- my @args = ("buf",
- $synopsis,
- map("_(\"$_\")", @{$entries{$_}{params}}));
- print HFILE "extern void sql_help_$id(PQExpBuffer buf);\n";
- print CFILE "void
+foreach (sort keys %entries)
+{
+ my $prefix = "\t" x 5 . ' ';
+ my $id = $_;
+ $id =~ s/ /_/g;
+ my $synopsis = "\"$entries{$_}{cmdsynopsis}\"";
+ $synopsis =~ s/\\n/\\n"\n$prefix"/g;
+ my @args =
+ ("buf", $synopsis, map("_(\"$_\")", @{ $entries{$_}{params} }));
+ print HFILE "extern void sql_help_$id(PQExpBuffer buf);\n";
+ print CFILE "void
sql_help_$id(PQExpBuffer buf)
{
-\tappendPQExpBuffer(".join(",\n$prefix", @args).");
+\tappendPQExpBuffer(" . join(",\n$prefix", @args) . ");
}
";
@@ -164,10 +184,11 @@ print HFILE "
static const struct _helpStruct QL_HELP[] = {
";
-foreach (sort keys %entries) {
- my $id = $_;
- $id =~ s/ /_/g;
- print HFILE " { \"$_\",
+foreach (sort keys %entries)
+{
+ my $id = $_;
+ $id =~ s/ /_/g;
+ print HFILE " { \"$_\",
N_(\"$entries{$_}{cmddesc}\"),
sql_help_$id,
$entries{$_}{nl_count} },
@@ -180,7 +201,9 @@ print HFILE "
};
-#define QL_HELP_COUNT ".scalar(keys %entries)." /* number of help items */
+#define QL_HELP_COUNT "
+ . scalar(keys %entries)
+ . " /* number of help items */
#define QL_MAX_CMD_LEN $maxlen /* largest strlen(cmd) */
generated by cgit v1.2.3 (git 2.39.1) at 2025-07-08 08:58:21 +0000