;;; -*- 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 Yahoo User Interface Library
;;; ( http://developer.yahoo.com/yui/ )


(defclass yui-ajax-processor (library-ajax-processor)
  ())

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

;;


(defun prepare-js-yui-ajax-preamble (server-uri) 
  "Output a string containing the call function."
  (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 transaction = YAHOO.util.Connect.asyncRequest('GET',
          uri, 
          { success: function (response) {
              var data = response.responseText;
              ajax_call_maybe_evaluate_json(callbacks[0], 
                                     data, 
                                     response.getResponseHeader['Content-Type']);
            },
            failure: function (response) {
              if(callbacks[1]) {
                 callbacks[1](response.statusText); 
              }
              else {
                debug_alert(response.statusText); 
              }
            }
          }, 
          null);
}


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

  var transaction = YAHOO.util.Connect.asyncRequest('POST',
          ajax_server_uri, 
          { success: function (response) {
              var data = response.responseText;
              ajax_call_maybe_evaluate_json(callbacks[0], 
                                     data, 
                                     response.getResponseHeader['Content-Type']);
            },
            failure: function (response) {
              if(callbacks[1]) {
                 callbacks[1](response.statusText); 
              }
              else {
                debug_alert(response.statusText); 
              }
            }
          }, 
          params);
}"))




(defmethod %generate-js-code ((processor yui-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-yui-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))))
                      )))