distrib/sources/tas/tma/tma_util.c

   1 /****************************************************************************/
   2 /*                                                                          */
   3 /*                      Chaine de CAO & VLSI   Alliance                     */
   4 /*                                                                          */
   5 /*    Produit : TMA Version 1                                               */
   6 /*    Fichier : tma_util.c                                                  */
   7 /*                                                                          */
   8 /*    (c) copyright 1997-1998 Laboratoire LIP6 equipe ASIM                  */
   9 /*    Tous droits reserves                                                  */
  10 /*    Support : e-mail alliance-support@asim.lip6.fr                        */
  11 /*                                                                          */
  12 /*    Auteur(s) : Gilles AUGUSTINS                                          */
  13 /*                                                                          */
  14 /****************************************************************************/
  15 #include "tma.h"
  16 /****************************************************************************/
  17
  18 tma_context_list *TMA_CONTEXT = NULL;
  19
  20 /****************************************************************************/
  21
  22 int tmaenv(long type)
  23 {
  24     tma_context_list *newcontext;
  25     char *str ;
  26     tma_context_list *next;
  27
  28     newcontext = (tma_context_list *)mbkalloc(sizeof(tma_context_list));
  29     next = TMA_CONTEXT;
  30     if (TMA_CONTEXT != NULL) {
  31         *newcontext = *TMA_CONTEXT;
  32         TMA_CONTEXT = newcontext;
  33     }
  34     else {
  35         TMA_CONTEXT = newcontext;
  36         TMA_CONTEXT->TMA_TYPE_TTVFIG = 'T';
  37     }
  38     newcontext->NEXT = next;
  39
  40     if (type!=0)
  41     {
  42       if ((type & TTV_FILE_DTX)==TTV_FILE_DTX)
  43         TMA_CONTEXT->TMA_TYPE_TTVFIG = 'D';
  44       else if ((type & TTV_FILE_CTX)==TTV_FILE_CTX)
  45          TMA_CONTEXT->TMA_TYPE_TTVFIG = 'D';
  46       else
  47          TMA_CONTEXT->TMA_TYPE_TTVFIG = 'T';
  48     }
  49     else
  50     {
  51       if (V_BOOL_TAB[__TMA_DTXIN].VALUE == 1 )
  52           TMA_CONTEXT->TMA_TYPE_TTVFIG = 'D';
  53       else if (V_BOOL_TAB[__TMA_TTXIN].VALUE == 1 )
  54           TMA_CONTEXT->TMA_TYPE_TTVFIG = 'T';
  55       else if (V_BOOL_TAB[__TMA_CTXIN].VALUE == 1 )
  56           TMA_CONTEXT->TMA_TYPE_TTVFIG = 'D';
  57     }
  58     return 0;
  59 }
  60