void
bip_parallel_init(int flags)
{
if (flags & INIT_SHARED)
{
#ifdef NEW_ORACLE
(void) exported_built_in(in_dict("get_oracle", 3),
p_get_oracle3, B_UNSAFE);
(void) exported_built_in(in_dict("install_oracle", 1),
p_install_oracle, B_SAFE);
(void) exported_built_in(in_dict("install_pending_oracle", 0),
p_install_pending_oracle, B_SAFE);
(void) built_in(in_dict("recomputing", 0),
p_recomputing, B_SAFE);
(void) exported_built_in(in_dict("oracle_check", 1),
p_oracle_check, B_UNSAFE);
(void) local_built_in(in_dict("set_par_goal", 1),
p_set_par_goal, B_UNSAFE);
(void) local_built_in(in_dict("get_par_goal", 1),
p_get_par_goal, B_UNSAFE|U_UNIFY);
#endif
(void) local_built_in(in_dict("dbag_create", 1),
p_dbag_create, B_SAFE|U_GROUND);
(void) local_built_in(in_dict("dbag_enter", 2),
p_dbag_enter, B_SAFE|U_NONE);
(void) local_built_in(in_dict("dbag_dissolve", 2),
p_dbag_dissolve, B_UNSAFE|U_UNIFY);
}
}
void
error_init(int flags)
{
if (flags & INIT_SHARED)
{
int i;
/*
* Due to the user entries, part of the message array is
* mutable and must be in shared memory.
*/
ErrorMessage = (char **) hg_alloc_size(sizeof(char *) * MAX_ERRORS);
for(i=0; i<MAX_ERRORS; i++)
{
ErrorMessage[i] = ec_error_message[i];
}
(void) built_in(in_dict("error_id", 2), p_error_id, B_UNSAFE|U_SIMPLE);
(void) local_built_in(in_dict("max_error", 1), p_max_error, B_UNSAFE|U_SIMPLE);
(void) local_built_in(in_dict("set_last_errno", 1), p_set_last_errno, B_SAFE);
(void) local_built_in(in_dict("get_last_errno", 1), p_get_last_errno, B_UNSAFE|U_SIMPLE);
(void) built_in(in_dict("errno_id", 1), p_errno_id1, B_UNSAFE|U_SIMPLE);
(void) built_in(in_dict("errno_id", 2), p_errno_id, B_UNSAFE|U_SIMPLE);
}
}
void
bip_shelf_init(int flags)
{
if (flags & INIT_SHARED)
{
(void) built_in(in_dict("shelf_create", 3), p_shelf_create3, B_SAFE|U_SIMPLE);
(void) built_in(in_dict("shelf_create", 2), p_shelf_create2, B_SAFE|U_SIMPLE);
(void) built_in(in_dict("shelf_get_",4), p_shelf_get, B_UNSAFE|U_FRESH);
(void) built_in(in_dict("shelf_set_",4), p_shelf_set, B_SAFE);
(void) built_in(in_dict("shelf_inc_",3), p_shelf_inc, B_SAFE);
(void) built_in(in_dict("shelf_dec_",3), p_shelf_dec, B_SAFE);
(void) built_in(in_dict("shelf_abolish", 1), p_handle_free, B_SAFE|U_NONE);
(void) local_built_in(in_dict("shelf_name",3), p_shelf_name, B_SAFE);
}
}
void
bip_op_init(int flags)
{
if (!(flags & INIT_SHARED))
return;
(void) local_built_in(in_dict("op_", 5), p_op_, B_SAFE);
(void) local_built_in(in_dict("is_prefix_op", 5), p_is_prefix_op, B_SAFE);
(void) local_built_in(in_dict("is_postfix_op", 5), p_is_postfix_op, B_SAFE);
(void) local_built_in(in_dict("is_infix_op", 5), p_is_infix_op, B_SAFE);
(void) local_built_in(in_dict("abolish_op_", 3),p_abolish_op_, B_SAFE);
(void) local_built_in(in_dict("legal_current_op", 4),
p_legal_current_op, B_SAFE);
}
void
bip_module_init(int flags)
{
if (!(flags & INIT_SHARED))
return;
(void) local_built_in(in_dict("erase_module_", 2), p_erase_module, B_SAFE);
(void) local_built_in(in_dict("is_a_module", 1), p_is_module, B_SAFE);
(void) local_built_in(in_dict("authorized_module", 1), p_authorized_module, B_SAFE);
(void) built_in(in_dict("is_locked", 1), p_is_locked, B_SAFE);
(void) built_in(in_dict("begin_module", 1), p_begin_module, B_SAFE);
(void) local_built_in(in_dict("begin_module", 2), p_begin_module, B_SAFE);
(void) local_built_in(in_dict("create_module_", 1), p_create_module, B_SAFE);
(void) built_in(d_.lock, p_lock1, B_SAFE);
(void) built_in(in_dict("lock", 2), p_lock2, B_SAFE);
(void) built_in(in_dict("lock_pass_", 2), p_lock_pass_, B_SAFE);
(void) built_in(in_dict("unlock", 2), p_unlock2, B_SAFE);
(void) exported_built_in(in_dict("tool_", 2), p_tool1, B_UNSAFE);
(void) exported_built_in(in_dict("tool_", 3), p_tool2, B_UNSAFE);
exported_built_in(in_dict("tool_body_", 4), p_tool_body, B_UNSAFE|U_GROUND)
-> mode = BoundArg(2, GROUND) | BoundArg(3, CONSTANT);
(void) local_built_in(d_.localb, p_local, B_UNSAFE);
(void) exported_built_in(in_dict("implicit_local",2), p_implicit_local, B_UNSAFE);
(void) local_built_in(d_.exportb, p_export, B_UNSAFE);
(void) local_built_in(in_dict("reexport_from_",3), p_reexport_from, B_UNSAFE);
(void) local_built_in(d_.import_fromb, p_import_from, B_UNSAFE);
(void) local_built_in(in_dict("import_", 2), p_import, B_UNSAFE);
(void) local_built_in(in_dict("module_tag", 2), p_module_tag, B_UNSAFE);
(void) exported_built_in(in_dict("default_module", 1), p_default_module,
B_UNSAFE|U_SIMPLE);
(void) exported_built_in(in_dict("pr", 1), p_pr, B_SAFE);
}