source: tags/ms_r18q1/PERL2ARB/ARB.default.xs

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
33static 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
48MODULE = ARB PACKAGE = ARB PREFIX = P2A_
49PROTOTYPES: ENABLE
50
51void
52P2A_prepare_to_die()
53
54  PPCODE:
55    GBP_prepare_to_die();
56
57char *
58P2A_delete(gbd)
59    GBDATA *gbd
60
61  CODE:
62    RETVAL = const_cast<char *>(GB_delete(gbd));
63
64  OUTPUT:
65    RETVAL
66
67
68MODULE = 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.