core/sqf/src/seabed/test/t30cli.cpp

//------------------------------------------------------------------
//
// @@@ START COPYRIGHT @@@
//
// Licensed to the Apache Software Foundation (ASF) under one
// or more contributor license agreements.  See the NOTICE file
// distributed with this work for additional information
// regarding copyright ownership.  The ASF licenses this file
// to you under the Apache License, Version 2.0 (the
// "License"); you may not use this file except in compliance
// with the License.  You may obtain a copy of the License at
//
//   http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing,
// software distributed under the License is distributed on an
// "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
// KIND, either express or implied.  See the License for the
// specific language governing permissions and limitations
// under the License.
//
// @@@ END COPYRIGHT @@@

#include <assert.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <unistd.h>

#include "seabed/fserr.h"
#include "seabed/ms.h"

#include "tchkfe.h"
#include "tmsfsutil.h"
#include "tutil.h"

#define MAX_CYCLES  20

#include "t25.h"

char      gdisplay_name[MS_MON_MAX_PROCESS_NAME];
int       gnid = -1;
int       gpid = -1;
int       gserver_oid;
TPT_DECL (gserver_phandle);

#include "t25.cpp.h"

int main(int argc, char *argv[]) {
    int            cycle;
    int            disable;
    int            ferr;
    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);
    ferr = msg_mon_open_process(process_name, TPT_REF(gserver_phandle), &gserver_oid);
    TEST_CHK_FEOK(ferr);

    // 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;
        if (cycle && ((cycle % 5) == 0))
            sendbuf[2] = CMD_ABORT;
        else
            sendbuf[2] = CMD_CONT;
        if (cycle == MAX_CYCLES)
            sendbuf[2] = CMD_END;
        retries = 5;
        do {
            myprintf("sending %d.%d.%d to server\n",
                     sendbuf[0], sendbuf[1], sendbuf[2]);
            ferr = XMSG_LINK_(TPT_REF(gserver_phandle),             // phandle
                              &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,
                               TPT_REF(gserver_phandle));
            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--;
                if (retries <= 0) {
                    myprintf("retries exhausted\n");
                    assert(retries > 0);
                } else
                    sleep(1);
                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);
    ferr = msg_mon_close_process(TPT_REF(gserver_phandle));
    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;
}