distrib/sources/beh/beh/beh_addbeaux.c

   1
   2 /* ###--------------------------------------------------------------### */
   3 /*                                                                      */
   4 /* file         : beh_addbeaux.c                                        */
   5 /* date         : Sep  3 1993                                           */
   6 /* version      : v106                                                  */
   7 /* authors      : Pirouz BAZARGAN SABET                                 */
   8 /* content      : low-level function                                    */
   9 /*                                                                      */
  10 /* ###--------------------------------------------------------------### */
  11
  12 #include <stdio.h>
  13 #include MUT_H
  14 #include LOG_H
  15 #include BEH_H
  16
  17 /* ###--------------------------------------------------------------### */
  18 /* function     : beh_addbeaux                                          */
  19 /* description  : create a BEAUX structure at the top the list          */
  20 /* called func. : namealloc, mbkalloc                                   */
  21 /* ###--------------------------------------------------------------### */
  22
  23 struct beaux *beh_addbeaux (struct beaux *lastbeaux, char         *name, struct chain *abl_expr, struct node  *bdd_expr, long flags)
  24
  25 {
  26   struct beaux *ptaux;
  27
  28   name        = namealloc (name);
  29
  30   ptaux       = (struct beaux *) mbkalloc (sizeof(struct beaux));
  31   ptaux->NAME = name;
  32   ptaux->TIME = 0;
  33   ptaux->TIMER = ptaux->TIMEF = 0;
  34   ptaux->TIMEVAR = NULL;
  35   ptaux->ABL  = abl_expr;
  36   ptaux->NODE = bdd_expr;
  37   ptaux->NEXT = lastbeaux;
  38   ptaux->FLAGS= flags;
  39
  40   return (ptaux);
  41 }