@tellahq/rescript 10.1.0-alpha.2 → 10.1.4-republish-2

package/freebsd/ninja.COPYING

@@ -1,202 +0,0 @@
-
-                                 Apache License
-                           Version 2.0, January 2010
-                        http://www.apache.org/licenses/
-
-   TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
-
-   1. Definitions.
-
-      "License" shall mean the terms and conditions for use, reproduction,
-      and distribution as defined by Sections 1 through 9 of this document.
-
-      "Licensor" shall mean the copyright owner or entity authorized by
-      the copyright owner that is granting the License.
-
-      "Legal Entity" shall mean the union of the acting entity and all
-      other entities that control, are controlled by, or are under common
-      control with that entity. For the purposes of this definition,
-      "control" means (i) the power, direct or indirect, to cause the
-      direction or management of such entity, whether by contract or
-      otherwise, or (ii) ownership of fifty percent (50%) or more of the
-      outstanding shares, or (iii) beneficial ownership of such entity.
-
-      "You" (or "Your") shall mean an individual or Legal Entity
-      exercising permissions granted by this License.
-
-      "Source" form shall mean the preferred form for making modifications,
-      including but not limited to software source code, documentation
-      source, and configuration files.
-
-      "Object" form shall mean any form resulting from mechanical
-      transformation or translation of a Source form, including but
-      not limited to compiled object code, generated documentation,
-      and conversions to other media types.
-
-      "Work" shall mean the work of authorship, whether in Source or
-      Object form, made available under the License, as indicated by a
-      copyright notice that is included in or attached to the work
-      (an example is provided in the Appendix below).
-
-      "Derivative Works" shall mean any work, whether in Source or Object
-      form, that is based on (or derived from) the Work and for which the
-      editorial revisions, annotations, elaborations, or other modifications
-      represent, as a whole, an original work of authorship. For the purposes
-      of this License, Derivative Works shall not include works that remain
-      separable from, or merely link (or bind by name) to the interfaces of,
-      the Work and Derivative Works thereof.
-
-      "Contribution" shall mean any work of authorship, including
-      the original version of the Work and any modifications or additions
-      to that Work or Derivative Works thereof, that is intentionally
-      submitted to Licensor for inclusion in the Work by the copyright owner
-      or by an individual or Legal Entity authorized to submit on behalf of
-      the copyright owner. For the purposes of this definition, "submitted"
-      means any form of electronic, verbal, or written communication sent
-      to the Licensor or its representatives, including but not limited to
-      communication on electronic mailing lists, source code control systems,
-      and issue tracking systems that are managed by, or on behalf of, the
-      Licensor for the purpose of discussing and improving the Work, but
-      excluding communication that is conspicuously marked or otherwise
-      designated in writing by the copyright owner as "Not a Contribution."
-
-      "Contributor" shall mean Licensor and any individual or Legal Entity
-      on behalf of whom a Contribution has been received by Licensor and
-      subsequently incorporated within the Work.
-
-   2. Grant of Copyright License. Subject to the terms and conditions of
-      this License, each Contributor hereby grants to You a perpetual,
-      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
-      copyright license to reproduce, prepare Derivative Works of,
-      publicly display, publicly perform, sublicense, and distribute the
-      Work and such Derivative Works in Source or Object form.
-
-   3. Grant of Patent License. Subject to the terms and conditions of
-      this License, each Contributor hereby grants to You a perpetual,
-      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
-      (except as stated in this section) patent license to make, have made,
-      use, offer to sell, sell, import, and otherwise transfer the Work,
-      where such license applies only to those patent claims licensable
-      by such Contributor that are necessarily infringed by their
-      Contribution(s) alone or by combination of their Contribution(s)
-      with the Work to which such Contribution(s) was submitted. If You
-      institute patent litigation against any entity (including a
-      cross-claim or counterclaim in a lawsuit) alleging that the Work
-      or a Contribution incorporated within the Work constitutes direct
-      or contributory patent infringement, then any patent licenses
-      granted to You under this License for that Work shall terminate
-      as of the date such litigation is filed.
-
-   4. Redistribution. You may reproduce and distribute copies of the
-      Work or Derivative Works thereof in any medium, with or without
-      modifications, and in Source or Object form, provided that You
-      meet the following conditions:
-
-      (a) You must give any other recipients of the Work or
-          Derivative Works a copy of this License; and
-
-      (b) You must cause any modified files to carry prominent notices
-          stating that You changed the files; and
-
-      (c) You must retain, in the Source form of any Derivative Works
-          that You distribute, all copyright, patent, trademark, and
-          attribution notices from the Source form of the Work,
-          excluding those notices that do not pertain to any part of
-          the Derivative Works; and
-
-      (d) If the Work includes a "NOTICE" text file as part of its
-          distribution, then any Derivative Works that You distribute must
-          include a readable copy of the attribution notices contained
-          within such NOTICE file, excluding those notices that do not
-          pertain to any part of the Derivative Works, in at least one
-          of the following places: within a NOTICE text file distributed
-          as part of the Derivative Works; within the Source form or
-          documentation, if provided along with the Derivative Works; or,
-          within a display generated by the Derivative Works, if and
-          wherever such third-party notices normally appear. The contents
-          of the NOTICE file are for informational purposes only and
-          do not modify the License. You may add Your own attribution
-          notices within Derivative Works that You distribute, alongside
-          or as an addendum to the NOTICE text from the Work, provided
-          that such additional attribution notices cannot be construed
-          as modifying the License.
-
-      You may add Your own copyright statement to Your modifications and
-      may provide additional or different license terms and conditions
-      for use, reproduction, or distribution of Your modifications, or
-      for any such Derivative Works as a whole, provided Your use,
-      reproduction, and distribution of the Work otherwise complies with
-      the conditions stated in this License.
-
-   5. Submission of Contributions. Unless You explicitly state otherwise,
-      any Contribution intentionally submitted for inclusion in the Work
-      by You to the Licensor shall be under the terms and conditions of
-      this License, without any additional terms or conditions.
-      Notwithstanding the above, nothing herein shall supersede or modify
-      the terms of any separate license agreement you may have executed
-      with Licensor regarding such Contributions.
-
-   6. Trademarks. This License does not grant permission to use the trade
-      names, trademarks, service marks, or product names of the Licensor,
-      except as required for reasonable and customary use in describing the
-      origin of the Work and reproducing the content of the NOTICE file.
-
-   7. Disclaimer of Warranty. Unless required by applicable law or
-      agreed to in writing, Licensor provides the Work (and each
-      Contributor provides its Contributions) on an "AS IS" BASIS,
-      WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
-      implied, including, without limitation, any warranties or conditions
-      of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
-      PARTICULAR PURPOSE. You are solely responsible for determining the
-      appropriateness of using or redistributing the Work and assume any
-      risks associated with Your exercise of permissions under this License.
-
-   8. Limitation of Liability. In no event and under no legal theory,
-      whether in tort (including negligence), contract, or otherwise,
-      unless required by applicable law (such as deliberate and grossly
-      negligent acts) or agreed to in writing, shall any Contributor be
-      liable to You for damages, including any direct, indirect, special,
-      incidental, or consequential damages of any character arising as a
-      result of this License or out of the use or inability to use the
-      Work (including but not limited to damages for loss of goodwill,
-      work stoppage, computer failure or malfunction, or any and all
-      other commercial damages or losses), even if such Contributor
-      has been advised of the possibility of such damages.
-
-   9. Accepting Warranty or Additional Liability. While redistributing
-      the Work or Derivative Works thereof, You may choose to offer,
-      and charge a fee for, acceptance of support, warranty, indemnity,
-      or other liability obligations and/or rights consistent with this
-      License. However, in accepting such obligations, You may act only
-      on Your own behalf and on Your sole responsibility, not on behalf
-      of any other Contributor, and only if You agree to indemnify,
-      defend, and hold each Contributor harmless for any liability
-      incurred by, or claims asserted against, such Contributor by reason
-      of your accepting any such warranty or additional liability.
-
-   END OF TERMS AND CONDITIONS
-
-   APPENDIX: How to apply the Apache License to your work.
-
-      To apply the Apache License to your work, attach the following
-      boilerplate notice, with the fields enclosed by brackets "[]"
-      replaced with your own identifying information. (Don't include
-      the brackets!)  The text should be enclosed in the appropriate
-      comment syntax for the file format. We also recommend that a
-      file or class name and description of purpose be included on the
-      same "printed page" as the copyright notice for easier
-      identification within third-party archives.
-
-   Copyright [yyyy] [name of copyright owner]
-
-   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.

