int main(int argc, char *argv[])
{
DCL_THREADGBL_ACCESS;
GTM_THREADGBL_INIT;
set_blocksig();
gtm_imagetype_init(DSE_IMAGE);
gtm_wcswidth_fnptr = gtm_wcswidth;
gtm_env_init(); /* read in all environment variables */
licensed = TRUE;
TREF(transform) = TRUE;
op_open_ptr = op_open;
patch_curr_blk = get_dir_root();
err_init(util_base_ch);
GTM_ICU_INIT_IF_NEEDED; /* Note: should be invoked after err_init (since it may error out) and before CLI parsing */
sig_init(generic_signal_handler, dse_ctrlc_handler, suspsigs_handler);
atexit(util_exit_handler);
SET_LATCH_GLOBAL(&defer_latch, LOCK_AVAILABLE);
get_page_size();
stp_init(STP_INITSIZE);
rts_stringpool = stringpool;
getjobname();
INVOKE_INIT_SECSHR_ADDRS;
getzdir();
prealloc_gt_timers();
initialize_pattern_table();
gvinit();
region_init(FALSE);
INIT_GBL_ROOT(); /* Needed for GVT initialization */
getjobnum();
util_out_print("!/File !_!AD", TRUE, DB_LEN_STR(gv_cur_region));
util_out_print("Region!_!AD!/", TRUE, REG_LEN_STR(gv_cur_region));
cli_lex_setup(argc, argv);
CREATE_DUMMY_GBLDIR(gd_header, original_header, gv_cur_region, gd_map, gd_map_top);
gtm_chk_dist(argv[0]);
# ifdef DEBUG
if ((gtm_white_box_test_case_enabled && (WBTEST_SEMTOOLONG_STACK_TRACE == gtm_white_box_test_case_number) ))
{
sgmnt_addrs * csa;
node_local_ptr_t cnl;
csa = &FILE_INFO(gv_cur_region)->s_addrs;
cnl = csa->nl;
cnl->wbox_test_seq_num = 1; /*Signal the first step and wait here*/
while (2 != cnl->wbox_test_seq_num) /*Wait for another process to get hold of the semaphore and signal next step*/
LONG_SLEEP(10);
}
# endif
if (argc < 2)
display_prompt();
io_init(TRUE);
while (1)
{
if (!dse_process(argc))
break;
display_prompt();
}
dse_exit();
REVERT;
}
int main (int argc, char **argv)
{
int res;
DCL_THREADGBL_ACCESS;
GTM_THREADGBL_INIT;
set_blocksig();
gtm_imagetype_init(MUPIP_IMAGE);
invocation_mode = MUMPS_UTILTRIGR;
gtm_wcswidth_fnptr = gtm_wcswidth;
gtm_env_init(); /* read in all environment variables */
err_init(util_base_ch);
UNICODE_ONLY(gtm_strToTitle_ptr = >m_strToTitle);
GTM_ICU_INIT_IF_NEEDED; /* Note: should be invoked after err_init (since it may error out) and before CLI parsing */
sig_init(generic_signal_handler, NULL, suspsigs_handler, continue_handler); /* Note: no ^C handler is defined (yet) */
atexit(mupip_exit_handler);
licensed = TRUE;
in_backup = FALSE;
op_open_ptr = mu_op_open;
mu_get_term_characterstics();
cli_lex_setup(argc,argv);
if (argc < 2) /* Interactive mode */
display_prompt();
/* this call should be after cli_lex_setup() due to S390 A/E conversion */
gtm_chk_dist(argv[0]);
INIT_GBL_ROOT(); /* Needed for GVT initialization */
init_gtm();
while (TRUE)
{ func = 0;
if ((res = parse_cmd()) == EOF)
break;
else if (res)
{
if (1 < argc)
rts_error(VARLSTCNT(4) res, 2, LEN_AND_STR(cli_err_str));
else
gtm_putmsg(VARLSTCNT(4) res, 2, LEN_AND_STR(cli_err_str));
}
if (func)
func();
if (argc > 1) /* Non-interactive mode, exit after command */
break;
display_prompt();
}
mupip_exit(SS_NORMAL);
}
mupip()
{
unsigned int status;
int4 inid = 0;
int4 nid = 0; /* system ID, node number */
int4 days = 128; /* days to expiration */
int4 lic_x = 0; /* license value */
char *h = NULL; /* license data base */
char *pak = NULL; /* pak record */
int4 mdl = 0; /* hardw. model type */
$DESCRIPTOR(dprd, gtm_product);
$DESCRIPTOR(dver, gtm_version);
DCL_THREADGBL_ACCESS;
GTM_THREADGBL_INIT;
gtm_imagetype_init(MUPIP_IMAGE);
gtm_env_init(); /* read in all environment variables */
licensed = TRUE;
TREF(transform) = TRUE;
in_backup = FALSE;
util_out_open(0);
SET_EXIT_HANDLER(exi_blk, generic_exit_handler, exi_condition); /* Establish exit handler */
ESTABLISH(util_base_ch);
get_page_size();
getjobnum();
INVOKE_INIT_SECSHR_ADDRS;
# ifdef NOLICENSE
status = SS$_NORMAL;
lid = 1;
lic_x = 32767;
# else
if (NULL == (h = la_getdb(LMDB))) /* license db in mem */
status = LP_NOCNFDB;
else
status = SS$_NORMAL;
if (1 == (status & 1)) /* licensing: node+ system */
status = lm_mdl_nid(&mdl, &nid, &inid);
if (1 == (status & 1)) /* licensing: license */
{
dprd.dsc$w_length = gtm_product_len;
dver.dsc$w_length = gtm_version_len;
status = lp_licensed(h, &dprd, &dver, mdl, nid, &lid, &lic_x, &days, pak);
}
# endif
if (1 == (status & 1)) /* licensing: license units */
status = LP_ACQUIRE(pak, lic_x, lid, &lkid); /* def in cryptdef */
# ifdef NOLICENSE
status = SS$_NORMAL;
# else
if (LP_NOCNFDB != status)
la_freedb(h);
if (1 == (status & 1)) /* licensing */
{
if (days < 14)
lm_putmsgu(ERR_WILLEXPIRE, 0, 0);
}
else
{
licensed = FALSE;
if (LP_INVCSM != status)
rts_error(VARLSTCNT(1) status);
}
# endif
ast_init();
initialize_pattern_table();
INIT_GBL_ROOT();
stp_init(STP_INITSIZE);
rts_stringpool = stringpool;
mupip_getcmd();
mupip_exit(SS$_NORMAL);
}
