Server

-bash-3.00# more tux.env
TUXDIR=/opt/bea/tuxedo10.0; export TUXDIR
JAVA_HOME=$TUXDIR/jre; export JAVA_HOME
JVMLIBS=$JAVA_HOME/jre/lib/sparcv9/server:$JAVA_HOME/jre/bin
PATH=/usr/5bin:/opt/gcc/bin:$TUXDIR/bin:$JAVA_HOME/bin:$PATH; export PATH
COBCPY=:$TUXDIR/cobinclude; export COBCPY
COBOPT="-C ANS85 -C ALIGN=8 -C NOIBMCOMP -C TRUNC=ANSI -C OSEXT=cbl"; export COBOPT
SHLIB_PATH=$TUXDIR/lib:$JVMLIBS:$SHLIB_PATH; export SHLIB_PATH
LIBPATH=$TUXDIR/lib:$JVMLIBS:$LIBPATH; export LIBPATH
LD_LIBRARY_PATH=$TUXDIR/lib:$JVMLIBS:$LD_LIBRARY_PATH:/opt/gcc/lib; export LD_LIBRARY_PATH
WEBJAVADIR=$TUXDIR/udataobj/webgui/java; export WEBJAVADIR
TUXCONFIG=/opt/bea/app/simpapp/tuxconfig; export TUXCONFIG
APPDIR=/opt/bea/app/simpapp; export APPDIR
-bash-3.00# pwd
/opt/bea/app/simpapp
-bash-3.00#

-bash-3.00# more ubb
#(c) 2003 BEA Systems, Inc. All Rights Reserved.
#ident"@(#) samples/atmi/simpapp/ubbsimple$Revision: 1.5 $"
#Skeleton UBBCONFIG file for the TUXEDO Simple Application.
#Replace the <bracketed> items with the appropriate values.
*RESOURCES
IPCKEY123456
#Example:
#IPCKEY123456
DOMAINIDsimpapp
MASTERitsm001
MAXACCESSERS10
MAXSERVERS5
MAXSERVICES10
MODELSHM
LDBALN
*MACHINES
DEFAULT:
APPDIR="/opt/bea/app/simpapp"
TUXCONFIG="/opt/bea/app/simpapp/tuxconfig"
TUXDIR="/opt/bea/tuxedo10.0"
MAXWSCLIENTS = 150
MAXACCESSERS = 400
#Example:
#APPDIR="/home/me/simpapp"
#TUXCONFIG="/home/me/simpapp/tuxconfig"
#TUXDIR="/usr/tuxedo"
itsm001LMID=itsm001
#Example:
#beatuxLMID=simple
*GROUPS
GROUP1
LMID=itsm001GRPNO=1 OPENINFO=NONE
*SERVERS
DEFAULT:
CLOPT="-A"
simpservSRVGRP=GROUP1 SRVID=1
WSLSRVGRP=GROUP1 SRVID=20 CLOPT="-A-- -n //192.168.0.8:7200-m 10 -M 20 -x 6"
*SERVICES
TOUPPER
-bash-3.00#

-bash-3.00# tmloadcfubb
Really overwrite TUXCONFIG file: /opt/bea/app/simpapp/tuxconfig [y, q] ? y
-bash-3.00#

bash-2.05# more simpserv.c
/*(c) 2003 BEA Systems, Inc. All Rights Reserved. */
/*Copyright (c) 1997 BEA Systems, Inc.
All rights reserved
THIS IS UNPUBLISHED PROPRIETARY
SOURCE CODE OF BEA Systems, Inc.
The copyright notice above does not
evidence any actual or intended
publication of such source code.
*/
/* #ident"@(#) samples/atmi/simpapp/simpserv.c$Revision: 1.5 $" */
#include <stdio.h>
#include <ctype.h>
#include <atmi.h>/* TUXEDO Header File */
#include <userlog.h>/* TUXEDO Header File */
/* tpsvrinit is executed when a server is booted, before it begins
processing requests.It is not necessary to have this function.
Also available is tpsvrdone (not used in this example), which is
called at server shutdown time.
*/
#if defined(__STDC__) defined(__cplusplus)
tpsvrinit(int argc, char *argv[])
#else
tpsvrinit(argc, argv)
int argc;
char **argv;
#endif
{
      /* Some compilers warn if argc and argv aren't used. */
      argc = argc;
      argv = argv;
      /* userlog writes to the central TUXEDO message log */
      userlog("Welcome to the simple server");
      return(0);
}
/* This function performs the actual service requested by the client.
Its argument is a structure containing among other things a pointer
to the data buffer, and the length of the data buffer.
*/
#ifdef __cplusplus
extern "C"
#endif
void
#if defined(__STDC__) defined(__cplusplus)
TOUPPER(TPSVCINFO *rqst)
#else
TOUPPER(rqst)
TPSVCINFO *rqst;
#endif
{
      int i;
      for(i = 0; i < rqst->len-1; i++)
      rqst->data[i] = toupper(rqst->data[i]);
      /* Return the transformed buffer to the requestor. */
      tpreturn(TPSUCCESS, 0, rqst->data, 0L, 0);
}
bash-2.05#
bash-2.05# buildserver-o simpserv -f simpserv -s TOUPPER

