// Licensed under the Apache License, Version 2.0 (the "License"); you may not
// use this file except in compliance with the License.  You may obtain a copy
// of the License at
//
//   http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
// WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.  See the
// License for the specific language governing permissions and limitations under
// the License.

// A simple class to represent a database. Uses XMLHttpRequest to interface with
// the CouchDB server.

function CouchDB(name, options) {
  this.name = name;
  this.uri = "/" + encodeURIComponent(name) + "/";
  request = function(method, uri, requestOptions) {
      return CouchDB.request(method, uri, combine(requestOptions, options));
    }

  // Creates the database on the server
  this.createDb = function() {
    var req = request("PUT", this.uri);
    maybeThrowError(req);
    return JSON.parse(req.responseText);
  }

  // Deletes the database on the server
  this.deleteDb = function() {
    var req = request("DELETE", this.uri);
    if (req.status == 404)
      return false;
    maybeThrowError(req);
    return JSON.parse(req.responseText);
  }

  // Save a document to the database
  this.save = function(doc, options) {
    var req;
    if (doc._id == undefined)
      doc._id = CouchDB.newUuids(1)[0];

    req = request("PUT", this.uri  + encodeURIComponent(doc._id) + encodeOptions(options), {
      body: JSON.stringify(doc)
    });
    maybeThrowError(req);
    var result = JSON.parse(req.responseText);
    doc._rev = result.rev;
    return result;
  }

  // Open a document from the database
  this.open = function(docId, options) {
    var req = request("GET", this.uri + encodeURIComponent(docId) + encodeOptions(options));
    if (req.status == 404)
      return null;
    maybeThrowError(req);
    return JSON.parse(req.responseText);
  }

  // Deletes a document from the database
  this.deleteDoc = function(doc) {
    var req = request("DELETE", this.uri + encodeURIComponent(doc._id) + "?rev=" + doc._rev);
    maybeThrowError(req);
    var result = JSON.parse(req.responseText);
    doc._rev = result.rev; //record rev in input document
    doc._deleted = true;
    return result;
  }

  // Deletes an attachment from a document
  this.deleteDocAttachment = function(doc, attachment_name) {
    var req = request("DELETE", this.uri + encodeURIComponent(doc._id) + "/" + attachment_name + "?rev=" + doc._rev);
    maybeThrowError(req);
    var result = JSON.parse(req.responseText);
    doc._rev = result.rev; //record rev in input document
    return result;
  }
  
  this.bulkSave = function(docs, options) {
    // first prepoulate the UUIDs for new documents
    var newCount = 0
    for (var i=0; i<docs.length; i++) {
      if (docs[i]._id == undefined)
        newCount++;
    }
    var newUuids = CouchDB.newUuids(docs.length);
    var newCount = 0
    for (var i=0; i<docs.length; i++) {
      if (docs[i]._id == undefined)
        docs[i]._id = newUuids.pop();
    }
    var req = request("POST", this.uri + "_bulk_docs" + encodeOptions(options), {
      body: JSON.stringify({"docs": docs})
    });
    maybeThrowError(req);
    var result = JSON.parse(req.responseText);
    for (var i = 0; i < docs.length; i++) {
        docs[i]._rev = result.new_revs[i].rev;
    }
    return result;
  }

  // Applies the map function to the contents of database and returns the results.
  this.query = function(mapFun, reduceFun, options, keys) {
    var body = {language: "javascript"};
    if(keys) {
      body.keys = keys ;      
    }
    if (typeof(mapFun) != "string")
      mapFun = mapFun.toSource ? mapFun.toSource() : "(" + mapFun.toString() + ")";
    body.map = mapFun;
    if (reduceFun != null) {
      if (typeof(reduceFun) != "string")
        reduceFun = reduceFun.toSource ? reduceFun.toSource() : "(" + reduceFun.toString() + ")";
      body.reduce = reduceFun;
    }
    var req = request("POST", this.uri + "_temp_view" + encodeOptions(options), {
      headers: {"Content-Type": "application/json"},
      body: JSON.stringify(body)
    });
    maybeThrowError(req);
    return JSON.parse(req.responseText);
  }

  this.view = function(viewname, options, keys) {
    var req = null ;
    if(!keys) {
      req = request("GET", this.uri + "_view/" + viewname + encodeOptions(options));      
    } else {
      req = request("POST", this.uri + "_view/" + viewname + encodeOptions(options), {
        headers: {"Content-Type": "application/json"},
        body: JSON.stringify({keys:keys})
      });      
    }
    if (req.status == 404)
      return null;
    maybeThrowError(req);
    return JSON.parse(req.responseText);
  }

  // gets information about the database
  this.info = function() {
    var req = request("GET", this.uri);
    maybeThrowError(req);
    return JSON.parse(req.responseText);
  }

  this.allDocs = function(options,keys) {
    var req = null;
    if(!keys) {
      req = request("GET", this.uri + "_all_docs" + encodeOptions(options));      
    } else {
      req = request("POST", this.uri + "_all_docs" + encodeOptions(options), {
        headers: {"Content-Type": "application/json"},
        body: JSON.stringify({keys:keys})
      });      
    }
    maybeThrowError(req);
    return JSON.parse(req.responseText);
  }

  this.allDocsBySeq = function(options,keys) {
    var req = null;
    if(!keys) {
      req = request("GET", this.uri + "_all_docs_by_seq" + encodeOptions(options));      
    } else {
      req = request("POST", this.uri + "_all_docs_by_seq" + encodeOptions(options), {
        headers: {"Content-Type": "application/json"},
        body: JSON.stringify({keys:keys})
      });      
    }
    maybeThrowError(req);
    return JSON.parse(req.responseText);
  }

  this.compact = function() {
    var req = request("POST", this.uri + "_compact");
    maybeThrowError(req);
    return JSON.parse(req.responseText);
  }

  // Convert a options object to an url query string.
  // ex: {key:'value',key2:'value2'} becomes '?key="value"&key2="value2"'
  function encodeOptions(options) {
    var buf = []
    if (typeof(options) == "object" && options !== null) {
      for (var name in options) {
        if (!options.hasOwnProperty(name)) continue;
        var value = options[name];
        if (name == "key" || name == "startkey" || name == "endkey") {
          value = toJSON(value);
        }
        buf.push(encodeURIComponent(name) + "=" + encodeURIComponent(value));
      }
    }
    if (!buf.length) {
      return "";
    }
    return "?" + buf.join("&");
  }

  function toJSON(obj) {
    return obj !== null ? JSON.stringify(obj) : null;
  }
  
  function combine(object1, object2) {
    if (!object2) {
      return object1;
    }
    if (!object1) {
      return object2;
    }
    for (var name in object2) {
      object1[name] = object2[name];
    }
    return object1;
  }
  
  function maybeThrowError(req) {
    if (req.status >= 400) {
      if (req.responseText) {
        try {
          var result = JSON.parse(req.responseText);
        } catch (ParseError) {
          var result = {error:"unknown", reason:req.responseText};
        }
      } else {
        var result = {};
      }
      result.http_status = req.status;
      throw result;
    }
  }
}

