/[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 7 by dpavlin, Tue Feb 8 22:00:23 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 45  char perl_buf[BUFSIZE]; Line 45  char perl_buf[BUFSIZE];
45  char args[10][ARGSIZE];  char args[10][ARGSIZE];
46    
47  /* external prototypes */  /* external prototypes */
48  EXTERN_C void xs_init (pTHXo);  
49    EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
50    
51    
52    EXTERN_C void
53    xs_init(pTHX)
54    {
55            char *file = __FILE__;
56            /* DynaLoader is a special case */
57            newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
58    }
59    
60  /* local prototypes */  /* local prototypes */
61  int exec_sql();  int exec_sql();
# Line 207  end_perl(void) { Line 217  end_perl(void) {
217  }  }
218    
219    
 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.7
  ViewVC Help
Powered by ViewVC 1.1.26