twebenv.c

ncbi源码

/*
 * ===========================================================================
 * PRODUCTION $Log: twebenv.c,v $
 * PRODUCTION Revision 1000.0  2003/10/29 17:59:36  gouriano
 * PRODUCTION PRODUCTION: IMPORTED [ORIGINAL] Dev-tree R1.3
 * PRODUCTION
 * ===========================================================================
 */

#include <ncbiconf.h>
#if HAVE_NCBI_C
#include <asn.h>

#define NLM_GENERATED_CODE_PROTO

#include "twebenv.h"

static Boolean loaded = FALSE;

#include "twebenvasn.h"

#ifndef NLM_EXTERN_LOADS
#define NLM_EXTERN_LOADS {}
#endif

NLM_EXTERN Boolean LIBCALL
twebenvAsnLoad(void)
{

   if ( ! loaded) {
      NLM_EXTERN_LOADS

      if ( ! AsnLoad ())
      return FALSE;
      loaded = TRUE;
   }

   return TRUE;
}



/**************************************************
*    Generated object loaders for Module NCBI-Env
*    Generated using ASNCODE Revision: 6.0 at Oct 4, 1999  4:26 PM
*
**************************************************/


/**************************************************
*
*    WebEnvNew()
*
**************************************************/
NLM_EXTERN 
WebEnvPtr LIBCALL
WebEnvNew(void)
{
   WebEnvPtr ptr = MemNew((size_t) sizeof(WebEnv));

   return ptr;

}


/**************************************************
*
*    WebEnvFree()
*
**************************************************/
NLM_EXTERN 
WebEnvPtr LIBCALL
WebEnvFree(WebEnvPtr ptr)
{

   if(ptr == NULL) {
      return NULL;
   }
   AsnGenericUserSeqOfFree(ptr -> arguments, (AsnOptFreeFunc) ArgumentFree);
   AsnGenericUserSeqOfFree(ptr -> db_Env, (AsnOptFreeFunc) DbEnvFree);
   AsnGenericUserSeqOfFree(ptr -> queries, (AsnOptFreeFunc) QueryHistoryFree);
   return MemFree(ptr);
}


/**************************************************
*
*    WebEnvAsnRead()
*
**************************************************/
NLM_EXTERN 
WebEnvPtr LIBCALL
WebEnvAsnRead(AsnIoPtr aip, AsnTypePtr orig)
{
   DataVal av;
   AsnTypePtr atp;
   Boolean isError = FALSE;
   AsnReadFunc func;
   WebEnvPtr ptr;

   if (! loaded)
   {
      if (! twebenvAsnLoad()) {
         return NULL;
      }
   }

   if (aip == NULL) {
      return NULL;
   }

   if (orig == NULL) {         /* WebEnv ::= (self contained) */
      atp = AsnReadId(aip, amp, WEB_ENV);
   } else {
      atp = AsnLinkType(orig, WEB_ENV);
   }
   /* link in local tree */
   if (atp == NULL) {
      return NULL;
   }

   ptr = WebEnvNew();
   if (ptr == NULL) {
      goto erret;
   }
   if (AsnReadVal(aip, atp, &av) <= 0) { /* read the start struct */
      goto erret;
   }

   atp = AsnReadId(aip,amp, atp);
   func = NULL;

   if (atp == WEB_ENV_arguments) {
      ptr -> arguments = AsnGenericUserSeqOfAsnRead(aip, amp, atp, &isError, (AsnReadFunc) ArgumentAsnRead, (AsnOptFreeFunc) ArgumentFree);
      if (isError && ptr -> arguments == NULL) {
         goto erret;
      }
      atp = AsnReadId(aip,amp, atp);
   }
   if (atp == WEB_ENV_db_Env) {
      ptr -> db_Env = AsnGenericUserSeqOfAsnRead(aip, amp, atp, &isError, (AsnReadFunc) DbEnvAsnRead, (AsnOptFreeFunc) DbEnvFree);
      if (isError && ptr -> db_Env == NULL) {
         goto erret;
      }
      atp = AsnReadId(aip,amp, atp);
   }
   if (atp == WEB_ENV_queries) {
      ptr -> queries = AsnGenericUserSeqOfAsnRead(aip, amp, atp, &isError, (AsnReadFunc) QueryHistoryAsnRead, (AsnOptFreeFunc) QueryHistoryFree);
      if (isError && ptr -> queries == NULL) {
         goto erret;
      }
      atp = AsnReadId(aip,amp, atp);
   }

   if (AsnReadVal(aip, atp, &av) <= 0) {
      goto erret;
   }
   /* end struct */

ret:
   AsnUnlinkType(orig);       /* unlink local tree */
   return ptr;

erret:
   aip -> io_failure = TRUE;
   ptr = WebEnvFree(ptr);
   goto ret;
}



