void
main()
{
           TPINIT      *tpinfop;
           FILE        *fp;
           char        aline[MAXLINE];
           char        *loc_env[MAXENV];
....
          if((loc_env[top_one]=(char *) malloc(strlen(aline) + 1)) == NULL) {
             userlog("Error mallocing space for the environment.");
             continue;
          }
          strcpy(loc_env[top_one], aline);
          if(tuxputenv(loc_env[top_one]) != 0) {
             userlog("Error adding %s to the environment.",
             loc_env[top_one]);
             free(loc_env[top_one]);
             continue;
          }

Using bankapp as an Example

After the BEA TUXEDO system is installed on the Macintosh, among the files in the directory $TUXDIR/apps/bankapp you will find the following:

bankapp.r     - dialog resource for BANKAPPM windows 
BANKAPPM.C    -   Macintosh application source file
BANKAPPM.h    - Macintosh application header file 
MACDialog.c   - Macintosh application source file
MACDialog.h   - Macintosh application header file
bank.flds     - FML buffer field identifiers 
mkbankhdr.tsh - TuxShell script to create headers

These are the files needed to produce a bankapp client for Macintosh. Notice there is a TuxShell(1) script, mkbankhdr.tsh, which needs to be modified for your instantiation and run with the TuxShell(1) program before compilation.

Take a look through the application file, BANKAPPM.c; we want to call your attention to a few items. Listing 7-2 shows a partial list of the #include files you should use.

Listing 7-2 bankapp for Macintosh: #include Files

41     #include <Quickdraw.h>
42     #include <Resources.h>
43     #include <Fonts.h>
44     #include <OSEvents.h>
45     #include <Desk.h>
46     #include "MACDialog.h"
47     #include "BANKAPPM.h"
48     #include "bank.flds.h"
49     #include <string.h>
50     #include <Uunix.h>
51     #include <atmi.h>
52     #include <fml.h>
53     #include <Usysflds.h>
54     #include <userlog.h>

Lines 93 to 410 (not shown) are Field Validation Routines: five routines that check the validity of the input typed in by the user. We will not show this code except for an example (in Listing 7-3) of how syntax errors cause a message to be displayed on the user's screen by means of a call to NoteAlert.

Listing 7-3 bankapp for Macintosh: Displaying a Syntax Error

151  for (i=0; amount[i] != 0 & i 10; i++) {
152    if (amount[i] == '.') {  153             if (decimal)
154                 break;
155             decimal++;
156             continue;
157         }
158         if (!isdigit(amount[i]))
159             break;
160         if (decimal) {
161             decimal++;
162             if (decimal > 3)
163                 break;
164         }
165     }
166     if (i == 0 || (3 - decimal) + i > 10) {
167         (void) NoteAlert(amounCAUT, NULL);
168         return(FALSE);
169     }

The actual work of the application begins with the comments at line 412 (not shown). Each of the dialog boxes has a set of routines which are used to implement its functionality.

The dialog boxes, which take up the rest of the code, accept input from the user, start a transaction, make a call to the requested service and return information to the user. The code in Listing 7-4 shows how errors might be handled. In lines 594-599, for example, if the call to tpbegin(3c) fails, a message is sent to userlog(3c) and also to the user's screen via the ParamText function. In lines 600-605, if the service call fails and the buffer is not NULL, the status line is picked up and returned to the user.

Lines 625-630 show the service request being successfully performed and the requested balance being displayed on the user's screen.

Listing 7-4 bankapp for Macintosh: Error Handling

594     if (tpbegin(30, 0) == -1) {
595       (void) userlog("failed to begin transaction");
596         NumToString(tperrno, tpStr);
597         ParamText("\pOpen Account Failed", "\p",
598                     "\ptperrno = ", tpStr);
599     }
600     else if (tpcall("OPEN_ACCT", (char *) *fbfr, 0, (char *) *fbfr,
          &len, 0) == -1) {
601         if((tperrno == TPESVCFAIL) & (*fbfr != NULL) &
602                 ((s = Ffind(*fbfr,STATLIN,0,0)) != 0)) {
603             BlockMove(s, account1[1], (Size) (account1[0] =
                  (unsigned char) strlen(s)));
604             ParamText((unsigned char *) account1, "\p", "\p", "\p");
605         }
606         else {
607             NumToString(tperrno, tpStr);
608             ParamText("\pTransfer Failed", "\p", "\ptperrno = ", tpStr);
609         }
625             Fget(*fbfr, ACCOUNT_ID, 0, (char *) acc_num, 0);
626             s = Ffind(*fbfr, SBALANCE, 0, 0);
627             NumToString(acc_num, tpStr);
628             BlockMove(s, account1[1], (Size) (account1[0] =
                        (unsigned char) strlen(s)));
629             ParamText("\pAccount Number: ", tpStr,
630                    "\pAccount Balance: ", (unsigned char *) account1);

7. BEA TUXEDO Workstation for Macintosh

Using bankapp as an Example

Blocking Network Behavior