Server Programs

SDLTOUPPER(TPSVCINFO *msg)
{
        ...
        struct  kstrdata *stdata;
        stdata = (struct kstrdata *)msg->data;
        ...
        for (i = 0; i < stdata->len; i++)
            stdata->sdata[i] = toupper(stdata->sdata[i]);
        ...
        tpreturn(TPSUCCESS,0,(char *)stdata, sizeof(struct kstrdata), TPNOFLAGS);
}

*DOMAIN
res1        SHMKEY = 66999, MAXUSER = 256

*NODE
tmax       TMAXDIR = "/user/tmax",
           APPDIR  = "/user/tmax/appbin",
           PATHDIR = "/user/tmax/path",
           TLOGDIR = "/user/tmax/log/tlog",
           ULOGDIR = "/user/tmax/log/ulog",
           SLOGDIR = "/user/tmax/log/slog"

*SVRGROUP
svg1        NODENAME = tmax

*SERVER
svr1         SVGNAME = svg1

#Add SVRTYPE=UCS for UCS.
ucssvr1      SVGNAME = svg1, SVRTYPE = UCS
ucssvr2      SVGNAME = svg1, SVRTYPE = UCS
ucssvr3      SVGNAME = svg1, SVRTYPE = UCS

*SERVICE
TOUPPER      SVRNAME = svr1
TOLOWER      SVRNAME = svr1
DUMY1        SVRNAME = ucssvr1
DUMY2        SVRNAME = ucssvr2

#include    <stdio.h>
#include    <usrinc/atmi.h>
#include    <usrinc/ucs.h>

DUMY1(TPSVCINFO *msg)
{
        printf("svc start!");
        tpreturn(TPSUCCESS, 0, (char *)msg->data, 0, TPNOFLAGS);
}

int usermain(int argc, char *argv[])
{
        ...
        while (1) {
            jobs = tpschedule(-1);
            cnt++;
            ...
            ret = tpcall("TOUPPER", sbuf, 0, &rbuf, &rlen, TPNOFLAGS);
            if (ret < 0) {
                error processing routine
            }
        }
}

*DOMAIN
tmax1   SHMKEY = 7090, MINCLH = 2, MAXCLH = 2

*NODE
tmax1   TMAXDIR = "/home/navis/tmax",
        APPDIR = "/home/navis/tmax/appbin",
        PATHDIR = "/home/navis/tmax/path",
        TLOGDIR = "/home/navis/tmax/log/tlog",
        ULOGDIR = "/home/navis/tmax/log/ulog",
        SLOGDIR = "/home/navis/tmax/log/slog",
        REALSVR = "real",rscpc = 2

# Server makefile

TARGET = $(COMP_TARGET)
APOBJS = $(TARGET).o
SDLFILE = demo.s

#Not use Db
LIBS    = -lsvr -lnodb
#In the case of Solaris, –lsocket –lnsl is added.
#In the case of Oracle, Informix, Db2, and Sybase,
#-loras, –linfs, –ldb2, and –lsybs are used instead of –lnodb, respectively.

OBJS    = $(APOBJS) $(SDLOBJ) $(SVCTOBJ)

SDLOBJ  = ${SDLFILE:.s=_sdl.o}
SDLC    = ${SDLFILE:.s=_sdl.c}
SVCTOBJ = $(TARGET)_svctab.o

CFLAGS  = -O -I$(TMAXDIR)
#Different CFLAG is used according to development environments (32 or 64 bit) and platforms.
#Solaris 32bit, Compaq, Linux: CFLAGS = -O –I$(TMAXDIR)
#Solaris 64bit: CFLAGS = -xarch=v9 -O –I$(TMAXDIR)
#HP 32bit: CFLAGS = -Ae -O –I$(TMAXDIR)
#HP 64bit: CFLAGS = -Ae +DA2.0W +DD64 +DS2.0 -O –I$(TMAXDIR)
#IBM 32bit: CFLAGS = -q32 –brtl -O –I$(TMAXDIR
#IBM 64bit: CFLAGS = -q64 –brtl -O –I$(TMAXDIR

APPDIR  = $(TMAXDIR)/appbin
SVCTDIR = $(TMAXDIR)/svct
LIBDIR  = $(TMAXDIR)/lib
#In the 64 bit environment, it is $(TMADIR)/lib64.

#
.SUFFIXES : .c

.c.o:
        $(CC) $(CFLAGS) -c $<

#
# server compile
#

$(TARGET): $(OBJS)
        $(CC) $(CFLAGS) -L$(LIBDIR) -o $(TARGET) $(OBJS) $(LIBS)
        mv $(TARGET) $(APPDIR)/.
        rm -f $(OBJS)

$(APOBJS): $(TARGET).c
        $(CC) $(CFLAGS) -c $(TARGET).c

$(SVCTOBJ):
        touch $(SVCTDIR)/$(TARGET)_svctab.c
        $(CC) $(CFLAGS) -c $(SVCTDIR)/$(TARGET)_svctab.c

$(SDLOBJ):
$(TMAXDIR)/bin/sdlc -i ../sdl/$(SDLFILE)
        $(CC) $(CFLAGS) -c ../sdl/$(SDLC)

#
clean:
        -rm -f *.o core $(TARGET)

$./compile sdl svr1
$./compile c svr2
$./compile c svr3
$./compile pc fdltest
$./compile psdl sdltest

$cfl –i sample.m

$sdlc –i demo.s
$sdlc –c –i demo.s –o tmax.sdl
$mksvr –s SDLTOUPPER,SDLTOLOWER –o svr1 –f svr1.c –S ../sdl/demo_sdl.c

$mksvr –s TOUPPER,TOLOWER –o svr2 –f svr2.c

$fdlc –c –i demo.s –o tmax.fdl
$mksvr –s FDLTOPPER, FDLTOLOWER –o svr3 –f svr3.c

$proc iname=fdltest include $TMAXDIR
$mksvr –s FDLINS,FDLSEL,FDLDEL,FDLUPT –o fdltest –f fdltest.c

$mksvr –s SDLINS,SDLSEL,SDLDEL,SDLUPT –o sdltest –f sdltest.c
–S ../sdl/demo_sdl.c –r ORACLE

$cfl –i sample.m
$sdlc –i demo.s
$sdlc –c –i demo.s –o tmax.sdl
$mksvr –s UCSSAMPLE –o ucs_svr –f ucs_svr.c –S ../sdl/demo_sdl.c –t UCS