/**************************************************
*
*    WebEnvAsnWrite()
*
**************************************************/
NLM_EXTERN Boolean LIBCALL 
WebEnvAsnWrite(WebEnvPtr ptr, AsnIoPtr aip, AsnTypePtr orig)
{
   DataVal av;
   AsnTypePtr atp;
   Boolean retval = FALSE;

   if (! loaded)
   {
      if (! twebenvAsnLoad()) {
         return FALSE;
      }
   }

   if (aip == NULL) {
      return FALSE;
   }

   atp = AsnLinkType(orig, WEB_ENV);   /* link local tree */
   if (atp == NULL) {
      return FALSE;
   }

   if (ptr == NULL) { AsnNullValueMsg(aip, atp); goto erret; }
   if (! AsnOpenStruct(aip, atp, (Pointer) ptr)) {
      goto erret;
   }

   AsnGenericUserSeqOfAsnWrite(ptr -> arguments, (AsnWriteFunc) ArgumentAsnWrite, aip, WEB_ENV_arguments, WEB_ENV_arguments_E);
   AsnGenericUserSeqOfAsnWrite(ptr -> db_Env, (AsnWriteFunc) DbEnvAsnWrite, aip, WEB_ENV_db_Env, WEB_ENV_db_Env_E);
   AsnGenericUserSeqOfAsnWrite(ptr -> queries, (AsnWriteFunc) QueryHistoryAsnWrite, aip, WEB_ENV_queries, WEB_ENV_queries_E);
   if (! AsnCloseStruct(aip, atp, (Pointer)ptr)) {
      goto erret;
   }
   retval = TRUE;

erret:
   AsnUnlinkType(orig);       /* unlink local tree */
   return retval;
}



/**************************************************
*
*    ArgumentNew()
*
**************************************************/
NLM_EXTERN 
ArgumentPtr LIBCALL
ArgumentNew(void)
{
   ArgumentPtr ptr = MemNew((size_t) sizeof(Argument));

   return ptr;

}


/**************************************************
*
*    ArgumentFree()
*
**************************************************/
NLM_EXTERN 
ArgumentPtr LIBCALL
ArgumentFree(ArgumentPtr ptr)
{

   if(ptr == NULL) {
      return NULL;
   }
   MemFree(ptr -> name);
   MemFree(ptr -> value);
   return MemFree(ptr);
}


/**************************************************
*
*    ArgumentAsnRead()
*
**************************************************/
NLM_EXTERN 
ArgumentPtr LIBCALL
ArgumentAsnRead(AsnIoPtr aip, AsnTypePtr orig)
{
   DataVal av;
   AsnTypePtr atp;
   Boolean isError = FALSE;
   AsnReadFunc func;
   ArgumentPtr ptr;

   if (! loaded)
   {
      if (! twebenvAsnLoad()) {
         return NULL;
      }
   }

   if (aip == NULL) {
      return NULL;
   }

   if (orig == NULL) {         /* Argument ::= (self contained) */
      atp = AsnReadId(aip, amp, ARGUMENT);
   } else {
      atp = AsnLinkType(orig, ARGUMENT);
   }
   /* link in local tree */
   if (atp == NULL) {
      return NULL;
   }

   ptr = ArgumentNew();
   if (ptr == NULL) {
      goto erret;
   }
   if (AsnReadVal(aip, atp, &av) <= 0) { /* read the start struct */
      goto erret;
   }

   atp = AsnReadId(aip,amp, atp);
   func = NULL;

   if (atp == ARGUMENT_name) {
      if ( AsnReadVal(aip, atp, &av) <= 0) {
         goto erret;
      }
      ptr -> name = av.ptrvalue;
      atp = AsnReadId(aip,amp, atp);
   }
   if (atp == ARGUMENT_value) {
      if ( AsnReadVal(aip, atp, &av) <= 0) {
         goto erret;
      }
      ptr -> value = av.ptrvalue;
      atp = AsnReadId(aip,amp, atp);
   }

   if (AsnReadVal(aip, atp, &av) <= 0) {
      goto erret;
   }
   /* end struct */

ret:
   AsnUnlinkType(orig);       /* unlink local tree */
   return ptr;

erret:
   aip -> io_failure = TRUE;
   ptr = ArgumentFree(ptr);
   goto ret;
}



