Cleanup: convert caml_format to .res.

Author: cristianoc

jscomp/runtime/caml_format.ml

@@ -0,0 +1,39 @@
+@@ocaml.text(
+  /* Copyright (C) 2015-2016 Bloomberg Finance L.P.
+   *
+   * This program is free software: you can redistribute it and/or modify
+   * it under the terms of the GNU Lesser General Public License as published by
+   * the Free Software Foundation, either version 3 of the License, or
+   * (at your option) any later version.
+   *
+   * In addition to the permissions granted to you by the LGPL, you may combine
+   * or link a "work that uses the Library" with a publicly distributed version
+   * of this file to produce a combined library or application, then distribute
+   * that combined work under the terms of your choosing, with no requirement
+   * to comply with the obligations normally placed on you by section 4 of the
+   * LGPL version 3 (or the corresponding section of a later version of the LGPL
+   * should you choose to use a later version).
+   *
+   * This program is distributed in the hope that it will be useful,
+   * but WITHOUT ANY WARRANTY; without even the implied warranty of
+   * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   * GNU Lesser General Public License for more details.
+   *
+   * You should have received a copy of the GNU Lesser General Public License
+   * along with this program; if not, write to the Free Software
+   * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+  " "
+)
+
+let format_float: (string, float) => string
+
+let hexstring_of_float: (float, int, char) => string
+
+let format_int: (string, int) => string
+
+let float_of_string: string => float
+let int64_format: (string, int64) => string
+let int_of_string: string => int
+
+let int64_of_string: string => int64

jscomp/runtime/caml_format.mli

@@ -50,5 +50,6 @@ external of_small_int_array: (@as(json`null`) _, array<int>) => string = "String
 external length: string => int = "%string_length"
 external unsafe_get: (string, int) => char = "%string_unsafe_get"
 external unsafe_set: (bytes, int, char) => unit = "%bytes_unsafe_set"
+external get: (string, int) => char = "%string_unsafe_get"
 
 @send external repeat: (string, int) => string = "repeat"

jscomp/runtime/caml_format.res

@@ -25,8 +25,8 @@ o runtime/caml_exceptions.cmj : cc_cmi runtime/caml_exceptions.res | runtime/cam
 o runtime/caml_exceptions.cmi : cc runtime/caml_exceptions.resi | runtime/bs_stdlib_mini.cmi runtime/js.cmi runtime/js.cmj
 o runtime/caml_float.cmj : cc_cmi runtime/caml_float.res | runtime/caml_float.cmi runtime/caml_float_extern.cmj
 o runtime/caml_float.cmi : cc runtime/caml_float.resi | runtime/bs_stdlib_mini.cmi runtime/js.cmi runtime/js.cmj
-o runtime/caml_format.cmj : cc_cmi runtime/caml_format.ml | runtime/caml.cmj runtime/caml_float.cmj runtime/caml_float_extern.cmj runtime/caml_format.cmi runtime/caml_int64.cmj runtime/caml_int64_extern.cmj runtime/caml_nativeint_extern.cmj runtime/caml_string_extern.cmj
-o runtime/caml_format.cmi : cc runtime/caml_format.mli | runtime/bs_stdlib_mini.cmi runtime/js.cmi runtime/js.cmj
+o runtime/caml_format.cmj : cc_cmi runtime/caml_format.res | runtime/caml.cmj runtime/caml_float.cmj runtime/caml_float_extern.cmj runtime/caml_format.cmi runtime/caml_int64.cmj runtime/caml_int64_extern.cmj runtime/caml_nativeint_extern.cmj runtime/caml_string_extern.cmj
+o runtime/caml_format.cmi : cc runtime/caml_format.resi | runtime/bs_stdlib_mini.cmi runtime/js.cmi runtime/js.cmj
 o runtime/caml_hash.cmj : cc_cmi runtime/caml_hash.res | runtime/caml_hash.cmi runtime/caml_hash_primitive.cmj runtime/caml_nativeint_extern.cmj runtime/js.cmj
 o runtime/caml_hash.cmi : cc runtime/caml_hash.resi | runtime/bs_stdlib_mini.cmi runtime/js.cmi runtime/js.cmj
 o runtime/caml_hash_primitive.cmj : cc_cmi runtime/caml_hash_primitive.res | runtime/caml_hash_primitive.cmi runtime/caml_string_extern.cmj

jscomp/runtime/caml_format.resi

@@ -19,12 +19,12 @@ function parse_digit(c) {
   } else if (c > 57 || c < 48) {
     return -1;
   } else {
-    return c - /* '0' */48 | 0;
+    return c - 48 | 0;
   }
 }
 
