Mercurial > forge

annotate main/database/src/pq_close.cc @ 12720:52ca082757c2 octave-forge tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update copyright notices.
author i7tiol
date Sat, 27 Feb 2016 11:21:29 +0000
parents 9cb56e0cd09b
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
1 /*
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
2
12720
52ca082757c2 Update copyright notices.
i7tiol
parents: 12613
diff changeset
3 Copyright (C) 2012-2016 Olaf Till <i7tiol@t-online.de>
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
4
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
5 This program is free software; you can redistribute it and/or modify
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
6 it under the terms of the GNU General Public License as published by
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
7 the Free Software Foundation; either version 3 of the License, or
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
8 (at your option) any later version.
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
9
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
10 This program is distributed in the hope that it will be useful,
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
13 GNU General Public License for more details.
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
14
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
15 You should have received a copy of the GNU General Public License
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
16 along with this program; If not, see <http://www.gnu.org/licenses/>.
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
17
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
18 */
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
19
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
20 #include <octave/oct.h>
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
21
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
22 #include "pq_connection.h"
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
23
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
24 // PKG_ADD: autoload ("pq_close", "pq_interface.oct");
12613
9cb56e0cd09b Remove autoloaded functions at package unload.
i7tiol
parents: 12612
diff changeset
25 // PKG_DEL: autoload ("pq_close", "pq_interface.oct", "remove");
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
26
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
27 DEFUN_DLD (pq_close, args, ,
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
28 "-*- texinfo -*-\n\
11432
4d28b9a2d388 Fix some documentation for initial release of new package.
i7tiol
parents: 11394
diff changeset
29 @deftypefn {Loadable Function} pq_close (@var{connection})\n\
4d28b9a2d388 Fix some documentation for initial release of new package.
i7tiol
parents: 11394
diff changeset
30 Closes connection @var{connection} to a postgresql server.\n\
4d28b9a2d388 Fix some documentation for initial release of new package.
i7tiol
parents: 11394
diff changeset
31 @seealso{pq_connect}\n\
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
32 @end deftypefn")
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
33 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
34 std::string fname ("pq_close");
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
35
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
36 if (args.length () != 1 ||
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
37 args(0).type_id () != octave_pq_connection::static_type_id ())
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
38 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
39 print_usage ();
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
40
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
41 return octave_value_list ();
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
42 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
43
12612
2257648e8ce1 avoid using const_cast, new release 2.3.2
i7tiol
parents: 11432
diff changeset
44 const octave_base_value& rep = (args(0).get_rep ());
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
45
12612
2257648e8ce1 avoid using const_cast, new release 2.3.2
i7tiol
parents: 11432
diff changeset
46 const octave_pq_connection &oct_pq_conn =
2257648e8ce1 avoid using const_cast, new release 2.3.2
i7tiol
parents: 11432
diff changeset
47 dynamic_cast<const octave_pq_connection&> (rep);
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
48
12612
2257648e8ce1 avoid using const_cast, new release 2.3.2
i7tiol
parents: 11432
diff changeset
49 oct_pq_conn.get_rep ()->octave_pq_close ();
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
50
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
51 return octave_value_list ();
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
52 }