1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
#!/usr/bin/perl -w
########################################################################
# querydef.pl - Generates querydef.h, which defines a number of macros
# used in query.h that differ only in the number of arguments. That
# number limits the number of parameters a MySQL++ template query can
# accept. This value can be changed from its default, below.
#
# Copyright (c) 2006-2010 by Educational Technology Resources, Inc.
# Others may also hold copyrights on code in this file. See the CREDITS
# file in the top directory of the distribution for details.
#
# This file is part of MySQL++.
#
# MySQL++ is free software; you can redistribute it and/or modify it
# under the terms of the GNU Lesser General Public License as published
# by the Free Software Foundation; either version 2.1 of the License, or
# (at your option) any later version.
#
# MySQL++ is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
# License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with MySQL++; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301
# USA
########################################################################
# The number of parameters a template query can accept. Make this value
# larger only at need, as it adds code to the library proportionally.
# You should not reduce this value if programs you did not write may
# link to the library, as that would constitute an ABI breakage.
my $max_parameters = 25;
# No user-serviceable parts below.
use strict;
use Getopt::Std;
our $opt_f;
getopts('f:') or die "usage: $0 [-f fields]\n\n";
$max_parameters = int($opt_f) if defined $opt_f;
open (OUT, ">querydef.h");
print OUT << "---";
// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
// This file is generated by the Perl script querydef.pl. Please do
// not modify this file directly. Change the script instead.
// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
#ifndef MYSQLPP_QUERYDEF_H
#define MYSQLPP_QUERYDEF_H
#define MYSQLPP_TQUERY_MAX_PARAMETERS $max_parameters
---
## Build mysql_query_define0 macro
print OUT "#define mysql_query_define0(RETURN, FUNC) \\\n";
for (my $i = 1; $i < $max_parameters; ++$i) {
print OUT "\tRETURN FUNC(";
for (my $j = 0; $j < $i + 1; ++$j) {
print OUT 'const SQLTypeAdapter& arg', $j;
print OUT ', ' unless $j == $i;
}
print OUT ") \\\n";
print OUT "\t\t{ return FUNC(SQLQueryParms()";
for (my $j = 0; $j < $i + 1; ++$j) {
print OUT ' << arg', $j;
}
print OUT "); } \\\n";
}
print OUT "\n";
## Add mysql_query_define1 macro
print OUT "#define mysql_query_define1(FUNC) \\\n";
for (my $i = 1; $i < $max_parameters; ++$i) {
print OUT "\ttemplate <class T> void FUNC(T& container";
for (my $j = 0; $j < $i + 1; ++$j) {
print OUT ', const SQLTypeAdapter& arg', $j;
}
print OUT ") \\\n";
print OUT "\t\t{ FUNC(container, SQLQueryParms()";
for (my $j = 0; $j < $i + 1; ++$j) {
print OUT ' << arg', $j;
}
print OUT "); } \\\n";
}
print OUT "\n";
## That's all, folks!
print OUT "#endif // !defined(MYSQLPP_QUERYDEF_H)\n";
|
