Mercurial > forge

annotate main/database/src/__pq_connect__.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 1af86934c14e
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: 12718
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"
12718
1af86934c14e Make compatible with Octaves new exception-based error handling.
i7tiol
parents: 12613
diff changeset
23 #include "error-helpers.h"
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
24
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
25
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
26 // PKG_ADD: autoload ("__pq_connect__", "pq_interface.oct");
12613
9cb56e0cd09b Remove autoloaded functions at package unload.
i7tiol
parents: 12612
diff changeset
27 // PKG_DEL: autoload ("__pq_connect__", "pq_interface.oct", "remove");
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
28
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
29 DEFUN_DLD (__pq_connect__, args, ,
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
30 "-*- texinfo -*-\n\
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
31 @deftypefn {Loadable Function} {@var{id}} __pq_connect__ (@var{options})\n\
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
32 Text.\n\
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
33 \n\
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
34 @end deftypefn")
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 std::string fname ("__pq_connect__");
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
37
12718
1af86934c14e Make compatible with Octaves new exception-based error handling.
i7tiol
parents: 12613
diff changeset
38 octave_value retval;
1af86934c14e Make compatible with Octaves new exception-based error handling.
i7tiol
parents: 12613
diff changeset
39
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
40 if (args.length () != 1)
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
41 {
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
42 print_usage ();
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
43
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
44 return octave_value_list ();
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
45 }
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
46
12718
1af86934c14e Make compatible with Octaves new exception-based error handling.
i7tiol
parents: 12613
diff changeset
47 std::string opt_string;
1af86934c14e Make compatible with Octaves new exception-based error handling.
i7tiol
parents: 12613
diff changeset
48 CHECK_ERROR (opt_string = args(0).string_value (), retval,
1af86934c14e Make compatible with Octaves new exception-based error handling.
i7tiol
parents: 12613
diff changeset
49 "%s: argument not a string", fname.c_str ());
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
50
12718
1af86934c14e Make compatible with Octaves new exception-based error handling.
i7tiol
parents: 12613
diff changeset
51 octave_pq_connection *oct_pq_conn = new octave_pq_connection (opt_string);
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
52
12718
1af86934c14e Make compatible with Octaves new exception-based error handling.
i7tiol
parents: 12613
diff changeset
53 if (! oct_pq_conn->get_rep ()->octave_pq_get_conn ())
1af86934c14e Make compatible with Octaves new exception-based error handling.
i7tiol
parents: 12613
diff changeset
54 error ("%s failed", fname.c_str ());
1af86934c14e Make compatible with Octaves new exception-based error handling.
i7tiol
parents: 12613
diff changeset
55 else
1af86934c14e Make compatible with Octaves new exception-based error handling.
i7tiol
parents: 12613
diff changeset
56 retval = oct_pq_conn;
11394
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
57
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
58 return retval;
9aee227e296c Populated new database package with initial postgresql interface.
i7tiol
parents:
diff changeset
59 }