camlspotter avatar camlspotter committed 08ef359

preparing 1.0.1

Comments (0)

Files changed (14)

 OASISFormat: 0.2
 Name:        tiny_json
-Version:     1.0.0
+Version:     1.0.1
 Synopsis:    Tiny Json library from OCamltter
 Authors:     Yoshihiro Imai, Jun Furuse
 License:     MIT
 Plugins:      StdFiles (0.2)
 BuildType:    Custom (0.2)
 InstallType:    Custom (0.2)
-XCustomBuild: yes no | omake --install; omake
-XCustomInstall: omake install
-XCustomUninstall: omake uninstall
+XCustomBuild: yes no | omake --install; PREFIX=$prefix omake
+XCustomInstall: PREFIX=$prefix omake install
+XCustomUninstall: PREFIX=$prefix omake uninstall
 BuildTools: omake
-BuildDepends:  unix
 name="tiny_json"
-version="1.0.0"
-description="Tiny Json library from OCamltter"
-requires="unix"
+version="1.0.1"
+description="@descr@"
+requires=""
 archive(byte)="tiny_json.cmo"
 archive(native)="tiny_json.cmx"
 linkopts = ""
+name="@name@"
+version="@version@"
+description=A small Json library from OCAMLTTER
+requires=""
+archive(byte)="@name@.cmo"
+archive(native)="@name@.cmx"
+linkopts = ""
+(** This is Coq derived code. *)
 val encode : string -> string
 val decode : string -> string
   in
   show_aux 1
 
-(* It is simply print the result of show. *)
-let format ppf t = Format.fprintf ppf "%s" (show t)
+  let rec format_list sep f ppf = function
+    | [] -> ()
+    | [x] -> f ppf x
+    | x::xs -> f ppf x; Format.fprintf ppf sep; format_list sep f ppf xs
+
+  let rec format ppf = 
+    let open Format in
+    function
+      | String s -> fprintf ppf "%S" s
+      | Number f -> fprintf ppf "%f" f
+      | Object o -> 
+          fprintf ppf "{ @[%a@] }"
+            (format_list ";@ " (fun ppf (s,v) -> fprintf ppf "@[%s= @[<v2>%a@]@]" s format v)) o
+      | Array ts -> 
+          fprintf ppf "[ @[%a@] ]"
+            (format_list ";@ " (fun ppf v -> fprintf ppf "@[<v2>%a@]@]" format v)) ts
+      | Bool b -> fprintf ppf "%b" b
+      | Null -> fprintf ppf "()"
 
 let getf field t =
   match t with
   in
   iter 0
 
+(*
 let alp =
   char1 >>= fun c -> if c<>' ' && c<>'\n' && c<>'\t' && c<>'\r' then return c else error""
 
 let alps0 = many alp
 let alps = alp >>= fun c -> many alp >>= fun cs -> return (string_of_chars (c::cs))
-
+*)
 
 type token =
   | ObjOpen
-open Lazy
 open Util
 
 type 'a llist = Nil | Cons of 'a * 'a llist Lazy.t
 
-let hd = function | Nil -> failwith "hd" | Cons (x, xs) -> x
-let tl = function | Nil -> failwith "tl" | Cons (x, xs) -> !$xs
+let hd = function | Nil -> failwith "hd" | Cons (x, _xs) -> x
+let tl = function | Nil -> failwith "tl" | Cons (_x, xs) -> !$xs
 
 let rec take n l =
   match n, l with
   | 0, _ -> []
-  | n, Nil -> []
+  | _n, Nil -> []
   | n, Cons (x, xs) -> x :: take (n-1) !$xs
 
 let rec map f = function
   match xs with
   | Nil -> Nil
   | Cons(x, xs) when f x -> Cons (x, lazy (filter f !$xs))
-  | Cons(x, xs) -> filter f !$xs
+  | Cons(_x, xs) -> filter f !$xs
 
 let rec concat xss =
   match xss with 

lib/parserMonad.ml

       (p >>= fun x -> return (Some x)) <|> (return None)
 
 