CouchDB.allDbs = function() {
  var req = CouchDB.request("GET", "/_all_dbs");
  var result = JSON.parse(req.responseText);
  if (req.status != 200)
    throw result;
  return result;
}

CouchDB.getVersion = function() {
  var req = CouchDB.request("GET", "/");
  var result = JSON.parse(req.responseText);
  if (req.status != 200)
    throw result;
  return result.version;
}

CouchDB.replicate = function(source, target) {
  var req = CouchDB.request("POST", "/_replicate", {
    body: JSON.stringify({source: source, target: target})
  });
  var result = JSON.parse(req.responseText);
  if (req.status != 200)
    throw result;
  return result;
}

CouchDB.request = function(method, uri, options) {
  options = options || {};
  var req = null;
  if (typeof(XMLHttpRequest) != "undefined") {
    req = new XMLHttpRequest();
  } else if (typeof(ActiveXObject) != "undefined") {
    req = new ActiveXObject("Microsoft.XMLHTTP");
  } else {
    throw new Error("No XMLHTTPRequest support detected");
  }
  req.open(method, uri, false, options.username, options.password);
  if (options.headers) {
    var headers = options.headers;
    for (var headerName in headers) {
      if (!headers.hasOwnProperty(headerName)) continue;
      req.setRequestHeader(headerName, headers[headerName]);
    }
  }
  req.send(options.body || "");
  return req;
}

CouchDB.uuids_cache = [];

CouchDB.newUuids = function(n) {
  if (CouchDB.uuids_cache.length >= n) {
    var uuids = CouchDB.uuids_cache.slice(CouchDB.uuids_cache.length - n);
    if(CouchDB.uuids_cache.length - n == 0) {
      CouchDB.uuids_cache = [];
    } else {
      CouchDB.uuids_cache =
          CouchDB.uuids_cache.slice(0, CouchDB.uuids_cache.length - n);
    }
    return uuids;
  } else {
    var req = CouchDB.request("POST", "/_uuids?count=" + (100 + n));
    var result = JSON.parse(req.responseText);
    if (req.status != 200)
      throw result;
    CouchDB.uuids_cache =
        CouchDB.uuids_cache.concat(result.uuids.slice(0, 100));
    return result.uuids.slice(100);
  }
}