Commits

camlspotter  committed 67cce48

dependency fixes

  • Participants
  • Parent commits fcb0742

Comments (0)

Files changed (8)

File lib/OMakefile

 FILES[] =
     std
     base
-
     xUnsafe
     http
     gChart

File lib/URL.ml

-open Spotlib_js.Spot
-
-let encode s =
-  let len = String.length s in
-  let b = Buffer.create & len * 2 in
-  for i = 0 to len - 1 do
-    match String.unsafe_get s i with
-    | 'a'..'z' | 'A'..'Z' | '0'..'9' | '-' | '.' | '_' | '~' as c -> Buffer.add_char b c
-    | c -> Buffer.add_string b & Printf.sprintf "%%%02x" (Char.code c)
-  done;
-  Buffer.contents b
-
-let make_query kvs =
-  String.concat "&" 
-  & List.map (fun (k,v) ->
-      let b = Buffer.create 100 in
-      Buffer.add_string b & encode k; 
-      Buffer.add_char b '=';
-      Buffer.add_string b & encode v;
-      Buffer.contents b) kvs
-

File lib/gChart.ml

 
 open Spotlib_js.Spot
 open Js
-open Std
+open Base
 
 module DataTable = struct
   class type t = object

File lib/gMaps.ml

 open Spotlib_js.Spot
 open Js
-
-open Std
+open Base
 
 module MapTypeId : sig
   type t = HYBIRD | ROADMAP | SATELLITE | TERRAIN

File lib/gMaps.mli

 open Js
-open Std
+open Base
 
 module MapTypeId : sig
   type t = HYBIRD | ROADMAP | SATELLITE | TERRAIN

File lib/google.ml

 open Js
-open Std
+open Base
 
 class type t = object
   method load : string_t (* name *) -> string_t (* version *) -> 'option Js.t (* option *) -> unit meth

File lib/google.mli

 (* Implements a very small subset of Google API *)
 
 open Js
-open Std
+open Base
 
 class type t = object
   method load : string_t (* name *) -> string_t (* version *) -> 'option Js.t (* option *) -> unit meth
   include Unsafe
   include XUnsafe
 end
+
+module Google = Google
+module GMaps = GMaps
+module GChart = GChart
+module Http = Http