|
Last change
on this file was
12890,
checked in by westram, 10 years ago
|
- fix #602
- added manual wrapper for GB_delete
|
-
Property svn:eol-style set to
native
-
Property svn:keywords set to
Author Date Id Revision
|
|
File size:
1.9 KB
|
| Line | |
|---|
| 1 | /* -------------------------------------------------------------------------------- |
|---|
| 2 | * File : ARB.default.xs |
|---|
| 3 | * Purpose : Skeleton and predefined functions for ARB perl interface |
|---|
| 4 | * Copyright : Lehrstuhl fuer Mikrobiologie, TU Muenchen |
|---|
| 5 | * -------------------------------------------------------------------------------- */ |
|---|
| 6 | |
|---|
| 7 | #ifndef __cplusplus |
|---|
| 8 | #error please compile as C++ |
|---|
| 9 | #endif |
|---|
| 10 | |
|---|
| 11 | #include "EXTERN.h" |
|---|
| 12 | #include "perl.h" |
|---|
| 13 | #include "XSUB.h" |
|---|
| 14 | #include "debug.h" |
|---|
| 15 | #include "arbdb.h" |
|---|
| 16 | #include "arbdbt.h" |
|---|
| 17 | #include "adGene.h" |
|---|
| 18 | #include "ad_p_prot.h" |
|---|
| 19 | #include "adperl.h" |
|---|
| 20 | #include "ARB_ext.c" |
|---|
| 21 | |
|---|
| 22 | /* the following section avoids |
|---|
| 23 | * ARB.c:10268:5: error: declaration of 'Perl___notused' has a different language linkage |
|---|
| 24 | * on OSX / perl 5.16 |
|---|
| 25 | */ |
|---|
| 26 | #undef dNOOP |
|---|
| 27 | #ifdef __cplusplus |
|---|
| 28 | #define dNOOP (void)0 |
|---|
| 29 | #else |
|---|
| 30 | #define dNOOP extern int Perl___notused(void) |
|---|
| 31 | #endif |
|---|
| 32 | |
|---|
| 33 | static GB_shell4perl perl_shell; |
|---|
| 34 | |
|---|
| 35 | /* -------------------------------------------------------------------------------- |
|---|
| 36 | * if you get errors about undefined functions like |
|---|
| 37 | * |
|---|
| 38 | * GBP_charPtr_2_XXX |
|---|
| 39 | * GBP_XXX_2_charPtr |
|---|
| 40 | * |
|---|
| 41 | * you need to define them in ../ARBDB/adperl.c@enum_conversion_functions |
|---|
| 42 | */ |
|---|
| 43 | |
|---|
| 44 | /* -------------------------------------------------------------------------------- |
|---|
| 45 | * the following functions are hand-coded in ARB.default.xs: |
|---|
| 46 | */ |
|---|
| 47 | |
|---|
| 48 | MODULE = ARB PACKAGE = ARB PREFIX = P2A_ |
|---|
| 49 | PROTOTYPES: ENABLE |
|---|
| 50 | |
|---|
| 51 | void |
|---|
| 52 | P2A_prepare_to_die() |
|---|
| 53 | |
|---|
| 54 | PPCODE: |
|---|
| 55 | GBP_prepare_to_die(); |
|---|
| 56 | |
|---|
| 57 | char * |
|---|
| 58 | P2A_delete(gbd) |
|---|
| 59 | GBDATA *gbd |
|---|
| 60 | |
|---|
| 61 | CODE: |
|---|
| 62 | RETVAL = const_cast<char *>(GB_delete(gbd)); |
|---|
| 63 | |
|---|
| 64 | OUTPUT: |
|---|
| 65 | RETVAL |
|---|
| 66 | |
|---|
| 67 | |
|---|
| 68 | MODULE = ARB PACKAGE = BIO PREFIX = P2AT_ |
|---|
| 69 | |
|---|
| 70 | |
|---|
| 71 | # -------------------------------------------------------------------------------- |
|---|
| 72 | # functions below are auto-generated by ../PERLTOOLS/arb_proto_2_xsub.cxx |
|---|
| 73 | # using prototypes from the following files: |
|---|
| 74 | # |
|---|
| 75 | # ../ARBDB/ad_prot.h |
|---|
| 76 | # ../ARBDB/ad_t_prot.h |
|---|
| 77 | # ../ARBDB/adGene.h |
|---|
| 78 | # -------------------------------------------------------------------------------- |
|---|
| 79 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
