home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume22 / oraperl / patch02 / Patch02 < prev   
Encoding:
Text File  |  1991-08-25  |  23.4 KB  |  806 lines
  1. diff -c /user/mis/kstock/tmp/CHANGES ./CHANGES
  2. *** /user/mis/kstock/tmp/CHANGES    Fri Aug 23 08:50:45 1991
  3. --- ./CHANGES    Fri Aug 23 09:10:27 1991
  4. ***************
  5. *** 8,10 ****
  6. --- 8,16 ----
  7.   Added network addresses to the manual pages
  8.   Added a PATCHLEVEL file
  9.   No functional changes
  10. + 
  11. + Patch 02
  12. + ========
  13. + Added support for dynamically modifiable SQL statements
  14. + Added a Hints file
  15. + Corrected an error in the quick-reference sheet
  16. diff -c /user/mis/kstock/tmp/Makefile ./Makefile
  17. *** /user/mis/kstock/tmp/Makefile    Fri Aug 23 08:50:56 1991
  18. --- ./Makefile    Mon Aug  5 11:01:38 1991
  19. ***************
  20. *** 3,9 ****
  21.   # Change these to your ORACLE installation directory and Perl source directory
  22.   
  23.   ORACLE_HOME    = /usr/soft/oracle
  24. ! SRC        = /usr/soft/public/perl_4.0.09
  25.   
  26.   # Oracle Definitions, taken from proc.mk
  27.   
  28. --- 3,9 ----
  29.   # Change these to your ORACLE installation directory and Perl source directory
  30.   
  31.   ORACLE_HOME    = /usr/soft/oracle
  32. ! SRC        = /usr/soft/public/perl_4.0.10
  33.   
  34.   # Oracle Definitions, taken from proc.mk
  35.   
  36. ***************
  37. *** 27,48 ****
  38.   DEBUG        = -DPERL_DEBUGGING
  39.   CFLAGS        = $(DEBUG) -I$(SRC) $(GLOBINCS) -O
  40.   
  41. ! oraperl: $(SRC)/uperl.o usersub.o oracle.o orafns.o getcursor.o
  42. !     cc -o oraperl $(SRC)/uperl.o usersub.o oracle.o orafns.o getcursor.o \
  43. !         -lm $(OCILIB) $(NETLIBS) $(ORALIBS) $(CLIBS) $(LIBS)
  44.   
  45.   oracle.c: $(SRC)/usub/mus oracle.mus
  46. -     chmod +x $(SRC)/usub/mus
  47.       $(SRC)/usub/mus oracle.mus >oracle.c
  48.   
  49. ! usersub.o oracle.o orafns.o getcursor.o:    orafns.h
  50. ! 
  51. ! print:    Makefile orafns.h orafns.c oracle.mus usersub.c getcursor.c
  52. !     pr -fn Makefile orafns.h getcursor.c orafns.c oracle.mus usersub.c | \
  53. !         pr -fto4 -e > Print
  54. ! 
  55. ! man: oraperl.1
  56. !     nroff -man oraperl.1 >oraperl.man
  57.   
  58.   clean:
  59.       rm -f nohup.out oraperl *.o oracle.c oraperl.man Print tags out core
  60. --- 27,44 ----
  61.   DEBUG        = -DPERL_DEBUGGING
  62.   CFLAGS        = $(DEBUG) -I$(SRC) $(GLOBINCS) -O
  63.   
  64. ! SRCS        = usersub.c oracle.c orafns.c getcursor.c colons.c
  65. ! OBJS        = usersub.o oracle.o orafns.o getcursor.o colons.o
  66. ! HDRS        = orafns.h
  67. ! 
  68. ! oraperl: $(SRC)/uperl.o $(OBJS)
  69. !     cc -o oraperl $(SRC)/uperl.o $(OBJS)                \
  70. !           -lm $(OCILIB) $(NETLIBS) $(ORALIBS) $(CLIBS) $(LIBS)
  71.   
  72.   oracle.c: $(SRC)/usub/mus oracle.mus
  73.       $(SRC)/usub/mus oracle.mus >oracle.c
  74.   
  75. ! $(OBJS):    $(HDRS)
  76.   
  77.   clean:
  78.       rm -f nohup.out oraperl *.o oracle.c oraperl.man Print tags out core
  79. diff -c /user/mis/kstock/tmp/Oracle-v5 ./Oracle-v5
  80. *** /user/mis/kstock/tmp/Oracle-v5    Fri Aug 23 08:50:46 1991
  81. --- ./Oracle-v5    Wed Aug  7 09:24:00 1991
  82. ***************
  83. *** 20,28 ****
  84.   >
  85.   > LDFLAGS    = -L$(ORACLE_HOME)/c/libs -L$(ORACLE_HOME)/rdbms/libs
  86.   >
  87. ! > oraperl: $(SRC)/uperl.o usersub.o oracle.o orafns.o getcursor.o
  88. ! >     $(CC) -o oraperl $(LDFLAGS) $(SRC)/uperl.o usersub.o oracle.o orafns.o \
  89. ! >         getcursor.o $(ORALIBS) $(LIBS)
  90.   
  91.   Second method - much simpler. Only seems to require the first two libraries
  92.   (libocic and liboracle) of the previous method, but this time they live under
  93. --- 20,27 ----
  94.   >
  95.   > LDFLAGS    = -L$(ORACLE_HOME)/c/libs -L$(ORACLE_HOME)/rdbms/libs
  96.   >
  97. ! > oraperl: $(SRC)/uperl.o $(OBJS)
  98. ! >     $(CC) -o oraperl $(LDFLAGS) $(SRC)/uperl.o $(OBJS) $(ORALIBS) $(LIBS)
  99.   
  100.   Second method - much simpler. Only seems to require the first two libraries
  101.   (libocic and liboracle) of the previous method, but this time they live under
  102. diff -c /user/mis/kstock/tmp/PATCHLEVEL ./PATCHLEVEL
  103. *** /user/mis/kstock/tmp/PATCHLEVEL    Fri Aug 23 08:50:47 1991
  104. --- ./PATCHLEVEL    Mon Aug  5 11:01:39 1991
  105. ***************
  106. *** 1 ****
  107. ! 1
  108. --- 1 ----
  109. ! 2
  110. diff -c /user/mis/kstock/tmp/README ./README
  111. *** /user/mis/kstock/tmp/README    Fri Aug 23 08:50:56 1991
  112. --- ./README    Fri Aug 23 08:53:04 1991
  113. ***************
  114. *** 24,30 ****
  115.   be changed to  str_2static()  with the same arguments.
  116.   
  117.   I've only tested this on an Encore Multimax 520 running UMAX V (Sys Vr3.2),
  118. ! using Perl 3.0.34, 4.0.00 4.0.03 and 4.0.09 with Oracle version 6, as I don't
  119.   have access to any other system with Pro*C. I'd appreciate any comments,
  120.   bug-reports etc.
  121.   
  122. --- 24,30 ----
  123.   be changed to  str_2static()  with the same arguments.
  124.   
  125.   I've only tested this on an Encore Multimax 520 running UMAX V (Sys Vr3.2),
  126. ! using Perl 3.0.34, 4.0.00 4.0.03 and 4.0.10 with Oracle version 6, as I don't
  127.   have access to any other system with Pro*C. I'd appreciate any comments,
  128.   bug-reports etc.
  129.   
  130. ***************
  131. *** 37,52 ****
  132.       getcursor.c    functions to deal with the cursor pool
  133.       orafns.c    actual functions to interact with oracle
  134.       usersub.c    initialisation routine
  135.   
  136. ! Examples (taken from the manual page)
  137.       debug-p        tests to see if debugging is available
  138.       ex.pl        simple example of using the functions
  139.   
  140.   Documentation
  141.       oraperl.doc    explains some of the thinking behind Oraperl
  142.       oraperl.ref    quick reference (troff format)
  143.       oraperl.1    manual page
  144.       Oracle-v5    Hints for compiling Oraperl with Oracle v5
  145.   
  146.   Many thanks to Larry for Perl. Now if only we could get the Camel book
  147.   into France! Hmm. Any plans for "Le Livre Chameau"?
  148. --- 37,59 ----
  149.       getcursor.c    functions to deal with the cursor pool
  150.       orafns.c    actual functions to interact with oracle
  151.       usersub.c    initialisation routine
  152. +     colons.c    counts substitution variables in a statement
  153.   
  154. ! Examples
  155.       debug-p        tests to see if debugging is available
  156.       ex.pl        simple example of using the functions
  157. +     mkdb.pl        more extensive example, showing the use of ora_bind()
  158.   
  159.   Documentation
  160.       oraperl.doc    explains some of the thinking behind Oraperl
  161.       oraperl.ref    quick reference (troff format)
  162.       oraperl.1    manual page
  163. +     Hints        notes on using oraperl
  164.       Oracle-v5    Hints for compiling Oraperl with Oracle v5
  165. + 
  166. + Miscellaneous
  167. +     CHANGES        Summary of changes to Oraperl
  168. +     PATCHLEVEL    current patchlevel (2)
  169.   
  170.   Many thanks to Larry for Perl. Now if only we could get the Camel book
  171.   into France! Hmm. Any plans for "Le Livre Chameau"?
  172. diff -c /user/mis/kstock/tmp/getcursor.c ./getcursor.c
  173. *** /user/mis/kstock/tmp/getcursor.c    Fri Aug 23 08:50:57 1991
  174. --- ./getcursor.c    Mon Aug  5 11:01:39 1991
  175. ***************
  176. *** 269,275 ****
  177.    {
  178.       DEBUG(8, (fprintf(stderr, "check_csr(%#lx)\n", (long) csr)));
  179.   
  180. !     if (ora_findcursor(csr) && (csr->hda == NULL) && (csr->data != NULL))
  181.       {
  182.           DEBUG(8, (fputs("check_csr: valid\n", stderr)));
  183.           return (1);
  184. --- 269,275 ----
  185.    {
  186.       DEBUG(8, (fprintf(stderr, "check_csr(%#lx)\n", (long) csr)));
  187.   
  188. !     if (ora_findcursor(csr) && (csr->hda == NULL))
  189.       {
  190.           DEBUG(8, (fputs("check_csr: valid\n", stderr)));
  191.           return (1);
  192. diff -c /user/mis/kstock/tmp/oracle.mus ./oracle.mus
  193. *** /user/mis/kstock/tmp/oracle.mus    Fri Aug 23 08:50:57 1991
  194. --- ./oracle.mus    Mon Aug  5 11:01:39 1991
  195. ***************
  196. *** 25,30 ****
  197. --- 25,31 ----
  198.   static enum usersubs {
  199.       US_ora_login,
  200.       US_ora_open,
  201. +     US_ora_bind,
  202.       US_ora_fetch,
  203.       US_ora_close,
  204.       US_ora_logoff,
  205. ***************
  206. *** 53,58 ****
  207. --- 54,60 ----
  208.   
  209.       make_usub("ora_login",    US_ora_login,    usersub, filename);
  210.       make_usub("ora_open",    US_ora_open,    usersub, filename);
  211. +     make_usub("ora_bind",    US_ora_bind,    usersub, filename);
  212.       make_usub("ora_fetch",    US_ora_fetch,    usersub, filename);
  213.       make_usub("ora_close",    US_ora_close,    usersub, filename);
  214.       make_usub("ora_logoff",    US_ora_logoff,    usersub, filename);
  215. ***************
  216. *** 115,120 ****
  217. --- 117,148 ----
  218.       }
  219.       /* NOTREACHED */
  220.   
  221. +     case US_ora_bind:
  222. +     if (items < 2)
  223. +         fatal("Usage: &ora_bind($csr, $var ...)");
  224. +     else {
  225. +         char *csr        = (char *) str_get(st[1]);
  226. +         char **vars        = (char **) malloc((items-1) * sizeof(char *));
  227. +         int i, retval;
  228. + 
  229. +         if (vars == NULL)
  230. +         {
  231. +         ora_errno = ORAP_NOMEM;
  232. +         retval = 0;
  233. +         }
  234. +         else
  235. +         {
  236. +         for (i = 0 ; i < items - 1 ; i++)
  237. +         {
  238. +             vars[i] = (char *) str_get(st[i+2]);
  239. +         }
  240. +         retval = ora_bind(csr, vars, items - 1);
  241. +         }
  242. + 
  243. +         str_numset(st[0], (double) retval);
  244. +     }
  245. +     return sp;
  246. + 
  247.   CASE    char *    ora_close
  248.   I    char *    csr
  249.   END
  250. ***************
  251. *** 202,207 ****
  252. --- 230,243 ----
  253.   
  254.               case ORAP_NOSID:
  255.                   str_set(str, "couldn't set ORACLE_SID");
  256. +                 break;
  257. + 
  258. +             case ORAP_BADVAR:
  259. +                 str_set(str, "bad colon variable sequence");
  260. +                 break;
  261. + 
  262. +             case ORAP_NUMVARS:
  263. +                 str_set(str, "wrong number of variables");
  264.                   break;
  265.   
  266.               default:
  267. diff -c /user/mis/kstock/tmp/orafns.c ./orafns.c
  268. *** /user/mis/kstock/tmp/orafns.c    Fri Aug 23 08:50:57 1991
  269. --- ./orafns.c    Mon Aug  5 11:01:40 1991
  270. ***************
  271. *** 186,199 ****
  272.   }
  273.   
  274.   
  275. ! /* ora_open(lda, query)
  276.    *
  277. !  * sets and executes the specified sql query
  278.    */
  279.   
  280. ! char *ora_open(lda_s, query)
  281.   char *lda_s;
  282. ! char *query;
  283.   {
  284.       int i;
  285.       struct cursor *csr;
  286. --- 186,199 ----
  287.   }
  288.   
  289.   
  290. ! /* ora_open(lda, stmt)
  291.    *
  292. !  * sets and executes the specified sql statement
  293.    */
  294.   
  295. ! char *ora_open(lda_s, stmt)
  296.   char *lda_s;
  297. ! char *stmt;
  298.   {
  299.       int i;
  300.       struct cursor *csr;
  301. ***************
  302. *** 200,206 ****
  303.       struct cursor *lda = (struct cursor *) strtol(lda_s, (char **) NULL, 0);
  304.       short dbsize;
  305.   
  306. !     DEBUG(8, (fprintf(stderr, "ora_open(%#lx, %s)\n", (long) lda, query)));
  307.   
  308.       if (check_lda(lda) == 0)
  309.       {
  310. --- 200,206 ----
  311.       struct cursor *lda = (struct cursor *) strtol(lda_s, (char **) NULL, 0);
  312.       short dbsize;
  313.   
  314. !     DEBUG(8, (fprintf(stderr, "ora_open(%#lx, %s)\n", (long) lda, stmt)));
  315.   
  316.       if (check_lda(lda) == 0)
  317.       {
  318. ***************
  319. *** 216,224 ****
  320.           return((char *) NULL);
  321.       }
  322.   
  323.       if ((oopen(csr->csr, lda->csr, (char *)-1, -1, -1, (char *)-1, -1) != 0)
  324. !         || (osql3(csr->csr, query, -1) != 0)
  325. !         || (oexec(csr->csr) != 0))
  326.       {
  327.           ora_errno = csr->csr->csrrc;
  328.           ora_dropcursor(csr);
  329. --- 216,238 ----
  330.           return((char *) NULL);
  331.       }
  332.   
  333. +     /* Check whether there are any substitution variables in the statement
  334. +      * If there are, we don't execute the statement yet.
  335. +      */
  336. +     if ((csr->varfields = count_colons(stmt)) < 0)
  337. +     {
  338. +         DEBUG(8, (fputs("ora_open: invalid variable sequence\n",
  339. +             stderr)));
  340. +         ora_errno = ORAP_BADVAR;
  341. +         return((char *) NULL);
  342. +     }
  343. + 
  344. +     DEBUG(8, (fprintf(stderr,
  345. +         "ora_open: statement contains %d colons\n", csr->varfields)));
  346. + 
  347.       if ((oopen(csr->csr, lda->csr, (char *)-1, -1, -1, (char *)-1, -1) != 0)
  348. !         || (osql3(csr->csr, stmt, -1) != 0)
  349. !         || ((csr->varfields == 0) && (oexec(csr->csr) != 0)))
  350.       {
  351.           ora_errno = csr->csr->csrrc;
  352.           ora_dropcursor(csr);
  353. ***************
  354. *** 239,274 ****
  355.   
  356.       ora_errno = 0;
  357.   
  358. !     if ((csr->data = (char **) malloc(i * sizeof(char *))) == NULL)
  359. !     {
  360. !         DEBUG(128, (fputs("ora_open: out of memory\n", stderr)));
  361. !         DEBUG(8, (fputs("ora_open: returning NOMEM\n", stderr)));
  362. !         ora_errno = ORAP_NOMEM;
  363. !         ora_dropcursor(csr);
  364. !         return(0);
  365. !     }
  366. !     DEBUG(128, (fprintf(stderr, "ora_open: got data at %#lx\n",csr->data)));
  367. !     csr->nfields = i;
  368. ! 
  369. !     for (i = 0 ; i < csr->nfields ; i++)
  370.       {
  371. !         odsc(csr->csr, i + 1, &dbsize, (short *) 0, (short *) 0,
  372. !             (short *) 0, (char *) 0, (short *) 0, (short *) 0);
  373. ! 
  374. !         if ((csr->data[i] = (char *) malloc(dbsize + 1)) == NULL)
  375.           {
  376. -             csr->nfields = i;
  377. -             ora_dropcursor(csr);
  378. - 
  379.               DEBUG(128, (fputs("ora_open: out of memory\n",stderr)));
  380.               DEBUG(8, (fputs("ora_open: returning NOMEM\n",stderr)));
  381.               ora_errno = ORAP_NOMEM;
  382. !             return((char *) NULL);
  383.           }
  384. !         DEBUG(128, (fprintf(stderr, "ora_open: got field %d at %#lx\n",
  385. !             i, csr->data[i])));
  386. !         odefin(csr->csr, i + 1, csr->data[i], dbsize + 1, 5, 0,
  387. !             (short *) 0, (char *) 0, 0, 0, (short *) 0, (char *) 0);
  388.       }
  389.   
  390.       sprintf(address, "%#lx", (long) csr);
  391. --- 253,300 ----
  392.   
  393.       ora_errno = 0;
  394.   
  395. !     if (i > 0)
  396.       {
  397. !         if ((csr->data = (char **) malloc(i * sizeof(char *))) == NULL)
  398.           {
  399.               DEBUG(128, (fputs("ora_open: out of memory\n",stderr)));
  400.               DEBUG(8, (fputs("ora_open: returning NOMEM\n",stderr)));
  401.               ora_errno = ORAP_NOMEM;
  402. !             ora_dropcursor(csr);
  403. !             return(0);
  404. !         }
  405. !         DEBUG(128, (fprintf(stderr,
  406. !             "ora_open: got data at %#lx\n",csr->data)));
  407. !         csr->nfields = i;
  408. ! 
  409. !         for (i = 0 ; i < csr->nfields ; i++)
  410. !         {
  411. !             odsc(csr->csr, i + 1, &dbsize, (short *) 0, (short *) 0,
  412. !                 (short *) 0, (char *) 0, (short *) 0, (short *) 0);
  413. ! 
  414. !             if ((csr->data[i] = (char *) malloc(dbsize+1)) == NULL)
  415. !             {
  416. !                 csr->nfields = i;
  417. !                 ora_dropcursor(csr);
  418. !                 DEBUG(128, (fputs("ora_open: out of memory\n",
  419. !                     stderr)));
  420. !                 DEBUG(8, (fputs("ora_open: returning NOMEM\n",
  421. !                     stderr)));
  422. !                 ora_errno = ORAP_NOMEM;
  423. !                 return((char *) NULL);
  424. !             }
  425. !             DEBUG(128, (fprintf(stderr,
  426. !                 "ora_open: got field %d at %#lx\n",
  427. !                 i, csr->data[i])));
  428. !             odefin(csr->csr, i + 1, csr->data[i], dbsize + 1, 5, 0,
  429. !                 (short *) 0, (char *) 0, 0, 0, (short *) 0,
  430. !                 (char *) 0);
  431.           }
  432. !     }
  433. !     else
  434. !     {
  435. !         DEBUG(128, (fputs("ora_open: no data to return\n", stderr)));
  436. !         csr->data = NULL;
  437.       }
  438.   
  439.       sprintf(address, "%#lx", (long) csr);
  440. ***************
  441. *** 309,314 ****
  442. --- 335,397 ----
  443.       ora_errno = 0;
  444.       DEBUG(8, (fprintf(stderr,"ora_fetch: returning <%d>\n", csr->nfields)));
  445.       return(csr->nfields);
  446. + }
  447. + 
  448. + 
  449. + /* ora_bind(csr_s, vars, nitems)
  450. +  *
  451. +  * binds actual values to the SQL statement associated with csr
  452. +  */
  453. + 
  454. + int ora_bind(csr_s, vars, nitems)
  455. + char *csr_s, **vars;
  456. + int nitems;
  457. + {
  458. +     int i, ret;
  459. +     struct cursor *csr = (struct cursor *) strtol(csr_s, (char **) NULL, 0);
  460. + 
  461. +     DEBUG(8, (fprintf(stderr, "ora_bind(%#lx, %#lx, %d)\n",
  462. +         (long) csr, (long) vars, nitems)));
  463. + 
  464. +     if (check_csr(csr) == 0)
  465. +     {
  466. +         DEBUG(8, (fputs("ora_bind: returning 0\n", stderr)));
  467. +         ora_errno = ORAP_INVCSR;
  468. +         return(0);
  469. +     }
  470. + 
  471. +     if (csr->varfields != nitems)
  472. +     {
  473. +         DEBUG(8, (fprintf("ora_bind: expected %d items, got %d\n",
  474. +             csr->varfields, nitems)));
  475. +         ora_errno = ORAP_NUMVARS;
  476. +         return(0);
  477. +     }
  478. + 
  479. +     for (i = 0 ; i < nitems ; i++)
  480. +     {
  481. +         if ((ret = obndrn(csr->csr, i+1, vars[i], strlen(vars[i])+1,
  482. +             5, -1, (short *) -1, (char *) -1, 0, 0)) != 0)
  483. +         {
  484. +             ora_errno = csr->csr->csrrc;
  485. +             DEBUG(8, (fputs("ora_bind: returning 0\n", stderr)));
  486. +             return(0);
  487. +         }
  488. + 
  489. +         DEBUG(8, (fprintf(stderr, "ora_bind: obndrv %d %s OK\n",
  490. +             i + 1, vars[i])));
  491. +     }
  492. + 
  493. +     if (oexec(csr->csr) != 0)
  494. +     {
  495. +         ora_errno = csr->csr->csrrc;
  496. +         DEBUG(8, (fputs("ora_bind: returning 0\n", stderr)));
  497. +         return(0);
  498. +     }
  499. + 
  500. +     DEBUG(8, (fputs("ora_bind: oexec successful\n", stderr)));
  501. +     DEBUG(8, (fputs("ora_bind: returning 1\n", stderr)));
  502. +     return(1);
  503.   }
  504.   
  505.   
  506. diff -c /user/mis/kstock/tmp/orafns.h ./orafns.h
  507. *** /user/mis/kstock/tmp/orafns.h    Fri Aug 23 08:50:57 1991
  508. --- ./orafns.h    Mon Aug  5 11:01:40 1991
  509. ***************
  510. *** 17,23 ****
  511.           *ora_close(),
  512.           *ora_logoff();
  513.   
  514. ! int         ora_fetch();
  515.   
  516.   
  517.   /* These functions are internal to the system, not for public consumption */
  518. --- 17,24 ----
  519.           *ora_close(),
  520.           *ora_logoff();
  521.   
  522. ! int        ora_bind(),
  523. !         ora_fetch();
  524.   
  525.   
  526.   /* These functions are internal to the system, not for public consumption */
  527. ***************
  528. *** 66,72 ****
  529.       struct    csrdef    *csr;
  530.       char        *hda,        /* used if this cursor is an lda     */
  531.               **data;        /* used to receive database contents */
  532. !     int        nfields;    /* number of fields to retrieve         */
  533.       struct    cursor    *next;        /* list pointer                 */
  534.   };
  535.   
  536. --- 67,74 ----
  537.       struct    csrdef    *csr;
  538.       char        *hda,        /* used if this cursor is an lda     */
  539.               **data;        /* used to receive database contents */
  540. !     int        nfields,    /* number of fields to retrieve         */
  541. !             varfields;    /* number of modifiable variables    */
  542.       struct    cursor    *next;        /* list pointer                 */
  543.   };
  544.   
  545. ***************
  546. *** 73,78 ****
  547. --- 75,81 ----
  548.   
  549.   /* functions that we use */
  550.   
  551. + int    count_colons();
  552.   long    strtol();
  553.   char    *getenv(), *malloc();
  554.   
  555. ***************
  556. *** 125,131 ****
  557.   
  558.   #define    ORAP_ERRMIN    100000    /* lowest value allowed for an oraperl error */
  559.   
  560. ! #define    ORAP_NOMEM    100001    /* out of memory        */
  561. ! #define    ORAP_INVCSR    100002    /* invalid cursor supplied    */
  562. ! #define    ORAP_INVLDA    100003    /* invalid lda supplied        */
  563. ! #define    ORAP_NOSID    100004    /* couldn't set ORACLE_SID    */
  564. --- 128,136 ----
  565.   
  566.   #define    ORAP_ERRMIN    100000    /* lowest value allowed for an oraperl error */
  567.   
  568. ! #define    ORAP_NOMEM    100001    /* out of memory            */
  569. ! #define    ORAP_INVCSR    100002    /* invalid cursor supplied        */
  570. ! #define    ORAP_INVLDA    100003    /* invalid lda supplied            */
  571. ! #define    ORAP_NOSID    100004    /* couldn't set ORACLE_SID        */
  572. ! #define    ORAP_BADVAR    100005    /* bad colon variable sequence        */
  573. ! #define    ORAP_NUMVARS    100006    /* wrong number of colon variables    */
  574. diff -c /user/mis/kstock/tmp/oraperl.1 ./oraperl.1
  575. *** /user/mis/kstock/tmp/oraperl.1    Fri Aug 23 08:50:58 1991
  576. --- ./oraperl.1    Mon Aug  5 11:01:41 1991
  577. ***************
  578. *** 8,13 ****
  579. --- 8,14 ----
  580.   .nf
  581.   $lda = &ora_login($database, $name, $password)
  582.   $csr = &ora_open($lda, $stmt)
  583. + &ora_bind($csr, $var, ...)
  584.   &ora_fetch($csr)
  585.   &ora_close($csr)
  586.   &ora_logoff($lda)
  587. ***************
  588. *** 26,33 ****
  589.   using \fIora_login\fP.
  590.   This is called with three parameters, 
  591.   the system ID of the \fIOracle\fP database to be used,
  592. - (which \fIOracle\fP products expect
  593. - in the \fBORACLE_SID\fP environment variable)
  594.   and the \fIOracle\fP username and password.
  595.   The return value is a login identifier
  596.   (an \fIORACLE Login Data Area\fP).
  597. --- 27,32 ----
  598. ***************
  599. *** 40,45 ****
  600. --- 39,51 ----
  601.   The return value is a statement identifier
  602.   (an \fIORACLE cursor\fP).
  603.   
  604. + If the SQL statement contains substitution variables
  605. + (see later)
  606. + \fIora_bind\fP is used to assign values to them.
  607. + This takes a statement identifier (obtained from \fIora_open\fP)
  608. + as its first parameter,
  609. + followed by as many parameters as are required by the statement.
  610. + 
  611.   To retrieve the data returned from an \fISQL\fP \fBSELECT\fP statement,
  612.   the program should make successive calls to \fIora_fetch\fP.
  613.   This function takes a single parameter,
  614. ***************
  615. *** 71,76 ****
  616. --- 77,106 ----
  617.   from the last function call, and
  618.   \fIora_errstr\fP contains the \fIOracle\fP error message
  619.   corresponding to the current value of \fIora_errno\fP.
  620. + .SH SUBSTITUTION VARIABLES
  621. + \fIOraperl\fP allows an SQL statement to contain substitution variables.
  622. + These consist of a colon (\fB:\fP) followed by a number.
  623. + For example, a program which added records to a telephone list
  624. + might use the following call to \fIora_open\fP:
  625. + 
  626. + .ti +.5i
  627. + \f(CW$csr = &ora_open($csr, "insert into phonelist values(:1, :2)");\fP
  628. + 
  629. + The two names \fB:1\fP and \fB:2\fP are called substitution variables.
  630. + The function \fIora_bind\fP is used to assign values to these variables.
  631. + For example, the following statements would add two new people to the list:
  632. + 
  633. + .ti +.5i
  634. + \f(CW&ora_bind($csr, "Annette", "472-8836");\fP
  635. + .ti +.5i
  636. + \f(CW&ora_bind($csr, "Brian", "937-1823");\fP
  637. + 
  638. + Note that the substitution variables must be assigned consecutively
  639. + beginning from \fB1\fP for each SQL statement,
  640. + as \fBora_bind()\fP assigns its parameters in this order.
  641. + Named substitution variables
  642. + (for example, \fB:NAME\fP, \fB:TELNO\fP)
  643. + are not permitted.
  644.   .ne 28
  645.   .SH EXAMPLE
  646.   .if t .ft C
  647. ***************
  648. *** 90,96 ****
  649.   
  650.   die ("You should use oraperl, not perl\n") unless defined &ora_login;
  651.   
  652. ! $lda = &ora_login("t", "name", "password")
  653.       || die $ora_errstr;
  654.   $csr = &ora_open($lda, "select * from telno order by name")
  655.       || die $ora_errstr;
  656. --- 120,126 ----
  657.   
  658.   die ("You should use oraperl, not perl\n") unless defined &ora_login;
  659.   
  660. ! $lda = &ora_login("t", "kstock", "kstock")
  661.       || die $ora_errstr;
  662.   $csr = &ora_open($lda, "select * from telno order by name")
  663.       || die $ora_errstr;
  664. ***************
  665. *** 151,157 ****
  666.   \fIORACLE\fP by Oracle Corporation, California.
  667.   .br
  668.   \fIPerl\fP by Larry Wall, Netlabs
  669. ! (\f(CWlwall@netlabs.com\fP, \f(CWlwall@netlabs.com\fP).
  670.   .br
  671.   \fIOraperl\fP by Kevin Stock, Encore Computer SA, France
  672.   (\f(CWkstock@gouldfr.encore.fr\fP).
  673. --- 181,187 ----
  674.   \fIORACLE\fP by Oracle Corporation, California.
  675.   .br
  676.   \fIPerl\fP by Larry Wall, Netlabs
  677. ! (\f(CWlwall@netlabs.com\fP).
  678.   .br
  679.   \fIOraperl\fP by Kevin Stock, Encore Computer SA, France
  680.   (\f(CWkstock@gouldfr.encore.fr\fP).
  681. diff -c /user/mis/kstock/tmp/oraperl.doc ./oraperl.doc
  682. *** /user/mis/kstock/tmp/oraperl.doc    Fri Aug 23 08:50:23 1991
  683. --- ./oraperl.doc    Mon Aug  5 11:01:41 1991
  684. ***************
  685. *** 27,33 ****
  686.   because it requires fixed addresses to be specified for receipt of data.
  687.   A new interface was therefore created for \fBOraperl\fP.
  688.   
  689. ! The interface follows the idiom of the following five tasks:
  690.   
  691.   .in +5
  692.   .ta .4i 4.4i
  693. --- 27,33 ----
  694.   because it requires fixed addresses to be specified for receipt of data.
  695.   A new interface was therefore created for \fBOraperl\fP.
  696.   
  697. ! The interface follows the idiom of the following six tasks:
  698.   
  699.   .in +5
  700.   .ta .4i 4.4i
  701. ***************
  702. *** 34,51 ****
  703.   .nf
  704.   \fBTask        Interface\fP
  705.   
  706. ! \fB1\fP    log in to the database    ora_login
  707. ! \fB2\fP    open a stream for an SQL statement    ora_open
  708. ! \fB3\fP    get the data    ora_fetch
  709. ! \fB4\fP    close the stream    ora_close
  710. ! \fB5\fP    log off of the database    ora_logoff
  711.   .fi
  712.   .in -5
  713.   
  714. - Steps \fB2\fP and \fB3\fP are kept separate
  715. - because a single query may produce a large amount of data.
  716.   
  717. - 
  718.   .ce 2
  719.   \fBCursors\fP
  720.   _______
  721. --- 34,49 ----
  722.   .nf
  723.   \fBTask        Interface\fP
  724.   
  725. ! \fB1\fP    log in to the database    \fIora_login\fP
  726. ! \fB2\fP    open a stream for an SQL statement    \fIora_open\fP
  727. ! \fB3\fP    modify the statement    \fIora_bind\fP
  728. ! \fB4\fP    get the data    \fIora_fetch\fP
  729. ! \fB5\fP    close the stream    \fIora_close\fP
  730. ! \fB6\fP    log off of the database    \fIora_logoff\fP
  731.   .fi
  732.   .in -5
  733.   
  734.   
  735.   .ce 2
  736.   \fBCursors\fP
  737.   _______
  738. ***************
  739. *** 96,103 ****
  740.   
  741.   Requests a cursor (\fIcsr\fP)
  742.   and calls \fBOCI\ oopen\fP to connect it the the specified \fIlda\fP.
  743. ! It then calls \fBOCI\ osql3\fP to attach the SQL statement
  744. ! and \fBOCI\ oexec\fP to instruct \fIOracle\fP to execute it.
  745.   
  746.   If these three steps succeed,
  747.   \fBora_open\fP then makes successive calls to \fBOCI\ odsc\fP
  748. --- 94,102 ----
  749.   
  750.   Requests a cursor (\fIcsr\fP)
  751.   and calls \fBOCI\ oopen\fP to connect it the the specified \fIlda\fP.
  752. ! It then calls \fBOCI\ osql3\fP to attach the SQL statement.
  753. ! If the statement does not contain any substitution variables,
  754. ! \fIora_open\fP calls \fBOCI\ oexec\fP to instruct \fIOracle\fP to execute it.
  755.   
  756.   If these three steps succeed,
  757.   \fBora_open\fP then makes successive calls to \fBOCI\ odsc\fP
  758. ***************
  759. *** 105,110 ****
  760. --- 104,118 ----
  761.   It allocates memory for these fields within \fIcsr\fP
  762.   and attaches them to the cursor using \fBOCI\ odefin\fP.
  763.   It returns the address of the \fIcsr\fP.
  764. + 
  765. + 
  766. + \fBora_bind(csr, var, ...)\fP
  767. + 
  768. + Binds the specified \fIvar\fPs to the substitution variables
  769. + in the SQL statement identified by \fIcsr\fP
  770. + and calls \fBOCI\ oexec\fP to execute the resulting statement.
  771. + Assumes that the substitution variables are \fB:1\fP, \fB:2\fP, \fB:3\fP, etc
  772. + in the order that they appear in the \fBora_bind\fP call.
  773.   
  774.   
  775.   \fBora_fetch(csr)\fP
  776. diff -c /user/mis/kstock/tmp/oraperl.ref ./oraperl.ref
  777. *** /user/mis/kstock/tmp/oraperl.ref    Fri Aug 23 08:50:24 1991
  778. --- ./oraperl.ref    Mon Aug  5 11:01:41 1991
  779. ***************
  780. *** 17,25 ****
  781.   Returns an \fIlda\fP for use with \fIora_open()\fP.
  782.   .sp
  783.   .ti -2m
  784. ! \fB$csr = &ora_login($lda, $statement)\fP
  785. ! Executes the given SQL statement in the database identified by $lda.
  786.   Returns a \fIcsr\fP for use with \fIora_fetch()\fP.
  787.   .sp
  788.   .ti -2m
  789.   \fB$n = &ora_fetch($csr)\fP
  790. --- 17,31 ----
  791.   Returns an \fIlda\fP for use with \fIora_open()\fP.
  792.   .sp
  793.   .ti -2m
  794. ! \fB$csr = &ora_open($lda, $statement)\fP
  795. ! Associates the given SQL statement in the database identified by $lda.
  796. ! Executes it if it contains no substitution variables.
  797.   Returns a \fIcsr\fP for use with \fIora_fetch()\fP.
  798. + .sp
  799. + .ti -2m
  800. + \fB&ora_bind($csr, $var, ...)\fP
  801. + Binds the given values to the substition variables in the SQL statement
  802. + associated with $csr, and executes the resulting statement.
  803.   .sp
  804.   .ti -2m
  805.   \fB$n = &ora_fetch($csr)\fP
  806.