/[Search-TokyoDystopia]/TokyoDystopia.xs
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /TokyoDystopia.xs

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 24 by dpavlin, Mon Aug 18 18:57:26 2008 UTC revision 29 by dpavlin, Mon Aug 18 19:22:30 2008 UTC
# Line 184  PPCODE: Line 184  PPCODE:
184          if ( rnum > 0 ) {          if ( rnum > 0 ) {
185            av = newAV();            av = newAV();
186            for(i = 0; i < rnum; i++){            for(i = 0; i < rnum; i++){
187              av_push(av, newSViv( (int)results[i] ));              av_push(av, newSViv( (int)results[i] ));    // FIXME convert to double?
188            }            }
189            XPUSHs(sv_2mortal(newRV_noinc((SV *)av)));            XPUSHs(sv_2mortal(newRV_noinc((SV *)av)));
190          } else {          } else {
# Line 202  OUTPUT: Line 202  OUTPUT:
202          RETVAL          RETVAL
203    
204    
205  int  double
206  tcidbiternext(idb)  tcidbiternext(idb)
207          void *  idb          void *  idb
208  CODE:  CODE:
# Line 237  CODE: Line 237  CODE:
237  OUTPUT:  OUTPUT:
238          RETVAL          RETVAL
239    
240    
241    int
242    tcidbcopy(idb, path)
243            void *  idb
244            char *  path
245    CODE:
246            RETVAL = tcidbcopy(idb, path);
247    OUTPUT:
248            RETVAL
249    
250    
251    void
252    tcidbpath(idb)
253            void *  idb
254    PREINIT:
255            const char *path;
256    PPCODE:
257            path = tcidbpath(idb);
258            if(path){
259              XPUSHs(sv_2mortal(newSVpv(path, 0)));
260            } else {
261              XPUSHs((SV *)&PL_sv_undef);
262            }
263            XSRETURN(1);
264    
265    
266    double
267    tcidbrnum(idb)
268            void *  idb
269    CODE:
270            RETVAL = tcidbrnum(idb);
271    OUTPUT:
272            RETVAL
273    
274    
275    double
276    tcidbfsiz(idb)
277            void *  idb
278    CODE:
279            RETVAL = tcidbfsiz(idb);
280    OUTPUT:
281            RETVAL
282    
Legend:
Removed from v.24  
changed lines
  Added in v.29
  ViewVC Help
Powered by ViewVC 1.1.26