simpapp (簡単な C 言語アプリケーション) のチュートリアル

TUXDIR=BEA Tuxedo システムのルート・ディレクトリのパス名
TUXCONFIG=現在の作業ディレクトリのパス名
PATH=$PATH:$TUXDIR/bin
LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$TUXDIR/lib
export TUXDIR TUXCONFIG PATH LD_LIBRARY_PATH

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 /* バッファを解放し、BEA TUXEDO からのアタッチを解除します。*/
58 tpfree(sendbuf);
59 tpfree(rcvbuf);

表 2-1 simpcl.c ソース・コードでの重要なコード行

行数	ファイル/関数	目的

2	atmi.h	BEA Tuxedo の ATMI 関数を使用する場合に、常に必要となるヘッダ・ファイル。
28	tpinit()	クライアント・プログラムがアプリケーションに参加する際に使用される ATMI 関数。
33	tpalloc()	型付きバッファの割り当てに使用される ATMI 関数です。STRING は、BEA Tuxedo の 5 つの基本的なバッファ型のひとつです。NULL は、サブタイプの引数がないことを示します。最後の引数 sendlen + 1 は、バッファの長さを指定します。文字列の終わりを示す NULL 文字用に 1 が加えられています。
38	tpalloc()	応答メッセージにほかのバッファを割り当てます。
45	tpcall()	最初の引数に指定された TOUPPER サービスにメッセージ・バッファを送信します。また、応答バッファのアドレスも指定します。tpcall() はメッセージが返されるまで待機します。
35、41、52、60	tpterm()	アプリケーションを終了するための ATMI 関数。tpterm() は、エラー条件の発生により終了する (36、42、53 行目) 前に、アプリケーションを終了する場合に使用します。tpterm() への最終呼び出し (60 行目) は、メッセージが出力された後に行われます。
40、50、51、58、59	tpfree()	バッファの割り当てを解放します。tpfree() は、tpalloc() とは反対の処理を行います。
55	printf()	プログラムの正常終了を示します。サーバから返されたメッセージを出力します。

$ ls -l
total 97
-rwxr-x--x 1 usrid grpid 313091 May 28 15:41 simpcl
-rw-r----- 1 usrid grpid 1064 May 28 07:51 simpcl.c
-rw-r----- 1 usrid grpid 275 May 28 08:57 simpserv.c
-rw-r----- 1 usrid grpid 392 May 28 07:51 ubbsimple

