anyone running ingperl 2.01 under digital unix 3.2c? i'm having a
problem, hopefully i won't have to muck with the code if someone else
has fixed this....
the 'make test' reports strange #s - looks like 32 bits ints vs. 64 bits:
(the types seem to be wrong; the obvious errors are indicated by '^^^^^')
thanks,
gary
esqlc -w -wopen -p ingperl.sc
ESQL ingperl.sc:
gcc -c -I/usr/local/src/perl-4.036 -DDEBUGGING -DINGPERL_DEBUG -DSTANDARD_C -g -O2 -Wall -Wno-comment -Wno-implicit ingperl.c
ingperl.sc: In function `do_sql':
ingperl.sc:178: warning: long int format, different type arg (arg 4)
ingperl.sc:201: warning: long int format, different type arg (arg 2)
ingperl.sc: In function `on_event':
ingperl.sc:243: warning: long int format, different type arg (arg 3)
ingperl.sc: In function `do_sql_exec':
ingperl.sc:394: warning: long int format, different type arg (arg 2)
ingperl.sc: In function `do_sql_prepare':
ingperl.sc:434: warning: long int format, different type arg (arg 2)
ingperl.sc:512: warning: cast to pointer from integer of different size
ingperl.sc:520: warning: cast to pointer from integer of different size
ingperl.sc:548: warning: cast from pointer to integer of different size
ingperl.sc:550: warning: cast from pointer to integer of different size
ingperl.sc: In function `close_sql_cursor':
ingperl.sc:593: warning: long int format, different type arg (arg 2)
ingperl.sc: In function `do_sql_fetch':
ingperl.sc:688: warning: long int format, different type arg (arg 2)
rm -f ingperl.c
gcc -o ingperl /usr/local/src/perl-4.036/uperl.o usersub.o ingperl.o -g -O2 -Wall -Wno-comment -Wno-implicit /usr/ingres/lib/libingres.a -ldnet_stub -lm
./ingperl -w ingtest.pl 2>&1 | tee ingtest.out
This is the ingperl test script.
<stuff deleted>
Preparing query...
Fetching names: char_c, varchar_c, c_c, text_c, date_c, intervl_c, float4_c, float8_c, money_c, null_c, int1_c, int2_c, int4_c
Fetching types: s, s, s, s, s, s, f, f, f, s, d, d, d
Fetching ingtypes: 20, 21, 20, 21, 20, 20, 31, 31, 31, 21, 30, 30, 30
Fetching nullable: 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0
Fetching lengths: 4, 7, 1, 4, 25, 25, 4, 8, 8, 0, 1, 2, 4
Fetching data...
Row Field (Type Len Name ) Value:
R 1, F 0: (20(s), 4, 'char_c' ) char
R 1, F 1: (21(s), 7, 'varchar_c') varchar
R 1, F 2: (20(s), 1, 'c_c' ) c
R 1, F 3: (21(s), 4, 'text_c' ) text
R 1, F 4: (20(s), 25, 'date_c' ) 01-jan-1994 06:22:33
R 1, F 5: (20(s), 25, 'intervl_c') 1 yrs 2 mos 3 days 4 hrs
R 1, F 6: (31(f), 4, 'float4_c' ) 4.400000
R 1, F 7: (31(f), 8, 'float8_c' ) 8.800000
R 1, F 8: (31(f), 8, 'money_c' ) 9.000000
R 1, F 9: (21(s), 0, 'null_c' ) <NULL> (nullable)
R 1, F10: (30(d), 1, 'int1_c' ) 1
R 1, F11: (30(d), 2, 'int2_c' ) 2
R 1, F12: (30(d), 4, 'int4_c' ) 4
Complete (sqlcode=0).
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Fetching names: table_name, num_rows, col3
Fetching types: s, d, d
Fetching ingtypes: 20, 30, 30
Fetching nullable: 0, 0, 0
Fetching lengths: 24, 4, 4
Fetching data...
R 1: 'ii_client_dep_mod ', '7650825424200532000', '2320542624978567200'
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
R 2: 'iiattribute ', '7650825424200533000', '2320542624978567200'
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
R 3: 'iidbcapabilities ', '7650825424200532000', '2320542624978567200'
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
R 4: 'iidbdepends ', '7650825424200532000', '2320542624978567200'
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Complete (sqlcode=0).
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Executing: 'set noqep'
done (rowcount=-1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Preparing query...
Fetching names: autocommit_state_, collation_, database_, dba_, language_, on_error_state_, query_language_, server_class_, session_id_, terminal_, transaction_state_, username_, _version_, group_, role_, query_io_limit_, query_row_limit_, create_table_, create_procedure_, db_admin_, lockmode_, maxio_, maxrow_
Fetching types: s, s, s, s, s, s, s, s, s, s, s, s, s, s, s, s, s, s, s, s, s, s, s
Fetching ingtypes: 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21
Fetching nullable: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Fetching lengths: 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32
Fetching data...
Row Field (Type Len Name ) Value:
R 1, F 0: (21(s), 32, 'autocommit_state_') 1
R 1, F 1: (21(s), 32, 'collation_')
R 1, F 2: (21(s), 32, 'database_') iidbdb
R 1, F 3: (21(s), 32, 'dba_' ) $ingres
R 1, F 4: (21(s), 32, 'language_') english
R 1, F 5: (21(s), 32, 'on_error_state_') rollback transaction
R 1, F 6: (21(s), 32, 'query_language_') sql
R 1, F 7: (21(s), 32, 'server_class_') Ingres DBMS Server
R 1, F 8: (21(s), 32, 'session_id_') 4051B7C0
R 1, F 9: (21(s), 32, 'terminal_') ttyp1
R 1, F10: (21(s), 32, 'transaction_state_') 0
R 1, F11: (21(s), 32, 'username_') root
R 1, F12: (21(s), 32, '_version_') 6.4/05 (axp.osf/02)
R 1, F13: (21(s), 32, 'group_' )
R 1, F14: (21(s), 32, 'role_' )
R 1, F15: (21(s), 32, 'query_io_limit_') -1
R 1, F16: (21(s), 32, 'query_row_limit_') -1
R 1, F17: (21(s), 32, 'create_table_') Y
R 1, F18: (21(s), 32, 'create_procedure_') Y
R 1, F19: (21(s), 32, 'db_admin_') Y
R 1, F20: (21(s), 32, 'lockmode_') Y
R 1, F21: (21(s), 32, 'maxio_' ) -1
R 1, F22: (21(s), 32, 'maxrow_' ) -1
Complete (sqlcode=0).
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Executing: 'rollback'
done
Test complete.
Comparing test output with standard.
(expect some differences in datetimes etc)
diff ingtest.std ingtest.out
7c7
< IngPerl Version: ingperl 2.0 pl0 (built Apr 8 1994 19:35:56)
---
> IngPerl Version: ingperl 2.0 pl1 (built Dec 15 1995 22:43:53)
11,12c11,12
< sql_showerrors = 0
< sql_debug = 0
---
> sql_showerrors = 1
> sql_debug = 1
22c22
< Date and time now: 08-apr-1994 19:43:28
---
> Date and time now: 15-dec-1995 22:44:00
68c68
< R 1, F 4: (20(s), 25, 'date_c' ) 01-jan-1994 12:22:33
---
> R 1, F 4: (20(s), 25, 'date_c' ) 01-jan-1994 06:22:33
---
> Pages 1 Tups 36
136,139c136,139
< R 1: 'iiattribute ', '681', '11'
< R 2: 'iidbcapabilities ', '22', '2'
< R 3: 'iidbdepends ', '49', '7'
< R 4: 'iiindex ', '7', '35'
---
> R 1: 'ii_client_dep_mod ', '7650825424200532000', '2320542624978567200'
> R 2: 'iiattribute ', '7650825424200533000', '2320542624978567200'
> R 3: 'iidbcapabilities ', '7650825424200532000', '2320542624978567200'
> R 4: 'iidbdepends ', '7650825424200532000', '2320542624978567200'
Received on Sat Dec 16 1995 - 05:38:53 NZDT