-let char1_with_debug state = function
+let _char1_with_debug state = function
   | Nil -> Inr (state,"(Nil)")
   | Cons (x,xs) ->
       let next (pre,x0, _) =
 	(pre' , x, Llist.take 100 !$xs)
       in
       match x, state with
-      | '\n', (line,pos,cs) ->
+      | '\n', (line,_pos,cs) ->
 	  Inl (x,(line+1,-1, next cs), !$xs)
       | _, (line,pos,cs) ->
 	  Inl (x,(line, pos+1, next cs),!$xs)
 
 let run p state ts =
   match p state ts with
-  | Inl (x,state',xs) -> x
+  | Inl (x,_state',_xs) -> x
   | Inr err -> 
       raise (ParseError (showerr err))
 
   if n > 0 then (x >> (n-1)) / 2
   else x
 
+(* CR jfuruse: I bet it is equivalent with (lsr) *)
+let (>>) x n = 
+  let res = x >> n in
+  assert (x lsr n = res);
+  res
+  
 let utf16c_to_utf8c(x) =
   let n = int_of_string("0x" ^ x) in
   if n < 0x80 then
 external ( @@ ) : ('a -> 'b) -> 'a -> 'b = "%apply"
-external ( |> ) : 'a -> ('a -> 'b) -> 'b = "%revapply"
 
 let ($) g f = fun x -> g (f x)
 let id x = x
-let p = Printf.printf
-let pr = print_endline
 let tee f x = ignore @@ f x; x
-let const c = fun _ -> c
 
 let (!%) = Printf.sprintf
 let (!$) x = Lazy.force x
 
-let (--) a b =
-  let rec iter store a bi =
-    if a = bi then bi::store
-    else iter (bi::store) a (bi - 1)
-  in
-  if a <= b then iter [] a b
-  else List.rev @@ iter [] b a
-
-let rec repeat n f x =
-  if n > 0 then
-    (f x; repeat (n-1) f x)
-  else ()
-
-let list_concatmap f xs = List.concat (List.map f xs)
-
-let rec list_head = function
-  | [] -> raise (Invalid_argument "list_head: nil")
-  | x::_ -> x
-
-let rec list_last = function
-  | [] -> raise (Invalid_argument "list_last: nil")
-  | [x] -> x
-  | _::xs -> list_last xs
-
-let sint   = string_of_int
-let sfloat = string_of_float
-let sbool  = string_of_bool
-
-let string_foldr f s a0 =
-  let rec iter i a =
-    if i >= 0 then
-      iter (i-1) (f s.[i] a)
-    else a
-  in
-  iter (String.length s - 1) a0
-
 let slist delim show l =
   String.concat delim @@ List.map show l
 
-let chars_of_string s =
-  let rec iter n =
-    if n >= String.length s then
-      []
-    else 
-      s.[n] :: iter (n+1)
-  in 
-  iter 0
-
 let string_of_chars = slist "" (String.make 1)
 
 let string1 c = String.make 1 c
 
-let mapi f l =
-  List.rev @@ snd @@
-  List.fold_left (fun (i,store) b -> (i+1,f i b::store)) (0,[]) l
-
-let iteri f l =
-  ignore @@ List.fold_left (fun i x -> f i x; (i+1)) 0 l
-
 type ('l, 'r) either = Inl of 'l | Inr of 'r
 
-let list_of_hash t = Hashtbl.fold (fun k v store -> (k,v) :: store) t []
-
-let list_filter_map f xs =
-  List.rev @@ List.fold_left (fun ys x ->
-    match f x with
-    | Some y -> y::ys
-    | None -> ys) [] xs
-
 let maybe f x =
   try Inl (f x) with e -> Inr e
 let value = function
     Inl v -> v | Inr e -> raise e
-let value_or default = function
-  | Inl v -> v | Inr _ -> default
-
-module Option = struct
-  type 'a t = 'a option
-  let some x = Some x
-  let none = None
-      
-  let of_either = function
-    | Inl x -> Some x
-    | Inr _ -> None
-
-  let map f = function
-    | Some x -> Some (f x)
-    | None -> None
-
-  let sopt show = function
-    | Some x -> show x
-    | None -> "None"
-
-  let opt_min x y =
-    match x, y with
-    | Some x, Some y -> Some (min x y)
-    | x, None -> x
-    | None, y -> y
-
-  let maybe f x = of_either @@ maybe f x
-  let get_or_else default = function
-    | Some x -> x
-    | None -> default
-
-  let cat_options os =
-    let rec aux rev_xs = function
-      | [] -> List.rev rev_xs
-      | (Some x) :: os -> aux (x :: rev_xs) os
-      | None :: os -> aux rev_xs os
-    in
-    aux [] os
-end
 
 let open_with (opn, close) filepath f =
   let ch = opn filepath in
   value @@ tee (fun _ -> close ch) (maybe f ch)
+
 let open_in_with filepath f = open_with (open_in, close_in) filepath f
-let open_out_with filepath f = open_with (open_out, close_out) filepath f
-
-let read_all ch =
-  let rec iter store =
-    try iter @@ input_line ch :: store with
-    | End_of_file -> List.rev store
-  in
-  iter []
-
-let read_file filename = slist "\n" id @@ open_in_with filename read_all
-
-let just default = function
-  | Some x -> x
-  | None -> default
-
-let random_int =
-  Random.self_init ();
-  Random.int
 
 let to_hex n =
   let to_char = function
   if n < 0 then raise (Invalid_argument (!%"to_hex: (%d)" n))
   else string_of_chars @@ iter [] n
 
-open Unix
-module Date = struct
-  type t = float
-  let make year mon day h m s =
-    fst (mktime { tm_sec=s; tm_min=m; tm_hour=h;
-      tm_mday=day; tm_mon=mon-1; tm_year=year-1900;
-      tm_wday=0; tm_yday=0; tm_isdst=false
-    })
-  let make_from_gmt year mon day h m s =
-    let diff =  fst (mktime (gmtime 0.)) in
-    make year mon day h m s -. diff
-  let now : unit -> t = Unix.time
-  let year t = (localtime t).tm_year + 1900
-  let mon t = (localtime t).tm_mon + 1
-  let day t = (localtime t).tm_mday
-  let hour t = (localtime t).tm_hour
-  let min t = (localtime t).tm_min
-  let sec t = (localtime t).tm_sec
-  let lt d1 d2 = d1 < d2
-  let to_string t = !%"%4d/%02d/%02d %02d:%02d:%02d" (year t) (mon t) (day t)
-      (hour t) (min t) (sec t)
-  let pmonth = function
-    | "Jan" ->  1
-    | "Feb" ->  2
-    | "Mar" ->  3
-    | "Apr" ->  4
-    | "May" ->  5
-    | "Jun" ->  6
-    | "Jul" ->  7
-    | "Aug" ->  8
-    | "Sep" ->  9
-    | "Oct" -> 10
-    | "Nov" -> 11
-    | "Dec" -> 12
-    | unknown ->
-	raise (Invalid_argument ("Date.pmonth: unknown month ["^unknown^"]"))
-end
 external ( @@ ) : ('a -> 'b) -> 'a -> 'b = "%apply"
-external ( |> ) : 'a -> ('a -> 'b) -> 'b = "%revapply"
 val ( $ ) : ('a -> 'b) -> ('c -> 'a) -> 'c -> 'b
 val id : 'a -> 'a
+val ( !% ) : ('a, unit, string) format -> 'a
+val ( !$ ) : 'a Lazy.t -> 'a
+val slist : string -> ('a -> string) -> 'a list -> string
+val string_of_chars : char list -> string
+val string1 : char -> string
+type ('a, 'b) either = Inl of 'a | Inr of 'b
+val open_in_with : string -> (in_channel -> 'a) -> 'a
+val to_hex : int -> string
+
+(*
+external ( |> ) : 'a -> ('a -> 'b) -> 'b = "%revapply"
+
 val p : ('a, out_channel, unit) format -> 'a
 val pr : string -> unit
 val tee : ('a -> 'b) -> 'a -> 'a
 val const : 'a -> 'b -> 'a
-val ( !% ) : ('a, unit, string) format -> 'a
-val ( !$ ) : 'a Lazy.t -> 'a
+
 val ( -- ) : int -> int -> int list
 val repeat : int -> ('a -> 'b) -> 'a -> unit
 val list_concatmap : ('a -> 'b list) -> 'a list -> 'b list
 val list_head : 'a list -> 'a
 val list_last : 'a list -> 'a
 val sint : int -> string
-val sfloat : float -> string
-val sbool : bool -> string
-val string_foldr : (char -> 'a -> 'a) -> string -> 'a -> 'a
-val slist : string -> ('a -> string) -> 'a list -> string
+
 val chars_of_string : string -> char list
-val string_of_chars : char list -> string
-val string1 : char -> string
+
 val mapi : (int -> 'a -> 'b) -> 'a list -> 'b list
 val iteri : (int -> 'a -> 'b) -> 'a list -> unit
-type ('a, 'b) either = Inl of 'a | Inr of 'b
+
 val list_of_hash : ('a, 'b) Hashtbl.t -> ('a * 'b) list
 val list_filter_map : ('a -> 'b option) -> 'a list -> 'b list
 val maybe : ('a -> 'b) -> 'a -> ('b, exn) either
 val value : ('a, exn) either -> 'a
 val value_or : 'a -> ('a, exn) either -> 'a
-module Option :
-    sig
-      type 'a t = 'a option
-      val some : 'a -> 'a t
-      val none : 'a t
-      val map : ('a -> 'b) -> 'a t -> 'b t
-      val sopt : ('a -> string) -> 'a t -> string
-      val opt_min : 'a t -> 'a t -> 'a t
-      val maybe : ('a -> 'b) -> 'a -> 'b t
-      val get_or_else : 'a -> 'a t -> 'a
-      val cat_options : 'a option list -> 'a list
-    end
+module Option : sig
+  type 'a t = 'a option
+  val some : 'a -> 'a t
+  val none : 'a t
+  val map : ('a -> 'b) -> 'a t -> 'b t
+  val sopt : ('a -> string) -> 'a t -> string
+  val opt_min : 'a t -> 'a t -> 'a t
+  val maybe : ('a -> 'b) -> 'a -> 'b t
+  val get_or_else : 'a -> 'a t -> 'a
+  val cat_options : 'a option list -> 'a list
+end
 val open_with : ('a -> 'b) * ('b -> 'c) -> 'a -> ('b -> 'd) -> 'd
-val open_in_with : string -> (in_channel -> 'a) -> 'a
 val open_out_with : string -> (out_channel -> 'a) -> 'a
 val read_all : in_channel -> string list
-val read_file : string -> string
 val just : 'a -> 'a option -> 'a
-val random_int : int -> int
-val to_hex : int -> string
-module Date :
-  sig
-    type t = float
-    val make : int -> int -> int -> int -> int -> int -> float
-    val make_from_gmt : int -> int -> int -> int -> int -> int -> float
-    val year : float -> int
-    val mon : float -> int
-    val day : float -> int
-    val hour : float -> int
-    val min : float -> int
-    val sec : float -> int
-    val lt : t -> t -> bool
-    val to_string : t -> string
-    val pmonth : string -> int
-  end
+
+val sfloat : float -> string 
+val sbool : bool -> string 
+val string_foldr : (char -> 'a -> 'a) -> string -> 'a -> 'a 
+val read_file : string -> string 
+val random_int : int -> int 
+*)

opam/tiny_json.1.0.1/descr

+A small Json library from OCAMLTTER 
+This is a small Json printer/parser library extracted Yoshihiro IMAI's OCAMLTTER twitter client.
+

opam/tiny_json.1.0.1/opam

+opam-version: "1"
+maintainer: "jun.furuse@gmail.com"
+build: [
+  ["ocaml" "setup.ml" "-configure" "--prefix" "%{prefix}%"]
+  ["ocaml" "setup.ml" "-build"]
+  ["ocaml" "setup.ml" "-install"]
+]
+remove: [
+  ["ocaml" "setup.ml" "-uninstall"]
+]
+ocaml-version: [>= "4.0.0"]
+depends: ["ocamlfind" "omake"]

opam/tiny_json.1.0.1/url

+archive: "https://bitbucket.org/camlspotter/tiny_json/get/1.0.1.tar.gz"
 (* setup.ml generated for the first time by OASIS v0.3.0 *)
 
 (* OASIS_START *)
-(* DO NOT EDIT (digest: b1303bcff420ce0efc4278090a1ac1f0) *)
+(* DO NOT EDIT (digest: 84a3a0e97a6143063736738a10d0ae94) *)
 (*
    Regenerated by OASIS v0.3.0
    Visit http://oasis.forge.ocamlcore.org for more information and
    documentation about functions used in this file.
 *)
 module OASISGettext = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISGettext.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISGettext.ml"
 
   let ns_ str =
     str
 end
 
 module OASISContext = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISContext.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISContext.ml"
 
   open OASISGettext
 
 end
 
 module OASISString = struct
-(* # 1 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISString.ml" *)
+# 1 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISString.ml"
 
 
 
 end
 
 module OASISUtils = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISUtils.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISUtils.ml"
 
   open OASISGettext
 
 end
 
 module PropList = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/PropList.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/PropList.ml"
 
   open OASISGettext
 
     let clear t =
       Hashtbl.clear t
 
-(* # 71 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/PropList.ml" *)
+# 71 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/PropList.ml"
   end
 
   module Schema =
 end
 
 module OASISMessage = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISMessage.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISMessage.ml"
 
 
   open OASISGettext
 end
 
 module OASISVersion = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISVersion.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISVersion.ml"
 
   open OASISGettext
 
 end
 
 module OASISLicense = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISLicense.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISLicense.ml"
 
   (** License for _oasis fields
       @author Sylvain Le Gall
 end
 
 module OASISExpr = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISExpr.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISExpr.ml"
 
 
 
 end
 
 module OASISTypes = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISTypes.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISTypes.ml"
 
 
 
 
   type plugin_data = (all_plugin * plugin_data_purpose * (unit -> unit)) list
 
-(* # 102 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISTypes.ml" *)
+# 102 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISTypes.ml"
 
   type 'a conditional = 'a OASISExpr.choices 
 
 end
 
 module OASISUnixPath = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISUnixPath.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISUnixPath.ml"
 
   type unix_filename = string
   type unix_dirname = string
 end
 
 module OASISHostPath = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISHostPath.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISHostPath.ml"
 
 
   open Filename
 end
 
 module OASISSection = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISSection.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISSection.ml"
 
   open OASISTypes
 
 end
 
 module OASISBuildSection = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISBuildSection.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISBuildSection.ml"
 
 end
 
 module OASISExecutable = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISExecutable.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISExecutable.ml"
 
   open OASISTypes
 
 end
 
 module OASISLibrary = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISLibrary.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISLibrary.ml"
 
   open OASISTypes
   open OASISUtils
 end
 
 module OASISFlag = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISFlag.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISFlag.ml"
 
 end
 
 module OASISPackage = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISPackage.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISPackage.ml"
 
 end
 
 module OASISSourceRepository = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISSourceRepository.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISSourceRepository.ml"
 
 end
 
 module OASISTest = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISTest.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISTest.ml"
 
 end
 
 module OASISDocument = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISDocument.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISDocument.ml"
 
 end
 
 module OASISExec = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISExec.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISExec.ml"
 
   open OASISGettext
   open OASISUtils
 end
 
 module OASISFileUtil = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/oasis/OASISFileUtil.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/oasis/OASISFileUtil.ml"
 
   open OASISGettext
 
 
 # 2142 "setup.ml"
 module BaseEnvLight = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/base/BaseEnvLight.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/base/BaseEnvLight.ml"
 
   module MapString = Map.Make(String)
 
 
 # 2240 "setup.ml"
 module BaseContext = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/base/BaseContext.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/base/BaseContext.ml"
 
   open OASISContext
 
 end
 
 module BaseMessage = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/base/BaseMessage.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/base/BaseMessage.ml"
 
   (** Message to user, overrid for Base
       @author Sylvain Le Gall
 end
 
 module BaseEnv = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/base/BaseEnv.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/base/BaseEnv.ml"
 
   open OASISGettext
   open OASISUtils
 end
 
 module BaseArgExt = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/base/BaseArgExt.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/base/BaseArgExt.ml"
 
   open OASISUtils
   open OASISGettext
 end
 
 module BaseCheck = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/base/BaseCheck.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/base/BaseCheck.ml"
 
   open BaseEnv
   open BaseMessage
 end
 
 module BaseOCamlcConfig = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/base/BaseOCamlcConfig.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/base/BaseOCamlcConfig.ml"
 
 
   open BaseEnv
 end
 
 module BaseStandardVar = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/base/BaseStandardVar.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/base/BaseStandardVar.ml"
 
 
   open OASISGettext
 end
 
 module BaseFileAB = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/base/BaseFileAB.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/base/BaseFileAB.ml"
 
   open BaseEnv
   open OASISGettext
 end
 
 module BaseLog = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/base/BaseLog.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/base/BaseLog.ml"
 
   open OASISUtils
 
 end
 
 module BaseBuilt = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/base/BaseBuilt.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/base/BaseBuilt.ml"
 
   open OASISTypes
   open OASISGettext
 end
 
 module BaseCustom = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/base/BaseCustom.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/base/BaseCustom.ml"
 
   open BaseEnv
   open BaseMessage
 end
 
 module BaseDynVar = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/base/BaseDynVar.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/base/BaseDynVar.ml"
 
 
   open OASISTypes
 end
 
 module BaseTest = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/base/BaseTest.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/base/BaseTest.ml"
 
   open BaseEnv
   open BaseMessage
 end
 
 module BaseDoc = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/base/BaseDoc.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/base/BaseDoc.ml"
 
   open BaseEnv
   open BaseMessage
 end
 
 module BaseSetup = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/base/BaseSetup.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/base/BaseSetup.ml"
 
   open BaseEnv
   open BaseMessage
 
 # 4480 "setup.ml"
 module InternalConfigurePlugin = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/plugins/internal/InternalConfigurePlugin.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/plugins/internal/InternalConfigurePlugin.ml"
 
   (** Configure using internal scheme
       @author Sylvain Le Gall
 end
 
 module InternalInstallPlugin = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/plugins/internal/InternalInstallPlugin.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/plugins/internal/InternalInstallPlugin.ml"
 
   (** Install using internal scheme
       @author Sylvain Le Gall
 
 # 5233 "setup.ml"
 module CustomPlugin = struct
-(* # 21 "/home/jun/.share/projects/externals/oasis/_build/src/plugins/custom/CustomPlugin.ml" *)
+# 21 "/mnt/home/jun/.opam/system/build/oasis.0.3.0/src/plugins/custom/CustomPlugin.ml"
 
   (** Generate custom configure/build/doc/test/install system
       @author
             CustomPlugin.cmd_main =
               [
                  (OASISExpr.EBool true,
-                   ("yes", ["no"; "|"; "omake"; "--install;"; "omake"]))
+                   ("yes",
+                     [
+                        "no";
+                        "|";
+                        "omake";
+                        "--install;";
+                        "PREFIX=$prefix";
+                        "omake"
+                     ]))
               ];
             cmd_clean = [(OASISExpr.EBool true, None)];
             cmd_distclean = [(OASISExpr.EBool true, None)];
        CustomPlugin.main
          {
             CustomPlugin.cmd_main =
-              [(OASISExpr.EBool true, ("omake", ["install"]))];
+              [
+                 (OASISExpr.EBool true,
+                   ("PREFIX=$prefix", ["omake"; "install"]))
+              ];
             cmd_clean = [(OASISExpr.EBool true, None)];
             cmd_distclean = [(OASISExpr.EBool true, None)];
             };
        CustomPlugin.main
          {
             CustomPlugin.cmd_main =
-              [(OASISExpr.EBool true, ("omake", ["uninstall"]))];
+              [
+                 (OASISExpr.EBool true,
+                   ("PREFIX=$prefix", ["omake"; "uninstall"]))
+              ];
             cmd_clean = [(OASISExpr.EBool true, None)];
             cmd_distclean = [(OASISExpr.EBool true, None)];
             };
                CustomPlugin.cmd_main =
                  [
                     (OASISExpr.EBool true,
-                      ("yes", ["no"; "|"; "omake"; "--install;"; "omake"]))
+                      ("yes",
+                        [
+                           "no";
+                           "|";
+                           "omake";
+                           "--install;";
+                           "PREFIX=$prefix";
+                           "omake"
+                        ]))
                  ];
                cmd_clean = [(OASISExpr.EBool true, None)];
                cmd_distclean = [(OASISExpr.EBool true, None)];
           CustomPlugin.clean
             {
                CustomPlugin.cmd_main =
-                 [(OASISExpr.EBool true, ("omake", ["install"]))];
+                 [
+                    (OASISExpr.EBool true,
+                      ("PREFIX=$prefix", ["omake"; "install"]))
+                 ];
                cmd_clean = [(OASISExpr.EBool true, None)];
                cmd_distclean = [(OASISExpr.EBool true, None)];
                };
           CustomPlugin.clean
             {
                CustomPlugin.cmd_main =
-                 [(OASISExpr.EBool true, ("omake", ["uninstall"]))];
+                 [
+                    (OASISExpr.EBool true,
+                      ("PREFIX=$prefix", ["omake"; "uninstall"]))
+                 ];
                cmd_clean = [(OASISExpr.EBool true, None)];
                cmd_distclean = [(OASISExpr.EBool true, None)];
                }
                CustomPlugin.cmd_main =
                  [
                     (OASISExpr.EBool true,
-                      ("yes", ["no"; "|"; "omake"; "--install;"; "omake"]))
+                      ("yes",
+                        [
+                           "no";
+                           "|";
+                           "omake";
+                           "--install;";
+                           "PREFIX=$prefix";
+                           "omake"
+                        ]))
                  ];
                cmd_clean = [(OASISExpr.EBool true, None)];
                cmd_distclean = [(OASISExpr.EBool true, None)];
           CustomPlugin.distclean
             {
                CustomPlugin.cmd_main =
-                 [(OASISExpr.EBool true, ("omake", ["install"]))];
+                 [
+                    (OASISExpr.EBool true,
+                      ("PREFIX=$prefix", ["omake"; "install"]))
+                 ];
                cmd_clean = [(OASISExpr.EBool true, None)];
                cmd_distclean = [(OASISExpr.EBool true, None)];
                };
           CustomPlugin.distclean
             {
                CustomPlugin.cmd_main =
-                 [(OASISExpr.EBool true, ("omake", ["uninstall"]))];
+                 [
+                    (OASISExpr.EBool true,
+                      ("PREFIX=$prefix", ["omake"; "uninstall"]))
+                 ];
                cmd_clean = [(OASISExpr.EBool true, None)];
                cmd_distclean = [(OASISExpr.EBool true, None)];
                }
           ocaml_version = None;
           findlib_version = None;
           name = "tiny_json";
-          version = "1.0.0";
+          version = "1.0.1";
           license =
             OASISLicense.DEP5License
               (OASISLicense.DEP5Unit
           };
      oasis_fn = Some "_oasis";
      oasis_version = "0.3.0";
-     oasis_digest =
-       Some "n\173\024\229\nM\003\201\186\021\015\147y\244\n\190";
+     oasis_digest = Some "\233Q\181z\185jS\147\242pN\155\232v\170\222";
      oasis_exec = None;
      oasis_setup_args = [];
      setup_update = false;
 
 let setup () = BaseSetup.setup setup_t;;
 
-# 5536 "setup.ml"
+# 5577 "setup.ml"
 (* OASIS_STOP *)
 let () = setup ();;
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.