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             /* クライアント プロセスとして BEA TUXEDO にアタッチします。 */
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,
49                                tmemsgs[tperrno]);
50                      tpfree(sendbuf);
51                      tpfree(rcvbuf);
52                      tpterm();
53                      exit(1);
54             }
55             printf("Returned string is: %s\n", rcvbuf);
56
57             /* バッファを解放し、Oracle TUXEDO からのアタッチを解除します。 */
58             tpfree(sendbuf);
59             tpfree(rcvbuf);
60             tpterm();
61    }

   */

/* #ident	"@(#) apps/simpapp/simpserv.c	$Revision: 1.1 $" */
1  #include <stdio.h>
2  #include <ctype.h>
3  #include <atmi.h>	/* TUXEDO ヘッダ ファイル */
4  #include <userlog.h>	/* TUXEDO ヘッダ ファイル */
5  /* tpsvrinit は、サーバの起動時 (要求の処理を行う前)
   に実行されます。この関数は必須ではありません。
この例では使用されていませんが、サーバの停止時に
   呼び出される tpsvrdone も使用できます。

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                 /* argc と argv が使用されないと、コンパイラによる警告メッセージが出力されます。
20                 */
21        argc = argc;
22                argv = argv;
23        /* userlog は TUXEDO 中央メッセージ ログに書き込みます。 */
24                  userlog("Welcome to the simple server");
25                 return(0);
26 }
27 /* この関数は、クライアントから要求された実際のサービスを実行します。
引数には、データ バッファへのポインタ、データ バッファの長さなどを含む構造体を
        指定します。
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               /* 転送されたバッファを要求の発信元に返します。*/
47              tpreturn(TPSUCCESS, 0, rqst->data, 0L, 0);
48 }