home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume32 / oraperl-v2 / patch02 next >
Text File  |  1992-10-06  |  26KB  |  879 lines
  1. Newsgroups: comp.sources.misc
  2. From: Kevin Stock <kstock@encore.com>
  3. Subject:  v32i093:  oraperl-v2 - Extensions to Perl to access Oracle database, Patch02
  4. Message-ID: <1992Oct4.163750.3822@sparky.imd.sterling.com>
  5. X-Md4-Signature: dc9a01c833e18d5a5baffd716da392b7
  6. Date: Sun, 4 Oct 1992 16:37:50 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: Kevin Stock <kstock@encore.com>
  10. Posting-number: Volume 32, Issue 93
  11. Archive-name: oraperl-v2/patch02
  12. Environment: Perl, Oracle with OCI, optionally Curses
  13. Patch-To: oraperl-v2: Volume 30, Issue 87-91,99
  14.  
  15. This is patch 2 to version 2 of Oraperl, a set of usersubs which
  16. allow Perl to access Oracle databases. You need Perl (v3.0.27 or
  17. better) and Oracle (including the Oracle Call Interface) to build
  18. Oraperl. If you can build Larry's Curseperl, then you can also
  19. build Coraperl, which is Oraperl with Curses.
  20.  
  21. Oraperl version 2 appeared as 5 postings in comp.sources.misc
  22. volume 30, issues 87 to 91. Patch 01 appeared shortly afterwards
  23. as issue 99.
  24.  
  25.  
  26.   Principal changes:
  27.   ------------------
  28. Oraperl can now deal with NULL fields properly. &ora_fetch() will
  29. return undef for any field which was NULL, and supplying undef as
  30. a parameter to &ora_bind() will result in a NULL being bound.
  31.  
  32. This change should not cause any problems when printing fetched
  33. values, since Perl will automatically convert them into blank
  34. strings. However, if you have a script which binds undefined
  35. values, they will now become NULL instead of a string containing
  36. exactly one space.
  37.  
  38. See ex.pl and mkdb.pl in the examples subdirectory for a simple
  39. example of NULL handling.
  40.  
  41. The &ora_titles() function now takes an optional second parameter
  42. which indicates whether the titles should be truncated to the width
  43. of the data. For compatibility, the default action is to truncate.
  44. If the second parameter is supplied and is zero, then the titles will
  45. not be truncated.
  46.  
  47. Thanks to Cynthia Mumford and Dave Hollen for pushing me to fix these
  48. and to Larry for telling me how!
  49.  
  50.   Directions
  51.   ----------
  52. Save this file in your Oraperl source directory, and type:
  53.  
  54.     patch -p0 <this-file
  55.  
  56. Then make, make test, make install.
  57.  
  58. Feel free to mail me if you have any problems with or questions about
  59. Oraperl.
  60.  
  61.     Kevin
  62.     kstock@encore.com, kstock@encore.fr
  63.  
  64.  
  65. ----cut here-----
  66. diff -cr /user/mis/kstock/tmp/oraperl-v2.1/patchlevel.h ./patchlevel.h
  67. *** /user/mis/kstock/tmp/oraperl-v2.1/patchlevel.h    Fri Sep 25 14:39:48 1992
  68. --- ./patchlevel.h    Tue Sep 22 12:17:00 1992
  69. ***************
  70. *** 1,4 ****
  71.   /* patchlevel.h */
  72.   
  73.   #define    VERSION        2
  74. ! #define    PATCHLEVEL    1
  75. --- 1,4 ----
  76.   /* patchlevel.h */
  77.   
  78.   #define    VERSION        2
  79. ! #define    PATCHLEVEL    2
  80. diff -cr /user/mis/kstock/tmp/oraperl-v2.1/Changes ./Changes
  81. *** /user/mis/kstock/tmp/oraperl-v2.1/Changes    Fri Sep 25 14:38:41 1992
  82. --- ./Changes    Fri Sep 25 14:21:30 1992
  83. ***************
  84. *** 4,9 ****
  85. --- 4,21 ----
  86.   Version 2
  87.   =========
  88.   
  89. + Patch 02
  90. + ========
  91. + Added a BUGS section to the manual page
  92. + Fixed &ora_titles so that it can return the entire title without truncation
  93. + Fixed &ora_fetch so that it returns undef for a NULL field
  94. + Fixed &ora_bind so that it accepts undef to bind a NULL value
  95. + 
  96. + Patch 01
  97. + ========
  98. + Fixed a bug in testdir/mkdb.pl
  99. + Added a hint about building coraperl with bsdcurses.mus
  100. + 
  101.   Patchlevel 0:
  102.   =============
  103.   Replaced my debugging code with Fred Fish' DBUG package
  104. diff -cr /user/mis/kstock/tmp/oraperl-v2.1/Readme ./Readme
  105. *** /user/mis/kstock/tmp/oraperl-v2.1/Readme    Fri Sep 25 14:38:44 1992
  106. --- ./Readme    Wed Aug 26 09:12:28 1992
  107. ***************
  108. *** 51,58 ****
  109.   each release (covers the range 3.0.34 to 4.0.35, excluding 4.0.33) with
  110.   Oracle version 6, as I don't have access to any other system with Pro*C.
  111.   However, other people have compiled and used it on a range of different
  112. ! systems including Convex, Cray, NeXT, Pyramid, Sun and Ultrix, using Oracle
  113. ! versions 5 and 6. I'd appreciate any comments, bug-reports, improvements, etc.
  114.   
  115.   In addition to this README, the package contains the following files:
  116.   
  117. --- 51,59 ----
  118.   each release (covers the range 3.0.34 to 4.0.35, excluding 4.0.33) with
  119.   Oracle version 6, as I don't have access to any other system with Pro*C.
  120.   However, other people have compiled and used it on a range of different
  121. ! systems including Amdahl, Convex, Cray, NeXT, Pyramid, Sun and Ultrix,
  122. ! using Oracle versions 5 and 6. I'd appreciate any comments, bug-reports,
  123. ! improvements, etc.
  124.   
  125.   In addition to this README, the package contains the following files:
  126.   
  127. diff -cr /user/mis/kstock/tmp/oraperl-v2.1/doc/Makefile ./doc/Makefile
  128. *** /user/mis/kstock/tmp/oraperl-v2.1/doc/Makefile    Fri Sep 25 14:38:59 1992
  129. --- ./doc/Makefile    Fri Sep 25 15:16:03 1992
  130. ***************
  131. *** 8,11 ****
  132.       $(NROFF) -man ../examples/sql >sql.man
  133.   
  134.   clobber:
  135. !     rm -f oraperl.man oraperl.ref.pr sql.man
  136. --- 8,11 ----
  137.       $(NROFF) -man ../examples/sql >sql.man
  138.   
  139.   clobber:
  140. !     rm -f oraperl.man oraperl.ref.pr sql.man nohup.out
  141. diff -cr /user/mis/kstock/tmp/oraperl-v2.1/doc/oraperl.1 ./doc/oraperl.1
  142. *** /user/mis/kstock/tmp/oraperl-v2.1/doc/oraperl.1    Fri Sep 25 14:38:37 1992
  143. --- ./doc/oraperl.1    Fri Sep 25 15:39:10 1992
  144. ***************
  145. *** 18,24 ****
  146.   
  147.   &ora_do($lda, $stmt)
  148.   
  149. ! &ora_titles($csr)
  150.   &ora_lengths($csr)
  151.   &ora_types($csr)
  152.   &ora_commit($lda)
  153. --- 18,24 ----
  154.   
  155.   &ora_do($lda, $stmt)
  156.   
  157. ! &ora_titles($csr [, $truncate])
  158.   &ora_lengths($csr)
  159.   &ora_types($csr)
  160.   &ora_commit($lda)
  161. ***************
  162. *** 160,165 ****
  163. --- 160,174 ----
  164.   &ora_bind($csr, 50, 'management', 'Paris');
  165.   .if t .ft P
  166.   
  167. + A \fBNULL\fP value (in the \fIOracle\fP sense)
  168. + may be bound by specifying an \fBundef\fPined value as a parameter.
  169. + For example:
  170. + 
  171. + .ti +.5i
  172. + .if t .ft CW
  173. + &ora_bind($csr, 70, 'marketing', undef);
  174. + .if t .fi P
  175. + 
  176.   This function is equivalent to the \fIOCI obndrn\fP and \fIoexec\fP statements.
  177.   
  178.   The \fIOCI obndrn\fP function does not allow empty strings to be bound.
  179. ***************
  180. *** 166,172 ****
  181.   As distributed, \fI$ora_bind\fP therefore replaces empty strings
  182.   with a single space.
  183.   However, a compilation option allows this substitution to be suppressed,
  184. ! causing \fI&ora_bind()\fP to fail.
  185.   The output from the \fI&ora_version()\fP function
  186.   specifies which is the case at your installation.
  187.   .\"
  188. --- 175,181 ----
  189.   As distributed, \fI$ora_bind\fP therefore replaces empty strings
  190.   with a single space.
  191.   However, a compilation option allows this substitution to be suppressed,
  192. ! causing \fI&ora_bind()\fP to fail in this case.
  193.   The output from the \fI&ora_version()\fP function
  194.   specifies which is the case at your installation.
  195.   .\"
  196. ***************
  197. *** 195,200 ****
  198. --- 204,212 ----
  199.   
  200.   Used in an array context,
  201.   the value returned is an array containing the data, one element per field.
  202. + If any field was \fBNULL\fP (in the \fIOracle\fP sense)
  203. + the corresponding data value will be \fBundef\fPined.
  204. + This may be tested using \fIPerl\fP's \fBdefined()\fP operator.
  205.   
  206.   An optional second parameter may be supplied
  207.   to indicate whether the truncation of a \fBLONG\fP or \fBLONGRAW\fP field
  208. ***************
  209. *** 222,228 ****
  210.   while (($deptno, $dname, $loc) = &ora_fetch($csr, 1))
  211.   {
  212.   .in +.5i
  213. ! warn "Truncated!!!" if $ora_errstr == 1406;
  214.   # do something with the data
  215.   .in -.5i
  216.   }
  217. --- 234,240 ----
  218.   while (($deptno, $dname, $loc) = &ora_fetch($csr, 1))
  219.   {
  220.   .in +.5i
  221. ! warn "Truncated!!!" if $ora_errno == 1406;
  222.   # do something with the data
  223.   .in -.5i
  224.   }
  225. ***************
  226. *** 290,306 ****
  227.   See, for example, the sample program \fBsql\fP
  228.   which is supplied with \fIOraperl\fP and may have been installed at your site.
  229.   .\"
  230. ! .SH "@titles = &ora_titles($csr)"
  231.   .\"
  232.   A program may determine the field titles of an executed query
  233.   by calling \fI&ora_titles()\fP.
  234. ! This function takes a single parameter,
  235.   a statement identifier (obtained from \fI&ora_open()\fP)
  236.   indicating the query for which the titles are required.
  237.   The titles are returned as an array of strings, one for each column.
  238.   
  239.   Titles are truncated to the length of the field,
  240. ! as reported by the \fI&ora_lengths()\fP function.
  241.   
  242.   This function is equivalent to the \fIOCI oname\fP function.
  243.   .\"
  244. --- 302,319 ----
  245.   See, for example, the sample program \fBsql\fP
  246.   which is supplied with \fIOraperl\fP and may have been installed at your site.
  247.   .\"
  248. ! .SH "@titles = &ora_titles($csr [, $truncate])"
  249.   .\"
  250.   A program may determine the field titles of an executed query
  251.   by calling \fI&ora_titles()\fP.
  252. ! This function takes one mandatory parameter,
  253.   a statement identifier (obtained from \fI&ora_open()\fP)
  254.   indicating the query for which the titles are required.
  255.   The titles are returned as an array of strings, one for each column.
  256.   
  257.   Titles are truncated to the length of the field,
  258. ! as reported by the \fI&ora_lengths()\fP function,
  259. ! unless the optional \fI$truncate\fP parameter is supplied and is zero.
  260.   
  261.   This function is equivalent to the \fIOCI oname\fP function.
  262.   .\"
  263. ***************
  264. *** 666,672 ****
  265.   not those performed on the data retrieved from the database.
  266.   .SH SEE ALSO
  267.   .nf
  268. ! Oracle Documentation:
  269.   .in +.5i
  270.   \fISQL Language Reference Manual\fP
  271.   \fIProgrammer's Guide to the Oracle Call Interfaces\fP
  272. --- 679,685 ----
  273.   not those performed on the data retrieved from the database.
  274.   .SH SEE ALSO
  275.   .nf
  276. ! \fIOracle\fP Documentation:
  277.   .in +.5i
  278.   \fISQL Language Reference Manual\fP
  279.   \fIProgrammer's Guide to the Oracle Call Interfaces\fP
  280. ***************
  281. *** 677,684 ****
  282.   \fIperl(1)\fP
  283.   .in -.5i
  284.   .fi
  285.   .SH AUTHORS
  286. ! \fIORACLE\fP by Oracle Corporation, California.
  287.   .br
  288.   \fIPerl\fP and \fICurseperl\fP by Larry Wall, Netlabs
  289.   .if t .ft C
  290. --- 690,700 ----
  291.   \fIperl(1)\fP
  292.   .in -.5i
  293.   .fi
  294. + .SH BUGS
  295. + "\fIOraperl\fP sounds like a denture cleaner."
  296. + (Buzz Moschetti in comp.lang.perl)
  297.   .SH AUTHORS
  298. ! \fIOracle\fP by Oracle Corporation, California.
  299.   .br
  300.   \fIPerl\fP and \fICurseperl\fP by Larry Wall, Netlabs
  301.   .if t .ft C
  302. diff -cr /user/mis/kstock/tmp/oraperl-v2.1/doc/oraperl.ref ./doc/oraperl.ref
  303. *** /user/mis/kstock/tmp/oraperl-v2.1/doc/oraperl.ref    Fri Sep 25 14:38:46 1992
  304. --- ./doc/oraperl.ref    Tue Sep 22 10:50:07 1992
  305. ***************
  306. *** 56,63 ****
  307.   .in +2m
  308.   
  309.   .ti -2m
  310. ! \fB@ary = &ora_titles($csr)\fP
  311.   Returns the column names associated with the query.
  312.   
  313.   .ti -2m
  314.   \fB@ary = &ora_lengths($csr)\fP
  315. --- 56,64 ----
  316.   .in +2m
  317.   
  318.   .ti -2m
  319. ! \fB@ary = &ora_titles($csr [, $truncate])\fP
  320.   Returns the column names associated with the query.
  321. + Names are truncated unless \fI$truncate\fP is supplied and is zero.
  322.   
  323.   .ti -2m
  324.   \fB@ary = &ora_lengths($csr)\fP
  325. diff -cr /user/mis/kstock/tmp/oraperl-v2.1/examples/Readme ./examples/Readme
  326. *** /user/mis/kstock/tmp/oraperl-v2.1/examples/Readme    Fri Sep 25 14:38:59 1992
  327. --- ./examples/Readme    Fri Sep 25 14:35:26 1992
  328. ***************
  329. *** 9,21 ****
  330.   
  331.   commit.pl    Demonstrates the use of &ora_commit() and &ora_rollback()
  332.   
  333. ! ex.pl        This was my first ever Oraperl script. I probably wrote it
  334.           before writing Oraperl! It reads data from a table and prints
  335. !         it using a format.
  336.   
  337.   mkdb.pl        Creates a database, puts some data into it, drops it. The nice
  338.           thing about this is that it detects whether it is running under
  339. !         Oraperl or Coraperl, and changes its output accordingly.
  340.   
  341.   oradump.pl    Dumps the contents of an Oracle table into a set of insert
  342.           statements.
  343. --- 9,24 ----
  344.   
  345.   commit.pl    Demonstrates the use of &ora_commit() and &ora_rollback()
  346.   
  347. ! ex.pl        This was my first ever Oraperl script. I think I wrote it even
  348.           before writing Oraperl! It reads data from a table and prints
  349. !         it using a format. It also illustrates how to recognise NULL
  350. !         fields.
  351.   
  352.   mkdb.pl        Creates a database, puts some data into it, drops it. The nice
  353.           thing about this is that it detects whether it is running under
  354. !         Oraperl or Coraperl, and changes its output accordingly. It
  355. !         also illustrates handling of NULL fields, with both &ora_bind()
  356. !         and &ora_fetch().
  357.   
  358.   oradump.pl    Dumps the contents of an Oracle table into a set of insert
  359.           statements.
  360. ***************
  361. *** 23,25 ****
  362. --- 26,32 ----
  363.   sql        This was written in response to a posting on the net, asking
  364.           whether there was a tool which would execute an SQL statement
  365.           specified on the command line. Manual page built-in.
  366. + 
  367. + tabinfo.pl    Displays the structure of the specified table.
  368. +         This is mainly to show the use of &ora_lengths, &ora_titles
  369. +         and &ora_types.
  370. diff -cr /user/mis/kstock/tmp/oraperl-v2.1/examples/ex.pl ./examples/ex.pl
  371. *** /user/mis/kstock/tmp/oraperl-v2.1/examples/ex.pl    Fri Sep 25 14:39:01 1992
  372. --- ./examples/ex.pl    Tue Sep 22 12:26:44 1992
  373. ***************
  374. *** 24,29 ****
  375. --- 24,31 ----
  376.   
  377.   while (($name, $phone) = &ora_fetch($csr))
  378.   {
  379. +     # mark any NULL fields found
  380. +     grep(defined || ($_ = '<NULL>'), $name, $phone);
  381.       write;
  382.   }
  383.   
  384. diff -cr /user/mis/kstock/tmp/oraperl-v2.1/examples/mkdb.pl ./examples/mkdb.pl
  385. *** /user/mis/kstock/tmp/oraperl-v2.1/examples/mkdb.pl    Fri Sep 25 14:38:48 1992
  386. --- ./examples/mkdb.pl    Fri Sep 25 12:35:10 1992
  387. ***************
  388. *** 9,14 ****
  389. --- 9,17 ----
  390.   #
  391.   # Date:        15th November 1991
  392.   #
  393. + # Modified to demonstrate NULL handling in &ora_bind and &ora_fetch()
  394. + #
  395. + # Date:        25th September 1992
  396.   
  397.   # First make sure that we are running under some form of perl.
  398.   
  399. ***************
  400. *** 102,107 ****
  401. --- 105,112 ----
  402.       $csr = &ora_open($lda, $LIST)            || die $ora_errstr;
  403.       while (($name, $ext) = &ora_fetch($csr))
  404.       {
  405. +         $name = '<-NULL->' unless defined($name);
  406. +         $ext = '<-NULL->' unless defined($ext);
  407.           do during();
  408.       }
  409.       die $ora_errstr if ($ora_errno != 0);
  410. ***************
  411. *** 115,120 ****
  412. --- 120,126 ----
  413.   $INSERT = "insert into tryit values (:1, :2)";
  414.   $LIST    = "select * from tryit order by name";
  415.   $DELETE    = "delete from tryit where name = :1";
  416. + $DELETE_NULL    = "delete from tryit where name is null";
  417.   $DROP    = "drop table tryit";
  418.   
  419.   # create the database
  420. ***************
  421. *** 127,134 ****
  422.   $csr = &ora_open($lda, $INSERT)            || die $ora_errstr;
  423.   while (<DATA>)
  424.   {
  425. !     m/([a-z]+):([0-9]+)/;
  426. !     do ora_bind($csr, $1, $2);
  427.   }
  428.   do ora_close($csr)                || die $ora_errstr;
  429.   
  430. --- 133,142 ----
  431.   $csr = &ora_open($lda, $INSERT)            || die $ora_errstr;
  432.   while (<DATA>)
  433.   {
  434. !     m/(.*):(.*)/;
  435. !     $name = ($1 eq 'NULL') ? undef : $1;
  436. !     $ext = ($2 eq 'NULL') ? undef : $2;
  437. !     do ora_bind($csr, $name, $ext);
  438.   }
  439.   do ora_close($csr)                || die $ora_errstr;
  440.   
  441. ***************
  442. *** 143,148 ****
  443. --- 151,157 ----
  444.       &ora_bind($csr, $name)            || die $ora_errstr;
  445.   }
  446.   &ora_close($csr)                || die $ora_errstr;
  447. + &ora_do($lda, $DELETE_NULL)            || die $ora_errstr;
  448.   
  449.   # check the result
  450.   do list();
  451. ***************
  452. *** 157,163 ****
  453. --- 166,175 ----
  454.   __END__
  455.   julia:292
  456.   angela:208
  457. + NULL:999
  458.   larry:424
  459.   catherine:201
  460. + nonumber:NULL
  461.   randal:306
  462.   arnold:305
  463. + NULL:NULL
  464. diff -cr /user/mis/kstock/tmp/oraperl-v2.1/examples/tabinfo.pl ./examples/tabinfo.pl
  465. *** /user/mis/kstock/tmp/oraperl-v2.1/examples/tabinfo.pl    Fri Sep 25 14:38:38 1992
  466. --- ./examples/tabinfo.pl    Tue Sep 22 12:29:38 1992
  467. ***************
  468. *** 40,46 ****
  469.   $lda = &ora_login($base, $user, $pass) || die $ora_errstr . "\n";
  470.   $csr = &ora_open($lda, "select * from $table") || die $ora_errstr . "\n";
  471.   
  472. ! (@name = &ora_titles($csr)) || die $ora_errstr . "\n";
  473.   (@length = &ora_lengths($csr)) || die $ora_errstr . "\n";
  474.   (@type = &ora_types($csr)) || die $ora_errstr . "\n";
  475.   
  476. --- 40,46 ----
  477.   $lda = &ora_login($base, $user, $pass) || die $ora_errstr . "\n";
  478.   $csr = &ora_open($lda, "select * from $table") || die $ora_errstr . "\n";
  479.   
  480. ! (@name = &ora_titles($csr, 0)) || die $ora_errstr . "\n";
  481.   (@length = &ora_lengths($csr)) || die $ora_errstr . "\n";
  482.   (@type = &ora_types($csr)) || die $ora_errstr . "\n";
  483.   
  484. diff -cr /user/mis/kstock/tmp/oraperl-v2.1/oracle.mus ./oracle.mus
  485. *** /user/mis/kstock/tmp/oraperl-v2.1/oracle.mus    Fri Sep 25 14:38:32 1992
  486. --- ./oracle.mus    Fri Sep 25 11:52:00 1992
  487. ***************
  488. *** 110,118 ****
  489.   END
  490.   
  491.       case US_ora_open:
  492. !     if ((items < 2) || (items > 3))
  493.           fatal("Usage: &ora_open($lda, $stmt [, $cache])");
  494. !     else {
  495.           char * retval;
  496.           char * lda              = (char *) str_get(st[1]);
  497.           char * stmt              = (char *) str_get(st[2]);
  498. --- 110,118 ----
  499.   END
  500.   
  501.       case US_ora_open:
  502. !     if ((items < 2) || (items > 3)) {
  503.           fatal("Usage: &ora_open($lda, $stmt [, $cache])");
  504. !     } else {
  505.           char * retval;
  506.           char * lda              = (char *) str_get(st[1]);
  507.           char * stmt              = (char *) str_get(st[2]);
  508. ***************
  509. *** 125,137 ****
  510.       return sp;
  511.   
  512.       case US_ora_titles:
  513. !     if (items != 1) {
  514. !         fatal("Usage: @array = &ora_titles($csr)");
  515.       } else {
  516. !         char *csr              = (char *) str_get(st[1]);
  517.           int  retval;
  518.   
  519. !         retval = ora_titles(csr);
  520.           astore(stack, sp + retval, Nullstr);
  521.           st = stack->ary_array + sp;
  522.           for (i = 0 ; i < retval ; i++) {
  523. --- 125,138 ----
  524.       return sp;
  525.   
  526.       case US_ora_titles:
  527. !     if ((items < 1) || (items > 2)) {
  528. !         fatal("Usage: @array = &ora_titles($csr [, $truncate])");
  529.       } else {
  530. !         char *csr                  = (char *) str_get(st[1]);
  531. !         int   truncate = (items == 1) ? 1 : (int)    str_gnum(st[2]);
  532.           int  retval;
  533.   
  534. !         retval = ora_titles(csr, truncate);
  535.           astore(stack, sp + retval, Nullstr);
  536.           st = stack->ary_array + sp;
  537.           for (i = 0 ; i < retval ; i++) {
  538. ***************
  539. *** 198,205 ****
  540. --- 199,210 ----
  541.           astore(stack, sp + retval, Nullstr);
  542.           st = stack->ary_array + sp;
  543.           for (i = 0 ; i < retval ; i++) {
  544. +             if (ora_result[i] == NULL) {
  545. +             st[i] = str_2mortal(&str_undef);
  546. +             } else {
  547.               tmps = ora_result[i];
  548.               st[i] = str_2mortal(str_make(tmps, strlen(tmps)));
  549. +             }
  550.           }
  551.           return sp + retval - 1;
  552.           } else {    /* in scalar context, return the number of fields */
  553. ***************
  554. *** 233,239 ****
  555.           {
  556.           for (i = 0 ; i < items - 1 ; i++)
  557.           {
  558. !             vars[i] = (char *) str_get(st[i+2]);
  559.           }
  560.           retval = ora_bind(csr, vars, items - 1);
  561.           free(vars);
  562. --- 238,252 ----
  563.           {
  564.           for (i = 0 ; i < items - 1 ; i++)
  565.           {
  566. !             if (st[i+2]->str_pok || st[i+2]->str_nok)
  567. !             {
  568. !                 vars[i] = (char *) str_get(st[i+2]);
  569. !             }
  570. !             else
  571. !             {
  572. !             /* we got an undef */
  573. !             vars[i] = NULL;
  574. !             }
  575.           }
  576.           retval = ora_bind(csr, vars, items - 1);
  577.           free(vars);
  578. diff -cr /user/mis/kstock/tmp/oraperl-v2.1/orafns.c ./orafns.c
  579. *** /user/mis/kstock/tmp/oraperl-v2.1/orafns.c    Fri Sep 25 14:38:40 1992
  580. --- ./orafns.c    Fri Sep 25 15:32:24 1992
  581. ***************
  582. *** 263,269 ****
  583.   
  584.       /* set up csr->data  to receive the information when we do a fetch
  585.        *      csr->rcode to receive the column return codes
  586. !      *      csr->len   with the data lengths (principally for ora_titles)
  587.        */
  588.   
  589.       if (cache < 1)
  590. --- 263,269 ----
  591.   
  592.       /* set up csr->data  to receive the information when we do a fetch
  593.        *      csr->rcode to receive the column return codes
  594. !      *      csr->len   with the data lengths
  595.        */
  596.   
  597.       if (cache < 1)
  598. ***************
  599. *** 430,446 ****
  600.    *
  601.    * returns the column headers for the query referenced by csr
  602.    *
  603. !  * overwrites the first position in each data array,
  604. !  * but this is acceptable since these values have always been returned.
  605.    */
  606.   
  607. ! int ora_titles(csr_s)
  608.   char *csr_s;
  609.   {
  610.       int i;
  611.       short len;
  612.       struct cursor *csr = (struct cursor *)strtoul(csr_s, (char **) NULL, 0);
  613.   
  614.       DBUG_ENTER("ora_titles");
  615.       DBUG_PRINT("entry", ("ora_titles(%s)", csr_s));
  616.       DBUG_PRINT("conv", ("string \"%s\" converted to csr %#lx", csr_s, csr));
  617. --- 430,453 ----
  618.    *
  619.    * returns the column headers for the query referenced by csr
  620.    *
  621. !  * As of version 2, patch 2, the column titles are written into a locally
  622. !  * allocated data area. This allows the entire name to be returned without
  623. !  * truncation. If the truncate flag is set, however, then the title is
  624. !  * truncated to the length of the data, to allow compatibility with the
  625. !  * old form.
  626.    */
  627.   
  628. ! int ora_titles(csr_s, truncate)
  629.   char *csr_s;
  630. + int truncate;
  631.   {
  632.       int i;
  633.       short len;
  634.       struct cursor *csr = (struct cursor *)strtoul(csr_s, (char **) NULL, 0);
  635.   
  636. +     static    int     n_titles    = 0;
  637. +     static    char    *titles        = NULL;
  638. + 
  639.       DBUG_ENTER("ora_titles");
  640.       DBUG_PRINT("entry", ("ora_titles(%s)", csr_s));
  641.       DBUG_PRINT("conv", ("string \"%s\" converted to csr %#lx", csr_s, csr));
  642. ***************
  643. *** 464,477 ****
  644.           DBUG_RETURN(0);
  645.       }
  646.   
  647.       for (i = 0 ; i < csr->nfields ; i++)
  648.       {
  649. !         len = csr->len[i];
  650.           oname(csr->csr, i + 1, (char *) -1, (short *) -1,
  651. !               csr->data[i], &len);
  652. !         ora_result[i] = csr->data[i];
  653.           DBUG_PRINT("info", ("field %4d (%lx) title \"%s\"",
  654. !             i, (long) csr->data[i], csr->data[i]));
  655.       }
  656.   
  657.       ora_errno = 0;
  658. --- 471,518 ----
  659.           DBUG_RETURN(0);
  660.       }
  661.   
  662. +     if (n_titles < csr->nfields)
  663. +     {
  664. +         n_titles = csr->nfields;
  665. + 
  666. +         /* we use free/malloc rather than realloc because we don't
  667. +          * need to preserve the contents of titles
  668. +          */
  669. + 
  670. +         if (titles != NULL)
  671. +         {
  672. +             DBUG_PRINT("free", ("freeing titles %lx",(long)titles));
  673. +             free(titles);
  674. +         }
  675. + 
  676. +         /* according to the manual, the title is a maximum of 240
  677. +          * characters. Here we allocate 256, which may lead to better
  678. +          * blocking?
  679. +          */
  680. + 
  681. +         if ((titles = (char *) malloc(256 * n_titles)) == NULL)
  682. +         {
  683. +             n_titles = 0;
  684. +             DBUG_PRINT("malloc",("insufficient memory for titles"));
  685. +             DBUG_PRINT("exit", ("returning 0"));
  686. +             DBUG_RETURN(0);
  687. +         }
  688. +         else
  689. +         {
  690. +             DBUG_PRINT("malloc", ("got titles %d bytes at %lx",
  691. +                 (256 * n_titles), (long) titles));
  692. +         }
  693. +     }
  694. + 
  695.       for (i = 0 ; i < csr->nfields ; i++)
  696.       {
  697. !         len = (truncate) ? csr->len[i] : 256;
  698.           oname(csr->csr, i + 1, (char *) -1, (short *) -1,
  699. !               &titles[256 * i], &len);
  700. !         ora_result[i] = &titles[256 * i];
  701. !         ora_result[i][len] = '\0';
  702.           DBUG_PRINT("info", ("field %4d (%lx) title \"%s\"",
  703. !             i, (long) ora_result[i], ora_result[i]));
  704.       }
  705.   
  706.       ora_errno = 0;
  707. ***************
  708. *** 677,684 ****
  709.               break;
  710.   
  711.           case 1405:
  712. !             DBUG_PRINT("info", ("field %d was NULL", i));
  713. !             *ora_result[i] = '\0';
  714.               break;
  715.   
  716.           case 1406:
  717. --- 718,724 ----
  718.               break;
  719.   
  720.           case 1405:
  721. !             ora_result[i] = NULL;
  722.               break;
  723.   
  724.           case 1406:
  725. ***************
  726. *** 710,716 ****
  727.           }
  728.   
  729.           DBUG_PRINT("info", ("field %4d (%lx) data \"%s\"",
  730. !             i, (long) ora_result[i], ora_result[i]));
  731.       }
  732.   
  733.       ++csr->next_entry;
  734. --- 750,757 ----
  735.           }
  736.   
  737.           DBUG_PRINT("info", ("field %4d (%lx) data \"%s\"",
  738. !             i, (long) ora_result[i],
  739. !             ora_result[i] ? ora_result[i] : "<NULL>"));
  740.       }
  741.   
  742.       ++csr->next_entry;
  743. ***************
  744. *** 731,736 ****
  745. --- 772,778 ----
  746.   int nitems;
  747.   {
  748.       int i;
  749. +     short null_flag = -1;
  750.   #ifndef    NO_BIND_PADDING
  751.       static char small_buf[2] = " ";
  752.   #endif
  753. ***************
  754. *** 757,762 ****
  755. --- 799,819 ----
  756.   
  757.       for (i = 0 ; i < nitems ; i++)
  758.       {
  759. +         if (vars[i] == NULL)
  760. +         {
  761. +         if ((obndrn(csr->csr, i+1, (char *) -1, 0,
  762. +             5, -1, &null_flag, (char *) -1, 0, 0)) != 0)
  763. +         {
  764. +             ora_errno = csr->csr->csrrc;
  765. +             DBUG_PRINT("exit", ("obndrn failed on field %d, <NULL>",
  766. +                 i + 1));
  767. +             DBUG_RETURN(0);
  768. +         }
  769. + 
  770. +         DBUG_PRINT("info", ("obndrn %d, <NULL> OK", (i + 1), vars[i]));
  771. +         }
  772. +         else
  773. +         {
  774.   #ifndef    NO_BIND_PADDING
  775.           if (vars[i][0] == '\0')
  776.           {
  777. ***************
  778. *** 774,779 ****
  779. --- 831,837 ----
  780.           }
  781.   
  782.           DBUG_PRINT("info", ("obndrn %d, \"%s\" OK", (i + 1), vars[i]));
  783. +         }
  784.       }
  785.   
  786.       if (oexec(csr->csr) != 0)
  787. diff -cr /user/mis/kstock/tmp/oraperl-v2.1/testdir/Standard-Results ./testdir/Standard-Results
  788. *** /user/mis/kstock/tmp/oraperl-v2.1/testdir/Standard-Results    Fri Sep 25 14:39:04 1992
  789. --- ./testdir/Standard-Results    Fri Sep 25 15:35:58 1992
  790. ***************
  791. *** 12,17 ****
  792. --- 12,18 ----
  793.   2 3 5 7 11 
  794.   2 fields, lengths 10, 40
  795.       types 1, 2
  796. +     names NAME, EXT
  797.          Name         Ext
  798.          ====         ===
  799.          angela       208
  800. ***************
  801. *** 19,28 ****
  802. --- 20,34 ----
  803.          catherine    201
  804.          julia        292
  805.          larry        424
  806. +        nonumber     <-N
  807.          randal       306
  808. +        <-NULL->     999
  809. +        <-NULL->     <-N
  810.   2 fields, lengths 10, 40
  811.       types 1, 2
  812. +     names NAME, EXT
  813.           Name         Ext
  814.          ====         ===
  815.          larry        424
  816. +        nonumber     <-N
  817.          randal       306
  818. diff -cr /user/mis/kstock/tmp/oraperl-v2.1/testdir/mkdb.pl ./testdir/mkdb.pl
  819. *** /user/mis/kstock/tmp/oraperl-v2.1/testdir/mkdb.pl    Fri Sep 25 14:39:58 1992
  820. --- ./testdir/mkdb.pl    Fri Sep 25 15:35:44 1992
  821. ***************
  822. *** 28,36 ****
  823. --- 28,38 ----
  824.       $nfields = &ora_fetch($csr)            || die $ora_errstr;
  825.       print "$nfields fields, lengths ", join(', ', &ora_lengths($csr)), "\n";
  826.       print "\ttypes ", join(', ', &ora_types($csr)), "\n";
  827. +     print "\tnames ", join(', ', &ora_titles($csr, 0)), "\n";
  828.   
  829.       while (($name, $ext) = &ora_fetch($csr))
  830.       {
  831. +         grep(defined || ($_ = '<-NULL->'), $name, $ext);
  832.           write;
  833.       }
  834.       die $ora_errstr if ($ora_errno != 0);
  835. ***************
  836. *** 53,60 ****
  837.   $csr = &ora_open($lda, $INSERT)            || die $ora_errstr;
  838.   while (<DATA>)
  839.   {
  840. !     m/([a-z]+):([0-9]+)/;
  841. !     do ora_bind($csr, $1, $2);
  842.   }
  843.   do ora_close($csr)                || die $ora_errstr;
  844.   
  845. --- 55,66 ----
  846.   $csr = &ora_open($lda, $INSERT)            || die $ora_errstr;
  847.   while (<DATA>)
  848.   {
  849. !     chop;
  850. !     ($name, $telno) = split(':', $_);
  851. !     undef $name if $name eq 'NULL';
  852. !     undef $telno if $telno eq 'NULL';
  853. ! 
  854. !     do ora_bind($csr, $name, $telno);
  855.   }
  856.   do ora_close($csr)                || die $ora_errstr;
  857.   
  858. ***************
  859. *** 69,74 ****
  860. --- 75,81 ----
  861.       &ora_bind($csr, $name)            || die $ora_errstr;
  862.   }
  863.   &ora_close($csr)                || die $ora_errstr;
  864. + &ora_do($lda, 'delete from tryit where name is null')    || die $ora_errstr;
  865.   
  866.   # check the result
  867.   do list();
  868. ***************
  869. *** 85,87 ****
  870. --- 92,97 ----
  871.   catherine:201
  872.   randal:306
  873.   arnold:305
  874. + NULL:999
  875. + nonumber:NULL
  876. + NULL:NULL
  877.  
  878. exit 0 # Just in case...
  879.