ProgressEvent = object of Event
  size*: int
  loaded*: int

XmlHttpRequestEventTarget = object of EventTarget
  onloadstart*: proc (e: Event)  ## Contains the function that gets called when the HTTP request first begins loading data and the loadstart event is received by this object.
  onprogress*: proc (e: ProgressEvent) ## Contains the function that is called periodically with information about the progress of the request and the progress event is received by this object.
  ontimeout*: proc (e: Event)    ## Contains the function that is called if the event times out and the timeout event is received by this object; this only happens if a timeout has been previously established by setting the value of the XMLHttpRequest object's timeout attribute.
  onloadend*: proc (e: Event)    ## Contains the function that is called when the load is completed, even if the request failed, and the loadend event is received by this object.
  

XmlHttpRequestUpload = object of XmlHttpRequestEventTarget

ReadyState = enum
  rsUNSENT = 0, rsOPENED = 1, rsHEADERS_RECEIVED = 2, rsLOADING = 3, rsDONE = 4

proc newXMLHttpRequest(): XMLHttpRequest {.
importcpp: "new XMLHttpRequest()"
.}

proc abort(r: XMLHttpRequest) {.
importcpp
.}

proc getAllResponseHeaders(r: XMLHttpRequest): cstring {.
importcpp
.}

proc getResponseHeader(r: XMLHttpRequest; name: cstring): cstring {.
importcpp
.}

proc open(r: XMLHttpRequest; methd: cstring; url: cstring; async: bool = true;
         user: cstring = nil; password: cstring = nil) {.
importcpp
.}

proc overrideMimeType(r: XMLHttpRequest; mime: cstring) {.
importcpp
.}

proc send(r: XMLHttpRequest) {.
importcpp
.}

proc send[](r: XMLHttpRequest; data: cstring | Document) {.
importcpp
.}

proc setRequestHeader(r: XMLHttpRequest; header, value: cstring) {.
importcpp
.}