home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c004 / 1.ddi / CTAPX2.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-18  |  3.2 KB  |  127 lines
  1. /*
  2.  *    System Independent Application Interface
  3.  *
  4.  *    This program is the CONFIDENTIAL and PROPRIETARY property 
  5.  *    of FairCom(R) Corporation. Any unauthorized use, reproduction or
  6.  *    transfer of this program is strictly prohibited.
  7.  *
  8.  *      Copyright (c) 1987, 1988, 1989 FairCom Corporation
  9.  *    (Subject to limited distribution and
  10.  *     restricted disclosure only.)
  11.  *    *** ALL RIGHTS RESERVED ***
  12.  *
  13.  *    4006 West Broadway
  14.  *    Columbia, MO 65203
  15.  *
  16.  *
  17.  *    c-tree(R)    Version 4.3
  18.  *            Release C
  19.  *            February 7, 1989 17:30
  20.  *
  21.  */
  22.  
  23. #include "ctstdr.h"
  24. #include "ctoptn.h"
  25. #include "ctstrc.h"
  26. #include "cterrc.h"
  27. #include "ctcomm.h"
  28.  
  29. extern COUNT   uerr_cod,cts_usrid,cts_keyops;
  30. extern UCOUNT  cts_mxaln;
  31. extern KEYOPS *cts_kops;
  32. extern COUNT  *cts_mops;
  33.  
  34. TEXT          *mballc();
  35.  
  36. COUNT ctlogin(papxmsg,  papxdat,filno,cts_apxsiz,tp,pmsg)
  37. TEXT        **papxmsg,**papxdat;
  38. COUNT                filno;
  39. UCOUNT                      cts_apxsiz;
  40. TEXT                        *tp;
  41. MESSAGE                           *pmsg;
  42. {
  43.     /*
  44.      * if tp == NULL then ctlogin called from INTREE, else ctlogin called
  45.      * just before file creation or file open
  46.      */
  47.  
  48.     TEXT *getmids();
  49.  
  50.     if (tp == NULL) { /* called from INTREE */
  51.         /*
  52.          * get server message id, create application id, & get space
  53.          * for msg
  54.          */
  55.         pmsg->mfunc   = TST_MSGSIZ;
  56.         if ((*papxmsg = getmids(cts_apxsiz,pmsg)) == NULL)
  57.             return(uerr_cod);
  58.         else
  59.             *papxdat = *papxmsg + sizeof(MESSAGE);
  60.  
  61.         /*
  62.          * user id determination (pmsg->musrn set by server to
  63.          * actual value)
  64.          */
  65.         pmsg->musrn = cts_usrid = -1;
  66.  
  67.         /*
  68.          * send a message which: compares application message
  69.          * size with server message size, sends message id
  70.          * (set in getmids and stored in pmsg->mpntr), and
  71.             * compares application MAXLEN with server's
  72.          */
  73.         cts_mxaln   = (pmsg->mvlen = cts_apxsiz) - sizeof(MESSAGE);
  74.         pmsg->mseqn = MAXLEN;
  75.         pmsg->mretc = sizeof(KEYOPS);
  76.         if (ctapxe(0,TST_MSGSIZ,pmsg->mpntr,NULL)) {
  77.             *papxdat = NULL;    /* disable messages */
  78.             return(uerr_cod);
  79.         }
  80.  
  81.         cts_keyops = cts_mxaln / sizeof(KEYOPS);
  82.         if (cts_keyops > pmsg->mseqn)
  83.             cts_keyops = pmsg->mseqn;
  84.         if (cts_keyops > 1 && (cts_kops = (KEYOPS *) mballc(cts_keyops,
  85.                 sizeof(KEYOPS))) == NULL)
  86.                 return(uerr_cod = SPAC_ERR);
  87.         if (cts_keyops > 1 && (cts_mops = (COUNT *) mballc(cts_keyops,
  88.                 sizeof(COUNT))) == NULL) {
  89.             mbfree(cts_kops);
  90.             return(uerr_cod = SPAC_ERR);
  91.         }
  92.  
  93.         cts_usrid = pmsg->musrn;
  94.     }
  95.     return(NO_ERROR);
  96. }
  97.  
  98. COUNT ctsrvr(papxmsg,  papxdat,pmsg)
  99. TEXT       **papxmsg,**papxdat;
  100. MESSAGE                  *pmsg;
  101. {
  102.     COUNT ctrqst(),ctrspn();
  103.  
  104.     do {
  105.     /* reset error return */
  106.     pmsg->merrn = NO_ERROR;
  107.  
  108.     /* send message: ordinarily an interprocess comm call (e.g., q call) */
  109.     if (ctrqst(*papxmsg,pmsg)) {
  110.         return(pmsg->merrn = uerr_cod);
  111.     }
  112.  
  113.     /* get response: interprocess comm call which leaves answer in apxmsg */
  114.     if (ctrspn(papxmsg,pmsg)) {
  115.         return(pmsg->merrn = uerr_cod);
  116.     } else
  117.         *papxdat = *papxmsg + sizeof(MESSAGE);
  118.  
  119.     /* check for special return codes and cycle or retry as necessary */
  120.     } while (pmsg->merrn == STRY_ERR || pmsg->merrn == ARDO_ERR);
  121.  
  122.     /* return error code */
  123.     return(pmsg->merrn);
  124. }
  125.  
  126. /* end of ctapx2.c */
  127.