/[marvin]/marvin/src/libsip/perl_interface/perl_embed_stack.cc
ViewVC logotype

Diff of /marvin/src/libsip/perl_interface/perl_embed_stack.cc

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

revision 1.1 by exos, Thu Sep 11 05:03:06 2003 UTC revision 1.2 by exos, Thu Sep 11 21:02:13 2003 UTC
# Line 2  Line 2 
2  #include <EXTERN.h>  #include <EXTERN.h>
3  #include <perl.h>  #include <perl.h>
4  #include <stdio.h>  #include <stdio.h>
5    #include <stdlib.h>
6    
7  #define FILE_PERL "./perl_tk.pl"  #define FILE_PERL (getenv("MARVIN_PERL_FILE") ? getenv("MARVIN_PERL_FILE") : "./perl_tk.pl")
8    
9  static PerlInterpreter  *my_perl;  static PerlInterpreter  *my_perl;
10  static void xs_init _((void));  static void xs_init _((void));
# Line 38  static int             export_stack(double *tab, in Line 39  static int             export_stack(double *tab, in
39    
40  int export_p    (double *tab, int len, char *req)  int export_p    (double *tab, int len, char *req)
41  {  {
42    char          *my_argv[] = { "", FILE_PERL };    char          *my_argv[] = { "", (char *)FILE_PERL };
43    int           res;    int           res;
44    
45    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26