/* #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 }

行数	ファイル/関数	目的
ファイル全体		BEA Tuxedo のサーバには、main() 関数が含まれていません。main() 関数は、サーバのビルド時に BEA Tuxedo システムによって提供されます。
12	tpsvrinit()	このサブルーチンは、サーバの初期化時 (サーバがサービス要求を処理する前) に呼び出されます。BEA Tuxedo システムで提供されるデフォルトのサブルーチンでは、サーバが起動したことを示すメッセージが USERLOG に書き込まれます。userlog(3c) は、BEA Tuxedo システムで使用されるログで、アプリケーションでも使用できます。
38	TOUPPER()	サービス (simpserv で唯一実行されるサービス) の宣言です。このサービスに必要な唯一の引数は、TPSVCINFO 構造体へのポインタです。この構造体には、大文字に変換する文字列データが格納されます。
45	for loop	TOUPPER を繰り返し呼び出して、入力を大文字に変換します。
49	tpreturn()	TPSUCCESS フラグに設定された値と、変換された文字列をクライアントに返します。

行数

ファイル/関数

目的

ファイル全体

BEA Tuxedo のサーバには、main() 関数が含まれていません。main() 関数は、サーバのビルド時に BEA Tuxedo システムによって提供されます。

tpsvrinit()

このサブルーチンは、サーバの初期化時 (サーバがサービス要求を処理する前) に呼び出されます。BEA Tuxedo システムで提供されるデフォルトのサブルーチンでは、サーバが起動したことを示すメッセージが USERLOG に書き込まれます。userlog(3c) は、BEA Tuxedo システムで使用されるログで、アプリケーションでも使用できます。

TOUPPER()

サービス (simpserv で唯一実行されるサービス) の宣言です。このサービスに必要な唯一の引数は、TPSVCINFO 構造体へのポインタです。この構造体には、大文字に変換する文字列データが格納されます。

for loop

TOUPPER を繰り返し呼び出して、入力を大文字に変換します。

tpreturn()

TPSUCCESS フラグに設定された値と、変換された文字列をクライアントに返します。

$ ls -l
total 97
-rwxr-x--x 1 usrid grpid 313091 May 28 15:41 simpcl
-rw-r----- 1 usrid grpid 1064 May 28 07:51 simpcl.c
-rwxr-x--x 1 usrid grpid 358369 May 29 09:00 simpserv
-rw-r----- 1 usrid grpid 275 May 28 08:57 simpserv.c
-rw-r----- 1 usrid grpid 392 May 28 07:51 ubbsimple

1$
2
3 #BEA Tuxedo サンプル・アプリケーションのスケルトン・ファイルです。
4 #<山かっこで囲まれた文字列> を適切な値で置き換えます。
5 RESOURCES
6 IPCKEY <32,768 よりも大きい IPC キーで置き換えます。>
7
8 #例:
9
10 #IPCKEY 62345
11
12 MASTER simple
13 MAXACCESSERS 5
14 MAXSERVERS 5
15 MAXSERVICES 10
16 MODEL SHM
17 LDBAL N
18
19 *MACHINES
20
21 DEFAULT:
22
23 APPDIR="<現在のパス名で置き換えます。>"
24 TUXCONFIG="<TUXCONFIG のパス名で置き換えます。>"
25 TUXDIR="<Tuxedo のルート・ディレクトリ (/ 以外) を指定します。>"
26 #例:
27 # APPDIR="/usr/me/simpdir"
28 # TUXCONFIG="/usr/me/simpdir/tuxconfig"
29 # TUXDIR="/usr/tuxedo"
30
31 <Machine-name> LMID=simple
32 #例:
33 #tuxmach LMID=simple
34 *GROUPS
35 GROUP1
36 LMID=simple GRPNO=1 OPENINFO=NONE
37
38 *SERVERS
39 DEFAULT:
40 CLOPT="-A"
41 simpserv SRVGRP=GROUP1 SRVID=1
42 *SERVICES
43 TOUPPER

$ ls -l
total 216
-rwxr-x--x 1 usrid grpid 313091 May 28 15:41 simpcl
-rw-r----- 1 usrid grpid 1064 May 28 07:51 simpcl.c
-rwxr-x--x 1 usrid grpid 358369 May 29 09:00 simpserv
-rw-r----- 1 usrid grpid 275 May 28 08:57 simpserv.c
-rw-r----- 1 usrid grpid 106496 May 29 09:27 tuxconfig
-rw-r----- 1 usrid grpid 382 May 29 09:26 ubbsimple

> psr
a.out Name Queue Name Grp Name ID RqDone Load Done Current Service
---------- ---------- -------- -- ------ --------- ---------------
BBL 531993 simple 0 0 0 ( IDLE )
simpserv 00001.00001 GROUP1 1 0 0 ( IDLE )
>

> psc
Service Name Routine Name a.out Name Grp Name ID Machine # Done Status
------------ ------------ ---------- -------- -- ------- ------ ------
TOUPPER TOUPPER simpserv GROUP1 1 simple - AVAIL
>

$ cat ULOG*
$
113837.tuxmach!tmloadcf.10261:CMDTUX_CAT:879:A new file system has been created. (size = 32 4096-byte blocks)
113842.tuxmach!tmloadcf.10261:CMDTUX_CAT:871: TUXCONFIG file /usr/me/simpdir/tuxconfig has been created
113908.tuxmach!BBL.10768:LIBTUX_CAT:262: std main starting
113913.tuxmach!simpserv.10925:LIBTUX_CAT:262: std main starting
113913.tuxmach!simpserv.10925: Welcome to the simple server
114009.tuxmach!simpserv.10925:LIBTUX_CAT:522: Default tpsvrdone() function used.
114012.tuxmach!BBL.10768:CMDTUX_CAT:26:Exiting system