/**************************************************
*
*    ArgumentAsnWrite()
*
**************************************************/
NLM_EXTERN Boolean LIBCALL 
ArgumentAsnWrite(ArgumentPtr ptr, AsnIoPtr aip, AsnTypePtr orig)
{
   DataVal av;
   AsnTypePtr atp;
   Boolean retval = FALSE;

   if (! loaded)
   {
      if (! twebenvAsnLoad()) {
         return FALSE;
      }
   }

   if (aip == NULL) {
      return FALSE;
   }

   atp = AsnLinkType(orig, ARGUMENT);   /* link local tree */
   if (atp == NULL) {
      return FALSE;
   }

   if (ptr == NULL) { AsnNullValueMsg(aip, atp); goto erret; }
   if (! AsnOpenStruct(aip, atp, (Pointer) ptr)) {
      goto erret;
   }

   if (ptr -> name != NULL) {
      av.ptrvalue = ptr -> name;
      retval = AsnWrite(aip, ARGUMENT_name,  &av);
   }
   if (ptr -> value != NULL) {
      av.ptrvalue = ptr -> value;
      retval = AsnWrite(aip, ARGUMENT_value,  &av);
   }
   if (! AsnCloseStruct(aip, atp, (Pointer)ptr)) {
      goto erret;
   }
   retval = TRUE;

erret:
   AsnUnlinkType(orig);       /* unlink local tree */
   return retval;
}



/**************************************************
*
*    DbEnvNew()
*
**************************************************/
NLM_EXTERN 
DbEnvPtr LIBCALL
DbEnvNew(void)
{
   DbEnvPtr ptr = MemNew((size_t) sizeof(DbEnv));

   return ptr;

}


/**************************************************
*
*    DbEnvFree()
*
**************************************************/
NLM_EXTERN 
DbEnvPtr LIBCALL
DbEnvFree(DbEnvPtr ptr)
{

   if(ptr == NULL) {
      return NULL;
   }
   MemFree(ptr -> name);
   AsnGenericUserSeqOfFree(ptr -> arguments, (AsnOptFreeFunc) ArgumentFree);
   AsnGenericUserSeqOfFree(ptr -> filters, (AsnOptFreeFunc) FilterValueFree);
   AsnGenericUserSeqOfFree(ptr -> clipboard, (AsnOptFreeFunc) DbClipboardFree);
   return MemFree(ptr);
}


/**************************************************
*
*    DbEnvAsnRead()
*
**************************************************/
NLM_EXTERN 
DbEnvPtr LIBCALL
DbEnvAsnRead(AsnIoPtr aip, AsnTypePtr orig)
{
   DataVal av;
   AsnTypePtr atp;
   Boolean isError = FALSE;
   AsnReadFunc func;
   DbEnvPtr ptr;

   if (! loaded)
   {
      if (! twebenvAsnLoad()) {
         return NULL;
      }
   }

   if (aip == NULL) {
      return NULL;
   }

   if (orig == NULL) {         /* DbEnv ::= (self contained) */
      atp = AsnReadId(aip, amp, DB_ENV);
   } else {
      atp = AsnLinkType(orig, DB_ENV);
   }
   /* link in local tree */
   if (atp == NULL) {
      return NULL;
   }

   ptr = DbEnvNew();
   if (ptr == NULL) {
      goto erret;
   }
   if (AsnReadVal(aip, atp, &av) <= 0) { /* read the start struct */
      goto erret;
   }

   atp = AsnReadId(aip,amp, atp);
   func = NULL;

   if (atp == DB_ENV_name) {
      if ( AsnReadVal(aip, atp, &av) <= 0) {
         goto erret;
      }
      ptr -> name = av.ptrvalue;
      atp = AsnReadId(aip,amp, atp);
   }
   if (atp == DB_ENV_arguments) {
      ptr -> arguments = AsnGenericUserSeqOfAsnRead(aip, amp, atp, &isError, (AsnReadFunc) ArgumentAsnRead, (AsnOptFreeFunc) ArgumentFree);
      if (isError && ptr -> arguments == NULL) {
         goto erret;
      }
      atp = AsnReadId(aip,amp, atp);
   }
   if (atp == DB_ENV_filters) {
      ptr -> filters = AsnGenericUserSeqOfAsnRead(aip, amp, atp, &isError, (AsnReadFunc) FilterValueAsnRead, (AsnOptFreeFunc) FilterValueFree);
      if (isError && ptr -> filters == NULL) {
         goto erret;
      }
      atp = AsnReadId(aip,amp, atp);
   }
   if (atp == DB_ENV_clipboard) {
      ptr -> clipboard = AsnGenericUserSeqOfAsnRead(aip, amp, atp, &isError, (AsnReadFunc) DbClipboardAsnRead, (AsnOptFreeFunc) DbClipboardFree);
      if (isError && ptr -> clipboard == NULL) {
         goto erret;
      }
      atp = AsnReadId(aip,amp, atp);
   }

   if (AsnReadVal(aip, atp, &av) <= 0) {
      goto erret;
   }
   /* end struct */

ret:
   AsnUnlinkType(orig);       /* unlink local tree */
   return ptr;

erret:
   aip -> io_failure = TRUE;
   ptr = DbEnvFree(ptr);
   goto ret;
}



