@fink/loxia/ir/partial/init.js

A fink to JavaScript compiler.

import { add as add_0 } from "../context.js";
import { inc_ref as inc_ref_0 } from "../context.js";
import { unique_or_id as unique_or_id_0 } from "../context.js";
import { ˆlet as let_0 } from "../identifier/init.js";

const transform_partial_0 = (expr_0, result_0, ctx_0) => {
  const hdm_0 = ctx_0.partial_ident;
  const partial_ident_0 = undefined === hdm_0 ? false : hdm_0;
  let ret_0;

  ret_0: {
    /* istanbul ignore else */
    if (partial_ident_0 === false) {
      const result_4 = unique_or_id_0(`prtl`, expr_0, ctx_0);
      ret_0 = result_4;

      /* istanbul ignore next */
      break ret_0;
    }

    ret_0 = [partial_ident_0, ctx_0];

    /* istanbul ignore next */
    break ret_0;
  }

  const dlst_0 = ret_0;
  const prtl_0 = dlst_0[0];
  const next_ctx_0 = inc_ref_0(prtl_0, dlst_0[1]);
  const dlst_1 = let_0(prtl_0, result_0, expr_0, { ...next_ctx_0,
    partial_ident: prtl_0
  });
  return [dlst_1[0], dlst_1[2]];
};

const add_partial_0 = ctx_1 => {
  const pfn_0 = add_0(`partial`, `?`, transform_partial_0);
  const ppr_0 = pfn_0(ctx_1);
  return ppr_0;
};

export const transform_partial = transform_partial_0,
      add_partial = add_partial_0;