bs-platform/lib/js/belt_Debug.js

bucklescript compiler, ocaml standard libary by bucklescript and its required runtime support

'use strict';


function setupChromeDebugger (unit){
  // I don't know how to directly refer to the classes that chrome's built-in
  // formatters use. adding "class": "foo" doesn't seem to work
  // tree-outline
  var olStyle = {"style": "list-style-type: none; padding-left: 12px; margin: 0"}
  // object-properties-section-separator
  var colonStyle = {"style": "flex-shrink: 0; padding-right: 5px"}
  var recordNumberStyle = {"style": "flex-shrink: 0; padding-right: 5px; color: rgb(145, 145, 145)"}

  var showObject = function (value) {
    if (value == undefined) {
      return value + ''
    } else {
      return ["object", {"object": value}]
    }
  }

  var recordCustomFormatter = function (data, labels) {
    return [
      "ol",
      olStyle,
      ...data.map(function (cur, index) {
          return [
            "li",
            {},
            ["span", recordNumberStyle, index],
            ["span", {"style": "color: rgb(227, 110, 236)"}, labels[index]],
            ["span", colonStyle, ":"],
            ["span", {}, showObject(cur)],
          ]
      })
    ]
  };

var listToArray = function (data){
  var result = []
  var cur = data
  var index = 0
  while(typeof cur !== "number"){
    result.push([
      "li",
      {},
      ["span", {"style": "color: rgb(227, 110, 236)"}, index],
      ["span", colonStyle, ":"],
      showObject(cur[0])
    ]);
    cur = cur[1]
    index++
  }
  return result
};

var variantCustomFormatter = function (data,recordVariant){
  if(recordVariant === "::"){
    return [
      "ol",
      olStyle,
      ... listToArray(data)
    ]
  } else {
      return ["ol", olStyle, ...data.map(function (cur) { return showObject(cur) })]
  }

};

var recordPreview = function (recordLabels){
  var recordLastIndex = recordLabels.length - 1
  var preview = recordLabels.reduce(function (acc, cur, index) {
      if (index === recordLastIndex) {
          return acc + cur + "}"
      }
      return acc + cur + ", "
  }, "record {")
  return preview
};

var variantPreview = function (x, recordVariant){
  if(recordVariant === "::") {
    // show the length, just like for array
    var length = listToArray(x).length;
    return ['span', {}, `list(${length})`]
  }
  return ['span', {}, `${recordVariant}(…)`]
};
var isOCamlExceptionOrExtensionHead = function(x){
  return Array.isArray(x) && x.tag === 248 && typeof x[0] === "string"
}
var isOCamlExceptionOrExtension = function(x){
  return Array.isArray(x) &&
        x[0] !== undefined &&
        isOCamlExceptionOrExtensionHead(x[0])
}
var formatter = {
  header: function (x) {
      var recordLabels
      var recordVariant
      var recordModule
      var recordPolyVar
      if ((recordLabels = x[Symbol.for('BsRecord')]) !== undefined) {
          return ['div', {}, recordPreview(recordLabels)]
      } else if ((recordVariant =  x[Symbol.for('BsVariant')]) !== undefined){
          return variantPreview(x, recordVariant)
      } else if (isOCamlExceptionOrExtension(x)){
        return ['div',{}, `${x[0][0]}(…)`]
      } else if ((recordModule =  x[Symbol.for('BsLocalModule')]) !== undefined){
        return ['div', {}, 'Module' ]
      } else if ((recordPolyVar = x[Symbol.for('BsPolyVar')] ) !== undefined){
        return ['div', {}, `\`${recordPolyVar}#${x[0]}`]
      }
      return null
  },
  hasBody: function (x) {
      var recordLabels
      var recordVariant
      var recordModule
      var recordPolyVar
      if ((recordLabels = x[Symbol.for('BsRecord')]) !== undefined) {
          return true
      } else if ((recordVariant = x[Symbol.for('BsVariant')] ) !== undefined){
          return recordVariant
      } else if(isOCamlExceptionOrExtension(x)){
        return true
      } else if ((recordModule = x[Symbol.for('BsLocalModule')] ) !== undefined){
        return true
      } else if( (recordPolyVar = x[Symbol.for('BsPolyVar')]) !== undefined){
        return true
      }
      return false
  },
  body: function (x) {
      var recordLabels
      var recordVariant
      var recordModule
      var recordPolyVar
      if ( (recordLabels = x[Symbol.for('BsRecord')]) !== undefined
        ) {
          return recordCustomFormatter(x, recordLabels)
      }
      else if ((recordModule = x[Symbol.for('BsLocalModule')]) !== undefined){
          return recordCustomFormatter(x, recordModule)
      }
      else if ((recordVariant = x[Symbol.for('BsVariant')]) !== undefined) {
              return variantCustomFormatter(x,recordVariant)
      }
      else if ((recordPolyVar = x [Symbol.for('BsPolyVar')]) !== undefined){
        return showObject(x[1])
      }
      else if(isOCamlExceptionOrExtension(x)){
        return ["ol", olStyle, ... x.slice(1).map(cur => showObject(cur))]
      }

  }

}
if (typeof window === "undefined"){
  global.devtoolsFormatters = [formatter]
} else {
  window.devtoolsFormatters = [formatter]
}
return 0

};

exports.setupChromeDebugger = setupChromeDebugger;
/* No side effect */