ruby-informix 0.8.0 → 0.8.2
Sign up to get free protection for your applications and to get access to all the features.
- checksums.yaml +7 -0
- data/COPYRIGHT +1 -1
- data/Changelog +11 -0
- data/README.md +143 -0
- data/ext/extconf.rb +12 -13
- data/ext/informixc.c +266 -259
- data/ext/informixc.ec +14 -7
- data/lib/informix.rb +2 -2
- data/lib/informix/exceptions.rb +1 -1
- data/lib/informix/interval.rb +1 -1
- data/lib/informix/scrollcursor.rb +1 -1
- data/lib/informix/seqcursor.rb +1 -1
- metadata +36 -43
- data/README +0 -142
checksums.yaml
ADDED
|
@@ -0,0 +1,7 @@
|
|
|
1
|
+
---
|
|
2
|
+
SHA1:
|
|
3
|
+
metadata.gz: 1ac698ef861cd70166703f77f739a2e91c4b2fa1
|
|
4
|
+
data.tar.gz: a74fac6fa835cecf09efb2270959a96ef2fd450f
|
|
5
|
+
SHA512:
|
|
6
|
+
metadata.gz: c0b0236372a3a3af5b74114fee66311f23682dac500078a0cb8b85caaacc580caccc0e32edf91d08a0c598af54c9f4220ff4dc5c15873a79964030c67f7088a9
|
|
7
|
+
data.tar.gz: 7e78ee3e961d416828c7c66e4562505ed1e7f7927f2fe5769456af379057315f2d84ac45ea703ff81dd8a8bdc30f69d00cc984ad389b1bad7eccf659b751e098
|
data/COPYRIGHT
CHANGED
data/Changelog
CHANGED
|
@@ -1,3 +1,14 @@
|
|
|
1
|
+
0.8.2 2017-04-25
|
|
2
|
+
------------------
|
|
3
|
+
Minor changes:
|
|
4
|
+
* documentation improved
|
|
5
|
+
* rake task added for building gem
|
|
6
|
+
|
|
7
|
+
0.8.1 2016-09-19
|
|
8
|
+
------------------
|
|
9
|
+
Bugs fixed:
|
|
10
|
+
* fixes an compile-time error in Ruby 2.x: "error: lvalue required as left operand of assignment"
|
|
11
|
+
|
|
1
12
|
0.8.0 2012-04-17
|
|
2
13
|
------------------
|
|
3
14
|
Bugs fixed:
|
data/README.md
ADDED
|
@@ -0,0 +1,143 @@
|
|
|
1
|
+
# Ruby/Informix -- Ruby library for connecting to IBM Informix.
|
|
2
|
+
|
|
3
|
+
## Motivation
|
|
4
|
+
Read about [the situation that started it all](http://santanatechnotes.blogspot.com/2006/03/informix-driver-for-ruby.html).
|
|
5
|
+
|
|
6
|
+
## Download
|
|
7
|
+
|
|
8
|
+
The latest version of Ruby/Informix can be found at http://rubyforge.org/projects/ruby-informix
|
|
9
|
+
|
|
10
|
+
## Supported platforms
|
|
11
|
+
|
|
12
|
+
Ruby/Informix has been tested succesfully with Informix 7 and above, and
|
|
13
|
+
Informix CSDK 2.81 and above, on the following platforms:
|
|
14
|
+
|
|
15
|
+
Operating System Architecture
|
|
16
|
+
-----------------------------------------
|
|
17
|
+
Solaris SPARC64
|
|
18
|
+
Mac OS X x86-64
|
|
19
|
+
GNU/Linux x86, x86-64
|
|
20
|
+
Windows XP/2000 x86
|
|
21
|
+
HP-UX 11.11 PA-RISC 2.0 64-bit
|
|
22
|
+
|
|
23
|
+
Send me an e-mail if you have [un]succesfully tested Ruby/Informix on another
|
|
24
|
+
platform.
|
|
25
|
+
|
|
26
|
+
## Installation
|
|
27
|
+
|
|
28
|
+
### Requirements
|
|
29
|
+
|
|
30
|
+
* Informix CSDK 2.81 or above
|
|
31
|
+
|
|
32
|
+
If you want to build Ruby/Informix instead of installing a precompiled gem,
|
|
33
|
+
you will also need:
|
|
34
|
+
|
|
35
|
+
* Microsoft Visual Studio 6.0, for Windows or
|
|
36
|
+
* an ANSI C compiler, for UNIX and Linux
|
|
37
|
+
|
|
38
|
+
### Rubygem installation
|
|
39
|
+
|
|
40
|
+
gem install ruby-informix
|
|
41
|
+
|
|
42
|
+
### From source
|
|
43
|
+
|
|
44
|
+
Set your INFORMIXDIR environment variable and run:
|
|
45
|
+
|
|
46
|
+
rake gem
|
|
47
|
+
sudo -E gem install ruby-informix*.gem
|
|
48
|
+
|
|
49
|
+
## Documentation
|
|
50
|
+
|
|
51
|
+
RDoc and ri documentation is automatically installed. It can also be found
|
|
52
|
+
[online](http://ruby-informix.rubyforge.org/doc)
|
|
53
|
+
|
|
54
|
+
## Examples
|
|
55
|
+
|
|
56
|
+
*Note*: set LD\_LIBRARY\_PATH (non-macOS) or DYLD\_LIBRARY\_PATH (macOS) to
|
|
57
|
+
search in $INFORMIXDIR/lib and $INFORMIXDIR/lib/esql before loading the gem.
|
|
58
|
+
|
|
59
|
+
### Connecting to a database
|
|
60
|
+
|
|
61
|
+
db = Informix.connect('stores')
|
|
62
|
+
|
|
63
|
+
### Traversing a table
|
|
64
|
+
|
|
65
|
+
db.foreach('select * from stock') do |r|
|
|
66
|
+
# do something with the record
|
|
67
|
+
end
|
|
68
|
+
|
|
69
|
+
### Fetching all records from a table
|
|
70
|
+
|
|
71
|
+
records = db.cursor('select * from stock') do |cur|
|
|
72
|
+
cur.open
|
|
73
|
+
cur.fetch_all
|
|
74
|
+
end
|
|
75
|
+
|
|
76
|
+
### Inserting records
|
|
77
|
+
|
|
78
|
+
stmt = db.prepare('insert into state values(?, ?)')
|
|
79
|
+
stmt.execute('CA', 'California')
|
|
80
|
+
stmt.call('NM', 'New Mexico')
|
|
81
|
+
stmt['TX', 'Texas']
|
|
82
|
+
|
|
83
|
+
### Iterating over a table using a hash (shortcut)
|
|
84
|
+
|
|
85
|
+
db.foreach_hash('select * from customers') do |cust|
|
|
86
|
+
puts "#{cust['firstname']} #{cust['lastname']}"
|
|
87
|
+
end
|
|
88
|
+
|
|
89
|
+
More examples can be found at:
|
|
90
|
+
|
|
91
|
+
http://ruby-informix.rubyforge.org/examples.html
|
|
92
|
+
|
|
93
|
+
|
|
94
|
+
## Data types supported
|
|
95
|
+
|
|
96
|
+
Informix Ruby
|
|
97
|
+
--------------------------------------------------------
|
|
98
|
+
SMALLINT, INT, INT8, FLOAT, Numeric
|
|
99
|
+
SERIAL, SERIAL8
|
|
100
|
+
CHAR, NCHAR, VARCHAR, NVARCHAR String
|
|
101
|
+
DATE Date
|
|
102
|
+
DATETIME Time
|
|
103
|
+
INTERVAL Informix::IntervalYTM,
|
|
104
|
+
Informix::IntervalDTS
|
|
105
|
+
DECIMAL, MONEY BigDecimal
|
|
106
|
+
BOOL TrueClass, FalseClass
|
|
107
|
+
BYTE, TEXT StringIO, String
|
|
108
|
+
CLOB, BLOB Informix::Slob
|
|
109
|
+
|
|
110
|
+
|
|
111
|
+
NULL values can be inserted and are retrieved as +nil+.
|
|
112
|
+
|
|
113
|
+
Any IO-like object that provides a read method, e.g. StringIO or File objects,
|
|
114
|
+
can be used to insert data in BYTE or TEXT fields. Data retrieved from
|
|
115
|
+
BYTE and TEXT fields are stored in String objects.
|
|
116
|
+
|
|
117
|
+
Strings can be used where Informix accepts them for non-character data types,
|
|
118
|
+
like DATE, DATETIME, INTERVAL, BOOL, DECIMAL and MONEY
|
|
119
|
+
|
|
120
|
+
|
|
121
|
+
## Recommendations
|
|
122
|
+
|
|
123
|
+
* Use blocks to release Informix resources automatically as soon as possible.
|
|
124
|
+
Alternatively, use #free.
|
|
125
|
+
* You can optimize cursor execution by changing the size of fetch and insert
|
|
126
|
+
buffers, setting the environment variable FET\_BUF\_SIZE to up to 32767.
|
|
127
|
+
|
|
128
|
+
|
|
129
|
+
## Support
|
|
130
|
+
|
|
131
|
+
Feel free to send me bug reports, feature requests, comments, patches or
|
|
132
|
+
questions directly to my mailbox or via github.
|
|
133
|
+
|
|
134
|
+
## Presentations and articles about Ruby/Informix
|
|
135
|
+
|
|
136
|
+
* [Talking with Perl, PHP, Python, Ruby to IDS](http://www.informix-zone.com/informix-script-dbapi), Eric Herber, The Informix Zone.
|
|
137
|
+
* [Informix on Rails](http://www.ibm.com/developerworks/blogs/page/gbowerman?entry=informix_on_rails), Guy Bowerman, IBM developerWorks Blogs: Informix Application Development.
|
|
138
|
+
* [Ruby/Informix, and the Ruby Common client](http://www.ibm.com/developerworks/blogs/page/gbowerman?entry=ruby_informix_and_the_ruby), Guy Bowerman, IBM developerWorks Blogs: Informix Application Development.
|
|
139
|
+
* [Using IBM Informix Dynamic Server on Microsoft Windows, Part 6](http://www.ibm.com/developerworks/offers/lp/demos/summary/usingids6.html), Akmal B. Chaudhri, IBM developerWorks: On demand demos.
|
|
140
|
+
|
|
141
|
+
## License
|
|
142
|
+
|
|
143
|
+
Ruby/Informix is available under the three-clause BSD license
|
data/ext/extconf.rb
CHANGED
|
@@ -1,6 +1,6 @@
|
|
|
1
1
|
require 'mkmf'
|
|
2
2
|
|
|
3
|
-
env = nil
|
|
3
|
+
env = libs = nil
|
|
4
4
|
informixdir = ENV["INFORMIXDIR"]
|
|
5
5
|
MSWindows = /djgpp|(cyg|ms|bcc)win|mingw/
|
|
6
6
|
|
|
@@ -9,30 +9,29 @@ if informixdir.nil?
|
|
|
9
9
|
exit 1
|
|
10
10
|
end
|
|
11
11
|
|
|
12
|
-
esql = informixdir
|
|
13
|
-
idefault = informixdir
|
|
14
|
-
ldefault = [ informixdir
|
|
15
|
-
ldefault << informixdir
|
|
12
|
+
esql = File.join(informixdir, 'bin', 'esql')
|
|
13
|
+
idefault = File.join(informixdir, 'incl', 'esql')
|
|
14
|
+
ldefault = [ File.join(informixdir, 'lib') ]
|
|
15
|
+
ldefault << File.join(informixdir, 'lib', 'esql') if RUBY_PLATFORM !~ MSWindows
|
|
16
16
|
|
|
17
17
|
dir_config("informix", idefault, ldefault)
|
|
18
18
|
|
|
19
19
|
if RUBY_PLATFORM =~ MSWindows
|
|
20
|
-
|
|
20
|
+
libs += File.join(informixdir, 'lib', 'isqlt09a.lib')
|
|
21
21
|
else
|
|
22
22
|
env = "/usr/bin/env"
|
|
23
23
|
|
|
24
24
|
%w(ifsql ifasf ifgen ifos ifgls).each do |lib|
|
|
25
|
-
|
|
25
|
+
libs += " " + format(LIBARG, lib)
|
|
26
26
|
end
|
|
27
|
-
$LIBPATH.each
|
|
28
|
-
checkapi = path
|
|
27
|
+
$LIBPATH.each do |path|
|
|
28
|
+
checkapi = File.join(path, 'checkapi.o')
|
|
29
29
|
if File.exist?(checkapi)
|
|
30
|
-
|
|
30
|
+
libs += " " + checkapi
|
|
31
31
|
break
|
|
32
32
|
end
|
|
33
|
-
|
|
33
|
+
end
|
|
34
34
|
end
|
|
35
35
|
|
|
36
|
-
|
|
37
|
-
`#{env} #{esql} -e informixc.ec`
|
|
36
|
+
%x{#{env} #{esql} -e informixc.ec}
|
|
38
37
|
create_makefile("informixc")
|
data/ext/informixc.c
CHANGED
|
@@ -2,7 +2,7 @@
|
|
|
2
2
|
#include <sqliapi.h>
|
|
3
3
|
#line 1 "informixc.ec"
|
|
4
4
|
/*
|
|
5
|
-
* Copyright (c) 2006-
|
|
5
|
+
* Copyright (c) 2006-2017, Gerardo Santana Gomez Garrido <gerardo.santana@gmail.com>
|
|
6
6
|
* All rights reserved.
|
|
7
7
|
*
|
|
8
8
|
* Redistribution and use in source and binary forms, with or without
|
|
@@ -2409,12 +2409,19 @@ static ifx_cursor_t _SQ0 = {0};
|
|
|
2409
2409
|
}
|
|
2410
2410
|
|
|
2411
2411
|
|
|
2412
|
-
|
|
2413
|
-
|
|
2414
|
-
|
|
2415
|
-
|
|
2416
|
-
|
|
2417
|
-
|
|
2412
|
+
server_type = rb_str_new2(c_version.server_type);
|
|
2413
|
+
major = rb_str_new2(c_version.major);
|
|
2414
|
+
minor = rb_str_new2(c_version.minor);
|
|
2415
|
+
os = rb_str_new2(c_version.os);
|
|
2416
|
+
level = rb_str_new2(c_version.level);
|
|
2417
|
+
full = rb_str_new2(c_version.full);
|
|
2418
|
+
|
|
2419
|
+
OBJ_FREEZE(server_type);
|
|
2420
|
+
OBJ_FREEZE(major);
|
|
2421
|
+
OBJ_FREEZE(minor);
|
|
2422
|
+
OBJ_FREEZE(os);
|
|
2423
|
+
OBJ_FREEZE(level);
|
|
2424
|
+
OBJ_FREEZE(full);
|
|
2418
2425
|
|
|
2419
2426
|
version = rb_struct_new(rb_cIfxVersion, server_type, major, minor, os,
|
|
2420
2427
|
level, full, NULL);
|
|
@@ -2437,13 +2444,13 @@ rb_database_close(VALUE self)
|
|
|
2437
2444
|
/*
|
|
2438
2445
|
* EXEC SQL begin declare section;
|
|
2439
2446
|
*/
|
|
2440
|
-
#line
|
|
2441
|
-
#line
|
|
2447
|
+
#line 2050 "informixc.ec"
|
|
2448
|
+
#line 2051 "informixc.ec"
|
|
2442
2449
|
char *id;
|
|
2443
2450
|
/*
|
|
2444
2451
|
* EXEC SQL end declare section;
|
|
2445
2452
|
*/
|
|
2446
|
-
#line
|
|
2453
|
+
#line 2052 "informixc.ec"
|
|
2447
2454
|
|
|
2448
2455
|
|
|
2449
2456
|
Data_Get_Struct(self, database_t, dbt);
|
|
@@ -2451,11 +2458,11 @@ rb_database_close(VALUE self)
|
|
|
2451
2458
|
/*
|
|
2452
2459
|
* EXEC SQL disconnect :id;
|
|
2453
2460
|
*/
|
|
2454
|
-
#line
|
|
2461
|
+
#line 2056 "informixc.ec"
|
|
2455
2462
|
{
|
|
2456
|
-
#line
|
|
2463
|
+
#line 2056 "informixc.ec"
|
|
2457
2464
|
sqli_connect_close(0, id, 0, 0);
|
|
2458
|
-
#line
|
|
2465
|
+
#line 2056 "informixc.ec"
|
|
2459
2466
|
}
|
|
2460
2467
|
|
|
2461
2468
|
return Qnil;
|
|
@@ -2487,13 +2494,13 @@ rb_database_immediate(VALUE self, VALUE arg)
|
|
|
2487
2494
|
/*
|
|
2488
2495
|
* EXEC SQL begin declare section;
|
|
2489
2496
|
*/
|
|
2490
|
-
#line
|
|
2491
|
-
#line
|
|
2497
|
+
#line 2084 "informixc.ec"
|
|
2498
|
+
#line 2085 "informixc.ec"
|
|
2492
2499
|
char *query, *did;
|
|
2493
2500
|
/*
|
|
2494
2501
|
* EXEC SQL end declare section;
|
|
2495
2502
|
*/
|
|
2496
|
-
#line
|
|
2503
|
+
#line 2086 "informixc.ec"
|
|
2497
2504
|
|
|
2498
2505
|
|
|
2499
2506
|
Data_Get_Struct(self, database_t, dbt);
|
|
@@ -2501,11 +2508,11 @@ rb_database_immediate(VALUE self, VALUE arg)
|
|
|
2501
2508
|
/*
|
|
2502
2509
|
* EXEC SQL set connection :did;
|
|
2503
2510
|
*/
|
|
2504
|
-
#line
|
|
2511
|
+
#line 2090 "informixc.ec"
|
|
2505
2512
|
{
|
|
2506
|
-
#line
|
|
2513
|
+
#line 2090 "informixc.ec"
|
|
2507
2514
|
sqli_connect_set(0, did, 0);
|
|
2508
|
-
#line
|
|
2515
|
+
#line 2090 "informixc.ec"
|
|
2509
2516
|
}
|
|
2510
2517
|
|
|
2511
2518
|
if (SQLCODE < 0)
|
|
@@ -2515,11 +2522,11 @@ rb_database_immediate(VALUE self, VALUE arg)
|
|
|
2515
2522
|
/*
|
|
2516
2523
|
* EXEC SQL execute immediate :query;
|
|
2517
2524
|
*/
|
|
2518
|
-
#line
|
|
2525
|
+
#line 2096 "informixc.ec"
|
|
2519
2526
|
{
|
|
2520
|
-
#line
|
|
2527
|
+
#line 2096 "informixc.ec"
|
|
2521
2528
|
sqli_exec_immed(query);
|
|
2522
|
-
#line
|
|
2529
|
+
#line 2096 "informixc.ec"
|
|
2523
2530
|
}
|
|
2524
2531
|
if (SQLCODE < 0)
|
|
2525
2532
|
raise_ifx_extended();
|
|
@@ -2540,13 +2547,13 @@ rb_database_rollback(VALUE self)
|
|
|
2540
2547
|
/*
|
|
2541
2548
|
* EXEC SQL begin declare section;
|
|
2542
2549
|
*/
|
|
2543
|
-
#line
|
|
2544
|
-
#line
|
|
2550
|
+
#line 2113 "informixc.ec"
|
|
2551
|
+
#line 2114 "informixc.ec"
|
|
2545
2552
|
char *did;
|
|
2546
2553
|
/*
|
|
2547
2554
|
* EXEC SQL end declare section;
|
|
2548
2555
|
*/
|
|
2549
|
-
#line
|
|
2556
|
+
#line 2115 "informixc.ec"
|
|
2550
2557
|
|
|
2551
2558
|
|
|
2552
2559
|
Data_Get_Struct(self, database_t, dbt);
|
|
@@ -2554,11 +2561,11 @@ rb_database_rollback(VALUE self)
|
|
|
2554
2561
|
/*
|
|
2555
2562
|
* EXEC SQL set connection :did;
|
|
2556
2563
|
*/
|
|
2557
|
-
#line
|
|
2564
|
+
#line 2119 "informixc.ec"
|
|
2558
2565
|
{
|
|
2559
|
-
#line
|
|
2566
|
+
#line 2119 "informixc.ec"
|
|
2560
2567
|
sqli_connect_set(0, did, 0);
|
|
2561
|
-
#line
|
|
2568
|
+
#line 2119 "informixc.ec"
|
|
2562
2569
|
}
|
|
2563
2570
|
|
|
2564
2571
|
if (SQLCODE < 0)
|
|
@@ -2567,11 +2574,11 @@ rb_database_rollback(VALUE self)
|
|
|
2567
2574
|
/*
|
|
2568
2575
|
* EXEC SQL rollback;
|
|
2569
2576
|
*/
|
|
2570
|
-
#line
|
|
2577
|
+
#line 2124 "informixc.ec"
|
|
2571
2578
|
{
|
|
2572
|
-
#line
|
|
2579
|
+
#line 2124 "informixc.ec"
|
|
2573
2580
|
sqli_trans_rollback();
|
|
2574
|
-
#line
|
|
2581
|
+
#line 2124 "informixc.ec"
|
|
2575
2582
|
}
|
|
2576
2583
|
|
|
2577
2584
|
return self;
|
|
@@ -2590,13 +2597,13 @@ rb_database_commit(VALUE self)
|
|
|
2590
2597
|
/*
|
|
2591
2598
|
* EXEC SQL begin declare section;
|
|
2592
2599
|
*/
|
|
2593
|
-
#line
|
|
2594
|
-
#line
|
|
2600
|
+
#line 2139 "informixc.ec"
|
|
2601
|
+
#line 2140 "informixc.ec"
|
|
2595
2602
|
char *did;
|
|
2596
2603
|
/*
|
|
2597
2604
|
* EXEC SQL end declare section;
|
|
2598
2605
|
*/
|
|
2599
|
-
#line
|
|
2606
|
+
#line 2141 "informixc.ec"
|
|
2600
2607
|
|
|
2601
2608
|
|
|
2602
2609
|
Data_Get_Struct(self, database_t, dbt);
|
|
@@ -2604,11 +2611,11 @@ rb_database_commit(VALUE self)
|
|
|
2604
2611
|
/*
|
|
2605
2612
|
* EXEC SQL set connection :did;
|
|
2606
2613
|
*/
|
|
2607
|
-
#line
|
|
2614
|
+
#line 2145 "informixc.ec"
|
|
2608
2615
|
{
|
|
2609
|
-
#line
|
|
2616
|
+
#line 2145 "informixc.ec"
|
|
2610
2617
|
sqli_connect_set(0, did, 0);
|
|
2611
|
-
#line
|
|
2618
|
+
#line 2145 "informixc.ec"
|
|
2612
2619
|
}
|
|
2613
2620
|
|
|
2614
2621
|
if (SQLCODE < 0)
|
|
@@ -2617,11 +2624,11 @@ rb_database_commit(VALUE self)
|
|
|
2617
2624
|
/*
|
|
2618
2625
|
* EXEC SQL commit;
|
|
2619
2626
|
*/
|
|
2620
|
-
#line
|
|
2627
|
+
#line 2150 "informixc.ec"
|
|
2621
2628
|
{
|
|
2622
|
-
#line
|
|
2629
|
+
#line 2150 "informixc.ec"
|
|
2623
2630
|
sqli_trans_commit();
|
|
2624
|
-
#line
|
|
2631
|
+
#line 2150 "informixc.ec"
|
|
2625
2632
|
}
|
|
2626
2633
|
|
|
2627
2634
|
return self;
|
|
@@ -2666,13 +2673,13 @@ rb_database_transaction(VALUE self)
|
|
|
2666
2673
|
/*
|
|
2667
2674
|
* EXEC SQL begin declare section;
|
|
2668
2675
|
*/
|
|
2669
|
-
#line
|
|
2670
|
-
#line
|
|
2676
|
+
#line 2191 "informixc.ec"
|
|
2677
|
+
#line 2192 "informixc.ec"
|
|
2671
2678
|
char *did;
|
|
2672
2679
|
/*
|
|
2673
2680
|
* EXEC SQL end declare section;
|
|
2674
2681
|
*/
|
|
2675
|
-
#line
|
|
2682
|
+
#line 2193 "informixc.ec"
|
|
2676
2683
|
|
|
2677
2684
|
|
|
2678
2685
|
Data_Get_Struct(self, database_t, dbt);
|
|
@@ -2680,11 +2687,11 @@ rb_database_transaction(VALUE self)
|
|
|
2680
2687
|
/*
|
|
2681
2688
|
* EXEC SQL set connection :did;
|
|
2682
2689
|
*/
|
|
2683
|
-
#line
|
|
2690
|
+
#line 2197 "informixc.ec"
|
|
2684
2691
|
{
|
|
2685
|
-
#line
|
|
2692
|
+
#line 2197 "informixc.ec"
|
|
2686
2693
|
sqli_connect_set(0, did, 0);
|
|
2687
|
-
#line
|
|
2694
|
+
#line 2197 "informixc.ec"
|
|
2688
2695
|
}
|
|
2689
2696
|
|
|
2690
2697
|
if (SQLCODE < 0)
|
|
@@ -2693,20 +2700,20 @@ rb_database_transaction(VALUE self)
|
|
|
2693
2700
|
/*
|
|
2694
2701
|
* EXEC SQL commit;
|
|
2695
2702
|
*/
|
|
2696
|
-
#line
|
|
2703
|
+
#line 2202 "informixc.ec"
|
|
2697
2704
|
{
|
|
2698
|
-
#line
|
|
2705
|
+
#line 2202 "informixc.ec"
|
|
2699
2706
|
sqli_trans_commit();
|
|
2700
|
-
#line
|
|
2707
|
+
#line 2202 "informixc.ec"
|
|
2701
2708
|
}
|
|
2702
2709
|
/*
|
|
2703
2710
|
* EXEC SQL begin work;
|
|
2704
2711
|
*/
|
|
2705
|
-
#line
|
|
2712
|
+
#line 2203 "informixc.ec"
|
|
2706
2713
|
{
|
|
2707
|
-
#line
|
|
2714
|
+
#line 2203 "informixc.ec"
|
|
2708
2715
|
sqli_trans_begin2((mint)1);
|
|
2709
|
-
#line
|
|
2716
|
+
#line 2203 "informixc.ec"
|
|
2710
2717
|
}
|
|
2711
2718
|
ret = rb_rescue(rb_yield, self, database_transfail, self);
|
|
2712
2719
|
|
|
@@ -2716,11 +2723,11 @@ rb_database_transaction(VALUE self)
|
|
|
2716
2723
|
/*
|
|
2717
2724
|
* EXEC SQL commit;
|
|
2718
2725
|
*/
|
|
2719
|
-
#line
|
|
2726
|
+
#line 2209 "informixc.ec"
|
|
2720
2727
|
{
|
|
2721
|
-
#line
|
|
2728
|
+
#line 2209 "informixc.ec"
|
|
2722
2729
|
sqli_trans_commit();
|
|
2723
|
-
#line
|
|
2730
|
+
#line 2209 "informixc.ec"
|
|
2724
2731
|
}
|
|
2725
2732
|
|
|
2726
2733
|
return self;
|
|
@@ -2753,8 +2760,8 @@ rb_database_columns(VALUE self, VALUE tablename)
|
|
|
2753
2760
|
/*
|
|
2754
2761
|
* EXEC SQL begin declare section;
|
|
2755
2762
|
*/
|
|
2756
|
-
#line
|
|
2757
|
-
#line
|
|
2763
|
+
#line 2238 "informixc.ec"
|
|
2764
|
+
#line 2239 "informixc.ec"
|
|
2758
2765
|
char *did, *cid;
|
|
2759
2766
|
char *tabname;
|
|
2760
2767
|
int tabid, xid;
|
|
@@ -2765,7 +2772,7 @@ short coltype, collength;
|
|
|
2765
2772
|
/*
|
|
2766
2773
|
* EXEC SQL end declare section;
|
|
2767
2774
|
*/
|
|
2768
|
-
#line
|
|
2775
|
+
#line 2246 "informixc.ec"
|
|
2769
2776
|
|
|
2770
2777
|
|
|
2771
2778
|
Data_Get_Struct(self, database_t, dbt);
|
|
@@ -2773,11 +2780,11 @@ short coltype, collength;
|
|
|
2773
2780
|
/*
|
|
2774
2781
|
* EXEC SQL set connection :did;
|
|
2775
2782
|
*/
|
|
2776
|
-
#line
|
|
2783
|
+
#line 2250 "informixc.ec"
|
|
2777
2784
|
{
|
|
2778
|
-
#line
|
|
2785
|
+
#line 2250 "informixc.ec"
|
|
2779
2786
|
sqli_connect_set(0, did, 0);
|
|
2780
|
-
#line
|
|
2787
|
+
#line 2250 "informixc.ec"
|
|
2781
2788
|
}
|
|
2782
2789
|
|
|
2783
2790
|
if (SQLCODE < 0)
|
|
@@ -2788,35 +2795,35 @@ short coltype, collength;
|
|
|
2788
2795
|
/*
|
|
2789
2796
|
* EXEC SQL select tabid into :tabid from systables where tabname = :tabname;
|
|
2790
2797
|
*/
|
|
2791
|
-
#line
|
|
2798
|
+
#line 2257 "informixc.ec"
|
|
2792
2799
|
{
|
|
2793
|
-
#line
|
|
2800
|
+
#line 2257 "informixc.ec"
|
|
2794
2801
|
static const char *sqlcmdtxt[] =
|
|
2795
|
-
#line
|
|
2802
|
+
#line 2257 "informixc.ec"
|
|
2796
2803
|
{
|
|
2797
|
-
#line
|
|
2804
|
+
#line 2257 "informixc.ec"
|
|
2798
2805
|
"select tabid from systables where tabname = ?",
|
|
2799
2806
|
0
|
|
2800
2807
|
};
|
|
2801
|
-
#line
|
|
2808
|
+
#line 2257 "informixc.ec"
|
|
2802
2809
|
static ifx_cursor_t _SQ0 = {0};
|
|
2803
2810
|
static ifx_sqlvar_t _sqibind[] =
|
|
2804
2811
|
{
|
|
2805
2812
|
{ 100, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
|
|
2806
|
-
#line
|
|
2813
|
+
#line 2257 "informixc.ec"
|
|
2807
2814
|
};
|
|
2808
2815
|
static ifx_sqlvar_t _sqobind[] =
|
|
2809
2816
|
{
|
|
2810
2817
|
{ 102, sizeof(tabid), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
|
|
2811
|
-
#line
|
|
2818
|
+
#line 2257 "informixc.ec"
|
|
2812
2819
|
};
|
|
2813
|
-
#line
|
|
2820
|
+
#line 2257 "informixc.ec"
|
|
2814
2821
|
_sqibind[0].sqldata = tabname;
|
|
2815
|
-
#line
|
|
2822
|
+
#line 2257 "informixc.ec"
|
|
2816
2823
|
_sqobind[0].sqldata = (char *) &tabid;
|
|
2817
|
-
#line
|
|
2824
|
+
#line 2257 "informixc.ec"
|
|
2818
2825
|
sqli_slct(ESQLINTVERSION, &_SQ0,sqlcmdtxt,1,_sqibind,1,_sqobind,0,(ifx_literal_t *)0,(ifx_namelist_t *)0,0);
|
|
2819
|
-
#line
|
|
2826
|
+
#line 2257 "informixc.ec"
|
|
2820
2827
|
}
|
|
2821
2828
|
|
|
2822
2829
|
if (SQLCODE == SQLNOTFOUND)
|
|
@@ -2827,19 +2834,19 @@ static ifx_cursor_t _SQ0 = {0};
|
|
|
2827
2834
|
/*
|
|
2828
2835
|
* EXEC SQL open :cid using :tabid;
|
|
2829
2836
|
*/
|
|
2830
|
-
#line
|
|
2837
|
+
#line 2264 "informixc.ec"
|
|
2831
2838
|
{
|
|
2832
|
-
#line
|
|
2839
|
+
#line 2264 "informixc.ec"
|
|
2833
2840
|
static ifx_sqlvar_t _sqibind[] =
|
|
2834
2841
|
{
|
|
2835
2842
|
{ 102, sizeof(tabid), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
|
|
2836
|
-
#line
|
|
2843
|
+
#line 2264 "informixc.ec"
|
|
2837
2844
|
};
|
|
2838
2845
|
static ifx_sqlda_t _SD0 = { 1, _sqibind, {0}, 1, 0 };
|
|
2839
|
-
#line
|
|
2846
|
+
#line 2264 "informixc.ec"
|
|
2840
2847
|
_sqibind[0].sqldata = (char *) &tabid;
|
|
2841
2848
|
sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 256), &_SD0, (char *)0, (struct value *)0, 1, 0);
|
|
2842
|
-
#line
|
|
2849
|
+
#line 2264 "informixc.ec"
|
|
2843
2850
|
}
|
|
2844
2851
|
|
|
2845
2852
|
if (SQLCODE < 0)
|
|
@@ -2850,9 +2857,9 @@ static ifx_cursor_t _SQ0 = {0};
|
|
|
2850
2857
|
* EXEC SQL fetch :cid into :colname, :coltype, :collength, :xid,
|
|
2851
2858
|
* :deftype, :defvalue;
|
|
2852
2859
|
*/
|
|
2853
|
-
#line
|
|
2860
|
+
#line 2270 "informixc.ec"
|
|
2854
2861
|
{
|
|
2855
|
-
#line
|
|
2862
|
+
#line 2271 "informixc.ec"
|
|
2856
2863
|
static ifx_sqlvar_t _sqobind[] =
|
|
2857
2864
|
{
|
|
2858
2865
|
{ 114, 129, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
|
|
@@ -2861,24 +2868,24 @@ static ifx_cursor_t _SQ0 = {0};
|
|
|
2861
2868
|
{ 102, sizeof(xid), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
|
|
2862
2869
|
{ 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
|
|
2863
2870
|
{ 114, 257, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
|
|
2864
|
-
#line
|
|
2871
|
+
#line 2271 "informixc.ec"
|
|
2865
2872
|
};
|
|
2866
2873
|
static ifx_sqlda_t _SD0 = { 6, _sqobind, {0}, 6, 0 };
|
|
2867
2874
|
static _FetchSpec _FS1 = { 0, 1, 0 };
|
|
2868
|
-
#line
|
|
2875
|
+
#line 2271 "informixc.ec"
|
|
2869
2876
|
_sqobind[0].sqldata = colname;
|
|
2870
|
-
#line
|
|
2877
|
+
#line 2271 "informixc.ec"
|
|
2871
2878
|
_sqobind[1].sqldata = (char *) &coltype;
|
|
2872
|
-
#line
|
|
2879
|
+
#line 2271 "informixc.ec"
|
|
2873
2880
|
_sqobind[2].sqldata = (char *) &collength;
|
|
2874
|
-
#line
|
|
2881
|
+
#line 2271 "informixc.ec"
|
|
2875
2882
|
_sqobind[3].sqldata = (char *) &xid;
|
|
2876
|
-
#line
|
|
2883
|
+
#line 2271 "informixc.ec"
|
|
2877
2884
|
_sqobind[4].sqldata = deftype;
|
|
2878
|
-
#line
|
|
2885
|
+
#line 2271 "informixc.ec"
|
|
2879
2886
|
_sqobind[5].sqldata = defvalue;
|
|
2880
2887
|
sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 256), (ifx_sqlda_t *)0, &_SD0, (char *)0, &_FS1);
|
|
2881
|
-
#line
|
|
2888
|
+
#line 2271 "informixc.ec"
|
|
2882
2889
|
}
|
|
2883
2890
|
if (SQLCODE < 0)
|
|
2884
2891
|
raise_ifx_extended();
|
|
@@ -2976,11 +2983,11 @@ static ifx_cursor_t _SQ0 = {0};
|
|
|
2976
2983
|
/*
|
|
2977
2984
|
* EXEC SQL close :cid;
|
|
2978
2985
|
*/
|
|
2979
|
-
#line
|
|
2986
|
+
#line 2365 "informixc.ec"
|
|
2980
2987
|
{
|
|
2981
|
-
#line
|
|
2988
|
+
#line 2365 "informixc.ec"
|
|
2982
2989
|
sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 256));
|
|
2983
|
-
#line
|
|
2990
|
+
#line 2365 "informixc.ec"
|
|
2984
2991
|
}
|
|
2985
2992
|
|
|
2986
2993
|
return result;
|
|
@@ -3006,13 +3013,13 @@ st_free(cursor_t *c)
|
|
|
3006
3013
|
/*
|
|
3007
3014
|
* EXEC SQL begin declare section;
|
|
3008
3015
|
*/
|
|
3009
|
-
#line
|
|
3010
|
-
#line
|
|
3016
|
+
#line 2387 "informixc.ec"
|
|
3017
|
+
#line 2388 "informixc.ec"
|
|
3011
3018
|
char *sid, *did;
|
|
3012
3019
|
/*
|
|
3013
3020
|
* EXEC SQL end declare section;
|
|
3014
3021
|
*/
|
|
3015
|
-
#line
|
|
3022
|
+
#line 2389 "informixc.ec"
|
|
3016
3023
|
|
|
3017
3024
|
|
|
3018
3025
|
free_input_slots(c);
|
|
@@ -3022,11 +3029,11 @@ st_free(cursor_t *c)
|
|
|
3022
3029
|
/*
|
|
3023
3030
|
* EXEC SQL set connection :did;
|
|
3024
3031
|
*/
|
|
3025
|
-
#line
|
|
3032
|
+
#line 2395 "informixc.ec"
|
|
3026
3033
|
{
|
|
3027
|
-
#line
|
|
3034
|
+
#line 2395 "informixc.ec"
|
|
3028
3035
|
sqli_connect_set(0, did, 0);
|
|
3029
|
-
#line
|
|
3036
|
+
#line 2395 "informixc.ec"
|
|
3030
3037
|
}
|
|
3031
3038
|
if (SQLCODE < 0)
|
|
3032
3039
|
return;
|
|
@@ -3035,11 +3042,11 @@ st_free(cursor_t *c)
|
|
|
3035
3042
|
/*
|
|
3036
3043
|
* EXEC SQL free :sid;
|
|
3037
3044
|
*/
|
|
3038
|
-
#line
|
|
3045
|
+
#line 2400 "informixc.ec"
|
|
3039
3046
|
{
|
|
3040
|
-
#line
|
|
3047
|
+
#line 2400 "informixc.ec"
|
|
3041
3048
|
sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, sid, 258));
|
|
3042
|
-
#line
|
|
3049
|
+
#line 2400 "informixc.ec"
|
|
3043
3050
|
}
|
|
3044
3051
|
}
|
|
3045
3052
|
|
|
@@ -3070,13 +3077,13 @@ rb_statement_initialize(VALUE self, VALUE db, VALUE query)
|
|
|
3070
3077
|
/*
|
|
3071
3078
|
* EXEC SQL begin declare section;
|
|
3072
3079
|
*/
|
|
3073
|
-
#line
|
|
3074
|
-
#line
|
|
3080
|
+
#line 2427 "informixc.ec"
|
|
3081
|
+
#line 2428 "informixc.ec"
|
|
3075
3082
|
char *c_query, *sid, *did;
|
|
3076
3083
|
/*
|
|
3077
3084
|
* EXEC SQL end declare section;
|
|
3078
3085
|
*/
|
|
3079
|
-
#line
|
|
3086
|
+
#line 2429 "informixc.ec"
|
|
3080
3087
|
|
|
3081
3088
|
|
|
3082
3089
|
Data_Get_Struct(db, database_t, dbt);
|
|
@@ -3084,11 +3091,11 @@ rb_statement_initialize(VALUE self, VALUE db, VALUE query)
|
|
|
3084
3091
|
/*
|
|
3085
3092
|
* EXEC SQL set connection :did;
|
|
3086
3093
|
*/
|
|
3087
|
-
#line
|
|
3094
|
+
#line 2433 "informixc.ec"
|
|
3088
3095
|
{
|
|
3089
|
-
#line
|
|
3096
|
+
#line 2433 "informixc.ec"
|
|
3090
3097
|
sqli_connect_set(0, did, 0);
|
|
3091
|
-
#line
|
|
3098
|
+
#line 2433 "informixc.ec"
|
|
3092
3099
|
}
|
|
3093
3100
|
if (SQLCODE < 0)
|
|
3094
3101
|
raise_ifx_extended();
|
|
@@ -3104,11 +3111,11 @@ rb_statement_initialize(VALUE self, VALUE db, VALUE query)
|
|
|
3104
3111
|
/*
|
|
3105
3112
|
* EXEC SQL prepare :sid from :c_query;
|
|
3106
3113
|
*/
|
|
3107
|
-
#line
|
|
3114
|
+
#line 2445 "informixc.ec"
|
|
3108
3115
|
{
|
|
3109
|
-
#line
|
|
3116
|
+
#line 2445 "informixc.ec"
|
|
3110
3117
|
sqli_prep(ESQLINTVERSION, sid, c_query,(ifx_literal_t *)0, (ifx_namelist_t *)0, -1, 0, 0 );
|
|
3111
|
-
#line
|
|
3118
|
+
#line 2445 "informixc.ec"
|
|
3112
3119
|
}
|
|
3113
3120
|
if (SQLCODE < 0)
|
|
3114
3121
|
raise_ifx_extended();
|
|
@@ -3117,11 +3124,11 @@ rb_statement_initialize(VALUE self, VALUE db, VALUE query)
|
|
|
3117
3124
|
/*
|
|
3118
3125
|
* EXEC SQL describe :sid into output;
|
|
3119
3126
|
*/
|
|
3120
|
-
#line
|
|
3127
|
+
#line 2450 "informixc.ec"
|
|
3121
3128
|
{
|
|
3122
|
-
#line
|
|
3129
|
+
#line 2450 "informixc.ec"
|
|
3123
3130
|
sqli_describe_stmt(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, sid, 257), &output, 0);
|
|
3124
|
-
#line
|
|
3131
|
+
#line 2450 "informixc.ec"
|
|
3125
3132
|
}
|
|
3126
3133
|
c->daOutput = output;
|
|
3127
3134
|
|
|
@@ -3168,13 +3175,13 @@ rb_statement_call(int argc, VALUE *argv, VALUE self)
|
|
|
3168
3175
|
/*
|
|
3169
3176
|
* EXEC SQL begin declare section;
|
|
3170
3177
|
*/
|
|
3171
|
-
#line
|
|
3172
|
-
#line
|
|
3178
|
+
#line 2493 "informixc.ec"
|
|
3179
|
+
#line 2494 "informixc.ec"
|
|
3173
3180
|
char *sid, *did;
|
|
3174
3181
|
/*
|
|
3175
3182
|
* EXEC SQL end declare section;
|
|
3176
3183
|
*/
|
|
3177
|
-
#line
|
|
3184
|
+
#line 2495 "informixc.ec"
|
|
3178
3185
|
|
|
3179
3186
|
|
|
3180
3187
|
Data_Get_Struct(self, cursor_t, c);
|
|
@@ -3183,11 +3190,11 @@ rb_statement_call(int argc, VALUE *argv, VALUE self)
|
|
|
3183
3190
|
/*
|
|
3184
3191
|
* EXEC SQL set connection :did;
|
|
3185
3192
|
*/
|
|
3186
|
-
#line
|
|
3193
|
+
#line 2500 "informixc.ec"
|
|
3187
3194
|
{
|
|
3188
|
-
#line
|
|
3195
|
+
#line 2500 "informixc.ec"
|
|
3189
3196
|
sqli_connect_set(0, did, 0);
|
|
3190
|
-
#line
|
|
3197
|
+
#line 2500 "informixc.ec"
|
|
3191
3198
|
}
|
|
3192
3199
|
if (SQLCODE < 0)
|
|
3193
3200
|
raise_ifx_extended();
|
|
@@ -3207,11 +3214,11 @@ rb_statement_call(int argc, VALUE *argv, VALUE self)
|
|
|
3207
3214
|
* EXEC SQL execute :sid into descriptor output
|
|
3208
3215
|
* using descriptor input;
|
|
3209
3216
|
*/
|
|
3210
|
-
#line
|
|
3217
|
+
#line 2515 "informixc.ec"
|
|
3211
3218
|
{
|
|
3212
|
-
#line
|
|
3219
|
+
#line 2516 "informixc.ec"
|
|
3213
3220
|
sqli_exec(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, sid, 257), input, (char *)0, (struct value *)0, output, (char *)0, (struct value *)0, 0);
|
|
3214
|
-
#line
|
|
3221
|
+
#line 2516 "informixc.ec"
|
|
3215
3222
|
}
|
|
3216
3223
|
clean_input_slots(c);
|
|
3217
3224
|
}
|
|
@@ -3219,11 +3226,11 @@ rb_statement_call(int argc, VALUE *argv, VALUE self)
|
|
|
3219
3226
|
/*
|
|
3220
3227
|
* EXEC SQL execute :sid into descriptor output;
|
|
3221
3228
|
*/
|
|
3222
|
-
#line
|
|
3229
|
+
#line 2520 "informixc.ec"
|
|
3223
3230
|
{
|
|
3224
|
-
#line
|
|
3231
|
+
#line 2520 "informixc.ec"
|
|
3225
3232
|
sqli_exec(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, sid, 257), (ifx_sqlda_t *)0, (char *)0, (struct value *)0, output, (char *)0, (struct value *)0, 0);
|
|
3226
|
-
#line
|
|
3233
|
+
#line 2520 "informixc.ec"
|
|
3227
3234
|
}
|
|
3228
3235
|
|
|
3229
3236
|
if (SQLCODE < 0)
|
|
@@ -3239,11 +3246,11 @@ rb_statement_call(int argc, VALUE *argv, VALUE self)
|
|
|
3239
3246
|
/*
|
|
3240
3247
|
* EXEC SQL execute :sid using descriptor input;
|
|
3241
3248
|
*/
|
|
3242
|
-
#line
|
|
3249
|
+
#line 2532 "informixc.ec"
|
|
3243
3250
|
{
|
|
3244
|
-
#line
|
|
3251
|
+
#line 2532 "informixc.ec"
|
|
3245
3252
|
sqli_exec(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, sid, 257), input, (char *)0, (struct value *)0, (ifx_sqlda_t *)0, (char *)0, (struct value *)0, 0);
|
|
3246
|
-
#line
|
|
3253
|
+
#line 2532 "informixc.ec"
|
|
3247
3254
|
}
|
|
3248
3255
|
clean_input_slots(c);
|
|
3249
3256
|
}
|
|
@@ -3251,11 +3258,11 @@ rb_statement_call(int argc, VALUE *argv, VALUE self)
|
|
|
3251
3258
|
/*
|
|
3252
3259
|
* EXEC SQL execute :sid;
|
|
3253
3260
|
*/
|
|
3254
|
-
#line
|
|
3261
|
+
#line 2536 "informixc.ec"
|
|
3255
3262
|
{
|
|
3256
|
-
#line
|
|
3263
|
+
#line 2536 "informixc.ec"
|
|
3257
3264
|
sqli_exec(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, sid, 257), (ifx_sqlda_t *)0, (char *)0, (struct value *)0, (ifx_sqlda_t *)0, (char *)0, (struct value *)0, 0);
|
|
3258
|
-
#line
|
|
3265
|
+
#line 2536 "informixc.ec"
|
|
3259
3266
|
}
|
|
3260
3267
|
}
|
|
3261
3268
|
if (SQLCODE < 0)
|
|
@@ -3317,13 +3324,13 @@ fetch(VALUE self, VALUE type, VALUE bang)
|
|
|
3317
3324
|
/*
|
|
3318
3325
|
* EXEC SQL begin declare section;
|
|
3319
3326
|
*/
|
|
3320
|
-
#line
|
|
3321
|
-
#line
|
|
3327
|
+
#line 2594 "informixc.ec"
|
|
3328
|
+
#line 2595 "informixc.ec"
|
|
3322
3329
|
char *cid, *did;
|
|
3323
3330
|
/*
|
|
3324
3331
|
* EXEC SQL end declare section;
|
|
3325
3332
|
*/
|
|
3326
|
-
#line
|
|
3333
|
+
#line 2596 "informixc.ec"
|
|
3327
3334
|
|
|
3328
3335
|
short c_bang;
|
|
3329
3336
|
cursor_t *c;
|
|
@@ -3338,11 +3345,11 @@ fetch(VALUE self, VALUE type, VALUE bang)
|
|
|
3338
3345
|
/*
|
|
3339
3346
|
* EXEC SQL set connection :did;
|
|
3340
3347
|
*/
|
|
3341
|
-
#line
|
|
3348
|
+
#line 2607 "informixc.ec"
|
|
3342
3349
|
{
|
|
3343
|
-
#line
|
|
3350
|
+
#line 2607 "informixc.ec"
|
|
3344
3351
|
sqli_connect_set(0, did, 0);
|
|
3345
|
-
#line
|
|
3352
|
+
#line 2607 "informixc.ec"
|
|
3346
3353
|
}
|
|
3347
3354
|
if (SQLCODE < 0)
|
|
3348
3355
|
raise_ifx_extended();
|
|
@@ -3353,12 +3360,12 @@ fetch(VALUE self, VALUE type, VALUE bang)
|
|
|
3353
3360
|
/*
|
|
3354
3361
|
* EXEC SQL fetch :cid using descriptor output;
|
|
3355
3362
|
*/
|
|
3356
|
-
#line
|
|
3363
|
+
#line 2614 "informixc.ec"
|
|
3357
3364
|
{
|
|
3358
|
-
#line
|
|
3365
|
+
#line 2614 "informixc.ec"
|
|
3359
3366
|
static _FetchSpec _FS0 = { 0, 1, 0 };
|
|
3360
3367
|
sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 256), (ifx_sqlda_t *)0, output, (char *)0, &_FS0);
|
|
3361
|
-
#line
|
|
3368
|
+
#line 2614 "informixc.ec"
|
|
3362
3369
|
}
|
|
3363
3370
|
if (SQLCODE < 0)
|
|
3364
3371
|
raise_ifx_extended();
|
|
@@ -3380,13 +3387,13 @@ fetch_many(VALUE self, VALUE n, VALUE type)
|
|
|
3380
3387
|
/*
|
|
3381
3388
|
* EXEC SQL begin declare section;
|
|
3382
3389
|
*/
|
|
3383
|
-
#line
|
|
3384
|
-
#line
|
|
3390
|
+
#line 2632 "informixc.ec"
|
|
3391
|
+
#line 2633 "informixc.ec"
|
|
3385
3392
|
char *cid, *did;
|
|
3386
3393
|
/*
|
|
3387
3394
|
* EXEC SQL end declare section;
|
|
3388
3395
|
*/
|
|
3389
|
-
#line
|
|
3396
|
+
#line 2634 "informixc.ec"
|
|
3390
3397
|
|
|
3391
3398
|
cursor_t *c;
|
|
3392
3399
|
struct sqlda *output;
|
|
@@ -3402,11 +3409,11 @@ fetch_many(VALUE self, VALUE n, VALUE type)
|
|
|
3402
3409
|
/*
|
|
3403
3410
|
* EXEC SQL set connection :did;
|
|
3404
3411
|
*/
|
|
3405
|
-
#line
|
|
3412
|
+
#line 2646 "informixc.ec"
|
|
3406
3413
|
{
|
|
3407
|
-
#line
|
|
3414
|
+
#line 2646 "informixc.ec"
|
|
3408
3415
|
sqli_connect_set(0, did, 0);
|
|
3409
|
-
#line
|
|
3416
|
+
#line 2646 "informixc.ec"
|
|
3410
3417
|
}
|
|
3411
3418
|
if (SQLCODE < 0)
|
|
3412
3419
|
raise_ifx_extended();
|
|
@@ -3426,12 +3433,12 @@ fetch_many(VALUE self, VALUE n, VALUE type)
|
|
|
3426
3433
|
/*
|
|
3427
3434
|
* EXEC SQL fetch :cid using descriptor output;
|
|
3428
3435
|
*/
|
|
3429
|
-
#line
|
|
3436
|
+
#line 2662 "informixc.ec"
|
|
3430
3437
|
{
|
|
3431
|
-
#line
|
|
3438
|
+
#line 2662 "informixc.ec"
|
|
3432
3439
|
static _FetchSpec _FS0 = { 0, 1, 0 };
|
|
3433
3440
|
sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 256), (ifx_sqlda_t *)0, output, (char *)0, &_FS0);
|
|
3434
|
-
#line
|
|
3441
|
+
#line 2662 "informixc.ec"
|
|
3435
3442
|
}
|
|
3436
3443
|
if (SQLCODE < 0)
|
|
3437
3444
|
raise_ifx_extended();
|
|
@@ -3460,13 +3467,13 @@ each(VALUE self, VALUE type, VALUE bang)
|
|
|
3460
3467
|
/*
|
|
3461
3468
|
* EXEC SQL begin declare section;
|
|
3462
3469
|
*/
|
|
3463
|
-
#line
|
|
3464
|
-
#line
|
|
3470
|
+
#line 2687 "informixc.ec"
|
|
3471
|
+
#line 2688 "informixc.ec"
|
|
3465
3472
|
char *cid, *did;
|
|
3466
3473
|
/*
|
|
3467
3474
|
* EXEC SQL end declare section;
|
|
3468
3475
|
*/
|
|
3469
|
-
#line
|
|
3476
|
+
#line 2689 "informixc.ec"
|
|
3470
3477
|
|
|
3471
3478
|
short c_bang;
|
|
3472
3479
|
struct sqlda *output;
|
|
@@ -3480,11 +3487,11 @@ each(VALUE self, VALUE type, VALUE bang)
|
|
|
3480
3487
|
/*
|
|
3481
3488
|
* EXEC SQL set connection :did;
|
|
3482
3489
|
*/
|
|
3483
|
-
#line
|
|
3490
|
+
#line 2699 "informixc.ec"
|
|
3484
3491
|
{
|
|
3485
|
-
#line
|
|
3492
|
+
#line 2699 "informixc.ec"
|
|
3486
3493
|
sqli_connect_set(0, did, 0);
|
|
3487
|
-
#line
|
|
3494
|
+
#line 2699 "informixc.ec"
|
|
3488
3495
|
}
|
|
3489
3496
|
if (SQLCODE < 0)
|
|
3490
3497
|
raise_ifx_extended();
|
|
@@ -3496,12 +3503,12 @@ each(VALUE self, VALUE type, VALUE bang)
|
|
|
3496
3503
|
/*
|
|
3497
3504
|
* EXEC SQL fetch :cid using descriptor output;
|
|
3498
3505
|
*/
|
|
3499
|
-
#line
|
|
3506
|
+
#line 2707 "informixc.ec"
|
|
3500
3507
|
{
|
|
3501
|
-
#line
|
|
3508
|
+
#line 2707 "informixc.ec"
|
|
3502
3509
|
static _FetchSpec _FS0 = { 0, 1, 0 };
|
|
3503
3510
|
sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 256), (ifx_sqlda_t *)0, output, (char *)0, &_FS0);
|
|
3504
|
-
#line
|
|
3511
|
+
#line 2707 "informixc.ec"
|
|
3505
3512
|
}
|
|
3506
3513
|
if (SQLCODE < 0)
|
|
3507
3514
|
raise_ifx_extended();
|
|
@@ -3563,13 +3570,13 @@ rb_inscur_put(int argc, VALUE *argv, VALUE self)
|
|
|
3563
3570
|
/*
|
|
3564
3571
|
* EXEC SQL begin declare section;
|
|
3565
3572
|
*/
|
|
3566
|
-
#line
|
|
3567
|
-
#line
|
|
3573
|
+
#line 2765 "informixc.ec"
|
|
3574
|
+
#line 2766 "informixc.ec"
|
|
3568
3575
|
char *cid, *did;
|
|
3569
3576
|
/*
|
|
3570
3577
|
* EXEC SQL end declare section;
|
|
3571
3578
|
*/
|
|
3572
|
-
#line
|
|
3579
|
+
#line 2767 "informixc.ec"
|
|
3573
3580
|
|
|
3574
3581
|
|
|
3575
3582
|
Data_Get_Struct(self, cursor_t, c);
|
|
@@ -3580,11 +3587,11 @@ rb_inscur_put(int argc, VALUE *argv, VALUE self)
|
|
|
3580
3587
|
/*
|
|
3581
3588
|
* EXEC SQL set connection :did;
|
|
3582
3589
|
*/
|
|
3583
|
-
#line
|
|
3590
|
+
#line 2774 "informixc.ec"
|
|
3584
3591
|
{
|
|
3585
|
-
#line
|
|
3592
|
+
#line 2774 "informixc.ec"
|
|
3586
3593
|
sqli_connect_set(0, did, 0);
|
|
3587
|
-
#line
|
|
3594
|
+
#line 2774 "informixc.ec"
|
|
3588
3595
|
}
|
|
3589
3596
|
if (SQLCODE < 0)
|
|
3590
3597
|
raise_ifx_extended();
|
|
@@ -3600,11 +3607,11 @@ rb_inscur_put(int argc, VALUE *argv, VALUE self)
|
|
|
3600
3607
|
/*
|
|
3601
3608
|
* EXEC SQL put :cid using descriptor input;
|
|
3602
3609
|
*/
|
|
3603
|
-
#line
|
|
3610
|
+
#line 2786 "informixc.ec"
|
|
3604
3611
|
{
|
|
3605
|
-
#line
|
|
3612
|
+
#line 2786 "informixc.ec"
|
|
3606
3613
|
sqli_curs_put(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 256), input, (char *)0);
|
|
3607
|
-
#line
|
|
3614
|
+
#line 2786 "informixc.ec"
|
|
3608
3615
|
}
|
|
3609
3616
|
clean_input_slots(c);
|
|
3610
3617
|
if (SQLCODE < 0)
|
|
@@ -3629,13 +3636,13 @@ rb_inscur_flush(VALUE self)
|
|
|
3629
3636
|
/*
|
|
3630
3637
|
* EXEC SQL begin declare section;
|
|
3631
3638
|
*/
|
|
3632
|
-
#line
|
|
3633
|
-
#line
|
|
3639
|
+
#line 2807 "informixc.ec"
|
|
3640
|
+
#line 2808 "informixc.ec"
|
|
3634
3641
|
char *cid, *did;
|
|
3635
3642
|
/*
|
|
3636
3643
|
* EXEC SQL end declare section;
|
|
3637
3644
|
*/
|
|
3638
|
-
#line
|
|
3645
|
+
#line 2809 "informixc.ec"
|
|
3639
3646
|
|
|
3640
3647
|
|
|
3641
3648
|
Data_Get_Struct(self, cursor_t, c);
|
|
@@ -3646,11 +3653,11 @@ rb_inscur_flush(VALUE self)
|
|
|
3646
3653
|
/*
|
|
3647
3654
|
* EXEC SQL set connection :did;
|
|
3648
3655
|
*/
|
|
3649
|
-
#line
|
|
3656
|
+
#line 2816 "informixc.ec"
|
|
3650
3657
|
{
|
|
3651
|
-
#line
|
|
3658
|
+
#line 2816 "informixc.ec"
|
|
3652
3659
|
sqli_connect_set(0, did, 0);
|
|
3653
|
-
#line
|
|
3660
|
+
#line 2816 "informixc.ec"
|
|
3654
3661
|
}
|
|
3655
3662
|
if (SQLCODE < 0)
|
|
3656
3663
|
raise_ifx_extended();
|
|
@@ -3659,11 +3666,11 @@ rb_inscur_flush(VALUE self)
|
|
|
3659
3666
|
/*
|
|
3660
3667
|
* EXEC SQL flush :cid;
|
|
3661
3668
|
*/
|
|
3662
|
-
#line
|
|
3669
|
+
#line 2821 "informixc.ec"
|
|
3663
3670
|
{
|
|
3664
|
-
#line
|
|
3671
|
+
#line 2821 "informixc.ec"
|
|
3665
3672
|
sqli_curs_flush(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 256));
|
|
3666
|
-
#line
|
|
3673
|
+
#line 2821 "informixc.ec"
|
|
3667
3674
|
}
|
|
3668
3675
|
return self;
|
|
3669
3676
|
}
|
|
@@ -3684,14 +3691,14 @@ rb_scrollcur_entry(VALUE self, VALUE index, VALUE type, VALUE bang)
|
|
|
3684
3691
|
/*
|
|
3685
3692
|
* EXEC SQL begin declare section;
|
|
3686
3693
|
*/
|
|
3687
|
-
#line
|
|
3688
|
-
#line
|
|
3694
|
+
#line 2838 "informixc.ec"
|
|
3695
|
+
#line 2839 "informixc.ec"
|
|
3689
3696
|
char *cid, *did;
|
|
3690
3697
|
long pos;
|
|
3691
3698
|
/*
|
|
3692
3699
|
* EXEC SQL end declare section;
|
|
3693
3700
|
*/
|
|
3694
|
-
#line
|
|
3701
|
+
#line 2841 "informixc.ec"
|
|
3695
3702
|
|
|
3696
3703
|
|
|
3697
3704
|
Data_Get_Struct(self, cursor_t, c);
|
|
@@ -3702,11 +3709,11 @@ long pos;
|
|
|
3702
3709
|
/*
|
|
3703
3710
|
* EXEC SQL set connection :did;
|
|
3704
3711
|
*/
|
|
3705
|
-
#line
|
|
3712
|
+
#line 2848 "informixc.ec"
|
|
3706
3713
|
{
|
|
3707
|
-
#line
|
|
3714
|
+
#line 2848 "informixc.ec"
|
|
3708
3715
|
sqli_connect_set(0, did, 0);
|
|
3709
|
-
#line
|
|
3716
|
+
#line 2848 "informixc.ec"
|
|
3710
3717
|
}
|
|
3711
3718
|
if (SQLCODE < 0)
|
|
3712
3719
|
return Qnil;
|
|
@@ -3718,60 +3725,60 @@ long pos;
|
|
|
3718
3725
|
/*
|
|
3719
3726
|
* EXEC SQL fetch current :cid using descriptor output;
|
|
3720
3727
|
*/
|
|
3721
|
-
#line
|
|
3728
|
+
#line 2856 "informixc.ec"
|
|
3722
3729
|
{
|
|
3723
|
-
#line
|
|
3730
|
+
#line 2856 "informixc.ec"
|
|
3724
3731
|
static _FetchSpec _FS0 = { 0, 5, 0 };
|
|
3725
3732
|
sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 256), (ifx_sqlda_t *)0, output, (char *)0, &_FS0);
|
|
3726
|
-
#line
|
|
3733
|
+
#line 2856 "informixc.ec"
|
|
3727
3734
|
}
|
|
3728
3735
|
else if ((pos = NUM2LONG(index) + 1) > 0)
|
|
3729
3736
|
/*
|
|
3730
3737
|
* EXEC SQL fetch absolute :pos :cid using descriptor output;
|
|
3731
3738
|
*/
|
|
3732
|
-
#line
|
|
3739
|
+
#line 2858 "informixc.ec"
|
|
3733
3740
|
{
|
|
3734
|
-
#line
|
|
3741
|
+
#line 2858 "informixc.ec"
|
|
3735
3742
|
static ifx_sqlvar_t _sqibind[] =
|
|
3736
3743
|
{
|
|
3737
3744
|
{ 103, sizeof(pos), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
|
|
3738
|
-
#line
|
|
3745
|
+
#line 2858 "informixc.ec"
|
|
3739
3746
|
};
|
|
3740
3747
|
static ifx_sqlda_t _SD0 = { 1, _sqibind, {0}, 1, 0 };
|
|
3741
3748
|
static _FetchSpec _FS1 = { 0, 6, 0 };
|
|
3742
|
-
#line
|
|
3749
|
+
#line 2858 "informixc.ec"
|
|
3743
3750
|
_sqibind[0].sqldata = (char *) &pos;
|
|
3744
3751
|
sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 256), &_SD0, output, (char *)0, &_FS1);
|
|
3745
|
-
#line
|
|
3752
|
+
#line 2858 "informixc.ec"
|
|
3746
3753
|
}
|
|
3747
3754
|
else {
|
|
3748
3755
|
/*
|
|
3749
3756
|
* EXEC SQL fetch last :cid;
|
|
3750
3757
|
*/
|
|
3751
|
-
#line
|
|
3758
|
+
#line 2860 "informixc.ec"
|
|
3752
3759
|
{
|
|
3753
|
-
#line
|
|
3760
|
+
#line 2860 "informixc.ec"
|
|
3754
3761
|
static _FetchSpec _FS0 = { 0, 4, 0 };
|
|
3755
3762
|
sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 256), (ifx_sqlda_t *)0, (ifx_sqlda_t *)0, (char *)0, &_FS0);
|
|
3756
|
-
#line
|
|
3763
|
+
#line 2860 "informixc.ec"
|
|
3757
3764
|
}
|
|
3758
3765
|
/*
|
|
3759
3766
|
* EXEC SQL fetch relative :pos :cid using descriptor output;
|
|
3760
3767
|
*/
|
|
3761
|
-
#line
|
|
3768
|
+
#line 2861 "informixc.ec"
|
|
3762
3769
|
{
|
|
3763
|
-
#line
|
|
3770
|
+
#line 2861 "informixc.ec"
|
|
3764
3771
|
static ifx_sqlvar_t _sqibind[] =
|
|
3765
3772
|
{
|
|
3766
3773
|
{ 103, sizeof(pos), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
|
|
3767
|
-
#line
|
|
3774
|
+
#line 2861 "informixc.ec"
|
|
3768
3775
|
};
|
|
3769
3776
|
static ifx_sqlda_t _SD0 = { 1, _sqibind, {0}, 1, 0 };
|
|
3770
3777
|
static _FetchSpec _FS1 = { 0, 7, 0 };
|
|
3771
|
-
#line
|
|
3778
|
+
#line 2861 "informixc.ec"
|
|
3772
3779
|
_sqibind[0].sqldata = (char *) &pos;
|
|
3773
3780
|
sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 256), &_SD0, output, (char *)0, &_FS1);
|
|
3774
|
-
#line
|
|
3781
|
+
#line 2861 "informixc.ec"
|
|
3775
3782
|
}
|
|
3776
3783
|
}
|
|
3777
3784
|
|
|
@@ -3799,14 +3806,14 @@ rb_scrollcur_rel(VALUE self, VALUE offset, VALUE type, VALUE bang)
|
|
|
3799
3806
|
/*
|
|
3800
3807
|
* EXEC SQL begin declare section;
|
|
3801
3808
|
*/
|
|
3802
|
-
#line
|
|
3803
|
-
#line
|
|
3809
|
+
#line 2885 "informixc.ec"
|
|
3810
|
+
#line 2886 "informixc.ec"
|
|
3804
3811
|
char *cid, *did;
|
|
3805
3812
|
long pos;
|
|
3806
3813
|
/*
|
|
3807
3814
|
* EXEC SQL end declare section;
|
|
3808
3815
|
*/
|
|
3809
|
-
#line
|
|
3816
|
+
#line 2888 "informixc.ec"
|
|
3810
3817
|
|
|
3811
3818
|
|
|
3812
3819
|
Data_Get_Struct(self, cursor_t, c);
|
|
@@ -3817,11 +3824,11 @@ long pos;
|
|
|
3817
3824
|
/*
|
|
3818
3825
|
* EXEC SQL set connection :did;
|
|
3819
3826
|
*/
|
|
3820
|
-
#line
|
|
3827
|
+
#line 2895 "informixc.ec"
|
|
3821
3828
|
{
|
|
3822
|
-
#line
|
|
3829
|
+
#line 2895 "informixc.ec"
|
|
3823
3830
|
sqli_connect_set(0, did, 0);
|
|
3824
|
-
#line
|
|
3831
|
+
#line 2895 "informixc.ec"
|
|
3825
3832
|
}
|
|
3826
3833
|
if (SQLCODE < 0)
|
|
3827
3834
|
return Qnil;
|
|
@@ -3833,20 +3840,20 @@ long pos;
|
|
|
3833
3840
|
/*
|
|
3834
3841
|
* EXEC SQL fetch relative :pos :cid using descriptor output;
|
|
3835
3842
|
*/
|
|
3836
|
-
#line
|
|
3843
|
+
#line 2903 "informixc.ec"
|
|
3837
3844
|
{
|
|
3838
|
-
#line
|
|
3845
|
+
#line 2903 "informixc.ec"
|
|
3839
3846
|
static ifx_sqlvar_t _sqibind[] =
|
|
3840
3847
|
{
|
|
3841
3848
|
{ 103, sizeof(pos), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
|
|
3842
|
-
#line
|
|
3849
|
+
#line 2903 "informixc.ec"
|
|
3843
3850
|
};
|
|
3844
3851
|
static ifx_sqlda_t _SD0 = { 1, _sqibind, {0}, 1, 0 };
|
|
3845
3852
|
static _FetchSpec _FS1 = { 0, 7, 0 };
|
|
3846
|
-
#line
|
|
3853
|
+
#line 2903 "informixc.ec"
|
|
3847
3854
|
_sqibind[0].sqldata = (char *) &pos;
|
|
3848
3855
|
sqli_curs_fetch(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 256), &_SD0, output, (char *)0, &_FS1);
|
|
3849
|
-
#line
|
|
3856
|
+
#line 2903 "informixc.ec"
|
|
3850
3857
|
}
|
|
3851
3858
|
|
|
3852
3859
|
if (SQLCODE == SQLNOTFOUND)
|
|
@@ -3868,13 +3875,13 @@ cursorbase_close_or_free(cursor_t *c, short op)
|
|
|
3868
3875
|
/*
|
|
3869
3876
|
* EXEC SQL begin declare section;
|
|
3870
3877
|
*/
|
|
3871
|
-
#line
|
|
3872
|
-
#line
|
|
3878
|
+
#line 2921 "informixc.ec"
|
|
3879
|
+
#line 2922 "informixc.ec"
|
|
3873
3880
|
char *cid, *did;
|
|
3874
3881
|
/*
|
|
3875
3882
|
* EXEC SQL end declare section;
|
|
3876
3883
|
*/
|
|
3877
|
-
#line
|
|
3884
|
+
#line 2923 "informixc.ec"
|
|
3878
3885
|
|
|
3879
3886
|
|
|
3880
3887
|
if (op == 1 && !c->is_open)
|
|
@@ -3890,11 +3897,11 @@ cursorbase_close_or_free(cursor_t *c, short op)
|
|
|
3890
3897
|
/*
|
|
3891
3898
|
* EXEC SQL set connection :did;
|
|
3892
3899
|
*/
|
|
3893
|
-
#line
|
|
3900
|
+
#line 2935 "informixc.ec"
|
|
3894
3901
|
{
|
|
3895
|
-
#line
|
|
3902
|
+
#line 2935 "informixc.ec"
|
|
3896
3903
|
sqli_connect_set(0, did, 0);
|
|
3897
|
-
#line
|
|
3904
|
+
#line 2935 "informixc.ec"
|
|
3898
3905
|
}
|
|
3899
3906
|
if (SQLCODE < 0)
|
|
3900
3907
|
return;
|
|
@@ -3902,22 +3909,22 @@ cursorbase_close_or_free(cursor_t *c, short op)
|
|
|
3902
3909
|
/*
|
|
3903
3910
|
* EXEC SQL close :cid;
|
|
3904
3911
|
*/
|
|
3905
|
-
#line
|
|
3912
|
+
#line 2939 "informixc.ec"
|
|
3906
3913
|
{
|
|
3907
|
-
#line
|
|
3914
|
+
#line 2939 "informixc.ec"
|
|
3908
3915
|
sqli_curs_close(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 256));
|
|
3909
|
-
#line
|
|
3916
|
+
#line 2939 "informixc.ec"
|
|
3910
3917
|
}
|
|
3911
3918
|
if (op == 1)
|
|
3912
3919
|
break;
|
|
3913
3920
|
/*
|
|
3914
3921
|
* EXEC SQL free :cid;
|
|
3915
3922
|
*/
|
|
3916
|
-
#line
|
|
3923
|
+
#line 2942 "informixc.ec"
|
|
3917
3924
|
{
|
|
3918
|
-
#line
|
|
3925
|
+
#line 2942 "informixc.ec"
|
|
3919
3926
|
sqli_curs_free(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 258));
|
|
3920
|
-
#line
|
|
3927
|
+
#line 2942 "informixc.ec"
|
|
3921
3928
|
}
|
|
3922
3929
|
st_free(c);
|
|
3923
3930
|
break;
|
|
@@ -3985,13 +3992,13 @@ rb_cursorbase_open(int argc, VALUE *argv, VALUE self)
|
|
|
3985
3992
|
/*
|
|
3986
3993
|
* EXEC SQL begin declare section;
|
|
3987
3994
|
*/
|
|
3988
|
-
#line
|
|
3989
|
-
#line
|
|
3995
|
+
#line 3006 "informixc.ec"
|
|
3996
|
+
#line 3007 "informixc.ec"
|
|
3990
3997
|
char *cid, *did;
|
|
3991
3998
|
/*
|
|
3992
3999
|
* EXEC SQL end declare section;
|
|
3993
4000
|
*/
|
|
3994
|
-
#line
|
|
4001
|
+
#line 3008 "informixc.ec"
|
|
3995
4002
|
|
|
3996
4003
|
|
|
3997
4004
|
Data_Get_Struct(self, cursor_t, c);
|
|
@@ -4003,11 +4010,11 @@ rb_cursorbase_open(int argc, VALUE *argv, VALUE self)
|
|
|
4003
4010
|
/*
|
|
4004
4011
|
* EXEC SQL set connection :did;
|
|
4005
4012
|
*/
|
|
4006
|
-
#line
|
|
4013
|
+
#line 3016 "informixc.ec"
|
|
4007
4014
|
{
|
|
4008
|
-
#line
|
|
4015
|
+
#line 3016 "informixc.ec"
|
|
4009
4016
|
sqli_connect_set(0, did, 0);
|
|
4010
|
-
#line
|
|
4017
|
+
#line 3016 "informixc.ec"
|
|
4011
4018
|
}
|
|
4012
4019
|
if (SQLCODE < 0)
|
|
4013
4020
|
raise_ifx_extended();
|
|
@@ -4026,11 +4033,11 @@ rb_cursorbase_open(int argc, VALUE *argv, VALUE self)
|
|
|
4026
4033
|
* EXEC SQL open :cid using descriptor input
|
|
4027
4034
|
* with reoptimization;
|
|
4028
4035
|
*/
|
|
4029
|
-
#line
|
|
4036
|
+
#line 3030 "informixc.ec"
|
|
4030
4037
|
{
|
|
4031
|
-
#line
|
|
4038
|
+
#line 3031 "informixc.ec"
|
|
4032
4039
|
sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 256), input, (char *)0, (struct value *)0, 1, 1);
|
|
4033
|
-
#line
|
|
4040
|
+
#line 3031 "informixc.ec"
|
|
4034
4041
|
}
|
|
4035
4042
|
clean_input_slots(c);
|
|
4036
4043
|
}
|
|
@@ -4038,22 +4045,22 @@ rb_cursorbase_open(int argc, VALUE *argv, VALUE self)
|
|
|
4038
4045
|
/*
|
|
4039
4046
|
* EXEC SQL open :cid with reoptimization;
|
|
4040
4047
|
*/
|
|
4041
|
-
#line
|
|
4048
|
+
#line 3035 "informixc.ec"
|
|
4042
4049
|
{
|
|
4043
|
-
#line
|
|
4050
|
+
#line 3035 "informixc.ec"
|
|
4044
4051
|
sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 256), (ifx_sqlda_t *)0, (char *)0, (struct value *)0, 0, 1);
|
|
4045
|
-
#line
|
|
4052
|
+
#line 3035 "informixc.ec"
|
|
4046
4053
|
}
|
|
4047
4054
|
}
|
|
4048
4055
|
else
|
|
4049
4056
|
/*
|
|
4050
4057
|
* EXEC SQL open :cid;
|
|
4051
4058
|
*/
|
|
4052
|
-
#line
|
|
4059
|
+
#line 3038 "informixc.ec"
|
|
4053
4060
|
{
|
|
4054
|
-
#line
|
|
4061
|
+
#line 3038 "informixc.ec"
|
|
4055
4062
|
sqli_curs_open(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 256), (ifx_sqlda_t *)0, (char *)0, (struct value *)0, 0, 0);
|
|
4056
|
-
#line
|
|
4063
|
+
#line 3038 "informixc.ec"
|
|
4057
4064
|
}
|
|
4058
4065
|
|
|
4059
4066
|
if (SQLCODE < 0)
|
|
@@ -4115,14 +4122,14 @@ rb_cursor_s_new0(int argc, VALUE *argv, VALUE self)
|
|
|
4115
4122
|
/*
|
|
4116
4123
|
* EXEC SQL begin declare section;
|
|
4117
4124
|
*/
|
|
4118
|
-
#line
|
|
4119
|
-
#line
|
|
4125
|
+
#line 3096 "informixc.ec"
|
|
4126
|
+
#line 3097 "informixc.ec"
|
|
4120
4127
|
char *c_query;
|
|
4121
4128
|
char *cid, *sid, *did;
|
|
4122
4129
|
/*
|
|
4123
4130
|
* EXEC SQL end declare section;
|
|
4124
4131
|
*/
|
|
4125
|
-
#line
|
|
4132
|
+
#line 3099 "informixc.ec"
|
|
4126
4133
|
|
|
4127
4134
|
|
|
4128
4135
|
memset(&c, 0, sizeof(c));
|
|
@@ -4132,11 +4139,11 @@ rb_cursor_s_new0(int argc, VALUE *argv, VALUE self)
|
|
|
4132
4139
|
/*
|
|
4133
4140
|
* EXEC SQL set connection :did;
|
|
4134
4141
|
*/
|
|
4135
|
-
#line
|
|
4142
|
+
#line 3105 "informixc.ec"
|
|
4136
4143
|
{
|
|
4137
|
-
#line
|
|
4144
|
+
#line 3105 "informixc.ec"
|
|
4138
4145
|
sqli_connect_set(0, did, 0);
|
|
4139
|
-
#line
|
|
4146
|
+
#line 3105 "informixc.ec"
|
|
4140
4147
|
}
|
|
4141
4148
|
|
|
4142
4149
|
if (SQLCODE < 0)
|
|
@@ -4160,11 +4167,11 @@ rb_cursor_s_new0(int argc, VALUE *argv, VALUE self)
|
|
|
4160
4167
|
/*
|
|
4161
4168
|
* EXEC SQL prepare :sid from :c_query;
|
|
4162
4169
|
*/
|
|
4163
|
-
#line
|
|
4170
|
+
#line 3125 "informixc.ec"
|
|
4164
4171
|
{
|
|
4165
|
-
#line
|
|
4172
|
+
#line 3125 "informixc.ec"
|
|
4166
4173
|
sqli_prep(ESQLINTVERSION, sid, c_query,(ifx_literal_t *)0, (ifx_namelist_t *)0, -1, 0, 0 );
|
|
4167
|
-
#line
|
|
4174
|
+
#line 3125 "informixc.ec"
|
|
4168
4175
|
}
|
|
4169
4176
|
if (SQLCODE < 0)
|
|
4170
4177
|
raise_ifx_extended();
|
|
@@ -4173,41 +4180,41 @@ rb_cursor_s_new0(int argc, VALUE *argv, VALUE self)
|
|
|
4173
4180
|
/*
|
|
4174
4181
|
* EXEC SQL declare :cid scroll cursor with hold for :sid;
|
|
4175
4182
|
*/
|
|
4176
|
-
#line
|
|
4183
|
+
#line 3130 "informixc.ec"
|
|
4177
4184
|
{
|
|
4178
|
-
#line
|
|
4185
|
+
#line 3130 "informixc.ec"
|
|
4179
4186
|
sqli_curs_decl_dynm(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 0), cid, sqli_curs_locate(ESQLINTVERSION, sid, 1), 4128, 0);
|
|
4180
|
-
#line
|
|
4187
|
+
#line 3130 "informixc.ec"
|
|
4181
4188
|
}
|
|
4182
4189
|
else if (RTEST(hold))
|
|
4183
4190
|
/*
|
|
4184
4191
|
* EXEC SQL declare :cid cursor with hold for :sid;
|
|
4185
4192
|
*/
|
|
4186
|
-
#line
|
|
4193
|
+
#line 3132 "informixc.ec"
|
|
4187
4194
|
{
|
|
4188
|
-
#line
|
|
4195
|
+
#line 3132 "informixc.ec"
|
|
4189
4196
|
sqli_curs_decl_dynm(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 0), cid, sqli_curs_locate(ESQLINTVERSION, sid, 1), 4096, 0);
|
|
4190
|
-
#line
|
|
4197
|
+
#line 3132 "informixc.ec"
|
|
4191
4198
|
}
|
|
4192
4199
|
else if (RTEST(scroll))
|
|
4193
4200
|
/*
|
|
4194
4201
|
* EXEC SQL declare :cid scroll cursor for :sid;
|
|
4195
4202
|
*/
|
|
4196
|
-
#line
|
|
4203
|
+
#line 3134 "informixc.ec"
|
|
4197
4204
|
{
|
|
4198
|
-
#line
|
|
4205
|
+
#line 3134 "informixc.ec"
|
|
4199
4206
|
sqli_curs_decl_dynm(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 0), cid, sqli_curs_locate(ESQLINTVERSION, sid, 1), 32, 0);
|
|
4200
|
-
#line
|
|
4207
|
+
#line 3134 "informixc.ec"
|
|
4201
4208
|
}
|
|
4202
4209
|
else
|
|
4203
4210
|
/*
|
|
4204
4211
|
* EXEC SQL declare :cid cursor for :sid;
|
|
4205
4212
|
*/
|
|
4206
|
-
#line
|
|
4213
|
+
#line 3136 "informixc.ec"
|
|
4207
4214
|
{
|
|
4208
|
-
#line
|
|
4215
|
+
#line 3136 "informixc.ec"
|
|
4209
4216
|
sqli_curs_decl_dynm(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, cid, 0), cid, sqli_curs_locate(ESQLINTVERSION, sid, 1), 0, 0);
|
|
4210
|
-
#line
|
|
4217
|
+
#line 3136 "informixc.ec"
|
|
4211
4218
|
}
|
|
4212
4219
|
|
|
4213
4220
|
if (SQLCODE < 0)
|
|
@@ -4217,11 +4224,11 @@ rb_cursor_s_new0(int argc, VALUE *argv, VALUE self)
|
|
|
4217
4224
|
/*
|
|
4218
4225
|
* EXEC SQL describe :sid into output;
|
|
4219
4226
|
*/
|
|
4220
|
-
#line
|
|
4227
|
+
#line 3142 "informixc.ec"
|
|
4221
4228
|
{
|
|
4222
|
-
#line
|
|
4229
|
+
#line 3142 "informixc.ec"
|
|
4223
4230
|
sqli_describe_stmt(ESQLINTVERSION, sqli_curs_locate(ESQLINTVERSION, sid, 257), &output, 0);
|
|
4224
|
-
#line
|
|
4231
|
+
#line 3142 "informixc.ec"
|
|
4225
4232
|
}
|
|
4226
4233
|
c.daOutput = output;
|
|
4227
4234
|
|
|
@@ -4510,4 +4517,4 @@ void Init_informixc(void)
|
|
|
4510
4517
|
sym_params = ID2SYM(rb_intern("params"));
|
|
4511
4518
|
}
|
|
4512
4519
|
|
|
4513
|
-
#line
|
|
4520
|
+
#line 3428 "informixc.ec"
|