/* file marc1.c */
  
  
  #include "sctk.h"
  
  ARC *make_arc(void *dat, NODE *from_node, NODE *to_node, int *perr)
                                                     
  /*********************************************************/
  /* Makes an arc <from_node/symbol/to_node>, returning a  */
  /* pointer to it.                                        */
  /*********************************************************/
   {char *proc = "make_arc";
    ARC *p; 
  /* code */
    db_enter_msg(proc,1); /* debug only */
    p = (ARC *)malloc_safe(sizeof(ARC),proc);
    *perr = 0;
    p->data = dat;
    p->weight = 0;
    p->net = NULL_NETWORK;
    p->from_node = from_node;
    p->to_node   = to_node;
    db_leave_msg(proc,1); /* debug only */
    return p;
   } /* end make_arc() */