View | Details | Raw Unified
Collapse All | Expand All

(-) clisp-2.41.orig/modules/fastcgi/fastcgi.lisp.orig (-2 / +6 lines)
 Lines 23-32    Link Here  
	$(CLISP) -c fastcgi.lisp
	$(CLISP) -c fastcgi.lisp

        
fastcgi.o:       fastcgi.c
fastcgi.o:       fastcgi.c

            

              
	$(CC) $(CPPFLAGS) $(CFLAGS) $(INCLUDES) -I.. -c fastcgi.c

              
	$(CC) $(CPPFLAGS) $(CFLAGS) -I$(INCLUDES) -I.. -c fastcgi.c

            

        

        
fastcgi_wrappers.o:       fastcgi_wrappers.c
fastcgi_wrappers.o:       fastcgi_wrappers.c

            

              
	$(CC) $(CPPFLAGS) $(CFLAGS) $(INCLUDES) -I.. -c fastcgi_wrappers.c

              
	$(CC) $(CPPFLAGS) $(CFLAGS) -I$(INCLUDES) -I.. -c fastcgi_wrappers.c

            

        

        
# Make a module
# Make a module

        
clisp-module : all
clisp-module : all

  

    

    

       Lines 148-153
       
    
  Link Here 
    

  

        
; --------------   "C" functions
; --------------   "C" functions

        
;(c-lines "#include \"fastcgi.h\"~%"); completely wrapped
;(c-lines "#include \"fastcgi.h\"~%"); completely wrapped

        

            

              
              
(eval-when (compile)

            

            

              
              
  ;;NB this global affects further compilations in this session

            

            

              
              
  (setq ffi:*output-c-functions* t))

            

            

              
              

            

        
; Our wrappers
; Our wrappers

        
(def-call-out fcgi_getenv       (:arguments (var c-string))               (:return-type c-string))
(def-call-out fcgi_getenv       (:arguments (var c-string))               (:return-type c-string))

        
(def-call-out fcgi_env          (:arguments)                              (:return-type (c-array-ptr c-string) :malloc-free))
(def-call-out fcgi_env          (:arguments)                              (:return-type (c-array-ptr c-string) :malloc-free))