cde/lib/DtSearch/raima/csmget.c

   1 /* $XConsortium: csmget.c /main/2 1996/05/09 03:58:53 drk $ */
   2 /*
   3  *   COMPONENT_NAME: austext
   4  *
   5  *   FUNCTIONS: d_csmget
   6  *
   7  *   ORIGINS: 157
   8  *
   9  *   OBJECT CODE ONLY SOURCE MATERIALS
  10  */
  11 /*-----------------------------------------------------------------------
  12    csmget.c -- db_VISTA current set member database address get module.
  13
  14    (C) Copyright 1987 by Raima Corporation.
  15 -----------------------------------------------------------------------*/
  16
  17 /* ********************** EDIT HISTORY *******************************
  18
  19  SCR    DATE    INI                   DESCRIPTION
  20 ----- --------- --- -----------------------------------------------------
  21       04-Aug-88 RTK MULTI_TASK changes
  22 */
  23
  24 #include <stdio.h>
  25 #include "vista.h"
  26 #include "dbtype.h"
  27
  28 /* Get current set member
  29 */
  30 d_csmget(set, dba TASK_PARM DBN_PARM)
  31 int set;      /* Set table entry */
  32 DB_ADDR FAR *dba; /* db address of record to become current */
  33 TASK_DECL
  34 DBN_DECL      /* database number */
  35 {
  36    SET_ENTRY FAR *set_ptr;
  37
  38    DB_ENTER(DB_ID TASK_ID LOCK_SET(SET_NOIO));
  39
  40    if (nset_check(set, &set, (SET_ENTRY FAR * FAR *)&set_ptr) != S_OKAY)
  41       RETURN( db_status );
  42
  43    if ( ! (*dba = curr_mem[set]) )
  44       db_status = S_NOCM;
  45
  46    RETURN( db_status );
  47 }
  48 /* vpp -nOS2 -dUNIX -nBSD -nVANILLA_BSD -nVMS -nMEMLOCK -nWINDOWS -nFAR_ALLOC -f/usr/users/master/config/nonwin csmget.c */