/[vdw]/trunk/exec_sql.c
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 /trunk/exec_sql.c

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

revision 3 by dpavlin, Sun Feb 6 14:32:43 2005 UTC revision 5 by dpavlin, Tue Feb 8 18:42:39 2005 UTC
# Line 11  Line 11 
11  #include <EXTERN.h>  #include <EXTERN.h>
12    
13  #include <perl.h>  #include <perl.h>
14  /*#include "flexdef.h"*/  #include "flexdef.h"
15    
16  #include "obj_srvr.tab.h"  #include "obj_srvr.tab.h"
17    
# Line 44  char buf[BUFSIZE]; Line 44  char buf[BUFSIZE];
44  char perl_buf[BUFSIZE];  char perl_buf[BUFSIZE];
45  char args[10][ARGSIZE];  char args[10][ARGSIZE];
46    
 /* external prototypes */  
 EXTERN_C void xs_init (pTHXo);  
   
47  /* local prototypes */  /* local prototypes */
48  int exec_sql();  int exec_sql();
49  int call_perl_get_data();  int call_perl_get_data();
# Line 193  int embed_perl_obj_srvr(int argc, char * Line 190  int embed_perl_obj_srvr(int argc, char *
190     my_perl = perl_alloc();     my_perl = perl_alloc();
191     perl_construct(my_perl);     perl_construct(my_perl);
192    
193     perl_parse(my_perl, xs_init, argc, argv, env);     perl_parse(my_perl, NULL, argc, argv, env);
194     perl_run(my_perl);  /* just to initialize */     perl_run(my_perl);  /* just to initialize */
195    
196     return 0;     return 0;
# Line 207  end_perl(void) { Line 204  end_perl(void) {
204  }  }
205    
206    
 int char2str(int *c, char *str) {  /* str must have size = 3 chars */  
   
     str[0] = *c;  
     str[1] = (c + 1) == '=' || (c + 1) == '>'  ?  *(c + 1)  :  '\0';  
     str[2] = '\0';  
   
     return 0;  
   
 }  
Legend:
Removed from v.3  
changed lines
  Added in v.5
  ViewVC Help
Powered by ViewVC 1.1.26