Add support for @tag(...) to customize the property used for the tag.

Author: cristianoc

jscomp/test/ast_abstract_test.js

@@ -76,144 +76,12 @@ idx("b");
 
 idx("c");
 
-var jsMapperConstantArray = [
-  0,
-  3,
-  4
-];
-
-function aToJs(param) {
-  return jsMapperConstantArray[param];
-}
-
-function aFromJs(param) {
-  return Js_mapperRt.fromIntAssert(3, jsMapperConstantArray, param);
-}
-
-function id(x) {
-  eq("File \"ast_abstract_test.ml\", line 49, characters 8-15", aFromJs(aToJs(x)), x);
-}
-
-var a0 = aToJs("A");
-
-var a1 = aToJs("B");
-
-id("A");
-
-id("B");
-
-id("C");
-
-function bToJs(param) {
-  return param + 0 | 0;
-}
-
-function bFromJs(param) {
-  if (!(param <= 3 && 0 <= param)) {
-    throw {
-          RE_EXN_ID: "Assert_failure",
-          _1: [
-            "_none_",
-            1,
-            -1
-          ],
-          Error: new Error()
-        };
-  }
-  return param - 0 | 0;
-}
-
-function idb(v) {
-  eq("File \"ast_abstract_test.ml\", line 71, characters 5-12", bFromJs(v + 0 | 0), v);
-}
-
-idb("D0");
-
-idb("D1");
-
-idb("D2");
-
-idb("D3");
-
-function cToJs(param) {
-  return param + 3 | 0;
-}
-
-function cFromJs(param) {
-  if (!(param <= 6 && 3 <= param)) {
-    throw {
-          RE_EXN_ID: "Assert_failure",
-          _1: [
-            "_none_",
-            1,
-            -1
-          ],
-          Error: new Error()
-        };
-  }
-  return param - 3 | 0;
-}
-
-function idc(v) {
-  eq("File \"ast_abstract_test.ml\", line 83, characters 15-22", cFromJs(v + 3 | 0), v);
-}
-
-idc("D0");
-
-idc("D1");
-
-idc("D2");
-
-idc("D3");
-
-function hToJs(param) {
-  return param + 0 | 0;
-}
-
-function hFromJs(param) {
-  if (!(param <= 1 && 0 <= param)) {
-    throw {
-          RE_EXN_ID: "Assert_failure",
-          _1: [
-            "_none_",
-            1,
-            -1
-          ],
-          Error: new Error()
-        };
-  }
-  return param - 0 | 0;
-}
-
-function zToJs(param) {
-  return param + 0 | 0;
-}
-
-function zFromJs(param) {
-  if (param <= 2 && 0 <= param) {
-    return param - 0 | 0;
-  }
-  
-}
-
 Mt.from_pair_suites("Ast_abstract_test", suites.contents);
 
 var x0 = "a";
 
 var x1 = "b";
 
-var b0 = 0;
-
-var b1 = 1;
-
-var c0 = 3;
-
-var jsMapperEraseType = "JsMapperEraseType";
-
-var b = "B";
-
-var zXx = "ZXx";
-
 exports.suites = suites;
 exports.test_id = test_id;
 exports.eq = eq;
@@ -226,25 +94,4 @@ exports.xFromJs = xFromJs;
 exports.idx = idx;
 exports.x0 = x0;
 exports.x1 = x1;
-exports.aToJs = aToJs;
-exports.aFromJs = aFromJs;
-exports.id = id;
-exports.a0 = a0;
-exports.a1 = a1;
-exports.bToJs = bToJs;
-exports.bFromJs = bFromJs;
-exports.b0 = b0;
-exports.b1 = b1;
-exports.idb = idb;
-exports.cToJs = cToJs;
-exports.cFromJs = cFromJs;
-exports.c0 = c0;
-exports.idc = idc;
-exports.jsMapperEraseType = jsMapperEraseType;
-exports.b = b;
-exports.hToJs = hToJs;
-exports.hFromJs = hFromJs;
-exports.zXx = zXx;
-exports.zToJs = zToJs;
-exports.zFromJs = zFromJs;
 /*  Not a pure module */