package/lib/ocaml/arg.ml

@@ -1,359 +0,0 @@
-(**************************************************************************)
-(*                                                                        *)
-(*                                 OCaml                                  *)
-(*                                                                        *)
-(*              Damien Doligez, projet Para, INRIA Rocquencourt           *)
-(*                                                                        *)
-(*   Copyright 1996 Institut National de Recherche en Informatique et     *)
-(*     en Automatique.                                                    *)
-(*                                                                        *)
-(*   All rights reserved.  This file is distributed under the terms of    *)
-(*   the GNU Lesser General Public License version 2.1, with the          *)
-(*   special exception on linking described in the file LICENSE.          *)
-(*                                                                        *)
-(**************************************************************************)
-
-type key = string
-type doc = string
-type usage_msg = string
-type anon_fun = (string -> unit)
-
-type spec =
-  | Unit of (unit -> unit)     (* Call the function with unit argument *)
-  | Bool of (bool -> unit)     (* Call the function with a bool argument *)
-  | Set of bool ref            (* Set the reference to true *)
-  | Clear of bool ref          (* Set the reference to false *)
-  | String of (string -> unit) (* Call the function with a string argument *)
-  | Set_string of string ref   (* Set the reference to the string argument *)
-  | Int of (int -> unit)       (* Call the function with an int argument *)
-  | Set_int of int ref         (* Set the reference to the int argument *)
-  | Float of (float -> unit)   (* Call the function with a float argument *)
-  | Set_float of float ref     (* Set the reference to the float argument *)
-  | Tuple of spec list         (* Take several arguments according to the
-                                  spec list *)
-  | Symbol of string list * (string -> unit)
-                               (* Take one of the symbols as argument and
-                                  call the function with the symbol. *)
-  | Rest of (string -> unit)   (* Stop interpreting keywords and call the
-                                  function with each remaining argument *)
-  | Expand of (string -> string array) (* If the remaining arguments to process
-                                          are of the form
-                                          [["-foo"; "arg"] @ rest] where "foo" is
-                                          registered as [Expand f], then the
-                                          arguments [f "arg" @ rest] are
-                                          processed. Only allowed in
-                                          [parse_and_expand_argv_dynamic]. *)
-
-exception Bad of string
-exception Help of string
-
-type error =
-  | Unknown of string
-  | Wrong of string * string * string  (* option, actual, expected *)
-  | Missing of string
-  | Message of string
-
-exception Stop of error (* used internally *)
-
-
-
-let rec assoc3 x l =
-  match l with
-  | [] -> raise Not_found
-  | (y1, y2, _) :: _ when y1 = x -> y2
-  | _ :: t -> assoc3 x t
-
-
-let split s =
-  let i = String.index s '=' in
-  let len = String.length s in
-  String.sub s 0 i, String.sub s (i+1) (len-(i+1))
-
-
-let make_symlist prefix sep suffix l =
-  match l with
-  | [] -> "<none>"
-  | h::t -> (List.fold_left (fun x y -> x ^ sep ^ y) (prefix ^ h) t) ^ suffix
-
-
-let print_spec buf (key, spec, doc) =
-  if String.length doc > 0 then
-    match spec with
-    | Symbol (l, _) ->
-        let sym = make_symlist "{" "|" "}" l in 
-        Buffer.add_string buf {j|  $(key) $(sym)$(doc)\n|j}
-    | _ ->
-        Buffer.add_string buf {j|  $(key) $(doc)\n|j}
-
-
-
-let help_action () = raise (Stop (Unknown "-help"))
-
-let add_help speclist =
-  let add1 =
-    try ignore (assoc3 "-help" speclist); []
-    with Not_found ->
-            ["-help", Unit help_action, " Display this list of options"]
-  and add2 =
-    try ignore (assoc3 "--help" speclist); []
-    with Not_found ->
-            ["--help", Unit help_action, " Display this list of options"]
-  in
-  speclist @ (add1 @ add2)
-
-
-let usage_b buf speclist errmsg =
-  Buffer.add_string buf {j|$(errmsg)\n|j};
-  List.iter (print_spec buf) (add_help speclist)
-
-
-let usage_string speclist errmsg =
-  let b = Buffer.create 200 in
-  usage_b b speclist errmsg;
-  Buffer.contents b
-
-
-let usage speclist errmsg =
-  Js.log (usage_string speclist errmsg)
-
-
-let current = ref 0
-
-let bool_of_string_opt x =
-  try Some (bool_of_string x)
-  with Invalid_argument _ -> None
-
-let int_of_string_opt x =
-  try Some (int_of_string x)
-  with Failure _ -> None
-
-let float_of_string_opt x =
-  try Some (float_of_string x)
-  with Failure _ -> None
-
-let parse_and_expand_argv_dynamic_aux allow_expand current argv speclist anonfun errmsg =
-  let initpos = !current in
-  let convert_error error =
-    (* convert an internal error to a Bad/Help exception
-       *or* add the program name as a prefix and the usage message as a suffix
-       to an user-raised Bad exception.
-    *)
-    let b = Buffer.create 200 in
-    let progname = if initpos < (Array.length !argv) then !argv.(initpos) else "(?)" in
-    begin match error with
-      | Unknown "-help" -> ()
-      | Unknown "--help" -> ()
-      | Unknown s ->
-          Buffer.add_string b {j|$(progname): unknown option '$(s)'.\n|j} 
-      | Missing s ->
-          Buffer.add_string b {j|$(progname): option '$(s)' needs an argument.\n|j}
-      | Wrong (opt, arg, expected) ->
-          Buffer.add_string b {j|$(progname): wrong argument '$(arg)'; option '$(opt)' expects $(expected).\n|j}
-      | Message s -> (* user error message *)
-          Buffer.add_string b {j|$(progname): $(s).\n|j}
-    end;
-    usage_b b !speclist errmsg;
-    if error = Unknown "-help" || error = Unknown "--help"
-    then Help (Buffer.contents b)
-    else Bad (Buffer.contents b)
-  in
-  incr current;
-  while !current < (Array.length !argv) do
-    begin try
-      let s = !argv.(!current) in
-      if String.length s >= 1 && s.[0] = '-' then begin
-        let action, follow =
-          try assoc3 s !speclist, None
-          with Not_found ->
-          try
-            let keyword, arg = split s in
-            assoc3 keyword !speclist, Some arg
-          with Not_found -> raise (Stop (Unknown s))
-        in
-        let no_arg () =
-          match follow with
-          | None -> ()
-          | Some arg -> raise (Stop (Wrong (s, arg, "no argument"))) in
-        let get_arg () =
-          match follow with
-          | None ->
-              if !current + 1 < (Array.length !argv) then !argv.(!current + 1)
-              else raise (Stop (Missing s))
-          | Some arg -> arg
-        in
-        let consume_arg () =
-          match follow with
-          | None -> incr current
-          | Some _ -> ()
-        in
-        let rec treat_action = function
-        | Unit f -> f ();
-        | Bool f ->
-            let arg = get_arg () in
-            begin match bool_of_string_opt arg with
-            | None -> raise (Stop (Wrong (s, arg, "a boolean")))
-            | Some s -> f s
-            end;
-            consume_arg ();
-        | Set r -> no_arg (); r := true;
-        | Clear r -> no_arg (); r := false;
-        | String f ->
-            let arg = get_arg () in
-            f arg;
-            consume_arg ();
-        | Symbol (symb, f) ->
-            let arg = get_arg () in
-            if List.mem arg symb then begin
-              f arg;
-              consume_arg ();
-            end else begin
-              raise (Stop (Wrong (s, arg, "one of: "
-                                          ^ (make_symlist "" " " "" symb))))
-            end
-        | Set_string r ->
-            r := get_arg ();
-            consume_arg ();
-        | Int f ->
-            let arg = get_arg () in
-            begin match int_of_string_opt arg with
-            | None -> raise (Stop (Wrong (s, arg, "an integer")))
-            | Some x -> f x
-            end;
-            consume_arg ();
-        | Set_int r ->
-            let arg = get_arg () in
-            begin match int_of_string_opt arg with
-            | None -> raise (Stop (Wrong (s, arg, "an integer")))
-            | Some x -> r := x
-            end;
-            consume_arg ();
-        | Float f ->
-            let arg = get_arg () in
-            begin match float_of_string_opt arg with
-            | None -> raise (Stop (Wrong (s, arg, "a float")))
-            | Some x -> f x
-            end;
-            consume_arg ();
-        | Set_float r ->
-            let arg = get_arg () in
-            begin match float_of_string_opt arg with
-            | None -> raise (Stop (Wrong (s, arg, "a float")))
-            | Some x -> r := x
-            end;
-            consume_arg ();
-        | Tuple specs ->
-            List.iter treat_action specs;
-        | Rest f ->
-            while !current < (Array.length !argv) - 1 do
-              f !argv.(!current + 1);
-              consume_arg ();
-            done;
-        | Expand f ->
-            if not allow_expand then
-              raise (Invalid_argument "Arg.Expand is is only allowed with Arg.parse_and_expand_argv_dynamic");
-            let arg = get_arg () in
-            let newarg = f arg in
-            consume_arg ();
-            let before = Array.sub !argv 0 (!current + 1)
-            and after = Array.sub !argv (!current + 1) ((Array.length !argv) - !current - 1) in
-            argv:= Array.concat [before;newarg;after];
-        in
-        treat_action action end
-      else anonfun s
-    with | Bad m -> raise (convert_error (Message m));
-         | Stop e -> raise (convert_error e);
-    end;
-    incr current
-  done
-
-let parse_and_expand_argv_dynamic current argv speclist anonfun errmsg =
-  parse_and_expand_argv_dynamic_aux true current argv speclist anonfun errmsg
-
-let parse_argv_dynamic ?(current=current) argv speclist anonfun errmsg =
-  parse_and_expand_argv_dynamic_aux false current (ref argv) speclist anonfun errmsg
-
-
-let parse_argv ?(current=current) argv speclist anonfun errmsg =
-  parse_argv_dynamic ~current:current argv (ref speclist) anonfun errmsg
-
-
-let parse l f msg =
-  try
-    parse_argv Sys.argv l f msg
-  with
-  | Bad msg -> Js.log msg; exit 2
-  | Help msg -> Js.log msg; exit 0
-
-
-let parse_dynamic l f msg =
-  try
-    parse_argv_dynamic Sys.argv l f msg
-  with
-  | Bad msg -> Js.log msg; exit 2
-  | Help msg -> Js.log msg; exit 0
-
-let parse_expand l f msg =
-  try
-    let argv = ref Sys.argv in
-    let spec = ref l in
-    let current = ref (!current) in
-    parse_and_expand_argv_dynamic current argv spec f msg
-  with
-  | Bad msg -> Js.log msg; exit 2
-  | Help msg -> Js.log msg; exit 0
-
-
-let second_word s =
-  let len = String.length s in
-  let rec loop n =
-    if n >= len then len
-    else if s.[n] = ' ' then loop (n+1)
-    else n
-  in
-  match String.index s '\t' with
-  | n -> loop (n+1)
-  | exception Not_found ->
-      begin match String.index s ' ' with
-      | n -> loop (n+1)
-      | exception Not_found -> len
-      end
-
-
-let max_arg_len cur (kwd, spec, doc) =
-  match spec with
-  | Symbol _ -> max cur (String.length kwd)
-  | _ -> max cur (String.length kwd + second_word doc)
-
-
-let replace_leading_tab s =
-  let seen = ref false in
-  String.map (function '\t' when not !seen -> seen := true; ' ' | c -> c) s
-
-let add_padding len ksd =
-  match ksd with
-  | (_, _, "") ->
-      (* Do not pad undocumented options, so that they still don't show up when
-       * run through [usage] or [parse]. *)
-      ksd
-  | (kwd, (Symbol _ as spec), msg) ->
-      let cutcol = second_word msg in
-      let spaces = String.make ((max 0 (len - cutcol)) + 3) ' ' in
-      (kwd, spec, "\n" ^ spaces ^ replace_leading_tab msg)
-  | (kwd, spec, msg) ->
-      let cutcol = second_word msg in
-      let kwd_len = String.length kwd in
-      let diff = len - kwd_len - cutcol in
-      if diff <= 0 then
-        (kwd, spec, replace_leading_tab msg)
-      else
-        let spaces = String.make diff ' ' in
-        let prefix = String.sub (replace_leading_tab msg) 0 cutcol in
-        let suffix = String.sub msg cutcol (String.length msg - cutcol) in
-        (kwd, spec, prefix ^ spaces ^ suffix)
-
-
-let align ?(limit=max_int) speclist =
-  let completed = add_help speclist in
-  let len = List.fold_left max_arg_len 0 completed in
-  let len = min len limit in
-  List.map (add_padding len) completed