bs-platform/scripts/tmp.js

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

//@ts-check
var fs = require('fs')
var path = require('path')
/**
 * 
 * @param {number} n 
 */
function* range(n) {
    for (var i = 0; i < n; ++i) {
        yield i
    }
}

/**
 * 
 * @param {number} n 
 */
var constructors = (n) => {
    return [...range(n)].map((x => `| A${x} \n`)).reduce((x, y) => x + y)
}

/**
 * 
 * @param {number} n 
 */
var polyConstructors = (n) => {
    return [...range(n)].map((x => `| \`variant${x} \n`)).reduce((x, y) => x + y)
}

/**
 * 
 * @param {number} n 
 */
var matches = (n) => {
    return [...range(n)].map((x => `| A${x} -> ${x} \n `)).reduce((x, y) => x + y)
}

/**
 * 
 * @param {number} n 
 */
var xs = (n) => {
    return [...range(n)].map((x => `| A${x} -> "A${x}" \n `)).reduce((x, y) => x + y)
}

/**
 * 
 * @param {number} n 
 */
var code = (n) => {
    var content = `type t = \n ${constructors(n)}`
    var match = `let to_enum = function\n ${matches(n)}`
    var to_string =
        `let to_string = function\n ${xs(n)}`
    return content + match + to_string
}

/**
 * 
 * @param {number} n 
 */
var polyCode = (n) =>{
    var content = `type t = [ \n ${polyConstructors(n)}\n ] [@@bs.deriving jsConverter] `
    var eq = `
        let eq (x : t option) (y: t option) = 
            match x with 
            | Some x -> 
                (match y with None -> false | Some y -> x = y)
            | None -> y = None     
    `
    var assertions = 
        [...range(n)].map(x => `\n;;assert (tToJs \`variant${x} = "variant${x}")`).reduce((x,y)=> x +y)
    var assertions2 =         
        [...range(n)].map(x => `\n;;assert (eq (tFromJs "variant${x}")  (Some \`variant${x}))`).reduce((x,y)=> x +y)
    var assertions3  = 
        `\n;;assert (eq (tFromJs "xx") None) \n`   
    return content  + eq +  assertions  + assertions2 + assertions3
}
var run = () => {
    fs.writeFileSync(path.join(__dirname, '..', 'jscomp', 'test', 'big_enum.ml'),
        code(300), 'utf8')
}

var runPol = () =>{
    fs.writeFileSync(path.join(__dirname,'..','jscomp','test', 'big_polyvar_test.ml'),
    polyCode(300)
    )
} 

runPol()