http.sc

;  MIT License

;  Copyright guenchi (c) 2018 - 2019 
         
;  Permission is hereby granted, free of charge, to any person obtaining a copy
;  of this software and associated documentation files (the "Software"), to deal
;  in the Software without restriction, including without limitation the rights
;  to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
;  copies of the Software, and to permit persons to whom the Software is
;  furnished to do so, subject to the following conditions:
         
;  The above copyright notice and this permission notice shall be included in all
;  copies or substantial portions of the Software.
         
;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
;  IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
;  FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
;  AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
;  LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
;  OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
;  SOFTWARE.



(library (igropyr http)
  (export
    server
    listen
    set
    request
    response
    sendfile
    errorpage
    header-parser
    path-parser
    par
  )
  (import
    (chezscheme)
    (only (core alist) ref)
  )


  (define lib (load-shared-object "./lib/igropyr/httpc.so"))

  (define igr_init
    (foreign-procedure "igr_init" (string string int) int))

  (define igr_request
    (foreign-procedure "igr_handle_request" (uptr uptr) int))

  (define igr_response
    (foreign-procedure "igr_response" (int string string string) string))

  (define igr_errorpage
    (foreign-procedure "igr_errorpage" (int string) string))

  (define header-parser
    (foreign-procedure "igr_header_parser" (string string) string))
 
  (define path-parser
    (foreign-procedure "igr_path_parser" (string int) string))

  (define par
    (foreign-procedure "igr_par" (string string) boolean))


  (define request
    (lambda (info)
      (let ((code (foreign-callable info (string string string) string)))
        (lock-object code)
        (foreign-callable-entry-point code))))

  (define response
    (lambda (status type content)
      (if (list? content)
        (igr_response status type (car content) (cadr content))
        (igr_response status type "" content))))

    (define sendfile
      (lambda (type content)
        (string-append " " content)))


    (define-syntax set
      (syntax-rules ()
        ((_) '())
        ((_ (e1 e2) ...) (list (cons e1 e2) ...))))
 
 

    (define-syntax listen
      (syntax-rules ()
        ((_) '())
        ((_ e) (cond 
                  ((string? e) (list (cons 'ip e)))
                  ((integer? e) (list (cons 'port e)))
                  (else '())))
        ((_ e1 e2) (list (cons 'ip e1)(cons 'port e2)))))

 
 
    (define-syntax errorpage
      (syntax-rules ()
        ((_ e) (igr_errorpage e ""))
        ((_ e1 e2) (igr_errorpage e1 e2))))
 
 

    (define server 
      (lambda (res_get res_post set listen)
        (define staticpath (or (ref set 'staticpath) ""))
        (define ip (or (ref listen 'ip) "0.0.0.0")) 
        (define port (or (ref listen 'port) 8080)) 
        (igr_request res_get res_post)
        (igr_init staticpath ip port)))




  
)