bash-2.05$ type cc
cc is /usr/bin/cc
bash-2.05$ ls -l /usr/bin/cc
lrwxrwxrwx1 rootother16 Sep 19 10:17 /usr/bin/cc -> /opt/gcc/bin/gcc
bash-2.05$ cc -v
Using built-in specs.
Target: sparc-sun-solaris2.9
Configured with: /net/sacrum/export/home/bldmstr/nightly/20061019_mars_gcc.s9.opt.tarbuild/src/configure --prefix=/opt/gcc --enable-shared --with-system-zlib --enable-checking=release --disable-libmudflap --enable-languages=c,c++ --enable-version-specific-runtime-libs --with-gxx-include-dir=/opt/gcc/include/c++/4.0.3 --with-cpu=v9
Thread model: posix
gcc version 4.0.3 (gccfss)
bash-2.05$
bash-2.05$uname -a
SunOS itsm009 5.9 Generic_118558-34 sun4u sparc SUNW,Sun-Blade-1000
bash-2.05$

-bash-3.00# tmboot -y
Booting all admin and server processes in /opt/bea/app/simpapp/tuxconfig
INFO: BEA Tuxedo, Version 10.0, 64-bit, Patch Level (none)
INFO: Serial #: 454493271161-2664984303294, Expiration NONE, Maxusers 1000000
INFO: Licensed to: Customer
Booting admin processes ...
exec BBL -A :
process id=2477 ... Started.
Booting server processes ...
exec simpserv -A :
process id=2478 ... Started.
exec WSL -A -- -n //192.168.0.8:7200 -m 10 -M 20 -x 6:
process id=2479 ... Started.
3 processes started.
-bash-3.00#

-bash-3.00# tmshutdown -y
Shutting down all admin and server processes in /opt/bea/app/simpapp/tuxconfig
Shutting down server processes ...
Server Id = 20 Group Id = GROUP1 Machine = itsm001:shutdown succeeded
Server Id = 1 Group Id = GROUP1 Machine = itsm001:shutdown succeeded
Shutting down admin processes ...
Server Id = 0 Group Id = itsm001 Machine = itsm001:shutdown succeeded
3 processes stopped.
-bash-3.00#
Client

bash-2.05# more simpcl.c
/*(c) 2003 BEA Systems, Inc. All Rights Reserved. */
/*Copyright (c) 1997 BEA Systems, Inc.
All rights reserved
THIS IS UNPUBLISHED PROPRIETARY
SOURCE CODE OF BEA Systems, Inc.
The copyright notice above does not
evidence any actual or intended
publication of such source code.
*/
/* #ident"@(#) samples/atmi/simpapp/simpcl.c$Revision: 1.5 $" */
#include <stdio.h>
#include "atmi.h"/* TUXEDOHeader File */
#if defined(__STDC__) defined(__cplusplus)
main(int argc, char *argv[])
#else
main(argc, argv)
int argc;
char *argv[];
#endif
{
      char *sendbuf, *rcvbuf;
      long sendlen, rcvlen;
      int ret;
      if(argc != 2) {
            (void) fprintf(stderr, "Usage: simpcl string\n");
            exit(1);
      }
      /* Attach to System/T as a Client Process */
      if (tpinit((TPINIT *) NULL) == -1) {
            (void) fprintf(stderr, "Tpinit failed\n");
            exit(1);
      }
      sendlen = strlen(argv[1]);
      /* Allocate STRING buffers for the request and the reply */
      if((sendbuf = (char *) tpalloc("STRING", NULL, sendlen+1)) == NULL) {
            (void) fprintf(stderr,"Error allocating send buffer\n");
            tpterm();
            exit(1);
      }
      if((rcvbuf = (char *) tpalloc("STRING", NULL, sendlen+1)) == NULL) {
            (void) fprintf(stderr,"Error allocating receive buffer\n");
            tpfree(sendbuf);
            tpterm();
            exit(1);
      }
      (void) strcpy(sendbuf, argv[1]);
      /* Request the service TOUPPER, waiting for a reply */
      ret = tpcall("TOUPPER", (char *)sendbuf, 0, (char **)&rcvbuf, &rcvlen, (long)0);
      if(ret == -1) {
            (void) fprintf(stderr, "Can't send request to service TOUPPER\n");
            (void) fprintf(stderr, "Tperrno = %d\n", tperrno);
            tpfree(sendbuf);
            tpfree(rcvbuf);
            tpterm();
            exit(1);
      }
      (void) fprintf(stdout, "Returned string is: %s\n", rcvbuf);
      /* Free Buffers & Detach from System/T */
      tpfree(sendbuf);
      tpfree(rcvbuf);
      tpterm();
      return(0);
}
bash-2.05#

bash-2.05# buildclient-o client-f simpcl.c-w
simpcl.c: In function 'main':
simpcl.c:34: warning: incompatible implicit declaration of built-in function 'exit'
simpcl.c:40: warning: incompatible implicit declaration of built-in function 'exit'
simpcl.c:43: warning: incompatible implicit declaration of built-in function 'strlen'
simpcl.c:50: warning: incompatible implicit declaration of built-in function 'exit'
simpcl.c:57: warning: incompatible implicit declaration of built-in function 'exit'
simpcl.c:60: warning: incompatible implicit declaration of built-in function 'strcpy'
simpcl.c:71: warning: incompatible implicit declaration of built-in function 'exit'
bash-2.05#

-bash-3.00# ./simpcl adfdf
Returned string is: ADFDF
-bash-3.00#

bash-2.05# env grep TUX
TUXDIR=/export/home/tuxedo/tuxedo9.1
bash-2.05# env grep AD
WSNADDR=//192.168.0.8:7200
bash-2.05#

bash-2.05# ./client adf
Returned string is: ADF
bash-2.05#
。

--转自