Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 46 lines (38 sloc) 1.089 kB
4034f2e @audreyt * Raw import of HsPerl5 0.0.6.
audreyt authored
1 #ifndef HsPerl5DefinedH
2 #define HsPerl5DefinedH 1
3
4 #define dirent DIRENT
5 #define _INTPTR_T_DEFINED
6 #define _UINTPTR_T_DEFINED
7 #undef RETURN
8
9 #if defined(__OpenBSD__)
10 #define _P5EMBED_INIT _p5embed_init
11 #else
12 #define _P5EMBED_INIT __init
13 #endif
14
15 #include "EXTERN.h"
16 #include "perl.h"
17 #include "embed.h"
18
19 /*
20 PerlInterpreter * perl5_init ( int argc, char **argv );
21 bool perl5_SvROK(SV *inv);
22 bool perl5_can(SV *inv, char *subname);
23 */
24 SV * perl5_sv_undef ();
25 SV * perl5_sv_yes ();
26 SV * perl5_sv_no ();
27 SV ** perl5_eval(char *code, int len, int cxt);
28 char * perl5_SvPV ( SV * sv );
29 SV * perl5_newSVpvn ( char * pv, int len );
30 SV ** perl5_return_conv (int count);
31 SV ** perl5_apply(SV *sub, SV *inv, SV** args, int cxt);
32 SV * perl5_newSViv ( int iv );
33 int perl5_SvIV ( SV * sv );
34 double perl5_SvNV ( SV * sv );
35 SV * perl5_newSVnv ( double iv );
36 bool perl5_SvTRUE ( SV * sv );
37 SV * perl5_get_sv ( const char *name );
38 SV * perl5_get_cv ( const char *name );
39
40
41 #include <HsFFI.h>
42 extern SV ** hsPerl5Apply ( HsStablePtr *sub, SV **args, int cxt );
43 SV * perl5_make_cv ( HsStablePtr *sub );
44
45 #endif
Something went wrong with that request. Please try again.