/**************************************************
*
*    DbEnvAsnWrite()
*
**************************************************/
NLM_EXTERN Boolean LIBCALL 
DbEnvAsnWrite(DbEnvPtr ptr, AsnIoPtr aip, AsnTypePtr orig)
{
   DataVal av;
   AsnTypePtr atp;
   Boolean retval = FALSE;

   if (! loaded)
   {
      if (! twebenvAsnLoad()) {
         return FALSE;
      }
   }

   if (aip == NULL) {
      return FALSE;
   }

   atp = AsnLinkType(orig, DB_ENV);   /* link local tree */
   if (atp == NULL) {
      return FALSE;
   }

   if (ptr == NULL) { AsnNullValueMsg(aip, atp); goto erret; }
   if (! AsnOpenStruct(aip, atp, (Pointer) ptr)) {
      goto erret;
   }

   if (ptr -> name != NULL) {
      av.ptrvalue = ptr -> name;
      retval = AsnWrite(aip, DB_ENV_name,  &av);
   }
   AsnGenericUserSeqOfAsnWrite(ptr -> arguments, (AsnWriteFunc) ArgumentAsnWrite, aip, DB_ENV_arguments, DB_ENV_arguments_E);
   AsnGenericUserSeqOfAsnWrite(ptr -> filters, (AsnWriteFunc) FilterValueAsnWrite, aip, DB_ENV_filters, DB_ENV_filters_E);
   AsnGenericUserSeqOfAsnWrite(ptr -> clipboard, (AsnWriteFunc) DbClipboardAsnWrite, aip, DB_ENV_clipboard, DB_ENV_clipboard_E);
   if (! AsnCloseStruct(aip, atp, (Pointer)ptr)) {
      goto erret;
   }
   retval = TRUE;

erret:
   AsnUnlinkType(orig);       /* unlink local tree */
   return retval;
}



/**************************************************
*
*    QueryHistoryNew()
*
**************************************************/
NLM_EXTERN 
QueryHistoryPtr LIBCALL
QueryHistoryNew(void)
{
   QueryHistoryPtr ptr = MemNew((size_t) sizeof(QueryHistory));

   return ptr;

}


/**************************************************
*
*    QueryHistoryFree()
*
**************************************************/
NLM_EXTERN 
QueryHistoryPtr LIBCALL
QueryHistoryFree(QueryHistoryPtr ptr)
{

   if(ptr == NULL) {
      return NULL;
   }
   MemFree(ptr -> name);
   TimeFree(ptr -> time);
   QueryCommandFree(ptr -> command);
   return MemFree(ptr);
}


/**************************************************
*
*    QueryHistoryAsnRead()
*
**************************************************/
NLM_EXTERN 
QueryHistoryPtr LIBCALL
QueryHistoryAsnRead(AsnIoPtr aip, AsnTypePtr orig)
{
   DataVal av;
   AsnTypePtr atp;
   Boolean isError = FALSE;
   AsnReadFunc func;
   QueryHistoryPtr ptr;

   if (! loaded)
   {
      if (! twebenvAsnLoad()) {
         return NULL;
      }
   }

   if (aip == NULL) {
      return NULL;
   }