home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c004 / 1.ddi / CTAPX4.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-18  |  1.7 KB  |  82 lines
  1. /*
  2.  *    Variable Length 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 MESSAGE cts_msg;
  30. extern COUNT   uerr_cod;
  31.  
  32. CTFILE *tstfnm();
  33. COUNT   ctapxe(),recwrt(),recred();
  34. POINTER ctapxv();
  35.  
  36. COUNT WRTVREC(datno,recbyt,recptr,varlen)
  37. COUNT          datno;
  38. POINTER            recbyt;
  39. TEXT              *recptr;
  40. VRLEN                  varlen;
  41. {
  42.     if (tstfnm(datno) == NULL)
  43.         return(uerr_cod);
  44.     cts_msg.mretc = VAR1st;    /* signal 1st segment of var len record */
  45.     return(recwrt(datno,recbyt,recptr,varlen));
  46. }
  47.  
  48. COUNT RDVREC(datno,recbyt,recptr,bufsiz)
  49. COUNT         datno;
  50. POINTER           recbyt;
  51. TEXT             *recptr;
  52. VRLEN                 bufsiz;
  53. {
  54.     if (tstfnm(datno) == NULL)
  55.         return(uerr_cod);
  56.     return(recred(datno,recbyt,recptr,bufsiz,0));
  57. }
  58.  
  59. VRLEN GTVLEN(datno,recbyt)
  60. COUNT         datno;
  61. POINTER           recbyt;
  62. {
  63.     if (ctapxe(datno,FN_GTVLEN,recbyt,NULL))
  64.         return(0);
  65.     else
  66.         return(cts_msg.mvlen);
  67. }
  68.  
  69. POINTER NEWVREC(datno,varlen)
  70. COUNT        datno;
  71. VRLEN              varlen;
  72. {
  73.     POINTER retval;
  74.  
  75.     cts_msg.mvlen = varlen;
  76.     if ((retval = ctapxv(datno,FN_NEWVREC,0L,NULL,NULL)) != DRNZERO)
  77.         getsrlnum(&cts_msg);
  78.     return(retval);
  79. }
  80.  
  81. /* end of ctapx4.c */
  82.