// *****************************************************************************
// * *
// * Function: TokenKeyContents::populate *
// * *
// * Populates fields of a token key using information from current *
// * process (node, PID, etc.) and encoding (base64). *
// * *
// *****************************************************************************
void TokenKeyContents::populate()
{
msg_mon_get_my_process_name(u.token.processName, MS_MON_MAX_PROCESS_NAME);
msg_mon_get_process_info( NULL, &u.token.nodeId, &u.token.processId );
ID[0] = USERTOKEN_ID_1;
ID[1] = USERTOKEN_ID_2;
// Generate Random bytes
srandom ((unsigned)time(NULL));
for (int i=0; i < sizeof(u.token.rand); i++)
u.token.rand[i] = (char)(random() & 0xFF);
// Base 64 encoding
char buf[sizeof(u)]= {0};
base64((const char *)&u.token, sizeof(u.token), buf, true);
memcpy(u.encoded.b64, buf, sizeof(u.encoded.b64));
u.encoded.zero='\0';
}
int main(int argc, char *argv[]) {
bool done = false;
int ferr;
int recvbuf[3];
sprintf(gprog, "%s/%s", getenv("PWD"), argv[0]);
ferr = msfs_util_init_role(false, &argc, &argv, msg_debug_hook);
assert(ferr == XZFIL_ERR_OK);
ferr = msg_mon_process_startup(true); // system messages
assert(ferr == XZFIL_ERR_OK);
ferr = msg_mon_get_my_process_name(gname, sizeof(gname));
assert(ferr == XZFIL_ERR_OK);
msg_mon_enable_mon_messages(true); // get mon messages
gargc = argc; // after msg_init - it removes args
gargp = argv;
if (is_backup()) {
strcpy(gdisplay_name, gname);
strcat(gdisplay_name, "-B");
myprintf("We are the backup process.\n");
gim_backup = true;
while (!gtakeover) {
int len = sizeof(recvbuf);
ferr = checkpoint(recvbuf, &len);
if (ferr == XZFIL_ERR_OK)
process_request(recvbuf);
}
myprintf("The backup is now the primary process.\n");
strcpy(gdisplay_name, gname);
strcat(gdisplay_name, "-P");
} else {
strcpy(gdisplay_name, gname);
strcat(gdisplay_name, "-P");
myprintf("We are the primary process.\n");
}
start_backup(-1);
while (!done) {
int len = sizeof(recvbuf);
if (!recv(recvbuf, &len)) {
done = process_request(recvbuf);
checkpoint(recvbuf, &len);
}
}
ferr = msg_mon_process_close();
TEST_CHK_FEOK(ferr);
if (gpeer_nid >= 0) {
myprintf("stopping backup.\n");
ferr = msg_mon_stop_process((char*)"", gpeer_nid, gpeer_pid);
TEST_CHK_FEOK(ferr);
}
myprintf("sending exit process message.\n");
ferr = msg_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
}
void getTMLoggingHeaderInfo(posix_sqlog_severity_t severity, logLevel &ll_severity, char *processName, int processNameLen, int &my_nid, int &my_pid)
{
char my_name[MS_MON_MAX_PROCESS_NAME+1];
int error;
error = msg_mon_get_my_process_name( my_name, sizeof(my_name) );
if (error == 0) {
error = msg_mon_get_process_info( my_name, &my_nid, &my_pid );
if (error != 0) {
my_nid = -1;
my_pid = -1;
}
}
else
strcpy(my_name, "UNKNOWN");
int len = strlen(my_name);
if (len < processNameLen)
len = processNameLen-1;
strncpy(processName, my_name, len);
processName[len] = '\0';
switch (severity) {
case SQ_LOG_EMERG:
ll_severity = LL_FATAL;
break;
case SQ_LOG_ALERT:
ll_severity = LL_WARN;
break;
case SQ_LOG_CRIT:
ll_severity = LL_FATAL;
break;
case SQ_LOG_ERR:
ll_severity = LL_ERROR;
break;
case SQ_LOG_WARNING:
ll_severity = LL_WARN;
break;
case SQ_LOG_NOTICE:
ll_severity = LL_INFO;
break;
case SQ_LOG_INFO:
ll_severity = LL_INFO;
break;
case SQ_LOG_DEBUG:
ll_severity = LL_DEBUG;
break;
default:
ll_severity = LL_INFO;
break;
}
return;
}
int main(int argc, char *argv[]) {
int exit;
int ferr;
int lerr;
char name[BUFSIZ];
char recv_buffer[BUFSIZ];
MS_SRE sre;
msfs_util_init_role(false, &argc, &argv, msg_debug_hook);
ferr = msg_mon_process_startup(true); // system messages
TEST_CHK_FEOK(ferr);
msg_mon_enable_mon_messages(true);
ferr = msg_mon_get_my_process_name(name, sizeof(name));
TEST_CHK_FEOK(ferr);
exit = 0;
while (!exit) {
do {
lerr = XWAIT(LREQ, -1);
TEST_CHK_WAITIGNORE(lerr);
lerr = XMSG_LISTEN_((short *) &sre, // sre
0, // listenopts
0); // listenertag
} while (lerr == XSRETYPE_NOWORK);
ferr = XMSG_READDATA_(sre.sre_msgId, // msgid
recv_buffer, // reqdata
BUFSIZ); // bytecount
util_check("XMSG_READDATA_", ferr);
if (sre.sre_flags & XSRE_MON) {
MS_Mon_Msg *msg = (MS_Mon_Msg *) recv_buffer;
printf("srv %s: mon message, type=%d\n", name, msg->type);
if (msg->type == MS_MsgType_Close)
exit = 1;
} else {
printf("srv %s: NON-mon message\n", name);
}
XMSG_REPLY_(sre.sre_msgId, // msgid
NULL, // replyctrl
0, // replyctrlsize
NULL, // replydata
0, // replydatasize
0, // errorclass
NULL); // newphandle
}
printf("server %s shutting down\n", name);
ferr = msg_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
return 0;
}
//
// server main
//
int main(int pv_argc, char *pa_argv[]) {
bool lv_done;
int lv_ferr;
int lv_lerr;
BMS_SRE lv_sre;
CALL_COMP_DOVERS(idtmsrv, pv_argc, pa_argv);
do_init(pv_argc, pa_argv);
lv_ferr = msg_mon_process_startup(true); // system messages
assert(lv_ferr == XZFIL_ERR_OK);
msg_mon_enable_mon_messages(true);
lv_ferr = msg_mon_get_my_process_name(ga_name, sizeof(ga_name));
assert(lv_ferr == XZFIL_ERR_OK);
do_shm();
lv_ferr = timer_start_cb(gv_time_refresh_delay, 0, 0, &gv_tleid, &timer_callback);
assert(lv_ferr == XZFIL_ERR_OK);
lv_done = false;
while (!lv_done) {
do {
lv_lerr = XWAIT(LREQ, -1);
lv_lerr = BMSG_LISTEN_((short *) &lv_sre, // sre
0, // listenopts
0); // listenertag
} while (lv_lerr == XSRETYPE_NOWORK);
if (lv_sre.sre_flags & XSRE_MON) {
do_mon_msg(&lv_sre, &lv_done);
} else {
do_req(&lv_sre);
}
}
if (gv_verbose)
printf("server %s shutting down\n", ga_name);
lv_ferr = msg_mon_process_shutdown();
assert(lv_ferr == XZFIL_ERR_OK);
return 0;
}
//
// server main
//
int main(int argc, char *argv[]) {
bool done;
int ferr;
int lerr;
BMS_SRE sre;
do_init(argc, argv);
ferr = msg_mon_process_startup(true); // system messages
assert(ferr == XZFIL_ERR_OK);
msg_mon_enable_mon_messages(true);
ferr = msg_mon_get_my_process_name(name, sizeof(name));
assert(ferr == XZFIL_ERR_OK);
do_shm();
done = false;
while (!done) {
do {
lerr = XWAIT(LREQ, -1);
lerr = BMSG_LISTEN_((short *) &sre, // sre
0, // listenopts
0); // listenertag
} while (lerr == XSRETYPE_NOWORK);
if (sre.sre_flags & XSRE_MON) {
do_mon_msg(&sre, &done);
} else {
do_req(&sre);
}
}
if (verbose)
printf("server %s shutting down\n", name);
ferr = msg_mon_process_shutdown();
assert(ferr == XZFIL_ERR_OK);
return 0;
}
int main(int argc, char *argv[]) {
bool bidir = false;
bool bm = false;
void *buf;
double busy;
_xcc_status cc;
int count_read;
int count_written;
int count_xferred;
int dsize = 1024;
int ferr;
short filenum[MAX_SERVERS];
short filenumr;
int inx;
int loop = 10;
int max;
int maxsp = 1;
bool mq = false;
bool nocopy = false;
bool nowaitc = false;
bool nowaits = false;
int pinx;
struct rusage r_start;
struct rusage r_stop;
char *recv_buffer_ptr;
RI_Type ri;
short sender_len;
int sys_msg;
struct timeval t_elapsed_data;
struct timeval t_elapsed_open;
struct timeval t_elapsed_total;
struct timeval t_start_data;
struct timeval t_start_total;
struct timeval t_stop;
SB_Tag_Type tag;
short tfilenum;
int timeout = -1;
bool verbose = false;
TAD zargs[] = {
{ "-bidir", TA_Bool, TA_NOMAX, &bidir },
{ "-bm", TA_Bool, TA_NOMAX, &bm },
{ "-client", TA_Bool, TA_NOMAX, &client },
{ "-dsize", TA_Int, MAX_DBUF, &dsize },
{ "-loop", TA_Int, TA_NOMAX, &loop },
{ "-maxcp", TA_Int, MAX_CLIENTS, &maxcp },
{ "-maxsp", TA_Int, MAX_SERVERS, &maxsp },
{ "-mq", TA_Bool, TA_NOMAX, &mq },
{ "-nocopy", TA_Bool, TA_NOMAX, &nocopy },
{ "-nowaitc", TA_Bool, TA_NOMAX, &nowaitc },
{ "-nowaits", TA_Bool, TA_NOMAX, &nowaits },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "", TA_End, TA_NOMAX, NULL }
};
for (inx = 0; inx < MAX_CLIENTS; inx++)
account[inx] = 0;
signal(SIGUSR2, printaccount);
ferr = file_init(&argc, &argv);
TEST_CHK_FEOK(ferr);
msfs_util_init_fs(&argc, &argv, file_debug_hook);
arg_proc_args(zargs, false, argc, argv);
if (maxcp < 0)
maxcp = 1;
if (maxsp < 0)
maxsp = 1;
util_test_start(client);
ferr = file_mon_process_startup(!client); // system messages?
TEST_CHK_FEOK(ferr);
if (nocopy) {
ferr = file_buf_register(buf_alloc, buf_free);
TEST_CHK_FEOK(ferr);
}
ferr = msg_mon_get_my_process_name(my_name, BUFSIZ);
TEST_CHK_FEOK(ferr);
// process-wait for clients/servers/shell
ferr = msfs_util_wait_process_count(MS_ProcessType_Generic,
maxcp + maxsp + 1,
NULL,
verbose);
if (client)
sleep(1);
util_time_timer_start(&t_start_total);
if (client) {
inx = atoi(&my_name[4]);
printf("dsize=%d, loop=%d\n", dsize, loop);
for (pinx = 0; pinx < maxsp; pinx++) {
sprintf(serv, "$srv%d", pinx);
ferr = BFILE_OPEN_(serv, (short) strlen(serv), &filenum[pinx],
0, 0, nowaitc ? (short) 1 : (short) 0,
0, 0, 0, 0, NULL);
TEST_CHK_FEOK(ferr);
}
util_time_timer_start(&t_start_data);
util_cpu_timer_start(&r_start);
util_time_elapsed(&t_start_total, &t_start_data, &t_elapsed_open);
max = loop;
for (inx = 0; inx < max; inx++) {
for (pinx = 0; pinx < maxsp; pinx++) {
if (pinx == 0) {
if (verbose)
printf("%s-count=%d\n", my_name, inx);
else if (mq && ((inx % 1000) == 0))
printf("%s-count=%d\n", my_name, inx);
}
cc = BWRITEREADX(filenum[pinx],
send_buffer,
(int) dsize, // cast
bidir ? dsize : 0,
&count_read,
0);
}
for (pinx = 0; pinx < maxsp; pinx++) {
if (nowaitc) {
TEST_CHK_CCEQ(cc);
tfilenum = filenum[pinx];
cc = BAWAITIOX(&tfilenum,
&buf,
&count_xferred,
&tag,
timeout,
NULL);
TEST_CHK_CCEQ(cc);
}
}
}
} else {
ferr = BFILE_OPEN_((char *) "$RECEIVE", 8, &filenumr,
0, 0, nowaits ? (short) 1 : (short) 0, // nowait
1, 0, // sys msg
0, 0, NULL);
TEST_CHK_FEOK(ferr);
util_time_timer_start(&t_start_data);
util_cpu_timer_start(&r_start);
max = maxcp * loop;
for (inx = 0; inx < max; inx++) {
if (nocopy) {
cc = file_buf_readupdatex(filenumr,
&recv_buffer_ptr,
&count_read,
0);
buf_free(recv_buffer_ptr);
} else
cc = BREADUPDATEX(filenumr,
recv_buffer,
(int) dsize, // cast
&count_read,
0);
if (nowaits) {
tfilenum = -1;
cc = BAWAITIOX(&tfilenum,
&buf,
&count_xferred,
&tag,
timeout,
NULL);
// don't check cc - could be sys msg
sys_msg = _xstatus_ne(cc);
} else
sys_msg = _xstatus_ne(cc);
if (sys_msg)
inx--;
if (!sys_msg) {
getri(&ri);
ferr = XPROCESSHANDLE_DECOMPOSE_(TPT_REF(ri.sender),
NULL, // cpu
NULL, // pin
NULL, // nodenumber
NULL, // nodename
0, // nodename
NULL, // nodename_length
sender,
sizeof(sender),
&sender_len,
NULL); // sequence_number
TEST_CHK_FEOK(ferr);
sender[sender_len] = 0;
if (verbose)
printf("sender=%s\n", sender);
char *p = &sender[4]; // past $cli
int sender_inx = atoi(p);
account[sender_inx]++;
}
cc = BREPLYX(recv_buffer,
bidir ? dsize : 0,
&count_written,
0,
XZFIL_ERR_OK);
TEST_CHK_CCEQ(cc);
}
}
util_cpu_timer_stop(&r_stop);
util_time_timer_stop(&t_stop);
util_time_elapsed(&t_start_total, &t_stop, &t_elapsed_total);
util_time_elapsed(&t_start_data, &t_stop, &t_elapsed_data);
util_cpu_timer_busy(&r_start, &r_stop, &t_elapsed_data, &busy);
if (client) {
if (!bm) {
print_elapsed("", &t_elapsed_total);
print_elapsed(" (data)", &t_elapsed_data);
print_elapsed(" (open)", &t_elapsed_open);
}
print_rate(bm, "", bidir ? 2 * loop : loop, dsize, &t_elapsed_data, busy);
} else
print_server_busy(bm, "", busy);
if (client) {
for (pinx = 0; pinx < maxsp; pinx++) {
ferr = BFILE_CLOSE_(filenum[pinx], 0);
TEST_CHK_FEOK(ferr);
}
} else {
ferr = BFILE_CLOSE_(filenumr, 0);
TEST_CHK_FEOK(ferr);
ferr = file_mon_process_close();
TEST_CHK_FEOK(ferr);
}
ferr = file_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(client);
printaccount(0);
return 0;
}
int main(int argc, char *argv[]) {
enum { MAX_RETRIES = 100 };
enum { SLEEP_US = 1000 };
bool attach = false;
_xcc_status cc;
bool client = false;
int count;
int count_read;
int count_written;
bool dif = false;
double dloop;
double dms;
double dsec;
int err;
bool exec = false;
int ferr;
bool fin = false;
MS_Mon_Process_Info_Type info;
MS_Mon_Process_Info_Type *infop;
int inx;
int inx2;
int inx3;
short len;
short lerr;
short lerr2;
int loop = 10;
int max;
int nid;
pid_t pid;
int sargc;
ssize_t size;
int snid;
int spid;
bool startup = false;
xzsys_ddl_smsg_def *sys_msgp = (xzsys_ddl_smsg_def *) recv_buffer;
int sys_msg;
int sys_msg_count;
bool verbose = false;
TAD zargs[] = {
{ "-attach", TA_Bool, TA_NOMAX, &attach },
{ "-client", TA_Bool, TA_NOMAX, &client },
{ "-dif", TA_Bool, TA_NOMAX, &dif },
{ "-exec", TA_Bool, TA_NOMAX, &exec },
{ "-loop", TA_Int, TA_NOMAX, &loop },
{ "-maxsp", TA_Int, TA_NOMAX, &maxsp },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "-startup", TA_Bool, TA_NOMAX, &startup },
{ "-trace", TA_Bool, TA_NOMAX, &trace },
{ "-v", TA_Bool, TA_NOMAX, &verbose },
{ "-verbose", TA_Ign, TA_NOMAX, NULL },
{ "", TA_End, TA_NOMAX, NULL }
};
arg_proc_args(zargs, false, argc, argv);
sprintf(fifo1, "%s-%s", FIFO1, getenv("USER"));
sprintf(fifo2, "%s-%s", FIFO2, getenv("USER"));
if (trace)
msg_init_trace();
if (exec)
return 0;
if (startup) {
err = fifo_open(fifo1, O_WRONLY);
assert(err != -1);
ffds[1] = err;
err = fifo_open(fifo2, O_RDONLY);
assert(err != -1);
ffds[0] = err;
if (trace)
trace_printf("cli: writing fifo\n");
size = write(ffds[1], recv_buffer, 1);
if (trace)
trace_printf("cli: fifo write, size=%d\n", (int) size);
assert(size == 1);
if (trace)
trace_printf("cli: fifo written\n");
close(ffds[1]);
return 0;
}
if (attach)
ferr = file_init_attach(&argc, &argv, false, NULL);
else
ferr = file_init(&argc, &argv);
TEST_CHK_FEOK(ferr);
util_test_start(client);
ferr = msg_mon_process_startup(true); // system messages
util_check("msg_mon_process_startup", ferr);
ferr = msg_mon_get_my_process_name(procname, BUFSIZ);
util_check("msg_mon_get_my_process_name", ferr);
ferr = msg_mon_get_process_info(procname, &nid, &pid);
TEST_CHK_FEOK(ferr);
if (trace)
trace_printf("proc=%s, nid=%d, pid=%d\n", procname, nid, pid);
dloop = (double) loop;
for (inx = 0; inx < T_MAX; inx++)
t_elapsed[inx] = 0.0;
if (client) {
printf("loop=%d, maxsp=%d\n", loop, maxsp);
sargc = argc;
assert(sargc < MAX_ARGS);
for (inx2 = 0; inx2 < argc; inx2++) {
if (strcmp(argv[inx2], "-client") == 0)
sargv[inx2] = (char *) "-server";
else
sargv[inx2] = argv[inx2];
if (strcmp(argv[inx2], "-attach") == 0)
sargv[inx2] = (char *) "-server";
}
sargv[argc] = NULL;
sprintf(sprog, "%s/%s", getenv("PWD"), argv[0]);
time_start(T_TOTAL);
for (inx = 0; inx < loop; inx += maxsp) {
if (dif)
snid = -1;
else
snid = nid;
max = loop - inx;
if (max > maxsp)
max = maxsp;
for (inx2 = 0; inx2 < max; inx2++)
sname[inx2][0] = 0; // mon picks name
if (trace)
trace_printf("cli: newproc, inx=%d\n", inx);
time_start(T_NEWPROC);
for (inx2 = 0; inx2 < max; inx2++) {
ferr = msg_mon_start_process(sprog, // prog
sname[inx2], // name
sname[inx2], // ret_name
sargc, // argc
sargv, // argv
TPT_REF2(sphandle,inx2),// phandle
false, // open
&soid[inx2], // oid
MS_ProcessType_Generic, // type
0, // priority
false, // debug
false, // backup
&snid, // nid
&spid, // pid
NULL, // infile
NULL); // outfile
TEST_CHK_FEOK(ferr);
}
time_stop(T_NEWPROC);
time_elapsed(T_NEWPROC);
// wait here until processes are 'up'
// so that open timing is correct
inx3 = 0;
for (inx2 = 0; inx2 < max; inx2++) {
ferr = msg_mon_get_process_info_detail(sname[inx2], &info);
TEST_CHK_FEOK(ferr);
if (info.state != MS_Mon_State_Up) {
inx3++;
if (inx3 > MAX_RETRIES) {
printf("process %s did not enter 'UP' state\n", sname[inx2]);
assert(inx3 < MAX_RETRIES);
}
usleep(SLEEP_US);
inx2--;
continue;
} else
inx3 = 0;
}
if (trace)
trace_printf("cli: open, inx=%d\n", inx);
time_start(T_OPEN);
for (inx2 = 0; inx2 < max; inx2++) {
if (trace)
trace_printf("cli: opening inx=%d, name=%s\n", inx, sname[inx2]);
len = (short) strlen(sname[inx2]);
ferr = BFILE_OPEN_(sname[inx2], len, &sfilenum[inx2],
0, 0, 0,
0, 0, 0, 0);
if (trace)
trace_printf("cli: open, inx=%d, name=%s, ferr=%d\n",
inx, sname[inx2], ferr);
TEST_CHK_FEOK(ferr);
}
time_stop(T_OPEN);
time_elapsed(T_OPEN);
if (trace)
trace_printf("cli: procinfo, inx=%d\n", inx);
time_start(T_PROCINFO);
for (inx2 = 0; inx2 < max; inx2++) {
ferr = msg_mon_get_process_info_detail(sname[inx2], &info);
TEST_CHK_FEOK(ferr);
}
time_stop(T_PROCINFO);
time_elapsed(T_PROCINFO);
if (trace)
trace_printf("cli: procinfo-type, inx=%d\n", inx);
time_start(T_PROCINFO_TYPE);
ferr = msg_mon_get_process_info_type(MS_ProcessType_Generic,
&count,
MAX_SRV,
infotype);
TEST_CHK_FEOK(ferr);
time_stop(T_PROCINFO_TYPE);
time_elapsed(T_PROCINFO_TYPE);
if (verbose) {
for (inx2 = 0; inx2 < count; inx2++) {
infop = &infotype[inx2];
char s_em = infop->event_messages ? 'E' : '-';
char s_sm = infop->system_messages ? 'S' : '-';
char s_pr = infop->pending_replication ? 'R' : '-';
char s_pd = infop->pending_delete ? 'D' : '-';
char s_s = infop->state == MS_Mon_State_Up ? 'A' : 'U';
char s_o = infop->opened ? 'O' : '-';
char s_p = infop->paired ? 'P' : infop->backup ? 'B' : '-';
printf("%3.3d,%8.8d %3.3d %d %c%c%c%c%c%c%c %-11s %-11s %-15s\n",
infop->nid,
infop->pid,
infop->priority,
infop->state,
s_em, s_sm, s_pr, s_pd, s_s, s_o, s_p,
infop->process_name,
infop->parent_name,
infop->program);
}
}
if (trace)
trace_printf("cli: close, inx=%d\n", inx);
time_start(T_CLOSE);
for (inx2 = 0; inx2 < max; inx2++) {
ferr = BFILE_CLOSE_(sfilenum[inx2]);
TEST_CHK_FEOK(ferr);
}
time_stop(T_CLOSE);
time_elapsed(T_CLOSE);
// re-open/close
for (inx2 = 0; inx2 < max; inx2++) {
if (trace)
trace_printf("cli: re-opening inx=%d, name=%s\n",
inx, sname[inx2]);
len = (short) strlen(sname[inx2]);
ferr = BFILE_OPEN_(sname[inx2], len, &sfilenum[inx2],
0, 0, 0,
0, 0, 0, 0);
TEST_CHK_FEOK(ferr);
}
if (trace)
trace_printf("cli: re-close, inx=%d\n", inx);
for (inx2 = 0; inx2 < max; inx2++) {
ferr = BFILE_CLOSE_(sfilenum[inx2]);
TEST_CHK_FEOK(ferr);
}
if (trace)
trace_printf("cli: newproc-forkexec, inx=%d\n", inx);
sargc = 2;
sargv[0] = argv[0];
sargv[1] = (char *) "-exec";
if (trace)
sargv[sargc++] = (char *) "-trace";
sargv[sargc] = NULL;
time_start(T_FORKEXEC);
for (inx2 = 0; inx2 < max; inx2++) {
pid = fork();
assert(pid >= 0);
if (pid == 0) {
// child
err = execv(sprog, sargv);
assert(err == 0);
}
}
time_stop(T_FORKEXEC);
time_elapsed(T_FORKEXEC);
if (trace)
trace_printf("cli: newproc-forkexec-su, inx=%d\n", inx);
sargc = 2;
sargv[0] = argv[0];
sargv[1] = (char *) "-startup";
if (trace)
sargv[sargc++] = (char *) "-trace";
sargv[sargc] = NULL;
time_start(T_FORKEXEC_SU);
for (inx2 = 0; inx2 < max; inx2++) {
fifo_create(fifo1, fifo2);
pid = fork();
assert(pid >= 0);
if (pid > 0) {
// parent
err = fifo_open(fifo1, O_RDONLY);
assert(err != -1);
ffds[0] = err;
err = fifo_open(fifo2, O_WRONLY);
assert(err != -1);
ffds[1] = err;
if (trace)
trace_printf("cli: reading fifo, inx=%d\n", inx2);
size = ::read(ffds[0], recv_buffer, 1);
if (trace)
trace_printf("cli: fifo read, size=%d\n", (int) size);
assert(size == 1);
if (trace)
trace_printf("cli: fifo read, inx=%d\n", inx2);
::read(ffds[0], recv_buffer, 1);
err = fifo_close(ffds[0]);
assert(err == 0);
err = fifo_close(ffds[1]);
assert(err == 0);
fifo_destroy(fifo1, fifo1);
} else {
// child
err = execv(sprog, sargv);
assert(err == 0);
}
}
fifo_destroy(fifo2, fifo2);
time_stop(T_FORKEXEC_SU);
time_elapsed(T_FORKEXEC_SU);
}
} else {
sys_msg_count = 0;
time_start(T_TOTAL);
ferr = BFILE_OPEN_((char *) "$RECEIVE", 8, &filenumr,
0, 0, 0,
1, 0); // sys msgs
TEST_CHK_FEOK(ferr);
for (inx = 0; !fin; inx++) {
if (trace)
trace_printf("srv: readupdate, inx=%d\n", inx);
cc = BREADUPDATEX(filenumr,
recv_buffer,
4,
&count_read,
0);
sys_msg = _xstatus_ne(cc);
if (trace && sys_msg)
trace_printf("srv: rcvd sys msg=%d\n",
sys_msgp->u_z_msg.z_msgnumber[0]);
if (sys_msg) {
sys_msg_count++;
inx--;
}
lerr2 = BFILE_GETINFO_(filenumr, &lerr);
TEST_CHK_FEIGNORE(lerr2);
if (trace)
trace_printf("srv: reply, inx=%d\n", inx);
cc = BREPLYX(recv_buffer,
(unsigned short) 0,
&count_written,
0,
XZFIL_ERR_OK);
TEST_CHK_CCEQ(cc);
if (sys_msg_count >= 4)
fin = true;
}
}
time_stop(T_TOTAL);
time_elapsed(T_TOTAL);
if (client) {
dsec = time_sec(T_TOTAL);
dms = dsec * 1000.0;
printf("elapsed=%f\n", dms);
printf("open/close/newprocess/processinfo/forkexec=%d\n", loop);
dsec = time_sec(T_OPEN);
dms = dsec * 1000.0;
printf("open : total-time=%f ms, time/loop=%f ms, ops/sec=%f\n",
dms, dms / dloop, dloop / dsec);
dsec = time_sec(T_CLOSE);
dms = dsec * 1000.0;
printf("close : total-time=%f ms, time/loop=%f ms, ops/sec=%f\n",
dms, dms / dloop, dloop / dsec);
dsec = time_sec(T_PROCINFO);
dms = dsec * 1000.0;
printf("procinfo : total-time=%f ms, time/loop=%f ms, ops/sec=%f\n",
dms, dms / dloop, dloop / dsec);
dsec = time_sec(T_PROCINFO_TYPE);
dms = dsec * 1000.0;
printf("procinfo-type : total-time=%f ms, time/loop=%f ms, ops/sec=%f\n",
dms, dms / dloop, dloop / dsec);
dsec = time_sec(T_NEWPROC);
dms = dsec * 1000.0;
printf("newproc : total-time=%f ms, time/loop=%f ms, ops/sec=%f\n",
dms, dms / dloop, dloop / dsec);
dsec = time_sec(T_FORKEXEC);
dms = dsec * 1000.0;
printf("forkexec : total-time=%f ms, time/loop=%f ms, ops/sec=%f\n",
dms, dms / dloop, dloop / dsec);
dsec = time_sec(T_FORKEXEC_SU);
dms = dsec * 1000.0;
printf("forkexec-startup: total-time=%f ms, time/loop=%f ms, ops/sec=%f\n",
dms, dms / dloop, dloop / dsec);
}
ferr = msg_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(client);
return 0;
}
void send_to_eventlog (short evt_num, short EventLogType, char *ComponentName, char *ObjectRef, short nToken, va_list marker)
{
BOOL found = FALSE;
short i,j;
int err, tokIdLen, idx;
char sqleventBuf[MAX_EVT_BUF_SIZE];
char *TokenPtr;
char tmpBuf[MS_MON_MAX_PROCESS_NAME + 64];
size_t szBuf = MAX_EVT_BUF_SIZE;
logLevel severity;
sqleventBuf[0] = '\0';
string logMsg;
logMsg.reserve(MAX_EVT_BUF_SIZE);
static char process_name[MS_MON_MAX_PROCESS_NAME];
static int nid, pid;
if (process_name[0] == 0)
{
msg_mon_get_my_process_name(process_name ,MS_MON_MAX_PROCESS_NAME );
msg_mon_get_process_info(process_name, &nid, &pid);
}
for (i = 0, found = FALSE; eventDataMap[i].eventId != 0L ; i++)
{
if (eventDataMap[i].eventId == evt_num)
{
found = TRUE;
//sprintf(tmpBuf, "%.30s (%d,%d): %ld ",process_name, nid, pid, getLongEventId(1, SQEVL_NDCS, evt_num, 9));
sprintf(tmpBuf, "Node Number: %d, CPU: %d, PIN:%ld, Process Name:%.30s , , ,", nid, nid, pid, process_name);
logMsg.append(tmpBuf);
for (j=0;eventDataMap[i].msgPtr[j] !=NULL || j>6 ;j++ )
{
logMsg.append(eventDataMap[i].msgPtr[j]);
}
break;
}
}
if (!found)
{
stringstream ss("ODBCMXEventMsg::send_to_eventlog: eventDataMap entry not found ");
throw(ss.str()) ;
}
_itoa(EventLogType, tmpBuf, 10);
// if (findString("<1>",&idx, logMsg))
// logMsg.replace( logMsg.find("<1>"), 3, tmpBuf );
// if (findString("<2>",&idx, logMsg))
// logMsg.replace( logMsg.find("<2>"), 3, ComponentName );
// if (findString("<3>",&idx, logMsg))
// logMsg.replace( logMsg.find("<3>"), 3, ObjectRef );
for ( i=0,j=4; i<nToken; i++,j++ )
{
TokenPtr = va_arg(marker, char *);
//errno = strstr(TokenPtr, "4126");
tokIdLen = sprintf(tmpBuf,"<%d>",j);
if (!findString(tmpBuf,&idx, logMsg))
logMsg.append( TokenPtr );
else
logMsg.replace( idx, tokIdLen, TokenPtr );
}
va_end(marker);
const char *logMsgStr = logMsg.c_str();
switch (EventLogType)
{
case EVENTLOG_ERROR_TYPE:
severity = LL_ERROR;
break;
case EVENTLOG_WARNING_TYPE:
severity = LL_WARN;
break;
case EVENTLOG_INFORMATION_TYPE:
severity = LL_INFO;
break;
default:
severity = LL_ERROR;
}
CommonLogger::log(MXOSRVR_COMPONENT, severity, logMsgStr);
}
int main(int argc, char *argv[]) {
_bcc_status bcc;
void *buf;
int cancel = 0;
bool client = false;
int closes;
int count;
int count_cancel;
int count_read;
int count_written;
int count_xferred;
int ferr;
int inxl;
int inxo;
int inxs;
int inxx;
int loop = 10;
int maxcp = 1;
int maxout = 1;
int maxsp = 1;
int msg_count;
bool mq = false;
short filenumr;
short filenums[MAX_SRV];
int send_len;
char serv[20];
xzsys_ddl_smsg_def *sys_msg = (xzsys_ddl_smsg_def *) recv_buffer;
SB_Tag_Type tago;
short tfilenum;
int timeout = -1;
bool verbose = false;
TAD zargs[] = {
{ "-cancel", TA_Int, TA_NOMAX, &cancel },
{ "-client", TA_Bool, TA_NOMAX, &client },
{ "-loop", TA_Int, TA_NOMAX, &loop },
{ "-maxcp", TA_Int, MAX_CLI, &maxcp },
{ "-maxout", TA_Int, MAX_OUT, &maxout },
{ "-maxsp", TA_Int, MAX_SRV, &maxsp },
{ "-mq", TA_Bool, TA_NOMAX, &mq },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "-v", TA_Bool, TA_NOMAX, &verbose },
{ "", TA_End, TA_NOMAX, NULL }
};
ferr = file_init(&argc, &argv);
TEST_CHK_FEOK(ferr);
msfs_util_init_fs(&argc, &argv, file_debug_hook);
arg_proc_args(zargs, false, argc, argv);
util_test_start(client);
ferr = file_mon_process_startup(!client); // system messages?
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_my_process_name(my_name, BUFSIZ);
util_check("file_mon_get_my_process_name", ferr);
if (client) {
ferr = XCONTROLMESSAGESYSTEM(XCTLMSGSYS_SETSENDLIMIT,
XMAX_SETTABLE_SENDLIMIT);
assert(ferr == XZFIL_ERR_OK);
for (inxs = 0; inxs < maxsp; inxs++) {
sprintf(serv, "$srv%d", inxs);
ferr = BFILE_OPEN_(serv, (short) strlen(serv), &filenums[inxs],
0, 0, (short) maxout,
0, 0, 0, 0, NULL);
TEST_CHK_FEOK(ferr);
}
msg_count = 0;
count_cancel = 0;
for (inxl = 0; inxl < loop; inxl++) {
count = 0;
if (cancel)
count_cancel = rnd(cancel);
for (inxs = 0; inxs < maxsp; inxs++) {
for (inxo = 0; inxo < maxout; inxo++) {
send_len = rnd(BUFSIZ);
bcc = BWRITEREADX(filenums[inxs],
send_buffer[inxo],
send_len,
BUFSIZ,
&count_read,
inxo + 1);
out_list[inxs][inxo] = inxo + 1;
util_check("BWRITEREADX", ferr);
}
}
for (inxs = 0; inxs < maxsp; inxs++) {
for (inxo = 0; inxo < maxout; inxo++) {
msg_count++;
if (verbose)
printf("client(%s): msg-count=%d\n",
my_name, msg_count);
count++;
if (cancel && (count >= count_cancel)) {
if (verbose)
printf("client(%s): cancel, count=%d\n",
my_name, count);
count_cancel = rnd(cancel);
count = 0;
tago = out_list[inxs][inxo];
if (tago == 0) {
for (inxx = maxout - 1; inxx > 0; inxx--) {
tago = out_list[inxs][inxx];
if (tago > 0)
break;
}
}
if (verbose)
printf("client(%s): cancel, tag=" PFTAG "\n",
my_name, tago);
ferr = BCANCELREQ(filenums[inxs], tago);
util_check("BCANCELREQ", ferr);
} else {
tfilenum = filenums[inxs];
bcc = BAWAITIOX(&tfilenum,
&buf,
&count_xferred,
&tago,
timeout,
NULL);
TEST_CHK_BCCEQ(bcc);
assert(tago <= maxout);
out_list[inxs][tago-1] = 0;
}
}
}
if (mq) {
if ((inxl % 100) == 0)
printf("client(%s): count=%d\n", my_name, inxl);
}
}
for (inxs = 0; inxs < maxsp; inxs++) {
ferr = BFILE_CLOSE_(filenums[inxs]);
TEST_CHK_FEOK(ferr);
}
} else {
ferr = XCONTROLMESSAGESYSTEM(XCTLMSGSYS_SETRECVLIMIT,
XMAX_SETTABLE_RECVLIMIT);
assert(ferr == XZFIL_ERR_OK);
ferr = XFILE_OPEN_((char *) "$RECEIVE", 8, &filenumr,
0, 0, 0,
1, 0, // sys msg
0, 0, NULL);
TEST_CHK_FEOK(ferr);
closes = 0;
msg_count = 0;
// process requests
for (;;) {
bcc = BREADUPDATEX(filenumr,
recv_buffer,
BUFSIZ,
&count_read,
0);
if (_xstatus_ne(bcc)) {
int mt = sys_msg->u_z_msg.z_msgnumber[0];
if (mt == XZSYS_VAL_SMSG_CLOSE) {
closes++;
if (verbose)
printf("server(%s): closes=%d\n",
my_name, closes);
} else {
const char *mtstr = msfs_util_get_sysmsg_str(mt);
if (verbose)
printf("server(%s): type=%s(%d)\n", my_name, mtstr, mt);
}
} else {
msg_count++;
if (verbose)
printf("server(%s): msg-count=%d\n",
my_name, msg_count);
}
bcc = BREPLYX(recv_buffer,
count_read,
&count_written,
0,
XZFIL_ERR_OK);
TEST_CHK_BCCEQ(bcc);
if (closes >= maxcp)
break;
}
}
ferr = file_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(client);
return 0;
}
int main(int argc, char *argv[]) {
char *cli;
int ferr;
int lerr;
int msgid;
int nid;
int oid;
TPT_DECL (phandle);
int pid;
MS_Result_Type results;
int send_len;
const char *sname = "$srv";
MS_SRE sre;
ferr = msg_init(&argc, &argv);
TEST_CHK_FEOK(ferr);
ferr = msg_mon_process_startup(true); // system messages?
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_my_process_name(pname, sizeof(pname));
TEST_CHK_FEOK(ferr);
msg_mon_enable_mon_messages(true);
sprintf(prog, "%s/%s", getenv("PWD"), argv[0]);
cli = strstr(prog, "cli");
strcpy(cli, "srv");
nid = 0;
ferr = msg_mon_start_process_nowait(prog, // prog
(char *) sname, // name
retname, // ret-name
argc, // argc
argv, // argv
TPT_REF(phandle), // phandle
MS_ProcessType_Generic, // type
0, // priority
false, // debug
false, // backup
0x123456789abcdefLL, // tag
&nid, // nid
&pid, // pid
NULL, // infile
NULL); // outfile
TEST_CHK_FEOK(ferr);
assert(strcasecmp(retname, sname) == 0);
assert(nid == 0);
lerr = XWAIT(LREQ, -1);
TEST_CHK_WAITIGNORE(lerr);
for (;;) {
lerr = XMSG_LISTEN_((short *) &sre, // sre
0, // listenopts
0); // listenertag
if (lerr == XSRETYPE_NOWORK)
continue;
ferr = XMSG_READDATA_(sre.sre_msgId, // msgid
recv_buffer, // reqdata
BUFSIZ); // bytecount
TEST_CHK_FEOK(ferr);
if (sre.sre_flags & XSRE_MON) {
MS_Mon_Msg *msg = (MS_Mon_Msg *) recv_buffer;
printf("client (%s) received mon message, type=%d\n",
pname, msg->type);
assert(msg->type == MS_MsgType_ProcessCreated);
printf("client (%s) received new process message, ferr=%d, nid=%d, pid=%d, tag=0x%llx, pname=%s\n",
pname,
msg->u.process_created.ferr,
msg->u.process_created.nid,
msg->u.process_created.pid,
msg->u.process_created.tag,
msg->u.process_created.process_name);
assert(msg->u.process_created.ferr == XZFIL_ERR_OK);
assert(msg->u.process_created.tag == 0x123456789abcdefLL);
ferr = msg_mon_open_process((char *) sname, // name
TPT_REF(phandle),
&oid);
TEST_CHK_FEOK(ferr);
}
XMSG_REPLY_(sre.sre_msgId, // msgid
NULL, // replyctrl
0, // replyctrlsize
NULL, // replydata
0, // replydatasize
0, // errorclass
NULL); // newphandle
if (sre.sre_flags & XSRE_MON)
break;
}
strcpy(send_buffer, "hello, greetings from client");
send_len = (int) strlen(send_buffer) + 1;
ferr = BMSG_LINK_(TPT_REF(phandle), // phandle
&msgid, // msgid
NULL, // reqctrl
0, // reqctrlsize
recv_buffer3, // replyctrl
1, // replyctrlmax
send_buffer, // reqdata
(ushort) send_len, // reqdatasize
recv_buffer, // replydata
BUFSIZ, // replydatamax
0, // linkertag
0, // pri
0, // xmitclass
0); // linkopts
TEST_CHK_FEOK(ferr);
ferr = BMSG_BREAK_(msgid, (short *) &results, TPT_REF(phandle));
TEST_CHK_FEOK(ferr);
printf("%s\n", recv_buffer);
ferr = msg_mon_close_process(TPT_REF(phandle));
TEST_CHK_FEOK(ferr);
ferr = msg_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
return 0;
}
int main(int argc, char *argv[]) {
int csize = 0;
int dinx;
int dloop = MAX_OUT;
int dsize = MAX_DBUF;
int ferr;
TPT_DECL2 (phandle,MAX_SERVERS);
int inx;
int lerr;
int loop = 10;
int max;
int maxsp = 1;
int msgids[MAX_SERVERS * MAX_OUT];
int oid;
int pinx;
short *reqctrl;
char *reqdata;
short *repctrl;
char *repdata;
RT results;
MS_SRE sre;
bool verbose = false;
int xinx;
TAD zargs[] = {
{ "-client", TA_Bool, TA_NOMAX, &client },
{ "-csize", TA_Int, MAX_CBUF, &csize },
{ "-dloop", TA_Int, MAX_OUT, &dloop },
{ "-dsize", TA_Int, MAX_DBUF, &dsize },
{ "-loop", TA_Int, TA_NOMAX, &loop },
{ "-maxcp", TA_Int, MAX_CLIENTS, &maxcp },
{ "-maxsp", TA_Int, MAX_SERVERS, &maxsp },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "-v", TA_Bool, TA_NOMAX, &verbose },
{ "", TA_End, TA_NOMAX, NULL }
};
ferr = msg_init(&argc, &argv);
TEST_CHK_FEOK(ferr);
msfs_util_init_fs(&argc, &argv, msg_debug_hook);
arg_proc_args(zargs, false, argc, argv);
if (maxcp < 0)
maxcp = 1;
if (maxsp < 0)
maxsp = 1;
ferr = msg_mon_process_startup(!client); // system messages?
TEST_CHK_FEOK(ferr);
if (!client)
msg_mon_enable_mon_messages(true);
ferr = msg_mon_get_my_process_name(my_name, BUFSIZ);
TEST_CHK_FEOK(ferr);
// process-wait for clients/servers/shell
ferr = msfs_util_wait_process_count(MS_ProcessType_Generic,
maxcp + maxsp + 1,
NULL,
verbose);
TEST_CHK_FEOK(ferr);
sleep(3); // wait for all process_count's to complete
if (client) {
pinx = atoi(&my_name[4]);
assert(pinx >= 0);
printf("loop=%d\n", loop);
for (inx = 0; inx < loop; inx++) {
for (pinx = 0; pinx < maxsp; pinx++) {
sprintf(serv, "$srv%d", pinx);
ferr = msg_mon_open_process(serv,
TPT_REF2(phandle,pinx),
&oid);
TEST_CHK_FEOK(ferr);
}
for (pinx = 0; pinx < maxsp; pinx++) {
for (dinx = 0; dinx < dloop; dinx++) {
xinx = pinx * maxsp + dinx;
reqctrl = &send_buffer2[xinx * csize];
repctrl = &recv_buffer3[xinx * csize];
reqdata = &send_buffer[xinx * dsize];
repdata = &recv_buffer[xinx * dsize];
ferr = XMSG_LINK_(TPT_REF2(phandle,pinx), // phandle
&msgids[xinx], // msgid
reqctrl, // reqctrl
(short) csize, // reqctrlsize
repctrl, // replyctrl
(short) csize, // replyctrlmax
reqdata, // reqdata
(short) dsize, // reqdatasize
repdata, // replydata
(short) dsize, // replydatamax
0, // linkertag
0, // pri
0, // xmitclass
0); // linkopts
util_check("XMSG_LINK_", ferr);
}
}
for (pinx = 0; pinx < maxsp; pinx++) {
for (dinx = 0; dinx < dloop; dinx++) {
xinx = pinx * maxsp + dinx;
ferr = XMSG_BREAK_(msgids[xinx],
results.u.s,
TPT_REF2(phandle,pinx));
util_check("XMSG_BREAK_", ferr);
assert((int) results.u.t.ctrl_size == csize);
assert((int) results.u.t.data_size == dsize);
assert(results.u.t.errm == RT_DATA_RCVD); // data
}
if (verbose)
printf("%s-open-count=%d\n", my_name, inx);
}
for (pinx = 0; pinx < maxsp; pinx++) {
ferr = msg_mon_close_process(TPT_REF2(phandle,pinx));
TEST_CHK_FEOK(ferr);
if (verbose)
printf("%s-close-count=%d\n", my_name, inx);
}
}
} else {
max = 2 * maxcp * loop + maxcp * dloop * loop;
for (inx = 0; inx < max; inx++) {
do {
lerr = XWAIT(LREQ, -1);
TEST_CHK_WAITIGNORE(lerr);
lerr = XMSG_LISTEN_((short *) &sre, // sre
0, // listenopts
0); // listenertag
} while (lerr == XSRETYPE_NOWORK);
ferr = XMSG_READCTRL_(sre.sre_msgId, // msgid
recv_buffer2, // reqctrl
sre.sre_reqCtrlSize); // bytecount
util_check("XMSG_READCTRL_", ferr);
ferr = XMSG_READDATA_(sre.sre_msgId, // msgid
recv_buffer, // reqdata
sre.sre_reqDataSize); // bytecount
util_check("XMSG_READDATA_", ferr);
XMSG_REPLY_(sre.sre_msgId, // msgid
recv_buffer2, // replyctrl
sre.sre_reqCtrlSize, // replyctrlsize
recv_buffer, // replydata
sre.sre_reqDataSize, // replydatasize
0, // errorclass
NULL); // newphandle
if (verbose)
printf("%s-count=%d\n", my_name, inx);
}
}
ferr = msg_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(client);
return 0;
}
int main(int argc, char *argv[]) {
_xcc_status cc;
bool client = false;
int count_read;
int count_written;
int ferr;
short filenum;
int inx;
void *result;
int status;
SB_Thread::Thread *thr_cli;
TAD zargs[] = {
{ "-client", TA_Bool, TA_NOMAX, &client },
{ "-loop", TA_Int, TA_NOMAX, &loop },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "-sname", TA_Str, TA_NOMAX, &sname },
{ "", TA_End, TA_NOMAX, NULL }
};
ferr = file_init(&argc, &argv);
TEST_CHK_FEOK(ferr);
msfs_util_init_fs(&argc, &argv, file_debug_hook);
arg_proc_args(zargs, false, argc, argv);
util_test_start(client);
ferr = file_mon_process_startup(!client); // system messages?
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_my_process_name(my_name, BUFSIZ);
util_check("msg_mon_get_my_process_name", ferr);
if (client) {
thr_cli = new SB_Thread::Thread(thread_cli_fun, "cli");
thr_cli->start();
status = thr_cli->join(&result);
TEST_CHK_STATUSOK(status);
delete thr_cli;
} else {
ferr = BFILE_OPEN_((char *) "$RECEIVE", 8, &filenum,
0, 0, 0,
1, 0, // sys msg
0, 0, NULL);
TEST_CHK_FEOK(ferr);
for (inx = 0; inx < (loop + 4); inx++) {
cc = BREADUPDATEX(filenum,
recv_buffer,
BUFSIZ,
&count_read,
0);
if (_xstatus_ne(cc)) {
count_read = 0;
} else {
strcat(recv_buffer, "- reply from ");
strcat(recv_buffer, my_name);
count_read = (int) (strlen(recv_buffer) + 1); // cast
}
cc = BREPLYX(recv_buffer,
count_read,
&count_written,
0,
XZFIL_ERR_OK);
TEST_CHK_CCEQ(cc);
}
ferr = BFILE_CLOSE_(filenum, 0);
TEST_CHK_FEOK(ferr);
}
ferr = file_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(client);
return 0;
}
int main(int argc, char *argv[]) {
int cycle;
int disable;
int ferr;
#ifndef USE_OPEN
int lnid;
int lpid;
#endif
int msgid;
char process_name[MS_MON_MAX_PROCESS_NAME];
char recvbuf[100];
MS_Result_Type results;
int retries;
int sendbuf[3];
ferr = msfs_util_init_role(true, &argc, &argv, msg_debug_hook);
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_my_process_name(gdisplay_name, sizeof(gdisplay_name));
assert(ferr == XZFIL_ERR_OK);
myprintf("processing startup.\n");
util_test_start(true);
ferr = msg_mon_process_startup(true); // system messages
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_process_info(gdisplay_name, &gnid, &gpid);
TEST_CHK_FEOK(ferr);
strcpy(process_name, "$srv");
myprintf("opening server %s.\n", process_name);
#ifdef USE_OPEN
ferr = msg_mon_open_process(process_name, TPT_REF(gserver_phandle), &gserver_oid);
TEST_CHK_FEOK(ferr);
#else
gserver_phandlep = msg_get_phandle(process_name);
assert(gserver_phandlep != NULL);
#endif
// do the work
myprintf("Starting work with server\n");
disable = msg_test_assert_disable();
for (cycle = 0; cycle < MAX_CYCLES + 1; cycle++) {
sendbuf[0] = gpid;
sendbuf[1] = cycle;
switch (cycle) {
case 5:
sendbuf[2] = CMD_ABORT;
break;
case 6:
sendbuf[2] = CMD_CP_AB;
break;
case MAX_CYCLES:
sendbuf[2] = CMD_END;
break;
default:
sendbuf[2] = CMD_CONT;
}
retries = 5;
do {
myprintf("sending %d.%d.%d to server\n",
sendbuf[0], sendbuf[1], sendbuf[2]);
#ifdef USE_OPEN
ferr = XMSG_LINK_(TPT_REF(gserver_phandle), // phandle
#else
ferr = XPROCESSHANDLE_DECOMPOSE_(gserver_phandlep, &lnid, &lpid);
assert(ferr == XZFIL_ERR_OK);
printf("phandle nid=%d, pid=%d\n", lnid, lpid);
ferr = XMSG_LINK_(gserver_phandlep, // phandle
#endif
&msgid, // msgid
NULL, // reqctrl
0, // reqctrlsize
NULL, // replyctrl
0, // replyctrlmax
(char *) sendbuf, // reqdata
sizeof(sendbuf), // reqdatasize
recvbuf, // replydata
sizeof(recvbuf), // replydatamax
0, // linkertag
0, // pri
0, // xmitclass
0); // linkopts
TEST_CHK_FEOK(ferr);
ferr = XMSG_BREAK_(msgid,
(short *) &results,
#ifdef USE_OPEN
TPT_REF(gserver_phandle));
#else
gserver_phandlep);
#endif
if (ferr == XZFIL_ERR_OK)
myprintf("Cycle # %d - %s\n", cycle, recvbuf);
else
myprintf("XMSG_BREAK_ error ferr=%d\n", ferr);
if (ferr != XZFIL_ERR_OK) {
retries--;
sleep(1);
if (retries <= 0) {
myprintf("retries exhausted\n");
assert(retries > 0);
}
myprintf("retrying\n");
} else
retries = 0;
} while (retries > 0);
}
msg_test_assert_enable(disable);
// close the server processes
myprintf("closing server %s.\n", process_name);
#ifdef USE_OPEN
ferr = msg_mon_close_process(TPT_REF(gserver_phandle));
#else
ferr = msg_mon_close_process(gserver_phandlep);
#endif
TEST_CHK_FEOK(ferr);
myprintf("sending exit process message.\n");
ferr = msg_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(true);
return 0;
}
int main(int argc, char *argv[]) {
bool client = false;
int client_mon;
int cnid = -1;
bool commit_rcvd = false;
int cpid = -1;
int disable;
bool done = false;
int event_len;
int ferr;
int first;
int handle;
int inx;
int len;
int lerr;
int loop = 10;
int msgid;
int nid;
bool open_rcvd = false;
int orig_tag;
TPT_DECL2 (phandle,MAX_SERVERS);
int pid;
int pinx;
RT results;
int send_len;
MS_SRE sre;
int status;
bool sync = false;
bool threaded = false;
bool verbose = false;
TAD zargs[] = {
{ "-client", TA_Bool, TA_NOMAX, &client },
{ "-loop", TA_Int, TA_NOMAX, &loop },
{ "-quiet", TA_Bool, TA_NOMAX, &quiet },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "-sync", TA_Bool, TA_NOMAX, &sync },
{ "-threaded", TA_Bool, TA_NOMAX, &threaded },
{ "-v", TA_Bool, TA_NOMAX, &verbose },
{ "", TA_End, TA_NOMAX, NULL }
};
msfs_util_init(&argc, &argv, msg_debug_hook);
arg_proc_args(zargs, false, argc, argv);
util_test_start(client);
ferr = msg_mon_process_startup(!client); // system messages?
TEST_CHK_FEOK(ferr);
sleep(1); // wait for client to get into msg_mon_process_info
ferr = msg_mon_get_my_process_name(pname, sizeof(pname));
TEST_CHK_FEOK(ferr);
if (strcasecmp(pname, "$tm0") == 0)
tag = TAG0;
else if (strcasecmp(pname, "$tm1") == 0)
tag = TAG1;
else
tag = TAG2;
ferr = msg_mon_get_process_info(NULL, &snid, &spid);
TEST_CHK_FEOK(ferr);
if (client) {
char serv[BUFSIZ];
for (pinx = 0; pinx < MAX_SERVERS; pinx++) {
sprintf(serv, "$tm%d", pinx);
ferr = msg_mon_open_process(serv, // name
TPT_REF2(phandle,pinx),
&oid[pinx]);
TEST_CHK_FEOK(ferr);
}
} else {
first = (strcasecmp(pname, "$tm0") == 0);
disable = msg_test_assert_disable();
ferr = msg_mon_tm_leader_set(&nid, &pid, lname);
msg_test_assert_enable(disable);
if (first) {
TEST_CHK_FEOK(ferr);
} else
assert(ferr != XZFIL_ERR_OK);
printf("leader is p-id=%d/%d, name=%s\n",
nid, pid, lname);
}
util_gethostname(my_name, sizeof(my_name));
msg_mon_enable_mon_messages(true);
if (!client) {
ferr = msg_mon_event_wait(1, &event_len, event_data);
util_check("msg_mon_event_wait", ferr);
ferr = msg_mon_tmsync_register(tmsync_cb);
util_check("msg_mon_tmsync_register", ferr);
if (sync) {
char serv[BUFSIZ];
for (pinx = 0; pinx < MAX_SERVERS; pinx++) {
sprintf(serv, "$tm%d", pinx);
if (strcasecmp(serv, pname) != 0) {
ferr = msg_mon_open_process(serv, // name
TPT_REF2(phandle,pinx),
&oid[pinx]);
TEST_CHK_FEOK(ferr);
}
}
// at this point, we know everyone is registered
// if everyone isn't registered, there will be an abort
do_sync();
if (threaded)
do_sync_threaded();
}
}
if (client) {
for (inx = 0; inx < loop; inx++) {
sprintf(send_buffer, "hello, greetings from %s, inx=%d",
my_name, inx);
send_len = (int) strlen(send_buffer) + 1;
for (pinx = 0; pinx < MAX_SERVERS; pinx++) {
if (verbose)
printf("%s: sending message, pinx=%d, inx=%d\n",
pname, pinx, inx);
ferr = XMSG_LINK_(TPT_REF2(phandle,pinx), // phandle
&msgid, // msgid
send_buffer2, // reqctrl
(ushort) (inx & 1), // reqctrlsize
recv_buffer3, // replyctrl
1, // replyctrlmax
send_buffer, // reqdata
(ushort) send_len, // reqdatasize
recv_buffer, // replydata
BUFSIZ, // replydatamax
0, // linkertag
0, // pri
0, // xmitclass
0); // linkopts
util_check("XMSG_LINK_", ferr);
ferr = XMSG_BREAK_(msgid, results.u.s, TPT_REF2(phandle,pinx));
util_check("XMSG_BREAK_", ferr);
assert(results.u.t.ctrl_size == (uint) (inx & 1));
assert(results.u.t.data_size > (strlen(send_buffer) + 14));
assert(results.u.t.errm == RT_DATA_RCVD); // data
if (!quiet)
printf("%s\n", recv_buffer);
}
}
for (pinx = 0; pinx < MAX_SERVERS; pinx++) {
ferr = msg_mon_close_process(TPT_REF2(phandle,pinx));
TEST_CHK_FEOK(ferr);
}
} else {
inx = 0;
while (!done) {
lerr = XWAIT(LREQ, -1);
TEST_CHK_WAITIGNORE(lerr);
for (;;) {
lerr = XMSG_LISTEN_((short *) &sre, // sre
0, // listenopts
0); // listenertag
if (lerr == XSRETYPE_NOWORK)
break;
ferr = XMSG_READCTRL_(sre.sre_msgId, // msgid
recv_buffer2, // reqctrl
1); // bytecount
util_check("XMSG_READCTRL_", ferr);
ferr = XMSG_READDATA_(sre.sre_msgId, // msgid
recv_buffer, // reqdata
BUFSIZ); // bytecount
util_check("XMSG_READDATA_", ferr);
if (sre.sre_flags & XSRE_MON) {
MS_Mon_Msg *msg = (MS_Mon_Msg *) recv_buffer;
if (cnid < 0) {
ferr = msg_mon_get_process_info((char *) "$cli", &cnid, &cpid);
if (ferr != XZFIL_ERR_OK) {
cnid = -1;
cpid = -1;
}
}
client_mon = true;
Item *item_hdl;
Item *item_tag;
const char *type;
switch (msg->type) {
case MS_MsgType_Close:
type = "close";
if ((cnid == msg->u.close.nid) &&
(cpid == msg->u.close.pid)) {
} else
client_mon = false;
break;
case MS_MsgType_NodeDown:
type = "node-down";
break;
case MS_MsgType_Open:
type = "open";
if ((cnid == msg->u.open.nid) &&
(cpid == msg->u.open.pid))
open_rcvd = true;
else
client_mon = false;
break;
case MS_MsgType_ProcessDeath:
type = "process-death";
break;
case MS_MsgType_Shutdown:
type = "shutdown";
done = true;
break;
case MS_MsgType_TmSyncAbort:
case MS_MsgType_TmSyncCommit:
if (msg->type == MS_MsgType_TmSyncAbort)
type = "tmsync-abort";
else
type = "tmsync-commit";
nid = msg->u.tmsync.nid[0];
handle = msg->u.tmsync.handle[0];
if (msg->u.tmsync.orig_count == 0) {
msg->u.tmsync.orig_tag[0] = -1;
msg->u.tmsync.orig_handle[0] = -1;
}
orig_tag = msg->u.tmsync.orig_tag[0];
if (!quiet) {
printf("server (%s) received (%s) mon message, type=%s(%d), nid=%d\n",
pname,
client_mon ? "cli" : "dtm",
type,
msg->type,
nid);
printf(" orig_count=%d, orig_tag=%d, orig_handle=%d, count=%d, handle[0]=%d\n",
msg->u.tmsync.orig_count,
orig_tag,
msg->u.tmsync.orig_handle[0],
msg->u.tmsync.count,
handle);
}
if (nid == snid) {
if (!quiet)
printf("server (%s) commit handle=%d, orig-count=%d\n",
pname, handle, msg->u.tmsync.orig_count);
for (int inx2 = 0;
inx2 < msg->u.tmsync.count;
inx2++) {
int ltag = msg->u.tmsync.orig_tag[inx2];
int lhandle = msg->u.tmsync.orig_handle[inx2];
if (!quiet)
printf("server (%s) commit orig-tag/handle=%d/%d\n",
pname, ltag, lhandle);
item_tag = (Item *) tag_issue_map.remove(ltag);
assert(item_tag != NULL);
delete item_tag;
item_hdl = (Item *) handle_issue_map.remove(lhandle);
assert(item_hdl != NULL);
delete item_hdl;
}
} else {
assert(msg->u.tmsync.orig_count == 0);
}
commit_rcvd = true;
break;
default:
type = "<unknown>";
}
if (!quiet)
printf("server (%s) received (%s) mon message, type=%s(%d)\n",
pname, client_mon ? "cli" : "dtm", type, msg->type);
len = 0;
} else {
inx++;
if (verbose)
printf("%s: received non-mon message, inx=%d\n",
pname, inx);
if (!sync)
assert(sync_rcvd);
assert(commit_rcvd);
assert(open_rcvd);
strcat(recv_buffer, "- reply from ");
strcat(recv_buffer, my_name);
strcat(recv_buffer, " - ");
strcat(recv_buffer, pname);
len = (int) strlen(recv_buffer) + 1;
}
XMSG_REPLY_(sre.sre_msgId, // msgid
recv_buffer2, // replyctrl
sre.sre_reqCtrlSize, // replyctrlsize
recv_buffer, // replydata
(ushort) len, // replydatasize
0, // errorclass
NULL); // newphandle
}
}
assert(inx == loop);
assert(tag_issue_map.empty());
assert(handle_issue_map.empty());
// need to wait for shutdown to be started
ferr = msg_mon_event_wait(2, &event_len, event_data);
util_check("msg_mon_event_wait", ferr);
if (sync && threaded) {
sync_thr_shutdown = true;
for (int thr = 0; thr < MAX_THR; thr++) {
void *larg;
status = sync_thr[thr]->join(&larg);
TEST_CHK_STATUSOK(status);
}
}
}
ferr = msg_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(client);
return 0;
}
int main(int argc, char *argv[]) {
int abandon = 0;
bool client = false;
int closes;
int count;
int count_abandon;
int ferr;
int inxl;
int inxo;
int inxs;
int lerr;
int loop = 10;
int maxcp = 1;
int maxout = 1;
int maxsp = 1;
int msgid[MAX_OUT];
int msg_count;
bool mq = false;
int oid;
TPT_DECL2 (phandle, MAX_SRV);
int recv_len;
RT results;
int send_len;
char serv[20];
BMS_SRE sre;
bool verbose = false;
TAD zargs[] = {
{ "-abandon", TA_Int, TA_NOMAX, &abandon },
{ "-client", TA_Bool, TA_NOMAX, &client },
{ "-loop", TA_Int, TA_NOMAX, &loop },
{ "-maxcp", TA_Int, MAX_CLI, &maxcp },
{ "-maxout", TA_Int, MAX_OUT, &maxout },
{ "-maxsp", TA_Int, MAX_SRV, &maxsp },
{ "-mq", TA_Bool, TA_NOMAX, &mq },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "-v", TA_Bool, TA_NOMAX, &verbose },
{ "", TA_End, TA_NOMAX, NULL }
};
ferr = msg_init(&argc, &argv);
TEST_CHK_FEOK(ferr);
msfs_util_init_fs(&argc, &argv, msg_debug_hook);
arg_proc_args(zargs, false, argc, argv);
util_test_start(client);
ferr = msg_mon_process_startup(!client); // system messages?
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_my_process_name(my_name, BUFSIZ);
util_check("msg_mon_get_my_process_name", ferr);
if (client) {
ferr = XCONTROLMESSAGESYSTEM(XCTLMSGSYS_SETSENDLIMIT,
XMAX_SETTABLE_SENDLIMIT);
assert(ferr == XZFIL_ERR_OK);
msg_count = 0;
count_abandon = 0;
for (inxl = 0; inxl < loop; inxl++) {
for (inxs = 0; inxs < maxsp; inxs++) {
sprintf(serv, "$srv%d", inxs);
ferr = msg_mon_open_process((char *) serv, // name
TPT_REF2(phandle, inxs),
&oid);
TEST_CHK_FEOK(ferr);
}
count = 0;
if (abandon)
count_abandon = rnd(abandon);
for (inxs = 0; inxs < maxsp; inxs++) {
for (inxo = 0; inxo < maxout; inxo++) {
send_len = rnd(BUFSIZ);
ferr = BMSG_LINK_(TPT_REF2(phandle, inxs), // phandle
&msgid[inxo], // msgid
NULL, // reqctrl
0, // reqctrlsize
NULL, // replyctrl
0, // replyctrlmax
send_buffer[inxo], // reqdata
send_len, // reqdatasize
recv_buffer[inxo], // replydata
BUFSIZ, // replydatamax
0, // linkertag
0, // pri
0, // xmitclass
0); // linkopts
util_check("XMSG_LINK_", ferr);
}
}
for (inxs = 0; inxs < maxsp; inxs++) {
for (inxo = 0; inxo < maxout; inxo++) {
msg_count++;
if (verbose)
printf("client(%s): msg-count=%d\n",
my_name, msg_count);
count++;
if (abandon && (count >= count_abandon)) {
if (verbose)
printf("client(%s): sending abandon, count=%d\n",
my_name, count);
count_abandon = rnd(abandon);
count = 0;
ferr = XMSG_ABANDON_(msgid[inxo]);
util_check("XMSG_ABANDON_", ferr);
} else {
ferr = BMSG_BREAK_(msgid[inxo],
results.u.s,
TPT_REF2(phandle, inxs));
util_check("XMSG_BREAK_", ferr);
}
}
}
if (mq) {
if ((inxl % 100) == 0)
printf("client(%s): count=%d\n", my_name, inxl);
}
}
for (inxs = 0; inxs < maxsp; inxs++) {
ferr = msg_mon_close_process(TPT_REF2(phandle, inxs));
TEST_CHK_FEOK(ferr);
}
} else {
ferr = XCONTROLMESSAGESYSTEM(XCTLMSGSYS_SETRECVLIMIT,
XMAX_SETTABLE_RECVLIMIT);
assert(ferr == XZFIL_ERR_OK);
closes = 0;
msg_count = 0;
msg_mon_enable_mon_messages(true);
// process requests
for (;;) {
do {
lerr = XWAIT(LREQ, -1);
lerr = BMSG_LISTEN_((short *) &sre, // sre
0, // listenopts
0); // listenertag
} while (lerr == XSRETYPE_NOWORK);
if (sre.sre_flags & XSRE_MON) {
ferr = XMSG_READDATA_(sre.sre_msgId, // msgid
recv_buffer[0], // reqdata
BUFSIZ); // bytecount
util_check("XMSG_READDATA_", ferr);
MS_Mon_Msg *msg = (MS_Mon_Msg *) recv_buffer[0];
if (verbose)
printf("server(%s): mon-msg type=%d\n",
my_name, msg->type);
if (msg->type == MS_MsgType_Close) {
closes++;
if (verbose)
printf("server(%s): closes=%d\n",
my_name, closes);
}
} else {
msg_count++;
if (verbose)
printf("server(%s): msg-count=%d\n",
my_name, msg_count);
}
recv_len = rnd(BUFSIZ);
BMSG_REPLY_(sre.sre_msgId, // msgid
NULL, // replyctrl
0, // replyctrlsize
recv_buffer[0], // replydata
recv_len, // replydatasize
0, // errorclass
NULL); // newphandle
if (closes >= maxcp)
break;
}
}
ferr = msg_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(client);
return 0;
}
int main(int argc, char *argv[]) {
int arg;
_xcc_status cc;
bool client = false;
unsigned short count_read;
unsigned short count_written;
bool death = false;
#ifdef SQ_PHANDLE_VERIFIER
int disable;
#endif
int ferr;
short filenumr;
short filenums;
#ifdef SQ_PHANDLE_VERIFIER
short filenums2;
#endif
int inxl;
short len;
#ifdef SQ_PHANDLE_VERIFIER
short len2;
#endif
int loop = 10;
int nid;
int pid;
char prog[MS_MON_MAX_PROCESS_PATH];
char retname[BUFSIZ];
char sname[10];
char sname_seq1[40];
#ifdef SQ_PHANDLE_VERIFIER
char sname_seq2[40];
#endif
int status;
bool verbose = false;
TAD zargs[] = {
{ "-client", TA_Bool, TA_NOMAX, &client },
{ "-death", TA_Bool, TA_NOMAX, &death },
{ "-loop", TA_Int, TA_NOMAX, &loop },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "-v", TA_Bool, TA_NOMAX, &verbose },
{ "", TA_End, TA_NOMAX, NULL }
};
ferr = file_init(&argc, &argv);
TEST_CHK_FEOK(ferr);
msfs_util_init_fs(&argc, &argv, file_debug_hook);
arg_proc_args(zargs, false, argc, argv);
for (arg = 1; arg < argc; arg++) {
if (strcmp(argv[arg], "-client") == 0) // start_process
argv[arg] = (char *) "-server";
}
util_test_start(client);
if (death)
ferr = file_mon_process_startup(true); // system messages?
else
ferr = file_mon_process_startup(!client); // system messages?
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_my_process_name(my_name, BUFSIZ);
util_check("msg_mon_get_my_process_name", ferr);
if (client) {
if (death) {
ferr = XFILE_OPEN_((char *) "$RECEIVE", 8, &filenumr,
0, 0, 0,
1, 0, // sys msg
0, 0, NULL);
TEST_CHK_FEOK(ferr);
}
strcpy(sname, "$srv");
if (verbose)
printf("client starting server %s\n", sname);
sprintf(prog, "%s/%s", getenv("PWD"), argv[0]);
nid = -1;
ferr =
msg_mon_start_process_nowait_cb(cb, // callback
prog, // prog
sname, // name
retname, // ret-name
argc, // argc
argv, // argv
MS_ProcessType_Generic,// ptype
0, // priority
false, // debug
false, // backup
0, // tag
&nid, // nid
&pid, // pid
NULL, // infile
NULL); // outfile
TEST_CHK_FEOK(ferr);
if (verbose)
printf("client waiting for server=%s start\n", sname);
status = cv.wait(true);
assert(status == 0);
#ifdef SQ_PHANDLE_VERIFIER
ferr = msg_mon_create_name_seq(sname,
srv_verifier,
sname_seq1,
(int) sizeof(sname_seq1));
TEST_CHK_FEOK(ferr);
ferr = msg_mon_create_name_seq(sname,
srv_verifier + 99,
sname_seq2,
(int) sizeof(sname_seq2));
TEST_CHK_FEOK(ferr);
#else
strcpy(sname_seq1, sname);
#endif
len = (short) strlen(sname_seq1);
if (verbose)
printf("client opening server %s\n", sname);
ferr = XFILE_OPEN_(sname_seq1, len, &filenums,
0, 0, 0, 0,
0,
0, 0, NULL);
TEST_CHK_FEOK(ferr);
#ifdef SQ_PHANDLE_VERIFIER
len2 = (short) strlen(sname_seq2);
disable = msg_test_assert_disable();
// make sure seq # is checked
ferr = XFILE_OPEN_(sname_seq2, len2, &filenums2,
0, 0, 0, 0,
0,
0, 0, NULL);
assert(ferr != XZFIL_ERR_OK);
msg_test_assert_enable(disable);
#endif
if (verbose)
printf("open filenums=%d\n", filenums);
for (inxl = 0; inxl < loop; inxl++) {
sprintf(send_buffer, "hello, greetings from %s, inx=%d",
my_name, inxl);
cc = XWRITEREADX(filenums,
send_buffer,
(unsigned short) (strlen(send_buffer) + 1), // cast
BUFSIZ,
&count_read,
0);
TEST_CHK_CCEQ(cc);
printf("%s\n", send_buffer);
}
disable = msg_test_assert_disable();
ferr = XFILE_CLOSE_(filenums, 0);
TEST_CHK_FEOK(ferr);
msg_test_assert_enable(disable);
if (death) {
sleep(2);
}
if (verbose)
printf("client calling shutdown\n");
} else {
ferr = XFILE_OPEN_((char *) "$RECEIVE", 8, &filenumr,
0, 0, 0,
1, 0, // sys msg
0, 0, NULL);
TEST_CHK_FEOK(ferr);
cc = XREADUPDATEX(filenumr,
recv_buffer,
BUFSIZ,
&count_read,
0);
TEST_CHK_CCNE(cc);
count_read = 0;
cc = XREPLYX(recv_buffer,
count_read,
&count_written,
0,
XZFIL_ERR_OK);
TEST_CHK_CCEQ(cc);
for (inxl = 0; inxl < loop; inxl++) {
cc = XREADUPDATEX(filenumr,
recv_buffer,
BUFSIZ,
&count_read,
0);
TEST_CHK_CCEQ(cc);
strcat(recv_buffer, "- reply from ");
strcat(recv_buffer, my_name);
count_read = (unsigned short) (strlen(recv_buffer) + 1); // cast
cc = XREPLYX(recv_buffer,
count_read,
&count_written,
0,
XZFIL_ERR_OK);
TEST_CHK_CCEQ(cc);
}
if (death) {
sleep(1);
util_abort_core_free();
}
}
ferr = file_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(client);
return 0;
}
// -------------------------------------------------------------
// adp_module_init
// Purpose - initialize module for use
// -------------------------------------------------------------
void TM_Audit::adp_module_init()
{
TMTrace(2, ("TM_Audit::adp_module_init: ENTER\n"));
MS_Mon_Reg_Get_Type lv_info;
char lv_my_pname[8+1];
char lv_tlog_pname[8+1];
int lv_len = 8;
int lv_err = 0;
int32 lv_oid = 0;
TPT_DECL (lv_phandle);
int lv_TLOG_index = TLOG_AuditTrailIndex;
if (iv_initialized)
return;
msg_mon_get_my_process_name(lv_my_pname,lv_len);
lv_err = msg_mon_reg_get(MS_Mon_ConfigType_Process, false,
lv_my_pname, (char *)"TMASE", &lv_info);
if ((lv_err == 0) && (lv_info.num_returned == 1))
{
strncpy (lv_tlog_pname, lv_info.list[0].value, 8);
TMTrace(3, ("TM_Audit::adp_module_init: %s opening TLOG %s\n", lv_my_pname, lv_tlog_pname));
lv_err = msg_mon_open_process(lv_tlog_pname, &lv_phandle, &lv_oid);
if (!lv_err)
{
memcpy (&iv_adp_phandle, &lv_phandle, sizeof (SB_Phandle_Type));
// If we using multiple TLOGs, we need to set the correct index (= nid)
if (gv_tm_info.TLOGperTM())
lv_TLOG_index = gv_tm_info.nid();
iv_initialized = true;
}
else
{
TMTrace(1, ("TM_Audit::adp_module_init: error %d opening TLOG %s\n",
lv_err, lv_tlog_pname));
tm_log_event(DTM_AUDIT_FAILED_ADPOPEN, SQ_LOG_CRIT, "DTM_AUDIT_FAILED_ADPOPEN",
lv_err, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, lv_my_pname);
// Fast fail here if $TLOG is gone as we can't continue in M8.
if (lv_err == FENOSUCHDEV)
{
gv_tm_info.error_shutdown_abrupt(lv_err);
// Abort without core - don't need the core in this case.
struct rlimit limit;
limit.rlim_cur = 0;
limit.rlim_max = 0;
setrlimit(RLIMIT_CORE, &limit);
abort();
}
iv_initialized = false;
}
} // lv_err = 0
else
iv_initialized = false;
if (gv_tm_info.TLOGperTM())
{
TMTrace(2, ("TM_Audit::adp_module_init: EXIT, initialized = %d, name %s, TLOG%d.\n",
iv_initialized, ia_vol_name2, lv_TLOG_index));
}
else
{
TMTrace(2, ("TM_Audit::adp_module_init: EXIT, initialized = %d, name %s, single TLOG.\n",
iv_initialized, ia_vol_name2));
}
}
int main(int argc, char *argv[]) {
bool abort1 = false;
bool abort2 = false;
void *buf;
_xcc_status cc;
bool client = false;
int count_read;
int count_written;
int count_xferred;
int dsize = 1024;
int ferr;
short filenum;
int inx;
int loop = 10;
short mt;
char my_name[BUFSIZ];
bool verbose = false;
SB_Tag_Type tag;
short tfilenum;
int timeout = -1;
TAD zargs[] = {
{ "-abort1", TA_Bool, TA_NOMAX, &abort1 },
{ "-abort2", TA_Bool, TA_NOMAX, &abort2 },
{ "-client", TA_Bool, TA_NOMAX, &client },
{ "-loop", TA_Int, TA_NOMAX, &loop },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "-v", TA_Bool, TA_NOMAX, &verbose },
{ "", TA_End, TA_NOMAX, NULL }
};
ferr = file_init(&argc, &argv);
TEST_CHK_FEOK(ferr);
msfs_util_init_fs(&argc, &argv, file_debug_hook);
arg_proc_args(zargs, false, argc, argv);
util_test_start(client);
ferr = file_mon_process_startup(!client); // system messages?
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_my_process_name(my_name, BUFSIZ);
util_check("msg_mon_get_my_process_name", ferr);
if (client) {
ferr = BFILE_OPEN_((char *) "$srv", 4, &filenum,
0, 0, (short) 1, // nowait
0, 0, 0, 0, NULL);
if (verbose)
printf("client open ferr=%d\n", ferr);
TEST_CHK_FEOK(ferr);
for (inx = 0; inx < loop; inx++) {
sprintf(send_buffer, "hello, greetings from %s, inx=%d",
my_name, inx);
cc = BWRITEREADX(filenum,
send_buffer,
(unsigned short) (strlen(send_buffer) + 1), // cast
0,
&count_read,
0);
if (verbose)
printf("client wr cc=%d\n", cc);
TEST_CHK_CCEQ(cc);
tfilenum = -2;
cc = BAWAITIOX(&tfilenum,
&buf,
&count_xferred,
&tag,
timeout,
NULL);
if (verbose)
printf("client awaitiox cc=%d, fn=%d\n", cc, tfilenum);
if (abort1) {
if (_xstatus_ne(cc)) {
sleep(1);
inx--;
continue;
}
} else {
TEST_CHK_CCEQ(cc);
}
printf("%s\n", send_buffer);
}
} else {
ferr = BFILE_OPEN_((char *) "$RECEIVE", 8, &filenum,
0, 0, (short) 0,
1, 0, // sys msg
0, 0, NULL);
TEST_CHK_FEOK(ferr);
if (abort1) {
} else if (abort2) {
loop -= 2;
} else {
loop += 2;
}
for (inx = 0; inx < loop; inx++) {
if (abort1 && (inx == 3))
util_abort_core_free();
cc = BREADUPDATEX(filenum,
recv_buffer,
(int) dsize, // cast
&count_read,
0);
if (verbose) {
memcpy(&mt, recv_buffer, sizeof(mt));
printf("server cc=%d, mt=%d\n", cc, mt);
}
cc = BREPLYX(recv_buffer,
0,
&count_written,
0,
XZFIL_ERR_OK);
TEST_CHK_CCEQ(cc);
}
}
if (client) {
ferr = BFILE_CLOSE_(filenum, 0);
TEST_CHK_FEOK(ferr);
} else {
ferr = BFILE_CLOSE_(filenum, 0);
TEST_CHK_FEOK(ferr);
}
ferr = file_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(client);
return 0;
}
int main(int argc, char *argv[]) {
int arg;
bool chook = false;
bool client = false;
int ferr;
int inx;
int loop = 10;
char my_name[BUFSIZ];
bool nowait = false;
int nid;
int pid;
char prog[MS_MON_MAX_PROCESS_PATH];
char retname[BUFSIZ];
char server_name[30];
int server_nid;
TPT_DECL (server_phandle);
int server_pid;
bool shook = false;
int status;
TAD zargs[] = {
{ "-chook", TA_Bool, TA_NOMAX, &chook },
{ "-client", TA_Bool, TA_NOMAX, &client },
{ "-loop", TA_Int, TA_NOMAX, &loop },
{ "-nowait", TA_Bool, TA_NOMAX, &nowait },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "-shook", TA_Bool, TA_NOMAX, &shook },
{ "", TA_End, TA_NOMAX, NULL }
};
arg_proc_args(zargs, false, argc, argv);
if (chook && client)
test_debug_hook("c", "c");
if (shook && !client)
test_debug_hook("s", "s");
ferr = msg_init(&argc, &argv);
TEST_CHK_FEOK(ferr);
if (client)
msg_mon_enable_mon_messages(true);
util_test_start(client);
msg_mon_enable_mon_messages(true);
ferr = msg_mon_process_startup(client); // system messages
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_process_info(NULL, &nid, &pid);
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_my_process_name(my_name, sizeof(my_name));
TEST_CHK_FEOK(ferr);
if (client) {
sprintf(prog, "%s/%s", getenv("PWD"), argv[0]);
for (arg = 0; arg < argc; arg++)
if (strcmp(argv[arg], "-client") == 0) // start_process
argv[arg] = (char *) "-server";
for (inx = 0; inx < loop; inx++) {
sprintf(server_name, "$SRV%d", inx);
server_nid = -1;
if (nowait)
ferr = msg_mon_start_process_nowait_cb(cb, // callback
prog, // prog
server_name, // name
retname, // ret-name
argc, // argc
argv, // argv
MS_ProcessType_Generic, // type
0, // priority
false, // debug
false, // backup
inx, // tag
&server_nid, // nid
&server_pid, // pid
NULL, // infile
NULL); // outfile
else
ferr = msg_mon_start_process(prog, // prog
server_name, // name
NULL, // ret name
argc,
argv,
TPT_REF(server_phandle),
0, // open
NULL, // oid
MS_ProcessType_Generic, // type
0, // priority
0, // debug
0, // backup
&server_nid, // nid
&server_pid, // pid
NULL, // infile
NULL); // outfile
printf("process started, err=%d\n", ferr);
TEST_CHK_FEOK(ferr);
if (nowait) {
status = cv.wait(true);
TEST_CHK_STATUSOK(status);
}
wait_death();
}
}
ferr = msg_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(client);
return 0;
}
int main(int argc, char *argv[]) {
int exit = false;
int err;
int ferr;
int len;
char my_name[100];
char recv_buffer[BUFSIZ];
BMS_SRE sre;
bool verbose = false;
TAD zargs[] = {
{ "-v", TA_Bool, TA_NOMAX, &verbose },
{ "", TA_End, TA_NOMAX, NULL }
};
ferr = msg_init(&argc, &argv);
arg_proc_args(zargs, false, argc, argv);
TEST_CHK_FEOK(ferr);
ferr = msg_mon_process_startup(true); // system messages?
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_my_process_name(my_name, (int) sizeof(my_name));
TEST_CHK_FEOK(ferr);
msg_mon_enable_mon_messages(true);
for (;;) {
do {
err = XWAIT(LREQ, -1);
TEST_CHK_WAITIGNORE(err);
err = BMSG_LISTEN_((short *) &sre, // sre
0, // listenopts
0); // listenertag
} while (err == BSRETYPE_NOWORK);
ferr = BMSG_READDATA_(sre.sre_msgId, // msgid
recv_buffer, // reqdata
BUFSIZ); // bytecount
TEST_CHK_FEOK(ferr);
if ((sre.sre_flags & BSRE_MON)) {
MS_Mon_Msg *msg = (MS_Mon_Msg *) recv_buffer;
if (verbose)
printf("server %s rcvd mon-msg %s (%d)\n",
my_name,
SB_get_label_ms_mon_msgtype(msg->type),
msg->type);
if (msg->type == MS_MsgType_Close)
exit = true;
}
strcat(recv_buffer, "- reply from server");
len = (int) strlen(recv_buffer) + 1;
BMSG_REPLY_(sre.sre_msgId, // msgid
NULL, // replyctrl
0, // replyctrlsize
recv_buffer, // replydata
len, // replydatasize
0, // errorclass
NULL); // newphandle
if (exit)
break;
}
ferr = msg_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
return 0;
}
int main(int argc, char *argv[]) {
bool chook = false;
int client = false;
int dinx;
int disable;
int ferr;
int inx;
char lname[10];
bool mq = false;
int oid;
void *res;
bool rnd = false;
int sleept;
int snid;
int spid;
int status;
TAD zargs[] = {
{ "-chook", TA_Bool, TA_NOMAX, &chook },
{ "-client", TA_Bool, TA_NOMAX, &client },
{ "-dloop", TA_Int, MAX_OUT, &gdloop },
{ "-dsize", TA_Int, TA_NOMAX, &gdsize },
{ "-ksleep", TA_Int, TA_NOMAX, &gksleep },
{ "-loop", TA_Int, TA_NOMAX, &gloop },
{ "-maxc", TA_Int, MAX_THR, &gmaxc },
{ "-maxs", TA_Int, MAX_THR, &gmaxs },
{ "-mq", TA_Bool, TA_NOMAX, &mq },
{ "-nodecycle", TA_Bool, TA_NOMAX, &gnodecycle },
{ "-rnd", TA_Bool, TA_NOMAX, &rnd },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "-v", TA_Bool, TA_NOMAX, &gverbose },
{ "-vpp", TA_Bool, TA_NOMAX, &gverbosepp },
{ "", TA_End, TA_NOMAX, NULL }
};
arg_proc_args(zargs, false, argc, argv);
if (client && chook)
test_debug_hook("c", "c");
msfs_util_init(&argc, &argv, msg_debug_hook);
util_test_start(client);
if (!client)
setup_sig();
ferr = msg_mon_process_startup(true); // system messages
TEST_CHK_FEOK(ferr);
gargc = argc; // after msg_init - it removes args
gargp = argv;
sprintf(gprog, "%s/%s", getenv("PWD"), argv[0]);
gvirtual = (getenv("SQ_VIRTUAL_NODES") != NULL);
ferr = msg_mon_get_my_process_name(gname, sizeof(gname));
assert(ferr == XZFIL_ERR_OK);
if (client) {
msg_mon_enable_mon_messages(true); // get mon messages
ferr = msg_mon_get_process_info(NULL, &gcnid, NULL);
assert(ferr == XZFIL_ERR_OK);
ferr = XCONTROLMESSAGESYSTEM(XCTLMSGSYS_SETSENDLIMIT,
(short) (gmaxc * gdloop));
assert(ferr == XZFIL_ERR_OK);
srand(1);
sleept = 1000;
start_server(argc, argv);
sleep(1);
ferr = msg_mon_open_process((char *) "$srv", // name
TPT_REF(gphandle),
&oid);
TEST_CHK_FEOK(ferr);
ferr = XPROCESSHANDLE_DECOMPOSE_(TPT_REF(gphandle), &snid, &spid);
TEST_CHK_FEOK(ferr);
for (inx = 0; inx < gloop; inx++) {
if (mq)
printf("client: inx=%d\n", inx);
for (dinx = 0; dinx < gmaxc; dinx++) {
sprintf(lname, "c%d", dinx);
gthrc[dinx] = new MyThread(client_thr, lname, dinx);
}
disable = msg_test_assert_disable();
for (dinx = 0; dinx < gmaxc; dinx++)
gthrc[dinx]->start();
if (rnd)
sleept = (int) ((float) gksleep * (rand_r(&gseed) / (RAND_MAX + 1.0)));
usleep(sleept);
for (dinx = 0; dinx < gmaxc; dinx++) {
status = gthrc[dinx]->join(&res);
TEST_CHK_STATUSOK(status);
if (gverbose)
printf("joined with client %d\n", dinx);
}
for (dinx = 0; dinx < gmaxc; dinx++)
delete gthrc[dinx];
msg_test_assert_enable(disable);
}
} else {
msg_mon_enable_mon_messages(true); // get mon messages
ferr = XCONTROLMESSAGESYSTEM(XCTLMSGSYS_SETRECVLIMIT,
XMAX_SETTABLE_RECVLIMIT);
assert(ferr == XZFIL_ERR_OK);
pp_init();
if (!gshutdown) {
for (dinx = 0; dinx < gmaxs; dinx++) {
char lname[10];
sprintf(lname, "s%d", dinx);
gthrs[dinx] = new SB_Thread::Thread(server_thr, lname);
}
for (dinx = 0; dinx < gmaxs; dinx++)
gthrs[dinx]->start();
for (dinx = 0; dinx < gmaxs; dinx++) {
status = gthrs[dinx]->join(&res);
TEST_CHK_STATUSOK(status);
if (gverbose)
printf("joined with server %d\n", dinx);
}
}
if (gverbosepp)
pp_printf("exit pid=%d\n", getpid());
}
if (client) {
sleep(1);
ferr = msg_mon_close_process(TPT_REF(gphandle));
TEST_CHK_FEOK(ferr);
}
ferr = msg_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(client);
return 0;
}
int main(int argc, char *argv[]) {
char cli[10];
bool closer;
int disable;
int event_len;
int ferr;
int inst = 0;
int inx;
int lerr;
int loop = 10;
int msgid;
int nid;
int oid;
TPT_DECL (phandle);
int pid;
char recv_buffer[30000];
RT results;
char send_buffer[10];
MS_SRE sre;
TAD zargs[] = {
{ "-client", TA_Ign, TA_NOMAX, NULL },
{ "-inst", TA_Int, TA_NOMAX, &inst },
{ "-loop", TA_Int, TA_NOMAX, &loop },
{ "-maxcp", TA_Int, TA_NOMAX, &maxcp },
{ "-maxs", TA_Int, TA_NOMAX, &maxs },
{ "-maxsp", TA_Next, TA_NOMAX, NULL },
{ "-name", TA_Next, TA_NOMAX, NULL },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "-v", TA_Bool, TA_NOMAX, &verbose },
{ "", TA_End, TA_NOMAX, NULL }
};
msfs_util_init(&argc, &argv, msg_debug_hook);
arg_proc_args(zargs, false, argc, argv);
util_test_start(true);
ferr = msg_mon_process_startup(true); // system messages?
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_my_process_name(my_name, sizeof(my_name));
TEST_CHK_FEOK(ferr);
msg_mon_enable_mon_messages(true);
// process-wait for clients/shell
// (needed so msg_mon_register_death_notification below works correctly)
ferr = msfs_util_wait_process_count(MS_ProcessType_TSE, maxcp, NULL, false);
TEST_CHK_FEOK(ferr);
sleep(1);
if (verbose)
printf("%s: inst=%d, maxcp=%d\n", my_name, inst, maxcp);
closer = (inst == (maxcp -1));
if (closer && (maxcp > 1)) {
if (verbose)
printf("%s: register-death-notifications\n", my_name);
for (inx = 0; inx < (maxcp - 1); inx++) {
sprintf(cli, "$c%d", inx);
ferr = msg_mon_get_process_info(cli, &nid, &pid);
TEST_CHK_FEOK(ferr);
ferr = msg_mon_register_death_notification(nid, pid);
TEST_CHK_FEOK(ferr);
}
}
//
// wait here until all clients sync-up
// (needed so msg_mon_register_death_notification above works correctly)
//
ferr = msg_mon_event_send(-1, // nid
-1, // pid
MS_ProcessType_TSE, // process-type
3, // event-id
0, // event-len
NULL); // event-data
TEST_CHK_FEOK(ferr);
for (inx = 0; inx < maxcp; inx++) {
ferr = msg_mon_event_wait(3, &event_len, event_data);
TEST_CHK_FEOK(ferr);
}
disable = msg_test_assert_disable();
// check process-type range
ferr = msg_mon_event_send(-1, // nid
-1, // pid
-1, // process-type
4, // event-id
0, // event-len
NULL); // event-data
assert(ferr == XZFIL_ERR_BOUNDSERR);
ferr = msg_mon_event_send(-1, // nid
-1, // pid
MS_ProcessType_SMS + 1, // process-type
5, // event-id
0, // event-len
NULL); // event-data
assert(ferr == XZFIL_ERR_BOUNDSERR);
msg_test_assert_enable(disable);
ferr = msg_mon_open_process((char *) "$srv", // name
TPT_REF(phandle),
&oid);
TEST_CHK_FEOK(ferr);
for (inx = 0; inx < loop; inx++) {
ferr = XMSG_LINK_(TPT_REF(phandle), // phandle
&msgid, // msgid
NULL, // reqctrl
0, // reqctrlsize
NULL, // replyctrl
0, // replyctrlmax
send_buffer, // reqdata
1, // reqdatasize
recv_buffer, // replydata
0, // replydatamax
0, // linkertag
0, // pri
0, // xmitclass
0); // linkopts
util_check("XMSG_LINK_", ferr);
ferr = XMSG_BREAK_(msgid, results.u.s, TPT_REF(phandle));
util_check("XMSG_BREAK_", ferr);
}
if (closer) {
inx = 0;
while (inx < (maxcp - 1)) {
do {
lerr = XWAIT(LREQ, -1);
TEST_CHK_WAITIGNORE(lerr);
lerr = XMSG_LISTEN_((short *) &sre, // sre
0, // listenopts
0); // listenertag
} while (lerr == XSRETYPE_NOWORK);
if (sre.sre_flags & XSRE_MON) {
ferr = BMSG_READDATA_(sre.sre_msgId, // msgid
recv_buffer, // reqdata
BUFSIZ); // bytecount
TEST_CHK_FEOK(ferr);
MS_Mon_Msg *msg = (MS_Mon_Msg *) recv_buffer;
if (msg->type == MS_MsgType_ProcessDeath) {
if (verbose)
printf("%s: process death process=%s\n",
my_name, msg->u.death.process_name);
inx++;
}
}
XMSG_REPLY_(sre.sre_msgId, // msgid
NULL, // replyctrl
0, // replyctrlsize
recv_buffer, // replydata
0, // replydatasize
0, // errorclass
NULL); // newphandle
}
if (verbose)
printf("%s: sending stop\n", my_name);
for (inx = 0; inx < maxs; inx++) {
ferr = XMSG_LINK_(TPT_REF(phandle), // phandle
&msgid, // msgid
NULL, // reqctrl
0, // reqctrlsize
NULL, // replyctrl
0, // replyctrlmax
send_buffer, // reqdata
0, // reqdatasize
recv_buffer, // replydata
0, // replydatamax
0, // linkertag
0, // pri
0, // xmitclass
0); // linkopts
util_check("XMSG_LINK_", ferr);
ferr = XMSG_BREAK_(msgid, results.u.s, TPT_REF(phandle));
util_check("XMSG_BREAK_", ferr);
}
}
ferr = msg_mon_close_process(TPT_REF(phandle));
TEST_CHK_FEOK(ferr);
ferr = msg_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(true);
return 0;
}
int main(int argc, char *argv[]) {
bool client = false;
int ferr;
int inxl;
int inxo;
int inxs;
int maxs = 2;
int msgid[MAX_OUT];
bool mq = false;
int oid;
TPT_DECL (phandle);
void *res;
RT results;
const char *serv = "$srv";
int status;
TAD zargs[] = {
{ "-client", TA_Bool, TA_NOMAX, &client },
{ "-loop", TA_Int, TA_NOMAX, &loop },
{ "-maxout", TA_Int, MAX_OUT, &maxout },
{ "-maxs", TA_Int, MAX_THR_S, &maxs },
{ "-mq", TA_Bool, TA_NOMAX, &mq },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "-v", TA_Bool, TA_NOMAX, &verbose },
{ "", TA_End, TA_NOMAX, NULL }
};
ferr = msg_init(&argc, &argv);
TEST_CHK_FEOK(ferr);
msfs_util_init_fs(&argc, &argv, msg_debug_hook);
arg_proc_args(zargs, false, argc, argv);
util_test_start(client);
ferr = msg_mon_process_startup(!client); // system messages?
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_my_process_name(my_name, BUFSIZ);
util_check("msg_mon_get_my_process_name", ferr);
if (client) {
ferr = XCONTROLMESSAGESYSTEM(XCTLMSGSYS_SETSENDLIMIT,
XMAX_SETTABLE_SENDLIMIT);
assert(ferr == XZFIL_ERR_OK);
atomic_set(&msg_count, 0);
for (inxl = 0; inxl < loop; inxl++) {
ferr = msg_mon_open_process((char *) serv, // name
TPT_REF(phandle),
&oid);
TEST_CHK_FEOK(ferr);
count = 0;
for (inxo = 0; inxo < 2; inxo++) {
ferr = BMSG_LINK_(TPT_REF(phandle), // phandle
&msgid[inxo], // msgid
NULL, // reqctrl
0, // reqctrlsize
send_buffer2[inxo], // replyctrl
24, // replyctrlmax
send_buffer[inxo], // reqdata
0, // reqdatasize
recv_buffer[inxo], // replydata
BUFSIZ, // replydatamax
0, // linkertag
0, // pri
0, // xmitclass
0); // linkopts
util_check("XMSG_LINK_", ferr);
atomic_inc(&msg_count);
}
ferr = XMSG_ABANDON_(msgid[0]);
util_check("XMSG_ABANDON_", ferr);
ferr = BMSG_LINK_(TPT_REF(phandle), // phandle
&msgid[inxo], // msgid
NULL, // reqctrl
0, // reqctrlsize
send_buffer2[inxo], // replyctrl
24, // replyctrlmax
send_buffer[inxo], // reqdata
0, // reqdatasize
recv_buffer[inxo], // replydata
BUFSIZ, // replydatamax
0, // linkertag
0, // pri
0, // xmitclass
0); // linkopts
util_check("XMSG_LINK_", ferr);
atomic_inc(&msg_count);
ferr = BMSG_BREAK_(msgid[inxo],
results.u.s,
TPT_REF(phandle));
util_check("XMSG_BREAK_", ferr);
ferr = XMSG_ABANDON_(msgid[1]);
util_check("XMSG_ABANDON_", ferr);
if (maxout < 4)
maxout = 4;
for (inxo = 3; inxo < maxout; inxo++) {
ferr = BMSG_LINK_(TPT_REF(phandle), // phandle
&msgid[inxo], // msgid
NULL, // reqctrl
0, // reqctrlsize
send_buffer2[inxo], // replyctrl
60, // replyctrlmax
send_buffer[inxo], // reqdata
120, // reqdatasize
recv_buffer[inxo], // replydata
BUFSIZ, // replydatamax
0, // linkertag
0, // pri
0, // xmitclass
0); // linkopts
util_check("XMSG_LINK_", ferr);
atomic_inc(&msg_count);
if (verbose)
printf("client(%s): msg-count=%d\n",
my_name, atomic_read(&msg_count));
count++;
ferr = BMSG_BREAK_(msgid[inxo],
results.u.s,
TPT_REF(phandle));
util_check("XMSG_BREAK_", ferr);
}
if (mq) {
if ((inxl % 100) == 0)
printf("client(%s): count=%d\n", my_name, inxl);
}
}
ferr = msg_mon_close_process(TPT_REF(phandle));
TEST_CHK_FEOK(ferr);
} else {
ferr = XCONTROLMESSAGESYSTEM(XCTLMSGSYS_SETRECVLIMIT,
XMAX_SETTABLE_RECVLIMIT);
assert(ferr == XZFIL_ERR_OK);
closes = 0;
maxmsg = loop * maxout;
atomic_set(&msg_count, 0);
msg_mon_enable_mon_messages(true);
for (inxs = 0; inxs < maxs; inxs++) {
char lname[10];
sprintf(lname, "s%d", inxs);
thrs[inxs] = new MyThread(server_thr, lname, inxs);
}
for (inxs = 0; inxs < maxs; inxs++)
thrs[inxs]->start();
for (inxs = 0; inxs < maxs; inxs++) {
status = thrs[inxs]->join(&res);
TEST_CHK_STATUSOK(status);
printf("joined with server %d\n", inxs);
}
}
ferr = msg_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(client);
return 0;
}
int main(int argc, char *argv[]) {
char *args[4];
bool attach = false;
bool chook = false;
bool client = false;
bool clientd = false;
int cli_nid = -1;
int cli_pid = -1;
const char *cname = "$cli";
int count;
int ferr;
int inx;
int len;
int lerr;
int loop = 10;
TPT_DECL (mphandle);
char *mphandlec = (char *) &mphandle;
TPT_DECL_INT (mphandlei);
int msgid;
int my_mon_nid;
int my_mon_pid;
int my_mon_ptype;
int my_mon_zid;
int my_os_pid;
long my_os_tid;
int my_compid;
int my_pnid;
int my_segid;
int nid;
int oid;
TPT_DECL (phandle);
int pid;
char *pname = NULL;
int ptype;
RT results;
int scollpid = -1;
int scompid = -1;
int send_len;
bool shook = false;
const char *sname = "$srv";
bool sonar = false;
MS_SRE sre;
int srv_nid = -1;
int srv_pid = -1;
MS_Mon_Monitor_Stats_Type stats;
int status;
long t_elapsed;
struct timeval t_start;
struct timeval t_stop;
int tm_seq;
bool val_bool;
int val_int;
const char *val_str;
int winx;
pid_t wpid;
TAD zargs[] = {
{ "-attach", TA_Bool, TA_NOMAX, &attach },
{ "-chook", TA_Bool, TA_NOMAX, &chook },
{ "-client", TA_Bool, TA_NOMAX, &client },
{ "-clientd", TA_Bool, TA_NOMAX, &clientd },
{ "-cname", TA_Str, TA_NOMAX, &cname },
{ "-loop", TA_Int, TA_NOMAX, &loop },
{ "-name", TA_Str, TA_NOMAX, &pname },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "-shook", TA_Bool, TA_NOMAX, &shook },
{ "-sname", TA_Str, TA_NOMAX, &sname },
{ "-sonar", TA_Bool, TA_NOMAX, &sonar },
{ "", TA_End, TA_NOMAX, NULL }
};
#ifdef DEBUG_ENV
env = environ;
while (*env != NULL) {
printf("env=%s\n", *env);
env++;
}
#endif
arg_proc_args(zargs, false, argc, argv);
if (client && chook)
test_debug_hook("c", "c");
if (!client && shook)
test_debug_hook("s", "s");
setenv("TESTKEYBOOL", "1", 1);
setenv("TESTKEYINT", "44", 1);
setenv("TESTKEYSTR", "TESTVALSTR", 1);
//
// test msg_getenv* before msg_init
//
val_bool = true;
msg_getenv_bool("TESTKEYBOOL", &val_bool);
assert(val_bool);
val_bool = false;
msg_getenv_bool("TESTKEYBOOL", &val_bool);
assert(!val_bool);
val_int = 0;
msg_getenv_int("TESTKEYINT", &val_int);
assert(val_int == 0);
val_int = 1;
msg_getenv_int("TESTKEYINT", &val_int);
assert(val_int == 1);
val_str = (const char *) 1;
val_str = msg_getenv_str("TESTKEYSTR");
assert(val_str == NULL);
if (attach)
msfs_util_init_attach(&argc, &argv, msg_debug_hook, false, pname);
else
msfs_util_init(&argc, &argv, msg_debug_hook);
arg_proc_args(zargs, false, argc, argv);
util_time_timer_start(&t_start);
util_test_start(client);
ferr = msg_mon_process_startup(!client); // system messages?
TEST_CHK_FEOK(ferr);
//
// test msg_getenv* after msg_init
//
msg_getenv_bool("TESTKEYBOOL", &val_bool);
assert(val_bool);
msg_getenv_int("TESTKEYINT", &val_int);
assert(val_int == 44);
val_str = msg_getenv_str("TESTKEYSTR");
assert(strcmp(val_str, "TESTVALSTR") == 0);
// process-wait for server/shell
ferr = msfs_util_wait_process_count(MS_ProcessType_Generic, 2, NULL, false);
TEST_CHK_FEOK(ferr);
// process-wait for client
ferr = msfs_util_wait_process_count(MS_ProcessType_TSE, 1, NULL, false);
TEST_CHK_FEOK(ferr);
if (client) {
if (sonar) {
scollpid = fork();
if (scollpid == 0) {
// child
args[0] = (char *) "sonarcollector";
args[1] = (char *) "-i"; // sampling interval // cast
args[2] = (char *) "1"; // cast
args[3] = NULL;
lerr = execvp(args[0], args);
assert(lerr == 0);
}
}
ferr = msg_mon_open_process((char *) sname, // name
TPT_REF(phandle),
&oid);
TEST_CHK_FEOK(ferr);
}
// this phandle check assumed a particular data structure
ferr = msg_mon_get_my_process_name(my_name, BUFSIZ);
util_check("msg_mon_get_my_process_name", ferr);
ferr = XPROCESSHANDLE_GETMINE_(TPT_REF(mphandle));
util_check("XPROCESSHANDLE_GETMINE_", ferr);
TPT_COPY_INT(mphandlei, mphandle);
assert((mphandlei[0] & 0xf0) == 0x20); // named
assert(strncmp(my_name, &mphandlec[4], 32) == 0);
printf("phandle=%x.%x.%x.%x.%x\n",
mphandlei[0],
mphandlei[1],
mphandlei[2],
mphandlei[3],
mphandlei[4]);
ferr = msg_mon_get_my_info(&my_mon_nid,
&my_mon_pid,
my_mon_name,
BUFSIZ,
&my_mon_ptype,
&my_mon_zid,
&my_os_pid,
&my_os_tid);
util_check("msg_mon_get_my_info", ferr);
printf("nid=%d, pid=%d, name=%s, ptype=%d, zid=%d, os-pid=%d, os-tid=%ld\n",
my_mon_nid,
my_mon_pid,
my_mon_name,
my_mon_ptype,
my_mon_zid,
my_os_pid,
my_os_tid);
my_mon_nid = -1;
my_mon_pid = -1;
my_mon_ptype = -1;
my_mon_zid = -1;
my_os_pid = -1;
my_os_tid = -1;
my_compid = -1;
my_pnid = -1;
ferr = msg_mon_get_my_info3(&my_mon_nid,
&my_mon_pid,
my_mon_name3,
BUFSIZ,
&my_mon_ptype,
&my_mon_zid,
&my_os_pid,
&my_os_tid,
&my_compid,
&my_pnid);
util_check("msg_mon_get_my_info3", ferr);
printf("nid=%d, pid=%d, name=%s, ptype=%d, zid=%d, os-pid=%d, os-tid=%ld, compid=%d, pnid=%d\n",
my_mon_nid,
my_mon_pid,
my_mon_name3,
my_mon_ptype,
my_mon_zid,
my_os_pid,
my_os_tid,
my_compid,
my_pnid);
ferr = msg_mon_get_my_segid(&my_segid);
util_check("msg_mon_get_my_segid", ferr);
printf("segid=%d\n", my_segid);
ferr = msg_mon_get_monitor_stats(&stats);
util_check("msg_mon_get_monitor_stats", ferr);
printf("avail_min=%d, acquired_max=%d, buf_misses=%d\n",
stats.avail_min, stats.acquired_max, stats.buf_misses);
util_gethostname(my_name, sizeof(my_name));
msg_mon_enable_mon_messages(true);
ferr = msg_mon_get_tm_seq(&tm_seq);
util_check("msg_mon_get_tm_seq", ferr);
printf("tm_seq=%d\n", tm_seq);
if (client) {
ferr = msg_mon_get_process_info_type(MS_ProcessType_TSE,
&count,
0,
NULL);
TEST_CHK_FEOK(ferr);
if (!attach)
assert(count == 1);
ferr = msg_mon_get_process_info_type(MS_ProcessType_TSE,
&count,
1,
info);
TEST_CHK_FEOK(ferr);
if (!attach)
assert(count == 1);
}
for (inx = 0; inx < loop; inx++) {
if (client) {
sprintf(send_buffer, "hello, greetings from %s, inx=%d",
my_name, inx);
send_len = (int) strlen(send_buffer) + 1;
ferr = XMSG_LINK_(TPT_REF(phandle), // phandle
&msgid, // msgid
send_buffer2, // reqctrl
(ushort) (inx & 1), // reqctrlsize
recv_buffer3, // replyctrl
1, // replyctrlmax
send_buffer, // reqdata
(ushort) send_len, // reqdatasize
recv_buffer, // replydata
BUFSIZ, // replydatamax
0, // linkertag
(short) (inx+1), // pri
0, // xmitclass
0); // linkopts
util_check("XMSG_LINK_", ferr);
ferr = XMSG_BREAK_(msgid,
results.u.s,
TPT_REF(phandle));
util_check("XMSG_BREAK_", ferr);
assert(results.u.t.ctrl_size == (uint) (inx & 1));
assert(results.u.t.data_size > (strlen(send_buffer) + 14));
assert(results.u.t.errm == RT_DATA_RCVD); // data
printf("%s\n", recv_buffer);
} else {
do {
lerr = XWAIT(LREQ, -1);
TEST_CHK_WAITIGNORE(lerr);
lerr = XMSG_LISTEN_((short *) &sre, // sre
0, // listenopts
0); // listenertag
} while (lerr == XSRETYPE_NOWORK);
ferr = XMSG_GETREQINFO_(MSGINFO_NID,
sre.sre_msgId,
&nid);
util_check("XMSG_GETREQINFO_", ferr);
ferr = XMSG_GETREQINFO_(MSGINFO_PID,
sre.sre_msgId,
&pid);
util_check("XMSG_GETREQINFO_", ferr);
ferr = XMSG_GETREQINFO_(MSGINFO_PTYPE,
sre.sre_msgId,
&ptype);
util_check("XMSG_GETREQINFO_", ferr);
if (sre.sre_flags & XSRE_MON) {
// mon messages have our nid/pid
if (srv_nid < 0) {
ferr = msg_mon_get_process_info((char *) "",
&srv_nid,
&srv_pid);
TEST_CHK_FEOK(ferr);
}
if (!clientd) {
assert(nid == srv_nid);
assert(pid == srv_pid);
}
} else {
assert(sre.sre_pri == ((inx+1) & 0xffff));
if (cli_nid < 0) {
ferr = msg_mon_get_process_info((char *) cname,
&cli_nid,
&cli_pid);
TEST_CHK_FEOK(ferr);
}
if (!attach)
assert(ptype == MS_ProcessType_TSE);
assert(nid == cli_nid);
assert(pid == cli_pid);
}
ferr = XMSG_READCTRL_(sre.sre_msgId, // msgid
recv_buffer2, // reqctrl
1); // bytecount
util_check("XMSG_READCTRL_", ferr);
ferr = XMSG_READDATA_(sre.sre_msgId, // msgid
recv_buffer, // reqdata
BUFSIZ); // bytecount
util_check("XMSG_READDATA_", ferr);
if (sre.sre_flags & XSRE_MON) {
printf("server received mon message\n");
inx--;
len = 0;
if (clientd) {
MS_Mon_Msg *msg = (MS_Mon_Msg *) recv_buffer;
if (msg->type == MS_MsgType_Close)
inx = loop;
}
} else {
strcat(recv_buffer, "- reply from ");
strcat(recv_buffer, my_name);
len = (int) strlen(recv_buffer) + 1;
}
XMSG_REPLY_(sre.sre_msgId, // msgid
recv_buffer2, // replyctrl
sre.sre_reqCtrlSize, // replyctrlsize
recv_buffer, // replydata
(ushort) len, // replydatasize
0, // errorclass
NULL); // newphandle
}
}
if (sonar) {
if (client) {
// for some reason [monitor?], one 'sonarcom stop' doesn't stop coll
for (winx = 0; winx < 20; winx++) {
scompid = fork();
if (scompid == 0) {
// child
args[0] = (char *) "sonarcom";
args[1] = (char *) "stop";
args[2] = NULL;
lerr = execvp(args[0], args);
assert(lerr == 0);
}
wpid = waitpid(scompid, &status, 0);
assert(wpid == scompid);
wpid = waitpid(scollpid, &status, WNOHANG);
if (wpid == scollpid)
break;
else
sleep(1);
}
assert(wpid == scollpid);
ferr = XMSG_LINK_(TPT_REF(phandle), // phandle
&msgid, // msgid
NULL, // reqctrl
0, // reqctrlsize
NULL, // replyctrl
0, // replyctrlmax
NULL, // reqdata
0, // reqdatasize
NULL, // replydata
0, // replydatamax
0, // linkertag
0, // pri
0, // xmitclass
0); // linkopts
TEST_CHK_FEOK(ferr);
ferr = XMSG_BREAK_(msgid,
results.u.s,
TPT_REF(phandle));
TEST_CHK_FEOK(ferr);
} else {
do {
lerr = XWAIT(LREQ, -1);
lerr = XMSG_LISTEN_((short *) &sre, // sre
0, // listenopts
0); // listenertag
} while (lerr == XSRETYPE_NOWORK);
XMSG_REPLY_(sre.sre_msgId, // msgid
NULL, // replyctrl
0, // replyctrlsize
NULL, // replydata
0, // replydatasize
0, // errorclass
NULL); // newphandle
}
}
if (client) {
ferr = msg_mon_close_process(TPT_REF(phandle));
TEST_CHK_FEOK(ferr);
} else {
if (!clientd) {
ferr = msg_mon_process_close();
TEST_CHK_FEOK(ferr);
}
}
util_time_timer_stop(&t_stop);
t_elapsed = (t_stop.tv_sec * 1000000 + t_stop.tv_usec) -
(t_start.tv_sec * 1000000 + t_start.tv_usec);
ferr = msg_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(client);
if (client) {
printf("elapsed time (gettimeofday us)=%ld\n", t_elapsed);
}
return 0;
}
int main(int argc, char *argv[]) {
_xcc_status cc;
bool client = false;
unsigned short count_read;
int count_read_b;
unsigned short count_written;
TCPU_DECL (cpu);
int ferr;
short filenum;
int inx;
int loop = 10;
TPT_DECL (mphandle);
char *mphandlec = (char *) &mphandle;
TPT_DECL_INT (mphandlei);
int nid;
char nodename[20];
short nodename_length;
int nodenumber;
int pid;
TPIN_DECL (pin);
char procname[40];
short procname_length;
SB_Int64_Type sequence_number;
const char *sname = "$srv";
TAD zargs[] = {
{ "-client", TA_Bool, TA_NOMAX, &client },
{ "-loop", TA_Int, TA_NOMAX, &loop },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "-sname", TA_Str, TA_NOMAX, &sname },
{ "", TA_End, TA_NOMAX, NULL }
};
ferr = file_init(&argc, &argv);
TEST_CHK_FEOK(ferr);
msfs_util_init_fs(&argc, &argv, file_debug_hook);
arg_proc_args(zargs, false, argc, argv);
util_test_start(client);
ferr = file_mon_process_startup(!client); // system messages?
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_my_process_name(my_name, BUFSIZ);
util_check("msg_mon_get_my_process_name", ferr);
ferr = msg_mon_get_process_info(my_name, &nid, &pid);
TEST_CHK_FEOK(ferr);
ferr = XPROCESSHANDLE_GETMINE_(TPT_REF(mphandle));
util_check("XPROCESSHANDLE_GETMINE_", ferr);
TPT_COPY_INT(mphandlei, mphandle);
assert((mphandlei[0] & 0xf0) == 0x20); // named
assert(strncmp(my_name, &mphandlec[4], 32) == 0);
printf("phandle=%x.%x.%x.%x.%x, pname=%s\n",
mphandlei[0], mphandlei[1], mphandlei[2], mphandlei[3], mphandlei[4],
my_name);
ferr = XPROCESSHANDLE_DECOMPOSE_(TPT_REF(mphandle),
&cpu,
&pin,
&nodenumber,
nodename,
sizeof(nodename),
&nodename_length,
procname,
sizeof(procname),
&procname_length,
&sequence_number);
assert(cpu == nid);
assert(pin == pid);
assert(nodenumber == 0);
assert(nodename_length == 4);
nodename[nodename_length] = 0;
assert(strcmp(nodename, "\\NSK") == 0);
procname[procname_length] = 0;
assert(strcmp(procname, my_name) == 0);
#ifdef SQ_PHANDLE_VERIFIER
assert(sequence_number != 0);
#else
assert(sequence_number == 0);
#endif
if (client) {
ferr = XFILE_OPEN_((char *) sname, 4, &filenum,
0, 0, 0, 0, 0, 0, 0, NULL);
TEST_CHK_FEOK(ferr);
for (inx = 0; inx < loop; inx++) {
sprintf(send_buffer, "hello, greetings from %s, inx=%d",
my_name, inx);
if ((inx & 1) == 0)
cc = XWRITEREADX2(filenum,
send_buffer,
(unsigned short) (strlen(send_buffer) + 1), // cast
recv_buffer,
BUFSIZ,
&count_read,
0);
else
cc = BWRITEREADX2(filenum,
send_buffer,
(unsigned short) (strlen(send_buffer) + 1), // cast
recv_buffer,
BUFSIZ,
&count_read_b,
0);
TEST_CHK_CCEQ(cc);
printf("%s\n", recv_buffer);
}
ferr = XFILE_CLOSE_(filenum, 0);
TEST_CHK_FEOK(ferr);
} else {
ferr = XFILE_OPEN_((char *) "$RECEIVE", 8, &filenum,
0, 0, 0,
1, 1, // no sys msg
0, 0, NULL);
TEST_CHK_FEOK(ferr);
for (inx = 0; inx < loop; inx++) {
cc = XREADUPDATEX(filenum,
recv_buffer,
BUFSIZ,
&count_read,
0);
TEST_CHK_CCEQ(cc);
strcat(recv_buffer, "- reply from ");
strcat(recv_buffer, my_name);
count_read = (unsigned short) (strlen(recv_buffer) + 1); // cast
cc = XREPLYX(recv_buffer,
count_read,
&count_written,
0,
XZFIL_ERR_OK);
TEST_CHK_CCEQ(cc);
}
ferr = XFILE_CLOSE_(filenum, 0);
TEST_CHK_FEOK(ferr);
}
ferr = file_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(client);
return 0;
}
int main(int argc, char *argv[]) {
_xcc_status cc;
bool client = false;
int closes;
int count_read;
int count_written;
int ferr;
short filenumr;
short filenums[MAX_SRV];
int inxl;
int inxs;
int loop = 10;
int maxcp = 1;
int maxsp = 1;
bool mq = false;
char serv[20];
xzsys_ddl_smsg_def *sys_msg = (xzsys_ddl_smsg_def *) recv_buffer;
bool verbose = false;
TAD zargs[] = {
{ "-client", TA_Bool, TA_NOMAX, &client },
{ "-loop", TA_Int, TA_NOMAX, &loop },
{ "-maxcp", TA_Int, MAX_CLI, &maxcp },
{ "-maxsp", TA_Int, MAX_SRV, &maxsp },
{ "-mq", TA_Bool, TA_NOMAX, &mq },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "-v", TA_Bool, TA_NOMAX, &verbose },
{ "", TA_End, TA_NOMAX, NULL }
};
ferr = file_init(&argc, &argv);
TEST_CHK_FEOK(ferr);
msfs_util_init_fs(&argc, &argv, file_debug_hook);
arg_proc_args(zargs, false, argc, argv);
util_test_start(client);
ferr = file_mon_process_startup(!client); // system messages?
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_my_process_name(my_name, BUFSIZ);
util_check("msg_mon_get_my_process_name", ferr);
if (client) {
for (inxl = 0; inxl < loop; inxl++) {
for (inxs = 0; inxs < maxsp; inxs++) {
sprintf(serv, "$srv%d", inxs);
ferr = BFILE_OPEN_(serv, (short) strlen(serv), &filenums[inxs],
0, 0, 0, 0, 0, 0, 0, NULL);
TEST_CHK_FEOK(ferr);
}
for (inxs = 0; inxs < maxsp; inxs++) {
sprintf(send_buffer, "hello, greetings %d from %s, inx=%d",
inxs, my_name, inxl);
cc = BWRITEREADX(filenums[inxs],
send_buffer,
(int) (strlen(send_buffer) + 1), // cast
BUFSIZ,
&count_read,
0);
TEST_CHK_CCEQ(cc);
if (mq) {
if ((inxl % 100) == 0)
printf("count=%d\n", inxl);
} else
printf("%s\n", send_buffer);
}
for (inxs = 0; inxs < maxsp; inxs++) {
ferr = BFILE_CLOSE_(filenums[inxs], 0);
TEST_CHK_FEOK(ferr);
}
}
} else {
closes = 0;
ferr = BFILE_OPEN_((char *) "$RECEIVE", 8, &filenumr,
0, 0, 0,
1, 0, // sys msg
0, 0, NULL);
TEST_CHK_FEOK(ferr);
// process requests
for (inxl = 0;; inxl++) {
cc = BREADUPDATEX(filenumr,
recv_buffer,
BUFSIZ,
&count_read,
0);
if (_xstatus_ne(cc)) {
int mt = sys_msg->u_z_msg.z_msgnumber[0];
if (verbose) {
if (mt == XZSYS_VAL_SMSG_CLOSE)
printf("inx=%d, type=%d, cc=%d\n", inxl, mt, closes);
else
printf("inx=%d, type=%d\n", inxl, mt);
}
if (mt == XZSYS_VAL_SMSG_CLOSE)
closes++;
count_read = 0;
} else {
strcat(recv_buffer, "- reply from ");
strcat(recv_buffer, my_name);
count_read = (int) (strlen(recv_buffer) + 1); // cast
}
cc = BREPLYX(recv_buffer,
count_read,
&count_written,
0,
XZFIL_ERR_OK);
TEST_CHK_CCEQ(cc);
if (closes >= maxcp * loop)
break;
}
ferr = BFILE_CLOSE_(filenumr, 0);
TEST_CHK_FEOK(ferr);
}
ferr = file_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(client);
return 0;
}
int main(int argc, char *argv[]) {
_bcc_status bcc;
bool client = false;
int count_read;
int count_written;
int disable;
int err;
short error_reply;
int ferr;
short filenum;
int inx;
short lasterr;
int loop = 10;
int msgnum;
bool open = false;
short sender_len;
xzsys_ddl_smsg_def *sys_msg = (xzsys_ddl_smsg_def *) recv_buffer;
RI_Type ri;
TAD zargs[] = {
{ "-client", TA_Bool, TA_NOMAX, &client },
{ "-loop", TA_Int, TA_NOMAX, &loop },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "", TA_End, TA_NOMAX, NULL }
};
ferr = file_init(&argc, &argv);
TEST_CHK_FEOK(ferr);
msfs_util_init_fs(&argc, &argv, file_debug_hook);
arg_proc_args(zargs, false, argc, argv);
util_test_start(true);
ferr = msg_mon_process_startup(!client); // system messages
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_my_process_name(my_name, BUFSIZ);
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_process_info(NULL, &my_nid, &my_pid);
TEST_CHK_FEOK(ferr);
if (client) {
printf("client name=%s, nid=%d, pid=%d\n",
my_name, my_nid, my_pid);
start_server(argc, argv);
server_name_len = (short) strlen(server_name);
ferr = BFILE_OPEN_((char *) server_name, server_name_len, &filenum,
0, 0, 0, 0, 0, 0, 0, NULL);
TEST_CHK_FEOK(ferr);
for (inx = 0; inx < loop; inx++) {
sprintf(send_buffer, "hello, greetings from %s, inx=%d",
my_name, inx);
disable = msg_test_assert_disable();
bcc = BWRITEREADX(filenum,
send_buffer,
(int) (strlen(send_buffer) + 1), // cast
BUFSIZ,
&count_read,
0);
msg_test_assert_enable(disable);
if (_bstatus_eq(bcc))
printf("%s\n", send_buffer);
else {
ferr = XFILE_GETINFO_(-1, &lasterr, NULL, 0, NULL, NULL, NULL);
printf("WRITEREAD error=%d\n", lasterr);
}
kill(server_pid, SIGKILL);
for (;;) {
err = kill(server_pid, 0);
if ((err == -1) && (errno == ESRCH))
break;
usleep(10000);
}
start_server(argc, argv);
}
kill(server_pid, SIGKILL);
for (;;) {
err = kill(server_pid, 0);
if ((err == -1) && (errno == ESRCH))
break;
usleep(10000);
}
ferr = BFILE_CLOSE_(filenum, 0);
TEST_CHK_FEOK(ferr);
} else {
printf("server name=%s, nid=%d, pid=%d\n",
my_name, my_nid, my_pid);
ferr = BFILE_OPEN_((char *) "$RECEIVE", 8, &filenum,
0, 0, 0,
1, 0, // sys msg
0, 0, NULL);
TEST_CHK_FEOK(ferr);
for (inx = 0; inx < loop; inx++) {
bcc = BREADUPDATEX(filenum,
recv_buffer,
BUFSIZ,
&count_read,
0);
getri(&ri);
printri(&ri);
sender_len = 0;
sender_nid = -1;
sender_pid = -1;
disable = msg_test_assert_disable(); // errors are ok
ferr = XPROCESSHANDLE_DECOMPOSE_(TPT_REF(ri.sender),
&sender_nid, // cpu
&sender_pid, // pin
NULL, // nodenumber
NULL, // nodename
0, // nodename
NULL, // nodename_length
sender,
sizeof(sender),
&sender_len,
NULL); // sequence_number
TEST_CHK_FEIGNORE(ferr);
msg_test_assert_enable(disable);
sender[sender_len] = 0;
printf("sender=%s, nid=%d, pid=%d\n",
sender, sender_nid, sender_pid);
error_reply = XZFIL_ERR_OK;
if (_bstatus_eq(bcc)) {
if (open) {
assert(sender_nid == open_sender_nid);
assert(sender_pid == open_sender_pid);
assert(strcmp(sender, open_sender) == 0);
assert(ri.file_number == open_sender_file_number);
strcat(recv_buffer, "- reply from ");
strcat(recv_buffer, my_name);
count_read = (int) (strlen(recv_buffer) + 1); // cast
} else {
printf("server not opened by client - returning WRONGID\n");
error_reply = XZFIL_ERR_WRONGID;
}
} else {
msgnum = sys_msg->u_z_msg.z_msgnumber[0];
switch (msgnum) {
case XZSYS_VAL_SMSG_OPEN:
printf("msgnum=%d (open)\n", msgnum);
assert(!open);
TPT_COPY_INT(TPT_REF(open_sender_phandle), ri.sender);
strcpy(open_sender, sender);
open_sender_nid = sender_nid;
open_sender_pid = sender_pid;
open_sender_file_number = ri.file_number;
open = true;
break;
case XZSYS_VAL_SMSG_CLOSE:
printf("msgnum=%d (close)\n", msgnum);
assert(open);
open = false;
break;
case XZSYS_VAL_SMSG_SHUTDOWN:
printf("msgnum=%d (shutdown)\n", msgnum);
inx = loop; // exit
break;
default:
printf("unexpected msgnum=%d\n", msgnum);
abort();
}
count_read = 0;
inx--;
}
bcc = BREPLYX(recv_buffer,
count_read,
&count_written,
0,
error_reply);
TEST_CHK_BCCEQ(bcc);
}
ferr = XFILE_CLOSE_(filenum, 0);
TEST_CHK_FEOK(ferr);
}
ferr = msg_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(true);
printf("if there were no asserts, all is well\n");
return 0;
}
int main(int argc, char *argv[]) {
int ferr;
TPT_DECL2 (phandle,MAX_SERVERS);
int inx;
int lerr;
int loop = 10;
int max;
int maxsp = 1;
int oid;
int pinx;
MS_SRE sre;
bool verbose = false;
TAD zargs[] = {
{ "-client", TA_Bool, TA_NOMAX, &client },
{ "-loop", TA_Int, TA_NOMAX, &loop },
{ "-maxcp", TA_Int, MAX_CLIENTS, &maxcp },
{ "-maxsp", TA_Int, MAX_SERVERS, &maxsp },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "-v", TA_Bool, TA_NOMAX, &verbose },
{ "", TA_End, TA_NOMAX, NULL }
};
ferr = msg_init(&argc, &argv);
TEST_CHK_FEOK(ferr);
msfs_util_init_fs(&argc, &argv, msg_debug_hook);
arg_proc_args(zargs, false, argc, argv);
if (maxcp < 0)
maxcp = 1;
if (maxsp < 0)
maxsp = 1;
ferr = msg_mon_process_startup(!client); // system messages?
TEST_CHK_FEOK(ferr);
if (!client)
msg_mon_enable_mon_messages(true);
ferr = msg_mon_get_my_process_name(my_name, BUFSIZ);
TEST_CHK_FEOK(ferr);
// process-wait for clients/servers/shell
ferr = msfs_util_wait_process_count(MS_ProcessType_Generic,
maxcp + maxsp + 1,
NULL,
verbose);
TEST_CHK_FEOK(ferr);
sleep(3); // wait for all process_count's to complete
if (client) {
pinx = atoi(&my_name[4]);
assert(pinx >= 0);
printf("loop=%d\n", loop);
for (inx = 0; inx < loop; inx++) {
for (pinx = 0; pinx < maxsp; pinx++) {
sprintf(serv, "$srv%d", pinx);
ferr = msg_mon_open_process(serv,
TPT_REF2(phandle,pinx),
&oid);
TEST_CHK_FEOK(ferr);
}
for (pinx = 0; pinx < maxsp; pinx++) {
ferr = msg_mon_close_process(TPT_REF2(phandle,pinx));
TEST_CHK_FEOK(ferr);
if (verbose)
printf("%s-close-count=%d\n", my_name, inx);
}
}
} else {
max = 2 * maxcp * loop;
for (inx = 0; inx < max; inx++) {
do {
lerr = XWAIT(LREQ, -1);
TEST_CHK_WAITIGNORE(lerr);
lerr = XMSG_LISTEN_((short *) &sre, // sre
0, // listenopts
0); // listenertag
} while (lerr == XSRETYPE_NOWORK);
ferr = XMSG_READCTRL_(sre.sre_msgId, // msgid
recv_buffer2, // reqctrl
sre.sre_reqCtrlSize); // bytecount
util_check("XMSG_READCTRL_", ferr);
ferr = XMSG_READDATA_(sre.sre_msgId, // msgid
recv_buffer, // reqdata
sre.sre_reqDataSize); // bytecount
util_check("XMSG_READDATA_", ferr);
XMSG_REPLY_(sre.sre_msgId, // msgid
recv_buffer2, // replyctrl
sre.sre_reqCtrlSize, // replyctrlsize
recv_buffer, // replydata
sre.sre_reqDataSize, // replydatasize
1, // errorclass
NULL); // newphandle
if (verbose)
printf("%s-count=%d\n", my_name, inx);
}
sleep(5);
}
ferr = msg_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(client);
return 0;
}
int main(int argc, char *argv[]) {
void *buf;
_xcc_status cc;
bool client = false;
unsigned short count_written;
unsigned short count_xferred;
int disable;
bool done;
int ferr;
short filenum1;
short filenum2;
int inx;
int loop = 10;
char my_name[BUFSIZ];
char my_pname[BUFSIZ];
int out;
MS_Mon_Process_Info_Type proc_info;
char recv_buffer[BUFSIZ];
char send_buffer[BUFSIZ];
int send_len;
SB_Tag_Type tag;
int timeout = -1;
short tfilenum;
TAD zargs[] = {
{ "-client", TA_Bool, TA_NOMAX, &client },
{ "-loop", TA_Int, TA_NOMAX, &loop },
{ "-server", TA_Ign, TA_NOMAX, NULL },
{ "-v", TA_Bool, TA_NOMAX, &verbose },
{ "", TA_End, TA_NOMAX, NULL }
};
ferr = file_init(&argc, &argv);
TEST_CHK_FEOK(ferr);
msfs_util_init_fs(&argc, &argv, file_debug_hook);
arg_proc_args(zargs, false, argc, argv);
util_test_start(client);
ferr = file_mon_process_startup(!client); // system messages?
TEST_CHK_FEOK(ferr);
util_gethostname(my_name, (int) sizeof(my_name));
ferr = msg_mon_get_my_process_name(my_pname, sizeof(my_pname));
if (client) {
ferr = XFILE_OPEN_(srv1, (short) strlen(srv1), &filenum1,
0, 0, MAX_OUT, 0, 0, 0, 0, NULL);
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_process_info_detail(srv1, &proc_info);
TEST_CHK_FEOK(ferr);
ferr = XFILE_OPEN_(srv2, (short) strlen(srv2), &filenum2,
0, 0, MAX_OUT, 0, 0, 0, 0, NULL);
TEST_CHK_FEOK(ferr);
for (inx = 0; inx < loop; inx++) {
sprintf(send_buffer, "hello, greetings from %s, inx=%d",
my_name, inx);
send_len = (int) strlen(send_buffer) + 1; // cast
if (verbose)
printf("client doing writereadx's to fn1\n");
for (out = 0; out < MAX_OUT; out++) {
cc = XWRITEREADX(filenum1,
send_buffer,
(ushort) send_len,
BUFSIZ,
&count_written,
0);
TEST_CHK_CCEQ(cc);
}
if (verbose)
printf("client doing writereadx's to fn2\n");
for (out = 0; out < MAX_OUT; out++) {
cc = XWRITEREADX(filenum2,
send_buffer,
(ushort) send_len,
BUFSIZ,
&count_written,
0);
TEST_CHK_CCEQ(cc);
}
if (verbose)
printf("client killing srv1 (pid=%d), closing fn1\n",
proc_info.os_pid);
kill(proc_info.os_pid, SIGTERM);
disable = msg_test_assert_disable();
ferr = XFILE_CLOSE_(filenum1);
TEST_CHK_FEIGNORE(ferr);
msg_test_assert_enable(disable);
if (verbose)
printf("client doing awaitios on fn1\n");
for (out = 0; out < MAX_OUT; out++) {
tfilenum = -2;
disable = msg_test_assert_disable();
cc = XAWAITIOX(&tfilenum,
&buf,
&count_xferred,
&tag,
timeout,
NULL);
msg_test_assert_enable(disable);
// can't check cc because of -2
if (_xstatus_eq(cc))
printf("%s\n", send_buffer);
}
if (verbose)
printf("client restarting srv1, reopening fn1\n");
restart_server(argc, argv);
ferr = XFILE_OPEN_(srv1, (short) strlen(srv1), &filenum1,
0, 0, MAX_OUT, 0, 0, 0, 0, NULL);
TEST_CHK_FEOK(ferr);
ferr = msg_mon_get_process_info_detail(srv1, &proc_info);
}
if (verbose)
printf("client sending stop to srv1\n");
strcpy(send_buffer, "stop");
send_len = (int) strlen(send_buffer) + 1; // cast
cc = XWRITEREADX(filenum1,
send_buffer,
(ushort) send_len,
BUFSIZ,
&count_written,
0);
TEST_CHK_CCEQ(cc);
tfilenum = filenum1;
cc = XAWAITIOX(&tfilenum,
&buf,
&count_xferred,
&tag,
timeout,
NULL);
TEST_CHK_CCEQ(cc);
strcpy(send_buffer, "stop");
if (verbose)
printf("client sending stop to srv2\n");
cc = XWRITEREADX(filenum2,
send_buffer,
(ushort) send_len,
BUFSIZ,
&count_written,
0);
TEST_CHK_CCEQ(cc);
tfilenum = filenum2;
cc = XAWAITIOX(&tfilenum,
&buf,
&count_xferred,
&tag,
timeout,
NULL);
TEST_CHK_CCEQ(cc);
if (verbose)
printf("client finishing\n");
} else {
ferr = XFILE_OPEN_((char *) "$RECEIVE", 8, &filenum1,
0, 0, 0,
1, 1, // no sys msg
0, 0, NULL);
TEST_CHK_FEOK(ferr);
do {
if (verbose)
printf("server-%s: doing readupdate\n", my_pname);
cc = XREADUPDATEX(filenum1,
recv_buffer,
BUFSIZ,
NULL,
0);
if (verbose)
printf("server-%s: readupdate done cc=%d\n", my_pname, cc);
TEST_CHK_CCEQ(cc);
util_time_sleep_ms(10);
done = (strcmp(recv_buffer, "stop") == 0);
strcat(recv_buffer, "- reply from ");
strcat(recv_buffer, my_name);
if (verbose)
printf("server-%s: doing reply, done=%d\n", my_pname, done);
cc = XREPLYX(NULL,
0,
&count_written,
0,
XZFIL_ERR_OK);
TEST_CHK_CCEQ(cc);
assert(count_written == 0);
} while (!done);
ferr = XFILE_CLOSE_(filenum1, 0);
TEST_CHK_FEOK(ferr);
}
ferr = file_mon_process_shutdown();
TEST_CHK_FEOK(ferr);
util_test_finish(client);
return 0;
}
