PEPPLER.ORG
Michael Peppler
Sybase Consulting
Menu
Home
Sybase on Linux
Install Guide for Sybase on Linux
General Sybase Resources
General Perl Resources
Freeware
Sybperl
Sybase::Simple
DBD::Sybase
BCP Tool
Bug Tracker
Mailing List Archive
Downloads Directory
FAQs
Sybase on Linux FAQ
Sybperl FAQ
Personal
Michael Peppler's resume

sybperl-l Archive

Up    Prev    Next    

From: c22309 at j1xsfs90 dot is dot nwa dot com (Mark Conty)
Subject: Re: remove_xact in 2-phase-commit
Date: Nov 10 1995 2:19PM

Joel Truher writes:
> I know Michael is on vacation, but I wondered if anyone has added the
> remove_xact function to DBlib?  It's missing as far as I can tell, and I'm
> about to stick it in my copy of DBlib.xs, but if someone else has
> already done it, or I'm confused, I'd love to hear from you!

Here's a message that Michael sent me a while back, when I was first
getting into Sybperl.  Maybe it'll be of some help to you...

> From mpeppler@itf.CH Thu Sep  7 02:39:32 1995
> Date: Thu, 7 Sep 95 09:32:07 +0200
> From: mpeppler@itf.CH (Michael Peppler)
> To: c22309@j1xsfs90.is.nwa.com
> Subject: Re: Where to get SYBPerl (fwd)
> 
> [...snip...]
> 
> > How hard would it be for an
> > individual like m'self to add, say, a call to dbrettype()?  (Not that I
> > need that call in any way, but I'm just curious...)
> 
> :: looking up dbrettype in the manual ::
> 
> OK.
> 
> Edit DBlib.xs, and add
> 
> int
> dbrettype(dbp, retnum)
> 	SV *	dbp
> 	int	retnum
> CODE:
> {
>     DBPROCESS *dbproc = getDBPROC(dbp);
>     
>     RETVAL = dbrettype(dbproc, retnum);
>     /* RETVAL is automatically defined to int, as we declared this function
>        to return int */
> }
> OUTPUT:
> RETVAL
> 
> So you see, it ain't hard :-)
> Though you must be carefull with tabs and spaces. Don't leave any
> trailing spaces in the stuff outside of the {} block, make sure you
> have a tab between the parameter type and the parameter name 
> (SV *dbp\n).
> 
> Check man perlapi.1 for details...
> 
> Michael
> 
> PS. If you do add additional API calls I would be very gratefull if I
> could include them in forthcoming releases of sybperl.
> --
> Michael Peppler, ITF Management SA, Fontaine 13, CH-1204 Geneva
> mpeppler@itf.ch - Tel (4122) 818 3021 - Fax (4122) 312 1325
> GCS d+(-) s++: a C++ US++++$ P+++$ E++ W? N++ !w tv- b+++ G e+++ h---
> r+++ y?

See ya...  Good luck!
--
Mark D. Conty                                 c22309@j1xsfs90.is.nwa.com
Northwest Airlines                                  mdconty@idss.nwa.com
IS/Applications                   <><                  mdc@winternet.com