Parent Directory | Revision Log | Patch
revision 15 by dpavlin, Mon Aug 18 17:26:01 2008 UTC | revision 17 by dpavlin, Mon Aug 18 17:45:56 2008 UTC | |
---|---|---|
# | Line 124 CODE: | Line 124 CODE: |
124 | OUTPUT: | OUTPUT: |
125 | RETVAL | RETVAL |
126 | ||
127 | ||
128 | void | |
129 | tcidbget(idb, id) | |
130 | void * idb | |
131 | int id | |
132 | PREINIT: | |
133 | char *vbuf; | |
134 | PPCODE: | |
135 | vbuf = tcidbget(idb, id); | |
136 | if(vbuf){ | |
137 | XPUSHs(sv_2mortal(newSVpvn(vbuf, strlen(vbuf)))); | |
138 | tcfree(vbuf); | |
139 | } else { | |
140 | XPUSHs((SV *)&PL_sv_undef); | |
141 | } | |
142 | XSRETURN(1); | |
143 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |