;;; -*- Mode: LISP; Syntax: COMMON-LISP; Base: 10 -*-
;;;
;;; Copyright (c) 2007, Ury Marshak
;;; The code comes with a BSD-style license, so you can basically do
;;; with it whatever you want. See the file LICENSE for details.
;;;

(in-package #:ht-ajax)

(declaim #.*optimization*)
;;


;;; This is the AJAX processor interfacing to the Lokris library
;;; ( http://www.ajaxbuch.de/lokris/ )


(defclass lokris-ajax-processor (library-ajax-processor)
  ())

(defmethod default-library-file-names ((processor lokris-ajax-processor))
  (declare (ignore processor))
  
  '("lokris.js"))

;;



(defun prepare-js-lokris-ajax-preamble (server-uri) 
  "Output a string containing the call functions."
  (concatenate 'string "
var ajax_server_uri = '" server-uri "';

function ajax_call_uri(func, callback_spec, args) {
  var uri = ajax_server_uri;
  var i;

  if (uri.indexOf('?') == -1)
    uri = uri + '?';
  else
    uri = uri + '&';

  uri = uri + ajax_encode_args(func, args);
  var callbacks = ajax_parse_callbacks(callback_spec);

  var error_cb = function (req) {
    if(callbacks[1]) {
        callbacks[1](req.status + ' ' + req.statusText)
    }
    else {
        debug_alert(req.status + ' ' + req.statusText);
    }
  }

  var request = Lokris.AjaxCall(uri, 
     function (response) {
       var data = response.responseText;
       ajax_call_maybe_evaluate_json(callbacks[0], 
                                     data, 
                                     response.getResponseHeader('Content-Type'));
     },
     {
       errorHandler: error_cb,
       rawResponse:true
     }
     );
}

function ajax_post_uri(func, callback_spec, args) {
  var params = ajax_encode_args(func, args);
  var callbacks = ajax_parse_callbacks(callback_spec);

  var error_cb = function (req) {
    if(callbacks[1]) {
        callbacks[1](req.status + ' ' + req.statusText)
    }
    else {
        debug_alert(req.status + ' ' + req.statusText);
    }
  }

  var request = Lokris.AjaxCall(ajax_server_uri,
     function (response) {
       var data = response.responseText;
       ajax_call_maybe_evaluate_json(callbacks[0], 
                                     data, 
                                     response.getResponseHeader('Content-Type'));
     },

     {postBody: params, 
      method: 'POST',
      errorHandler: error_cb,
      rawResponse:true
      });
}"
))




(defmethod %generate-js-code ((processor lokris-ajax-processor))
  (concatenate 'string
               (apply #'concatenate 'string
                      (prepare-js-debug-function processor)
                      (prepare-js-ajax-encode-args)
                      (prepare-js-parse-callbacks)
                      (prepare-js-ajax-is-json)
                      (prepare-js-ajax-call-maybe-evaluate-json)
                      (prepare-js-lokris-ajax-preamble (maybe-rewrite-url-for-session
                                                        (server-uri processor)))


                      (loop
                         for fun-name being the hash-keys
                         in (exported-funcs processor)
                         collect (apply #'prepare-js-ajax-function
                                        processor
                                        fun-name
                                        (js-function-name processor fun-name)
                                        (gethash fun-name (exported-funcs processor))))
                      )))