-function int_of_string_base(param) {
-  switch (param) {
+function int_of_string_base(x) {
+  switch (x) {
     case "Oct" :
         return 8;
     case "Hex" :
@@ -274,8 +274,8 @@ function int64_of_string(s) {
   return or_res;
 }
 
-function int_of_base(param) {
-  switch (param) {
+function int_of_base(x) {
+  switch (x) {
     case "Oct" :
         return 8;
     case "Hex" :
@@ -413,10 +413,10 @@ function parse_format(fmt) {
             f.prec = 0;
             let j = i + 1 | 0;
             while((function () {
-                let w = fmt.codePointAt(j) - /* '0' */48 | 0;
+                let w = fmt.codePointAt(j) - 48 | 0;
                 return w >= 0 && w <= 9;
               })()) {
-              f.prec = (Math.imul(f.prec, 10) + fmt.codePointAt(j) | 0) - /* '0' */48 | 0;
+              f.prec = (Math.imul(f.prec, 10) + fmt.codePointAt(j) | 0) - 48 | 0;
               j = j + 1 | 0;
             };
             _i = j;
@@ -452,10 +452,10 @@ function parse_format(fmt) {
           f.width = 0;
           let j$1 = i;
           while((function () {
-              let w = fmt.codePointAt(j$1) - /* '0' */48 | 0;
+              let w = fmt.codePointAt(j$1) - 48 | 0;
               return w >= 0 && w <= 9;
             })()) {
-            f.width = (Math.imul(f.width, 10) + fmt.codePointAt(j$1) | 0) - /* '0' */48 | 0;
+            f.width = (Math.imul(f.width, 10) + fmt.codePointAt(j$1) | 0) - 48 | 0;
             j$1 = j$1 + 1 | 0;
           };
           _i = j$1;

jscomp/runtime/caml_string_extern.res

@@ -19,12 +19,12 @@ function parse_digit(c) {
   } else if (c > 57 || c < 48) {
     return -1;
   } else {
-    return c - /* '0' */48 | 0;
+    return c - 48 | 0;
   }
 }
 
-function int_of_string_base(param) {
-  switch (param) {
+function int_of_string_base(x) {
+  switch (x) {
     case "Oct" :
         return 8;
     case "Hex" :
@@ -274,8 +274,8 @@ function int64_of_string(s) {
   return or_res;
 }
 
-function int_of_base(param) {
-  switch (param) {
+function int_of_base(x) {
+  switch (x) {
     case "Oct" :
         return 8;
     case "Hex" :
@@ -413,10 +413,10 @@ function parse_format(fmt) {
             f.prec = 0;
             let j = i + 1 | 0;
             while((function () {
-                let w = fmt.codePointAt(j) - /* '0' */48 | 0;
+                let w = fmt.codePointAt(j) - 48 | 0;
                 return w >= 0 && w <= 9;
               })()) {
-              f.prec = (Math.imul(f.prec, 10) + fmt.codePointAt(j) | 0) - /* '0' */48 | 0;
+              f.prec = (Math.imul(f.prec, 10) + fmt.codePointAt(j) | 0) - 48 | 0;
               j = j + 1 | 0;
             };
             _i = j;
@@ -452,10 +452,10 @@ function parse_format(fmt) {
           f.width = 0;
           let j$1 = i;
           while((function () {
-              let w = fmt.codePointAt(j$1) - /* '0' */48 | 0;
+              let w = fmt.codePointAt(j$1) - 48 | 0;
               return w >= 0 && w <= 9;
             })()) {
-            f.width = (Math.imul(f.width, 10) + fmt.codePointAt(j$1) | 0) - /* '0' */48 | 0;
+            f.width = (Math.imul(f.width, 10) + fmt.codePointAt(j$1) | 0) - 48 | 0;
             j$1 = j$1 + 1 | 0;
           };
           _i = j$1;