1     #include <stdio.h>          
2     #include "atmi.h"             /* TUXEDO */
3
4
5
6
7     #ifdef __STDC__
8     main(int argc, char *argv[])
9
10    #else
11
12    main(argc, argv)
13    int argc;
14    char *argv[];
15    #endif
16
17    {
18
19             char *sendbuf, *rcvbuf;
20             int sendlen, rcvlen;
21             int ret;
22
23             if(argc != 2) {
24                      fprintf(stderr, "Usage: simpcl string\n");
25                      exit(1);
26             }
27             /* Attach to BEA TUXEDO as a Client Process */
28             if (tpinit((TPINIT *) NULL) == -1) {
29                      fprintf(stderr, "Tpinit failed\n");
30                      exit(1);
31             }
32             sendlen = strlen(argv[1]);
33           if((sendbuf = (char *)tpalloc("STRING", NULL, sendlen+1))== NULL){
34                       fprintf(stderr,"Error allocating send buffer\n");
35                      tpterm();
36                      exit(1);
37             }
38             if((rcvbuf = (char *)tpalloc("STRING", NULL, sendlen+1))== NULL){
39                      fprintf(stderr,"Error allocating receive buffer\n");
40                      tpfree(sendbuf);
41                      tpterm();
42                      exit(1);
43             }
44             strcpy(sendbuf, argv[1]);
45             ret = tpcall("TOUPPER", sendbuf, NULL, &rcvbuf, &rcvlen, 0);
46             if(ret == -1) {
47                  fprintf(stderr, "Can't send request to service TOUPPER\n");
48        fprintf(stderr, "Tperrno = %d, %s\n", tperrno, tpstrerror(tperrno));
49                      tpfree(sendbuf);
50                      tpfree(rcvbuf);
51                      tpterm();
52                      exit(1);
53             }
54             printf("Returned string is: %s\n", rcvbuf);
55
56             /* Free Buffers & Detach from Oracle TUXEDO */
57             tpfree(sendbuf);
58             tpfree(rcvbuf);
59             tpterm();
60    }

   */

/* #ident	"@(#) apps/simpapp/simpserv.c	$Revision: 1.1 $" */
1  #include <stdio.h>
2  #include <ctype.h>
3  #include <atmi.h>	/* TUXEDO Header File */
4  #include <userlog.h>	/* TUXEDO Header File */
5  /* 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.

9  */
10 #if defined(__STDC__) || defined(__cplusplus)

12 tpsvrinit(int argc, char *argv[])
13 #else
14 tpsvrinit(argc, argv)
15 int argc;
16 char **argv;
17 #endif
18     {
19         /* Some compilers warn if argc and argv aren't used. 
20          */
21        argc = argc;
22        argv = argv;
23        /* userlog writes to the central TUXEDO message log */
24         userlog("Welcome to the simple server");
25         return(0);
26 }
27 /* 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.
30 */
31 #ifdef __cplusplus
32 extern "C"
33 #endif
34 void
35 #if defined(__STDC__) || defined(__cplusplus)
36 TOUPPER(TPSVCINFO *rqst)
37 #else
38 TOUPPER(rqst)
39 TPSVCINFO *rqst;
40 #endif
41  {
42       int i;
43 
44       for(i = 0; i < rqst->len-1; i++)
45               rqst->data[i] = toupper(rqst->data[i]);
46       /* Return the transformed buffer to the requestor. */
47       tpreturn(TPSUCCESS, 0, rqst->data, 0L, 0);
48 }