Esempi in C++ (Cpp) per deliverFn

Esempio n. 1

File: system.c Progetto: Pachot/mlworks

static mlval ml_deliver_function(mlval argument)
{
  declare_root(&argument, 1);
  gc_collect_all(); /* Do a full gc before forking */
  retract_root(&argument);
  return deliverFn(argument);
}

Esempio n. 2

File: system.c Progetto: waywardmonkeys/mlworks-temporary

static mlval ml_deliver_function(mlval argument)
{
  if ((license_edition == PERSONAL) || act_as_free) {
    display_simple_message_box(
      "Delivering executables is not enabled in the Personal edition of MLWorks");
    /* exn_raise_string(perv_exn_ref_save, 
         "Delivery not enabled for this edition"); */
    return MLUNIT;
  }

  declare_root(&argument, 1);
  gc_collect_all(); /* Do a full gc before forking */
  retract_root(&argument);
  return deliverFn(argument);
}